packages feed

ghcjs-dom 0.1.1.3 → 0.2.1.0

raw patch · 1058 files changed

+95234/−26265 lines, 1058 filesdep +ghc-primdep +ghcjs-primdep −mtldep ~ghcjs-basedep ~gtk3dep ~transformers

Dependencies added: ghc-prim, ghcjs-prim

Dependencies removed: mtl

Dependency ranges changed: ghcjs-base, gtk3, transformers, webkit, webkitgtk3

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

Files

ghcjs-dom.cabal view
@@ -1,205 +1,1114 @@ name: ghcjs-dom-version: 0.1.1.3-cabal-version: >=1.10-build-type: Simple-license: MIT-license-file: LICENSE-maintainer: Hamish Mackenzie <Hamish.K.Mackenzie@googlemail.com>-synopsis: DOM library that supports both GHCJS and WebKitGTK-description: Documentent Object Model (DOM) functions that work with-             GHCJS, but can also be used with GHC and WebKitGTK.-author: Hamish Mackenzie-data-dir: ""-category: Web--Source-Repository head-  type:         git-  location:     https://github.com/ghcjs/ghcjs-dom--flag ghcjs-    description: Tell cabal we are using ghcjs (work around until hackage supports impl(ghcjs))-    default: True--flag jsffi-    description: Use JavaScriptFFI extension for GHCJS JavaScript output-    default: True--flag webkit-    description: Use WebKitGtk DOM functions-    default: False--flag jsc-    description: Use WebKitGtk JavaScriptCore-    default: False--flag gtk3-    Description: Use GTK3 rather than GTK2 (only matters when using webkit)-    Default: True--library-    build-depends: base <5,-                   mtl -any,-                   text >= 0.11.0.6 && < 1.3--    default-language: Haskell2010-    exposed-modules:-          GHCJS.DOM-          GHCJS.DOM.Types-          GHCJS.DOM.Attr-          GHCJS.DOM.BarProp-          GHCJS.DOM.Blob-          GHCJS.DOM.CharacterData-          GHCJS.DOM.Css-          GHCJS.DOM.CSSRule-          GHCJS.DOM.CSSRuleList-          GHCJS.DOM.CSSStyleDeclaration-          GHCJS.DOM.CSSStyleSheet-          GHCJS.DOM.CSSValue-          GHCJS.DOM.Document-          GHCJS.DOM.DocumentType-          GHCJS.DOM.DOMApplicationCache-          GHCJS.DOM.DOMImplementation-          GHCJS.DOM.DOMMimeType-          GHCJS.DOM.DOMMimeTypeArray-          GHCJS.DOM.DOMNamedFlowCollection-          GHCJS.DOM.DOMPlugin-          GHCJS.DOM.DOMPluginArray-          GHCJS.DOM.DOMSelection-          GHCJS.DOM.DOMSettableTokenList-          GHCJS.DOM.DOMTokenList-          GHCJS.DOM.DOMWindow-          GHCJS.DOM.DOMWindowCSS-          GHCJS.DOM.Element-          GHCJS.DOM.Event-          GHCJS.DOM.EventM-          GHCJS.DOM.Events---          GHCJS.DOM.EventTarget-          GHCJS.DOM.EventTargetClosures-          GHCJS.DOM.File-          GHCJS.DOM.FileList-          GHCJS.DOM.History-          GHCJS.DOM.HTMLAnchorElement-          GHCJS.DOM.HTMLAppletElement-          GHCJS.DOM.HTMLAreaElement-          GHCJS.DOM.HTMLBaseElement-          GHCJS.DOM.HTMLBaseFontElement-          GHCJS.DOM.HTMLBodyElement-          GHCJS.DOM.HTMLBRElement-          GHCJS.DOM.HTMLButtonElement-          GHCJS.DOM.HTMLCollection-          GHCJS.DOM.HTMLDirectoryElement-          GHCJS.DOM.HTMLDivElement-          GHCJS.DOM.HTMLDListElement-          GHCJS.DOM.HTMLDocument-          GHCJS.DOM.HTMLElement-          GHCJS.DOM.HTMLFieldSetElement-          GHCJS.DOM.HTMLFontElement-          GHCJS.DOM.HTMLFormElement-          GHCJS.DOM.HTMLFrameElement-          GHCJS.DOM.HTMLFrameSetElement-          GHCJS.DOM.HTMLHeadElement-          GHCJS.DOM.HTMLHeadingElement-          GHCJS.DOM.HTMLHRElement-          GHCJS.DOM.HTMLHtmlElement-          GHCJS.DOM.HTMLIFrameElement-          GHCJS.DOM.HTMLImageElement-          GHCJS.DOM.HTMLInputElement-          GHCJS.DOM.HTMLLabelElement-          GHCJS.DOM.HTMLLegendElement-          GHCJS.DOM.HTMLLIElement-          GHCJS.DOM.HTMLLinkElement-          GHCJS.DOM.HTMLMapElement-          GHCJS.DOM.HTMLMenuElement-          GHCJS.DOM.HTMLMetaElement-          GHCJS.DOM.HTMLModElement-          GHCJS.DOM.HTMLObjectElement-          GHCJS.DOM.HTMLOListElement-          GHCJS.DOM.HTMLOptGroupElement-          GHCJS.DOM.HTMLOptionElement-          GHCJS.DOM.HTMLOptionsCollection-          GHCJS.DOM.HTMLParagraphElement-          GHCJS.DOM.HTMLParamElement-          GHCJS.DOM.HTMLPreElement-          GHCJS.DOM.HTMLQuoteElement-          GHCJS.DOM.HTMLScriptElement-          GHCJS.DOM.HTMLSelectElement-          GHCJS.DOM.HTMLStyleElement-          GHCJS.DOM.HTMLTableCaptionElement-          GHCJS.DOM.HTMLTableCellElement-          GHCJS.DOM.HTMLTableColElement-          GHCJS.DOM.HTMLTableElement-          GHCJS.DOM.HTMLTableRowElement-          GHCJS.DOM.HTMLTableSectionElement-          GHCJS.DOM.HTMLTextAreaElement-          GHCJS.DOM.HTMLTitleElement-          GHCJS.DOM.HTMLUListElement-          GHCJS.DOM.KeyboardEvent-          GHCJS.DOM.Location-          GHCJS.DOM.MediaList-          GHCJS.DOM.MediaQueryList-          GHCJS.DOM.MouseEvent-          GHCJS.DOM.NamedNodeMap-          GHCJS.DOM.Navigator-          GHCJS.DOM.Node-          GHCJS.DOM.NodeFilter-          GHCJS.DOM.NodeIterator-          GHCJS.DOM.NodeList-          GHCJS.DOM.ProcessingInstruction-          GHCJS.DOM.Range-          GHCJS.DOM.Ranges-          GHCJS.DOM.Screen-          GHCJS.DOM.StyleMedia-          GHCJS.DOM.StyleSheet-          GHCJS.DOM.StyleSheetList-          GHCJS.DOM.Stylesheets-          GHCJS.DOM.Storage-          GHCJS.DOM.Text-          GHCJS.DOM.Traversal-          GHCJS.DOM.TreeWalker-          GHCJS.DOM.UIEvent-          GHCJS.DOM.ValidityState-          GHCJS.DOM.WebKitNamedFlow-          GHCJS.DOM.WebKitPoint-          GHCJS.DOM.XPathExpression-          GHCJS.DOM.XPathNSResolver-          GHCJS.DOM.XPathResult-          GHCJS.DOM.DOMSecurityPolicy-          GHCJS.DOM.DOMStringList-          GHCJS.DOM.Geolocation-          GHCJS.DOM.HTMLCanvasElement-          GHCJS.DOM.HTMLDetailsElement-          GHCJS.DOM.HTMLEmbedElement-          GHCJS.DOM.HTMLKeygenElement-          GHCJS.DOM.HTMLMarqueeElement-          GHCJS.DOM.HTMLMediaElement-          GHCJS.DOM.HTMLVideoElement-          GHCJS.DOM.MediaError-          GHCJS.DOM.StorageInfo-          GHCJS.DOM.TimeRanges-          -- GHCJS.DOM.WebKitAnimation-          -- GHCJS.DOM.WebKitAnimationList--    -- Make sure ghcjs gets turned off if ghcjs-base is not avaialbe-    if flag(ghcjs)-        build-depends: ghcjs-base----    if impl(ghcjs) && flag(jsffi)-    if flag(ghcjs) && flag(jsffi)-        cpp-options: -DUSE_JAVASCRIPTFFI-        build-depends: ghcjs-base----    if !impl(ghcjs) || flag(webkit)-    if !flag(ghcjs) || flag(webkit)-        cpp-options: -DUSE_WEBKIT-        build-depends: glib >=0.13.0.0 && <0.14,-                       transformers >=0.3.0.0 && <0.5-        if flag(gtk3)-            build-depends: gtk3 >=0.13.0.0 && <0.14, webkitgtk3 >=0.13.0.0 && <0.14-        else-            build-depends: gtk >=0.13.0.0 && <0.14, webkit >=0.13.0.0 && <0.14-        c-sources:      cbits/ghcjs_stubs.c--    hs-source-dirs: src-    exposed: True-    buildable: True+version: 0.2.1.0+cabal-version: >=1.10+build-type: Simple+license: MIT+license-file: LICENSE+maintainer: Hamish Mackenzie <Hamish.K.Mackenzie@googlemail.com>+synopsis: DOM library that supports both GHCJS and WebKitGTK+description: Documentent Object Model (DOM) functions that work with+             GHCJS, but can also be used with GHC and WebKitGTK.+author: Hamish Mackenzie+data-dir: ""+category: Web++Source-Repository head+  type:         git+  location:     https://github.com/ghcjs/ghcjs-dom++flag jsffi+    description: Use JavaScriptFFI extension for GHCJS JavaScript output+    default: True++flag webkit+    description: Use WebKitGtk DOM functions+    default: False++flag old-webkit+    description: If you have an old version of WebKitGTK+ this will get ghcjs-dom+                 to build, leaving out functions that are new or have changed.+                 This option is mainly here to get the travis builds to work.+    default: False++flag jsc+    description: Use WebKitGtk JavaScriptCore+    default: False++flag gtk3+    description: Use GTK3 rather than GTK2 (only matters when using webkit)+    default: True++library+    build-depends: base <5,+                   transformers >=0.2 && <0.5,+                   text >= 0.11.0.6 && < 1.3++    default-language: Haskell2010+    exposed-modules:+          GHCJS.DOM+          GHCJS.DOM.ANGLEInstancedArrays+          GHCJS.DOM.AbstractView+          GHCJS.DOM.AbstractWorker+          GHCJS.DOM.AllAudioCapabilities+          GHCJS.DOM.AllVideoCapabilities+          GHCJS.DOM.AnalyserNode+          GHCJS.DOM.AnimationEvent+          GHCJS.DOM.Attr+          GHCJS.DOM.AudioBuffer+          GHCJS.DOM.AudioBufferCallback+          GHCJS.DOM.AudioBufferSourceNode+          GHCJS.DOM.AudioContext+          GHCJS.DOM.AudioDestinationNode+          GHCJS.DOM.AudioListener+          GHCJS.DOM.AudioNode+          GHCJS.DOM.AudioParam+          GHCJS.DOM.AudioProcessingEvent+          GHCJS.DOM.AudioStreamTrack+          GHCJS.DOM.AudioTrack+          GHCJS.DOM.AudioTrackList+          GHCJS.DOM.AutocompleteErrorEvent+          GHCJS.DOM.BarProp+          GHCJS.DOM.BatteryManager+          GHCJS.DOM.BeforeLoadEvent+          GHCJS.DOM.BeforeUnloadEvent+          GHCJS.DOM.BiquadFilterNode+          GHCJS.DOM.Blob+          GHCJS.DOM.CSSCharsetRule+          GHCJS.DOM.CSSFontFaceLoadEvent+          GHCJS.DOM.CSSFontFaceRule+          GHCJS.DOM.CSSImportRule+          GHCJS.DOM.CSSKeyframeRule+          GHCJS.DOM.CSSKeyframesRule+          GHCJS.DOM.CSSMediaRule+          GHCJS.DOM.CSSPageRule+          GHCJS.DOM.CSSPrimitiveValue+          GHCJS.DOM.CSSRule+          GHCJS.DOM.CSSRuleList+          GHCJS.DOM.CSSStyleDeclaration+          GHCJS.DOM.CSSStyleRule+          GHCJS.DOM.CSSStyleSheet+          GHCJS.DOM.CSSSupportsRule+          GHCJS.DOM.CSSValue+          GHCJS.DOM.CSSValueList+          GHCJS.DOM.CanvasGradient+          GHCJS.DOM.CanvasRenderingContext+          GHCJS.DOM.CanvasRenderingContext2D+          GHCJS.DOM.CapabilityRange+          GHCJS.DOM.CharacterData+          GHCJS.DOM.ChildNode+          GHCJS.DOM.ClientRect+          GHCJS.DOM.ClientRectList+          GHCJS.DOM.CloseEvent+          GHCJS.DOM.CommandLineAPIHost+          GHCJS.DOM.Comment+          GHCJS.DOM.CompositionEvent+          GHCJS.DOM.ConvolverNode+          GHCJS.DOM.Coordinates+          GHCJS.DOM.Counter+          GHCJS.DOM.Crypto+          GHCJS.DOM.CryptoKey+          GHCJS.DOM.CryptoKeyPair+          GHCJS.DOM.CustomEvent+          GHCJS.DOM.ApplicationCache+          GHCJS.DOM.DOMError+          GHCJS.DOM.FormData+          GHCJS.DOM.DOMImplementation+          GHCJS.DOM.MimeType+          GHCJS.DOM.MimeTypeArray+          GHCJS.DOM.DOMNamedFlowCollection+          GHCJS.DOM.DOMParser+          GHCJS.DOM.Path2D+          GHCJS.DOM.Plugin+          GHCJS.DOM.PluginArray+          GHCJS.DOM.SecurityPolicy+          GHCJS.DOM.Selection+          GHCJS.DOM.DOMSettableTokenList+          GHCJS.DOM.DOMStringList+          GHCJS.DOM.DOMTokenList+          GHCJS.DOM.URL+          GHCJS.DOM.Window+          GHCJS.DOM.CSS+          GHCJS.DOM.DataCue+          GHCJS.DOM.DataTransfer+          GHCJS.DOM.DataTransferItem+          GHCJS.DOM.DataTransferItemList+          GHCJS.DOM.Database+          GHCJS.DOM.DatabaseCallback+          GHCJS.DOM.DedicatedWorkerGlobalScope+          GHCJS.DOM.DelayNode+          GHCJS.DOM.DeviceMotionEvent+          GHCJS.DOM.DeviceOrientationEvent+          GHCJS.DOM.DeviceProximityEvent+          GHCJS.DOM.Document+          GHCJS.DOM.DocumentFragment+          GHCJS.DOM.DocumentType+          GHCJS.DOM.DynamicsCompressorNode+          GHCJS.DOM.EXTBlendMinMax+          GHCJS.DOM.EXTsRGB+          GHCJS.DOM.EXTTextureFilterAnisotropic+          GHCJS.DOM.Element+          GHCJS.DOM.Entity+          GHCJS.DOM.Enums+          GHCJS.DOM.ErrorEvent+          GHCJS.DOM.Event+          GHCJS.DOM.EventListener+          GHCJS.DOM.EventM+          GHCJS.DOM.EventSource+          GHCJS.DOM.EventTarget+          GHCJS.DOM.EventTargetClosures+          GHCJS.DOM.File+          GHCJS.DOM.FileError+          GHCJS.DOM.FileList+          GHCJS.DOM.FileReader+          GHCJS.DOM.FileReaderSync+          GHCJS.DOM.FocusEvent+          GHCJS.DOM.FontLoader+          GHCJS.DOM.GainNode+          GHCJS.DOM.Gamepad+          GHCJS.DOM.GamepadButton+          GHCJS.DOM.GamepadEvent+          GHCJS.DOM.Geolocation+          GHCJS.DOM.Geoposition+          GHCJS.DOM.HTMLAllCollection+          GHCJS.DOM.HTMLAnchorElement+          GHCJS.DOM.HTMLAppletElement+          GHCJS.DOM.HTMLAreaElement+          GHCJS.DOM.HTMLBRElement+          GHCJS.DOM.HTMLBaseElement+          GHCJS.DOM.HTMLBaseFontElement+          GHCJS.DOM.HTMLBodyElement+          GHCJS.DOM.HTMLButtonElement+          GHCJS.DOM.HTMLCanvasElement+          GHCJS.DOM.HTMLCollection+          GHCJS.DOM.HTMLDListElement+          GHCJS.DOM.HTMLDataListElement+          GHCJS.DOM.HTMLDetailsElement+          GHCJS.DOM.HTMLDirectoryElement+          GHCJS.DOM.HTMLDivElement+          GHCJS.DOM.HTMLDocument+          GHCJS.DOM.HTMLElement+          GHCJS.DOM.HTMLEmbedElement+          GHCJS.DOM.HTMLFieldSetElement+          GHCJS.DOM.HTMLFontElement+          GHCJS.DOM.HTMLFormControlsCollection+          GHCJS.DOM.HTMLFormElement+          GHCJS.DOM.HTMLFrameElement+          GHCJS.DOM.HTMLFrameSetElement+          GHCJS.DOM.HTMLHRElement+          GHCJS.DOM.HTMLHeadElement+          GHCJS.DOM.HTMLHeadingElement+          GHCJS.DOM.HTMLHtmlElement+          GHCJS.DOM.HTMLIFrameElement+          GHCJS.DOM.HTMLImageElement+          GHCJS.DOM.HTMLInputElement+          GHCJS.DOM.HTMLKeygenElement+          GHCJS.DOM.HTMLLIElement+          GHCJS.DOM.HTMLLabelElement+          GHCJS.DOM.HTMLLegendElement+          GHCJS.DOM.HTMLLinkElement+          GHCJS.DOM.HTMLMapElement+          GHCJS.DOM.HTMLMarqueeElement+          GHCJS.DOM.HTMLMediaElement+          GHCJS.DOM.HTMLMenuElement+          GHCJS.DOM.HTMLMetaElement+          GHCJS.DOM.HTMLMeterElement+          GHCJS.DOM.HTMLModElement+          GHCJS.DOM.HTMLOListElement+          GHCJS.DOM.HTMLObjectElement+          GHCJS.DOM.HTMLOptGroupElement+          GHCJS.DOM.HTMLOptionElement+          GHCJS.DOM.HTMLOptionsCollection+          GHCJS.DOM.HTMLOutputElement+          GHCJS.DOM.HTMLParagraphElement+          GHCJS.DOM.HTMLParamElement+          GHCJS.DOM.HTMLPreElement+          GHCJS.DOM.HTMLProgressElement+          GHCJS.DOM.HTMLQuoteElement+          GHCJS.DOM.HTMLScriptElement+          GHCJS.DOM.HTMLSelectElement+          GHCJS.DOM.HTMLSourceElement+          GHCJS.DOM.HTMLStyleElement+          GHCJS.DOM.HTMLTableCaptionElement+          GHCJS.DOM.HTMLTableCellElement+          GHCJS.DOM.HTMLTableColElement+          GHCJS.DOM.HTMLTableElement+          GHCJS.DOM.HTMLTableRowElement+          GHCJS.DOM.HTMLTableSectionElement+          GHCJS.DOM.HTMLTemplateElement+          GHCJS.DOM.HTMLTextAreaElement+          GHCJS.DOM.HTMLTitleElement+          GHCJS.DOM.HTMLTrackElement+          GHCJS.DOM.HTMLUListElement+          GHCJS.DOM.HTMLVideoElement+          GHCJS.DOM.HashChangeEvent+          GHCJS.DOM.History+          GHCJS.DOM.IDBCursor+          GHCJS.DOM.IDBCursorWithValue+          GHCJS.DOM.IDBDatabase+          GHCJS.DOM.IDBFactory+          GHCJS.DOM.IDBIndex+          GHCJS.DOM.IDBKeyRange+          GHCJS.DOM.IDBObjectStore+          GHCJS.DOM.IDBOpenDBRequest+          GHCJS.DOM.IDBRequest+          GHCJS.DOM.IDBTransaction+          GHCJS.DOM.IDBVersionChangeEvent+          GHCJS.DOM.ImageData+          GHCJS.DOM.InspectorFrontendHost+          GHCJS.DOM.InternalSettings+          GHCJS.DOM.Internals+          GHCJS.DOM.KeyboardEvent+          GHCJS.DOM.Location+          GHCJS.DOM.MallocStatistics+          GHCJS.DOM.MediaController+          GHCJS.DOM.MediaControlsHost+          GHCJS.DOM.MediaElementAudioSourceNode+          GHCJS.DOM.MediaError+          GHCJS.DOM.MediaKeyError+          GHCJS.DOM.MediaKeyEvent+          GHCJS.DOM.MediaKeyMessageEvent+          GHCJS.DOM.MediaKeyNeededEvent+          GHCJS.DOM.MediaKeySession+          GHCJS.DOM.MediaKeys+          GHCJS.DOM.MediaList+          GHCJS.DOM.MediaQueryList+          GHCJS.DOM.MediaQueryListListener+          GHCJS.DOM.MediaSource+          GHCJS.DOM.MediaSourceStates+          GHCJS.DOM.MediaStream+          GHCJS.DOM.MediaStreamAudioDestinationNode+          GHCJS.DOM.MediaStreamAudioSourceNode+          GHCJS.DOM.MediaStreamEvent+          GHCJS.DOM.MediaStreamTrack+          GHCJS.DOM.MediaStreamTrackEvent+          GHCJS.DOM.MediaStreamTrackSourcesCallback+          GHCJS.DOM.MediaTrackConstraints+          GHCJS.DOM.MemoryInfo+          GHCJS.DOM.MessageChannel+          GHCJS.DOM.MessageEvent+          GHCJS.DOM.MessagePort+          GHCJS.DOM.MouseEvent+          GHCJS.DOM.MutationEvent+          GHCJS.DOM.MutationObserver+          GHCJS.DOM.MutationRecord+          GHCJS.DOM.NamedNodeMap+          GHCJS.DOM.Navigator+          GHCJS.DOM.NavigatorUserMediaError+          GHCJS.DOM.NavigatorUserMediaErrorCallback+          GHCJS.DOM.NavigatorUserMediaSuccessCallback+          GHCJS.DOM.Node+          GHCJS.DOM.NodeFilter+          GHCJS.DOM.NodeIterator+          GHCJS.DOM.NodeList+          GHCJS.DOM.Notification+          GHCJS.DOM.NotificationCenter+          GHCJS.DOM.NotificationPermissionCallback+          GHCJS.DOM.OESStandardDerivatives+          GHCJS.DOM.OESTextureHalfFloat+          GHCJS.DOM.OESVertexArrayObject+          GHCJS.DOM.OfflineAudioCompletionEvent+          GHCJS.DOM.OfflineAudioContext+          GHCJS.DOM.OscillatorNode+          GHCJS.DOM.OverflowEvent+          GHCJS.DOM.PageTransitionEvent+          GHCJS.DOM.PannerNode+          GHCJS.DOM.Performance+          GHCJS.DOM.PerformanceEntry+          GHCJS.DOM.PerformanceEntryList+          GHCJS.DOM.PerformanceNavigation+          GHCJS.DOM.PerformanceResourceTiming+          GHCJS.DOM.PerformanceTiming+          GHCJS.DOM.PopStateEvent+          GHCJS.DOM.PositionCallback+          GHCJS.DOM.PositionError+          GHCJS.DOM.PositionErrorCallback+          GHCJS.DOM.ProcessingInstruction+          GHCJS.DOM.ProgressEvent+          GHCJS.DOM.QuickTimePluginReplacement+          GHCJS.DOM.RGBColor+          GHCJS.DOM.RTCConfiguration+          GHCJS.DOM.RTCDTMFSender+          GHCJS.DOM.RTCDTMFToneChangeEvent+          GHCJS.DOM.RTCDataChannel+          GHCJS.DOM.RTCDataChannelEvent+          GHCJS.DOM.RTCIceCandidate+          GHCJS.DOM.RTCIceCandidateEvent+          GHCJS.DOM.RTCIceServer+          GHCJS.DOM.RTCPeerConnection+          GHCJS.DOM.RTCPeerConnectionErrorCallback+          GHCJS.DOM.RTCSessionDescription+          GHCJS.DOM.RTCSessionDescriptionCallback+          GHCJS.DOM.RTCStatsCallback+          GHCJS.DOM.RTCStatsReport+          GHCJS.DOM.RTCStatsResponse+          GHCJS.DOM.RadioNodeList+          GHCJS.DOM.Range+          GHCJS.DOM.ReadableStream+          GHCJS.DOM.Rect+          GHCJS.DOM.RequestAnimationFrameCallback+          GHCJS.DOM.SQLError+          GHCJS.DOM.SQLResultSet+          GHCJS.DOM.SQLResultSetRowList+          GHCJS.DOM.SQLStatementCallback+          GHCJS.DOM.SQLStatementErrorCallback+          GHCJS.DOM.SQLTransaction+          GHCJS.DOM.SQLTransactionCallback+          GHCJS.DOM.SQLTransactionErrorCallback+          GHCJS.DOM.SVGAElement+          GHCJS.DOM.SVGAltGlyphElement+          GHCJS.DOM.SVGAngle+          GHCJS.DOM.SVGAnimatedAngle+          GHCJS.DOM.SVGAnimatedBoolean+          GHCJS.DOM.SVGAnimatedEnumeration+          GHCJS.DOM.SVGAnimatedInteger+          GHCJS.DOM.SVGAnimatedLength+          GHCJS.DOM.SVGAnimatedLengthList+          GHCJS.DOM.SVGAnimatedNumber+          GHCJS.DOM.SVGAnimatedNumberList+          GHCJS.DOM.SVGAnimatedPreserveAspectRatio+          GHCJS.DOM.SVGAnimatedRect+          GHCJS.DOM.SVGAnimatedString+          GHCJS.DOM.SVGAnimatedTransformList+          GHCJS.DOM.SVGAnimationElement+          GHCJS.DOM.SVGCircleElement+          GHCJS.DOM.SVGClipPathElement+          GHCJS.DOM.SVGColor+          GHCJS.DOM.SVGComponentTransferFunctionElement+          GHCJS.DOM.SVGCursorElement+          GHCJS.DOM.SVGDocument+          GHCJS.DOM.SVGElement+          GHCJS.DOM.SVGEllipseElement+          GHCJS.DOM.SVGExternalResourcesRequired+          GHCJS.DOM.SVGFEBlendElement+          GHCJS.DOM.SVGFEColorMatrixElement+          GHCJS.DOM.SVGFEComponentTransferElement+          GHCJS.DOM.SVGFECompositeElement+          GHCJS.DOM.SVGFEConvolveMatrixElement+          GHCJS.DOM.SVGFEDiffuseLightingElement+          GHCJS.DOM.SVGFEDisplacementMapElement+          GHCJS.DOM.SVGFEDistantLightElement+          GHCJS.DOM.SVGFEDropShadowElement+          GHCJS.DOM.SVGFEGaussianBlurElement+          GHCJS.DOM.SVGFEImageElement+          GHCJS.DOM.SVGFEMergeNodeElement+          GHCJS.DOM.SVGFEMorphologyElement+          GHCJS.DOM.SVGFEOffsetElement+          GHCJS.DOM.SVGFEPointLightElement+          GHCJS.DOM.SVGFESpecularLightingElement+          GHCJS.DOM.SVGFESpotLightElement+          GHCJS.DOM.SVGFETileElement+          GHCJS.DOM.SVGFETurbulenceElement+          GHCJS.DOM.SVGFilterElement+          GHCJS.DOM.SVGFilterPrimitiveStandardAttributes+          GHCJS.DOM.SVGFitToViewBox+          GHCJS.DOM.SVGForeignObjectElement+          GHCJS.DOM.SVGGlyphRefElement+          GHCJS.DOM.SVGGradientElement+          GHCJS.DOM.SVGGraphicsElement+          GHCJS.DOM.SVGImageElement+          GHCJS.DOM.SVGLength+          GHCJS.DOM.SVGLengthList+          GHCJS.DOM.SVGLineElement+          GHCJS.DOM.SVGLinearGradientElement+          GHCJS.DOM.SVGMarkerElement+          GHCJS.DOM.SVGMaskElement+          GHCJS.DOM.SVGMatrix+          GHCJS.DOM.SVGNumber+          GHCJS.DOM.SVGNumberList+          GHCJS.DOM.SVGPaint+          GHCJS.DOM.SVGPathElement+          GHCJS.DOM.SVGPathSeg+          GHCJS.DOM.SVGPathSegArcAbs+          GHCJS.DOM.SVGPathSegArcRel+          GHCJS.DOM.SVGPathSegCurvetoCubicAbs+          GHCJS.DOM.SVGPathSegCurvetoCubicRel+          GHCJS.DOM.SVGPathSegCurvetoCubicSmoothAbs+          GHCJS.DOM.SVGPathSegCurvetoCubicSmoothRel+          GHCJS.DOM.SVGPathSegCurvetoQuadraticAbs+          GHCJS.DOM.SVGPathSegCurvetoQuadraticRel+          GHCJS.DOM.SVGPathSegCurvetoQuadraticSmoothAbs+          GHCJS.DOM.SVGPathSegCurvetoQuadraticSmoothRel+          GHCJS.DOM.SVGPathSegLinetoAbs+          GHCJS.DOM.SVGPathSegLinetoHorizontalAbs+          GHCJS.DOM.SVGPathSegLinetoHorizontalRel+          GHCJS.DOM.SVGPathSegLinetoRel+          GHCJS.DOM.SVGPathSegLinetoVerticalAbs+          GHCJS.DOM.SVGPathSegLinetoVerticalRel+          GHCJS.DOM.SVGPathSegList+          GHCJS.DOM.SVGPathSegMovetoAbs+          GHCJS.DOM.SVGPathSegMovetoRel+          GHCJS.DOM.SVGPatternElement+          GHCJS.DOM.SVGPoint+          GHCJS.DOM.SVGPointList+          GHCJS.DOM.SVGPolygonElement+          GHCJS.DOM.SVGPolylineElement+          GHCJS.DOM.SVGPreserveAspectRatio+          GHCJS.DOM.SVGRadialGradientElement+          GHCJS.DOM.SVGRect+          GHCJS.DOM.SVGRectElement+          GHCJS.DOM.SVGRenderingIntent+          GHCJS.DOM.SVGScriptElement+          GHCJS.DOM.SVGSVGElement+          GHCJS.DOM.SVGStopElement+          GHCJS.DOM.SVGStringList+          GHCJS.DOM.SVGStyleElement+          GHCJS.DOM.SVGTests+          GHCJS.DOM.SVGTextContentElement+          GHCJS.DOM.SVGTextPathElement+          GHCJS.DOM.SVGTextPositioningElement+          GHCJS.DOM.SVGTransform+          GHCJS.DOM.SVGTransformList+          GHCJS.DOM.SVGURIReference+          GHCJS.DOM.SVGUnitTypes+          GHCJS.DOM.SVGUseElement+          GHCJS.DOM.SVGViewElement+          GHCJS.DOM.SVGViewSpec+          GHCJS.DOM.SVGZoomAndPan+          GHCJS.DOM.SVGZoomEvent+          GHCJS.DOM.Screen+          GHCJS.DOM.ScriptProcessorNode+          GHCJS.DOM.ScriptProfile+          GHCJS.DOM.ScriptProfileNode+          GHCJS.DOM.SecurityPolicyViolationEvent+          GHCJS.DOM.SourceBuffer+          GHCJS.DOM.SourceBufferList+          GHCJS.DOM.SourceInfo+          GHCJS.DOM.SpeechSynthesis+          GHCJS.DOM.SpeechSynthesisEvent+          GHCJS.DOM.SpeechSynthesisUtterance+          GHCJS.DOM.SpeechSynthesisVoice+          GHCJS.DOM.Storage+          GHCJS.DOM.StorageErrorCallback+          GHCJS.DOM.StorageEvent+          GHCJS.DOM.StorageInfo+          GHCJS.DOM.StorageQuota+          GHCJS.DOM.StorageQuotaCallback+          GHCJS.DOM.StorageUsageCallback+          GHCJS.DOM.StringCallback+          GHCJS.DOM.StyleMedia+          GHCJS.DOM.StyleSheet+          GHCJS.DOM.StyleSheetList+          GHCJS.DOM.SubtleCrypto+          GHCJS.DOM.Text+          GHCJS.DOM.TextEvent+          GHCJS.DOM.TextMetrics+          GHCJS.DOM.TextTrack+          GHCJS.DOM.TextTrackCue+          GHCJS.DOM.TextTrackCueList+          GHCJS.DOM.TextTrackList+          GHCJS.DOM.TimeRanges+          GHCJS.DOM.Touch+          GHCJS.DOM.TouchEvent+          GHCJS.DOM.TouchList+          GHCJS.DOM.TrackEvent+          GHCJS.DOM.TransitionEvent+          GHCJS.DOM.TreeWalker+          GHCJS.DOM.TypeConversions+          GHCJS.DOM.Types+          GHCJS.DOM.UIEvent+          GHCJS.DOM.UIRequestEvent+          GHCJS.DOM.URLUtils+          GHCJS.DOM.UserMessageHandler+          GHCJS.DOM.VTTCue+          GHCJS.DOM.VTTRegion+          GHCJS.DOM.VTTRegionList+          GHCJS.DOM.ValidityState+          GHCJS.DOM.VideoPlaybackQuality+          GHCJS.DOM.VideoStreamTrack+          GHCJS.DOM.VideoTrack+          GHCJS.DOM.VideoTrackList+          GHCJS.DOM.VoidCallback+          GHCJS.DOM.WaveShaperNode+          GHCJS.DOM.WebGL2RenderingContext+          GHCJS.DOM.WebGLActiveInfo+          GHCJS.DOM.WebGLCompressedTextureATC+          GHCJS.DOM.WebGLCompressedTexturePVRTC+          GHCJS.DOM.WebGLCompressedTextureS3TC+          GHCJS.DOM.WebGLContextAttributes+          GHCJS.DOM.WebGLContextEvent+          GHCJS.DOM.WebGLDebugRendererInfo+          GHCJS.DOM.WebGLDebugShaders+          GHCJS.DOM.WebGLDepthTexture+          GHCJS.DOM.WebGLDrawBuffers+          GHCJS.DOM.WebGLLoseContext+          GHCJS.DOM.WebGLRenderingContextBase+          GHCJS.DOM.WebGLShaderPrecisionFormat+          GHCJS.DOM.WebKitAnimationEvent+          GHCJS.DOM.WebKitCSSFilterValue+          GHCJS.DOM.WebKitCSSMatrix+          GHCJS.DOM.WebKitCSSRegionRule+          GHCJS.DOM.WebKitCSSTransformValue+          GHCJS.DOM.WebKitCSSViewportRule+          GHCJS.DOM.WebKitNamedFlow+          GHCJS.DOM.WebKitNamespace+          GHCJS.DOM.WebKitPlaybackTargetAvailabilityEvent+          GHCJS.DOM.WebKitPoint+          GHCJS.DOM.WebKitTransitionEvent+          GHCJS.DOM.WebSocket+          GHCJS.DOM.WheelEvent+          GHCJS.DOM.WindowBase64+          GHCJS.DOM.WindowTimers+          GHCJS.DOM.Worker+          GHCJS.DOM.WorkerGlobalScope+          GHCJS.DOM.WorkerLocation+          GHCJS.DOM.WorkerNavigator+          GHCJS.DOM.XMLHttpRequest+          GHCJS.DOM.XMLHttpRequestProgressEvent+          GHCJS.DOM.XMLHttpRequestUpload+          GHCJS.DOM.XMLSerializer+          GHCJS.DOM.XPathEvaluator+          GHCJS.DOM.XPathExpression+          GHCJS.DOM.XPathNSResolver+          GHCJS.DOM.XPathResult+          GHCJS.DOM.XSLTProcessor++    if impl(ghcjs) && flag(jsffi)+        cpp-options: -DUSE_JAVASCRIPTFFI+        build-depends: ghcjs-base >=0.2.0.0 && <0.3, ghcjs-prim, ghc-prim+        exposed-modules:+          GHCJS.DOM.JSFFI.AudioContext+          GHCJS.DOM.JSFFI.Database+          GHCJS.DOM.JSFFI.DOMError+          GHCJS.DOM.JSFFI.Geolocation+          GHCJS.DOM.JSFFI.MediaStreamTrack+          GHCJS.DOM.JSFFI.Navigator+          GHCJS.DOM.JSFFI.NavigatorUserMediaError+          GHCJS.DOM.JSFFI.PositionError+          GHCJS.DOM.JSFFI.RTCPeerConnection+          GHCJS.DOM.JSFFI.RTCPeerConnectionError+          GHCJS.DOM.JSFFI.SQLError+          GHCJS.DOM.JSFFI.SQLTransaction+          GHCJS.DOM.JSFFI.Window+          GHCJS.DOM.JSFFI.XMLHttpRequest++          GHCJS.DOM.JSFFI.Generated.ANGLEInstancedArrays+          GHCJS.DOM.JSFFI.Generated.AbstractView+          GHCJS.DOM.JSFFI.Generated.AbstractWorker+          GHCJS.DOM.JSFFI.Generated.AllAudioCapabilities+          GHCJS.DOM.JSFFI.Generated.AllVideoCapabilities+          GHCJS.DOM.JSFFI.Generated.AnalyserNode+          GHCJS.DOM.JSFFI.Generated.AnimationEvent+          GHCJS.DOM.JSFFI.Generated.Attr+          GHCJS.DOM.JSFFI.Generated.AudioBuffer+          GHCJS.DOM.JSFFI.Generated.AudioBufferCallback+          GHCJS.DOM.JSFFI.Generated.AudioBufferSourceNode+          GHCJS.DOM.JSFFI.Generated.AudioContext+          GHCJS.DOM.JSFFI.Generated.AudioDestinationNode+          GHCJS.DOM.JSFFI.Generated.AudioListener+          GHCJS.DOM.JSFFI.Generated.AudioNode+          GHCJS.DOM.JSFFI.Generated.AudioParam+          GHCJS.DOM.JSFFI.Generated.AudioProcessingEvent+          GHCJS.DOM.JSFFI.Generated.AudioStreamTrack+          GHCJS.DOM.JSFFI.Generated.AudioTrack+          GHCJS.DOM.JSFFI.Generated.AudioTrackList+          GHCJS.DOM.JSFFI.Generated.AutocompleteErrorEvent+          GHCJS.DOM.JSFFI.Generated.BarProp+          GHCJS.DOM.JSFFI.Generated.BatteryManager+          GHCJS.DOM.JSFFI.Generated.BeforeLoadEvent+          GHCJS.DOM.JSFFI.Generated.BeforeUnloadEvent+          GHCJS.DOM.JSFFI.Generated.BiquadFilterNode+          GHCJS.DOM.JSFFI.Generated.Blob+          GHCJS.DOM.JSFFI.Generated.CSSCharsetRule+          GHCJS.DOM.JSFFI.Generated.CSSFontFaceLoadEvent+          GHCJS.DOM.JSFFI.Generated.CSSFontFaceRule+          GHCJS.DOM.JSFFI.Generated.CSSImportRule+          GHCJS.DOM.JSFFI.Generated.CSSKeyframeRule+          GHCJS.DOM.JSFFI.Generated.CSSKeyframesRule+          GHCJS.DOM.JSFFI.Generated.CSSMediaRule+          GHCJS.DOM.JSFFI.Generated.CSSPageRule+          GHCJS.DOM.JSFFI.Generated.CSSPrimitiveValue+          GHCJS.DOM.JSFFI.Generated.CSSRule+          GHCJS.DOM.JSFFI.Generated.CSSRuleList+          GHCJS.DOM.JSFFI.Generated.CSSStyleDeclaration+          GHCJS.DOM.JSFFI.Generated.CSSStyleRule+          GHCJS.DOM.JSFFI.Generated.CSSStyleSheet+          GHCJS.DOM.JSFFI.Generated.CSSSupportsRule+          GHCJS.DOM.JSFFI.Generated.CSSValue+          GHCJS.DOM.JSFFI.Generated.CSSValueList+          GHCJS.DOM.JSFFI.Generated.CanvasGradient+          GHCJS.DOM.JSFFI.Generated.CanvasRenderingContext+          GHCJS.DOM.JSFFI.Generated.CanvasRenderingContext2D+          GHCJS.DOM.JSFFI.Generated.CapabilityRange+          GHCJS.DOM.JSFFI.Generated.CharacterData+          GHCJS.DOM.JSFFI.Generated.ChildNode+          GHCJS.DOM.JSFFI.Generated.ClientRect+          GHCJS.DOM.JSFFI.Generated.ClientRectList+          GHCJS.DOM.JSFFI.Generated.CloseEvent+          GHCJS.DOM.JSFFI.Generated.CommandLineAPIHost+          GHCJS.DOM.JSFFI.Generated.Comment+          GHCJS.DOM.JSFFI.Generated.CompositionEvent+          GHCJS.DOM.JSFFI.Generated.ConvolverNode+          GHCJS.DOM.JSFFI.Generated.Coordinates+          GHCJS.DOM.JSFFI.Generated.Counter+          GHCJS.DOM.JSFFI.Generated.Crypto+          GHCJS.DOM.JSFFI.Generated.CryptoKey+          GHCJS.DOM.JSFFI.Generated.CryptoKeyPair+          GHCJS.DOM.JSFFI.Generated.CustomEvent+          GHCJS.DOM.JSFFI.Generated.ApplicationCache+          GHCJS.DOM.JSFFI.Generated.DOMError+          GHCJS.DOM.JSFFI.Generated.FormData+          GHCJS.DOM.JSFFI.Generated.DOMImplementation+          GHCJS.DOM.JSFFI.Generated.MimeType+          GHCJS.DOM.JSFFI.Generated.MimeTypeArray+          GHCJS.DOM.JSFFI.Generated.DOMNamedFlowCollection+          GHCJS.DOM.JSFFI.Generated.DOMParser+          GHCJS.DOM.JSFFI.Generated.Path2D+          GHCJS.DOM.JSFFI.Generated.Plugin+          GHCJS.DOM.JSFFI.Generated.PluginArray+          GHCJS.DOM.JSFFI.Generated.SecurityPolicy+          GHCJS.DOM.JSFFI.Generated.Selection+          GHCJS.DOM.JSFFI.Generated.DOMSettableTokenList+          GHCJS.DOM.JSFFI.Generated.DOMStringList+          GHCJS.DOM.JSFFI.Generated.DOMTokenList+          GHCJS.DOM.JSFFI.Generated.URL+          GHCJS.DOM.JSFFI.Generated.Window+          GHCJS.DOM.JSFFI.Generated.CSS+          GHCJS.DOM.JSFFI.Generated.DataCue+          GHCJS.DOM.JSFFI.Generated.DataTransfer+          GHCJS.DOM.JSFFI.Generated.DataTransferItem+          GHCJS.DOM.JSFFI.Generated.DataTransferItemList+          GHCJS.DOM.JSFFI.Generated.Database+          GHCJS.DOM.JSFFI.Generated.DatabaseCallback+          GHCJS.DOM.JSFFI.Generated.DedicatedWorkerGlobalScope+          GHCJS.DOM.JSFFI.Generated.DelayNode+          GHCJS.DOM.JSFFI.Generated.DeviceMotionEvent+          GHCJS.DOM.JSFFI.Generated.DeviceOrientationEvent+          GHCJS.DOM.JSFFI.Generated.DeviceProximityEvent+          GHCJS.DOM.JSFFI.Generated.Document+          GHCJS.DOM.JSFFI.Generated.DocumentFragment+          GHCJS.DOM.JSFFI.Generated.DocumentType+          GHCJS.DOM.JSFFI.Generated.DynamicsCompressorNode+          GHCJS.DOM.JSFFI.Generated.EXTBlendMinMax+          GHCJS.DOM.JSFFI.Generated.EXTsRGB+          GHCJS.DOM.JSFFI.Generated.EXTTextureFilterAnisotropic+          GHCJS.DOM.JSFFI.Generated.Element+          GHCJS.DOM.JSFFI.Generated.Entity+          GHCJS.DOM.JSFFI.Generated.Enums+          GHCJS.DOM.JSFFI.Generated.ErrorEvent+          GHCJS.DOM.JSFFI.Generated.Event+          GHCJS.DOM.JSFFI.Generated.EventListener+          GHCJS.DOM.JSFFI.Generated.EventSource+          GHCJS.DOM.JSFFI.Generated.EventTarget+          GHCJS.DOM.JSFFI.Generated.File+          GHCJS.DOM.JSFFI.Generated.FileError+          GHCJS.DOM.JSFFI.Generated.FileList+          GHCJS.DOM.JSFFI.Generated.FileReader+          GHCJS.DOM.JSFFI.Generated.FileReaderSync+          GHCJS.DOM.JSFFI.Generated.FocusEvent+          GHCJS.DOM.JSFFI.Generated.FontLoader+          GHCJS.DOM.JSFFI.Generated.GainNode+          GHCJS.DOM.JSFFI.Generated.Gamepad+          GHCJS.DOM.JSFFI.Generated.GamepadButton+          GHCJS.DOM.JSFFI.Generated.GamepadEvent+          GHCJS.DOM.JSFFI.Generated.Geolocation+          GHCJS.DOM.JSFFI.Generated.Geoposition+          GHCJS.DOM.JSFFI.Generated.HTMLAllCollection+          GHCJS.DOM.JSFFI.Generated.HTMLAnchorElement+          GHCJS.DOM.JSFFI.Generated.HTMLAppletElement+          GHCJS.DOM.JSFFI.Generated.HTMLAreaElement+          GHCJS.DOM.JSFFI.Generated.HTMLBRElement+          GHCJS.DOM.JSFFI.Generated.HTMLBaseElement+          GHCJS.DOM.JSFFI.Generated.HTMLBaseFontElement+          GHCJS.DOM.JSFFI.Generated.HTMLBodyElement+          GHCJS.DOM.JSFFI.Generated.HTMLButtonElement+          GHCJS.DOM.JSFFI.Generated.HTMLCanvasElement+          GHCJS.DOM.JSFFI.Generated.HTMLCollection+          GHCJS.DOM.JSFFI.Generated.HTMLDListElement+          GHCJS.DOM.JSFFI.Generated.HTMLDataListElement+          GHCJS.DOM.JSFFI.Generated.HTMLDetailsElement+          GHCJS.DOM.JSFFI.Generated.HTMLDirectoryElement+          GHCJS.DOM.JSFFI.Generated.HTMLDivElement+          GHCJS.DOM.JSFFI.Generated.HTMLDocument+          GHCJS.DOM.JSFFI.Generated.HTMLElement+          GHCJS.DOM.JSFFI.Generated.HTMLEmbedElement+          GHCJS.DOM.JSFFI.Generated.HTMLFieldSetElement+          GHCJS.DOM.JSFFI.Generated.HTMLFontElement+          GHCJS.DOM.JSFFI.Generated.HTMLFormControlsCollection+          GHCJS.DOM.JSFFI.Generated.HTMLFormElement+          GHCJS.DOM.JSFFI.Generated.HTMLFrameElement+          GHCJS.DOM.JSFFI.Generated.HTMLFrameSetElement+          GHCJS.DOM.JSFFI.Generated.HTMLHRElement+          GHCJS.DOM.JSFFI.Generated.HTMLHeadElement+          GHCJS.DOM.JSFFI.Generated.HTMLHeadingElement+          GHCJS.DOM.JSFFI.Generated.HTMLHtmlElement+          GHCJS.DOM.JSFFI.Generated.HTMLIFrameElement+          GHCJS.DOM.JSFFI.Generated.HTMLImageElement+          GHCJS.DOM.JSFFI.Generated.HTMLInputElement+          GHCJS.DOM.JSFFI.Generated.HTMLKeygenElement+          GHCJS.DOM.JSFFI.Generated.HTMLLIElement+          GHCJS.DOM.JSFFI.Generated.HTMLLabelElement+          GHCJS.DOM.JSFFI.Generated.HTMLLegendElement+          GHCJS.DOM.JSFFI.Generated.HTMLLinkElement+          GHCJS.DOM.JSFFI.Generated.HTMLMapElement+          GHCJS.DOM.JSFFI.Generated.HTMLMarqueeElement+          GHCJS.DOM.JSFFI.Generated.HTMLMediaElement+          GHCJS.DOM.JSFFI.Generated.HTMLMenuElement+          GHCJS.DOM.JSFFI.Generated.HTMLMetaElement+          GHCJS.DOM.JSFFI.Generated.HTMLMeterElement+          GHCJS.DOM.JSFFI.Generated.HTMLModElement+          GHCJS.DOM.JSFFI.Generated.HTMLOListElement+          GHCJS.DOM.JSFFI.Generated.HTMLObjectElement+          GHCJS.DOM.JSFFI.Generated.HTMLOptGroupElement+          GHCJS.DOM.JSFFI.Generated.HTMLOptionElement+          GHCJS.DOM.JSFFI.Generated.HTMLOptionsCollection+          GHCJS.DOM.JSFFI.Generated.HTMLOutputElement+          GHCJS.DOM.JSFFI.Generated.HTMLParagraphElement+          GHCJS.DOM.JSFFI.Generated.HTMLParamElement+          GHCJS.DOM.JSFFI.Generated.HTMLPreElement+          GHCJS.DOM.JSFFI.Generated.HTMLProgressElement+          GHCJS.DOM.JSFFI.Generated.HTMLQuoteElement+          GHCJS.DOM.JSFFI.Generated.HTMLScriptElement+          GHCJS.DOM.JSFFI.Generated.HTMLSelectElement+          GHCJS.DOM.JSFFI.Generated.HTMLSourceElement+          GHCJS.DOM.JSFFI.Generated.HTMLStyleElement+          GHCJS.DOM.JSFFI.Generated.HTMLTableCaptionElement+          GHCJS.DOM.JSFFI.Generated.HTMLTableCellElement+          GHCJS.DOM.JSFFI.Generated.HTMLTableColElement+          GHCJS.DOM.JSFFI.Generated.HTMLTableElement+          GHCJS.DOM.JSFFI.Generated.HTMLTableRowElement+          GHCJS.DOM.JSFFI.Generated.HTMLTableSectionElement+          GHCJS.DOM.JSFFI.Generated.HTMLTemplateElement+          GHCJS.DOM.JSFFI.Generated.HTMLTextAreaElement+          GHCJS.DOM.JSFFI.Generated.HTMLTitleElement+          GHCJS.DOM.JSFFI.Generated.HTMLTrackElement+          GHCJS.DOM.JSFFI.Generated.HTMLUListElement+          GHCJS.DOM.JSFFI.Generated.HTMLVideoElement+          GHCJS.DOM.JSFFI.Generated.HashChangeEvent+          GHCJS.DOM.JSFFI.Generated.History+          GHCJS.DOM.JSFFI.Generated.IDBCursor+          GHCJS.DOM.JSFFI.Generated.IDBCursorWithValue+          GHCJS.DOM.JSFFI.Generated.IDBDatabase+          GHCJS.DOM.JSFFI.Generated.IDBFactory+          GHCJS.DOM.JSFFI.Generated.IDBIndex+          GHCJS.DOM.JSFFI.Generated.IDBKeyRange+          GHCJS.DOM.JSFFI.Generated.IDBObjectStore+          GHCJS.DOM.JSFFI.Generated.IDBOpenDBRequest+          GHCJS.DOM.JSFFI.Generated.IDBRequest+          GHCJS.DOM.JSFFI.Generated.IDBTransaction+          GHCJS.DOM.JSFFI.Generated.IDBVersionChangeEvent+          GHCJS.DOM.JSFFI.Generated.ImageData+          GHCJS.DOM.JSFFI.Generated.InspectorFrontendHost+          GHCJS.DOM.JSFFI.Generated.InternalSettings+          GHCJS.DOM.JSFFI.Generated.Internals+          GHCJS.DOM.JSFFI.Generated.KeyboardEvent+          GHCJS.DOM.JSFFI.Generated.Location+          GHCJS.DOM.JSFFI.Generated.MallocStatistics+          GHCJS.DOM.JSFFI.Generated.MediaController+          GHCJS.DOM.JSFFI.Generated.MediaControlsHost+          GHCJS.DOM.JSFFI.Generated.MediaElementAudioSourceNode+          GHCJS.DOM.JSFFI.Generated.MediaError+          GHCJS.DOM.JSFFI.Generated.MediaKeyError+          GHCJS.DOM.JSFFI.Generated.MediaKeyEvent+          GHCJS.DOM.JSFFI.Generated.MediaKeyMessageEvent+          GHCJS.DOM.JSFFI.Generated.MediaKeyNeededEvent+          GHCJS.DOM.JSFFI.Generated.MediaKeySession+          GHCJS.DOM.JSFFI.Generated.MediaKeys+          GHCJS.DOM.JSFFI.Generated.MediaList+          GHCJS.DOM.JSFFI.Generated.MediaQueryList+          GHCJS.DOM.JSFFI.Generated.MediaQueryListListener+          GHCJS.DOM.JSFFI.Generated.MediaSource+          GHCJS.DOM.JSFFI.Generated.MediaSourceStates+          GHCJS.DOM.JSFFI.Generated.MediaStream+          GHCJS.DOM.JSFFI.Generated.MediaStreamAudioDestinationNode+          GHCJS.DOM.JSFFI.Generated.MediaStreamAudioSourceNode+          GHCJS.DOM.JSFFI.Generated.MediaStreamEvent+          GHCJS.DOM.JSFFI.Generated.MediaStreamTrack+          GHCJS.DOM.JSFFI.Generated.MediaStreamTrackEvent+          GHCJS.DOM.JSFFI.Generated.MediaStreamTrackSourcesCallback+          GHCJS.DOM.JSFFI.Generated.MediaTrackConstraints+          GHCJS.DOM.JSFFI.Generated.MemoryInfo+          GHCJS.DOM.JSFFI.Generated.MessageChannel+          GHCJS.DOM.JSFFI.Generated.MessageEvent+          GHCJS.DOM.JSFFI.Generated.MessagePort+          GHCJS.DOM.JSFFI.Generated.MouseEvent+          GHCJS.DOM.JSFFI.Generated.MutationEvent+          GHCJS.DOM.JSFFI.Generated.MutationObserver+          GHCJS.DOM.JSFFI.Generated.MutationRecord+          GHCJS.DOM.JSFFI.Generated.NamedNodeMap+          GHCJS.DOM.JSFFI.Generated.Navigator+          GHCJS.DOM.JSFFI.Generated.NavigatorUserMediaError+          GHCJS.DOM.JSFFI.Generated.NavigatorUserMediaErrorCallback+          GHCJS.DOM.JSFFI.Generated.NavigatorUserMediaSuccessCallback+          GHCJS.DOM.JSFFI.Generated.Node+          GHCJS.DOM.JSFFI.Generated.NodeFilter+          GHCJS.DOM.JSFFI.Generated.NodeIterator+          GHCJS.DOM.JSFFI.Generated.NodeList+          GHCJS.DOM.JSFFI.Generated.Notification+          GHCJS.DOM.JSFFI.Generated.NotificationCenter+          GHCJS.DOM.JSFFI.Generated.NotificationPermissionCallback+          GHCJS.DOM.JSFFI.Generated.OESStandardDerivatives+          GHCJS.DOM.JSFFI.Generated.OESTextureHalfFloat+          GHCJS.DOM.JSFFI.Generated.OESVertexArrayObject+          GHCJS.DOM.JSFFI.Generated.OfflineAudioCompletionEvent+          GHCJS.DOM.JSFFI.Generated.OfflineAudioContext+          GHCJS.DOM.JSFFI.Generated.OscillatorNode+          GHCJS.DOM.JSFFI.Generated.OverflowEvent+          GHCJS.DOM.JSFFI.Generated.PageTransitionEvent+          GHCJS.DOM.JSFFI.Generated.PannerNode+          GHCJS.DOM.JSFFI.Generated.Performance+          GHCJS.DOM.JSFFI.Generated.PerformanceEntry+          GHCJS.DOM.JSFFI.Generated.PerformanceEntryList+          GHCJS.DOM.JSFFI.Generated.PerformanceNavigation+          GHCJS.DOM.JSFFI.Generated.PerformanceResourceTiming+          GHCJS.DOM.JSFFI.Generated.PerformanceTiming+          GHCJS.DOM.JSFFI.Generated.PopStateEvent+          GHCJS.DOM.JSFFI.Generated.PositionCallback+          GHCJS.DOM.JSFFI.Generated.PositionError+          GHCJS.DOM.JSFFI.Generated.PositionErrorCallback+          GHCJS.DOM.JSFFI.Generated.ProcessingInstruction+          GHCJS.DOM.JSFFI.Generated.ProgressEvent+          GHCJS.DOM.JSFFI.Generated.QuickTimePluginReplacement+          GHCJS.DOM.JSFFI.Generated.RGBColor+          GHCJS.DOM.JSFFI.Generated.RTCConfiguration+          GHCJS.DOM.JSFFI.Generated.RTCDTMFSender+          GHCJS.DOM.JSFFI.Generated.RTCDTMFToneChangeEvent+          GHCJS.DOM.JSFFI.Generated.RTCDataChannel+          GHCJS.DOM.JSFFI.Generated.RTCDataChannelEvent+          GHCJS.DOM.JSFFI.Generated.RTCIceCandidate+          GHCJS.DOM.JSFFI.Generated.RTCIceCandidateEvent+          GHCJS.DOM.JSFFI.Generated.RTCIceServer+          GHCJS.DOM.JSFFI.Generated.RTCPeerConnection+          GHCJS.DOM.JSFFI.Generated.RTCPeerConnectionErrorCallback+          GHCJS.DOM.JSFFI.Generated.RTCSessionDescription+          GHCJS.DOM.JSFFI.Generated.RTCSessionDescriptionCallback+          GHCJS.DOM.JSFFI.Generated.RTCStatsCallback+          GHCJS.DOM.JSFFI.Generated.RTCStatsReport+          GHCJS.DOM.JSFFI.Generated.RTCStatsResponse+          GHCJS.DOM.JSFFI.Generated.RadioNodeList+          GHCJS.DOM.JSFFI.Generated.Range+          GHCJS.DOM.JSFFI.Generated.ReadableStream+          GHCJS.DOM.JSFFI.Generated.Rect+          GHCJS.DOM.JSFFI.Generated.RequestAnimationFrameCallback+          GHCJS.DOM.JSFFI.Generated.SQLError+          GHCJS.DOM.JSFFI.Generated.SQLResultSet+          GHCJS.DOM.JSFFI.Generated.SQLResultSetRowList+          GHCJS.DOM.JSFFI.Generated.SQLStatementCallback+          GHCJS.DOM.JSFFI.Generated.SQLStatementErrorCallback+          GHCJS.DOM.JSFFI.Generated.SQLTransaction+          GHCJS.DOM.JSFFI.Generated.SQLTransactionCallback+          GHCJS.DOM.JSFFI.Generated.SQLTransactionErrorCallback+          GHCJS.DOM.JSFFI.Generated.SVGAElement+          GHCJS.DOM.JSFFI.Generated.SVGAltGlyphElement+          GHCJS.DOM.JSFFI.Generated.SVGAngle+          GHCJS.DOM.JSFFI.Generated.SVGAnimatedAngle+          GHCJS.DOM.JSFFI.Generated.SVGAnimatedBoolean+          GHCJS.DOM.JSFFI.Generated.SVGAnimatedEnumeration+          GHCJS.DOM.JSFFI.Generated.SVGAnimatedInteger+          GHCJS.DOM.JSFFI.Generated.SVGAnimatedLength+          GHCJS.DOM.JSFFI.Generated.SVGAnimatedLengthList+          GHCJS.DOM.JSFFI.Generated.SVGAnimatedNumber+          GHCJS.DOM.JSFFI.Generated.SVGAnimatedNumberList+          GHCJS.DOM.JSFFI.Generated.SVGAnimatedPreserveAspectRatio+          GHCJS.DOM.JSFFI.Generated.SVGAnimatedRect+          GHCJS.DOM.JSFFI.Generated.SVGAnimatedString+          GHCJS.DOM.JSFFI.Generated.SVGAnimatedTransformList+          GHCJS.DOM.JSFFI.Generated.SVGAnimationElement+          GHCJS.DOM.JSFFI.Generated.SVGCircleElement+          GHCJS.DOM.JSFFI.Generated.SVGClipPathElement+          GHCJS.DOM.JSFFI.Generated.SVGColor+          GHCJS.DOM.JSFFI.Generated.SVGComponentTransferFunctionElement+          GHCJS.DOM.JSFFI.Generated.SVGCursorElement+          GHCJS.DOM.JSFFI.Generated.SVGDocument+          GHCJS.DOM.JSFFI.Generated.SVGElement+          GHCJS.DOM.JSFFI.Generated.SVGEllipseElement+          GHCJS.DOM.JSFFI.Generated.SVGExternalResourcesRequired+          GHCJS.DOM.JSFFI.Generated.SVGFEBlendElement+          GHCJS.DOM.JSFFI.Generated.SVGFEColorMatrixElement+          GHCJS.DOM.JSFFI.Generated.SVGFEComponentTransferElement+          GHCJS.DOM.JSFFI.Generated.SVGFECompositeElement+          GHCJS.DOM.JSFFI.Generated.SVGFEConvolveMatrixElement+          GHCJS.DOM.JSFFI.Generated.SVGFEDiffuseLightingElement+          GHCJS.DOM.JSFFI.Generated.SVGFEDisplacementMapElement+          GHCJS.DOM.JSFFI.Generated.SVGFEDistantLightElement+          GHCJS.DOM.JSFFI.Generated.SVGFEDropShadowElement+          GHCJS.DOM.JSFFI.Generated.SVGFEGaussianBlurElement+          GHCJS.DOM.JSFFI.Generated.SVGFEImageElement+          GHCJS.DOM.JSFFI.Generated.SVGFEMergeNodeElement+          GHCJS.DOM.JSFFI.Generated.SVGFEMorphologyElement+          GHCJS.DOM.JSFFI.Generated.SVGFEOffsetElement+          GHCJS.DOM.JSFFI.Generated.SVGFEPointLightElement+          GHCJS.DOM.JSFFI.Generated.SVGFESpecularLightingElement+          GHCJS.DOM.JSFFI.Generated.SVGFESpotLightElement+          GHCJS.DOM.JSFFI.Generated.SVGFETileElement+          GHCJS.DOM.JSFFI.Generated.SVGFETurbulenceElement+          GHCJS.DOM.JSFFI.Generated.SVGFilterElement+          GHCJS.DOM.JSFFI.Generated.SVGFilterPrimitiveStandardAttributes+          GHCJS.DOM.JSFFI.Generated.SVGFitToViewBox+          GHCJS.DOM.JSFFI.Generated.SVGForeignObjectElement+          GHCJS.DOM.JSFFI.Generated.SVGGlyphRefElement+          GHCJS.DOM.JSFFI.Generated.SVGGradientElement+          GHCJS.DOM.JSFFI.Generated.SVGGraphicsElement+          GHCJS.DOM.JSFFI.Generated.SVGImageElement+          GHCJS.DOM.JSFFI.Generated.SVGLength+          GHCJS.DOM.JSFFI.Generated.SVGLengthList+          GHCJS.DOM.JSFFI.Generated.SVGLineElement+          GHCJS.DOM.JSFFI.Generated.SVGLinearGradientElement+          GHCJS.DOM.JSFFI.Generated.SVGMarkerElement+          GHCJS.DOM.JSFFI.Generated.SVGMaskElement+          GHCJS.DOM.JSFFI.Generated.SVGMatrix+          GHCJS.DOM.JSFFI.Generated.SVGNumber+          GHCJS.DOM.JSFFI.Generated.SVGNumberList+          GHCJS.DOM.JSFFI.Generated.SVGPaint+          GHCJS.DOM.JSFFI.Generated.SVGPathElement+          GHCJS.DOM.JSFFI.Generated.SVGPathSeg+          GHCJS.DOM.JSFFI.Generated.SVGPathSegArcAbs+          GHCJS.DOM.JSFFI.Generated.SVGPathSegArcRel+          GHCJS.DOM.JSFFI.Generated.SVGPathSegCurvetoCubicAbs+          GHCJS.DOM.JSFFI.Generated.SVGPathSegCurvetoCubicRel+          GHCJS.DOM.JSFFI.Generated.SVGPathSegCurvetoCubicSmoothAbs+          GHCJS.DOM.JSFFI.Generated.SVGPathSegCurvetoCubicSmoothRel+          GHCJS.DOM.JSFFI.Generated.SVGPathSegCurvetoQuadraticAbs+          GHCJS.DOM.JSFFI.Generated.SVGPathSegCurvetoQuadraticRel+          GHCJS.DOM.JSFFI.Generated.SVGPathSegCurvetoQuadraticSmoothAbs+          GHCJS.DOM.JSFFI.Generated.SVGPathSegCurvetoQuadraticSmoothRel+          GHCJS.DOM.JSFFI.Generated.SVGPathSegLinetoAbs+          GHCJS.DOM.JSFFI.Generated.SVGPathSegLinetoHorizontalAbs+          GHCJS.DOM.JSFFI.Generated.SVGPathSegLinetoHorizontalRel+          GHCJS.DOM.JSFFI.Generated.SVGPathSegLinetoRel+          GHCJS.DOM.JSFFI.Generated.SVGPathSegLinetoVerticalAbs+          GHCJS.DOM.JSFFI.Generated.SVGPathSegLinetoVerticalRel+          GHCJS.DOM.JSFFI.Generated.SVGPathSegList+          GHCJS.DOM.JSFFI.Generated.SVGPathSegMovetoAbs+          GHCJS.DOM.JSFFI.Generated.SVGPathSegMovetoRel+          GHCJS.DOM.JSFFI.Generated.SVGPatternElement+          GHCJS.DOM.JSFFI.Generated.SVGPoint+          GHCJS.DOM.JSFFI.Generated.SVGPointList+          GHCJS.DOM.JSFFI.Generated.SVGPolygonElement+          GHCJS.DOM.JSFFI.Generated.SVGPolylineElement+          GHCJS.DOM.JSFFI.Generated.SVGPreserveAspectRatio+          GHCJS.DOM.JSFFI.Generated.SVGRadialGradientElement+          GHCJS.DOM.JSFFI.Generated.SVGRect+          GHCJS.DOM.JSFFI.Generated.SVGRectElement+          GHCJS.DOM.JSFFI.Generated.SVGRenderingIntent+          GHCJS.DOM.JSFFI.Generated.SVGScriptElement+          GHCJS.DOM.JSFFI.Generated.SVGSVGElement+          GHCJS.DOM.JSFFI.Generated.SVGStopElement+          GHCJS.DOM.JSFFI.Generated.SVGStringList+          GHCJS.DOM.JSFFI.Generated.SVGStyleElement+          GHCJS.DOM.JSFFI.Generated.SVGTests+          GHCJS.DOM.JSFFI.Generated.SVGTextContentElement+          GHCJS.DOM.JSFFI.Generated.SVGTextPathElement+          GHCJS.DOM.JSFFI.Generated.SVGTextPositioningElement+          GHCJS.DOM.JSFFI.Generated.SVGTransform+          GHCJS.DOM.JSFFI.Generated.SVGTransformList+          GHCJS.DOM.JSFFI.Generated.SVGURIReference+          GHCJS.DOM.JSFFI.Generated.SVGUnitTypes+          GHCJS.DOM.JSFFI.Generated.SVGUseElement+          GHCJS.DOM.JSFFI.Generated.SVGViewElement+          GHCJS.DOM.JSFFI.Generated.SVGViewSpec+          GHCJS.DOM.JSFFI.Generated.SVGZoomAndPan+          GHCJS.DOM.JSFFI.Generated.SVGZoomEvent+          GHCJS.DOM.JSFFI.Generated.Screen+          GHCJS.DOM.JSFFI.Generated.ScriptProcessorNode+          GHCJS.DOM.JSFFI.Generated.ScriptProfile+          GHCJS.DOM.JSFFI.Generated.ScriptProfileNode+          GHCJS.DOM.JSFFI.Generated.SecurityPolicyViolationEvent+          GHCJS.DOM.JSFFI.Generated.SourceBuffer+          GHCJS.DOM.JSFFI.Generated.SourceBufferList+          GHCJS.DOM.JSFFI.Generated.SourceInfo+          GHCJS.DOM.JSFFI.Generated.SpeechSynthesis+          GHCJS.DOM.JSFFI.Generated.SpeechSynthesisEvent+          GHCJS.DOM.JSFFI.Generated.SpeechSynthesisUtterance+          GHCJS.DOM.JSFFI.Generated.SpeechSynthesisVoice+          GHCJS.DOM.JSFFI.Generated.Storage+          GHCJS.DOM.JSFFI.Generated.StorageErrorCallback+          GHCJS.DOM.JSFFI.Generated.StorageEvent+          GHCJS.DOM.JSFFI.Generated.StorageInfo+          GHCJS.DOM.JSFFI.Generated.StorageQuota+          GHCJS.DOM.JSFFI.Generated.StorageQuotaCallback+          GHCJS.DOM.JSFFI.Generated.StorageUsageCallback+          GHCJS.DOM.JSFFI.Generated.StringCallback+          GHCJS.DOM.JSFFI.Generated.StyleMedia+          GHCJS.DOM.JSFFI.Generated.StyleSheet+          GHCJS.DOM.JSFFI.Generated.StyleSheetList+          GHCJS.DOM.JSFFI.Generated.SubtleCrypto+          GHCJS.DOM.JSFFI.Generated.Text+          GHCJS.DOM.JSFFI.Generated.TextEvent+          GHCJS.DOM.JSFFI.Generated.TextMetrics+          GHCJS.DOM.JSFFI.Generated.TextTrack+          GHCJS.DOM.JSFFI.Generated.TextTrackCue+          GHCJS.DOM.JSFFI.Generated.TextTrackCueList+          GHCJS.DOM.JSFFI.Generated.TextTrackList+          GHCJS.DOM.JSFFI.Generated.TimeRanges+          GHCJS.DOM.JSFFI.Generated.Touch+          GHCJS.DOM.JSFFI.Generated.TouchEvent+          GHCJS.DOM.JSFFI.Generated.TouchList+          GHCJS.DOM.JSFFI.Generated.TrackEvent+          GHCJS.DOM.JSFFI.Generated.TransitionEvent+          GHCJS.DOM.JSFFI.Generated.TreeWalker+          GHCJS.DOM.JSFFI.Generated.TypeConversions+          GHCJS.DOM.JSFFI.Generated.UIEvent+          GHCJS.DOM.JSFFI.Generated.UIRequestEvent+          GHCJS.DOM.JSFFI.Generated.URLUtils+          GHCJS.DOM.JSFFI.Generated.UserMessageHandler+          GHCJS.DOM.JSFFI.Generated.VTTCue+          GHCJS.DOM.JSFFI.Generated.VTTRegion+          GHCJS.DOM.JSFFI.Generated.VTTRegionList+          GHCJS.DOM.JSFFI.Generated.ValidityState+          GHCJS.DOM.JSFFI.Generated.VideoPlaybackQuality+          GHCJS.DOM.JSFFI.Generated.VideoStreamTrack+          GHCJS.DOM.JSFFI.Generated.VideoTrack+          GHCJS.DOM.JSFFI.Generated.VideoTrackList+          GHCJS.DOM.JSFFI.Generated.VoidCallback+          GHCJS.DOM.JSFFI.Generated.WaveShaperNode+          GHCJS.DOM.JSFFI.Generated.WebGL2RenderingContext+          GHCJS.DOM.JSFFI.Generated.WebGLActiveInfo+          GHCJS.DOM.JSFFI.Generated.WebGLCompressedTextureATC+          GHCJS.DOM.JSFFI.Generated.WebGLCompressedTexturePVRTC+          GHCJS.DOM.JSFFI.Generated.WebGLCompressedTextureS3TC+          GHCJS.DOM.JSFFI.Generated.WebGLContextAttributes+          GHCJS.DOM.JSFFI.Generated.WebGLContextEvent+          GHCJS.DOM.JSFFI.Generated.WebGLDebugRendererInfo+          GHCJS.DOM.JSFFI.Generated.WebGLDebugShaders+          GHCJS.DOM.JSFFI.Generated.WebGLDepthTexture+          GHCJS.DOM.JSFFI.Generated.WebGLDrawBuffers+          GHCJS.DOM.JSFFI.Generated.WebGLLoseContext+          GHCJS.DOM.JSFFI.Generated.WebGLRenderingContextBase+          GHCJS.DOM.JSFFI.Generated.WebGLShaderPrecisionFormat+          GHCJS.DOM.JSFFI.Generated.WebKitAnimationEvent+          GHCJS.DOM.JSFFI.Generated.WebKitCSSFilterValue+          GHCJS.DOM.JSFFI.Generated.WebKitCSSMatrix+          GHCJS.DOM.JSFFI.Generated.WebKitCSSRegionRule+          GHCJS.DOM.JSFFI.Generated.WebKitCSSTransformValue+          GHCJS.DOM.JSFFI.Generated.WebKitCSSViewportRule+          GHCJS.DOM.JSFFI.Generated.WebKitNamedFlow+          GHCJS.DOM.JSFFI.Generated.WebKitNamespace+          GHCJS.DOM.JSFFI.Generated.WebKitPlaybackTargetAvailabilityEvent+          GHCJS.DOM.JSFFI.Generated.WebKitPoint+          GHCJS.DOM.JSFFI.Generated.WebKitTransitionEvent+          GHCJS.DOM.JSFFI.Generated.WebSocket+          GHCJS.DOM.JSFFI.Generated.WheelEvent+          GHCJS.DOM.JSFFI.Generated.WindowBase64+          GHCJS.DOM.JSFFI.Generated.WindowTimers+          GHCJS.DOM.JSFFI.Generated.Worker+          GHCJS.DOM.JSFFI.Generated.WorkerGlobalScope+          GHCJS.DOM.JSFFI.Generated.WorkerLocation+          GHCJS.DOM.JSFFI.Generated.WorkerNavigator+          GHCJS.DOM.JSFFI.Generated.XMLHttpRequest+          GHCJS.DOM.JSFFI.Generated.XMLHttpRequestProgressEvent+          GHCJS.DOM.JSFFI.Generated.XMLHttpRequestUpload+          GHCJS.DOM.JSFFI.Generated.XMLSerializer+          GHCJS.DOM.JSFFI.Generated.XPathEvaluator+          GHCJS.DOM.JSFFI.Generated.XPathExpression+          GHCJS.DOM.JSFFI.Generated.XPathNSResolver+          GHCJS.DOM.JSFFI.Generated.XPathResult+          GHCJS.DOM.JSFFI.Generated.XSLTProcessor++    if !impl(ghcjs) || flag(webkit)+        cpp-options: -DUSE_WEBKIT+        build-depends: glib >=0.13.0.0 && <0.14,+                       transformers >=0.3.0.0 && <0.5+        if flag(gtk3)+            build-depends: gtk3 >=0.13.0.0 && <0.15, webkitgtk3 >=0.14.0.0 && <0.15+        else+            build-depends: gtk >=0.13.0.0 && <0.14, webkit >=0.14.0.0 && <0.15+        c-sources:      cbits/ghcjs_stubs.c++    if flag(old-webkit)+        cpp-options: -DUSE_OLD_WEBKIT++    hs-source-dirs: src+    exposed: True+    buildable: True+    js-sources: jsbits/xhr.js
+ jsbits/xhr.js view
@@ -0,0 +1,25 @@+function h$dom$sendXHR(xhr, d, cont) {+    var clear;+    var error = function () {+        clear(); cont(2);+    };+    var abort = function () {+        clear(); cont(1);+    };+    var load = function () {+        clear(); cont(0);+    };+    clear = function () {+        xhr.removeEventListener('error', error);+        xhr.removeEventListener('abort', abort);+        xhr.removeEventListener('load', load);+    }+    xhr.addEventListener('error', error);+    xhr.addEventListener('abort', abort);+    xhr.addEventListener('load', load);+    if(d) {+	xhr.send(d);+    } else {+	xhr.send();+    }+}
src/GHCJS/DOM.hs view
@@ -33,7 +33,7 @@ import System.Glib.Signals (on) import System.Glib.Attributes (get, AttrOp(..), set) import System.Glib.FFI (maybeNull)-import System.Glib.MainLoop (priorityHigh)+import System.Glib.MainLoop (priorityLow) import Graphics.UI.Gtk.WebKit.WebSettings        (webSettingsMonospaceFontFamily, webSettingsUserAgent,         webSettingsEnableDeveloperExtras)@@ -41,8 +41,8 @@ #endif  import GHCJS.DOM.Types-import GHCJS.DOM.DOMWindow (domWindowGetNavigator, domWindowGetDocument)-import GHCJS.DOM.Navigator (navigatorGetUserAgent)+import GHCJS.DOM.Window (getNavigator, getDocument)+import GHCJS.DOM.Navigator (getUserAgent) import Foreign (ForeignPtr, nullPtr, Ptr) import Control.Monad (unless, forever, liftM) import Control.Concurrent@@ -59,32 +59,32 @@  #ifdef ghcjs_HOST_OS foreign import javascript unsafe "$r = window"-  ghcjs_currentWindow :: IO (JSRef DOMWindow)+  ghcjs_currentWindow :: IO (JSRef Window) foreign import javascript unsafe "$r = document"   ghcjs_currentDocument :: IO (JSRef Document) #else-ghcjs_currentWindow :: IO (JSRef DOMWindow)+ghcjs_currentWindow :: IO (JSRef Window) ghcjs_currentWindow = undefined ghcjs_currentDocument :: IO (JSRef Document) ghcjs_currentDocument = undefined #endif -currentWindow :: IO (Maybe DOMWindow)-currentWindow = fmap DOMWindow . maybeJSNull <$> ghcjs_currentWindow+currentWindow :: IO (Maybe Window)+currentWindow = fmap Window . maybeJSNullOrUndefined <$> ghcjs_currentWindow currentDocument :: IO (Maybe Document)-currentDocument = fmap Document . maybeJSNull <$> ghcjs_currentDocument+currentDocument = fmap Document . maybeJSNullOrUndefined <$> ghcjs_currentDocument -type WebView = DOMWindow+type WebView = Window castToWebView = id -webViewGetDomDocument :: IsDOMWindow w => w -> IO (Maybe Document)-webViewGetDomDocument = domWindowGetDocument+webViewGetDomDocument :: Window -> IO (Maybe Document)+webViewGetDomDocument = getDocument #else foreign import ccall safe "ghcjs_currentWindow"-  ghcjs_currentWindow :: IO (Ptr DOMWindow)+  ghcjs_currentWindow :: IO (Ptr Window) -currentWindow :: IO (Maybe DOMWindow)-currentWindow = maybeNull (makeNewGObject mkDOMWindow) ghcjs_currentWindow+currentWindow :: IO (Maybe Window)+currentWindow = maybeNull (makeNewGObject mkWindow) ghcjs_currentWindow  foreign import ccall unsafe "ghcjs_currentDocument"   ghcjs_currentDocument :: IO (Ptr Document)@@ -103,8 +103,8 @@   case mbWindow of     Just window -> do       -- Check if we are running in javascript inside the the native version-      Just n <- domWindowGetNavigator window-      agent <- navigatorGetUserAgent n+      Just n <- getNavigator window+      agent <- getUserAgent n       unless ((" " <> userAgentKey) `T.isSuffixOf` agent) $ main (castToWebView window)     Nothing -> do       makeDefaultWebView userAgentKey main@@ -116,7 +116,7 @@ makeDefaultWebView userAgentKey main = do   initGUI   window <- windowNew-  timeoutAddFull (yield >> return True) priorityHigh 10+  timeoutAddFull (yield >> return True) priorityLow 10   windowSetDefaultSize window 900 600   windowSetPosition window WinPosCenter   scrollWin <- scrolledWindowNew Nothing Nothing
+ src/GHCJS/DOM/ANGLEInstancedArrays.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.ANGLEInstancedArrays (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.ANGLEInstancedArrays+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.ANGLEInstancedArrays+#else+#endif
+ src/GHCJS/DOM/AbstractView.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.AbstractView (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.AbstractView+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.AbstractView+#else+#endif
+ src/GHCJS/DOM/AbstractWorker.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.AbstractWorker (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.AbstractWorker+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.AbstractWorker+#else+#endif
+ src/GHCJS/DOM/AllAudioCapabilities.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.AllAudioCapabilities (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.AllAudioCapabilities+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.AllAudioCapabilities+#else+#endif
+ src/GHCJS/DOM/AllVideoCapabilities.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.AllVideoCapabilities (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.AllVideoCapabilities+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.AllVideoCapabilities+#else+#endif
+ src/GHCJS/DOM/AnalyserNode.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.AnalyserNode (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.AnalyserNode+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.AnalyserNode+#else+#endif
+ src/GHCJS/DOM/AnimationEvent.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.AnimationEvent (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.AnimationEvent+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.AnimationEvent+#else+#endif
+ src/GHCJS/DOM/ApplicationCache.hs view
@@ -0,0 +1,13 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.ApplicationCache (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.ApplicationCache+#else+  module Graphics.UI.Gtk.WebKit.DOM.ApplicationCache+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.ApplicationCache+#else+import Graphics.UI.Gtk.WebKit.DOM.ApplicationCache+#endif
src/GHCJS/DOM/Attr.hs view
@@ -1,77 +1,13 @@ {-# LANGUAGE CPP #-}+module GHCJS.DOM.Attr ( #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.Attr-       (ghcjs_dom_attr_get_name, attrGetName,-        ghcjs_dom_attr_get_specified, attrGetSpecified,-        ghcjs_dom_attr_set_value, attrSetValue, ghcjs_dom_attr_get_value,-        attrGetValue, ghcjs_dom_attr_get_owner_element,-        attrGetOwnerElement, ghcjs_dom_attr_get_is_id, attrGetIsId,-        DOMAttr, IsDOMAttr, castToDOMAttr, gTypeDOMAttr, toDOMAttr)-       where-import GHCJS.Types-import GHCJS.Foreign-import GHCJS.Marshal-import Data.Int-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-- -foreign import javascript unsafe "$1[\"name\"]"-        ghcjs_dom_attr_get_name :: JSRef DOMAttr -> IO JSString- -attrGetName ::-            (IsDOMAttr self, FromJSString result) => self -> IO result-attrGetName self-  = fromJSString <$>-      (ghcjs_dom_attr_get_name (unDOMAttr (toDOMAttr self)))- -foreign import javascript unsafe "($1[\"specified\"] ? 1 : 0)"-        ghcjs_dom_attr_get_specified :: JSRef DOMAttr -> IO Bool- -attrGetSpecified :: (IsDOMAttr self) => self -> IO Bool-attrGetSpecified self-  = ghcjs_dom_attr_get_specified (unDOMAttr (toDOMAttr self))- -foreign import javascript unsafe "$1[\"value\"] = $2;"-        ghcjs_dom_attr_set_value :: JSRef DOMAttr -> JSString -> IO ()- -attrSetValue ::-             (IsDOMAttr self, ToJSString val) => self -> val -> IO ()-attrSetValue self val-  = ghcjs_dom_attr_set_value (unDOMAttr (toDOMAttr self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"value\"]"-        ghcjs_dom_attr_get_value :: JSRef DOMAttr -> IO JSString- -attrGetValue ::-             (IsDOMAttr self, FromJSString result) => self -> IO result-attrGetValue self-  = fromJSString <$>-      (ghcjs_dom_attr_get_value (unDOMAttr (toDOMAttr self)))- -foreign import javascript unsafe "$1[\"ownerElement\"]"-        ghcjs_dom_attr_get_owner_element ::-        JSRef DOMAttr -> IO (JSRef Element)- -attrGetOwnerElement ::-                    (IsDOMAttr self) => self -> IO (Maybe Element)-attrGetOwnerElement self-  = fmap Element . maybeJSNull <$>-      (ghcjs_dom_attr_get_owner_element (unDOMAttr (toDOMAttr self)))- -foreign import javascript unsafe "($1[\"isId\"] ? 1 : 0)"-        ghcjs_dom_attr_get_is_id :: JSRef DOMAttr -> IO Bool- -attrGetIsId :: (IsDOMAttr self) => self -> IO Bool-attrGetIsId self-  = ghcjs_dom_attr_get_is_id (unDOMAttr (toDOMAttr self))+  module GHCJS.DOM.JSFFI.Generated.Attr #else-module GHCJS.DOM.Attr (   module Graphics.UI.Gtk.WebKit.DOM.Attr+#endif   ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.Attr+#else import Graphics.UI.Gtk.WebKit.DOM.Attr #endif
+ src/GHCJS/DOM/AudioBuffer.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.AudioBuffer (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.AudioBuffer+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.AudioBuffer+#else+#endif
+ src/GHCJS/DOM/AudioBufferCallback.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.AudioBufferCallback (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.AudioBufferCallback+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.AudioBufferCallback+#else+#endif
+ src/GHCJS/DOM/AudioBufferSourceNode.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.AudioBufferSourceNode (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.AudioBufferSourceNode+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.AudioBufferSourceNode+#else+#endif
+ src/GHCJS/DOM/AudioContext.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.AudioContext (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.AudioContext+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.AudioContext+#else+#endif
+ src/GHCJS/DOM/AudioDestinationNode.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.AudioDestinationNode (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.AudioDestinationNode+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.AudioDestinationNode+#else+#endif
+ src/GHCJS/DOM/AudioListener.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.AudioListener (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.AudioListener+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.AudioListener+#else+#endif
+ src/GHCJS/DOM/AudioNode.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.AudioNode (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.AudioNode+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.AudioNode+#else+#endif
+ src/GHCJS/DOM/AudioParam.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.AudioParam (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.AudioParam+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.AudioParam+#else+#endif
+ src/GHCJS/DOM/AudioProcessingEvent.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.AudioProcessingEvent (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.AudioProcessingEvent+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.AudioProcessingEvent+#else+#endif
+ src/GHCJS/DOM/AudioStreamTrack.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.AudioStreamTrack (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.AudioStreamTrack+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.AudioStreamTrack+#else+#endif
+ src/GHCJS/DOM/AudioTrack.hs view
@@ -0,0 +1,13 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.AudioTrack (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.AudioTrack+#else+  module Graphics.UI.Gtk.WebKit.DOM.AudioTrack+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.AudioTrack+#else+import Graphics.UI.Gtk.WebKit.DOM.AudioTrack+#endif
+ src/GHCJS/DOM/AudioTrackList.hs view
@@ -0,0 +1,13 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.AudioTrackList (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.AudioTrackList+#else+  module Graphics.UI.Gtk.WebKit.DOM.AudioTrackList+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.AudioTrackList+#else+import Graphics.UI.Gtk.WebKit.DOM.AudioTrackList+#endif
+ src/GHCJS/DOM/AutocompleteErrorEvent.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.AutocompleteErrorEvent (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.AutocompleteErrorEvent+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.AutocompleteErrorEvent+#else+#endif
src/GHCJS/DOM/BarProp.hs view
@@ -1,29 +1,13 @@ {-# LANGUAGE CPP #-}+module GHCJS.DOM.BarProp ( #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.BarProp-       (ghcjs_dom_bar_prop_get_visible, barPropGetVisible, BarProp,-        IsBarProp, castToBarProp, gTypeBarProp, toBarProp)-       where-import GHCJS.Types-import GHCJS.Foreign-import GHCJS.Marshal-import Data.Int-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-- -foreign import javascript unsafe "($1[\"visible\"] ? 1 : 0)"-        ghcjs_dom_bar_prop_get_visible :: JSRef BarProp -> IO Bool- -barPropGetVisible :: (IsBarProp self) => self -> IO Bool-barPropGetVisible self-  = ghcjs_dom_bar_prop_get_visible (unBarProp (toBarProp self))+  module GHCJS.DOM.JSFFI.Generated.BarProp #else-module GHCJS.DOM.BarProp (   module Graphics.UI.Gtk.WebKit.DOM.BarProp+#endif   ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.BarProp+#else import Graphics.UI.Gtk.WebKit.DOM.BarProp #endif
+ src/GHCJS/DOM/BatteryManager.hs view
@@ -0,0 +1,13 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.BatteryManager (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.BatteryManager+#else+  module Graphics.UI.Gtk.WebKit.DOM.BatteryManager+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.BatteryManager+#else+import Graphics.UI.Gtk.WebKit.DOM.BatteryManager+#endif
+ src/GHCJS/DOM/BeforeLoadEvent.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.BeforeLoadEvent (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.BeforeLoadEvent+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.BeforeLoadEvent+#else+#endif
+ src/GHCJS/DOM/BeforeUnloadEvent.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.BeforeUnloadEvent (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.BeforeUnloadEvent+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.BeforeUnloadEvent+#else+#endif
+ src/GHCJS/DOM/BiquadFilterNode.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.BiquadFilterNode (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.BiquadFilterNode+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.BiquadFilterNode+#else+#endif
src/GHCJS/DOM/Blob.hs view
@@ -1,42 +1,13 @@ {-# LANGUAGE CPP #-}+module GHCJS.DOM.Blob ( #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.Blob-       (ghcjs_dom_blob_slice, blobSlice, ghcjs_dom_blob_get_size,-        blobGetSize, Blob, IsBlob, castToBlob, gTypeBlob, toBlob)-       where-import GHCJS.Types-import GHCJS.Foreign-import GHCJS.Marshal-import Data.Int-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-- -foreign import javascript unsafe "$1[\"slice\"]($2, $3, $4)"-        ghcjs_dom_blob_slice ::-        JSRef Blob -> Double -> Double -> JSString -> IO (JSRef Blob)- -blobSlice ::-          (IsBlob self, ToJSString contentType) =>-            self -> Int64 -> Int64 -> contentType -> IO (Maybe Blob)-blobSlice self start end contentType-  = fmap Blob . maybeJSNull <$>-      (ghcjs_dom_blob_slice (unBlob (toBlob self)) (fromIntegral start)-         (fromIntegral end)-         (toJSString contentType))- -foreign import javascript unsafe "$1[\"size\"]"-        ghcjs_dom_blob_get_size :: JSRef Blob -> IO Double- -blobGetSize :: (IsBlob self) => self -> IO Word64-blobGetSize self-  = round <$> (ghcjs_dom_blob_get_size (unBlob (toBlob self)))+  module GHCJS.DOM.JSFFI.Generated.Blob #else-module GHCJS.DOM.Blob (   module Graphics.UI.Gtk.WebKit.DOM.Blob+#endif   ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.Blob+#else import Graphics.UI.Gtk.WebKit.DOM.Blob #endif
+ src/GHCJS/DOM/CSS.hs view
@@ -0,0 +1,13 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.CSS (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.CSS+#else+  module Graphics.UI.Gtk.WebKit.DOM.CSS+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.CSS+#else+import Graphics.UI.Gtk.WebKit.DOM.CSS+#endif
+ src/GHCJS/DOM/CSSCharsetRule.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.CSSCharsetRule (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.CSSCharsetRule+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.CSSCharsetRule+#else+#endif
+ src/GHCJS/DOM/CSSFontFaceLoadEvent.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.CSSFontFaceLoadEvent (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.CSSFontFaceLoadEvent+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.CSSFontFaceLoadEvent+#else+#endif
+ src/GHCJS/DOM/CSSFontFaceRule.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.CSSFontFaceRule (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.CSSFontFaceRule+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.CSSFontFaceRule+#else+#endif
+ src/GHCJS/DOM/CSSImportRule.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.CSSImportRule (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.CSSImportRule+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.CSSImportRule+#else+#endif
+ src/GHCJS/DOM/CSSKeyframeRule.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.CSSKeyframeRule (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.CSSKeyframeRule+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.CSSKeyframeRule+#else+#endif
+ src/GHCJS/DOM/CSSKeyframesRule.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.CSSKeyframesRule (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.CSSKeyframesRule+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.CSSKeyframesRule+#else+#endif
+ src/GHCJS/DOM/CSSMediaRule.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.CSSMediaRule (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.CSSMediaRule+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.CSSMediaRule+#else+#endif
+ src/GHCJS/DOM/CSSPageRule.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.CSSPageRule (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.CSSPageRule+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.CSSPageRule+#else+#endif
+ src/GHCJS/DOM/CSSPrimitiveValue.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.CSSPrimitiveValue (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.CSSPrimitiveValue+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.CSSPrimitiveValue+#else+#endif
src/GHCJS/DOM/CSSRule.hs view
@@ -1,81 +1,13 @@ {-# LANGUAGE CPP #-}+module GHCJS.DOM.CSSRule ( #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.CSSRule-       (cUNKNOWN_RULE, cSTYLE_RULE, cCHARSET_RULE, cIMPORT_RULE,-        cMEDIA_RULE, cFONT_FACE_RULE, cPAGE_RULE, cKEYFRAMES_RULE,-        cKEYFRAME_RULE, cSUPPORTS_RULE, cWEBKIT_KEYFRAMES_RULE,-        cWEBKIT_KEYFRAME_RULE, ghcjs_dom_css_rule_set_css_text,-        cssRuleSetCssText, ghcjs_dom_css_rule_get_css_text,-        cssRuleGetCssText, ghcjs_dom_css_rule_get_parent_style_sheet,-        cssRuleGetParentStyleSheet, ghcjs_dom_css_rule_get_parent_rule,-        cssRuleGetParentRule, CSSRule, IsCSSRule, castToCSSRule,-        gTypeCSSRule, toCSSRule)-       where-import GHCJS.Types-import GHCJS.Foreign-import GHCJS.Marshal-import Data.Int-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM--cUNKNOWN_RULE = 0-cSTYLE_RULE = 1-cCHARSET_RULE = 2-cIMPORT_RULE = 3-cMEDIA_RULE = 4-cFONT_FACE_RULE = 5-cPAGE_RULE = 6-cKEYFRAMES_RULE = 7-cKEYFRAME_RULE = 8-cSUPPORTS_RULE = 12-cWEBKIT_KEYFRAMES_RULE = 7-cWEBKIT_KEYFRAME_RULE = 8- -foreign import javascript unsafe "$1[\"cssText\"] = $2;"-        ghcjs_dom_css_rule_set_css_text ::-        JSRef CSSRule -> JSString -> IO ()- -cssRuleSetCssText ::-                  (IsCSSRule self, ToJSString val) => self -> val -> IO ()-cssRuleSetCssText self val-  = ghcjs_dom_css_rule_set_css_text (unCSSRule (toCSSRule self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"cssText\"]"-        ghcjs_dom_css_rule_get_css_text :: JSRef CSSRule -> IO JSString- -cssRuleGetCssText ::-                  (IsCSSRule self, FromJSString result) => self -> IO result-cssRuleGetCssText self-  = fromJSString <$>-      (ghcjs_dom_css_rule_get_css_text (unCSSRule (toCSSRule self)))- -foreign import javascript unsafe "$1[\"parentStyleSheet\"]"-        ghcjs_dom_css_rule_get_parent_style_sheet ::-        JSRef CSSRule -> IO (JSRef CSSStyleSheet)- -cssRuleGetParentStyleSheet ::-                           (IsCSSRule self) => self -> IO (Maybe CSSStyleSheet)-cssRuleGetParentStyleSheet self-  = fmap CSSStyleSheet . maybeJSNull <$>-      (ghcjs_dom_css_rule_get_parent_style_sheet-         (unCSSRule (toCSSRule self)))- -foreign import javascript unsafe "$1[\"parentRule\"]"-        ghcjs_dom_css_rule_get_parent_rule ::-        JSRef CSSRule -> IO (JSRef CSSRule)- -cssRuleGetParentRule ::-                     (IsCSSRule self) => self -> IO (Maybe CSSRule)-cssRuleGetParentRule self-  = fmap CSSRule . maybeJSNull <$>-      (ghcjs_dom_css_rule_get_parent_rule (unCSSRule (toCSSRule self)))+  module GHCJS.DOM.JSFFI.Generated.CSSRule #else-module GHCJS.DOM.CSSRule (   module Graphics.UI.Gtk.WebKit.DOM.CSSRule+#endif   ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.CSSRule+#else import Graphics.UI.Gtk.WebKit.DOM.CSSRule #endif
src/GHCJS/DOM/CSSRuleList.hs view
@@ -1,43 +1,13 @@ {-# LANGUAGE CPP #-}+module GHCJS.DOM.CSSRuleList ( #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.CSSRuleList-       (ghcjs_dom_css_rule_list_item, cssRuleListItem,-        ghcjs_dom_css_rule_list_get_length, cssRuleListGetLength,-        CSSRuleList, IsCSSRuleList, castToCSSRuleList, gTypeCSSRuleList,-        toCSSRuleList)-       where-import GHCJS.Types-import GHCJS.Foreign-import GHCJS.Marshal-import Data.Int-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-- -foreign import javascript unsafe "$1[\"item\"]($2)"-        ghcjs_dom_css_rule_list_item ::-        JSRef CSSRuleList -> Word -> IO (JSRef CSSRule)- -cssRuleListItem ::-                (IsCSSRuleList self) => self -> Word -> IO (Maybe CSSRule)-cssRuleListItem self index-  = fmap CSSRule . maybeJSNull <$>-      (ghcjs_dom_css_rule_list_item (unCSSRuleList (toCSSRuleList self))-         index)- -foreign import javascript unsafe "$1[\"length\"]"-        ghcjs_dom_css_rule_list_get_length :: JSRef CSSRuleList -> IO Word- -cssRuleListGetLength :: (IsCSSRuleList self) => self -> IO Word-cssRuleListGetLength self-  = ghcjs_dom_css_rule_list_get_length-      (unCSSRuleList (toCSSRuleList self))+  module GHCJS.DOM.JSFFI.Generated.CSSRuleList #else-module GHCJS.DOM.CSSRuleList (   module Graphics.UI.Gtk.WebKit.DOM.CSSRuleList+#endif   ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.CSSRuleList+#else import Graphics.UI.Gtk.WebKit.DOM.CSSRuleList #endif
src/GHCJS/DOM/CSSStyleDeclaration.hs view
@@ -1,186 +1,13 @@ {-# LANGUAGE CPP #-}+module GHCJS.DOM.CSSStyleDeclaration ( #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.CSSStyleDeclaration-       (ghcjs_dom_css_style_declaration_get_property_value,-        cssStyleDeclarationGetPropertyValue,-        ghcjs_dom_css_style_declaration_remove_property,-        cssStyleDeclarationRemoveProperty,-        ghcjs_dom_css_style_declaration_get_property_priority,-        cssStyleDeclarationGetPropertyPriority,-        ghcjs_dom_css_style_declaration_set_property,-        cssStyleDeclarationSetProperty,-        ghcjs_dom_css_style_declaration_item, cssStyleDeclarationItem,-        ghcjs_dom_css_style_declaration_get_property_shorthand,-        cssStyleDeclarationGetPropertyShorthand,-        ghcjs_dom_css_style_declaration_is_property_implicit,-        cssStyleDeclarationIsPropertyImplicit,-        ghcjs_dom_css_style_declaration_set_css_text,-        cssStyleDeclarationSetCssText,-        ghcjs_dom_css_style_declaration_get_css_text,-        cssStyleDeclarationGetCssText,-        ghcjs_dom_css_style_declaration_get_length,-        cssStyleDeclarationGetLength,-        ghcjs_dom_css_style_declaration_get_parent_rule,-        cssStyleDeclarationGetParentRule, CSSStyleDeclaration,-        IsCSSStyleDeclaration, castToCSSStyleDeclaration,-        gTypeCSSStyleDeclaration, toCSSStyleDeclaration)-       where-import GHCJS.Types-import GHCJS.Foreign-import GHCJS.Marshal-import Data.Int-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-- -foreign import javascript unsafe "$1[\"getPropertyValue\"]($2)"-        ghcjs_dom_css_style_declaration_get_property_value ::-        JSRef CSSStyleDeclaration -> JSString -> IO JSString- -cssStyleDeclarationGetPropertyValue ::-                                    (IsCSSStyleDeclaration self, ToJSString propertyName,-                                     FromJSString result) =>-                                      self -> propertyName -> IO result-cssStyleDeclarationGetPropertyValue self propertyName-  = fromJSString <$>-      (ghcjs_dom_css_style_declaration_get_property_value-         (unCSSStyleDeclaration (toCSSStyleDeclaration self))-         (toJSString propertyName))- -foreign import javascript unsafe "$1[\"removeProperty\"]($2)"-        ghcjs_dom_css_style_declaration_remove_property ::-        JSRef CSSStyleDeclaration -> JSString -> IO JSString- -cssStyleDeclarationRemoveProperty ::-                                  (IsCSSStyleDeclaration self, ToJSString propertyName,-                                   FromJSString result) =>-                                    self -> propertyName -> IO result-cssStyleDeclarationRemoveProperty self propertyName-  = fromJSString <$>-      (ghcjs_dom_css_style_declaration_remove_property-         (unCSSStyleDeclaration (toCSSStyleDeclaration self))-         (toJSString propertyName))- -foreign import javascript unsafe "$1[\"getPropertyPriority\"]($2)"-        ghcjs_dom_css_style_declaration_get_property_priority ::-        JSRef CSSStyleDeclaration -> JSString -> IO JSString- -cssStyleDeclarationGetPropertyPriority ::-                                       (IsCSSStyleDeclaration self, ToJSString propertyName,-                                        FromJSString result) =>-                                         self -> propertyName -> IO result-cssStyleDeclarationGetPropertyPriority self propertyName-  = fromJSString <$>-      (ghcjs_dom_css_style_declaration_get_property_priority-         (unCSSStyleDeclaration (toCSSStyleDeclaration self))-         (toJSString propertyName))- -foreign import javascript unsafe "$1[\"setProperty\"]($2, $3, $4)"-        ghcjs_dom_css_style_declaration_set_property ::-        JSRef CSSStyleDeclaration ->-          JSString -> JSString -> JSString -> IO ()- -cssStyleDeclarationSetProperty ::-                               (IsCSSStyleDeclaration self, ToJSString propertyName,-                                ToJSString value, ToJSString priority) =>-                                 self -> propertyName -> value -> priority -> IO ()-cssStyleDeclarationSetProperty self propertyName value priority-  = ghcjs_dom_css_style_declaration_set_property-      (unCSSStyleDeclaration (toCSSStyleDeclaration self))-      (toJSString propertyName)-      (toJSString value)-      (toJSString priority)- -foreign import javascript unsafe "$1[\"item\"]($2)"-        ghcjs_dom_css_style_declaration_item ::-        JSRef CSSStyleDeclaration -> Word -> IO JSString- -cssStyleDeclarationItem ::-                        (IsCSSStyleDeclaration self, FromJSString result) =>-                          self -> Word -> IO result-cssStyleDeclarationItem self index-  = fromJSString <$>-      (ghcjs_dom_css_style_declaration_item-         (unCSSStyleDeclaration (toCSSStyleDeclaration self))-         index)- -foreign import javascript unsafe "$1[\"getPropertyShorthand\"]($2)"-        ghcjs_dom_css_style_declaration_get_property_shorthand ::-        JSRef CSSStyleDeclaration -> JSString -> IO JSString- -cssStyleDeclarationGetPropertyShorthand ::-                                        (IsCSSStyleDeclaration self, ToJSString propertyName,-                                         FromJSString result) =>-                                          self -> propertyName -> IO result-cssStyleDeclarationGetPropertyShorthand self propertyName-  = fromJSString <$>-      (ghcjs_dom_css_style_declaration_get_property_shorthand-         (unCSSStyleDeclaration (toCSSStyleDeclaration self))-         (toJSString propertyName))- -foreign import javascript unsafe-        "($1[\"isPropertyImplicit\"]($2) ? 1 : 0)"-        ghcjs_dom_css_style_declaration_is_property_implicit ::-        JSRef CSSStyleDeclaration -> JSString -> IO Bool- -cssStyleDeclarationIsPropertyImplicit ::-                                      (IsCSSStyleDeclaration self, ToJSString propertyName) =>-                                        self -> propertyName -> IO Bool-cssStyleDeclarationIsPropertyImplicit self propertyName-  = ghcjs_dom_css_style_declaration_is_property_implicit-      (unCSSStyleDeclaration (toCSSStyleDeclaration self))-      (toJSString propertyName)- -foreign import javascript unsafe "$1[\"cssText\"] = $2;"-        ghcjs_dom_css_style_declaration_set_css_text ::-        JSRef CSSStyleDeclaration -> JSString -> IO ()- -cssStyleDeclarationSetCssText ::-                              (IsCSSStyleDeclaration self, ToJSString val) =>-                                self -> val -> IO ()-cssStyleDeclarationSetCssText self val-  = ghcjs_dom_css_style_declaration_set_css_text-      (unCSSStyleDeclaration (toCSSStyleDeclaration self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"cssText\"]"-        ghcjs_dom_css_style_declaration_get_css_text ::-        JSRef CSSStyleDeclaration -> IO JSString- -cssStyleDeclarationGetCssText ::-                              (IsCSSStyleDeclaration self, FromJSString result) =>-                                self -> IO result-cssStyleDeclarationGetCssText self-  = fromJSString <$>-      (ghcjs_dom_css_style_declaration_get_css_text-         (unCSSStyleDeclaration (toCSSStyleDeclaration self)))- -foreign import javascript unsafe "$1[\"length\"]"-        ghcjs_dom_css_style_declaration_get_length ::-        JSRef CSSStyleDeclaration -> IO Word- -cssStyleDeclarationGetLength ::-                             (IsCSSStyleDeclaration self) => self -> IO Word-cssStyleDeclarationGetLength self-  = ghcjs_dom_css_style_declaration_get_length-      (unCSSStyleDeclaration (toCSSStyleDeclaration self))- -foreign import javascript unsafe "$1[\"parentRule\"]"-        ghcjs_dom_css_style_declaration_get_parent_rule ::-        JSRef CSSStyleDeclaration -> IO (JSRef CSSRule)- -cssStyleDeclarationGetParentRule ::-                                 (IsCSSStyleDeclaration self) => self -> IO (Maybe CSSRule)-cssStyleDeclarationGetParentRule self-  = fmap CSSRule . maybeJSNull <$>-      (ghcjs_dom_css_style_declaration_get_parent_rule-         (unCSSStyleDeclaration (toCSSStyleDeclaration self)))+  module GHCJS.DOM.JSFFI.Generated.CSSStyleDeclaration #else-module GHCJS.DOM.CSSStyleDeclaration (   module Graphics.UI.Gtk.WebKit.DOM.CSSStyleDeclaration+#endif   ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.CSSStyleDeclaration+#else import Graphics.UI.Gtk.WebKit.DOM.CSSStyleDeclaration #endif
+ src/GHCJS/DOM/CSSStyleRule.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.CSSStyleRule (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.CSSStyleRule+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.CSSStyleRule+#else+#endif
src/GHCJS/DOM/CSSStyleSheet.hs view
@@ -1,111 +1,13 @@ {-# LANGUAGE CPP #-}+module GHCJS.DOM.CSSStyleSheet ( #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.CSSStyleSheet-       (ghcjs_dom_css_style_sheet_insert_rule, cssStyleSheetInsertRule,-        ghcjs_dom_css_style_sheet_delete_rule, cssStyleSheetDeleteRule,-        ghcjs_dom_css_style_sheet_add_rule, cssStyleSheetAddRule,-        ghcjs_dom_css_style_sheet_remove_rule, cssStyleSheetRemoveRule,-        ghcjs_dom_css_style_sheet_get_owner_rule,-        cssStyleSheetGetOwnerRule, ghcjs_dom_css_style_sheet_get_css_rules,-        cssStyleSheetGetCssRules, ghcjs_dom_css_style_sheet_get_rules,-        cssStyleSheetGetRules, CSSStyleSheet, IsCSSStyleSheet,-        castToCSSStyleSheet, gTypeCSSStyleSheet, toCSSStyleSheet)-       where-import GHCJS.Types-import GHCJS.Foreign-import GHCJS.Marshal-import Data.Int-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-- -foreign import javascript unsafe "$1[\"insertRule\"]($2, $3)"-        ghcjs_dom_css_style_sheet_insert_rule ::-        JSRef CSSStyleSheet -> JSString -> Word -> IO Word- -cssStyleSheetInsertRule ::-                        (IsCSSStyleSheet self, ToJSString rule) =>-                          self -> rule -> Word -> IO Word-cssStyleSheetInsertRule self rule index-  = ghcjs_dom_css_style_sheet_insert_rule-      (unCSSStyleSheet (toCSSStyleSheet self))-      (toJSString rule)-      index- -foreign import javascript unsafe "$1[\"deleteRule\"]($2)"-        ghcjs_dom_css_style_sheet_delete_rule ::-        JSRef CSSStyleSheet -> Word -> IO ()- -cssStyleSheetDeleteRule ::-                        (IsCSSStyleSheet self) => self -> Word -> IO ()-cssStyleSheetDeleteRule self index-  = ghcjs_dom_css_style_sheet_delete_rule-      (unCSSStyleSheet (toCSSStyleSheet self))-      index- -foreign import javascript unsafe "$1[\"addRule\"]($2, $3, $4)"-        ghcjs_dom_css_style_sheet_add_rule ::-        JSRef CSSStyleSheet -> JSString -> JSString -> Word -> IO Int- -cssStyleSheetAddRule ::-                     (IsCSSStyleSheet self, ToJSString selector, ToJSString style) =>-                       self -> selector -> style -> Word -> IO Int-cssStyleSheetAddRule self selector style index-  = ghcjs_dom_css_style_sheet_add_rule-      (unCSSStyleSheet (toCSSStyleSheet self))-      (toJSString selector)-      (toJSString style)-      index- -foreign import javascript unsafe "$1[\"removeRule\"]($2)"-        ghcjs_dom_css_style_sheet_remove_rule ::-        JSRef CSSStyleSheet -> Word -> IO ()- -cssStyleSheetRemoveRule ::-                        (IsCSSStyleSheet self) => self -> Word -> IO ()-cssStyleSheetRemoveRule self index-  = ghcjs_dom_css_style_sheet_remove_rule-      (unCSSStyleSheet (toCSSStyleSheet self))-      index- -foreign import javascript unsafe "$1[\"ownerRule\"]"-        ghcjs_dom_css_style_sheet_get_owner_rule ::-        JSRef CSSStyleSheet -> IO (JSRef CSSRule)- -cssStyleSheetGetOwnerRule ::-                          (IsCSSStyleSheet self) => self -> IO (Maybe CSSRule)-cssStyleSheetGetOwnerRule self-  = fmap CSSRule . maybeJSNull <$>-      (ghcjs_dom_css_style_sheet_get_owner_rule-         (unCSSStyleSheet (toCSSStyleSheet self)))- -foreign import javascript unsafe "$1[\"cssRules\"]"-        ghcjs_dom_css_style_sheet_get_css_rules ::-        JSRef CSSStyleSheet -> IO (JSRef CSSRuleList)- -cssStyleSheetGetCssRules ::-                         (IsCSSStyleSheet self) => self -> IO (Maybe CSSRuleList)-cssStyleSheetGetCssRules self-  = fmap CSSRuleList . maybeJSNull <$>-      (ghcjs_dom_css_style_sheet_get_css_rules-         (unCSSStyleSheet (toCSSStyleSheet self)))- -foreign import javascript unsafe "$1[\"rules\"]"-        ghcjs_dom_css_style_sheet_get_rules ::-        JSRef CSSStyleSheet -> IO (JSRef CSSRuleList)- -cssStyleSheetGetRules ::-                      (IsCSSStyleSheet self) => self -> IO (Maybe CSSRuleList)-cssStyleSheetGetRules self-  = fmap CSSRuleList . maybeJSNull <$>-      (ghcjs_dom_css_style_sheet_get_rules-         (unCSSStyleSheet (toCSSStyleSheet self)))+  module GHCJS.DOM.JSFFI.Generated.CSSStyleSheet #else-module GHCJS.DOM.CSSStyleSheet (   module Graphics.UI.Gtk.WebKit.DOM.CSSStyleSheet+#endif   ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.CSSStyleSheet+#else import Graphics.UI.Gtk.WebKit.DOM.CSSStyleSheet #endif
+ src/GHCJS/DOM/CSSSupportsRule.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.CSSSupportsRule (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.CSSSupportsRule+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.CSSSupportsRule+#else+#endif
src/GHCJS/DOM/CSSValue.hs view
@@ -1,56 +1,13 @@ {-# LANGUAGE CPP #-}+module GHCJS.DOM.CSSValue ( #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.CSSValue-       (cCSS_INHERIT, cCSS_PRIMITIVE_VALUE, cCSS_VALUE_LIST, cCSS_CUSTOM,-        ghcjs_dom_css_value_set_css_text, cssValueSetCssText,-        ghcjs_dom_css_value_get_css_text, cssValueGetCssText,-        ghcjs_dom_css_value_get_css_value_type, cssValueGetCssValueType,-        CSSValue, IsCSSValue, castToCSSValue, gTypeCSSValue, toCSSValue)-       where-import GHCJS.Types-import GHCJS.Foreign-import GHCJS.Marshal-import Data.Int-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM--cCSS_INHERIT = 0-cCSS_PRIMITIVE_VALUE = 1-cCSS_VALUE_LIST = 2-cCSS_CUSTOM = 3- -foreign import javascript unsafe "$1[\"cssText\"] = $2;"-        ghcjs_dom_css_value_set_css_text ::-        JSRef CSSValue -> JSString -> IO ()- -cssValueSetCssText ::-                   (IsCSSValue self, ToJSString val) => self -> val -> IO ()-cssValueSetCssText self val-  = ghcjs_dom_css_value_set_css_text (unCSSValue (toCSSValue self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"cssText\"]"-        ghcjs_dom_css_value_get_css_text :: JSRef CSSValue -> IO JSString- -cssValueGetCssText ::-                   (IsCSSValue self, FromJSString result) => self -> IO result-cssValueGetCssText self-  = fromJSString <$>-      (ghcjs_dom_css_value_get_css_text (unCSSValue (toCSSValue self)))- -foreign import javascript unsafe "$1[\"cssValueType\"]"-        ghcjs_dom_css_value_get_css_value_type :: JSRef CSSValue -> IO Word- -cssValueGetCssValueType :: (IsCSSValue self) => self -> IO Word-cssValueGetCssValueType self-  = ghcjs_dom_css_value_get_css_value_type-      (unCSSValue (toCSSValue self))+  module GHCJS.DOM.JSFFI.Generated.CSSValue #else-module GHCJS.DOM.CSSValue (   module Graphics.UI.Gtk.WebKit.DOM.CSSValue+#endif   ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.CSSValue+#else import Graphics.UI.Gtk.WebKit.DOM.CSSValue #endif
+ src/GHCJS/DOM/CSSValueList.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.CSSValueList (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.CSSValueList+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.CSSValueList+#else+#endif
+ src/GHCJS/DOM/CanvasGradient.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.CanvasGradient (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.CanvasGradient+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.CanvasGradient+#else+#endif
+ src/GHCJS/DOM/CanvasRenderingContext.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.CanvasRenderingContext (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.CanvasRenderingContext+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.CanvasRenderingContext+#else+#endif
+ src/GHCJS/DOM/CanvasRenderingContext2D.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.CanvasRenderingContext2D (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.CanvasRenderingContext2D+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.CanvasRenderingContext2D+#else+#endif
+ src/GHCJS/DOM/CapabilityRange.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.CapabilityRange (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.CapabilityRange+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.CapabilityRange+#else+#endif
src/GHCJS/DOM/CharacterData.hs view
@@ -1,125 +1,13 @@ {-# LANGUAGE CPP #-}+module GHCJS.DOM.CharacterData ( #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.CharacterData-       (ghcjs_dom_character_data_substring_data,-        characterDataSubstringData, ghcjs_dom_character_data_append_data,-        characterDataAppendData, ghcjs_dom_character_data_insert_data,-        characterDataInsertData, ghcjs_dom_character_data_delete_data,-        characterDataDeleteData, ghcjs_dom_character_data_replace_data,-        characterDataReplaceData, ghcjs_dom_character_data_set_data,-        characterDataSetData, ghcjs_dom_character_data_get_data,-        characterDataGetData, ghcjs_dom_character_data_get_length,-        characterDataGetLength, CharacterData, IsCharacterData,-        castToCharacterData, gTypeCharacterData, toCharacterData)-       where-import GHCJS.Types-import GHCJS.Foreign-import GHCJS.Marshal-import Data.Int-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-- -foreign import javascript unsafe "$1[\"substringData\"]($2, $3)"-        ghcjs_dom_character_data_substring_data ::-        JSRef CharacterData -> Word -> Word -> IO JSString- -characterDataSubstringData ::-                           (IsCharacterData self, FromJSString result) =>-                             self -> Word -> Word -> IO result-characterDataSubstringData self offset length-  = fromJSString <$>-      (ghcjs_dom_character_data_substring_data-         (unCharacterData (toCharacterData self))-         offset-         length)- -foreign import javascript unsafe "$1[\"appendData\"]($2)"-        ghcjs_dom_character_data_append_data ::-        JSRef CharacterData -> JSString -> IO ()- -characterDataAppendData ::-                        (IsCharacterData self, ToJSString data') => self -> data' -> IO ()-characterDataAppendData self data'-  = ghcjs_dom_character_data_append_data-      (unCharacterData (toCharacterData self))-      (toJSString data')- -foreign import javascript unsafe "$1[\"insertData\"]($2, $3)"-        ghcjs_dom_character_data_insert_data ::-        JSRef CharacterData -> Word -> JSString -> IO ()- -characterDataInsertData ::-                        (IsCharacterData self, ToJSString data') =>-                          self -> Word -> data' -> IO ()-characterDataInsertData self offset data'-  = ghcjs_dom_character_data_insert_data-      (unCharacterData (toCharacterData self))-      offset-      (toJSString data')- -foreign import javascript unsafe "$1[\"deleteData\"]($2, $3)"-        ghcjs_dom_character_data_delete_data ::-        JSRef CharacterData -> Word -> Word -> IO ()- -characterDataDeleteData ::-                        (IsCharacterData self) => self -> Word -> Word -> IO ()-characterDataDeleteData self offset length-  = ghcjs_dom_character_data_delete_data-      (unCharacterData (toCharacterData self))-      offset-      length- -foreign import javascript unsafe "$1[\"replaceData\"]($2, $3, $4)"-        ghcjs_dom_character_data_replace_data ::-        JSRef CharacterData -> Word -> Word -> JSString -> IO ()- -characterDataReplaceData ::-                         (IsCharacterData self, ToJSString data') =>-                           self -> Word -> Word -> data' -> IO ()-characterDataReplaceData self offset length data'-  = ghcjs_dom_character_data_replace_data-      (unCharacterData (toCharacterData self))-      offset-      length-      (toJSString data')- -foreign import javascript unsafe "$1[\"data\"] = $2;"-        ghcjs_dom_character_data_set_data ::-        JSRef CharacterData -> JSString -> IO ()- -characterDataSetData ::-                     (IsCharacterData self, ToJSString val) => self -> val -> IO ()-characterDataSetData self val-  = ghcjs_dom_character_data_set_data-      (unCharacterData (toCharacterData self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"data\"]"-        ghcjs_dom_character_data_get_data ::-        JSRef CharacterData -> IO JSString- -characterDataGetData ::-                     (IsCharacterData self, FromJSString result) => self -> IO result-characterDataGetData self-  = fromJSString <$>-      (ghcjs_dom_character_data_get_data-         (unCharacterData (toCharacterData self)))- -foreign import javascript unsafe "$1[\"length\"]"-        ghcjs_dom_character_data_get_length ::-        JSRef CharacterData -> IO Word- -characterDataGetLength :: (IsCharacterData self) => self -> IO Word-characterDataGetLength self-  = ghcjs_dom_character_data_get_length-      (unCharacterData (toCharacterData self))+  module GHCJS.DOM.JSFFI.Generated.CharacterData #else-module GHCJS.DOM.CharacterData (   module Graphics.UI.Gtk.WebKit.DOM.CharacterData+#endif   ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.CharacterData+#else import Graphics.UI.Gtk.WebKit.DOM.CharacterData #endif
+ src/GHCJS/DOM/ChildNode.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.ChildNode (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.ChildNode+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.ChildNode+#else+#endif
+ src/GHCJS/DOM/ClientRect.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.ClientRect (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.ClientRect+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.ClientRect+#else+#endif
+ src/GHCJS/DOM/ClientRectList.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.ClientRectList (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.ClientRectList+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.ClientRectList+#else+#endif
+ src/GHCJS/DOM/CloseEvent.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.CloseEvent (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.CloseEvent+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.CloseEvent+#else+#endif
+ src/GHCJS/DOM/CommandLineAPIHost.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.CommandLineAPIHost (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.CommandLineAPIHost+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.CommandLineAPIHost+#else+#endif
+ src/GHCJS/DOM/Comment.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.Comment (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.Comment+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.Comment+#else+#endif
+ src/GHCJS/DOM/CompositionEvent.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.CompositionEvent (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.CompositionEvent+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.CompositionEvent+#else+#endif
+ src/GHCJS/DOM/ConvolverNode.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.ConvolverNode (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.ConvolverNode+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.ConvolverNode+#else+#endif
+ src/GHCJS/DOM/Coordinates.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.Coordinates (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.Coordinates+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.Coordinates+#else+#endif
+ src/GHCJS/DOM/Counter.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.Counter (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.Counter+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.Counter+#else+#endif
+ src/GHCJS/DOM/Crypto.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.Crypto (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.Crypto+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.Crypto+#else+#endif
+ src/GHCJS/DOM/CryptoKey.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.CryptoKey (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.CryptoKey+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.CryptoKey+#else+#endif
+ src/GHCJS/DOM/CryptoKeyPair.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.CryptoKeyPair (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.CryptoKeyPair+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.CryptoKeyPair+#else+#endif
− src/GHCJS/DOM/Css.hs 
@@ -1,16 +0,0 @@-{-# LANGUAGE CPP #-}-#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.Css (CSSRule, IsCSSRule) where- -data CSSRule = CSSRule- -class IsCSSRule a- -instance IsCSSRule CSSRule-#else-module GHCJS.DOM.Css (-  module Graphics.UI.Gtk.WebKit.DOM.Css-  ) where-import Graphics.UI.Gtk.WebKit.DOM.Css-#endif
+ src/GHCJS/DOM/CustomEvent.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.CustomEvent (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.CustomEvent+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.CustomEvent+#else+#endif
− src/GHCJS/DOM/DOMApplicationCache.hs 
@@ -1,134 +0,0 @@-{-# LANGUAGE CPP #-}-#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.DOMApplicationCache-       (ghcjs_dom_dom_application_cache_update, domApplicationCacheUpdate,-        ghcjs_dom_dom_application_cache_swap_cache,-        domApplicationCacheSwapCache,-        ghcjs_dom_dom_application_cache_abort, domApplicationCacheAbort,-        ghcjs_dom_dom_application_cache_dispatch_event,-        domApplicationCacheDispatchEvent, cUNCACHED, cIDLE, cCHECKING,-        cDOWNLOADING, cUPDATEREADY, cOBSOLETE,-        ghcjs_dom_dom_application_cache_get_status,-        domApplicationCacheGetStatus, domApplicationCacheOnchecking,-        domApplicationCacheOnerror, domApplicationCacheOnnoupdate,-        domApplicationCacheOndownloading, domApplicationCacheOnprogress,-        domApplicationCacheOnupdateready, domApplicationCacheOncached,-        domApplicationCacheOnobsolete, DOMApplicationCache,-        IsDOMApplicationCache, castToDOMApplicationCache,-        gTypeDOMApplicationCache, toDOMApplicationCache)-       where-import GHCJS.Types-import GHCJS.Foreign-import GHCJS.Marshal-import Data.Int-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-- -foreign import javascript unsafe "$1[\"update\"]()"-        ghcjs_dom_dom_application_cache_update ::-        JSRef DOMApplicationCache -> IO ()- -domApplicationCacheUpdate ::-                          (IsDOMApplicationCache self) => self -> IO ()-domApplicationCacheUpdate self-  = ghcjs_dom_dom_application_cache_update-      (unDOMApplicationCache (toDOMApplicationCache self))- -foreign import javascript unsafe "$1[\"swapCache\"]()"-        ghcjs_dom_dom_application_cache_swap_cache ::-        JSRef DOMApplicationCache -> IO ()- -domApplicationCacheSwapCache ::-                             (IsDOMApplicationCache self) => self -> IO ()-domApplicationCacheSwapCache self-  = ghcjs_dom_dom_application_cache_swap_cache-      (unDOMApplicationCache (toDOMApplicationCache self))- -foreign import javascript unsafe "$1[\"abort\"]()"-        ghcjs_dom_dom_application_cache_abort ::-        JSRef DOMApplicationCache -> IO ()- -domApplicationCacheAbort ::-                         (IsDOMApplicationCache self) => self -> IO ()-domApplicationCacheAbort self-  = ghcjs_dom_dom_application_cache_abort-      (unDOMApplicationCache (toDOMApplicationCache self))- -foreign import javascript unsafe-        "($1[\"dispatchEvent\"]($2) ? 1 : 0)"-        ghcjs_dom_dom_application_cache_dispatch_event ::-        JSRef DOMApplicationCache -> JSRef Event -> IO Bool- -domApplicationCacheDispatchEvent ::-                                 (IsDOMApplicationCache self, IsEvent evt) =>-                                   self -> Maybe evt -> IO Bool-domApplicationCacheDispatchEvent self evt-  = ghcjs_dom_dom_application_cache_dispatch_event-      (unDOMApplicationCache (toDOMApplicationCache self))-      (maybe jsNull (unEvent . toEvent) evt)-cUNCACHED = 0-cIDLE = 1-cCHECKING = 2-cDOWNLOADING = 3-cUPDATEREADY = 4-cOBSOLETE = 5- -foreign import javascript unsafe "$1[\"status\"]"-        ghcjs_dom_dom_application_cache_get_status ::-        JSRef DOMApplicationCache -> IO Word- -domApplicationCacheGetStatus ::-                             (IsDOMApplicationCache self) => self -> IO Word-domApplicationCacheGetStatus self-  = ghcjs_dom_dom_application_cache_get_status-      (unDOMApplicationCache (toDOMApplicationCache self))- -domApplicationCacheOnchecking ::-                              (IsDOMApplicationCache self) =>-                                Signal self (EventM UIEvent self ())-domApplicationCacheOnchecking = (connect "checking")- -domApplicationCacheOnerror ::-                           (IsDOMApplicationCache self) =>-                             Signal self (EventM UIEvent self ())-domApplicationCacheOnerror = (connect "error")- -domApplicationCacheOnnoupdate ::-                              (IsDOMApplicationCache self) =>-                                Signal self (EventM UIEvent self ())-domApplicationCacheOnnoupdate = (connect "noupdate")- -domApplicationCacheOndownloading ::-                                 (IsDOMApplicationCache self) =>-                                   Signal self (EventM UIEvent self ())-domApplicationCacheOndownloading = (connect "downloading")- -domApplicationCacheOnprogress ::-                              (IsDOMApplicationCache self) =>-                                Signal self (EventM UIEvent self ())-domApplicationCacheOnprogress = (connect "progress")- -domApplicationCacheOnupdateready ::-                                 (IsDOMApplicationCache self) =>-                                   Signal self (EventM UIEvent self ())-domApplicationCacheOnupdateready = (connect "updateready")- -domApplicationCacheOncached ::-                            (IsDOMApplicationCache self) =>-                              Signal self (EventM UIEvent self ())-domApplicationCacheOncached = (connect "cached")- -domApplicationCacheOnobsolete ::-                              (IsDOMApplicationCache self) =>-                                Signal self (EventM UIEvent self ())-domApplicationCacheOnobsolete = (connect "obsolete")-#else-module GHCJS.DOM.DOMApplicationCache (-  module Graphics.UI.Gtk.WebKit.DOM.DOMApplicationCache-  ) where-import Graphics.UI.Gtk.WebKit.DOM.DOMApplicationCache-#endif
+ src/GHCJS/DOM/DOMError.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.DOMError (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.DOMError+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.DOMError+#else+#endif
src/GHCJS/DOM/DOMImplementation.hs view
@@ -1,119 +1,13 @@ {-# LANGUAGE CPP #-}+module GHCJS.DOM.DOMImplementation ( #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.DOMImplementation-       (ghcjs_dom_dom_implementation_has_feature,-        domImplementationHasFeature,-        ghcjs_dom_dom_implementation_create_document_type,-        domImplementationCreateDocumentType,-        ghcjs_dom_dom_implementation_create_document,-        domImplementationCreateDocument,-        ghcjs_dom_dom_implementation_create_css_style_sheet,-        domImplementationCreateCSSStyleSheet,-        ghcjs_dom_dom_implementation_create_html_document,-        domImplementationCreateHTMLDocument, DOMImplementation,-        IsDOMImplementation, castToDOMImplementation,-        gTypeDOMImplementation, toDOMImplementation)-       where-import GHCJS.Types-import GHCJS.Foreign-import GHCJS.Marshal-import Data.Int-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-- -foreign import javascript unsafe-        "($1[\"hasFeature\"]($2,\n$3) ? 1 : 0)"-        ghcjs_dom_dom_implementation_has_feature ::-        JSRef DOMImplementation -> JSString -> JSString -> IO Bool- -domImplementationHasFeature ::-                            (IsDOMImplementation self, ToJSString feature,-                             ToJSString version) =>-                              self -> feature -> version -> IO Bool-domImplementationHasFeature self feature version-  = ghcjs_dom_dom_implementation_has_feature-      (unDOMImplementation (toDOMImplementation self))-      (toJSString feature)-      (toJSString version)- -foreign import javascript unsafe-        "$1[\"createDocumentType\"]($2, $3,\n$4)"-        ghcjs_dom_dom_implementation_create_document_type ::-        JSRef DOMImplementation ->-          JSString -> JSString -> JSString -> IO (JSRef DocumentType)- -domImplementationCreateDocumentType ::-                                    (IsDOMImplementation self, ToJSString qualifiedName,-                                     ToJSString publicId, ToJSString systemId) =>-                                      self ->-                                        qualifiedName ->-                                          publicId -> systemId -> IO (Maybe DocumentType)-domImplementationCreateDocumentType self qualifiedName publicId-  systemId-  = fmap DocumentType . maybeJSNull <$>-      (ghcjs_dom_dom_implementation_create_document_type-         (unDOMImplementation (toDOMImplementation self))-         (toJSString qualifiedName)-         (toJSString publicId)-         (toJSString systemId))- -foreign import javascript unsafe-        "$1[\"createDocument\"]($2, $3, $4)"-        ghcjs_dom_dom_implementation_create_document ::-        JSRef DOMImplementation ->-          JSString -> JSString -> JSRef DocumentType -> IO (JSRef Document)- -domImplementationCreateDocument ::-                                (IsDOMImplementation self, ToJSString namespaceURI,-                                 ToJSString qualifiedName, IsDocumentType doctype) =>-                                  self ->-                                    namespaceURI ->-                                      qualifiedName -> Maybe doctype -> IO (Maybe Document)-domImplementationCreateDocument self namespaceURI qualifiedName-  doctype-  = fmap Document . maybeJSNull <$>-      (ghcjs_dom_dom_implementation_create_document-         (unDOMImplementation (toDOMImplementation self))-         (toJSString namespaceURI)-         (toJSString qualifiedName)-         (maybe jsNull (unDocumentType . toDocumentType) doctype))- -foreign import javascript unsafe-        "$1[\"createCSSStyleSheet\"]($2,\n$3)"-        ghcjs_dom_dom_implementation_create_css_style_sheet ::-        JSRef DOMImplementation ->-          JSString -> JSString -> IO (JSRef CSSStyleSheet)- -domImplementationCreateCSSStyleSheet ::-                                     (IsDOMImplementation self, ToJSString title,-                                      ToJSString media) =>-                                       self -> title -> media -> IO (Maybe CSSStyleSheet)-domImplementationCreateCSSStyleSheet self title media-  = fmap CSSStyleSheet . maybeJSNull <$>-      (ghcjs_dom_dom_implementation_create_css_style_sheet-         (unDOMImplementation (toDOMImplementation self))-         (toJSString title)-         (toJSString media))- -foreign import javascript unsafe "$1[\"createHTMLDocument\"]($2)"-        ghcjs_dom_dom_implementation_create_html_document ::-        JSRef DOMImplementation -> JSString -> IO (JSRef HTMLDocument)- -domImplementationCreateHTMLDocument ::-                                    (IsDOMImplementation self, ToJSString title) =>-                                      self -> title -> IO (Maybe HTMLDocument)-domImplementationCreateHTMLDocument self title-  = fmap HTMLDocument . maybeJSNull <$>-      (ghcjs_dom_dom_implementation_create_html_document-         (unDOMImplementation (toDOMImplementation self))-         (toJSString title))+  module GHCJS.DOM.JSFFI.Generated.DOMImplementation #else-module GHCJS.DOM.DOMImplementation (   module Graphics.UI.Gtk.WebKit.DOM.DOMImplementation+#endif   ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.DOMImplementation+#else import Graphics.UI.Gtk.WebKit.DOM.DOMImplementation #endif
− src/GHCJS/DOM/DOMMimeType.hs 
@@ -1,58 +0,0 @@-{-# LANGUAGE CPP #-}-#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.DOMMimeType-       (ghcjs_dom_dom_mime_type_get_suffixes, domMimeTypeGetSuffixes,-        ghcjs_dom_dom_mime_type_get_description, domMimeTypeGetDescription,-        ghcjs_dom_dom_mime_type_get_enabled_plugin,-        domMimeTypeGetEnabledPlugin, DOMMimeType, IsDOMMimeType,-        castToDOMMimeType, gTypeDOMMimeType, toDOMMimeType)-       where-import GHCJS.Types-import GHCJS.Foreign-import GHCJS.Marshal-import Data.Int-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-- -foreign import javascript unsafe "$1[\"suffixes\"]"-        ghcjs_dom_dom_mime_type_get_suffixes ::-        JSRef DOMMimeType -> IO JSString- -domMimeTypeGetSuffixes ::-                       (IsDOMMimeType self, FromJSString result) => self -> IO result-domMimeTypeGetSuffixes self-  = fromJSString <$>-      (ghcjs_dom_dom_mime_type_get_suffixes-         (unDOMMimeType (toDOMMimeType self)))- -foreign import javascript unsafe "$1[\"description\"]"-        ghcjs_dom_dom_mime_type_get_description ::-        JSRef DOMMimeType -> IO JSString- -domMimeTypeGetDescription ::-                          (IsDOMMimeType self, FromJSString result) => self -> IO result-domMimeTypeGetDescription self-  = fromJSString <$>-      (ghcjs_dom_dom_mime_type_get_description-         (unDOMMimeType (toDOMMimeType self)))- -foreign import javascript unsafe "$1[\"enabledPlugin\"]"-        ghcjs_dom_dom_mime_type_get_enabled_plugin ::-        JSRef DOMMimeType -> IO (JSRef DOMPlugin)- -domMimeTypeGetEnabledPlugin ::-                            (IsDOMMimeType self) => self -> IO (Maybe DOMPlugin)-domMimeTypeGetEnabledPlugin self-  = fmap DOMPlugin . maybeJSNull <$>-      (ghcjs_dom_dom_mime_type_get_enabled_plugin-         (unDOMMimeType (toDOMMimeType self)))-#else-module GHCJS.DOM.DOMMimeType (-  module Graphics.UI.Gtk.WebKit.DOM.DOMMimeType-  ) where-import Graphics.UI.Gtk.WebKit.DOM.DOMMimeType-#endif
− src/GHCJS/DOM/DOMMimeTypeArray.hs 
@@ -1,61 +0,0 @@-{-# LANGUAGE CPP #-}-#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.DOMMimeTypeArray-       (ghcjs_dom_dom_mime_type_array_item, domMimeTypeArrayItem,-        ghcjs_dom_dom_mime_type_array_named_item,-        domMimeTypeArrayNamedItem,-        ghcjs_dom_dom_mime_type_array_get_length,-        domMimeTypeArrayGetLength, DOMMimeTypeArray, IsDOMMimeTypeArray,-        castToDOMMimeTypeArray, gTypeDOMMimeTypeArray, toDOMMimeTypeArray)-       where-import GHCJS.Types-import GHCJS.Foreign-import GHCJS.Marshal-import Data.Int-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-- -foreign import javascript unsafe "$1[\"item\"]($2)"-        ghcjs_dom_dom_mime_type_array_item ::-        JSRef DOMMimeTypeArray -> Word -> IO (JSRef DOMMimeType)- -domMimeTypeArrayItem ::-                     (IsDOMMimeTypeArray self) => self -> Word -> IO (Maybe DOMMimeType)-domMimeTypeArrayItem self index-  = fmap DOMMimeType . maybeJSNull <$>-      (ghcjs_dom_dom_mime_type_array_item-         (unDOMMimeTypeArray (toDOMMimeTypeArray self))-         index)- -foreign import javascript unsafe "$1[\"namedItem\"]($2)"-        ghcjs_dom_dom_mime_type_array_named_item ::-        JSRef DOMMimeTypeArray -> JSString -> IO (JSRef DOMMimeType)- -domMimeTypeArrayNamedItem ::-                          (IsDOMMimeTypeArray self, ToJSString name) =>-                            self -> name -> IO (Maybe DOMMimeType)-domMimeTypeArrayNamedItem self name-  = fmap DOMMimeType . maybeJSNull <$>-      (ghcjs_dom_dom_mime_type_array_named_item-         (unDOMMimeTypeArray (toDOMMimeTypeArray self))-         (toJSString name))- -foreign import javascript unsafe "$1[\"length\"]"-        ghcjs_dom_dom_mime_type_array_get_length ::-        JSRef DOMMimeTypeArray -> IO Word- -domMimeTypeArrayGetLength ::-                          (IsDOMMimeTypeArray self) => self -> IO Word-domMimeTypeArrayGetLength self-  = ghcjs_dom_dom_mime_type_array_get_length-      (unDOMMimeTypeArray (toDOMMimeTypeArray self))-#else-module GHCJS.DOM.DOMMimeTypeArray (-  module Graphics.UI.Gtk.WebKit.DOM.DOMMimeTypeArray-  ) where-import Graphics.UI.Gtk.WebKit.DOM.DOMMimeTypeArray-#endif
src/GHCJS/DOM/DOMNamedFlowCollection.hs view
@@ -1,65 +1,13 @@ {-# LANGUAGE CPP #-}+module GHCJS.DOM.DOMNamedFlowCollection ( #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.DOMNamedFlowCollection-       (ghcjs_dom_dom_named_flow_collection_item,-        domNamedFlowCollectionItem,-        ghcjs_dom_dom_named_flow_collection_named_item,-        domNamedFlowCollectionNamedItem,-        ghcjs_dom_dom_named_flow_collection_get_length,-        domNamedFlowCollectionGetLength, DOMNamedFlowCollection,-        IsDOMNamedFlowCollection, castToDOMNamedFlowCollection,-        gTypeDOMNamedFlowCollection, toDOMNamedFlowCollection)-       where-import GHCJS.Types-import GHCJS.Foreign-import GHCJS.Marshal-import Data.Int-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-- -foreign import javascript unsafe "$1[\"item\"]($2)"-        ghcjs_dom_dom_named_flow_collection_item ::-        JSRef DOMNamedFlowCollection -> Word -> IO (JSRef WebKitNamedFlow)- -domNamedFlowCollectionItem ::-                           (IsDOMNamedFlowCollection self) =>-                             self -> Word -> IO (Maybe WebKitNamedFlow)-domNamedFlowCollectionItem self index-  = fmap WebKitNamedFlow . maybeJSNull <$>-      (ghcjs_dom_dom_named_flow_collection_item-         (unDOMNamedFlowCollection (toDOMNamedFlowCollection self))-         index)- -foreign import javascript unsafe "$1[\"namedItem\"]($2)"-        ghcjs_dom_dom_named_flow_collection_named_item ::-        JSRef DOMNamedFlowCollection ->-          JSString -> IO (JSRef WebKitNamedFlow)- -domNamedFlowCollectionNamedItem ::-                                (IsDOMNamedFlowCollection self, ToJSString name) =>-                                  self -> name -> IO (Maybe WebKitNamedFlow)-domNamedFlowCollectionNamedItem self name-  = fmap WebKitNamedFlow . maybeJSNull <$>-      (ghcjs_dom_dom_named_flow_collection_named_item-         (unDOMNamedFlowCollection (toDOMNamedFlowCollection self))-         (toJSString name))- -foreign import javascript unsafe "$1[\"length\"]"-        ghcjs_dom_dom_named_flow_collection_get_length ::-        JSRef DOMNamedFlowCollection -> IO Word- -domNamedFlowCollectionGetLength ::-                                (IsDOMNamedFlowCollection self) => self -> IO Word-domNamedFlowCollectionGetLength self-  = ghcjs_dom_dom_named_flow_collection_get_length-      (unDOMNamedFlowCollection (toDOMNamedFlowCollection self))+  module GHCJS.DOM.JSFFI.Generated.DOMNamedFlowCollection #else-module GHCJS.DOM.DOMNamedFlowCollection (   module Graphics.UI.Gtk.WebKit.DOM.DOMNamedFlowCollection+#endif   ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.DOMNamedFlowCollection+#else import Graphics.UI.Gtk.WebKit.DOM.DOMNamedFlowCollection #endif
+ src/GHCJS/DOM/DOMParser.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.DOMParser (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.DOMParser+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.DOMParser+#else+#endif
− src/GHCJS/DOM/DOMPlugin.hs 
@@ -1,86 +0,0 @@-{-# LANGUAGE CPP #-}-#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.DOMPlugin-       (ghcjs_dom_dom_plugin_item, domPluginItem,-        ghcjs_dom_dom_plugin_named_item, domPluginNamedItem,-        ghcjs_dom_dom_plugin_get_name, domPluginGetName,-        ghcjs_dom_dom_plugin_get_filename, domPluginGetFilename,-        ghcjs_dom_dom_plugin_get_description, domPluginGetDescription,-        ghcjs_dom_dom_plugin_get_length, domPluginGetLength, DOMPlugin,-        IsDOMPlugin, castToDOMPlugin, gTypeDOMPlugin, toDOMPlugin)-       where-import GHCJS.Types-import GHCJS.Foreign-import GHCJS.Marshal-import Data.Int-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-- -foreign import javascript unsafe "$1[\"item\"]($2)"-        ghcjs_dom_dom_plugin_item ::-        JSRef DOMPlugin -> Word -> IO (JSRef DOMMimeType)- -domPluginItem ::-              (IsDOMPlugin self) => self -> Word -> IO (Maybe DOMMimeType)-domPluginItem self index-  = fmap DOMMimeType . maybeJSNull <$>-      (ghcjs_dom_dom_plugin_item (unDOMPlugin (toDOMPlugin self)) index)- -foreign import javascript unsafe "$1[\"namedItem\"]($2)"-        ghcjs_dom_dom_plugin_named_item ::-        JSRef DOMPlugin -> JSString -> IO (JSRef DOMMimeType)- -domPluginNamedItem ::-                   (IsDOMPlugin self, ToJSString name) =>-                     self -> name -> IO (Maybe DOMMimeType)-domPluginNamedItem self name-  = fmap DOMMimeType . maybeJSNull <$>-      (ghcjs_dom_dom_plugin_named_item (unDOMPlugin (toDOMPlugin self))-         (toJSString name))- -foreign import javascript unsafe "$1[\"name\"]"-        ghcjs_dom_dom_plugin_get_name :: JSRef DOMPlugin -> IO JSString- -domPluginGetName ::-                 (IsDOMPlugin self, FromJSString result) => self -> IO result-domPluginGetName self-  = fromJSString <$>-      (ghcjs_dom_dom_plugin_get_name (unDOMPlugin (toDOMPlugin self)))- -foreign import javascript unsafe "$1[\"filename\"]"-        ghcjs_dom_dom_plugin_get_filename :: JSRef DOMPlugin -> IO JSString- -domPluginGetFilename ::-                     (IsDOMPlugin self, FromJSString result) => self -> IO result-domPluginGetFilename self-  = fromJSString <$>-      (ghcjs_dom_dom_plugin_get_filename-         (unDOMPlugin (toDOMPlugin self)))- -foreign import javascript unsafe "$1[\"description\"]"-        ghcjs_dom_dom_plugin_get_description ::-        JSRef DOMPlugin -> IO JSString- -domPluginGetDescription ::-                        (IsDOMPlugin self, FromJSString result) => self -> IO result-domPluginGetDescription self-  = fromJSString <$>-      (ghcjs_dom_dom_plugin_get_description-         (unDOMPlugin (toDOMPlugin self)))- -foreign import javascript unsafe "$1[\"length\"]"-        ghcjs_dom_dom_plugin_get_length :: JSRef DOMPlugin -> IO Word- -domPluginGetLength :: (IsDOMPlugin self) => self -> IO Word-domPluginGetLength self-  = ghcjs_dom_dom_plugin_get_length (unDOMPlugin (toDOMPlugin self))-#else-module GHCJS.DOM.DOMPlugin (-  module Graphics.UI.Gtk.WebKit.DOM.DOMPlugin-  ) where-import Graphics.UI.Gtk.WebKit.DOM.DOMPlugin-#endif
− src/GHCJS/DOM/DOMPluginArray.hs 
@@ -1,72 +0,0 @@-{-# LANGUAGE CPP #-}-#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.DOMPluginArray-       (ghcjs_dom_dom_plugin_array_item, domPluginArrayItem,-        ghcjs_dom_dom_plugin_array_named_item, domPluginArrayNamedItem,-        ghcjs_dom_dom_plugin_array_refresh, domPluginArrayRefresh,-        ghcjs_dom_dom_plugin_array_get_length, domPluginArrayGetLength,-        DOMPluginArray, IsDOMPluginArray, castToDOMPluginArray,-        gTypeDOMPluginArray, toDOMPluginArray)-       where-import GHCJS.Types-import GHCJS.Foreign-import GHCJS.Marshal-import Data.Int-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-- -foreign import javascript unsafe "$1[\"item\"]($2)"-        ghcjs_dom_dom_plugin_array_item ::-        JSRef DOMPluginArray -> Word -> IO (JSRef DOMPlugin)- -domPluginArrayItem ::-                   (IsDOMPluginArray self) => self -> Word -> IO (Maybe DOMPlugin)-domPluginArrayItem self index-  = fmap DOMPlugin . maybeJSNull <$>-      (ghcjs_dom_dom_plugin_array_item-         (unDOMPluginArray (toDOMPluginArray self))-         index)- -foreign import javascript unsafe "$1[\"namedItem\"]($2)"-        ghcjs_dom_dom_plugin_array_named_item ::-        JSRef DOMPluginArray -> JSString -> IO (JSRef DOMPlugin)- -domPluginArrayNamedItem ::-                        (IsDOMPluginArray self, ToJSString name) =>-                          self -> name -> IO (Maybe DOMPlugin)-domPluginArrayNamedItem self name-  = fmap DOMPlugin . maybeJSNull <$>-      (ghcjs_dom_dom_plugin_array_named_item-         (unDOMPluginArray (toDOMPluginArray self))-         (toJSString name))- -foreign import javascript unsafe "$1[\"refresh\"]($2)"-        ghcjs_dom_dom_plugin_array_refresh ::-        JSRef DOMPluginArray -> Bool -> IO ()- -domPluginArrayRefresh ::-                      (IsDOMPluginArray self) => self -> Bool -> IO ()-domPluginArrayRefresh self reload-  = ghcjs_dom_dom_plugin_array_refresh-      (unDOMPluginArray (toDOMPluginArray self))-      reload- -foreign import javascript unsafe "$1[\"length\"]"-        ghcjs_dom_dom_plugin_array_get_length ::-        JSRef DOMPluginArray -> IO Word- -domPluginArrayGetLength ::-                        (IsDOMPluginArray self) => self -> IO Word-domPluginArrayGetLength self-  = ghcjs_dom_dom_plugin_array_get_length-      (unDOMPluginArray (toDOMPluginArray self))-#else-module GHCJS.DOM.DOMPluginArray (-  module Graphics.UI.Gtk.WebKit.DOM.DOMPluginArray-  ) where-import Graphics.UI.Gtk.WebKit.DOM.DOMPluginArray-#endif
− src/GHCJS/DOM/DOMSecurityPolicy.hs 
@@ -1,235 +0,0 @@-{-# LANGUAGE CPP #-}-#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.DOMSecurityPolicy-       (ghcjs_dom_dom_security_policy_allows_connection_to,-        domSecurityPolicyAllowsConnectionTo,-        ghcjs_dom_dom_security_policy_allows_font_from,-        domSecurityPolicyAllowsFontFrom,-        ghcjs_dom_dom_security_policy_allows_form_action,-        domSecurityPolicyAllowsFormAction,-        ghcjs_dom_dom_security_policy_allows_frame_from,-        domSecurityPolicyAllowsFrameFrom,-        ghcjs_dom_dom_security_policy_allows_image_from,-        domSecurityPolicyAllowsImageFrom,-        ghcjs_dom_dom_security_policy_allows_media_from,-        domSecurityPolicyAllowsMediaFrom,-        ghcjs_dom_dom_security_policy_allows_object_from,-        domSecurityPolicyAllowsObjectFrom,-        ghcjs_dom_dom_security_policy_allows_plugin_type,-        domSecurityPolicyAllowsPluginType,-        ghcjs_dom_dom_security_policy_allows_script_from,-        domSecurityPolicyAllowsScriptFrom,-        ghcjs_dom_dom_security_policy_allows_style_from,-        domSecurityPolicyAllowsStyleFrom,-        ghcjs_dom_dom_security_policy_get_allows_eval,-        domSecurityPolicyGetAllowsEval,-        ghcjs_dom_dom_security_policy_get_allows_inline_script,-        domSecurityPolicyGetAllowsInlineScript,-        ghcjs_dom_dom_security_policy_get_allows_inline_style,-        domSecurityPolicyGetAllowsInlineStyle,-        ghcjs_dom_dom_security_policy_get_is_active,-        domSecurityPolicyGetIsActive,-        ghcjs_dom_dom_security_policy_get_report_ur_is,-        domSecurityPolicyGetReportURIs, DOMSecurityPolicy,-        IsDOMSecurityPolicy, castToDOMSecurityPolicy,-        gTypeDOMSecurityPolicy, toDOMSecurityPolicy)-       where-import GHCJS.Types-import GHCJS.Foreign-import GHCJS.Marshal-import Data.Int-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-- -foreign import javascript unsafe-        "($1[\"allowsConnectionTo\"]($2) ? 1 : 0)"-        ghcjs_dom_dom_security_policy_allows_connection_to ::-        JSRef DOMSecurityPolicy -> JSString -> IO Bool- -domSecurityPolicyAllowsConnectionTo ::-                                    (IsDOMSecurityPolicy self, ToJSString url) =>-                                      self -> url -> IO Bool-domSecurityPolicyAllowsConnectionTo self url-  = ghcjs_dom_dom_security_policy_allows_connection_to-      (unDOMSecurityPolicy (toDOMSecurityPolicy self))-      (toJSString url)- -foreign import javascript unsafe-        "($1[\"allowsFontFrom\"]($2) ? 1 : 0)"-        ghcjs_dom_dom_security_policy_allows_font_from ::-        JSRef DOMSecurityPolicy -> JSString -> IO Bool- -domSecurityPolicyAllowsFontFrom ::-                                (IsDOMSecurityPolicy self, ToJSString url) =>-                                  self -> url -> IO Bool-domSecurityPolicyAllowsFontFrom self url-  = ghcjs_dom_dom_security_policy_allows_font_from-      (unDOMSecurityPolicy (toDOMSecurityPolicy self))-      (toJSString url)- -foreign import javascript unsafe-        "($1[\"allowsFormAction\"]($2) ? 1 : 0)"-        ghcjs_dom_dom_security_policy_allows_form_action ::-        JSRef DOMSecurityPolicy -> JSString -> IO Bool- -domSecurityPolicyAllowsFormAction ::-                                  (IsDOMSecurityPolicy self, ToJSString url) =>-                                    self -> url -> IO Bool-domSecurityPolicyAllowsFormAction self url-  = ghcjs_dom_dom_security_policy_allows_form_action-      (unDOMSecurityPolicy (toDOMSecurityPolicy self))-      (toJSString url)- -foreign import javascript unsafe-        "($1[\"allowsFrameFrom\"]($2) ? 1 : 0)"-        ghcjs_dom_dom_security_policy_allows_frame_from ::-        JSRef DOMSecurityPolicy -> JSString -> IO Bool- -domSecurityPolicyAllowsFrameFrom ::-                                 (IsDOMSecurityPolicy self, ToJSString url) =>-                                   self -> url -> IO Bool-domSecurityPolicyAllowsFrameFrom self url-  = ghcjs_dom_dom_security_policy_allows_frame_from-      (unDOMSecurityPolicy (toDOMSecurityPolicy self))-      (toJSString url)- -foreign import javascript unsafe-        "($1[\"allowsImageFrom\"]($2) ? 1 : 0)"-        ghcjs_dom_dom_security_policy_allows_image_from ::-        JSRef DOMSecurityPolicy -> JSString -> IO Bool- -domSecurityPolicyAllowsImageFrom ::-                                 (IsDOMSecurityPolicy self, ToJSString url) =>-                                   self -> url -> IO Bool-domSecurityPolicyAllowsImageFrom self url-  = ghcjs_dom_dom_security_policy_allows_image_from-      (unDOMSecurityPolicy (toDOMSecurityPolicy self))-      (toJSString url)- -foreign import javascript unsafe-        "($1[\"allowsMediaFrom\"]($2) ? 1 : 0)"-        ghcjs_dom_dom_security_policy_allows_media_from ::-        JSRef DOMSecurityPolicy -> JSString -> IO Bool- -domSecurityPolicyAllowsMediaFrom ::-                                 (IsDOMSecurityPolicy self, ToJSString url) =>-                                   self -> url -> IO Bool-domSecurityPolicyAllowsMediaFrom self url-  = ghcjs_dom_dom_security_policy_allows_media_from-      (unDOMSecurityPolicy (toDOMSecurityPolicy self))-      (toJSString url)- -foreign import javascript unsafe-        "($1[\"allowsObjectFrom\"]($2) ? 1 : 0)"-        ghcjs_dom_dom_security_policy_allows_object_from ::-        JSRef DOMSecurityPolicy -> JSString -> IO Bool- -domSecurityPolicyAllowsObjectFrom ::-                                  (IsDOMSecurityPolicy self, ToJSString url) =>-                                    self -> url -> IO Bool-domSecurityPolicyAllowsObjectFrom self url-  = ghcjs_dom_dom_security_policy_allows_object_from-      (unDOMSecurityPolicy (toDOMSecurityPolicy self))-      (toJSString url)- -foreign import javascript unsafe-        "($1[\"allowsPluginType\"]($2) ? 1 : 0)"-        ghcjs_dom_dom_security_policy_allows_plugin_type ::-        JSRef DOMSecurityPolicy -> JSString -> IO Bool- -domSecurityPolicyAllowsPluginType ::-                                  (IsDOMSecurityPolicy self, ToJSString type') =>-                                    self -> type' -> IO Bool-domSecurityPolicyAllowsPluginType self type'-  = ghcjs_dom_dom_security_policy_allows_plugin_type-      (unDOMSecurityPolicy (toDOMSecurityPolicy self))-      (toJSString type')- -foreign import javascript unsafe-        "($1[\"allowsScriptFrom\"]($2) ? 1 : 0)"-        ghcjs_dom_dom_security_policy_allows_script_from ::-        JSRef DOMSecurityPolicy -> JSString -> IO Bool- -domSecurityPolicyAllowsScriptFrom ::-                                  (IsDOMSecurityPolicy self, ToJSString url) =>-                                    self -> url -> IO Bool-domSecurityPolicyAllowsScriptFrom self url-  = ghcjs_dom_dom_security_policy_allows_script_from-      (unDOMSecurityPolicy (toDOMSecurityPolicy self))-      (toJSString url)- -foreign import javascript unsafe-        "($1[\"allowsStyleFrom\"]($2) ? 1 : 0)"-        ghcjs_dom_dom_security_policy_allows_style_from ::-        JSRef DOMSecurityPolicy -> JSString -> IO Bool- -domSecurityPolicyAllowsStyleFrom ::-                                 (IsDOMSecurityPolicy self, ToJSString url) =>-                                   self -> url -> IO Bool-domSecurityPolicyAllowsStyleFrom self url-  = ghcjs_dom_dom_security_policy_allows_style_from-      (unDOMSecurityPolicy (toDOMSecurityPolicy self))-      (toJSString url)- -foreign import javascript unsafe "($1[\"allowsEval\"] ? 1 : 0)"-        ghcjs_dom_dom_security_policy_get_allows_eval ::-        JSRef DOMSecurityPolicy -> IO Bool- -domSecurityPolicyGetAllowsEval ::-                               (IsDOMSecurityPolicy self) => self -> IO Bool-domSecurityPolicyGetAllowsEval self-  = ghcjs_dom_dom_security_policy_get_allows_eval-      (unDOMSecurityPolicy (toDOMSecurityPolicy self))- -foreign import javascript unsafe-        "($1[\"allowsInlineScript\"] ? 1 : 0)"-        ghcjs_dom_dom_security_policy_get_allows_inline_script ::-        JSRef DOMSecurityPolicy -> IO Bool- -domSecurityPolicyGetAllowsInlineScript ::-                                       (IsDOMSecurityPolicy self) => self -> IO Bool-domSecurityPolicyGetAllowsInlineScript self-  = ghcjs_dom_dom_security_policy_get_allows_inline_script-      (unDOMSecurityPolicy (toDOMSecurityPolicy self))- -foreign import javascript unsafe-        "($1[\"allowsInlineStyle\"] ? 1 : 0)"-        ghcjs_dom_dom_security_policy_get_allows_inline_style ::-        JSRef DOMSecurityPolicy -> IO Bool- -domSecurityPolicyGetAllowsInlineStyle ::-                                      (IsDOMSecurityPolicy self) => self -> IO Bool-domSecurityPolicyGetAllowsInlineStyle self-  = ghcjs_dom_dom_security_policy_get_allows_inline_style-      (unDOMSecurityPolicy (toDOMSecurityPolicy self))- -foreign import javascript unsafe "($1[\"isActive\"] ? 1 : 0)"-        ghcjs_dom_dom_security_policy_get_is_active ::-        JSRef DOMSecurityPolicy -> IO Bool- -domSecurityPolicyGetIsActive ::-                             (IsDOMSecurityPolicy self) => self -> IO Bool-domSecurityPolicyGetIsActive self-  = ghcjs_dom_dom_security_policy_get_is_active-      (unDOMSecurityPolicy (toDOMSecurityPolicy self))- -foreign import javascript unsafe "$1[\"reportURIs\"]"-        ghcjs_dom_dom_security_policy_get_report_ur_is ::-        JSRef DOMSecurityPolicy -> IO (JSRef DOMStringList)- -domSecurityPolicyGetReportURIs ::-                               (IsDOMSecurityPolicy self) => self -> IO (Maybe DOMStringList)-domSecurityPolicyGetReportURIs self-  = fmap DOMStringList . maybeJSNull <$>-      (ghcjs_dom_dom_security_policy_get_report_ur_is-         (unDOMSecurityPolicy (toDOMSecurityPolicy self)))-#else-module GHCJS.DOM.DOMSecurityPolicy (-  module Graphics.UI.Gtk.WebKit.DOM.DOMSecurityPolicy-  ) where-import Graphics.UI.Gtk.WebKit.DOM.DOMSecurityPolicy-#endif
− src/GHCJS/DOM/DOMSelection.hs 
@@ -1,324 +0,0 @@-{-# LANGUAGE CPP #-}-#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.DOMSelection-       (ghcjs_dom_dom_selection_collapse, domSelectionCollapse,-        ghcjs_dom_dom_selection_collapse_to_end, domSelectionCollapseToEnd,-        ghcjs_dom_dom_selection_collapse_to_start,-        domSelectionCollapseToStart,-        ghcjs_dom_dom_selection_delete_from_document,-        domSelectionDeleteFromDocument,-        ghcjs_dom_dom_selection_contains_node, domSelectionContainsNode,-        ghcjs_dom_dom_selection_select_all_children,-        domSelectionSelectAllChildren, ghcjs_dom_dom_selection_extend,-        domSelectionExtend, ghcjs_dom_dom_selection_get_range_at,-        domSelectionGetRangeAt, ghcjs_dom_dom_selection_remove_all_ranges,-        domSelectionRemoveAllRanges, ghcjs_dom_dom_selection_add_range,-        domSelectionAddRange, ghcjs_dom_dom_selection_modify,-        domSelectionModify, ghcjs_dom_dom_selection_set_base_and_extent,-        domSelectionSetBaseAndExtent, ghcjs_dom_dom_selection_set_position,-        domSelectionSetPosition, ghcjs_dom_dom_selection_empty,-        domSelectionEmpty, ghcjs_dom_dom_selection_get_anchor_node,-        domSelectionGetAnchorNode,-        ghcjs_dom_dom_selection_get_anchor_offset,-        domSelectionGetAnchorOffset,-        ghcjs_dom_dom_selection_get_focus_node, domSelectionGetFocusNode,-        ghcjs_dom_dom_selection_get_focus_offset,-        domSelectionGetFocusOffset,-        ghcjs_dom_dom_selection_get_is_collapsed,-        domSelectionGetIsCollapsed,-        ghcjs_dom_dom_selection_get_range_count, domSelectionGetRangeCount,-        ghcjs_dom_dom_selection_get_base_node, domSelectionGetBaseNode,-        ghcjs_dom_dom_selection_get_base_offset, domSelectionGetBaseOffset,-        ghcjs_dom_dom_selection_get_extent_node, domSelectionGetExtentNode,-        ghcjs_dom_dom_selection_get_extent_offset,-        domSelectionGetExtentOffset, DOMSelection, IsDOMSelection,-        castToDOMSelection, gTypeDOMSelection, toDOMSelection)-       where-import GHCJS.Types-import GHCJS.Foreign-import GHCJS.Marshal-import Data.Int-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-- -foreign import javascript unsafe "$1[\"collapse\"]($2, $3)"-        ghcjs_dom_dom_selection_collapse ::-        JSRef DOMSelection -> JSRef Node -> Int -> IO ()- -domSelectionCollapse ::-                     (IsDOMSelection self, IsNode node) =>-                       self -> Maybe node -> Int -> IO ()-domSelectionCollapse self node index-  = ghcjs_dom_dom_selection_collapse-      (unDOMSelection (toDOMSelection self))-      (maybe jsNull (unNode . toNode) node)-      index- -foreign import javascript unsafe "$1[\"collapseToEnd\"]()"-        ghcjs_dom_dom_selection_collapse_to_end ::-        JSRef DOMSelection -> IO ()- -domSelectionCollapseToEnd :: (IsDOMSelection self) => self -> IO ()-domSelectionCollapseToEnd self-  = ghcjs_dom_dom_selection_collapse_to_end-      (unDOMSelection (toDOMSelection self))- -foreign import javascript unsafe "$1[\"collapseToStart\"]()"-        ghcjs_dom_dom_selection_collapse_to_start ::-        JSRef DOMSelection -> IO ()- -domSelectionCollapseToStart ::-                            (IsDOMSelection self) => self -> IO ()-domSelectionCollapseToStart self-  = ghcjs_dom_dom_selection_collapse_to_start-      (unDOMSelection (toDOMSelection self))- -foreign import javascript unsafe "$1[\"deleteFromDocument\"]()"-        ghcjs_dom_dom_selection_delete_from_document ::-        JSRef DOMSelection -> IO ()- -domSelectionDeleteFromDocument ::-                               (IsDOMSelection self) => self -> IO ()-domSelectionDeleteFromDocument self-  = ghcjs_dom_dom_selection_delete_from_document-      (unDOMSelection (toDOMSelection self))- -foreign import javascript unsafe-        "($1[\"containsNode\"]($2,\n$3) ? 1 : 0)"-        ghcjs_dom_dom_selection_contains_node ::-        JSRef DOMSelection -> JSRef Node -> Bool -> IO Bool- -domSelectionContainsNode ::-                         (IsDOMSelection self, IsNode node) =>-                           self -> Maybe node -> Bool -> IO Bool-domSelectionContainsNode self node allowPartial-  = ghcjs_dom_dom_selection_contains_node-      (unDOMSelection (toDOMSelection self))-      (maybe jsNull (unNode . toNode) node)-      allowPartial- -foreign import javascript unsafe "$1[\"selectAllChildren\"]($2)"-        ghcjs_dom_dom_selection_select_all_children ::-        JSRef DOMSelection -> JSRef Node -> IO ()- -domSelectionSelectAllChildren ::-                              (IsDOMSelection self, IsNode node) => self -> Maybe node -> IO ()-domSelectionSelectAllChildren self node-  = ghcjs_dom_dom_selection_select_all_children-      (unDOMSelection (toDOMSelection self))-      (maybe jsNull (unNode . toNode) node)- -foreign import javascript unsafe "$1[\"extend\"]($2, $3)"-        ghcjs_dom_dom_selection_extend ::-        JSRef DOMSelection -> JSRef Node -> Int -> IO ()- -domSelectionExtend ::-                   (IsDOMSelection self, IsNode node) =>-                     self -> Maybe node -> Int -> IO ()-domSelectionExtend self node offset-  = ghcjs_dom_dom_selection_extend-      (unDOMSelection (toDOMSelection self))-      (maybe jsNull (unNode . toNode) node)-      offset- -foreign import javascript unsafe "$1[\"getRangeAt\"]($2)"-        ghcjs_dom_dom_selection_get_range_at ::-        JSRef DOMSelection -> Int -> IO (JSRef DOMRange)- -domSelectionGetRangeAt ::-                       (IsDOMSelection self) => self -> Int -> IO (Maybe DOMRange)-domSelectionGetRangeAt self index-  = fmap DOMRange . maybeJSNull <$>-      (ghcjs_dom_dom_selection_get_range_at-         (unDOMSelection (toDOMSelection self))-         index)- -foreign import javascript unsafe "$1[\"removeAllRanges\"]()"-        ghcjs_dom_dom_selection_remove_all_ranges ::-        JSRef DOMSelection -> IO ()- -domSelectionRemoveAllRanges ::-                            (IsDOMSelection self) => self -> IO ()-domSelectionRemoveAllRanges self-  = ghcjs_dom_dom_selection_remove_all_ranges-      (unDOMSelection (toDOMSelection self))- -foreign import javascript unsafe "$1[\"addRange\"]($2)"-        ghcjs_dom_dom_selection_add_range ::-        JSRef DOMSelection -> JSRef DOMRange -> IO ()- -domSelectionAddRange ::-                     (IsDOMSelection self, IsDOMRange range) =>-                       self -> Maybe range -> IO ()-domSelectionAddRange self range-  = ghcjs_dom_dom_selection_add_range-      (unDOMSelection (toDOMSelection self))-      (maybe jsNull (unDOMRange . toDOMRange) range)- -foreign import javascript unsafe "$1[\"modify\"]($2, $3, $4)"-        ghcjs_dom_dom_selection_modify ::-        JSRef DOMSelection -> JSString -> JSString -> JSString -> IO ()- -domSelectionModify ::-                   (IsDOMSelection self, ToJSString alter, ToJSString direction,-                    ToJSString granularity) =>-                     self -> alter -> direction -> granularity -> IO ()-domSelectionModify self alter direction granularity-  = ghcjs_dom_dom_selection_modify-      (unDOMSelection (toDOMSelection self))-      (toJSString alter)-      (toJSString direction)-      (toJSString granularity)- -foreign import javascript unsafe-        "$1[\"setBaseAndExtent\"]($2, $3,\n$4, $5)"-        ghcjs_dom_dom_selection_set_base_and_extent ::-        JSRef DOMSelection ->-          JSRef Node -> Int -> JSRef Node -> Int -> IO ()- -domSelectionSetBaseAndExtent ::-                             (IsDOMSelection self, IsNode baseNode, IsNode extentNode) =>-                               self -> Maybe baseNode -> Int -> Maybe extentNode -> Int -> IO ()-domSelectionSetBaseAndExtent self baseNode baseOffset extentNode-  extentOffset-  = ghcjs_dom_dom_selection_set_base_and_extent-      (unDOMSelection (toDOMSelection self))-      (maybe jsNull (unNode . toNode) baseNode)-      baseOffset-      (maybe jsNull (unNode . toNode) extentNode)-      extentOffset- -foreign import javascript unsafe "$1[\"setPosition\"]($2, $3)"-        ghcjs_dom_dom_selection_set_position ::-        JSRef DOMSelection -> JSRef Node -> Int -> IO ()- -domSelectionSetPosition ::-                        (IsDOMSelection self, IsNode node) =>-                          self -> Maybe node -> Int -> IO ()-domSelectionSetPosition self node offset-  = ghcjs_dom_dom_selection_set_position-      (unDOMSelection (toDOMSelection self))-      (maybe jsNull (unNode . toNode) node)-      offset- -foreign import javascript unsafe "$1[\"empty\"]()"-        ghcjs_dom_dom_selection_empty :: JSRef DOMSelection -> IO ()- -domSelectionEmpty :: (IsDOMSelection self) => self -> IO ()-domSelectionEmpty self-  = ghcjs_dom_dom_selection_empty-      (unDOMSelection (toDOMSelection self))- -foreign import javascript unsafe "$1[\"anchorNode\"]"-        ghcjs_dom_dom_selection_get_anchor_node ::-        JSRef DOMSelection -> IO (JSRef Node)- -domSelectionGetAnchorNode ::-                          (IsDOMSelection self) => self -> IO (Maybe Node)-domSelectionGetAnchorNode self-  = fmap Node . maybeJSNull <$>-      (ghcjs_dom_dom_selection_get_anchor_node-         (unDOMSelection (toDOMSelection self)))- -foreign import javascript unsafe "$1[\"anchorOffset\"]"-        ghcjs_dom_dom_selection_get_anchor_offset ::-        JSRef DOMSelection -> IO Int- -domSelectionGetAnchorOffset ::-                            (IsDOMSelection self) => self -> IO Int-domSelectionGetAnchorOffset self-  = ghcjs_dom_dom_selection_get_anchor_offset-      (unDOMSelection (toDOMSelection self))- -foreign import javascript unsafe "$1[\"focusNode\"]"-        ghcjs_dom_dom_selection_get_focus_node ::-        JSRef DOMSelection -> IO (JSRef Node)- -domSelectionGetFocusNode ::-                         (IsDOMSelection self) => self -> IO (Maybe Node)-domSelectionGetFocusNode self-  = fmap Node . maybeJSNull <$>-      (ghcjs_dom_dom_selection_get_focus_node-         (unDOMSelection (toDOMSelection self)))- -foreign import javascript unsafe "$1[\"focusOffset\"]"-        ghcjs_dom_dom_selection_get_focus_offset ::-        JSRef DOMSelection -> IO Int- -domSelectionGetFocusOffset ::-                           (IsDOMSelection self) => self -> IO Int-domSelectionGetFocusOffset self-  = ghcjs_dom_dom_selection_get_focus_offset-      (unDOMSelection (toDOMSelection self))- -foreign import javascript unsafe "($1[\"isCollapsed\"] ? 1 : 0)"-        ghcjs_dom_dom_selection_get_is_collapsed ::-        JSRef DOMSelection -> IO Bool- -domSelectionGetIsCollapsed ::-                           (IsDOMSelection self) => self -> IO Bool-domSelectionGetIsCollapsed self-  = ghcjs_dom_dom_selection_get_is_collapsed-      (unDOMSelection (toDOMSelection self))- -foreign import javascript unsafe "$1[\"rangeCount\"]"-        ghcjs_dom_dom_selection_get_range_count ::-        JSRef DOMSelection -> IO Int- -domSelectionGetRangeCount ::-                          (IsDOMSelection self) => self -> IO Int-domSelectionGetRangeCount self-  = ghcjs_dom_dom_selection_get_range_count-      (unDOMSelection (toDOMSelection self))- -foreign import javascript unsafe "$1[\"baseNode\"]"-        ghcjs_dom_dom_selection_get_base_node ::-        JSRef DOMSelection -> IO (JSRef Node)- -domSelectionGetBaseNode ::-                        (IsDOMSelection self) => self -> IO (Maybe Node)-domSelectionGetBaseNode self-  = fmap Node . maybeJSNull <$>-      (ghcjs_dom_dom_selection_get_base_node-         (unDOMSelection (toDOMSelection self)))- -foreign import javascript unsafe "$1[\"baseOffset\"]"-        ghcjs_dom_dom_selection_get_base_offset ::-        JSRef DOMSelection -> IO Int- -domSelectionGetBaseOffset ::-                          (IsDOMSelection self) => self -> IO Int-domSelectionGetBaseOffset self-  = ghcjs_dom_dom_selection_get_base_offset-      (unDOMSelection (toDOMSelection self))- -foreign import javascript unsafe "$1[\"extentNode\"]"-        ghcjs_dom_dom_selection_get_extent_node ::-        JSRef DOMSelection -> IO (JSRef Node)- -domSelectionGetExtentNode ::-                          (IsDOMSelection self) => self -> IO (Maybe Node)-domSelectionGetExtentNode self-  = fmap Node . maybeJSNull <$>-      (ghcjs_dom_dom_selection_get_extent_node-         (unDOMSelection (toDOMSelection self)))- -foreign import javascript unsafe "$1[\"extentOffset\"]"-        ghcjs_dom_dom_selection_get_extent_offset ::-        JSRef DOMSelection -> IO Int- -domSelectionGetExtentOffset ::-                            (IsDOMSelection self) => self -> IO Int-domSelectionGetExtentOffset self-  = ghcjs_dom_dom_selection_get_extent_offset-      (unDOMSelection (toDOMSelection self))-#else-module GHCJS.DOM.DOMSelection (-  module Graphics.UI.Gtk.WebKit.DOM.DOMSelection-  ) where-import Graphics.UI.Gtk.WebKit.DOM.DOMSelection-#endif
src/GHCJS/DOM/DOMSettableTokenList.hs view
@@ -1,64 +1,13 @@ {-# LANGUAGE CPP #-}+module GHCJS.DOM.DOMSettableTokenList ( #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.DOMSettableTokenList-       (ghcjs_dom_dom_settable_token_list_get, domSettableTokenList_get,-        ghcjs_dom_dom_settable_token_list_set_value,-        domSettableTokenListSetValue,-        ghcjs_dom_dom_settable_token_list_get_value,-        domSettableTokenListGetValue, DOMSettableTokenList,-        IsDOMSettableTokenList, castToDOMSettableTokenList,-        gTypeDOMSettableTokenList, toDOMSettableTokenList)-       where-import GHCJS.Types-import GHCJS.Foreign-import GHCJS.Marshal-import Data.Int-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-- -foreign import javascript unsafe "$1[\"_get\"]($2)"-        ghcjs_dom_dom_settable_token_list_get ::-        JSRef DOMSettableTokenList -> Word -> IO JSString- -domSettableTokenList_get ::-                         (IsDOMSettableTokenList self, FromJSString result) =>-                           self -> Word -> IO result-domSettableTokenList_get self index-  = fromJSString <$>-      (ghcjs_dom_dom_settable_token_list_get-         (unDOMSettableTokenList (toDOMSettableTokenList self))-         index)- -foreign import javascript unsafe "$1[\"value\"] = $2;"-        ghcjs_dom_dom_settable_token_list_set_value ::-        JSRef DOMSettableTokenList -> JSString -> IO ()- -domSettableTokenListSetValue ::-                             (IsDOMSettableTokenList self, ToJSString val) =>-                               self -> val -> IO ()-domSettableTokenListSetValue self val-  = ghcjs_dom_dom_settable_token_list_set_value-      (unDOMSettableTokenList (toDOMSettableTokenList self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"value\"]"-        ghcjs_dom_dom_settable_token_list_get_value ::-        JSRef DOMSettableTokenList -> IO JSString- -domSettableTokenListGetValue ::-                             (IsDOMSettableTokenList self, FromJSString result) =>-                               self -> IO result-domSettableTokenListGetValue self-  = fromJSString <$>-      (ghcjs_dom_dom_settable_token_list_get_value-         (unDOMSettableTokenList (toDOMSettableTokenList self)))+  module GHCJS.DOM.JSFFI.Generated.DOMSettableTokenList #else-module GHCJS.DOM.DOMSettableTokenList (   module Graphics.UI.Gtk.WebKit.DOM.DOMSettableTokenList+#endif   ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.DOMSettableTokenList+#else import Graphics.UI.Gtk.WebKit.DOM.DOMSettableTokenList #endif
src/GHCJS/DOM/DOMStringList.hs view
@@ -1,59 +1,13 @@ {-# LANGUAGE CPP #-}+module GHCJS.DOM.DOMStringList ( #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.DOMStringList-       (ghcjs_dom_dom_string_list_item, domStringListItem,-        ghcjs_dom_dom_string_list_contains, domStringListContains,-        ghcjs_dom_dom_string_list_get_length, domStringListGetLength,-        DOMStringList, IsDOMStringList, castToDOMStringList,-        gTypeDOMStringList, toDOMStringList)-       where-import GHCJS.Types-import GHCJS.Foreign-import GHCJS.Marshal-import Data.Int-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-- -foreign import javascript unsafe "$1[\"item\"]($2)"-        ghcjs_dom_dom_string_list_item ::-        JSRef DOMStringList -> Word -> IO JSString- -domStringListItem ::-                  (IsDOMStringList self, FromJSString result) =>-                    self -> Word -> IO result-domStringListItem self index-  = fromJSString <$>-      (ghcjs_dom_dom_string_list_item-         (unDOMStringList (toDOMStringList self))-         index)- -foreign import javascript unsafe "($1[\"contains\"]($2) ? 1 : 0)"-        ghcjs_dom_dom_string_list_contains ::-        JSRef DOMStringList -> JSString -> IO Bool- -domStringListContains ::-                      (IsDOMStringList self, ToJSString string) =>-                        self -> string -> IO Bool-domStringListContains self string-  = ghcjs_dom_dom_string_list_contains-      (unDOMStringList (toDOMStringList self))-      (toJSString string)- -foreign import javascript unsafe "$1[\"length\"]"-        ghcjs_dom_dom_string_list_get_length ::-        JSRef DOMStringList -> IO Word- -domStringListGetLength :: (IsDOMStringList self) => self -> IO Word-domStringListGetLength self-  = ghcjs_dom_dom_string_list_get_length-      (unDOMStringList (toDOMStringList self))+  module GHCJS.DOM.JSFFI.Generated.DOMStringList #else-module GHCJS.DOM.DOMStringList (   module Graphics.UI.Gtk.WebKit.DOM.DOMStringList+#endif   ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.DOMStringList+#else import Graphics.UI.Gtk.WebKit.DOM.DOMStringList #endif
src/GHCJS/DOM/DOMTokenList.hs view
@@ -1,101 +1,13 @@ {-# LANGUAGE CPP #-}+module GHCJS.DOM.DOMTokenList ( #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.DOMTokenList-       (ghcjs_dom_dom_token_list_item, domTokenListItem,-        ghcjs_dom_dom_token_list_contains, domTokenListContains,-        ghcjs_dom_dom_token_list_add, domTokenListAdd,-        ghcjs_dom_dom_token_list_remove, domTokenListRemove,-        ghcjs_dom_dom_token_list_toggle, domTokenListToggle,-        ghcjs_dom_dom_token_list_get_length, domTokenListGetLength,-        DOMTokenList, IsDOMTokenList, castToDOMTokenList,-        gTypeDOMTokenList, toDOMTokenList)-       where-import GHCJS.Types-import GHCJS.Foreign-import GHCJS.Marshal-import Data.Int-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-- -foreign import javascript unsafe "$1[\"item\"]($2)"-        ghcjs_dom_dom_token_list_item ::-        JSRef DOMTokenList -> Word -> IO JSString- -domTokenListItem ::-                 (IsDOMTokenList self, FromJSString result) =>-                   self -> Word -> IO result-domTokenListItem self index-  = fromJSString <$>-      (ghcjs_dom_dom_token_list_item-         (unDOMTokenList (toDOMTokenList self))-         index)- -foreign import javascript unsafe "($1[\"contains\"]($2) ? 1 : 0)"-        ghcjs_dom_dom_token_list_contains ::-        JSRef DOMTokenList -> JSString -> IO Bool- -domTokenListContains ::-                     (IsDOMTokenList self, ToJSString token) => self -> token -> IO Bool-domTokenListContains self token-  = ghcjs_dom_dom_token_list_contains-      (unDOMTokenList (toDOMTokenList self))-      (toJSString token)- -foreign import javascript unsafe "$1[\"add\"].apply($1, $2)"-        ghcjs_dom_dom_token_list_add ::-        JSRef DOMTokenList -> JSRef [a] -> IO ()- -domTokenListAdd ::-                (IsDOMTokenList self, ToJSString tokens, ToJSRef tokens) =>-                  self -> [tokens] -> IO ()-domTokenListAdd self tokens-  = toJSRef tokens >>=-      \ tokens' ->-        ghcjs_dom_dom_token_list_add (unDOMTokenList (toDOMTokenList self))-          tokens'- -foreign import javascript unsafe "$1[\"remove\"].apply($1, $2)"-        ghcjs_dom_dom_token_list_remove ::-        JSRef DOMTokenList -> JSRef [a] -> IO ()- -domTokenListRemove ::-                   (IsDOMTokenList self, ToJSString tokens, ToJSRef tokens) =>-                     self -> [tokens] -> IO ()-domTokenListRemove self tokens-  = toJSRef tokens >>=-      \ tokens' ->-        ghcjs_dom_dom_token_list_remove-          (unDOMTokenList (toDOMTokenList self))-          tokens'- -foreign import javascript unsafe "($1[\"toggle\"]($2, $3) ? 1 : 0)"-        ghcjs_dom_dom_token_list_toggle ::-        JSRef DOMTokenList -> JSString -> Bool -> IO Bool- -domTokenListToggle ::-                   (IsDOMTokenList self, ToJSString token) =>-                     self -> token -> Bool -> IO Bool-domTokenListToggle self token force-  = ghcjs_dom_dom_token_list_toggle-      (unDOMTokenList (toDOMTokenList self))-      (toJSString token)-      force- -foreign import javascript unsafe "$1[\"length\"]"-        ghcjs_dom_dom_token_list_get_length ::-        JSRef DOMTokenList -> IO Word- -domTokenListGetLength :: (IsDOMTokenList self) => self -> IO Word-domTokenListGetLength self-  = ghcjs_dom_dom_token_list_get_length-      (unDOMTokenList (toDOMTokenList self))+  module GHCJS.DOM.JSFFI.Generated.DOMTokenList #else-module GHCJS.DOM.DOMTokenList (   module Graphics.UI.Gtk.WebKit.DOM.DOMTokenList+#endif   ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.DOMTokenList+#else import Graphics.UI.Gtk.WebKit.DOM.DOMTokenList #endif
− src/GHCJS/DOM/DOMWindow.hs 
@@ -1,1161 +0,0 @@-{-# LANGUAGE CPP #-}-#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.DOMWindow-       (ghcjs_dom_dom_window_get_selection, domWindowGetSelection,-        ghcjs_dom_dom_window_blur, domWindowBlur,-        ghcjs_dom_dom_window_print, domWindowPrint,-        ghcjs_dom_dom_window_stop, domWindowStop,-        ghcjs_dom_dom_window_alert, domWindowAlert,-        ghcjs_dom_dom_window_confirm, domWindowConfirm,-        ghcjs_dom_dom_window_prompt, domWindowPrompt,-        ghcjs_dom_dom_window_find, domWindowFind,-        ghcjs_dom_dom_window_scroll_by, domWindowScrollBy,-        ghcjs_dom_dom_window_scroll_to, domWindowScrollTo,-        ghcjs_dom_dom_window_scroll, domWindowScroll,-        ghcjs_dom_dom_window_move_by, domWindowMoveBy,-        ghcjs_dom_dom_window_move_to, domWindowMoveTo,-        ghcjs_dom_dom_window_resize_by, domWindowResizeBy,-        ghcjs_dom_dom_window_resize_to, domWindowResizeTo,-        ghcjs_dom_dom_window_match_media, domWindowMatchMedia,-        ghcjs_dom_dom_window_get_computed_style, domWindowGetComputedStyle,-        ghcjs_dom_dom_window_webkit_convert_point_from_page_to_node,-        domWindowWebkitConvertPointFromPageToNode,-        ghcjs_dom_dom_window_webkit_convert_point_from_node_to_page,-        domWindowWebkitConvertPointFromNodeToPage,-        ghcjs_dom_dom_window_dispatch_event, domWindowDispatchEvent,-        ghcjs_dom_dom_window_capture_events, domWindowCaptureEvents,-        ghcjs_dom_dom_window_release_events, domWindowReleaseEvents,-        ghcjs_dom_dom_window_get_screen, domWindowGetScreen,-        ghcjs_dom_dom_window_get_history, domWindowGetHistory,-        ghcjs_dom_dom_window_get_locationbar, domWindowGetLocationbar,-        ghcjs_dom_dom_window_get_menubar, domWindowGetMenubar,-        ghcjs_dom_dom_window_get_personalbar, domWindowGetPersonalbar,-        ghcjs_dom_dom_window_get_scrollbars, domWindowGetScrollbars,-        ghcjs_dom_dom_window_get_statusbar, domWindowGetStatusbar,-        ghcjs_dom_dom_window_get_toolbar, domWindowGetToolbar,-        ghcjs_dom_dom_window_get_navigator, domWindowGetNavigator,-        ghcjs_dom_dom_window_get_client_information,-        domWindowGetClientInformation,-        ghcjs_dom_dom_window_get_frame_element, domWindowGetFrameElement,-        ghcjs_dom_dom_window_get_offscreen_buffering,-        domWindowGetOffscreenBuffering,-        ghcjs_dom_dom_window_get_outer_height, domWindowGetOuterHeight,-        ghcjs_dom_dom_window_get_outer_width, domWindowGetOuterWidth,-        ghcjs_dom_dom_window_get_inner_height, domWindowGetInnerHeight,-        ghcjs_dom_dom_window_get_inner_width, domWindowGetInnerWidth,-        ghcjs_dom_dom_window_get_screen_x, domWindowGetScreenX,-        ghcjs_dom_dom_window_get_screen_y, domWindowGetScreenY,-        ghcjs_dom_dom_window_get_screen_left, domWindowGetScreenLeft,-        ghcjs_dom_dom_window_get_screen_top, domWindowGetScreenTop,-        ghcjs_dom_dom_window_get_scroll_x, domWindowGetScrollX,-        ghcjs_dom_dom_window_get_scroll_y, domWindowGetScrollY,-        ghcjs_dom_dom_window_get_page_x_offset, domWindowGetPageXOffset,-        ghcjs_dom_dom_window_get_page_y_offset, domWindowGetPageYOffset,-        ghcjs_dom_dom_window_get_closed, domWindowGetClosed,-        ghcjs_dom_dom_window_get_length, domWindowGetLength,-        ghcjs_dom_dom_window_set_name, domWindowSetName,-        ghcjs_dom_dom_window_get_name, domWindowGetName,-        ghcjs_dom_dom_window_set_status, domWindowSetStatus,-        ghcjs_dom_dom_window_get_status, domWindowGetStatus,-        ghcjs_dom_dom_window_set_default_status, domWindowSetDefaultStatus,-        ghcjs_dom_dom_window_get_default_status, domWindowGetDefaultStatus,-        ghcjs_dom_dom_window_get_self, domWindowGetSelf,-        ghcjs_dom_dom_window_get_window, domWindowGetWindow,-        ghcjs_dom_dom_window_get_frames, domWindowGetFrames,-        ghcjs_dom_dom_window_get_opener, domWindowGetOpener,-        ghcjs_dom_dom_window_get_parent, domWindowGetParent,-        ghcjs_dom_dom_window_get_top, domWindowGetTop,-        ghcjs_dom_dom_window_get_document, domWindowGetDocument,-        ghcjs_dom_dom_window_get_style_media, domWindowGetStyleMedia,-        ghcjs_dom_dom_window_get_device_pixel_ratio,-        domWindowGetDevicePixelRatio,-        ghcjs_dom_dom_window_get_application_cache,-        domWindowGetApplicationCache,-        ghcjs_dom_dom_window_get_session_storage,-        domWindowGetSessionStorage, ghcjs_dom_dom_window_get_local_storage,-        domWindowGetLocalStorage, ghcjs_dom_dom_window_get_css,-        domWindowGetCSS, domWindowOnabort, domWindowOnbeforeunload,-        domWindowOnblur, domWindowOncanplay, domWindowOncanplaythrough,-        domWindowOnchange, domWindowOnclick, domWindowOncontextmenu,-        domWindowOndblclick, domWindowOndrag, domWindowOndragend,-        domWindowOndragenter, domWindowOndragleave, domWindowOndragover,-        domWindowOndragstart, domWindowOndrop, domWindowOndurationchange,-        domWindowOnemptied, domWindowOnended, domWindowOnerror,-        domWindowOnfocus, domWindowOnhashchange, domWindowOninput,-        domWindowOninvalid, domWindowOnkeydown, domWindowOnkeypress,-        domWindowOnkeyup, domWindowOnload, domWindowOnloadeddata,-        domWindowOnloadedmetadata, domWindowOnloadstart,-        domWindowOnmessage, domWindowOnmousedown, domWindowOnmouseenter,-        domWindowOnmouseleave, domWindowOnmousemove, domWindowOnmouseout,-        domWindowOnmouseover, domWindowOnmouseup, domWindowOnmousewheel,-        domWindowOnoffline, domWindowOnonline, domWindowOnpagehide,-        domWindowOnpageshow, domWindowOnpause, domWindowOnplay,-        domWindowOnplaying, domWindowOnpopstate, domWindowOnprogress,-        domWindowOnratechange, domWindowOnresize, domWindowOnscroll,-        domWindowOnseeked, domWindowOnseeking, domWindowOnselect,-        domWindowOnstalled, domWindowOnstorage, domWindowOnsubmit,-        domWindowOnsuspend, domWindowOntimeupdate, domWindowOnunload,-        domWindowOnvolumechange, domWindowOnwaiting, domWindowOnwheel,-        domWindowOnreset, domWindowOnsearch, domWindowOnwebkitanimationend,-        domWindowOnwebkitanimationiteration,-        domWindowOnwebkitanimationstart, domWindowOnanimationend,-        domWindowOnanimationiteration, domWindowOnanimationstart,-        domWindowOnwebkittransitionend, domWindowOntransitionend,-        domWindowOntouchstart, domWindowOntouchmove, domWindowOntouchend,-        domWindowOntouchcancel, domWindowOngesturestart,-        domWindowOngesturechange, domWindowOngestureend,-        domWindowOndevicemotion, domWindowOndeviceorientation,-        domWindowOnwebkitdeviceproximity,-        domWindowOnwebkitwillrevealbottom, domWindowOnwebkitwillrevealleft,-        domWindowOnwebkitwillrevealright, domWindowOnwebkitwillrevealtop,-        DOMWindow, IsDOMWindow, castToDOMWindow, gTypeDOMWindow,-        toDOMWindow)-       where-import GHCJS.Types-import GHCJS.Foreign-import GHCJS.Marshal-import Data.Int-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-- -foreign import javascript unsafe "$1[\"getSelection\"]()"-        ghcjs_dom_dom_window_get_selection ::-        JSRef DOMWindow -> IO (JSRef DOMSelection)- -domWindowGetSelection ::-                      (IsDOMWindow self) => self -> IO (Maybe DOMSelection)-domWindowGetSelection self-  = fmap DOMSelection . maybeJSNull <$>-      (ghcjs_dom_dom_window_get_selection-         (unDOMWindow (toDOMWindow self)))- -foreign import javascript unsafe "$1[\"blur\"]()"-        ghcjs_dom_dom_window_blur :: JSRef DOMWindow -> IO ()- -domWindowBlur :: (IsDOMWindow self) => self -> IO ()-domWindowBlur self-  = ghcjs_dom_dom_window_blur (unDOMWindow (toDOMWindow self))- -foreign import javascript unsafe "$1[\"print\"]()"-        ghcjs_dom_dom_window_print :: JSRef DOMWindow -> IO ()- -domWindowPrint :: (IsDOMWindow self) => self -> IO ()-domWindowPrint self-  = ghcjs_dom_dom_window_print (unDOMWindow (toDOMWindow self))- -foreign import javascript unsafe "$1[\"stop\"]()"-        ghcjs_dom_dom_window_stop :: JSRef DOMWindow -> IO ()- -domWindowStop :: (IsDOMWindow self) => self -> IO ()-domWindowStop self-  = ghcjs_dom_dom_window_stop (unDOMWindow (toDOMWindow self))- -foreign import javascript unsafe "$1[\"alert\"]($2)"-        ghcjs_dom_dom_window_alert :: JSRef DOMWindow -> JSString -> IO ()- -domWindowAlert ::-               (IsDOMWindow self, ToJSString message) => self -> message -> IO ()-domWindowAlert self message-  = ghcjs_dom_dom_window_alert (unDOMWindow (toDOMWindow self))-      (toJSString message)- -foreign import javascript unsafe "($1[\"confirm\"]($2) ? 1 : 0)"-        ghcjs_dom_dom_window_confirm ::-        JSRef DOMWindow -> JSString -> IO Bool- -domWindowConfirm ::-                 (IsDOMWindow self, ToJSString message) =>-                   self -> message -> IO Bool-domWindowConfirm self message-  = ghcjs_dom_dom_window_confirm (unDOMWindow (toDOMWindow self))-      (toJSString message)- -foreign import javascript unsafe "$1[\"prompt\"]($2, $3)"-        ghcjs_dom_dom_window_prompt ::-        JSRef DOMWindow -> JSString -> JSString -> IO JSString- -domWindowPrompt ::-                (IsDOMWindow self, ToJSString message, ToJSString defaultValue,-                 FromJSString result) =>-                  self -> message -> defaultValue -> IO result-domWindowPrompt self message defaultValue-  = fromJSString <$>-      (ghcjs_dom_dom_window_prompt (unDOMWindow (toDOMWindow self))-         (toJSString message)-         (toJSString defaultValue))- -foreign import javascript unsafe-        "($1[\"find\"]($2, $3, $4, $5, $6,\n$7, $8) ? 1 : 0)"-        ghcjs_dom_dom_window_find ::-        JSRef DOMWindow ->-          JSString -> Bool -> Bool -> Bool -> Bool -> Bool -> Bool -> IO Bool- -domWindowFind ::-              (IsDOMWindow self, ToJSString string) =>-                self ->-                  string -> Bool -> Bool -> Bool -> Bool -> Bool -> Bool -> IO Bool-domWindowFind self string caseSensitive backwards wrap wholeWord-  searchInFrames showDialog-  = ghcjs_dom_dom_window_find (unDOMWindow (toDOMWindow self))-      (toJSString string)-      caseSensitive-      backwards-      wrap-      wholeWord-      searchInFrames-      showDialog- -foreign import javascript unsafe "$1[\"scrollBy\"]($2, $3)"-        ghcjs_dom_dom_window_scroll_by ::-        JSRef DOMWindow -> Int -> Int -> IO ()- -domWindowScrollBy ::-                  (IsDOMWindow self) => self -> Int -> Int -> IO ()-domWindowScrollBy self x y-  = ghcjs_dom_dom_window_scroll_by (unDOMWindow (toDOMWindow self)) x-      y- -foreign import javascript unsafe "$1[\"scrollTo\"]($2, $3)"-        ghcjs_dom_dom_window_scroll_to ::-        JSRef DOMWindow -> Int -> Int -> IO ()- -domWindowScrollTo ::-                  (IsDOMWindow self) => self -> Int -> Int -> IO ()-domWindowScrollTo self x y-  = ghcjs_dom_dom_window_scroll_to (unDOMWindow (toDOMWindow self)) x-      y- -foreign import javascript unsafe "$1[\"scroll\"]($2, $3)"-        ghcjs_dom_dom_window_scroll ::-        JSRef DOMWindow -> Int -> Int -> IO ()- -domWindowScroll ::-                (IsDOMWindow self) => self -> Int -> Int -> IO ()-domWindowScroll self x y-  = ghcjs_dom_dom_window_scroll (unDOMWindow (toDOMWindow self)) x y- -foreign import javascript unsafe "$1[\"moveBy\"]($2, $3)"-        ghcjs_dom_dom_window_move_by ::-        JSRef DOMWindow -> Float -> Float -> IO ()- -domWindowMoveBy ::-                (IsDOMWindow self) => self -> Float -> Float -> IO ()-domWindowMoveBy self x y-  = ghcjs_dom_dom_window_move_by (unDOMWindow (toDOMWindow self)) x y- -foreign import javascript unsafe "$1[\"moveTo\"]($2, $3)"-        ghcjs_dom_dom_window_move_to ::-        JSRef DOMWindow -> Float -> Float -> IO ()- -domWindowMoveTo ::-                (IsDOMWindow self) => self -> Float -> Float -> IO ()-domWindowMoveTo self x y-  = ghcjs_dom_dom_window_move_to (unDOMWindow (toDOMWindow self)) x y- -foreign import javascript unsafe "$1[\"resizeBy\"]($2, $3)"-        ghcjs_dom_dom_window_resize_by ::-        JSRef DOMWindow -> Float -> Float -> IO ()- -domWindowResizeBy ::-                  (IsDOMWindow self) => self -> Float -> Float -> IO ()-domWindowResizeBy self x y-  = ghcjs_dom_dom_window_resize_by (unDOMWindow (toDOMWindow self)) x-      y- -foreign import javascript unsafe "$1[\"resizeTo\"]($2, $3)"-        ghcjs_dom_dom_window_resize_to ::-        JSRef DOMWindow -> Float -> Float -> IO ()- -domWindowResizeTo ::-                  (IsDOMWindow self) => self -> Float -> Float -> IO ()-domWindowResizeTo self width height-  = ghcjs_dom_dom_window_resize_to (unDOMWindow (toDOMWindow self))-      width-      height- -foreign import javascript unsafe "$1[\"matchMedia\"]($2)"-        ghcjs_dom_dom_window_match_media ::-        JSRef DOMWindow -> JSString -> IO (JSRef MediaQueryList)- -domWindowMatchMedia ::-                    (IsDOMWindow self, ToJSString query) =>-                      self -> query -> IO (Maybe MediaQueryList)-domWindowMatchMedia self query-  = fmap MediaQueryList . maybeJSNull <$>-      (ghcjs_dom_dom_window_match_media (unDOMWindow (toDOMWindow self))-         (toJSString query))- -foreign import javascript unsafe "$1[\"getComputedStyle\"]($2, $3)"-        ghcjs_dom_dom_window_get_computed_style ::-        JSRef DOMWindow ->-          JSRef Element -> JSString -> IO (JSRef CSSStyleDeclaration)- -domWindowGetComputedStyle ::-                          (IsDOMWindow self, IsElement element, ToJSString pseudoElement) =>-                            self ->-                              Maybe element -> pseudoElement -> IO (Maybe CSSStyleDeclaration)-domWindowGetComputedStyle self element pseudoElement-  = fmap CSSStyleDeclaration . maybeJSNull <$>-      (ghcjs_dom_dom_window_get_computed_style-         (unDOMWindow (toDOMWindow self))-         (maybe jsNull (unElement . toElement) element)-         (toJSString pseudoElement))- -foreign import javascript unsafe-        "$1[\"webkitConvertPointFromPageToNode\"]($2,\n$3)"-        ghcjs_dom_dom_window_webkit_convert_point_from_page_to_node ::-        JSRef DOMWindow ->-          JSRef Node -> JSRef WebKitPoint -> IO (JSRef WebKitPoint)- -domWindowWebkitConvertPointFromPageToNode ::-                                          (IsDOMWindow self, IsNode node, IsWebKitPoint p) =>-                                            self -> Maybe node -> Maybe p -> IO (Maybe WebKitPoint)-domWindowWebkitConvertPointFromPageToNode self node p-  = fmap WebKitPoint . maybeJSNull <$>-      (ghcjs_dom_dom_window_webkit_convert_point_from_page_to_node-         (unDOMWindow (toDOMWindow self))-         (maybe jsNull (unNode . toNode) node)-         (maybe jsNull (unWebKitPoint . toWebKitPoint) p))- -foreign import javascript unsafe-        "$1[\"webkitConvertPointFromNodeToPage\"]($2,\n$3)"-        ghcjs_dom_dom_window_webkit_convert_point_from_node_to_page ::-        JSRef DOMWindow ->-          JSRef Node -> JSRef WebKitPoint -> IO (JSRef WebKitPoint)- -domWindowWebkitConvertPointFromNodeToPage ::-                                          (IsDOMWindow self, IsNode node, IsWebKitPoint p) =>-                                            self -> Maybe node -> Maybe p -> IO (Maybe WebKitPoint)-domWindowWebkitConvertPointFromNodeToPage self node p-  = fmap WebKitPoint . maybeJSNull <$>-      (ghcjs_dom_dom_window_webkit_convert_point_from_node_to_page-         (unDOMWindow (toDOMWindow self))-         (maybe jsNull (unNode . toNode) node)-         (maybe jsNull (unWebKitPoint . toWebKitPoint) p))- -foreign import javascript unsafe-        "($1[\"dispatchEvent\"]($2) ? 1 : 0)"-        ghcjs_dom_dom_window_dispatch_event ::-        JSRef DOMWindow -> JSRef Event -> IO Bool- -domWindowDispatchEvent ::-                       (IsDOMWindow self, IsEvent evt) => self -> Maybe evt -> IO Bool-domWindowDispatchEvent self evt-  = ghcjs_dom_dom_window_dispatch_event-      (unDOMWindow (toDOMWindow self))-      (maybe jsNull (unEvent . toEvent) evt)- -foreign import javascript unsafe "$1[\"captureEvents\"]()"-        ghcjs_dom_dom_window_capture_events :: JSRef DOMWindow -> IO ()- -domWindowCaptureEvents :: (IsDOMWindow self) => self -> IO ()-domWindowCaptureEvents self-  = ghcjs_dom_dom_window_capture_events-      (unDOMWindow (toDOMWindow self))- -foreign import javascript unsafe "$1[\"releaseEvents\"]()"-        ghcjs_dom_dom_window_release_events :: JSRef DOMWindow -> IO ()- -domWindowReleaseEvents :: (IsDOMWindow self) => self -> IO ()-domWindowReleaseEvents self-  = ghcjs_dom_dom_window_release_events-      (unDOMWindow (toDOMWindow self))- -foreign import javascript unsafe "$1[\"screen\"]"-        ghcjs_dom_dom_window_get_screen ::-        JSRef DOMWindow -> IO (JSRef DOMScreen)- -domWindowGetScreen ::-                   (IsDOMWindow self) => self -> IO (Maybe DOMScreen)-domWindowGetScreen self-  = fmap DOMScreen . maybeJSNull <$>-      (ghcjs_dom_dom_window_get_screen (unDOMWindow (toDOMWindow self)))- -foreign import javascript unsafe "$1[\"history\"]"-        ghcjs_dom_dom_window_get_history ::-        JSRef DOMWindow -> IO (JSRef History)- -domWindowGetHistory ::-                    (IsDOMWindow self) => self -> IO (Maybe History)-domWindowGetHistory self-  = fmap History . maybeJSNull <$>-      (ghcjs_dom_dom_window_get_history (unDOMWindow (toDOMWindow self)))- -foreign import javascript unsafe "$1[\"locationbar\"]"-        ghcjs_dom_dom_window_get_locationbar ::-        JSRef DOMWindow -> IO (JSRef BarProp)- -domWindowGetLocationbar ::-                        (IsDOMWindow self) => self -> IO (Maybe BarProp)-domWindowGetLocationbar self-  = fmap BarProp . maybeJSNull <$>-      (ghcjs_dom_dom_window_get_locationbar-         (unDOMWindow (toDOMWindow self)))- -foreign import javascript unsafe "$1[\"menubar\"]"-        ghcjs_dom_dom_window_get_menubar ::-        JSRef DOMWindow -> IO (JSRef BarProp)- -domWindowGetMenubar ::-                    (IsDOMWindow self) => self -> IO (Maybe BarProp)-domWindowGetMenubar self-  = fmap BarProp . maybeJSNull <$>-      (ghcjs_dom_dom_window_get_menubar (unDOMWindow (toDOMWindow self)))- -foreign import javascript unsafe "$1[\"personalbar\"]"-        ghcjs_dom_dom_window_get_personalbar ::-        JSRef DOMWindow -> IO (JSRef BarProp)- -domWindowGetPersonalbar ::-                        (IsDOMWindow self) => self -> IO (Maybe BarProp)-domWindowGetPersonalbar self-  = fmap BarProp . maybeJSNull <$>-      (ghcjs_dom_dom_window_get_personalbar-         (unDOMWindow (toDOMWindow self)))- -foreign import javascript unsafe "$1[\"scrollbars\"]"-        ghcjs_dom_dom_window_get_scrollbars ::-        JSRef DOMWindow -> IO (JSRef BarProp)- -domWindowGetScrollbars ::-                       (IsDOMWindow self) => self -> IO (Maybe BarProp)-domWindowGetScrollbars self-  = fmap BarProp . maybeJSNull <$>-      (ghcjs_dom_dom_window_get_scrollbars-         (unDOMWindow (toDOMWindow self)))- -foreign import javascript unsafe "$1[\"statusbar\"]"-        ghcjs_dom_dom_window_get_statusbar ::-        JSRef DOMWindow -> IO (JSRef BarProp)- -domWindowGetStatusbar ::-                      (IsDOMWindow self) => self -> IO (Maybe BarProp)-domWindowGetStatusbar self-  = fmap BarProp . maybeJSNull <$>-      (ghcjs_dom_dom_window_get_statusbar-         (unDOMWindow (toDOMWindow self)))- -foreign import javascript unsafe "$1[\"toolbar\"]"-        ghcjs_dom_dom_window_get_toolbar ::-        JSRef DOMWindow -> IO (JSRef BarProp)- -domWindowGetToolbar ::-                    (IsDOMWindow self) => self -> IO (Maybe BarProp)-domWindowGetToolbar self-  = fmap BarProp . maybeJSNull <$>-      (ghcjs_dom_dom_window_get_toolbar (unDOMWindow (toDOMWindow self)))- -foreign import javascript unsafe "$1[\"navigator\"]"-        ghcjs_dom_dom_window_get_navigator ::-        JSRef DOMWindow -> IO (JSRef Navigator)- -domWindowGetNavigator ::-                      (IsDOMWindow self) => self -> IO (Maybe Navigator)-domWindowGetNavigator self-  = fmap Navigator . maybeJSNull <$>-      (ghcjs_dom_dom_window_get_navigator-         (unDOMWindow (toDOMWindow self)))- -foreign import javascript unsafe "$1[\"clientInformation\"]"-        ghcjs_dom_dom_window_get_client_information ::-        JSRef DOMWindow -> IO (JSRef Navigator)- -domWindowGetClientInformation ::-                              (IsDOMWindow self) => self -> IO (Maybe Navigator)-domWindowGetClientInformation self-  = fmap Navigator . maybeJSNull <$>-      (ghcjs_dom_dom_window_get_client_information-         (unDOMWindow (toDOMWindow self)))- -foreign import javascript unsafe "$1[\"frameElement\"]"-        ghcjs_dom_dom_window_get_frame_element ::-        JSRef DOMWindow -> IO (JSRef Element)- -domWindowGetFrameElement ::-                         (IsDOMWindow self) => self -> IO (Maybe Element)-domWindowGetFrameElement self-  = fmap Element . maybeJSNull <$>-      (ghcjs_dom_dom_window_get_frame_element-         (unDOMWindow (toDOMWindow self)))- -foreign import javascript unsafe-        "($1[\"offscreenBuffering\"] ? 1 : 0)"-        ghcjs_dom_dom_window_get_offscreen_buffering ::-        JSRef DOMWindow -> IO Bool- -domWindowGetOffscreenBuffering ::-                               (IsDOMWindow self) => self -> IO Bool-domWindowGetOffscreenBuffering self-  = ghcjs_dom_dom_window_get_offscreen_buffering-      (unDOMWindow (toDOMWindow self))- -foreign import javascript unsafe "$1[\"outerHeight\"]"-        ghcjs_dom_dom_window_get_outer_height :: JSRef DOMWindow -> IO Int- -domWindowGetOuterHeight :: (IsDOMWindow self) => self -> IO Int-domWindowGetOuterHeight self-  = ghcjs_dom_dom_window_get_outer_height-      (unDOMWindow (toDOMWindow self))- -foreign import javascript unsafe "$1[\"outerWidth\"]"-        ghcjs_dom_dom_window_get_outer_width :: JSRef DOMWindow -> IO Int- -domWindowGetOuterWidth :: (IsDOMWindow self) => self -> IO Int-domWindowGetOuterWidth self-  = ghcjs_dom_dom_window_get_outer_width-      (unDOMWindow (toDOMWindow self))- -foreign import javascript unsafe "$1[\"innerHeight\"]"-        ghcjs_dom_dom_window_get_inner_height :: JSRef DOMWindow -> IO Int- -domWindowGetInnerHeight :: (IsDOMWindow self) => self -> IO Int-domWindowGetInnerHeight self-  = ghcjs_dom_dom_window_get_inner_height-      (unDOMWindow (toDOMWindow self))- -foreign import javascript unsafe "$1[\"innerWidth\"]"-        ghcjs_dom_dom_window_get_inner_width :: JSRef DOMWindow -> IO Int- -domWindowGetInnerWidth :: (IsDOMWindow self) => self -> IO Int-domWindowGetInnerWidth self-  = ghcjs_dom_dom_window_get_inner_width-      (unDOMWindow (toDOMWindow self))- -foreign import javascript unsafe "$1[\"screenX\"]"-        ghcjs_dom_dom_window_get_screen_x :: JSRef DOMWindow -> IO Int- -domWindowGetScreenX :: (IsDOMWindow self) => self -> IO Int-domWindowGetScreenX self-  = ghcjs_dom_dom_window_get_screen_x-      (unDOMWindow (toDOMWindow self))- -foreign import javascript unsafe "$1[\"screenY\"]"-        ghcjs_dom_dom_window_get_screen_y :: JSRef DOMWindow -> IO Int- -domWindowGetScreenY :: (IsDOMWindow self) => self -> IO Int-domWindowGetScreenY self-  = ghcjs_dom_dom_window_get_screen_y-      (unDOMWindow (toDOMWindow self))- -foreign import javascript unsafe "$1[\"screenLeft\"]"-        ghcjs_dom_dom_window_get_screen_left :: JSRef DOMWindow -> IO Int- -domWindowGetScreenLeft :: (IsDOMWindow self) => self -> IO Int-domWindowGetScreenLeft self-  = ghcjs_dom_dom_window_get_screen_left-      (unDOMWindow (toDOMWindow self))- -foreign import javascript unsafe "$1[\"screenTop\"]"-        ghcjs_dom_dom_window_get_screen_top :: JSRef DOMWindow -> IO Int- -domWindowGetScreenTop :: (IsDOMWindow self) => self -> IO Int-domWindowGetScreenTop self-  = ghcjs_dom_dom_window_get_screen_top-      (unDOMWindow (toDOMWindow self))- -foreign import javascript unsafe "$1[\"scrollX\"]"-        ghcjs_dom_dom_window_get_scroll_x :: JSRef DOMWindow -> IO Int- -domWindowGetScrollX :: (IsDOMWindow self) => self -> IO Int-domWindowGetScrollX self-  = ghcjs_dom_dom_window_get_scroll_x-      (unDOMWindow (toDOMWindow self))- -foreign import javascript unsafe "$1[\"scrollY\"]"-        ghcjs_dom_dom_window_get_scroll_y :: JSRef DOMWindow -> IO Int- -domWindowGetScrollY :: (IsDOMWindow self) => self -> IO Int-domWindowGetScrollY self-  = ghcjs_dom_dom_window_get_scroll_y-      (unDOMWindow (toDOMWindow self))- -foreign import javascript unsafe "$1[\"pageXOffset\"]"-        ghcjs_dom_dom_window_get_page_x_offset :: JSRef DOMWindow -> IO Int- -domWindowGetPageXOffset :: (IsDOMWindow self) => self -> IO Int-domWindowGetPageXOffset self-  = ghcjs_dom_dom_window_get_page_x_offset-      (unDOMWindow (toDOMWindow self))- -foreign import javascript unsafe "$1[\"pageYOffset\"]"-        ghcjs_dom_dom_window_get_page_y_offset :: JSRef DOMWindow -> IO Int- -domWindowGetPageYOffset :: (IsDOMWindow self) => self -> IO Int-domWindowGetPageYOffset self-  = ghcjs_dom_dom_window_get_page_y_offset-      (unDOMWindow (toDOMWindow self))- -foreign import javascript unsafe "($1[\"closed\"] ? 1 : 0)"-        ghcjs_dom_dom_window_get_closed :: JSRef DOMWindow -> IO Bool- -domWindowGetClosed :: (IsDOMWindow self) => self -> IO Bool-domWindowGetClosed self-  = ghcjs_dom_dom_window_get_closed (unDOMWindow (toDOMWindow self))- -foreign import javascript unsafe "$1[\"length\"]"-        ghcjs_dom_dom_window_get_length :: JSRef DOMWindow -> IO Word- -domWindowGetLength :: (IsDOMWindow self) => self -> IO Word-domWindowGetLength self-  = ghcjs_dom_dom_window_get_length (unDOMWindow (toDOMWindow self))- -foreign import javascript unsafe "$1[\"name\"] = $2;"-        ghcjs_dom_dom_window_set_name ::-        JSRef DOMWindow -> JSString -> IO ()- -domWindowSetName ::-                 (IsDOMWindow self, ToJSString val) => self -> val -> IO ()-domWindowSetName self val-  = ghcjs_dom_dom_window_set_name (unDOMWindow (toDOMWindow self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"name\"]"-        ghcjs_dom_dom_window_get_name :: JSRef DOMWindow -> IO JSString- -domWindowGetName ::-                 (IsDOMWindow self, FromJSString result) => self -> IO result-domWindowGetName self-  = fromJSString <$>-      (ghcjs_dom_dom_window_get_name (unDOMWindow (toDOMWindow self)))- -foreign import javascript unsafe "$1[\"status\"] = $2;"-        ghcjs_dom_dom_window_set_status ::-        JSRef DOMWindow -> JSString -> IO ()- -domWindowSetStatus ::-                   (IsDOMWindow self, ToJSString val) => self -> val -> IO ()-domWindowSetStatus self val-  = ghcjs_dom_dom_window_set_status (unDOMWindow (toDOMWindow self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"status\"]"-        ghcjs_dom_dom_window_get_status :: JSRef DOMWindow -> IO JSString- -domWindowGetStatus ::-                   (IsDOMWindow self, FromJSString result) => self -> IO result-domWindowGetStatus self-  = fromJSString <$>-      (ghcjs_dom_dom_window_get_status (unDOMWindow (toDOMWindow self)))- -foreign import javascript unsafe "$1[\"defaultStatus\"] = $2;"-        ghcjs_dom_dom_window_set_default_status ::-        JSRef DOMWindow -> JSString -> IO ()- -domWindowSetDefaultStatus ::-                          (IsDOMWindow self, ToJSString val) => self -> val -> IO ()-domWindowSetDefaultStatus self val-  = ghcjs_dom_dom_window_set_default_status-      (unDOMWindow (toDOMWindow self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"defaultStatus\"]"-        ghcjs_dom_dom_window_get_default_status ::-        JSRef DOMWindow -> IO JSString- -domWindowGetDefaultStatus ::-                          (IsDOMWindow self, FromJSString result) => self -> IO result-domWindowGetDefaultStatus self-  = fromJSString <$>-      (ghcjs_dom_dom_window_get_default_status-         (unDOMWindow (toDOMWindow self)))- -foreign import javascript unsafe "$1[\"self\"]"-        ghcjs_dom_dom_window_get_self ::-        JSRef DOMWindow -> IO (JSRef DOMWindow)- -domWindowGetSelf ::-                 (IsDOMWindow self) => self -> IO (Maybe DOMWindow)-domWindowGetSelf self-  = fmap DOMWindow . maybeJSNull <$>-      (ghcjs_dom_dom_window_get_self (unDOMWindow (toDOMWindow self)))- -foreign import javascript unsafe "$1[\"window\"]"-        ghcjs_dom_dom_window_get_window ::-        JSRef DOMWindow -> IO (JSRef DOMWindow)- -domWindowGetWindow ::-                   (IsDOMWindow self) => self -> IO (Maybe DOMWindow)-domWindowGetWindow self-  = fmap DOMWindow . maybeJSNull <$>-      (ghcjs_dom_dom_window_get_window (unDOMWindow (toDOMWindow self)))- -foreign import javascript unsafe "$1[\"frames\"]"-        ghcjs_dom_dom_window_get_frames ::-        JSRef DOMWindow -> IO (JSRef DOMWindow)- -domWindowGetFrames ::-                   (IsDOMWindow self) => self -> IO (Maybe DOMWindow)-domWindowGetFrames self-  = fmap DOMWindow . maybeJSNull <$>-      (ghcjs_dom_dom_window_get_frames (unDOMWindow (toDOMWindow self)))- -foreign import javascript unsafe "$1[\"opener\"]"-        ghcjs_dom_dom_window_get_opener ::-        JSRef DOMWindow -> IO (JSRef DOMWindow)- -domWindowGetOpener ::-                   (IsDOMWindow self) => self -> IO (Maybe DOMWindow)-domWindowGetOpener self-  = fmap DOMWindow . maybeJSNull <$>-      (ghcjs_dom_dom_window_get_opener (unDOMWindow (toDOMWindow self)))- -foreign import javascript unsafe "$1[\"parent\"]"-        ghcjs_dom_dom_window_get_parent ::-        JSRef DOMWindow -> IO (JSRef DOMWindow)- -domWindowGetParent ::-                   (IsDOMWindow self) => self -> IO (Maybe DOMWindow)-domWindowGetParent self-  = fmap DOMWindow . maybeJSNull <$>-      (ghcjs_dom_dom_window_get_parent (unDOMWindow (toDOMWindow self)))- -foreign import javascript unsafe "$1[\"top\"]"-        ghcjs_dom_dom_window_get_top ::-        JSRef DOMWindow -> IO (JSRef DOMWindow)- -domWindowGetTop ::-                (IsDOMWindow self) => self -> IO (Maybe DOMWindow)-domWindowGetTop self-  = fmap DOMWindow . maybeJSNull <$>-      (ghcjs_dom_dom_window_get_top (unDOMWindow (toDOMWindow self)))- -foreign import javascript unsafe "$1[\"document\"]"-        ghcjs_dom_dom_window_get_document ::-        JSRef DOMWindow -> IO (JSRef Document)- -domWindowGetDocument ::-                     (IsDOMWindow self) => self -> IO (Maybe Document)-domWindowGetDocument self-  = fmap Document . maybeJSNull <$>-      (ghcjs_dom_dom_window_get_document-         (unDOMWindow (toDOMWindow self)))- -foreign import javascript unsafe "$1[\"styleMedia\"]"-        ghcjs_dom_dom_window_get_style_media ::-        JSRef DOMWindow -> IO (JSRef StyleMedia)- -domWindowGetStyleMedia ::-                       (IsDOMWindow self) => self -> IO (Maybe StyleMedia)-domWindowGetStyleMedia self-  = fmap StyleMedia . maybeJSNull <$>-      (ghcjs_dom_dom_window_get_style_media-         (unDOMWindow (toDOMWindow self)))- -foreign import javascript unsafe "$1[\"devicePixelRatio\"]"-        ghcjs_dom_dom_window_get_device_pixel_ratio ::-        JSRef DOMWindow -> IO Double- -domWindowGetDevicePixelRatio ::-                             (IsDOMWindow self) => self -> IO Double-domWindowGetDevicePixelRatio self-  = ghcjs_dom_dom_window_get_device_pixel_ratio-      (unDOMWindow (toDOMWindow self))- -foreign import javascript unsafe "$1[\"applicationCache\"]"-        ghcjs_dom_dom_window_get_application_cache ::-        JSRef DOMWindow -> IO (JSRef DOMApplicationCache)- -domWindowGetApplicationCache ::-                             (IsDOMWindow self) => self -> IO (Maybe DOMApplicationCache)-domWindowGetApplicationCache self-  = fmap DOMApplicationCache . maybeJSNull <$>-      (ghcjs_dom_dom_window_get_application_cache-         (unDOMWindow (toDOMWindow self)))- -foreign import javascript unsafe "$1[\"sessionStorage\"]"-        ghcjs_dom_dom_window_get_session_storage ::-        JSRef DOMWindow -> IO (JSRef Storage)- -domWindowGetSessionStorage ::-                           (IsDOMWindow self) => self -> IO (Maybe Storage)-domWindowGetSessionStorage self-  = fmap Storage . maybeJSNull <$>-      (ghcjs_dom_dom_window_get_session_storage-         (unDOMWindow (toDOMWindow self)))- -foreign import javascript unsafe "$1[\"localStorage\"]"-        ghcjs_dom_dom_window_get_local_storage ::-        JSRef DOMWindow -> IO (JSRef Storage)- -domWindowGetLocalStorage ::-                         (IsDOMWindow self) => self -> IO (Maybe Storage)-domWindowGetLocalStorage self-  = fmap Storage . maybeJSNull <$>-      (ghcjs_dom_dom_window_get_local_storage-         (unDOMWindow (toDOMWindow self)))- -foreign import javascript unsafe "$1[\"CSS\"]"-        ghcjs_dom_dom_window_get_css ::-        JSRef DOMWindow -> IO (JSRef DOMWindowCSS)- -domWindowGetCSS ::-                (IsDOMWindow self) => self -> IO (Maybe DOMWindowCSS)-domWindowGetCSS self-  = fmap DOMWindowCSS . maybeJSNull <$>-      (ghcjs_dom_dom_window_get_css (unDOMWindow (toDOMWindow self)))- -domWindowOnabort ::-                 (IsDOMWindow self) => Signal self (EventM UIEvent self ())-domWindowOnabort = (connect "abort")- -domWindowOnbeforeunload ::-                        (IsDOMWindow self) => Signal self (EventM UIEvent self ())-domWindowOnbeforeunload = (connect "beforeunload")- -domWindowOnblur ::-                (IsDOMWindow self) => Signal self (EventM UIEvent self ())-domWindowOnblur = (connect "blur")- -domWindowOncanplay ::-                   (IsDOMWindow self) => Signal self (EventM UIEvent self ())-domWindowOncanplay = (connect "canplay")- -domWindowOncanplaythrough ::-                          (IsDOMWindow self) => Signal self (EventM UIEvent self ())-domWindowOncanplaythrough = (connect "canplaythrough")- -domWindowOnchange ::-                  (IsDOMWindow self) => Signal self (EventM UIEvent self ())-domWindowOnchange = (connect "change")- -domWindowOnclick ::-                 (IsDOMWindow self) => Signal self (EventM MouseEvent self ())-domWindowOnclick = (connect "click")- -domWindowOncontextmenu ::-                       (IsDOMWindow self) => Signal self (EventM MouseEvent self ())-domWindowOncontextmenu = (connect "contextmenu")- -domWindowOndblclick ::-                    (IsDOMWindow self) => Signal self (EventM MouseEvent self ())-domWindowOndblclick = (connect "dblclick")- -domWindowOndrag ::-                (IsDOMWindow self) => Signal self (EventM MouseEvent self ())-domWindowOndrag = (connect "drag")- -domWindowOndragend ::-                   (IsDOMWindow self) => Signal self (EventM MouseEvent self ())-domWindowOndragend = (connect "dragend")- -domWindowOndragenter ::-                     (IsDOMWindow self) => Signal self (EventM MouseEvent self ())-domWindowOndragenter = (connect "dragenter")- -domWindowOndragleave ::-                     (IsDOMWindow self) => Signal self (EventM MouseEvent self ())-domWindowOndragleave = (connect "dragleave")- -domWindowOndragover ::-                    (IsDOMWindow self) => Signal self (EventM MouseEvent self ())-domWindowOndragover = (connect "dragover")- -domWindowOndragstart ::-                     (IsDOMWindow self) => Signal self (EventM MouseEvent self ())-domWindowOndragstart = (connect "dragstart")- -domWindowOndrop ::-                (IsDOMWindow self) => Signal self (EventM MouseEvent self ())-domWindowOndrop = (connect "drop")- -domWindowOndurationchange ::-                          (IsDOMWindow self) => Signal self (EventM UIEvent self ())-domWindowOndurationchange = (connect "durationchange")- -domWindowOnemptied ::-                   (IsDOMWindow self) => Signal self (EventM UIEvent self ())-domWindowOnemptied = (connect "emptied")- -domWindowOnended ::-                 (IsDOMWindow self) => Signal self (EventM UIEvent self ())-domWindowOnended = (connect "ended")- -domWindowOnerror ::-                 (IsDOMWindow self) => Signal self (EventM UIEvent self ())-domWindowOnerror = (connect "error")- -domWindowOnfocus ::-                 (IsDOMWindow self) => Signal self (EventM UIEvent self ())-domWindowOnfocus = (connect "focus")- -domWindowOnhashchange ::-                      (IsDOMWindow self) => Signal self (EventM UIEvent self ())-domWindowOnhashchange = (connect "hashchange")- -domWindowOninput ::-                 (IsDOMWindow self) => Signal self (EventM UIEvent self ())-domWindowOninput = (connect "input")- -domWindowOninvalid ::-                   (IsDOMWindow self) => Signal self (EventM UIEvent self ())-domWindowOninvalid = (connect "invalid")- -domWindowOnkeydown ::-                   (IsDOMWindow self) => Signal self (EventM UIEvent self ())-domWindowOnkeydown = (connect "keydown")- -domWindowOnkeypress ::-                    (IsDOMWindow self) => Signal self (EventM UIEvent self ())-domWindowOnkeypress = (connect "keypress")- -domWindowOnkeyup ::-                 (IsDOMWindow self) => Signal self (EventM UIEvent self ())-domWindowOnkeyup = (connect "keyup")- -domWindowOnload ::-                (IsDOMWindow self) => Signal self (EventM UIEvent self ())-domWindowOnload = (connect "load")- -domWindowOnloadeddata ::-                      (IsDOMWindow self) => Signal self (EventM UIEvent self ())-domWindowOnloadeddata = (connect "loadeddata")- -domWindowOnloadedmetadata ::-                          (IsDOMWindow self) => Signal self (EventM UIEvent self ())-domWindowOnloadedmetadata = (connect "loadedmetadata")- -domWindowOnloadstart ::-                     (IsDOMWindow self) => Signal self (EventM UIEvent self ())-domWindowOnloadstart = (connect "loadstart")- -domWindowOnmessage ::-                   (IsDOMWindow self) => Signal self (EventM UIEvent self ())-domWindowOnmessage = (connect "message")- -domWindowOnmousedown ::-                     (IsDOMWindow self) => Signal self (EventM MouseEvent self ())-domWindowOnmousedown = (connect "mousedown")- -domWindowOnmouseenter ::-                      (IsDOMWindow self) => Signal self (EventM UIEvent self ())-domWindowOnmouseenter = (connect "mouseenter")- -domWindowOnmouseleave ::-                      (IsDOMWindow self) => Signal self (EventM UIEvent self ())-domWindowOnmouseleave = (connect "mouseleave")- -domWindowOnmousemove ::-                     (IsDOMWindow self) => Signal self (EventM MouseEvent self ())-domWindowOnmousemove = (connect "mousemove")- -domWindowOnmouseout ::-                    (IsDOMWindow self) => Signal self (EventM MouseEvent self ())-domWindowOnmouseout = (connect "mouseout")- -domWindowOnmouseover ::-                     (IsDOMWindow self) => Signal self (EventM MouseEvent self ())-domWindowOnmouseover = (connect "mouseover")- -domWindowOnmouseup ::-                   (IsDOMWindow self) => Signal self (EventM MouseEvent self ())-domWindowOnmouseup = (connect "mouseup")- -domWindowOnmousewheel ::-                      (IsDOMWindow self) => Signal self (EventM MouseEvent self ())-domWindowOnmousewheel = (connect "mousewheel")- -domWindowOnoffline ::-                   (IsDOMWindow self) => Signal self (EventM UIEvent self ())-domWindowOnoffline = (connect "offline")- -domWindowOnonline ::-                  (IsDOMWindow self) => Signal self (EventM UIEvent self ())-domWindowOnonline = (connect "online")- -domWindowOnpagehide ::-                    (IsDOMWindow self) => Signal self (EventM UIEvent self ())-domWindowOnpagehide = (connect "pagehide")- -domWindowOnpageshow ::-                    (IsDOMWindow self) => Signal self (EventM UIEvent self ())-domWindowOnpageshow = (connect "pageshow")- -domWindowOnpause ::-                 (IsDOMWindow self) => Signal self (EventM UIEvent self ())-domWindowOnpause = (connect "pause")- -domWindowOnplay ::-                (IsDOMWindow self) => Signal self (EventM UIEvent self ())-domWindowOnplay = (connect "play")- -domWindowOnplaying ::-                   (IsDOMWindow self) => Signal self (EventM UIEvent self ())-domWindowOnplaying = (connect "playing")- -domWindowOnpopstate ::-                    (IsDOMWindow self) => Signal self (EventM UIEvent self ())-domWindowOnpopstate = (connect "popstate")- -domWindowOnprogress ::-                    (IsDOMWindow self) => Signal self (EventM UIEvent self ())-domWindowOnprogress = (connect "progress")- -domWindowOnratechange ::-                      (IsDOMWindow self) => Signal self (EventM UIEvent self ())-domWindowOnratechange = (connect "ratechange")- -domWindowOnresize ::-                  (IsDOMWindow self) => Signal self (EventM UIEvent self ())-domWindowOnresize = (connect "resize")- -domWindowOnscroll ::-                  (IsDOMWindow self) => Signal self (EventM UIEvent self ())-domWindowOnscroll = (connect "scroll")- -domWindowOnseeked ::-                  (IsDOMWindow self) => Signal self (EventM UIEvent self ())-domWindowOnseeked = (connect "seeked")- -domWindowOnseeking ::-                   (IsDOMWindow self) => Signal self (EventM UIEvent self ())-domWindowOnseeking = (connect "seeking")- -domWindowOnselect ::-                  (IsDOMWindow self) => Signal self (EventM UIEvent self ())-domWindowOnselect = (connect "select")- -domWindowOnstalled ::-                   (IsDOMWindow self) => Signal self (EventM UIEvent self ())-domWindowOnstalled = (connect "stalled")- -domWindowOnstorage ::-                   (IsDOMWindow self) => Signal self (EventM UIEvent self ())-domWindowOnstorage = (connect "storage")- -domWindowOnsubmit ::-                  (IsDOMWindow self) => Signal self (EventM UIEvent self ())-domWindowOnsubmit = (connect "submit")- -domWindowOnsuspend ::-                   (IsDOMWindow self) => Signal self (EventM UIEvent self ())-domWindowOnsuspend = (connect "suspend")- -domWindowOntimeupdate ::-                      (IsDOMWindow self) => Signal self (EventM UIEvent self ())-domWindowOntimeupdate = (connect "timeupdate")- -domWindowOnunload ::-                  (IsDOMWindow self) => Signal self (EventM UIEvent self ())-domWindowOnunload = (connect "unload")- -domWindowOnvolumechange ::-                        (IsDOMWindow self) => Signal self (EventM UIEvent self ())-domWindowOnvolumechange = (connect "volumechange")- -domWindowOnwaiting ::-                   (IsDOMWindow self) => Signal self (EventM UIEvent self ())-domWindowOnwaiting = (connect "waiting")- -domWindowOnwheel ::-                 (IsDOMWindow self) => Signal self (EventM UIEvent self ())-domWindowOnwheel = (connect "wheel")- -domWindowOnreset ::-                 (IsDOMWindow self) => Signal self (EventM UIEvent self ())-domWindowOnreset = (connect "reset")- -domWindowOnsearch ::-                  (IsDOMWindow self) => Signal self (EventM UIEvent self ())-domWindowOnsearch = (connect "search")- -domWindowOnwebkitanimationend ::-                              (IsDOMWindow self) => Signal self (EventM UIEvent self ())-domWindowOnwebkitanimationend = (connect "webkitanimationend")- -domWindowOnwebkitanimationiteration ::-                                    (IsDOMWindow self) => Signal self (EventM UIEvent self ())-domWindowOnwebkitanimationiteration-  = (connect "webkitanimationiteration")- -domWindowOnwebkitanimationstart ::-                                (IsDOMWindow self) => Signal self (EventM UIEvent self ())-domWindowOnwebkitanimationstart = (connect "webkitanimationstart")- -domWindowOnanimationend ::-                        (IsDOMWindow self) => Signal self (EventM UIEvent self ())-domWindowOnanimationend = (connect "animationend")- -domWindowOnanimationiteration ::-                              (IsDOMWindow self) => Signal self (EventM UIEvent self ())-domWindowOnanimationiteration = (connect "animationiteration")- -domWindowOnanimationstart ::-                          (IsDOMWindow self) => Signal self (EventM UIEvent self ())-domWindowOnanimationstart = (connect "animationstart")- -domWindowOnwebkittransitionend ::-                               (IsDOMWindow self) => Signal self (EventM UIEvent self ())-domWindowOnwebkittransitionend = (connect "webkittransitionend")- -domWindowOntransitionend ::-                         (IsDOMWindow self) => Signal self (EventM UIEvent self ())-domWindowOntransitionend = (connect "transitionend")- -domWindowOntouchstart ::-                      (IsDOMWindow self) => Signal self (EventM UIEvent self ())-domWindowOntouchstart = (connect "touchstart")- -domWindowOntouchmove ::-                     (IsDOMWindow self) => Signal self (EventM UIEvent self ())-domWindowOntouchmove = (connect "touchmove")- -domWindowOntouchend ::-                    (IsDOMWindow self) => Signal self (EventM UIEvent self ())-domWindowOntouchend = (connect "touchend")- -domWindowOntouchcancel ::-                       (IsDOMWindow self) => Signal self (EventM UIEvent self ())-domWindowOntouchcancel = (connect "touchcancel")- -domWindowOngesturestart ::-                        (IsDOMWindow self) => Signal self (EventM UIEvent self ())-domWindowOngesturestart = (connect "gesturestart")- -domWindowOngesturechange ::-                         (IsDOMWindow self) => Signal self (EventM UIEvent self ())-domWindowOngesturechange = (connect "gesturechange")- -domWindowOngestureend ::-                      (IsDOMWindow self) => Signal self (EventM UIEvent self ())-domWindowOngestureend = (connect "gestureend")- -domWindowOndevicemotion ::-                        (IsDOMWindow self) => Signal self (EventM UIEvent self ())-domWindowOndevicemotion = (connect "devicemotion")- -domWindowOndeviceorientation ::-                             (IsDOMWindow self) => Signal self (EventM UIEvent self ())-domWindowOndeviceorientation = (connect "deviceorientation")- -domWindowOnwebkitdeviceproximity ::-                                 (IsDOMWindow self) => Signal self (EventM UIEvent self ())-domWindowOnwebkitdeviceproximity-  = (connect "webkitdeviceproximity")- -domWindowOnwebkitwillrevealbottom ::-                                  (IsDOMWindow self) => Signal self (EventM UIEvent self ())-domWindowOnwebkitwillrevealbottom-  = (connect "webkitwillrevealbottom")- -domWindowOnwebkitwillrevealleft ::-                                (IsDOMWindow self) => Signal self (EventM UIEvent self ())-domWindowOnwebkitwillrevealleft = (connect "webkitwillrevealleft")- -domWindowOnwebkitwillrevealright ::-                                 (IsDOMWindow self) => Signal self (EventM UIEvent self ())-domWindowOnwebkitwillrevealright-  = (connect "webkitwillrevealright")- -domWindowOnwebkitwillrevealtop ::-                               (IsDOMWindow self) => Signal self (EventM UIEvent self ())-domWindowOnwebkitwillrevealtop = (connect "webkitwillrevealtop")-#else-module GHCJS.DOM.DOMWindow (-  module Graphics.UI.Gtk.WebKit.DOM.DOMWindow-  ) where-import Graphics.UI.Gtk.WebKit.DOM.DOMWindow-#endif
− src/GHCJS/DOM/DOMWindowCSS.hs 
@@ -1,50 +0,0 @@-{-# LANGUAGE CPP #-}-#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.DOMWindowCSS-       (ghcjs_dom_dom_window_css_supports2, domWindowCSSSupports2,-        ghcjs_dom_dom_window_css_supports, domWindowCSSSupports,-        DOMWindowCSS, IsDOMWindowCSS, castToDOMWindowCSS,-        gTypeDOMWindowCSS, toDOMWindowCSS)-       where-import GHCJS.Types-import GHCJS.Foreign-import GHCJS.Marshal-import Data.Int-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-- -foreign import javascript unsafe-        "($1[\"supports\"]($2, $3) ? 1 : 0)"-        ghcjs_dom_dom_window_css_supports2 ::-        JSRef DOMWindowCSS -> JSString -> JSString -> IO Bool- -domWindowCSSSupports2 ::-                      (IsDOMWindowCSS self, ToJSString property, ToJSString value) =>-                        self -> property -> value -> IO Bool-domWindowCSSSupports2 self property value-  = ghcjs_dom_dom_window_css_supports2-      (unDOMWindowCSS (toDOMWindowCSS self))-      (toJSString property)-      (toJSString value)- -foreign import javascript unsafe "($1[\"supports\"]($2) ? 1 : 0)"-        ghcjs_dom_dom_window_css_supports ::-        JSRef DOMWindowCSS -> JSString -> IO Bool- -domWindowCSSSupports ::-                     (IsDOMWindowCSS self, ToJSString conditionText) =>-                       self -> conditionText -> IO Bool-domWindowCSSSupports self conditionText-  = ghcjs_dom_dom_window_css_supports-      (unDOMWindowCSS (toDOMWindowCSS self))-      (toJSString conditionText)-#else-module GHCJS.DOM.DOMWindowCSS (-  module Graphics.UI.Gtk.WebKit.DOM.DOMWindowCSS-  ) where-import Graphics.UI.Gtk.WebKit.DOM.DOMWindowCSS-#endif
+ src/GHCJS/DOM/DataCue.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.DataCue (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.DataCue+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.DataCue+#else+#endif
+ src/GHCJS/DOM/DataTransfer.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.DataTransfer (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.DataTransfer+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.DataTransfer+#else+#endif
+ src/GHCJS/DOM/DataTransferItem.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.DataTransferItem (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.DataTransferItem+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.DataTransferItem+#else+#endif
+ src/GHCJS/DOM/DataTransferItemList.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.DataTransferItemList (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.DataTransferItemList+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.DataTransferItemList+#else+#endif
+ src/GHCJS/DOM/Database.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.Database (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Database+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Database+#else+#endif
+ src/GHCJS/DOM/DatabaseCallback.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.DatabaseCallback (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.DatabaseCallback+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.DatabaseCallback+#else+#endif
+ src/GHCJS/DOM/DedicatedWorkerGlobalScope.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.DedicatedWorkerGlobalScope (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.DedicatedWorkerGlobalScope+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.DedicatedWorkerGlobalScope+#else+#endif
+ src/GHCJS/DOM/DelayNode.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.DelayNode (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.DelayNode+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.DelayNode+#else+#endif
+ src/GHCJS/DOM/DeviceMotionEvent.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.DeviceMotionEvent (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.DeviceMotionEvent+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.DeviceMotionEvent+#else+#endif
+ src/GHCJS/DOM/DeviceOrientationEvent.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.DeviceOrientationEvent (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.DeviceOrientationEvent+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.DeviceOrientationEvent+#else+#endif
+ src/GHCJS/DOM/DeviceProximityEvent.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.DeviceProximityEvent (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.DeviceProximityEvent+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.DeviceProximityEvent+#else+#endif
src/GHCJS/DOM/Document.hs view
@@ -1,1093 +1,13 @@ {-# LANGUAGE CPP #-}-#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.Document-       (ghcjs_dom_document_create_element, documentCreateElement,-        ghcjs_dom_document_create_document_fragment,-        documentCreateDocumentFragment,-        ghcjs_dom_document_create_text_node, documentCreateTextNode,-        ghcjs_dom_document_create_comment, documentCreateComment,-        ghcjs_dom_document_create_cdata_section,-        documentCreateCDATASection,-        ghcjs_dom_document_create_processing_instruction,-        documentCreateProcessingInstruction,-        ghcjs_dom_document_create_attribute, documentCreateAttribute,-        ghcjs_dom_document_create_entity_reference,-        documentCreateEntityReference,-        ghcjs_dom_document_get_elements_by_tag_name,-        documentGetElementsByTagName, ghcjs_dom_document_import_node,-        documentImportNode, ghcjs_dom_document_create_element_ns,-        documentCreateElementNS, ghcjs_dom_document_create_attribute_ns,-        documentCreateAttributeNS,-        ghcjs_dom_document_get_elements_by_tag_name_ns,-        documentGetElementsByTagNameNS,-        ghcjs_dom_document_get_element_by_id, documentGetElementById,-        ghcjs_dom_document_adopt_node, documentAdoptNode,-        ghcjs_dom_document_create_event, documentCreateEvent,-        ghcjs_dom_document_create_range, documentCreateRange,-        ghcjs_dom_document_create_node_iterator,-        documentCreateNodeIterator, ghcjs_dom_document_create_tree_walker,-        documentCreateTreeWalker, ghcjs_dom_document_get_override_style,-        documentGetOverrideStyle, ghcjs_dom_document_create_expression,-        documentCreateExpression, ghcjs_dom_document_create_ns_resolver,-        documentCreateNSResolver, ghcjs_dom_document_evaluate,-        documentEvaluate, ghcjs_dom_document_exec_command,-        documentExecCommand, ghcjs_dom_document_query_command_enabled,-        documentQueryCommandEnabled,-        ghcjs_dom_document_query_command_indeterm,-        documentQueryCommandIndeterm,-        ghcjs_dom_document_query_command_state, documentQueryCommandState,-        ghcjs_dom_document_query_command_supported,-        documentQueryCommandSupported,-        ghcjs_dom_document_query_command_value, documentQueryCommandValue,-        ghcjs_dom_document_get_elements_by_name, documentGetElementsByName,-        ghcjs_dom_document_element_from_point, documentElementFromPoint,-        ghcjs_dom_document_caret_range_from_point,-        documentCaretRangeFromPoint,-        ghcjs_dom_document_create_css_style_declaration,-        documentCreateCSSStyleDeclaration,-        ghcjs_dom_document_get_elements_by_class_name,-        documentGetElementsByClassName, ghcjs_dom_document_has_focus,-        documentHasFocus, ghcjs_dom_document_query_selector,-        documentQuerySelector, ghcjs_dom_document_query_selector_all,-        documentQuerySelectorAll, ghcjs_dom_document_exit_pointer_lock,-        documentExitPointerLock, ghcjs_dom_document_webkit_get_named_flows,-        documentWebkitGetNamedFlows, ghcjs_dom_document_get_doctype,-        documentGetDoctype, ghcjs_dom_document_get_implementation,-        documentGetImplementation, ghcjs_dom_document_get_document_element,-        documentGetDocumentElement, ghcjs_dom_document_get_input_encoding,-        documentGetInputEncoding, ghcjs_dom_document_get_xml_encoding,-        documentGetXmlEncoding, ghcjs_dom_document_set_xml_version,-        documentSetXmlVersion, ghcjs_dom_document_get_xml_version,-        documentGetXmlVersion, ghcjs_dom_document_set_xml_standalone,-        documentSetXmlStandalone, ghcjs_dom_document_get_xml_standalone,-        documentGetXmlStandalone, ghcjs_dom_document_set_document_uri,-        documentSetDocumentURI, ghcjs_dom_document_get_document_uri,-        documentGetDocumentURI, ghcjs_dom_document_get_default_view,-        documentGetDefaultView, ghcjs_dom_document_get_style_sheets,-        documentGetStyleSheets, ghcjs_dom_document_set_title,-        documentSetTitle, ghcjs_dom_document_get_title, documentGetTitle,-        ghcjs_dom_document_get_referrer, documentGetReferrer,-        ghcjs_dom_document_get_domain, documentGetDomain,-        ghcjs_dom_document_set_cookie, documentSetCookie,-        ghcjs_dom_document_get_cookie, documentGetCookie,-        ghcjs_dom_document_set_body, documentSetBody,-        ghcjs_dom_document_get_body, documentGetBody,-        ghcjs_dom_document_get_head, documentGetHead,-        ghcjs_dom_document_get_images, documentGetImages,-        ghcjs_dom_document_get_applets, documentGetApplets,-        ghcjs_dom_document_get_links, documentGetLinks,-        ghcjs_dom_document_get_forms, documentGetForms,-        ghcjs_dom_document_get_anchors, documentGetAnchors,-        ghcjs_dom_document_get_last_modified, documentGetLastModified,-        ghcjs_dom_document_set_charset, documentSetCharset,-        ghcjs_dom_document_get_charset, documentGetCharset,-        ghcjs_dom_document_get_default_charset, documentGetDefaultCharset,-        ghcjs_dom_document_get_ready_state, documentGetReadyState,-        ghcjs_dom_document_get_character_set, documentGetCharacterSet,-        ghcjs_dom_document_get_preferred_stylesheet_set,-        documentGetPreferredStylesheetSet,-        ghcjs_dom_document_set_selected_stylesheet_set,-        documentSetSelectedStylesheetSet,-        ghcjs_dom_document_get_selected_stylesheet_set,-        documentGetSelectedStylesheetSet,-        ghcjs_dom_document_get_active_element, documentGetActiveElement,-        ghcjs_dom_document_get_compat_mode, documentGetCompatMode,-        ghcjs_dom_document_get_pointer_lock_element,-        documentGetPointerLockElement,-        ghcjs_dom_document_get_visibility_state,-        documentGetVisibilityState, ghcjs_dom_document_get_hidden,-        documentGetHidden, ghcjs_dom_document_get_security_policy,-        documentGetSecurityPolicy, ghcjs_dom_document_get_current_script,-        documentGetCurrentScript, ghcjs_dom_document_get_origin,-        documentGetOrigin, Document, IsDocument, castToDocument,-        gTypeDocument, toDocument)-       where-import GHCJS.Types-import GHCJS.Foreign-import GHCJS.Marshal-import Data.Int-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-- -foreign import javascript unsafe "$1[\"createElement\"]($2)"-        ghcjs_dom_document_create_element ::-        JSRef Document -> JSString -> IO (JSRef Element)- -documentCreateElement ::-                      (IsDocument self, ToJSString tagName) =>-                        self -> tagName -> IO (Maybe Element)-documentCreateElement self tagName-  = fmap Element . maybeJSNull <$>-      (ghcjs_dom_document_create_element (unDocument (toDocument self))-         (toJSString tagName))- -foreign import javascript unsafe "$1[\"createDocumentFragment\"]()"-        ghcjs_dom_document_create_document_fragment ::-        JSRef Document -> IO (JSRef DocumentFragment)- -documentCreateDocumentFragment ::-                               (IsDocument self) => self -> IO (Maybe DocumentFragment)-documentCreateDocumentFragment self-  = fmap DocumentFragment . maybeJSNull <$>-      (ghcjs_dom_document_create_document_fragment-         (unDocument (toDocument self)))- -foreign import javascript unsafe "$1[\"createTextNode\"]($2)"-        ghcjs_dom_document_create_text_node ::-        JSRef Document -> JSString -> IO (JSRef Text)- -documentCreateTextNode ::-                       (IsDocument self, ToJSString data') =>-                         self -> data' -> IO (Maybe Text)-documentCreateTextNode self data'-  = fmap Text . maybeJSNull <$>-      (ghcjs_dom_document_create_text_node (unDocument (toDocument self))-         (toJSString data'))- -foreign import javascript unsafe "$1[\"createComment\"]($2)"-        ghcjs_dom_document_create_comment ::-        JSRef Document -> JSString -> IO (JSRef Comment)- -documentCreateComment ::-                      (IsDocument self, ToJSString data') =>-                        self -> data' -> IO (Maybe Comment)-documentCreateComment self data'-  = fmap Comment . maybeJSNull <$>-      (ghcjs_dom_document_create_comment (unDocument (toDocument self))-         (toJSString data'))- -foreign import javascript unsafe "$1[\"createCDATASection\"]($2)"-        ghcjs_dom_document_create_cdata_section ::-        JSRef Document -> JSString -> IO (JSRef CDATASection)- -documentCreateCDATASection ::-                           (IsDocument self, ToJSString data') =>-                             self -> data' -> IO (Maybe CDATASection)-documentCreateCDATASection self data'-  = fmap CDATASection . maybeJSNull <$>-      (ghcjs_dom_document_create_cdata_section-         (unDocument (toDocument self))-         (toJSString data'))- -foreign import javascript unsafe-        "$1[\"createProcessingInstruction\"]($2,\n$3)"-        ghcjs_dom_document_create_processing_instruction ::-        JSRef Document ->-          JSString -> JSString -> IO (JSRef ProcessingInstruction)- -documentCreateProcessingInstruction ::-                                    (IsDocument self, ToJSString target, ToJSString data') =>-                                      self -> target -> data' -> IO (Maybe ProcessingInstruction)-documentCreateProcessingInstruction self target data'-  = fmap ProcessingInstruction . maybeJSNull <$>-      (ghcjs_dom_document_create_processing_instruction-         (unDocument (toDocument self))-         (toJSString target)-         (toJSString data'))- -foreign import javascript unsafe "$1[\"createAttribute\"]($2)"-        ghcjs_dom_document_create_attribute ::-        JSRef Document -> JSString -> IO (JSRef DOMAttr)- -documentCreateAttribute ::-                        (IsDocument self, ToJSString name) =>-                          self -> name -> IO (Maybe DOMAttr)-documentCreateAttribute self name-  = fmap DOMAttr . maybeJSNull <$>-      (ghcjs_dom_document_create_attribute (unDocument (toDocument self))-         (toJSString name))- -foreign import javascript unsafe-        "$1[\"createEntityReference\"]($2)"-        ghcjs_dom_document_create_entity_reference ::-        JSRef Document -> JSString -> IO (JSRef EntityReference)- -documentCreateEntityReference ::-                              (IsDocument self, ToJSString name) =>-                                self -> name -> IO (Maybe EntityReference)-documentCreateEntityReference self name-  = fmap EntityReference . maybeJSNull <$>-      (ghcjs_dom_document_create_entity_reference-         (unDocument (toDocument self))-         (toJSString name))- -foreign import javascript unsafe "$1[\"getElementsByTagName\"]($2)"-        ghcjs_dom_document_get_elements_by_tag_name ::-        JSRef Document -> JSString -> IO (JSRef NodeList)- -documentGetElementsByTagName ::-                             (IsDocument self, ToJSString tagname) =>-                               self -> tagname -> IO (Maybe NodeList)-documentGetElementsByTagName self tagname-  = fmap NodeList . maybeJSNull <$>-      (ghcjs_dom_document_get_elements_by_tag_name-         (unDocument (toDocument self))-         (toJSString tagname))- -foreign import javascript unsafe "$1[\"importNode\"]($2, $3)"-        ghcjs_dom_document_import_node ::-        JSRef Document -> JSRef Node -> Bool -> IO (JSRef Node)- -documentImportNode ::-                   (IsDocument self, IsNode importedNode) =>-                     self -> Maybe importedNode -> Bool -> IO (Maybe Node)-documentImportNode self importedNode deep-  = fmap Node . maybeJSNull <$>-      (ghcjs_dom_document_import_node (unDocument (toDocument self))-         (maybe jsNull (unNode . toNode) importedNode)-         deep)- -foreign import javascript unsafe "$1[\"createElementNS\"]($2, $3)"-        ghcjs_dom_document_create_element_ns ::-        JSRef Document -> JSString -> JSString -> IO (JSRef Element)- -documentCreateElementNS ::-                        (IsDocument self, ToJSString namespaceURI,-                         ToJSString qualifiedName) =>-                          self -> namespaceURI -> qualifiedName -> IO (Maybe Element)-documentCreateElementNS self namespaceURI qualifiedName-  = fmap Element . maybeJSNull <$>-      (ghcjs_dom_document_create_element_ns-         (unDocument (toDocument self))-         (toJSString namespaceURI)-         (toJSString qualifiedName))- -foreign import javascript unsafe-        "$1[\"createAttributeNS\"]($2, $3)"-        ghcjs_dom_document_create_attribute_ns ::-        JSRef Document -> JSString -> JSString -> IO (JSRef DOMAttr)- -documentCreateAttributeNS ::-                          (IsDocument self, ToJSString namespaceURI,-                           ToJSString qualifiedName) =>-                            self -> namespaceURI -> qualifiedName -> IO (Maybe DOMAttr)-documentCreateAttributeNS self namespaceURI qualifiedName-  = fmap DOMAttr . maybeJSNull <$>-      (ghcjs_dom_document_create_attribute_ns-         (unDocument (toDocument self))-         (toJSString namespaceURI)-         (toJSString qualifiedName))- -foreign import javascript unsafe-        "$1[\"getElementsByTagNameNS\"]($2,\n$3)"-        ghcjs_dom_document_get_elements_by_tag_name_ns ::-        JSRef Document -> JSString -> JSString -> IO (JSRef NodeList)- -documentGetElementsByTagNameNS ::-                               (IsDocument self, ToJSString namespaceURI, ToJSString localName) =>-                                 self -> namespaceURI -> localName -> IO (Maybe NodeList)-documentGetElementsByTagNameNS self namespaceURI localName-  = fmap NodeList . maybeJSNull <$>-      (ghcjs_dom_document_get_elements_by_tag_name_ns-         (unDocument (toDocument self))-         (toJSString namespaceURI)-         (toJSString localName))- -foreign import javascript unsafe "$1[\"getElementById\"]($2)"-        ghcjs_dom_document_get_element_by_id ::-        JSRef Document -> JSString -> IO (JSRef Element)- -documentGetElementById ::-                       (IsDocument self, ToJSString elementId) =>-                         self -> elementId -> IO (Maybe Element)-documentGetElementById self elementId-  = fmap Element . maybeJSNull <$>-      (ghcjs_dom_document_get_element_by_id-         (unDocument (toDocument self))-         (toJSString elementId))- -foreign import javascript unsafe "$1[\"adoptNode\"]($2)"-        ghcjs_dom_document_adopt_node ::-        JSRef Document -> JSRef Node -> IO (JSRef Node)- -documentAdoptNode ::-                  (IsDocument self, IsNode source) =>-                    self -> Maybe source -> IO (Maybe Node)-documentAdoptNode self source-  = fmap Node . maybeJSNull <$>-      (ghcjs_dom_document_adopt_node (unDocument (toDocument self))-         (maybe jsNull (unNode . toNode) source))- -foreign import javascript unsafe "$1[\"createEvent\"]($2)"-        ghcjs_dom_document_create_event ::-        JSRef Document -> JSString -> IO (JSRef Event)- -documentCreateEvent ::-                    (IsDocument self, ToJSString eventType) =>-                      self -> eventType -> IO (Maybe Event)-documentCreateEvent self eventType-  = fmap Event . maybeJSNull <$>-      (ghcjs_dom_document_create_event (unDocument (toDocument self))-         (toJSString eventType))- -foreign import javascript unsafe "$1[\"createRange\"]()"-        ghcjs_dom_document_create_range ::-        JSRef Document -> IO (JSRef DOMRange)- -documentCreateRange ::-                    (IsDocument self) => self -> IO (Maybe DOMRange)-documentCreateRange self-  = fmap DOMRange . maybeJSNull <$>-      (ghcjs_dom_document_create_range (unDocument (toDocument self)))- -foreign import javascript unsafe-        "$1[\"createNodeIterator\"]($2, $3,\n$4, $5)"-        ghcjs_dom_document_create_node_iterator ::-        JSRef Document ->-          JSRef Node ->-            Word -> JSRef NodeFilter -> Bool -> IO (JSRef NodeIterator)- -documentCreateNodeIterator ::-                           (IsDocument self, IsNode root, IsNodeFilter filter) =>-                             self ->-                               Maybe root ->-                                 Word -> Maybe filter -> Bool -> IO (Maybe NodeIterator)-documentCreateNodeIterator self root whatToShow filter-  expandEntityReferences-  = fmap NodeIterator . maybeJSNull <$>-      (ghcjs_dom_document_create_node_iterator-         (unDocument (toDocument self))-         (maybe jsNull (unNode . toNode) root)-         whatToShow-         (maybe jsNull (unNodeFilter . toNodeFilter) filter)-         expandEntityReferences)- -foreign import javascript unsafe-        "$1[\"createTreeWalker\"]($2, $3,\n$4, $5)"-        ghcjs_dom_document_create_tree_walker ::-        JSRef Document ->-          JSRef Node ->-            Word -> JSRef NodeFilter -> Bool -> IO (JSRef TreeWalker)- -documentCreateTreeWalker ::-                         (IsDocument self, IsNode root, IsNodeFilter filter) =>-                           self ->-                             Maybe root -> Word -> Maybe filter -> Bool -> IO (Maybe TreeWalker)-documentCreateTreeWalker self root whatToShow filter-  expandEntityReferences-  = fmap TreeWalker . maybeJSNull <$>-      (ghcjs_dom_document_create_tree_walker-         (unDocument (toDocument self))-         (maybe jsNull (unNode . toNode) root)-         whatToShow-         (maybe jsNull (unNodeFilter . toNodeFilter) filter)-         expandEntityReferences)- -foreign import javascript unsafe "$1[\"getOverrideStyle\"]($2, $3)"-        ghcjs_dom_document_get_override_style ::-        JSRef Document ->-          JSRef Element -> JSString -> IO (JSRef CSSStyleDeclaration)- -documentGetOverrideStyle ::-                         (IsDocument self, IsElement element, ToJSString pseudoElement) =>-                           self ->-                             Maybe element -> pseudoElement -> IO (Maybe CSSStyleDeclaration)-documentGetOverrideStyle self element pseudoElement-  = fmap CSSStyleDeclaration . maybeJSNull <$>-      (ghcjs_dom_document_get_override_style-         (unDocument (toDocument self))-         (maybe jsNull (unElement . toElement) element)-         (toJSString pseudoElement))- -foreign import javascript unsafe "$1[\"createExpression\"]($2, $3)"-        ghcjs_dom_document_create_expression ::-        JSRef Document ->-          JSString -> JSRef XPathNSResolver -> IO (JSRef XPathExpression)- -documentCreateExpression ::-                         (IsDocument self, ToJSString expression,-                          IsXPathNSResolver resolver) =>-                           self -> expression -> Maybe resolver -> IO (Maybe XPathExpression)-documentCreateExpression self expression resolver-  = fmap XPathExpression . maybeJSNull <$>-      (ghcjs_dom_document_create_expression-         (unDocument (toDocument self))-         (toJSString expression)-         (maybe jsNull (unXPathNSResolver . toXPathNSResolver) resolver))- -foreign import javascript unsafe "$1[\"createNSResolver\"]($2)"-        ghcjs_dom_document_create_ns_resolver ::-        JSRef Document -> JSRef Node -> IO (JSRef XPathNSResolver)- -documentCreateNSResolver ::-                         (IsDocument self, IsNode nodeResolver) =>-                           self -> Maybe nodeResolver -> IO (Maybe XPathNSResolver)-documentCreateNSResolver self nodeResolver-  = fmap XPathNSResolver . maybeJSNull <$>-      (ghcjs_dom_document_create_ns_resolver-         (unDocument (toDocument self))-         (maybe jsNull (unNode . toNode) nodeResolver))- -foreign import javascript unsafe-        "$1[\"evaluate\"]($2, $3, $4, $5,\n$6)" ghcjs_dom_document_evaluate-        ::-        JSRef Document ->-          JSString ->-            JSRef Node ->-              JSRef XPathNSResolver ->-                Word -> JSRef XPathResult -> IO (JSRef XPathResult)- -documentEvaluate ::-                 (IsDocument self, ToJSString expression, IsNode contextNode,-                  IsXPathNSResolver resolver, IsXPathResult inResult) =>-                   self ->-                     expression ->-                       Maybe contextNode ->-                         Maybe resolver -> Word -> Maybe inResult -> IO (Maybe XPathResult)-documentEvaluate self expression contextNode resolver type'-  inResult-  = fmap XPathResult . maybeJSNull <$>-      (ghcjs_dom_document_evaluate (unDocument (toDocument self))-         (toJSString expression)-         (maybe jsNull (unNode . toNode) contextNode)-         (maybe jsNull (unXPathNSResolver . toXPathNSResolver) resolver)-         type'-         (maybe jsNull (unXPathResult . toXPathResult) inResult))- -foreign import javascript unsafe-        "($1[\"execCommand\"]($2, $3,\n$4) ? 1 : 0)"-        ghcjs_dom_document_exec_command ::-        JSRef Document -> JSString -> Bool -> JSString -> IO Bool- -documentExecCommand ::-                    (IsDocument self, ToJSString command, ToJSString value) =>-                      self -> command -> Bool -> value -> IO Bool-documentExecCommand self command userInterface value-  = ghcjs_dom_document_exec_command (unDocument (toDocument self))-      (toJSString command)-      userInterface-      (toJSString value)- -foreign import javascript unsafe-        "($1[\"queryCommandEnabled\"]($2) ? 1 : 0)"-        ghcjs_dom_document_query_command_enabled ::-        JSRef Document -> JSString -> IO Bool- -documentQueryCommandEnabled ::-                            (IsDocument self, ToJSString command) => self -> command -> IO Bool-documentQueryCommandEnabled self command-  = ghcjs_dom_document_query_command_enabled-      (unDocument (toDocument self))-      (toJSString command)- -foreign import javascript unsafe-        "($1[\"queryCommandIndeterm\"]($2) ? 1 : 0)"-        ghcjs_dom_document_query_command_indeterm ::-        JSRef Document -> JSString -> IO Bool- -documentQueryCommandIndeterm ::-                             (IsDocument self, ToJSString command) => self -> command -> IO Bool-documentQueryCommandIndeterm self command-  = ghcjs_dom_document_query_command_indeterm-      (unDocument (toDocument self))-      (toJSString command)- -foreign import javascript unsafe-        "($1[\"queryCommandState\"]($2) ? 1 : 0)"-        ghcjs_dom_document_query_command_state ::-        JSRef Document -> JSString -> IO Bool- -documentQueryCommandState ::-                          (IsDocument self, ToJSString command) => self -> command -> IO Bool-documentQueryCommandState self command-  = ghcjs_dom_document_query_command_state-      (unDocument (toDocument self))-      (toJSString command)- -foreign import javascript unsafe-        "($1[\"queryCommandSupported\"]($2) ? 1 : 0)"-        ghcjs_dom_document_query_command_supported ::-        JSRef Document -> JSString -> IO Bool- -documentQueryCommandSupported ::-                              (IsDocument self, ToJSString command) => self -> command -> IO Bool-documentQueryCommandSupported self command-  = ghcjs_dom_document_query_command_supported-      (unDocument (toDocument self))-      (toJSString command)- -foreign import javascript unsafe "$1[\"queryCommandValue\"]($2)"-        ghcjs_dom_document_query_command_value ::-        JSRef Document -> JSString -> IO JSString- -documentQueryCommandValue ::-                          (IsDocument self, ToJSString command, FromJSString result) =>-                            self -> command -> IO result-documentQueryCommandValue self command-  = fromJSString <$>-      (ghcjs_dom_document_query_command_value-         (unDocument (toDocument self))-         (toJSString command))- -foreign import javascript unsafe "$1[\"getElementsByName\"]($2)"-        ghcjs_dom_document_get_elements_by_name ::-        JSRef Document -> JSString -> IO (JSRef NodeList)- -documentGetElementsByName ::-                          (IsDocument self, ToJSString elementName) =>-                            self -> elementName -> IO (Maybe NodeList)-documentGetElementsByName self elementName-  = fmap NodeList . maybeJSNull <$>-      (ghcjs_dom_document_get_elements_by_name-         (unDocument (toDocument self))-         (toJSString elementName))- -foreign import javascript unsafe "$1[\"elementFromPoint\"]($2, $3)"-        ghcjs_dom_document_element_from_point ::-        JSRef Document -> Int -> Int -> IO (JSRef Element)- -documentElementFromPoint ::-                         (IsDocument self) => self -> Int -> Int -> IO (Maybe Element)-documentElementFromPoint self x y-  = fmap Element . maybeJSNull <$>-      (ghcjs_dom_document_element_from_point-         (unDocument (toDocument self))-         x-         y)- -foreign import javascript unsafe-        "$1[\"caretRangeFromPoint\"]($2,\n$3)"-        ghcjs_dom_document_caret_range_from_point ::-        JSRef Document -> Int -> Int -> IO (JSRef DOMRange)- -documentCaretRangeFromPoint ::-                            (IsDocument self) => self -> Int -> Int -> IO (Maybe DOMRange)-documentCaretRangeFromPoint self x y-  = fmap DOMRange . maybeJSNull <$>-      (ghcjs_dom_document_caret_range_from_point-         (unDocument (toDocument self))-         x-         y)- -foreign import javascript unsafe-        "$1[\"createCSSStyleDeclaration\"]()"-        ghcjs_dom_document_create_css_style_declaration ::-        JSRef Document -> IO (JSRef CSSStyleDeclaration)- -documentCreateCSSStyleDeclaration ::-                                  (IsDocument self) => self -> IO (Maybe CSSStyleDeclaration)-documentCreateCSSStyleDeclaration self-  = fmap CSSStyleDeclaration . maybeJSNull <$>-      (ghcjs_dom_document_create_css_style_declaration-         (unDocument (toDocument self)))- -foreign import javascript unsafe-        "$1[\"getElementsByClassName\"]($2)"-        ghcjs_dom_document_get_elements_by_class_name ::-        JSRef Document -> JSString -> IO (JSRef NodeList)- -documentGetElementsByClassName ::-                               (IsDocument self, ToJSString tagname) =>-                                 self -> tagname -> IO (Maybe NodeList)-documentGetElementsByClassName self tagname-  = fmap NodeList . maybeJSNull <$>-      (ghcjs_dom_document_get_elements_by_class_name-         (unDocument (toDocument self))-         (toJSString tagname))- -foreign import javascript unsafe "($1[\"hasFocus\"]() ? 1 : 0)"-        ghcjs_dom_document_has_focus :: JSRef Document -> IO Bool- -documentHasFocus :: (IsDocument self) => self -> IO Bool-documentHasFocus self-  = ghcjs_dom_document_has_focus (unDocument (toDocument self))- -foreign import javascript unsafe "$1[\"querySelector\"]($2)"-        ghcjs_dom_document_query_selector ::-        JSRef Document -> JSString -> IO (JSRef Element)- -documentQuerySelector ::-                      (IsDocument self, ToJSString selectors) =>-                        self -> selectors -> IO (Maybe Element)-documentQuerySelector self selectors-  = fmap Element . maybeJSNull <$>-      (ghcjs_dom_document_query_selector (unDocument (toDocument self))-         (toJSString selectors))- -foreign import javascript unsafe "$1[\"querySelectorAll\"]($2)"-        ghcjs_dom_document_query_selector_all ::-        JSRef Document -> JSString -> IO (JSRef NodeList)- -documentQuerySelectorAll ::-                         (IsDocument self, ToJSString selectors) =>-                           self -> selectors -> IO (Maybe NodeList)-documentQuerySelectorAll self selectors-  = fmap NodeList . maybeJSNull <$>-      (ghcjs_dom_document_query_selector_all-         (unDocument (toDocument self))-         (toJSString selectors))- -foreign import javascript unsafe "$1[\"exitPointerLock\"]()"-        ghcjs_dom_document_exit_pointer_lock :: JSRef Document -> IO ()- -documentExitPointerLock :: (IsDocument self) => self -> IO ()-documentExitPointerLock self-  = ghcjs_dom_document_exit_pointer_lock-      (unDocument (toDocument self))- -foreign import javascript unsafe "$1[\"webkitGetNamedFlows\"]()"-        ghcjs_dom_document_webkit_get_named_flows ::-        JSRef Document -> IO (JSRef DOMNamedFlowCollection)- -documentWebkitGetNamedFlows ::-                            (IsDocument self) => self -> IO (Maybe DOMNamedFlowCollection)-documentWebkitGetNamedFlows self-  = fmap DOMNamedFlowCollection . maybeJSNull <$>-      (ghcjs_dom_document_webkit_get_named_flows-         (unDocument (toDocument self)))- -foreign import javascript unsafe "$1[\"doctype\"]"-        ghcjs_dom_document_get_doctype ::-        JSRef Document -> IO (JSRef DocumentType)- -documentGetDoctype ::-                   (IsDocument self) => self -> IO (Maybe DocumentType)-documentGetDoctype self-  = fmap DocumentType . maybeJSNull <$>-      (ghcjs_dom_document_get_doctype (unDocument (toDocument self)))- -foreign import javascript unsafe "$1[\"implementation\"]"-        ghcjs_dom_document_get_implementation ::-        JSRef Document -> IO (JSRef DOMImplementation)- -documentGetImplementation ::-                          (IsDocument self) => self -> IO (Maybe DOMImplementation)-documentGetImplementation self-  = fmap DOMImplementation . maybeJSNull <$>-      (ghcjs_dom_document_get_implementation-         (unDocument (toDocument self)))- -foreign import javascript unsafe "$1[\"documentElement\"]"-        ghcjs_dom_document_get_document_element ::-        JSRef Document -> IO (JSRef Element)- -documentGetDocumentElement ::-                           (IsDocument self) => self -> IO (Maybe Element)-documentGetDocumentElement self-  = fmap Element . maybeJSNull <$>-      (ghcjs_dom_document_get_document_element-         (unDocument (toDocument self)))- -foreign import javascript unsafe "$1[\"inputEncoding\"]"-        ghcjs_dom_document_get_input_encoding ::-        JSRef Document -> IO JSString- -documentGetInputEncoding ::-                         (IsDocument self, FromJSString result) => self -> IO result-documentGetInputEncoding self-  = fromJSString <$>-      (ghcjs_dom_document_get_input_encoding-         (unDocument (toDocument self)))- -foreign import javascript unsafe "$1[\"xmlEncoding\"]"-        ghcjs_dom_document_get_xml_encoding ::-        JSRef Document -> IO JSString- -documentGetXmlEncoding ::-                       (IsDocument self, FromJSString result) => self -> IO result-documentGetXmlEncoding self-  = fromJSString <$>-      (ghcjs_dom_document_get_xml_encoding-         (unDocument (toDocument self)))- -foreign import javascript unsafe "$1[\"xmlVersion\"] = $2;"-        ghcjs_dom_document_set_xml_version ::-        JSRef Document -> JSString -> IO ()- -documentSetXmlVersion ::-                      (IsDocument self, ToJSString val) => self -> val -> IO ()-documentSetXmlVersion self val-  = ghcjs_dom_document_set_xml_version (unDocument (toDocument self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"xmlVersion\"]"-        ghcjs_dom_document_get_xml_version :: JSRef Document -> IO JSString- -documentGetXmlVersion ::-                      (IsDocument self, FromJSString result) => self -> IO result-documentGetXmlVersion self-  = fromJSString <$>-      (ghcjs_dom_document_get_xml_version (unDocument (toDocument self)))- -foreign import javascript unsafe "$1[\"xmlStandalone\"] = $2;"-        ghcjs_dom_document_set_xml_standalone ::-        JSRef Document -> Bool -> IO ()- -documentSetXmlStandalone ::-                         (IsDocument self) => self -> Bool -> IO ()-documentSetXmlStandalone self val-  = ghcjs_dom_document_set_xml_standalone-      (unDocument (toDocument self))-      val- -foreign import javascript unsafe "($1[\"xmlStandalone\"] ? 1 : 0)"-        ghcjs_dom_document_get_xml_standalone :: JSRef Document -> IO Bool- -documentGetXmlStandalone :: (IsDocument self) => self -> IO Bool-documentGetXmlStandalone self-  = ghcjs_dom_document_get_xml_standalone-      (unDocument (toDocument self))- -foreign import javascript unsafe "$1[\"documentURI\"] = $2;"-        ghcjs_dom_document_set_document_uri ::-        JSRef Document -> JSString -> IO ()- -documentSetDocumentURI ::-                       (IsDocument self, ToJSString val) => self -> val -> IO ()-documentSetDocumentURI self val-  = ghcjs_dom_document_set_document_uri-      (unDocument (toDocument self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"documentURI\"]"-        ghcjs_dom_document_get_document_uri ::-        JSRef Document -> IO JSString- -documentGetDocumentURI ::-                       (IsDocument self, FromJSString result) => self -> IO result-documentGetDocumentURI self-  = fromJSString <$>-      (ghcjs_dom_document_get_document_uri-         (unDocument (toDocument self)))- -foreign import javascript unsafe "$1[\"defaultView\"]"-        ghcjs_dom_document_get_default_view ::-        JSRef Document -> IO (JSRef DOMWindow)- -documentGetDefaultView ::-                       (IsDocument self) => self -> IO (Maybe DOMWindow)-documentGetDefaultView self-  = fmap DOMWindow . maybeJSNull <$>-      (ghcjs_dom_document_get_default_view-         (unDocument (toDocument self)))- -foreign import javascript unsafe "$1[\"styleSheets\"]"-        ghcjs_dom_document_get_style_sheets ::-        JSRef Document -> IO (JSRef StyleSheetList)- -documentGetStyleSheets ::-                       (IsDocument self) => self -> IO (Maybe StyleSheetList)-documentGetStyleSheets self-  = fmap StyleSheetList . maybeJSNull <$>-      (ghcjs_dom_document_get_style_sheets-         (unDocument (toDocument self)))- -foreign import javascript unsafe "$1[\"title\"] = $2;"-        ghcjs_dom_document_set_title :: JSRef Document -> JSString -> IO ()- -documentSetTitle ::-                 (IsDocument self, ToJSString val) => self -> val -> IO ()-documentSetTitle self val-  = ghcjs_dom_document_set_title (unDocument (toDocument self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"title\"]"-        ghcjs_dom_document_get_title :: JSRef Document -> IO JSString- -documentGetTitle ::-                 (IsDocument self, FromJSString result) => self -> IO result-documentGetTitle self-  = fromJSString <$>-      (ghcjs_dom_document_get_title (unDocument (toDocument self)))- -foreign import javascript unsafe "$1[\"referrer\"]"-        ghcjs_dom_document_get_referrer :: JSRef Document -> IO JSString- -documentGetReferrer ::-                    (IsDocument self, FromJSString result) => self -> IO result-documentGetReferrer self-  = fromJSString <$>-      (ghcjs_dom_document_get_referrer (unDocument (toDocument self)))- -foreign import javascript unsafe "$1[\"domain\"]"-        ghcjs_dom_document_get_domain :: JSRef Document -> IO JSString- -documentGetDomain ::-                  (IsDocument self, FromJSString result) => self -> IO result-documentGetDomain self-  = fromJSString <$>-      (ghcjs_dom_document_get_domain (unDocument (toDocument self)))- -foreign import javascript unsafe "$1[\"cookie\"] = $2;"-        ghcjs_dom_document_set_cookie ::-        JSRef Document -> JSString -> IO ()- -documentSetCookie ::-                  (IsDocument self, ToJSString val) => self -> val -> IO ()-documentSetCookie self val-  = ghcjs_dom_document_set_cookie (unDocument (toDocument self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"cookie\"]"-        ghcjs_dom_document_get_cookie :: JSRef Document -> IO JSString- -documentGetCookie ::-                  (IsDocument self, FromJSString result) => self -> IO result-documentGetCookie self-  = fromJSString <$>-      (ghcjs_dom_document_get_cookie (unDocument (toDocument self)))- -foreign import javascript unsafe "$1[\"body\"] = $2;"-        ghcjs_dom_document_set_body ::-        JSRef Document -> JSRef HTMLElement -> IO ()- -documentSetBody ::-                (IsDocument self, IsHTMLElement val) => self -> Maybe val -> IO ()-documentSetBody self val-  = ghcjs_dom_document_set_body (unDocument (toDocument self))-      (maybe jsNull (unHTMLElement . toHTMLElement) val)- -foreign import javascript unsafe "$1[\"body\"]"-        ghcjs_dom_document_get_body ::-        JSRef Document -> IO (JSRef HTMLElement)- -documentGetBody ::-                (IsDocument self) => self -> IO (Maybe HTMLElement)-documentGetBody self-  = fmap HTMLElement . maybeJSNull <$>-      (ghcjs_dom_document_get_body (unDocument (toDocument self)))- -foreign import javascript unsafe "$1[\"head\"]"-        ghcjs_dom_document_get_head ::-        JSRef Document -> IO (JSRef HTMLHeadElement)- -documentGetHead ::-                (IsDocument self) => self -> IO (Maybe HTMLHeadElement)-documentGetHead self-  = fmap HTMLHeadElement . maybeJSNull <$>-      (ghcjs_dom_document_get_head (unDocument (toDocument self)))- -foreign import javascript unsafe "$1[\"images\"]"-        ghcjs_dom_document_get_images ::-        JSRef Document -> IO (JSRef HTMLCollection)- -documentGetImages ::-                  (IsDocument self) => self -> IO (Maybe HTMLCollection)-documentGetImages self-  = fmap HTMLCollection . maybeJSNull <$>-      (ghcjs_dom_document_get_images (unDocument (toDocument self)))- -foreign import javascript unsafe "$1[\"applets\"]"-        ghcjs_dom_document_get_applets ::-        JSRef Document -> IO (JSRef HTMLCollection)- -documentGetApplets ::-                   (IsDocument self) => self -> IO (Maybe HTMLCollection)-documentGetApplets self-  = fmap HTMLCollection . maybeJSNull <$>-      (ghcjs_dom_document_get_applets (unDocument (toDocument self)))- -foreign import javascript unsafe "$1[\"links\"]"-        ghcjs_dom_document_get_links ::-        JSRef Document -> IO (JSRef HTMLCollection)- -documentGetLinks ::-                 (IsDocument self) => self -> IO (Maybe HTMLCollection)-documentGetLinks self-  = fmap HTMLCollection . maybeJSNull <$>-      (ghcjs_dom_document_get_links (unDocument (toDocument self)))- -foreign import javascript unsafe "$1[\"forms\"]"-        ghcjs_dom_document_get_forms ::-        JSRef Document -> IO (JSRef HTMLCollection)- -documentGetForms ::-                 (IsDocument self) => self -> IO (Maybe HTMLCollection)-documentGetForms self-  = fmap HTMLCollection . maybeJSNull <$>-      (ghcjs_dom_document_get_forms (unDocument (toDocument self)))- -foreign import javascript unsafe "$1[\"anchors\"]"-        ghcjs_dom_document_get_anchors ::-        JSRef Document -> IO (JSRef HTMLCollection)- -documentGetAnchors ::-                   (IsDocument self) => self -> IO (Maybe HTMLCollection)-documentGetAnchors self-  = fmap HTMLCollection . maybeJSNull <$>-      (ghcjs_dom_document_get_anchors (unDocument (toDocument self)))- -foreign import javascript unsafe "$1[\"lastModified\"]"-        ghcjs_dom_document_get_last_modified ::-        JSRef Document -> IO JSString- -documentGetLastModified ::-                        (IsDocument self, FromJSString result) => self -> IO result-documentGetLastModified self-  = fromJSString <$>-      (ghcjs_dom_document_get_last_modified-         (unDocument (toDocument self)))- -foreign import javascript unsafe "$1[\"charset\"] = $2;"-        ghcjs_dom_document_set_charset ::-        JSRef Document -> JSString -> IO ()- -documentSetCharset ::-                   (IsDocument self, ToJSString val) => self -> val -> IO ()-documentSetCharset self val-  = ghcjs_dom_document_set_charset (unDocument (toDocument self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"charset\"]"-        ghcjs_dom_document_get_charset :: JSRef Document -> IO JSString- -documentGetCharset ::-                   (IsDocument self, FromJSString result) => self -> IO result-documentGetCharset self-  = fromJSString <$>-      (ghcjs_dom_document_get_charset (unDocument (toDocument self)))- -foreign import javascript unsafe "$1[\"defaultCharset\"]"-        ghcjs_dom_document_get_default_charset ::-        JSRef Document -> IO JSString- -documentGetDefaultCharset ::-                          (IsDocument self, FromJSString result) => self -> IO result-documentGetDefaultCharset self-  = fromJSString <$>-      (ghcjs_dom_document_get_default_charset-         (unDocument (toDocument self)))- -foreign import javascript unsafe "$1[\"readyState\"]"-        ghcjs_dom_document_get_ready_state :: JSRef Document -> IO JSString- -documentGetReadyState ::-                      (IsDocument self, FromJSString result) => self -> IO result-documentGetReadyState self-  = fromJSString <$>-      (ghcjs_dom_document_get_ready_state (unDocument (toDocument self)))- -foreign import javascript unsafe "$1[\"characterSet\"]"-        ghcjs_dom_document_get_character_set ::-        JSRef Document -> IO JSString- -documentGetCharacterSet ::-                        (IsDocument self, FromJSString result) => self -> IO result-documentGetCharacterSet self-  = fromJSString <$>-      (ghcjs_dom_document_get_character_set-         (unDocument (toDocument self)))- -foreign import javascript unsafe "$1[\"preferredStylesheetSet\"]"-        ghcjs_dom_document_get_preferred_stylesheet_set ::-        JSRef Document -> IO JSString- -documentGetPreferredStylesheetSet ::-                                  (IsDocument self, FromJSString result) => self -> IO result-documentGetPreferredStylesheetSet self-  = fromJSString <$>-      (ghcjs_dom_document_get_preferred_stylesheet_set-         (unDocument (toDocument self)))- -foreign import javascript unsafe-        "$1[\"selectedStylesheetSet\"] = $2;"-        ghcjs_dom_document_set_selected_stylesheet_set ::-        JSRef Document -> JSString -> IO ()- -documentSetSelectedStylesheetSet ::-                                 (IsDocument self, ToJSString val) => self -> val -> IO ()-documentSetSelectedStylesheetSet self val-  = ghcjs_dom_document_set_selected_stylesheet_set-      (unDocument (toDocument self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"selectedStylesheetSet\"]"-        ghcjs_dom_document_get_selected_stylesheet_set ::-        JSRef Document -> IO JSString- -documentGetSelectedStylesheetSet ::-                                 (IsDocument self, FromJSString result) => self -> IO result-documentGetSelectedStylesheetSet self-  = fromJSString <$>-      (ghcjs_dom_document_get_selected_stylesheet_set-         (unDocument (toDocument self)))- -foreign import javascript unsafe "$1[\"activeElement\"]"-        ghcjs_dom_document_get_active_element ::-        JSRef Document -> IO (JSRef Element)- -documentGetActiveElement ::-                         (IsDocument self) => self -> IO (Maybe Element)-documentGetActiveElement self-  = fmap Element . maybeJSNull <$>-      (ghcjs_dom_document_get_active_element-         (unDocument (toDocument self)))- -foreign import javascript unsafe "$1[\"compatMode\"]"-        ghcjs_dom_document_get_compat_mode :: JSRef Document -> IO JSString- -documentGetCompatMode ::-                      (IsDocument self, FromJSString result) => self -> IO result-documentGetCompatMode self-  = fromJSString <$>-      (ghcjs_dom_document_get_compat_mode (unDocument (toDocument self)))- -foreign import javascript unsafe "$1[\"pointerLockElement\"]"-        ghcjs_dom_document_get_pointer_lock_element ::-        JSRef Document -> IO (JSRef Element)- -documentGetPointerLockElement ::-                              (IsDocument self) => self -> IO (Maybe Element)-documentGetPointerLockElement self-  = fmap Element . maybeJSNull <$>-      (ghcjs_dom_document_get_pointer_lock_element-         (unDocument (toDocument self)))- -foreign import javascript unsafe "$1[\"visibilityState\"]"-        ghcjs_dom_document_get_visibility_state ::-        JSRef Document -> IO JSString- -documentGetVisibilityState ::-                           (IsDocument self, FromJSString result) => self -> IO result-documentGetVisibilityState self-  = fromJSString <$>-      (ghcjs_dom_document_get_visibility_state-         (unDocument (toDocument self)))- -foreign import javascript unsafe "($1[\"hidden\"] ? 1 : 0)"-        ghcjs_dom_document_get_hidden :: JSRef Document -> IO Bool- -documentGetHidden :: (IsDocument self) => self -> IO Bool-documentGetHidden self-  = ghcjs_dom_document_get_hidden (unDocument (toDocument self))- -foreign import javascript unsafe "$1[\"securityPolicy\"]"-        ghcjs_dom_document_get_security_policy ::-        JSRef Document -> IO (JSRef DOMSecurityPolicy)- -documentGetSecurityPolicy ::-                          (IsDocument self) => self -> IO (Maybe DOMSecurityPolicy)-documentGetSecurityPolicy self-  = fmap DOMSecurityPolicy . maybeJSNull <$>-      (ghcjs_dom_document_get_security_policy-         (unDocument (toDocument self)))- -foreign import javascript unsafe "$1[\"currentScript\"]"-        ghcjs_dom_document_get_current_script ::-        JSRef Document -> IO (JSRef HTMLScriptElement)- -documentGetCurrentScript ::-                         (IsDocument self) => self -> IO (Maybe HTMLScriptElement)-documentGetCurrentScript self-  = fmap HTMLScriptElement . maybeJSNull <$>-      (ghcjs_dom_document_get_current_script-         (unDocument (toDocument self)))- -foreign import javascript unsafe "$1[\"origin\"]"-        ghcjs_dom_document_get_origin :: JSRef Document -> IO JSString- -documentGetOrigin ::-                  (IsDocument self, FromJSString result) => self -> IO result-documentGetOrigin self-  = fromJSString <$>-      (ghcjs_dom_document_get_origin (unDocument (toDocument self)))-#else-module GHCJS.DOM.Document (-  module Graphics.UI.Gtk.WebKit.DOM.Document-  ) where+module GHCJS.DOM.Document (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.Document+#else+  module Graphics.UI.Gtk.WebKit.DOM.Document+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.Document+#else import Graphics.UI.Gtk.WebKit.DOM.Document #endif
+ src/GHCJS/DOM/DocumentFragment.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.DocumentFragment (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.DocumentFragment+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.DocumentFragment+#else+#endif
src/GHCJS/DOM/DocumentType.hs view
@@ -1,94 +1,13 @@ {-# LANGUAGE CPP #-}+module GHCJS.DOM.DocumentType ( #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.DocumentType-       (ghcjs_dom_document_type_get_name, documentTypeGetName,-        ghcjs_dom_document_type_get_entities, documentTypeGetEntities,-        ghcjs_dom_document_type_get_notations, documentTypeGetNotations,-        ghcjs_dom_document_type_get_public_id, documentTypeGetPublicId,-        ghcjs_dom_document_type_get_system_id, documentTypeGetSystemId,-        ghcjs_dom_document_type_get_internal_subset,-        documentTypeGetInternalSubset, DocumentType, IsDocumentType,-        castToDocumentType, gTypeDocumentType, toDocumentType)-       where-import GHCJS.Types-import GHCJS.Foreign-import GHCJS.Marshal-import Data.Int-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-- -foreign import javascript unsafe "$1[\"name\"]"-        ghcjs_dom_document_type_get_name ::-        JSRef DocumentType -> IO JSString- -documentTypeGetName ::-                    (IsDocumentType self, FromJSString result) => self -> IO result-documentTypeGetName self-  = fromJSString <$>-      (ghcjs_dom_document_type_get_name-         (unDocumentType (toDocumentType self)))- -foreign import javascript unsafe "$1[\"entities\"]"-        ghcjs_dom_document_type_get_entities ::-        JSRef DocumentType -> IO (JSRef NamedNodeMap)- -documentTypeGetEntities ::-                        (IsDocumentType self) => self -> IO (Maybe NamedNodeMap)-documentTypeGetEntities self-  = fmap NamedNodeMap . maybeJSNull <$>-      (ghcjs_dom_document_type_get_entities-         (unDocumentType (toDocumentType self)))- -foreign import javascript unsafe "$1[\"notations\"]"-        ghcjs_dom_document_type_get_notations ::-        JSRef DocumentType -> IO (JSRef NamedNodeMap)- -documentTypeGetNotations ::-                         (IsDocumentType self) => self -> IO (Maybe NamedNodeMap)-documentTypeGetNotations self-  = fmap NamedNodeMap . maybeJSNull <$>-      (ghcjs_dom_document_type_get_notations-         (unDocumentType (toDocumentType self)))- -foreign import javascript unsafe "$1[\"publicId\"]"-        ghcjs_dom_document_type_get_public_id ::-        JSRef DocumentType -> IO JSString- -documentTypeGetPublicId ::-                        (IsDocumentType self, FromJSString result) => self -> IO result-documentTypeGetPublicId self-  = fromJSString <$>-      (ghcjs_dom_document_type_get_public_id-         (unDocumentType (toDocumentType self)))- -foreign import javascript unsafe "$1[\"systemId\"]"-        ghcjs_dom_document_type_get_system_id ::-        JSRef DocumentType -> IO JSString- -documentTypeGetSystemId ::-                        (IsDocumentType self, FromJSString result) => self -> IO result-documentTypeGetSystemId self-  = fromJSString <$>-      (ghcjs_dom_document_type_get_system_id-         (unDocumentType (toDocumentType self)))- -foreign import javascript unsafe "$1[\"internalSubset\"]"-        ghcjs_dom_document_type_get_internal_subset ::-        JSRef DocumentType -> IO JSString- -documentTypeGetInternalSubset ::-                              (IsDocumentType self, FromJSString result) => self -> IO result-documentTypeGetInternalSubset self-  = fromJSString <$>-      (ghcjs_dom_document_type_get_internal_subset-         (unDocumentType (toDocumentType self)))+  module GHCJS.DOM.JSFFI.Generated.DocumentType #else-module GHCJS.DOM.DocumentType (   module Graphics.UI.Gtk.WebKit.DOM.DocumentType+#endif   ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.DocumentType+#else import Graphics.UI.Gtk.WebKit.DOM.DocumentType #endif
+ src/GHCJS/DOM/DynamicsCompressorNode.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.DynamicsCompressorNode (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.DynamicsCompressorNode+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.DynamicsCompressorNode+#else+#endif
+ src/GHCJS/DOM/EXTBlendMinMax.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.EXTBlendMinMax (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.EXTBlendMinMax+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.EXTBlendMinMax+#else+#endif
+ src/GHCJS/DOM/EXTTextureFilterAnisotropic.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.EXTTextureFilterAnisotropic (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.EXTTextureFilterAnisotropic+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.EXTTextureFilterAnisotropic+#else+#endif
+ src/GHCJS/DOM/EXTsRGB.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.EXTsRGB (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.EXTsRGB+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.EXTsRGB+#else+#endif
src/GHCJS/DOM/Element.hs view
@@ -1,899 +1,13 @@ {-# LANGUAGE CPP #-}+module GHCJS.DOM.Element ( #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.Element-       (ghcjs_dom_element_get_attribute, elementGetAttribute,-        ghcjs_dom_element_set_attribute, elementSetAttribute,-        ghcjs_dom_element_remove_attribute, elementRemoveAttribute,-        ghcjs_dom_element_get_attribute_node, elementGetAttributeNode,-        ghcjs_dom_element_set_attribute_node, elementSetAttributeNode,-        ghcjs_dom_element_remove_attribute_node,-        elementRemoveAttributeNode,-        ghcjs_dom_element_get_elements_by_tag_name,-        elementGetElementsByTagName, ghcjs_dom_element_has_attributes,-        elementHasAttributes, ghcjs_dom_element_get_attribute_ns,-        elementGetAttributeNS, ghcjs_dom_element_set_attribute_ns,-        elementSetAttributeNS, ghcjs_dom_element_remove_attribute_ns,-        elementRemoveAttributeNS,-        ghcjs_dom_element_get_elements_by_tag_name_ns,-        elementGetElementsByTagNameNS,-        ghcjs_dom_element_get_attribute_node_ns, elementGetAttributeNodeNS,-        ghcjs_dom_element_set_attribute_node_ns, elementSetAttributeNodeNS,-        ghcjs_dom_element_has_attribute, elementHasAttribute,-        ghcjs_dom_element_has_attribute_ns, elementHasAttributeNS,-        ghcjs_dom_element_focus, elementFocus, ghcjs_dom_element_blur,-        elementBlur, ghcjs_dom_element_scroll_into_view,-        elementScrollIntoView,-        ghcjs_dom_element_scroll_into_view_if_needed,-        elementScrollIntoViewIfNeeded, ghcjs_dom_element_scroll_by_lines,-        elementScrollByLines, ghcjs_dom_element_scroll_by_pages,-        elementScrollByPages, ghcjs_dom_element_get_elements_by_class_name,-        elementGetElementsByClassName, ghcjs_dom_element_query_selector,-        elementQuerySelector, ghcjs_dom_element_query_selector_all,-        elementQuerySelectorAll, ghcjs_dom_element_matches, elementMatches,-        ghcjs_dom_element_closest, elementClosest,-        ghcjs_dom_element_webkit_matches_selector,-        elementWebkitMatchesSelector,-        ghcjs_dom_element_request_pointer_lock, elementRequestPointerLock,-        ghcjs_dom_element_get_tag_name, elementGetTagName,-        ghcjs_dom_element_get_attributes, elementGetAttributes,-        ghcjs_dom_element_get_style, elementGetStyle,-        ghcjs_dom_element_set_id, elementSetId, ghcjs_dom_element_get_id,-        elementGetId, ghcjs_dom_element_get_offset_left,-        elementGetOffsetLeft, ghcjs_dom_element_get_offset_top,-        elementGetOffsetTop, ghcjs_dom_element_get_offset_width,-        elementGetOffsetWidth, ghcjs_dom_element_get_offset_height,-        elementGetOffsetHeight, ghcjs_dom_element_get_client_left,-        elementGetClientLeft, ghcjs_dom_element_get_client_top,-        elementGetClientTop, ghcjs_dom_element_get_client_width,-        elementGetClientWidth, ghcjs_dom_element_get_client_height,-        elementGetClientHeight, ghcjs_dom_element_set_scroll_left,-        elementSetScrollLeft, ghcjs_dom_element_get_scroll_left,-        elementGetScrollLeft, ghcjs_dom_element_set_scroll_top,-        elementSetScrollTop, ghcjs_dom_element_get_scroll_top,-        elementGetScrollTop, ghcjs_dom_element_get_scroll_width,-        elementGetScrollWidth, ghcjs_dom_element_get_scroll_height,-        elementGetScrollHeight, ghcjs_dom_element_get_offset_parent,-        elementGetOffsetParent, ghcjs_dom_element_set_class_name,-        elementSetClassName, ghcjs_dom_element_get_class_name,-        elementGetClassName, ghcjs_dom_element_get_class_list,-        elementGetClassList, ghcjs_dom_element_get_first_element_child,-        elementGetFirstElementChild,-        ghcjs_dom_element_get_last_element_child,-        elementGetLastElementChild,-        ghcjs_dom_element_get_previous_element_sibling,-        elementGetPreviousElementSibling,-        ghcjs_dom_element_get_next_element_sibling,-        elementGetNextElementSibling,-        ghcjs_dom_element_get_child_element_count,-        elementGetChildElementCount,-        ghcjs_dom_element_get_webkit_region_overset,-        elementGetWebkitRegionOverset, elementOnabort, elementOnblur,-        elementOnchange, elementOnclick, elementOncontextmenu,-        elementOndblclick, elementOndrag, elementOndragend,-        elementOndragenter, elementOndragleave, elementOndragover,-        elementOndragstart, elementOndrop, elementOnerror, elementOnfocus,-        elementOninput, elementOninvalid, elementOnkeydown,-        elementOnkeypress, elementOnkeyup, elementOnload,-        elementOnmousedown, elementOnmouseenter, elementOnmouseleave,-        elementOnmousemove, elementOnmouseout, elementOnmouseover,-        elementOnmouseup, elementOnmousewheel, elementOnscroll,-        elementOnselect, elementOnsubmit, elementOnwheel,-        elementOnbeforecut, elementOncut, elementOnbeforecopy,-        elementOncopy, elementOnbeforepaste, elementOnpaste,-        elementOnreset, elementOnsearch, elementOnselectstart,-        elementOntouchstart, elementOntouchmove, elementOntouchend,-        elementOntouchcancel, elementOnwebkitfullscreenchange,-        elementOnwebkitfullscreenerror, elementOnwebkitwillrevealbottom,-        elementOnwebkitwillrevealleft, elementOnwebkitwillrevealright,-        elementOnwebkitwillrevealtop, Element, IsElement, castToElement,-        gTypeElement, toElement)-       where-import GHCJS.Types-import GHCJS.Foreign-import GHCJS.Marshal-import Data.Int-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-- -foreign import javascript unsafe "$1[\"getAttribute\"]($2)"-        ghcjs_dom_element_get_attribute ::-        JSRef Element -> JSString -> IO JSString- -elementGetAttribute ::-                    (IsElement self, ToJSString name, FromJSString result) =>-                      self -> name -> IO result-elementGetAttribute self name-  = fromJSString <$>-      (ghcjs_dom_element_get_attribute (unElement (toElement self))-         (toJSString name))- -foreign import javascript unsafe "$1[\"setAttribute\"]($2, $3)"-        ghcjs_dom_element_set_attribute ::-        JSRef Element -> JSString -> JSString -> IO ()- -elementSetAttribute ::-                    (IsElement self, ToJSString name, ToJSString value) =>-                      self -> name -> value -> IO ()-elementSetAttribute self name value-  = ghcjs_dom_element_set_attribute (unElement (toElement self))-      (toJSString name)-      (toJSString value)- -foreign import javascript unsafe "$1[\"removeAttribute\"]($2)"-        ghcjs_dom_element_remove_attribute ::-        JSRef Element -> JSString -> IO ()- -elementRemoveAttribute ::-                       (IsElement self, ToJSString name) => self -> name -> IO ()-elementRemoveAttribute self name-  = ghcjs_dom_element_remove_attribute (unElement (toElement self))-      (toJSString name)- -foreign import javascript unsafe "$1[\"getAttributeNode\"]($2)"-        ghcjs_dom_element_get_attribute_node ::-        JSRef Element -> JSString -> IO (JSRef DOMAttr)- -elementGetAttributeNode ::-                        (IsElement self, ToJSString name) =>-                          self -> name -> IO (Maybe DOMAttr)-elementGetAttributeNode self name-  = fmap DOMAttr . maybeJSNull <$>-      (ghcjs_dom_element_get_attribute_node (unElement (toElement self))-         (toJSString name))- -foreign import javascript unsafe "$1[\"setAttributeNode\"]($2)"-        ghcjs_dom_element_set_attribute_node ::-        JSRef Element -> JSRef DOMAttr -> IO (JSRef DOMAttr)- -elementSetAttributeNode ::-                        (IsElement self, IsDOMAttr newAttr) =>-                          self -> Maybe newAttr -> IO (Maybe DOMAttr)-elementSetAttributeNode self newAttr-  = fmap DOMAttr . maybeJSNull <$>-      (ghcjs_dom_element_set_attribute_node (unElement (toElement self))-         (maybe jsNull (unDOMAttr . toDOMAttr) newAttr))- -foreign import javascript unsafe "$1[\"removeAttributeNode\"]($2)"-        ghcjs_dom_element_remove_attribute_node ::-        JSRef Element -> JSRef DOMAttr -> IO (JSRef DOMAttr)- -elementRemoveAttributeNode ::-                           (IsElement self, IsDOMAttr oldAttr) =>-                             self -> Maybe oldAttr -> IO (Maybe DOMAttr)-elementRemoveAttributeNode self oldAttr-  = fmap DOMAttr . maybeJSNull <$>-      (ghcjs_dom_element_remove_attribute_node-         (unElement (toElement self))-         (maybe jsNull (unDOMAttr . toDOMAttr) oldAttr))- -foreign import javascript unsafe "$1[\"getElementsByTagName\"]($2)"-        ghcjs_dom_element_get_elements_by_tag_name ::-        JSRef Element -> JSString -> IO (JSRef NodeList)- -elementGetElementsByTagName ::-                            (IsElement self, ToJSString name) =>-                              self -> name -> IO (Maybe NodeList)-elementGetElementsByTagName self name-  = fmap NodeList . maybeJSNull <$>-      (ghcjs_dom_element_get_elements_by_tag_name-         (unElement (toElement self))-         (toJSString name))- -foreign import javascript unsafe-        "($1[\"hasAttributes\"]() ? 1 : 0)"-        ghcjs_dom_element_has_attributes :: JSRef Element -> IO Bool- -elementHasAttributes :: (IsElement self) => self -> IO Bool-elementHasAttributes self-  = ghcjs_dom_element_has_attributes (unElement (toElement self))- -foreign import javascript unsafe "$1[\"getAttributeNS\"]($2, $3)"-        ghcjs_dom_element_get_attribute_ns ::-        JSRef Element -> JSString -> JSString -> IO JSString- -elementGetAttributeNS ::-                      (IsElement self, ToJSString namespaceURI, ToJSString localName,-                       FromJSString result) =>-                        self -> namespaceURI -> localName -> IO result-elementGetAttributeNS self namespaceURI localName-  = fromJSString <$>-      (ghcjs_dom_element_get_attribute_ns (unElement (toElement self))-         (toJSString namespaceURI)-         (toJSString localName))- -foreign import javascript unsafe-        "$1[\"setAttributeNS\"]($2, $3, $4)"-        ghcjs_dom_element_set_attribute_ns ::-        JSRef Element -> JSString -> JSString -> JSString -> IO ()- -elementSetAttributeNS ::-                      (IsElement self, ToJSString namespaceURI, ToJSString qualifiedName,-                       ToJSString value) =>-                        self -> namespaceURI -> qualifiedName -> value -> IO ()-elementSetAttributeNS self namespaceURI qualifiedName value-  = ghcjs_dom_element_set_attribute_ns (unElement (toElement self))-      (toJSString namespaceURI)-      (toJSString qualifiedName)-      (toJSString value)- -foreign import javascript unsafe-        "$1[\"removeAttributeNS\"]($2, $3)"-        ghcjs_dom_element_remove_attribute_ns ::-        JSRef Element -> JSString -> JSString -> IO ()- -elementRemoveAttributeNS ::-                         (IsElement self, ToJSString namespaceURI, ToJSString localName) =>-                           self -> namespaceURI -> localName -> IO ()-elementRemoveAttributeNS self namespaceURI localName-  = ghcjs_dom_element_remove_attribute_ns-      (unElement (toElement self))-      (toJSString namespaceURI)-      (toJSString localName)- -foreign import javascript unsafe-        "$1[\"getElementsByTagNameNS\"]($2,\n$3)"-        ghcjs_dom_element_get_elements_by_tag_name_ns ::-        JSRef Element -> JSString -> JSString -> IO (JSRef NodeList)- -elementGetElementsByTagNameNS ::-                              (IsElement self, ToJSString namespaceURI, ToJSString localName) =>-                                self -> namespaceURI -> localName -> IO (Maybe NodeList)-elementGetElementsByTagNameNS self namespaceURI localName-  = fmap NodeList . maybeJSNull <$>-      (ghcjs_dom_element_get_elements_by_tag_name_ns-         (unElement (toElement self))-         (toJSString namespaceURI)-         (toJSString localName))- -foreign import javascript unsafe-        "$1[\"getAttributeNodeNS\"]($2, $3)"-        ghcjs_dom_element_get_attribute_node_ns ::-        JSRef Element -> JSString -> JSString -> IO (JSRef DOMAttr)- -elementGetAttributeNodeNS ::-                          (IsElement self, ToJSString namespaceURI, ToJSString localName) =>-                            self -> namespaceURI -> localName -> IO (Maybe DOMAttr)-elementGetAttributeNodeNS self namespaceURI localName-  = fmap DOMAttr . maybeJSNull <$>-      (ghcjs_dom_element_get_attribute_node_ns-         (unElement (toElement self))-         (toJSString namespaceURI)-         (toJSString localName))- -foreign import javascript unsafe "$1[\"setAttributeNodeNS\"]($2)"-        ghcjs_dom_element_set_attribute_node_ns ::-        JSRef Element -> JSRef DOMAttr -> IO (JSRef DOMAttr)- -elementSetAttributeNodeNS ::-                          (IsElement self, IsDOMAttr newAttr) =>-                            self -> Maybe newAttr -> IO (Maybe DOMAttr)-elementSetAttributeNodeNS self newAttr-  = fmap DOMAttr . maybeJSNull <$>-      (ghcjs_dom_element_set_attribute_node_ns-         (unElement (toElement self))-         (maybe jsNull (unDOMAttr . toDOMAttr) newAttr))- -foreign import javascript unsafe-        "($1[\"hasAttribute\"]($2) ? 1 : 0)"-        ghcjs_dom_element_has_attribute ::-        JSRef Element -> JSString -> IO Bool- -elementHasAttribute ::-                    (IsElement self, ToJSString name) => self -> name -> IO Bool-elementHasAttribute self name-  = ghcjs_dom_element_has_attribute (unElement (toElement self))-      (toJSString name)- -foreign import javascript unsafe-        "($1[\"hasAttributeNS\"]($2,\n$3) ? 1 : 0)"-        ghcjs_dom_element_has_attribute_ns ::-        JSRef Element -> JSString -> JSString -> IO Bool- -elementHasAttributeNS ::-                      (IsElement self, ToJSString namespaceURI, ToJSString localName) =>-                        self -> namespaceURI -> localName -> IO Bool-elementHasAttributeNS self namespaceURI localName-  = ghcjs_dom_element_has_attribute_ns (unElement (toElement self))-      (toJSString namespaceURI)-      (toJSString localName)- -foreign import javascript unsafe "$1[\"focus\"]()"-        ghcjs_dom_element_focus :: JSRef Element -> IO ()- -elementFocus :: (IsElement self) => self -> IO ()-elementFocus self-  = ghcjs_dom_element_focus (unElement (toElement self))- -foreign import javascript unsafe "$1[\"blur\"]()"-        ghcjs_dom_element_blur :: JSRef Element -> IO ()- -elementBlur :: (IsElement self) => self -> IO ()-elementBlur self-  = ghcjs_dom_element_blur (unElement (toElement self))- -foreign import javascript unsafe "$1[\"scrollIntoView\"]($2)"-        ghcjs_dom_element_scroll_into_view ::-        JSRef Element -> Bool -> IO ()- -elementScrollIntoView :: (IsElement self) => self -> Bool -> IO ()-elementScrollIntoView self alignWithTop-  = ghcjs_dom_element_scroll_into_view (unElement (toElement self))-      alignWithTop- -foreign import javascript unsafe-        "$1[\"scrollIntoViewIfNeeded\"]($2)"-        ghcjs_dom_element_scroll_into_view_if_needed ::-        JSRef Element -> Bool -> IO ()- -elementScrollIntoViewIfNeeded ::-                              (IsElement self) => self -> Bool -> IO ()-elementScrollIntoViewIfNeeded self centerIfNeeded-  = ghcjs_dom_element_scroll_into_view_if_needed-      (unElement (toElement self))-      centerIfNeeded- -foreign import javascript unsafe "$1[\"scrollByLines\"]($2)"-        ghcjs_dom_element_scroll_by_lines :: JSRef Element -> Int -> IO ()- -elementScrollByLines :: (IsElement self) => self -> Int -> IO ()-elementScrollByLines self lines-  = ghcjs_dom_element_scroll_by_lines (unElement (toElement self))-      lines- -foreign import javascript unsafe "$1[\"scrollByPages\"]($2)"-        ghcjs_dom_element_scroll_by_pages :: JSRef Element -> Int -> IO ()- -elementScrollByPages :: (IsElement self) => self -> Int -> IO ()-elementScrollByPages self pages-  = ghcjs_dom_element_scroll_by_pages (unElement (toElement self))-      pages- -foreign import javascript unsafe-        "$1[\"getElementsByClassName\"]($2)"-        ghcjs_dom_element_get_elements_by_class_name ::-        JSRef Element -> JSString -> IO (JSRef NodeList)- -elementGetElementsByClassName ::-                              (IsElement self, ToJSString name) =>-                                self -> name -> IO (Maybe NodeList)-elementGetElementsByClassName self name-  = fmap NodeList . maybeJSNull <$>-      (ghcjs_dom_element_get_elements_by_class_name-         (unElement (toElement self))-         (toJSString name))- -foreign import javascript unsafe "$1[\"querySelector\"]($2)"-        ghcjs_dom_element_query_selector ::-        JSRef Element -> JSString -> IO (JSRef Element)- -elementQuerySelector ::-                     (IsElement self, ToJSString selectors) =>-                       self -> selectors -> IO (Maybe Element)-elementQuerySelector self selectors-  = fmap Element . maybeJSNull <$>-      (ghcjs_dom_element_query_selector (unElement (toElement self))-         (toJSString selectors))- -foreign import javascript unsafe "$1[\"querySelectorAll\"]($2)"-        ghcjs_dom_element_query_selector_all ::-        JSRef Element -> JSString -> IO (JSRef NodeList)- -elementQuerySelectorAll ::-                        (IsElement self, ToJSString selectors) =>-                          self -> selectors -> IO (Maybe NodeList)-elementQuerySelectorAll self selectors-  = fmap NodeList . maybeJSNull <$>-      (ghcjs_dom_element_query_selector_all (unElement (toElement self))-         (toJSString selectors))- -foreign import javascript unsafe "($1[\"matches\"]($2) ? 1 : 0)"-        ghcjs_dom_element_matches :: JSRef Element -> JSString -> IO Bool- -elementMatches ::-               (IsElement self, ToJSString selectors) =>-                 self -> selectors -> IO Bool-elementMatches self selectors-  = ghcjs_dom_element_matches (unElement (toElement self))-      (toJSString selectors)- -foreign import javascript unsafe "$1[\"closest\"]($2)"-        ghcjs_dom_element_closest ::-        JSRef Element -> JSString -> IO (JSRef Element)- -elementClosest ::-               (IsElement self, ToJSString selectors) =>-                 self -> selectors -> IO (Maybe Element)-elementClosest self selectors-  = fmap Element . maybeJSNull <$>-      (ghcjs_dom_element_closest (unElement (toElement self))-         (toJSString selectors))- -foreign import javascript unsafe-        "($1[\"webkitMatchesSelector\"]($2) ? 1 : 0)"-        ghcjs_dom_element_webkit_matches_selector ::-        JSRef Element -> JSString -> IO Bool- -elementWebkitMatchesSelector ::-                             (IsElement self, ToJSString selectors) =>-                               self -> selectors -> IO Bool-elementWebkitMatchesSelector self selectors-  = ghcjs_dom_element_webkit_matches_selector-      (unElement (toElement self))-      (toJSString selectors)- -foreign import javascript unsafe "$1[\"requestPointerLock\"]()"-        ghcjs_dom_element_request_pointer_lock :: JSRef Element -> IO ()- -elementRequestPointerLock :: (IsElement self) => self -> IO ()-elementRequestPointerLock self-  = ghcjs_dom_element_request_pointer_lock-      (unElement (toElement self))- -foreign import javascript unsafe "$1[\"tagName\"]"-        ghcjs_dom_element_get_tag_name :: JSRef Element -> IO JSString- -elementGetTagName ::-                  (IsElement self, FromJSString result) => self -> IO result-elementGetTagName self-  = fromJSString <$>-      (ghcjs_dom_element_get_tag_name (unElement (toElement self)))- -foreign import javascript unsafe "$1[\"attributes\"]"-        ghcjs_dom_element_get_attributes ::-        JSRef Element -> IO (JSRef NamedNodeMap)- -elementGetAttributes ::-                     (IsElement self) => self -> IO (Maybe NamedNodeMap)-elementGetAttributes self-  = fmap NamedNodeMap . maybeJSNull <$>-      (ghcjs_dom_element_get_attributes (unElement (toElement self)))- -foreign import javascript unsafe "$1[\"style\"]"-        ghcjs_dom_element_get_style ::-        JSRef Element -> IO (JSRef CSSStyleDeclaration)- -elementGetStyle ::-                (IsElement self) => self -> IO (Maybe CSSStyleDeclaration)-elementGetStyle self-  = fmap CSSStyleDeclaration . maybeJSNull <$>-      (ghcjs_dom_element_get_style (unElement (toElement self)))- -foreign import javascript unsafe "$1[\"id\"] = $2;"-        ghcjs_dom_element_set_id :: JSRef Element -> JSString -> IO ()- -elementSetId ::-             (IsElement self, ToJSString val) => self -> val -> IO ()-elementSetId self val-  = ghcjs_dom_element_set_id (unElement (toElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"id\"]"-        ghcjs_dom_element_get_id :: JSRef Element -> IO JSString- -elementGetId ::-             (IsElement self, FromJSString result) => self -> IO result-elementGetId self-  = fromJSString <$>-      (ghcjs_dom_element_get_id (unElement (toElement self)))- -foreign import javascript unsafe "$1[\"offsetLeft\"]"-        ghcjs_dom_element_get_offset_left :: JSRef Element -> IO Double- -elementGetOffsetLeft :: (IsElement self) => self -> IO Double-elementGetOffsetLeft self-  = ghcjs_dom_element_get_offset_left (unElement (toElement self))- -foreign import javascript unsafe "$1[\"offsetTop\"]"-        ghcjs_dom_element_get_offset_top :: JSRef Element -> IO Double- -elementGetOffsetTop :: (IsElement self) => self -> IO Double-elementGetOffsetTop self-  = ghcjs_dom_element_get_offset_top (unElement (toElement self))- -foreign import javascript unsafe "$1[\"offsetWidth\"]"-        ghcjs_dom_element_get_offset_width :: JSRef Element -> IO Double- -elementGetOffsetWidth :: (IsElement self) => self -> IO Double-elementGetOffsetWidth self-  = ghcjs_dom_element_get_offset_width (unElement (toElement self))- -foreign import javascript unsafe "$1[\"offsetHeight\"]"-        ghcjs_dom_element_get_offset_height :: JSRef Element -> IO Double- -elementGetOffsetHeight :: (IsElement self) => self -> IO Double-elementGetOffsetHeight self-  = ghcjs_dom_element_get_offset_height (unElement (toElement self))- -foreign import javascript unsafe "$1[\"clientLeft\"]"-        ghcjs_dom_element_get_client_left :: JSRef Element -> IO Double- -elementGetClientLeft :: (IsElement self) => self -> IO Double-elementGetClientLeft self-  = ghcjs_dom_element_get_client_left (unElement (toElement self))- -foreign import javascript unsafe "$1[\"clientTop\"]"-        ghcjs_dom_element_get_client_top :: JSRef Element -> IO Double- -elementGetClientTop :: (IsElement self) => self -> IO Double-elementGetClientTop self-  = ghcjs_dom_element_get_client_top (unElement (toElement self))- -foreign import javascript unsafe "$1[\"clientWidth\"]"-        ghcjs_dom_element_get_client_width :: JSRef Element -> IO Double- -elementGetClientWidth :: (IsElement self) => self -> IO Double-elementGetClientWidth self-  = ghcjs_dom_element_get_client_width (unElement (toElement self))- -foreign import javascript unsafe "$1[\"clientHeight\"]"-        ghcjs_dom_element_get_client_height :: JSRef Element -> IO Double- -elementGetClientHeight :: (IsElement self) => self -> IO Double-elementGetClientHeight self-  = ghcjs_dom_element_get_client_height (unElement (toElement self))- -foreign import javascript unsafe "$1[\"scrollLeft\"] = $2;"-        ghcjs_dom_element_set_scroll_left :: JSRef Element -> Int -> IO ()- -elementSetScrollLeft :: (IsElement self) => self -> Int -> IO ()-elementSetScrollLeft self val-  = ghcjs_dom_element_set_scroll_left (unElement (toElement self))-      val- -foreign import javascript unsafe "$1[\"scrollLeft\"]"-        ghcjs_dom_element_get_scroll_left :: JSRef Element -> IO Int- -elementGetScrollLeft :: (IsElement self) => self -> IO Int-elementGetScrollLeft self-  = ghcjs_dom_element_get_scroll_left (unElement (toElement self))- -foreign import javascript unsafe "$1[\"scrollTop\"] = $2;"-        ghcjs_dom_element_set_scroll_top :: JSRef Element -> Int -> IO ()- -elementSetScrollTop :: (IsElement self) => self -> Int -> IO ()-elementSetScrollTop self val-  = ghcjs_dom_element_set_scroll_top (unElement (toElement self)) val- -foreign import javascript unsafe "$1[\"scrollTop\"]"-        ghcjs_dom_element_get_scroll_top :: JSRef Element -> IO Int- -elementGetScrollTop :: (IsElement self) => self -> IO Int-elementGetScrollTop self-  = ghcjs_dom_element_get_scroll_top (unElement (toElement self))- -foreign import javascript unsafe "$1[\"scrollWidth\"]"-        ghcjs_dom_element_get_scroll_width :: JSRef Element -> IO Int- -elementGetScrollWidth :: (IsElement self) => self -> IO Int-elementGetScrollWidth self-  = ghcjs_dom_element_get_scroll_width (unElement (toElement self))- -foreign import javascript unsafe "$1[\"scrollHeight\"]"-        ghcjs_dom_element_get_scroll_height :: JSRef Element -> IO Int- -elementGetScrollHeight :: (IsElement self) => self -> IO Int-elementGetScrollHeight self-  = ghcjs_dom_element_get_scroll_height (unElement (toElement self))- -foreign import javascript unsafe "$1[\"offsetParent\"]"-        ghcjs_dom_element_get_offset_parent ::-        JSRef Element -> IO (JSRef Element)- -elementGetOffsetParent ::-                       (IsElement self) => self -> IO (Maybe Element)-elementGetOffsetParent self-  = fmap Element . maybeJSNull <$>-      (ghcjs_dom_element_get_offset_parent (unElement (toElement self)))- -foreign import javascript unsafe "$1[\"className\"] = $2;"-        ghcjs_dom_element_set_class_name ::-        JSRef Element -> JSString -> IO ()- -elementSetClassName ::-                    (IsElement self, ToJSString val) => self -> val -> IO ()-elementSetClassName self val-  = ghcjs_dom_element_set_class_name (unElement (toElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"className\"]"-        ghcjs_dom_element_get_class_name :: JSRef Element -> IO JSString- -elementGetClassName ::-                    (IsElement self, FromJSString result) => self -> IO result-elementGetClassName self-  = fromJSString <$>-      (ghcjs_dom_element_get_class_name (unElement (toElement self)))- -foreign import javascript unsafe "$1[\"classList\"]"-        ghcjs_dom_element_get_class_list ::-        JSRef Element -> IO (JSRef DOMTokenList)- -elementGetClassList ::-                    (IsElement self) => self -> IO (Maybe DOMTokenList)-elementGetClassList self-  = fmap DOMTokenList . maybeJSNull <$>-      (ghcjs_dom_element_get_class_list (unElement (toElement self)))- -foreign import javascript unsafe "$1[\"firstElementChild\"]"-        ghcjs_dom_element_get_first_element_child ::-        JSRef Element -> IO (JSRef Element)- -elementGetFirstElementChild ::-                            (IsElement self) => self -> IO (Maybe Element)-elementGetFirstElementChild self-  = fmap Element . maybeJSNull <$>-      (ghcjs_dom_element_get_first_element_child-         (unElement (toElement self)))- -foreign import javascript unsafe "$1[\"lastElementChild\"]"-        ghcjs_dom_element_get_last_element_child ::-        JSRef Element -> IO (JSRef Element)- -elementGetLastElementChild ::-                           (IsElement self) => self -> IO (Maybe Element)-elementGetLastElementChild self-  = fmap Element . maybeJSNull <$>-      (ghcjs_dom_element_get_last_element_child-         (unElement (toElement self)))- -foreign import javascript unsafe "$1[\"previousElementSibling\"]"-        ghcjs_dom_element_get_previous_element_sibling ::-        JSRef Element -> IO (JSRef Element)- -elementGetPreviousElementSibling ::-                                 (IsElement self) => self -> IO (Maybe Element)-elementGetPreviousElementSibling self-  = fmap Element . maybeJSNull <$>-      (ghcjs_dom_element_get_previous_element_sibling-         (unElement (toElement self)))- -foreign import javascript unsafe "$1[\"nextElementSibling\"]"-        ghcjs_dom_element_get_next_element_sibling ::-        JSRef Element -> IO (JSRef Element)- -elementGetNextElementSibling ::-                             (IsElement self) => self -> IO (Maybe Element)-elementGetNextElementSibling self-  = fmap Element . maybeJSNull <$>-      (ghcjs_dom_element_get_next_element_sibling-         (unElement (toElement self)))- -foreign import javascript unsafe "$1[\"childElementCount\"]"-        ghcjs_dom_element_get_child_element_count ::-        JSRef Element -> IO Word- -elementGetChildElementCount :: (IsElement self) => self -> IO Word-elementGetChildElementCount self-  = ghcjs_dom_element_get_child_element_count-      (unElement (toElement self))- -foreign import javascript unsafe "$1[\"webkitRegionOverset\"]"-        ghcjs_dom_element_get_webkit_region_overset ::-        JSRef Element -> IO JSString- -elementGetWebkitRegionOverset ::-                              (IsElement self, FromJSString result) => self -> IO result-elementGetWebkitRegionOverset self-  = fromJSString <$>-      (ghcjs_dom_element_get_webkit_region_overset-         (unElement (toElement self)))- -elementOnabort ::-               (IsElement self) => Signal self (EventM UIEvent self ())-elementOnabort = (connect "abort")- -elementOnblur ::-              (IsElement self) => Signal self (EventM UIEvent self ())-elementOnblur = (connect "blur")- -elementOnchange ::-                (IsElement self) => Signal self (EventM UIEvent self ())-elementOnchange = (connect "change")- -elementOnclick ::-               (IsElement self) => Signal self (EventM MouseEvent self ())-elementOnclick = (connect "click")- -elementOncontextmenu ::-                     (IsElement self) => Signal self (EventM MouseEvent self ())-elementOncontextmenu = (connect "contextmenu")- -elementOndblclick ::-                  (IsElement self) => Signal self (EventM MouseEvent self ())-elementOndblclick = (connect "dblclick")- -elementOndrag ::-              (IsElement self) => Signal self (EventM MouseEvent self ())-elementOndrag = (connect "drag")- -elementOndragend ::-                 (IsElement self) => Signal self (EventM MouseEvent self ())-elementOndragend = (connect "dragend")- -elementOndragenter ::-                   (IsElement self) => Signal self (EventM MouseEvent self ())-elementOndragenter = (connect "dragenter")- -elementOndragleave ::-                   (IsElement self) => Signal self (EventM MouseEvent self ())-elementOndragleave = (connect "dragleave")- -elementOndragover ::-                  (IsElement self) => Signal self (EventM MouseEvent self ())-elementOndragover = (connect "dragover")- -elementOndragstart ::-                   (IsElement self) => Signal self (EventM MouseEvent self ())-elementOndragstart = (connect "dragstart")- -elementOndrop ::-              (IsElement self) => Signal self (EventM MouseEvent self ())-elementOndrop = (connect "drop")- -elementOnerror ::-               (IsElement self) => Signal self (EventM UIEvent self ())-elementOnerror = (connect "error")- -elementOnfocus ::-               (IsElement self) => Signal self (EventM UIEvent self ())-elementOnfocus = (connect "focus")- -elementOninput ::-               (IsElement self) => Signal self (EventM UIEvent self ())-elementOninput = (connect "input")- -elementOninvalid ::-                 (IsElement self) => Signal self (EventM UIEvent self ())-elementOninvalid = (connect "invalid")- -elementOnkeydown ::-                 (IsElement self) => Signal self (EventM UIEvent self ())-elementOnkeydown = (connect "keydown")- -elementOnkeypress ::-                  (IsElement self) => Signal self (EventM UIEvent self ())-elementOnkeypress = (connect "keypress")- -elementOnkeyup ::-               (IsElement self) => Signal self (EventM UIEvent self ())-elementOnkeyup = (connect "keyup")- -elementOnload ::-              (IsElement self) => Signal self (EventM UIEvent self ())-elementOnload = (connect "load")- -elementOnmousedown ::-                   (IsElement self) => Signal self (EventM MouseEvent self ())-elementOnmousedown = (connect "mousedown")- -elementOnmouseenter ::-                    (IsElement self) => Signal self (EventM UIEvent self ())-elementOnmouseenter = (connect "mouseenter")- -elementOnmouseleave ::-                    (IsElement self) => Signal self (EventM UIEvent self ())-elementOnmouseleave = (connect "mouseleave")- -elementOnmousemove ::-                   (IsElement self) => Signal self (EventM MouseEvent self ())-elementOnmousemove = (connect "mousemove")- -elementOnmouseout ::-                  (IsElement self) => Signal self (EventM MouseEvent self ())-elementOnmouseout = (connect "mouseout")- -elementOnmouseover ::-                   (IsElement self) => Signal self (EventM MouseEvent self ())-elementOnmouseover = (connect "mouseover")- -elementOnmouseup ::-                 (IsElement self) => Signal self (EventM MouseEvent self ())-elementOnmouseup = (connect "mouseup")- -elementOnmousewheel ::-                    (IsElement self) => Signal self (EventM MouseEvent self ())-elementOnmousewheel = (connect "mousewheel")- -elementOnscroll ::-                (IsElement self) => Signal self (EventM UIEvent self ())-elementOnscroll = (connect "scroll")- -elementOnselect ::-                (IsElement self) => Signal self (EventM UIEvent self ())-elementOnselect = (connect "select")- -elementOnsubmit ::-                (IsElement self) => Signal self (EventM UIEvent self ())-elementOnsubmit = (connect "submit")- -elementOnwheel ::-               (IsElement self) => Signal self (EventM UIEvent self ())-elementOnwheel = (connect "wheel")- -elementOnbeforecut ::-                   (IsElement self) => Signal self (EventM UIEvent self ())-elementOnbeforecut = (connect "beforecut")- -elementOncut ::-             (IsElement self) => Signal self (EventM UIEvent self ())-elementOncut = (connect "cut")- -elementOnbeforecopy ::-                    (IsElement self) => Signal self (EventM UIEvent self ())-elementOnbeforecopy = (connect "beforecopy")- -elementOncopy ::-              (IsElement self) => Signal self (EventM UIEvent self ())-elementOncopy = (connect "copy")- -elementOnbeforepaste ::-                     (IsElement self) => Signal self (EventM UIEvent self ())-elementOnbeforepaste = (connect "beforepaste")- -elementOnpaste ::-               (IsElement self) => Signal self (EventM UIEvent self ())-elementOnpaste = (connect "paste")- -elementOnreset ::-               (IsElement self) => Signal self (EventM UIEvent self ())-elementOnreset = (connect "reset")- -elementOnsearch ::-                (IsElement self) => Signal self (EventM UIEvent self ())-elementOnsearch = (connect "search")- -elementOnselectstart ::-                     (IsElement self) => Signal self (EventM UIEvent self ())-elementOnselectstart = (connect "selectstart")- -elementOntouchstart ::-                    (IsElement self) => Signal self (EventM UIEvent self ())-elementOntouchstart = (connect "touchstart")- -elementOntouchmove ::-                   (IsElement self) => Signal self (EventM UIEvent self ())-elementOntouchmove = (connect "touchmove")- -elementOntouchend ::-                  (IsElement self) => Signal self (EventM UIEvent self ())-elementOntouchend = (connect "touchend")- -elementOntouchcancel ::-                     (IsElement self) => Signal self (EventM UIEvent self ())-elementOntouchcancel = (connect "touchcancel")- -elementOnwebkitfullscreenchange ::-                                (IsElement self) => Signal self (EventM UIEvent self ())-elementOnwebkitfullscreenchange-  = (connect "webkitfullscreenchange")- -elementOnwebkitfullscreenerror ::-                               (IsElement self) => Signal self (EventM UIEvent self ())-elementOnwebkitfullscreenerror = (connect "webkitfullscreenerror")- -elementOnwebkitwillrevealbottom ::-                                (IsElement self) => Signal self (EventM UIEvent self ())-elementOnwebkitwillrevealbottom-  = (connect "webkitwillrevealbottom")- -elementOnwebkitwillrevealleft ::-                              (IsElement self) => Signal self (EventM UIEvent self ())-elementOnwebkitwillrevealleft = (connect "webkitwillrevealleft")- -elementOnwebkitwillrevealright ::-                               (IsElement self) => Signal self (EventM UIEvent self ())-elementOnwebkitwillrevealright = (connect "webkitwillrevealright")- -elementOnwebkitwillrevealtop ::-                             (IsElement self) => Signal self (EventM UIEvent self ())-elementOnwebkitwillrevealtop = (connect "webkitwillrevealtop")+  module GHCJS.DOM.JSFFI.Generated.Element #else-module GHCJS.DOM.Element (   module Graphics.UI.Gtk.WebKit.DOM.Element+#endif   ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.Element+#else import Graphics.UI.Gtk.WebKit.DOM.Element #endif
+ src/GHCJS/DOM/Entity.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.Entity (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.Entity+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.Entity+#else+#endif
+ src/GHCJS/DOM/Enums.hs view
@@ -0,0 +1,13 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.Enums (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.Enums+#else+  module Graphics.UI.Gtk.WebKit.DOM.Enums+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.Enums+#else+import Graphics.UI.Gtk.WebKit.DOM.Enums+#endif
+ src/GHCJS/DOM/ErrorEvent.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.ErrorEvent (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.ErrorEvent+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.ErrorEvent+#else+#endif
src/GHCJS/DOM/Event.hs view
@@ -1,189 +1,13 @@ {-# LANGUAGE CPP #-}+module GHCJS.DOM.Event ( #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.Event-       (ghcjs_dom_event_stop_propagation, eventStopPropagation,-        ghcjs_dom_event_prevent_default, eventPreventDefault,-        ghcjs_dom_event_init_event, eventInitEvent,-        ghcjs_dom_event_stop_immediate_propagation,-        eventStopImmediatePropagation, cNONE, cCAPTURING_PHASE, cAT_TARGET,-        cBUBBLING_PHASE, cMOUSEDOWN, cMOUSEUP, cMOUSEOVER, cMOUSEOUT,-        cMOUSEMOVE, cMOUSEDRAG, cCLICK, cDBLCLICK, cKEYDOWN, cKEYUP,-        cKEYPRESS, cDRAGDROP, cFOCUS, cBLUR, cSELECT, cCHANGE,-        ghcjs_dom_event_get_target, eventGetTarget,-        ghcjs_dom_event_get_current_target, eventGetCurrentTarget,-        ghcjs_dom_event_get_event_phase, eventGetEventPhase,-        ghcjs_dom_event_get_bubbles, eventGetBubbles,-        ghcjs_dom_event_get_cancelable, eventGetCancelable,-        ghcjs_dom_event_get_time_stamp, eventGetTimeStamp,-        ghcjs_dom_event_get_default_prevented, eventGetDefaultPrevented,-        ghcjs_dom_event_get_src_element, eventGetSrcElement,-        ghcjs_dom_event_set_return_value, eventSetReturnValue,-        ghcjs_dom_event_get_return_value, eventGetReturnValue,-        ghcjs_dom_event_set_cancel_bubble, eventSetCancelBubble,-        ghcjs_dom_event_get_cancel_bubble, eventGetCancelBubble, Event,-        IsEvent, castToEvent, gTypeEvent, toEvent)-       where-import GHCJS.Types-import GHCJS.Foreign-import GHCJS.Marshal-import Data.Int-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-- -foreign import javascript unsafe "$1[\"stopPropagation\"]()"-        ghcjs_dom_event_stop_propagation :: JSRef Event -> IO ()- -eventStopPropagation :: (IsEvent self) => self -> IO ()-eventStopPropagation self-  = ghcjs_dom_event_stop_propagation (unEvent (toEvent self))- -foreign import javascript unsafe "$1[\"preventDefault\"]()"-        ghcjs_dom_event_prevent_default :: JSRef Event -> IO ()- -eventPreventDefault :: (IsEvent self) => self -> IO ()-eventPreventDefault self-  = ghcjs_dom_event_prevent_default (unEvent (toEvent self))- -foreign import javascript unsafe "$1[\"initEvent\"]($2, $3, $4)"-        ghcjs_dom_event_init_event ::-        JSRef Event -> JSString -> Bool -> Bool -> IO ()- -eventInitEvent ::-               (IsEvent self, ToJSString eventTypeArg) =>-                 self -> eventTypeArg -> Bool -> Bool -> IO ()-eventInitEvent self eventTypeArg canBubbleArg cancelableArg-  = ghcjs_dom_event_init_event (unEvent (toEvent self))-      (toJSString eventTypeArg)-      canBubbleArg-      cancelableArg- -foreign import javascript unsafe-        "$1[\"stopImmediatePropagation\"]()"-        ghcjs_dom_event_stop_immediate_propagation :: JSRef Event -> IO ()- -eventStopImmediatePropagation :: (IsEvent self) => self -> IO ()-eventStopImmediatePropagation self-  = ghcjs_dom_event_stop_immediate_propagation-      (unEvent (toEvent self))-cNONE = 0-cCAPTURING_PHASE = 1-cAT_TARGET = 2-cBUBBLING_PHASE = 3-cMOUSEDOWN = 1-cMOUSEUP = 2-cMOUSEOVER = 4-cMOUSEOUT = 8-cMOUSEMOVE = 16-cMOUSEDRAG = 32-cCLICK = 64-cDBLCLICK = 128-cKEYDOWN = 256-cKEYUP = 512-cKEYPRESS = 1024-cDRAGDROP = 2048-cFOCUS = 4096-cBLUR = 8192-cSELECT = 16384-cCHANGE = 32768- -foreign import javascript unsafe "$1[\"target\"]"-        ghcjs_dom_event_get_target :: JSRef Event -> IO (JSRef EventTarget)- -eventGetTarget :: (IsEvent self) => self -> IO (Maybe EventTarget)-eventGetTarget self-  = fmap EventTarget . maybeJSNull <$>-      (ghcjs_dom_event_get_target (unEvent (toEvent self)))- -foreign import javascript unsafe "$1[\"currentTarget\"]"-        ghcjs_dom_event_get_current_target ::-        JSRef Event -> IO (JSRef EventTarget)- -eventGetCurrentTarget ::-                      (IsEvent self) => self -> IO (Maybe EventTarget)-eventGetCurrentTarget self-  = fmap EventTarget . maybeJSNull <$>-      (ghcjs_dom_event_get_current_target (unEvent (toEvent self)))- -foreign import javascript unsafe "$1[\"eventPhase\"]"-        ghcjs_dom_event_get_event_phase :: JSRef Event -> IO Word- -eventGetEventPhase :: (IsEvent self) => self -> IO Word-eventGetEventPhase self-  = ghcjs_dom_event_get_event_phase (unEvent (toEvent self))- -foreign import javascript unsafe "($1[\"bubbles\"] ? 1 : 0)"-        ghcjs_dom_event_get_bubbles :: JSRef Event -> IO Bool- -eventGetBubbles :: (IsEvent self) => self -> IO Bool-eventGetBubbles self-  = ghcjs_dom_event_get_bubbles (unEvent (toEvent self))- -foreign import javascript unsafe "($1[\"cancelable\"] ? 1 : 0)"-        ghcjs_dom_event_get_cancelable :: JSRef Event -> IO Bool- -eventGetCancelable :: (IsEvent self) => self -> IO Bool-eventGetCancelable self-  = ghcjs_dom_event_get_cancelable (unEvent (toEvent self))- -foreign import javascript unsafe "$1[\"timeStamp\"]"-        ghcjs_dom_event_get_time_stamp :: JSRef Event -> IO Word- -eventGetTimeStamp :: (IsEvent self) => self -> IO Word-eventGetTimeStamp self-  = fromIntegral <$>-      (ghcjs_dom_event_get_time_stamp (unEvent (toEvent self)))- -foreign import javascript unsafe-        "($1[\"defaultPrevented\"] ? 1 : 0)"-        ghcjs_dom_event_get_default_prevented :: JSRef Event -> IO Bool- -eventGetDefaultPrevented :: (IsEvent self) => self -> IO Bool-eventGetDefaultPrevented self-  = ghcjs_dom_event_get_default_prevented (unEvent (toEvent self))- -foreign import javascript unsafe "$1[\"srcElement\"]"-        ghcjs_dom_event_get_src_element ::-        JSRef Event -> IO (JSRef EventTarget)- -eventGetSrcElement ::-                   (IsEvent self) => self -> IO (Maybe EventTarget)-eventGetSrcElement self-  = fmap EventTarget . maybeJSNull <$>-      (ghcjs_dom_event_get_src_element (unEvent (toEvent self)))- -foreign import javascript unsafe "$1[\"returnValue\"] = $2;"-        ghcjs_dom_event_set_return_value :: JSRef Event -> Bool -> IO ()- -eventSetReturnValue :: (IsEvent self) => self -> Bool -> IO ()-eventSetReturnValue self val-  = ghcjs_dom_event_set_return_value (unEvent (toEvent self)) val- -foreign import javascript unsafe "($1[\"returnValue\"] ? 1 : 0)"-        ghcjs_dom_event_get_return_value :: JSRef Event -> IO Bool- -eventGetReturnValue :: (IsEvent self) => self -> IO Bool-eventGetReturnValue self-  = ghcjs_dom_event_get_return_value (unEvent (toEvent self))- -foreign import javascript unsafe "$1[\"cancelBubble\"] = $2;"-        ghcjs_dom_event_set_cancel_bubble :: JSRef Event -> Bool -> IO ()- -eventSetCancelBubble :: (IsEvent self) => self -> Bool -> IO ()-eventSetCancelBubble self val-  = ghcjs_dom_event_set_cancel_bubble (unEvent (toEvent self)) val- -foreign import javascript unsafe "($1[\"cancelBubble\"] ? 1 : 0)"-        ghcjs_dom_event_get_cancel_bubble :: JSRef Event -> IO Bool- -eventGetCancelBubble :: (IsEvent self) => self -> IO Bool-eventGetCancelBubble self-  = ghcjs_dom_event_get_cancel_bubble (unEvent (toEvent self))+  module GHCJS.DOM.JSFFI.Generated.Event #else-module GHCJS.DOM.Event (   module Graphics.UI.Gtk.WebKit.DOM.Event+#endif   ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.Event+#else import Graphics.UI.Gtk.WebKit.DOM.Event #endif
+ src/GHCJS/DOM/EventListener.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.EventListener (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.EventListener+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.EventListener+#else+#endif
src/GHCJS/DOM/EventM.hs view
@@ -1,11 +1,19 @@ {-# LANGUAGE ConstraintKinds #-} module GHCJS.DOM.EventM (-  Signal (..)-, EventM (..)-, target+  EventM(..)+, SaferEventListener(..)+, EventName+, newListener+, newListenerSync+, newListenerAsync+, addListener+, removeListener+, releaseListener+, on , event , eventTarget+, target , eventCurrentTarget , eventPhase , bubbles@@ -54,211 +62,225 @@ , mouseXY , mouseFromElement , mouseToElement-, connect ) where-import Control.Applicative ((<$>))-import Control.Monad.Reader ( ReaderT, ask, runReaderT )-import Control.Monad.Trans ( liftIO )-import GHCJS.DOM.Types-import GHCJS.DOM.Event-import GHCJS.DOM.UIEvent-import GHCJS.DOM.MouseEvent-import GHCJS.DOM.EventTargetClosures-import Data.Word (Word)+import           Control.Applicative ((<$>))+import           Control.Monad.Trans.Reader (ReaderT, ask, runReaderT)+import           Control.Monad.IO.Class (MonadIO(..))+import           GHCJS.DOM.Types+import qualified GHCJS.DOM.Event as Event+import qualified GHCJS.DOM.UIEvent as UIEvent+import qualified GHCJS.DOM.MouseEvent as MouseEvent+import           GHCJS.DOM.EventTarget+import           GHCJS.DOM.EventTargetClosures+import           Data.Word (Word) -type Signal target callback = target -> callback -> IO (IO ())+type EventM t e = ReaderT e IO -type EventM e t a = ReaderT (t, e) IO a+newListener :: (IsEvent e) => EventM t e () -> IO (SaferEventListener t e)+newListener f = SaferEventListener <$> eventListenerNew (runReaderT f) -target :: EventM e t t-target = fst <$> ask+newListenerSync :: (IsEvent e) => EventM t e () -> IO (SaferEventListener t e)+newListenerSync f = SaferEventListener <$> eventListenerNewSync (runReaderT f) -event :: EventM e t e-event = snd <$> ask+newListenerAsync :: (IsEvent e) => EventM t e () -> IO (SaferEventListener t e)+newListenerAsync f = SaferEventListener <$> eventListenerNewAsync (runReaderT f) -eventTarget :: IsEvent e => EventM e t (Maybe EventTarget)-eventTarget = event >>= (liftIO . eventGetTarget)+addListener :: (IsEventTarget t, IsEvent e) => t -> EventName t e -> SaferEventListener t e -> Bool -> IO ()+addListener target (EventName eventName) (SaferEventListener l) useCapture =+    addEventListener target eventName (Just l) useCapture -eventCurrentTarget :: IsEvent e => EventM e t (Maybe EventTarget)-eventCurrentTarget = event >>= (liftIO . eventGetCurrentTarget)+removeListener :: (IsEventTarget t, IsEvent e) => t -> EventName t e -> SaferEventListener t e -> Bool -> IO ()+removeListener target (EventName eventName) (SaferEventListener l) useCapture =+    removeEventListener target eventName (Just l) useCapture -eventPhase :: IsEvent e => EventM e t Word-eventPhase = event >>= (liftIO . eventGetEventPhase)+releaseListener :: (IsEventTarget t, IsEvent e) => SaferEventListener t e -> IO ()+releaseListener (SaferEventListener l) = eventListenerRelease l -bubbles :: IsEvent e => EventM e t Bool-bubbles = event >>= (liftIO . eventGetBubbles)+on :: (IsEventTarget t, IsEvent e) => t -> EventName t e -> EventM t e () -> IO (IO ())+on target eventName callback = do+    l <- newListener callback+    addListener target eventName l False+    return (removeListener target eventName l False) -cancelable :: IsEvent e => EventM e t Bool-cancelable = event >>= (liftIO . eventGetCancelable)+event :: EventM t e e+event = ask -timeStamp :: IsEvent e => EventM e t Word-timeStamp = event >>= (liftIO . eventGetTimeStamp)+eventTarget :: IsEvent e => EventM t e (Maybe EventTarget)+eventTarget = event >>= Event.getTarget -stopPropagation :: IsEvent e => EventM e t ()-stopPropagation = event >>= (liftIO . eventStopPropagation)+target :: (IsEvent e, IsGObject t) => EventM t e (Maybe t)+target = (fmap (unsafeCastGObject . toGObject)) <$> eventTarget -preventDefault :: IsEvent e => EventM e t ()-preventDefault = event >>= (liftIO . eventPreventDefault)+eventCurrentTarget :: IsEvent e => EventM t e (Maybe EventTarget)+eventCurrentTarget = event >>= Event.getCurrentTarget -defaultPrevented :: IsEvent e => EventM e t Bool-defaultPrevented = event >>= (liftIO . eventGetDefaultPrevented)+eventPhase :: IsEvent e => EventM t e Word+eventPhase = event >>= Event.getEventPhase -stopImmediatePropagation :: IsEvent e => EventM e t ()-stopImmediatePropagation = event >>= (liftIO . eventStopImmediatePropagation)+bubbles :: IsEvent e => EventM t e Bool+bubbles = event >>= Event.getBubbles -srcElement :: IsEvent e => EventM e t (Maybe EventTarget)-srcElement = event >>= (liftIO . eventGetSrcElement)+cancelable :: IsEvent e => EventM t e Bool+cancelable = event >>= Event.getCancelable -getCancelBubble :: IsEvent e => EventM e t Bool-getCancelBubble = event >>= (liftIO . eventGetCancelBubble)+timeStamp :: IsEvent e => EventM t e Word+timeStamp = event >>= Event.getTimeStamp -cancelBubble :: IsEvent e => Bool -> EventM e t ()-cancelBubble f = event >>= (liftIO . flip eventSetCancelBubble f)+stopPropagation :: IsEvent e => EventM t e ()+stopPropagation = event >>= Event.stopPropagation -getReturnValue :: IsEvent e => EventM e t Bool-getReturnValue = event >>= (liftIO . eventGetReturnValue)+preventDefault :: IsEvent e => EventM t e ()+preventDefault = event >>= Event.preventDefault -returnValue :: IsEvent e => Bool -> EventM e t ()-returnValue f = event >>= (liftIO . flip eventSetReturnValue f)+defaultPrevented :: IsEvent e => EventM t e Bool+defaultPrevented = event >>= Event.getDefaultPrevented -uiView :: IsUIEvent e => EventM e t (Maybe DOMWindow)-uiView = event >>= (liftIO . uiEventGetView)+stopImmediatePropagation :: IsEvent e => EventM t e ()+stopImmediatePropagation = event >>= Event.stopImmediatePropagation -uiDetail :: IsUIEvent e => EventM e t Int-uiDetail = event >>= (liftIO . uiEventGetDetail)+srcElement :: IsEvent e => EventM t e (Maybe EventTarget)+srcElement = event >>= Event.getSrcElement -uiKeyCode :: IsUIEvent e => EventM e t Int-uiKeyCode = event >>= (liftIO . uiEventGetKeyCode)+getCancelBubble :: IsEvent e => EventM t e Bool+getCancelBubble = event >>= Event.getCancelBubble -uiCharCode :: IsUIEvent e => EventM e t Int-uiCharCode = event >>= (liftIO . uiEventGetCharCode)+cancelBubble :: IsEvent e => Bool -> EventM t e ()+cancelBubble f = event >>= flip Event.setCancelBubble f -uiLayerX :: IsUIEvent e => EventM e t Int-uiLayerX = event >>= (liftIO . uiEventGetLayerX)+getReturnValue :: IsEvent e => EventM t e Bool+getReturnValue = event >>= Event.getReturnValue -uiLayerY :: IsUIEvent e => EventM e t Int-uiLayerY = event >>= (liftIO . uiEventGetLayerY)+returnValue :: IsEvent e => Bool -> EventM t e ()+returnValue f = event >>= flip Event.setReturnValue f -uiLayerXY :: IsUIEvent e => EventM e t (Int, Int)+uiView :: IsUIEvent e => EventM t e (Maybe Window)+uiView = event >>= UIEvent.getView++uiDetail :: IsUIEvent e => EventM t e Int+uiDetail = event >>= UIEvent.getDetail++uiKeyCode :: IsUIEvent e => EventM t e Int+uiKeyCode = event >>= UIEvent.getKeyCode++uiCharCode :: IsUIEvent e => EventM t e Int+uiCharCode = event >>= UIEvent.getCharCode++uiLayerX :: IsUIEvent e => EventM t e Int+uiLayerX = event >>= UIEvent.getLayerX++uiLayerY :: IsUIEvent e => EventM t e Int+uiLayerY = event >>= UIEvent.getLayerY++uiLayerXY :: IsUIEvent e => EventM t e (Int, Int) uiLayerXY = do-  e <- event-  liftIO $ do-    x <- uiEventGetLayerX e-    y <- uiEventGetLayerY e+    e <- event+    x <- UIEvent.getLayerX e+    y <- UIEvent.getLayerY e     return (x, y) -uiPageX :: IsUIEvent e => EventM e t Int-uiPageX = event >>= (liftIO . uiEventGetPageX)+uiPageX :: IsUIEvent e => EventM t e Int+uiPageX = event >>= UIEvent.getPageX -uiPageY :: IsUIEvent e => EventM e t Int-uiPageY = event >>= (liftIO . uiEventGetPageY)+uiPageY :: IsUIEvent e => EventM t e Int+uiPageY = event >>= UIEvent.getPageY -uiPageXY :: IsUIEvent e => EventM e t (Int, Int)+uiPageXY :: IsUIEvent e => EventM t e (Int, Int) uiPageXY = do-  e <- event-  liftIO $ do-    x <- uiEventGetPageX e-    y <- uiEventGetPageY e+    e <- event+    x <- UIEvent.getPageX e+    y <- UIEvent.getPageY e     return (x, y) -uiWhich :: IsUIEvent e => EventM e t Int-uiWhich = event >>= (liftIO . uiEventGetWhich)+uiWhich :: IsUIEvent e => EventM t e Int+uiWhich = event >>= UIEvent.getWhich -mouseScreenX :: IsMouseEvent e => EventM e t Int-mouseScreenX = event >>= (liftIO . mouseEventGetScreenX)+mouseScreenX :: IsMouseEvent e => EventM t e Int+mouseScreenX = event >>= MouseEvent.getScreenX -mouseScreenY :: IsMouseEvent e => EventM e t Int-mouseScreenY = event >>= (liftIO . mouseEventGetScreenY)+mouseScreenY :: IsMouseEvent e => EventM t e Int+mouseScreenY = event >>= MouseEvent.getScreenY -mouseScreenXY :: IsMouseEvent e => EventM e t (Int, Int)+mouseScreenXY :: IsMouseEvent e => EventM t e (Int, Int) mouseScreenXY = do-  e <- event-  liftIO $ do-    x <- mouseEventGetScreenX e-    y <- mouseEventGetScreenY e+    e <- event+    x <- MouseEvent.getScreenX e+    y <- MouseEvent.getScreenY e     return (x, y) -mouseClientX :: IsMouseEvent e => EventM e t Int-mouseClientX = event >>= (liftIO . mouseEventGetClientX)+mouseClientX :: IsMouseEvent e => EventM t e Int+mouseClientX = event >>= MouseEvent.getClientX -mouseClientY :: IsMouseEvent e => EventM e t Int-mouseClientY = event >>= (liftIO . mouseEventGetClientY)+mouseClientY :: IsMouseEvent e => EventM t e Int+mouseClientY = event >>= MouseEvent.getClientY -mouseClientXY :: IsMouseEvent e => EventM e t (Int, Int)+mouseClientXY :: IsMouseEvent e => EventM t e (Int, Int) mouseClientXY = do-  e <- event-  liftIO $ do-    x <- mouseEventGetClientX e-    y <- mouseEventGetClientY e+    e <- event+    x <- MouseEvent.getClientX e+    y <- MouseEvent.getClientY e     return (x, y) -mouseMovementX :: IsMouseEvent e => EventM e t Int-mouseMovementX = event >>= (liftIO . mouseEventGetMovementX)+mouseMovementX :: IsMouseEvent e => EventM t e Int+mouseMovementX = event >>= MouseEvent.getMovementX -mouseMovementY :: IsMouseEvent e => EventM e t Int-mouseMovementY = event >>= (liftIO . mouseEventGetMovementY)+mouseMovementY :: IsMouseEvent e => EventM t e Int+mouseMovementY = event >>= MouseEvent.getMovementY -mouseMovementXY :: IsMouseEvent e => EventM e t (Int, Int)+mouseMovementXY :: IsMouseEvent e => EventM t e (Int, Int) mouseMovementXY = do-  e <- event-  liftIO $ do-    x <- mouseEventGetMovementX e-    y <- mouseEventGetMovementY e+    e <- event+    x <- MouseEvent.getMovementX e+    y <- MouseEvent.getMovementY e     return (x, y) -mouseCtrlKey :: IsMouseEvent e => EventM e t Bool-mouseCtrlKey = event >>= (liftIO . mouseEventGetCtrlKey)+mouseCtrlKey :: IsMouseEvent e => EventM t e Bool+mouseCtrlKey = event >>= MouseEvent.getCtrlKey -mouseShiftKey :: IsMouseEvent e => EventM e t Bool-mouseShiftKey = event >>= (liftIO . mouseEventGetShiftKey)+mouseShiftKey :: IsMouseEvent e => EventM t e Bool+mouseShiftKey = event >>= MouseEvent.getShiftKey -mouseAltKey :: IsMouseEvent e => EventM e t Bool-mouseAltKey = event >>= (liftIO . mouseEventGetAltKey)+mouseAltKey :: IsMouseEvent e => EventM t e Bool+mouseAltKey = event >>= MouseEvent.getAltKey -mouseMetaKey :: IsMouseEvent e => EventM e t Bool-mouseMetaKey = event >>= (liftIO . mouseEventGetMetaKey)+mouseMetaKey :: IsMouseEvent e => EventM t e Bool+mouseMetaKey = event >>= MouseEvent.getMetaKey -mouseButton :: IsMouseEvent e => EventM e t Word-mouseButton = event >>= (liftIO . mouseEventGetButton)+mouseButton :: IsMouseEvent e => EventM t e Word+mouseButton = event >>= MouseEvent.getButton -mouseRelatedTarget :: IsMouseEvent e => EventM e t (Maybe EventTarget)-mouseRelatedTarget = event >>= (liftIO . mouseEventGetRelatedTarget)+mouseRelatedTarget :: IsMouseEvent e => EventM t e (Maybe EventTarget)+mouseRelatedTarget = event >>= MouseEvent.getRelatedTarget -mouseOffsetX :: IsMouseEvent e => EventM e t Int-mouseOffsetX = event >>= (liftIO . mouseEventGetOffsetX)+mouseOffsetX :: IsMouseEvent e => EventM t e Int+mouseOffsetX = event >>= MouseEvent.getOffsetX -mouseOffsetY :: IsMouseEvent e => EventM e t Int-mouseOffsetY = event >>= (liftIO . mouseEventGetOffsetY)+mouseOffsetY :: IsMouseEvent e => EventM t e Int+mouseOffsetY = event >>= MouseEvent.getOffsetY -mouseOffsetXY :: IsMouseEvent e => EventM e t (Int, Int)+mouseOffsetXY :: IsMouseEvent e => EventM t e (Int, Int) mouseOffsetXY = do-  e <- event-  liftIO $ do-    x <- mouseEventGetOffsetX e-    y <- mouseEventGetOffsetY e+    e <- event+    x <- MouseEvent.getOffsetX e+    y <- MouseEvent.getOffsetY e     return (x, y) -mouseX :: IsMouseEvent e => EventM e t Int-mouseX = event >>= (liftIO . mouseEventGetX)+mouseX :: IsMouseEvent e => EventM t e Int+mouseX = event >>= MouseEvent.getX -mouseY :: IsMouseEvent e => EventM e t Int-mouseY = event >>= (liftIO . mouseEventGetY)+mouseY :: IsMouseEvent e => EventM t e Int+mouseY = event >>= MouseEvent.getY -mouseXY :: IsMouseEvent e => EventM e t (Int, Int)+mouseXY :: IsMouseEvent e => EventM t e (Int, Int) mouseXY = do-  e <- event-  liftIO $ do-    x <- mouseEventGetX e-    y <- mouseEventGetY e+    e <- event+    x <- MouseEvent.getX e+    y <- MouseEvent.getY e     return (x, y) -mouseFromElement :: IsMouseEvent e => EventM e t (Maybe Node)-mouseFromElement = event >>= (liftIO . mouseEventGetFromElement)+mouseFromElement :: IsMouseEvent e => EventM t e (Maybe Node)+mouseFromElement = event >>= MouseEvent.getFromElement -mouseToElement :: IsMouseEvent e => EventM e t (Maybe Node)-mouseToElement = event >>= (liftIO . mouseEventGetToElement)+mouseToElement :: IsMouseEvent e => EventM t e (Maybe Node)+mouseToElement = event >>= MouseEvent.getToElement -connect :: (GObjectClass t, IsEvent e, ToDOMString string) => string -> t -> EventM e t () -> IO (IO ())-connect eventName target callback =-  eventTargetAddEventListener target eventName False $ curry (runReaderT callback)
+ src/GHCJS/DOM/EventSource.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.EventSource (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.EventSource+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.EventSource+#else+#endif
+ src/GHCJS/DOM/EventTarget.hs view
@@ -0,0 +1,13 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.EventTarget (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.EventTarget+#else+  module Graphics.UI.Gtk.WebKit.DOM.EventTarget+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.EventTarget+#else+import Graphics.UI.Gtk.WebKit.DOM.EventTarget+#endif
src/GHCJS/DOM/EventTargetClosures.hs view
@@ -2,49 +2,42 @@ #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE JavaScriptFFI, ForeignFunctionInterface #-} module GHCJS.DOM.EventTargetClosures-       (eventTargetAddEventListener) where+       (EventName(..), SaferEventListener(..), unsafeEventName, eventListenerNew, eventListenerNewSync, eventListenerNewAsync, eventListenerRelease) where +import Control.Applicative ((<$>)) import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Foreign.Callback.Internal+import GHCJS.Foreign.Callback+import GHCJS.Marshal.Pure import GHCJS.DOM.Types+import GHCJS.Marshal.Pure (pToJSRef, pFromJSRef) -#ifdef ghcjs_HOST_OS-foreign import javascript unsafe-        "($1[\"addEventListener\"]($2, $3, $4) ? 1 : 0)"-        ghcjs_dom_event_target_add_event_listener ::-        JSRef GObject -> JSString -> JSRef a -> Bool -> IO Bool+newtype EventName t e = EventName DOMString+newtype SaferEventListener t e = SaferEventListener EventListener -foreign import javascript unsafe-        "($1[\"removeEventListener\"]($2, $3, $4) ? 1 : 0)"-        ghcjs_dom_event_target_remove_event_listener ::-        JSRef GObject -> JSString -> JSRef a -> Bool -> IO Bool-#else-ghcjs_dom_event_target_add_event_listener ::-        JSRef GObject -> JSString -> JSRef a -> Bool -> IO Bool-ghcjs_dom_event_target_add_event_listener = undefined+instance PToJSRef (SaferEventListener t e) where+    pToJSRef (SaferEventListener l) = castRef $ pToJSRef l+    {-# INLINE pToJSRef #-} -ghcjs_dom_event_target_remove_event_listener ::-        JSRef GObject -> JSString -> JSRef a -> Bool -> IO Bool-ghcjs_dom_event_target_remove_event_listener = undefined-#endif+instance PFromJSRef (SaferEventListener t e) where+    pFromJSRef = SaferEventListener . pFromJSRef . castRef+    {-# INLINE pFromJSRef #-} -eventTargetAddEventListener ::-                         (GObjectClass self, ToJSString eventName, IsEvent event) =>-                           self -> eventName -> Bool -> (self -> event -> IO ()) -> IO (IO ())-eventTargetAddEventListener self eventName bubble user = do-    callback <- syncCallback1 AlwaysRetain True $ \e -> user self (unsafeCastGObject $ GObject e)-    ghcjs_dom_event_target_add_event_listener-        (unGObject (toGObject self))-        (toJSString eventName)-        callback-        bubble-    return $ do-        ghcjs_dom_event_target_remove_event_listener-            (unGObject (toGObject self))-            (toJSString eventName)-            callback-            bubble-        release callback+unsafeEventName :: DOMString -> EventName t e+unsafeEventName = EventName++eventListenerNew :: IsEvent event => (event -> IO ()) -> IO EventListener+eventListenerNew callback = (EventListener . castRef . pToJSRef) <$> syncCallback1 ContinueAsync (callback . unsafeCastGObject . GObject)++eventListenerNewSync :: IsEvent event => (event -> IO ()) -> IO EventListener+eventListenerNewSync callback = (EventListener . castRef . pToJSRef) <$> syncCallback1 ThrowWouldBlock (callback . unsafeCastGObject . GObject)++eventListenerNewAsync :: IsEvent event => (event -> IO ()) -> IO EventListener+eventListenerNewAsync callback = (EventListener . castRef . pToJSRef) <$> asyncCallback1 (callback . unsafeCastGObject . GObject)++eventListenerRelease :: EventListener -> IO ()+eventListenerRelease (EventListener ref) = releaseCallback (Callback $ castRef ref)+ #else module GHCJS.DOM.EventTargetClosures (   module Graphics.UI.Gtk.WebKit.DOM.EventTargetClosures
− src/GHCJS/DOM/Events.hs 
@@ -1,16 +0,0 @@-{-# LANGUAGE CPP #-}-#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.Events (Event, IsEvent) where- -data Event = Event- -class IsEvent a- -instance IsEvent Event-#else-module GHCJS.DOM.Events (-  module Graphics.UI.Gtk.WebKit.DOM.Events-  ) where-import Graphics.UI.Gtk.WebKit.DOM.Events-#endif
src/GHCJS/DOM/File.hs view
@@ -1,30 +1,13 @@ {-# LANGUAGE CPP #-}+module GHCJS.DOM.File ( #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.File-       (ghcjs_dom_file_get_name, fileGetName, File, IsFile, castToFile,-        gTypeFile, toFile)-       where-import GHCJS.Types-import GHCJS.Foreign-import GHCJS.Marshal-import Data.Int-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-- -foreign import javascript unsafe "$1[\"name\"]"-        ghcjs_dom_file_get_name :: JSRef File -> IO JSString- -fileGetName ::-            (IsFile self, FromJSString result) => self -> IO result-fileGetName self-  = fromJSString <$> (ghcjs_dom_file_get_name (unFile (toFile self)))+  module GHCJS.DOM.JSFFI.Generated.File #else-module GHCJS.DOM.File (   module Graphics.UI.Gtk.WebKit.DOM.File+#endif   ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.File+#else import Graphics.UI.Gtk.WebKit.DOM.File #endif
+ src/GHCJS/DOM/FileError.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.FileError (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.FileError+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.FileError+#else+#endif
src/GHCJS/DOM/FileList.hs view
@@ -1,40 +1,13 @@ {-# LANGUAGE CPP #-}+module GHCJS.DOM.FileList ( #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.FileList-       (ghcjs_dom_file_list_item, fileListItem,-        ghcjs_dom_file_list_get_length, fileListGetLength, FileList,-        IsFileList, castToFileList, gTypeFileList, toFileList)-       where-import GHCJS.Types-import GHCJS.Foreign-import GHCJS.Marshal-import Data.Int-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-- -foreign import javascript unsafe "$1[\"item\"]($2)"-        ghcjs_dom_file_list_item ::-        JSRef FileList -> Word -> IO (JSRef File)- -fileListItem ::-             (IsFileList self) => self -> Word -> IO (Maybe File)-fileListItem self index-  = fmap File . maybeJSNull <$>-      (ghcjs_dom_file_list_item (unFileList (toFileList self)) index)- -foreign import javascript unsafe "$1[\"length\"]"-        ghcjs_dom_file_list_get_length :: JSRef FileList -> IO Word- -fileListGetLength :: (IsFileList self) => self -> IO Word-fileListGetLength self-  = ghcjs_dom_file_list_get_length (unFileList (toFileList self))+  module GHCJS.DOM.JSFFI.Generated.FileList #else-module GHCJS.DOM.FileList (   module Graphics.UI.Gtk.WebKit.DOM.FileList+#endif   ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.FileList+#else import Graphics.UI.Gtk.WebKit.DOM.FileList #endif
+ src/GHCJS/DOM/FileReader.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.FileReader (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.FileReader+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.FileReader+#else+#endif
+ src/GHCJS/DOM/FileReaderSync.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.FileReaderSync (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.FileReaderSync+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.FileReaderSync+#else+#endif
+ src/GHCJS/DOM/FocusEvent.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.FocusEvent (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.FocusEvent+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.FocusEvent+#else+#endif
+ src/GHCJS/DOM/FontLoader.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.FontLoader (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.FontLoader+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.FontLoader+#else+#endif
+ src/GHCJS/DOM/FormData.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.FormData (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.FormData+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.FormData+#else+#endif
+ src/GHCJS/DOM/GainNode.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.GainNode (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.GainNode+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.GainNode+#else+#endif
+ src/GHCJS/DOM/Gamepad.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.Gamepad (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.Gamepad+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.Gamepad+#else+#endif
+ src/GHCJS/DOM/GamepadButton.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.GamepadButton (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.GamepadButton+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.GamepadButton+#else+#endif
+ src/GHCJS/DOM/GamepadEvent.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.GamepadEvent (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.GamepadEvent+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.GamepadEvent+#else+#endif
src/GHCJS/DOM/Geolocation.hs view
@@ -1,34 +1,13 @@ {-# LANGUAGE CPP #-}+module GHCJS.DOM.Geolocation ( #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.Geolocation-       (ghcjs_dom_geolocation_clear_watch, geolocationClearWatch,-        Geolocation, IsGeolocation, castToGeolocation, gTypeGeolocation,-        toGeolocation)-       where-import GHCJS.Types-import GHCJS.Foreign-import GHCJS.Marshal-import Data.Int-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-- -foreign import javascript unsafe "$1[\"clearWatch\"]($2)"-        ghcjs_dom_geolocation_clear_watch ::-        JSRef Geolocation -> Int -> IO ()- -geolocationClearWatch ::-                      (IsGeolocation self) => self -> Int -> IO ()-geolocationClearWatch self watchID-  = ghcjs_dom_geolocation_clear_watch-      (unGeolocation (toGeolocation self))-      watchID+  module GHCJS.DOM.JSFFI.Geolocation #else-module GHCJS.DOM.Geolocation (   module Graphics.UI.Gtk.WebKit.DOM.Geolocation+#endif   ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Geolocation+#else import Graphics.UI.Gtk.WebKit.DOM.Geolocation #endif
+ src/GHCJS/DOM/Geoposition.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.Geoposition (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.Geoposition+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.Geoposition+#else+#endif
+ src/GHCJS/DOM/HTMLAllCollection.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.HTMLAllCollection (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.HTMLAllCollection+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.HTMLAllCollection+#else+#endif
src/GHCJS/DOM/HTMLAnchorElement.hs view
@@ -1,542 +1,13 @@ {-# LANGUAGE CPP #-}+module GHCJS.DOM.HTMLAnchorElement ( #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.HTMLAnchorElement-       (ghcjs_dom_html_anchor_element_set_charset,-        htmlAnchorElementSetCharset,-        ghcjs_dom_html_anchor_element_get_charset,-        htmlAnchorElementGetCharset,-        ghcjs_dom_html_anchor_element_set_coords,-        htmlAnchorElementSetCoords,-        ghcjs_dom_html_anchor_element_get_coords,-        htmlAnchorElementGetCoords,-        ghcjs_dom_html_anchor_element_set_download,-        htmlAnchorElementSetDownload,-        ghcjs_dom_html_anchor_element_get_download,-        htmlAnchorElementGetDownload,-        ghcjs_dom_html_anchor_element_set_href, htmlAnchorElementSetHref,-        ghcjs_dom_html_anchor_element_get_href, htmlAnchorElementGetHref,-        ghcjs_dom_html_anchor_element_set_hreflang,-        htmlAnchorElementSetHreflang,-        ghcjs_dom_html_anchor_element_get_hreflang,-        htmlAnchorElementGetHreflang,-        ghcjs_dom_html_anchor_element_set_name, htmlAnchorElementSetName,-        ghcjs_dom_html_anchor_element_get_name, htmlAnchorElementGetName,-        ghcjs_dom_html_anchor_element_set_ping, htmlAnchorElementSetPing,-        ghcjs_dom_html_anchor_element_get_ping, htmlAnchorElementGetPing,-        ghcjs_dom_html_anchor_element_set_rel, htmlAnchorElementSetRel,-        ghcjs_dom_html_anchor_element_get_rel, htmlAnchorElementGetRel,-        ghcjs_dom_html_anchor_element_set_rev, htmlAnchorElementSetRev,-        ghcjs_dom_html_anchor_element_get_rev, htmlAnchorElementGetRev,-        ghcjs_dom_html_anchor_element_set_shape, htmlAnchorElementSetShape,-        ghcjs_dom_html_anchor_element_get_shape, htmlAnchorElementGetShape,-        ghcjs_dom_html_anchor_element_set_target,-        htmlAnchorElementSetTarget,-        ghcjs_dom_html_anchor_element_get_target,-        htmlAnchorElementGetTarget, ghcjs_dom_html_anchor_element_set_hash,-        htmlAnchorElementSetHash, ghcjs_dom_html_anchor_element_get_hash,-        htmlAnchorElementGetHash, ghcjs_dom_html_anchor_element_set_host,-        htmlAnchorElementSetHost, ghcjs_dom_html_anchor_element_get_host,-        htmlAnchorElementGetHost,-        ghcjs_dom_html_anchor_element_set_hostname,-        htmlAnchorElementSetHostname,-        ghcjs_dom_html_anchor_element_get_hostname,-        htmlAnchorElementGetHostname,-        ghcjs_dom_html_anchor_element_set_pathname,-        htmlAnchorElementSetPathname,-        ghcjs_dom_html_anchor_element_get_pathname,-        htmlAnchorElementGetPathname,-        ghcjs_dom_html_anchor_element_set_port, htmlAnchorElementSetPort,-        ghcjs_dom_html_anchor_element_get_port, htmlAnchorElementGetPort,-        ghcjs_dom_html_anchor_element_set_protocol,-        htmlAnchorElementSetProtocol,-        ghcjs_dom_html_anchor_element_get_protocol,-        htmlAnchorElementGetProtocol,-        ghcjs_dom_html_anchor_element_set_search,-        htmlAnchorElementSetSearch,-        ghcjs_dom_html_anchor_element_get_search,-        htmlAnchorElementGetSearch,-        ghcjs_dom_html_anchor_element_get_origin,-        htmlAnchorElementGetOrigin, ghcjs_dom_html_anchor_element_set_text,-        htmlAnchorElementSetText, ghcjs_dom_html_anchor_element_get_text,-        htmlAnchorElementGetText,-        ghcjs_dom_html_anchor_element_get_rel_list,-        htmlAnchorElementGetRelList, HTMLAnchorElement,-        IsHTMLAnchorElement, castToHTMLAnchorElement,-        gTypeHTMLAnchorElement, toHTMLAnchorElement)-       where-import GHCJS.Types-import GHCJS.Foreign-import GHCJS.Marshal-import Data.Int-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-- -foreign import javascript unsafe "$1[\"charset\"] = $2;"-        ghcjs_dom_html_anchor_element_set_charset ::-        JSRef HTMLAnchorElement -> JSString -> IO ()- -htmlAnchorElementSetCharset ::-                            (IsHTMLAnchorElement self, ToJSString val) => self -> val -> IO ()-htmlAnchorElementSetCharset self val-  = ghcjs_dom_html_anchor_element_set_charset-      (unHTMLAnchorElement (toHTMLAnchorElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"charset\"]"-        ghcjs_dom_html_anchor_element_get_charset ::-        JSRef HTMLAnchorElement -> IO JSString- -htmlAnchorElementGetCharset ::-                            (IsHTMLAnchorElement self, FromJSString result) =>-                              self -> IO result-htmlAnchorElementGetCharset self-  = fromJSString <$>-      (ghcjs_dom_html_anchor_element_get_charset-         (unHTMLAnchorElement (toHTMLAnchorElement self)))- -foreign import javascript unsafe "$1[\"coords\"] = $2;"-        ghcjs_dom_html_anchor_element_set_coords ::-        JSRef HTMLAnchorElement -> JSString -> IO ()- -htmlAnchorElementSetCoords ::-                           (IsHTMLAnchorElement self, ToJSString val) => self -> val -> IO ()-htmlAnchorElementSetCoords self val-  = ghcjs_dom_html_anchor_element_set_coords-      (unHTMLAnchorElement (toHTMLAnchorElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"coords\"]"-        ghcjs_dom_html_anchor_element_get_coords ::-        JSRef HTMLAnchorElement -> IO JSString- -htmlAnchorElementGetCoords ::-                           (IsHTMLAnchorElement self, FromJSString result) =>-                             self -> IO result-htmlAnchorElementGetCoords self-  = fromJSString <$>-      (ghcjs_dom_html_anchor_element_get_coords-         (unHTMLAnchorElement (toHTMLAnchorElement self)))- -foreign import javascript unsafe "$1[\"download\"] = $2;"-        ghcjs_dom_html_anchor_element_set_download ::-        JSRef HTMLAnchorElement -> JSString -> IO ()- -htmlAnchorElementSetDownload ::-                             (IsHTMLAnchorElement self, ToJSString val) => self -> val -> IO ()-htmlAnchorElementSetDownload self val-  = ghcjs_dom_html_anchor_element_set_download-      (unHTMLAnchorElement (toHTMLAnchorElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"download\"]"-        ghcjs_dom_html_anchor_element_get_download ::-        JSRef HTMLAnchorElement -> IO JSString- -htmlAnchorElementGetDownload ::-                             (IsHTMLAnchorElement self, FromJSString result) =>-                               self -> IO result-htmlAnchorElementGetDownload self-  = fromJSString <$>-      (ghcjs_dom_html_anchor_element_get_download-         (unHTMLAnchorElement (toHTMLAnchorElement self)))- -foreign import javascript unsafe "$1[\"href\"] = $2;"-        ghcjs_dom_html_anchor_element_set_href ::-        JSRef HTMLAnchorElement -> JSString -> IO ()- -htmlAnchorElementSetHref ::-                         (IsHTMLAnchorElement self, ToJSString val) => self -> val -> IO ()-htmlAnchorElementSetHref self val-  = ghcjs_dom_html_anchor_element_set_href-      (unHTMLAnchorElement (toHTMLAnchorElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"href\"]"-        ghcjs_dom_html_anchor_element_get_href ::-        JSRef HTMLAnchorElement -> IO JSString- -htmlAnchorElementGetHref ::-                         (IsHTMLAnchorElement self, FromJSString result) =>-                           self -> IO result-htmlAnchorElementGetHref self-  = fromJSString <$>-      (ghcjs_dom_html_anchor_element_get_href-         (unHTMLAnchorElement (toHTMLAnchorElement self)))- -foreign import javascript unsafe "$1[\"hreflang\"] = $2;"-        ghcjs_dom_html_anchor_element_set_hreflang ::-        JSRef HTMLAnchorElement -> JSString -> IO ()- -htmlAnchorElementSetHreflang ::-                             (IsHTMLAnchorElement self, ToJSString val) => self -> val -> IO ()-htmlAnchorElementSetHreflang self val-  = ghcjs_dom_html_anchor_element_set_hreflang-      (unHTMLAnchorElement (toHTMLAnchorElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"hreflang\"]"-        ghcjs_dom_html_anchor_element_get_hreflang ::-        JSRef HTMLAnchorElement -> IO JSString- -htmlAnchorElementGetHreflang ::-                             (IsHTMLAnchorElement self, FromJSString result) =>-                               self -> IO result-htmlAnchorElementGetHreflang self-  = fromJSString <$>-      (ghcjs_dom_html_anchor_element_get_hreflang-         (unHTMLAnchorElement (toHTMLAnchorElement self)))- -foreign import javascript unsafe "$1[\"name\"] = $2;"-        ghcjs_dom_html_anchor_element_set_name ::-        JSRef HTMLAnchorElement -> JSString -> IO ()- -htmlAnchorElementSetName ::-                         (IsHTMLAnchorElement self, ToJSString val) => self -> val -> IO ()-htmlAnchorElementSetName self val-  = ghcjs_dom_html_anchor_element_set_name-      (unHTMLAnchorElement (toHTMLAnchorElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"name\"]"-        ghcjs_dom_html_anchor_element_get_name ::-        JSRef HTMLAnchorElement -> IO JSString- -htmlAnchorElementGetName ::-                         (IsHTMLAnchorElement self, FromJSString result) =>-                           self -> IO result-htmlAnchorElementGetName self-  = fromJSString <$>-      (ghcjs_dom_html_anchor_element_get_name-         (unHTMLAnchorElement (toHTMLAnchorElement self)))- -foreign import javascript unsafe "$1[\"ping\"] = $2;"-        ghcjs_dom_html_anchor_element_set_ping ::-        JSRef HTMLAnchorElement -> JSString -> IO ()- -htmlAnchorElementSetPing ::-                         (IsHTMLAnchorElement self, ToJSString val) => self -> val -> IO ()-htmlAnchorElementSetPing self val-  = ghcjs_dom_html_anchor_element_set_ping-      (unHTMLAnchorElement (toHTMLAnchorElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"ping\"]"-        ghcjs_dom_html_anchor_element_get_ping ::-        JSRef HTMLAnchorElement -> IO JSString- -htmlAnchorElementGetPing ::-                         (IsHTMLAnchorElement self, FromJSString result) =>-                           self -> IO result-htmlAnchorElementGetPing self-  = fromJSString <$>-      (ghcjs_dom_html_anchor_element_get_ping-         (unHTMLAnchorElement (toHTMLAnchorElement self)))- -foreign import javascript unsafe "$1[\"rel\"] = $2;"-        ghcjs_dom_html_anchor_element_set_rel ::-        JSRef HTMLAnchorElement -> JSString -> IO ()- -htmlAnchorElementSetRel ::-                        (IsHTMLAnchorElement self, ToJSString val) => self -> val -> IO ()-htmlAnchorElementSetRel self val-  = ghcjs_dom_html_anchor_element_set_rel-      (unHTMLAnchorElement (toHTMLAnchorElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"rel\"]"-        ghcjs_dom_html_anchor_element_get_rel ::-        JSRef HTMLAnchorElement -> IO JSString- -htmlAnchorElementGetRel ::-                        (IsHTMLAnchorElement self, FromJSString result) =>-                          self -> IO result-htmlAnchorElementGetRel self-  = fromJSString <$>-      (ghcjs_dom_html_anchor_element_get_rel-         (unHTMLAnchorElement (toHTMLAnchorElement self)))- -foreign import javascript unsafe "$1[\"rev\"] = $2;"-        ghcjs_dom_html_anchor_element_set_rev ::-        JSRef HTMLAnchorElement -> JSString -> IO ()- -htmlAnchorElementSetRev ::-                        (IsHTMLAnchorElement self, ToJSString val) => self -> val -> IO ()-htmlAnchorElementSetRev self val-  = ghcjs_dom_html_anchor_element_set_rev-      (unHTMLAnchorElement (toHTMLAnchorElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"rev\"]"-        ghcjs_dom_html_anchor_element_get_rev ::-        JSRef HTMLAnchorElement -> IO JSString- -htmlAnchorElementGetRev ::-                        (IsHTMLAnchorElement self, FromJSString result) =>-                          self -> IO result-htmlAnchorElementGetRev self-  = fromJSString <$>-      (ghcjs_dom_html_anchor_element_get_rev-         (unHTMLAnchorElement (toHTMLAnchorElement self)))- -foreign import javascript unsafe "$1[\"shape\"] = $2;"-        ghcjs_dom_html_anchor_element_set_shape ::-        JSRef HTMLAnchorElement -> JSString -> IO ()- -htmlAnchorElementSetShape ::-                          (IsHTMLAnchorElement self, ToJSString val) => self -> val -> IO ()-htmlAnchorElementSetShape self val-  = ghcjs_dom_html_anchor_element_set_shape-      (unHTMLAnchorElement (toHTMLAnchorElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"shape\"]"-        ghcjs_dom_html_anchor_element_get_shape ::-        JSRef HTMLAnchorElement -> IO JSString- -htmlAnchorElementGetShape ::-                          (IsHTMLAnchorElement self, FromJSString result) =>-                            self -> IO result-htmlAnchorElementGetShape self-  = fromJSString <$>-      (ghcjs_dom_html_anchor_element_get_shape-         (unHTMLAnchorElement (toHTMLAnchorElement self)))- -foreign import javascript unsafe "$1[\"target\"] = $2;"-        ghcjs_dom_html_anchor_element_set_target ::-        JSRef HTMLAnchorElement -> JSString -> IO ()- -htmlAnchorElementSetTarget ::-                           (IsHTMLAnchorElement self, ToJSString val) => self -> val -> IO ()-htmlAnchorElementSetTarget self val-  = ghcjs_dom_html_anchor_element_set_target-      (unHTMLAnchorElement (toHTMLAnchorElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"target\"]"-        ghcjs_dom_html_anchor_element_get_target ::-        JSRef HTMLAnchorElement -> IO JSString- -htmlAnchorElementGetTarget ::-                           (IsHTMLAnchorElement self, FromJSString result) =>-                             self -> IO result-htmlAnchorElementGetTarget self-  = fromJSString <$>-      (ghcjs_dom_html_anchor_element_get_target-         (unHTMLAnchorElement (toHTMLAnchorElement self)))- -foreign import javascript unsafe "$1[\"hash\"] = $2;"-        ghcjs_dom_html_anchor_element_set_hash ::-        JSRef HTMLAnchorElement -> JSString -> IO ()- -htmlAnchorElementSetHash ::-                         (IsHTMLAnchorElement self, ToJSString val) => self -> val -> IO ()-htmlAnchorElementSetHash self val-  = ghcjs_dom_html_anchor_element_set_hash-      (unHTMLAnchorElement (toHTMLAnchorElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"hash\"]"-        ghcjs_dom_html_anchor_element_get_hash ::-        JSRef HTMLAnchorElement -> IO JSString- -htmlAnchorElementGetHash ::-                         (IsHTMLAnchorElement self, FromJSString result) =>-                           self -> IO result-htmlAnchorElementGetHash self-  = fromJSString <$>-      (ghcjs_dom_html_anchor_element_get_hash-         (unHTMLAnchorElement (toHTMLAnchorElement self)))- -foreign import javascript unsafe "$1[\"host\"] = $2;"-        ghcjs_dom_html_anchor_element_set_host ::-        JSRef HTMLAnchorElement -> JSString -> IO ()- -htmlAnchorElementSetHost ::-                         (IsHTMLAnchorElement self, ToJSString val) => self -> val -> IO ()-htmlAnchorElementSetHost self val-  = ghcjs_dom_html_anchor_element_set_host-      (unHTMLAnchorElement (toHTMLAnchorElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"host\"]"-        ghcjs_dom_html_anchor_element_get_host ::-        JSRef HTMLAnchorElement -> IO JSString- -htmlAnchorElementGetHost ::-                         (IsHTMLAnchorElement self, FromJSString result) =>-                           self -> IO result-htmlAnchorElementGetHost self-  = fromJSString <$>-      (ghcjs_dom_html_anchor_element_get_host-         (unHTMLAnchorElement (toHTMLAnchorElement self)))- -foreign import javascript unsafe "$1[\"hostname\"] = $2;"-        ghcjs_dom_html_anchor_element_set_hostname ::-        JSRef HTMLAnchorElement -> JSString -> IO ()- -htmlAnchorElementSetHostname ::-                             (IsHTMLAnchorElement self, ToJSString val) => self -> val -> IO ()-htmlAnchorElementSetHostname self val-  = ghcjs_dom_html_anchor_element_set_hostname-      (unHTMLAnchorElement (toHTMLAnchorElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"hostname\"]"-        ghcjs_dom_html_anchor_element_get_hostname ::-        JSRef HTMLAnchorElement -> IO JSString- -htmlAnchorElementGetHostname ::-                             (IsHTMLAnchorElement self, FromJSString result) =>-                               self -> IO result-htmlAnchorElementGetHostname self-  = fromJSString <$>-      (ghcjs_dom_html_anchor_element_get_hostname-         (unHTMLAnchorElement (toHTMLAnchorElement self)))- -foreign import javascript unsafe "$1[\"pathname\"] = $2;"-        ghcjs_dom_html_anchor_element_set_pathname ::-        JSRef HTMLAnchorElement -> JSString -> IO ()- -htmlAnchorElementSetPathname ::-                             (IsHTMLAnchorElement self, ToJSString val) => self -> val -> IO ()-htmlAnchorElementSetPathname self val-  = ghcjs_dom_html_anchor_element_set_pathname-      (unHTMLAnchorElement (toHTMLAnchorElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"pathname\"]"-        ghcjs_dom_html_anchor_element_get_pathname ::-        JSRef HTMLAnchorElement -> IO JSString- -htmlAnchorElementGetPathname ::-                             (IsHTMLAnchorElement self, FromJSString result) =>-                               self -> IO result-htmlAnchorElementGetPathname self-  = fromJSString <$>-      (ghcjs_dom_html_anchor_element_get_pathname-         (unHTMLAnchorElement (toHTMLAnchorElement self)))- -foreign import javascript unsafe "$1[\"port\"] = $2;"-        ghcjs_dom_html_anchor_element_set_port ::-        JSRef HTMLAnchorElement -> JSString -> IO ()- -htmlAnchorElementSetPort ::-                         (IsHTMLAnchorElement self, ToJSString val) => self -> val -> IO ()-htmlAnchorElementSetPort self val-  = ghcjs_dom_html_anchor_element_set_port-      (unHTMLAnchorElement (toHTMLAnchorElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"port\"]"-        ghcjs_dom_html_anchor_element_get_port ::-        JSRef HTMLAnchorElement -> IO JSString- -htmlAnchorElementGetPort ::-                         (IsHTMLAnchorElement self, FromJSString result) =>-                           self -> IO result-htmlAnchorElementGetPort self-  = fromJSString <$>-      (ghcjs_dom_html_anchor_element_get_port-         (unHTMLAnchorElement (toHTMLAnchorElement self)))- -foreign import javascript unsafe "$1[\"protocol\"] = $2;"-        ghcjs_dom_html_anchor_element_set_protocol ::-        JSRef HTMLAnchorElement -> JSString -> IO ()- -htmlAnchorElementSetProtocol ::-                             (IsHTMLAnchorElement self, ToJSString val) => self -> val -> IO ()-htmlAnchorElementSetProtocol self val-  = ghcjs_dom_html_anchor_element_set_protocol-      (unHTMLAnchorElement (toHTMLAnchorElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"protocol\"]"-        ghcjs_dom_html_anchor_element_get_protocol ::-        JSRef HTMLAnchorElement -> IO JSString- -htmlAnchorElementGetProtocol ::-                             (IsHTMLAnchorElement self, FromJSString result) =>-                               self -> IO result-htmlAnchorElementGetProtocol self-  = fromJSString <$>-      (ghcjs_dom_html_anchor_element_get_protocol-         (unHTMLAnchorElement (toHTMLAnchorElement self)))- -foreign import javascript unsafe "$1[\"search\"] = $2;"-        ghcjs_dom_html_anchor_element_set_search ::-        JSRef HTMLAnchorElement -> JSString -> IO ()- -htmlAnchorElementSetSearch ::-                           (IsHTMLAnchorElement self, ToJSString val) => self -> val -> IO ()-htmlAnchorElementSetSearch self val-  = ghcjs_dom_html_anchor_element_set_search-      (unHTMLAnchorElement (toHTMLAnchorElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"search\"]"-        ghcjs_dom_html_anchor_element_get_search ::-        JSRef HTMLAnchorElement -> IO JSString- -htmlAnchorElementGetSearch ::-                           (IsHTMLAnchorElement self, FromJSString result) =>-                             self -> IO result-htmlAnchorElementGetSearch self-  = fromJSString <$>-      (ghcjs_dom_html_anchor_element_get_search-         (unHTMLAnchorElement (toHTMLAnchorElement self)))- -foreign import javascript unsafe "$1[\"origin\"]"-        ghcjs_dom_html_anchor_element_get_origin ::-        JSRef HTMLAnchorElement -> IO JSString- -htmlAnchorElementGetOrigin ::-                           (IsHTMLAnchorElement self, FromJSString result) =>-                             self -> IO result-htmlAnchorElementGetOrigin self-  = fromJSString <$>-      (ghcjs_dom_html_anchor_element_get_origin-         (unHTMLAnchorElement (toHTMLAnchorElement self)))- -foreign import javascript unsafe "$1[\"text\"] = $2;"-        ghcjs_dom_html_anchor_element_set_text ::-        JSRef HTMLAnchorElement -> JSString -> IO ()- -htmlAnchorElementSetText ::-                         (IsHTMLAnchorElement self, ToJSString val) => self -> val -> IO ()-htmlAnchorElementSetText self val-  = ghcjs_dom_html_anchor_element_set_text-      (unHTMLAnchorElement (toHTMLAnchorElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"text\"]"-        ghcjs_dom_html_anchor_element_get_text ::-        JSRef HTMLAnchorElement -> IO JSString- -htmlAnchorElementGetText ::-                         (IsHTMLAnchorElement self, FromJSString result) =>-                           self -> IO result-htmlAnchorElementGetText self-  = fromJSString <$>-      (ghcjs_dom_html_anchor_element_get_text-         (unHTMLAnchorElement (toHTMLAnchorElement self)))- -foreign import javascript unsafe "$1[\"relList\"]"-        ghcjs_dom_html_anchor_element_get_rel_list ::-        JSRef HTMLAnchorElement -> IO (JSRef DOMTokenList)- -htmlAnchorElementGetRelList ::-                            (IsHTMLAnchorElement self) => self -> IO (Maybe DOMTokenList)-htmlAnchorElementGetRelList self-  = fmap DOMTokenList . maybeJSNull <$>-      (ghcjs_dom_html_anchor_element_get_rel_list-         (unHTMLAnchorElement (toHTMLAnchorElement self)))+  module GHCJS.DOM.JSFFI.Generated.HTMLAnchorElement #else-module GHCJS.DOM.HTMLAnchorElement (   module Graphics.UI.Gtk.WebKit.DOM.HTMLAnchorElement+#endif   ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.HTMLAnchorElement+#else import Graphics.UI.Gtk.WebKit.DOM.HTMLAnchorElement #endif
src/GHCJS/DOM/HTMLAppletElement.hs view
@@ -1,304 +1,13 @@ {-# LANGUAGE CPP #-}+module GHCJS.DOM.HTMLAppletElement ( #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.HTMLAppletElement-       (ghcjs_dom_html_applet_element_set_align,-        htmlAppletElementSetAlign, ghcjs_dom_html_applet_element_get_align,-        htmlAppletElementGetAlign, ghcjs_dom_html_applet_element_set_alt,-        htmlAppletElementSetAlt, ghcjs_dom_html_applet_element_get_alt,-        htmlAppletElementGetAlt, ghcjs_dom_html_applet_element_set_archive,-        htmlAppletElementSetArchive,-        ghcjs_dom_html_applet_element_get_archive,-        htmlAppletElementGetArchive,-        ghcjs_dom_html_applet_element_set_code, htmlAppletElementSetCode,-        ghcjs_dom_html_applet_element_get_code, htmlAppletElementGetCode,-        ghcjs_dom_html_applet_element_set_code_base,-        htmlAppletElementSetCodeBase,-        ghcjs_dom_html_applet_element_get_code_base,-        htmlAppletElementGetCodeBase,-        ghcjs_dom_html_applet_element_set_height,-        htmlAppletElementSetHeight,-        ghcjs_dom_html_applet_element_get_height,-        htmlAppletElementGetHeight,-        ghcjs_dom_html_applet_element_set_hspace,-        htmlAppletElementSetHspace,-        ghcjs_dom_html_applet_element_get_hspace,-        htmlAppletElementGetHspace, ghcjs_dom_html_applet_element_set_name,-        htmlAppletElementSetName, ghcjs_dom_html_applet_element_get_name,-        htmlAppletElementGetName, ghcjs_dom_html_applet_element_set_object,-        htmlAppletElementSetObject,-        ghcjs_dom_html_applet_element_get_object,-        htmlAppletElementGetObject,-        ghcjs_dom_html_applet_element_set_vspace,-        htmlAppletElementSetVspace,-        ghcjs_dom_html_applet_element_get_vspace,-        htmlAppletElementGetVspace,-        ghcjs_dom_html_applet_element_set_width, htmlAppletElementSetWidth,-        ghcjs_dom_html_applet_element_get_width, htmlAppletElementGetWidth,-        HTMLAppletElement, IsHTMLAppletElement, castToHTMLAppletElement,-        gTypeHTMLAppletElement, toHTMLAppletElement)-       where-import GHCJS.Types-import GHCJS.Foreign-import GHCJS.Marshal-import Data.Int-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-- -foreign import javascript unsafe "$1[\"align\"] = $2;"-        ghcjs_dom_html_applet_element_set_align ::-        JSRef HTMLAppletElement -> JSString -> IO ()- -htmlAppletElementSetAlign ::-                          (IsHTMLAppletElement self, ToJSString val) => self -> val -> IO ()-htmlAppletElementSetAlign self val-  = ghcjs_dom_html_applet_element_set_align-      (unHTMLAppletElement (toHTMLAppletElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"align\"]"-        ghcjs_dom_html_applet_element_get_align ::-        JSRef HTMLAppletElement -> IO JSString- -htmlAppletElementGetAlign ::-                          (IsHTMLAppletElement self, FromJSString result) =>-                            self -> IO result-htmlAppletElementGetAlign self-  = fromJSString <$>-      (ghcjs_dom_html_applet_element_get_align-         (unHTMLAppletElement (toHTMLAppletElement self)))- -foreign import javascript unsafe "$1[\"alt\"] = $2;"-        ghcjs_dom_html_applet_element_set_alt ::-        JSRef HTMLAppletElement -> JSString -> IO ()- -htmlAppletElementSetAlt ::-                        (IsHTMLAppletElement self, ToJSString val) => self -> val -> IO ()-htmlAppletElementSetAlt self val-  = ghcjs_dom_html_applet_element_set_alt-      (unHTMLAppletElement (toHTMLAppletElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"alt\"]"-        ghcjs_dom_html_applet_element_get_alt ::-        JSRef HTMLAppletElement -> IO JSString- -htmlAppletElementGetAlt ::-                        (IsHTMLAppletElement self, FromJSString result) =>-                          self -> IO result-htmlAppletElementGetAlt self-  = fromJSString <$>-      (ghcjs_dom_html_applet_element_get_alt-         (unHTMLAppletElement (toHTMLAppletElement self)))- -foreign import javascript unsafe "$1[\"archive\"] = $2;"-        ghcjs_dom_html_applet_element_set_archive ::-        JSRef HTMLAppletElement -> JSString -> IO ()- -htmlAppletElementSetArchive ::-                            (IsHTMLAppletElement self, ToJSString val) => self -> val -> IO ()-htmlAppletElementSetArchive self val-  = ghcjs_dom_html_applet_element_set_archive-      (unHTMLAppletElement (toHTMLAppletElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"archive\"]"-        ghcjs_dom_html_applet_element_get_archive ::-        JSRef HTMLAppletElement -> IO JSString- -htmlAppletElementGetArchive ::-                            (IsHTMLAppletElement self, FromJSString result) =>-                              self -> IO result-htmlAppletElementGetArchive self-  = fromJSString <$>-      (ghcjs_dom_html_applet_element_get_archive-         (unHTMLAppletElement (toHTMLAppletElement self)))- -foreign import javascript unsafe "$1[\"code\"] = $2;"-        ghcjs_dom_html_applet_element_set_code ::-        JSRef HTMLAppletElement -> JSString -> IO ()- -htmlAppletElementSetCode ::-                         (IsHTMLAppletElement self, ToJSString val) => self -> val -> IO ()-htmlAppletElementSetCode self val-  = ghcjs_dom_html_applet_element_set_code-      (unHTMLAppletElement (toHTMLAppletElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"code\"]"-        ghcjs_dom_html_applet_element_get_code ::-        JSRef HTMLAppletElement -> IO JSString- -htmlAppletElementGetCode ::-                         (IsHTMLAppletElement self, FromJSString result) =>-                           self -> IO result-htmlAppletElementGetCode self-  = fromJSString <$>-      (ghcjs_dom_html_applet_element_get_code-         (unHTMLAppletElement (toHTMLAppletElement self)))- -foreign import javascript unsafe "$1[\"codeBase\"] = $2;"-        ghcjs_dom_html_applet_element_set_code_base ::-        JSRef HTMLAppletElement -> JSString -> IO ()- -htmlAppletElementSetCodeBase ::-                             (IsHTMLAppletElement self, ToJSString val) => self -> val -> IO ()-htmlAppletElementSetCodeBase self val-  = ghcjs_dom_html_applet_element_set_code_base-      (unHTMLAppletElement (toHTMLAppletElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"codeBase\"]"-        ghcjs_dom_html_applet_element_get_code_base ::-        JSRef HTMLAppletElement -> IO JSString- -htmlAppletElementGetCodeBase ::-                             (IsHTMLAppletElement self, FromJSString result) =>-                               self -> IO result-htmlAppletElementGetCodeBase self-  = fromJSString <$>-      (ghcjs_dom_html_applet_element_get_code_base-         (unHTMLAppletElement (toHTMLAppletElement self)))- -foreign import javascript unsafe "$1[\"height\"] = $2;"-        ghcjs_dom_html_applet_element_set_height ::-        JSRef HTMLAppletElement -> JSString -> IO ()- -htmlAppletElementSetHeight ::-                           (IsHTMLAppletElement self, ToJSString val) => self -> val -> IO ()-htmlAppletElementSetHeight self val-  = ghcjs_dom_html_applet_element_set_height-      (unHTMLAppletElement (toHTMLAppletElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"height\"]"-        ghcjs_dom_html_applet_element_get_height ::-        JSRef HTMLAppletElement -> IO JSString- -htmlAppletElementGetHeight ::-                           (IsHTMLAppletElement self, FromJSString result) =>-                             self -> IO result-htmlAppletElementGetHeight self-  = fromJSString <$>-      (ghcjs_dom_html_applet_element_get_height-         (unHTMLAppletElement (toHTMLAppletElement self)))- -foreign import javascript unsafe "$1[\"hspace\"] = $2;"-        ghcjs_dom_html_applet_element_set_hspace ::-        JSRef HTMLAppletElement -> Int -> IO ()- -htmlAppletElementSetHspace ::-                           (IsHTMLAppletElement self) => self -> Int -> IO ()-htmlAppletElementSetHspace self val-  = ghcjs_dom_html_applet_element_set_hspace-      (unHTMLAppletElement (toHTMLAppletElement self))-      val- -foreign import javascript unsafe "$1[\"hspace\"]"-        ghcjs_dom_html_applet_element_get_hspace ::-        JSRef HTMLAppletElement -> IO Int- -htmlAppletElementGetHspace ::-                           (IsHTMLAppletElement self) => self -> IO Int-htmlAppletElementGetHspace self-  = ghcjs_dom_html_applet_element_get_hspace-      (unHTMLAppletElement (toHTMLAppletElement self))- -foreign import javascript unsafe "$1[\"name\"] = $2;"-        ghcjs_dom_html_applet_element_set_name ::-        JSRef HTMLAppletElement -> JSString -> IO ()- -htmlAppletElementSetName ::-                         (IsHTMLAppletElement self, ToJSString val) => self -> val -> IO ()-htmlAppletElementSetName self val-  = ghcjs_dom_html_applet_element_set_name-      (unHTMLAppletElement (toHTMLAppletElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"name\"]"-        ghcjs_dom_html_applet_element_get_name ::-        JSRef HTMLAppletElement -> IO JSString- -htmlAppletElementGetName ::-                         (IsHTMLAppletElement self, FromJSString result) =>-                           self -> IO result-htmlAppletElementGetName self-  = fromJSString <$>-      (ghcjs_dom_html_applet_element_get_name-         (unHTMLAppletElement (toHTMLAppletElement self)))- -foreign import javascript unsafe "$1[\"object\"] = $2;"-        ghcjs_dom_html_applet_element_set_object ::-        JSRef HTMLAppletElement -> JSString -> IO ()- -htmlAppletElementSetObject ::-                           (IsHTMLAppletElement self, ToJSString val) => self -> val -> IO ()-htmlAppletElementSetObject self val-  = ghcjs_dom_html_applet_element_set_object-      (unHTMLAppletElement (toHTMLAppletElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"object\"]"-        ghcjs_dom_html_applet_element_get_object ::-        JSRef HTMLAppletElement -> IO JSString- -htmlAppletElementGetObject ::-                           (IsHTMLAppletElement self, FromJSString result) =>-                             self -> IO result-htmlAppletElementGetObject self-  = fromJSString <$>-      (ghcjs_dom_html_applet_element_get_object-         (unHTMLAppletElement (toHTMLAppletElement self)))- -foreign import javascript unsafe "$1[\"vspace\"] = $2;"-        ghcjs_dom_html_applet_element_set_vspace ::-        JSRef HTMLAppletElement -> Int -> IO ()- -htmlAppletElementSetVspace ::-                           (IsHTMLAppletElement self) => self -> Int -> IO ()-htmlAppletElementSetVspace self val-  = ghcjs_dom_html_applet_element_set_vspace-      (unHTMLAppletElement (toHTMLAppletElement self))-      val- -foreign import javascript unsafe "$1[\"vspace\"]"-        ghcjs_dom_html_applet_element_get_vspace ::-        JSRef HTMLAppletElement -> IO Int- -htmlAppletElementGetVspace ::-                           (IsHTMLAppletElement self) => self -> IO Int-htmlAppletElementGetVspace self-  = ghcjs_dom_html_applet_element_get_vspace-      (unHTMLAppletElement (toHTMLAppletElement self))- -foreign import javascript unsafe "$1[\"width\"] = $2;"-        ghcjs_dom_html_applet_element_set_width ::-        JSRef HTMLAppletElement -> JSString -> IO ()- -htmlAppletElementSetWidth ::-                          (IsHTMLAppletElement self, ToJSString val) => self -> val -> IO ()-htmlAppletElementSetWidth self val-  = ghcjs_dom_html_applet_element_set_width-      (unHTMLAppletElement (toHTMLAppletElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"width\"]"-        ghcjs_dom_html_applet_element_get_width ::-        JSRef HTMLAppletElement -> IO JSString- -htmlAppletElementGetWidth ::-                          (IsHTMLAppletElement self, FromJSString result) =>-                            self -> IO result-htmlAppletElementGetWidth self-  = fromJSString <$>-      (ghcjs_dom_html_applet_element_get_width-         (unHTMLAppletElement (toHTMLAppletElement self)))+  module GHCJS.DOM.JSFFI.Generated.HTMLAppletElement #else-module GHCJS.DOM.HTMLAppletElement (   module Graphics.UI.Gtk.WebKit.DOM.HTMLAppletElement+#endif   ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.HTMLAppletElement+#else import Graphics.UI.Gtk.WebKit.DOM.HTMLAppletElement #endif
src/GHCJS/DOM/HTMLAreaElement.hs view
@@ -1,310 +1,13 @@ {-# LANGUAGE CPP #-}+module GHCJS.DOM.HTMLAreaElement ( #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.HTMLAreaElement-       (ghcjs_dom_html_area_element_set_alt, htmlAreaElementSetAlt,-        ghcjs_dom_html_area_element_get_alt, htmlAreaElementGetAlt,-        ghcjs_dom_html_area_element_set_coords, htmlAreaElementSetCoords,-        ghcjs_dom_html_area_element_get_coords, htmlAreaElementGetCoords,-        ghcjs_dom_html_area_element_set_href, htmlAreaElementSetHref,-        ghcjs_dom_html_area_element_get_href, htmlAreaElementGetHref,-        ghcjs_dom_html_area_element_set_no_href, htmlAreaElementSetNoHref,-        ghcjs_dom_html_area_element_get_no_href, htmlAreaElementGetNoHref,-        ghcjs_dom_html_area_element_set_ping, htmlAreaElementSetPing,-        ghcjs_dom_html_area_element_get_ping, htmlAreaElementGetPing,-        ghcjs_dom_html_area_element_set_rel, htmlAreaElementSetRel,-        ghcjs_dom_html_area_element_get_rel, htmlAreaElementGetRel,-        ghcjs_dom_html_area_element_set_shape, htmlAreaElementSetShape,-        ghcjs_dom_html_area_element_get_shape, htmlAreaElementGetShape,-        ghcjs_dom_html_area_element_set_target, htmlAreaElementSetTarget,-        ghcjs_dom_html_area_element_get_target, htmlAreaElementGetTarget,-        ghcjs_dom_html_area_element_get_hash, htmlAreaElementGetHash,-        ghcjs_dom_html_area_element_get_host, htmlAreaElementGetHost,-        ghcjs_dom_html_area_element_get_hostname,-        htmlAreaElementGetHostname,-        ghcjs_dom_html_area_element_get_pathname,-        htmlAreaElementGetPathname, ghcjs_dom_html_area_element_get_port,-        htmlAreaElementGetPort, ghcjs_dom_html_area_element_get_protocol,-        htmlAreaElementGetProtocol, ghcjs_dom_html_area_element_get_search,-        htmlAreaElementGetSearch, ghcjs_dom_html_area_element_get_rel_list,-        htmlAreaElementGetRelList, HTMLAreaElement, IsHTMLAreaElement,-        castToHTMLAreaElement, gTypeHTMLAreaElement, toHTMLAreaElement)-       where-import GHCJS.Types-import GHCJS.Foreign-import GHCJS.Marshal-import Data.Int-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-- -foreign import javascript unsafe "$1[\"alt\"] = $2;"-        ghcjs_dom_html_area_element_set_alt ::-        JSRef HTMLAreaElement -> JSString -> IO ()- -htmlAreaElementSetAlt ::-                      (IsHTMLAreaElement self, ToJSString val) => self -> val -> IO ()-htmlAreaElementSetAlt self val-  = ghcjs_dom_html_area_element_set_alt-      (unHTMLAreaElement (toHTMLAreaElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"alt\"]"-        ghcjs_dom_html_area_element_get_alt ::-        JSRef HTMLAreaElement -> IO JSString- -htmlAreaElementGetAlt ::-                      (IsHTMLAreaElement self, FromJSString result) => self -> IO result-htmlAreaElementGetAlt self-  = fromJSString <$>-      (ghcjs_dom_html_area_element_get_alt-         (unHTMLAreaElement (toHTMLAreaElement self)))- -foreign import javascript unsafe "$1[\"coords\"] = $2;"-        ghcjs_dom_html_area_element_set_coords ::-        JSRef HTMLAreaElement -> JSString -> IO ()- -htmlAreaElementSetCoords ::-                         (IsHTMLAreaElement self, ToJSString val) => self -> val -> IO ()-htmlAreaElementSetCoords self val-  = ghcjs_dom_html_area_element_set_coords-      (unHTMLAreaElement (toHTMLAreaElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"coords\"]"-        ghcjs_dom_html_area_element_get_coords ::-        JSRef HTMLAreaElement -> IO JSString- -htmlAreaElementGetCoords ::-                         (IsHTMLAreaElement self, FromJSString result) => self -> IO result-htmlAreaElementGetCoords self-  = fromJSString <$>-      (ghcjs_dom_html_area_element_get_coords-         (unHTMLAreaElement (toHTMLAreaElement self)))- -foreign import javascript unsafe "$1[\"href\"] = $2;"-        ghcjs_dom_html_area_element_set_href ::-        JSRef HTMLAreaElement -> JSString -> IO ()- -htmlAreaElementSetHref ::-                       (IsHTMLAreaElement self, ToJSString val) => self -> val -> IO ()-htmlAreaElementSetHref self val-  = ghcjs_dom_html_area_element_set_href-      (unHTMLAreaElement (toHTMLAreaElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"href\"]"-        ghcjs_dom_html_area_element_get_href ::-        JSRef HTMLAreaElement -> IO JSString- -htmlAreaElementGetHref ::-                       (IsHTMLAreaElement self, FromJSString result) => self -> IO result-htmlAreaElementGetHref self-  = fromJSString <$>-      (ghcjs_dom_html_area_element_get_href-         (unHTMLAreaElement (toHTMLAreaElement self)))- -foreign import javascript unsafe "$1[\"noHref\"] = $2;"-        ghcjs_dom_html_area_element_set_no_href ::-        JSRef HTMLAreaElement -> Bool -> IO ()- -htmlAreaElementSetNoHref ::-                         (IsHTMLAreaElement self) => self -> Bool -> IO ()-htmlAreaElementSetNoHref self val-  = ghcjs_dom_html_area_element_set_no_href-      (unHTMLAreaElement (toHTMLAreaElement self))-      val- -foreign import javascript unsafe "($1[\"noHref\"] ? 1 : 0)"-        ghcjs_dom_html_area_element_get_no_href ::-        JSRef HTMLAreaElement -> IO Bool- -htmlAreaElementGetNoHref ::-                         (IsHTMLAreaElement self) => self -> IO Bool-htmlAreaElementGetNoHref self-  = ghcjs_dom_html_area_element_get_no_href-      (unHTMLAreaElement (toHTMLAreaElement self))- -foreign import javascript unsafe "$1[\"ping\"] = $2;"-        ghcjs_dom_html_area_element_set_ping ::-        JSRef HTMLAreaElement -> JSString -> IO ()- -htmlAreaElementSetPing ::-                       (IsHTMLAreaElement self, ToJSString val) => self -> val -> IO ()-htmlAreaElementSetPing self val-  = ghcjs_dom_html_area_element_set_ping-      (unHTMLAreaElement (toHTMLAreaElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"ping\"]"-        ghcjs_dom_html_area_element_get_ping ::-        JSRef HTMLAreaElement -> IO JSString- -htmlAreaElementGetPing ::-                       (IsHTMLAreaElement self, FromJSString result) => self -> IO result-htmlAreaElementGetPing self-  = fromJSString <$>-      (ghcjs_dom_html_area_element_get_ping-         (unHTMLAreaElement (toHTMLAreaElement self)))- -foreign import javascript unsafe "$1[\"rel\"] = $2;"-        ghcjs_dom_html_area_element_set_rel ::-        JSRef HTMLAreaElement -> JSString -> IO ()- -htmlAreaElementSetRel ::-                      (IsHTMLAreaElement self, ToJSString val) => self -> val -> IO ()-htmlAreaElementSetRel self val-  = ghcjs_dom_html_area_element_set_rel-      (unHTMLAreaElement (toHTMLAreaElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"rel\"]"-        ghcjs_dom_html_area_element_get_rel ::-        JSRef HTMLAreaElement -> IO JSString- -htmlAreaElementGetRel ::-                      (IsHTMLAreaElement self, FromJSString result) => self -> IO result-htmlAreaElementGetRel self-  = fromJSString <$>-      (ghcjs_dom_html_area_element_get_rel-         (unHTMLAreaElement (toHTMLAreaElement self)))- -foreign import javascript unsafe "$1[\"shape\"] = $2;"-        ghcjs_dom_html_area_element_set_shape ::-        JSRef HTMLAreaElement -> JSString -> IO ()- -htmlAreaElementSetShape ::-                        (IsHTMLAreaElement self, ToJSString val) => self -> val -> IO ()-htmlAreaElementSetShape self val-  = ghcjs_dom_html_area_element_set_shape-      (unHTMLAreaElement (toHTMLAreaElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"shape\"]"-        ghcjs_dom_html_area_element_get_shape ::-        JSRef HTMLAreaElement -> IO JSString- -htmlAreaElementGetShape ::-                        (IsHTMLAreaElement self, FromJSString result) => self -> IO result-htmlAreaElementGetShape self-  = fromJSString <$>-      (ghcjs_dom_html_area_element_get_shape-         (unHTMLAreaElement (toHTMLAreaElement self)))- -foreign import javascript unsafe "$1[\"target\"] = $2;"-        ghcjs_dom_html_area_element_set_target ::-        JSRef HTMLAreaElement -> JSString -> IO ()- -htmlAreaElementSetTarget ::-                         (IsHTMLAreaElement self, ToJSString val) => self -> val -> IO ()-htmlAreaElementSetTarget self val-  = ghcjs_dom_html_area_element_set_target-      (unHTMLAreaElement (toHTMLAreaElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"target\"]"-        ghcjs_dom_html_area_element_get_target ::-        JSRef HTMLAreaElement -> IO JSString- -htmlAreaElementGetTarget ::-                         (IsHTMLAreaElement self, FromJSString result) => self -> IO result-htmlAreaElementGetTarget self-  = fromJSString <$>-      (ghcjs_dom_html_area_element_get_target-         (unHTMLAreaElement (toHTMLAreaElement self)))- -foreign import javascript unsafe "$1[\"hash\"]"-        ghcjs_dom_html_area_element_get_hash ::-        JSRef HTMLAreaElement -> IO JSString- -htmlAreaElementGetHash ::-                       (IsHTMLAreaElement self, FromJSString result) => self -> IO result-htmlAreaElementGetHash self-  = fromJSString <$>-      (ghcjs_dom_html_area_element_get_hash-         (unHTMLAreaElement (toHTMLAreaElement self)))- -foreign import javascript unsafe "$1[\"host\"]"-        ghcjs_dom_html_area_element_get_host ::-        JSRef HTMLAreaElement -> IO JSString- -htmlAreaElementGetHost ::-                       (IsHTMLAreaElement self, FromJSString result) => self -> IO result-htmlAreaElementGetHost self-  = fromJSString <$>-      (ghcjs_dom_html_area_element_get_host-         (unHTMLAreaElement (toHTMLAreaElement self)))- -foreign import javascript unsafe "$1[\"hostname\"]"-        ghcjs_dom_html_area_element_get_hostname ::-        JSRef HTMLAreaElement -> IO JSString- -htmlAreaElementGetHostname ::-                           (IsHTMLAreaElement self, FromJSString result) => self -> IO result-htmlAreaElementGetHostname self-  = fromJSString <$>-      (ghcjs_dom_html_area_element_get_hostname-         (unHTMLAreaElement (toHTMLAreaElement self)))- -foreign import javascript unsafe "$1[\"pathname\"]"-        ghcjs_dom_html_area_element_get_pathname ::-        JSRef HTMLAreaElement -> IO JSString- -htmlAreaElementGetPathname ::-                           (IsHTMLAreaElement self, FromJSString result) => self -> IO result-htmlAreaElementGetPathname self-  = fromJSString <$>-      (ghcjs_dom_html_area_element_get_pathname-         (unHTMLAreaElement (toHTMLAreaElement self)))- -foreign import javascript unsafe "$1[\"port\"]"-        ghcjs_dom_html_area_element_get_port ::-        JSRef HTMLAreaElement -> IO JSString- -htmlAreaElementGetPort ::-                       (IsHTMLAreaElement self, FromJSString result) => self -> IO result-htmlAreaElementGetPort self-  = fromJSString <$>-      (ghcjs_dom_html_area_element_get_port-         (unHTMLAreaElement (toHTMLAreaElement self)))- -foreign import javascript unsafe "$1[\"protocol\"]"-        ghcjs_dom_html_area_element_get_protocol ::-        JSRef HTMLAreaElement -> IO JSString- -htmlAreaElementGetProtocol ::-                           (IsHTMLAreaElement self, FromJSString result) => self -> IO result-htmlAreaElementGetProtocol self-  = fromJSString <$>-      (ghcjs_dom_html_area_element_get_protocol-         (unHTMLAreaElement (toHTMLAreaElement self)))- -foreign import javascript unsafe "$1[\"search\"]"-        ghcjs_dom_html_area_element_get_search ::-        JSRef HTMLAreaElement -> IO JSString- -htmlAreaElementGetSearch ::-                         (IsHTMLAreaElement self, FromJSString result) => self -> IO result-htmlAreaElementGetSearch self-  = fromJSString <$>-      (ghcjs_dom_html_area_element_get_search-         (unHTMLAreaElement (toHTMLAreaElement self)))- -foreign import javascript unsafe "$1[\"relList\"]"-        ghcjs_dom_html_area_element_get_rel_list ::-        JSRef HTMLAreaElement -> IO (JSRef DOMTokenList)- -htmlAreaElementGetRelList ::-                          (IsHTMLAreaElement self) => self -> IO (Maybe DOMTokenList)-htmlAreaElementGetRelList self-  = fmap DOMTokenList . maybeJSNull <$>-      (ghcjs_dom_html_area_element_get_rel_list-         (unHTMLAreaElement (toHTMLAreaElement self)))+  module GHCJS.DOM.JSFFI.Generated.HTMLAreaElement #else-module GHCJS.DOM.HTMLAreaElement (   module Graphics.UI.Gtk.WebKit.DOM.HTMLAreaElement+#endif   ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.HTMLAreaElement+#else import Graphics.UI.Gtk.WebKit.DOM.HTMLAreaElement #endif
src/GHCJS/DOM/HTMLBRElement.hs view
@@ -1,46 +1,13 @@ {-# LANGUAGE CPP #-}+module GHCJS.DOM.HTMLBRElement ( #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.HTMLBRElement-       (ghcjs_dom_htmlbr_element_set_clear, htmlbrElementSetClear,-        ghcjs_dom_htmlbr_element_get_clear, htmlbrElementGetClear,-        HTMLBRElement, IsHTMLBRElement, castToHTMLBRElement,-        gTypeHTMLBRElement, toHTMLBRElement)-       where-import GHCJS.Types-import GHCJS.Foreign-import GHCJS.Marshal-import Data.Int-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-- -foreign import javascript unsafe "$1[\"clear\"] = $2;"-        ghcjs_dom_htmlbr_element_set_clear ::-        JSRef HTMLBRElement -> JSString -> IO ()- -htmlbrElementSetClear ::-                      (IsHTMLBRElement self, ToJSString val) => self -> val -> IO ()-htmlbrElementSetClear self val-  = ghcjs_dom_htmlbr_element_set_clear-      (unHTMLBRElement (toHTMLBRElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"clear\"]"-        ghcjs_dom_htmlbr_element_get_clear ::-        JSRef HTMLBRElement -> IO JSString- -htmlbrElementGetClear ::-                      (IsHTMLBRElement self, FromJSString result) => self -> IO result-htmlbrElementGetClear self-  = fromJSString <$>-      (ghcjs_dom_htmlbr_element_get_clear-         (unHTMLBRElement (toHTMLBRElement self)))+  module GHCJS.DOM.JSFFI.Generated.HTMLBRElement #else-module GHCJS.DOM.HTMLBRElement (   module Graphics.UI.Gtk.WebKit.DOM.HTMLBRElement+#endif   ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.HTMLBRElement+#else import Graphics.UI.Gtk.WebKit.DOM.HTMLBRElement #endif
src/GHCJS/DOM/HTMLBaseElement.hs view
@@ -1,70 +1,13 @@ {-# LANGUAGE CPP #-}+module GHCJS.DOM.HTMLBaseElement ( #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.HTMLBaseElement-       (ghcjs_dom_html_base_element_set_href, htmlBaseElementSetHref,-        ghcjs_dom_html_base_element_get_href, htmlBaseElementGetHref,-        ghcjs_dom_html_base_element_set_target, htmlBaseElementSetTarget,-        ghcjs_dom_html_base_element_get_target, htmlBaseElementGetTarget,-        HTMLBaseElement, IsHTMLBaseElement, castToHTMLBaseElement,-        gTypeHTMLBaseElement, toHTMLBaseElement)-       where-import GHCJS.Types-import GHCJS.Foreign-import GHCJS.Marshal-import Data.Int-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-- -foreign import javascript unsafe "$1[\"href\"] = $2;"-        ghcjs_dom_html_base_element_set_href ::-        JSRef HTMLBaseElement -> JSString -> IO ()- -htmlBaseElementSetHref ::-                       (IsHTMLBaseElement self, ToJSString val) => self -> val -> IO ()-htmlBaseElementSetHref self val-  = ghcjs_dom_html_base_element_set_href-      (unHTMLBaseElement (toHTMLBaseElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"href\"]"-        ghcjs_dom_html_base_element_get_href ::-        JSRef HTMLBaseElement -> IO JSString- -htmlBaseElementGetHref ::-                       (IsHTMLBaseElement self, FromJSString result) => self -> IO result-htmlBaseElementGetHref self-  = fromJSString <$>-      (ghcjs_dom_html_base_element_get_href-         (unHTMLBaseElement (toHTMLBaseElement self)))- -foreign import javascript unsafe "$1[\"target\"] = $2;"-        ghcjs_dom_html_base_element_set_target ::-        JSRef HTMLBaseElement -> JSString -> IO ()- -htmlBaseElementSetTarget ::-                         (IsHTMLBaseElement self, ToJSString val) => self -> val -> IO ()-htmlBaseElementSetTarget self val-  = ghcjs_dom_html_base_element_set_target-      (unHTMLBaseElement (toHTMLBaseElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"target\"]"-        ghcjs_dom_html_base_element_get_target ::-        JSRef HTMLBaseElement -> IO JSString- -htmlBaseElementGetTarget ::-                         (IsHTMLBaseElement self, FromJSString result) => self -> IO result-htmlBaseElementGetTarget self-  = fromJSString <$>-      (ghcjs_dom_html_base_element_get_target-         (unHTMLBaseElement (toHTMLBaseElement self)))+  module GHCJS.DOM.JSFFI.Generated.HTMLBaseElement #else-module GHCJS.DOM.HTMLBaseElement (   module Graphics.UI.Gtk.WebKit.DOM.HTMLBaseElement+#endif   ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.HTMLBaseElement+#else import Graphics.UI.Gtk.WebKit.DOM.HTMLBaseElement #endif
src/GHCJS/DOM/HTMLBaseFontElement.hs view
@@ -1,103 +1,13 @@ {-# LANGUAGE CPP #-}+module GHCJS.DOM.HTMLBaseFontElement ( #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.HTMLBaseFontElement-       (ghcjs_dom_html_base_font_element_set_color,-        htmlBaseFontElementSetColor,-        ghcjs_dom_html_base_font_element_get_color,-        htmlBaseFontElementGetColor,-        ghcjs_dom_html_base_font_element_set_face,-        htmlBaseFontElementSetFace,-        ghcjs_dom_html_base_font_element_get_face,-        htmlBaseFontElementGetFace,-        ghcjs_dom_html_base_font_element_set_size,-        htmlBaseFontElementSetSize,-        ghcjs_dom_html_base_font_element_get_size,-        htmlBaseFontElementGetSize, HTMLBaseFontElement,-        IsHTMLBaseFontElement, castToHTMLBaseFontElement,-        gTypeHTMLBaseFontElement, toHTMLBaseFontElement)-       where-import GHCJS.Types-import GHCJS.Foreign-import GHCJS.Marshal-import Data.Int-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-- -foreign import javascript unsafe "$1[\"color\"] = $2;"-        ghcjs_dom_html_base_font_element_set_color ::-        JSRef HTMLBaseFontElement -> JSString -> IO ()- -htmlBaseFontElementSetColor ::-                            (IsHTMLBaseFontElement self, ToJSString val) =>-                              self -> val -> IO ()-htmlBaseFontElementSetColor self val-  = ghcjs_dom_html_base_font_element_set_color-      (unHTMLBaseFontElement (toHTMLBaseFontElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"color\"]"-        ghcjs_dom_html_base_font_element_get_color ::-        JSRef HTMLBaseFontElement -> IO JSString- -htmlBaseFontElementGetColor ::-                            (IsHTMLBaseFontElement self, FromJSString result) =>-                              self -> IO result-htmlBaseFontElementGetColor self-  = fromJSString <$>-      (ghcjs_dom_html_base_font_element_get_color-         (unHTMLBaseFontElement (toHTMLBaseFontElement self)))- -foreign import javascript unsafe "$1[\"face\"] = $2;"-        ghcjs_dom_html_base_font_element_set_face ::-        JSRef HTMLBaseFontElement -> JSString -> IO ()- -htmlBaseFontElementSetFace ::-                           (IsHTMLBaseFontElement self, ToJSString val) =>-                             self -> val -> IO ()-htmlBaseFontElementSetFace self val-  = ghcjs_dom_html_base_font_element_set_face-      (unHTMLBaseFontElement (toHTMLBaseFontElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"face\"]"-        ghcjs_dom_html_base_font_element_get_face ::-        JSRef HTMLBaseFontElement -> IO JSString- -htmlBaseFontElementGetFace ::-                           (IsHTMLBaseFontElement self, FromJSString result) =>-                             self -> IO result-htmlBaseFontElementGetFace self-  = fromJSString <$>-      (ghcjs_dom_html_base_font_element_get_face-         (unHTMLBaseFontElement (toHTMLBaseFontElement self)))- -foreign import javascript unsafe "$1[\"size\"] = $2;"-        ghcjs_dom_html_base_font_element_set_size ::-        JSRef HTMLBaseFontElement -> Int -> IO ()- -htmlBaseFontElementSetSize ::-                           (IsHTMLBaseFontElement self) => self -> Int -> IO ()-htmlBaseFontElementSetSize self val-  = ghcjs_dom_html_base_font_element_set_size-      (unHTMLBaseFontElement (toHTMLBaseFontElement self))-      val- -foreign import javascript unsafe "$1[\"size\"]"-        ghcjs_dom_html_base_font_element_get_size ::-        JSRef HTMLBaseFontElement -> IO Int- -htmlBaseFontElementGetSize ::-                           (IsHTMLBaseFontElement self) => self -> IO Int-htmlBaseFontElementGetSize self-  = ghcjs_dom_html_base_font_element_get_size-      (unHTMLBaseFontElement (toHTMLBaseFontElement self))+  module GHCJS.DOM.JSFFI.Generated.HTMLBaseFontElement #else-module GHCJS.DOM.HTMLBaseFontElement (   module Graphics.UI.Gtk.WebKit.DOM.HTMLBaseFontElement+#endif   ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.HTMLBaseFontElement+#else import Graphics.UI.Gtk.WebKit.DOM.HTMLBaseFontElement #endif
src/GHCJS/DOM/HTMLBodyElement.hs view
@@ -1,232 +1,13 @@ {-# LANGUAGE CPP #-}+module GHCJS.DOM.HTMLBodyElement ( #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.HTMLBodyElement-       (ghcjs_dom_html_body_element_set_a_link, htmlBodyElementSetALink,-        ghcjs_dom_html_body_element_get_a_link, htmlBodyElementGetALink,-        ghcjs_dom_html_body_element_set_background,-        htmlBodyElementSetBackground,-        ghcjs_dom_html_body_element_get_background,-        htmlBodyElementGetBackground,-        ghcjs_dom_html_body_element_set_bg_color,-        htmlBodyElementSetBgColor,-        ghcjs_dom_html_body_element_get_bg_color,-        htmlBodyElementGetBgColor, ghcjs_dom_html_body_element_set_link,-        htmlBodyElementSetLink, ghcjs_dom_html_body_element_get_link,-        htmlBodyElementGetLink, ghcjs_dom_html_body_element_set_text,-        htmlBodyElementSetText, ghcjs_dom_html_body_element_get_text,-        htmlBodyElementGetText, ghcjs_dom_html_body_element_set_v_link,-        htmlBodyElementSetVLink, ghcjs_dom_html_body_element_get_v_link,-        htmlBodyElementGetVLink, htmlBodyElementOnbeforeunload,-        htmlBodyElementOnhashchange, htmlBodyElementOnmessage,-        htmlBodyElementOnoffline, htmlBodyElementOnonline,-        htmlBodyElementOnpopstate, htmlBodyElementOnresize,-        htmlBodyElementOnstorage, htmlBodyElementOnunload,-        htmlBodyElementOnorientationchange, htmlBodyElementOnblur,-        htmlBodyElementOnerror, htmlBodyElementOnfocus,-        htmlBodyElementOnload, HTMLBodyElement, IsHTMLBodyElement,-        castToHTMLBodyElement, gTypeHTMLBodyElement, toHTMLBodyElement)-       where-import GHCJS.Types-import GHCJS.Foreign-import GHCJS.Marshal-import Data.Int-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-- -foreign import javascript unsafe "$1[\"aLink\"] = $2;"-        ghcjs_dom_html_body_element_set_a_link ::-        JSRef HTMLBodyElement -> JSString -> IO ()- -htmlBodyElementSetALink ::-                        (IsHTMLBodyElement self, ToJSString val) => self -> val -> IO ()-htmlBodyElementSetALink self val-  = ghcjs_dom_html_body_element_set_a_link-      (unHTMLBodyElement (toHTMLBodyElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"aLink\"]"-        ghcjs_dom_html_body_element_get_a_link ::-        JSRef HTMLBodyElement -> IO JSString- -htmlBodyElementGetALink ::-                        (IsHTMLBodyElement self, FromJSString result) => self -> IO result-htmlBodyElementGetALink self-  = fromJSString <$>-      (ghcjs_dom_html_body_element_get_a_link-         (unHTMLBodyElement (toHTMLBodyElement self)))- -foreign import javascript unsafe "$1[\"background\"] = $2;"-        ghcjs_dom_html_body_element_set_background ::-        JSRef HTMLBodyElement -> JSString -> IO ()- -htmlBodyElementSetBackground ::-                             (IsHTMLBodyElement self, ToJSString val) => self -> val -> IO ()-htmlBodyElementSetBackground self val-  = ghcjs_dom_html_body_element_set_background-      (unHTMLBodyElement (toHTMLBodyElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"background\"]"-        ghcjs_dom_html_body_element_get_background ::-        JSRef HTMLBodyElement -> IO JSString- -htmlBodyElementGetBackground ::-                             (IsHTMLBodyElement self, FromJSString result) => self -> IO result-htmlBodyElementGetBackground self-  = fromJSString <$>-      (ghcjs_dom_html_body_element_get_background-         (unHTMLBodyElement (toHTMLBodyElement self)))- -foreign import javascript unsafe "$1[\"bgColor\"] = $2;"-        ghcjs_dom_html_body_element_set_bg_color ::-        JSRef HTMLBodyElement -> JSString -> IO ()- -htmlBodyElementSetBgColor ::-                          (IsHTMLBodyElement self, ToJSString val) => self -> val -> IO ()-htmlBodyElementSetBgColor self val-  = ghcjs_dom_html_body_element_set_bg_color-      (unHTMLBodyElement (toHTMLBodyElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"bgColor\"]"-        ghcjs_dom_html_body_element_get_bg_color ::-        JSRef HTMLBodyElement -> IO JSString- -htmlBodyElementGetBgColor ::-                          (IsHTMLBodyElement self, FromJSString result) => self -> IO result-htmlBodyElementGetBgColor self-  = fromJSString <$>-      (ghcjs_dom_html_body_element_get_bg_color-         (unHTMLBodyElement (toHTMLBodyElement self)))- -foreign import javascript unsafe "$1[\"link\"] = $2;"-        ghcjs_dom_html_body_element_set_link ::-        JSRef HTMLBodyElement -> JSString -> IO ()- -htmlBodyElementSetLink ::-                       (IsHTMLBodyElement self, ToJSString val) => self -> val -> IO ()-htmlBodyElementSetLink self val-  = ghcjs_dom_html_body_element_set_link-      (unHTMLBodyElement (toHTMLBodyElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"link\"]"-        ghcjs_dom_html_body_element_get_link ::-        JSRef HTMLBodyElement -> IO JSString- -htmlBodyElementGetLink ::-                       (IsHTMLBodyElement self, FromJSString result) => self -> IO result-htmlBodyElementGetLink self-  = fromJSString <$>-      (ghcjs_dom_html_body_element_get_link-         (unHTMLBodyElement (toHTMLBodyElement self)))- -foreign import javascript unsafe "$1[\"text\"] = $2;"-        ghcjs_dom_html_body_element_set_text ::-        JSRef HTMLBodyElement -> JSString -> IO ()- -htmlBodyElementSetText ::-                       (IsHTMLBodyElement self, ToJSString val) => self -> val -> IO ()-htmlBodyElementSetText self val-  = ghcjs_dom_html_body_element_set_text-      (unHTMLBodyElement (toHTMLBodyElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"text\"]"-        ghcjs_dom_html_body_element_get_text ::-        JSRef HTMLBodyElement -> IO JSString- -htmlBodyElementGetText ::-                       (IsHTMLBodyElement self, FromJSString result) => self -> IO result-htmlBodyElementGetText self-  = fromJSString <$>-      (ghcjs_dom_html_body_element_get_text-         (unHTMLBodyElement (toHTMLBodyElement self)))- -foreign import javascript unsafe "$1[\"vLink\"] = $2;"-        ghcjs_dom_html_body_element_set_v_link ::-        JSRef HTMLBodyElement -> JSString -> IO ()- -htmlBodyElementSetVLink ::-                        (IsHTMLBodyElement self, ToJSString val) => self -> val -> IO ()-htmlBodyElementSetVLink self val-  = ghcjs_dom_html_body_element_set_v_link-      (unHTMLBodyElement (toHTMLBodyElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"vLink\"]"-        ghcjs_dom_html_body_element_get_v_link ::-        JSRef HTMLBodyElement -> IO JSString- -htmlBodyElementGetVLink ::-                        (IsHTMLBodyElement self, FromJSString result) => self -> IO result-htmlBodyElementGetVLink self-  = fromJSString <$>-      (ghcjs_dom_html_body_element_get_v_link-         (unHTMLBodyElement (toHTMLBodyElement self)))- -htmlBodyElementOnbeforeunload ::-                              (IsHTMLBodyElement self) => Signal self (EventM UIEvent self ())-htmlBodyElementOnbeforeunload = (connect "beforeunload")- -htmlBodyElementOnhashchange ::-                            (IsHTMLBodyElement self) => Signal self (EventM UIEvent self ())-htmlBodyElementOnhashchange = (connect "hashchange")- -htmlBodyElementOnmessage ::-                         (IsHTMLBodyElement self) => Signal self (EventM UIEvent self ())-htmlBodyElementOnmessage = (connect "message")- -htmlBodyElementOnoffline ::-                         (IsHTMLBodyElement self) => Signal self (EventM UIEvent self ())-htmlBodyElementOnoffline = (connect "offline")- -htmlBodyElementOnonline ::-                        (IsHTMLBodyElement self) => Signal self (EventM UIEvent self ())-htmlBodyElementOnonline = (connect "online")- -htmlBodyElementOnpopstate ::-                          (IsHTMLBodyElement self) => Signal self (EventM UIEvent self ())-htmlBodyElementOnpopstate = (connect "popstate")- -htmlBodyElementOnresize ::-                        (IsHTMLBodyElement self) => Signal self (EventM UIEvent self ())-htmlBodyElementOnresize = (connect "resize")- -htmlBodyElementOnstorage ::-                         (IsHTMLBodyElement self) => Signal self (EventM UIEvent self ())-htmlBodyElementOnstorage = (connect "storage")- -htmlBodyElementOnunload ::-                        (IsHTMLBodyElement self) => Signal self (EventM UIEvent self ())-htmlBodyElementOnunload = (connect "unload")- -htmlBodyElementOnorientationchange ::-                                   (IsHTMLBodyElement self) => Signal self (EventM UIEvent self ())-htmlBodyElementOnorientationchange = (connect "orientationchange")- -htmlBodyElementOnblur ::-                      (IsHTMLBodyElement self) => Signal self (EventM UIEvent self ())-htmlBodyElementOnblur = (connect "blur")- -htmlBodyElementOnerror ::-                       (IsHTMLBodyElement self) => Signal self (EventM UIEvent self ())-htmlBodyElementOnerror = (connect "error")- -htmlBodyElementOnfocus ::-                       (IsHTMLBodyElement self) => Signal self (EventM UIEvent self ())-htmlBodyElementOnfocus = (connect "focus")- -htmlBodyElementOnload ::-                      (IsHTMLBodyElement self) => Signal self (EventM UIEvent self ())-htmlBodyElementOnload = (connect "load")+  module GHCJS.DOM.JSFFI.Generated.HTMLBodyElement #else-module GHCJS.DOM.HTMLBodyElement (   module Graphics.UI.Gtk.WebKit.DOM.HTMLBodyElement+#endif   ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.HTMLBodyElement+#else import Graphics.UI.Gtk.WebKit.DOM.HTMLBodyElement #endif
src/GHCJS/DOM/HTMLButtonElement.hs view
@@ -1,346 +1,13 @@ {-# LANGUAGE CPP #-}+module GHCJS.DOM.HTMLButtonElement ( #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.HTMLButtonElement-       (ghcjs_dom_html_button_element_check_validity,-        htmlButtonElementCheckValidity,-        ghcjs_dom_html_button_element_set_custom_validity,-        htmlButtonElementSetCustomValidity,-        ghcjs_dom_html_button_element_set_autofocus,-        htmlButtonElementSetAutofocus,-        ghcjs_dom_html_button_element_get_autofocus,-        htmlButtonElementGetAutofocus,-        ghcjs_dom_html_button_element_set_disabled,-        htmlButtonElementSetDisabled,-        ghcjs_dom_html_button_element_get_disabled,-        htmlButtonElementGetDisabled,-        ghcjs_dom_html_button_element_get_form, htmlButtonElementGetForm,-        ghcjs_dom_html_button_element_set_form_action,-        htmlButtonElementSetFormAction,-        ghcjs_dom_html_button_element_get_form_action,-        htmlButtonElementGetFormAction,-        ghcjs_dom_html_button_element_set_form_enctype,-        htmlButtonElementSetFormEnctype,-        ghcjs_dom_html_button_element_get_form_enctype,-        htmlButtonElementGetFormEnctype,-        ghcjs_dom_html_button_element_set_form_method,-        htmlButtonElementSetFormMethod,-        ghcjs_dom_html_button_element_get_form_method,-        htmlButtonElementGetFormMethod,-        ghcjs_dom_html_button_element_set_form_no_validate,-        htmlButtonElementSetFormNoValidate,-        ghcjs_dom_html_button_element_get_form_no_validate,-        htmlButtonElementGetFormNoValidate,-        ghcjs_dom_html_button_element_set_form_target,-        htmlButtonElementSetFormTarget,-        ghcjs_dom_html_button_element_get_form_target,-        htmlButtonElementGetFormTarget,-        ghcjs_dom_html_button_element_set_name, htmlButtonElementSetName,-        ghcjs_dom_html_button_element_get_name, htmlButtonElementGetName,-        ghcjs_dom_html_button_element_set_value, htmlButtonElementSetValue,-        ghcjs_dom_html_button_element_get_value, htmlButtonElementGetValue,-        ghcjs_dom_html_button_element_get_will_validate,-        htmlButtonElementGetWillValidate,-        ghcjs_dom_html_button_element_get_validity,-        htmlButtonElementGetValidity,-        ghcjs_dom_html_button_element_get_validation_message,-        htmlButtonElementGetValidationMessage,-        ghcjs_dom_html_button_element_get_labels,-        htmlButtonElementGetLabels, HTMLButtonElement, IsHTMLButtonElement,-        castToHTMLButtonElement, gTypeHTMLButtonElement,-        toHTMLButtonElement)-       where-import GHCJS.Types-import GHCJS.Foreign-import GHCJS.Marshal-import Data.Int-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-- -foreign import javascript unsafe-        "($1[\"checkValidity\"]() ? 1 : 0)"-        ghcjs_dom_html_button_element_check_validity ::-        JSRef HTMLButtonElement -> IO Bool- -htmlButtonElementCheckValidity ::-                               (IsHTMLButtonElement self) => self -> IO Bool-htmlButtonElementCheckValidity self-  = ghcjs_dom_html_button_element_check_validity-      (unHTMLButtonElement (toHTMLButtonElement self))- -foreign import javascript unsafe "$1[\"setCustomValidity\"]($2)"-        ghcjs_dom_html_button_element_set_custom_validity ::-        JSRef HTMLButtonElement -> JSString -> IO ()- -htmlButtonElementSetCustomValidity ::-                                   (IsHTMLButtonElement self, ToJSString error) =>-                                     self -> error -> IO ()-htmlButtonElementSetCustomValidity self error-  = ghcjs_dom_html_button_element_set_custom_validity-      (unHTMLButtonElement (toHTMLButtonElement self))-      (toJSString error)- -foreign import javascript unsafe "$1[\"autofocus\"] = $2;"-        ghcjs_dom_html_button_element_set_autofocus ::-        JSRef HTMLButtonElement -> Bool -> IO ()- -htmlButtonElementSetAutofocus ::-                              (IsHTMLButtonElement self) => self -> Bool -> IO ()-htmlButtonElementSetAutofocus self val-  = ghcjs_dom_html_button_element_set_autofocus-      (unHTMLButtonElement (toHTMLButtonElement self))-      val- -foreign import javascript unsafe "($1[\"autofocus\"] ? 1 : 0)"-        ghcjs_dom_html_button_element_get_autofocus ::-        JSRef HTMLButtonElement -> IO Bool- -htmlButtonElementGetAutofocus ::-                              (IsHTMLButtonElement self) => self -> IO Bool-htmlButtonElementGetAutofocus self-  = ghcjs_dom_html_button_element_get_autofocus-      (unHTMLButtonElement (toHTMLButtonElement self))- -foreign import javascript unsafe "$1[\"disabled\"] = $2;"-        ghcjs_dom_html_button_element_set_disabled ::-        JSRef HTMLButtonElement -> Bool -> IO ()- -htmlButtonElementSetDisabled ::-                             (IsHTMLButtonElement self) => self -> Bool -> IO ()-htmlButtonElementSetDisabled self val-  = ghcjs_dom_html_button_element_set_disabled-      (unHTMLButtonElement (toHTMLButtonElement self))-      val- -foreign import javascript unsafe "($1[\"disabled\"] ? 1 : 0)"-        ghcjs_dom_html_button_element_get_disabled ::-        JSRef HTMLButtonElement -> IO Bool- -htmlButtonElementGetDisabled ::-                             (IsHTMLButtonElement self) => self -> IO Bool-htmlButtonElementGetDisabled self-  = ghcjs_dom_html_button_element_get_disabled-      (unHTMLButtonElement (toHTMLButtonElement self))- -foreign import javascript unsafe "$1[\"form\"]"-        ghcjs_dom_html_button_element_get_form ::-        JSRef HTMLButtonElement -> IO (JSRef HTMLFormElement)- -htmlButtonElementGetForm ::-                         (IsHTMLButtonElement self) => self -> IO (Maybe HTMLFormElement)-htmlButtonElementGetForm self-  = fmap HTMLFormElement . maybeJSNull <$>-      (ghcjs_dom_html_button_element_get_form-         (unHTMLButtonElement (toHTMLButtonElement self)))- -foreign import javascript unsafe "$1[\"formAction\"] = $2;"-        ghcjs_dom_html_button_element_set_form_action ::-        JSRef HTMLButtonElement -> JSString -> IO ()- -htmlButtonElementSetFormAction ::-                               (IsHTMLButtonElement self, ToJSString val) => self -> val -> IO ()-htmlButtonElementSetFormAction self val-  = ghcjs_dom_html_button_element_set_form_action-      (unHTMLButtonElement (toHTMLButtonElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"formAction\"]"-        ghcjs_dom_html_button_element_get_form_action ::-        JSRef HTMLButtonElement -> IO JSString- -htmlButtonElementGetFormAction ::-                               (IsHTMLButtonElement self, FromJSString result) =>-                                 self -> IO result-htmlButtonElementGetFormAction self-  = fromJSString <$>-      (ghcjs_dom_html_button_element_get_form_action-         (unHTMLButtonElement (toHTMLButtonElement self)))- -foreign import javascript unsafe "$1[\"formEnctype\"] = $2;"-        ghcjs_dom_html_button_element_set_form_enctype ::-        JSRef HTMLButtonElement -> JSString -> IO ()- -htmlButtonElementSetFormEnctype ::-                                (IsHTMLButtonElement self, ToJSString val) => self -> val -> IO ()-htmlButtonElementSetFormEnctype self val-  = ghcjs_dom_html_button_element_set_form_enctype-      (unHTMLButtonElement (toHTMLButtonElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"formEnctype\"]"-        ghcjs_dom_html_button_element_get_form_enctype ::-        JSRef HTMLButtonElement -> IO JSString- -htmlButtonElementGetFormEnctype ::-                                (IsHTMLButtonElement self, FromJSString result) =>-                                  self -> IO result-htmlButtonElementGetFormEnctype self-  = fromJSString <$>-      (ghcjs_dom_html_button_element_get_form_enctype-         (unHTMLButtonElement (toHTMLButtonElement self)))- -foreign import javascript unsafe "$1[\"formMethod\"] = $2;"-        ghcjs_dom_html_button_element_set_form_method ::-        JSRef HTMLButtonElement -> JSString -> IO ()- -htmlButtonElementSetFormMethod ::-                               (IsHTMLButtonElement self, ToJSString val) => self -> val -> IO ()-htmlButtonElementSetFormMethod self val-  = ghcjs_dom_html_button_element_set_form_method-      (unHTMLButtonElement (toHTMLButtonElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"formMethod\"]"-        ghcjs_dom_html_button_element_get_form_method ::-        JSRef HTMLButtonElement -> IO JSString- -htmlButtonElementGetFormMethod ::-                               (IsHTMLButtonElement self, FromJSString result) =>-                                 self -> IO result-htmlButtonElementGetFormMethod self-  = fromJSString <$>-      (ghcjs_dom_html_button_element_get_form_method-         (unHTMLButtonElement (toHTMLButtonElement self)))- -foreign import javascript unsafe "$1[\"formNoValidate\"] = $2;"-        ghcjs_dom_html_button_element_set_form_no_validate ::-        JSRef HTMLButtonElement -> Bool -> IO ()- -htmlButtonElementSetFormNoValidate ::-                                   (IsHTMLButtonElement self) => self -> Bool -> IO ()-htmlButtonElementSetFormNoValidate self val-  = ghcjs_dom_html_button_element_set_form_no_validate-      (unHTMLButtonElement (toHTMLButtonElement self))-      val- -foreign import javascript unsafe "($1[\"formNoValidate\"] ? 1 : 0)"-        ghcjs_dom_html_button_element_get_form_no_validate ::-        JSRef HTMLButtonElement -> IO Bool- -htmlButtonElementGetFormNoValidate ::-                                   (IsHTMLButtonElement self) => self -> IO Bool-htmlButtonElementGetFormNoValidate self-  = ghcjs_dom_html_button_element_get_form_no_validate-      (unHTMLButtonElement (toHTMLButtonElement self))- -foreign import javascript unsafe "$1[\"formTarget\"] = $2;"-        ghcjs_dom_html_button_element_set_form_target ::-        JSRef HTMLButtonElement -> JSString -> IO ()- -htmlButtonElementSetFormTarget ::-                               (IsHTMLButtonElement self, ToJSString val) => self -> val -> IO ()-htmlButtonElementSetFormTarget self val-  = ghcjs_dom_html_button_element_set_form_target-      (unHTMLButtonElement (toHTMLButtonElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"formTarget\"]"-        ghcjs_dom_html_button_element_get_form_target ::-        JSRef HTMLButtonElement -> IO JSString- -htmlButtonElementGetFormTarget ::-                               (IsHTMLButtonElement self, FromJSString result) =>-                                 self -> IO result-htmlButtonElementGetFormTarget self-  = fromJSString <$>-      (ghcjs_dom_html_button_element_get_form_target-         (unHTMLButtonElement (toHTMLButtonElement self)))- -foreign import javascript unsafe "$1[\"name\"] = $2;"-        ghcjs_dom_html_button_element_set_name ::-        JSRef HTMLButtonElement -> JSString -> IO ()- -htmlButtonElementSetName ::-                         (IsHTMLButtonElement self, ToJSString val) => self -> val -> IO ()-htmlButtonElementSetName self val-  = ghcjs_dom_html_button_element_set_name-      (unHTMLButtonElement (toHTMLButtonElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"name\"]"-        ghcjs_dom_html_button_element_get_name ::-        JSRef HTMLButtonElement -> IO JSString- -htmlButtonElementGetName ::-                         (IsHTMLButtonElement self, FromJSString result) =>-                           self -> IO result-htmlButtonElementGetName self-  = fromJSString <$>-      (ghcjs_dom_html_button_element_get_name-         (unHTMLButtonElement (toHTMLButtonElement self)))- -foreign import javascript unsafe "$1[\"value\"] = $2;"-        ghcjs_dom_html_button_element_set_value ::-        JSRef HTMLButtonElement -> JSString -> IO ()- -htmlButtonElementSetValue ::-                          (IsHTMLButtonElement self, ToJSString val) => self -> val -> IO ()-htmlButtonElementSetValue self val-  = ghcjs_dom_html_button_element_set_value-      (unHTMLButtonElement (toHTMLButtonElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"value\"]"-        ghcjs_dom_html_button_element_get_value ::-        JSRef HTMLButtonElement -> IO JSString- -htmlButtonElementGetValue ::-                          (IsHTMLButtonElement self, FromJSString result) =>-                            self -> IO result-htmlButtonElementGetValue self-  = fromJSString <$>-      (ghcjs_dom_html_button_element_get_value-         (unHTMLButtonElement (toHTMLButtonElement self)))- -foreign import javascript unsafe "($1[\"willValidate\"] ? 1 : 0)"-        ghcjs_dom_html_button_element_get_will_validate ::-        JSRef HTMLButtonElement -> IO Bool- -htmlButtonElementGetWillValidate ::-                                 (IsHTMLButtonElement self) => self -> IO Bool-htmlButtonElementGetWillValidate self-  = ghcjs_dom_html_button_element_get_will_validate-      (unHTMLButtonElement (toHTMLButtonElement self))- -foreign import javascript unsafe "$1[\"validity\"]"-        ghcjs_dom_html_button_element_get_validity ::-        JSRef HTMLButtonElement -> IO (JSRef ValidityState)- -htmlButtonElementGetValidity ::-                             (IsHTMLButtonElement self) => self -> IO (Maybe ValidityState)-htmlButtonElementGetValidity self-  = fmap ValidityState . maybeJSNull <$>-      (ghcjs_dom_html_button_element_get_validity-         (unHTMLButtonElement (toHTMLButtonElement self)))- -foreign import javascript unsafe "$1[\"validationMessage\"]"-        ghcjs_dom_html_button_element_get_validation_message ::-        JSRef HTMLButtonElement -> IO JSString- -htmlButtonElementGetValidationMessage ::-                                      (IsHTMLButtonElement self, FromJSString result) =>-                                        self -> IO result-htmlButtonElementGetValidationMessage self-  = fromJSString <$>-      (ghcjs_dom_html_button_element_get_validation_message-         (unHTMLButtonElement (toHTMLButtonElement self)))- -foreign import javascript unsafe "$1[\"labels\"]"-        ghcjs_dom_html_button_element_get_labels ::-        JSRef HTMLButtonElement -> IO (JSRef NodeList)- -htmlButtonElementGetLabels ::-                           (IsHTMLButtonElement self) => self -> IO (Maybe NodeList)-htmlButtonElementGetLabels self-  = fmap NodeList . maybeJSNull <$>-      (ghcjs_dom_html_button_element_get_labels-         (unHTMLButtonElement (toHTMLButtonElement self)))+  module GHCJS.DOM.JSFFI.Generated.HTMLButtonElement #else-module GHCJS.DOM.HTMLButtonElement (   module Graphics.UI.Gtk.WebKit.DOM.HTMLButtonElement+#endif   ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.HTMLButtonElement+#else import Graphics.UI.Gtk.WebKit.DOM.HTMLButtonElement #endif
src/GHCJS/DOM/HTMLCanvasElement.hs view
@@ -1,71 +1,13 @@ {-# LANGUAGE CPP #-}+module GHCJS.DOM.HTMLCanvasElement ( #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.HTMLCanvasElement-       (ghcjs_dom_html_canvas_element_set_width,-        htmlCanvasElementSetWidth, ghcjs_dom_html_canvas_element_get_width,-        htmlCanvasElementGetWidth,-        ghcjs_dom_html_canvas_element_set_height,-        htmlCanvasElementSetHeight,-        ghcjs_dom_html_canvas_element_get_height,-        htmlCanvasElementGetHeight, HTMLCanvasElement, IsHTMLCanvasElement,-        castToHTMLCanvasElement, gTypeHTMLCanvasElement,-        toHTMLCanvasElement)-       where-import GHCJS.Types-import GHCJS.Foreign-import GHCJS.Marshal-import Data.Int-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-- -foreign import javascript unsafe "$1[\"width\"] = $2;"-        ghcjs_dom_html_canvas_element_set_width ::-        JSRef HTMLCanvasElement -> Int -> IO ()- -htmlCanvasElementSetWidth ::-                          (IsHTMLCanvasElement self) => self -> Int -> IO ()-htmlCanvasElementSetWidth self val-  = ghcjs_dom_html_canvas_element_set_width-      (unHTMLCanvasElement (toHTMLCanvasElement self))-      val- -foreign import javascript unsafe "$1[\"width\"]"-        ghcjs_dom_html_canvas_element_get_width ::-        JSRef HTMLCanvasElement -> IO Int- -htmlCanvasElementGetWidth ::-                          (IsHTMLCanvasElement self) => self -> IO Int-htmlCanvasElementGetWidth self-  = ghcjs_dom_html_canvas_element_get_width-      (unHTMLCanvasElement (toHTMLCanvasElement self))- -foreign import javascript unsafe "$1[\"height\"] = $2;"-        ghcjs_dom_html_canvas_element_set_height ::-        JSRef HTMLCanvasElement -> Int -> IO ()- -htmlCanvasElementSetHeight ::-                           (IsHTMLCanvasElement self) => self -> Int -> IO ()-htmlCanvasElementSetHeight self val-  = ghcjs_dom_html_canvas_element_set_height-      (unHTMLCanvasElement (toHTMLCanvasElement self))-      val- -foreign import javascript unsafe "$1[\"height\"]"-        ghcjs_dom_html_canvas_element_get_height ::-        JSRef HTMLCanvasElement -> IO Int- -htmlCanvasElementGetHeight ::-                           (IsHTMLCanvasElement self) => self -> IO Int-htmlCanvasElementGetHeight self-  = ghcjs_dom_html_canvas_element_get_height-      (unHTMLCanvasElement (toHTMLCanvasElement self))+  module GHCJS.DOM.JSFFI.Generated.HTMLCanvasElement #else-module GHCJS.DOM.HTMLCanvasElement (   module Graphics.UI.Gtk.WebKit.DOM.HTMLCanvasElement+#endif   ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.HTMLCanvasElement+#else import Graphics.UI.Gtk.WebKit.DOM.HTMLCanvasElement #endif
src/GHCJS/DOM/HTMLCollection.hs view
@@ -1,60 +1,13 @@ {-# LANGUAGE CPP #-}+module GHCJS.DOM.HTMLCollection ( #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.HTMLCollection-       (ghcjs_dom_html_collection_item, htmlCollectionItem,-        ghcjs_dom_html_collection_named_item, htmlCollectionNamedItem,-        ghcjs_dom_html_collection_get_length, htmlCollectionGetLength,-        HTMLCollection, IsHTMLCollection, castToHTMLCollection,-        gTypeHTMLCollection, toHTMLCollection)-       where-import GHCJS.Types-import GHCJS.Foreign-import GHCJS.Marshal-import Data.Int-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-- -foreign import javascript unsafe "$1[\"item\"]($2)"-        ghcjs_dom_html_collection_item ::-        JSRef HTMLCollection -> Word -> IO (JSRef Node)- -htmlCollectionItem ::-                   (IsHTMLCollection self) => self -> Word -> IO (Maybe Node)-htmlCollectionItem self index-  = fmap Node . maybeJSNull <$>-      (ghcjs_dom_html_collection_item-         (unHTMLCollection (toHTMLCollection self))-         index)- -foreign import javascript unsafe "$1[\"namedItem\"]($2)"-        ghcjs_dom_html_collection_named_item ::-        JSRef HTMLCollection -> JSString -> IO (JSRef Node)- -htmlCollectionNamedItem ::-                        (IsHTMLCollection self, ToJSString name) =>-                          self -> name -> IO (Maybe Node)-htmlCollectionNamedItem self name-  = fmap Node . maybeJSNull <$>-      (ghcjs_dom_html_collection_named_item-         (unHTMLCollection (toHTMLCollection self))-         (toJSString name))- -foreign import javascript unsafe "$1[\"length\"]"-        ghcjs_dom_html_collection_get_length ::-        JSRef HTMLCollection -> IO Word- -htmlCollectionGetLength ::-                        (IsHTMLCollection self) => self -> IO Word-htmlCollectionGetLength self-  = ghcjs_dom_html_collection_get_length-      (unHTMLCollection (toHTMLCollection self))+  module GHCJS.DOM.JSFFI.Generated.HTMLCollection #else-module GHCJS.DOM.HTMLCollection (   module Graphics.UI.Gtk.WebKit.DOM.HTMLCollection+#endif   ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.HTMLCollection+#else import Graphics.UI.Gtk.WebKit.DOM.HTMLCollection #endif
src/GHCJS/DOM/HTMLDListElement.hs view
@@ -1,46 +1,13 @@ {-# LANGUAGE CPP #-}+module GHCJS.DOM.HTMLDListElement ( #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.HTMLDListElement-       (ghcjs_dom_htmld_list_element_set_compact,-        htmldListElementSetCompact,-        ghcjs_dom_htmld_list_element_get_compact,-        htmldListElementGetCompact, HTMLDListElement, IsHTMLDListElement,-        castToHTMLDListElement, gTypeHTMLDListElement, toHTMLDListElement)-       where-import GHCJS.Types-import GHCJS.Foreign-import GHCJS.Marshal-import Data.Int-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-- -foreign import javascript unsafe "$1[\"compact\"] = $2;"-        ghcjs_dom_htmld_list_element_set_compact ::-        JSRef HTMLDListElement -> Bool -> IO ()- -htmldListElementSetCompact ::-                           (IsHTMLDListElement self) => self -> Bool -> IO ()-htmldListElementSetCompact self val-  = ghcjs_dom_htmld_list_element_set_compact-      (unHTMLDListElement (toHTMLDListElement self))-      val- -foreign import javascript unsafe "($1[\"compact\"] ? 1 : 0)"-        ghcjs_dom_htmld_list_element_get_compact ::-        JSRef HTMLDListElement -> IO Bool- -htmldListElementGetCompact ::-                           (IsHTMLDListElement self) => self -> IO Bool-htmldListElementGetCompact self-  = ghcjs_dom_htmld_list_element_get_compact-      (unHTMLDListElement (toHTMLDListElement self))+  module GHCJS.DOM.JSFFI.Generated.HTMLDListElement #else-module GHCJS.DOM.HTMLDListElement (   module Graphics.UI.Gtk.WebKit.DOM.HTMLDListElement+#endif   ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.HTMLDListElement+#else import Graphics.UI.Gtk.WebKit.DOM.HTMLDListElement #endif
+ src/GHCJS/DOM/HTMLDataListElement.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.HTMLDataListElement (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.HTMLDataListElement+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.HTMLDataListElement+#else+#endif
src/GHCJS/DOM/HTMLDetailsElement.hs view
@@ -1,46 +1,13 @@ {-# LANGUAGE CPP #-}+module GHCJS.DOM.HTMLDetailsElement ( #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.HTMLDetailsElement-       (ghcjs_dom_html_details_element_set_open,-        htmlDetailsElementSetOpen, ghcjs_dom_html_details_element_get_open,-        htmlDetailsElementGetOpen, HTMLDetailsElement,-        IsHTMLDetailsElement, castToHTMLDetailsElement,-        gTypeHTMLDetailsElement, toHTMLDetailsElement)-       where-import GHCJS.Types-import GHCJS.Foreign-import GHCJS.Marshal-import Data.Int-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-- -foreign import javascript unsafe "$1[\"open\"] = $2;"-        ghcjs_dom_html_details_element_set_open ::-        JSRef HTMLDetailsElement -> Bool -> IO ()- -htmlDetailsElementSetOpen ::-                          (IsHTMLDetailsElement self) => self -> Bool -> IO ()-htmlDetailsElementSetOpen self val-  = ghcjs_dom_html_details_element_set_open-      (unHTMLDetailsElement (toHTMLDetailsElement self))-      val- -foreign import javascript unsafe "($1[\"open\"] ? 1 : 0)"-        ghcjs_dom_html_details_element_get_open ::-        JSRef HTMLDetailsElement -> IO Bool- -htmlDetailsElementGetOpen ::-                          (IsHTMLDetailsElement self) => self -> IO Bool-htmlDetailsElementGetOpen self-  = ghcjs_dom_html_details_element_get_open-      (unHTMLDetailsElement (toHTMLDetailsElement self))+  module GHCJS.DOM.JSFFI.Generated.HTMLDetailsElement #else-module GHCJS.DOM.HTMLDetailsElement (   module Graphics.UI.Gtk.WebKit.DOM.HTMLDetailsElement+#endif   ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.HTMLDetailsElement+#else import Graphics.UI.Gtk.WebKit.DOM.HTMLDetailsElement #endif
src/GHCJS/DOM/HTMLDirectoryElement.hs view
@@ -1,47 +1,13 @@ {-# LANGUAGE CPP #-}+module GHCJS.DOM.HTMLDirectoryElement ( #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.HTMLDirectoryElement-       (ghcjs_dom_html_directory_element_set_compact,-        htmlDirectoryElementSetCompact,-        ghcjs_dom_html_directory_element_get_compact,-        htmlDirectoryElementGetCompact, HTMLDirectoryElement,-        IsHTMLDirectoryElement, castToHTMLDirectoryElement,-        gTypeHTMLDirectoryElement, toHTMLDirectoryElement)-       where-import GHCJS.Types-import GHCJS.Foreign-import GHCJS.Marshal-import Data.Int-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-- -foreign import javascript unsafe "$1[\"compact\"] = $2;"-        ghcjs_dom_html_directory_element_set_compact ::-        JSRef HTMLDirectoryElement -> Bool -> IO ()- -htmlDirectoryElementSetCompact ::-                               (IsHTMLDirectoryElement self) => self -> Bool -> IO ()-htmlDirectoryElementSetCompact self val-  = ghcjs_dom_html_directory_element_set_compact-      (unHTMLDirectoryElement (toHTMLDirectoryElement self))-      val- -foreign import javascript unsafe "($1[\"compact\"] ? 1 : 0)"-        ghcjs_dom_html_directory_element_get_compact ::-        JSRef HTMLDirectoryElement -> IO Bool- -htmlDirectoryElementGetCompact ::-                               (IsHTMLDirectoryElement self) => self -> IO Bool-htmlDirectoryElementGetCompact self-  = ghcjs_dom_html_directory_element_get_compact-      (unHTMLDirectoryElement (toHTMLDirectoryElement self))+  module GHCJS.DOM.JSFFI.Generated.HTMLDirectoryElement #else-module GHCJS.DOM.HTMLDirectoryElement (   module Graphics.UI.Gtk.WebKit.DOM.HTMLDirectoryElement+#endif   ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.HTMLDirectoryElement+#else import Graphics.UI.Gtk.WebKit.DOM.HTMLDirectoryElement #endif
src/GHCJS/DOM/HTMLDivElement.hs view
@@ -1,46 +1,13 @@ {-# LANGUAGE CPP #-}+module GHCJS.DOM.HTMLDivElement ( #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.HTMLDivElement-       (ghcjs_dom_html_div_element_set_align, htmlDivElementSetAlign,-        ghcjs_dom_html_div_element_get_align, htmlDivElementGetAlign,-        HTMLDivElement, IsHTMLDivElement, castToHTMLDivElement,-        gTypeHTMLDivElement, toHTMLDivElement)-       where-import GHCJS.Types-import GHCJS.Foreign-import GHCJS.Marshal-import Data.Int-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-- -foreign import javascript unsafe "$1[\"align\"] = $2;"-        ghcjs_dom_html_div_element_set_align ::-        JSRef HTMLDivElement -> JSString -> IO ()- -htmlDivElementSetAlign ::-                       (IsHTMLDivElement self, ToJSString val) => self -> val -> IO ()-htmlDivElementSetAlign self val-  = ghcjs_dom_html_div_element_set_align-      (unHTMLDivElement (toHTMLDivElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"align\"]"-        ghcjs_dom_html_div_element_get_align ::-        JSRef HTMLDivElement -> IO JSString- -htmlDivElementGetAlign ::-                       (IsHTMLDivElement self, FromJSString result) => self -> IO result-htmlDivElementGetAlign self-  = fromJSString <$>-      (ghcjs_dom_html_div_element_get_align-         (unHTMLDivElement (toHTMLDivElement self)))+  module GHCJS.DOM.JSFFI.Generated.HTMLDivElement #else-module GHCJS.DOM.HTMLDivElement (   module Graphics.UI.Gtk.WebKit.DOM.HTMLDivElement+#endif   ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.HTMLDivElement+#else import Graphics.UI.Gtk.WebKit.DOM.HTMLDivElement #endif
src/GHCJS/DOM/HTMLDocument.hs view
@@ -1,294 +1,13 @@ {-# LANGUAGE CPP #-}+module GHCJS.DOM.HTMLDocument ( #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.HTMLDocument-       (ghcjs_dom_html_document_close, htmlDocumentClose,-        ghcjs_dom_html_document_clear, htmlDocumentClear,-        ghcjs_dom_html_document_capture_events, htmlDocumentCaptureEvents,-        ghcjs_dom_html_document_release_events, htmlDocumentReleaseEvents,-        ghcjs_dom_html_document_get_embeds, htmlDocumentGetEmbeds,-        ghcjs_dom_html_document_get_plugins, htmlDocumentGetPlugins,-        ghcjs_dom_html_document_get_scripts, htmlDocumentGetScripts,-        ghcjs_dom_html_document_get_width, htmlDocumentGetWidth,-        ghcjs_dom_html_document_get_height, htmlDocumentGetHeight,-        ghcjs_dom_html_document_set_dir, htmlDocumentSetDir,-        ghcjs_dom_html_document_get_dir, htmlDocumentGetDir,-        ghcjs_dom_html_document_set_design_mode, htmlDocumentSetDesignMode,-        ghcjs_dom_html_document_get_design_mode, htmlDocumentGetDesignMode,-        ghcjs_dom_html_document_get_compat_mode, htmlDocumentGetCompatMode,-        ghcjs_dom_html_document_set_bg_color, htmlDocumentSetBgColor,-        ghcjs_dom_html_document_get_bg_color, htmlDocumentGetBgColor,-        ghcjs_dom_html_document_set_fg_color, htmlDocumentSetFgColor,-        ghcjs_dom_html_document_get_fg_color, htmlDocumentGetFgColor,-        ghcjs_dom_html_document_set_alink_color, htmlDocumentSetAlinkColor,-        ghcjs_dom_html_document_get_alink_color, htmlDocumentGetAlinkColor,-        ghcjs_dom_html_document_set_link_color, htmlDocumentSetLinkColor,-        ghcjs_dom_html_document_get_link_color, htmlDocumentGetLinkColor,-        ghcjs_dom_html_document_set_vlink_color, htmlDocumentSetVlinkColor,-        ghcjs_dom_html_document_get_vlink_color, htmlDocumentGetVlinkColor,-        HTMLDocument, IsHTMLDocument, castToHTMLDocument,-        gTypeHTMLDocument, toHTMLDocument)-       where-import GHCJS.Types-import GHCJS.Foreign-import GHCJS.Marshal-import Data.Int-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-- -foreign import javascript unsafe "$1[\"close\"]()"-        ghcjs_dom_html_document_close :: JSRef HTMLDocument -> IO ()- -htmlDocumentClose :: (IsHTMLDocument self) => self -> IO ()-htmlDocumentClose self-  = ghcjs_dom_html_document_close-      (unHTMLDocument (toHTMLDocument self))- -foreign import javascript unsafe "$1[\"clear\"]()"-        ghcjs_dom_html_document_clear :: JSRef HTMLDocument -> IO ()- -htmlDocumentClear :: (IsHTMLDocument self) => self -> IO ()-htmlDocumentClear self-  = ghcjs_dom_html_document_clear-      (unHTMLDocument (toHTMLDocument self))- -foreign import javascript unsafe "$1[\"captureEvents\"]()"-        ghcjs_dom_html_document_capture_events ::-        JSRef HTMLDocument -> IO ()- -htmlDocumentCaptureEvents :: (IsHTMLDocument self) => self -> IO ()-htmlDocumentCaptureEvents self-  = ghcjs_dom_html_document_capture_events-      (unHTMLDocument (toHTMLDocument self))- -foreign import javascript unsafe "$1[\"releaseEvents\"]()"-        ghcjs_dom_html_document_release_events ::-        JSRef HTMLDocument -> IO ()- -htmlDocumentReleaseEvents :: (IsHTMLDocument self) => self -> IO ()-htmlDocumentReleaseEvents self-  = ghcjs_dom_html_document_release_events-      (unHTMLDocument (toHTMLDocument self))- -foreign import javascript unsafe "$1[\"embeds\"]"-        ghcjs_dom_html_document_get_embeds ::-        JSRef HTMLDocument -> IO (JSRef HTMLCollection)- -htmlDocumentGetEmbeds ::-                      (IsHTMLDocument self) => self -> IO (Maybe HTMLCollection)-htmlDocumentGetEmbeds self-  = fmap HTMLCollection . maybeJSNull <$>-      (ghcjs_dom_html_document_get_embeds-         (unHTMLDocument (toHTMLDocument self)))- -foreign import javascript unsafe "$1[\"plugins\"]"-        ghcjs_dom_html_document_get_plugins ::-        JSRef HTMLDocument -> IO (JSRef HTMLCollection)- -htmlDocumentGetPlugins ::-                       (IsHTMLDocument self) => self -> IO (Maybe HTMLCollection)-htmlDocumentGetPlugins self-  = fmap HTMLCollection . maybeJSNull <$>-      (ghcjs_dom_html_document_get_plugins-         (unHTMLDocument (toHTMLDocument self)))- -foreign import javascript unsafe "$1[\"scripts\"]"-        ghcjs_dom_html_document_get_scripts ::-        JSRef HTMLDocument -> IO (JSRef HTMLCollection)- -htmlDocumentGetScripts ::-                       (IsHTMLDocument self) => self -> IO (Maybe HTMLCollection)-htmlDocumentGetScripts self-  = fmap HTMLCollection . maybeJSNull <$>-      (ghcjs_dom_html_document_get_scripts-         (unHTMLDocument (toHTMLDocument self)))- -foreign import javascript unsafe "$1[\"width\"]"-        ghcjs_dom_html_document_get_width :: JSRef HTMLDocument -> IO Int- -htmlDocumentGetWidth :: (IsHTMLDocument self) => self -> IO Int-htmlDocumentGetWidth self-  = ghcjs_dom_html_document_get_width-      (unHTMLDocument (toHTMLDocument self))- -foreign import javascript unsafe "$1[\"height\"]"-        ghcjs_dom_html_document_get_height :: JSRef HTMLDocument -> IO Int- -htmlDocumentGetHeight :: (IsHTMLDocument self) => self -> IO Int-htmlDocumentGetHeight self-  = ghcjs_dom_html_document_get_height-      (unHTMLDocument (toHTMLDocument self))- -foreign import javascript unsafe "$1[\"dir\"] = $2;"-        ghcjs_dom_html_document_set_dir ::-        JSRef HTMLDocument -> JSString -> IO ()- -htmlDocumentSetDir ::-                   (IsHTMLDocument self, ToJSString val) => self -> val -> IO ()-htmlDocumentSetDir self val-  = ghcjs_dom_html_document_set_dir-      (unHTMLDocument (toHTMLDocument self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"dir\"]"-        ghcjs_dom_html_document_get_dir ::-        JSRef HTMLDocument -> IO JSString- -htmlDocumentGetDir ::-                   (IsHTMLDocument self, FromJSString result) => self -> IO result-htmlDocumentGetDir self-  = fromJSString <$>-      (ghcjs_dom_html_document_get_dir-         (unHTMLDocument (toHTMLDocument self)))- -foreign import javascript unsafe "$1[\"designMode\"] = $2;"-        ghcjs_dom_html_document_set_design_mode ::-        JSRef HTMLDocument -> JSString -> IO ()- -htmlDocumentSetDesignMode ::-                          (IsHTMLDocument self, ToJSString val) => self -> val -> IO ()-htmlDocumentSetDesignMode self val-  = ghcjs_dom_html_document_set_design_mode-      (unHTMLDocument (toHTMLDocument self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"designMode\"]"-        ghcjs_dom_html_document_get_design_mode ::-        JSRef HTMLDocument -> IO JSString- -htmlDocumentGetDesignMode ::-                          (IsHTMLDocument self, FromJSString result) => self -> IO result-htmlDocumentGetDesignMode self-  = fromJSString <$>-      (ghcjs_dom_html_document_get_design_mode-         (unHTMLDocument (toHTMLDocument self)))- -foreign import javascript unsafe "$1[\"compatMode\"]"-        ghcjs_dom_html_document_get_compat_mode ::-        JSRef HTMLDocument -> IO JSString- -htmlDocumentGetCompatMode ::-                          (IsHTMLDocument self, FromJSString result) => self -> IO result-htmlDocumentGetCompatMode self-  = fromJSString <$>-      (ghcjs_dom_html_document_get_compat_mode-         (unHTMLDocument (toHTMLDocument self)))- -foreign import javascript unsafe "$1[\"bgColor\"] = $2;"-        ghcjs_dom_html_document_set_bg_color ::-        JSRef HTMLDocument -> JSString -> IO ()- -htmlDocumentSetBgColor ::-                       (IsHTMLDocument self, ToJSString val) => self -> val -> IO ()-htmlDocumentSetBgColor self val-  = ghcjs_dom_html_document_set_bg_color-      (unHTMLDocument (toHTMLDocument self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"bgColor\"]"-        ghcjs_dom_html_document_get_bg_color ::-        JSRef HTMLDocument -> IO JSString- -htmlDocumentGetBgColor ::-                       (IsHTMLDocument self, FromJSString result) => self -> IO result-htmlDocumentGetBgColor self-  = fromJSString <$>-      (ghcjs_dom_html_document_get_bg_color-         (unHTMLDocument (toHTMLDocument self)))- -foreign import javascript unsafe "$1[\"fgColor\"] = $2;"-        ghcjs_dom_html_document_set_fg_color ::-        JSRef HTMLDocument -> JSString -> IO ()- -htmlDocumentSetFgColor ::-                       (IsHTMLDocument self, ToJSString val) => self -> val -> IO ()-htmlDocumentSetFgColor self val-  = ghcjs_dom_html_document_set_fg_color-      (unHTMLDocument (toHTMLDocument self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"fgColor\"]"-        ghcjs_dom_html_document_get_fg_color ::-        JSRef HTMLDocument -> IO JSString- -htmlDocumentGetFgColor ::-                       (IsHTMLDocument self, FromJSString result) => self -> IO result-htmlDocumentGetFgColor self-  = fromJSString <$>-      (ghcjs_dom_html_document_get_fg_color-         (unHTMLDocument (toHTMLDocument self)))- -foreign import javascript unsafe "$1[\"alinkColor\"] = $2;"-        ghcjs_dom_html_document_set_alink_color ::-        JSRef HTMLDocument -> JSString -> IO ()- -htmlDocumentSetAlinkColor ::-                          (IsHTMLDocument self, ToJSString val) => self -> val -> IO ()-htmlDocumentSetAlinkColor self val-  = ghcjs_dom_html_document_set_alink_color-      (unHTMLDocument (toHTMLDocument self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"alinkColor\"]"-        ghcjs_dom_html_document_get_alink_color ::-        JSRef HTMLDocument -> IO JSString- -htmlDocumentGetAlinkColor ::-                          (IsHTMLDocument self, FromJSString result) => self -> IO result-htmlDocumentGetAlinkColor self-  = fromJSString <$>-      (ghcjs_dom_html_document_get_alink_color-         (unHTMLDocument (toHTMLDocument self)))- -foreign import javascript unsafe "$1[\"linkColor\"] = $2;"-        ghcjs_dom_html_document_set_link_color ::-        JSRef HTMLDocument -> JSString -> IO ()- -htmlDocumentSetLinkColor ::-                         (IsHTMLDocument self, ToJSString val) => self -> val -> IO ()-htmlDocumentSetLinkColor self val-  = ghcjs_dom_html_document_set_link_color-      (unHTMLDocument (toHTMLDocument self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"linkColor\"]"-        ghcjs_dom_html_document_get_link_color ::-        JSRef HTMLDocument -> IO JSString- -htmlDocumentGetLinkColor ::-                         (IsHTMLDocument self, FromJSString result) => self -> IO result-htmlDocumentGetLinkColor self-  = fromJSString <$>-      (ghcjs_dom_html_document_get_link_color-         (unHTMLDocument (toHTMLDocument self)))- -foreign import javascript unsafe "$1[\"vlinkColor\"] = $2;"-        ghcjs_dom_html_document_set_vlink_color ::-        JSRef HTMLDocument -> JSString -> IO ()- -htmlDocumentSetVlinkColor ::-                          (IsHTMLDocument self, ToJSString val) => self -> val -> IO ()-htmlDocumentSetVlinkColor self val-  = ghcjs_dom_html_document_set_vlink_color-      (unHTMLDocument (toHTMLDocument self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"vlinkColor\"]"-        ghcjs_dom_html_document_get_vlink_color ::-        JSRef HTMLDocument -> IO JSString- -htmlDocumentGetVlinkColor ::-                          (IsHTMLDocument self, FromJSString result) => self -> IO result-htmlDocumentGetVlinkColor self-  = fromJSString <$>-      (ghcjs_dom_html_document_get_vlink_color-         (unHTMLDocument (toHTMLDocument self)))+  module GHCJS.DOM.JSFFI.Generated.HTMLDocument #else-module GHCJS.DOM.HTMLDocument (   module Graphics.UI.Gtk.WebKit.DOM.HTMLDocument+#endif   ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.HTMLDocument+#else import Graphics.UI.Gtk.WebKit.DOM.HTMLDocument #endif
src/GHCJS/DOM/HTMLElement.hs view
@@ -1,454 +1,13 @@ {-# LANGUAGE CPP #-}+module GHCJS.DOM.HTMLElement ( #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.HTMLElement-       (ghcjs_dom_html_element_insert_adjacent_element,-        htmlElementInsertAdjacentElement,-        ghcjs_dom_html_element_insert_adjacent_html,-        htmlElementInsertAdjacentHTML,-        ghcjs_dom_html_element_insert_adjacent_text,-        htmlElementInsertAdjacentText, ghcjs_dom_html_element_click,-        htmlElementClick, ghcjs_dom_html_element_set_title,-        htmlElementSetTitle, ghcjs_dom_html_element_get_title,-        htmlElementGetTitle, ghcjs_dom_html_element_set_lang,-        htmlElementSetLang, ghcjs_dom_html_element_get_lang,-        htmlElementGetLang, ghcjs_dom_html_element_set_translate,-        htmlElementSetTranslate, ghcjs_dom_html_element_get_translate,-        htmlElementGetTranslate, ghcjs_dom_html_element_set_dir,-        htmlElementSetDir, ghcjs_dom_html_element_get_dir,-        htmlElementGetDir, ghcjs_dom_html_element_set_tab_index,-        htmlElementSetTabIndex, ghcjs_dom_html_element_get_tab_index,-        htmlElementGetTabIndex, ghcjs_dom_html_element_set_draggable,-        htmlElementSetDraggable, ghcjs_dom_html_element_get_draggable,-        htmlElementGetDraggable, ghcjs_dom_html_element_set_webkitdropzone,-        htmlElementSetWebkitdropzone,-        ghcjs_dom_html_element_get_webkitdropzone,-        htmlElementGetWebkitdropzone, ghcjs_dom_html_element_set_hidden,-        htmlElementSetHidden, ghcjs_dom_html_element_get_hidden,-        htmlElementGetHidden, ghcjs_dom_html_element_set_access_key,-        htmlElementSetAccessKey, ghcjs_dom_html_element_get_access_key,-        htmlElementGetAccessKey, ghcjs_dom_html_element_set_inner_html,-        htmlElementSetInnerHTML, ghcjs_dom_html_element_get_inner_html,-        htmlElementGetInnerHTML, ghcjs_dom_html_element_set_inner_text,-        htmlElementSetInnerText, ghcjs_dom_html_element_get_inner_text,-        htmlElementGetInnerText, ghcjs_dom_html_element_set_outer_html,-        htmlElementSetOuterHTML, ghcjs_dom_html_element_get_outer_html,-        htmlElementGetOuterHTML, ghcjs_dom_html_element_set_outer_text,-        htmlElementSetOuterText, ghcjs_dom_html_element_get_outer_text,-        htmlElementGetOuterText, ghcjs_dom_html_element_get_children,-        htmlElementGetChildren,-        ghcjs_dom_html_element_set_content_editable,-        htmlElementSetContentEditable,-        ghcjs_dom_html_element_get_content_editable,-        htmlElementGetContentEditable,-        ghcjs_dom_html_element_get_is_content_editable,-        htmlElementGetIsContentEditable,-        ghcjs_dom_html_element_set_spellcheck, htmlElementSetSpellcheck,-        ghcjs_dom_html_element_get_spellcheck, htmlElementGetSpellcheck,-        HTMLElement, IsHTMLElement, castToHTMLElement, gTypeHTMLElement,-        toHTMLElement)-       where-import GHCJS.Types-import GHCJS.Foreign-import GHCJS.Marshal-import Data.Int-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-- -foreign import javascript unsafe-        "$1[\"insertAdjacentElement\"]($2,\n$3)"-        ghcjs_dom_html_element_insert_adjacent_element ::-        JSRef HTMLElement ->-          JSString -> JSRef Element -> IO (JSRef Element)- -htmlElementInsertAdjacentElement ::-                                 (IsHTMLElement self, ToJSString where', IsElement element) =>-                                   self -> where' -> Maybe element -> IO (Maybe Element)-htmlElementInsertAdjacentElement self where' element-  = fmap Element . maybeJSNull <$>-      (ghcjs_dom_html_element_insert_adjacent_element-         (unHTMLElement (toHTMLElement self))-         (toJSString where')-         (maybe jsNull (unElement . toElement) element))- -foreign import javascript unsafe-        "$1[\"insertAdjacentHTML\"]($2, $3)"-        ghcjs_dom_html_element_insert_adjacent_html ::-        JSRef HTMLElement -> JSString -> JSString -> IO ()- -htmlElementInsertAdjacentHTML ::-                              (IsHTMLElement self, ToJSString where', ToJSString html) =>-                                self -> where' -> html -> IO ()-htmlElementInsertAdjacentHTML self where' html-  = ghcjs_dom_html_element_insert_adjacent_html-      (unHTMLElement (toHTMLElement self))-      (toJSString where')-      (toJSString html)- -foreign import javascript unsafe-        "$1[\"insertAdjacentText\"]($2, $3)"-        ghcjs_dom_html_element_insert_adjacent_text ::-        JSRef HTMLElement -> JSString -> JSString -> IO ()- -htmlElementInsertAdjacentText ::-                              (IsHTMLElement self, ToJSString where', ToJSString text) =>-                                self -> where' -> text -> IO ()-htmlElementInsertAdjacentText self where' text-  = ghcjs_dom_html_element_insert_adjacent_text-      (unHTMLElement (toHTMLElement self))-      (toJSString where')-      (toJSString text)- -foreign import javascript unsafe "$1[\"click\"]()"-        ghcjs_dom_html_element_click :: JSRef HTMLElement -> IO ()- -htmlElementClick :: (IsHTMLElement self) => self -> IO ()-htmlElementClick self-  = ghcjs_dom_html_element_click (unHTMLElement (toHTMLElement self))- -foreign import javascript unsafe "$1[\"title\"] = $2;"-        ghcjs_dom_html_element_set_title ::-        JSRef HTMLElement -> JSString -> IO ()- -htmlElementSetTitle ::-                    (IsHTMLElement self, ToJSString val) => self -> val -> IO ()-htmlElementSetTitle self val-  = ghcjs_dom_html_element_set_title-      (unHTMLElement (toHTMLElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"title\"]"-        ghcjs_dom_html_element_get_title ::-        JSRef HTMLElement -> IO JSString- -htmlElementGetTitle ::-                    (IsHTMLElement self, FromJSString result) => self -> IO result-htmlElementGetTitle self-  = fromJSString <$>-      (ghcjs_dom_html_element_get_title-         (unHTMLElement (toHTMLElement self)))- -foreign import javascript unsafe "$1[\"lang\"] = $2;"-        ghcjs_dom_html_element_set_lang ::-        JSRef HTMLElement -> JSString -> IO ()- -htmlElementSetLang ::-                   (IsHTMLElement self, ToJSString val) => self -> val -> IO ()-htmlElementSetLang self val-  = ghcjs_dom_html_element_set_lang-      (unHTMLElement (toHTMLElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"lang\"]"-        ghcjs_dom_html_element_get_lang :: JSRef HTMLElement -> IO JSString- -htmlElementGetLang ::-                   (IsHTMLElement self, FromJSString result) => self -> IO result-htmlElementGetLang self-  = fromJSString <$>-      (ghcjs_dom_html_element_get_lang-         (unHTMLElement (toHTMLElement self)))- -foreign import javascript unsafe "$1[\"translate\"] = $2;"-        ghcjs_dom_html_element_set_translate ::-        JSRef HTMLElement -> Bool -> IO ()- -htmlElementSetTranslate ::-                        (IsHTMLElement self) => self -> Bool -> IO ()-htmlElementSetTranslate self val-  = ghcjs_dom_html_element_set_translate-      (unHTMLElement (toHTMLElement self))-      val- -foreign import javascript unsafe "($1[\"translate\"] ? 1 : 0)"-        ghcjs_dom_html_element_get_translate ::-        JSRef HTMLElement -> IO Bool- -htmlElementGetTranslate :: (IsHTMLElement self) => self -> IO Bool-htmlElementGetTranslate self-  = ghcjs_dom_html_element_get_translate-      (unHTMLElement (toHTMLElement self))- -foreign import javascript unsafe "$1[\"dir\"] = $2;"-        ghcjs_dom_html_element_set_dir ::-        JSRef HTMLElement -> JSString -> IO ()- -htmlElementSetDir ::-                  (IsHTMLElement self, ToJSString val) => self -> val -> IO ()-htmlElementSetDir self val-  = ghcjs_dom_html_element_set_dir-      (unHTMLElement (toHTMLElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"dir\"]"-        ghcjs_dom_html_element_get_dir :: JSRef HTMLElement -> IO JSString- -htmlElementGetDir ::-                  (IsHTMLElement self, FromJSString result) => self -> IO result-htmlElementGetDir self-  = fromJSString <$>-      (ghcjs_dom_html_element_get_dir-         (unHTMLElement (toHTMLElement self)))- -foreign import javascript unsafe "$1[\"tabIndex\"] = $2;"-        ghcjs_dom_html_element_set_tab_index ::-        JSRef HTMLElement -> Int -> IO ()- -htmlElementSetTabIndex ::-                       (IsHTMLElement self) => self -> Int -> IO ()-htmlElementSetTabIndex self val-  = ghcjs_dom_html_element_set_tab_index-      (unHTMLElement (toHTMLElement self))-      val- -foreign import javascript unsafe "$1[\"tabIndex\"]"-        ghcjs_dom_html_element_get_tab_index :: JSRef HTMLElement -> IO Int- -htmlElementGetTabIndex :: (IsHTMLElement self) => self -> IO Int-htmlElementGetTabIndex self-  = ghcjs_dom_html_element_get_tab_index-      (unHTMLElement (toHTMLElement self))- -foreign import javascript unsafe "$1[\"draggable\"] = $2;"-        ghcjs_dom_html_element_set_draggable ::-        JSRef HTMLElement -> Bool -> IO ()- -htmlElementSetDraggable ::-                        (IsHTMLElement self) => self -> Bool -> IO ()-htmlElementSetDraggable self val-  = ghcjs_dom_html_element_set_draggable-      (unHTMLElement (toHTMLElement self))-      val- -foreign import javascript unsafe "($1[\"draggable\"] ? 1 : 0)"-        ghcjs_dom_html_element_get_draggable ::-        JSRef HTMLElement -> IO Bool- -htmlElementGetDraggable :: (IsHTMLElement self) => self -> IO Bool-htmlElementGetDraggable self-  = ghcjs_dom_html_element_get_draggable-      (unHTMLElement (toHTMLElement self))- -foreign import javascript unsafe "$1[\"webkitdropzone\"] = $2;"-        ghcjs_dom_html_element_set_webkitdropzone ::-        JSRef HTMLElement -> JSString -> IO ()- -htmlElementSetWebkitdropzone ::-                             (IsHTMLElement self, ToJSString val) => self -> val -> IO ()-htmlElementSetWebkitdropzone self val-  = ghcjs_dom_html_element_set_webkitdropzone-      (unHTMLElement (toHTMLElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"webkitdropzone\"]"-        ghcjs_dom_html_element_get_webkitdropzone ::-        JSRef HTMLElement -> IO JSString- -htmlElementGetWebkitdropzone ::-                             (IsHTMLElement self, FromJSString result) => self -> IO result-htmlElementGetWebkitdropzone self-  = fromJSString <$>-      (ghcjs_dom_html_element_get_webkitdropzone-         (unHTMLElement (toHTMLElement self)))- -foreign import javascript unsafe "$1[\"hidden\"] = $2;"-        ghcjs_dom_html_element_set_hidden ::-        JSRef HTMLElement -> Bool -> IO ()- -htmlElementSetHidden ::-                     (IsHTMLElement self) => self -> Bool -> IO ()-htmlElementSetHidden self val-  = ghcjs_dom_html_element_set_hidden-      (unHTMLElement (toHTMLElement self))-      val- -foreign import javascript unsafe "($1[\"hidden\"] ? 1 : 0)"-        ghcjs_dom_html_element_get_hidden :: JSRef HTMLElement -> IO Bool- -htmlElementGetHidden :: (IsHTMLElement self) => self -> IO Bool-htmlElementGetHidden self-  = ghcjs_dom_html_element_get_hidden-      (unHTMLElement (toHTMLElement self))- -foreign import javascript unsafe "$1[\"accessKey\"] = $2;"-        ghcjs_dom_html_element_set_access_key ::-        JSRef HTMLElement -> JSString -> IO ()- -htmlElementSetAccessKey ::-                        (IsHTMLElement self, ToJSString val) => self -> val -> IO ()-htmlElementSetAccessKey self val-  = ghcjs_dom_html_element_set_access_key-      (unHTMLElement (toHTMLElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"accessKey\"]"-        ghcjs_dom_html_element_get_access_key ::-        JSRef HTMLElement -> IO JSString- -htmlElementGetAccessKey ::-                        (IsHTMLElement self, FromJSString result) => self -> IO result-htmlElementGetAccessKey self-  = fromJSString <$>-      (ghcjs_dom_html_element_get_access_key-         (unHTMLElement (toHTMLElement self)))- -foreign import javascript unsafe "$1[\"innerHTML\"] = $2;"-        ghcjs_dom_html_element_set_inner_html ::-        JSRef HTMLElement -> JSString -> IO ()- -htmlElementSetInnerHTML ::-                        (IsHTMLElement self, ToJSString val) => self -> val -> IO ()-htmlElementSetInnerHTML self val-  = ghcjs_dom_html_element_set_inner_html-      (unHTMLElement (toHTMLElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"innerHTML\"]"-        ghcjs_dom_html_element_get_inner_html ::-        JSRef HTMLElement -> IO JSString- -htmlElementGetInnerHTML ::-                        (IsHTMLElement self, FromJSString result) => self -> IO result-htmlElementGetInnerHTML self-  = fromJSString <$>-      (ghcjs_dom_html_element_get_inner_html-         (unHTMLElement (toHTMLElement self)))- -foreign import javascript unsafe "$1[\"innerText\"] = $2;"-        ghcjs_dom_html_element_set_inner_text ::-        JSRef HTMLElement -> JSString -> IO ()- -htmlElementSetInnerText ::-                        (IsHTMLElement self, ToJSString val) => self -> val -> IO ()-htmlElementSetInnerText self val-  = ghcjs_dom_html_element_set_inner_text-      (unHTMLElement (toHTMLElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"innerText\"]"-        ghcjs_dom_html_element_get_inner_text ::-        JSRef HTMLElement -> IO JSString- -htmlElementGetInnerText ::-                        (IsHTMLElement self, FromJSString result) => self -> IO result-htmlElementGetInnerText self-  = fromJSString <$>-      (ghcjs_dom_html_element_get_inner_text-         (unHTMLElement (toHTMLElement self)))- -foreign import javascript unsafe "$1[\"outerHTML\"] = $2;"-        ghcjs_dom_html_element_set_outer_html ::-        JSRef HTMLElement -> JSString -> IO ()- -htmlElementSetOuterHTML ::-                        (IsHTMLElement self, ToJSString val) => self -> val -> IO ()-htmlElementSetOuterHTML self val-  = ghcjs_dom_html_element_set_outer_html-      (unHTMLElement (toHTMLElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"outerHTML\"]"-        ghcjs_dom_html_element_get_outer_html ::-        JSRef HTMLElement -> IO JSString- -htmlElementGetOuterHTML ::-                        (IsHTMLElement self, FromJSString result) => self -> IO result-htmlElementGetOuterHTML self-  = fromJSString <$>-      (ghcjs_dom_html_element_get_outer_html-         (unHTMLElement (toHTMLElement self)))- -foreign import javascript unsafe "$1[\"outerText\"] = $2;"-        ghcjs_dom_html_element_set_outer_text ::-        JSRef HTMLElement -> JSString -> IO ()- -htmlElementSetOuterText ::-                        (IsHTMLElement self, ToJSString val) => self -> val -> IO ()-htmlElementSetOuterText self val-  = ghcjs_dom_html_element_set_outer_text-      (unHTMLElement (toHTMLElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"outerText\"]"-        ghcjs_dom_html_element_get_outer_text ::-        JSRef HTMLElement -> IO JSString- -htmlElementGetOuterText ::-                        (IsHTMLElement self, FromJSString result) => self -> IO result-htmlElementGetOuterText self-  = fromJSString <$>-      (ghcjs_dom_html_element_get_outer_text-         (unHTMLElement (toHTMLElement self)))- -foreign import javascript unsafe "$1[\"children\"]"-        ghcjs_dom_html_element_get_children ::-        JSRef HTMLElement -> IO (JSRef HTMLCollection)- -htmlElementGetChildren ::-                       (IsHTMLElement self) => self -> IO (Maybe HTMLCollection)-htmlElementGetChildren self-  = fmap HTMLCollection . maybeJSNull <$>-      (ghcjs_dom_html_element_get_children-         (unHTMLElement (toHTMLElement self)))- -foreign import javascript unsafe "$1[\"contentEditable\"] = $2;"-        ghcjs_dom_html_element_set_content_editable ::-        JSRef HTMLElement -> JSString -> IO ()- -htmlElementSetContentEditable ::-                              (IsHTMLElement self, ToJSString val) => self -> val -> IO ()-htmlElementSetContentEditable self val-  = ghcjs_dom_html_element_set_content_editable-      (unHTMLElement (toHTMLElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"contentEditable\"]"-        ghcjs_dom_html_element_get_content_editable ::-        JSRef HTMLElement -> IO JSString- -htmlElementGetContentEditable ::-                              (IsHTMLElement self, FromJSString result) => self -> IO result-htmlElementGetContentEditable self-  = fromJSString <$>-      (ghcjs_dom_html_element_get_content_editable-         (unHTMLElement (toHTMLElement self)))- -foreign import javascript unsafe-        "($1[\"isContentEditable\"] ? 1 : 0)"-        ghcjs_dom_html_element_get_is_content_editable ::-        JSRef HTMLElement -> IO Bool- -htmlElementGetIsContentEditable ::-                                (IsHTMLElement self) => self -> IO Bool-htmlElementGetIsContentEditable self-  = ghcjs_dom_html_element_get_is_content_editable-      (unHTMLElement (toHTMLElement self))- -foreign import javascript unsafe "$1[\"spellcheck\"] = $2;"-        ghcjs_dom_html_element_set_spellcheck ::-        JSRef HTMLElement -> Bool -> IO ()- -htmlElementSetSpellcheck ::-                         (IsHTMLElement self) => self -> Bool -> IO ()-htmlElementSetSpellcheck self val-  = ghcjs_dom_html_element_set_spellcheck-      (unHTMLElement (toHTMLElement self))-      val- -foreign import javascript unsafe "($1[\"spellcheck\"] ? 1 : 0)"-        ghcjs_dom_html_element_get_spellcheck ::-        JSRef HTMLElement -> IO Bool- -htmlElementGetSpellcheck :: (IsHTMLElement self) => self -> IO Bool-htmlElementGetSpellcheck self-  = ghcjs_dom_html_element_get_spellcheck-      (unHTMLElement (toHTMLElement self))+  module GHCJS.DOM.JSFFI.Generated.HTMLElement #else-module GHCJS.DOM.HTMLElement (   module Graphics.UI.Gtk.WebKit.DOM.HTMLElement+#endif   ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.HTMLElement+#else import Graphics.UI.Gtk.WebKit.DOM.HTMLElement #endif
src/GHCJS/DOM/HTMLEmbedElement.hs view
@@ -1,140 +1,13 @@ {-# LANGUAGE CPP #-}+module GHCJS.DOM.HTMLEmbedElement ( #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.HTMLEmbedElement-       (ghcjs_dom_html_embed_element_set_align, htmlEmbedElementSetAlign,-        ghcjs_dom_html_embed_element_get_align, htmlEmbedElementGetAlign,-        ghcjs_dom_html_embed_element_set_height, htmlEmbedElementSetHeight,-        ghcjs_dom_html_embed_element_get_height, htmlEmbedElementGetHeight,-        ghcjs_dom_html_embed_element_set_name, htmlEmbedElementSetName,-        ghcjs_dom_html_embed_element_get_name, htmlEmbedElementGetName,-        ghcjs_dom_html_embed_element_set_src, htmlEmbedElementSetSrc,-        ghcjs_dom_html_embed_element_get_src, htmlEmbedElementGetSrc,-        ghcjs_dom_html_embed_element_set_width, htmlEmbedElementSetWidth,-        ghcjs_dom_html_embed_element_get_width, htmlEmbedElementGetWidth,-        HTMLEmbedElement, IsHTMLEmbedElement, castToHTMLEmbedElement,-        gTypeHTMLEmbedElement, toHTMLEmbedElement)-       where-import GHCJS.Types-import GHCJS.Foreign-import GHCJS.Marshal-import Data.Int-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-- -foreign import javascript unsafe "$1[\"align\"] = $2;"-        ghcjs_dom_html_embed_element_set_align ::-        JSRef HTMLEmbedElement -> JSString -> IO ()- -htmlEmbedElementSetAlign ::-                         (IsHTMLEmbedElement self, ToJSString val) => self -> val -> IO ()-htmlEmbedElementSetAlign self val-  = ghcjs_dom_html_embed_element_set_align-      (unHTMLEmbedElement (toHTMLEmbedElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"align\"]"-        ghcjs_dom_html_embed_element_get_align ::-        JSRef HTMLEmbedElement -> IO JSString- -htmlEmbedElementGetAlign ::-                         (IsHTMLEmbedElement self, FromJSString result) => self -> IO result-htmlEmbedElementGetAlign self-  = fromJSString <$>-      (ghcjs_dom_html_embed_element_get_align-         (unHTMLEmbedElement (toHTMLEmbedElement self)))- -foreign import javascript unsafe "$1[\"height\"] = $2;"-        ghcjs_dom_html_embed_element_set_height ::-        JSRef HTMLEmbedElement -> Int -> IO ()- -htmlEmbedElementSetHeight ::-                          (IsHTMLEmbedElement self) => self -> Int -> IO ()-htmlEmbedElementSetHeight self val-  = ghcjs_dom_html_embed_element_set_height-      (unHTMLEmbedElement (toHTMLEmbedElement self))-      val- -foreign import javascript unsafe "$1[\"height\"]"-        ghcjs_dom_html_embed_element_get_height ::-        JSRef HTMLEmbedElement -> IO Int- -htmlEmbedElementGetHeight ::-                          (IsHTMLEmbedElement self) => self -> IO Int-htmlEmbedElementGetHeight self-  = ghcjs_dom_html_embed_element_get_height-      (unHTMLEmbedElement (toHTMLEmbedElement self))- -foreign import javascript unsafe "$1[\"name\"] = $2;"-        ghcjs_dom_html_embed_element_set_name ::-        JSRef HTMLEmbedElement -> JSString -> IO ()- -htmlEmbedElementSetName ::-                        (IsHTMLEmbedElement self, ToJSString val) => self -> val -> IO ()-htmlEmbedElementSetName self val-  = ghcjs_dom_html_embed_element_set_name-      (unHTMLEmbedElement (toHTMLEmbedElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"name\"]"-        ghcjs_dom_html_embed_element_get_name ::-        JSRef HTMLEmbedElement -> IO JSString- -htmlEmbedElementGetName ::-                        (IsHTMLEmbedElement self, FromJSString result) => self -> IO result-htmlEmbedElementGetName self-  = fromJSString <$>-      (ghcjs_dom_html_embed_element_get_name-         (unHTMLEmbedElement (toHTMLEmbedElement self)))- -foreign import javascript unsafe "$1[\"src\"] = $2;"-        ghcjs_dom_html_embed_element_set_src ::-        JSRef HTMLEmbedElement -> JSString -> IO ()- -htmlEmbedElementSetSrc ::-                       (IsHTMLEmbedElement self, ToJSString val) => self -> val -> IO ()-htmlEmbedElementSetSrc self val-  = ghcjs_dom_html_embed_element_set_src-      (unHTMLEmbedElement (toHTMLEmbedElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"src\"]"-        ghcjs_dom_html_embed_element_get_src ::-        JSRef HTMLEmbedElement -> IO JSString- -htmlEmbedElementGetSrc ::-                       (IsHTMLEmbedElement self, FromJSString result) => self -> IO result-htmlEmbedElementGetSrc self-  = fromJSString <$>-      (ghcjs_dom_html_embed_element_get_src-         (unHTMLEmbedElement (toHTMLEmbedElement self)))- -foreign import javascript unsafe "$1[\"width\"] = $2;"-        ghcjs_dom_html_embed_element_set_width ::-        JSRef HTMLEmbedElement -> Int -> IO ()- -htmlEmbedElementSetWidth ::-                         (IsHTMLEmbedElement self) => self -> Int -> IO ()-htmlEmbedElementSetWidth self val-  = ghcjs_dom_html_embed_element_set_width-      (unHTMLEmbedElement (toHTMLEmbedElement self))-      val- -foreign import javascript unsafe "$1[\"width\"]"-        ghcjs_dom_html_embed_element_get_width ::-        JSRef HTMLEmbedElement -> IO Int- -htmlEmbedElementGetWidth ::-                         (IsHTMLEmbedElement self) => self -> IO Int-htmlEmbedElementGetWidth self-  = ghcjs_dom_html_embed_element_get_width-      (unHTMLEmbedElement (toHTMLEmbedElement self))+  module GHCJS.DOM.JSFFI.Generated.HTMLEmbedElement #else-module GHCJS.DOM.HTMLEmbedElement (   module Graphics.UI.Gtk.WebKit.DOM.HTMLEmbedElement+#endif   ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.HTMLEmbedElement+#else import Graphics.UI.Gtk.WebKit.DOM.HTMLEmbedElement #endif
src/GHCJS/DOM/HTMLFieldSetElement.hs view
@@ -1,167 +1,13 @@ {-# LANGUAGE CPP #-}+module GHCJS.DOM.HTMLFieldSetElement ( #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.HTMLFieldSetElement-       (ghcjs_dom_html_field_set_element_check_validity,-        htmlFieldSetElementCheckValidity,-        ghcjs_dom_html_field_set_element_set_custom_validity,-        htmlFieldSetElementSetCustomValidity,-        ghcjs_dom_html_field_set_element_set_disabled,-        htmlFieldSetElementSetDisabled,-        ghcjs_dom_html_field_set_element_get_disabled,-        htmlFieldSetElementGetDisabled,-        ghcjs_dom_html_field_set_element_get_form,-        htmlFieldSetElementGetForm,-        ghcjs_dom_html_field_set_element_set_name,-        htmlFieldSetElementSetName,-        ghcjs_dom_html_field_set_element_get_name,-        htmlFieldSetElementGetName,-        ghcjs_dom_html_field_set_element_get_elements,-        htmlFieldSetElementGetElements,-        ghcjs_dom_html_field_set_element_get_will_validate,-        htmlFieldSetElementGetWillValidate,-        ghcjs_dom_html_field_set_element_get_validity,-        htmlFieldSetElementGetValidity,-        ghcjs_dom_html_field_set_element_get_validation_message,-        htmlFieldSetElementGetValidationMessage, HTMLFieldSetElement,-        IsHTMLFieldSetElement, castToHTMLFieldSetElement,-        gTypeHTMLFieldSetElement, toHTMLFieldSetElement)-       where-import GHCJS.Types-import GHCJS.Foreign-import GHCJS.Marshal-import Data.Int-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-- -foreign import javascript unsafe-        "($1[\"checkValidity\"]() ? 1 : 0)"-        ghcjs_dom_html_field_set_element_check_validity ::-        JSRef HTMLFieldSetElement -> IO Bool- -htmlFieldSetElementCheckValidity ::-                                 (IsHTMLFieldSetElement self) => self -> IO Bool-htmlFieldSetElementCheckValidity self-  = ghcjs_dom_html_field_set_element_check_validity-      (unHTMLFieldSetElement (toHTMLFieldSetElement self))- -foreign import javascript unsafe "$1[\"setCustomValidity\"]($2)"-        ghcjs_dom_html_field_set_element_set_custom_validity ::-        JSRef HTMLFieldSetElement -> JSString -> IO ()- -htmlFieldSetElementSetCustomValidity ::-                                     (IsHTMLFieldSetElement self, ToJSString error) =>-                                       self -> error -> IO ()-htmlFieldSetElementSetCustomValidity self error-  = ghcjs_dom_html_field_set_element_set_custom_validity-      (unHTMLFieldSetElement (toHTMLFieldSetElement self))-      (toJSString error)- -foreign import javascript unsafe "$1[\"disabled\"] = $2;"-        ghcjs_dom_html_field_set_element_set_disabled ::-        JSRef HTMLFieldSetElement -> Bool -> IO ()- -htmlFieldSetElementSetDisabled ::-                               (IsHTMLFieldSetElement self) => self -> Bool -> IO ()-htmlFieldSetElementSetDisabled self val-  = ghcjs_dom_html_field_set_element_set_disabled-      (unHTMLFieldSetElement (toHTMLFieldSetElement self))-      val- -foreign import javascript unsafe "($1[\"disabled\"] ? 1 : 0)"-        ghcjs_dom_html_field_set_element_get_disabled ::-        JSRef HTMLFieldSetElement -> IO Bool- -htmlFieldSetElementGetDisabled ::-                               (IsHTMLFieldSetElement self) => self -> IO Bool-htmlFieldSetElementGetDisabled self-  = ghcjs_dom_html_field_set_element_get_disabled-      (unHTMLFieldSetElement (toHTMLFieldSetElement self))- -foreign import javascript unsafe "$1[\"form\"]"-        ghcjs_dom_html_field_set_element_get_form ::-        JSRef HTMLFieldSetElement -> IO (JSRef HTMLFormElement)- -htmlFieldSetElementGetForm ::-                           (IsHTMLFieldSetElement self) => self -> IO (Maybe HTMLFormElement)-htmlFieldSetElementGetForm self-  = fmap HTMLFormElement . maybeJSNull <$>-      (ghcjs_dom_html_field_set_element_get_form-         (unHTMLFieldSetElement (toHTMLFieldSetElement self)))- -foreign import javascript unsafe "$1[\"name\"] = $2;"-        ghcjs_dom_html_field_set_element_set_name ::-        JSRef HTMLFieldSetElement -> JSString -> IO ()- -htmlFieldSetElementSetName ::-                           (IsHTMLFieldSetElement self, ToJSString val) =>-                             self -> val -> IO ()-htmlFieldSetElementSetName self val-  = ghcjs_dom_html_field_set_element_set_name-      (unHTMLFieldSetElement (toHTMLFieldSetElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"name\"]"-        ghcjs_dom_html_field_set_element_get_name ::-        JSRef HTMLFieldSetElement -> IO JSString- -htmlFieldSetElementGetName ::-                           (IsHTMLFieldSetElement self, FromJSString result) =>-                             self -> IO result-htmlFieldSetElementGetName self-  = fromJSString <$>-      (ghcjs_dom_html_field_set_element_get_name-         (unHTMLFieldSetElement (toHTMLFieldSetElement self)))- -foreign import javascript unsafe "$1[\"elements\"]"-        ghcjs_dom_html_field_set_element_get_elements ::-        JSRef HTMLFieldSetElement -> IO (JSRef HTMLCollection)- -htmlFieldSetElementGetElements ::-                               (IsHTMLFieldSetElement self) => self -> IO (Maybe HTMLCollection)-htmlFieldSetElementGetElements self-  = fmap HTMLCollection . maybeJSNull <$>-      (ghcjs_dom_html_field_set_element_get_elements-         (unHTMLFieldSetElement (toHTMLFieldSetElement self)))- -foreign import javascript unsafe "($1[\"willValidate\"] ? 1 : 0)"-        ghcjs_dom_html_field_set_element_get_will_validate ::-        JSRef HTMLFieldSetElement -> IO Bool- -htmlFieldSetElementGetWillValidate ::-                                   (IsHTMLFieldSetElement self) => self -> IO Bool-htmlFieldSetElementGetWillValidate self-  = ghcjs_dom_html_field_set_element_get_will_validate-      (unHTMLFieldSetElement (toHTMLFieldSetElement self))- -foreign import javascript unsafe "$1[\"validity\"]"-        ghcjs_dom_html_field_set_element_get_validity ::-        JSRef HTMLFieldSetElement -> IO (JSRef ValidityState)- -htmlFieldSetElementGetValidity ::-                               (IsHTMLFieldSetElement self) => self -> IO (Maybe ValidityState)-htmlFieldSetElementGetValidity self-  = fmap ValidityState . maybeJSNull <$>-      (ghcjs_dom_html_field_set_element_get_validity-         (unHTMLFieldSetElement (toHTMLFieldSetElement self)))- -foreign import javascript unsafe "$1[\"validationMessage\"]"-        ghcjs_dom_html_field_set_element_get_validation_message ::-        JSRef HTMLFieldSetElement -> IO JSString- -htmlFieldSetElementGetValidationMessage ::-                                        (IsHTMLFieldSetElement self, FromJSString result) =>-                                          self -> IO result-htmlFieldSetElementGetValidationMessage self-  = fromJSString <$>-      (ghcjs_dom_html_field_set_element_get_validation_message-         (unHTMLFieldSetElement (toHTMLFieldSetElement self)))+  module GHCJS.DOM.JSFFI.Generated.HTMLFieldSetElement #else-module GHCJS.DOM.HTMLFieldSetElement (   module Graphics.UI.Gtk.WebKit.DOM.HTMLFieldSetElement+#endif   ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.HTMLFieldSetElement+#else import Graphics.UI.Gtk.WebKit.DOM.HTMLFieldSetElement #endif
src/GHCJS/DOM/HTMLFontElement.hs view
@@ -1,94 +1,13 @@ {-# LANGUAGE CPP #-}+module GHCJS.DOM.HTMLFontElement ( #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.HTMLFontElement-       (ghcjs_dom_html_font_element_set_color, htmlFontElementSetColor,-        ghcjs_dom_html_font_element_get_color, htmlFontElementGetColor,-        ghcjs_dom_html_font_element_set_face, htmlFontElementSetFace,-        ghcjs_dom_html_font_element_get_face, htmlFontElementGetFace,-        ghcjs_dom_html_font_element_set_size, htmlFontElementSetSize,-        ghcjs_dom_html_font_element_get_size, htmlFontElementGetSize,-        HTMLFontElement, IsHTMLFontElement, castToHTMLFontElement,-        gTypeHTMLFontElement, toHTMLFontElement)-       where-import GHCJS.Types-import GHCJS.Foreign-import GHCJS.Marshal-import Data.Int-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-- -foreign import javascript unsafe "$1[\"color\"] = $2;"-        ghcjs_dom_html_font_element_set_color ::-        JSRef HTMLFontElement -> JSString -> IO ()- -htmlFontElementSetColor ::-                        (IsHTMLFontElement self, ToJSString val) => self -> val -> IO ()-htmlFontElementSetColor self val-  = ghcjs_dom_html_font_element_set_color-      (unHTMLFontElement (toHTMLFontElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"color\"]"-        ghcjs_dom_html_font_element_get_color ::-        JSRef HTMLFontElement -> IO JSString- -htmlFontElementGetColor ::-                        (IsHTMLFontElement self, FromJSString result) => self -> IO result-htmlFontElementGetColor self-  = fromJSString <$>-      (ghcjs_dom_html_font_element_get_color-         (unHTMLFontElement (toHTMLFontElement self)))- -foreign import javascript unsafe "$1[\"face\"] = $2;"-        ghcjs_dom_html_font_element_set_face ::-        JSRef HTMLFontElement -> JSString -> IO ()- -htmlFontElementSetFace ::-                       (IsHTMLFontElement self, ToJSString val) => self -> val -> IO ()-htmlFontElementSetFace self val-  = ghcjs_dom_html_font_element_set_face-      (unHTMLFontElement (toHTMLFontElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"face\"]"-        ghcjs_dom_html_font_element_get_face ::-        JSRef HTMLFontElement -> IO JSString- -htmlFontElementGetFace ::-                       (IsHTMLFontElement self, FromJSString result) => self -> IO result-htmlFontElementGetFace self-  = fromJSString <$>-      (ghcjs_dom_html_font_element_get_face-         (unHTMLFontElement (toHTMLFontElement self)))- -foreign import javascript unsafe "$1[\"size\"] = $2;"-        ghcjs_dom_html_font_element_set_size ::-        JSRef HTMLFontElement -> JSString -> IO ()- -htmlFontElementSetSize ::-                       (IsHTMLFontElement self, ToJSString val) => self -> val -> IO ()-htmlFontElementSetSize self val-  = ghcjs_dom_html_font_element_set_size-      (unHTMLFontElement (toHTMLFontElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"size\"]"-        ghcjs_dom_html_font_element_get_size ::-        JSRef HTMLFontElement -> IO JSString- -htmlFontElementGetSize ::-                       (IsHTMLFontElement self, FromJSString result) => self -> IO result-htmlFontElementGetSize self-  = fromJSString <$>-      (ghcjs_dom_html_font_element_get_size-         (unHTMLFontElement (toHTMLFontElement self)))+  module GHCJS.DOM.JSFFI.Generated.HTMLFontElement #else-module GHCJS.DOM.HTMLFontElement (   module Graphics.UI.Gtk.WebKit.DOM.HTMLFontElement+#endif   ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.HTMLFontElement+#else import Graphics.UI.Gtk.WebKit.DOM.HTMLFontElement #endif
+ src/GHCJS/DOM/HTMLFormControlsCollection.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.HTMLFormControlsCollection (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.HTMLFormControlsCollection+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.HTMLFormControlsCollection+#else+#endif
src/GHCJS/DOM/HTMLFormElement.hs view
@@ -1,377 +1,13 @@ {-# LANGUAGE CPP #-}+module GHCJS.DOM.HTMLFormElement ( #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.HTMLFormElement-       (ghcjs_dom_html_form_element_get, htmlFormElement_get,-        ghcjs_dom_html_form_element_submit, htmlFormElementSubmit,-        ghcjs_dom_html_form_element_reset, htmlFormElementReset,-        ghcjs_dom_html_form_element_check_validity,-        htmlFormElementCheckValidity,-        ghcjs_dom_html_form_element_request_autocomplete,-        htmlFormElementRequestAutocomplete,-        ghcjs_dom_html_form_element_set_accept_charset,-        htmlFormElementSetAcceptCharset,-        ghcjs_dom_html_form_element_get_accept_charset,-        htmlFormElementGetAcceptCharset,-        ghcjs_dom_html_form_element_set_action, htmlFormElementSetAction,-        ghcjs_dom_html_form_element_get_action, htmlFormElementGetAction,-        ghcjs_dom_html_form_element_set_autocomplete,-        htmlFormElementSetAutocomplete,-        ghcjs_dom_html_form_element_get_autocomplete,-        htmlFormElementGetAutocomplete,-        ghcjs_dom_html_form_element_set_enctype, htmlFormElementSetEnctype,-        ghcjs_dom_html_form_element_get_enctype, htmlFormElementGetEnctype,-        ghcjs_dom_html_form_element_set_encoding,-        htmlFormElementSetEncoding,-        ghcjs_dom_html_form_element_get_encoding,-        htmlFormElementGetEncoding, ghcjs_dom_html_form_element_set_method,-        htmlFormElementSetMethod, ghcjs_dom_html_form_element_get_method,-        htmlFormElementGetMethod, ghcjs_dom_html_form_element_set_name,-        htmlFormElementSetName, ghcjs_dom_html_form_element_get_name,-        htmlFormElementGetName,-        ghcjs_dom_html_form_element_set_no_validate,-        htmlFormElementSetNoValidate,-        ghcjs_dom_html_form_element_get_no_validate,-        htmlFormElementGetNoValidate,-        ghcjs_dom_html_form_element_set_target, htmlFormElementSetTarget,-        ghcjs_dom_html_form_element_get_target, htmlFormElementGetTarget,-        ghcjs_dom_html_form_element_get_elements,-        htmlFormElementGetElements, ghcjs_dom_html_form_element_get_length,-        htmlFormElementGetLength,-        ghcjs_dom_html_form_element_set_autocorrect,-        htmlFormElementSetAutocorrect,-        ghcjs_dom_html_form_element_get_autocorrect,-        htmlFormElementGetAutocorrect,-        ghcjs_dom_html_form_element_set_autocapitalize,-        htmlFormElementSetAutocapitalize,-        ghcjs_dom_html_form_element_get_autocapitalize,-        htmlFormElementGetAutocapitalize, HTMLFormElement,-        IsHTMLFormElement, castToHTMLFormElement, gTypeHTMLFormElement,-        toHTMLFormElement)-       where-import GHCJS.Types-import GHCJS.Foreign-import GHCJS.Marshal-import Data.Int-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-- -foreign import javascript unsafe "$1[\"_get\"]($2)"-        ghcjs_dom_html_form_element_get ::-        JSRef HTMLFormElement -> Word -> IO (JSRef Element)- -htmlFormElement_get ::-                    (IsHTMLFormElement self) => self -> Word -> IO (Maybe Element)-htmlFormElement_get self index-  = fmap Element . maybeJSNull <$>-      (ghcjs_dom_html_form_element_get-         (unHTMLFormElement (toHTMLFormElement self))-         index)- -foreign import javascript unsafe "$1[\"submit\"]()"-        ghcjs_dom_html_form_element_submit ::-        JSRef HTMLFormElement -> IO ()- -htmlFormElementSubmit :: (IsHTMLFormElement self) => self -> IO ()-htmlFormElementSubmit self-  = ghcjs_dom_html_form_element_submit-      (unHTMLFormElement (toHTMLFormElement self))- -foreign import javascript unsafe "$1[\"reset\"]()"-        ghcjs_dom_html_form_element_reset :: JSRef HTMLFormElement -> IO ()- -htmlFormElementReset :: (IsHTMLFormElement self) => self -> IO ()-htmlFormElementReset self-  = ghcjs_dom_html_form_element_reset-      (unHTMLFormElement (toHTMLFormElement self))- -foreign import javascript unsafe-        "($1[\"checkValidity\"]() ? 1 : 0)"-        ghcjs_dom_html_form_element_check_validity ::-        JSRef HTMLFormElement -> IO Bool- -htmlFormElementCheckValidity ::-                             (IsHTMLFormElement self) => self -> IO Bool-htmlFormElementCheckValidity self-  = ghcjs_dom_html_form_element_check_validity-      (unHTMLFormElement (toHTMLFormElement self))- -foreign import javascript unsafe "$1[\"requestAutocomplete\"]()"-        ghcjs_dom_html_form_element_request_autocomplete ::-        JSRef HTMLFormElement -> IO ()- -htmlFormElementRequestAutocomplete ::-                                   (IsHTMLFormElement self) => self -> IO ()-htmlFormElementRequestAutocomplete self-  = ghcjs_dom_html_form_element_request_autocomplete-      (unHTMLFormElement (toHTMLFormElement self))- -foreign import javascript unsafe "$1[\"acceptCharset\"] = $2;"-        ghcjs_dom_html_form_element_set_accept_charset ::-        JSRef HTMLFormElement -> JSString -> IO ()- -htmlFormElementSetAcceptCharset ::-                                (IsHTMLFormElement self, ToJSString val) => self -> val -> IO ()-htmlFormElementSetAcceptCharset self val-  = ghcjs_dom_html_form_element_set_accept_charset-      (unHTMLFormElement (toHTMLFormElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"acceptCharset\"]"-        ghcjs_dom_html_form_element_get_accept_charset ::-        JSRef HTMLFormElement -> IO JSString- -htmlFormElementGetAcceptCharset ::-                                (IsHTMLFormElement self, FromJSString result) => self -> IO result-htmlFormElementGetAcceptCharset self-  = fromJSString <$>-      (ghcjs_dom_html_form_element_get_accept_charset-         (unHTMLFormElement (toHTMLFormElement self)))- -foreign import javascript unsafe "$1[\"action\"] = $2;"-        ghcjs_dom_html_form_element_set_action ::-        JSRef HTMLFormElement -> JSString -> IO ()- -htmlFormElementSetAction ::-                         (IsHTMLFormElement self, ToJSString val) => self -> val -> IO ()-htmlFormElementSetAction self val-  = ghcjs_dom_html_form_element_set_action-      (unHTMLFormElement (toHTMLFormElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"action\"]"-        ghcjs_dom_html_form_element_get_action ::-        JSRef HTMLFormElement -> IO JSString- -htmlFormElementGetAction ::-                         (IsHTMLFormElement self, FromJSString result) => self -> IO result-htmlFormElementGetAction self-  = fromJSString <$>-      (ghcjs_dom_html_form_element_get_action-         (unHTMLFormElement (toHTMLFormElement self)))- -foreign import javascript unsafe "$1[\"autocomplete\"] = $2;"-        ghcjs_dom_html_form_element_set_autocomplete ::-        JSRef HTMLFormElement -> JSString -> IO ()- -htmlFormElementSetAutocomplete ::-                               (IsHTMLFormElement self, ToJSString val) => self -> val -> IO ()-htmlFormElementSetAutocomplete self val-  = ghcjs_dom_html_form_element_set_autocomplete-      (unHTMLFormElement (toHTMLFormElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"autocomplete\"]"-        ghcjs_dom_html_form_element_get_autocomplete ::-        JSRef HTMLFormElement -> IO JSString- -htmlFormElementGetAutocomplete ::-                               (IsHTMLFormElement self, FromJSString result) => self -> IO result-htmlFormElementGetAutocomplete self-  = fromJSString <$>-      (ghcjs_dom_html_form_element_get_autocomplete-         (unHTMLFormElement (toHTMLFormElement self)))- -foreign import javascript unsafe "$1[\"enctype\"] = $2;"-        ghcjs_dom_html_form_element_set_enctype ::-        JSRef HTMLFormElement -> JSString -> IO ()- -htmlFormElementSetEnctype ::-                          (IsHTMLFormElement self, ToJSString val) => self -> val -> IO ()-htmlFormElementSetEnctype self val-  = ghcjs_dom_html_form_element_set_enctype-      (unHTMLFormElement (toHTMLFormElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"enctype\"]"-        ghcjs_dom_html_form_element_get_enctype ::-        JSRef HTMLFormElement -> IO JSString- -htmlFormElementGetEnctype ::-                          (IsHTMLFormElement self, FromJSString result) => self -> IO result-htmlFormElementGetEnctype self-  = fromJSString <$>-      (ghcjs_dom_html_form_element_get_enctype-         (unHTMLFormElement (toHTMLFormElement self)))- -foreign import javascript unsafe "$1[\"encoding\"] = $2;"-        ghcjs_dom_html_form_element_set_encoding ::-        JSRef HTMLFormElement -> JSString -> IO ()- -htmlFormElementSetEncoding ::-                           (IsHTMLFormElement self, ToJSString val) => self -> val -> IO ()-htmlFormElementSetEncoding self val-  = ghcjs_dom_html_form_element_set_encoding-      (unHTMLFormElement (toHTMLFormElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"encoding\"]"-        ghcjs_dom_html_form_element_get_encoding ::-        JSRef HTMLFormElement -> IO JSString- -htmlFormElementGetEncoding ::-                           (IsHTMLFormElement self, FromJSString result) => self -> IO result-htmlFormElementGetEncoding self-  = fromJSString <$>-      (ghcjs_dom_html_form_element_get_encoding-         (unHTMLFormElement (toHTMLFormElement self)))- -foreign import javascript unsafe "$1[\"method\"] = $2;"-        ghcjs_dom_html_form_element_set_method ::-        JSRef HTMLFormElement -> JSString -> IO ()- -htmlFormElementSetMethod ::-                         (IsHTMLFormElement self, ToJSString val) => self -> val -> IO ()-htmlFormElementSetMethod self val-  = ghcjs_dom_html_form_element_set_method-      (unHTMLFormElement (toHTMLFormElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"method\"]"-        ghcjs_dom_html_form_element_get_method ::-        JSRef HTMLFormElement -> IO JSString- -htmlFormElementGetMethod ::-                         (IsHTMLFormElement self, FromJSString result) => self -> IO result-htmlFormElementGetMethod self-  = fromJSString <$>-      (ghcjs_dom_html_form_element_get_method-         (unHTMLFormElement (toHTMLFormElement self)))- -foreign import javascript unsafe "$1[\"name\"] = $2;"-        ghcjs_dom_html_form_element_set_name ::-        JSRef HTMLFormElement -> JSString -> IO ()- -htmlFormElementSetName ::-                       (IsHTMLFormElement self, ToJSString val) => self -> val -> IO ()-htmlFormElementSetName self val-  = ghcjs_dom_html_form_element_set_name-      (unHTMLFormElement (toHTMLFormElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"name\"]"-        ghcjs_dom_html_form_element_get_name ::-        JSRef HTMLFormElement -> IO JSString- -htmlFormElementGetName ::-                       (IsHTMLFormElement self, FromJSString result) => self -> IO result-htmlFormElementGetName self-  = fromJSString <$>-      (ghcjs_dom_html_form_element_get_name-         (unHTMLFormElement (toHTMLFormElement self)))- -foreign import javascript unsafe "$1[\"noValidate\"] = $2;"-        ghcjs_dom_html_form_element_set_no_validate ::-        JSRef HTMLFormElement -> Bool -> IO ()- -htmlFormElementSetNoValidate ::-                             (IsHTMLFormElement self) => self -> Bool -> IO ()-htmlFormElementSetNoValidate self val-  = ghcjs_dom_html_form_element_set_no_validate-      (unHTMLFormElement (toHTMLFormElement self))-      val- -foreign import javascript unsafe "($1[\"noValidate\"] ? 1 : 0)"-        ghcjs_dom_html_form_element_get_no_validate ::-        JSRef HTMLFormElement -> IO Bool- -htmlFormElementGetNoValidate ::-                             (IsHTMLFormElement self) => self -> IO Bool-htmlFormElementGetNoValidate self-  = ghcjs_dom_html_form_element_get_no_validate-      (unHTMLFormElement (toHTMLFormElement self))- -foreign import javascript unsafe "$1[\"target\"] = $2;"-        ghcjs_dom_html_form_element_set_target ::-        JSRef HTMLFormElement -> JSString -> IO ()- -htmlFormElementSetTarget ::-                         (IsHTMLFormElement self, ToJSString val) => self -> val -> IO ()-htmlFormElementSetTarget self val-  = ghcjs_dom_html_form_element_set_target-      (unHTMLFormElement (toHTMLFormElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"target\"]"-        ghcjs_dom_html_form_element_get_target ::-        JSRef HTMLFormElement -> IO JSString- -htmlFormElementGetTarget ::-                         (IsHTMLFormElement self, FromJSString result) => self -> IO result-htmlFormElementGetTarget self-  = fromJSString <$>-      (ghcjs_dom_html_form_element_get_target-         (unHTMLFormElement (toHTMLFormElement self)))- -foreign import javascript unsafe "$1[\"elements\"]"-        ghcjs_dom_html_form_element_get_elements ::-        JSRef HTMLFormElement -> IO (JSRef HTMLCollection)- -htmlFormElementGetElements ::-                           (IsHTMLFormElement self) => self -> IO (Maybe HTMLCollection)-htmlFormElementGetElements self-  = fmap HTMLCollection . maybeJSNull <$>-      (ghcjs_dom_html_form_element_get_elements-         (unHTMLFormElement (toHTMLFormElement self)))- -foreign import javascript unsafe "$1[\"length\"]"-        ghcjs_dom_html_form_element_get_length ::-        JSRef HTMLFormElement -> IO Int- -htmlFormElementGetLength ::-                         (IsHTMLFormElement self) => self -> IO Int-htmlFormElementGetLength self-  = ghcjs_dom_html_form_element_get_length-      (unHTMLFormElement (toHTMLFormElement self))- -foreign import javascript unsafe "$1[\"autocorrect\"] = $2;"-        ghcjs_dom_html_form_element_set_autocorrect ::-        JSRef HTMLFormElement -> Bool -> IO ()- -htmlFormElementSetAutocorrect ::-                              (IsHTMLFormElement self) => self -> Bool -> IO ()-htmlFormElementSetAutocorrect self val-  = ghcjs_dom_html_form_element_set_autocorrect-      (unHTMLFormElement (toHTMLFormElement self))-      val- -foreign import javascript unsafe "($1[\"autocorrect\"] ? 1 : 0)"-        ghcjs_dom_html_form_element_get_autocorrect ::-        JSRef HTMLFormElement -> IO Bool- -htmlFormElementGetAutocorrect ::-                              (IsHTMLFormElement self) => self -> IO Bool-htmlFormElementGetAutocorrect self-  = ghcjs_dom_html_form_element_get_autocorrect-      (unHTMLFormElement (toHTMLFormElement self))- -foreign import javascript unsafe "$1[\"autocapitalize\"] = $2;"-        ghcjs_dom_html_form_element_set_autocapitalize ::-        JSRef HTMLFormElement -> JSString -> IO ()- -htmlFormElementSetAutocapitalize ::-                                 (IsHTMLFormElement self, ToJSString val) => self -> val -> IO ()-htmlFormElementSetAutocapitalize self val-  = ghcjs_dom_html_form_element_set_autocapitalize-      (unHTMLFormElement (toHTMLFormElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"autocapitalize\"]"-        ghcjs_dom_html_form_element_get_autocapitalize ::-        JSRef HTMLFormElement -> IO JSString- -htmlFormElementGetAutocapitalize ::-                                 (IsHTMLFormElement self, FromJSString result) => self -> IO result-htmlFormElementGetAutocapitalize self-  = fromJSString <$>-      (ghcjs_dom_html_form_element_get_autocapitalize-         (unHTMLFormElement (toHTMLFormElement self)))+  module GHCJS.DOM.JSFFI.Generated.HTMLFormElement #else-module GHCJS.DOM.HTMLFormElement (   module Graphics.UI.Gtk.WebKit.DOM.HTMLFormElement+#endif   ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.HTMLFormElement+#else import Graphics.UI.Gtk.WebKit.DOM.HTMLFormElement #endif
src/GHCJS/DOM/HTMLFrameElement.hs view
@@ -1,273 +1,13 @@ {-# LANGUAGE CPP #-}+module GHCJS.DOM.HTMLFrameElement ( #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.HTMLFrameElement-       (ghcjs_dom_html_frame_element_set_frame_border,-        htmlFrameElementSetFrameBorder,-        ghcjs_dom_html_frame_element_get_frame_border,-        htmlFrameElementGetFrameBorder,-        ghcjs_dom_html_frame_element_set_long_desc,-        htmlFrameElementSetLongDesc,-        ghcjs_dom_html_frame_element_get_long_desc,-        htmlFrameElementGetLongDesc,-        ghcjs_dom_html_frame_element_set_margin_height,-        htmlFrameElementSetMarginHeight,-        ghcjs_dom_html_frame_element_get_margin_height,-        htmlFrameElementGetMarginHeight,-        ghcjs_dom_html_frame_element_set_margin_width,-        htmlFrameElementSetMarginWidth,-        ghcjs_dom_html_frame_element_get_margin_width,-        htmlFrameElementGetMarginWidth,-        ghcjs_dom_html_frame_element_set_name, htmlFrameElementSetName,-        ghcjs_dom_html_frame_element_get_name, htmlFrameElementGetName,-        ghcjs_dom_html_frame_element_set_no_resize,-        htmlFrameElementSetNoResize,-        ghcjs_dom_html_frame_element_get_no_resize,-        htmlFrameElementGetNoResize,-        ghcjs_dom_html_frame_element_set_scrolling,-        htmlFrameElementSetScrolling,-        ghcjs_dom_html_frame_element_get_scrolling,-        htmlFrameElementGetScrolling, ghcjs_dom_html_frame_element_set_src,-        htmlFrameElementSetSrc, ghcjs_dom_html_frame_element_get_src,-        htmlFrameElementGetSrc,-        ghcjs_dom_html_frame_element_get_content_document,-        htmlFrameElementGetContentDocument,-        ghcjs_dom_html_frame_element_get_content_window,-        htmlFrameElementGetContentWindow,-        ghcjs_dom_html_frame_element_get_width, htmlFrameElementGetWidth,-        ghcjs_dom_html_frame_element_get_height, htmlFrameElementGetHeight,-        HTMLFrameElement, IsHTMLFrameElement, castToHTMLFrameElement,-        gTypeHTMLFrameElement, toHTMLFrameElement)-       where-import GHCJS.Types-import GHCJS.Foreign-import GHCJS.Marshal-import Data.Int-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-- -foreign import javascript unsafe "$1[\"frameBorder\"] = $2;"-        ghcjs_dom_html_frame_element_set_frame_border ::-        JSRef HTMLFrameElement -> JSString -> IO ()- -htmlFrameElementSetFrameBorder ::-                               (IsHTMLFrameElement self, ToJSString val) => self -> val -> IO ()-htmlFrameElementSetFrameBorder self val-  = ghcjs_dom_html_frame_element_set_frame_border-      (unHTMLFrameElement (toHTMLFrameElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"frameBorder\"]"-        ghcjs_dom_html_frame_element_get_frame_border ::-        JSRef HTMLFrameElement -> IO JSString- -htmlFrameElementGetFrameBorder ::-                               (IsHTMLFrameElement self, FromJSString result) => self -> IO result-htmlFrameElementGetFrameBorder self-  = fromJSString <$>-      (ghcjs_dom_html_frame_element_get_frame_border-         (unHTMLFrameElement (toHTMLFrameElement self)))- -foreign import javascript unsafe "$1[\"longDesc\"] = $2;"-        ghcjs_dom_html_frame_element_set_long_desc ::-        JSRef HTMLFrameElement -> JSString -> IO ()- -htmlFrameElementSetLongDesc ::-                            (IsHTMLFrameElement self, ToJSString val) => self -> val -> IO ()-htmlFrameElementSetLongDesc self val-  = ghcjs_dom_html_frame_element_set_long_desc-      (unHTMLFrameElement (toHTMLFrameElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"longDesc\"]"-        ghcjs_dom_html_frame_element_get_long_desc ::-        JSRef HTMLFrameElement -> IO JSString- -htmlFrameElementGetLongDesc ::-                            (IsHTMLFrameElement self, FromJSString result) => self -> IO result-htmlFrameElementGetLongDesc self-  = fromJSString <$>-      (ghcjs_dom_html_frame_element_get_long_desc-         (unHTMLFrameElement (toHTMLFrameElement self)))- -foreign import javascript unsafe "$1[\"marginHeight\"] = $2;"-        ghcjs_dom_html_frame_element_set_margin_height ::-        JSRef HTMLFrameElement -> JSString -> IO ()- -htmlFrameElementSetMarginHeight ::-                                (IsHTMLFrameElement self, ToJSString val) => self -> val -> IO ()-htmlFrameElementSetMarginHeight self val-  = ghcjs_dom_html_frame_element_set_margin_height-      (unHTMLFrameElement (toHTMLFrameElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"marginHeight\"]"-        ghcjs_dom_html_frame_element_get_margin_height ::-        JSRef HTMLFrameElement -> IO JSString- -htmlFrameElementGetMarginHeight ::-                                (IsHTMLFrameElement self, FromJSString result) => self -> IO result-htmlFrameElementGetMarginHeight self-  = fromJSString <$>-      (ghcjs_dom_html_frame_element_get_margin_height-         (unHTMLFrameElement (toHTMLFrameElement self)))- -foreign import javascript unsafe "$1[\"marginWidth\"] = $2;"-        ghcjs_dom_html_frame_element_set_margin_width ::-        JSRef HTMLFrameElement -> JSString -> IO ()- -htmlFrameElementSetMarginWidth ::-                               (IsHTMLFrameElement self, ToJSString val) => self -> val -> IO ()-htmlFrameElementSetMarginWidth self val-  = ghcjs_dom_html_frame_element_set_margin_width-      (unHTMLFrameElement (toHTMLFrameElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"marginWidth\"]"-        ghcjs_dom_html_frame_element_get_margin_width ::-        JSRef HTMLFrameElement -> IO JSString- -htmlFrameElementGetMarginWidth ::-                               (IsHTMLFrameElement self, FromJSString result) => self -> IO result-htmlFrameElementGetMarginWidth self-  = fromJSString <$>-      (ghcjs_dom_html_frame_element_get_margin_width-         (unHTMLFrameElement (toHTMLFrameElement self)))- -foreign import javascript unsafe "$1[\"name\"] = $2;"-        ghcjs_dom_html_frame_element_set_name ::-        JSRef HTMLFrameElement -> JSString -> IO ()- -htmlFrameElementSetName ::-                        (IsHTMLFrameElement self, ToJSString val) => self -> val -> IO ()-htmlFrameElementSetName self val-  = ghcjs_dom_html_frame_element_set_name-      (unHTMLFrameElement (toHTMLFrameElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"name\"]"-        ghcjs_dom_html_frame_element_get_name ::-        JSRef HTMLFrameElement -> IO JSString- -htmlFrameElementGetName ::-                        (IsHTMLFrameElement self, FromJSString result) => self -> IO result-htmlFrameElementGetName self-  = fromJSString <$>-      (ghcjs_dom_html_frame_element_get_name-         (unHTMLFrameElement (toHTMLFrameElement self)))- -foreign import javascript unsafe "$1[\"noResize\"] = $2;"-        ghcjs_dom_html_frame_element_set_no_resize ::-        JSRef HTMLFrameElement -> Bool -> IO ()- -htmlFrameElementSetNoResize ::-                            (IsHTMLFrameElement self) => self -> Bool -> IO ()-htmlFrameElementSetNoResize self val-  = ghcjs_dom_html_frame_element_set_no_resize-      (unHTMLFrameElement (toHTMLFrameElement self))-      val- -foreign import javascript unsafe "($1[\"noResize\"] ? 1 : 0)"-        ghcjs_dom_html_frame_element_get_no_resize ::-        JSRef HTMLFrameElement -> IO Bool- -htmlFrameElementGetNoResize ::-                            (IsHTMLFrameElement self) => self -> IO Bool-htmlFrameElementGetNoResize self-  = ghcjs_dom_html_frame_element_get_no_resize-      (unHTMLFrameElement (toHTMLFrameElement self))- -foreign import javascript unsafe "$1[\"scrolling\"] = $2;"-        ghcjs_dom_html_frame_element_set_scrolling ::-        JSRef HTMLFrameElement -> JSString -> IO ()- -htmlFrameElementSetScrolling ::-                             (IsHTMLFrameElement self, ToJSString val) => self -> val -> IO ()-htmlFrameElementSetScrolling self val-  = ghcjs_dom_html_frame_element_set_scrolling-      (unHTMLFrameElement (toHTMLFrameElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"scrolling\"]"-        ghcjs_dom_html_frame_element_get_scrolling ::-        JSRef HTMLFrameElement -> IO JSString- -htmlFrameElementGetScrolling ::-                             (IsHTMLFrameElement self, FromJSString result) => self -> IO result-htmlFrameElementGetScrolling self-  = fromJSString <$>-      (ghcjs_dom_html_frame_element_get_scrolling-         (unHTMLFrameElement (toHTMLFrameElement self)))- -foreign import javascript unsafe "$1[\"src\"] = $2;"-        ghcjs_dom_html_frame_element_set_src ::-        JSRef HTMLFrameElement -> JSString -> IO ()- -htmlFrameElementSetSrc ::-                       (IsHTMLFrameElement self, ToJSString val) => self -> val -> IO ()-htmlFrameElementSetSrc self val-  = ghcjs_dom_html_frame_element_set_src-      (unHTMLFrameElement (toHTMLFrameElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"src\"]"-        ghcjs_dom_html_frame_element_get_src ::-        JSRef HTMLFrameElement -> IO JSString- -htmlFrameElementGetSrc ::-                       (IsHTMLFrameElement self, FromJSString result) => self -> IO result-htmlFrameElementGetSrc self-  = fromJSString <$>-      (ghcjs_dom_html_frame_element_get_src-         (unHTMLFrameElement (toHTMLFrameElement self)))- -foreign import javascript unsafe "$1[\"contentDocument\"]"-        ghcjs_dom_html_frame_element_get_content_document ::-        JSRef HTMLFrameElement -> IO (JSRef Document)- -htmlFrameElementGetContentDocument ::-                                   (IsHTMLFrameElement self) => self -> IO (Maybe Document)-htmlFrameElementGetContentDocument self-  = fmap Document . maybeJSNull <$>-      (ghcjs_dom_html_frame_element_get_content_document-         (unHTMLFrameElement (toHTMLFrameElement self)))- -foreign import javascript unsafe "$1[\"contentWindow\"]"-        ghcjs_dom_html_frame_element_get_content_window ::-        JSRef HTMLFrameElement -> IO (JSRef DOMWindow)- -htmlFrameElementGetContentWindow ::-                                 (IsHTMLFrameElement self) => self -> IO (Maybe DOMWindow)-htmlFrameElementGetContentWindow self-  = fmap DOMWindow . maybeJSNull <$>-      (ghcjs_dom_html_frame_element_get_content_window-         (unHTMLFrameElement (toHTMLFrameElement self)))- -foreign import javascript unsafe "$1[\"width\"]"-        ghcjs_dom_html_frame_element_get_width ::-        JSRef HTMLFrameElement -> IO Int- -htmlFrameElementGetWidth ::-                         (IsHTMLFrameElement self) => self -> IO Int-htmlFrameElementGetWidth self-  = ghcjs_dom_html_frame_element_get_width-      (unHTMLFrameElement (toHTMLFrameElement self))- -foreign import javascript unsafe "$1[\"height\"]"-        ghcjs_dom_html_frame_element_get_height ::-        JSRef HTMLFrameElement -> IO Int- -htmlFrameElementGetHeight ::-                          (IsHTMLFrameElement self) => self -> IO Int-htmlFrameElementGetHeight self-  = ghcjs_dom_html_frame_element_get_height-      (unHTMLFrameElement (toHTMLFrameElement self))+  module GHCJS.DOM.JSFFI.Generated.HTMLFrameElement #else-module GHCJS.DOM.HTMLFrameElement (   module Graphics.UI.Gtk.WebKit.DOM.HTMLFrameElement+#endif   ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.HTMLFrameElement+#else import Graphics.UI.Gtk.WebKit.DOM.HTMLFrameElement #endif
src/GHCJS/DOM/HTMLFrameSetElement.hs view
@@ -1,156 +1,13 @@ {-# LANGUAGE CPP #-}+module GHCJS.DOM.HTMLFrameSetElement ( #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.HTMLFrameSetElement-       (ghcjs_dom_html_frame_set_element_set_cols,-        htmlFrameSetElementSetCols,-        ghcjs_dom_html_frame_set_element_get_cols,-        htmlFrameSetElementGetCols,-        ghcjs_dom_html_frame_set_element_set_rows,-        htmlFrameSetElementSetRows,-        ghcjs_dom_html_frame_set_element_get_rows,-        htmlFrameSetElementGetRows, htmlFrameSetElementOnbeforeunload,-        htmlFrameSetElementOnhashchange, htmlFrameSetElementOnmessage,-        htmlFrameSetElementOnoffline, htmlFrameSetElementOnonline,-        htmlFrameSetElementOnpopstate, htmlFrameSetElementOnresize,-        htmlFrameSetElementOnstorage, htmlFrameSetElementOnunload,-        htmlFrameSetElementOnorientationchange, htmlFrameSetElementOnblur,-        htmlFrameSetElementOnerror, htmlFrameSetElementOnfocus,-        htmlFrameSetElementOnload, HTMLFrameSetElement,-        IsHTMLFrameSetElement, castToHTMLFrameSetElement,-        gTypeHTMLFrameSetElement, toHTMLFrameSetElement)-       where-import GHCJS.Types-import GHCJS.Foreign-import GHCJS.Marshal-import Data.Int-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-- -foreign import javascript unsafe "$1[\"cols\"] = $2;"-        ghcjs_dom_html_frame_set_element_set_cols ::-        JSRef HTMLFrameSetElement -> JSString -> IO ()- -htmlFrameSetElementSetCols ::-                           (IsHTMLFrameSetElement self, ToJSString val) =>-                             self -> val -> IO ()-htmlFrameSetElementSetCols self val-  = ghcjs_dom_html_frame_set_element_set_cols-      (unHTMLFrameSetElement (toHTMLFrameSetElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"cols\"]"-        ghcjs_dom_html_frame_set_element_get_cols ::-        JSRef HTMLFrameSetElement -> IO JSString- -htmlFrameSetElementGetCols ::-                           (IsHTMLFrameSetElement self, FromJSString result) =>-                             self -> IO result-htmlFrameSetElementGetCols self-  = fromJSString <$>-      (ghcjs_dom_html_frame_set_element_get_cols-         (unHTMLFrameSetElement (toHTMLFrameSetElement self)))- -foreign import javascript unsafe "$1[\"rows\"] = $2;"-        ghcjs_dom_html_frame_set_element_set_rows ::-        JSRef HTMLFrameSetElement -> JSString -> IO ()- -htmlFrameSetElementSetRows ::-                           (IsHTMLFrameSetElement self, ToJSString val) =>-                             self -> val -> IO ()-htmlFrameSetElementSetRows self val-  = ghcjs_dom_html_frame_set_element_set_rows-      (unHTMLFrameSetElement (toHTMLFrameSetElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"rows\"]"-        ghcjs_dom_html_frame_set_element_get_rows ::-        JSRef HTMLFrameSetElement -> IO JSString- -htmlFrameSetElementGetRows ::-                           (IsHTMLFrameSetElement self, FromJSString result) =>-                             self -> IO result-htmlFrameSetElementGetRows self-  = fromJSString <$>-      (ghcjs_dom_html_frame_set_element_get_rows-         (unHTMLFrameSetElement (toHTMLFrameSetElement self)))- -htmlFrameSetElementOnbeforeunload ::-                                  (IsHTMLFrameSetElement self) =>-                                    Signal self (EventM UIEvent self ())-htmlFrameSetElementOnbeforeunload = (connect "beforeunload")- -htmlFrameSetElementOnhashchange ::-                                (IsHTMLFrameSetElement self) =>-                                  Signal self (EventM UIEvent self ())-htmlFrameSetElementOnhashchange = (connect "hashchange")- -htmlFrameSetElementOnmessage ::-                             (IsHTMLFrameSetElement self) =>-                               Signal self (EventM UIEvent self ())-htmlFrameSetElementOnmessage = (connect "message")- -htmlFrameSetElementOnoffline ::-                             (IsHTMLFrameSetElement self) =>-                               Signal self (EventM UIEvent self ())-htmlFrameSetElementOnoffline = (connect "offline")- -htmlFrameSetElementOnonline ::-                            (IsHTMLFrameSetElement self) =>-                              Signal self (EventM UIEvent self ())-htmlFrameSetElementOnonline = (connect "online")- -htmlFrameSetElementOnpopstate ::-                              (IsHTMLFrameSetElement self) =>-                                Signal self (EventM UIEvent self ())-htmlFrameSetElementOnpopstate = (connect "popstate")- -htmlFrameSetElementOnresize ::-                            (IsHTMLFrameSetElement self) =>-                              Signal self (EventM UIEvent self ())-htmlFrameSetElementOnresize = (connect "resize")- -htmlFrameSetElementOnstorage ::-                             (IsHTMLFrameSetElement self) =>-                               Signal self (EventM UIEvent self ())-htmlFrameSetElementOnstorage = (connect "storage")- -htmlFrameSetElementOnunload ::-                            (IsHTMLFrameSetElement self) =>-                              Signal self (EventM UIEvent self ())-htmlFrameSetElementOnunload = (connect "unload")- -htmlFrameSetElementOnorientationchange ::-                                       (IsHTMLFrameSetElement self) =>-                                         Signal self (EventM UIEvent self ())-htmlFrameSetElementOnorientationchange-  = (connect "orientationchange")- -htmlFrameSetElementOnblur ::-                          (IsHTMLFrameSetElement self) =>-                            Signal self (EventM UIEvent self ())-htmlFrameSetElementOnblur = (connect "blur")- -htmlFrameSetElementOnerror ::-                           (IsHTMLFrameSetElement self) =>-                             Signal self (EventM UIEvent self ())-htmlFrameSetElementOnerror = (connect "error")- -htmlFrameSetElementOnfocus ::-                           (IsHTMLFrameSetElement self) =>-                             Signal self (EventM UIEvent self ())-htmlFrameSetElementOnfocus = (connect "focus")- -htmlFrameSetElementOnload ::-                          (IsHTMLFrameSetElement self) =>-                            Signal self (EventM UIEvent self ())-htmlFrameSetElementOnload = (connect "load")+  module GHCJS.DOM.JSFFI.Generated.HTMLFrameSetElement #else-module GHCJS.DOM.HTMLFrameSetElement (   module Graphics.UI.Gtk.WebKit.DOM.HTMLFrameSetElement+#endif   ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.HTMLFrameSetElement+#else import Graphics.UI.Gtk.WebKit.DOM.HTMLFrameSetElement #endif
src/GHCJS/DOM/HTMLHRElement.hs view
@@ -1,117 +1,13 @@ {-# LANGUAGE CPP #-}+module GHCJS.DOM.HTMLHRElement ( #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.HTMLHRElement-       (ghcjs_dom_htmlhr_element_set_align, htmlhrElementSetAlign,-        ghcjs_dom_htmlhr_element_get_align, htmlhrElementGetAlign,-        ghcjs_dom_htmlhr_element_set_no_shade, htmlhrElementSetNoShade,-        ghcjs_dom_htmlhr_element_get_no_shade, htmlhrElementGetNoShade,-        ghcjs_dom_htmlhr_element_set_size, htmlhrElementSetSize,-        ghcjs_dom_htmlhr_element_get_size, htmlhrElementGetSize,-        ghcjs_dom_htmlhr_element_set_width, htmlhrElementSetWidth,-        ghcjs_dom_htmlhr_element_get_width, htmlhrElementGetWidth,-        HTMLHRElement, IsHTMLHRElement, castToHTMLHRElement,-        gTypeHTMLHRElement, toHTMLHRElement)-       where-import GHCJS.Types-import GHCJS.Foreign-import GHCJS.Marshal-import Data.Int-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-- -foreign import javascript unsafe "$1[\"align\"] = $2;"-        ghcjs_dom_htmlhr_element_set_align ::-        JSRef HTMLHRElement -> JSString -> IO ()- -htmlhrElementSetAlign ::-                      (IsHTMLHRElement self, ToJSString val) => self -> val -> IO ()-htmlhrElementSetAlign self val-  = ghcjs_dom_htmlhr_element_set_align-      (unHTMLHRElement (toHTMLHRElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"align\"]"-        ghcjs_dom_htmlhr_element_get_align ::-        JSRef HTMLHRElement -> IO JSString- -htmlhrElementGetAlign ::-                      (IsHTMLHRElement self, FromJSString result) => self -> IO result-htmlhrElementGetAlign self-  = fromJSString <$>-      (ghcjs_dom_htmlhr_element_get_align-         (unHTMLHRElement (toHTMLHRElement self)))- -foreign import javascript unsafe "$1[\"noShade\"] = $2;"-        ghcjs_dom_htmlhr_element_set_no_shade ::-        JSRef HTMLHRElement -> Bool -> IO ()- -htmlhrElementSetNoShade ::-                        (IsHTMLHRElement self) => self -> Bool -> IO ()-htmlhrElementSetNoShade self val-  = ghcjs_dom_htmlhr_element_set_no_shade-      (unHTMLHRElement (toHTMLHRElement self))-      val- -foreign import javascript unsafe "($1[\"noShade\"] ? 1 : 0)"-        ghcjs_dom_htmlhr_element_get_no_shade ::-        JSRef HTMLHRElement -> IO Bool- -htmlhrElementGetNoShade ::-                        (IsHTMLHRElement self) => self -> IO Bool-htmlhrElementGetNoShade self-  = ghcjs_dom_htmlhr_element_get_no_shade-      (unHTMLHRElement (toHTMLHRElement self))- -foreign import javascript unsafe "$1[\"size\"] = $2;"-        ghcjs_dom_htmlhr_element_set_size ::-        JSRef HTMLHRElement -> JSString -> IO ()- -htmlhrElementSetSize ::-                     (IsHTMLHRElement self, ToJSString val) => self -> val -> IO ()-htmlhrElementSetSize self val-  = ghcjs_dom_htmlhr_element_set_size-      (unHTMLHRElement (toHTMLHRElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"size\"]"-        ghcjs_dom_htmlhr_element_get_size ::-        JSRef HTMLHRElement -> IO JSString- -htmlhrElementGetSize ::-                     (IsHTMLHRElement self, FromJSString result) => self -> IO result-htmlhrElementGetSize self-  = fromJSString <$>-      (ghcjs_dom_htmlhr_element_get_size-         (unHTMLHRElement (toHTMLHRElement self)))- -foreign import javascript unsafe "$1[\"width\"] = $2;"-        ghcjs_dom_htmlhr_element_set_width ::-        JSRef HTMLHRElement -> JSString -> IO ()- -htmlhrElementSetWidth ::-                      (IsHTMLHRElement self, ToJSString val) => self -> val -> IO ()-htmlhrElementSetWidth self val-  = ghcjs_dom_htmlhr_element_set_width-      (unHTMLHRElement (toHTMLHRElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"width\"]"-        ghcjs_dom_htmlhr_element_get_width ::-        JSRef HTMLHRElement -> IO JSString- -htmlhrElementGetWidth ::-                      (IsHTMLHRElement self, FromJSString result) => self -> IO result-htmlhrElementGetWidth self-  = fromJSString <$>-      (ghcjs_dom_htmlhr_element_get_width-         (unHTMLHRElement (toHTMLHRElement self)))+  module GHCJS.DOM.JSFFI.Generated.HTMLHRElement #else-module GHCJS.DOM.HTMLHRElement (   module Graphics.UI.Gtk.WebKit.DOM.HTMLHRElement+#endif   ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.HTMLHRElement+#else import Graphics.UI.Gtk.WebKit.DOM.HTMLHRElement #endif
src/GHCJS/DOM/HTMLHeadElement.hs view
@@ -1,46 +1,13 @@ {-# LANGUAGE CPP #-}+module GHCJS.DOM.HTMLHeadElement ( #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.HTMLHeadElement-       (ghcjs_dom_html_head_element_set_profile,-        htmlHeadElementSetProfile, ghcjs_dom_html_head_element_get_profile,-        htmlHeadElementGetProfile, HTMLHeadElement, IsHTMLHeadElement,-        castToHTMLHeadElement, gTypeHTMLHeadElement, toHTMLHeadElement)-       where-import GHCJS.Types-import GHCJS.Foreign-import GHCJS.Marshal-import Data.Int-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-- -foreign import javascript unsafe "$1[\"profile\"] = $2;"-        ghcjs_dom_html_head_element_set_profile ::-        JSRef HTMLHeadElement -> JSString -> IO ()- -htmlHeadElementSetProfile ::-                          (IsHTMLHeadElement self, ToJSString val) => self -> val -> IO ()-htmlHeadElementSetProfile self val-  = ghcjs_dom_html_head_element_set_profile-      (unHTMLHeadElement (toHTMLHeadElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"profile\"]"-        ghcjs_dom_html_head_element_get_profile ::-        JSRef HTMLHeadElement -> IO JSString- -htmlHeadElementGetProfile ::-                          (IsHTMLHeadElement self, FromJSString result) => self -> IO result-htmlHeadElementGetProfile self-  = fromJSString <$>-      (ghcjs_dom_html_head_element_get_profile-         (unHTMLHeadElement (toHTMLHeadElement self)))+  module GHCJS.DOM.JSFFI.Generated.HTMLHeadElement #else-module GHCJS.DOM.HTMLHeadElement (   module Graphics.UI.Gtk.WebKit.DOM.HTMLHeadElement+#endif   ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.HTMLHeadElement+#else import Graphics.UI.Gtk.WebKit.DOM.HTMLHeadElement #endif
src/GHCJS/DOM/HTMLHeadingElement.hs view
@@ -1,49 +1,13 @@ {-# LANGUAGE CPP #-}+module GHCJS.DOM.HTMLHeadingElement ( #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.HTMLHeadingElement-       (ghcjs_dom_html_heading_element_set_align,-        htmlHeadingElementSetAlign,-        ghcjs_dom_html_heading_element_get_align,-        htmlHeadingElementGetAlign, HTMLHeadingElement,-        IsHTMLHeadingElement, castToHTMLHeadingElement,-        gTypeHTMLHeadingElement, toHTMLHeadingElement)-       where-import GHCJS.Types-import GHCJS.Foreign-import GHCJS.Marshal-import Data.Int-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-- -foreign import javascript unsafe "$1[\"align\"] = $2;"-        ghcjs_dom_html_heading_element_set_align ::-        JSRef HTMLHeadingElement -> JSString -> IO ()- -htmlHeadingElementSetAlign ::-                           (IsHTMLHeadingElement self, ToJSString val) => self -> val -> IO ()-htmlHeadingElementSetAlign self val-  = ghcjs_dom_html_heading_element_set_align-      (unHTMLHeadingElement (toHTMLHeadingElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"align\"]"-        ghcjs_dom_html_heading_element_get_align ::-        JSRef HTMLHeadingElement -> IO JSString- -htmlHeadingElementGetAlign ::-                           (IsHTMLHeadingElement self, FromJSString result) =>-                             self -> IO result-htmlHeadingElementGetAlign self-  = fromJSString <$>-      (ghcjs_dom_html_heading_element_get_align-         (unHTMLHeadingElement (toHTMLHeadingElement self)))+  module GHCJS.DOM.JSFFI.Generated.HTMLHeadingElement #else-module GHCJS.DOM.HTMLHeadingElement (   module Graphics.UI.Gtk.WebKit.DOM.HTMLHeadingElement+#endif   ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.HTMLHeadingElement+#else import Graphics.UI.Gtk.WebKit.DOM.HTMLHeadingElement #endif
src/GHCJS/DOM/HTMLHtmlElement.hs view
@@ -1,72 +1,13 @@ {-# LANGUAGE CPP #-}+module GHCJS.DOM.HTMLHtmlElement ( #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.HTMLHtmlElement-       (ghcjs_dom_html_html_element_set_version,-        htmlHtmlElementSetVersion, ghcjs_dom_html_html_element_get_version,-        htmlHtmlElementGetVersion,-        ghcjs_dom_html_html_element_set_manifest,-        htmlHtmlElementSetManifest,-        ghcjs_dom_html_html_element_get_manifest,-        htmlHtmlElementGetManifest, HTMLHtmlElement, IsHTMLHtmlElement,-        castToHTMLHtmlElement, gTypeHTMLHtmlElement, toHTMLHtmlElement)-       where-import GHCJS.Types-import GHCJS.Foreign-import GHCJS.Marshal-import Data.Int-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-- -foreign import javascript unsafe "$1[\"version\"] = $2;"-        ghcjs_dom_html_html_element_set_version ::-        JSRef HTMLHtmlElement -> JSString -> IO ()- -htmlHtmlElementSetVersion ::-                          (IsHTMLHtmlElement self, ToJSString val) => self -> val -> IO ()-htmlHtmlElementSetVersion self val-  = ghcjs_dom_html_html_element_set_version-      (unHTMLHtmlElement (toHTMLHtmlElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"version\"]"-        ghcjs_dom_html_html_element_get_version ::-        JSRef HTMLHtmlElement -> IO JSString- -htmlHtmlElementGetVersion ::-                          (IsHTMLHtmlElement self, FromJSString result) => self -> IO result-htmlHtmlElementGetVersion self-  = fromJSString <$>-      (ghcjs_dom_html_html_element_get_version-         (unHTMLHtmlElement (toHTMLHtmlElement self)))- -foreign import javascript unsafe "$1[\"manifest\"] = $2;"-        ghcjs_dom_html_html_element_set_manifest ::-        JSRef HTMLHtmlElement -> JSString -> IO ()- -htmlHtmlElementSetManifest ::-                           (IsHTMLHtmlElement self, ToJSString val) => self -> val -> IO ()-htmlHtmlElementSetManifest self val-  = ghcjs_dom_html_html_element_set_manifest-      (unHTMLHtmlElement (toHTMLHtmlElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"manifest\"]"-        ghcjs_dom_html_html_element_get_manifest ::-        JSRef HTMLHtmlElement -> IO JSString- -htmlHtmlElementGetManifest ::-                           (IsHTMLHtmlElement self, FromJSString result) => self -> IO result-htmlHtmlElementGetManifest self-  = fromJSString <$>-      (ghcjs_dom_html_html_element_get_manifest-         (unHTMLHtmlElement (toHTMLHtmlElement self)))+  module GHCJS.DOM.JSFFI.Generated.HTMLHtmlElement #else-module GHCJS.DOM.HTMLHtmlElement (   module Graphics.UI.Gtk.WebKit.DOM.HTMLHtmlElement+#endif   ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.HTMLHtmlElement+#else import Graphics.UI.Gtk.WebKit.DOM.HTMLHtmlElement #endif
src/GHCJS/DOM/HTMLIFrameElement.hs view
@@ -1,365 +1,13 @@ {-# LANGUAGE CPP #-}+module GHCJS.DOM.HTMLIFrameElement ( #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.HTMLIFrameElement-       (ghcjs_dom_html_iframe_element_set_align,-        htmliFrameElementSetAlign, ghcjs_dom_html_iframe_element_get_align,-        htmliFrameElementGetAlign,-        ghcjs_dom_html_iframe_element_set_frame_border,-        htmliFrameElementSetFrameBorder,-        ghcjs_dom_html_iframe_element_get_frame_border,-        htmliFrameElementGetFrameBorder,-        ghcjs_dom_html_iframe_element_set_height,-        htmliFrameElementSetHeight,-        ghcjs_dom_html_iframe_element_get_height,-        htmliFrameElementGetHeight,-        ghcjs_dom_html_iframe_element_set_long_desc,-        htmliFrameElementSetLongDesc,-        ghcjs_dom_html_iframe_element_get_long_desc,-        htmliFrameElementGetLongDesc,-        ghcjs_dom_html_iframe_element_set_margin_height,-        htmliFrameElementSetMarginHeight,-        ghcjs_dom_html_iframe_element_get_margin_height,-        htmliFrameElementGetMarginHeight,-        ghcjs_dom_html_iframe_element_set_margin_width,-        htmliFrameElementSetMarginWidth,-        ghcjs_dom_html_iframe_element_get_margin_width,-        htmliFrameElementGetMarginWidth,-        ghcjs_dom_html_iframe_element_set_name, htmliFrameElementSetName,-        ghcjs_dom_html_iframe_element_get_name, htmliFrameElementGetName,-        ghcjs_dom_html_iframe_element_set_sandbox,-        htmliFrameElementSetSandbox,-        ghcjs_dom_html_iframe_element_get_sandbox,-        htmliFrameElementGetSandbox,-        ghcjs_dom_html_iframe_element_set_scrolling,-        htmliFrameElementSetScrolling,-        ghcjs_dom_html_iframe_element_get_scrolling,-        htmliFrameElementGetScrolling,-        ghcjs_dom_html_iframe_element_set_src, htmliFrameElementSetSrc,-        ghcjs_dom_html_iframe_element_get_src, htmliFrameElementGetSrc,-        ghcjs_dom_html_iframe_element_set_srcdoc,-        htmliFrameElementSetSrcdoc,-        ghcjs_dom_html_iframe_element_get_srcdoc,-        htmliFrameElementGetSrcdoc,-        ghcjs_dom_html_iframe_element_set_width, htmliFrameElementSetWidth,-        ghcjs_dom_html_iframe_element_get_width, htmliFrameElementGetWidth,-        ghcjs_dom_html_iframe_element_get_content_document,-        htmliFrameElementGetContentDocument,-        ghcjs_dom_html_iframe_element_get_content_window,-        htmliFrameElementGetContentWindow, HTMLIFrameElement,-        IsHTMLIFrameElement, castToHTMLIFrameElement,-        gTypeHTMLIFrameElement, toHTMLIFrameElement)-       where-import GHCJS.Types-import GHCJS.Foreign-import GHCJS.Marshal-import Data.Int-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-- -foreign import javascript unsafe "$1[\"align\"] = $2;"-        ghcjs_dom_html_iframe_element_set_align ::-        JSRef HTMLIFrameElement -> JSString -> IO ()- -htmliFrameElementSetAlign ::-                          (IsHTMLIFrameElement self, ToJSString val) => self -> val -> IO ()-htmliFrameElementSetAlign self val-  = ghcjs_dom_html_iframe_element_set_align-      (unHTMLIFrameElement (toHTMLIFrameElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"align\"]"-        ghcjs_dom_html_iframe_element_get_align ::-        JSRef HTMLIFrameElement -> IO JSString- -htmliFrameElementGetAlign ::-                          (IsHTMLIFrameElement self, FromJSString result) =>-                            self -> IO result-htmliFrameElementGetAlign self-  = fromJSString <$>-      (ghcjs_dom_html_iframe_element_get_align-         (unHTMLIFrameElement (toHTMLIFrameElement self)))- -foreign import javascript unsafe "$1[\"frameBorder\"] = $2;"-        ghcjs_dom_html_iframe_element_set_frame_border ::-        JSRef HTMLIFrameElement -> JSString -> IO ()- -htmliFrameElementSetFrameBorder ::-                                (IsHTMLIFrameElement self, ToJSString val) => self -> val -> IO ()-htmliFrameElementSetFrameBorder self val-  = ghcjs_dom_html_iframe_element_set_frame_border-      (unHTMLIFrameElement (toHTMLIFrameElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"frameBorder\"]"-        ghcjs_dom_html_iframe_element_get_frame_border ::-        JSRef HTMLIFrameElement -> IO JSString- -htmliFrameElementGetFrameBorder ::-                                (IsHTMLIFrameElement self, FromJSString result) =>-                                  self -> IO result-htmliFrameElementGetFrameBorder self-  = fromJSString <$>-      (ghcjs_dom_html_iframe_element_get_frame_border-         (unHTMLIFrameElement (toHTMLIFrameElement self)))- -foreign import javascript unsafe "$1[\"height\"] = $2;"-        ghcjs_dom_html_iframe_element_set_height ::-        JSRef HTMLIFrameElement -> JSString -> IO ()- -htmliFrameElementSetHeight ::-                           (IsHTMLIFrameElement self, ToJSString val) => self -> val -> IO ()-htmliFrameElementSetHeight self val-  = ghcjs_dom_html_iframe_element_set_height-      (unHTMLIFrameElement (toHTMLIFrameElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"height\"]"-        ghcjs_dom_html_iframe_element_get_height ::-        JSRef HTMLIFrameElement -> IO JSString- -htmliFrameElementGetHeight ::-                           (IsHTMLIFrameElement self, FromJSString result) =>-                             self -> IO result-htmliFrameElementGetHeight self-  = fromJSString <$>-      (ghcjs_dom_html_iframe_element_get_height-         (unHTMLIFrameElement (toHTMLIFrameElement self)))- -foreign import javascript unsafe "$1[\"longDesc\"] = $2;"-        ghcjs_dom_html_iframe_element_set_long_desc ::-        JSRef HTMLIFrameElement -> JSString -> IO ()- -htmliFrameElementSetLongDesc ::-                             (IsHTMLIFrameElement self, ToJSString val) => self -> val -> IO ()-htmliFrameElementSetLongDesc self val-  = ghcjs_dom_html_iframe_element_set_long_desc-      (unHTMLIFrameElement (toHTMLIFrameElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"longDesc\"]"-        ghcjs_dom_html_iframe_element_get_long_desc ::-        JSRef HTMLIFrameElement -> IO JSString- -htmliFrameElementGetLongDesc ::-                             (IsHTMLIFrameElement self, FromJSString result) =>-                               self -> IO result-htmliFrameElementGetLongDesc self-  = fromJSString <$>-      (ghcjs_dom_html_iframe_element_get_long_desc-         (unHTMLIFrameElement (toHTMLIFrameElement self)))- -foreign import javascript unsafe "$1[\"marginHeight\"] = $2;"-        ghcjs_dom_html_iframe_element_set_margin_height ::-        JSRef HTMLIFrameElement -> JSString -> IO ()- -htmliFrameElementSetMarginHeight ::-                                 (IsHTMLIFrameElement self, ToJSString val) => self -> val -> IO ()-htmliFrameElementSetMarginHeight self val-  = ghcjs_dom_html_iframe_element_set_margin_height-      (unHTMLIFrameElement (toHTMLIFrameElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"marginHeight\"]"-        ghcjs_dom_html_iframe_element_get_margin_height ::-        JSRef HTMLIFrameElement -> IO JSString- -htmliFrameElementGetMarginHeight ::-                                 (IsHTMLIFrameElement self, FromJSString result) =>-                                   self -> IO result-htmliFrameElementGetMarginHeight self-  = fromJSString <$>-      (ghcjs_dom_html_iframe_element_get_margin_height-         (unHTMLIFrameElement (toHTMLIFrameElement self)))- -foreign import javascript unsafe "$1[\"marginWidth\"] = $2;"-        ghcjs_dom_html_iframe_element_set_margin_width ::-        JSRef HTMLIFrameElement -> JSString -> IO ()- -htmliFrameElementSetMarginWidth ::-                                (IsHTMLIFrameElement self, ToJSString val) => self -> val -> IO ()-htmliFrameElementSetMarginWidth self val-  = ghcjs_dom_html_iframe_element_set_margin_width-      (unHTMLIFrameElement (toHTMLIFrameElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"marginWidth\"]"-        ghcjs_dom_html_iframe_element_get_margin_width ::-        JSRef HTMLIFrameElement -> IO JSString- -htmliFrameElementGetMarginWidth ::-                                (IsHTMLIFrameElement self, FromJSString result) =>-                                  self -> IO result-htmliFrameElementGetMarginWidth self-  = fromJSString <$>-      (ghcjs_dom_html_iframe_element_get_margin_width-         (unHTMLIFrameElement (toHTMLIFrameElement self)))- -foreign import javascript unsafe "$1[\"name\"] = $2;"-        ghcjs_dom_html_iframe_element_set_name ::-        JSRef HTMLIFrameElement -> JSString -> IO ()- -htmliFrameElementSetName ::-                         (IsHTMLIFrameElement self, ToJSString val) => self -> val -> IO ()-htmliFrameElementSetName self val-  = ghcjs_dom_html_iframe_element_set_name-      (unHTMLIFrameElement (toHTMLIFrameElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"name\"]"-        ghcjs_dom_html_iframe_element_get_name ::-        JSRef HTMLIFrameElement -> IO JSString- -htmliFrameElementGetName ::-                         (IsHTMLIFrameElement self, FromJSString result) =>-                           self -> IO result-htmliFrameElementGetName self-  = fromJSString <$>-      (ghcjs_dom_html_iframe_element_get_name-         (unHTMLIFrameElement (toHTMLIFrameElement self)))- -foreign import javascript unsafe "$1[\"sandbox\"] = $2;"-        ghcjs_dom_html_iframe_element_set_sandbox ::-        JSRef HTMLIFrameElement -> JSString -> IO ()- -htmliFrameElementSetSandbox ::-                            (IsHTMLIFrameElement self, ToJSString val) => self -> val -> IO ()-htmliFrameElementSetSandbox self val-  = ghcjs_dom_html_iframe_element_set_sandbox-      (unHTMLIFrameElement (toHTMLIFrameElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"sandbox\"]"-        ghcjs_dom_html_iframe_element_get_sandbox ::-        JSRef HTMLIFrameElement -> IO JSString- -htmliFrameElementGetSandbox ::-                            (IsHTMLIFrameElement self, FromJSString result) =>-                              self -> IO result-htmliFrameElementGetSandbox self-  = fromJSString <$>-      (ghcjs_dom_html_iframe_element_get_sandbox-         (unHTMLIFrameElement (toHTMLIFrameElement self)))- -foreign import javascript unsafe "$1[\"scrolling\"] = $2;"-        ghcjs_dom_html_iframe_element_set_scrolling ::-        JSRef HTMLIFrameElement -> JSString -> IO ()- -htmliFrameElementSetScrolling ::-                              (IsHTMLIFrameElement self, ToJSString val) => self -> val -> IO ()-htmliFrameElementSetScrolling self val-  = ghcjs_dom_html_iframe_element_set_scrolling-      (unHTMLIFrameElement (toHTMLIFrameElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"scrolling\"]"-        ghcjs_dom_html_iframe_element_get_scrolling ::-        JSRef HTMLIFrameElement -> IO JSString- -htmliFrameElementGetScrolling ::-                              (IsHTMLIFrameElement self, FromJSString result) =>-                                self -> IO result-htmliFrameElementGetScrolling self-  = fromJSString <$>-      (ghcjs_dom_html_iframe_element_get_scrolling-         (unHTMLIFrameElement (toHTMLIFrameElement self)))- -foreign import javascript unsafe "$1[\"src\"] = $2;"-        ghcjs_dom_html_iframe_element_set_src ::-        JSRef HTMLIFrameElement -> JSString -> IO ()- -htmliFrameElementSetSrc ::-                        (IsHTMLIFrameElement self, ToJSString val) => self -> val -> IO ()-htmliFrameElementSetSrc self val-  = ghcjs_dom_html_iframe_element_set_src-      (unHTMLIFrameElement (toHTMLIFrameElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"src\"]"-        ghcjs_dom_html_iframe_element_get_src ::-        JSRef HTMLIFrameElement -> IO JSString- -htmliFrameElementGetSrc ::-                        (IsHTMLIFrameElement self, FromJSString result) =>-                          self -> IO result-htmliFrameElementGetSrc self-  = fromJSString <$>-      (ghcjs_dom_html_iframe_element_get_src-         (unHTMLIFrameElement (toHTMLIFrameElement self)))- -foreign import javascript unsafe "$1[\"srcdoc\"] = $2;"-        ghcjs_dom_html_iframe_element_set_srcdoc ::-        JSRef HTMLIFrameElement -> JSString -> IO ()- -htmliFrameElementSetSrcdoc ::-                           (IsHTMLIFrameElement self, ToJSString val) => self -> val -> IO ()-htmliFrameElementSetSrcdoc self val-  = ghcjs_dom_html_iframe_element_set_srcdoc-      (unHTMLIFrameElement (toHTMLIFrameElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"srcdoc\"]"-        ghcjs_dom_html_iframe_element_get_srcdoc ::-        JSRef HTMLIFrameElement -> IO JSString- -htmliFrameElementGetSrcdoc ::-                           (IsHTMLIFrameElement self, FromJSString result) =>-                             self -> IO result-htmliFrameElementGetSrcdoc self-  = fromJSString <$>-      (ghcjs_dom_html_iframe_element_get_srcdoc-         (unHTMLIFrameElement (toHTMLIFrameElement self)))- -foreign import javascript unsafe "$1[\"width\"] = $2;"-        ghcjs_dom_html_iframe_element_set_width ::-        JSRef HTMLIFrameElement -> JSString -> IO ()- -htmliFrameElementSetWidth ::-                          (IsHTMLIFrameElement self, ToJSString val) => self -> val -> IO ()-htmliFrameElementSetWidth self val-  = ghcjs_dom_html_iframe_element_set_width-      (unHTMLIFrameElement (toHTMLIFrameElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"width\"]"-        ghcjs_dom_html_iframe_element_get_width ::-        JSRef HTMLIFrameElement -> IO JSString- -htmliFrameElementGetWidth ::-                          (IsHTMLIFrameElement self, FromJSString result) =>-                            self -> IO result-htmliFrameElementGetWidth self-  = fromJSString <$>-      (ghcjs_dom_html_iframe_element_get_width-         (unHTMLIFrameElement (toHTMLIFrameElement self)))- -foreign import javascript unsafe "$1[\"contentDocument\"]"-        ghcjs_dom_html_iframe_element_get_content_document ::-        JSRef HTMLIFrameElement -> IO (JSRef Document)- -htmliFrameElementGetContentDocument ::-                                    (IsHTMLIFrameElement self) => self -> IO (Maybe Document)-htmliFrameElementGetContentDocument self-  = fmap Document . maybeJSNull <$>-      (ghcjs_dom_html_iframe_element_get_content_document-         (unHTMLIFrameElement (toHTMLIFrameElement self)))- -foreign import javascript unsafe "$1[\"contentWindow\"]"-        ghcjs_dom_html_iframe_element_get_content_window ::-        JSRef HTMLIFrameElement -> IO (JSRef DOMWindow)- -htmliFrameElementGetContentWindow ::-                                  (IsHTMLIFrameElement self) => self -> IO (Maybe DOMWindow)-htmliFrameElementGetContentWindow self-  = fmap DOMWindow . maybeJSNull <$>-      (ghcjs_dom_html_iframe_element_get_content_window-         (unHTMLIFrameElement (toHTMLIFrameElement self)))+  module GHCJS.DOM.JSFFI.Generated.HTMLIFrameElement #else-module GHCJS.DOM.HTMLIFrameElement (   module Graphics.UI.Gtk.WebKit.DOM.HTMLIFrameElement+#endif   ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.HTMLIFrameElement+#else import Graphics.UI.Gtk.WebKit.DOM.HTMLIFrameElement #endif
src/GHCJS/DOM/HTMLImageElement.hs view
@@ -1,439 +1,13 @@ {-# LANGUAGE CPP #-}+module GHCJS.DOM.HTMLImageElement ( #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.HTMLImageElement-       (ghcjs_dom_html_image_element_set_name, htmlImageElementSetName,-        ghcjs_dom_html_image_element_get_name, htmlImageElementGetName,-        ghcjs_dom_html_image_element_set_align, htmlImageElementSetAlign,-        ghcjs_dom_html_image_element_get_align, htmlImageElementGetAlign,-        ghcjs_dom_html_image_element_set_alt, htmlImageElementSetAlt,-        ghcjs_dom_html_image_element_get_alt, htmlImageElementGetAlt,-        ghcjs_dom_html_image_element_set_border, htmlImageElementSetBorder,-        ghcjs_dom_html_image_element_get_border, htmlImageElementGetBorder,-        ghcjs_dom_html_image_element_set_cross_origin,-        htmlImageElementSetCrossOrigin,-        ghcjs_dom_html_image_element_get_cross_origin,-        htmlImageElementGetCrossOrigin,-        ghcjs_dom_html_image_element_set_height, htmlImageElementSetHeight,-        ghcjs_dom_html_image_element_get_height, htmlImageElementGetHeight,-        ghcjs_dom_html_image_element_set_hspace, htmlImageElementSetHspace,-        ghcjs_dom_html_image_element_get_hspace, htmlImageElementGetHspace,-        ghcjs_dom_html_image_element_set_is_map, htmlImageElementSetIsMap,-        ghcjs_dom_html_image_element_get_is_map, htmlImageElementGetIsMap,-        ghcjs_dom_html_image_element_set_long_desc,-        htmlImageElementSetLongDesc,-        ghcjs_dom_html_image_element_get_long_desc,-        htmlImageElementGetLongDesc, ghcjs_dom_html_image_element_set_src,-        htmlImageElementSetSrc, ghcjs_dom_html_image_element_get_src,-        htmlImageElementGetSrc, ghcjs_dom_html_image_element_set_srcset,-        htmlImageElementSetSrcset, ghcjs_dom_html_image_element_get_srcset,-        htmlImageElementGetSrcset,-        ghcjs_dom_html_image_element_set_use_map,-        htmlImageElementSetUseMap,-        ghcjs_dom_html_image_element_get_use_map,-        htmlImageElementGetUseMap, ghcjs_dom_html_image_element_set_vspace,-        htmlImageElementSetVspace, ghcjs_dom_html_image_element_get_vspace,-        htmlImageElementGetVspace, ghcjs_dom_html_image_element_set_width,-        htmlImageElementSetWidth, ghcjs_dom_html_image_element_get_width,-        htmlImageElementGetWidth,-        ghcjs_dom_html_image_element_get_complete,-        htmlImageElementGetComplete,-        ghcjs_dom_html_image_element_set_lowsrc, htmlImageElementSetLowsrc,-        ghcjs_dom_html_image_element_get_lowsrc, htmlImageElementGetLowsrc,-        ghcjs_dom_html_image_element_get_natural_height,-        htmlImageElementGetNaturalHeight,-        ghcjs_dom_html_image_element_get_natural_width,-        htmlImageElementGetNaturalWidth,-        ghcjs_dom_html_image_element_get_x, htmlImageElementGetX,-        ghcjs_dom_html_image_element_get_y, htmlImageElementGetY,-        HTMLImageElement, IsHTMLImageElement, castToHTMLImageElement,-        gTypeHTMLImageElement, toHTMLImageElement)-       where-import GHCJS.Types-import GHCJS.Foreign-import GHCJS.Marshal-import Data.Int-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-- -foreign import javascript unsafe "$1[\"name\"] = $2;"-        ghcjs_dom_html_image_element_set_name ::-        JSRef HTMLImageElement -> JSString -> IO ()- -htmlImageElementSetName ::-                        (IsHTMLImageElement self, ToJSString val) => self -> val -> IO ()-htmlImageElementSetName self val-  = ghcjs_dom_html_image_element_set_name-      (unHTMLImageElement (toHTMLImageElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"name\"]"-        ghcjs_dom_html_image_element_get_name ::-        JSRef HTMLImageElement -> IO JSString- -htmlImageElementGetName ::-                        (IsHTMLImageElement self, FromJSString result) => self -> IO result-htmlImageElementGetName self-  = fromJSString <$>-      (ghcjs_dom_html_image_element_get_name-         (unHTMLImageElement (toHTMLImageElement self)))- -foreign import javascript unsafe "$1[\"align\"] = $2;"-        ghcjs_dom_html_image_element_set_align ::-        JSRef HTMLImageElement -> JSString -> IO ()- -htmlImageElementSetAlign ::-                         (IsHTMLImageElement self, ToJSString val) => self -> val -> IO ()-htmlImageElementSetAlign self val-  = ghcjs_dom_html_image_element_set_align-      (unHTMLImageElement (toHTMLImageElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"align\"]"-        ghcjs_dom_html_image_element_get_align ::-        JSRef HTMLImageElement -> IO JSString- -htmlImageElementGetAlign ::-                         (IsHTMLImageElement self, FromJSString result) => self -> IO result-htmlImageElementGetAlign self-  = fromJSString <$>-      (ghcjs_dom_html_image_element_get_align-         (unHTMLImageElement (toHTMLImageElement self)))- -foreign import javascript unsafe "$1[\"alt\"] = $2;"-        ghcjs_dom_html_image_element_set_alt ::-        JSRef HTMLImageElement -> JSString -> IO ()- -htmlImageElementSetAlt ::-                       (IsHTMLImageElement self, ToJSString val) => self -> val -> IO ()-htmlImageElementSetAlt self val-  = ghcjs_dom_html_image_element_set_alt-      (unHTMLImageElement (toHTMLImageElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"alt\"]"-        ghcjs_dom_html_image_element_get_alt ::-        JSRef HTMLImageElement -> IO JSString- -htmlImageElementGetAlt ::-                       (IsHTMLImageElement self, FromJSString result) => self -> IO result-htmlImageElementGetAlt self-  = fromJSString <$>-      (ghcjs_dom_html_image_element_get_alt-         (unHTMLImageElement (toHTMLImageElement self)))- -foreign import javascript unsafe "$1[\"border\"] = $2;"-        ghcjs_dom_html_image_element_set_border ::-        JSRef HTMLImageElement -> JSString -> IO ()- -htmlImageElementSetBorder ::-                          (IsHTMLImageElement self, ToJSString val) => self -> val -> IO ()-htmlImageElementSetBorder self val-  = ghcjs_dom_html_image_element_set_border-      (unHTMLImageElement (toHTMLImageElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"border\"]"-        ghcjs_dom_html_image_element_get_border ::-        JSRef HTMLImageElement -> IO JSString- -htmlImageElementGetBorder ::-                          (IsHTMLImageElement self, FromJSString result) => self -> IO result-htmlImageElementGetBorder self-  = fromJSString <$>-      (ghcjs_dom_html_image_element_get_border-         (unHTMLImageElement (toHTMLImageElement self)))- -foreign import javascript unsafe "$1[\"crossOrigin\"] = $2;"-        ghcjs_dom_html_image_element_set_cross_origin ::-        JSRef HTMLImageElement -> JSString -> IO ()- -htmlImageElementSetCrossOrigin ::-                               (IsHTMLImageElement self, ToJSString val) => self -> val -> IO ()-htmlImageElementSetCrossOrigin self val-  = ghcjs_dom_html_image_element_set_cross_origin-      (unHTMLImageElement (toHTMLImageElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"crossOrigin\"]"-        ghcjs_dom_html_image_element_get_cross_origin ::-        JSRef HTMLImageElement -> IO JSString- -htmlImageElementGetCrossOrigin ::-                               (IsHTMLImageElement self, FromJSString result) => self -> IO result-htmlImageElementGetCrossOrigin self-  = fromJSString <$>-      (ghcjs_dom_html_image_element_get_cross_origin-         (unHTMLImageElement (toHTMLImageElement self)))- -foreign import javascript unsafe "$1[\"height\"] = $2;"-        ghcjs_dom_html_image_element_set_height ::-        JSRef HTMLImageElement -> Int -> IO ()- -htmlImageElementSetHeight ::-                          (IsHTMLImageElement self) => self -> Int -> IO ()-htmlImageElementSetHeight self val-  = ghcjs_dom_html_image_element_set_height-      (unHTMLImageElement (toHTMLImageElement self))-      val- -foreign import javascript unsafe "$1[\"height\"]"-        ghcjs_dom_html_image_element_get_height ::-        JSRef HTMLImageElement -> IO Int- -htmlImageElementGetHeight ::-                          (IsHTMLImageElement self) => self -> IO Int-htmlImageElementGetHeight self-  = ghcjs_dom_html_image_element_get_height-      (unHTMLImageElement (toHTMLImageElement self))- -foreign import javascript unsafe "$1[\"hspace\"] = $2;"-        ghcjs_dom_html_image_element_set_hspace ::-        JSRef HTMLImageElement -> Int -> IO ()- -htmlImageElementSetHspace ::-                          (IsHTMLImageElement self) => self -> Int -> IO ()-htmlImageElementSetHspace self val-  = ghcjs_dom_html_image_element_set_hspace-      (unHTMLImageElement (toHTMLImageElement self))-      val- -foreign import javascript unsafe "$1[\"hspace\"]"-        ghcjs_dom_html_image_element_get_hspace ::-        JSRef HTMLImageElement -> IO Int- -htmlImageElementGetHspace ::-                          (IsHTMLImageElement self) => self -> IO Int-htmlImageElementGetHspace self-  = ghcjs_dom_html_image_element_get_hspace-      (unHTMLImageElement (toHTMLImageElement self))- -foreign import javascript unsafe "$1[\"isMap\"] = $2;"-        ghcjs_dom_html_image_element_set_is_map ::-        JSRef HTMLImageElement -> Bool -> IO ()- -htmlImageElementSetIsMap ::-                         (IsHTMLImageElement self) => self -> Bool -> IO ()-htmlImageElementSetIsMap self val-  = ghcjs_dom_html_image_element_set_is_map-      (unHTMLImageElement (toHTMLImageElement self))-      val- -foreign import javascript unsafe "($1[\"isMap\"] ? 1 : 0)"-        ghcjs_dom_html_image_element_get_is_map ::-        JSRef HTMLImageElement -> IO Bool- -htmlImageElementGetIsMap ::-                         (IsHTMLImageElement self) => self -> IO Bool-htmlImageElementGetIsMap self-  = ghcjs_dom_html_image_element_get_is_map-      (unHTMLImageElement (toHTMLImageElement self))- -foreign import javascript unsafe "$1[\"longDesc\"] = $2;"-        ghcjs_dom_html_image_element_set_long_desc ::-        JSRef HTMLImageElement -> JSString -> IO ()- -htmlImageElementSetLongDesc ::-                            (IsHTMLImageElement self, ToJSString val) => self -> val -> IO ()-htmlImageElementSetLongDesc self val-  = ghcjs_dom_html_image_element_set_long_desc-      (unHTMLImageElement (toHTMLImageElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"longDesc\"]"-        ghcjs_dom_html_image_element_get_long_desc ::-        JSRef HTMLImageElement -> IO JSString- -htmlImageElementGetLongDesc ::-                            (IsHTMLImageElement self, FromJSString result) => self -> IO result-htmlImageElementGetLongDesc self-  = fromJSString <$>-      (ghcjs_dom_html_image_element_get_long_desc-         (unHTMLImageElement (toHTMLImageElement self)))- -foreign import javascript unsafe "$1[\"src\"] = $2;"-        ghcjs_dom_html_image_element_set_src ::-        JSRef HTMLImageElement -> JSString -> IO ()- -htmlImageElementSetSrc ::-                       (IsHTMLImageElement self, ToJSString val) => self -> val -> IO ()-htmlImageElementSetSrc self val-  = ghcjs_dom_html_image_element_set_src-      (unHTMLImageElement (toHTMLImageElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"src\"]"-        ghcjs_dom_html_image_element_get_src ::-        JSRef HTMLImageElement -> IO JSString- -htmlImageElementGetSrc ::-                       (IsHTMLImageElement self, FromJSString result) => self -> IO result-htmlImageElementGetSrc self-  = fromJSString <$>-      (ghcjs_dom_html_image_element_get_src-         (unHTMLImageElement (toHTMLImageElement self)))- -foreign import javascript unsafe "$1[\"srcset\"] = $2;"-        ghcjs_dom_html_image_element_set_srcset ::-        JSRef HTMLImageElement -> JSString -> IO ()- -htmlImageElementSetSrcset ::-                          (IsHTMLImageElement self, ToJSString val) => self -> val -> IO ()-htmlImageElementSetSrcset self val-  = ghcjs_dom_html_image_element_set_srcset-      (unHTMLImageElement (toHTMLImageElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"srcset\"]"-        ghcjs_dom_html_image_element_get_srcset ::-        JSRef HTMLImageElement -> IO JSString- -htmlImageElementGetSrcset ::-                          (IsHTMLImageElement self, FromJSString result) => self -> IO result-htmlImageElementGetSrcset self-  = fromJSString <$>-      (ghcjs_dom_html_image_element_get_srcset-         (unHTMLImageElement (toHTMLImageElement self)))- -foreign import javascript unsafe "$1[\"useMap\"] = $2;"-        ghcjs_dom_html_image_element_set_use_map ::-        JSRef HTMLImageElement -> JSString -> IO ()- -htmlImageElementSetUseMap ::-                          (IsHTMLImageElement self, ToJSString val) => self -> val -> IO ()-htmlImageElementSetUseMap self val-  = ghcjs_dom_html_image_element_set_use_map-      (unHTMLImageElement (toHTMLImageElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"useMap\"]"-        ghcjs_dom_html_image_element_get_use_map ::-        JSRef HTMLImageElement -> IO JSString- -htmlImageElementGetUseMap ::-                          (IsHTMLImageElement self, FromJSString result) => self -> IO result-htmlImageElementGetUseMap self-  = fromJSString <$>-      (ghcjs_dom_html_image_element_get_use_map-         (unHTMLImageElement (toHTMLImageElement self)))- -foreign import javascript unsafe "$1[\"vspace\"] = $2;"-        ghcjs_dom_html_image_element_set_vspace ::-        JSRef HTMLImageElement -> Int -> IO ()- -htmlImageElementSetVspace ::-                          (IsHTMLImageElement self) => self -> Int -> IO ()-htmlImageElementSetVspace self val-  = ghcjs_dom_html_image_element_set_vspace-      (unHTMLImageElement (toHTMLImageElement self))-      val- -foreign import javascript unsafe "$1[\"vspace\"]"-        ghcjs_dom_html_image_element_get_vspace ::-        JSRef HTMLImageElement -> IO Int- -htmlImageElementGetVspace ::-                          (IsHTMLImageElement self) => self -> IO Int-htmlImageElementGetVspace self-  = ghcjs_dom_html_image_element_get_vspace-      (unHTMLImageElement (toHTMLImageElement self))- -foreign import javascript unsafe "$1[\"width\"] = $2;"-        ghcjs_dom_html_image_element_set_width ::-        JSRef HTMLImageElement -> Int -> IO ()- -htmlImageElementSetWidth ::-                         (IsHTMLImageElement self) => self -> Int -> IO ()-htmlImageElementSetWidth self val-  = ghcjs_dom_html_image_element_set_width-      (unHTMLImageElement (toHTMLImageElement self))-      val- -foreign import javascript unsafe "$1[\"width\"]"-        ghcjs_dom_html_image_element_get_width ::-        JSRef HTMLImageElement -> IO Int- -htmlImageElementGetWidth ::-                         (IsHTMLImageElement self) => self -> IO Int-htmlImageElementGetWidth self-  = ghcjs_dom_html_image_element_get_width-      (unHTMLImageElement (toHTMLImageElement self))- -foreign import javascript unsafe "($1[\"complete\"] ? 1 : 0)"-        ghcjs_dom_html_image_element_get_complete ::-        JSRef HTMLImageElement -> IO Bool- -htmlImageElementGetComplete ::-                            (IsHTMLImageElement self) => self -> IO Bool-htmlImageElementGetComplete self-  = ghcjs_dom_html_image_element_get_complete-      (unHTMLImageElement (toHTMLImageElement self))- -foreign import javascript unsafe "$1[\"lowsrc\"] = $2;"-        ghcjs_dom_html_image_element_set_lowsrc ::-        JSRef HTMLImageElement -> JSString -> IO ()- -htmlImageElementSetLowsrc ::-                          (IsHTMLImageElement self, ToJSString val) => self -> val -> IO ()-htmlImageElementSetLowsrc self val-  = ghcjs_dom_html_image_element_set_lowsrc-      (unHTMLImageElement (toHTMLImageElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"lowsrc\"]"-        ghcjs_dom_html_image_element_get_lowsrc ::-        JSRef HTMLImageElement -> IO JSString- -htmlImageElementGetLowsrc ::-                          (IsHTMLImageElement self, FromJSString result) => self -> IO result-htmlImageElementGetLowsrc self-  = fromJSString <$>-      (ghcjs_dom_html_image_element_get_lowsrc-         (unHTMLImageElement (toHTMLImageElement self)))- -foreign import javascript unsafe "$1[\"naturalHeight\"]"-        ghcjs_dom_html_image_element_get_natural_height ::-        JSRef HTMLImageElement -> IO Int- -htmlImageElementGetNaturalHeight ::-                                 (IsHTMLImageElement self) => self -> IO Int-htmlImageElementGetNaturalHeight self-  = ghcjs_dom_html_image_element_get_natural_height-      (unHTMLImageElement (toHTMLImageElement self))- -foreign import javascript unsafe "$1[\"naturalWidth\"]"-        ghcjs_dom_html_image_element_get_natural_width ::-        JSRef HTMLImageElement -> IO Int- -htmlImageElementGetNaturalWidth ::-                                (IsHTMLImageElement self) => self -> IO Int-htmlImageElementGetNaturalWidth self-  = ghcjs_dom_html_image_element_get_natural_width-      (unHTMLImageElement (toHTMLImageElement self))- -foreign import javascript unsafe "$1[\"x\"]"-        ghcjs_dom_html_image_element_get_x ::-        JSRef HTMLImageElement -> IO Int- -htmlImageElementGetX :: (IsHTMLImageElement self) => self -> IO Int-htmlImageElementGetX self-  = ghcjs_dom_html_image_element_get_x-      (unHTMLImageElement (toHTMLImageElement self))- -foreign import javascript unsafe "$1[\"y\"]"-        ghcjs_dom_html_image_element_get_y ::-        JSRef HTMLImageElement -> IO Int- -htmlImageElementGetY :: (IsHTMLImageElement self) => self -> IO Int-htmlImageElementGetY self-  = ghcjs_dom_html_image_element_get_y-      (unHTMLImageElement (toHTMLImageElement self))+  module GHCJS.DOM.JSFFI.Generated.HTMLImageElement #else-module GHCJS.DOM.HTMLImageElement (   module Graphics.UI.Gtk.WebKit.DOM.HTMLImageElement+#endif   ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.HTMLImageElement+#else import Graphics.UI.Gtk.WebKit.DOM.HTMLImageElement #endif
src/GHCJS/DOM/HTMLInputElement.hs view
@@ -1,1152 +1,13 @@ {-# LANGUAGE CPP #-}-#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.HTMLInputElement-       (ghcjs_dom_html_input_element_step_up, htmlInputElementStepUp,-        ghcjs_dom_html_input_element_step_down, htmlInputElementStepDown,-        ghcjs_dom_html_input_element_check_validity,-        htmlInputElementCheckValidity,-        ghcjs_dom_html_input_element_set_custom_validity,-        htmlInputElementSetCustomValidity,-        ghcjs_dom_html_input_element_select, htmlInputElementSelect,-        ghcjs_dom_html_input_element_set_range_text,-        htmlInputElementSetRangeText,-        ghcjs_dom_html_input_element_set_range_text4,-        htmlInputElementSetRangeText4,-        ghcjs_dom_html_input_element_set_value_for_user,-        htmlInputElementSetValueForUser,-        ghcjs_dom_html_input_element_set_accept, htmlInputElementSetAccept,-        ghcjs_dom_html_input_element_get_accept, htmlInputElementGetAccept,-        ghcjs_dom_html_input_element_set_alt, htmlInputElementSetAlt,-        ghcjs_dom_html_input_element_get_alt, htmlInputElementGetAlt,-        ghcjs_dom_html_input_element_set_autocomplete,-        htmlInputElementSetAutocomplete,-        ghcjs_dom_html_input_element_get_autocomplete,-        htmlInputElementGetAutocomplete,-        ghcjs_dom_html_input_element_set_autofocus,-        htmlInputElementSetAutofocus,-        ghcjs_dom_html_input_element_get_autofocus,-        htmlInputElementGetAutofocus,-        ghcjs_dom_html_input_element_set_default_checked,-        htmlInputElementSetDefaultChecked,-        ghcjs_dom_html_input_element_get_default_checked,-        htmlInputElementGetDefaultChecked,-        ghcjs_dom_html_input_element_set_checked,-        htmlInputElementSetChecked,-        ghcjs_dom_html_input_element_get_checked,-        htmlInputElementGetChecked,-        ghcjs_dom_html_input_element_set_dir_name,-        htmlInputElementSetDirName,-        ghcjs_dom_html_input_element_get_dir_name,-        htmlInputElementGetDirName,-        ghcjs_dom_html_input_element_set_disabled,-        htmlInputElementSetDisabled,-        ghcjs_dom_html_input_element_get_disabled,-        htmlInputElementGetDisabled, ghcjs_dom_html_input_element_get_form,-        htmlInputElementGetForm, ghcjs_dom_html_input_element_set_files,-        htmlInputElementSetFiles, ghcjs_dom_html_input_element_get_files,-        htmlInputElementGetFiles,-        ghcjs_dom_html_input_element_set_form_action,-        htmlInputElementSetFormAction,-        ghcjs_dom_html_input_element_get_form_action,-        htmlInputElementGetFormAction,-        ghcjs_dom_html_input_element_set_form_enctype,-        htmlInputElementSetFormEnctype,-        ghcjs_dom_html_input_element_get_form_enctype,-        htmlInputElementGetFormEnctype,-        ghcjs_dom_html_input_element_set_form_method,-        htmlInputElementSetFormMethod,-        ghcjs_dom_html_input_element_get_form_method,-        htmlInputElementGetFormMethod,-        ghcjs_dom_html_input_element_set_form_no_validate,-        htmlInputElementSetFormNoValidate,-        ghcjs_dom_html_input_element_get_form_no_validate,-        htmlInputElementGetFormNoValidate,-        ghcjs_dom_html_input_element_set_form_target,-        htmlInputElementSetFormTarget,-        ghcjs_dom_html_input_element_get_form_target,-        htmlInputElementGetFormTarget,-        ghcjs_dom_html_input_element_set_height, htmlInputElementSetHeight,-        ghcjs_dom_html_input_element_get_height, htmlInputElementGetHeight,-        ghcjs_dom_html_input_element_set_indeterminate,-        htmlInputElementSetIndeterminate,-        ghcjs_dom_html_input_element_get_indeterminate,-        htmlInputElementGetIndeterminate,-        ghcjs_dom_html_input_element_get_list, htmlInputElementGetList,-        ghcjs_dom_html_input_element_set_max, htmlInputElementSetMax,-        ghcjs_dom_html_input_element_get_max, htmlInputElementGetMax,-        ghcjs_dom_html_input_element_set_max_length,-        htmlInputElementSetMaxLength,-        ghcjs_dom_html_input_element_get_max_length,-        htmlInputElementGetMaxLength, ghcjs_dom_html_input_element_set_min,-        htmlInputElementSetMin, ghcjs_dom_html_input_element_get_min,-        htmlInputElementGetMin, ghcjs_dom_html_input_element_set_multiple,-        htmlInputElementSetMultiple,-        ghcjs_dom_html_input_element_get_multiple,-        htmlInputElementGetMultiple, ghcjs_dom_html_input_element_set_name,-        htmlInputElementSetName, ghcjs_dom_html_input_element_get_name,-        htmlInputElementGetName, ghcjs_dom_html_input_element_set_pattern,-        htmlInputElementSetPattern,-        ghcjs_dom_html_input_element_get_pattern,-        htmlInputElementGetPattern,-        ghcjs_dom_html_input_element_set_placeholder,-        htmlInputElementSetPlaceholder,-        ghcjs_dom_html_input_element_get_placeholder,-        htmlInputElementGetPlaceholder,-        ghcjs_dom_html_input_element_set_read_only,-        htmlInputElementSetReadOnly,-        ghcjs_dom_html_input_element_get_read_only,-        htmlInputElementGetReadOnly,-        ghcjs_dom_html_input_element_set_required,-        htmlInputElementSetRequired,-        ghcjs_dom_html_input_element_get_required,-        htmlInputElementGetRequired, ghcjs_dom_html_input_element_set_size,-        htmlInputElementSetSize, ghcjs_dom_html_input_element_get_size,-        htmlInputElementGetSize, ghcjs_dom_html_input_element_set_src,-        htmlInputElementSetSrc, ghcjs_dom_html_input_element_get_src,-        htmlInputElementGetSrc, ghcjs_dom_html_input_element_set_step,-        htmlInputElementSetStep, ghcjs_dom_html_input_element_get_step,-        htmlInputElementGetStep,-        ghcjs_dom_html_input_element_set_default_value,-        htmlInputElementSetDefaultValue,-        ghcjs_dom_html_input_element_get_default_value,-        htmlInputElementGetDefaultValue,-        ghcjs_dom_html_input_element_set_value, htmlInputElementSetValue,-        ghcjs_dom_html_input_element_get_value, htmlInputElementGetValue,-        ghcjs_dom_html_input_element_set_value_as_number,-        htmlInputElementSetValueAsNumber,-        ghcjs_dom_html_input_element_get_value_as_number,-        htmlInputElementGetValueAsNumber,-        ghcjs_dom_html_input_element_set_width, htmlInputElementSetWidth,-        ghcjs_dom_html_input_element_get_width, htmlInputElementGetWidth,-        ghcjs_dom_html_input_element_get_will_validate,-        htmlInputElementGetWillValidate,-        ghcjs_dom_html_input_element_get_validity,-        htmlInputElementGetValidity,-        ghcjs_dom_html_input_element_get_validation_message,-        htmlInputElementGetValidationMessage,-        ghcjs_dom_html_input_element_get_labels, htmlInputElementGetLabels,-        ghcjs_dom_html_input_element_set_align, htmlInputElementSetAlign,-        ghcjs_dom_html_input_element_get_align, htmlInputElementGetAlign,-        ghcjs_dom_html_input_element_set_use_map,-        htmlInputElementSetUseMap,-        ghcjs_dom_html_input_element_get_use_map,-        htmlInputElementGetUseMap,-        ghcjs_dom_html_input_element_set_incremental,-        htmlInputElementSetIncremental,-        ghcjs_dom_html_input_element_get_incremental,-        htmlInputElementGetIncremental,-        ghcjs_dom_html_input_element_set_autocorrect,-        htmlInputElementSetAutocorrect,-        ghcjs_dom_html_input_element_get_autocorrect,-        htmlInputElementGetAutocorrect,-        ghcjs_dom_html_input_element_set_autocapitalize,-        htmlInputElementSetAutocapitalize,-        ghcjs_dom_html_input_element_get_autocapitalize,-        htmlInputElementGetAutocapitalize,-        ghcjs_dom_html_input_element_set_capture,-        htmlInputElementSetCapture,-        ghcjs_dom_html_input_element_get_capture,-        htmlInputElementGetCapture, HTMLInputElement, IsHTMLInputElement,-        castToHTMLInputElement, gTypeHTMLInputElement, toHTMLInputElement)-       where-import GHCJS.Types-import GHCJS.Foreign-import GHCJS.Marshal-import Data.Int-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-- -foreign import javascript unsafe "$1[\"stepUp\"]($2)"-        ghcjs_dom_html_input_element_step_up ::-        JSRef HTMLInputElement -> Int -> IO ()- -htmlInputElementStepUp ::-                       (IsHTMLInputElement self) => self -> Int -> IO ()-htmlInputElementStepUp self n-  = ghcjs_dom_html_input_element_step_up-      (unHTMLInputElement (toHTMLInputElement self))-      n- -foreign import javascript unsafe "$1[\"stepDown\"]($2)"-        ghcjs_dom_html_input_element_step_down ::-        JSRef HTMLInputElement -> Int -> IO ()- -htmlInputElementStepDown ::-                         (IsHTMLInputElement self) => self -> Int -> IO ()-htmlInputElementStepDown self n-  = ghcjs_dom_html_input_element_step_down-      (unHTMLInputElement (toHTMLInputElement self))-      n- -foreign import javascript unsafe-        "($1[\"checkValidity\"]() ? 1 : 0)"-        ghcjs_dom_html_input_element_check_validity ::-        JSRef HTMLInputElement -> IO Bool- -htmlInputElementCheckValidity ::-                              (IsHTMLInputElement self) => self -> IO Bool-htmlInputElementCheckValidity self-  = ghcjs_dom_html_input_element_check_validity-      (unHTMLInputElement (toHTMLInputElement self))- -foreign import javascript unsafe "$1[\"setCustomValidity\"]($2)"-        ghcjs_dom_html_input_element_set_custom_validity ::-        JSRef HTMLInputElement -> JSString -> IO ()- -htmlInputElementSetCustomValidity ::-                                  (IsHTMLInputElement self, ToJSString error) =>-                                    self -> error -> IO ()-htmlInputElementSetCustomValidity self error-  = ghcjs_dom_html_input_element_set_custom_validity-      (unHTMLInputElement (toHTMLInputElement self))-      (toJSString error)- -foreign import javascript unsafe "$1[\"select\"]()"-        ghcjs_dom_html_input_element_select ::-        JSRef HTMLInputElement -> IO ()- -htmlInputElementSelect ::-                       (IsHTMLInputElement self) => self -> IO ()-htmlInputElementSelect self-  = ghcjs_dom_html_input_element_select-      (unHTMLInputElement (toHTMLInputElement self))- -foreign import javascript unsafe "$1[\"setRangeText\"]($2)"-        ghcjs_dom_html_input_element_set_range_text ::-        JSRef HTMLInputElement -> JSString -> IO ()- -htmlInputElementSetRangeText ::-                             (IsHTMLInputElement self, ToJSString replacement) =>-                               self -> replacement -> IO ()-htmlInputElementSetRangeText self replacement-  = ghcjs_dom_html_input_element_set_range_text-      (unHTMLInputElement (toHTMLInputElement self))-      (toJSString replacement)- -foreign import javascript unsafe-        "$1[\"setRangeText\"]($2, $3, $4,\n$5)"-        ghcjs_dom_html_input_element_set_range_text4 ::-        JSRef HTMLInputElement ->-          JSString -> Word -> Word -> JSString -> IO ()- -htmlInputElementSetRangeText4 ::-                              (IsHTMLInputElement self, ToJSString replacement,-                               ToJSString selectionMode) =>-                                self -> replacement -> Word -> Word -> selectionMode -> IO ()-htmlInputElementSetRangeText4 self replacement start end-  selectionMode-  = ghcjs_dom_html_input_element_set_range_text4-      (unHTMLInputElement (toHTMLInputElement self))-      (toJSString replacement)-      start-      end-      (toJSString selectionMode)- -foreign import javascript unsafe "$1[\"setValueForUser\"]($2)"-        ghcjs_dom_html_input_element_set_value_for_user ::-        JSRef HTMLInputElement -> JSString -> IO ()- -htmlInputElementSetValueForUser ::-                                (IsHTMLInputElement self, ToJSString value) =>-                                  self -> value -> IO ()-htmlInputElementSetValueForUser self value-  = ghcjs_dom_html_input_element_set_value_for_user-      (unHTMLInputElement (toHTMLInputElement self))-      (toJSString value)- -foreign import javascript unsafe "$1[\"accept\"] = $2;"-        ghcjs_dom_html_input_element_set_accept ::-        JSRef HTMLInputElement -> JSString -> IO ()- -htmlInputElementSetAccept ::-                          (IsHTMLInputElement self, ToJSString val) => self -> val -> IO ()-htmlInputElementSetAccept self val-  = ghcjs_dom_html_input_element_set_accept-      (unHTMLInputElement (toHTMLInputElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"accept\"]"-        ghcjs_dom_html_input_element_get_accept ::-        JSRef HTMLInputElement -> IO JSString- -htmlInputElementGetAccept ::-                          (IsHTMLInputElement self, FromJSString result) => self -> IO result-htmlInputElementGetAccept self-  = fromJSString <$>-      (ghcjs_dom_html_input_element_get_accept-         (unHTMLInputElement (toHTMLInputElement self)))- -foreign import javascript unsafe "$1[\"alt\"] = $2;"-        ghcjs_dom_html_input_element_set_alt ::-        JSRef HTMLInputElement -> JSString -> IO ()- -htmlInputElementSetAlt ::-                       (IsHTMLInputElement self, ToJSString val) => self -> val -> IO ()-htmlInputElementSetAlt self val-  = ghcjs_dom_html_input_element_set_alt-      (unHTMLInputElement (toHTMLInputElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"alt\"]"-        ghcjs_dom_html_input_element_get_alt ::-        JSRef HTMLInputElement -> IO JSString- -htmlInputElementGetAlt ::-                       (IsHTMLInputElement self, FromJSString result) => self -> IO result-htmlInputElementGetAlt self-  = fromJSString <$>-      (ghcjs_dom_html_input_element_get_alt-         (unHTMLInputElement (toHTMLInputElement self)))- -foreign import javascript unsafe "$1[\"autocomplete\"] = $2;"-        ghcjs_dom_html_input_element_set_autocomplete ::-        JSRef HTMLInputElement -> JSString -> IO ()- -htmlInputElementSetAutocomplete ::-                                (IsHTMLInputElement self, ToJSString val) => self -> val -> IO ()-htmlInputElementSetAutocomplete self val-  = ghcjs_dom_html_input_element_set_autocomplete-      (unHTMLInputElement (toHTMLInputElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"autocomplete\"]"-        ghcjs_dom_html_input_element_get_autocomplete ::-        JSRef HTMLInputElement -> IO JSString- -htmlInputElementGetAutocomplete ::-                                (IsHTMLInputElement self, FromJSString result) => self -> IO result-htmlInputElementGetAutocomplete self-  = fromJSString <$>-      (ghcjs_dom_html_input_element_get_autocomplete-         (unHTMLInputElement (toHTMLInputElement self)))- -foreign import javascript unsafe "$1[\"autofocus\"] = $2;"-        ghcjs_dom_html_input_element_set_autofocus ::-        JSRef HTMLInputElement -> Bool -> IO ()- -htmlInputElementSetAutofocus ::-                             (IsHTMLInputElement self) => self -> Bool -> IO ()-htmlInputElementSetAutofocus self val-  = ghcjs_dom_html_input_element_set_autofocus-      (unHTMLInputElement (toHTMLInputElement self))-      val- -foreign import javascript unsafe "($1[\"autofocus\"] ? 1 : 0)"-        ghcjs_dom_html_input_element_get_autofocus ::-        JSRef HTMLInputElement -> IO Bool- -htmlInputElementGetAutofocus ::-                             (IsHTMLInputElement self) => self -> IO Bool-htmlInputElementGetAutofocus self-  = ghcjs_dom_html_input_element_get_autofocus-      (unHTMLInputElement (toHTMLInputElement self))- -foreign import javascript unsafe "$1[\"defaultChecked\"] = $2;"-        ghcjs_dom_html_input_element_set_default_checked ::-        JSRef HTMLInputElement -> Bool -> IO ()- -htmlInputElementSetDefaultChecked ::-                                  (IsHTMLInputElement self) => self -> Bool -> IO ()-htmlInputElementSetDefaultChecked self val-  = ghcjs_dom_html_input_element_set_default_checked-      (unHTMLInputElement (toHTMLInputElement self))-      val- -foreign import javascript unsafe "($1[\"defaultChecked\"] ? 1 : 0)"-        ghcjs_dom_html_input_element_get_default_checked ::-        JSRef HTMLInputElement -> IO Bool- -htmlInputElementGetDefaultChecked ::-                                  (IsHTMLInputElement self) => self -> IO Bool-htmlInputElementGetDefaultChecked self-  = ghcjs_dom_html_input_element_get_default_checked-      (unHTMLInputElement (toHTMLInputElement self))- -foreign import javascript unsafe "$1[\"checked\"] = $2;"-        ghcjs_dom_html_input_element_set_checked ::-        JSRef HTMLInputElement -> Bool -> IO ()- -htmlInputElementSetChecked ::-                           (IsHTMLInputElement self) => self -> Bool -> IO ()-htmlInputElementSetChecked self val-  = ghcjs_dom_html_input_element_set_checked-      (unHTMLInputElement (toHTMLInputElement self))-      val- -foreign import javascript unsafe "($1[\"checked\"] ? 1 : 0)"-        ghcjs_dom_html_input_element_get_checked ::-        JSRef HTMLInputElement -> IO Bool- -htmlInputElementGetChecked ::-                           (IsHTMLInputElement self) => self -> IO Bool-htmlInputElementGetChecked self-  = ghcjs_dom_html_input_element_get_checked-      (unHTMLInputElement (toHTMLInputElement self))- -foreign import javascript unsafe "$1[\"dirName\"] = $2;"-        ghcjs_dom_html_input_element_set_dir_name ::-        JSRef HTMLInputElement -> JSString -> IO ()- -htmlInputElementSetDirName ::-                           (IsHTMLInputElement self, ToJSString val) => self -> val -> IO ()-htmlInputElementSetDirName self val-  = ghcjs_dom_html_input_element_set_dir_name-      (unHTMLInputElement (toHTMLInputElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"dirName\"]"-        ghcjs_dom_html_input_element_get_dir_name ::-        JSRef HTMLInputElement -> IO JSString- -htmlInputElementGetDirName ::-                           (IsHTMLInputElement self, FromJSString result) => self -> IO result-htmlInputElementGetDirName self-  = fromJSString <$>-      (ghcjs_dom_html_input_element_get_dir_name-         (unHTMLInputElement (toHTMLInputElement self)))- -foreign import javascript unsafe "$1[\"disabled\"] = $2;"-        ghcjs_dom_html_input_element_set_disabled ::-        JSRef HTMLInputElement -> Bool -> IO ()- -htmlInputElementSetDisabled ::-                            (IsHTMLInputElement self) => self -> Bool -> IO ()-htmlInputElementSetDisabled self val-  = ghcjs_dom_html_input_element_set_disabled-      (unHTMLInputElement (toHTMLInputElement self))-      val- -foreign import javascript unsafe "($1[\"disabled\"] ? 1 : 0)"-        ghcjs_dom_html_input_element_get_disabled ::-        JSRef HTMLInputElement -> IO Bool- -htmlInputElementGetDisabled ::-                            (IsHTMLInputElement self) => self -> IO Bool-htmlInputElementGetDisabled self-  = ghcjs_dom_html_input_element_get_disabled-      (unHTMLInputElement (toHTMLInputElement self))- -foreign import javascript unsafe "$1[\"form\"]"-        ghcjs_dom_html_input_element_get_form ::-        JSRef HTMLInputElement -> IO (JSRef HTMLFormElement)- -htmlInputElementGetForm ::-                        (IsHTMLInputElement self) => self -> IO (Maybe HTMLFormElement)-htmlInputElementGetForm self-  = fmap HTMLFormElement . maybeJSNull <$>-      (ghcjs_dom_html_input_element_get_form-         (unHTMLInputElement (toHTMLInputElement self)))- -foreign import javascript unsafe "$1[\"files\"] = $2;"-        ghcjs_dom_html_input_element_set_files ::-        JSRef HTMLInputElement -> JSRef FileList -> IO ()- -htmlInputElementSetFiles ::-                         (IsHTMLInputElement self, IsFileList val) =>-                           self -> Maybe val -> IO ()-htmlInputElementSetFiles self val-  = ghcjs_dom_html_input_element_set_files-      (unHTMLInputElement (toHTMLInputElement self))-      (maybe jsNull (unFileList . toFileList) val)- -foreign import javascript unsafe "$1[\"files\"]"-        ghcjs_dom_html_input_element_get_files ::-        JSRef HTMLInputElement -> IO (JSRef FileList)- -htmlInputElementGetFiles ::-                         (IsHTMLInputElement self) => self -> IO (Maybe FileList)-htmlInputElementGetFiles self-  = fmap FileList . maybeJSNull <$>-      (ghcjs_dom_html_input_element_get_files-         (unHTMLInputElement (toHTMLInputElement self)))- -foreign import javascript unsafe "$1[\"formAction\"] = $2;"-        ghcjs_dom_html_input_element_set_form_action ::-        JSRef HTMLInputElement -> JSString -> IO ()- -htmlInputElementSetFormAction ::-                              (IsHTMLInputElement self, ToJSString val) => self -> val -> IO ()-htmlInputElementSetFormAction self val-  = ghcjs_dom_html_input_element_set_form_action-      (unHTMLInputElement (toHTMLInputElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"formAction\"]"-        ghcjs_dom_html_input_element_get_form_action ::-        JSRef HTMLInputElement -> IO JSString- -htmlInputElementGetFormAction ::-                              (IsHTMLInputElement self, FromJSString result) => self -> IO result-htmlInputElementGetFormAction self-  = fromJSString <$>-      (ghcjs_dom_html_input_element_get_form_action-         (unHTMLInputElement (toHTMLInputElement self)))- -foreign import javascript unsafe "$1[\"formEnctype\"] = $2;"-        ghcjs_dom_html_input_element_set_form_enctype ::-        JSRef HTMLInputElement -> JSString -> IO ()- -htmlInputElementSetFormEnctype ::-                               (IsHTMLInputElement self, ToJSString val) => self -> val -> IO ()-htmlInputElementSetFormEnctype self val-  = ghcjs_dom_html_input_element_set_form_enctype-      (unHTMLInputElement (toHTMLInputElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"formEnctype\"]"-        ghcjs_dom_html_input_element_get_form_enctype ::-        JSRef HTMLInputElement -> IO JSString- -htmlInputElementGetFormEnctype ::-                               (IsHTMLInputElement self, FromJSString result) => self -> IO result-htmlInputElementGetFormEnctype self-  = fromJSString <$>-      (ghcjs_dom_html_input_element_get_form_enctype-         (unHTMLInputElement (toHTMLInputElement self)))- -foreign import javascript unsafe "$1[\"formMethod\"] = $2;"-        ghcjs_dom_html_input_element_set_form_method ::-        JSRef HTMLInputElement -> JSString -> IO ()- -htmlInputElementSetFormMethod ::-                              (IsHTMLInputElement self, ToJSString val) => self -> val -> IO ()-htmlInputElementSetFormMethod self val-  = ghcjs_dom_html_input_element_set_form_method-      (unHTMLInputElement (toHTMLInputElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"formMethod\"]"-        ghcjs_dom_html_input_element_get_form_method ::-        JSRef HTMLInputElement -> IO JSString- -htmlInputElementGetFormMethod ::-                              (IsHTMLInputElement self, FromJSString result) => self -> IO result-htmlInputElementGetFormMethod self-  = fromJSString <$>-      (ghcjs_dom_html_input_element_get_form_method-         (unHTMLInputElement (toHTMLInputElement self)))- -foreign import javascript unsafe "$1[\"formNoValidate\"] = $2;"-        ghcjs_dom_html_input_element_set_form_no_validate ::-        JSRef HTMLInputElement -> Bool -> IO ()- -htmlInputElementSetFormNoValidate ::-                                  (IsHTMLInputElement self) => self -> Bool -> IO ()-htmlInputElementSetFormNoValidate self val-  = ghcjs_dom_html_input_element_set_form_no_validate-      (unHTMLInputElement (toHTMLInputElement self))-      val- -foreign import javascript unsafe "($1[\"formNoValidate\"] ? 1 : 0)"-        ghcjs_dom_html_input_element_get_form_no_validate ::-        JSRef HTMLInputElement -> IO Bool- -htmlInputElementGetFormNoValidate ::-                                  (IsHTMLInputElement self) => self -> IO Bool-htmlInputElementGetFormNoValidate self-  = ghcjs_dom_html_input_element_get_form_no_validate-      (unHTMLInputElement (toHTMLInputElement self))- -foreign import javascript unsafe "$1[\"formTarget\"] = $2;"-        ghcjs_dom_html_input_element_set_form_target ::-        JSRef HTMLInputElement -> JSString -> IO ()- -htmlInputElementSetFormTarget ::-                              (IsHTMLInputElement self, ToJSString val) => self -> val -> IO ()-htmlInputElementSetFormTarget self val-  = ghcjs_dom_html_input_element_set_form_target-      (unHTMLInputElement (toHTMLInputElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"formTarget\"]"-        ghcjs_dom_html_input_element_get_form_target ::-        JSRef HTMLInputElement -> IO JSString- -htmlInputElementGetFormTarget ::-                              (IsHTMLInputElement self, FromJSString result) => self -> IO result-htmlInputElementGetFormTarget self-  = fromJSString <$>-      (ghcjs_dom_html_input_element_get_form_target-         (unHTMLInputElement (toHTMLInputElement self)))- -foreign import javascript unsafe "$1[\"height\"] = $2;"-        ghcjs_dom_html_input_element_set_height ::-        JSRef HTMLInputElement -> Word -> IO ()- -htmlInputElementSetHeight ::-                          (IsHTMLInputElement self) => self -> Word -> IO ()-htmlInputElementSetHeight self val-  = ghcjs_dom_html_input_element_set_height-      (unHTMLInputElement (toHTMLInputElement self))-      val- -foreign import javascript unsafe "$1[\"height\"]"-        ghcjs_dom_html_input_element_get_height ::-        JSRef HTMLInputElement -> IO Word- -htmlInputElementGetHeight ::-                          (IsHTMLInputElement self) => self -> IO Word-htmlInputElementGetHeight self-  = ghcjs_dom_html_input_element_get_height-      (unHTMLInputElement (toHTMLInputElement self))- -foreign import javascript unsafe "$1[\"indeterminate\"] = $2;"-        ghcjs_dom_html_input_element_set_indeterminate ::-        JSRef HTMLInputElement -> Bool -> IO ()- -htmlInputElementSetIndeterminate ::-                                 (IsHTMLInputElement self) => self -> Bool -> IO ()-htmlInputElementSetIndeterminate self val-  = ghcjs_dom_html_input_element_set_indeterminate-      (unHTMLInputElement (toHTMLInputElement self))-      val- -foreign import javascript unsafe "($1[\"indeterminate\"] ? 1 : 0)"-        ghcjs_dom_html_input_element_get_indeterminate ::-        JSRef HTMLInputElement -> IO Bool- -htmlInputElementGetIndeterminate ::-                                 (IsHTMLInputElement self) => self -> IO Bool-htmlInputElementGetIndeterminate self-  = ghcjs_dom_html_input_element_get_indeterminate-      (unHTMLInputElement (toHTMLInputElement self))- -foreign import javascript unsafe "$1[\"list\"]"-        ghcjs_dom_html_input_element_get_list ::-        JSRef HTMLInputElement -> IO (JSRef HTMLElement)- -htmlInputElementGetList ::-                        (IsHTMLInputElement self) => self -> IO (Maybe HTMLElement)-htmlInputElementGetList self-  = fmap HTMLElement . maybeJSNull <$>-      (ghcjs_dom_html_input_element_get_list-         (unHTMLInputElement (toHTMLInputElement self)))- -foreign import javascript unsafe "$1[\"max\"] = $2;"-        ghcjs_dom_html_input_element_set_max ::-        JSRef HTMLInputElement -> JSString -> IO ()- -htmlInputElementSetMax ::-                       (IsHTMLInputElement self, ToJSString val) => self -> val -> IO ()-htmlInputElementSetMax self val-  = ghcjs_dom_html_input_element_set_max-      (unHTMLInputElement (toHTMLInputElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"max\"]"-        ghcjs_dom_html_input_element_get_max ::-        JSRef HTMLInputElement -> IO JSString- -htmlInputElementGetMax ::-                       (IsHTMLInputElement self, FromJSString result) => self -> IO result-htmlInputElementGetMax self-  = fromJSString <$>-      (ghcjs_dom_html_input_element_get_max-         (unHTMLInputElement (toHTMLInputElement self)))- -foreign import javascript unsafe "$1[\"maxLength\"] = $2;"-        ghcjs_dom_html_input_element_set_max_length ::-        JSRef HTMLInputElement -> Int -> IO ()- -htmlInputElementSetMaxLength ::-                             (IsHTMLInputElement self) => self -> Int -> IO ()-htmlInputElementSetMaxLength self val-  = ghcjs_dom_html_input_element_set_max_length-      (unHTMLInputElement (toHTMLInputElement self))-      val- -foreign import javascript unsafe "$1[\"maxLength\"]"-        ghcjs_dom_html_input_element_get_max_length ::-        JSRef HTMLInputElement -> IO Int- -htmlInputElementGetMaxLength ::-                             (IsHTMLInputElement self) => self -> IO Int-htmlInputElementGetMaxLength self-  = ghcjs_dom_html_input_element_get_max_length-      (unHTMLInputElement (toHTMLInputElement self))- -foreign import javascript unsafe "$1[\"min\"] = $2;"-        ghcjs_dom_html_input_element_set_min ::-        JSRef HTMLInputElement -> JSString -> IO ()- -htmlInputElementSetMin ::-                       (IsHTMLInputElement self, ToJSString val) => self -> val -> IO ()-htmlInputElementSetMin self val-  = ghcjs_dom_html_input_element_set_min-      (unHTMLInputElement (toHTMLInputElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"min\"]"-        ghcjs_dom_html_input_element_get_min ::-        JSRef HTMLInputElement -> IO JSString- -htmlInputElementGetMin ::-                       (IsHTMLInputElement self, FromJSString result) => self -> IO result-htmlInputElementGetMin self-  = fromJSString <$>-      (ghcjs_dom_html_input_element_get_min-         (unHTMLInputElement (toHTMLInputElement self)))- -foreign import javascript unsafe "$1[\"multiple\"] = $2;"-        ghcjs_dom_html_input_element_set_multiple ::-        JSRef HTMLInputElement -> Bool -> IO ()- -htmlInputElementSetMultiple ::-                            (IsHTMLInputElement self) => self -> Bool -> IO ()-htmlInputElementSetMultiple self val-  = ghcjs_dom_html_input_element_set_multiple-      (unHTMLInputElement (toHTMLInputElement self))-      val- -foreign import javascript unsafe "($1[\"multiple\"] ? 1 : 0)"-        ghcjs_dom_html_input_element_get_multiple ::-        JSRef HTMLInputElement -> IO Bool- -htmlInputElementGetMultiple ::-                            (IsHTMLInputElement self) => self -> IO Bool-htmlInputElementGetMultiple self-  = ghcjs_dom_html_input_element_get_multiple-      (unHTMLInputElement (toHTMLInputElement self))- -foreign import javascript unsafe "$1[\"name\"] = $2;"-        ghcjs_dom_html_input_element_set_name ::-        JSRef HTMLInputElement -> JSString -> IO ()- -htmlInputElementSetName ::-                        (IsHTMLInputElement self, ToJSString val) => self -> val -> IO ()-htmlInputElementSetName self val-  = ghcjs_dom_html_input_element_set_name-      (unHTMLInputElement (toHTMLInputElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"name\"]"-        ghcjs_dom_html_input_element_get_name ::-        JSRef HTMLInputElement -> IO JSString- -htmlInputElementGetName ::-                        (IsHTMLInputElement self, FromJSString result) => self -> IO result-htmlInputElementGetName self-  = fromJSString <$>-      (ghcjs_dom_html_input_element_get_name-         (unHTMLInputElement (toHTMLInputElement self)))- -foreign import javascript unsafe "$1[\"pattern\"] = $2;"-        ghcjs_dom_html_input_element_set_pattern ::-        JSRef HTMLInputElement -> JSString -> IO ()- -htmlInputElementSetPattern ::-                           (IsHTMLInputElement self, ToJSString val) => self -> val -> IO ()-htmlInputElementSetPattern self val-  = ghcjs_dom_html_input_element_set_pattern-      (unHTMLInputElement (toHTMLInputElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"pattern\"]"-        ghcjs_dom_html_input_element_get_pattern ::-        JSRef HTMLInputElement -> IO JSString- -htmlInputElementGetPattern ::-                           (IsHTMLInputElement self, FromJSString result) => self -> IO result-htmlInputElementGetPattern self-  = fromJSString <$>-      (ghcjs_dom_html_input_element_get_pattern-         (unHTMLInputElement (toHTMLInputElement self)))- -foreign import javascript unsafe "$1[\"placeholder\"] = $2;"-        ghcjs_dom_html_input_element_set_placeholder ::-        JSRef HTMLInputElement -> JSString -> IO ()- -htmlInputElementSetPlaceholder ::-                               (IsHTMLInputElement self, ToJSString val) => self -> val -> IO ()-htmlInputElementSetPlaceholder self val-  = ghcjs_dom_html_input_element_set_placeholder-      (unHTMLInputElement (toHTMLInputElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"placeholder\"]"-        ghcjs_dom_html_input_element_get_placeholder ::-        JSRef HTMLInputElement -> IO JSString- -htmlInputElementGetPlaceholder ::-                               (IsHTMLInputElement self, FromJSString result) => self -> IO result-htmlInputElementGetPlaceholder self-  = fromJSString <$>-      (ghcjs_dom_html_input_element_get_placeholder-         (unHTMLInputElement (toHTMLInputElement self)))- -foreign import javascript unsafe "$1[\"readOnly\"] = $2;"-        ghcjs_dom_html_input_element_set_read_only ::-        JSRef HTMLInputElement -> Bool -> IO ()- -htmlInputElementSetReadOnly ::-                            (IsHTMLInputElement self) => self -> Bool -> IO ()-htmlInputElementSetReadOnly self val-  = ghcjs_dom_html_input_element_set_read_only-      (unHTMLInputElement (toHTMLInputElement self))-      val- -foreign import javascript unsafe "($1[\"readOnly\"] ? 1 : 0)"-        ghcjs_dom_html_input_element_get_read_only ::-        JSRef HTMLInputElement -> IO Bool- -htmlInputElementGetReadOnly ::-                            (IsHTMLInputElement self) => self -> IO Bool-htmlInputElementGetReadOnly self-  = ghcjs_dom_html_input_element_get_read_only-      (unHTMLInputElement (toHTMLInputElement self))- -foreign import javascript unsafe "$1[\"required\"] = $2;"-        ghcjs_dom_html_input_element_set_required ::-        JSRef HTMLInputElement -> Bool -> IO ()- -htmlInputElementSetRequired ::-                            (IsHTMLInputElement self) => self -> Bool -> IO ()-htmlInputElementSetRequired self val-  = ghcjs_dom_html_input_element_set_required-      (unHTMLInputElement (toHTMLInputElement self))-      val- -foreign import javascript unsafe "($1[\"required\"] ? 1 : 0)"-        ghcjs_dom_html_input_element_get_required ::-        JSRef HTMLInputElement -> IO Bool- -htmlInputElementGetRequired ::-                            (IsHTMLInputElement self) => self -> IO Bool-htmlInputElementGetRequired self-  = ghcjs_dom_html_input_element_get_required-      (unHTMLInputElement (toHTMLInputElement self))- -foreign import javascript unsafe "$1[\"size\"] = $2;"-        ghcjs_dom_html_input_element_set_size ::-        JSRef HTMLInputElement -> Word -> IO ()- -htmlInputElementSetSize ::-                        (IsHTMLInputElement self) => self -> Word -> IO ()-htmlInputElementSetSize self val-  = ghcjs_dom_html_input_element_set_size-      (unHTMLInputElement (toHTMLInputElement self))-      val- -foreign import javascript unsafe "$1[\"size\"]"-        ghcjs_dom_html_input_element_get_size ::-        JSRef HTMLInputElement -> IO Word- -htmlInputElementGetSize ::-                        (IsHTMLInputElement self) => self -> IO Word-htmlInputElementGetSize self-  = ghcjs_dom_html_input_element_get_size-      (unHTMLInputElement (toHTMLInputElement self))- -foreign import javascript unsafe "$1[\"src\"] = $2;"-        ghcjs_dom_html_input_element_set_src ::-        JSRef HTMLInputElement -> JSString -> IO ()- -htmlInputElementSetSrc ::-                       (IsHTMLInputElement self, ToJSString val) => self -> val -> IO ()-htmlInputElementSetSrc self val-  = ghcjs_dom_html_input_element_set_src-      (unHTMLInputElement (toHTMLInputElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"src\"]"-        ghcjs_dom_html_input_element_get_src ::-        JSRef HTMLInputElement -> IO JSString- -htmlInputElementGetSrc ::-                       (IsHTMLInputElement self, FromJSString result) => self -> IO result-htmlInputElementGetSrc self-  = fromJSString <$>-      (ghcjs_dom_html_input_element_get_src-         (unHTMLInputElement (toHTMLInputElement self)))- -foreign import javascript unsafe "$1[\"step\"] = $2;"-        ghcjs_dom_html_input_element_set_step ::-        JSRef HTMLInputElement -> JSString -> IO ()- -htmlInputElementSetStep ::-                        (IsHTMLInputElement self, ToJSString val) => self -> val -> IO ()-htmlInputElementSetStep self val-  = ghcjs_dom_html_input_element_set_step-      (unHTMLInputElement (toHTMLInputElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"step\"]"-        ghcjs_dom_html_input_element_get_step ::-        JSRef HTMLInputElement -> IO JSString- -htmlInputElementGetStep ::-                        (IsHTMLInputElement self, FromJSString result) => self -> IO result-htmlInputElementGetStep self-  = fromJSString <$>-      (ghcjs_dom_html_input_element_get_step-         (unHTMLInputElement (toHTMLInputElement self)))- -foreign import javascript unsafe "$1[\"defaultValue\"] = $2;"-        ghcjs_dom_html_input_element_set_default_value ::-        JSRef HTMLInputElement -> JSString -> IO ()- -htmlInputElementSetDefaultValue ::-                                (IsHTMLInputElement self, ToJSString val) => self -> val -> IO ()-htmlInputElementSetDefaultValue self val-  = ghcjs_dom_html_input_element_set_default_value-      (unHTMLInputElement (toHTMLInputElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"defaultValue\"]"-        ghcjs_dom_html_input_element_get_default_value ::-        JSRef HTMLInputElement -> IO JSString- -htmlInputElementGetDefaultValue ::-                                (IsHTMLInputElement self, FromJSString result) => self -> IO result-htmlInputElementGetDefaultValue self-  = fromJSString <$>-      (ghcjs_dom_html_input_element_get_default_value-         (unHTMLInputElement (toHTMLInputElement self)))- -foreign import javascript unsafe "$1[\"value\"] = $2;"-        ghcjs_dom_html_input_element_set_value ::-        JSRef HTMLInputElement -> JSString -> IO ()- -htmlInputElementSetValue ::-                         (IsHTMLInputElement self, ToJSString val) => self -> val -> IO ()-htmlInputElementSetValue self val-  = ghcjs_dom_html_input_element_set_value-      (unHTMLInputElement (toHTMLInputElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"value\"]"-        ghcjs_dom_html_input_element_get_value ::-        JSRef HTMLInputElement -> IO JSString- -htmlInputElementGetValue ::-                         (IsHTMLInputElement self, FromJSString result) => self -> IO result-htmlInputElementGetValue self-  = fromJSString <$>-      (ghcjs_dom_html_input_element_get_value-         (unHTMLInputElement (toHTMLInputElement self)))- -foreign import javascript unsafe "$1[\"valueAsNumber\"] = $2;"-        ghcjs_dom_html_input_element_set_value_as_number ::-        JSRef HTMLInputElement -> Double -> IO ()- -htmlInputElementSetValueAsNumber ::-                                 (IsHTMLInputElement self) => self -> Double -> IO ()-htmlInputElementSetValueAsNumber self val-  = ghcjs_dom_html_input_element_set_value_as_number-      (unHTMLInputElement (toHTMLInputElement self))-      val- -foreign import javascript unsafe "$1[\"valueAsNumber\"]"-        ghcjs_dom_html_input_element_get_value_as_number ::-        JSRef HTMLInputElement -> IO Double- -htmlInputElementGetValueAsNumber ::-                                 (IsHTMLInputElement self) => self -> IO Double-htmlInputElementGetValueAsNumber self-  = ghcjs_dom_html_input_element_get_value_as_number-      (unHTMLInputElement (toHTMLInputElement self))- -foreign import javascript unsafe "$1[\"width\"] = $2;"-        ghcjs_dom_html_input_element_set_width ::-        JSRef HTMLInputElement -> Word -> IO ()- -htmlInputElementSetWidth ::-                         (IsHTMLInputElement self) => self -> Word -> IO ()-htmlInputElementSetWidth self val-  = ghcjs_dom_html_input_element_set_width-      (unHTMLInputElement (toHTMLInputElement self))-      val- -foreign import javascript unsafe "$1[\"width\"]"-        ghcjs_dom_html_input_element_get_width ::-        JSRef HTMLInputElement -> IO Word- -htmlInputElementGetWidth ::-                         (IsHTMLInputElement self) => self -> IO Word-htmlInputElementGetWidth self-  = ghcjs_dom_html_input_element_get_width-      (unHTMLInputElement (toHTMLInputElement self))- -foreign import javascript unsafe "($1[\"willValidate\"] ? 1 : 0)"-        ghcjs_dom_html_input_element_get_will_validate ::-        JSRef HTMLInputElement -> IO Bool- -htmlInputElementGetWillValidate ::-                                (IsHTMLInputElement self) => self -> IO Bool-htmlInputElementGetWillValidate self-  = ghcjs_dom_html_input_element_get_will_validate-      (unHTMLInputElement (toHTMLInputElement self))- -foreign import javascript unsafe "$1[\"validity\"]"-        ghcjs_dom_html_input_element_get_validity ::-        JSRef HTMLInputElement -> IO (JSRef ValidityState)- -htmlInputElementGetValidity ::-                            (IsHTMLInputElement self) => self -> IO (Maybe ValidityState)-htmlInputElementGetValidity self-  = fmap ValidityState . maybeJSNull <$>-      (ghcjs_dom_html_input_element_get_validity-         (unHTMLInputElement (toHTMLInputElement self)))- -foreign import javascript unsafe "$1[\"validationMessage\"]"-        ghcjs_dom_html_input_element_get_validation_message ::-        JSRef HTMLInputElement -> IO JSString- -htmlInputElementGetValidationMessage ::-                                     (IsHTMLInputElement self, FromJSString result) =>-                                       self -> IO result-htmlInputElementGetValidationMessage self-  = fromJSString <$>-      (ghcjs_dom_html_input_element_get_validation_message-         (unHTMLInputElement (toHTMLInputElement self)))- -foreign import javascript unsafe "$1[\"labels\"]"-        ghcjs_dom_html_input_element_get_labels ::-        JSRef HTMLInputElement -> IO (JSRef NodeList)- -htmlInputElementGetLabels ::-                          (IsHTMLInputElement self) => self -> IO (Maybe NodeList)-htmlInputElementGetLabels self-  = fmap NodeList . maybeJSNull <$>-      (ghcjs_dom_html_input_element_get_labels-         (unHTMLInputElement (toHTMLInputElement self)))- -foreign import javascript unsafe "$1[\"align\"] = $2;"-        ghcjs_dom_html_input_element_set_align ::-        JSRef HTMLInputElement -> JSString -> IO ()- -htmlInputElementSetAlign ::-                         (IsHTMLInputElement self, ToJSString val) => self -> val -> IO ()-htmlInputElementSetAlign self val-  = ghcjs_dom_html_input_element_set_align-      (unHTMLInputElement (toHTMLInputElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"align\"]"-        ghcjs_dom_html_input_element_get_align ::-        JSRef HTMLInputElement -> IO JSString- -htmlInputElementGetAlign ::-                         (IsHTMLInputElement self, FromJSString result) => self -> IO result-htmlInputElementGetAlign self-  = fromJSString <$>-      (ghcjs_dom_html_input_element_get_align-         (unHTMLInputElement (toHTMLInputElement self)))- -foreign import javascript unsafe "$1[\"useMap\"] = $2;"-        ghcjs_dom_html_input_element_set_use_map ::-        JSRef HTMLInputElement -> JSString -> IO ()- -htmlInputElementSetUseMap ::-                          (IsHTMLInputElement self, ToJSString val) => self -> val -> IO ()-htmlInputElementSetUseMap self val-  = ghcjs_dom_html_input_element_set_use_map-      (unHTMLInputElement (toHTMLInputElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"useMap\"]"-        ghcjs_dom_html_input_element_get_use_map ::-        JSRef HTMLInputElement -> IO JSString- -htmlInputElementGetUseMap ::-                          (IsHTMLInputElement self, FromJSString result) => self -> IO result-htmlInputElementGetUseMap self-  = fromJSString <$>-      (ghcjs_dom_html_input_element_get_use_map-         (unHTMLInputElement (toHTMLInputElement self)))- -foreign import javascript unsafe "$1[\"incremental\"] = $2;"-        ghcjs_dom_html_input_element_set_incremental ::-        JSRef HTMLInputElement -> Bool -> IO ()- -htmlInputElementSetIncremental ::-                               (IsHTMLInputElement self) => self -> Bool -> IO ()-htmlInputElementSetIncremental self val-  = ghcjs_dom_html_input_element_set_incremental-      (unHTMLInputElement (toHTMLInputElement self))-      val- -foreign import javascript unsafe "($1[\"incremental\"] ? 1 : 0)"-        ghcjs_dom_html_input_element_get_incremental ::-        JSRef HTMLInputElement -> IO Bool- -htmlInputElementGetIncremental ::-                               (IsHTMLInputElement self) => self -> IO Bool-htmlInputElementGetIncremental self-  = ghcjs_dom_html_input_element_get_incremental-      (unHTMLInputElement (toHTMLInputElement self))- -foreign import javascript unsafe "$1[\"autocorrect\"] = $2;"-        ghcjs_dom_html_input_element_set_autocorrect ::-        JSRef HTMLInputElement -> Bool -> IO ()- -htmlInputElementSetAutocorrect ::-                               (IsHTMLInputElement self) => self -> Bool -> IO ()-htmlInputElementSetAutocorrect self val-  = ghcjs_dom_html_input_element_set_autocorrect-      (unHTMLInputElement (toHTMLInputElement self))-      val- -foreign import javascript unsafe "($1[\"autocorrect\"] ? 1 : 0)"-        ghcjs_dom_html_input_element_get_autocorrect ::-        JSRef HTMLInputElement -> IO Bool- -htmlInputElementGetAutocorrect ::-                               (IsHTMLInputElement self) => self -> IO Bool-htmlInputElementGetAutocorrect self-  = ghcjs_dom_html_input_element_get_autocorrect-      (unHTMLInputElement (toHTMLInputElement self))- -foreign import javascript unsafe "$1[\"autocapitalize\"] = $2;"-        ghcjs_dom_html_input_element_set_autocapitalize ::-        JSRef HTMLInputElement -> JSString -> IO ()- -htmlInputElementSetAutocapitalize ::-                                  (IsHTMLInputElement self, ToJSString val) => self -> val -> IO ()-htmlInputElementSetAutocapitalize self val-  = ghcjs_dom_html_input_element_set_autocapitalize-      (unHTMLInputElement (toHTMLInputElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"autocapitalize\"]"-        ghcjs_dom_html_input_element_get_autocapitalize ::-        JSRef HTMLInputElement -> IO JSString- -htmlInputElementGetAutocapitalize ::-                                  (IsHTMLInputElement self, FromJSString result) =>-                                    self -> IO result-htmlInputElementGetAutocapitalize self-  = fromJSString <$>-      (ghcjs_dom_html_input_element_get_autocapitalize-         (unHTMLInputElement (toHTMLInputElement self)))- -foreign import javascript unsafe "$1[\"capture\"] = $2;"-        ghcjs_dom_html_input_element_set_capture ::-        JSRef HTMLInputElement -> Bool -> IO ()- -htmlInputElementSetCapture ::-                           (IsHTMLInputElement self) => self -> Bool -> IO ()-htmlInputElementSetCapture self val-  = ghcjs_dom_html_input_element_set_capture-      (unHTMLInputElement (toHTMLInputElement self))-      val- -foreign import javascript unsafe "($1[\"capture\"] ? 1 : 0)"-        ghcjs_dom_html_input_element_get_capture ::-        JSRef HTMLInputElement -> IO Bool- -htmlInputElementGetCapture ::-                           (IsHTMLInputElement self) => self -> IO Bool-htmlInputElementGetCapture self-  = ghcjs_dom_html_input_element_get_capture-      (unHTMLInputElement (toHTMLInputElement self))-#else-module GHCJS.DOM.HTMLInputElement (-  module Graphics.UI.Gtk.WebKit.DOM.HTMLInputElement-  ) where+module GHCJS.DOM.HTMLInputElement (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.HTMLInputElement+#else+  module Graphics.UI.Gtk.WebKit.DOM.HTMLInputElement+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.HTMLInputElement+#else import Graphics.UI.Gtk.WebKit.DOM.HTMLInputElement #endif
src/GHCJS/DOM/HTMLKeygenElement.hs view
@@ -1,242 +1,13 @@ {-# LANGUAGE CPP #-}+module GHCJS.DOM.HTMLKeygenElement ( #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.HTMLKeygenElement-       (ghcjs_dom_html_keygen_element_check_validity,-        htmlKeygenElementCheckValidity,-        ghcjs_dom_html_keygen_element_set_custom_validity,-        htmlKeygenElementSetCustomValidity,-        ghcjs_dom_html_keygen_element_set_autofocus,-        htmlKeygenElementSetAutofocus,-        ghcjs_dom_html_keygen_element_get_autofocus,-        htmlKeygenElementGetAutofocus,-        ghcjs_dom_html_keygen_element_set_challenge,-        htmlKeygenElementSetChallenge,-        ghcjs_dom_html_keygen_element_get_challenge,-        htmlKeygenElementGetChallenge,-        ghcjs_dom_html_keygen_element_set_disabled,-        htmlKeygenElementSetDisabled,-        ghcjs_dom_html_keygen_element_get_disabled,-        htmlKeygenElementGetDisabled,-        ghcjs_dom_html_keygen_element_get_form, htmlKeygenElementGetForm,-        ghcjs_dom_html_keygen_element_set_keytype,-        htmlKeygenElementSetKeytype,-        ghcjs_dom_html_keygen_element_get_keytype,-        htmlKeygenElementGetKeytype,-        ghcjs_dom_html_keygen_element_set_name, htmlKeygenElementSetName,-        ghcjs_dom_html_keygen_element_get_name, htmlKeygenElementGetName,-        ghcjs_dom_html_keygen_element_get_will_validate,-        htmlKeygenElementGetWillValidate,-        ghcjs_dom_html_keygen_element_get_validity,-        htmlKeygenElementGetValidity,-        ghcjs_dom_html_keygen_element_get_validation_message,-        htmlKeygenElementGetValidationMessage,-        ghcjs_dom_html_keygen_element_get_labels,-        htmlKeygenElementGetLabels, HTMLKeygenElement, IsHTMLKeygenElement,-        castToHTMLKeygenElement, gTypeHTMLKeygenElement,-        toHTMLKeygenElement)-       where-import GHCJS.Types-import GHCJS.Foreign-import GHCJS.Marshal-import Data.Int-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-- -foreign import javascript unsafe-        "($1[\"checkValidity\"]() ? 1 : 0)"-        ghcjs_dom_html_keygen_element_check_validity ::-        JSRef HTMLKeygenElement -> IO Bool- -htmlKeygenElementCheckValidity ::-                               (IsHTMLKeygenElement self) => self -> IO Bool-htmlKeygenElementCheckValidity self-  = ghcjs_dom_html_keygen_element_check_validity-      (unHTMLKeygenElement (toHTMLKeygenElement self))- -foreign import javascript unsafe "$1[\"setCustomValidity\"]($2)"-        ghcjs_dom_html_keygen_element_set_custom_validity ::-        JSRef HTMLKeygenElement -> JSString -> IO ()- -htmlKeygenElementSetCustomValidity ::-                                   (IsHTMLKeygenElement self, ToJSString error) =>-                                     self -> error -> IO ()-htmlKeygenElementSetCustomValidity self error-  = ghcjs_dom_html_keygen_element_set_custom_validity-      (unHTMLKeygenElement (toHTMLKeygenElement self))-      (toJSString error)- -foreign import javascript unsafe "$1[\"autofocus\"] = $2;"-        ghcjs_dom_html_keygen_element_set_autofocus ::-        JSRef HTMLKeygenElement -> Bool -> IO ()- -htmlKeygenElementSetAutofocus ::-                              (IsHTMLKeygenElement self) => self -> Bool -> IO ()-htmlKeygenElementSetAutofocus self val-  = ghcjs_dom_html_keygen_element_set_autofocus-      (unHTMLKeygenElement (toHTMLKeygenElement self))-      val- -foreign import javascript unsafe "($1[\"autofocus\"] ? 1 : 0)"-        ghcjs_dom_html_keygen_element_get_autofocus ::-        JSRef HTMLKeygenElement -> IO Bool- -htmlKeygenElementGetAutofocus ::-                              (IsHTMLKeygenElement self) => self -> IO Bool-htmlKeygenElementGetAutofocus self-  = ghcjs_dom_html_keygen_element_get_autofocus-      (unHTMLKeygenElement (toHTMLKeygenElement self))- -foreign import javascript unsafe "$1[\"challenge\"] = $2;"-        ghcjs_dom_html_keygen_element_set_challenge ::-        JSRef HTMLKeygenElement -> JSString -> IO ()- -htmlKeygenElementSetChallenge ::-                              (IsHTMLKeygenElement self, ToJSString val) => self -> val -> IO ()-htmlKeygenElementSetChallenge self val-  = ghcjs_dom_html_keygen_element_set_challenge-      (unHTMLKeygenElement (toHTMLKeygenElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"challenge\"]"-        ghcjs_dom_html_keygen_element_get_challenge ::-        JSRef HTMLKeygenElement -> IO JSString- -htmlKeygenElementGetChallenge ::-                              (IsHTMLKeygenElement self, FromJSString result) =>-                                self -> IO result-htmlKeygenElementGetChallenge self-  = fromJSString <$>-      (ghcjs_dom_html_keygen_element_get_challenge-         (unHTMLKeygenElement (toHTMLKeygenElement self)))- -foreign import javascript unsafe "$1[\"disabled\"] = $2;"-        ghcjs_dom_html_keygen_element_set_disabled ::-        JSRef HTMLKeygenElement -> Bool -> IO ()- -htmlKeygenElementSetDisabled ::-                             (IsHTMLKeygenElement self) => self -> Bool -> IO ()-htmlKeygenElementSetDisabled self val-  = ghcjs_dom_html_keygen_element_set_disabled-      (unHTMLKeygenElement (toHTMLKeygenElement self))-      val- -foreign import javascript unsafe "($1[\"disabled\"] ? 1 : 0)"-        ghcjs_dom_html_keygen_element_get_disabled ::-        JSRef HTMLKeygenElement -> IO Bool- -htmlKeygenElementGetDisabled ::-                             (IsHTMLKeygenElement self) => self -> IO Bool-htmlKeygenElementGetDisabled self-  = ghcjs_dom_html_keygen_element_get_disabled-      (unHTMLKeygenElement (toHTMLKeygenElement self))- -foreign import javascript unsafe "$1[\"form\"]"-        ghcjs_dom_html_keygen_element_get_form ::-        JSRef HTMLKeygenElement -> IO (JSRef HTMLFormElement)- -htmlKeygenElementGetForm ::-                         (IsHTMLKeygenElement self) => self -> IO (Maybe HTMLFormElement)-htmlKeygenElementGetForm self-  = fmap HTMLFormElement . maybeJSNull <$>-      (ghcjs_dom_html_keygen_element_get_form-         (unHTMLKeygenElement (toHTMLKeygenElement self)))- -foreign import javascript unsafe "$1[\"keytype\"] = $2;"-        ghcjs_dom_html_keygen_element_set_keytype ::-        JSRef HTMLKeygenElement -> JSString -> IO ()- -htmlKeygenElementSetKeytype ::-                            (IsHTMLKeygenElement self, ToJSString val) => self -> val -> IO ()-htmlKeygenElementSetKeytype self val-  = ghcjs_dom_html_keygen_element_set_keytype-      (unHTMLKeygenElement (toHTMLKeygenElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"keytype\"]"-        ghcjs_dom_html_keygen_element_get_keytype ::-        JSRef HTMLKeygenElement -> IO JSString- -htmlKeygenElementGetKeytype ::-                            (IsHTMLKeygenElement self, FromJSString result) =>-                              self -> IO result-htmlKeygenElementGetKeytype self-  = fromJSString <$>-      (ghcjs_dom_html_keygen_element_get_keytype-         (unHTMLKeygenElement (toHTMLKeygenElement self)))- -foreign import javascript unsafe "$1[\"name\"] = $2;"-        ghcjs_dom_html_keygen_element_set_name ::-        JSRef HTMLKeygenElement -> JSString -> IO ()- -htmlKeygenElementSetName ::-                         (IsHTMLKeygenElement self, ToJSString val) => self -> val -> IO ()-htmlKeygenElementSetName self val-  = ghcjs_dom_html_keygen_element_set_name-      (unHTMLKeygenElement (toHTMLKeygenElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"name\"]"-        ghcjs_dom_html_keygen_element_get_name ::-        JSRef HTMLKeygenElement -> IO JSString- -htmlKeygenElementGetName ::-                         (IsHTMLKeygenElement self, FromJSString result) =>-                           self -> IO result-htmlKeygenElementGetName self-  = fromJSString <$>-      (ghcjs_dom_html_keygen_element_get_name-         (unHTMLKeygenElement (toHTMLKeygenElement self)))- -foreign import javascript unsafe "($1[\"willValidate\"] ? 1 : 0)"-        ghcjs_dom_html_keygen_element_get_will_validate ::-        JSRef HTMLKeygenElement -> IO Bool- -htmlKeygenElementGetWillValidate ::-                                 (IsHTMLKeygenElement self) => self -> IO Bool-htmlKeygenElementGetWillValidate self-  = ghcjs_dom_html_keygen_element_get_will_validate-      (unHTMLKeygenElement (toHTMLKeygenElement self))- -foreign import javascript unsafe "$1[\"validity\"]"-        ghcjs_dom_html_keygen_element_get_validity ::-        JSRef HTMLKeygenElement -> IO (JSRef ValidityState)- -htmlKeygenElementGetValidity ::-                             (IsHTMLKeygenElement self) => self -> IO (Maybe ValidityState)-htmlKeygenElementGetValidity self-  = fmap ValidityState . maybeJSNull <$>-      (ghcjs_dom_html_keygen_element_get_validity-         (unHTMLKeygenElement (toHTMLKeygenElement self)))- -foreign import javascript unsafe "$1[\"validationMessage\"]"-        ghcjs_dom_html_keygen_element_get_validation_message ::-        JSRef HTMLKeygenElement -> IO JSString- -htmlKeygenElementGetValidationMessage ::-                                      (IsHTMLKeygenElement self, FromJSString result) =>-                                        self -> IO result-htmlKeygenElementGetValidationMessage self-  = fromJSString <$>-      (ghcjs_dom_html_keygen_element_get_validation_message-         (unHTMLKeygenElement (toHTMLKeygenElement self)))- -foreign import javascript unsafe "$1[\"labels\"]"-        ghcjs_dom_html_keygen_element_get_labels ::-        JSRef HTMLKeygenElement -> IO (JSRef NodeList)- -htmlKeygenElementGetLabels ::-                           (IsHTMLKeygenElement self) => self -> IO (Maybe NodeList)-htmlKeygenElementGetLabels self-  = fmap NodeList . maybeJSNull <$>-      (ghcjs_dom_html_keygen_element_get_labels-         (unHTMLKeygenElement (toHTMLKeygenElement self)))+  module GHCJS.DOM.JSFFI.Generated.HTMLKeygenElement #else-module GHCJS.DOM.HTMLKeygenElement (   module Graphics.UI.Gtk.WebKit.DOM.HTMLKeygenElement+#endif   ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.HTMLKeygenElement+#else import Graphics.UI.Gtk.WebKit.DOM.HTMLKeygenElement #endif
src/GHCJS/DOM/HTMLLIElement.hs view
@@ -1,43 +1,13 @@ {-# LANGUAGE CPP #-}+module GHCJS.DOM.HTMLLIElement ( #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.HTMLLIElement-       (ghcjs_dom_htmlli_element_set_value, htmlliElementSetValue,-        ghcjs_dom_htmlli_element_get_value, htmlliElementGetValue,-        HTMLLIElement, IsHTMLLIElement, castToHTMLLIElement,-        gTypeHTMLLIElement, toHTMLLIElement)-       where-import GHCJS.Types-import GHCJS.Foreign-import GHCJS.Marshal-import Data.Int-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-- -foreign import javascript unsafe "$1[\"value\"] = $2;"-        ghcjs_dom_htmlli_element_set_value ::-        JSRef HTMLLIElement -> Int -> IO ()- -htmlliElementSetValue ::-                      (IsHTMLLIElement self) => self -> Int -> IO ()-htmlliElementSetValue self val-  = ghcjs_dom_htmlli_element_set_value-      (unHTMLLIElement (toHTMLLIElement self))-      val- -foreign import javascript unsafe "$1[\"value\"]"-        ghcjs_dom_htmlli_element_get_value :: JSRef HTMLLIElement -> IO Int- -htmlliElementGetValue :: (IsHTMLLIElement self) => self -> IO Int-htmlliElementGetValue self-  = ghcjs_dom_htmlli_element_get_value-      (unHTMLLIElement (toHTMLLIElement self))+  module GHCJS.DOM.JSFFI.Generated.HTMLLIElement #else-module GHCJS.DOM.HTMLLIElement (   module Graphics.UI.Gtk.WebKit.DOM.HTMLLIElement+#endif   ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.HTMLLIElement+#else import Graphics.UI.Gtk.WebKit.DOM.HTMLLIElement #endif
src/GHCJS/DOM/HTMLLabelElement.hs view
@@ -1,72 +1,13 @@ {-# LANGUAGE CPP #-}+module GHCJS.DOM.HTMLLabelElement ( #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.HTMLLabelElement-       (ghcjs_dom_html_label_element_get_form, htmlLabelElementGetForm,-        ghcjs_dom_html_label_element_set_html_for,-        htmlLabelElementSetHtmlFor,-        ghcjs_dom_html_label_element_get_html_for,-        htmlLabelElementGetHtmlFor,-        ghcjs_dom_html_label_element_get_control,-        htmlLabelElementGetControl, HTMLLabelElement, IsHTMLLabelElement,-        castToHTMLLabelElement, gTypeHTMLLabelElement, toHTMLLabelElement)-       where-import GHCJS.Types-import GHCJS.Foreign-import GHCJS.Marshal-import Data.Int-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-- -foreign import javascript unsafe "$1[\"form\"]"-        ghcjs_dom_html_label_element_get_form ::-        JSRef HTMLLabelElement -> IO (JSRef HTMLFormElement)- -htmlLabelElementGetForm ::-                        (IsHTMLLabelElement self) => self -> IO (Maybe HTMLFormElement)-htmlLabelElementGetForm self-  = fmap HTMLFormElement . maybeJSNull <$>-      (ghcjs_dom_html_label_element_get_form-         (unHTMLLabelElement (toHTMLLabelElement self)))- -foreign import javascript unsafe "$1[\"htmlFor\"] = $2;"-        ghcjs_dom_html_label_element_set_html_for ::-        JSRef HTMLLabelElement -> JSString -> IO ()- -htmlLabelElementSetHtmlFor ::-                           (IsHTMLLabelElement self, ToJSString val) => self -> val -> IO ()-htmlLabelElementSetHtmlFor self val-  = ghcjs_dom_html_label_element_set_html_for-      (unHTMLLabelElement (toHTMLLabelElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"htmlFor\"]"-        ghcjs_dom_html_label_element_get_html_for ::-        JSRef HTMLLabelElement -> IO JSString- -htmlLabelElementGetHtmlFor ::-                           (IsHTMLLabelElement self, FromJSString result) => self -> IO result-htmlLabelElementGetHtmlFor self-  = fromJSString <$>-      (ghcjs_dom_html_label_element_get_html_for-         (unHTMLLabelElement (toHTMLLabelElement self)))- -foreign import javascript unsafe "$1[\"control\"]"-        ghcjs_dom_html_label_element_get_control ::-        JSRef HTMLLabelElement -> IO (JSRef HTMLElement)- -htmlLabelElementGetControl ::-                           (IsHTMLLabelElement self) => self -> IO (Maybe HTMLElement)-htmlLabelElementGetControl self-  = fmap HTMLElement . maybeJSNull <$>-      (ghcjs_dom_html_label_element_get_control-         (unHTMLLabelElement (toHTMLLabelElement self)))+  module GHCJS.DOM.JSFFI.Generated.HTMLLabelElement #else-module GHCJS.DOM.HTMLLabelElement (   module Graphics.UI.Gtk.WebKit.DOM.HTMLLabelElement+#endif   ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.HTMLLabelElement+#else import Graphics.UI.Gtk.WebKit.DOM.HTMLLabelElement #endif
src/GHCJS/DOM/HTMLLegendElement.hs view
@@ -1,59 +1,13 @@ {-# LANGUAGE CPP #-}+module GHCJS.DOM.HTMLLegendElement ( #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.HTMLLegendElement-       (ghcjs_dom_html_legend_element_get_form, htmlLegendElementGetForm,-        ghcjs_dom_html_legend_element_set_align, htmlLegendElementSetAlign,-        ghcjs_dom_html_legend_element_get_align, htmlLegendElementGetAlign,-        HTMLLegendElement, IsHTMLLegendElement, castToHTMLLegendElement,-        gTypeHTMLLegendElement, toHTMLLegendElement)-       where-import GHCJS.Types-import GHCJS.Foreign-import GHCJS.Marshal-import Data.Int-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-- -foreign import javascript unsafe "$1[\"form\"]"-        ghcjs_dom_html_legend_element_get_form ::-        JSRef HTMLLegendElement -> IO (JSRef HTMLFormElement)- -htmlLegendElementGetForm ::-                         (IsHTMLLegendElement self) => self -> IO (Maybe HTMLFormElement)-htmlLegendElementGetForm self-  = fmap HTMLFormElement . maybeJSNull <$>-      (ghcjs_dom_html_legend_element_get_form-         (unHTMLLegendElement (toHTMLLegendElement self)))- -foreign import javascript unsafe "$1[\"align\"] = $2;"-        ghcjs_dom_html_legend_element_set_align ::-        JSRef HTMLLegendElement -> JSString -> IO ()- -htmlLegendElementSetAlign ::-                          (IsHTMLLegendElement self, ToJSString val) => self -> val -> IO ()-htmlLegendElementSetAlign self val-  = ghcjs_dom_html_legend_element_set_align-      (unHTMLLegendElement (toHTMLLegendElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"align\"]"-        ghcjs_dom_html_legend_element_get_align ::-        JSRef HTMLLegendElement -> IO JSString- -htmlLegendElementGetAlign ::-                          (IsHTMLLegendElement self, FromJSString result) =>-                            self -> IO result-htmlLegendElementGetAlign self-  = fromJSString <$>-      (ghcjs_dom_html_legend_element_get_align-         (unHTMLLegendElement (toHTMLLegendElement self)))+  module GHCJS.DOM.JSFFI.Generated.HTMLLegendElement #else-module GHCJS.DOM.HTMLLegendElement (   module Graphics.UI.Gtk.WebKit.DOM.HTMLLegendElement+#endif   ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.HTMLLegendElement+#else import Graphics.UI.Gtk.WebKit.DOM.HTMLLegendElement #endif
src/GHCJS/DOM/HTMLLinkElement.hs view
@@ -1,240 +1,13 @@ {-# LANGUAGE CPP #-}+module GHCJS.DOM.HTMLLinkElement ( #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.HTMLLinkElement-       (ghcjs_dom_html_link_element_set_disabled,-        htmlLinkElementSetDisabled,-        ghcjs_dom_html_link_element_get_disabled,-        htmlLinkElementGetDisabled,-        ghcjs_dom_html_link_element_set_charset, htmlLinkElementSetCharset,-        ghcjs_dom_html_link_element_get_charset, htmlLinkElementGetCharset,-        ghcjs_dom_html_link_element_set_href, htmlLinkElementSetHref,-        ghcjs_dom_html_link_element_get_href, htmlLinkElementGetHref,-        ghcjs_dom_html_link_element_set_hreflang,-        htmlLinkElementSetHreflang,-        ghcjs_dom_html_link_element_get_hreflang,-        htmlLinkElementGetHreflang, ghcjs_dom_html_link_element_set_media,-        htmlLinkElementSetMedia, ghcjs_dom_html_link_element_get_media,-        htmlLinkElementGetMedia, ghcjs_dom_html_link_element_set_rel,-        htmlLinkElementSetRel, ghcjs_dom_html_link_element_get_rel,-        htmlLinkElementGetRel, ghcjs_dom_html_link_element_set_rev,-        htmlLinkElementSetRev, ghcjs_dom_html_link_element_get_rev,-        htmlLinkElementGetRev, ghcjs_dom_html_link_element_set_target,-        htmlLinkElementSetTarget, ghcjs_dom_html_link_element_get_target,-        htmlLinkElementGetTarget, ghcjs_dom_html_link_element_get_sheet,-        htmlLinkElementGetSheet, ghcjs_dom_html_link_element_get_rel_list,-        htmlLinkElementGetRelList, HTMLLinkElement, IsHTMLLinkElement,-        castToHTMLLinkElement, gTypeHTMLLinkElement, toHTMLLinkElement)-       where-import GHCJS.Types-import GHCJS.Foreign-import GHCJS.Marshal-import Data.Int-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-- -foreign import javascript unsafe "$1[\"disabled\"] = $2;"-        ghcjs_dom_html_link_element_set_disabled ::-        JSRef HTMLLinkElement -> Bool -> IO ()- -htmlLinkElementSetDisabled ::-                           (IsHTMLLinkElement self) => self -> Bool -> IO ()-htmlLinkElementSetDisabled self val-  = ghcjs_dom_html_link_element_set_disabled-      (unHTMLLinkElement (toHTMLLinkElement self))-      val- -foreign import javascript unsafe "($1[\"disabled\"] ? 1 : 0)"-        ghcjs_dom_html_link_element_get_disabled ::-        JSRef HTMLLinkElement -> IO Bool- -htmlLinkElementGetDisabled ::-                           (IsHTMLLinkElement self) => self -> IO Bool-htmlLinkElementGetDisabled self-  = ghcjs_dom_html_link_element_get_disabled-      (unHTMLLinkElement (toHTMLLinkElement self))- -foreign import javascript unsafe "$1[\"charset\"] = $2;"-        ghcjs_dom_html_link_element_set_charset ::-        JSRef HTMLLinkElement -> JSString -> IO ()- -htmlLinkElementSetCharset ::-                          (IsHTMLLinkElement self, ToJSString val) => self -> val -> IO ()-htmlLinkElementSetCharset self val-  = ghcjs_dom_html_link_element_set_charset-      (unHTMLLinkElement (toHTMLLinkElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"charset\"]"-        ghcjs_dom_html_link_element_get_charset ::-        JSRef HTMLLinkElement -> IO JSString- -htmlLinkElementGetCharset ::-                          (IsHTMLLinkElement self, FromJSString result) => self -> IO result-htmlLinkElementGetCharset self-  = fromJSString <$>-      (ghcjs_dom_html_link_element_get_charset-         (unHTMLLinkElement (toHTMLLinkElement self)))- -foreign import javascript unsafe "$1[\"href\"] = $2;"-        ghcjs_dom_html_link_element_set_href ::-        JSRef HTMLLinkElement -> JSString -> IO ()- -htmlLinkElementSetHref ::-                       (IsHTMLLinkElement self, ToJSString val) => self -> val -> IO ()-htmlLinkElementSetHref self val-  = ghcjs_dom_html_link_element_set_href-      (unHTMLLinkElement (toHTMLLinkElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"href\"]"-        ghcjs_dom_html_link_element_get_href ::-        JSRef HTMLLinkElement -> IO JSString- -htmlLinkElementGetHref ::-                       (IsHTMLLinkElement self, FromJSString result) => self -> IO result-htmlLinkElementGetHref self-  = fromJSString <$>-      (ghcjs_dom_html_link_element_get_href-         (unHTMLLinkElement (toHTMLLinkElement self)))- -foreign import javascript unsafe "$1[\"hreflang\"] = $2;"-        ghcjs_dom_html_link_element_set_hreflang ::-        JSRef HTMLLinkElement -> JSString -> IO ()- -htmlLinkElementSetHreflang ::-                           (IsHTMLLinkElement self, ToJSString val) => self -> val -> IO ()-htmlLinkElementSetHreflang self val-  = ghcjs_dom_html_link_element_set_hreflang-      (unHTMLLinkElement (toHTMLLinkElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"hreflang\"]"-        ghcjs_dom_html_link_element_get_hreflang ::-        JSRef HTMLLinkElement -> IO JSString- -htmlLinkElementGetHreflang ::-                           (IsHTMLLinkElement self, FromJSString result) => self -> IO result-htmlLinkElementGetHreflang self-  = fromJSString <$>-      (ghcjs_dom_html_link_element_get_hreflang-         (unHTMLLinkElement (toHTMLLinkElement self)))- -foreign import javascript unsafe "$1[\"media\"] = $2;"-        ghcjs_dom_html_link_element_set_media ::-        JSRef HTMLLinkElement -> JSString -> IO ()- -htmlLinkElementSetMedia ::-                        (IsHTMLLinkElement self, ToJSString val) => self -> val -> IO ()-htmlLinkElementSetMedia self val-  = ghcjs_dom_html_link_element_set_media-      (unHTMLLinkElement (toHTMLLinkElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"media\"]"-        ghcjs_dom_html_link_element_get_media ::-        JSRef HTMLLinkElement -> IO JSString- -htmlLinkElementGetMedia ::-                        (IsHTMLLinkElement self, FromJSString result) => self -> IO result-htmlLinkElementGetMedia self-  = fromJSString <$>-      (ghcjs_dom_html_link_element_get_media-         (unHTMLLinkElement (toHTMLLinkElement self)))- -foreign import javascript unsafe "$1[\"rel\"] = $2;"-        ghcjs_dom_html_link_element_set_rel ::-        JSRef HTMLLinkElement -> JSString -> IO ()- -htmlLinkElementSetRel ::-                      (IsHTMLLinkElement self, ToJSString val) => self -> val -> IO ()-htmlLinkElementSetRel self val-  = ghcjs_dom_html_link_element_set_rel-      (unHTMLLinkElement (toHTMLLinkElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"rel\"]"-        ghcjs_dom_html_link_element_get_rel ::-        JSRef HTMLLinkElement -> IO JSString- -htmlLinkElementGetRel ::-                      (IsHTMLLinkElement self, FromJSString result) => self -> IO result-htmlLinkElementGetRel self-  = fromJSString <$>-      (ghcjs_dom_html_link_element_get_rel-         (unHTMLLinkElement (toHTMLLinkElement self)))- -foreign import javascript unsafe "$1[\"rev\"] = $2;"-        ghcjs_dom_html_link_element_set_rev ::-        JSRef HTMLLinkElement -> JSString -> IO ()- -htmlLinkElementSetRev ::-                      (IsHTMLLinkElement self, ToJSString val) => self -> val -> IO ()-htmlLinkElementSetRev self val-  = ghcjs_dom_html_link_element_set_rev-      (unHTMLLinkElement (toHTMLLinkElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"rev\"]"-        ghcjs_dom_html_link_element_get_rev ::-        JSRef HTMLLinkElement -> IO JSString- -htmlLinkElementGetRev ::-                      (IsHTMLLinkElement self, FromJSString result) => self -> IO result-htmlLinkElementGetRev self-  = fromJSString <$>-      (ghcjs_dom_html_link_element_get_rev-         (unHTMLLinkElement (toHTMLLinkElement self)))- -foreign import javascript unsafe "$1[\"target\"] = $2;"-        ghcjs_dom_html_link_element_set_target ::-        JSRef HTMLLinkElement -> JSString -> IO ()- -htmlLinkElementSetTarget ::-                         (IsHTMLLinkElement self, ToJSString val) => self -> val -> IO ()-htmlLinkElementSetTarget self val-  = ghcjs_dom_html_link_element_set_target-      (unHTMLLinkElement (toHTMLLinkElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"target\"]"-        ghcjs_dom_html_link_element_get_target ::-        JSRef HTMLLinkElement -> IO JSString- -htmlLinkElementGetTarget ::-                         (IsHTMLLinkElement self, FromJSString result) => self -> IO result-htmlLinkElementGetTarget self-  = fromJSString <$>-      (ghcjs_dom_html_link_element_get_target-         (unHTMLLinkElement (toHTMLLinkElement self)))- -foreign import javascript unsafe "$1[\"sheet\"]"-        ghcjs_dom_html_link_element_get_sheet ::-        JSRef HTMLLinkElement -> IO (JSRef StyleSheet)- -htmlLinkElementGetSheet ::-                        (IsHTMLLinkElement self) => self -> IO (Maybe StyleSheet)-htmlLinkElementGetSheet self-  = fmap StyleSheet . maybeJSNull <$>-      (ghcjs_dom_html_link_element_get_sheet-         (unHTMLLinkElement (toHTMLLinkElement self)))- -foreign import javascript unsafe "$1[\"relList\"]"-        ghcjs_dom_html_link_element_get_rel_list ::-        JSRef HTMLLinkElement -> IO (JSRef DOMTokenList)- -htmlLinkElementGetRelList ::-                          (IsHTMLLinkElement self) => self -> IO (Maybe DOMTokenList)-htmlLinkElementGetRelList self-  = fmap DOMTokenList . maybeJSNull <$>-      (ghcjs_dom_html_link_element_get_rel_list-         (unHTMLLinkElement (toHTMLLinkElement self)))+  module GHCJS.DOM.JSFFI.Generated.HTMLLinkElement #else-module GHCJS.DOM.HTMLLinkElement (   module Graphics.UI.Gtk.WebKit.DOM.HTMLLinkElement+#endif   ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.HTMLLinkElement+#else import Graphics.UI.Gtk.WebKit.DOM.HTMLLinkElement #endif
src/GHCJS/DOM/HTMLMapElement.hs view
@@ -1,58 +1,13 @@ {-# LANGUAGE CPP #-}+module GHCJS.DOM.HTMLMapElement ( #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.HTMLMapElement-       (ghcjs_dom_html_map_element_get_areas, htmlMapElementGetAreas,-        ghcjs_dom_html_map_element_set_name, htmlMapElementSetName,-        ghcjs_dom_html_map_element_get_name, htmlMapElementGetName,-        HTMLMapElement, IsHTMLMapElement, castToHTMLMapElement,-        gTypeHTMLMapElement, toHTMLMapElement)-       where-import GHCJS.Types-import GHCJS.Foreign-import GHCJS.Marshal-import Data.Int-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-- -foreign import javascript unsafe "$1[\"areas\"]"-        ghcjs_dom_html_map_element_get_areas ::-        JSRef HTMLMapElement -> IO (JSRef HTMLCollection)- -htmlMapElementGetAreas ::-                       (IsHTMLMapElement self) => self -> IO (Maybe HTMLCollection)-htmlMapElementGetAreas self-  = fmap HTMLCollection . maybeJSNull <$>-      (ghcjs_dom_html_map_element_get_areas-         (unHTMLMapElement (toHTMLMapElement self)))- -foreign import javascript unsafe "$1[\"name\"] = $2;"-        ghcjs_dom_html_map_element_set_name ::-        JSRef HTMLMapElement -> JSString -> IO ()- -htmlMapElementSetName ::-                      (IsHTMLMapElement self, ToJSString val) => self -> val -> IO ()-htmlMapElementSetName self val-  = ghcjs_dom_html_map_element_set_name-      (unHTMLMapElement (toHTMLMapElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"name\"]"-        ghcjs_dom_html_map_element_get_name ::-        JSRef HTMLMapElement -> IO JSString- -htmlMapElementGetName ::-                      (IsHTMLMapElement self, FromJSString result) => self -> IO result-htmlMapElementGetName self-  = fromJSString <$>-      (ghcjs_dom_html_map_element_get_name-         (unHTMLMapElement (toHTMLMapElement self)))+  module GHCJS.DOM.JSFFI.Generated.HTMLMapElement #else-module GHCJS.DOM.HTMLMapElement (   module Graphics.UI.Gtk.WebKit.DOM.HTMLMapElement+#endif   ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.HTMLMapElement+#else import Graphics.UI.Gtk.WebKit.DOM.HTMLMapElement #endif
src/GHCJS/DOM/HTMLMarqueeElement.hs view
@@ -1,327 +1,13 @@ {-# LANGUAGE CPP #-}+module GHCJS.DOM.HTMLMarqueeElement ( #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.HTMLMarqueeElement-       (ghcjs_dom_html_marquee_element_start, htmlMarqueeElementStart,-        ghcjs_dom_html_marquee_element_stop, htmlMarqueeElementStop,-        ghcjs_dom_html_marquee_element_set_behavior,-        htmlMarqueeElementSetBehavior,-        ghcjs_dom_html_marquee_element_get_behavior,-        htmlMarqueeElementGetBehavior,-        ghcjs_dom_html_marquee_element_set_bg_color,-        htmlMarqueeElementSetBgColor,-        ghcjs_dom_html_marquee_element_get_bg_color,-        htmlMarqueeElementGetBgColor,-        ghcjs_dom_html_marquee_element_set_direction,-        htmlMarqueeElementSetDirection,-        ghcjs_dom_html_marquee_element_get_direction,-        htmlMarqueeElementGetDirection,-        ghcjs_dom_html_marquee_element_set_height,-        htmlMarqueeElementSetHeight,-        ghcjs_dom_html_marquee_element_get_height,-        htmlMarqueeElementGetHeight,-        ghcjs_dom_html_marquee_element_set_hspace,-        htmlMarqueeElementSetHspace,-        ghcjs_dom_html_marquee_element_get_hspace,-        htmlMarqueeElementGetHspace,-        ghcjs_dom_html_marquee_element_set_loop, htmlMarqueeElementSetLoop,-        ghcjs_dom_html_marquee_element_get_loop, htmlMarqueeElementGetLoop,-        ghcjs_dom_html_marquee_element_set_scroll_amount,-        htmlMarqueeElementSetScrollAmount,-        ghcjs_dom_html_marquee_element_get_scroll_amount,-        htmlMarqueeElementGetScrollAmount,-        ghcjs_dom_html_marquee_element_set_scroll_delay,-        htmlMarqueeElementSetScrollDelay,-        ghcjs_dom_html_marquee_element_get_scroll_delay,-        htmlMarqueeElementGetScrollDelay,-        ghcjs_dom_html_marquee_element_set_true_speed,-        htmlMarqueeElementSetTrueSpeed,-        ghcjs_dom_html_marquee_element_get_true_speed,-        htmlMarqueeElementGetTrueSpeed,-        ghcjs_dom_html_marquee_element_set_vspace,-        htmlMarqueeElementSetVspace,-        ghcjs_dom_html_marquee_element_get_vspace,-        htmlMarqueeElementGetVspace,-        ghcjs_dom_html_marquee_element_set_width,-        htmlMarqueeElementSetWidth,-        ghcjs_dom_html_marquee_element_get_width,-        htmlMarqueeElementGetWidth, HTMLMarqueeElement,-        IsHTMLMarqueeElement, castToHTMLMarqueeElement,-        gTypeHTMLMarqueeElement, toHTMLMarqueeElement)-       where-import GHCJS.Types-import GHCJS.Foreign-import GHCJS.Marshal-import Data.Int-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-- -foreign import javascript unsafe "$1[\"start\"]()"-        ghcjs_dom_html_marquee_element_start ::-        JSRef HTMLMarqueeElement -> IO ()- -htmlMarqueeElementStart ::-                        (IsHTMLMarqueeElement self) => self -> IO ()-htmlMarqueeElementStart self-  = ghcjs_dom_html_marquee_element_start-      (unHTMLMarqueeElement (toHTMLMarqueeElement self))- -foreign import javascript unsafe "$1[\"stop\"]()"-        ghcjs_dom_html_marquee_element_stop ::-        JSRef HTMLMarqueeElement -> IO ()- -htmlMarqueeElementStop ::-                       (IsHTMLMarqueeElement self) => self -> IO ()-htmlMarqueeElementStop self-  = ghcjs_dom_html_marquee_element_stop-      (unHTMLMarqueeElement (toHTMLMarqueeElement self))- -foreign import javascript unsafe "$1[\"behavior\"] = $2;"-        ghcjs_dom_html_marquee_element_set_behavior ::-        JSRef HTMLMarqueeElement -> JSString -> IO ()- -htmlMarqueeElementSetBehavior ::-                              (IsHTMLMarqueeElement self, ToJSString val) => self -> val -> IO ()-htmlMarqueeElementSetBehavior self val-  = ghcjs_dom_html_marquee_element_set_behavior-      (unHTMLMarqueeElement (toHTMLMarqueeElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"behavior\"]"-        ghcjs_dom_html_marquee_element_get_behavior ::-        JSRef HTMLMarqueeElement -> IO JSString- -htmlMarqueeElementGetBehavior ::-                              (IsHTMLMarqueeElement self, FromJSString result) =>-                                self -> IO result-htmlMarqueeElementGetBehavior self-  = fromJSString <$>-      (ghcjs_dom_html_marquee_element_get_behavior-         (unHTMLMarqueeElement (toHTMLMarqueeElement self)))- -foreign import javascript unsafe "$1[\"bgColor\"] = $2;"-        ghcjs_dom_html_marquee_element_set_bg_color ::-        JSRef HTMLMarqueeElement -> JSString -> IO ()- -htmlMarqueeElementSetBgColor ::-                             (IsHTMLMarqueeElement self, ToJSString val) => self -> val -> IO ()-htmlMarqueeElementSetBgColor self val-  = ghcjs_dom_html_marquee_element_set_bg_color-      (unHTMLMarqueeElement (toHTMLMarqueeElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"bgColor\"]"-        ghcjs_dom_html_marquee_element_get_bg_color ::-        JSRef HTMLMarqueeElement -> IO JSString- -htmlMarqueeElementGetBgColor ::-                             (IsHTMLMarqueeElement self, FromJSString result) =>-                               self -> IO result-htmlMarqueeElementGetBgColor self-  = fromJSString <$>-      (ghcjs_dom_html_marquee_element_get_bg_color-         (unHTMLMarqueeElement (toHTMLMarqueeElement self)))- -foreign import javascript unsafe "$1[\"direction\"] = $2;"-        ghcjs_dom_html_marquee_element_set_direction ::-        JSRef HTMLMarqueeElement -> JSString -> IO ()- -htmlMarqueeElementSetDirection ::-                               (IsHTMLMarqueeElement self, ToJSString val) => self -> val -> IO ()-htmlMarqueeElementSetDirection self val-  = ghcjs_dom_html_marquee_element_set_direction-      (unHTMLMarqueeElement (toHTMLMarqueeElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"direction\"]"-        ghcjs_dom_html_marquee_element_get_direction ::-        JSRef HTMLMarqueeElement -> IO JSString- -htmlMarqueeElementGetDirection ::-                               (IsHTMLMarqueeElement self, FromJSString result) =>-                                 self -> IO result-htmlMarqueeElementGetDirection self-  = fromJSString <$>-      (ghcjs_dom_html_marquee_element_get_direction-         (unHTMLMarqueeElement (toHTMLMarqueeElement self)))- -foreign import javascript unsafe "$1[\"height\"] = $2;"-        ghcjs_dom_html_marquee_element_set_height ::-        JSRef HTMLMarqueeElement -> JSString -> IO ()- -htmlMarqueeElementSetHeight ::-                            (IsHTMLMarqueeElement self, ToJSString val) => self -> val -> IO ()-htmlMarqueeElementSetHeight self val-  = ghcjs_dom_html_marquee_element_set_height-      (unHTMLMarqueeElement (toHTMLMarqueeElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"height\"]"-        ghcjs_dom_html_marquee_element_get_height ::-        JSRef HTMLMarqueeElement -> IO JSString- -htmlMarqueeElementGetHeight ::-                            (IsHTMLMarqueeElement self, FromJSString result) =>-                              self -> IO result-htmlMarqueeElementGetHeight self-  = fromJSString <$>-      (ghcjs_dom_html_marquee_element_get_height-         (unHTMLMarqueeElement (toHTMLMarqueeElement self)))- -foreign import javascript unsafe "$1[\"hspace\"] = $2;"-        ghcjs_dom_html_marquee_element_set_hspace ::-        JSRef HTMLMarqueeElement -> Word -> IO ()- -htmlMarqueeElementSetHspace ::-                            (IsHTMLMarqueeElement self) => self -> Word -> IO ()-htmlMarqueeElementSetHspace self val-  = ghcjs_dom_html_marquee_element_set_hspace-      (unHTMLMarqueeElement (toHTMLMarqueeElement self))-      val- -foreign import javascript unsafe "$1[\"hspace\"]"-        ghcjs_dom_html_marquee_element_get_hspace ::-        JSRef HTMLMarqueeElement -> IO Word- -htmlMarqueeElementGetHspace ::-                            (IsHTMLMarqueeElement self) => self -> IO Word-htmlMarqueeElementGetHspace self-  = ghcjs_dom_html_marquee_element_get_hspace-      (unHTMLMarqueeElement (toHTMLMarqueeElement self))- -foreign import javascript unsafe "$1[\"loop\"] = $2;"-        ghcjs_dom_html_marquee_element_set_loop ::-        JSRef HTMLMarqueeElement -> Int -> IO ()- -htmlMarqueeElementSetLoop ::-                          (IsHTMLMarqueeElement self) => self -> Int -> IO ()-htmlMarqueeElementSetLoop self val-  = ghcjs_dom_html_marquee_element_set_loop-      (unHTMLMarqueeElement (toHTMLMarqueeElement self))-      val- -foreign import javascript unsafe "$1[\"loop\"]"-        ghcjs_dom_html_marquee_element_get_loop ::-        JSRef HTMLMarqueeElement -> IO Int- -htmlMarqueeElementGetLoop ::-                          (IsHTMLMarqueeElement self) => self -> IO Int-htmlMarqueeElementGetLoop self-  = ghcjs_dom_html_marquee_element_get_loop-      (unHTMLMarqueeElement (toHTMLMarqueeElement self))- -foreign import javascript unsafe "$1[\"scrollAmount\"] = $2;"-        ghcjs_dom_html_marquee_element_set_scroll_amount ::-        JSRef HTMLMarqueeElement -> Int -> IO ()- -htmlMarqueeElementSetScrollAmount ::-                                  (IsHTMLMarqueeElement self) => self -> Int -> IO ()-htmlMarqueeElementSetScrollAmount self val-  = ghcjs_dom_html_marquee_element_set_scroll_amount-      (unHTMLMarqueeElement (toHTMLMarqueeElement self))-      val- -foreign import javascript unsafe "$1[\"scrollAmount\"]"-        ghcjs_dom_html_marquee_element_get_scroll_amount ::-        JSRef HTMLMarqueeElement -> IO Int- -htmlMarqueeElementGetScrollAmount ::-                                  (IsHTMLMarqueeElement self) => self -> IO Int-htmlMarqueeElementGetScrollAmount self-  = ghcjs_dom_html_marquee_element_get_scroll_amount-      (unHTMLMarqueeElement (toHTMLMarqueeElement self))- -foreign import javascript unsafe "$1[\"scrollDelay\"] = $2;"-        ghcjs_dom_html_marquee_element_set_scroll_delay ::-        JSRef HTMLMarqueeElement -> Int -> IO ()- -htmlMarqueeElementSetScrollDelay ::-                                 (IsHTMLMarqueeElement self) => self -> Int -> IO ()-htmlMarqueeElementSetScrollDelay self val-  = ghcjs_dom_html_marquee_element_set_scroll_delay-      (unHTMLMarqueeElement (toHTMLMarqueeElement self))-      val- -foreign import javascript unsafe "$1[\"scrollDelay\"]"-        ghcjs_dom_html_marquee_element_get_scroll_delay ::-        JSRef HTMLMarqueeElement -> IO Int- -htmlMarqueeElementGetScrollDelay ::-                                 (IsHTMLMarqueeElement self) => self -> IO Int-htmlMarqueeElementGetScrollDelay self-  = ghcjs_dom_html_marquee_element_get_scroll_delay-      (unHTMLMarqueeElement (toHTMLMarqueeElement self))- -foreign import javascript unsafe "$1[\"trueSpeed\"] = $2;"-        ghcjs_dom_html_marquee_element_set_true_speed ::-        JSRef HTMLMarqueeElement -> Bool -> IO ()- -htmlMarqueeElementSetTrueSpeed ::-                               (IsHTMLMarqueeElement self) => self -> Bool -> IO ()-htmlMarqueeElementSetTrueSpeed self val-  = ghcjs_dom_html_marquee_element_set_true_speed-      (unHTMLMarqueeElement (toHTMLMarqueeElement self))-      val- -foreign import javascript unsafe "($1[\"trueSpeed\"] ? 1 : 0)"-        ghcjs_dom_html_marquee_element_get_true_speed ::-        JSRef HTMLMarqueeElement -> IO Bool- -htmlMarqueeElementGetTrueSpeed ::-                               (IsHTMLMarqueeElement self) => self -> IO Bool-htmlMarqueeElementGetTrueSpeed self-  = ghcjs_dom_html_marquee_element_get_true_speed-      (unHTMLMarqueeElement (toHTMLMarqueeElement self))- -foreign import javascript unsafe "$1[\"vspace\"] = $2;"-        ghcjs_dom_html_marquee_element_set_vspace ::-        JSRef HTMLMarqueeElement -> Word -> IO ()- -htmlMarqueeElementSetVspace ::-                            (IsHTMLMarqueeElement self) => self -> Word -> IO ()-htmlMarqueeElementSetVspace self val-  = ghcjs_dom_html_marquee_element_set_vspace-      (unHTMLMarqueeElement (toHTMLMarqueeElement self))-      val- -foreign import javascript unsafe "$1[\"vspace\"]"-        ghcjs_dom_html_marquee_element_get_vspace ::-        JSRef HTMLMarqueeElement -> IO Word- -htmlMarqueeElementGetVspace ::-                            (IsHTMLMarqueeElement self) => self -> IO Word-htmlMarqueeElementGetVspace self-  = ghcjs_dom_html_marquee_element_get_vspace-      (unHTMLMarqueeElement (toHTMLMarqueeElement self))- -foreign import javascript unsafe "$1[\"width\"] = $2;"-        ghcjs_dom_html_marquee_element_set_width ::-        JSRef HTMLMarqueeElement -> JSString -> IO ()- -htmlMarqueeElementSetWidth ::-                           (IsHTMLMarqueeElement self, ToJSString val) => self -> val -> IO ()-htmlMarqueeElementSetWidth self val-  = ghcjs_dom_html_marquee_element_set_width-      (unHTMLMarqueeElement (toHTMLMarqueeElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"width\"]"-        ghcjs_dom_html_marquee_element_get_width ::-        JSRef HTMLMarqueeElement -> IO JSString- -htmlMarqueeElementGetWidth ::-                           (IsHTMLMarqueeElement self, FromJSString result) =>-                             self -> IO result-htmlMarqueeElementGetWidth self-  = fromJSString <$>-      (ghcjs_dom_html_marquee_element_get_width-         (unHTMLMarqueeElement (toHTMLMarqueeElement self)))+  module GHCJS.DOM.JSFFI.Generated.HTMLMarqueeElement #else-module GHCJS.DOM.HTMLMarqueeElement (   module Graphics.UI.Gtk.WebKit.DOM.HTMLMarqueeElement+#endif   ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.HTMLMarqueeElement+#else import Graphics.UI.Gtk.WebKit.DOM.HTMLMarqueeElement #endif
src/GHCJS/DOM/HTMLMediaElement.hs view
@@ -1,722 +1,13 @@ {-# LANGUAGE CPP #-}+module GHCJS.DOM.HTMLMediaElement ( #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.HTMLMediaElement-       (ghcjs_dom_html_media_element_load, htmlMediaElementLoad,-        ghcjs_dom_html_media_element_can_play_type,-        htmlMediaElementCanPlayType, ghcjs_dom_html_media_element_play,-        htmlMediaElementPlay, ghcjs_dom_html_media_element_pause,-        htmlMediaElementPause, ghcjs_dom_html_media_element_fast_seek,-        htmlMediaElementFastSeek,-        ghcjs_dom_html_media_element_webkit_show_playback_target_picker,-        htmlMediaElementWebkitShowPlaybackTargetPicker, cNETWORK_EMPTY,-        cNETWORK_IDLE, cNETWORK_LOADING, cNETWORK_NO_SOURCE, cHAVE_NOTHING,-        cHAVE_METADATA, cHAVE_CURRENT_DATA, cHAVE_FUTURE_DATA,-        cHAVE_ENOUGH_DATA, ghcjs_dom_html_media_element_get_error,-        htmlMediaElementGetError, ghcjs_dom_html_media_element_set_src,-        htmlMediaElementSetSrc, ghcjs_dom_html_media_element_get_src,-        htmlMediaElementGetSrc,-        ghcjs_dom_html_media_element_get_current_src,-        htmlMediaElementGetCurrentSrc,-        ghcjs_dom_html_media_element_get_network_state,-        htmlMediaElementGetNetworkState,-        ghcjs_dom_html_media_element_set_preload,-        htmlMediaElementSetPreload,-        ghcjs_dom_html_media_element_get_preload,-        htmlMediaElementGetPreload,-        ghcjs_dom_html_media_element_get_buffered,-        htmlMediaElementGetBuffered,-        ghcjs_dom_html_media_element_get_ready_state,-        htmlMediaElementGetReadyState,-        ghcjs_dom_html_media_element_get_seeking,-        htmlMediaElementGetSeeking,-        ghcjs_dom_html_media_element_set_current_time,-        htmlMediaElementSetCurrentTime,-        ghcjs_dom_html_media_element_get_current_time,-        htmlMediaElementGetCurrentTime,-        ghcjs_dom_html_media_element_get_duration,-        htmlMediaElementGetDuration,-        ghcjs_dom_html_media_element_get_paused, htmlMediaElementGetPaused,-        ghcjs_dom_html_media_element_set_default_playback_rate,-        htmlMediaElementSetDefaultPlaybackRate,-        ghcjs_dom_html_media_element_get_default_playback_rate,-        htmlMediaElementGetDefaultPlaybackRate,-        ghcjs_dom_html_media_element_set_playback_rate,-        htmlMediaElementSetPlaybackRate,-        ghcjs_dom_html_media_element_get_playback_rate,-        htmlMediaElementGetPlaybackRate,-        ghcjs_dom_html_media_element_get_played, htmlMediaElementGetPlayed,-        ghcjs_dom_html_media_element_get_seekable,-        htmlMediaElementGetSeekable,-        ghcjs_dom_html_media_element_get_ended, htmlMediaElementGetEnded,-        ghcjs_dom_html_media_element_set_autoplay,-        htmlMediaElementSetAutoplay,-        ghcjs_dom_html_media_element_get_autoplay,-        htmlMediaElementGetAutoplay, ghcjs_dom_html_media_element_set_loop,-        htmlMediaElementSetLoop, ghcjs_dom_html_media_element_get_loop,-        htmlMediaElementGetLoop, ghcjs_dom_html_media_element_set_controls,-        htmlMediaElementSetControls,-        ghcjs_dom_html_media_element_get_controls,-        htmlMediaElementGetControls,-        ghcjs_dom_html_media_element_set_volume, htmlMediaElementSetVolume,-        ghcjs_dom_html_media_element_get_volume, htmlMediaElementGetVolume,-        ghcjs_dom_html_media_element_set_muted, htmlMediaElementSetMuted,-        ghcjs_dom_html_media_element_get_muted, htmlMediaElementGetMuted,-        ghcjs_dom_html_media_element_set_default_muted,-        htmlMediaElementSetDefaultMuted,-        ghcjs_dom_html_media_element_get_default_muted,-        htmlMediaElementGetDefaultMuted, htmlMediaElementOnemptied,-        htmlMediaElementOnloadedmetadata, htmlMediaElementOnloadeddata,-        htmlMediaElementOncanplay, htmlMediaElementOncanplaythrough,-        htmlMediaElementOnplaying, htmlMediaElementOnended,-        htmlMediaElementOnwaiting, htmlMediaElementOndurationchange,-        htmlMediaElementOntimeupdate, htmlMediaElementOnplay,-        htmlMediaElementOnpause, htmlMediaElementOnratechange,-        htmlMediaElementOnvolumechange,-        ghcjs_dom_html_media_element_set_webkit_preserves_pitch,-        htmlMediaElementSetWebkitPreservesPitch,-        ghcjs_dom_html_media_element_get_webkit_preserves_pitch,-        htmlMediaElementGetWebkitPreservesPitch,-        ghcjs_dom_html_media_element_get_webkit_has_closed_captions,-        htmlMediaElementGetWebkitHasClosedCaptions,-        ghcjs_dom_html_media_element_set_webkit_closed_captions_visible,-        htmlMediaElementSetWebkitClosedCaptionsVisible,-        ghcjs_dom_html_media_element_get_webkit_closed_captions_visible,-        htmlMediaElementGetWebkitClosedCaptionsVisible,-        ghcjs_dom_html_media_element_get_webkit_audio_decoded_byte_count,-        htmlMediaElementGetWebkitAudioDecodedByteCount,-        ghcjs_dom_html_media_element_get_webkit_video_decoded_byte_count,-        htmlMediaElementGetWebkitVideoDecodedByteCount,-        htmlMediaElementOnwebkitneedkey,-        ghcjs_dom_html_media_element_set_media_group,-        htmlMediaElementSetMediaGroup,-        ghcjs_dom_html_media_element_get_media_group,-        htmlMediaElementGetMediaGroup,-        ghcjs_dom_html_media_element_get_webkit_current_playback_target_is_wireless,-        htmlMediaElementGetWebkitCurrentPlaybackTargetIsWireless,-        htmlMediaElementOnwebkitcurrentplaybacktargetiswirelesschanged,-        htmlMediaElementOnwebkitplaybacktargetavailabilitychanged,-        HTMLMediaElement, IsHTMLMediaElement, castToHTMLMediaElement,-        gTypeHTMLMediaElement, toHTMLMediaElement)-       where-import GHCJS.Types-import GHCJS.Foreign-import GHCJS.Marshal-import Data.Int-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-- -foreign import javascript unsafe "$1[\"load\"]()"-        ghcjs_dom_html_media_element_load ::-        JSRef HTMLMediaElement -> IO ()- -htmlMediaElementLoad :: (IsHTMLMediaElement self) => self -> IO ()-htmlMediaElementLoad self-  = ghcjs_dom_html_media_element_load-      (unHTMLMediaElement (toHTMLMediaElement self))- -foreign import javascript unsafe "$1[\"canPlayType\"]($2)"-        ghcjs_dom_html_media_element_can_play_type ::-        JSRef HTMLMediaElement -> JSString -> IO JSString- -htmlMediaElementCanPlayType ::-                            (IsHTMLMediaElement self, ToJSString type', FromJSString result) =>-                              self -> type' -> IO result-htmlMediaElementCanPlayType self type'-  = fromJSString <$>-      (ghcjs_dom_html_media_element_can_play_type-         (unHTMLMediaElement (toHTMLMediaElement self))-         (toJSString type'))- -foreign import javascript unsafe "$1[\"play\"]()"-        ghcjs_dom_html_media_element_play ::-        JSRef HTMLMediaElement -> IO ()- -htmlMediaElementPlay :: (IsHTMLMediaElement self) => self -> IO ()-htmlMediaElementPlay self-  = ghcjs_dom_html_media_element_play-      (unHTMLMediaElement (toHTMLMediaElement self))- -foreign import javascript unsafe "$1[\"pause\"]()"-        ghcjs_dom_html_media_element_pause ::-        JSRef HTMLMediaElement -> IO ()- -htmlMediaElementPause :: (IsHTMLMediaElement self) => self -> IO ()-htmlMediaElementPause self-  = ghcjs_dom_html_media_element_pause-      (unHTMLMediaElement (toHTMLMediaElement self))- -foreign import javascript unsafe "$1[\"fastSeek\"]($2)"-        ghcjs_dom_html_media_element_fast_seek ::-        JSRef HTMLMediaElement -> Double -> IO ()- -htmlMediaElementFastSeek ::-                         (IsHTMLMediaElement self) => self -> Double -> IO ()-htmlMediaElementFastSeek self time-  = ghcjs_dom_html_media_element_fast_seek-      (unHTMLMediaElement (toHTMLMediaElement self))-      time- -foreign import javascript unsafe-        "$1[\"webkitShowPlaybackTargetPicker\"]()"-        ghcjs_dom_html_media_element_webkit_show_playback_target_picker ::-        JSRef HTMLMediaElement -> IO ()- -htmlMediaElementWebkitShowPlaybackTargetPicker ::-                                               (IsHTMLMediaElement self) => self -> IO ()-htmlMediaElementWebkitShowPlaybackTargetPicker self-  = ghcjs_dom_html_media_element_webkit_show_playback_target_picker-      (unHTMLMediaElement (toHTMLMediaElement self))-cNETWORK_EMPTY = 0-cNETWORK_IDLE = 1-cNETWORK_LOADING = 2-cNETWORK_NO_SOURCE = 3-cHAVE_NOTHING = 0-cHAVE_METADATA = 1-cHAVE_CURRENT_DATA = 2-cHAVE_FUTURE_DATA = 3-cHAVE_ENOUGH_DATA = 4- -foreign import javascript unsafe "$1[\"error\"]"-        ghcjs_dom_html_media_element_get_error ::-        JSRef HTMLMediaElement -> IO (JSRef MediaError)- -htmlMediaElementGetError ::-                         (IsHTMLMediaElement self) => self -> IO (Maybe MediaError)-htmlMediaElementGetError self-  = fmap MediaError . maybeJSNull <$>-      (ghcjs_dom_html_media_element_get_error-         (unHTMLMediaElement (toHTMLMediaElement self)))- -foreign import javascript unsafe "$1[\"src\"] = $2;"-        ghcjs_dom_html_media_element_set_src ::-        JSRef HTMLMediaElement -> JSString -> IO ()- -htmlMediaElementSetSrc ::-                       (IsHTMLMediaElement self, ToJSString val) => self -> val -> IO ()-htmlMediaElementSetSrc self val-  = ghcjs_dom_html_media_element_set_src-      (unHTMLMediaElement (toHTMLMediaElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"src\"]"-        ghcjs_dom_html_media_element_get_src ::-        JSRef HTMLMediaElement -> IO JSString- -htmlMediaElementGetSrc ::-                       (IsHTMLMediaElement self, FromJSString result) => self -> IO result-htmlMediaElementGetSrc self-  = fromJSString <$>-      (ghcjs_dom_html_media_element_get_src-         (unHTMLMediaElement (toHTMLMediaElement self)))- -foreign import javascript unsafe "$1[\"currentSrc\"]"-        ghcjs_dom_html_media_element_get_current_src ::-        JSRef HTMLMediaElement -> IO JSString- -htmlMediaElementGetCurrentSrc ::-                              (IsHTMLMediaElement self, FromJSString result) => self -> IO result-htmlMediaElementGetCurrentSrc self-  = fromJSString <$>-      (ghcjs_dom_html_media_element_get_current_src-         (unHTMLMediaElement (toHTMLMediaElement self)))- -foreign import javascript unsafe "$1[\"networkState\"]"-        ghcjs_dom_html_media_element_get_network_state ::-        JSRef HTMLMediaElement -> IO Word- -htmlMediaElementGetNetworkState ::-                                (IsHTMLMediaElement self) => self -> IO Word-htmlMediaElementGetNetworkState self-  = ghcjs_dom_html_media_element_get_network_state-      (unHTMLMediaElement (toHTMLMediaElement self))- -foreign import javascript unsafe "$1[\"preload\"] = $2;"-        ghcjs_dom_html_media_element_set_preload ::-        JSRef HTMLMediaElement -> JSString -> IO ()- -htmlMediaElementSetPreload ::-                           (IsHTMLMediaElement self, ToJSString val) => self -> val -> IO ()-htmlMediaElementSetPreload self val-  = ghcjs_dom_html_media_element_set_preload-      (unHTMLMediaElement (toHTMLMediaElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"preload\"]"-        ghcjs_dom_html_media_element_get_preload ::-        JSRef HTMLMediaElement -> IO JSString- -htmlMediaElementGetPreload ::-                           (IsHTMLMediaElement self, FromJSString result) => self -> IO result-htmlMediaElementGetPreload self-  = fromJSString <$>-      (ghcjs_dom_html_media_element_get_preload-         (unHTMLMediaElement (toHTMLMediaElement self)))- -foreign import javascript unsafe "$1[\"buffered\"]"-        ghcjs_dom_html_media_element_get_buffered ::-        JSRef HTMLMediaElement -> IO (JSRef TimeRanges)- -htmlMediaElementGetBuffered ::-                            (IsHTMLMediaElement self) => self -> IO (Maybe TimeRanges)-htmlMediaElementGetBuffered self-  = fmap TimeRanges . maybeJSNull <$>-      (ghcjs_dom_html_media_element_get_buffered-         (unHTMLMediaElement (toHTMLMediaElement self)))- -foreign import javascript unsafe "$1[\"readyState\"]"-        ghcjs_dom_html_media_element_get_ready_state ::-        JSRef HTMLMediaElement -> IO Word- -htmlMediaElementGetReadyState ::-                              (IsHTMLMediaElement self) => self -> IO Word-htmlMediaElementGetReadyState self-  = ghcjs_dom_html_media_element_get_ready_state-      (unHTMLMediaElement (toHTMLMediaElement self))- -foreign import javascript unsafe "($1[\"seeking\"] ? 1 : 0)"-        ghcjs_dom_html_media_element_get_seeking ::-        JSRef HTMLMediaElement -> IO Bool- -htmlMediaElementGetSeeking ::-                           (IsHTMLMediaElement self) => self -> IO Bool-htmlMediaElementGetSeeking self-  = ghcjs_dom_html_media_element_get_seeking-      (unHTMLMediaElement (toHTMLMediaElement self))- -foreign import javascript unsafe "$1[\"currentTime\"] = $2;"-        ghcjs_dom_html_media_element_set_current_time ::-        JSRef HTMLMediaElement -> Double -> IO ()- -htmlMediaElementSetCurrentTime ::-                               (IsHTMLMediaElement self) => self -> Double -> IO ()-htmlMediaElementSetCurrentTime self val-  = ghcjs_dom_html_media_element_set_current_time-      (unHTMLMediaElement (toHTMLMediaElement self))-      val- -foreign import javascript unsafe "$1[\"currentTime\"]"-        ghcjs_dom_html_media_element_get_current_time ::-        JSRef HTMLMediaElement -> IO Double- -htmlMediaElementGetCurrentTime ::-                               (IsHTMLMediaElement self) => self -> IO Double-htmlMediaElementGetCurrentTime self-  = ghcjs_dom_html_media_element_get_current_time-      (unHTMLMediaElement (toHTMLMediaElement self))- -foreign import javascript unsafe "$1[\"duration\"]"-        ghcjs_dom_html_media_element_get_duration ::-        JSRef HTMLMediaElement -> IO Double- -htmlMediaElementGetDuration ::-                            (IsHTMLMediaElement self) => self -> IO Double-htmlMediaElementGetDuration self-  = ghcjs_dom_html_media_element_get_duration-      (unHTMLMediaElement (toHTMLMediaElement self))- -foreign import javascript unsafe "($1[\"paused\"] ? 1 : 0)"-        ghcjs_dom_html_media_element_get_paused ::-        JSRef HTMLMediaElement -> IO Bool- -htmlMediaElementGetPaused ::-                          (IsHTMLMediaElement self) => self -> IO Bool-htmlMediaElementGetPaused self-  = ghcjs_dom_html_media_element_get_paused-      (unHTMLMediaElement (toHTMLMediaElement self))- -foreign import javascript unsafe-        "$1[\"defaultPlaybackRate\"] = $2;"-        ghcjs_dom_html_media_element_set_default_playback_rate ::-        JSRef HTMLMediaElement -> Double -> IO ()- -htmlMediaElementSetDefaultPlaybackRate ::-                                       (IsHTMLMediaElement self) => self -> Double -> IO ()-htmlMediaElementSetDefaultPlaybackRate self val-  = ghcjs_dom_html_media_element_set_default_playback_rate-      (unHTMLMediaElement (toHTMLMediaElement self))-      val- -foreign import javascript unsafe "$1[\"defaultPlaybackRate\"]"-        ghcjs_dom_html_media_element_get_default_playback_rate ::-        JSRef HTMLMediaElement -> IO Double- -htmlMediaElementGetDefaultPlaybackRate ::-                                       (IsHTMLMediaElement self) => self -> IO Double-htmlMediaElementGetDefaultPlaybackRate self-  = ghcjs_dom_html_media_element_get_default_playback_rate-      (unHTMLMediaElement (toHTMLMediaElement self))- -foreign import javascript unsafe "$1[\"playbackRate\"] = $2;"-        ghcjs_dom_html_media_element_set_playback_rate ::-        JSRef HTMLMediaElement -> Double -> IO ()- -htmlMediaElementSetPlaybackRate ::-                                (IsHTMLMediaElement self) => self -> Double -> IO ()-htmlMediaElementSetPlaybackRate self val-  = ghcjs_dom_html_media_element_set_playback_rate-      (unHTMLMediaElement (toHTMLMediaElement self))-      val- -foreign import javascript unsafe "$1[\"playbackRate\"]"-        ghcjs_dom_html_media_element_get_playback_rate ::-        JSRef HTMLMediaElement -> IO Double- -htmlMediaElementGetPlaybackRate ::-                                (IsHTMLMediaElement self) => self -> IO Double-htmlMediaElementGetPlaybackRate self-  = ghcjs_dom_html_media_element_get_playback_rate-      (unHTMLMediaElement (toHTMLMediaElement self))- -foreign import javascript unsafe "$1[\"played\"]"-        ghcjs_dom_html_media_element_get_played ::-        JSRef HTMLMediaElement -> IO (JSRef TimeRanges)- -htmlMediaElementGetPlayed ::-                          (IsHTMLMediaElement self) => self -> IO (Maybe TimeRanges)-htmlMediaElementGetPlayed self-  = fmap TimeRanges . maybeJSNull <$>-      (ghcjs_dom_html_media_element_get_played-         (unHTMLMediaElement (toHTMLMediaElement self)))- -foreign import javascript unsafe "$1[\"seekable\"]"-        ghcjs_dom_html_media_element_get_seekable ::-        JSRef HTMLMediaElement -> IO (JSRef TimeRanges)- -htmlMediaElementGetSeekable ::-                            (IsHTMLMediaElement self) => self -> IO (Maybe TimeRanges)-htmlMediaElementGetSeekable self-  = fmap TimeRanges . maybeJSNull <$>-      (ghcjs_dom_html_media_element_get_seekable-         (unHTMLMediaElement (toHTMLMediaElement self)))- -foreign import javascript unsafe "($1[\"ended\"] ? 1 : 0)"-        ghcjs_dom_html_media_element_get_ended ::-        JSRef HTMLMediaElement -> IO Bool- -htmlMediaElementGetEnded ::-                         (IsHTMLMediaElement self) => self -> IO Bool-htmlMediaElementGetEnded self-  = ghcjs_dom_html_media_element_get_ended-      (unHTMLMediaElement (toHTMLMediaElement self))- -foreign import javascript unsafe "$1[\"autoplay\"] = $2;"-        ghcjs_dom_html_media_element_set_autoplay ::-        JSRef HTMLMediaElement -> Bool -> IO ()- -htmlMediaElementSetAutoplay ::-                            (IsHTMLMediaElement self) => self -> Bool -> IO ()-htmlMediaElementSetAutoplay self val-  = ghcjs_dom_html_media_element_set_autoplay-      (unHTMLMediaElement (toHTMLMediaElement self))-      val- -foreign import javascript unsafe "($1[\"autoplay\"] ? 1 : 0)"-        ghcjs_dom_html_media_element_get_autoplay ::-        JSRef HTMLMediaElement -> IO Bool- -htmlMediaElementGetAutoplay ::-                            (IsHTMLMediaElement self) => self -> IO Bool-htmlMediaElementGetAutoplay self-  = ghcjs_dom_html_media_element_get_autoplay-      (unHTMLMediaElement (toHTMLMediaElement self))- -foreign import javascript unsafe "$1[\"loop\"] = $2;"-        ghcjs_dom_html_media_element_set_loop ::-        JSRef HTMLMediaElement -> Bool -> IO ()- -htmlMediaElementSetLoop ::-                        (IsHTMLMediaElement self) => self -> Bool -> IO ()-htmlMediaElementSetLoop self val-  = ghcjs_dom_html_media_element_set_loop-      (unHTMLMediaElement (toHTMLMediaElement self))-      val- -foreign import javascript unsafe "($1[\"loop\"] ? 1 : 0)"-        ghcjs_dom_html_media_element_get_loop ::-        JSRef HTMLMediaElement -> IO Bool- -htmlMediaElementGetLoop ::-                        (IsHTMLMediaElement self) => self -> IO Bool-htmlMediaElementGetLoop self-  = ghcjs_dom_html_media_element_get_loop-      (unHTMLMediaElement (toHTMLMediaElement self))- -foreign import javascript unsafe "$1[\"controls\"] = $2;"-        ghcjs_dom_html_media_element_set_controls ::-        JSRef HTMLMediaElement -> Bool -> IO ()- -htmlMediaElementSetControls ::-                            (IsHTMLMediaElement self) => self -> Bool -> IO ()-htmlMediaElementSetControls self val-  = ghcjs_dom_html_media_element_set_controls-      (unHTMLMediaElement (toHTMLMediaElement self))-      val- -foreign import javascript unsafe "($1[\"controls\"] ? 1 : 0)"-        ghcjs_dom_html_media_element_get_controls ::-        JSRef HTMLMediaElement -> IO Bool- -htmlMediaElementGetControls ::-                            (IsHTMLMediaElement self) => self -> IO Bool-htmlMediaElementGetControls self-  = ghcjs_dom_html_media_element_get_controls-      (unHTMLMediaElement (toHTMLMediaElement self))- -foreign import javascript unsafe "$1[\"volume\"] = $2;"-        ghcjs_dom_html_media_element_set_volume ::-        JSRef HTMLMediaElement -> Double -> IO ()- -htmlMediaElementSetVolume ::-                          (IsHTMLMediaElement self) => self -> Double -> IO ()-htmlMediaElementSetVolume self val-  = ghcjs_dom_html_media_element_set_volume-      (unHTMLMediaElement (toHTMLMediaElement self))-      val- -foreign import javascript unsafe "$1[\"volume\"]"-        ghcjs_dom_html_media_element_get_volume ::-        JSRef HTMLMediaElement -> IO Double- -htmlMediaElementGetVolume ::-                          (IsHTMLMediaElement self) => self -> IO Double-htmlMediaElementGetVolume self-  = ghcjs_dom_html_media_element_get_volume-      (unHTMLMediaElement (toHTMLMediaElement self))- -foreign import javascript unsafe "$1[\"muted\"] = $2;"-        ghcjs_dom_html_media_element_set_muted ::-        JSRef HTMLMediaElement -> Bool -> IO ()- -htmlMediaElementSetMuted ::-                         (IsHTMLMediaElement self) => self -> Bool -> IO ()-htmlMediaElementSetMuted self val-  = ghcjs_dom_html_media_element_set_muted-      (unHTMLMediaElement (toHTMLMediaElement self))-      val- -foreign import javascript unsafe "($1[\"muted\"] ? 1 : 0)"-        ghcjs_dom_html_media_element_get_muted ::-        JSRef HTMLMediaElement -> IO Bool- -htmlMediaElementGetMuted ::-                         (IsHTMLMediaElement self) => self -> IO Bool-htmlMediaElementGetMuted self-  = ghcjs_dom_html_media_element_get_muted-      (unHTMLMediaElement (toHTMLMediaElement self))- -foreign import javascript unsafe "$1[\"defaultMuted\"] = $2;"-        ghcjs_dom_html_media_element_set_default_muted ::-        JSRef HTMLMediaElement -> Bool -> IO ()- -htmlMediaElementSetDefaultMuted ::-                                (IsHTMLMediaElement self) => self -> Bool -> IO ()-htmlMediaElementSetDefaultMuted self val-  = ghcjs_dom_html_media_element_set_default_muted-      (unHTMLMediaElement (toHTMLMediaElement self))-      val- -foreign import javascript unsafe "($1[\"defaultMuted\"] ? 1 : 0)"-        ghcjs_dom_html_media_element_get_default_muted ::-        JSRef HTMLMediaElement -> IO Bool- -htmlMediaElementGetDefaultMuted ::-                                (IsHTMLMediaElement self) => self -> IO Bool-htmlMediaElementGetDefaultMuted self-  = ghcjs_dom_html_media_element_get_default_muted-      (unHTMLMediaElement (toHTMLMediaElement self))- -htmlMediaElementOnemptied ::-                          (IsHTMLMediaElement self) => Signal self (EventM UIEvent self ())-htmlMediaElementOnemptied = (connect "emptied")- -htmlMediaElementOnloadedmetadata ::-                                 (IsHTMLMediaElement self) => Signal self (EventM UIEvent self ())-htmlMediaElementOnloadedmetadata = (connect "loadedmetadata")- -htmlMediaElementOnloadeddata ::-                             (IsHTMLMediaElement self) => Signal self (EventM UIEvent self ())-htmlMediaElementOnloadeddata = (connect "loadeddata")- -htmlMediaElementOncanplay ::-                          (IsHTMLMediaElement self) => Signal self (EventM UIEvent self ())-htmlMediaElementOncanplay = (connect "canplay")- -htmlMediaElementOncanplaythrough ::-                                 (IsHTMLMediaElement self) => Signal self (EventM UIEvent self ())-htmlMediaElementOncanplaythrough = (connect "canplaythrough")- -htmlMediaElementOnplaying ::-                          (IsHTMLMediaElement self) => Signal self (EventM UIEvent self ())-htmlMediaElementOnplaying = (connect "playing")- -htmlMediaElementOnended ::-                        (IsHTMLMediaElement self) => Signal self (EventM UIEvent self ())-htmlMediaElementOnended = (connect "ended")- -htmlMediaElementOnwaiting ::-                          (IsHTMLMediaElement self) => Signal self (EventM UIEvent self ())-htmlMediaElementOnwaiting = (connect "waiting")- -htmlMediaElementOndurationchange ::-                                 (IsHTMLMediaElement self) => Signal self (EventM UIEvent self ())-htmlMediaElementOndurationchange = (connect "durationchange")- -htmlMediaElementOntimeupdate ::-                             (IsHTMLMediaElement self) => Signal self (EventM UIEvent self ())-htmlMediaElementOntimeupdate = (connect "timeupdate")- -htmlMediaElementOnplay ::-                       (IsHTMLMediaElement self) => Signal self (EventM UIEvent self ())-htmlMediaElementOnplay = (connect "play")- -htmlMediaElementOnpause ::-                        (IsHTMLMediaElement self) => Signal self (EventM UIEvent self ())-htmlMediaElementOnpause = (connect "pause")- -htmlMediaElementOnratechange ::-                             (IsHTMLMediaElement self) => Signal self (EventM UIEvent self ())-htmlMediaElementOnratechange = (connect "ratechange")- -htmlMediaElementOnvolumechange ::-                               (IsHTMLMediaElement self) => Signal self (EventM UIEvent self ())-htmlMediaElementOnvolumechange = (connect "volumechange")- -foreign import javascript unsafe-        "$1[\"webkitPreservesPitch\"] = $2;"-        ghcjs_dom_html_media_element_set_webkit_preserves_pitch ::-        JSRef HTMLMediaElement -> Bool -> IO ()- -htmlMediaElementSetWebkitPreservesPitch ::-                                        (IsHTMLMediaElement self) => self -> Bool -> IO ()-htmlMediaElementSetWebkitPreservesPitch self val-  = ghcjs_dom_html_media_element_set_webkit_preserves_pitch-      (unHTMLMediaElement (toHTMLMediaElement self))-      val- -foreign import javascript unsafe-        "($1[\"webkitPreservesPitch\"] ? 1 : 0)"-        ghcjs_dom_html_media_element_get_webkit_preserves_pitch ::-        JSRef HTMLMediaElement -> IO Bool- -htmlMediaElementGetWebkitPreservesPitch ::-                                        (IsHTMLMediaElement self) => self -> IO Bool-htmlMediaElementGetWebkitPreservesPitch self-  = ghcjs_dom_html_media_element_get_webkit_preserves_pitch-      (unHTMLMediaElement (toHTMLMediaElement self))- -foreign import javascript unsafe-        "($1[\"webkitHasClosedCaptions\"] ? 1 : 0)"-        ghcjs_dom_html_media_element_get_webkit_has_closed_captions ::-        JSRef HTMLMediaElement -> IO Bool- -htmlMediaElementGetWebkitHasClosedCaptions ::-                                           (IsHTMLMediaElement self) => self -> IO Bool-htmlMediaElementGetWebkitHasClosedCaptions self-  = ghcjs_dom_html_media_element_get_webkit_has_closed_captions-      (unHTMLMediaElement (toHTMLMediaElement self))- -foreign import javascript unsafe-        "$1[\"webkitClosedCaptionsVisible\"] = $2;"-        ghcjs_dom_html_media_element_set_webkit_closed_captions_visible ::-        JSRef HTMLMediaElement -> Bool -> IO ()- -htmlMediaElementSetWebkitClosedCaptionsVisible ::-                                               (IsHTMLMediaElement self) => self -> Bool -> IO ()-htmlMediaElementSetWebkitClosedCaptionsVisible self val-  = ghcjs_dom_html_media_element_set_webkit_closed_captions_visible-      (unHTMLMediaElement (toHTMLMediaElement self))-      val- -foreign import javascript unsafe-        "($1[\"webkitClosedCaptionsVisible\"] ? 1 : 0)"-        ghcjs_dom_html_media_element_get_webkit_closed_captions_visible ::-        JSRef HTMLMediaElement -> IO Bool- -htmlMediaElementGetWebkitClosedCaptionsVisible ::-                                               (IsHTMLMediaElement self) => self -> IO Bool-htmlMediaElementGetWebkitClosedCaptionsVisible self-  = ghcjs_dom_html_media_element_get_webkit_closed_captions_visible-      (unHTMLMediaElement (toHTMLMediaElement self))- -foreign import javascript unsafe-        "$1[\"webkitAudioDecodedByteCount\"]"-        ghcjs_dom_html_media_element_get_webkit_audio_decoded_byte_count ::-        JSRef HTMLMediaElement -> IO Word- -htmlMediaElementGetWebkitAudioDecodedByteCount ::-                                               (IsHTMLMediaElement self) => self -> IO Word-htmlMediaElementGetWebkitAudioDecodedByteCount self-  = ghcjs_dom_html_media_element_get_webkit_audio_decoded_byte_count-      (unHTMLMediaElement (toHTMLMediaElement self))- -foreign import javascript unsafe-        "$1[\"webkitVideoDecodedByteCount\"]"-        ghcjs_dom_html_media_element_get_webkit_video_decoded_byte_count ::-        JSRef HTMLMediaElement -> IO Word- -htmlMediaElementGetWebkitVideoDecodedByteCount ::-                                               (IsHTMLMediaElement self) => self -> IO Word-htmlMediaElementGetWebkitVideoDecodedByteCount self-  = ghcjs_dom_html_media_element_get_webkit_video_decoded_byte_count-      (unHTMLMediaElement (toHTMLMediaElement self))- -htmlMediaElementOnwebkitneedkey ::-                                (IsHTMLMediaElement self) => Signal self (EventM UIEvent self ())-htmlMediaElementOnwebkitneedkey = (connect "webkitneedkey")- -foreign import javascript unsafe "$1[\"mediaGroup\"] = $2;"-        ghcjs_dom_html_media_element_set_media_group ::-        JSRef HTMLMediaElement -> JSString -> IO ()- -htmlMediaElementSetMediaGroup ::-                              (IsHTMLMediaElement self, ToJSString val) => self -> val -> IO ()-htmlMediaElementSetMediaGroup self val-  = ghcjs_dom_html_media_element_set_media_group-      (unHTMLMediaElement (toHTMLMediaElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"mediaGroup\"]"-        ghcjs_dom_html_media_element_get_media_group ::-        JSRef HTMLMediaElement -> IO JSString- -htmlMediaElementGetMediaGroup ::-                              (IsHTMLMediaElement self, FromJSString result) => self -> IO result-htmlMediaElementGetMediaGroup self-  = fromJSString <$>-      (ghcjs_dom_html_media_element_get_media_group-         (unHTMLMediaElement (toHTMLMediaElement self)))- -foreign import javascript unsafe-        "($1[\"webkitCurrentPlaybackTargetIsWireless\"] ? 1 : 0)"-        ghcjs_dom_html_media_element_get_webkit_current_playback_target_is_wireless-        :: JSRef HTMLMediaElement -> IO Bool- -htmlMediaElementGetWebkitCurrentPlaybackTargetIsWireless ::-                                                         (IsHTMLMediaElement self) =>-                                                           self -> IO Bool-htmlMediaElementGetWebkitCurrentPlaybackTargetIsWireless self-  = ghcjs_dom_html_media_element_get_webkit_current_playback_target_is_wireless-      (unHTMLMediaElement (toHTMLMediaElement self))- -htmlMediaElementOnwebkitcurrentplaybacktargetiswirelesschanged ::-                                                               (IsHTMLMediaElement self) =>-                                                                 Signal self-                                                                   (EventM UIEvent self ())-htmlMediaElementOnwebkitcurrentplaybacktargetiswirelesschanged-  = (connect "webkitcurrentplaybacktargetiswirelesschanged")- -htmlMediaElementOnwebkitplaybacktargetavailabilitychanged ::-                                                          (IsHTMLMediaElement self) =>-                                                            Signal self (EventM UIEvent self ())-htmlMediaElementOnwebkitplaybacktargetavailabilitychanged-  = (connect "webkitplaybacktargetavailabilitychanged")+  module GHCJS.DOM.JSFFI.Generated.HTMLMediaElement #else-module GHCJS.DOM.HTMLMediaElement (   module Graphics.UI.Gtk.WebKit.DOM.HTMLMediaElement+#endif   ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.HTMLMediaElement+#else import Graphics.UI.Gtk.WebKit.DOM.HTMLMediaElement #endif
src/GHCJS/DOM/HTMLMenuElement.hs view
@@ -1,45 +1,13 @@ {-# LANGUAGE CPP #-}+module GHCJS.DOM.HTMLMenuElement ( #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.HTMLMenuElement-       (ghcjs_dom_html_menu_element_set_compact,-        htmlMenuElementSetCompact, ghcjs_dom_html_menu_element_get_compact,-        htmlMenuElementGetCompact, HTMLMenuElement, IsHTMLMenuElement,-        castToHTMLMenuElement, gTypeHTMLMenuElement, toHTMLMenuElement)-       where-import GHCJS.Types-import GHCJS.Foreign-import GHCJS.Marshal-import Data.Int-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-- -foreign import javascript unsafe "$1[\"compact\"] = $2;"-        ghcjs_dom_html_menu_element_set_compact ::-        JSRef HTMLMenuElement -> Bool -> IO ()- -htmlMenuElementSetCompact ::-                          (IsHTMLMenuElement self) => self -> Bool -> IO ()-htmlMenuElementSetCompact self val-  = ghcjs_dom_html_menu_element_set_compact-      (unHTMLMenuElement (toHTMLMenuElement self))-      val- -foreign import javascript unsafe "($1[\"compact\"] ? 1 : 0)"-        ghcjs_dom_html_menu_element_get_compact ::-        JSRef HTMLMenuElement -> IO Bool- -htmlMenuElementGetCompact ::-                          (IsHTMLMenuElement self) => self -> IO Bool-htmlMenuElementGetCompact self-  = ghcjs_dom_html_menu_element_get_compact-      (unHTMLMenuElement (toHTMLMenuElement self))+  module GHCJS.DOM.JSFFI.Generated.HTMLMenuElement #else-module GHCJS.DOM.HTMLMenuElement (   module Graphics.UI.Gtk.WebKit.DOM.HTMLMenuElement+#endif   ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.HTMLMenuElement+#else import Graphics.UI.Gtk.WebKit.DOM.HTMLMenuElement #endif
src/GHCJS/DOM/HTMLMetaElement.hs view
@@ -1,120 +1,13 @@ {-# LANGUAGE CPP #-}+module GHCJS.DOM.HTMLMetaElement ( #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.HTMLMetaElement-       (ghcjs_dom_html_meta_element_set_content,-        htmlMetaElementSetContent, ghcjs_dom_html_meta_element_get_content,-        htmlMetaElementGetContent,-        ghcjs_dom_html_meta_element_set_http_equiv,-        htmlMetaElementSetHttpEquiv,-        ghcjs_dom_html_meta_element_get_http_equiv,-        htmlMetaElementGetHttpEquiv, ghcjs_dom_html_meta_element_set_name,-        htmlMetaElementSetName, ghcjs_dom_html_meta_element_get_name,-        htmlMetaElementGetName, ghcjs_dom_html_meta_element_set_scheme,-        htmlMetaElementSetScheme, ghcjs_dom_html_meta_element_get_scheme,-        htmlMetaElementGetScheme, HTMLMetaElement, IsHTMLMetaElement,-        castToHTMLMetaElement, gTypeHTMLMetaElement, toHTMLMetaElement)-       where-import GHCJS.Types-import GHCJS.Foreign-import GHCJS.Marshal-import Data.Int-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-- -foreign import javascript unsafe "$1[\"content\"] = $2;"-        ghcjs_dom_html_meta_element_set_content ::-        JSRef HTMLMetaElement -> JSString -> IO ()- -htmlMetaElementSetContent ::-                          (IsHTMLMetaElement self, ToJSString val) => self -> val -> IO ()-htmlMetaElementSetContent self val-  = ghcjs_dom_html_meta_element_set_content-      (unHTMLMetaElement (toHTMLMetaElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"content\"]"-        ghcjs_dom_html_meta_element_get_content ::-        JSRef HTMLMetaElement -> IO JSString- -htmlMetaElementGetContent ::-                          (IsHTMLMetaElement self, FromJSString result) => self -> IO result-htmlMetaElementGetContent self-  = fromJSString <$>-      (ghcjs_dom_html_meta_element_get_content-         (unHTMLMetaElement (toHTMLMetaElement self)))- -foreign import javascript unsafe "$1[\"httpEquiv\"] = $2;"-        ghcjs_dom_html_meta_element_set_http_equiv ::-        JSRef HTMLMetaElement -> JSString -> IO ()- -htmlMetaElementSetHttpEquiv ::-                            (IsHTMLMetaElement self, ToJSString val) => self -> val -> IO ()-htmlMetaElementSetHttpEquiv self val-  = ghcjs_dom_html_meta_element_set_http_equiv-      (unHTMLMetaElement (toHTMLMetaElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"httpEquiv\"]"-        ghcjs_dom_html_meta_element_get_http_equiv ::-        JSRef HTMLMetaElement -> IO JSString- -htmlMetaElementGetHttpEquiv ::-                            (IsHTMLMetaElement self, FromJSString result) => self -> IO result-htmlMetaElementGetHttpEquiv self-  = fromJSString <$>-      (ghcjs_dom_html_meta_element_get_http_equiv-         (unHTMLMetaElement (toHTMLMetaElement self)))- -foreign import javascript unsafe "$1[\"name\"] = $2;"-        ghcjs_dom_html_meta_element_set_name ::-        JSRef HTMLMetaElement -> JSString -> IO ()- -htmlMetaElementSetName ::-                       (IsHTMLMetaElement self, ToJSString val) => self -> val -> IO ()-htmlMetaElementSetName self val-  = ghcjs_dom_html_meta_element_set_name-      (unHTMLMetaElement (toHTMLMetaElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"name\"]"-        ghcjs_dom_html_meta_element_get_name ::-        JSRef HTMLMetaElement -> IO JSString- -htmlMetaElementGetName ::-                       (IsHTMLMetaElement self, FromJSString result) => self -> IO result-htmlMetaElementGetName self-  = fromJSString <$>-      (ghcjs_dom_html_meta_element_get_name-         (unHTMLMetaElement (toHTMLMetaElement self)))- -foreign import javascript unsafe "$1[\"scheme\"] = $2;"-        ghcjs_dom_html_meta_element_set_scheme ::-        JSRef HTMLMetaElement -> JSString -> IO ()- -htmlMetaElementSetScheme ::-                         (IsHTMLMetaElement self, ToJSString val) => self -> val -> IO ()-htmlMetaElementSetScheme self val-  = ghcjs_dom_html_meta_element_set_scheme-      (unHTMLMetaElement (toHTMLMetaElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"scheme\"]"-        ghcjs_dom_html_meta_element_get_scheme ::-        JSRef HTMLMetaElement -> IO JSString- -htmlMetaElementGetScheme ::-                         (IsHTMLMetaElement self, FromJSString result) => self -> IO result-htmlMetaElementGetScheme self-  = fromJSString <$>-      (ghcjs_dom_html_meta_element_get_scheme-         (unHTMLMetaElement (toHTMLMetaElement self)))+  module GHCJS.DOM.JSFFI.Generated.HTMLMetaElement #else-module GHCJS.DOM.HTMLMetaElement (   module Graphics.UI.Gtk.WebKit.DOM.HTMLMetaElement+#endif   ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.HTMLMetaElement+#else import Graphics.UI.Gtk.WebKit.DOM.HTMLMetaElement #endif
+ src/GHCJS/DOM/HTMLMeterElement.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.HTMLMeterElement (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.HTMLMeterElement+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.HTMLMeterElement+#else+#endif
src/GHCJS/DOM/HTMLModElement.hs view
@@ -1,71 +1,13 @@ {-# LANGUAGE CPP #-}+module GHCJS.DOM.HTMLModElement ( #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.HTMLModElement-       (ghcjs_dom_html_mod_element_set_cite, htmlModElementSetCite,-        ghcjs_dom_html_mod_element_get_cite, htmlModElementGetCite,-        ghcjs_dom_html_mod_element_set_date_time,-        htmlModElementSetDateTime,-        ghcjs_dom_html_mod_element_get_date_time,-        htmlModElementGetDateTime, HTMLModElement, IsHTMLModElement,-        castToHTMLModElement, gTypeHTMLModElement, toHTMLModElement)-       where-import GHCJS.Types-import GHCJS.Foreign-import GHCJS.Marshal-import Data.Int-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-- -foreign import javascript unsafe "$1[\"cite\"] = $2;"-        ghcjs_dom_html_mod_element_set_cite ::-        JSRef HTMLModElement -> JSString -> IO ()- -htmlModElementSetCite ::-                      (IsHTMLModElement self, ToJSString val) => self -> val -> IO ()-htmlModElementSetCite self val-  = ghcjs_dom_html_mod_element_set_cite-      (unHTMLModElement (toHTMLModElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"cite\"]"-        ghcjs_dom_html_mod_element_get_cite ::-        JSRef HTMLModElement -> IO JSString- -htmlModElementGetCite ::-                      (IsHTMLModElement self, FromJSString result) => self -> IO result-htmlModElementGetCite self-  = fromJSString <$>-      (ghcjs_dom_html_mod_element_get_cite-         (unHTMLModElement (toHTMLModElement self)))- -foreign import javascript unsafe "$1[\"dateTime\"] = $2;"-        ghcjs_dom_html_mod_element_set_date_time ::-        JSRef HTMLModElement -> JSString -> IO ()- -htmlModElementSetDateTime ::-                          (IsHTMLModElement self, ToJSString val) => self -> val -> IO ()-htmlModElementSetDateTime self val-  = ghcjs_dom_html_mod_element_set_date_time-      (unHTMLModElement (toHTMLModElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"dateTime\"]"-        ghcjs_dom_html_mod_element_get_date_time ::-        JSRef HTMLModElement -> IO JSString- -htmlModElementGetDateTime ::-                          (IsHTMLModElement self, FromJSString result) => self -> IO result-htmlModElementGetDateTime self-  = fromJSString <$>-      (ghcjs_dom_html_mod_element_get_date_time-         (unHTMLModElement (toHTMLModElement self)))+  module GHCJS.DOM.JSFFI.Generated.HTMLModElement #else-module GHCJS.DOM.HTMLModElement (   module Graphics.UI.Gtk.WebKit.DOM.HTMLModElement+#endif   ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.HTMLModElement+#else import Graphics.UI.Gtk.WebKit.DOM.HTMLModElement #endif
src/GHCJS/DOM/HTMLOListElement.hs view
@@ -1,94 +1,13 @@ {-# LANGUAGE CPP #-}+module GHCJS.DOM.HTMLOListElement ( #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.HTMLOListElement-       (ghcjs_dom_htmlo_list_element_set_compact,-        htmloListElementSetCompact,-        ghcjs_dom_htmlo_list_element_get_compact,-        htmloListElementGetCompact, ghcjs_dom_htmlo_list_element_set_start,-        htmloListElementSetStart, ghcjs_dom_htmlo_list_element_get_start,-        htmloListElementGetStart,-        ghcjs_dom_htmlo_list_element_set_reversed,-        htmloListElementSetReversed,-        ghcjs_dom_htmlo_list_element_get_reversed,-        htmloListElementGetReversed, HTMLOListElement, IsHTMLOListElement,-        castToHTMLOListElement, gTypeHTMLOListElement, toHTMLOListElement)-       where-import GHCJS.Types-import GHCJS.Foreign-import GHCJS.Marshal-import Data.Int-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-- -foreign import javascript unsafe "$1[\"compact\"] = $2;"-        ghcjs_dom_htmlo_list_element_set_compact ::-        JSRef HTMLOListElement -> Bool -> IO ()- -htmloListElementSetCompact ::-                           (IsHTMLOListElement self) => self -> Bool -> IO ()-htmloListElementSetCompact self val-  = ghcjs_dom_htmlo_list_element_set_compact-      (unHTMLOListElement (toHTMLOListElement self))-      val- -foreign import javascript unsafe "($1[\"compact\"] ? 1 : 0)"-        ghcjs_dom_htmlo_list_element_get_compact ::-        JSRef HTMLOListElement -> IO Bool- -htmloListElementGetCompact ::-                           (IsHTMLOListElement self) => self -> IO Bool-htmloListElementGetCompact self-  = ghcjs_dom_htmlo_list_element_get_compact-      (unHTMLOListElement (toHTMLOListElement self))- -foreign import javascript unsafe "$1[\"start\"] = $2;"-        ghcjs_dom_htmlo_list_element_set_start ::-        JSRef HTMLOListElement -> Int -> IO ()- -htmloListElementSetStart ::-                         (IsHTMLOListElement self) => self -> Int -> IO ()-htmloListElementSetStart self val-  = ghcjs_dom_htmlo_list_element_set_start-      (unHTMLOListElement (toHTMLOListElement self))-      val- -foreign import javascript unsafe "$1[\"start\"]"-        ghcjs_dom_htmlo_list_element_get_start ::-        JSRef HTMLOListElement -> IO Int- -htmloListElementGetStart ::-                         (IsHTMLOListElement self) => self -> IO Int-htmloListElementGetStart self-  = ghcjs_dom_htmlo_list_element_get_start-      (unHTMLOListElement (toHTMLOListElement self))- -foreign import javascript unsafe "$1[\"reversed\"] = $2;"-        ghcjs_dom_htmlo_list_element_set_reversed ::-        JSRef HTMLOListElement -> Bool -> IO ()- -htmloListElementSetReversed ::-                            (IsHTMLOListElement self) => self -> Bool -> IO ()-htmloListElementSetReversed self val-  = ghcjs_dom_htmlo_list_element_set_reversed-      (unHTMLOListElement (toHTMLOListElement self))-      val- -foreign import javascript unsafe "($1[\"reversed\"] ? 1 : 0)"-        ghcjs_dom_htmlo_list_element_get_reversed ::-        JSRef HTMLOListElement -> IO Bool- -htmloListElementGetReversed ::-                            (IsHTMLOListElement self) => self -> IO Bool-htmloListElementGetReversed self-  = ghcjs_dom_htmlo_list_element_get_reversed-      (unHTMLOListElement (toHTMLOListElement self))+  module GHCJS.DOM.JSFFI.Generated.HTMLOListElement #else-module GHCJS.DOM.HTMLOListElement (   module Graphics.UI.Gtk.WebKit.DOM.HTMLOListElement+#endif   ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.HTMLOListElement+#else import Graphics.UI.Gtk.WebKit.DOM.HTMLOListElement #endif
src/GHCJS/DOM/HTMLObjectElement.hs view
@@ -1,502 +1,13 @@ {-# LANGUAGE CPP #-}+module GHCJS.DOM.HTMLObjectElement ( #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.HTMLObjectElement-       (ghcjs_dom_html_object_element_check_validity,-        htmlObjectElementCheckValidity,-        ghcjs_dom_html_object_element_set_custom_validity,-        htmlObjectElementSetCustomValidity,-        ghcjs_dom_html_object_element_get_form, htmlObjectElementGetForm,-        ghcjs_dom_html_object_element_set_code, htmlObjectElementSetCode,-        ghcjs_dom_html_object_element_get_code, htmlObjectElementGetCode,-        ghcjs_dom_html_object_element_set_align, htmlObjectElementSetAlign,-        ghcjs_dom_html_object_element_get_align, htmlObjectElementGetAlign,-        ghcjs_dom_html_object_element_set_archive,-        htmlObjectElementSetArchive,-        ghcjs_dom_html_object_element_get_archive,-        htmlObjectElementGetArchive,-        ghcjs_dom_html_object_element_set_border,-        htmlObjectElementSetBorder,-        ghcjs_dom_html_object_element_get_border,-        htmlObjectElementGetBorder,-        ghcjs_dom_html_object_element_set_code_base,-        htmlObjectElementSetCodeBase,-        ghcjs_dom_html_object_element_get_code_base,-        htmlObjectElementGetCodeBase,-        ghcjs_dom_html_object_element_set_code_type,-        htmlObjectElementSetCodeType,-        ghcjs_dom_html_object_element_get_code_type,-        htmlObjectElementGetCodeType,-        ghcjs_dom_html_object_element_set_data, htmlObjectElementSetData,-        ghcjs_dom_html_object_element_get_data, htmlObjectElementGetData,-        ghcjs_dom_html_object_element_set_declare,-        htmlObjectElementSetDeclare,-        ghcjs_dom_html_object_element_get_declare,-        htmlObjectElementGetDeclare,-        ghcjs_dom_html_object_element_set_height,-        htmlObjectElementSetHeight,-        ghcjs_dom_html_object_element_get_height,-        htmlObjectElementGetHeight,-        ghcjs_dom_html_object_element_set_hspace,-        htmlObjectElementSetHspace,-        ghcjs_dom_html_object_element_get_hspace,-        htmlObjectElementGetHspace, ghcjs_dom_html_object_element_set_name,-        htmlObjectElementSetName, ghcjs_dom_html_object_element_get_name,-        htmlObjectElementGetName,-        ghcjs_dom_html_object_element_set_standby,-        htmlObjectElementSetStandby,-        ghcjs_dom_html_object_element_get_standby,-        htmlObjectElementGetStandby,-        ghcjs_dom_html_object_element_set_use_map,-        htmlObjectElementSetUseMap,-        ghcjs_dom_html_object_element_get_use_map,-        htmlObjectElementGetUseMap,-        ghcjs_dom_html_object_element_set_vspace,-        htmlObjectElementSetVspace,-        ghcjs_dom_html_object_element_get_vspace,-        htmlObjectElementGetVspace,-        ghcjs_dom_html_object_element_set_width, htmlObjectElementSetWidth,-        ghcjs_dom_html_object_element_get_width, htmlObjectElementGetWidth,-        ghcjs_dom_html_object_element_get_will_validate,-        htmlObjectElementGetWillValidate,-        ghcjs_dom_html_object_element_get_validity,-        htmlObjectElementGetValidity,-        ghcjs_dom_html_object_element_get_validation_message,-        htmlObjectElementGetValidationMessage,-        ghcjs_dom_html_object_element_get_content_document,-        htmlObjectElementGetContentDocument, HTMLObjectElement,-        IsHTMLObjectElement, castToHTMLObjectElement,-        gTypeHTMLObjectElement, toHTMLObjectElement)-       where-import GHCJS.Types-import GHCJS.Foreign-import GHCJS.Marshal-import Data.Int-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-- -foreign import javascript unsafe-        "($1[\"checkValidity\"]() ? 1 : 0)"-        ghcjs_dom_html_object_element_check_validity ::-        JSRef HTMLObjectElement -> IO Bool- -htmlObjectElementCheckValidity ::-                               (IsHTMLObjectElement self) => self -> IO Bool-htmlObjectElementCheckValidity self-  = ghcjs_dom_html_object_element_check_validity-      (unHTMLObjectElement (toHTMLObjectElement self))- -foreign import javascript unsafe "$1[\"setCustomValidity\"]($2)"-        ghcjs_dom_html_object_element_set_custom_validity ::-        JSRef HTMLObjectElement -> JSString -> IO ()- -htmlObjectElementSetCustomValidity ::-                                   (IsHTMLObjectElement self, ToJSString error) =>-                                     self -> error -> IO ()-htmlObjectElementSetCustomValidity self error-  = ghcjs_dom_html_object_element_set_custom_validity-      (unHTMLObjectElement (toHTMLObjectElement self))-      (toJSString error)- -foreign import javascript unsafe "$1[\"form\"]"-        ghcjs_dom_html_object_element_get_form ::-        JSRef HTMLObjectElement -> IO (JSRef HTMLFormElement)- -htmlObjectElementGetForm ::-                         (IsHTMLObjectElement self) => self -> IO (Maybe HTMLFormElement)-htmlObjectElementGetForm self-  = fmap HTMLFormElement . maybeJSNull <$>-      (ghcjs_dom_html_object_element_get_form-         (unHTMLObjectElement (toHTMLObjectElement self)))- -foreign import javascript unsafe "$1[\"code\"] = $2;"-        ghcjs_dom_html_object_element_set_code ::-        JSRef HTMLObjectElement -> JSString -> IO ()- -htmlObjectElementSetCode ::-                         (IsHTMLObjectElement self, ToJSString val) => self -> val -> IO ()-htmlObjectElementSetCode self val-  = ghcjs_dom_html_object_element_set_code-      (unHTMLObjectElement (toHTMLObjectElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"code\"]"-        ghcjs_dom_html_object_element_get_code ::-        JSRef HTMLObjectElement -> IO JSString- -htmlObjectElementGetCode ::-                         (IsHTMLObjectElement self, FromJSString result) =>-                           self -> IO result-htmlObjectElementGetCode self-  = fromJSString <$>-      (ghcjs_dom_html_object_element_get_code-         (unHTMLObjectElement (toHTMLObjectElement self)))- -foreign import javascript unsafe "$1[\"align\"] = $2;"-        ghcjs_dom_html_object_element_set_align ::-        JSRef HTMLObjectElement -> JSString -> IO ()- -htmlObjectElementSetAlign ::-                          (IsHTMLObjectElement self, ToJSString val) => self -> val -> IO ()-htmlObjectElementSetAlign self val-  = ghcjs_dom_html_object_element_set_align-      (unHTMLObjectElement (toHTMLObjectElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"align\"]"-        ghcjs_dom_html_object_element_get_align ::-        JSRef HTMLObjectElement -> IO JSString- -htmlObjectElementGetAlign ::-                          (IsHTMLObjectElement self, FromJSString result) =>-                            self -> IO result-htmlObjectElementGetAlign self-  = fromJSString <$>-      (ghcjs_dom_html_object_element_get_align-         (unHTMLObjectElement (toHTMLObjectElement self)))- -foreign import javascript unsafe "$1[\"archive\"] = $2;"-        ghcjs_dom_html_object_element_set_archive ::-        JSRef HTMLObjectElement -> JSString -> IO ()- -htmlObjectElementSetArchive ::-                            (IsHTMLObjectElement self, ToJSString val) => self -> val -> IO ()-htmlObjectElementSetArchive self val-  = ghcjs_dom_html_object_element_set_archive-      (unHTMLObjectElement (toHTMLObjectElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"archive\"]"-        ghcjs_dom_html_object_element_get_archive ::-        JSRef HTMLObjectElement -> IO JSString- -htmlObjectElementGetArchive ::-                            (IsHTMLObjectElement self, FromJSString result) =>-                              self -> IO result-htmlObjectElementGetArchive self-  = fromJSString <$>-      (ghcjs_dom_html_object_element_get_archive-         (unHTMLObjectElement (toHTMLObjectElement self)))- -foreign import javascript unsafe "$1[\"border\"] = $2;"-        ghcjs_dom_html_object_element_set_border ::-        JSRef HTMLObjectElement -> JSString -> IO ()- -htmlObjectElementSetBorder ::-                           (IsHTMLObjectElement self, ToJSString val) => self -> val -> IO ()-htmlObjectElementSetBorder self val-  = ghcjs_dom_html_object_element_set_border-      (unHTMLObjectElement (toHTMLObjectElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"border\"]"-        ghcjs_dom_html_object_element_get_border ::-        JSRef HTMLObjectElement -> IO JSString- -htmlObjectElementGetBorder ::-                           (IsHTMLObjectElement self, FromJSString result) =>-                             self -> IO result-htmlObjectElementGetBorder self-  = fromJSString <$>-      (ghcjs_dom_html_object_element_get_border-         (unHTMLObjectElement (toHTMLObjectElement self)))- -foreign import javascript unsafe "$1[\"codeBase\"] = $2;"-        ghcjs_dom_html_object_element_set_code_base ::-        JSRef HTMLObjectElement -> JSString -> IO ()- -htmlObjectElementSetCodeBase ::-                             (IsHTMLObjectElement self, ToJSString val) => self -> val -> IO ()-htmlObjectElementSetCodeBase self val-  = ghcjs_dom_html_object_element_set_code_base-      (unHTMLObjectElement (toHTMLObjectElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"codeBase\"]"-        ghcjs_dom_html_object_element_get_code_base ::-        JSRef HTMLObjectElement -> IO JSString- -htmlObjectElementGetCodeBase ::-                             (IsHTMLObjectElement self, FromJSString result) =>-                               self -> IO result-htmlObjectElementGetCodeBase self-  = fromJSString <$>-      (ghcjs_dom_html_object_element_get_code_base-         (unHTMLObjectElement (toHTMLObjectElement self)))- -foreign import javascript unsafe "$1[\"codeType\"] = $2;"-        ghcjs_dom_html_object_element_set_code_type ::-        JSRef HTMLObjectElement -> JSString -> IO ()- -htmlObjectElementSetCodeType ::-                             (IsHTMLObjectElement self, ToJSString val) => self -> val -> IO ()-htmlObjectElementSetCodeType self val-  = ghcjs_dom_html_object_element_set_code_type-      (unHTMLObjectElement (toHTMLObjectElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"codeType\"]"-        ghcjs_dom_html_object_element_get_code_type ::-        JSRef HTMLObjectElement -> IO JSString- -htmlObjectElementGetCodeType ::-                             (IsHTMLObjectElement self, FromJSString result) =>-                               self -> IO result-htmlObjectElementGetCodeType self-  = fromJSString <$>-      (ghcjs_dom_html_object_element_get_code_type-         (unHTMLObjectElement (toHTMLObjectElement self)))- -foreign import javascript unsafe "$1[\"data\"] = $2;"-        ghcjs_dom_html_object_element_set_data ::-        JSRef HTMLObjectElement -> JSString -> IO ()- -htmlObjectElementSetData ::-                         (IsHTMLObjectElement self, ToJSString val) => self -> val -> IO ()-htmlObjectElementSetData self val-  = ghcjs_dom_html_object_element_set_data-      (unHTMLObjectElement (toHTMLObjectElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"data\"]"-        ghcjs_dom_html_object_element_get_data ::-        JSRef HTMLObjectElement -> IO JSString- -htmlObjectElementGetData ::-                         (IsHTMLObjectElement self, FromJSString result) =>-                           self -> IO result-htmlObjectElementGetData self-  = fromJSString <$>-      (ghcjs_dom_html_object_element_get_data-         (unHTMLObjectElement (toHTMLObjectElement self)))- -foreign import javascript unsafe "$1[\"declare\"] = $2;"-        ghcjs_dom_html_object_element_set_declare ::-        JSRef HTMLObjectElement -> Bool -> IO ()- -htmlObjectElementSetDeclare ::-                            (IsHTMLObjectElement self) => self -> Bool -> IO ()-htmlObjectElementSetDeclare self val-  = ghcjs_dom_html_object_element_set_declare-      (unHTMLObjectElement (toHTMLObjectElement self))-      val- -foreign import javascript unsafe "($1[\"declare\"] ? 1 : 0)"-        ghcjs_dom_html_object_element_get_declare ::-        JSRef HTMLObjectElement -> IO Bool- -htmlObjectElementGetDeclare ::-                            (IsHTMLObjectElement self) => self -> IO Bool-htmlObjectElementGetDeclare self-  = ghcjs_dom_html_object_element_get_declare-      (unHTMLObjectElement (toHTMLObjectElement self))- -foreign import javascript unsafe "$1[\"height\"] = $2;"-        ghcjs_dom_html_object_element_set_height ::-        JSRef HTMLObjectElement -> JSString -> IO ()- -htmlObjectElementSetHeight ::-                           (IsHTMLObjectElement self, ToJSString val) => self -> val -> IO ()-htmlObjectElementSetHeight self val-  = ghcjs_dom_html_object_element_set_height-      (unHTMLObjectElement (toHTMLObjectElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"height\"]"-        ghcjs_dom_html_object_element_get_height ::-        JSRef HTMLObjectElement -> IO JSString- -htmlObjectElementGetHeight ::-                           (IsHTMLObjectElement self, FromJSString result) =>-                             self -> IO result-htmlObjectElementGetHeight self-  = fromJSString <$>-      (ghcjs_dom_html_object_element_get_height-         (unHTMLObjectElement (toHTMLObjectElement self)))- -foreign import javascript unsafe "$1[\"hspace\"] = $2;"-        ghcjs_dom_html_object_element_set_hspace ::-        JSRef HTMLObjectElement -> Int -> IO ()- -htmlObjectElementSetHspace ::-                           (IsHTMLObjectElement self) => self -> Int -> IO ()-htmlObjectElementSetHspace self val-  = ghcjs_dom_html_object_element_set_hspace-      (unHTMLObjectElement (toHTMLObjectElement self))-      val- -foreign import javascript unsafe "$1[\"hspace\"]"-        ghcjs_dom_html_object_element_get_hspace ::-        JSRef HTMLObjectElement -> IO Int- -htmlObjectElementGetHspace ::-                           (IsHTMLObjectElement self) => self -> IO Int-htmlObjectElementGetHspace self-  = ghcjs_dom_html_object_element_get_hspace-      (unHTMLObjectElement (toHTMLObjectElement self))- -foreign import javascript unsafe "$1[\"name\"] = $2;"-        ghcjs_dom_html_object_element_set_name ::-        JSRef HTMLObjectElement -> JSString -> IO ()- -htmlObjectElementSetName ::-                         (IsHTMLObjectElement self, ToJSString val) => self -> val -> IO ()-htmlObjectElementSetName self val-  = ghcjs_dom_html_object_element_set_name-      (unHTMLObjectElement (toHTMLObjectElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"name\"]"-        ghcjs_dom_html_object_element_get_name ::-        JSRef HTMLObjectElement -> IO JSString- -htmlObjectElementGetName ::-                         (IsHTMLObjectElement self, FromJSString result) =>-                           self -> IO result-htmlObjectElementGetName self-  = fromJSString <$>-      (ghcjs_dom_html_object_element_get_name-         (unHTMLObjectElement (toHTMLObjectElement self)))- -foreign import javascript unsafe "$1[\"standby\"] = $2;"-        ghcjs_dom_html_object_element_set_standby ::-        JSRef HTMLObjectElement -> JSString -> IO ()- -htmlObjectElementSetStandby ::-                            (IsHTMLObjectElement self, ToJSString val) => self -> val -> IO ()-htmlObjectElementSetStandby self val-  = ghcjs_dom_html_object_element_set_standby-      (unHTMLObjectElement (toHTMLObjectElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"standby\"]"-        ghcjs_dom_html_object_element_get_standby ::-        JSRef HTMLObjectElement -> IO JSString- -htmlObjectElementGetStandby ::-                            (IsHTMLObjectElement self, FromJSString result) =>-                              self -> IO result-htmlObjectElementGetStandby self-  = fromJSString <$>-      (ghcjs_dom_html_object_element_get_standby-         (unHTMLObjectElement (toHTMLObjectElement self)))- -foreign import javascript unsafe "$1[\"useMap\"] = $2;"-        ghcjs_dom_html_object_element_set_use_map ::-        JSRef HTMLObjectElement -> JSString -> IO ()- -htmlObjectElementSetUseMap ::-                           (IsHTMLObjectElement self, ToJSString val) => self -> val -> IO ()-htmlObjectElementSetUseMap self val-  = ghcjs_dom_html_object_element_set_use_map-      (unHTMLObjectElement (toHTMLObjectElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"useMap\"]"-        ghcjs_dom_html_object_element_get_use_map ::-        JSRef HTMLObjectElement -> IO JSString- -htmlObjectElementGetUseMap ::-                           (IsHTMLObjectElement self, FromJSString result) =>-                             self -> IO result-htmlObjectElementGetUseMap self-  = fromJSString <$>-      (ghcjs_dom_html_object_element_get_use_map-         (unHTMLObjectElement (toHTMLObjectElement self)))- -foreign import javascript unsafe "$1[\"vspace\"] = $2;"-        ghcjs_dom_html_object_element_set_vspace ::-        JSRef HTMLObjectElement -> Int -> IO ()- -htmlObjectElementSetVspace ::-                           (IsHTMLObjectElement self) => self -> Int -> IO ()-htmlObjectElementSetVspace self val-  = ghcjs_dom_html_object_element_set_vspace-      (unHTMLObjectElement (toHTMLObjectElement self))-      val- -foreign import javascript unsafe "$1[\"vspace\"]"-        ghcjs_dom_html_object_element_get_vspace ::-        JSRef HTMLObjectElement -> IO Int- -htmlObjectElementGetVspace ::-                           (IsHTMLObjectElement self) => self -> IO Int-htmlObjectElementGetVspace self-  = ghcjs_dom_html_object_element_get_vspace-      (unHTMLObjectElement (toHTMLObjectElement self))- -foreign import javascript unsafe "$1[\"width\"] = $2;"-        ghcjs_dom_html_object_element_set_width ::-        JSRef HTMLObjectElement -> JSString -> IO ()- -htmlObjectElementSetWidth ::-                          (IsHTMLObjectElement self, ToJSString val) => self -> val -> IO ()-htmlObjectElementSetWidth self val-  = ghcjs_dom_html_object_element_set_width-      (unHTMLObjectElement (toHTMLObjectElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"width\"]"-        ghcjs_dom_html_object_element_get_width ::-        JSRef HTMLObjectElement -> IO JSString- -htmlObjectElementGetWidth ::-                          (IsHTMLObjectElement self, FromJSString result) =>-                            self -> IO result-htmlObjectElementGetWidth self-  = fromJSString <$>-      (ghcjs_dom_html_object_element_get_width-         (unHTMLObjectElement (toHTMLObjectElement self)))- -foreign import javascript unsafe "($1[\"willValidate\"] ? 1 : 0)"-        ghcjs_dom_html_object_element_get_will_validate ::-        JSRef HTMLObjectElement -> IO Bool- -htmlObjectElementGetWillValidate ::-                                 (IsHTMLObjectElement self) => self -> IO Bool-htmlObjectElementGetWillValidate self-  = ghcjs_dom_html_object_element_get_will_validate-      (unHTMLObjectElement (toHTMLObjectElement self))- -foreign import javascript unsafe "$1[\"validity\"]"-        ghcjs_dom_html_object_element_get_validity ::-        JSRef HTMLObjectElement -> IO (JSRef ValidityState)- -htmlObjectElementGetValidity ::-                             (IsHTMLObjectElement self) => self -> IO (Maybe ValidityState)-htmlObjectElementGetValidity self-  = fmap ValidityState . maybeJSNull <$>-      (ghcjs_dom_html_object_element_get_validity-         (unHTMLObjectElement (toHTMLObjectElement self)))- -foreign import javascript unsafe "$1[\"validationMessage\"]"-        ghcjs_dom_html_object_element_get_validation_message ::-        JSRef HTMLObjectElement -> IO JSString- -htmlObjectElementGetValidationMessage ::-                                      (IsHTMLObjectElement self, FromJSString result) =>-                                        self -> IO result-htmlObjectElementGetValidationMessage self-  = fromJSString <$>-      (ghcjs_dom_html_object_element_get_validation_message-         (unHTMLObjectElement (toHTMLObjectElement self)))- -foreign import javascript unsafe "$1[\"contentDocument\"]"-        ghcjs_dom_html_object_element_get_content_document ::-        JSRef HTMLObjectElement -> IO (JSRef Document)- -htmlObjectElementGetContentDocument ::-                                    (IsHTMLObjectElement self) => self -> IO (Maybe Document)-htmlObjectElementGetContentDocument self-  = fmap Document . maybeJSNull <$>-      (ghcjs_dom_html_object_element_get_content_document-         (unHTMLObjectElement (toHTMLObjectElement self)))+  module GHCJS.DOM.JSFFI.Generated.HTMLObjectElement #else-module GHCJS.DOM.HTMLObjectElement (   module Graphics.UI.Gtk.WebKit.DOM.HTMLObjectElement+#endif   ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.HTMLObjectElement+#else import Graphics.UI.Gtk.WebKit.DOM.HTMLObjectElement #endif
src/GHCJS/DOM/HTMLOptGroupElement.hs view
@@ -1,75 +1,13 @@ {-# LANGUAGE CPP #-}+module GHCJS.DOM.HTMLOptGroupElement ( #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.HTMLOptGroupElement-       (ghcjs_dom_html_opt_group_element_set_disabled,-        htmlOptGroupElementSetDisabled,-        ghcjs_dom_html_opt_group_element_get_disabled,-        htmlOptGroupElementGetDisabled,-        ghcjs_dom_html_opt_group_element_set_label,-        htmlOptGroupElementSetLabel,-        ghcjs_dom_html_opt_group_element_get_label,-        htmlOptGroupElementGetLabel, HTMLOptGroupElement,-        IsHTMLOptGroupElement, castToHTMLOptGroupElement,-        gTypeHTMLOptGroupElement, toHTMLOptGroupElement)-       where-import GHCJS.Types-import GHCJS.Foreign-import GHCJS.Marshal-import Data.Int-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-- -foreign import javascript unsafe "$1[\"disabled\"] = $2;"-        ghcjs_dom_html_opt_group_element_set_disabled ::-        JSRef HTMLOptGroupElement -> Bool -> IO ()- -htmlOptGroupElementSetDisabled ::-                               (IsHTMLOptGroupElement self) => self -> Bool -> IO ()-htmlOptGroupElementSetDisabled self val-  = ghcjs_dom_html_opt_group_element_set_disabled-      (unHTMLOptGroupElement (toHTMLOptGroupElement self))-      val- -foreign import javascript unsafe "($1[\"disabled\"] ? 1 : 0)"-        ghcjs_dom_html_opt_group_element_get_disabled ::-        JSRef HTMLOptGroupElement -> IO Bool- -htmlOptGroupElementGetDisabled ::-                               (IsHTMLOptGroupElement self) => self -> IO Bool-htmlOptGroupElementGetDisabled self-  = ghcjs_dom_html_opt_group_element_get_disabled-      (unHTMLOptGroupElement (toHTMLOptGroupElement self))- -foreign import javascript unsafe "$1[\"label\"] = $2;"-        ghcjs_dom_html_opt_group_element_set_label ::-        JSRef HTMLOptGroupElement -> JSString -> IO ()- -htmlOptGroupElementSetLabel ::-                            (IsHTMLOptGroupElement self, ToJSString val) =>-                              self -> val -> IO ()-htmlOptGroupElementSetLabel self val-  = ghcjs_dom_html_opt_group_element_set_label-      (unHTMLOptGroupElement (toHTMLOptGroupElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"label\"]"-        ghcjs_dom_html_opt_group_element_get_label ::-        JSRef HTMLOptGroupElement -> IO JSString- -htmlOptGroupElementGetLabel ::-                            (IsHTMLOptGroupElement self, FromJSString result) =>-                              self -> IO result-htmlOptGroupElementGetLabel self-  = fromJSString <$>-      (ghcjs_dom_html_opt_group_element_get_label-         (unHTMLOptGroupElement (toHTMLOptGroupElement self)))+  module GHCJS.DOM.JSFFI.Generated.HTMLOptGroupElement #else-module GHCJS.DOM.HTMLOptGroupElement (   module Graphics.UI.Gtk.WebKit.DOM.HTMLOptGroupElement+#endif   ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.HTMLOptGroupElement+#else import Graphics.UI.Gtk.WebKit.DOM.HTMLOptGroupElement #endif
src/GHCJS/DOM/HTMLOptionElement.hs view
@@ -1,184 +1,13 @@ {-# LANGUAGE CPP #-}+module GHCJS.DOM.HTMLOptionElement ( #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.HTMLOptionElement-       (ghcjs_dom_html_option_element_set_disabled,-        htmlOptionElementSetDisabled,-        ghcjs_dom_html_option_element_get_disabled,-        htmlOptionElementGetDisabled,-        ghcjs_dom_html_option_element_get_form, htmlOptionElementGetForm,-        ghcjs_dom_html_option_element_set_label, htmlOptionElementSetLabel,-        ghcjs_dom_html_option_element_get_label, htmlOptionElementGetLabel,-        ghcjs_dom_html_option_element_set_default_selected,-        htmlOptionElementSetDefaultSelected,-        ghcjs_dom_html_option_element_get_default_selected,-        htmlOptionElementGetDefaultSelected,-        ghcjs_dom_html_option_element_set_selected,-        htmlOptionElementSetSelected,-        ghcjs_dom_html_option_element_get_selected,-        htmlOptionElementGetSelected,-        ghcjs_dom_html_option_element_set_value, htmlOptionElementSetValue,-        ghcjs_dom_html_option_element_get_value, htmlOptionElementGetValue,-        ghcjs_dom_html_option_element_get_text, htmlOptionElementGetText,-        ghcjs_dom_html_option_element_get_index, htmlOptionElementGetIndex,-        HTMLOptionElement, IsHTMLOptionElement, castToHTMLOptionElement,-        gTypeHTMLOptionElement, toHTMLOptionElement)-       where-import GHCJS.Types-import GHCJS.Foreign-import GHCJS.Marshal-import Data.Int-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-- -foreign import javascript unsafe "$1[\"disabled\"] = $2;"-        ghcjs_dom_html_option_element_set_disabled ::-        JSRef HTMLOptionElement -> Bool -> IO ()- -htmlOptionElementSetDisabled ::-                             (IsHTMLOptionElement self) => self -> Bool -> IO ()-htmlOptionElementSetDisabled self val-  = ghcjs_dom_html_option_element_set_disabled-      (unHTMLOptionElement (toHTMLOptionElement self))-      val- -foreign import javascript unsafe "($1[\"disabled\"] ? 1 : 0)"-        ghcjs_dom_html_option_element_get_disabled ::-        JSRef HTMLOptionElement -> IO Bool- -htmlOptionElementGetDisabled ::-                             (IsHTMLOptionElement self) => self -> IO Bool-htmlOptionElementGetDisabled self-  = ghcjs_dom_html_option_element_get_disabled-      (unHTMLOptionElement (toHTMLOptionElement self))- -foreign import javascript unsafe "$1[\"form\"]"-        ghcjs_dom_html_option_element_get_form ::-        JSRef HTMLOptionElement -> IO (JSRef HTMLFormElement)- -htmlOptionElementGetForm ::-                         (IsHTMLOptionElement self) => self -> IO (Maybe HTMLFormElement)-htmlOptionElementGetForm self-  = fmap HTMLFormElement . maybeJSNull <$>-      (ghcjs_dom_html_option_element_get_form-         (unHTMLOptionElement (toHTMLOptionElement self)))- -foreign import javascript unsafe "$1[\"label\"] = $2;"-        ghcjs_dom_html_option_element_set_label ::-        JSRef HTMLOptionElement -> JSString -> IO ()- -htmlOptionElementSetLabel ::-                          (IsHTMLOptionElement self, ToJSString val) => self -> val -> IO ()-htmlOptionElementSetLabel self val-  = ghcjs_dom_html_option_element_set_label-      (unHTMLOptionElement (toHTMLOptionElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"label\"]"-        ghcjs_dom_html_option_element_get_label ::-        JSRef HTMLOptionElement -> IO JSString- -htmlOptionElementGetLabel ::-                          (IsHTMLOptionElement self, FromJSString result) =>-                            self -> IO result-htmlOptionElementGetLabel self-  = fromJSString <$>-      (ghcjs_dom_html_option_element_get_label-         (unHTMLOptionElement (toHTMLOptionElement self)))- -foreign import javascript unsafe "$1[\"defaultSelected\"] = $2;"-        ghcjs_dom_html_option_element_set_default_selected ::-        JSRef HTMLOptionElement -> Bool -> IO ()- -htmlOptionElementSetDefaultSelected ::-                                    (IsHTMLOptionElement self) => self -> Bool -> IO ()-htmlOptionElementSetDefaultSelected self val-  = ghcjs_dom_html_option_element_set_default_selected-      (unHTMLOptionElement (toHTMLOptionElement self))-      val- -foreign import javascript unsafe-        "($1[\"defaultSelected\"] ? 1 : 0)"-        ghcjs_dom_html_option_element_get_default_selected ::-        JSRef HTMLOptionElement -> IO Bool- -htmlOptionElementGetDefaultSelected ::-                                    (IsHTMLOptionElement self) => self -> IO Bool-htmlOptionElementGetDefaultSelected self-  = ghcjs_dom_html_option_element_get_default_selected-      (unHTMLOptionElement (toHTMLOptionElement self))- -foreign import javascript unsafe "$1[\"selected\"] = $2;"-        ghcjs_dom_html_option_element_set_selected ::-        JSRef HTMLOptionElement -> Bool -> IO ()- -htmlOptionElementSetSelected ::-                             (IsHTMLOptionElement self) => self -> Bool -> IO ()-htmlOptionElementSetSelected self val-  = ghcjs_dom_html_option_element_set_selected-      (unHTMLOptionElement (toHTMLOptionElement self))-      val- -foreign import javascript unsafe "($1[\"selected\"] ? 1 : 0)"-        ghcjs_dom_html_option_element_get_selected ::-        JSRef HTMLOptionElement -> IO Bool- -htmlOptionElementGetSelected ::-                             (IsHTMLOptionElement self) => self -> IO Bool-htmlOptionElementGetSelected self-  = ghcjs_dom_html_option_element_get_selected-      (unHTMLOptionElement (toHTMLOptionElement self))- -foreign import javascript unsafe "$1[\"value\"] = $2;"-        ghcjs_dom_html_option_element_set_value ::-        JSRef HTMLOptionElement -> JSString -> IO ()- -htmlOptionElementSetValue ::-                          (IsHTMLOptionElement self, ToJSString val) => self -> val -> IO ()-htmlOptionElementSetValue self val-  = ghcjs_dom_html_option_element_set_value-      (unHTMLOptionElement (toHTMLOptionElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"value\"]"-        ghcjs_dom_html_option_element_get_value ::-        JSRef HTMLOptionElement -> IO JSString- -htmlOptionElementGetValue ::-                          (IsHTMLOptionElement self, FromJSString result) =>-                            self -> IO result-htmlOptionElementGetValue self-  = fromJSString <$>-      (ghcjs_dom_html_option_element_get_value-         (unHTMLOptionElement (toHTMLOptionElement self)))- -foreign import javascript unsafe "$1[\"text\"]"-        ghcjs_dom_html_option_element_get_text ::-        JSRef HTMLOptionElement -> IO JSString- -htmlOptionElementGetText ::-                         (IsHTMLOptionElement self, FromJSString result) =>-                           self -> IO result-htmlOptionElementGetText self-  = fromJSString <$>-      (ghcjs_dom_html_option_element_get_text-         (unHTMLOptionElement (toHTMLOptionElement self)))- -foreign import javascript unsafe "$1[\"index\"]"-        ghcjs_dom_html_option_element_get_index ::-        JSRef HTMLOptionElement -> IO Int- -htmlOptionElementGetIndex ::-                          (IsHTMLOptionElement self) => self -> IO Int-htmlOptionElementGetIndex self-  = ghcjs_dom_html_option_element_get_index-      (unHTMLOptionElement (toHTMLOptionElement self))+  module GHCJS.DOM.JSFFI.Generated.HTMLOptionElement #else-module GHCJS.DOM.HTMLOptionElement (   module Graphics.UI.Gtk.WebKit.DOM.HTMLOptionElement+#endif   ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.HTMLOptionElement+#else import Graphics.UI.Gtk.WebKit.DOM.HTMLOptionElement #endif
src/GHCJS/DOM/HTMLOptionsCollection.hs view
@@ -1,62 +1,13 @@ {-# LANGUAGE CPP #-}+module GHCJS.DOM.HTMLOptionsCollection ( #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.HTMLOptionsCollection-       (ghcjs_dom_html_options_collection_named_item,-        htmlOptionsCollectionNamedItem,-        ghcjs_dom_html_options_collection_set_selected_index,-        htmlOptionsCollectionSetSelectedIndex,-        ghcjs_dom_html_options_collection_get_selected_index,-        htmlOptionsCollectionGetSelectedIndex, HTMLOptionsCollection,-        IsHTMLOptionsCollection, castToHTMLOptionsCollection,-        gTypeHTMLOptionsCollection, toHTMLOptionsCollection)-       where-import GHCJS.Types-import GHCJS.Foreign-import GHCJS.Marshal-import Data.Int-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-- -foreign import javascript unsafe "$1[\"namedItem\"]($2)"-        ghcjs_dom_html_options_collection_named_item ::-        JSRef HTMLOptionsCollection -> JSString -> IO (JSRef Node)- -htmlOptionsCollectionNamedItem ::-                               (IsHTMLOptionsCollection self, ToJSString name) =>-                                 self -> name -> IO (Maybe Node)-htmlOptionsCollectionNamedItem self name-  = fmap Node . maybeJSNull <$>-      (ghcjs_dom_html_options_collection_named_item-         (unHTMLOptionsCollection (toHTMLOptionsCollection self))-         (toJSString name))- -foreign import javascript unsafe "$1[\"selectedIndex\"] = $2;"-        ghcjs_dom_html_options_collection_set_selected_index ::-        JSRef HTMLOptionsCollection -> Int -> IO ()- -htmlOptionsCollectionSetSelectedIndex ::-                                      (IsHTMLOptionsCollection self) => self -> Int -> IO ()-htmlOptionsCollectionSetSelectedIndex self val-  = ghcjs_dom_html_options_collection_set_selected_index-      (unHTMLOptionsCollection (toHTMLOptionsCollection self))-      val- -foreign import javascript unsafe "$1[\"selectedIndex\"]"-        ghcjs_dom_html_options_collection_get_selected_index ::-        JSRef HTMLOptionsCollection -> IO Int- -htmlOptionsCollectionGetSelectedIndex ::-                                      (IsHTMLOptionsCollection self) => self -> IO Int-htmlOptionsCollectionGetSelectedIndex self-  = ghcjs_dom_html_options_collection_get_selected_index-      (unHTMLOptionsCollection (toHTMLOptionsCollection self))+  module GHCJS.DOM.JSFFI.Generated.HTMLOptionsCollection #else-module GHCJS.DOM.HTMLOptionsCollection (   module Graphics.UI.Gtk.WebKit.DOM.HTMLOptionsCollection+#endif   ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.HTMLOptionsCollection+#else import Graphics.UI.Gtk.WebKit.DOM.HTMLOptionsCollection #endif
+ src/GHCJS/DOM/HTMLOutputElement.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.HTMLOutputElement (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.HTMLOutputElement+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.HTMLOutputElement+#else+#endif
src/GHCJS/DOM/HTMLParagraphElement.hs view
@@ -1,50 +1,13 @@ {-# LANGUAGE CPP #-}+module GHCJS.DOM.HTMLParagraphElement ( #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.HTMLParagraphElement-       (ghcjs_dom_html_paragraph_element_set_align,-        htmlParagraphElementSetAlign,-        ghcjs_dom_html_paragraph_element_get_align,-        htmlParagraphElementGetAlign, HTMLParagraphElement,-        IsHTMLParagraphElement, castToHTMLParagraphElement,-        gTypeHTMLParagraphElement, toHTMLParagraphElement)-       where-import GHCJS.Types-import GHCJS.Foreign-import GHCJS.Marshal-import Data.Int-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-- -foreign import javascript unsafe "$1[\"align\"] = $2;"-        ghcjs_dom_html_paragraph_element_set_align ::-        JSRef HTMLParagraphElement -> JSString -> IO ()- -htmlParagraphElementSetAlign ::-                             (IsHTMLParagraphElement self, ToJSString val) =>-                               self -> val -> IO ()-htmlParagraphElementSetAlign self val-  = ghcjs_dom_html_paragraph_element_set_align-      (unHTMLParagraphElement (toHTMLParagraphElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"align\"]"-        ghcjs_dom_html_paragraph_element_get_align ::-        JSRef HTMLParagraphElement -> IO JSString- -htmlParagraphElementGetAlign ::-                             (IsHTMLParagraphElement self, FromJSString result) =>-                               self -> IO result-htmlParagraphElementGetAlign self-  = fromJSString <$>-      (ghcjs_dom_html_paragraph_element_get_align-         (unHTMLParagraphElement (toHTMLParagraphElement self)))+  module GHCJS.DOM.JSFFI.Generated.HTMLParagraphElement #else-module GHCJS.DOM.HTMLParagraphElement (   module Graphics.UI.Gtk.WebKit.DOM.HTMLParagraphElement+#endif   ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.HTMLParagraphElement+#else import Graphics.UI.Gtk.WebKit.DOM.HTMLParagraphElement #endif
src/GHCJS/DOM/HTMLParamElement.hs view
@@ -1,95 +1,13 @@ {-# LANGUAGE CPP #-}+module GHCJS.DOM.HTMLParamElement ( #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.HTMLParamElement-       (ghcjs_dom_html_param_element_set_name, htmlParamElementSetName,-        ghcjs_dom_html_param_element_get_name, htmlParamElementGetName,-        ghcjs_dom_html_param_element_set_value, htmlParamElementSetValue,-        ghcjs_dom_html_param_element_get_value, htmlParamElementGetValue,-        ghcjs_dom_html_param_element_set_value_type,-        htmlParamElementSetValueType,-        ghcjs_dom_html_param_element_get_value_type,-        htmlParamElementGetValueType, HTMLParamElement, IsHTMLParamElement,-        castToHTMLParamElement, gTypeHTMLParamElement, toHTMLParamElement)-       where-import GHCJS.Types-import GHCJS.Foreign-import GHCJS.Marshal-import Data.Int-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-- -foreign import javascript unsafe "$1[\"name\"] = $2;"-        ghcjs_dom_html_param_element_set_name ::-        JSRef HTMLParamElement -> JSString -> IO ()- -htmlParamElementSetName ::-                        (IsHTMLParamElement self, ToJSString val) => self -> val -> IO ()-htmlParamElementSetName self val-  = ghcjs_dom_html_param_element_set_name-      (unHTMLParamElement (toHTMLParamElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"name\"]"-        ghcjs_dom_html_param_element_get_name ::-        JSRef HTMLParamElement -> IO JSString- -htmlParamElementGetName ::-                        (IsHTMLParamElement self, FromJSString result) => self -> IO result-htmlParamElementGetName self-  = fromJSString <$>-      (ghcjs_dom_html_param_element_get_name-         (unHTMLParamElement (toHTMLParamElement self)))- -foreign import javascript unsafe "$1[\"value\"] = $2;"-        ghcjs_dom_html_param_element_set_value ::-        JSRef HTMLParamElement -> JSString -> IO ()- -htmlParamElementSetValue ::-                         (IsHTMLParamElement self, ToJSString val) => self -> val -> IO ()-htmlParamElementSetValue self val-  = ghcjs_dom_html_param_element_set_value-      (unHTMLParamElement (toHTMLParamElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"value\"]"-        ghcjs_dom_html_param_element_get_value ::-        JSRef HTMLParamElement -> IO JSString- -htmlParamElementGetValue ::-                         (IsHTMLParamElement self, FromJSString result) => self -> IO result-htmlParamElementGetValue self-  = fromJSString <$>-      (ghcjs_dom_html_param_element_get_value-         (unHTMLParamElement (toHTMLParamElement self)))- -foreign import javascript unsafe "$1[\"valueType\"] = $2;"-        ghcjs_dom_html_param_element_set_value_type ::-        JSRef HTMLParamElement -> JSString -> IO ()- -htmlParamElementSetValueType ::-                             (IsHTMLParamElement self, ToJSString val) => self -> val -> IO ()-htmlParamElementSetValueType self val-  = ghcjs_dom_html_param_element_set_value_type-      (unHTMLParamElement (toHTMLParamElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"valueType\"]"-        ghcjs_dom_html_param_element_get_value_type ::-        JSRef HTMLParamElement -> IO JSString- -htmlParamElementGetValueType ::-                             (IsHTMLParamElement self, FromJSString result) => self -> IO result-htmlParamElementGetValueType self-  = fromJSString <$>-      (ghcjs_dom_html_param_element_get_value_type-         (unHTMLParamElement (toHTMLParamElement self)))+  module GHCJS.DOM.JSFFI.Generated.HTMLParamElement #else-module GHCJS.DOM.HTMLParamElement (   module Graphics.UI.Gtk.WebKit.DOM.HTMLParamElement+#endif   ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.HTMLParamElement+#else import Graphics.UI.Gtk.WebKit.DOM.HTMLParamElement #endif
src/GHCJS/DOM/HTMLPreElement.hs view
@@ -1,66 +1,13 @@ {-# LANGUAGE CPP #-}+module GHCJS.DOM.HTMLPreElement ( #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.HTMLPreElement-       (ghcjs_dom_html_pre_element_set_width, htmlPreElementSetWidth,-        ghcjs_dom_html_pre_element_get_width, htmlPreElementGetWidth,-        ghcjs_dom_html_pre_element_set_wrap, htmlPreElementSetWrap,-        ghcjs_dom_html_pre_element_get_wrap, htmlPreElementGetWrap,-        HTMLPreElement, IsHTMLPreElement, castToHTMLPreElement,-        gTypeHTMLPreElement, toHTMLPreElement)-       where-import GHCJS.Types-import GHCJS.Foreign-import GHCJS.Marshal-import Data.Int-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-- -foreign import javascript unsafe "$1[\"width\"] = $2;"-        ghcjs_dom_html_pre_element_set_width ::-        JSRef HTMLPreElement -> Int -> IO ()- -htmlPreElementSetWidth ::-                       (IsHTMLPreElement self) => self -> Int -> IO ()-htmlPreElementSetWidth self val-  = ghcjs_dom_html_pre_element_set_width-      (unHTMLPreElement (toHTMLPreElement self))-      val- -foreign import javascript unsafe "$1[\"width\"]"-        ghcjs_dom_html_pre_element_get_width ::-        JSRef HTMLPreElement -> IO Int- -htmlPreElementGetWidth :: (IsHTMLPreElement self) => self -> IO Int-htmlPreElementGetWidth self-  = ghcjs_dom_html_pre_element_get_width-      (unHTMLPreElement (toHTMLPreElement self))- -foreign import javascript unsafe "$1[\"wrap\"] = $2;"-        ghcjs_dom_html_pre_element_set_wrap ::-        JSRef HTMLPreElement -> Bool -> IO ()- -htmlPreElementSetWrap ::-                      (IsHTMLPreElement self) => self -> Bool -> IO ()-htmlPreElementSetWrap self val-  = ghcjs_dom_html_pre_element_set_wrap-      (unHTMLPreElement (toHTMLPreElement self))-      val- -foreign import javascript unsafe "($1[\"wrap\"] ? 1 : 0)"-        ghcjs_dom_html_pre_element_get_wrap ::-        JSRef HTMLPreElement -> IO Bool- -htmlPreElementGetWrap :: (IsHTMLPreElement self) => self -> IO Bool-htmlPreElementGetWrap self-  = ghcjs_dom_html_pre_element_get_wrap-      (unHTMLPreElement (toHTMLPreElement self))+  module GHCJS.DOM.JSFFI.Generated.HTMLPreElement #else-module GHCJS.DOM.HTMLPreElement (   module Graphics.UI.Gtk.WebKit.DOM.HTMLPreElement+#endif   ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.HTMLPreElement+#else import Graphics.UI.Gtk.WebKit.DOM.HTMLPreElement #endif
+ src/GHCJS/DOM/HTMLProgressElement.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.HTMLProgressElement (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.HTMLProgressElement+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.HTMLProgressElement+#else+#endif
src/GHCJS/DOM/HTMLQuoteElement.hs view
@@ -1,46 +1,13 @@ {-# LANGUAGE CPP #-}+module GHCJS.DOM.HTMLQuoteElement ( #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.HTMLQuoteElement-       (ghcjs_dom_html_quote_element_set_cite, htmlQuoteElementSetCite,-        ghcjs_dom_html_quote_element_get_cite, htmlQuoteElementGetCite,-        HTMLQuoteElement, IsHTMLQuoteElement, castToHTMLQuoteElement,-        gTypeHTMLQuoteElement, toHTMLQuoteElement)-       where-import GHCJS.Types-import GHCJS.Foreign-import GHCJS.Marshal-import Data.Int-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-- -foreign import javascript unsafe "$1[\"cite\"] = $2;"-        ghcjs_dom_html_quote_element_set_cite ::-        JSRef HTMLQuoteElement -> JSString -> IO ()- -htmlQuoteElementSetCite ::-                        (IsHTMLQuoteElement self, ToJSString val) => self -> val -> IO ()-htmlQuoteElementSetCite self val-  = ghcjs_dom_html_quote_element_set_cite-      (unHTMLQuoteElement (toHTMLQuoteElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"cite\"]"-        ghcjs_dom_html_quote_element_get_cite ::-        JSRef HTMLQuoteElement -> IO JSString- -htmlQuoteElementGetCite ::-                        (IsHTMLQuoteElement self, FromJSString result) => self -> IO result-htmlQuoteElementGetCite self-  = fromJSString <$>-      (ghcjs_dom_html_quote_element_get_cite-         (unHTMLQuoteElement (toHTMLQuoteElement self)))+  module GHCJS.DOM.JSFFI.Generated.HTMLQuoteElement #else-module GHCJS.DOM.HTMLQuoteElement (   module Graphics.UI.Gtk.WebKit.DOM.HTMLQuoteElement+#endif   ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.HTMLQuoteElement+#else import Graphics.UI.Gtk.WebKit.DOM.HTMLQuoteElement #endif
src/GHCJS/DOM/HTMLScriptElement.hs view
@@ -1,249 +1,13 @@ {-# LANGUAGE CPP #-}+module GHCJS.DOM.HTMLScriptElement ( #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.HTMLScriptElement-       (ghcjs_dom_html_script_element_set_text, htmlScriptElementSetText,-        ghcjs_dom_html_script_element_get_text, htmlScriptElementGetText,-        ghcjs_dom_html_script_element_set_html_for,-        htmlScriptElementSetHtmlFor,-        ghcjs_dom_html_script_element_get_html_for,-        htmlScriptElementGetHtmlFor,-        ghcjs_dom_html_script_element_set_event, htmlScriptElementSetEvent,-        ghcjs_dom_html_script_element_get_event, htmlScriptElementGetEvent,-        ghcjs_dom_html_script_element_set_charset,-        htmlScriptElementSetCharset,-        ghcjs_dom_html_script_element_get_charset,-        htmlScriptElementGetCharset,-        ghcjs_dom_html_script_element_set_async, htmlScriptElementSetAsync,-        ghcjs_dom_html_script_element_get_async, htmlScriptElementGetAsync,-        ghcjs_dom_html_script_element_set_defer, htmlScriptElementSetDefer,-        ghcjs_dom_html_script_element_get_defer, htmlScriptElementGetDefer,-        ghcjs_dom_html_script_element_set_src, htmlScriptElementSetSrc,-        ghcjs_dom_html_script_element_get_src, htmlScriptElementGetSrc,-        ghcjs_dom_html_script_element_set_cross_origin,-        htmlScriptElementSetCrossOrigin,-        ghcjs_dom_html_script_element_get_cross_origin,-        htmlScriptElementGetCrossOrigin,-        ghcjs_dom_html_script_element_set_nonce, htmlScriptElementSetNonce,-        ghcjs_dom_html_script_element_get_nonce, htmlScriptElementGetNonce,-        HTMLScriptElement, IsHTMLScriptElement, castToHTMLScriptElement,-        gTypeHTMLScriptElement, toHTMLScriptElement)-       where-import GHCJS.Types-import GHCJS.Foreign-import GHCJS.Marshal-import Data.Int-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-- -foreign import javascript unsafe "$1[\"text\"] = $2;"-        ghcjs_dom_html_script_element_set_text ::-        JSRef HTMLScriptElement -> JSString -> IO ()- -htmlScriptElementSetText ::-                         (IsHTMLScriptElement self, ToJSString val) => self -> val -> IO ()-htmlScriptElementSetText self val-  = ghcjs_dom_html_script_element_set_text-      (unHTMLScriptElement (toHTMLScriptElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"text\"]"-        ghcjs_dom_html_script_element_get_text ::-        JSRef HTMLScriptElement -> IO JSString- -htmlScriptElementGetText ::-                         (IsHTMLScriptElement self, FromJSString result) =>-                           self -> IO result-htmlScriptElementGetText self-  = fromJSString <$>-      (ghcjs_dom_html_script_element_get_text-         (unHTMLScriptElement (toHTMLScriptElement self)))- -foreign import javascript unsafe "$1[\"htmlFor\"] = $2;"-        ghcjs_dom_html_script_element_set_html_for ::-        JSRef HTMLScriptElement -> JSString -> IO ()- -htmlScriptElementSetHtmlFor ::-                            (IsHTMLScriptElement self, ToJSString val) => self -> val -> IO ()-htmlScriptElementSetHtmlFor self val-  = ghcjs_dom_html_script_element_set_html_for-      (unHTMLScriptElement (toHTMLScriptElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"htmlFor\"]"-        ghcjs_dom_html_script_element_get_html_for ::-        JSRef HTMLScriptElement -> IO JSString- -htmlScriptElementGetHtmlFor ::-                            (IsHTMLScriptElement self, FromJSString result) =>-                              self -> IO result-htmlScriptElementGetHtmlFor self-  = fromJSString <$>-      (ghcjs_dom_html_script_element_get_html_for-         (unHTMLScriptElement (toHTMLScriptElement self)))- -foreign import javascript unsafe "$1[\"event\"] = $2;"-        ghcjs_dom_html_script_element_set_event ::-        JSRef HTMLScriptElement -> JSString -> IO ()- -htmlScriptElementSetEvent ::-                          (IsHTMLScriptElement self, ToJSString val) => self -> val -> IO ()-htmlScriptElementSetEvent self val-  = ghcjs_dom_html_script_element_set_event-      (unHTMLScriptElement (toHTMLScriptElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"event\"]"-        ghcjs_dom_html_script_element_get_event ::-        JSRef HTMLScriptElement -> IO JSString- -htmlScriptElementGetEvent ::-                          (IsHTMLScriptElement self, FromJSString result) =>-                            self -> IO result-htmlScriptElementGetEvent self-  = fromJSString <$>-      (ghcjs_dom_html_script_element_get_event-         (unHTMLScriptElement (toHTMLScriptElement self)))- -foreign import javascript unsafe "$1[\"charset\"] = $2;"-        ghcjs_dom_html_script_element_set_charset ::-        JSRef HTMLScriptElement -> JSString -> IO ()- -htmlScriptElementSetCharset ::-                            (IsHTMLScriptElement self, ToJSString val) => self -> val -> IO ()-htmlScriptElementSetCharset self val-  = ghcjs_dom_html_script_element_set_charset-      (unHTMLScriptElement (toHTMLScriptElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"charset\"]"-        ghcjs_dom_html_script_element_get_charset ::-        JSRef HTMLScriptElement -> IO JSString- -htmlScriptElementGetCharset ::-                            (IsHTMLScriptElement self, FromJSString result) =>-                              self -> IO result-htmlScriptElementGetCharset self-  = fromJSString <$>-      (ghcjs_dom_html_script_element_get_charset-         (unHTMLScriptElement (toHTMLScriptElement self)))- -foreign import javascript unsafe "$1[\"async\"] = $2;"-        ghcjs_dom_html_script_element_set_async ::-        JSRef HTMLScriptElement -> Bool -> IO ()- -htmlScriptElementSetAsync ::-                          (IsHTMLScriptElement self) => self -> Bool -> IO ()-htmlScriptElementSetAsync self val-  = ghcjs_dom_html_script_element_set_async-      (unHTMLScriptElement (toHTMLScriptElement self))-      val- -foreign import javascript unsafe "($1[\"async\"] ? 1 : 0)"-        ghcjs_dom_html_script_element_get_async ::-        JSRef HTMLScriptElement -> IO Bool- -htmlScriptElementGetAsync ::-                          (IsHTMLScriptElement self) => self -> IO Bool-htmlScriptElementGetAsync self-  = ghcjs_dom_html_script_element_get_async-      (unHTMLScriptElement (toHTMLScriptElement self))- -foreign import javascript unsafe "$1[\"defer\"] = $2;"-        ghcjs_dom_html_script_element_set_defer ::-        JSRef HTMLScriptElement -> Bool -> IO ()- -htmlScriptElementSetDefer ::-                          (IsHTMLScriptElement self) => self -> Bool -> IO ()-htmlScriptElementSetDefer self val-  = ghcjs_dom_html_script_element_set_defer-      (unHTMLScriptElement (toHTMLScriptElement self))-      val- -foreign import javascript unsafe "($1[\"defer\"] ? 1 : 0)"-        ghcjs_dom_html_script_element_get_defer ::-        JSRef HTMLScriptElement -> IO Bool- -htmlScriptElementGetDefer ::-                          (IsHTMLScriptElement self) => self -> IO Bool-htmlScriptElementGetDefer self-  = ghcjs_dom_html_script_element_get_defer-      (unHTMLScriptElement (toHTMLScriptElement self))- -foreign import javascript unsafe "$1[\"src\"] = $2;"-        ghcjs_dom_html_script_element_set_src ::-        JSRef HTMLScriptElement -> JSString -> IO ()- -htmlScriptElementSetSrc ::-                        (IsHTMLScriptElement self, ToJSString val) => self -> val -> IO ()-htmlScriptElementSetSrc self val-  = ghcjs_dom_html_script_element_set_src-      (unHTMLScriptElement (toHTMLScriptElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"src\"]"-        ghcjs_dom_html_script_element_get_src ::-        JSRef HTMLScriptElement -> IO JSString- -htmlScriptElementGetSrc ::-                        (IsHTMLScriptElement self, FromJSString result) =>-                          self -> IO result-htmlScriptElementGetSrc self-  = fromJSString <$>-      (ghcjs_dom_html_script_element_get_src-         (unHTMLScriptElement (toHTMLScriptElement self)))- -foreign import javascript unsafe "$1[\"crossOrigin\"] = $2;"-        ghcjs_dom_html_script_element_set_cross_origin ::-        JSRef HTMLScriptElement -> JSString -> IO ()- -htmlScriptElementSetCrossOrigin ::-                                (IsHTMLScriptElement self, ToJSString val) => self -> val -> IO ()-htmlScriptElementSetCrossOrigin self val-  = ghcjs_dom_html_script_element_set_cross_origin-      (unHTMLScriptElement (toHTMLScriptElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"crossOrigin\"]"-        ghcjs_dom_html_script_element_get_cross_origin ::-        JSRef HTMLScriptElement -> IO JSString- -htmlScriptElementGetCrossOrigin ::-                                (IsHTMLScriptElement self, FromJSString result) =>-                                  self -> IO result-htmlScriptElementGetCrossOrigin self-  = fromJSString <$>-      (ghcjs_dom_html_script_element_get_cross_origin-         (unHTMLScriptElement (toHTMLScriptElement self)))- -foreign import javascript unsafe "$1[\"nonce\"] = $2;"-        ghcjs_dom_html_script_element_set_nonce ::-        JSRef HTMLScriptElement -> JSString -> IO ()- -htmlScriptElementSetNonce ::-                          (IsHTMLScriptElement self, ToJSString val) => self -> val -> IO ()-htmlScriptElementSetNonce self val-  = ghcjs_dom_html_script_element_set_nonce-      (unHTMLScriptElement (toHTMLScriptElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"nonce\"]"-        ghcjs_dom_html_script_element_get_nonce ::-        JSRef HTMLScriptElement -> IO JSString- -htmlScriptElementGetNonce ::-                          (IsHTMLScriptElement self, FromJSString result) =>-                            self -> IO result-htmlScriptElementGetNonce self-  = fromJSString <$>-      (ghcjs_dom_html_script_element_get_nonce-         (unHTMLScriptElement (toHTMLScriptElement self)))+  module GHCJS.DOM.JSFFI.Generated.HTMLScriptElement #else-module GHCJS.DOM.HTMLScriptElement (   module Graphics.UI.Gtk.WebKit.DOM.HTMLScriptElement+#endif   ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.HTMLScriptElement+#else import Graphics.UI.Gtk.WebKit.DOM.HTMLScriptElement #endif
src/GHCJS/DOM/HTMLSelectElement.hs view
@@ -1,419 +1,13 @@ {-# LANGUAGE CPP #-}+module GHCJS.DOM.HTMLSelectElement ( #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.HTMLSelectElement-       (ghcjs_dom_html_select_element_item, htmlSelectElementItem,-        ghcjs_dom_html_select_element_named_item,-        htmlSelectElementNamedItem, ghcjs_dom_html_select_element_add,-        htmlSelectElementAdd, ghcjs_dom_html_select_element_remove,-        htmlSelectElementRemove,-        ghcjs_dom_html_select_element_check_validity,-        htmlSelectElementCheckValidity,-        ghcjs_dom_html_select_element_set_custom_validity,-        htmlSelectElementSetCustomValidity,-        ghcjs_dom_html_select_element_set_autofocus,-        htmlSelectElementSetAutofocus,-        ghcjs_dom_html_select_element_get_autofocus,-        htmlSelectElementGetAutofocus,-        ghcjs_dom_html_select_element_set_disabled,-        htmlSelectElementSetDisabled,-        ghcjs_dom_html_select_element_get_disabled,-        htmlSelectElementGetDisabled,-        ghcjs_dom_html_select_element_get_form, htmlSelectElementGetForm,-        ghcjs_dom_html_select_element_set_multiple,-        htmlSelectElementSetMultiple,-        ghcjs_dom_html_select_element_get_multiple,-        htmlSelectElementGetMultiple,-        ghcjs_dom_html_select_element_set_name, htmlSelectElementSetName,-        ghcjs_dom_html_select_element_get_name, htmlSelectElementGetName,-        ghcjs_dom_html_select_element_set_required,-        htmlSelectElementSetRequired,-        ghcjs_dom_html_select_element_get_required,-        htmlSelectElementGetRequired,-        ghcjs_dom_html_select_element_set_size, htmlSelectElementSetSize,-        ghcjs_dom_html_select_element_get_size, htmlSelectElementGetSize,-        ghcjs_dom_html_select_element_get_options,-        htmlSelectElementGetOptions,-        ghcjs_dom_html_select_element_set_length,-        htmlSelectElementSetLength,-        ghcjs_dom_html_select_element_get_length,-        htmlSelectElementGetLength,-        ghcjs_dom_html_select_element_get_selected_options,-        htmlSelectElementGetSelectedOptions,-        ghcjs_dom_html_select_element_set_selected_index,-        htmlSelectElementSetSelectedIndex,-        ghcjs_dom_html_select_element_get_selected_index,-        htmlSelectElementGetSelectedIndex,-        ghcjs_dom_html_select_element_set_value, htmlSelectElementSetValue,-        ghcjs_dom_html_select_element_get_value, htmlSelectElementGetValue,-        ghcjs_dom_html_select_element_get_will_validate,-        htmlSelectElementGetWillValidate,-        ghcjs_dom_html_select_element_get_validity,-        htmlSelectElementGetValidity,-        ghcjs_dom_html_select_element_get_validation_message,-        htmlSelectElementGetValidationMessage,-        ghcjs_dom_html_select_element_get_labels,-        htmlSelectElementGetLabels, HTMLSelectElement, IsHTMLSelectElement,-        castToHTMLSelectElement, gTypeHTMLSelectElement,-        toHTMLSelectElement)-       where-import GHCJS.Types-import GHCJS.Foreign-import GHCJS.Marshal-import Data.Int-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-- -foreign import javascript unsafe "$1[\"item\"]($2)"-        ghcjs_dom_html_select_element_item ::-        JSRef HTMLSelectElement -> Word -> IO (JSRef Node)- -htmlSelectElementItem ::-                      (IsHTMLSelectElement self) => self -> Word -> IO (Maybe Node)-htmlSelectElementItem self index-  = fmap Node . maybeJSNull <$>-      (ghcjs_dom_html_select_element_item-         (unHTMLSelectElement (toHTMLSelectElement self))-         index)- -foreign import javascript unsafe "$1[\"namedItem\"]($2)"-        ghcjs_dom_html_select_element_named_item ::-        JSRef HTMLSelectElement -> JSString -> IO (JSRef Node)- -htmlSelectElementNamedItem ::-                           (IsHTMLSelectElement self, ToJSString name) =>-                             self -> name -> IO (Maybe Node)-htmlSelectElementNamedItem self name-  = fmap Node . maybeJSNull <$>-      (ghcjs_dom_html_select_element_named_item-         (unHTMLSelectElement (toHTMLSelectElement self))-         (toJSString name))- -foreign import javascript unsafe "$1[\"add\"]($2, $3)"-        ghcjs_dom_html_select_element_add ::-        JSRef HTMLSelectElement ->-          JSRef HTMLElement -> JSRef HTMLElement -> IO ()- -htmlSelectElementAdd ::-                     (IsHTMLSelectElement self, IsHTMLElement element,-                      IsHTMLElement before) =>-                       self -> Maybe element -> Maybe before -> IO ()-htmlSelectElementAdd self element before-  = ghcjs_dom_html_select_element_add-      (unHTMLSelectElement (toHTMLSelectElement self))-      (maybe jsNull (unHTMLElement . toHTMLElement) element)-      (maybe jsNull (unHTMLElement . toHTMLElement) before)- -foreign import javascript unsafe "$1[\"remove\"]($2)"-        ghcjs_dom_html_select_element_remove ::-        JSRef HTMLSelectElement -> Int -> IO ()- -htmlSelectElementRemove ::-                        (IsHTMLSelectElement self) => self -> Int -> IO ()-htmlSelectElementRemove self index-  = ghcjs_dom_html_select_element_remove-      (unHTMLSelectElement (toHTMLSelectElement self))-      index- -foreign import javascript unsafe-        "($1[\"checkValidity\"]() ? 1 : 0)"-        ghcjs_dom_html_select_element_check_validity ::-        JSRef HTMLSelectElement -> IO Bool- -htmlSelectElementCheckValidity ::-                               (IsHTMLSelectElement self) => self -> IO Bool-htmlSelectElementCheckValidity self-  = ghcjs_dom_html_select_element_check_validity-      (unHTMLSelectElement (toHTMLSelectElement self))- -foreign import javascript unsafe "$1[\"setCustomValidity\"]($2)"-        ghcjs_dom_html_select_element_set_custom_validity ::-        JSRef HTMLSelectElement -> JSString -> IO ()- -htmlSelectElementSetCustomValidity ::-                                   (IsHTMLSelectElement self, ToJSString error) =>-                                     self -> error -> IO ()-htmlSelectElementSetCustomValidity self error-  = ghcjs_dom_html_select_element_set_custom_validity-      (unHTMLSelectElement (toHTMLSelectElement self))-      (toJSString error)- -foreign import javascript unsafe "$1[\"autofocus\"] = $2;"-        ghcjs_dom_html_select_element_set_autofocus ::-        JSRef HTMLSelectElement -> Bool -> IO ()- -htmlSelectElementSetAutofocus ::-                              (IsHTMLSelectElement self) => self -> Bool -> IO ()-htmlSelectElementSetAutofocus self val-  = ghcjs_dom_html_select_element_set_autofocus-      (unHTMLSelectElement (toHTMLSelectElement self))-      val- -foreign import javascript unsafe "($1[\"autofocus\"] ? 1 : 0)"-        ghcjs_dom_html_select_element_get_autofocus ::-        JSRef HTMLSelectElement -> IO Bool- -htmlSelectElementGetAutofocus ::-                              (IsHTMLSelectElement self) => self -> IO Bool-htmlSelectElementGetAutofocus self-  = ghcjs_dom_html_select_element_get_autofocus-      (unHTMLSelectElement (toHTMLSelectElement self))- -foreign import javascript unsafe "$1[\"disabled\"] = $2;"-        ghcjs_dom_html_select_element_set_disabled ::-        JSRef HTMLSelectElement -> Bool -> IO ()- -htmlSelectElementSetDisabled ::-                             (IsHTMLSelectElement self) => self -> Bool -> IO ()-htmlSelectElementSetDisabled self val-  = ghcjs_dom_html_select_element_set_disabled-      (unHTMLSelectElement (toHTMLSelectElement self))-      val- -foreign import javascript unsafe "($1[\"disabled\"] ? 1 : 0)"-        ghcjs_dom_html_select_element_get_disabled ::-        JSRef HTMLSelectElement -> IO Bool- -htmlSelectElementGetDisabled ::-                             (IsHTMLSelectElement self) => self -> IO Bool-htmlSelectElementGetDisabled self-  = ghcjs_dom_html_select_element_get_disabled-      (unHTMLSelectElement (toHTMLSelectElement self))- -foreign import javascript unsafe "$1[\"form\"]"-        ghcjs_dom_html_select_element_get_form ::-        JSRef HTMLSelectElement -> IO (JSRef HTMLFormElement)- -htmlSelectElementGetForm ::-                         (IsHTMLSelectElement self) => self -> IO (Maybe HTMLFormElement)-htmlSelectElementGetForm self-  = fmap HTMLFormElement . maybeJSNull <$>-      (ghcjs_dom_html_select_element_get_form-         (unHTMLSelectElement (toHTMLSelectElement self)))- -foreign import javascript unsafe "$1[\"multiple\"] = $2;"-        ghcjs_dom_html_select_element_set_multiple ::-        JSRef HTMLSelectElement -> Bool -> IO ()- -htmlSelectElementSetMultiple ::-                             (IsHTMLSelectElement self) => self -> Bool -> IO ()-htmlSelectElementSetMultiple self val-  = ghcjs_dom_html_select_element_set_multiple-      (unHTMLSelectElement (toHTMLSelectElement self))-      val- -foreign import javascript unsafe "($1[\"multiple\"] ? 1 : 0)"-        ghcjs_dom_html_select_element_get_multiple ::-        JSRef HTMLSelectElement -> IO Bool- -htmlSelectElementGetMultiple ::-                             (IsHTMLSelectElement self) => self -> IO Bool-htmlSelectElementGetMultiple self-  = ghcjs_dom_html_select_element_get_multiple-      (unHTMLSelectElement (toHTMLSelectElement self))- -foreign import javascript unsafe "$1[\"name\"] = $2;"-        ghcjs_dom_html_select_element_set_name ::-        JSRef HTMLSelectElement -> JSString -> IO ()- -htmlSelectElementSetName ::-                         (IsHTMLSelectElement self, ToJSString val) => self -> val -> IO ()-htmlSelectElementSetName self val-  = ghcjs_dom_html_select_element_set_name-      (unHTMLSelectElement (toHTMLSelectElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"name\"]"-        ghcjs_dom_html_select_element_get_name ::-        JSRef HTMLSelectElement -> IO JSString- -htmlSelectElementGetName ::-                         (IsHTMLSelectElement self, FromJSString result) =>-                           self -> IO result-htmlSelectElementGetName self-  = fromJSString <$>-      (ghcjs_dom_html_select_element_get_name-         (unHTMLSelectElement (toHTMLSelectElement self)))- -foreign import javascript unsafe "$1[\"required\"] = $2;"-        ghcjs_dom_html_select_element_set_required ::-        JSRef HTMLSelectElement -> Bool -> IO ()- -htmlSelectElementSetRequired ::-                             (IsHTMLSelectElement self) => self -> Bool -> IO ()-htmlSelectElementSetRequired self val-  = ghcjs_dom_html_select_element_set_required-      (unHTMLSelectElement (toHTMLSelectElement self))-      val- -foreign import javascript unsafe "($1[\"required\"] ? 1 : 0)"-        ghcjs_dom_html_select_element_get_required ::-        JSRef HTMLSelectElement -> IO Bool- -htmlSelectElementGetRequired ::-                             (IsHTMLSelectElement self) => self -> IO Bool-htmlSelectElementGetRequired self-  = ghcjs_dom_html_select_element_get_required-      (unHTMLSelectElement (toHTMLSelectElement self))- -foreign import javascript unsafe "$1[\"size\"] = $2;"-        ghcjs_dom_html_select_element_set_size ::-        JSRef HTMLSelectElement -> Int -> IO ()- -htmlSelectElementSetSize ::-                         (IsHTMLSelectElement self) => self -> Int -> IO ()-htmlSelectElementSetSize self val-  = ghcjs_dom_html_select_element_set_size-      (unHTMLSelectElement (toHTMLSelectElement self))-      val- -foreign import javascript unsafe "$1[\"size\"]"-        ghcjs_dom_html_select_element_get_size ::-        JSRef HTMLSelectElement -> IO Int- -htmlSelectElementGetSize ::-                         (IsHTMLSelectElement self) => self -> IO Int-htmlSelectElementGetSize self-  = ghcjs_dom_html_select_element_get_size-      (unHTMLSelectElement (toHTMLSelectElement self))- -foreign import javascript unsafe "$1[\"options\"]"-        ghcjs_dom_html_select_element_get_options ::-        JSRef HTMLSelectElement -> IO (JSRef HTMLOptionsCollection)- -htmlSelectElementGetOptions ::-                            (IsHTMLSelectElement self) =>-                              self -> IO (Maybe HTMLOptionsCollection)-htmlSelectElementGetOptions self-  = fmap HTMLOptionsCollection . maybeJSNull <$>-      (ghcjs_dom_html_select_element_get_options-         (unHTMLSelectElement (toHTMLSelectElement self)))- -foreign import javascript unsafe "$1[\"length\"] = $2;"-        ghcjs_dom_html_select_element_set_length ::-        JSRef HTMLSelectElement -> Word -> IO ()- -htmlSelectElementSetLength ::-                           (IsHTMLSelectElement self) => self -> Word -> IO ()-htmlSelectElementSetLength self val-  = ghcjs_dom_html_select_element_set_length-      (unHTMLSelectElement (toHTMLSelectElement self))-      val- -foreign import javascript unsafe "$1[\"length\"]"-        ghcjs_dom_html_select_element_get_length ::-        JSRef HTMLSelectElement -> IO Word- -htmlSelectElementGetLength ::-                           (IsHTMLSelectElement self) => self -> IO Word-htmlSelectElementGetLength self-  = ghcjs_dom_html_select_element_get_length-      (unHTMLSelectElement (toHTMLSelectElement self))- -foreign import javascript unsafe "$1[\"selectedOptions\"]"-        ghcjs_dom_html_select_element_get_selected_options ::-        JSRef HTMLSelectElement -> IO (JSRef HTMLCollection)- -htmlSelectElementGetSelectedOptions ::-                                    (IsHTMLSelectElement self) => self -> IO (Maybe HTMLCollection)-htmlSelectElementGetSelectedOptions self-  = fmap HTMLCollection . maybeJSNull <$>-      (ghcjs_dom_html_select_element_get_selected_options-         (unHTMLSelectElement (toHTMLSelectElement self)))- -foreign import javascript unsafe "$1[\"selectedIndex\"] = $2;"-        ghcjs_dom_html_select_element_set_selected_index ::-        JSRef HTMLSelectElement -> Int -> IO ()- -htmlSelectElementSetSelectedIndex ::-                                  (IsHTMLSelectElement self) => self -> Int -> IO ()-htmlSelectElementSetSelectedIndex self val-  = ghcjs_dom_html_select_element_set_selected_index-      (unHTMLSelectElement (toHTMLSelectElement self))-      val- -foreign import javascript unsafe "$1[\"selectedIndex\"]"-        ghcjs_dom_html_select_element_get_selected_index ::-        JSRef HTMLSelectElement -> IO Int- -htmlSelectElementGetSelectedIndex ::-                                  (IsHTMLSelectElement self) => self -> IO Int-htmlSelectElementGetSelectedIndex self-  = ghcjs_dom_html_select_element_get_selected_index-      (unHTMLSelectElement (toHTMLSelectElement self))- -foreign import javascript unsafe "$1[\"value\"] = $2;"-        ghcjs_dom_html_select_element_set_value ::-        JSRef HTMLSelectElement -> JSString -> IO ()- -htmlSelectElementSetValue ::-                          (IsHTMLSelectElement self, ToJSString val) => self -> val -> IO ()-htmlSelectElementSetValue self val-  = ghcjs_dom_html_select_element_set_value-      (unHTMLSelectElement (toHTMLSelectElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"value\"]"-        ghcjs_dom_html_select_element_get_value ::-        JSRef HTMLSelectElement -> IO JSString- -htmlSelectElementGetValue ::-                          (IsHTMLSelectElement self, FromJSString result) =>-                            self -> IO result-htmlSelectElementGetValue self-  = fromJSString <$>-      (ghcjs_dom_html_select_element_get_value-         (unHTMLSelectElement (toHTMLSelectElement self)))- -foreign import javascript unsafe "($1[\"willValidate\"] ? 1 : 0)"-        ghcjs_dom_html_select_element_get_will_validate ::-        JSRef HTMLSelectElement -> IO Bool- -htmlSelectElementGetWillValidate ::-                                 (IsHTMLSelectElement self) => self -> IO Bool-htmlSelectElementGetWillValidate self-  = ghcjs_dom_html_select_element_get_will_validate-      (unHTMLSelectElement (toHTMLSelectElement self))- -foreign import javascript unsafe "$1[\"validity\"]"-        ghcjs_dom_html_select_element_get_validity ::-        JSRef HTMLSelectElement -> IO (JSRef ValidityState)- -htmlSelectElementGetValidity ::-                             (IsHTMLSelectElement self) => self -> IO (Maybe ValidityState)-htmlSelectElementGetValidity self-  = fmap ValidityState . maybeJSNull <$>-      (ghcjs_dom_html_select_element_get_validity-         (unHTMLSelectElement (toHTMLSelectElement self)))- -foreign import javascript unsafe "$1[\"validationMessage\"]"-        ghcjs_dom_html_select_element_get_validation_message ::-        JSRef HTMLSelectElement -> IO JSString- -htmlSelectElementGetValidationMessage ::-                                      (IsHTMLSelectElement self, FromJSString result) =>-                                        self -> IO result-htmlSelectElementGetValidationMessage self-  = fromJSString <$>-      (ghcjs_dom_html_select_element_get_validation_message-         (unHTMLSelectElement (toHTMLSelectElement self)))- -foreign import javascript unsafe "$1[\"labels\"]"-        ghcjs_dom_html_select_element_get_labels ::-        JSRef HTMLSelectElement -> IO (JSRef NodeList)- -htmlSelectElementGetLabels ::-                           (IsHTMLSelectElement self) => self -> IO (Maybe NodeList)-htmlSelectElementGetLabels self-  = fmap NodeList . maybeJSNull <$>-      (ghcjs_dom_html_select_element_get_labels-         (unHTMLSelectElement (toHTMLSelectElement self)))+  module GHCJS.DOM.JSFFI.Generated.HTMLSelectElement #else-module GHCJS.DOM.HTMLSelectElement (   module Graphics.UI.Gtk.WebKit.DOM.HTMLSelectElement+#endif   ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.HTMLSelectElement+#else import Graphics.UI.Gtk.WebKit.DOM.HTMLSelectElement #endif
+ src/GHCJS/DOM/HTMLSourceElement.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.HTMLSourceElement (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.HTMLSourceElement+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.HTMLSourceElement+#else+#endif
src/GHCJS/DOM/HTMLStyleElement.hs view
@@ -1,83 +1,13 @@ {-# LANGUAGE CPP #-}+module GHCJS.DOM.HTMLStyleElement ( #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.HTMLStyleElement-       (ghcjs_dom_html_style_element_set_disabled,-        htmlStyleElementSetDisabled,-        ghcjs_dom_html_style_element_get_disabled,-        htmlStyleElementGetDisabled,-        ghcjs_dom_html_style_element_set_media, htmlStyleElementSetMedia,-        ghcjs_dom_html_style_element_get_media, htmlStyleElementGetMedia,-        ghcjs_dom_html_style_element_get_sheet, htmlStyleElementGetSheet,-        HTMLStyleElement, IsHTMLStyleElement, castToHTMLStyleElement,-        gTypeHTMLStyleElement, toHTMLStyleElement)-       where-import GHCJS.Types-import GHCJS.Foreign-import GHCJS.Marshal-import Data.Int-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-- -foreign import javascript unsafe "$1[\"disabled\"] = $2;"-        ghcjs_dom_html_style_element_set_disabled ::-        JSRef HTMLStyleElement -> Bool -> IO ()- -htmlStyleElementSetDisabled ::-                            (IsHTMLStyleElement self) => self -> Bool -> IO ()-htmlStyleElementSetDisabled self val-  = ghcjs_dom_html_style_element_set_disabled-      (unHTMLStyleElement (toHTMLStyleElement self))-      val- -foreign import javascript unsafe "($1[\"disabled\"] ? 1 : 0)"-        ghcjs_dom_html_style_element_get_disabled ::-        JSRef HTMLStyleElement -> IO Bool- -htmlStyleElementGetDisabled ::-                            (IsHTMLStyleElement self) => self -> IO Bool-htmlStyleElementGetDisabled self-  = ghcjs_dom_html_style_element_get_disabled-      (unHTMLStyleElement (toHTMLStyleElement self))- -foreign import javascript unsafe "$1[\"media\"] = $2;"-        ghcjs_dom_html_style_element_set_media ::-        JSRef HTMLStyleElement -> JSString -> IO ()- -htmlStyleElementSetMedia ::-                         (IsHTMLStyleElement self, ToJSString val) => self -> val -> IO ()-htmlStyleElementSetMedia self val-  = ghcjs_dom_html_style_element_set_media-      (unHTMLStyleElement (toHTMLStyleElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"media\"]"-        ghcjs_dom_html_style_element_get_media ::-        JSRef HTMLStyleElement -> IO JSString- -htmlStyleElementGetMedia ::-                         (IsHTMLStyleElement self, FromJSString result) => self -> IO result-htmlStyleElementGetMedia self-  = fromJSString <$>-      (ghcjs_dom_html_style_element_get_media-         (unHTMLStyleElement (toHTMLStyleElement self)))- -foreign import javascript unsafe "$1[\"sheet\"]"-        ghcjs_dom_html_style_element_get_sheet ::-        JSRef HTMLStyleElement -> IO (JSRef StyleSheet)- -htmlStyleElementGetSheet ::-                         (IsHTMLStyleElement self) => self -> IO (Maybe StyleSheet)-htmlStyleElementGetSheet self-  = fmap StyleSheet . maybeJSNull <$>-      (ghcjs_dom_html_style_element_get_sheet-         (unHTMLStyleElement (toHTMLStyleElement self)))+  module GHCJS.DOM.JSFFI.Generated.HTMLStyleElement #else-module GHCJS.DOM.HTMLStyleElement (   module Graphics.UI.Gtk.WebKit.DOM.HTMLStyleElement+#endif   ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.HTMLStyleElement+#else import Graphics.UI.Gtk.WebKit.DOM.HTMLStyleElement #endif
src/GHCJS/DOM/HTMLTableCaptionElement.hs view
@@ -1,50 +1,13 @@ {-# LANGUAGE CPP #-}+module GHCJS.DOM.HTMLTableCaptionElement ( #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.HTMLTableCaptionElement-       (ghcjs_dom_html_table_caption_element_set_align,-        htmlTableCaptionElementSetAlign,-        ghcjs_dom_html_table_caption_element_get_align,-        htmlTableCaptionElementGetAlign, HTMLTableCaptionElement,-        IsHTMLTableCaptionElement, castToHTMLTableCaptionElement,-        gTypeHTMLTableCaptionElement, toHTMLTableCaptionElement)-       where-import GHCJS.Types-import GHCJS.Foreign-import GHCJS.Marshal-import Data.Int-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-- -foreign import javascript unsafe "$1[\"align\"] = $2;"-        ghcjs_dom_html_table_caption_element_set_align ::-        JSRef HTMLTableCaptionElement -> JSString -> IO ()- -htmlTableCaptionElementSetAlign ::-                                (IsHTMLTableCaptionElement self, ToJSString val) =>-                                  self -> val -> IO ()-htmlTableCaptionElementSetAlign self val-  = ghcjs_dom_html_table_caption_element_set_align-      (unHTMLTableCaptionElement (toHTMLTableCaptionElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"align\"]"-        ghcjs_dom_html_table_caption_element_get_align ::-        JSRef HTMLTableCaptionElement -> IO JSString- -htmlTableCaptionElementGetAlign ::-                                (IsHTMLTableCaptionElement self, FromJSString result) =>-                                  self -> IO result-htmlTableCaptionElementGetAlign self-  = fromJSString <$>-      (ghcjs_dom_html_table_caption_element_get_align-         (unHTMLTableCaptionElement (toHTMLTableCaptionElement self)))+  module GHCJS.DOM.JSFFI.Generated.HTMLTableCaptionElement #else-module GHCJS.DOM.HTMLTableCaptionElement (   module Graphics.UI.Gtk.WebKit.DOM.HTMLTableCaptionElement+#endif   ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.HTMLTableCaptionElement+#else import Graphics.UI.Gtk.WebKit.DOM.HTMLTableCaptionElement #endif
src/GHCJS/DOM/HTMLTableCellElement.hs view
@@ -1,417 +1,13 @@ {-# LANGUAGE CPP #-}+module GHCJS.DOM.HTMLTableCellElement ( #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.HTMLTableCellElement-       (ghcjs_dom_html_table_cell_element_get_cell_index,-        htmlTableCellElementGetCellIndex,-        ghcjs_dom_html_table_cell_element_set_abbr,-        htmlTableCellElementSetAbbr,-        ghcjs_dom_html_table_cell_element_get_abbr,-        htmlTableCellElementGetAbbr,-        ghcjs_dom_html_table_cell_element_set_align,-        htmlTableCellElementSetAlign,-        ghcjs_dom_html_table_cell_element_get_align,-        htmlTableCellElementGetAlign,-        ghcjs_dom_html_table_cell_element_set_axis,-        htmlTableCellElementSetAxis,-        ghcjs_dom_html_table_cell_element_get_axis,-        htmlTableCellElementGetAxis,-        ghcjs_dom_html_table_cell_element_set_bg_color,-        htmlTableCellElementSetBgColor,-        ghcjs_dom_html_table_cell_element_get_bg_color,-        htmlTableCellElementGetBgColor,-        ghcjs_dom_html_table_cell_element_set_ch,-        htmlTableCellElementSetCh,-        ghcjs_dom_html_table_cell_element_get_ch,-        htmlTableCellElementGetCh,-        ghcjs_dom_html_table_cell_element_set_ch_off,-        htmlTableCellElementSetChOff,-        ghcjs_dom_html_table_cell_element_get_ch_off,-        htmlTableCellElementGetChOff,-        ghcjs_dom_html_table_cell_element_set_col_span,-        htmlTableCellElementSetColSpan,-        ghcjs_dom_html_table_cell_element_get_col_span,-        htmlTableCellElementGetColSpan,-        ghcjs_dom_html_table_cell_element_set_headers,-        htmlTableCellElementSetHeaders,-        ghcjs_dom_html_table_cell_element_get_headers,-        htmlTableCellElementGetHeaders,-        ghcjs_dom_html_table_cell_element_set_height,-        htmlTableCellElementSetHeight,-        ghcjs_dom_html_table_cell_element_get_height,-        htmlTableCellElementGetHeight,-        ghcjs_dom_html_table_cell_element_set_no_wrap,-        htmlTableCellElementSetNoWrap,-        ghcjs_dom_html_table_cell_element_get_no_wrap,-        htmlTableCellElementGetNoWrap,-        ghcjs_dom_html_table_cell_element_set_row_span,-        htmlTableCellElementSetRowSpan,-        ghcjs_dom_html_table_cell_element_get_row_span,-        htmlTableCellElementGetRowSpan,-        ghcjs_dom_html_table_cell_element_set_scope,-        htmlTableCellElementSetScope,-        ghcjs_dom_html_table_cell_element_get_scope,-        htmlTableCellElementGetScope,-        ghcjs_dom_html_table_cell_element_set_v_align,-        htmlTableCellElementSetVAlign,-        ghcjs_dom_html_table_cell_element_get_v_align,-        htmlTableCellElementGetVAlign,-        ghcjs_dom_html_table_cell_element_set_width,-        htmlTableCellElementSetWidth,-        ghcjs_dom_html_table_cell_element_get_width,-        htmlTableCellElementGetWidth, HTMLTableCellElement,-        IsHTMLTableCellElement, castToHTMLTableCellElement,-        gTypeHTMLTableCellElement, toHTMLTableCellElement)-       where-import GHCJS.Types-import GHCJS.Foreign-import GHCJS.Marshal-import Data.Int-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-- -foreign import javascript unsafe "$1[\"cellIndex\"]"-        ghcjs_dom_html_table_cell_element_get_cell_index ::-        JSRef HTMLTableCellElement -> IO Int- -htmlTableCellElementGetCellIndex ::-                                 (IsHTMLTableCellElement self) => self -> IO Int-htmlTableCellElementGetCellIndex self-  = ghcjs_dom_html_table_cell_element_get_cell_index-      (unHTMLTableCellElement (toHTMLTableCellElement self))- -foreign import javascript unsafe "$1[\"abbr\"] = $2;"-        ghcjs_dom_html_table_cell_element_set_abbr ::-        JSRef HTMLTableCellElement -> JSString -> IO ()- -htmlTableCellElementSetAbbr ::-                            (IsHTMLTableCellElement self, ToJSString val) =>-                              self -> val -> IO ()-htmlTableCellElementSetAbbr self val-  = ghcjs_dom_html_table_cell_element_set_abbr-      (unHTMLTableCellElement (toHTMLTableCellElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"abbr\"]"-        ghcjs_dom_html_table_cell_element_get_abbr ::-        JSRef HTMLTableCellElement -> IO JSString- -htmlTableCellElementGetAbbr ::-                            (IsHTMLTableCellElement self, FromJSString result) =>-                              self -> IO result-htmlTableCellElementGetAbbr self-  = fromJSString <$>-      (ghcjs_dom_html_table_cell_element_get_abbr-         (unHTMLTableCellElement (toHTMLTableCellElement self)))- -foreign import javascript unsafe "$1[\"align\"] = $2;"-        ghcjs_dom_html_table_cell_element_set_align ::-        JSRef HTMLTableCellElement -> JSString -> IO ()- -htmlTableCellElementSetAlign ::-                             (IsHTMLTableCellElement self, ToJSString val) =>-                               self -> val -> IO ()-htmlTableCellElementSetAlign self val-  = ghcjs_dom_html_table_cell_element_set_align-      (unHTMLTableCellElement (toHTMLTableCellElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"align\"]"-        ghcjs_dom_html_table_cell_element_get_align ::-        JSRef HTMLTableCellElement -> IO JSString- -htmlTableCellElementGetAlign ::-                             (IsHTMLTableCellElement self, FromJSString result) =>-                               self -> IO result-htmlTableCellElementGetAlign self-  = fromJSString <$>-      (ghcjs_dom_html_table_cell_element_get_align-         (unHTMLTableCellElement (toHTMLTableCellElement self)))- -foreign import javascript unsafe "$1[\"axis\"] = $2;"-        ghcjs_dom_html_table_cell_element_set_axis ::-        JSRef HTMLTableCellElement -> JSString -> IO ()- -htmlTableCellElementSetAxis ::-                            (IsHTMLTableCellElement self, ToJSString val) =>-                              self -> val -> IO ()-htmlTableCellElementSetAxis self val-  = ghcjs_dom_html_table_cell_element_set_axis-      (unHTMLTableCellElement (toHTMLTableCellElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"axis\"]"-        ghcjs_dom_html_table_cell_element_get_axis ::-        JSRef HTMLTableCellElement -> IO JSString- -htmlTableCellElementGetAxis ::-                            (IsHTMLTableCellElement self, FromJSString result) =>-                              self -> IO result-htmlTableCellElementGetAxis self-  = fromJSString <$>-      (ghcjs_dom_html_table_cell_element_get_axis-         (unHTMLTableCellElement (toHTMLTableCellElement self)))- -foreign import javascript unsafe "$1[\"bgColor\"] = $2;"-        ghcjs_dom_html_table_cell_element_set_bg_color ::-        JSRef HTMLTableCellElement -> JSString -> IO ()- -htmlTableCellElementSetBgColor ::-                               (IsHTMLTableCellElement self, ToJSString val) =>-                                 self -> val -> IO ()-htmlTableCellElementSetBgColor self val-  = ghcjs_dom_html_table_cell_element_set_bg_color-      (unHTMLTableCellElement (toHTMLTableCellElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"bgColor\"]"-        ghcjs_dom_html_table_cell_element_get_bg_color ::-        JSRef HTMLTableCellElement -> IO JSString- -htmlTableCellElementGetBgColor ::-                               (IsHTMLTableCellElement self, FromJSString result) =>-                                 self -> IO result-htmlTableCellElementGetBgColor self-  = fromJSString <$>-      (ghcjs_dom_html_table_cell_element_get_bg_color-         (unHTMLTableCellElement (toHTMLTableCellElement self)))- -foreign import javascript unsafe "$1[\"ch\"] = $2;"-        ghcjs_dom_html_table_cell_element_set_ch ::-        JSRef HTMLTableCellElement -> JSString -> IO ()- -htmlTableCellElementSetCh ::-                          (IsHTMLTableCellElement self, ToJSString val) =>-                            self -> val -> IO ()-htmlTableCellElementSetCh self val-  = ghcjs_dom_html_table_cell_element_set_ch-      (unHTMLTableCellElement (toHTMLTableCellElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"ch\"]"-        ghcjs_dom_html_table_cell_element_get_ch ::-        JSRef HTMLTableCellElement -> IO JSString- -htmlTableCellElementGetCh ::-                          (IsHTMLTableCellElement self, FromJSString result) =>-                            self -> IO result-htmlTableCellElementGetCh self-  = fromJSString <$>-      (ghcjs_dom_html_table_cell_element_get_ch-         (unHTMLTableCellElement (toHTMLTableCellElement self)))- -foreign import javascript unsafe "$1[\"chOff\"] = $2;"-        ghcjs_dom_html_table_cell_element_set_ch_off ::-        JSRef HTMLTableCellElement -> JSString -> IO ()- -htmlTableCellElementSetChOff ::-                             (IsHTMLTableCellElement self, ToJSString val) =>-                               self -> val -> IO ()-htmlTableCellElementSetChOff self val-  = ghcjs_dom_html_table_cell_element_set_ch_off-      (unHTMLTableCellElement (toHTMLTableCellElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"chOff\"]"-        ghcjs_dom_html_table_cell_element_get_ch_off ::-        JSRef HTMLTableCellElement -> IO JSString- -htmlTableCellElementGetChOff ::-                             (IsHTMLTableCellElement self, FromJSString result) =>-                               self -> IO result-htmlTableCellElementGetChOff self-  = fromJSString <$>-      (ghcjs_dom_html_table_cell_element_get_ch_off-         (unHTMLTableCellElement (toHTMLTableCellElement self)))- -foreign import javascript unsafe "$1[\"colSpan\"] = $2;"-        ghcjs_dom_html_table_cell_element_set_col_span ::-        JSRef HTMLTableCellElement -> Int -> IO ()- -htmlTableCellElementSetColSpan ::-                               (IsHTMLTableCellElement self) => self -> Int -> IO ()-htmlTableCellElementSetColSpan self val-  = ghcjs_dom_html_table_cell_element_set_col_span-      (unHTMLTableCellElement (toHTMLTableCellElement self))-      val- -foreign import javascript unsafe "$1[\"colSpan\"]"-        ghcjs_dom_html_table_cell_element_get_col_span ::-        JSRef HTMLTableCellElement -> IO Int- -htmlTableCellElementGetColSpan ::-                               (IsHTMLTableCellElement self) => self -> IO Int-htmlTableCellElementGetColSpan self-  = ghcjs_dom_html_table_cell_element_get_col_span-      (unHTMLTableCellElement (toHTMLTableCellElement self))- -foreign import javascript unsafe "$1[\"headers\"] = $2;"-        ghcjs_dom_html_table_cell_element_set_headers ::-        JSRef HTMLTableCellElement -> JSString -> IO ()- -htmlTableCellElementSetHeaders ::-                               (IsHTMLTableCellElement self, ToJSString val) =>-                                 self -> val -> IO ()-htmlTableCellElementSetHeaders self val-  = ghcjs_dom_html_table_cell_element_set_headers-      (unHTMLTableCellElement (toHTMLTableCellElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"headers\"]"-        ghcjs_dom_html_table_cell_element_get_headers ::-        JSRef HTMLTableCellElement -> IO JSString- -htmlTableCellElementGetHeaders ::-                               (IsHTMLTableCellElement self, FromJSString result) =>-                                 self -> IO result-htmlTableCellElementGetHeaders self-  = fromJSString <$>-      (ghcjs_dom_html_table_cell_element_get_headers-         (unHTMLTableCellElement (toHTMLTableCellElement self)))- -foreign import javascript unsafe "$1[\"height\"] = $2;"-        ghcjs_dom_html_table_cell_element_set_height ::-        JSRef HTMLTableCellElement -> JSString -> IO ()- -htmlTableCellElementSetHeight ::-                              (IsHTMLTableCellElement self, ToJSString val) =>-                                self -> val -> IO ()-htmlTableCellElementSetHeight self val-  = ghcjs_dom_html_table_cell_element_set_height-      (unHTMLTableCellElement (toHTMLTableCellElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"height\"]"-        ghcjs_dom_html_table_cell_element_get_height ::-        JSRef HTMLTableCellElement -> IO JSString- -htmlTableCellElementGetHeight ::-                              (IsHTMLTableCellElement self, FromJSString result) =>-                                self -> IO result-htmlTableCellElementGetHeight self-  = fromJSString <$>-      (ghcjs_dom_html_table_cell_element_get_height-         (unHTMLTableCellElement (toHTMLTableCellElement self)))- -foreign import javascript unsafe "$1[\"noWrap\"] = $2;"-        ghcjs_dom_html_table_cell_element_set_no_wrap ::-        JSRef HTMLTableCellElement -> Bool -> IO ()- -htmlTableCellElementSetNoWrap ::-                              (IsHTMLTableCellElement self) => self -> Bool -> IO ()-htmlTableCellElementSetNoWrap self val-  = ghcjs_dom_html_table_cell_element_set_no_wrap-      (unHTMLTableCellElement (toHTMLTableCellElement self))-      val- -foreign import javascript unsafe "($1[\"noWrap\"] ? 1 : 0)"-        ghcjs_dom_html_table_cell_element_get_no_wrap ::-        JSRef HTMLTableCellElement -> IO Bool- -htmlTableCellElementGetNoWrap ::-                              (IsHTMLTableCellElement self) => self -> IO Bool-htmlTableCellElementGetNoWrap self-  = ghcjs_dom_html_table_cell_element_get_no_wrap-      (unHTMLTableCellElement (toHTMLTableCellElement self))- -foreign import javascript unsafe "$1[\"rowSpan\"] = $2;"-        ghcjs_dom_html_table_cell_element_set_row_span ::-        JSRef HTMLTableCellElement -> Int -> IO ()- -htmlTableCellElementSetRowSpan ::-                               (IsHTMLTableCellElement self) => self -> Int -> IO ()-htmlTableCellElementSetRowSpan self val-  = ghcjs_dom_html_table_cell_element_set_row_span-      (unHTMLTableCellElement (toHTMLTableCellElement self))-      val- -foreign import javascript unsafe "$1[\"rowSpan\"]"-        ghcjs_dom_html_table_cell_element_get_row_span ::-        JSRef HTMLTableCellElement -> IO Int- -htmlTableCellElementGetRowSpan ::-                               (IsHTMLTableCellElement self) => self -> IO Int-htmlTableCellElementGetRowSpan self-  = ghcjs_dom_html_table_cell_element_get_row_span-      (unHTMLTableCellElement (toHTMLTableCellElement self))- -foreign import javascript unsafe "$1[\"scope\"] = $2;"-        ghcjs_dom_html_table_cell_element_set_scope ::-        JSRef HTMLTableCellElement -> JSString -> IO ()- -htmlTableCellElementSetScope ::-                             (IsHTMLTableCellElement self, ToJSString val) =>-                               self -> val -> IO ()-htmlTableCellElementSetScope self val-  = ghcjs_dom_html_table_cell_element_set_scope-      (unHTMLTableCellElement (toHTMLTableCellElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"scope\"]"-        ghcjs_dom_html_table_cell_element_get_scope ::-        JSRef HTMLTableCellElement -> IO JSString- -htmlTableCellElementGetScope ::-                             (IsHTMLTableCellElement self, FromJSString result) =>-                               self -> IO result-htmlTableCellElementGetScope self-  = fromJSString <$>-      (ghcjs_dom_html_table_cell_element_get_scope-         (unHTMLTableCellElement (toHTMLTableCellElement self)))- -foreign import javascript unsafe "$1[\"vAlign\"] = $2;"-        ghcjs_dom_html_table_cell_element_set_v_align ::-        JSRef HTMLTableCellElement -> JSString -> IO ()- -htmlTableCellElementSetVAlign ::-                              (IsHTMLTableCellElement self, ToJSString val) =>-                                self -> val -> IO ()-htmlTableCellElementSetVAlign self val-  = ghcjs_dom_html_table_cell_element_set_v_align-      (unHTMLTableCellElement (toHTMLTableCellElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"vAlign\"]"-        ghcjs_dom_html_table_cell_element_get_v_align ::-        JSRef HTMLTableCellElement -> IO JSString- -htmlTableCellElementGetVAlign ::-                              (IsHTMLTableCellElement self, FromJSString result) =>-                                self -> IO result-htmlTableCellElementGetVAlign self-  = fromJSString <$>-      (ghcjs_dom_html_table_cell_element_get_v_align-         (unHTMLTableCellElement (toHTMLTableCellElement self)))- -foreign import javascript unsafe "$1[\"width\"] = $2;"-        ghcjs_dom_html_table_cell_element_set_width ::-        JSRef HTMLTableCellElement -> JSString -> IO ()- -htmlTableCellElementSetWidth ::-                             (IsHTMLTableCellElement self, ToJSString val) =>-                               self -> val -> IO ()-htmlTableCellElementSetWidth self val-  = ghcjs_dom_html_table_cell_element_set_width-      (unHTMLTableCellElement (toHTMLTableCellElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"width\"]"-        ghcjs_dom_html_table_cell_element_get_width ::-        JSRef HTMLTableCellElement -> IO JSString- -htmlTableCellElementGetWidth ::-                             (IsHTMLTableCellElement self, FromJSString result) =>-                               self -> IO result-htmlTableCellElementGetWidth self-  = fromJSString <$>-      (ghcjs_dom_html_table_cell_element_get_width-         (unHTMLTableCellElement (toHTMLTableCellElement self)))+  module GHCJS.DOM.JSFFI.Generated.HTMLTableCellElement #else-module GHCJS.DOM.HTMLTableCellElement (   module Graphics.UI.Gtk.WebKit.DOM.HTMLTableCellElement+#endif   ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.HTMLTableCellElement+#else import Graphics.UI.Gtk.WebKit.DOM.HTMLTableCellElement #endif
src/GHCJS/DOM/HTMLTableColElement.hs view
@@ -1,185 +1,13 @@ {-# LANGUAGE CPP #-}+module GHCJS.DOM.HTMLTableColElement ( #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.HTMLTableColElement-       (ghcjs_dom_html_table_col_element_set_align,-        htmlTableColElementSetAlign,-        ghcjs_dom_html_table_col_element_get_align,-        htmlTableColElementGetAlign,-        ghcjs_dom_html_table_col_element_set_ch, htmlTableColElementSetCh,-        ghcjs_dom_html_table_col_element_get_ch, htmlTableColElementGetCh,-        ghcjs_dom_html_table_col_element_set_ch_off,-        htmlTableColElementSetChOff,-        ghcjs_dom_html_table_col_element_get_ch_off,-        htmlTableColElementGetChOff,-        ghcjs_dom_html_table_col_element_set_span,-        htmlTableColElementSetSpan,-        ghcjs_dom_html_table_col_element_get_span,-        htmlTableColElementGetSpan,-        ghcjs_dom_html_table_col_element_set_v_align,-        htmlTableColElementSetVAlign,-        ghcjs_dom_html_table_col_element_get_v_align,-        htmlTableColElementGetVAlign,-        ghcjs_dom_html_table_col_element_set_width,-        htmlTableColElementSetWidth,-        ghcjs_dom_html_table_col_element_get_width,-        htmlTableColElementGetWidth, HTMLTableColElement,-        IsHTMLTableColElement, castToHTMLTableColElement,-        gTypeHTMLTableColElement, toHTMLTableColElement)-       where-import GHCJS.Types-import GHCJS.Foreign-import GHCJS.Marshal-import Data.Int-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-- -foreign import javascript unsafe "$1[\"align\"] = $2;"-        ghcjs_dom_html_table_col_element_set_align ::-        JSRef HTMLTableColElement -> JSString -> IO ()- -htmlTableColElementSetAlign ::-                            (IsHTMLTableColElement self, ToJSString val) =>-                              self -> val -> IO ()-htmlTableColElementSetAlign self val-  = ghcjs_dom_html_table_col_element_set_align-      (unHTMLTableColElement (toHTMLTableColElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"align\"]"-        ghcjs_dom_html_table_col_element_get_align ::-        JSRef HTMLTableColElement -> IO JSString- -htmlTableColElementGetAlign ::-                            (IsHTMLTableColElement self, FromJSString result) =>-                              self -> IO result-htmlTableColElementGetAlign self-  = fromJSString <$>-      (ghcjs_dom_html_table_col_element_get_align-         (unHTMLTableColElement (toHTMLTableColElement self)))- -foreign import javascript unsafe "$1[\"ch\"] = $2;"-        ghcjs_dom_html_table_col_element_set_ch ::-        JSRef HTMLTableColElement -> JSString -> IO ()- -htmlTableColElementSetCh ::-                         (IsHTMLTableColElement self, ToJSString val) =>-                           self -> val -> IO ()-htmlTableColElementSetCh self val-  = ghcjs_dom_html_table_col_element_set_ch-      (unHTMLTableColElement (toHTMLTableColElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"ch\"]"-        ghcjs_dom_html_table_col_element_get_ch ::-        JSRef HTMLTableColElement -> IO JSString- -htmlTableColElementGetCh ::-                         (IsHTMLTableColElement self, FromJSString result) =>-                           self -> IO result-htmlTableColElementGetCh self-  = fromJSString <$>-      (ghcjs_dom_html_table_col_element_get_ch-         (unHTMLTableColElement (toHTMLTableColElement self)))- -foreign import javascript unsafe "$1[\"chOff\"] = $2;"-        ghcjs_dom_html_table_col_element_set_ch_off ::-        JSRef HTMLTableColElement -> JSString -> IO ()- -htmlTableColElementSetChOff ::-                            (IsHTMLTableColElement self, ToJSString val) =>-                              self -> val -> IO ()-htmlTableColElementSetChOff self val-  = ghcjs_dom_html_table_col_element_set_ch_off-      (unHTMLTableColElement (toHTMLTableColElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"chOff\"]"-        ghcjs_dom_html_table_col_element_get_ch_off ::-        JSRef HTMLTableColElement -> IO JSString- -htmlTableColElementGetChOff ::-                            (IsHTMLTableColElement self, FromJSString result) =>-                              self -> IO result-htmlTableColElementGetChOff self-  = fromJSString <$>-      (ghcjs_dom_html_table_col_element_get_ch_off-         (unHTMLTableColElement (toHTMLTableColElement self)))- -foreign import javascript unsafe "$1[\"span\"] = $2;"-        ghcjs_dom_html_table_col_element_set_span ::-        JSRef HTMLTableColElement -> Int -> IO ()- -htmlTableColElementSetSpan ::-                           (IsHTMLTableColElement self) => self -> Int -> IO ()-htmlTableColElementSetSpan self val-  = ghcjs_dom_html_table_col_element_set_span-      (unHTMLTableColElement (toHTMLTableColElement self))-      val- -foreign import javascript unsafe "$1[\"span\"]"-        ghcjs_dom_html_table_col_element_get_span ::-        JSRef HTMLTableColElement -> IO Int- -htmlTableColElementGetSpan ::-                           (IsHTMLTableColElement self) => self -> IO Int-htmlTableColElementGetSpan self-  = ghcjs_dom_html_table_col_element_get_span-      (unHTMLTableColElement (toHTMLTableColElement self))- -foreign import javascript unsafe "$1[\"vAlign\"] = $2;"-        ghcjs_dom_html_table_col_element_set_v_align ::-        JSRef HTMLTableColElement -> JSString -> IO ()- -htmlTableColElementSetVAlign ::-                             (IsHTMLTableColElement self, ToJSString val) =>-                               self -> val -> IO ()-htmlTableColElementSetVAlign self val-  = ghcjs_dom_html_table_col_element_set_v_align-      (unHTMLTableColElement (toHTMLTableColElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"vAlign\"]"-        ghcjs_dom_html_table_col_element_get_v_align ::-        JSRef HTMLTableColElement -> IO JSString- -htmlTableColElementGetVAlign ::-                             (IsHTMLTableColElement self, FromJSString result) =>-                               self -> IO result-htmlTableColElementGetVAlign self-  = fromJSString <$>-      (ghcjs_dom_html_table_col_element_get_v_align-         (unHTMLTableColElement (toHTMLTableColElement self)))- -foreign import javascript unsafe "$1[\"width\"] = $2;"-        ghcjs_dom_html_table_col_element_set_width ::-        JSRef HTMLTableColElement -> JSString -> IO ()- -htmlTableColElementSetWidth ::-                            (IsHTMLTableColElement self, ToJSString val) =>-                              self -> val -> IO ()-htmlTableColElementSetWidth self val-  = ghcjs_dom_html_table_col_element_set_width-      (unHTMLTableColElement (toHTMLTableColElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"width\"]"-        ghcjs_dom_html_table_col_element_get_width ::-        JSRef HTMLTableColElement -> IO JSString- -htmlTableColElementGetWidth ::-                            (IsHTMLTableColElement self, FromJSString result) =>-                              self -> IO result-htmlTableColElementGetWidth self-  = fromJSString <$>-      (ghcjs_dom_html_table_col_element_get_width-         (unHTMLTableColElement (toHTMLTableColElement self)))+  module GHCJS.DOM.JSFFI.Generated.HTMLTableColElement #else-module GHCJS.DOM.HTMLTableColElement (   module Graphics.UI.Gtk.WebKit.DOM.HTMLTableColElement+#endif   ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.HTMLTableColElement+#else import Graphics.UI.Gtk.WebKit.DOM.HTMLTableColElement #endif
src/GHCJS/DOM/HTMLTableElement.hs view
@@ -1,469 +1,13 @@ {-# LANGUAGE CPP #-}+module GHCJS.DOM.HTMLTableElement ( #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.HTMLTableElement-       (ghcjs_dom_html_table_element_create_t_head,-        htmlTableElementCreateTHead,-        ghcjs_dom_html_table_element_delete_t_head,-        htmlTableElementDeleteTHead,-        ghcjs_dom_html_table_element_create_t_foot,-        htmlTableElementCreateTFoot,-        ghcjs_dom_html_table_element_delete_t_foot,-        htmlTableElementDeleteTFoot,-        ghcjs_dom_html_table_element_create_t_body,-        htmlTableElementCreateTBody,-        ghcjs_dom_html_table_element_create_caption,-        htmlTableElementCreateCaption,-        ghcjs_dom_html_table_element_delete_caption,-        htmlTableElementDeleteCaption,-        ghcjs_dom_html_table_element_insert_row, htmlTableElementInsertRow,-        ghcjs_dom_html_table_element_delete_row, htmlTableElementDeleteRow,-        ghcjs_dom_html_table_element_set_caption,-        htmlTableElementSetCaption,-        ghcjs_dom_html_table_element_get_caption,-        htmlTableElementGetCaption,-        ghcjs_dom_html_table_element_set_t_head, htmlTableElementSetTHead,-        ghcjs_dom_html_table_element_get_t_head, htmlTableElementGetTHead,-        ghcjs_dom_html_table_element_set_t_foot, htmlTableElementSetTFoot,-        ghcjs_dom_html_table_element_get_t_foot, htmlTableElementGetTFoot,-        ghcjs_dom_html_table_element_get_rows, htmlTableElementGetRows,-        ghcjs_dom_html_table_element_get_t_bodies,-        htmlTableElementGetTBodies, ghcjs_dom_html_table_element_set_align,-        htmlTableElementSetAlign, ghcjs_dom_html_table_element_get_align,-        htmlTableElementGetAlign,-        ghcjs_dom_html_table_element_set_bg_color,-        htmlTableElementSetBgColor,-        ghcjs_dom_html_table_element_get_bg_color,-        htmlTableElementGetBgColor,-        ghcjs_dom_html_table_element_set_border, htmlTableElementSetBorder,-        ghcjs_dom_html_table_element_get_border, htmlTableElementGetBorder,-        ghcjs_dom_html_table_element_set_cell_padding,-        htmlTableElementSetCellPadding,-        ghcjs_dom_html_table_element_get_cell_padding,-        htmlTableElementGetCellPadding,-        ghcjs_dom_html_table_element_set_cell_spacing,-        htmlTableElementSetCellSpacing,-        ghcjs_dom_html_table_element_get_cell_spacing,-        htmlTableElementGetCellSpacing,-        ghcjs_dom_html_table_element_set_frame, htmlTableElementSetFrame,-        ghcjs_dom_html_table_element_get_frame, htmlTableElementGetFrame,-        ghcjs_dom_html_table_element_set_rules, htmlTableElementSetRules,-        ghcjs_dom_html_table_element_get_rules, htmlTableElementGetRules,-        ghcjs_dom_html_table_element_set_summary,-        htmlTableElementSetSummary,-        ghcjs_dom_html_table_element_get_summary,-        htmlTableElementGetSummary, ghcjs_dom_html_table_element_set_width,-        htmlTableElementSetWidth, ghcjs_dom_html_table_element_get_width,-        htmlTableElementGetWidth, HTMLTableElement, IsHTMLTableElement,-        castToHTMLTableElement, gTypeHTMLTableElement, toHTMLTableElement)-       where-import GHCJS.Types-import GHCJS.Foreign-import GHCJS.Marshal-import Data.Int-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-- -foreign import javascript unsafe "$1[\"createTHead\"]()"-        ghcjs_dom_html_table_element_create_t_head ::-        JSRef HTMLTableElement -> IO (JSRef HTMLElement)- -htmlTableElementCreateTHead ::-                            (IsHTMLTableElement self) => self -> IO (Maybe HTMLElement)-htmlTableElementCreateTHead self-  = fmap HTMLElement . maybeJSNull <$>-      (ghcjs_dom_html_table_element_create_t_head-         (unHTMLTableElement (toHTMLTableElement self)))- -foreign import javascript unsafe "$1[\"deleteTHead\"]()"-        ghcjs_dom_html_table_element_delete_t_head ::-        JSRef HTMLTableElement -> IO ()- -htmlTableElementDeleteTHead ::-                            (IsHTMLTableElement self) => self -> IO ()-htmlTableElementDeleteTHead self-  = ghcjs_dom_html_table_element_delete_t_head-      (unHTMLTableElement (toHTMLTableElement self))- -foreign import javascript unsafe "$1[\"createTFoot\"]()"-        ghcjs_dom_html_table_element_create_t_foot ::-        JSRef HTMLTableElement -> IO (JSRef HTMLElement)- -htmlTableElementCreateTFoot ::-                            (IsHTMLTableElement self) => self -> IO (Maybe HTMLElement)-htmlTableElementCreateTFoot self-  = fmap HTMLElement . maybeJSNull <$>-      (ghcjs_dom_html_table_element_create_t_foot-         (unHTMLTableElement (toHTMLTableElement self)))- -foreign import javascript unsafe "$1[\"deleteTFoot\"]()"-        ghcjs_dom_html_table_element_delete_t_foot ::-        JSRef HTMLTableElement -> IO ()- -htmlTableElementDeleteTFoot ::-                            (IsHTMLTableElement self) => self -> IO ()-htmlTableElementDeleteTFoot self-  = ghcjs_dom_html_table_element_delete_t_foot-      (unHTMLTableElement (toHTMLTableElement self))- -foreign import javascript unsafe "$1[\"createTBody\"]()"-        ghcjs_dom_html_table_element_create_t_body ::-        JSRef HTMLTableElement -> IO (JSRef HTMLElement)- -htmlTableElementCreateTBody ::-                            (IsHTMLTableElement self) => self -> IO (Maybe HTMLElement)-htmlTableElementCreateTBody self-  = fmap HTMLElement . maybeJSNull <$>-      (ghcjs_dom_html_table_element_create_t_body-         (unHTMLTableElement (toHTMLTableElement self)))- -foreign import javascript unsafe "$1[\"createCaption\"]()"-        ghcjs_dom_html_table_element_create_caption ::-        JSRef HTMLTableElement -> IO (JSRef HTMLElement)- -htmlTableElementCreateCaption ::-                              (IsHTMLTableElement self) => self -> IO (Maybe HTMLElement)-htmlTableElementCreateCaption self-  = fmap HTMLElement . maybeJSNull <$>-      (ghcjs_dom_html_table_element_create_caption-         (unHTMLTableElement (toHTMLTableElement self)))- -foreign import javascript unsafe "$1[\"deleteCaption\"]()"-        ghcjs_dom_html_table_element_delete_caption ::-        JSRef HTMLTableElement -> IO ()- -htmlTableElementDeleteCaption ::-                              (IsHTMLTableElement self) => self -> IO ()-htmlTableElementDeleteCaption self-  = ghcjs_dom_html_table_element_delete_caption-      (unHTMLTableElement (toHTMLTableElement self))- -foreign import javascript unsafe "$1[\"insertRow\"]($2)"-        ghcjs_dom_html_table_element_insert_row ::-        JSRef HTMLTableElement -> Int -> IO (JSRef HTMLElement)- -htmlTableElementInsertRow ::-                          (IsHTMLTableElement self) => self -> Int -> IO (Maybe HTMLElement)-htmlTableElementInsertRow self index-  = fmap HTMLElement . maybeJSNull <$>-      (ghcjs_dom_html_table_element_insert_row-         (unHTMLTableElement (toHTMLTableElement self))-         index)- -foreign import javascript unsafe "$1[\"deleteRow\"]($2)"-        ghcjs_dom_html_table_element_delete_row ::-        JSRef HTMLTableElement -> Int -> IO ()- -htmlTableElementDeleteRow ::-                          (IsHTMLTableElement self) => self -> Int -> IO ()-htmlTableElementDeleteRow self index-  = ghcjs_dom_html_table_element_delete_row-      (unHTMLTableElement (toHTMLTableElement self))-      index- -foreign import javascript unsafe "$1[\"caption\"] = $2;"-        ghcjs_dom_html_table_element_set_caption ::-        JSRef HTMLTableElement -> JSRef HTMLTableCaptionElement -> IO ()- -htmlTableElementSetCaption ::-                           (IsHTMLTableElement self, IsHTMLTableCaptionElement val) =>-                             self -> Maybe val -> IO ()-htmlTableElementSetCaption self val-  = ghcjs_dom_html_table_element_set_caption-      (unHTMLTableElement (toHTMLTableElement self))-      (maybe jsNull-         (unHTMLTableCaptionElement . toHTMLTableCaptionElement)-         val)- -foreign import javascript unsafe "$1[\"caption\"]"-        ghcjs_dom_html_table_element_get_caption ::-        JSRef HTMLTableElement -> IO (JSRef HTMLTableCaptionElement)- -htmlTableElementGetCaption ::-                           (IsHTMLTableElement self) =>-                             self -> IO (Maybe HTMLTableCaptionElement)-htmlTableElementGetCaption self-  = fmap HTMLTableCaptionElement . maybeJSNull <$>-      (ghcjs_dom_html_table_element_get_caption-         (unHTMLTableElement (toHTMLTableElement self)))- -foreign import javascript unsafe "$1[\"tHead\"] = $2;"-        ghcjs_dom_html_table_element_set_t_head ::-        JSRef HTMLTableElement -> JSRef HTMLTableSectionElement -> IO ()- -htmlTableElementSetTHead ::-                         (IsHTMLTableElement self, IsHTMLTableSectionElement val) =>-                           self -> Maybe val -> IO ()-htmlTableElementSetTHead self val-  = ghcjs_dom_html_table_element_set_t_head-      (unHTMLTableElement (toHTMLTableElement self))-      (maybe jsNull-         (unHTMLTableSectionElement . toHTMLTableSectionElement)-         val)- -foreign import javascript unsafe "$1[\"tHead\"]"-        ghcjs_dom_html_table_element_get_t_head ::-        JSRef HTMLTableElement -> IO (JSRef HTMLTableSectionElement)- -htmlTableElementGetTHead ::-                         (IsHTMLTableElement self) =>-                           self -> IO (Maybe HTMLTableSectionElement)-htmlTableElementGetTHead self-  = fmap HTMLTableSectionElement . maybeJSNull <$>-      (ghcjs_dom_html_table_element_get_t_head-         (unHTMLTableElement (toHTMLTableElement self)))- -foreign import javascript unsafe "$1[\"tFoot\"] = $2;"-        ghcjs_dom_html_table_element_set_t_foot ::-        JSRef HTMLTableElement -> JSRef HTMLTableSectionElement -> IO ()- -htmlTableElementSetTFoot ::-                         (IsHTMLTableElement self, IsHTMLTableSectionElement val) =>-                           self -> Maybe val -> IO ()-htmlTableElementSetTFoot self val-  = ghcjs_dom_html_table_element_set_t_foot-      (unHTMLTableElement (toHTMLTableElement self))-      (maybe jsNull-         (unHTMLTableSectionElement . toHTMLTableSectionElement)-         val)- -foreign import javascript unsafe "$1[\"tFoot\"]"-        ghcjs_dom_html_table_element_get_t_foot ::-        JSRef HTMLTableElement -> IO (JSRef HTMLTableSectionElement)- -htmlTableElementGetTFoot ::-                         (IsHTMLTableElement self) =>-                           self -> IO (Maybe HTMLTableSectionElement)-htmlTableElementGetTFoot self-  = fmap HTMLTableSectionElement . maybeJSNull <$>-      (ghcjs_dom_html_table_element_get_t_foot-         (unHTMLTableElement (toHTMLTableElement self)))- -foreign import javascript unsafe "$1[\"rows\"]"-        ghcjs_dom_html_table_element_get_rows ::-        JSRef HTMLTableElement -> IO (JSRef HTMLCollection)- -htmlTableElementGetRows ::-                        (IsHTMLTableElement self) => self -> IO (Maybe HTMLCollection)-htmlTableElementGetRows self-  = fmap HTMLCollection . maybeJSNull <$>-      (ghcjs_dom_html_table_element_get_rows-         (unHTMLTableElement (toHTMLTableElement self)))- -foreign import javascript unsafe "$1[\"tBodies\"]"-        ghcjs_dom_html_table_element_get_t_bodies ::-        JSRef HTMLTableElement -> IO (JSRef HTMLCollection)- -htmlTableElementGetTBodies ::-                           (IsHTMLTableElement self) => self -> IO (Maybe HTMLCollection)-htmlTableElementGetTBodies self-  = fmap HTMLCollection . maybeJSNull <$>-      (ghcjs_dom_html_table_element_get_t_bodies-         (unHTMLTableElement (toHTMLTableElement self)))- -foreign import javascript unsafe "$1[\"align\"] = $2;"-        ghcjs_dom_html_table_element_set_align ::-        JSRef HTMLTableElement -> JSString -> IO ()- -htmlTableElementSetAlign ::-                         (IsHTMLTableElement self, ToJSString val) => self -> val -> IO ()-htmlTableElementSetAlign self val-  = ghcjs_dom_html_table_element_set_align-      (unHTMLTableElement (toHTMLTableElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"align\"]"-        ghcjs_dom_html_table_element_get_align ::-        JSRef HTMLTableElement -> IO JSString- -htmlTableElementGetAlign ::-                         (IsHTMLTableElement self, FromJSString result) => self -> IO result-htmlTableElementGetAlign self-  = fromJSString <$>-      (ghcjs_dom_html_table_element_get_align-         (unHTMLTableElement (toHTMLTableElement self)))- -foreign import javascript unsafe "$1[\"bgColor\"] = $2;"-        ghcjs_dom_html_table_element_set_bg_color ::-        JSRef HTMLTableElement -> JSString -> IO ()- -htmlTableElementSetBgColor ::-                           (IsHTMLTableElement self, ToJSString val) => self -> val -> IO ()-htmlTableElementSetBgColor self val-  = ghcjs_dom_html_table_element_set_bg_color-      (unHTMLTableElement (toHTMLTableElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"bgColor\"]"-        ghcjs_dom_html_table_element_get_bg_color ::-        JSRef HTMLTableElement -> IO JSString- -htmlTableElementGetBgColor ::-                           (IsHTMLTableElement self, FromJSString result) => self -> IO result-htmlTableElementGetBgColor self-  = fromJSString <$>-      (ghcjs_dom_html_table_element_get_bg_color-         (unHTMLTableElement (toHTMLTableElement self)))- -foreign import javascript unsafe "$1[\"border\"] = $2;"-        ghcjs_dom_html_table_element_set_border ::-        JSRef HTMLTableElement -> JSString -> IO ()- -htmlTableElementSetBorder ::-                          (IsHTMLTableElement self, ToJSString val) => self -> val -> IO ()-htmlTableElementSetBorder self val-  = ghcjs_dom_html_table_element_set_border-      (unHTMLTableElement (toHTMLTableElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"border\"]"-        ghcjs_dom_html_table_element_get_border ::-        JSRef HTMLTableElement -> IO JSString- -htmlTableElementGetBorder ::-                          (IsHTMLTableElement self, FromJSString result) => self -> IO result-htmlTableElementGetBorder self-  = fromJSString <$>-      (ghcjs_dom_html_table_element_get_border-         (unHTMLTableElement (toHTMLTableElement self)))- -foreign import javascript unsafe "$1[\"cellPadding\"] = $2;"-        ghcjs_dom_html_table_element_set_cell_padding ::-        JSRef HTMLTableElement -> JSString -> IO ()- -htmlTableElementSetCellPadding ::-                               (IsHTMLTableElement self, ToJSString val) => self -> val -> IO ()-htmlTableElementSetCellPadding self val-  = ghcjs_dom_html_table_element_set_cell_padding-      (unHTMLTableElement (toHTMLTableElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"cellPadding\"]"-        ghcjs_dom_html_table_element_get_cell_padding ::-        JSRef HTMLTableElement -> IO JSString- -htmlTableElementGetCellPadding ::-                               (IsHTMLTableElement self, FromJSString result) => self -> IO result-htmlTableElementGetCellPadding self-  = fromJSString <$>-      (ghcjs_dom_html_table_element_get_cell_padding-         (unHTMLTableElement (toHTMLTableElement self)))- -foreign import javascript unsafe "$1[\"cellSpacing\"] = $2;"-        ghcjs_dom_html_table_element_set_cell_spacing ::-        JSRef HTMLTableElement -> JSString -> IO ()- -htmlTableElementSetCellSpacing ::-                               (IsHTMLTableElement self, ToJSString val) => self -> val -> IO ()-htmlTableElementSetCellSpacing self val-  = ghcjs_dom_html_table_element_set_cell_spacing-      (unHTMLTableElement (toHTMLTableElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"cellSpacing\"]"-        ghcjs_dom_html_table_element_get_cell_spacing ::-        JSRef HTMLTableElement -> IO JSString- -htmlTableElementGetCellSpacing ::-                               (IsHTMLTableElement self, FromJSString result) => self -> IO result-htmlTableElementGetCellSpacing self-  = fromJSString <$>-      (ghcjs_dom_html_table_element_get_cell_spacing-         (unHTMLTableElement (toHTMLTableElement self)))- -foreign import javascript unsafe "$1[\"frame\"] = $2;"-        ghcjs_dom_html_table_element_set_frame ::-        JSRef HTMLTableElement -> JSString -> IO ()- -htmlTableElementSetFrame ::-                         (IsHTMLTableElement self, ToJSString val) => self -> val -> IO ()-htmlTableElementSetFrame self val-  = ghcjs_dom_html_table_element_set_frame-      (unHTMLTableElement (toHTMLTableElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"frame\"]"-        ghcjs_dom_html_table_element_get_frame ::-        JSRef HTMLTableElement -> IO JSString- -htmlTableElementGetFrame ::-                         (IsHTMLTableElement self, FromJSString result) => self -> IO result-htmlTableElementGetFrame self-  = fromJSString <$>-      (ghcjs_dom_html_table_element_get_frame-         (unHTMLTableElement (toHTMLTableElement self)))- -foreign import javascript unsafe "$1[\"rules\"] = $2;"-        ghcjs_dom_html_table_element_set_rules ::-        JSRef HTMLTableElement -> JSString -> IO ()- -htmlTableElementSetRules ::-                         (IsHTMLTableElement self, ToJSString val) => self -> val -> IO ()-htmlTableElementSetRules self val-  = ghcjs_dom_html_table_element_set_rules-      (unHTMLTableElement (toHTMLTableElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"rules\"]"-        ghcjs_dom_html_table_element_get_rules ::-        JSRef HTMLTableElement -> IO JSString- -htmlTableElementGetRules ::-                         (IsHTMLTableElement self, FromJSString result) => self -> IO result-htmlTableElementGetRules self-  = fromJSString <$>-      (ghcjs_dom_html_table_element_get_rules-         (unHTMLTableElement (toHTMLTableElement self)))- -foreign import javascript unsafe "$1[\"summary\"] = $2;"-        ghcjs_dom_html_table_element_set_summary ::-        JSRef HTMLTableElement -> JSString -> IO ()- -htmlTableElementSetSummary ::-                           (IsHTMLTableElement self, ToJSString val) => self -> val -> IO ()-htmlTableElementSetSummary self val-  = ghcjs_dom_html_table_element_set_summary-      (unHTMLTableElement (toHTMLTableElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"summary\"]"-        ghcjs_dom_html_table_element_get_summary ::-        JSRef HTMLTableElement -> IO JSString- -htmlTableElementGetSummary ::-                           (IsHTMLTableElement self, FromJSString result) => self -> IO result-htmlTableElementGetSummary self-  = fromJSString <$>-      (ghcjs_dom_html_table_element_get_summary-         (unHTMLTableElement (toHTMLTableElement self)))- -foreign import javascript unsafe "$1[\"width\"] = $2;"-        ghcjs_dom_html_table_element_set_width ::-        JSRef HTMLTableElement -> JSString -> IO ()- -htmlTableElementSetWidth ::-                         (IsHTMLTableElement self, ToJSString val) => self -> val -> IO ()-htmlTableElementSetWidth self val-  = ghcjs_dom_html_table_element_set_width-      (unHTMLTableElement (toHTMLTableElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"width\"]"-        ghcjs_dom_html_table_element_get_width ::-        JSRef HTMLTableElement -> IO JSString- -htmlTableElementGetWidth ::-                         (IsHTMLTableElement self, FromJSString result) => self -> IO result-htmlTableElementGetWidth self-  = fromJSString <$>-      (ghcjs_dom_html_table_element_get_width-         (unHTMLTableElement (toHTMLTableElement self)))+  module GHCJS.DOM.JSFFI.Generated.HTMLTableElement #else-module GHCJS.DOM.HTMLTableElement (   module Graphics.UI.Gtk.WebKit.DOM.HTMLTableElement+#endif   ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.HTMLTableElement+#else import Graphics.UI.Gtk.WebKit.DOM.HTMLTableElement #endif
src/GHCJS/DOM/HTMLTableRowElement.hs view
@@ -1,225 +1,13 @@ {-# LANGUAGE CPP #-}+module GHCJS.DOM.HTMLTableRowElement ( #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.HTMLTableRowElement-       (ghcjs_dom_html_table_row_element_insert_cell,-        htmlTableRowElementInsertCell,-        ghcjs_dom_html_table_row_element_delete_cell,-        htmlTableRowElementDeleteCell,-        ghcjs_dom_html_table_row_element_get_row_index,-        htmlTableRowElementGetRowIndex,-        ghcjs_dom_html_table_row_element_get_section_row_index,-        htmlTableRowElementGetSectionRowIndex,-        ghcjs_dom_html_table_row_element_get_cells,-        htmlTableRowElementGetCells,-        ghcjs_dom_html_table_row_element_set_align,-        htmlTableRowElementSetAlign,-        ghcjs_dom_html_table_row_element_get_align,-        htmlTableRowElementGetAlign,-        ghcjs_dom_html_table_row_element_set_bg_color,-        htmlTableRowElementSetBgColor,-        ghcjs_dom_html_table_row_element_get_bg_color,-        htmlTableRowElementGetBgColor,-        ghcjs_dom_html_table_row_element_set_ch, htmlTableRowElementSetCh,-        ghcjs_dom_html_table_row_element_get_ch, htmlTableRowElementGetCh,-        ghcjs_dom_html_table_row_element_set_ch_off,-        htmlTableRowElementSetChOff,-        ghcjs_dom_html_table_row_element_get_ch_off,-        htmlTableRowElementGetChOff,-        ghcjs_dom_html_table_row_element_set_v_align,-        htmlTableRowElementSetVAlign,-        ghcjs_dom_html_table_row_element_get_v_align,-        htmlTableRowElementGetVAlign, HTMLTableRowElement,-        IsHTMLTableRowElement, castToHTMLTableRowElement,-        gTypeHTMLTableRowElement, toHTMLTableRowElement)-       where-import GHCJS.Types-import GHCJS.Foreign-import GHCJS.Marshal-import Data.Int-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-- -foreign import javascript unsafe "$1[\"insertCell\"]($2)"-        ghcjs_dom_html_table_row_element_insert_cell ::-        JSRef HTMLTableRowElement -> Int -> IO (JSRef HTMLElement)- -htmlTableRowElementInsertCell ::-                              (IsHTMLTableRowElement self) =>-                                self -> Int -> IO (Maybe HTMLElement)-htmlTableRowElementInsertCell self index-  = fmap HTMLElement . maybeJSNull <$>-      (ghcjs_dom_html_table_row_element_insert_cell-         (unHTMLTableRowElement (toHTMLTableRowElement self))-         index)- -foreign import javascript unsafe "$1[\"deleteCell\"]($2)"-        ghcjs_dom_html_table_row_element_delete_cell ::-        JSRef HTMLTableRowElement -> Int -> IO ()- -htmlTableRowElementDeleteCell ::-                              (IsHTMLTableRowElement self) => self -> Int -> IO ()-htmlTableRowElementDeleteCell self index-  = ghcjs_dom_html_table_row_element_delete_cell-      (unHTMLTableRowElement (toHTMLTableRowElement self))-      index- -foreign import javascript unsafe "$1[\"rowIndex\"]"-        ghcjs_dom_html_table_row_element_get_row_index ::-        JSRef HTMLTableRowElement -> IO Int- -htmlTableRowElementGetRowIndex ::-                               (IsHTMLTableRowElement self) => self -> IO Int-htmlTableRowElementGetRowIndex self-  = ghcjs_dom_html_table_row_element_get_row_index-      (unHTMLTableRowElement (toHTMLTableRowElement self))- -foreign import javascript unsafe "$1[\"sectionRowIndex\"]"-        ghcjs_dom_html_table_row_element_get_section_row_index ::-        JSRef HTMLTableRowElement -> IO Int- -htmlTableRowElementGetSectionRowIndex ::-                                      (IsHTMLTableRowElement self) => self -> IO Int-htmlTableRowElementGetSectionRowIndex self-  = ghcjs_dom_html_table_row_element_get_section_row_index-      (unHTMLTableRowElement (toHTMLTableRowElement self))- -foreign import javascript unsafe "$1[\"cells\"]"-        ghcjs_dom_html_table_row_element_get_cells ::-        JSRef HTMLTableRowElement -> IO (JSRef HTMLCollection)- -htmlTableRowElementGetCells ::-                            (IsHTMLTableRowElement self) => self -> IO (Maybe HTMLCollection)-htmlTableRowElementGetCells self-  = fmap HTMLCollection . maybeJSNull <$>-      (ghcjs_dom_html_table_row_element_get_cells-         (unHTMLTableRowElement (toHTMLTableRowElement self)))- -foreign import javascript unsafe "$1[\"align\"] = $2;"-        ghcjs_dom_html_table_row_element_set_align ::-        JSRef HTMLTableRowElement -> JSString -> IO ()- -htmlTableRowElementSetAlign ::-                            (IsHTMLTableRowElement self, ToJSString val) =>-                              self -> val -> IO ()-htmlTableRowElementSetAlign self val-  = ghcjs_dom_html_table_row_element_set_align-      (unHTMLTableRowElement (toHTMLTableRowElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"align\"]"-        ghcjs_dom_html_table_row_element_get_align ::-        JSRef HTMLTableRowElement -> IO JSString- -htmlTableRowElementGetAlign ::-                            (IsHTMLTableRowElement self, FromJSString result) =>-                              self -> IO result-htmlTableRowElementGetAlign self-  = fromJSString <$>-      (ghcjs_dom_html_table_row_element_get_align-         (unHTMLTableRowElement (toHTMLTableRowElement self)))- -foreign import javascript unsafe "$1[\"bgColor\"] = $2;"-        ghcjs_dom_html_table_row_element_set_bg_color ::-        JSRef HTMLTableRowElement -> JSString -> IO ()- -htmlTableRowElementSetBgColor ::-                              (IsHTMLTableRowElement self, ToJSString val) =>-                                self -> val -> IO ()-htmlTableRowElementSetBgColor self val-  = ghcjs_dom_html_table_row_element_set_bg_color-      (unHTMLTableRowElement (toHTMLTableRowElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"bgColor\"]"-        ghcjs_dom_html_table_row_element_get_bg_color ::-        JSRef HTMLTableRowElement -> IO JSString- -htmlTableRowElementGetBgColor ::-                              (IsHTMLTableRowElement self, FromJSString result) =>-                                self -> IO result-htmlTableRowElementGetBgColor self-  = fromJSString <$>-      (ghcjs_dom_html_table_row_element_get_bg_color-         (unHTMLTableRowElement (toHTMLTableRowElement self)))- -foreign import javascript unsafe "$1[\"ch\"] = $2;"-        ghcjs_dom_html_table_row_element_set_ch ::-        JSRef HTMLTableRowElement -> JSString -> IO ()- -htmlTableRowElementSetCh ::-                         (IsHTMLTableRowElement self, ToJSString val) =>-                           self -> val -> IO ()-htmlTableRowElementSetCh self val-  = ghcjs_dom_html_table_row_element_set_ch-      (unHTMLTableRowElement (toHTMLTableRowElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"ch\"]"-        ghcjs_dom_html_table_row_element_get_ch ::-        JSRef HTMLTableRowElement -> IO JSString- -htmlTableRowElementGetCh ::-                         (IsHTMLTableRowElement self, FromJSString result) =>-                           self -> IO result-htmlTableRowElementGetCh self-  = fromJSString <$>-      (ghcjs_dom_html_table_row_element_get_ch-         (unHTMLTableRowElement (toHTMLTableRowElement self)))- -foreign import javascript unsafe "$1[\"chOff\"] = $2;"-        ghcjs_dom_html_table_row_element_set_ch_off ::-        JSRef HTMLTableRowElement -> JSString -> IO ()- -htmlTableRowElementSetChOff ::-                            (IsHTMLTableRowElement self, ToJSString val) =>-                              self -> val -> IO ()-htmlTableRowElementSetChOff self val-  = ghcjs_dom_html_table_row_element_set_ch_off-      (unHTMLTableRowElement (toHTMLTableRowElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"chOff\"]"-        ghcjs_dom_html_table_row_element_get_ch_off ::-        JSRef HTMLTableRowElement -> IO JSString- -htmlTableRowElementGetChOff ::-                            (IsHTMLTableRowElement self, FromJSString result) =>-                              self -> IO result-htmlTableRowElementGetChOff self-  = fromJSString <$>-      (ghcjs_dom_html_table_row_element_get_ch_off-         (unHTMLTableRowElement (toHTMLTableRowElement self)))- -foreign import javascript unsafe "$1[\"vAlign\"] = $2;"-        ghcjs_dom_html_table_row_element_set_v_align ::-        JSRef HTMLTableRowElement -> JSString -> IO ()- -htmlTableRowElementSetVAlign ::-                             (IsHTMLTableRowElement self, ToJSString val) =>-                               self -> val -> IO ()-htmlTableRowElementSetVAlign self val-  = ghcjs_dom_html_table_row_element_set_v_align-      (unHTMLTableRowElement (toHTMLTableRowElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"vAlign\"]"-        ghcjs_dom_html_table_row_element_get_v_align ::-        JSRef HTMLTableRowElement -> IO JSString- -htmlTableRowElementGetVAlign ::-                             (IsHTMLTableRowElement self, FromJSString result) =>-                               self -> IO result-htmlTableRowElementGetVAlign self-  = fromJSString <$>-      (ghcjs_dom_html_table_row_element_get_v_align-         (unHTMLTableRowElement (toHTMLTableRowElement self)))+  module GHCJS.DOM.JSFFI.Generated.HTMLTableRowElement #else-module GHCJS.DOM.HTMLTableRowElement (   module Graphics.UI.Gtk.WebKit.DOM.HTMLTableRowElement+#endif   ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.HTMLTableRowElement+#else import Graphics.UI.Gtk.WebKit.DOM.HTMLTableRowElement #endif
src/GHCJS/DOM/HTMLTableSectionElement.hs view
@@ -1,176 +1,13 @@ {-# LANGUAGE CPP #-}+module GHCJS.DOM.HTMLTableSectionElement ( #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.HTMLTableSectionElement-       (ghcjs_dom_html_table_section_element_insert_row,-        htmlTableSectionElementInsertRow,-        ghcjs_dom_html_table_section_element_delete_row,-        htmlTableSectionElementDeleteRow,-        ghcjs_dom_html_table_section_element_set_align,-        htmlTableSectionElementSetAlign,-        ghcjs_dom_html_table_section_element_get_align,-        htmlTableSectionElementGetAlign,-        ghcjs_dom_html_table_section_element_set_ch,-        htmlTableSectionElementSetCh,-        ghcjs_dom_html_table_section_element_get_ch,-        htmlTableSectionElementGetCh,-        ghcjs_dom_html_table_section_element_set_ch_off,-        htmlTableSectionElementSetChOff,-        ghcjs_dom_html_table_section_element_get_ch_off,-        htmlTableSectionElementGetChOff,-        ghcjs_dom_html_table_section_element_set_v_align,-        htmlTableSectionElementSetVAlign,-        ghcjs_dom_html_table_section_element_get_v_align,-        htmlTableSectionElementGetVAlign,-        ghcjs_dom_html_table_section_element_get_rows,-        htmlTableSectionElementGetRows, HTMLTableSectionElement,-        IsHTMLTableSectionElement, castToHTMLTableSectionElement,-        gTypeHTMLTableSectionElement, toHTMLTableSectionElement)-       where-import GHCJS.Types-import GHCJS.Foreign-import GHCJS.Marshal-import Data.Int-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-- -foreign import javascript unsafe "$1[\"insertRow\"]($2)"-        ghcjs_dom_html_table_section_element_insert_row ::-        JSRef HTMLTableSectionElement -> Int -> IO (JSRef HTMLElement)- -htmlTableSectionElementInsertRow ::-                                 (IsHTMLTableSectionElement self) =>-                                   self -> Int -> IO (Maybe HTMLElement)-htmlTableSectionElementInsertRow self index-  = fmap HTMLElement . maybeJSNull <$>-      (ghcjs_dom_html_table_section_element_insert_row-         (unHTMLTableSectionElement (toHTMLTableSectionElement self))-         index)- -foreign import javascript unsafe "$1[\"deleteRow\"]($2)"-        ghcjs_dom_html_table_section_element_delete_row ::-        JSRef HTMLTableSectionElement -> Int -> IO ()- -htmlTableSectionElementDeleteRow ::-                                 (IsHTMLTableSectionElement self) => self -> Int -> IO ()-htmlTableSectionElementDeleteRow self index-  = ghcjs_dom_html_table_section_element_delete_row-      (unHTMLTableSectionElement (toHTMLTableSectionElement self))-      index- -foreign import javascript unsafe "$1[\"align\"] = $2;"-        ghcjs_dom_html_table_section_element_set_align ::-        JSRef HTMLTableSectionElement -> JSString -> IO ()- -htmlTableSectionElementSetAlign ::-                                (IsHTMLTableSectionElement self, ToJSString val) =>-                                  self -> val -> IO ()-htmlTableSectionElementSetAlign self val-  = ghcjs_dom_html_table_section_element_set_align-      (unHTMLTableSectionElement (toHTMLTableSectionElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"align\"]"-        ghcjs_dom_html_table_section_element_get_align ::-        JSRef HTMLTableSectionElement -> IO JSString- -htmlTableSectionElementGetAlign ::-                                (IsHTMLTableSectionElement self, FromJSString result) =>-                                  self -> IO result-htmlTableSectionElementGetAlign self-  = fromJSString <$>-      (ghcjs_dom_html_table_section_element_get_align-         (unHTMLTableSectionElement (toHTMLTableSectionElement self)))- -foreign import javascript unsafe "$1[\"ch\"] = $2;"-        ghcjs_dom_html_table_section_element_set_ch ::-        JSRef HTMLTableSectionElement -> JSString -> IO ()- -htmlTableSectionElementSetCh ::-                             (IsHTMLTableSectionElement self, ToJSString val) =>-                               self -> val -> IO ()-htmlTableSectionElementSetCh self val-  = ghcjs_dom_html_table_section_element_set_ch-      (unHTMLTableSectionElement (toHTMLTableSectionElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"ch\"]"-        ghcjs_dom_html_table_section_element_get_ch ::-        JSRef HTMLTableSectionElement -> IO JSString- -htmlTableSectionElementGetCh ::-                             (IsHTMLTableSectionElement self, FromJSString result) =>-                               self -> IO result-htmlTableSectionElementGetCh self-  = fromJSString <$>-      (ghcjs_dom_html_table_section_element_get_ch-         (unHTMLTableSectionElement (toHTMLTableSectionElement self)))- -foreign import javascript unsafe "$1[\"chOff\"] = $2;"-        ghcjs_dom_html_table_section_element_set_ch_off ::-        JSRef HTMLTableSectionElement -> JSString -> IO ()- -htmlTableSectionElementSetChOff ::-                                (IsHTMLTableSectionElement self, ToJSString val) =>-                                  self -> val -> IO ()-htmlTableSectionElementSetChOff self val-  = ghcjs_dom_html_table_section_element_set_ch_off-      (unHTMLTableSectionElement (toHTMLTableSectionElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"chOff\"]"-        ghcjs_dom_html_table_section_element_get_ch_off ::-        JSRef HTMLTableSectionElement -> IO JSString- -htmlTableSectionElementGetChOff ::-                                (IsHTMLTableSectionElement self, FromJSString result) =>-                                  self -> IO result-htmlTableSectionElementGetChOff self-  = fromJSString <$>-      (ghcjs_dom_html_table_section_element_get_ch_off-         (unHTMLTableSectionElement (toHTMLTableSectionElement self)))- -foreign import javascript unsafe "$1[\"vAlign\"] = $2;"-        ghcjs_dom_html_table_section_element_set_v_align ::-        JSRef HTMLTableSectionElement -> JSString -> IO ()- -htmlTableSectionElementSetVAlign ::-                                 (IsHTMLTableSectionElement self, ToJSString val) =>-                                   self -> val -> IO ()-htmlTableSectionElementSetVAlign self val-  = ghcjs_dom_html_table_section_element_set_v_align-      (unHTMLTableSectionElement (toHTMLTableSectionElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"vAlign\"]"-        ghcjs_dom_html_table_section_element_get_v_align ::-        JSRef HTMLTableSectionElement -> IO JSString- -htmlTableSectionElementGetVAlign ::-                                 (IsHTMLTableSectionElement self, FromJSString result) =>-                                   self -> IO result-htmlTableSectionElementGetVAlign self-  = fromJSString <$>-      (ghcjs_dom_html_table_section_element_get_v_align-         (unHTMLTableSectionElement (toHTMLTableSectionElement self)))- -foreign import javascript unsafe "$1[\"rows\"]"-        ghcjs_dom_html_table_section_element_get_rows ::-        JSRef HTMLTableSectionElement -> IO (JSRef HTMLCollection)- -htmlTableSectionElementGetRows ::-                               (IsHTMLTableSectionElement self) =>-                                 self -> IO (Maybe HTMLCollection)-htmlTableSectionElementGetRows self-  = fmap HTMLCollection . maybeJSNull <$>-      (ghcjs_dom_html_table_section_element_get_rows-         (unHTMLTableSectionElement (toHTMLTableSectionElement self)))+  module GHCJS.DOM.JSFFI.Generated.HTMLTableSectionElement #else-module GHCJS.DOM.HTMLTableSectionElement (   module Graphics.UI.Gtk.WebKit.DOM.HTMLTableSectionElement+#endif   ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.HTMLTableSectionElement+#else import Graphics.UI.Gtk.WebKit.DOM.HTMLTableSectionElement #endif
+ src/GHCJS/DOM/HTMLTemplateElement.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.HTMLTemplateElement (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.HTMLTemplateElement+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.HTMLTemplateElement+#else+#endif
src/GHCJS/DOM/HTMLTextAreaElement.hs view
@@ -1,663 +1,13 @@ {-# LANGUAGE CPP #-}+module GHCJS.DOM.HTMLTextAreaElement ( #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.HTMLTextAreaElement-       (ghcjs_dom_html_text_area_element_check_validity,-        htmlTextAreaElementCheckValidity,-        ghcjs_dom_html_text_area_element_set_custom_validity,-        htmlTextAreaElementSetCustomValidity,-        ghcjs_dom_html_text_area_element_select, htmlTextAreaElementSelect,-        ghcjs_dom_html_text_area_element_set_range_text,-        htmlTextAreaElementSetRangeText,-        ghcjs_dom_html_text_area_element_set_range_text4,-        htmlTextAreaElementSetRangeText4,-        ghcjs_dom_html_text_area_element_set_selection_range,-        htmlTextAreaElementSetSelectionRange,-        ghcjs_dom_html_text_area_element_set_autofocus,-        htmlTextAreaElementSetAutofocus,-        ghcjs_dom_html_text_area_element_get_autofocus,-        htmlTextAreaElementGetAutofocus,-        ghcjs_dom_html_text_area_element_set_cols,-        htmlTextAreaElementSetCols,-        ghcjs_dom_html_text_area_element_get_cols,-        htmlTextAreaElementGetCols,-        ghcjs_dom_html_text_area_element_set_dir_name,-        htmlTextAreaElementSetDirName,-        ghcjs_dom_html_text_area_element_get_dir_name,-        htmlTextAreaElementGetDirName,-        ghcjs_dom_html_text_area_element_set_disabled,-        htmlTextAreaElementSetDisabled,-        ghcjs_dom_html_text_area_element_get_disabled,-        htmlTextAreaElementGetDisabled,-        ghcjs_dom_html_text_area_element_get_form,-        htmlTextAreaElementGetForm,-        ghcjs_dom_html_text_area_element_set_max_length,-        htmlTextAreaElementSetMaxLength,-        ghcjs_dom_html_text_area_element_get_max_length,-        htmlTextAreaElementGetMaxLength,-        ghcjs_dom_html_text_area_element_set_name,-        htmlTextAreaElementSetName,-        ghcjs_dom_html_text_area_element_get_name,-        htmlTextAreaElementGetName,-        ghcjs_dom_html_text_area_element_set_placeholder,-        htmlTextAreaElementSetPlaceholder,-        ghcjs_dom_html_text_area_element_get_placeholder,-        htmlTextAreaElementGetPlaceholder,-        ghcjs_dom_html_text_area_element_set_read_only,-        htmlTextAreaElementSetReadOnly,-        ghcjs_dom_html_text_area_element_get_read_only,-        htmlTextAreaElementGetReadOnly,-        ghcjs_dom_html_text_area_element_set_required,-        htmlTextAreaElementSetRequired,-        ghcjs_dom_html_text_area_element_get_required,-        htmlTextAreaElementGetRequired,-        ghcjs_dom_html_text_area_element_set_rows,-        htmlTextAreaElementSetRows,-        ghcjs_dom_html_text_area_element_get_rows,-        htmlTextAreaElementGetRows,-        ghcjs_dom_html_text_area_element_set_wrap,-        htmlTextAreaElementSetWrap,-        ghcjs_dom_html_text_area_element_get_wrap,-        htmlTextAreaElementGetWrap,-        ghcjs_dom_html_text_area_element_set_default_value,-        htmlTextAreaElementSetDefaultValue,-        ghcjs_dom_html_text_area_element_get_default_value,-        htmlTextAreaElementGetDefaultValue,-        ghcjs_dom_html_text_area_element_set_value,-        htmlTextAreaElementSetValue,-        ghcjs_dom_html_text_area_element_get_value,-        htmlTextAreaElementGetValue,-        ghcjs_dom_html_text_area_element_get_text_length,-        htmlTextAreaElementGetTextLength,-        ghcjs_dom_html_text_area_element_get_will_validate,-        htmlTextAreaElementGetWillValidate,-        ghcjs_dom_html_text_area_element_get_validity,-        htmlTextAreaElementGetValidity,-        ghcjs_dom_html_text_area_element_get_validation_message,-        htmlTextAreaElementGetValidationMessage,-        ghcjs_dom_html_text_area_element_get_labels,-        htmlTextAreaElementGetLabels,-        ghcjs_dom_html_text_area_element_set_selection_start,-        htmlTextAreaElementSetSelectionStart,-        ghcjs_dom_html_text_area_element_get_selection_start,-        htmlTextAreaElementGetSelectionStart,-        ghcjs_dom_html_text_area_element_set_selection_end,-        htmlTextAreaElementSetSelectionEnd,-        ghcjs_dom_html_text_area_element_get_selection_end,-        htmlTextAreaElementGetSelectionEnd,-        ghcjs_dom_html_text_area_element_set_selection_direction,-        htmlTextAreaElementSetSelectionDirection,-        ghcjs_dom_html_text_area_element_get_selection_direction,-        htmlTextAreaElementGetSelectionDirection,-        ghcjs_dom_html_text_area_element_set_autocorrect,-        htmlTextAreaElementSetAutocorrect,-        ghcjs_dom_html_text_area_element_get_autocorrect,-        htmlTextAreaElementGetAutocorrect,-        ghcjs_dom_html_text_area_element_set_autocapitalize,-        htmlTextAreaElementSetAutocapitalize,-        ghcjs_dom_html_text_area_element_get_autocapitalize,-        htmlTextAreaElementGetAutocapitalize, HTMLTextAreaElement,-        IsHTMLTextAreaElement, castToHTMLTextAreaElement,-        gTypeHTMLTextAreaElement, toHTMLTextAreaElement)-       where-import GHCJS.Types-import GHCJS.Foreign-import GHCJS.Marshal-import Data.Int-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-- -foreign import javascript unsafe-        "($1[\"checkValidity\"]() ? 1 : 0)"-        ghcjs_dom_html_text_area_element_check_validity ::-        JSRef HTMLTextAreaElement -> IO Bool- -htmlTextAreaElementCheckValidity ::-                                 (IsHTMLTextAreaElement self) => self -> IO Bool-htmlTextAreaElementCheckValidity self-  = ghcjs_dom_html_text_area_element_check_validity-      (unHTMLTextAreaElement (toHTMLTextAreaElement self))- -foreign import javascript unsafe "$1[\"setCustomValidity\"]($2)"-        ghcjs_dom_html_text_area_element_set_custom_validity ::-        JSRef HTMLTextAreaElement -> JSString -> IO ()- -htmlTextAreaElementSetCustomValidity ::-                                     (IsHTMLTextAreaElement self, ToJSString error) =>-                                       self -> error -> IO ()-htmlTextAreaElementSetCustomValidity self error-  = ghcjs_dom_html_text_area_element_set_custom_validity-      (unHTMLTextAreaElement (toHTMLTextAreaElement self))-      (toJSString error)- -foreign import javascript unsafe "$1[\"select\"]()"-        ghcjs_dom_html_text_area_element_select ::-        JSRef HTMLTextAreaElement -> IO ()- -htmlTextAreaElementSelect ::-                          (IsHTMLTextAreaElement self) => self -> IO ()-htmlTextAreaElementSelect self-  = ghcjs_dom_html_text_area_element_select-      (unHTMLTextAreaElement (toHTMLTextAreaElement self))- -foreign import javascript unsafe "$1[\"setRangeText\"]($2)"-        ghcjs_dom_html_text_area_element_set_range_text ::-        JSRef HTMLTextAreaElement -> JSString -> IO ()- -htmlTextAreaElementSetRangeText ::-                                (IsHTMLTextAreaElement self, ToJSString replacement) =>-                                  self -> replacement -> IO ()-htmlTextAreaElementSetRangeText self replacement-  = ghcjs_dom_html_text_area_element_set_range_text-      (unHTMLTextAreaElement (toHTMLTextAreaElement self))-      (toJSString replacement)- -foreign import javascript unsafe-        "$1[\"setRangeText\"]($2, $3, $4,\n$5)"-        ghcjs_dom_html_text_area_element_set_range_text4 ::-        JSRef HTMLTextAreaElement ->-          JSString -> Word -> Word -> JSString -> IO ()- -htmlTextAreaElementSetRangeText4 ::-                                 (IsHTMLTextAreaElement self, ToJSString replacement,-                                  ToJSString selectionMode) =>-                                   self -> replacement -> Word -> Word -> selectionMode -> IO ()-htmlTextAreaElementSetRangeText4 self replacement start end-  selectionMode-  = ghcjs_dom_html_text_area_element_set_range_text4-      (unHTMLTextAreaElement (toHTMLTextAreaElement self))-      (toJSString replacement)-      start-      end-      (toJSString selectionMode)- -foreign import javascript unsafe-        "$1[\"setSelectionRange\"]($2, $3,\n$4)"-        ghcjs_dom_html_text_area_element_set_selection_range ::-        JSRef HTMLTextAreaElement -> Int -> Int -> JSString -> IO ()- -htmlTextAreaElementSetSelectionRange ::-                                     (IsHTMLTextAreaElement self, ToJSString direction) =>-                                       self -> Int -> Int -> direction -> IO ()-htmlTextAreaElementSetSelectionRange self start end direction-  = ghcjs_dom_html_text_area_element_set_selection_range-      (unHTMLTextAreaElement (toHTMLTextAreaElement self))-      start-      end-      (toJSString direction)- -foreign import javascript unsafe "$1[\"autofocus\"] = $2;"-        ghcjs_dom_html_text_area_element_set_autofocus ::-        JSRef HTMLTextAreaElement -> Bool -> IO ()- -htmlTextAreaElementSetAutofocus ::-                                (IsHTMLTextAreaElement self) => self -> Bool -> IO ()-htmlTextAreaElementSetAutofocus self val-  = ghcjs_dom_html_text_area_element_set_autofocus-      (unHTMLTextAreaElement (toHTMLTextAreaElement self))-      val- -foreign import javascript unsafe "($1[\"autofocus\"] ? 1 : 0)"-        ghcjs_dom_html_text_area_element_get_autofocus ::-        JSRef HTMLTextAreaElement -> IO Bool- -htmlTextAreaElementGetAutofocus ::-                                (IsHTMLTextAreaElement self) => self -> IO Bool-htmlTextAreaElementGetAutofocus self-  = ghcjs_dom_html_text_area_element_get_autofocus-      (unHTMLTextAreaElement (toHTMLTextAreaElement self))- -foreign import javascript unsafe "$1[\"cols\"] = $2;"-        ghcjs_dom_html_text_area_element_set_cols ::-        JSRef HTMLTextAreaElement -> Int -> IO ()- -htmlTextAreaElementSetCols ::-                           (IsHTMLTextAreaElement self) => self -> Int -> IO ()-htmlTextAreaElementSetCols self val-  = ghcjs_dom_html_text_area_element_set_cols-      (unHTMLTextAreaElement (toHTMLTextAreaElement self))-      val- -foreign import javascript unsafe "$1[\"cols\"]"-        ghcjs_dom_html_text_area_element_get_cols ::-        JSRef HTMLTextAreaElement -> IO Int- -htmlTextAreaElementGetCols ::-                           (IsHTMLTextAreaElement self) => self -> IO Int-htmlTextAreaElementGetCols self-  = ghcjs_dom_html_text_area_element_get_cols-      (unHTMLTextAreaElement (toHTMLTextAreaElement self))- -foreign import javascript unsafe "$1[\"dirName\"] = $2;"-        ghcjs_dom_html_text_area_element_set_dir_name ::-        JSRef HTMLTextAreaElement -> JSString -> IO ()- -htmlTextAreaElementSetDirName ::-                              (IsHTMLTextAreaElement self, ToJSString val) =>-                                self -> val -> IO ()-htmlTextAreaElementSetDirName self val-  = ghcjs_dom_html_text_area_element_set_dir_name-      (unHTMLTextAreaElement (toHTMLTextAreaElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"dirName\"]"-        ghcjs_dom_html_text_area_element_get_dir_name ::-        JSRef HTMLTextAreaElement -> IO JSString- -htmlTextAreaElementGetDirName ::-                              (IsHTMLTextAreaElement self, FromJSString result) =>-                                self -> IO result-htmlTextAreaElementGetDirName self-  = fromJSString <$>-      (ghcjs_dom_html_text_area_element_get_dir_name-         (unHTMLTextAreaElement (toHTMLTextAreaElement self)))- -foreign import javascript unsafe "$1[\"disabled\"] = $2;"-        ghcjs_dom_html_text_area_element_set_disabled ::-        JSRef HTMLTextAreaElement -> Bool -> IO ()- -htmlTextAreaElementSetDisabled ::-                               (IsHTMLTextAreaElement self) => self -> Bool -> IO ()-htmlTextAreaElementSetDisabled self val-  = ghcjs_dom_html_text_area_element_set_disabled-      (unHTMLTextAreaElement (toHTMLTextAreaElement self))-      val- -foreign import javascript unsafe "($1[\"disabled\"] ? 1 : 0)"-        ghcjs_dom_html_text_area_element_get_disabled ::-        JSRef HTMLTextAreaElement -> IO Bool- -htmlTextAreaElementGetDisabled ::-                               (IsHTMLTextAreaElement self) => self -> IO Bool-htmlTextAreaElementGetDisabled self-  = ghcjs_dom_html_text_area_element_get_disabled-      (unHTMLTextAreaElement (toHTMLTextAreaElement self))- -foreign import javascript unsafe "$1[\"form\"]"-        ghcjs_dom_html_text_area_element_get_form ::-        JSRef HTMLTextAreaElement -> IO (JSRef HTMLFormElement)- -htmlTextAreaElementGetForm ::-                           (IsHTMLTextAreaElement self) => self -> IO (Maybe HTMLFormElement)-htmlTextAreaElementGetForm self-  = fmap HTMLFormElement . maybeJSNull <$>-      (ghcjs_dom_html_text_area_element_get_form-         (unHTMLTextAreaElement (toHTMLTextAreaElement self)))- -foreign import javascript unsafe "$1[\"maxLength\"] = $2;"-        ghcjs_dom_html_text_area_element_set_max_length ::-        JSRef HTMLTextAreaElement -> Int -> IO ()- -htmlTextAreaElementSetMaxLength ::-                                (IsHTMLTextAreaElement self) => self -> Int -> IO ()-htmlTextAreaElementSetMaxLength self val-  = ghcjs_dom_html_text_area_element_set_max_length-      (unHTMLTextAreaElement (toHTMLTextAreaElement self))-      val- -foreign import javascript unsafe "$1[\"maxLength\"]"-        ghcjs_dom_html_text_area_element_get_max_length ::-        JSRef HTMLTextAreaElement -> IO Int- -htmlTextAreaElementGetMaxLength ::-                                (IsHTMLTextAreaElement self) => self -> IO Int-htmlTextAreaElementGetMaxLength self-  = ghcjs_dom_html_text_area_element_get_max_length-      (unHTMLTextAreaElement (toHTMLTextAreaElement self))- -foreign import javascript unsafe "$1[\"name\"] = $2;"-        ghcjs_dom_html_text_area_element_set_name ::-        JSRef HTMLTextAreaElement -> JSString -> IO ()- -htmlTextAreaElementSetName ::-                           (IsHTMLTextAreaElement self, ToJSString val) =>-                             self -> val -> IO ()-htmlTextAreaElementSetName self val-  = ghcjs_dom_html_text_area_element_set_name-      (unHTMLTextAreaElement (toHTMLTextAreaElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"name\"]"-        ghcjs_dom_html_text_area_element_get_name ::-        JSRef HTMLTextAreaElement -> IO JSString- -htmlTextAreaElementGetName ::-                           (IsHTMLTextAreaElement self, FromJSString result) =>-                             self -> IO result-htmlTextAreaElementGetName self-  = fromJSString <$>-      (ghcjs_dom_html_text_area_element_get_name-         (unHTMLTextAreaElement (toHTMLTextAreaElement self)))- -foreign import javascript unsafe "$1[\"placeholder\"] = $2;"-        ghcjs_dom_html_text_area_element_set_placeholder ::-        JSRef HTMLTextAreaElement -> JSString -> IO ()- -htmlTextAreaElementSetPlaceholder ::-                                  (IsHTMLTextAreaElement self, ToJSString val) =>-                                    self -> val -> IO ()-htmlTextAreaElementSetPlaceholder self val-  = ghcjs_dom_html_text_area_element_set_placeholder-      (unHTMLTextAreaElement (toHTMLTextAreaElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"placeholder\"]"-        ghcjs_dom_html_text_area_element_get_placeholder ::-        JSRef HTMLTextAreaElement -> IO JSString- -htmlTextAreaElementGetPlaceholder ::-                                  (IsHTMLTextAreaElement self, FromJSString result) =>-                                    self -> IO result-htmlTextAreaElementGetPlaceholder self-  = fromJSString <$>-      (ghcjs_dom_html_text_area_element_get_placeholder-         (unHTMLTextAreaElement (toHTMLTextAreaElement self)))- -foreign import javascript unsafe "$1[\"readOnly\"] = $2;"-        ghcjs_dom_html_text_area_element_set_read_only ::-        JSRef HTMLTextAreaElement -> Bool -> IO ()- -htmlTextAreaElementSetReadOnly ::-                               (IsHTMLTextAreaElement self) => self -> Bool -> IO ()-htmlTextAreaElementSetReadOnly self val-  = ghcjs_dom_html_text_area_element_set_read_only-      (unHTMLTextAreaElement (toHTMLTextAreaElement self))-      val- -foreign import javascript unsafe "($1[\"readOnly\"] ? 1 : 0)"-        ghcjs_dom_html_text_area_element_get_read_only ::-        JSRef HTMLTextAreaElement -> IO Bool- -htmlTextAreaElementGetReadOnly ::-                               (IsHTMLTextAreaElement self) => self -> IO Bool-htmlTextAreaElementGetReadOnly self-  = ghcjs_dom_html_text_area_element_get_read_only-      (unHTMLTextAreaElement (toHTMLTextAreaElement self))- -foreign import javascript unsafe "$1[\"required\"] = $2;"-        ghcjs_dom_html_text_area_element_set_required ::-        JSRef HTMLTextAreaElement -> Bool -> IO ()- -htmlTextAreaElementSetRequired ::-                               (IsHTMLTextAreaElement self) => self -> Bool -> IO ()-htmlTextAreaElementSetRequired self val-  = ghcjs_dom_html_text_area_element_set_required-      (unHTMLTextAreaElement (toHTMLTextAreaElement self))-      val- -foreign import javascript unsafe "($1[\"required\"] ? 1 : 0)"-        ghcjs_dom_html_text_area_element_get_required ::-        JSRef HTMLTextAreaElement -> IO Bool- -htmlTextAreaElementGetRequired ::-                               (IsHTMLTextAreaElement self) => self -> IO Bool-htmlTextAreaElementGetRequired self-  = ghcjs_dom_html_text_area_element_get_required-      (unHTMLTextAreaElement (toHTMLTextAreaElement self))- -foreign import javascript unsafe "$1[\"rows\"] = $2;"-        ghcjs_dom_html_text_area_element_set_rows ::-        JSRef HTMLTextAreaElement -> Int -> IO ()- -htmlTextAreaElementSetRows ::-                           (IsHTMLTextAreaElement self) => self -> Int -> IO ()-htmlTextAreaElementSetRows self val-  = ghcjs_dom_html_text_area_element_set_rows-      (unHTMLTextAreaElement (toHTMLTextAreaElement self))-      val- -foreign import javascript unsafe "$1[\"rows\"]"-        ghcjs_dom_html_text_area_element_get_rows ::-        JSRef HTMLTextAreaElement -> IO Int- -htmlTextAreaElementGetRows ::-                           (IsHTMLTextAreaElement self) => self -> IO Int-htmlTextAreaElementGetRows self-  = ghcjs_dom_html_text_area_element_get_rows-      (unHTMLTextAreaElement (toHTMLTextAreaElement self))- -foreign import javascript unsafe "$1[\"wrap\"] = $2;"-        ghcjs_dom_html_text_area_element_set_wrap ::-        JSRef HTMLTextAreaElement -> JSString -> IO ()- -htmlTextAreaElementSetWrap ::-                           (IsHTMLTextAreaElement self, ToJSString val) =>-                             self -> val -> IO ()-htmlTextAreaElementSetWrap self val-  = ghcjs_dom_html_text_area_element_set_wrap-      (unHTMLTextAreaElement (toHTMLTextAreaElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"wrap\"]"-        ghcjs_dom_html_text_area_element_get_wrap ::-        JSRef HTMLTextAreaElement -> IO JSString- -htmlTextAreaElementGetWrap ::-                           (IsHTMLTextAreaElement self, FromJSString result) =>-                             self -> IO result-htmlTextAreaElementGetWrap self-  = fromJSString <$>-      (ghcjs_dom_html_text_area_element_get_wrap-         (unHTMLTextAreaElement (toHTMLTextAreaElement self)))- -foreign import javascript unsafe "$1[\"defaultValue\"] = $2;"-        ghcjs_dom_html_text_area_element_set_default_value ::-        JSRef HTMLTextAreaElement -> JSString -> IO ()- -htmlTextAreaElementSetDefaultValue ::-                                   (IsHTMLTextAreaElement self, ToJSString val) =>-                                     self -> val -> IO ()-htmlTextAreaElementSetDefaultValue self val-  = ghcjs_dom_html_text_area_element_set_default_value-      (unHTMLTextAreaElement (toHTMLTextAreaElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"defaultValue\"]"-        ghcjs_dom_html_text_area_element_get_default_value ::-        JSRef HTMLTextAreaElement -> IO JSString- -htmlTextAreaElementGetDefaultValue ::-                                   (IsHTMLTextAreaElement self, FromJSString result) =>-                                     self -> IO result-htmlTextAreaElementGetDefaultValue self-  = fromJSString <$>-      (ghcjs_dom_html_text_area_element_get_default_value-         (unHTMLTextAreaElement (toHTMLTextAreaElement self)))- -foreign import javascript unsafe "$1[\"value\"] = $2;"-        ghcjs_dom_html_text_area_element_set_value ::-        JSRef HTMLTextAreaElement -> JSString -> IO ()- -htmlTextAreaElementSetValue ::-                            (IsHTMLTextAreaElement self, ToJSString val) =>-                              self -> val -> IO ()-htmlTextAreaElementSetValue self val-  = ghcjs_dom_html_text_area_element_set_value-      (unHTMLTextAreaElement (toHTMLTextAreaElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"value\"]"-        ghcjs_dom_html_text_area_element_get_value ::-        JSRef HTMLTextAreaElement -> IO JSString- -htmlTextAreaElementGetValue ::-                            (IsHTMLTextAreaElement self, FromJSString result) =>-                              self -> IO result-htmlTextAreaElementGetValue self-  = fromJSString <$>-      (ghcjs_dom_html_text_area_element_get_value-         (unHTMLTextAreaElement (toHTMLTextAreaElement self)))- -foreign import javascript unsafe "$1[\"textLength\"]"-        ghcjs_dom_html_text_area_element_get_text_length ::-        JSRef HTMLTextAreaElement -> IO Word- -htmlTextAreaElementGetTextLength ::-                                 (IsHTMLTextAreaElement self) => self -> IO Word-htmlTextAreaElementGetTextLength self-  = ghcjs_dom_html_text_area_element_get_text_length-      (unHTMLTextAreaElement (toHTMLTextAreaElement self))- -foreign import javascript unsafe "($1[\"willValidate\"] ? 1 : 0)"-        ghcjs_dom_html_text_area_element_get_will_validate ::-        JSRef HTMLTextAreaElement -> IO Bool- -htmlTextAreaElementGetWillValidate ::-                                   (IsHTMLTextAreaElement self) => self -> IO Bool-htmlTextAreaElementGetWillValidate self-  = ghcjs_dom_html_text_area_element_get_will_validate-      (unHTMLTextAreaElement (toHTMLTextAreaElement self))- -foreign import javascript unsafe "$1[\"validity\"]"-        ghcjs_dom_html_text_area_element_get_validity ::-        JSRef HTMLTextAreaElement -> IO (JSRef ValidityState)- -htmlTextAreaElementGetValidity ::-                               (IsHTMLTextAreaElement self) => self -> IO (Maybe ValidityState)-htmlTextAreaElementGetValidity self-  = fmap ValidityState . maybeJSNull <$>-      (ghcjs_dom_html_text_area_element_get_validity-         (unHTMLTextAreaElement (toHTMLTextAreaElement self)))- -foreign import javascript unsafe "$1[\"validationMessage\"]"-        ghcjs_dom_html_text_area_element_get_validation_message ::-        JSRef HTMLTextAreaElement -> IO JSString- -htmlTextAreaElementGetValidationMessage ::-                                        (IsHTMLTextAreaElement self, FromJSString result) =>-                                          self -> IO result-htmlTextAreaElementGetValidationMessage self-  = fromJSString <$>-      (ghcjs_dom_html_text_area_element_get_validation_message-         (unHTMLTextAreaElement (toHTMLTextAreaElement self)))- -foreign import javascript unsafe "$1[\"labels\"]"-        ghcjs_dom_html_text_area_element_get_labels ::-        JSRef HTMLTextAreaElement -> IO (JSRef NodeList)- -htmlTextAreaElementGetLabels ::-                             (IsHTMLTextAreaElement self) => self -> IO (Maybe NodeList)-htmlTextAreaElementGetLabels self-  = fmap NodeList . maybeJSNull <$>-      (ghcjs_dom_html_text_area_element_get_labels-         (unHTMLTextAreaElement (toHTMLTextAreaElement self)))- -foreign import javascript unsafe "$1[\"selectionStart\"] = $2;"-        ghcjs_dom_html_text_area_element_set_selection_start ::-        JSRef HTMLTextAreaElement -> Int -> IO ()- -htmlTextAreaElementSetSelectionStart ::-                                     (IsHTMLTextAreaElement self) => self -> Int -> IO ()-htmlTextAreaElementSetSelectionStart self val-  = ghcjs_dom_html_text_area_element_set_selection_start-      (unHTMLTextAreaElement (toHTMLTextAreaElement self))-      val- -foreign import javascript unsafe "$1[\"selectionStart\"]"-        ghcjs_dom_html_text_area_element_get_selection_start ::-        JSRef HTMLTextAreaElement -> IO Int- -htmlTextAreaElementGetSelectionStart ::-                                     (IsHTMLTextAreaElement self) => self -> IO Int-htmlTextAreaElementGetSelectionStart self-  = ghcjs_dom_html_text_area_element_get_selection_start-      (unHTMLTextAreaElement (toHTMLTextAreaElement self))- -foreign import javascript unsafe "$1[\"selectionEnd\"] = $2;"-        ghcjs_dom_html_text_area_element_set_selection_end ::-        JSRef HTMLTextAreaElement -> Int -> IO ()- -htmlTextAreaElementSetSelectionEnd ::-                                   (IsHTMLTextAreaElement self) => self -> Int -> IO ()-htmlTextAreaElementSetSelectionEnd self val-  = ghcjs_dom_html_text_area_element_set_selection_end-      (unHTMLTextAreaElement (toHTMLTextAreaElement self))-      val- -foreign import javascript unsafe "$1[\"selectionEnd\"]"-        ghcjs_dom_html_text_area_element_get_selection_end ::-        JSRef HTMLTextAreaElement -> IO Int- -htmlTextAreaElementGetSelectionEnd ::-                                   (IsHTMLTextAreaElement self) => self -> IO Int-htmlTextAreaElementGetSelectionEnd self-  = ghcjs_dom_html_text_area_element_get_selection_end-      (unHTMLTextAreaElement (toHTMLTextAreaElement self))- -foreign import javascript unsafe "$1[\"selectionDirection\"] = $2;"-        ghcjs_dom_html_text_area_element_set_selection_direction ::-        JSRef HTMLTextAreaElement -> JSString -> IO ()- -htmlTextAreaElementSetSelectionDirection ::-                                         (IsHTMLTextAreaElement self, ToJSString val) =>-                                           self -> val -> IO ()-htmlTextAreaElementSetSelectionDirection self val-  = ghcjs_dom_html_text_area_element_set_selection_direction-      (unHTMLTextAreaElement (toHTMLTextAreaElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"selectionDirection\"]"-        ghcjs_dom_html_text_area_element_get_selection_direction ::-        JSRef HTMLTextAreaElement -> IO JSString- -htmlTextAreaElementGetSelectionDirection ::-                                         (IsHTMLTextAreaElement self, FromJSString result) =>-                                           self -> IO result-htmlTextAreaElementGetSelectionDirection self-  = fromJSString <$>-      (ghcjs_dom_html_text_area_element_get_selection_direction-         (unHTMLTextAreaElement (toHTMLTextAreaElement self)))- -foreign import javascript unsafe "$1[\"autocorrect\"] = $2;"-        ghcjs_dom_html_text_area_element_set_autocorrect ::-        JSRef HTMLTextAreaElement -> Bool -> IO ()- -htmlTextAreaElementSetAutocorrect ::-                                  (IsHTMLTextAreaElement self) => self -> Bool -> IO ()-htmlTextAreaElementSetAutocorrect self val-  = ghcjs_dom_html_text_area_element_set_autocorrect-      (unHTMLTextAreaElement (toHTMLTextAreaElement self))-      val- -foreign import javascript unsafe "($1[\"autocorrect\"] ? 1 : 0)"-        ghcjs_dom_html_text_area_element_get_autocorrect ::-        JSRef HTMLTextAreaElement -> IO Bool- -htmlTextAreaElementGetAutocorrect ::-                                  (IsHTMLTextAreaElement self) => self -> IO Bool-htmlTextAreaElementGetAutocorrect self-  = ghcjs_dom_html_text_area_element_get_autocorrect-      (unHTMLTextAreaElement (toHTMLTextAreaElement self))- -foreign import javascript unsafe "$1[\"autocapitalize\"] = $2;"-        ghcjs_dom_html_text_area_element_set_autocapitalize ::-        JSRef HTMLTextAreaElement -> JSString -> IO ()- -htmlTextAreaElementSetAutocapitalize ::-                                     (IsHTMLTextAreaElement self, ToJSString val) =>-                                       self -> val -> IO ()-htmlTextAreaElementSetAutocapitalize self val-  = ghcjs_dom_html_text_area_element_set_autocapitalize-      (unHTMLTextAreaElement (toHTMLTextAreaElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"autocapitalize\"]"-        ghcjs_dom_html_text_area_element_get_autocapitalize ::-        JSRef HTMLTextAreaElement -> IO JSString- -htmlTextAreaElementGetAutocapitalize ::-                                     (IsHTMLTextAreaElement self, FromJSString result) =>-                                       self -> IO result-htmlTextAreaElementGetAutocapitalize self-  = fromJSString <$>-      (ghcjs_dom_html_text_area_element_get_autocapitalize-         (unHTMLTextAreaElement (toHTMLTextAreaElement self)))+  module GHCJS.DOM.JSFFI.Generated.HTMLTextAreaElement #else-module GHCJS.DOM.HTMLTextAreaElement (   module Graphics.UI.Gtk.WebKit.DOM.HTMLTextAreaElement+#endif   ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.HTMLTextAreaElement+#else import Graphics.UI.Gtk.WebKit.DOM.HTMLTextAreaElement #endif
src/GHCJS/DOM/HTMLTitleElement.hs view
@@ -1,46 +1,13 @@ {-# LANGUAGE CPP #-}+module GHCJS.DOM.HTMLTitleElement ( #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.HTMLTitleElement-       (ghcjs_dom_html_title_element_set_text, htmlTitleElementSetText,-        ghcjs_dom_html_title_element_get_text, htmlTitleElementGetText,-        HTMLTitleElement, IsHTMLTitleElement, castToHTMLTitleElement,-        gTypeHTMLTitleElement, toHTMLTitleElement)-       where-import GHCJS.Types-import GHCJS.Foreign-import GHCJS.Marshal-import Data.Int-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-- -foreign import javascript unsafe "$1[\"text\"] = $2;"-        ghcjs_dom_html_title_element_set_text ::-        JSRef HTMLTitleElement -> JSString -> IO ()- -htmlTitleElementSetText ::-                        (IsHTMLTitleElement self, ToJSString val) => self -> val -> IO ()-htmlTitleElementSetText self val-  = ghcjs_dom_html_title_element_set_text-      (unHTMLTitleElement (toHTMLTitleElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"text\"]"-        ghcjs_dom_html_title_element_get_text ::-        JSRef HTMLTitleElement -> IO JSString- -htmlTitleElementGetText ::-                        (IsHTMLTitleElement self, FromJSString result) => self -> IO result-htmlTitleElementGetText self-  = fromJSString <$>-      (ghcjs_dom_html_title_element_get_text-         (unHTMLTitleElement (toHTMLTitleElement self)))+  module GHCJS.DOM.JSFFI.Generated.HTMLTitleElement #else-module GHCJS.DOM.HTMLTitleElement (   module Graphics.UI.Gtk.WebKit.DOM.HTMLTitleElement+#endif   ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.HTMLTitleElement+#else import Graphics.UI.Gtk.WebKit.DOM.HTMLTitleElement #endif
+ src/GHCJS/DOM/HTMLTrackElement.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.HTMLTrackElement (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.HTMLTrackElement+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.HTMLTrackElement+#else+#endif
src/GHCJS/DOM/HTMLUListElement.hs view
@@ -1,46 +1,13 @@ {-# LANGUAGE CPP #-}+module GHCJS.DOM.HTMLUListElement ( #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.HTMLUListElement-       (ghcjs_dom_htmlu_list_element_set_compact,-        htmluListElementSetCompact,-        ghcjs_dom_htmlu_list_element_get_compact,-        htmluListElementGetCompact, HTMLUListElement, IsHTMLUListElement,-        castToHTMLUListElement, gTypeHTMLUListElement, toHTMLUListElement)-       where-import GHCJS.Types-import GHCJS.Foreign-import GHCJS.Marshal-import Data.Int-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-- -foreign import javascript unsafe "$1[\"compact\"] = $2;"-        ghcjs_dom_htmlu_list_element_set_compact ::-        JSRef HTMLUListElement -> Bool -> IO ()- -htmluListElementSetCompact ::-                           (IsHTMLUListElement self) => self -> Bool -> IO ()-htmluListElementSetCompact self val-  = ghcjs_dom_htmlu_list_element_set_compact-      (unHTMLUListElement (toHTMLUListElement self))-      val- -foreign import javascript unsafe "($1[\"compact\"] ? 1 : 0)"-        ghcjs_dom_htmlu_list_element_get_compact ::-        JSRef HTMLUListElement -> IO Bool- -htmluListElementGetCompact ::-                           (IsHTMLUListElement self) => self -> IO Bool-htmluListElementGetCompact self-  = ghcjs_dom_htmlu_list_element_get_compact-      (unHTMLUListElement (toHTMLUListElement self))+  module GHCJS.DOM.JSFFI.Generated.HTMLUListElement #else-module GHCJS.DOM.HTMLUListElement (   module Graphics.UI.Gtk.WebKit.DOM.HTMLUListElement+#endif   ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.HTMLUListElement+#else import Graphics.UI.Gtk.WebKit.DOM.HTMLUListElement #endif
src/GHCJS/DOM/HTMLVideoElement.hs view
@@ -1,242 +1,13 @@ {-# LANGUAGE CPP #-}+module GHCJS.DOM.HTMLVideoElement ( #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.HTMLVideoElement-       (ghcjs_dom_html_video_element_webkit_enter_fullscreen,-        htmlVideoElementWebkitEnterFullscreen,-        ghcjs_dom_html_video_element_webkit_exit_fullscreen,-        htmlVideoElementWebkitExitFullscreen,-        ghcjs_dom_html_video_element_webkit_enter_full_screen,-        htmlVideoElementWebkitEnterFullScreen,-        ghcjs_dom_html_video_element_webkit_exit_full_screen,-        htmlVideoElementWebkitExitFullScreen,-        ghcjs_dom_html_video_element_set_width, htmlVideoElementSetWidth,-        ghcjs_dom_html_video_element_get_width, htmlVideoElementGetWidth,-        ghcjs_dom_html_video_element_set_height, htmlVideoElementSetHeight,-        ghcjs_dom_html_video_element_get_height, htmlVideoElementGetHeight,-        ghcjs_dom_html_video_element_get_video_width,-        htmlVideoElementGetVideoWidth,-        ghcjs_dom_html_video_element_get_video_height,-        htmlVideoElementGetVideoHeight,-        ghcjs_dom_html_video_element_set_poster, htmlVideoElementSetPoster,-        ghcjs_dom_html_video_element_get_poster, htmlVideoElementGetPoster,-        ghcjs_dom_html_video_element_get_webkit_supports_fullscreen,-        htmlVideoElementGetWebkitSupportsFullscreen,-        ghcjs_dom_html_video_element_get_webkit_displaying_fullscreen,-        htmlVideoElementGetWebkitDisplayingFullscreen,-        ghcjs_dom_html_video_element_set_webkit_wireless_video_playback_disabled,-        htmlVideoElementSetWebkitWirelessVideoPlaybackDisabled,-        ghcjs_dom_html_video_element_get_webkit_wireless_video_playback_disabled,-        htmlVideoElementGetWebkitWirelessVideoPlaybackDisabled,-        ghcjs_dom_html_video_element_get_webkit_decoded_frame_count,-        htmlVideoElementGetWebkitDecodedFrameCount,-        ghcjs_dom_html_video_element_get_webkit_dropped_frame_count,-        htmlVideoElementGetWebkitDroppedFrameCount, HTMLVideoElement,-        IsHTMLVideoElement, castToHTMLVideoElement, gTypeHTMLVideoElement,-        toHTMLVideoElement)-       where-import GHCJS.Types-import GHCJS.Foreign-import GHCJS.Marshal-import Data.Int-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-- -foreign import javascript unsafe "$1[\"webkitEnterFullscreen\"]()"-        ghcjs_dom_html_video_element_webkit_enter_fullscreen ::-        JSRef HTMLVideoElement -> IO ()- -htmlVideoElementWebkitEnterFullscreen ::-                                      (IsHTMLVideoElement self) => self -> IO ()-htmlVideoElementWebkitEnterFullscreen self-  = ghcjs_dom_html_video_element_webkit_enter_fullscreen-      (unHTMLVideoElement (toHTMLVideoElement self))- -foreign import javascript unsafe "$1[\"webkitExitFullscreen\"]()"-        ghcjs_dom_html_video_element_webkit_exit_fullscreen ::-        JSRef HTMLVideoElement -> IO ()- -htmlVideoElementWebkitExitFullscreen ::-                                     (IsHTMLVideoElement self) => self -> IO ()-htmlVideoElementWebkitExitFullscreen self-  = ghcjs_dom_html_video_element_webkit_exit_fullscreen-      (unHTMLVideoElement (toHTMLVideoElement self))- -foreign import javascript unsafe "$1[\"webkitEnterFullScreen\"]()"-        ghcjs_dom_html_video_element_webkit_enter_full_screen ::-        JSRef HTMLVideoElement -> IO ()- -htmlVideoElementWebkitEnterFullScreen ::-                                      (IsHTMLVideoElement self) => self -> IO ()-htmlVideoElementWebkitEnterFullScreen self-  = ghcjs_dom_html_video_element_webkit_enter_full_screen-      (unHTMLVideoElement (toHTMLVideoElement self))- -foreign import javascript unsafe "$1[\"webkitExitFullScreen\"]()"-        ghcjs_dom_html_video_element_webkit_exit_full_screen ::-        JSRef HTMLVideoElement -> IO ()- -htmlVideoElementWebkitExitFullScreen ::-                                     (IsHTMLVideoElement self) => self -> IO ()-htmlVideoElementWebkitExitFullScreen self-  = ghcjs_dom_html_video_element_webkit_exit_full_screen-      (unHTMLVideoElement (toHTMLVideoElement self))- -foreign import javascript unsafe "$1[\"width\"] = $2;"-        ghcjs_dom_html_video_element_set_width ::-        JSRef HTMLVideoElement -> Word -> IO ()- -htmlVideoElementSetWidth ::-                         (IsHTMLVideoElement self) => self -> Word -> IO ()-htmlVideoElementSetWidth self val-  = ghcjs_dom_html_video_element_set_width-      (unHTMLVideoElement (toHTMLVideoElement self))-      val- -foreign import javascript unsafe "$1[\"width\"]"-        ghcjs_dom_html_video_element_get_width ::-        JSRef HTMLVideoElement -> IO Word- -htmlVideoElementGetWidth ::-                         (IsHTMLVideoElement self) => self -> IO Word-htmlVideoElementGetWidth self-  = ghcjs_dom_html_video_element_get_width-      (unHTMLVideoElement (toHTMLVideoElement self))- -foreign import javascript unsafe "$1[\"height\"] = $2;"-        ghcjs_dom_html_video_element_set_height ::-        JSRef HTMLVideoElement -> Word -> IO ()- -htmlVideoElementSetHeight ::-                          (IsHTMLVideoElement self) => self -> Word -> IO ()-htmlVideoElementSetHeight self val-  = ghcjs_dom_html_video_element_set_height-      (unHTMLVideoElement (toHTMLVideoElement self))-      val- -foreign import javascript unsafe "$1[\"height\"]"-        ghcjs_dom_html_video_element_get_height ::-        JSRef HTMLVideoElement -> IO Word- -htmlVideoElementGetHeight ::-                          (IsHTMLVideoElement self) => self -> IO Word-htmlVideoElementGetHeight self-  = ghcjs_dom_html_video_element_get_height-      (unHTMLVideoElement (toHTMLVideoElement self))- -foreign import javascript unsafe "$1[\"videoWidth\"]"-        ghcjs_dom_html_video_element_get_video_width ::-        JSRef HTMLVideoElement -> IO Word- -htmlVideoElementGetVideoWidth ::-                              (IsHTMLVideoElement self) => self -> IO Word-htmlVideoElementGetVideoWidth self-  = ghcjs_dom_html_video_element_get_video_width-      (unHTMLVideoElement (toHTMLVideoElement self))- -foreign import javascript unsafe "$1[\"videoHeight\"]"-        ghcjs_dom_html_video_element_get_video_height ::-        JSRef HTMLVideoElement -> IO Word- -htmlVideoElementGetVideoHeight ::-                               (IsHTMLVideoElement self) => self -> IO Word-htmlVideoElementGetVideoHeight self-  = ghcjs_dom_html_video_element_get_video_height-      (unHTMLVideoElement (toHTMLVideoElement self))- -foreign import javascript unsafe "$1[\"poster\"] = $2;"-        ghcjs_dom_html_video_element_set_poster ::-        JSRef HTMLVideoElement -> JSString -> IO ()- -htmlVideoElementSetPoster ::-                          (IsHTMLVideoElement self, ToJSString val) => self -> val -> IO ()-htmlVideoElementSetPoster self val-  = ghcjs_dom_html_video_element_set_poster-      (unHTMLVideoElement (toHTMLVideoElement self))-      (toJSString val)- -foreign import javascript unsafe "$1[\"poster\"]"-        ghcjs_dom_html_video_element_get_poster ::-        JSRef HTMLVideoElement -> IO JSString- -htmlVideoElementGetPoster ::-                          (IsHTMLVideoElement self, FromJSString result) => self -> IO result-htmlVideoElementGetPoster self-  = fromJSString <$>-      (ghcjs_dom_html_video_element_get_poster-         (unHTMLVideoElement (toHTMLVideoElement self)))- -foreign import javascript unsafe-        "($1[\"webkitSupportsFullscreen\"] ? 1 : 0)"-        ghcjs_dom_html_video_element_get_webkit_supports_fullscreen ::-        JSRef HTMLVideoElement -> IO Bool- -htmlVideoElementGetWebkitSupportsFullscreen ::-                                            (IsHTMLVideoElement self) => self -> IO Bool-htmlVideoElementGetWebkitSupportsFullscreen self-  = ghcjs_dom_html_video_element_get_webkit_supports_fullscreen-      (unHTMLVideoElement (toHTMLVideoElement self))- -foreign import javascript unsafe-        "($1[\"webkitDisplayingFullscreen\"] ? 1 : 0)"-        ghcjs_dom_html_video_element_get_webkit_displaying_fullscreen ::-        JSRef HTMLVideoElement -> IO Bool- -htmlVideoElementGetWebkitDisplayingFullscreen ::-                                              (IsHTMLVideoElement self) => self -> IO Bool-htmlVideoElementGetWebkitDisplayingFullscreen self-  = ghcjs_dom_html_video_element_get_webkit_displaying_fullscreen-      (unHTMLVideoElement (toHTMLVideoElement self))- -foreign import javascript unsafe-        "$1[\"webkitWirelessVideoPlaybackDisabled\"] = $2;"-        ghcjs_dom_html_video_element_set_webkit_wireless_video_playback_disabled-        :: JSRef HTMLVideoElement -> Bool -> IO ()- -htmlVideoElementSetWebkitWirelessVideoPlaybackDisabled ::-                                                       (IsHTMLVideoElement self) =>-                                                         self -> Bool -> IO ()-htmlVideoElementSetWebkitWirelessVideoPlaybackDisabled self val-  = ghcjs_dom_html_video_element_set_webkit_wireless_video_playback_disabled-      (unHTMLVideoElement (toHTMLVideoElement self))-      val- -foreign import javascript unsafe-        "($1[\"webkitWirelessVideoPlaybackDisabled\"] ? 1 : 0)"-        ghcjs_dom_html_video_element_get_webkit_wireless_video_playback_disabled-        :: JSRef HTMLVideoElement -> IO Bool- -htmlVideoElementGetWebkitWirelessVideoPlaybackDisabled ::-                                                       (IsHTMLVideoElement self) => self -> IO Bool-htmlVideoElementGetWebkitWirelessVideoPlaybackDisabled self-  = ghcjs_dom_html_video_element_get_webkit_wireless_video_playback_disabled-      (unHTMLVideoElement (toHTMLVideoElement self))- -foreign import javascript unsafe "$1[\"webkitDecodedFrameCount\"]"-        ghcjs_dom_html_video_element_get_webkit_decoded_frame_count ::-        JSRef HTMLVideoElement -> IO Word- -htmlVideoElementGetWebkitDecodedFrameCount ::-                                           (IsHTMLVideoElement self) => self -> IO Word-htmlVideoElementGetWebkitDecodedFrameCount self-  = ghcjs_dom_html_video_element_get_webkit_decoded_frame_count-      (unHTMLVideoElement (toHTMLVideoElement self))- -foreign import javascript unsafe "$1[\"webkitDroppedFrameCount\"]"-        ghcjs_dom_html_video_element_get_webkit_dropped_frame_count ::-        JSRef HTMLVideoElement -> IO Word- -htmlVideoElementGetWebkitDroppedFrameCount ::-                                           (IsHTMLVideoElement self) => self -> IO Word-htmlVideoElementGetWebkitDroppedFrameCount self-  = ghcjs_dom_html_video_element_get_webkit_dropped_frame_count-      (unHTMLVideoElement (toHTMLVideoElement self))+  module GHCJS.DOM.JSFFI.Generated.HTMLVideoElement #else-module GHCJS.DOM.HTMLVideoElement (   module Graphics.UI.Gtk.WebKit.DOM.HTMLVideoElement+#endif   ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.HTMLVideoElement+#else import Graphics.UI.Gtk.WebKit.DOM.HTMLVideoElement #endif
+ src/GHCJS/DOM/HashChangeEvent.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.HashChangeEvent (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.HashChangeEvent+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.HashChangeEvent+#else+#endif
src/GHCJS/DOM/History.hs view
@@ -1,29 +1,13 @@ {-# LANGUAGE CPP #-}+module GHCJS.DOM.History ( #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.History-       (ghcjs_dom_history_get_length, historyGetLength, History,-        IsHistory, castToHistory, gTypeHistory, toHistory)-       where-import GHCJS.Types-import GHCJS.Foreign-import GHCJS.Marshal-import Data.Int-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-- -foreign import javascript unsafe "$1[\"length\"]"-        ghcjs_dom_history_get_length :: JSRef History -> IO Word- -historyGetLength :: (IsHistory self) => self -> IO Word-historyGetLength self-  = ghcjs_dom_history_get_length (unHistory (toHistory self))+  module GHCJS.DOM.JSFFI.Generated.History #else-module GHCJS.DOM.History (   module Graphics.UI.Gtk.WebKit.DOM.History+#endif   ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.History+#else import Graphics.UI.Gtk.WebKit.DOM.History #endif
+ src/GHCJS/DOM/IDBCursor.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.IDBCursor (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.IDBCursor+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.IDBCursor+#else+#endif
+ src/GHCJS/DOM/IDBCursorWithValue.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.IDBCursorWithValue (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.IDBCursorWithValue+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.IDBCursorWithValue+#else+#endif
+ src/GHCJS/DOM/IDBDatabase.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.IDBDatabase (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.IDBDatabase+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.IDBDatabase+#else+#endif
+ src/GHCJS/DOM/IDBFactory.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.IDBFactory (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.IDBFactory+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.IDBFactory+#else+#endif
+ src/GHCJS/DOM/IDBIndex.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.IDBIndex (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.IDBIndex+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.IDBIndex+#else+#endif
+ src/GHCJS/DOM/IDBKeyRange.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.IDBKeyRange (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.IDBKeyRange+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.IDBKeyRange+#else+#endif
+ src/GHCJS/DOM/IDBObjectStore.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.IDBObjectStore (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.IDBObjectStore+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.IDBObjectStore+#else+#endif
+ src/GHCJS/DOM/IDBOpenDBRequest.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.IDBOpenDBRequest (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.IDBOpenDBRequest+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.IDBOpenDBRequest+#else+#endif
+ src/GHCJS/DOM/IDBRequest.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.IDBRequest (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.IDBRequest+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.IDBRequest+#else+#endif
+ src/GHCJS/DOM/IDBTransaction.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.IDBTransaction (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.IDBTransaction+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.IDBTransaction+#else+#endif
+ src/GHCJS/DOM/IDBVersionChangeEvent.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.IDBVersionChangeEvent (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.IDBVersionChangeEvent+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.IDBVersionChangeEvent+#else+#endif
+ src/GHCJS/DOM/ImageData.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.ImageData (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.ImageData+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.ImageData+#else+#endif
+ src/GHCJS/DOM/InspectorFrontendHost.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.InspectorFrontendHost (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.InspectorFrontendHost+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.InspectorFrontendHost+#else+#endif
+ src/GHCJS/DOM/InternalSettings.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.InternalSettings (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.InternalSettings+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.InternalSettings+#else+#endif
+ src/GHCJS/DOM/Internals.hs view
@@ -0,0 +1,11 @@+{-# LANGUAGE CPP #-}+module GHCJS.DOM.Internals (+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+  module GHCJS.DOM.JSFFI.Generated.Internals+#else+#endif+  ) where+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.DOM.JSFFI.Generated.Internals+#else+#endif
+ src/GHCJS/DOM/JSFFI/AudioContext.hs view
@@ -0,0 +1,35 @@+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.AudioContext (+    module Generated+  , DecodeAudioError(..)+  , js_decodeAudioData+  , decodeAudioData+) where++import Control.Exception (Exception(..), throwIO)+import Control.Monad.IO.Class (MonadIO(..))++import GHCJS.Types (JSRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Marshal (fromJSRef, fromJSRefUnchecked)+import GHCJS.Foreign.Callback (releaseCallback)+import GHCJS.DOM.Types++import GHCJS.DOM.JSFFI.Generated.AudioContext as Generated hiding (js_decodeAudioData, decodeAudioData)++data DecodeAudioError = DecodeAudioError deriving (Show, Eq)++instance Exception DecodeAudioError++foreign import javascript interruptible+        "$1[\"decodeAudioData\"]($2, $c, function() { $c(null); });" js_decodeAudioData ::+        JSRef AudioContext -> JSRef ArrayBuffer -> IO (JSRef AudioBuffer)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.decodeAudioData Mozilla AudioContext.decodeAudioData documentation>+decodeAudioData :: (MonadIO m, IsAudioContext self, IsArrayBuffer audioData) =>+                   self -> audioData -> m AudioBuffer+decodeAudioData self audioData = liftIO $ js_decodeAudioData+        (unAudioContext (toAudioContext self))+        (unArrayBuffer  (toArrayBuffer audioData))+            >>= fromJSRef >>= maybe (throwIO DecodeAudioError) return+
+ src/GHCJS/DOM/JSFFI/DOMError.hs view
@@ -0,0 +1,20 @@+{-# LANGUAGE RecordWildCards #-}+module GHCJS.DOM.JSFFI.DOMError (+    module Generated+  , DOMErrorException(..)+  , throwDOMErrorException+) where++import Control.Exception (Exception, throwIO)+import Control.Monad.IO.Class (MonadIO(..))++import GHCJS.DOM.JSFFI.Generated.DOMError as Generated++data DOMErrorException = DOMErrorException { domErrorName :: String } deriving (Show, Eq)++instance Exception DOMErrorException++throwDOMErrorException :: MonadIO m => DOMError -> m a+throwDOMErrorException error = do+    domErrorName <- getName error+    liftIO $ throwIO DOMErrorException{..}
+ src/GHCJS/DOM/JSFFI/Database.hs view
@@ -0,0 +1,73 @@+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Database (+    module Generated+  , js_changeVersion+  , changeVersion'+  , changeVersion+  , js_transaction+  , transaction'+  , transaction+  , js_readTransaction+  , readTransaction'+  , readTransaction+) where++import Data.Maybe (fromJust, maybe)++import Control.Monad.IO.Class (MonadIO(..))+import Control.Exception (Exception, bracket)++import GHCJS.Types (JSRef, JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (OnBlocked(..))+import GHCJS.Marshal (fromJSRef)+import GHCJS.Marshal.Pure (pToJSRef)+import GHCJS.Foreign.Callback (releaseCallback)+import GHCJS.DOM.Types++import GHCJS.DOM.JSFFI.SQLError (throwSQLException)+import GHCJS.DOM.JSFFI.Generated.SQLTransactionCallback (newSQLTransactionCallbackSync)+import GHCJS.DOM.JSFFI.Generated.Database as Generated hiding (js_changeVersion, changeVersion, js_transaction, transaction, js_readTransaction, readTransaction)++withSQLTransactionCallback :: (SQLTransaction -> IO ()) -> (SQLTransactionCallback -> IO a) -> IO a+withSQLTransactionCallback f = bracket (newSQLTransactionCallbackSync (f . fromJust)) releaseCallback++foreign import javascript interruptible+        "$1[\"changeVersion\"]($2, $3, $4, $c, function() { $c(null); });"+        js_changeVersion :: JSRef Database -> JSString -> JSString -> JSRef SQLTransactionCallback -> IO (JSRef SQLError)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Database.changeVersion Mozilla Database.changeVersion documentation>+changeVersion' :: (MonadIO m, ToJSString oldVersion, ToJSString newVersion) =>+                  Database -> oldVersion -> newVersion -> Maybe (SQLTransaction -> IO ()) -> m (Maybe SQLError)+changeVersion' self oldVersion newVersion Nothing = liftIO $+    js_changeVersion (unDatabase self) (toJSString oldVersion) (toJSString newVersion) jsNull >>= fromJSRef+changeVersion' self oldVersion newVersion (Just callback) = liftIO $ withSQLTransactionCallback callback+    (js_changeVersion (unDatabase self) (toJSString oldVersion) (toJSString newVersion) . pToJSRef) >>= fromJSRef++changeVersion :: (MonadIO m, ToJSString oldVersion, ToJSString newVersion) =>+                 Database -> oldVersion -> newVersion -> Maybe (SQLTransaction -> IO ()) -> m ()+changeVersion self oldVersion newVersion callback =+    changeVersion' self oldVersion newVersion callback >>= maybe (return ()) throwSQLException++foreign import javascript interruptible "$1[\"transaction\"]($2, $c, function() { $c(null); });"+        js_transaction :: JSRef Database -> JSRef SQLTransactionCallback -> IO (JSRef SQLError)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Database.transaction Mozilla Database.transaction documentation>+transaction' :: (MonadIO m) => Database -> (SQLTransaction -> IO ()) -> m (Maybe SQLError)+transaction' self callback = liftIO $ withSQLTransactionCallback callback+    (js_transaction (unDatabase self) . pToJSRef) >>= fromJSRef++transaction :: (MonadIO m) => Database -> (SQLTransaction -> IO ()) -> m ()+transaction self callback = transaction' self callback >>= maybe (return ()) throwSQLException++foreign import javascript interruptible+        "$1[\"readTransaction\"]($2, $c, function() { $c(null); });"+        js_readTransaction :: JSRef Database -> JSRef SQLTransactionCallback -> IO (JSRef SQLError)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Database.readTransaction Mozilla Database.readTransaction documentation>+readTransaction' :: (MonadIO m) => Database -> (SQLTransaction -> IO ()) -> m (Maybe SQLError)+readTransaction' self callback = liftIO $+      withSQLTransactionCallback callback (js_readTransaction (unDatabase self) . pToJSRef) >>= fromJSRef++readTransaction :: (MonadIO m) => Database -> (SQLTransaction -> IO ()) -> m ()+readTransaction self callback = readTransaction' self callback >>= maybe (return ()) throwSQLException
+ src/GHCJS/DOM/JSFFI/Generated/ANGLEInstancedArrays.hs view
@@ -0,0 +1,70 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.ANGLEInstancedArrays+       (js_drawArraysInstancedANGLE, drawArraysInstancedANGLE,+        js_drawElementsInstancedANGLE, drawElementsInstancedANGLE,+        js_vertexAttribDivisorANGLE, vertexAttribDivisorANGLE,+        pattern VERTEX_ATTRIB_ARRAY_DIVISOR_ANGLE, ANGLEInstancedArrays,+        castToANGLEInstancedArrays, gTypeANGLEInstancedArrays)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe+        "$1[\"drawArraysInstancedANGLE\"]($2,\n$3, $4, $5)"+        js_drawArraysInstancedANGLE ::+        JSRef ANGLEInstancedArrays -> Word -> Int -> Int -> Int -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ANGLEInstancedArrays.drawArraysInstancedANGLE Mozilla ANGLEInstancedArrays.drawArraysInstancedANGLE documentation> +drawArraysInstancedANGLE ::+                         (MonadIO m) =>+                           ANGLEInstancedArrays -> Word -> Int -> Int -> Int -> m ()+drawArraysInstancedANGLE self mode first count primcount+  = liftIO+      (js_drawArraysInstancedANGLE (unANGLEInstancedArrays self) mode+         first+         count+         primcount)+ +foreign import javascript unsafe+        "$1[\"drawElementsInstancedANGLE\"]($2,\n$3, $4, $5, $6)"+        js_drawElementsInstancedANGLE ::+        JSRef ANGLEInstancedArrays ->+          Word -> Int -> Word -> Double -> Int -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ANGLEInstancedArrays.drawElementsInstancedANGLE Mozilla ANGLEInstancedArrays.drawElementsInstancedANGLE documentation> +drawElementsInstancedANGLE ::+                           (MonadIO m) =>+                             ANGLEInstancedArrays -> Word -> Int -> Word -> Int64 -> Int -> m ()+drawElementsInstancedANGLE self mode count type' offset primcount+  = liftIO+      (js_drawElementsInstancedANGLE (unANGLEInstancedArrays self) mode+         count+         type'+         (fromIntegral offset)+         primcount)+ +foreign import javascript unsafe+        "$1[\"vertexAttribDivisorANGLE\"]($2,\n$3)"+        js_vertexAttribDivisorANGLE ::+        JSRef ANGLEInstancedArrays -> Word -> Word -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ANGLEInstancedArrays.vertexAttribDivisorANGLE Mozilla ANGLEInstancedArrays.vertexAttribDivisorANGLE documentation> +vertexAttribDivisorANGLE ::+                         (MonadIO m) => ANGLEInstancedArrays -> Word -> Word -> m ()+vertexAttribDivisorANGLE self index divisor+  = liftIO+      (js_vertexAttribDivisorANGLE (unANGLEInstancedArrays self) index+         divisor)+pattern VERTEX_ATTRIB_ARRAY_DIVISOR_ANGLE = 35070
+ src/GHCJS/DOM/JSFFI/Generated/AbstractView.hs view
@@ -0,0 +1,36 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.AbstractView+       (js_getDocument, getDocument, js_getStyleMedia, getStyleMedia,+        AbstractView, castToAbstractView, gTypeAbstractView)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"document\"]" js_getDocument+        :: JSRef AbstractView -> IO (JSRef Document)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AbstractView.document Mozilla AbstractView.document documentation> +getDocument :: (MonadIO m) => AbstractView -> m (Maybe Document)+getDocument self+  = liftIO ((js_getDocument (unAbstractView self)) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"styleMedia\"]"+        js_getStyleMedia :: JSRef AbstractView -> IO (JSRef StyleMedia)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AbstractView.styleMedia Mozilla AbstractView.styleMedia documentation> +getStyleMedia ::+              (MonadIO m) => AbstractView -> m (Maybe StyleMedia)+getStyleMedia self+  = liftIO ((js_getStyleMedia (unAbstractView self)) >>= fromJSRef)
+ src/GHCJS/DOM/JSFFI/Generated/AbstractWorker.hs view
@@ -0,0 +1,22 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.AbstractWorker+       (error, AbstractWorker, castToAbstractWorker, gTypeAbstractWorker)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.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/GHCJS/DOM/JSFFI/Generated/AllAudioCapabilities.hs view
@@ -0,0 +1,42 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.AllAudioCapabilities+       (js_getSourceId, getSourceId, js_getVolume, getVolume,+        AllAudioCapabilities, castToAllAudioCapabilities,+        gTypeAllAudioCapabilities)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"sourceId\"]" js_getSourceId+        :: JSRef AllAudioCapabilities -> IO (JSRef [result])++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AllAudioCapabilities.sourceId Mozilla AllAudioCapabilities.sourceId documentation> +getSourceId ::+            (MonadIO m, FromJSString result) =>+              AllAudioCapabilities -> m [result]+getSourceId self+  = liftIO+      ((js_getSourceId (unAllAudioCapabilities self)) >>=+         fromJSRefUnchecked)+ +foreign import javascript unsafe "$1[\"volume\"]" js_getVolume ::+        JSRef AllAudioCapabilities -> IO (JSRef CapabilityRange)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AllAudioCapabilities.volume Mozilla AllAudioCapabilities.volume documentation> +getVolume ::+          (MonadIO m) => AllAudioCapabilities -> m (Maybe CapabilityRange)+getVolume self+  = liftIO+      ((js_getVolume (unAllAudioCapabilities self)) >>= fromJSRef)
+ src/GHCJS/DOM/JSFFI/Generated/AllVideoCapabilities.hs view
@@ -0,0 +1,102 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.AllVideoCapabilities+       (js_getSourceType, getSourceType, js_getSourceId, getSourceId,+        js_getWidth, getWidth, js_getHeight, getHeight, js_getFrameRate,+        getFrameRate, js_getAspectRatio, getAspectRatio, js_getFacingMode,+        getFacingMode, AllVideoCapabilities, castToAllVideoCapabilities,+        gTypeAllVideoCapabilities)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"sourceType\"]"+        js_getSourceType ::+        JSRef AllVideoCapabilities -> IO (JSRef [result])++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AllVideoCapabilities.sourceType Mozilla AllVideoCapabilities.sourceType documentation> +getSourceType ::+              (MonadIO m, FromJSString result) =>+                AllVideoCapabilities -> m [result]+getSourceType self+  = liftIO+      ((js_getSourceType (unAllVideoCapabilities self)) >>=+         fromJSRefUnchecked)+ +foreign import javascript unsafe "$1[\"sourceId\"]" js_getSourceId+        :: JSRef AllVideoCapabilities -> IO (JSRef [result])++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AllVideoCapabilities.sourceId Mozilla AllVideoCapabilities.sourceId documentation> +getSourceId ::+            (MonadIO m, FromJSString result) =>+              AllVideoCapabilities -> m [result]+getSourceId self+  = liftIO+      ((js_getSourceId (unAllVideoCapabilities self)) >>=+         fromJSRefUnchecked)+ +foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::+        JSRef AllVideoCapabilities -> IO (JSRef CapabilityRange)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AllVideoCapabilities.width Mozilla AllVideoCapabilities.width documentation> +getWidth ::+         (MonadIO m) => AllVideoCapabilities -> m (Maybe CapabilityRange)+getWidth self+  = liftIO+      ((js_getWidth (unAllVideoCapabilities self)) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"height\"]" js_getHeight ::+        JSRef AllVideoCapabilities -> IO (JSRef CapabilityRange)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AllVideoCapabilities.height Mozilla AllVideoCapabilities.height documentation> +getHeight ::+          (MonadIO m) => AllVideoCapabilities -> m (Maybe CapabilityRange)+getHeight self+  = liftIO+      ((js_getHeight (unAllVideoCapabilities self)) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"frameRate\"]"+        js_getFrameRate ::+        JSRef AllVideoCapabilities -> IO (JSRef CapabilityRange)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AllVideoCapabilities.frameRate Mozilla AllVideoCapabilities.frameRate documentation> +getFrameRate ::+             (MonadIO m) => AllVideoCapabilities -> m (Maybe CapabilityRange)+getFrameRate self+  = liftIO+      ((js_getFrameRate (unAllVideoCapabilities self)) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"aspectRatio\"]"+        js_getAspectRatio ::+        JSRef AllVideoCapabilities -> IO (JSRef CapabilityRange)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AllVideoCapabilities.aspectRatio Mozilla AllVideoCapabilities.aspectRatio documentation> +getAspectRatio ::+               (MonadIO m) => AllVideoCapabilities -> m (Maybe CapabilityRange)+getAspectRatio self+  = liftIO+      ((js_getAspectRatio (unAllVideoCapabilities self)) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"facingMode\"]"+        js_getFacingMode ::+        JSRef AllVideoCapabilities -> IO (JSRef [result])++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AllVideoCapabilities.facingMode Mozilla AllVideoCapabilities.facingMode documentation> +getFacingMode ::+              (MonadIO m, FromJSString result) =>+                AllVideoCapabilities -> m [result]+getFacingMode self+  = liftIO+      ((js_getFacingMode (unAllVideoCapabilities self)) >>=+         fromJSRefUnchecked)
+ src/GHCJS/DOM/JSFFI/Generated/AnalyserNode.hs view
@@ -0,0 +1,139 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.AnalyserNode+       (js_getFloatFrequencyData, getFloatFrequencyData,+        js_getByteFrequencyData, getByteFrequencyData,+        js_getByteTimeDomainData, getByteTimeDomainData, js_setFftSize,+        setFftSize, js_getFftSize, getFftSize, js_getFrequencyBinCount,+        getFrequencyBinCount, js_setMinDecibels, setMinDecibels,+        js_getMinDecibels, getMinDecibels, js_setMaxDecibels,+        setMaxDecibels, js_getMaxDecibels, getMaxDecibels,+        js_setSmoothingTimeConstant, setSmoothingTimeConstant,+        js_getSmoothingTimeConstant, getSmoothingTimeConstant,+        AnalyserNode, castToAnalyserNode, gTypeAnalyserNode)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe+        "$1[\"getFloatFrequencyData\"]($2)" js_getFloatFrequencyData ::+        JSRef AnalyserNode -> JSRef Float32Array -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AnalyserNode.getFloatFrequencyData Mozilla AnalyserNode.getFloatFrequencyData documentation> +getFloatFrequencyData ::+                      (MonadIO m, IsFloat32Array array) =>+                        AnalyserNode -> Maybe array -> m ()+getFloatFrequencyData self array+  = liftIO+      (js_getFloatFrequencyData (unAnalyserNode self)+         (maybe jsNull (unFloat32Array . toFloat32Array) array))+ +foreign import javascript unsafe "$1[\"getByteFrequencyData\"]($2)"+        js_getByteFrequencyData ::+        JSRef AnalyserNode -> JSRef Uint8Array -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AnalyserNode.getByteFrequencyData Mozilla AnalyserNode.getByteFrequencyData documentation> +getByteFrequencyData ::+                     (MonadIO m, IsUint8Array array) =>+                       AnalyserNode -> Maybe array -> m ()+getByteFrequencyData self array+  = liftIO+      (js_getByteFrequencyData (unAnalyserNode self)+         (maybe jsNull (unUint8Array . toUint8Array) array))+ +foreign import javascript unsafe+        "$1[\"getByteTimeDomainData\"]($2)" js_getByteTimeDomainData ::+        JSRef AnalyserNode -> JSRef Uint8Array -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AnalyserNode.getByteTimeDomainData Mozilla AnalyserNode.getByteTimeDomainData documentation> +getByteTimeDomainData ::+                      (MonadIO m, IsUint8Array array) =>+                        AnalyserNode -> Maybe array -> m ()+getByteTimeDomainData self array+  = liftIO+      (js_getByteTimeDomainData (unAnalyserNode self)+         (maybe jsNull (unUint8Array . toUint8Array) array))+ +foreign import javascript unsafe "$1[\"fftSize\"] = $2;"+        js_setFftSize :: JSRef AnalyserNode -> Word -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AnalyserNode.fftSize Mozilla AnalyserNode.fftSize documentation> +setFftSize :: (MonadIO m) => AnalyserNode -> Word -> m ()+setFftSize self val+  = liftIO (js_setFftSize (unAnalyserNode self) val)+ +foreign import javascript unsafe "$1[\"fftSize\"]" js_getFftSize ::+        JSRef AnalyserNode -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AnalyserNode.fftSize Mozilla AnalyserNode.fftSize documentation> +getFftSize :: (MonadIO m) => AnalyserNode -> m Word+getFftSize self = liftIO (js_getFftSize (unAnalyserNode self))+ +foreign import javascript unsafe "$1[\"frequencyBinCount\"]"+        js_getFrequencyBinCount :: JSRef AnalyserNode -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AnalyserNode.frequencyBinCount Mozilla AnalyserNode.frequencyBinCount documentation> +getFrequencyBinCount :: (MonadIO m) => AnalyserNode -> m Word+getFrequencyBinCount self+  = liftIO (js_getFrequencyBinCount (unAnalyserNode self))+ +foreign import javascript unsafe "$1[\"minDecibels\"] = $2;"+        js_setMinDecibels :: JSRef AnalyserNode -> Double -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AnalyserNode.minDecibels Mozilla AnalyserNode.minDecibels documentation> +setMinDecibels :: (MonadIO m) => AnalyserNode -> Double -> m ()+setMinDecibels self val+  = liftIO (js_setMinDecibels (unAnalyserNode self) val)+ +foreign import javascript unsafe "$1[\"minDecibels\"]"+        js_getMinDecibels :: JSRef AnalyserNode -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AnalyserNode.minDecibels Mozilla AnalyserNode.minDecibels documentation> +getMinDecibels :: (MonadIO m) => AnalyserNode -> m Double+getMinDecibels self+  = liftIO (js_getMinDecibels (unAnalyserNode self))+ +foreign import javascript unsafe "$1[\"maxDecibels\"] = $2;"+        js_setMaxDecibels :: JSRef AnalyserNode -> Double -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AnalyserNode.maxDecibels Mozilla AnalyserNode.maxDecibels documentation> +setMaxDecibels :: (MonadIO m) => AnalyserNode -> Double -> m ()+setMaxDecibels self val+  = liftIO (js_setMaxDecibels (unAnalyserNode self) val)+ +foreign import javascript unsafe "$1[\"maxDecibels\"]"+        js_getMaxDecibels :: JSRef AnalyserNode -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AnalyserNode.maxDecibels Mozilla AnalyserNode.maxDecibels documentation> +getMaxDecibels :: (MonadIO m) => AnalyserNode -> m Double+getMaxDecibels self+  = liftIO (js_getMaxDecibels (unAnalyserNode self))+ +foreign import javascript unsafe+        "$1[\"smoothingTimeConstant\"] = $2;" js_setSmoothingTimeConstant+        :: JSRef AnalyserNode -> Double -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AnalyserNode.smoothingTimeConstant Mozilla AnalyserNode.smoothingTimeConstant documentation> +setSmoothingTimeConstant ::+                         (MonadIO m) => AnalyserNode -> Double -> m ()+setSmoothingTimeConstant self val+  = liftIO (js_setSmoothingTimeConstant (unAnalyserNode self) val)+ +foreign import javascript unsafe "$1[\"smoothingTimeConstant\"]"+        js_getSmoothingTimeConstant :: JSRef AnalyserNode -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AnalyserNode.smoothingTimeConstant Mozilla AnalyserNode.smoothingTimeConstant documentation> +getSmoothingTimeConstant :: (MonadIO m) => AnalyserNode -> m Double+getSmoothingTimeConstant self+  = liftIO (js_getSmoothingTimeConstant (unAnalyserNode self))
+ src/GHCJS/DOM/JSFFI/Generated/AnimationEvent.hs view
@@ -0,0 +1,38 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.AnimationEvent+       (js_getAnimationName, getAnimationName, js_getElapsedTime,+        getElapsedTime, AnimationEvent, castToAnimationEvent,+        gTypeAnimationEvent)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"animationName\"]"+        js_getAnimationName :: JSRef AnimationEvent -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AnimationEvent.animationName Mozilla AnimationEvent.animationName documentation> +getAnimationName ::+                 (MonadIO m, FromJSString result) => AnimationEvent -> m result+getAnimationName self+  = liftIO+      (fromJSString <$> (js_getAnimationName (unAnimationEvent self)))+ +foreign import javascript unsafe "$1[\"elapsedTime\"]"+        js_getElapsedTime :: JSRef AnimationEvent -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AnimationEvent.elapsedTime Mozilla AnimationEvent.elapsedTime documentation> +getElapsedTime :: (MonadIO m) => AnimationEvent -> m Double+getElapsedTime self+  = liftIO (js_getElapsedTime (unAnimationEvent self))
+ src/GHCJS/DOM/JSFFI/Generated/ApplicationCache.hs view
@@ -0,0 +1,89 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.ApplicationCache+       (js_update, update, js_swapCache, swapCache, js_abort, abort,+        pattern UNCACHED, pattern IDLE, pattern CHECKING,+        pattern DOWNLOADING, pattern UPDATEREADY, pattern OBSOLETE,+        js_getStatus, getStatus, checking, error, noUpdate, downloading,+        progress, updateReady, cached, obsolete, ApplicationCache,+        castToApplicationCache, gTypeApplicationCache)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"update\"]()" js_update ::+        JSRef ApplicationCache -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplicationCache.update Mozilla ApplicationCache.update documentation> +update :: (MonadIO m) => ApplicationCache -> m ()+update self = liftIO (js_update (unApplicationCache self))+ +foreign import javascript unsafe "$1[\"swapCache\"]()" js_swapCache+        :: JSRef ApplicationCache -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplicationCache.swapCache Mozilla ApplicationCache.swapCache documentation> +swapCache :: (MonadIO m) => ApplicationCache -> m ()+swapCache self = liftIO (js_swapCache (unApplicationCache self))+ +foreign import javascript unsafe "$1[\"abort\"]()" js_abort ::+        JSRef ApplicationCache -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplicationCache.abort Mozilla ApplicationCache.abort documentation> +abort :: (MonadIO m) => ApplicationCache -> m ()+abort self = liftIO (js_abort (unApplicationCache self))+pattern UNCACHED = 0+pattern IDLE = 1+pattern CHECKING = 2+pattern DOWNLOADING = 3+pattern UPDATEREADY = 4+pattern OBSOLETE = 5+ +foreign import javascript unsafe "$1[\"status\"]" js_getStatus ::+        JSRef ApplicationCache -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplicationCache.status Mozilla ApplicationCache.status documentation> +getStatus :: (MonadIO m) => ApplicationCache -> m Word+getStatus self = liftIO (js_getStatus (unApplicationCache self))++-- | <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/GHCJS/DOM/JSFFI/Generated/Attr.hs view
@@ -0,0 +1,69 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.Attr+       (js_getName, getName, js_getSpecified, getSpecified, js_setValue,+        setValue, js_getValue, getValue, js_getOwnerElement,+        getOwnerElement, js_getIsId, getIsId, Attr, castToAttr, gTypeAttr)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"name\"]" js_getName ::+        JSRef Attr -> IO (JSRef (Maybe JSString))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Attr.name Mozilla Attr.name documentation> +getName ::+        (MonadIO m, FromJSString result) => Attr -> m (Maybe result)+getName self+  = liftIO (fromMaybeJSString <$> (js_getName (unAttr self)))+ +foreign import javascript unsafe "($1[\"specified\"] ? 1 : 0)"+        js_getSpecified :: JSRef Attr -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Attr.specified Mozilla Attr.specified documentation> +getSpecified :: (MonadIO m) => Attr -> m Bool+getSpecified self = liftIO (js_getSpecified (unAttr self))+ +foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue+        :: JSRef Attr -> JSRef (Maybe JSString) -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Attr.value Mozilla Attr.value documentation> +setValue ::+         (MonadIO m, ToJSString val) => Attr -> Maybe val -> m ()+setValue self val+  = liftIO (js_setValue (unAttr self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"value\"]" js_getValue ::+        JSRef Attr -> IO (JSRef (Maybe JSString))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Attr.value Mozilla Attr.value documentation> +getValue ::+         (MonadIO m, FromJSString result) => Attr -> m (Maybe result)+getValue self+  = liftIO (fromMaybeJSString <$> (js_getValue (unAttr self)))+ +foreign import javascript unsafe "$1[\"ownerElement\"]"+        js_getOwnerElement :: JSRef Attr -> IO (JSRef Element)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Attr.ownerElement Mozilla Attr.ownerElement documentation> +getOwnerElement :: (MonadIO m) => Attr -> m (Maybe Element)+getOwnerElement self+  = liftIO ((js_getOwnerElement (unAttr self)) >>= fromJSRef)+ +foreign import javascript unsafe "($1[\"isId\"] ? 1 : 0)"+        js_getIsId :: JSRef Attr -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Attr.isId Mozilla Attr.isId documentation> +getIsId :: (MonadIO m) => Attr -> m Bool+getIsId self = liftIO (js_getIsId (unAttr self))
+ src/GHCJS/DOM/JSFFI/Generated/AudioBuffer.hs view
@@ -0,0 +1,77 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.AudioBuffer+       (js_getChannelData, getChannelData, js_getLength, getLength,+        js_getDuration, getDuration, js_getSampleRate, getSampleRate,+        js_setGain, setGain, js_getGain, getGain, js_getNumberOfChannels,+        getNumberOfChannels, AudioBuffer, castToAudioBuffer,+        gTypeAudioBuffer)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"getChannelData\"]($2)"+        js_getChannelData ::+        JSRef AudioBuffer -> Word -> IO (JSRef Float32Array)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBuffer.getChannelData Mozilla AudioBuffer.getChannelData documentation> +getChannelData ::+               (MonadIO m) => AudioBuffer -> Word -> m (Maybe Float32Array)+getChannelData self channelIndex+  = liftIO+      ((js_getChannelData (unAudioBuffer self) channelIndex) >>=+         fromJSRef)+ +foreign import javascript unsafe "$1[\"length\"]" js_getLength ::+        JSRef AudioBuffer -> IO Int++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBuffer.length Mozilla AudioBuffer.length documentation> +getLength :: (MonadIO m) => AudioBuffer -> m Int+getLength self = liftIO (js_getLength (unAudioBuffer self))+ +foreign import javascript unsafe "$1[\"duration\"]" js_getDuration+        :: JSRef AudioBuffer -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBuffer.duration Mozilla AudioBuffer.duration documentation> +getDuration :: (MonadIO m) => AudioBuffer -> m Float+getDuration self = liftIO (js_getDuration (unAudioBuffer self))+ +foreign import javascript unsafe "$1[\"sampleRate\"]"+        js_getSampleRate :: JSRef AudioBuffer -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBuffer.sampleRate Mozilla AudioBuffer.sampleRate documentation> +getSampleRate :: (MonadIO m) => AudioBuffer -> m Float+getSampleRate self = liftIO (js_getSampleRate (unAudioBuffer self))+ +foreign import javascript unsafe "$1[\"gain\"] = $2;" js_setGain ::+        JSRef AudioBuffer -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBuffer.gain Mozilla AudioBuffer.gain documentation> +setGain :: (MonadIO m) => AudioBuffer -> Float -> m ()+setGain self val = liftIO (js_setGain (unAudioBuffer self) val)+ +foreign import javascript unsafe "$1[\"gain\"]" js_getGain ::+        JSRef AudioBuffer -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBuffer.gain Mozilla AudioBuffer.gain documentation> +getGain :: (MonadIO m) => AudioBuffer -> m Float+getGain self = liftIO (js_getGain (unAudioBuffer self))+ +foreign import javascript unsafe "$1[\"numberOfChannels\"]"+        js_getNumberOfChannels :: JSRef AudioBuffer -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBuffer.numberOfChannels Mozilla AudioBuffer.numberOfChannels documentation> +getNumberOfChannels :: (MonadIO m) => AudioBuffer -> m Word+getNumberOfChannels self+  = liftIO (js_getNumberOfChannels (unAudioBuffer self))
+ src/GHCJS/DOM/JSFFI/Generated/AudioBufferCallback.hs view
@@ -0,0 +1,52 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.AudioBufferCallback+       (newAudioBufferCallback, newAudioBufferCallbackSync,+        newAudioBufferCallbackAsync, AudioBufferCallback)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferCallback Mozilla AudioBufferCallback documentation> +newAudioBufferCallback ::+                       (MonadIO m) =>+                         (Maybe AudioBuffer -> IO ()) -> m AudioBufferCallback+newAudioBufferCallback callback+  = liftIO+      (syncCallback1 ThrowWouldBlock+         (\ audioBuffer ->+            fromJSRefUnchecked audioBuffer >>=+              \ audioBuffer' -> callback audioBuffer'))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferCallback Mozilla AudioBufferCallback documentation> +newAudioBufferCallbackSync ::+                           (MonadIO m) =>+                             (Maybe AudioBuffer -> IO ()) -> m AudioBufferCallback+newAudioBufferCallbackSync callback+  = liftIO+      (syncCallback1 ContinueAsync+         (\ audioBuffer ->+            fromJSRefUnchecked audioBuffer >>=+              \ audioBuffer' -> callback audioBuffer'))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferCallback Mozilla AudioBufferCallback documentation> +newAudioBufferCallbackAsync ::+                            (MonadIO m) =>+                              (Maybe AudioBuffer -> IO ()) -> m AudioBufferCallback+newAudioBufferCallbackAsync callback+  = liftIO+      (asyncCallback1+         (\ audioBuffer ->+            fromJSRefUnchecked audioBuffer >>=+              \ audioBuffer' -> callback audioBuffer'))
+ src/GHCJS/DOM/JSFFI/Generated/AudioBufferSourceNode.hs view
@@ -0,0 +1,202 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.AudioBufferSourceNode+       (js_start, start, js_stop, stop, js_noteOn, noteOn, js_noteGrainOn,+        noteGrainOn, js_noteOff, noteOff, pattern UNSCHEDULED_STATE,+        pattern SCHEDULED_STATE, pattern PLAYING_STATE,+        pattern FINISHED_STATE, js_setBuffer, setBuffer, js_getBuffer,+        getBuffer, js_getPlaybackState, getPlaybackState, js_getGain,+        getGain, js_getPlaybackRate, getPlaybackRate, js_setLoop, setLoop,+        js_getLoop, getLoop, js_setLoopStart, setLoopStart,+        js_getLoopStart, getLoopStart, js_setLoopEnd, setLoopEnd,+        js_getLoopEnd, getLoopEnd, js_setLooping, setLooping,+        js_getLooping, getLooping, ended, AudioBufferSourceNode,+        castToAudioBufferSourceNode, gTypeAudioBufferSourceNode)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"start\"]($2, $3, $4)"+        js_start ::+        JSRef AudioBufferSourceNode -> Double -> Double -> Double -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.start Mozilla AudioBufferSourceNode.start documentation> +start ::+      (MonadIO m) =>+        AudioBufferSourceNode -> Double -> Double -> Double -> m ()+start self when grainOffset grainDuration+  = liftIO+      (js_start (unAudioBufferSourceNode self) when grainOffset+         grainDuration)+ +foreign import javascript unsafe "$1[\"stop\"]($2)" js_stop ::+        JSRef AudioBufferSourceNode -> Double -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.stop Mozilla AudioBufferSourceNode.stop documentation> +stop :: (MonadIO m) => AudioBufferSourceNode -> Double -> m ()+stop self when+  = liftIO (js_stop (unAudioBufferSourceNode self) when)+ +foreign import javascript unsafe "$1[\"noteOn\"]($2)" js_noteOn ::+        JSRef AudioBufferSourceNode -> Double -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.noteOn Mozilla AudioBufferSourceNode.noteOn documentation> +noteOn :: (MonadIO m) => AudioBufferSourceNode -> Double -> m ()+noteOn self when+  = liftIO (js_noteOn (unAudioBufferSourceNode self) when)+ +foreign import javascript unsafe "$1[\"noteGrainOn\"]($2, $3, $4)"+        js_noteGrainOn ::+        JSRef AudioBufferSourceNode -> Double -> Double -> Double -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.noteGrainOn Mozilla AudioBufferSourceNode.noteGrainOn documentation> +noteGrainOn ::+            (MonadIO m) =>+              AudioBufferSourceNode -> Double -> Double -> Double -> m ()+noteGrainOn self when grainOffset grainDuration+  = liftIO+      (js_noteGrainOn (unAudioBufferSourceNode self) when grainOffset+         grainDuration)+ +foreign import javascript unsafe "$1[\"noteOff\"]($2)" js_noteOff+        :: JSRef AudioBufferSourceNode -> Double -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.noteOff Mozilla AudioBufferSourceNode.noteOff documentation> +noteOff :: (MonadIO m) => AudioBufferSourceNode -> Double -> m ()+noteOff self when+  = liftIO (js_noteOff (unAudioBufferSourceNode self) when)+pattern UNSCHEDULED_STATE = 0+pattern SCHEDULED_STATE = 1+pattern PLAYING_STATE = 2+pattern FINISHED_STATE = 3+ +foreign import javascript unsafe "$1[\"buffer\"] = $2;"+        js_setBuffer ::+        JSRef AudioBufferSourceNode -> JSRef AudioBuffer -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.buffer Mozilla AudioBufferSourceNode.buffer documentation> +setBuffer ::+          (MonadIO m) => AudioBufferSourceNode -> Maybe AudioBuffer -> m ()+setBuffer self val+  = liftIO+      (js_setBuffer (unAudioBufferSourceNode self)+         (maybe jsNull pToJSRef val))+ +foreign import javascript unsafe "$1[\"buffer\"]" js_getBuffer ::+        JSRef AudioBufferSourceNode -> IO (JSRef AudioBuffer)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.buffer Mozilla AudioBufferSourceNode.buffer documentation> +getBuffer ::+          (MonadIO m) => AudioBufferSourceNode -> m (Maybe AudioBuffer)+getBuffer self+  = liftIO+      ((js_getBuffer (unAudioBufferSourceNode self)) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"playbackState\"]"+        js_getPlaybackState :: JSRef AudioBufferSourceNode -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.playbackState Mozilla AudioBufferSourceNode.playbackState documentation> +getPlaybackState :: (MonadIO m) => AudioBufferSourceNode -> m Word+getPlaybackState self+  = liftIO (js_getPlaybackState (unAudioBufferSourceNode self))+ +foreign import javascript unsafe "$1[\"gain\"]" js_getGain ::+        JSRef AudioBufferSourceNode -> IO (JSRef AudioParam)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.gain Mozilla AudioBufferSourceNode.gain documentation> +getGain ::+        (MonadIO m) => AudioBufferSourceNode -> m (Maybe AudioParam)+getGain self+  = liftIO+      ((js_getGain (unAudioBufferSourceNode self)) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"playbackRate\"]"+        js_getPlaybackRate ::+        JSRef AudioBufferSourceNode -> IO (JSRef AudioParam)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.playbackRate Mozilla AudioBufferSourceNode.playbackRate documentation> +getPlaybackRate ::+                (MonadIO m) => AudioBufferSourceNode -> m (Maybe AudioParam)+getPlaybackRate self+  = liftIO+      ((js_getPlaybackRate (unAudioBufferSourceNode self)) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"loop\"] = $2;" js_setLoop ::+        JSRef AudioBufferSourceNode -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.loop Mozilla AudioBufferSourceNode.loop documentation> +setLoop :: (MonadIO m) => AudioBufferSourceNode -> Bool -> m ()+setLoop self val+  = liftIO (js_setLoop (unAudioBufferSourceNode self) val)+ +foreign import javascript unsafe "($1[\"loop\"] ? 1 : 0)"+        js_getLoop :: JSRef AudioBufferSourceNode -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.loop Mozilla AudioBufferSourceNode.loop documentation> +getLoop :: (MonadIO m) => AudioBufferSourceNode -> m Bool+getLoop self = liftIO (js_getLoop (unAudioBufferSourceNode self))+ +foreign import javascript unsafe "$1[\"loopStart\"] = $2;"+        js_setLoopStart :: JSRef AudioBufferSourceNode -> Double -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.loopStart Mozilla AudioBufferSourceNode.loopStart documentation> +setLoopStart ::+             (MonadIO m) => AudioBufferSourceNode -> Double -> m ()+setLoopStart self val+  = liftIO (js_setLoopStart (unAudioBufferSourceNode self) val)+ +foreign import javascript unsafe "$1[\"loopStart\"]"+        js_getLoopStart :: JSRef AudioBufferSourceNode -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.loopStart Mozilla AudioBufferSourceNode.loopStart documentation> +getLoopStart :: (MonadIO m) => AudioBufferSourceNode -> m Double+getLoopStart self+  = liftIO (js_getLoopStart (unAudioBufferSourceNode self))+ +foreign import javascript unsafe "$1[\"loopEnd\"] = $2;"+        js_setLoopEnd :: JSRef AudioBufferSourceNode -> Double -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.loopEnd Mozilla AudioBufferSourceNode.loopEnd documentation> +setLoopEnd ::+           (MonadIO m) => AudioBufferSourceNode -> Double -> m ()+setLoopEnd self val+  = liftIO (js_setLoopEnd (unAudioBufferSourceNode self) val)+ +foreign import javascript unsafe "$1[\"loopEnd\"]" js_getLoopEnd ::+        JSRef AudioBufferSourceNode -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.loopEnd Mozilla AudioBufferSourceNode.loopEnd documentation> +getLoopEnd :: (MonadIO m) => AudioBufferSourceNode -> m Double+getLoopEnd self+  = liftIO (js_getLoopEnd (unAudioBufferSourceNode self))+ +foreign import javascript unsafe "$1[\"looping\"] = $2;"+        js_setLooping :: JSRef AudioBufferSourceNode -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.looping Mozilla AudioBufferSourceNode.looping documentation> +setLooping :: (MonadIO m) => AudioBufferSourceNode -> Bool -> m ()+setLooping self val+  = liftIO (js_setLooping (unAudioBufferSourceNode self) val)+ +foreign import javascript unsafe "($1[\"looping\"] ? 1 : 0)"+        js_getLooping :: JSRef AudioBufferSourceNode -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.looping Mozilla AudioBufferSourceNode.looping documentation> +getLooping :: (MonadIO m) => AudioBufferSourceNode -> m Bool+getLooping self+  = liftIO (js_getLooping (unAudioBufferSourceNode self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.onended Mozilla AudioBufferSourceNode.onended documentation> +ended :: EventName AudioBufferSourceNode Event+ended = unsafeEventName (toJSString "ended")
+ src/GHCJS/DOM/JSFFI/Generated/AudioContext.hs view
@@ -0,0 +1,451 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.AudioContext+       (js_newAudioContext, newAudioContext, js_createBuffer,+        createBuffer, js_createBufferFromArrayBuffer,+        createBufferFromArrayBuffer, js_decodeAudioData, decodeAudioData,+        js_createBufferSource, createBufferSource,+        js_createMediaElementSource, createMediaElementSource,+        js_createMediaStreamSource, createMediaStreamSource,+        js_createMediaStreamDestination, createMediaStreamDestination,+        js_createGain, createGain, js_createDelay, createDelay,+        js_createBiquadFilter, createBiquadFilter, js_createWaveShaper,+        createWaveShaper, js_createPanner, createPanner,+        js_createConvolver, createConvolver, js_createDynamicsCompressor,+        createDynamicsCompressor, js_createAnalyser, createAnalyser,+        js_createScriptProcessor, createScriptProcessor,+        js_createOscillator, createOscillator, js_createPeriodicWave,+        createPeriodicWave, js_createChannelSplitter,+        createChannelSplitter, js_createChannelMerger, createChannelMerger,+        js_startRendering, startRendering, js_createGainNode,+        createGainNode, js_createDelayNode, createDelayNode,+        js_createJavaScriptNode, createJavaScriptNode, js_getDestination,+        getDestination, js_getCurrentTime, getCurrentTime,+        js_getSampleRate, getSampleRate, js_getListener, getListener,+        js_getActiveSourceCount, getActiveSourceCount, complete,+        AudioContext, castToAudioContext, gTypeAudioContext,+        IsAudioContext, toAudioContext)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe+        "new (window[\"AudioContext\"]\n||\nwindow[\"webkitAudioContext\"])()"+        js_newAudioContext :: IO (JSRef AudioContext)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext Mozilla AudioContext documentation> +newAudioContext :: (MonadIO m) => m AudioContext+newAudioContext+  = liftIO (js_newAudioContext >>= fromJSRefUnchecked)+ +foreign import javascript unsafe "$1[\"createBuffer\"]($2, $3, $4)"+        js_createBuffer ::+        JSRef AudioContext ->+          Word -> Word -> Float -> IO (JSRef AudioBuffer)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createBuffer Mozilla AudioContext.createBuffer documentation> +createBuffer ::+             (MonadIO m, IsAudioContext self) =>+               self -> Word -> Word -> Float -> m (Maybe AudioBuffer)+createBuffer self numberOfChannels numberOfFrames sampleRate+  = liftIO+      ((js_createBuffer (unAudioContext (toAudioContext self))+          numberOfChannels+          numberOfFrames+          sampleRate)+         >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"createBuffer\"]($2, $3)"+        js_createBufferFromArrayBuffer ::+        JSRef AudioContext ->+          JSRef ArrayBuffer -> Bool -> IO (JSRef AudioBuffer)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createBuffer Mozilla AudioContext.createBuffer documentation> +createBufferFromArrayBuffer ::+                            (MonadIO m, IsAudioContext self, IsArrayBuffer buffer) =>+                              self -> Maybe buffer -> Bool -> m (Maybe AudioBuffer)+createBufferFromArrayBuffer self buffer mixToMono+  = liftIO+      ((js_createBufferFromArrayBuffer+          (unAudioContext (toAudioContext self))+          (maybe jsNull (unArrayBuffer . toArrayBuffer) buffer)+          mixToMono)+         >>= fromJSRef)+ +foreign import javascript unsafe+        "$1[\"decodeAudioData\"]($2, $3,\n$4)" js_decodeAudioData ::+        JSRef AudioContext ->+          JSRef ArrayBuffer ->+            JSRef AudioBufferCallback -> JSRef AudioBufferCallback -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.decodeAudioData Mozilla AudioContext.decodeAudioData documentation> +decodeAudioData ::+                (MonadIO m, IsAudioContext self, IsArrayBuffer audioData) =>+                  self ->+                    Maybe audioData ->+                      Maybe AudioBufferCallback -> Maybe AudioBufferCallback -> m ()+decodeAudioData self audioData successCallback errorCallback+  = liftIO+      (js_decodeAudioData (unAudioContext (toAudioContext self))+         (maybe jsNull (unArrayBuffer . toArrayBuffer) audioData)+         (maybe jsNull pToJSRef successCallback)+         (maybe jsNull pToJSRef errorCallback))+ +foreign import javascript unsafe "$1[\"createBufferSource\"]()"+        js_createBufferSource ::+        JSRef AudioContext -> IO (JSRef AudioBufferSourceNode)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createBufferSource Mozilla AudioContext.createBufferSource documentation> +createBufferSource ::+                   (MonadIO m, IsAudioContext self) =>+                     self -> m (Maybe AudioBufferSourceNode)+createBufferSource self+  = liftIO+      ((js_createBufferSource (unAudioContext (toAudioContext self))) >>=+         fromJSRef)+ +foreign import javascript unsafe+        "$1[\"createMediaElementSource\"]($2)" js_createMediaElementSource+        ::+        JSRef AudioContext ->+          JSRef HTMLMediaElement -> IO (JSRef MediaElementAudioSourceNode)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createMediaElementSource Mozilla AudioContext.createMediaElementSource documentation> +createMediaElementSource ::+                         (MonadIO m, IsAudioContext self,+                          IsHTMLMediaElement mediaElement) =>+                           self -> Maybe mediaElement -> m (Maybe MediaElementAudioSourceNode)+createMediaElementSource self mediaElement+  = liftIO+      ((js_createMediaElementSource+          (unAudioContext (toAudioContext self))+          (maybe jsNull (unHTMLMediaElement . toHTMLMediaElement)+             mediaElement))+         >>= fromJSRef)+ +foreign import javascript unsafe+        "$1[\"createMediaStreamSource\"]($2)" js_createMediaStreamSource ::+        JSRef AudioContext ->+          JSRef MediaStream -> IO (JSRef MediaStreamAudioSourceNode)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createMediaStreamSource Mozilla AudioContext.createMediaStreamSource documentation> +createMediaStreamSource ::+                        (MonadIO m, IsAudioContext self) =>+                          self -> Maybe MediaStream -> m (Maybe MediaStreamAudioSourceNode)+createMediaStreamSource self mediaStream+  = liftIO+      ((js_createMediaStreamSource (unAudioContext (toAudioContext self))+          (maybe jsNull pToJSRef mediaStream))+         >>= fromJSRef)+ +foreign import javascript unsafe+        "$1[\"createMediaStreamDestination\"]()"+        js_createMediaStreamDestination ::+        JSRef AudioContext -> IO (JSRef MediaStreamAudioDestinationNode)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createMediaStreamDestination Mozilla AudioContext.createMediaStreamDestination documentation> +createMediaStreamDestination ::+                             (MonadIO m, IsAudioContext self) =>+                               self -> m (Maybe MediaStreamAudioDestinationNode)+createMediaStreamDestination self+  = liftIO+      ((js_createMediaStreamDestination+          (unAudioContext (toAudioContext self)))+         >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"createGain\"]()"+        js_createGain :: JSRef AudioContext -> IO (JSRef GainNode)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createGain Mozilla AudioContext.createGain documentation> +createGain ::+           (MonadIO m, IsAudioContext self) => self -> m (Maybe GainNode)+createGain self+  = liftIO+      ((js_createGain (unAudioContext (toAudioContext self))) >>=+         fromJSRef)+ +foreign import javascript unsafe "$1[\"createDelay\"]($2)"+        js_createDelay ::+        JSRef AudioContext -> Double -> IO (JSRef DelayNode)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createDelay Mozilla AudioContext.createDelay documentation> +createDelay ::+            (MonadIO m, IsAudioContext self) =>+              self -> Double -> m (Maybe DelayNode)+createDelay self maxDelayTime+  = liftIO+      ((js_createDelay (unAudioContext (toAudioContext self))+          maxDelayTime)+         >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"createBiquadFilter\"]()"+        js_createBiquadFilter ::+        JSRef AudioContext -> IO (JSRef BiquadFilterNode)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createBiquadFilter Mozilla AudioContext.createBiquadFilter documentation> +createBiquadFilter ::+                   (MonadIO m, IsAudioContext self) =>+                     self -> m (Maybe BiquadFilterNode)+createBiquadFilter self+  = liftIO+      ((js_createBiquadFilter (unAudioContext (toAudioContext self))) >>=+         fromJSRef)+ +foreign import javascript unsafe "$1[\"createWaveShaper\"]()"+        js_createWaveShaper ::+        JSRef AudioContext -> IO (JSRef WaveShaperNode)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createWaveShaper Mozilla AudioContext.createWaveShaper documentation> +createWaveShaper ::+                 (MonadIO m, IsAudioContext self) =>+                   self -> m (Maybe WaveShaperNode)+createWaveShaper self+  = liftIO+      ((js_createWaveShaper (unAudioContext (toAudioContext self))) >>=+         fromJSRef)+ +foreign import javascript unsafe "$1[\"createPanner\"]()"+        js_createPanner :: JSRef AudioContext -> IO (JSRef PannerNode)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createPanner Mozilla AudioContext.createPanner documentation> +createPanner ::+             (MonadIO m, IsAudioContext self) => self -> m (Maybe PannerNode)+createPanner self+  = liftIO+      ((js_createPanner (unAudioContext (toAudioContext self))) >>=+         fromJSRef)+ +foreign import javascript unsafe "$1[\"createConvolver\"]()"+        js_createConvolver ::+        JSRef AudioContext -> IO (JSRef ConvolverNode)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createConvolver Mozilla AudioContext.createConvolver documentation> +createConvolver ::+                (MonadIO m, IsAudioContext self) => self -> m (Maybe ConvolverNode)+createConvolver self+  = liftIO+      ((js_createConvolver (unAudioContext (toAudioContext self))) >>=+         fromJSRef)+ +foreign import javascript unsafe+        "$1[\"createDynamicsCompressor\"]()" js_createDynamicsCompressor ::+        JSRef AudioContext -> IO (JSRef DynamicsCompressorNode)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createDynamicsCompressor Mozilla AudioContext.createDynamicsCompressor documentation> +createDynamicsCompressor ::+                         (MonadIO m, IsAudioContext self) =>+                           self -> m (Maybe DynamicsCompressorNode)+createDynamicsCompressor self+  = liftIO+      ((js_createDynamicsCompressor+          (unAudioContext (toAudioContext self)))+         >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"createAnalyser\"]()"+        js_createAnalyser :: JSRef AudioContext -> IO (JSRef AnalyserNode)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createAnalyser Mozilla AudioContext.createAnalyser documentation> +createAnalyser ::+               (MonadIO m, IsAudioContext self) => self -> m (Maybe AnalyserNode)+createAnalyser self+  = liftIO+      ((js_createAnalyser (unAudioContext (toAudioContext self))) >>=+         fromJSRef)+ +foreign import javascript unsafe+        "$1[\"createScriptProcessor\"]($2,\n$3, $4)"+        js_createScriptProcessor ::+        JSRef AudioContext ->+          Word -> Word -> Word -> IO (JSRef ScriptProcessorNode)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createScriptProcessor Mozilla AudioContext.createScriptProcessor documentation> +createScriptProcessor ::+                      (MonadIO m, IsAudioContext self) =>+                        self -> Word -> Word -> Word -> m (Maybe ScriptProcessorNode)+createScriptProcessor self bufferSize numberOfInputChannels+  numberOfOutputChannels+  = liftIO+      ((js_createScriptProcessor (unAudioContext (toAudioContext self))+          bufferSize+          numberOfInputChannels+          numberOfOutputChannels)+         >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"createOscillator\"]()"+        js_createOscillator ::+        JSRef AudioContext -> IO (JSRef OscillatorNode)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createOscillator Mozilla AudioContext.createOscillator documentation> +createOscillator ::+                 (MonadIO m, IsAudioContext self) =>+                   self -> m (Maybe OscillatorNode)+createOscillator self+  = liftIO+      ((js_createOscillator (unAudioContext (toAudioContext self))) >>=+         fromJSRef)+ +foreign import javascript unsafe+        "$1[\"createPeriodicWave\"]($2, $3)" js_createPeriodicWave ::+        JSRef AudioContext ->+          JSRef Float32Array -> JSRef Float32Array -> IO (JSRef PeriodicWave)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createPeriodicWave Mozilla AudioContext.createPeriodicWave documentation> +createPeriodicWave ::+                   (MonadIO m, IsAudioContext self, IsFloat32Array real,+                    IsFloat32Array imag) =>+                     self -> Maybe real -> Maybe imag -> m (Maybe PeriodicWave)+createPeriodicWave self real imag+  = liftIO+      ((js_createPeriodicWave (unAudioContext (toAudioContext self))+          (maybe jsNull (unFloat32Array . toFloat32Array) real)+          (maybe jsNull (unFloat32Array . toFloat32Array) imag))+         >>= fromJSRef)+ +foreign import javascript unsafe+        "$1[\"createChannelSplitter\"]($2)" js_createChannelSplitter ::+        JSRef AudioContext -> Word -> IO (JSRef ChannelSplitterNode)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createChannelSplitter Mozilla AudioContext.createChannelSplitter documentation> +createChannelSplitter ::+                      (MonadIO m, IsAudioContext self) =>+                        self -> Word -> m (Maybe ChannelSplitterNode)+createChannelSplitter self numberOfOutputs+  = liftIO+      ((js_createChannelSplitter (unAudioContext (toAudioContext self))+          numberOfOutputs)+         >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"createChannelMerger\"]($2)"+        js_createChannelMerger ::+        JSRef AudioContext -> Word -> IO (JSRef ChannelMergerNode)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createChannelMerger Mozilla AudioContext.createChannelMerger documentation> +createChannelMerger ::+                    (MonadIO m, IsAudioContext self) =>+                      self -> Word -> m (Maybe ChannelMergerNode)+createChannelMerger self numberOfInputs+  = liftIO+      ((js_createChannelMerger (unAudioContext (toAudioContext self))+          numberOfInputs)+         >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"startRendering\"]()"+        js_startRendering :: JSRef AudioContext -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.startRendering Mozilla AudioContext.startRendering documentation> +startRendering :: (MonadIO m, IsAudioContext self) => self -> m ()+startRendering self+  = liftIO (js_startRendering (unAudioContext (toAudioContext self)))+ +foreign import javascript unsafe "$1[\"createGainNode\"]()"+        js_createGainNode :: JSRef AudioContext -> IO (JSRef GainNode)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createGainNode Mozilla AudioContext.createGainNode documentation> +createGainNode ::+               (MonadIO m, IsAudioContext self) => self -> m (Maybe GainNode)+createGainNode self+  = liftIO+      ((js_createGainNode (unAudioContext (toAudioContext self))) >>=+         fromJSRef)+ +foreign import javascript unsafe "$1[\"createDelayNode\"]($2)"+        js_createDelayNode ::+        JSRef AudioContext -> Double -> IO (JSRef DelayNode)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createDelayNode Mozilla AudioContext.createDelayNode documentation> +createDelayNode ::+                (MonadIO m, IsAudioContext self) =>+                  self -> Double -> m (Maybe DelayNode)+createDelayNode self maxDelayTime+  = liftIO+      ((js_createDelayNode (unAudioContext (toAudioContext self))+          maxDelayTime)+         >>= fromJSRef)+ +foreign import javascript unsafe+        "$1[\"createJavaScriptNode\"]($2,\n$3, $4)" js_createJavaScriptNode+        ::+        JSRef AudioContext ->+          Word -> Word -> Word -> IO (JSRef ScriptProcessorNode)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createJavaScriptNode Mozilla AudioContext.createJavaScriptNode documentation> +createJavaScriptNode ::+                     (MonadIO m, IsAudioContext self) =>+                       self -> Word -> Word -> Word -> m (Maybe ScriptProcessorNode)+createJavaScriptNode self bufferSize numberOfInputChannels+  numberOfOutputChannels+  = liftIO+      ((js_createJavaScriptNode (unAudioContext (toAudioContext self))+          bufferSize+          numberOfInputChannels+          numberOfOutputChannels)+         >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"destination\"]"+        js_getDestination ::+        JSRef AudioContext -> IO (JSRef AudioDestinationNode)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.destination Mozilla AudioContext.destination documentation> +getDestination ::+               (MonadIO m, IsAudioContext self) =>+                 self -> m (Maybe AudioDestinationNode)+getDestination self+  = liftIO+      ((js_getDestination (unAudioContext (toAudioContext self))) >>=+         fromJSRef)+ +foreign import javascript unsafe "$1[\"currentTime\"]"+        js_getCurrentTime :: JSRef AudioContext -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.currentTime Mozilla AudioContext.currentTime documentation> +getCurrentTime ::+               (MonadIO m, IsAudioContext self) => self -> m Double+getCurrentTime self+  = liftIO (js_getCurrentTime (unAudioContext (toAudioContext self)))+ +foreign import javascript unsafe "$1[\"sampleRate\"]"+        js_getSampleRate :: JSRef AudioContext -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.sampleRate Mozilla AudioContext.sampleRate documentation> +getSampleRate ::+              (MonadIO m, IsAudioContext self) => self -> m Float+getSampleRate self+  = liftIO (js_getSampleRate (unAudioContext (toAudioContext self)))+ +foreign import javascript unsafe "$1[\"listener\"]" js_getListener+        :: JSRef AudioContext -> IO (JSRef AudioListener)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.listener Mozilla AudioContext.listener documentation> +getListener ::+            (MonadIO m, IsAudioContext self) => self -> m (Maybe AudioListener)+getListener self+  = liftIO+      ((js_getListener (unAudioContext (toAudioContext self))) >>=+         fromJSRef)+ +foreign import javascript unsafe "$1[\"activeSourceCount\"]"+        js_getActiveSourceCount :: JSRef AudioContext -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.activeSourceCount Mozilla AudioContext.activeSourceCount documentation> +getActiveSourceCount ::+                     (MonadIO m, IsAudioContext self) => self -> m Word+getActiveSourceCount self+  = liftIO+      (js_getActiveSourceCount (unAudioContext (toAudioContext self)))++-- | <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/GHCJS/DOM/JSFFI/Generated/AudioDestinationNode.hs view
@@ -0,0 +1,27 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.AudioDestinationNode+       (js_getMaxChannelCount, getMaxChannelCount, AudioDestinationNode,+        castToAudioDestinationNode, gTypeAudioDestinationNode)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"maxChannelCount\"]"+        js_getMaxChannelCount :: JSRef AudioDestinationNode -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioDestinationNode.maxChannelCount Mozilla AudioDestinationNode.maxChannelCount documentation> +getMaxChannelCount :: (MonadIO m) => AudioDestinationNode -> m Word+getMaxChannelCount self+  = liftIO (js_getMaxChannelCount (unAudioDestinationNode self))
+ src/GHCJS/DOM/JSFFI/Generated/AudioListener.hs view
@@ -0,0 +1,89 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.AudioListener+       (js_setPosition, setPosition, js_setOrientation, setOrientation,+        js_setVelocity, setVelocity, js_setDopplerFactor, setDopplerFactor,+        js_getDopplerFactor, getDopplerFactor, js_setSpeedOfSound,+        setSpeedOfSound, js_getSpeedOfSound, getSpeedOfSound,+        AudioListener, castToAudioListener, gTypeAudioListener)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"setPosition\"]($2, $3, $4)"+        js_setPosition ::+        JSRef AudioListener -> Float -> Float -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioListener.setPosition Mozilla AudioListener.setPosition documentation> +setPosition ::+            (MonadIO m) => AudioListener -> Float -> Float -> Float -> m ()+setPosition self x y z+  = liftIO (js_setPosition (unAudioListener self) x y z)+ +foreign import javascript unsafe+        "$1[\"setOrientation\"]($2, $3, $4,\n$5, $6, $7)" js_setOrientation+        ::+        JSRef AudioListener ->+          Float -> Float -> Float -> Float -> Float -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioListener.setOrientation Mozilla AudioListener.setOrientation documentation> +setOrientation ::+               (MonadIO m) =>+                 AudioListener ->+                   Float -> Float -> Float -> Float -> Float -> Float -> m ()+setOrientation self x y z xUp yUp zUp+  = liftIO+      (js_setOrientation (unAudioListener self) x y z xUp yUp zUp)+ +foreign import javascript unsafe "$1[\"setVelocity\"]($2, $3, $4)"+        js_setVelocity ::+        JSRef AudioListener -> Float -> Float -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioListener.setVelocity Mozilla AudioListener.setVelocity documentation> +setVelocity ::+            (MonadIO m) => AudioListener -> Float -> Float -> Float -> m ()+setVelocity self x y z+  = liftIO (js_setVelocity (unAudioListener self) x y z)+ +foreign import javascript unsafe "$1[\"dopplerFactor\"] = $2;"+        js_setDopplerFactor :: JSRef AudioListener -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioListener.dopplerFactor Mozilla AudioListener.dopplerFactor documentation> +setDopplerFactor :: (MonadIO m) => AudioListener -> Float -> m ()+setDopplerFactor self val+  = liftIO (js_setDopplerFactor (unAudioListener self) val)+ +foreign import javascript unsafe "$1[\"dopplerFactor\"]"+        js_getDopplerFactor :: JSRef AudioListener -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioListener.dopplerFactor Mozilla AudioListener.dopplerFactor documentation> +getDopplerFactor :: (MonadIO m) => AudioListener -> m Float+getDopplerFactor self+  = liftIO (js_getDopplerFactor (unAudioListener self))+ +foreign import javascript unsafe "$1[\"speedOfSound\"] = $2;"+        js_setSpeedOfSound :: JSRef AudioListener -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioListener.speedOfSound Mozilla AudioListener.speedOfSound documentation> +setSpeedOfSound :: (MonadIO m) => AudioListener -> Float -> m ()+setSpeedOfSound self val+  = liftIO (js_setSpeedOfSound (unAudioListener self) val)+ +foreign import javascript unsafe "$1[\"speedOfSound\"]"+        js_getSpeedOfSound :: JSRef AudioListener -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioListener.speedOfSound Mozilla AudioListener.speedOfSound documentation> +getSpeedOfSound :: (MonadIO m) => AudioListener -> m Float+getSpeedOfSound self+  = liftIO (js_getSpeedOfSound (unAudioListener self))
+ src/GHCJS/DOM/JSFFI/Generated/AudioNode.hs view
@@ -0,0 +1,157 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.AudioNode+       (js_connect, connect, js_connectParam, connectParam, js_disconnect,+        disconnect, js_getContext, getContext, js_getNumberOfInputs,+        getNumberOfInputs, js_getNumberOfOutputs, getNumberOfOutputs,+        js_setChannelCount, setChannelCount, js_getChannelCount,+        getChannelCount, js_setChannelCountMode, setChannelCountMode,+        js_getChannelCountMode, getChannelCountMode,+        js_setChannelInterpretation, setChannelInterpretation,+        js_getChannelInterpretation, getChannelInterpretation, AudioNode,+        castToAudioNode, gTypeAudioNode, IsAudioNode, toAudioNode)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"connect\"]($2, $3, $4)"+        js_connect ::+        JSRef AudioNode -> JSRef AudioNode -> Word -> Word -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioNode.connect Mozilla AudioNode.connect documentation> +connect ::+        (MonadIO m, IsAudioNode self, IsAudioNode destination) =>+          self -> Maybe destination -> Word -> Word -> m ()+connect self destination output input+  = liftIO+      (js_connect (unAudioNode (toAudioNode self))+         (maybe jsNull (unAudioNode . toAudioNode) destination)+         output+         input)+ +foreign import javascript unsafe "$1[\"connect\"]($2, $3)"+        js_connectParam ::+        JSRef AudioNode -> JSRef AudioParam -> Word -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioNode.connect Mozilla AudioNode.connect documentation> +connectParam ::+             (MonadIO m, IsAudioNode self) =>+               self -> Maybe AudioParam -> Word -> m ()+connectParam self destination output+  = liftIO+      (js_connectParam (unAudioNode (toAudioNode self))+         (maybe jsNull pToJSRef destination)+         output)+ +foreign import javascript unsafe "$1[\"disconnect\"]($2)"+        js_disconnect :: JSRef AudioNode -> Word -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioNode.disconnect Mozilla AudioNode.disconnect documentation> +disconnect :: (MonadIO m, IsAudioNode self) => self -> Word -> m ()+disconnect self output+  = liftIO (js_disconnect (unAudioNode (toAudioNode self)) output)+ +foreign import javascript unsafe "$1[\"context\"]" js_getContext ::+        JSRef AudioNode -> IO (JSRef AudioContext)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioNode.context Mozilla AudioNode.context documentation> +getContext ::+           (MonadIO m, IsAudioNode self) => self -> m (Maybe AudioContext)+getContext self+  = liftIO+      ((js_getContext (unAudioNode (toAudioNode self))) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"numberOfInputs\"]"+        js_getNumberOfInputs :: JSRef AudioNode -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioNode.numberOfInputs Mozilla AudioNode.numberOfInputs documentation> +getNumberOfInputs ::+                  (MonadIO m, IsAudioNode self) => self -> m Word+getNumberOfInputs self+  = liftIO (js_getNumberOfInputs (unAudioNode (toAudioNode self)))+ +foreign import javascript unsafe "$1[\"numberOfOutputs\"]"+        js_getNumberOfOutputs :: JSRef AudioNode -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioNode.numberOfOutputs Mozilla AudioNode.numberOfOutputs documentation> +getNumberOfOutputs ::+                   (MonadIO m, IsAudioNode self) => self -> m Word+getNumberOfOutputs self+  = liftIO (js_getNumberOfOutputs (unAudioNode (toAudioNode self)))+ +foreign import javascript unsafe "$1[\"channelCount\"] = $2;"+        js_setChannelCount :: JSRef AudioNode -> Word -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioNode.channelCount Mozilla AudioNode.channelCount documentation> +setChannelCount ::+                (MonadIO m, IsAudioNode self) => self -> Word -> m ()+setChannelCount self val+  = liftIO (js_setChannelCount (unAudioNode (toAudioNode self)) val)+ +foreign import javascript unsafe "$1[\"channelCount\"]"+        js_getChannelCount :: JSRef AudioNode -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioNode.channelCount Mozilla AudioNode.channelCount documentation> +getChannelCount :: (MonadIO m, IsAudioNode self) => self -> m Word+getChannelCount self+  = liftIO (js_getChannelCount (unAudioNode (toAudioNode self)))+ +foreign import javascript unsafe "$1[\"channelCountMode\"] = $2;"+        js_setChannelCountMode :: JSRef AudioNode -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioNode.channelCountMode Mozilla AudioNode.channelCountMode documentation> +setChannelCountMode ::+                    (MonadIO m, IsAudioNode self, ToJSString val) =>+                      self -> val -> m ()+setChannelCountMode self val+  = liftIO+      (js_setChannelCountMode (unAudioNode (toAudioNode self))+         (toJSString val))+ +foreign import javascript unsafe "$1[\"channelCountMode\"]"+        js_getChannelCountMode :: JSRef AudioNode -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioNode.channelCountMode Mozilla AudioNode.channelCountMode documentation> +getChannelCountMode ::+                    (MonadIO m, IsAudioNode self, FromJSString result) =>+                      self -> m result+getChannelCountMode self+  = liftIO+      (fromJSString <$>+         (js_getChannelCountMode (unAudioNode (toAudioNode self))))+ +foreign import javascript unsafe+        "$1[\"channelInterpretation\"] = $2;" js_setChannelInterpretation+        :: JSRef AudioNode -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioNode.channelInterpretation Mozilla AudioNode.channelInterpretation documentation> +setChannelInterpretation ::+                         (MonadIO m, IsAudioNode self, ToJSString val) =>+                           self -> val -> m ()+setChannelInterpretation self val+  = liftIO+      (js_setChannelInterpretation (unAudioNode (toAudioNode self))+         (toJSString val))+ +foreign import javascript unsafe "$1[\"channelInterpretation\"]"+        js_getChannelInterpretation :: JSRef AudioNode -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioNode.channelInterpretation Mozilla AudioNode.channelInterpretation documentation> +getChannelInterpretation ::+                         (MonadIO m, IsAudioNode self, FromJSString result) =>+                           self -> m result+getChannelInterpretation self+  = liftIO+      (fromJSString <$>+         (js_getChannelInterpretation (unAudioNode (toAudioNode self))))
+ src/GHCJS/DOM/JSFFI/Generated/AudioParam.hs view
@@ -0,0 +1,160 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.AudioParam+       (js_setValueAtTime, setValueAtTime, js_linearRampToValueAtTime,+        linearRampToValueAtTime, js_exponentialRampToValueAtTime,+        exponentialRampToValueAtTime, js_setTargetAtTime, setTargetAtTime,+        js_setValueCurveAtTime, setValueCurveAtTime,+        js_cancelScheduledValues, cancelScheduledValues,+        js_setTargetValueAtTime, setTargetValueAtTime, js_setValue,+        setValue, js_getValue, getValue, js_getMinValue, getMinValue,+        js_getMaxValue, getMaxValue, js_getDefaultValue, getDefaultValue,+        js_getName, getName, js_getUnits, getUnits, AudioParam,+        castToAudioParam, gTypeAudioParam)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"setValueAtTime\"]($2, $3)"+        js_setValueAtTime :: JSRef AudioParam -> Float -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioParam.setValueAtTime Mozilla AudioParam.setValueAtTime documentation> +setValueAtTime ::+               (MonadIO m) => AudioParam -> Float -> Float -> m ()+setValueAtTime self value time+  = liftIO (js_setValueAtTime (unAudioParam self) value time)+ +foreign import javascript unsafe+        "$1[\"linearRampToValueAtTime\"]($2,\n$3)"+        js_linearRampToValueAtTime ::+        JSRef AudioParam -> Float -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioParam.linearRampToValueAtTime Mozilla AudioParam.linearRampToValueAtTime documentation> +linearRampToValueAtTime ::+                        (MonadIO m) => AudioParam -> Float -> Float -> m ()+linearRampToValueAtTime self value time+  = liftIO+      (js_linearRampToValueAtTime (unAudioParam self) value time)+ +foreign import javascript unsafe+        "$1[\"exponentialRampToValueAtTime\"]($2,\n$3)"+        js_exponentialRampToValueAtTime ::+        JSRef AudioParam -> Float -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioParam.exponentialRampToValueAtTime Mozilla AudioParam.exponentialRampToValueAtTime documentation> +exponentialRampToValueAtTime ::+                             (MonadIO m) => AudioParam -> Float -> Float -> m ()+exponentialRampToValueAtTime self value time+  = liftIO+      (js_exponentialRampToValueAtTime (unAudioParam self) value time)+ +foreign import javascript unsafe+        "$1[\"setTargetAtTime\"]($2, $3,\n$4)" js_setTargetAtTime ::+        JSRef AudioParam -> Float -> Float -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioParam.setTargetAtTime Mozilla AudioParam.setTargetAtTime documentation> +setTargetAtTime ::+                (MonadIO m) => AudioParam -> Float -> Float -> Float -> m ()+setTargetAtTime self target time timeConstant+  = liftIO+      (js_setTargetAtTime (unAudioParam self) target time timeConstant)+ +foreign import javascript unsafe+        "$1[\"setValueCurveAtTime\"]($2,\n$3, $4)" js_setValueCurveAtTime+        ::+        JSRef AudioParam -> JSRef Float32Array -> Float -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioParam.setValueCurveAtTime Mozilla AudioParam.setValueCurveAtTime documentation> +setValueCurveAtTime ::+                    (MonadIO m, IsFloat32Array values) =>+                      AudioParam -> Maybe values -> Float -> Float -> m ()+setValueCurveAtTime self values time duration+  = liftIO+      (js_setValueCurveAtTime (unAudioParam self)+         (maybe jsNull (unFloat32Array . toFloat32Array) values)+         time+         duration)+ +foreign import javascript unsafe+        "$1[\"cancelScheduledValues\"]($2)" js_cancelScheduledValues ::+        JSRef AudioParam -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioParam.cancelScheduledValues Mozilla AudioParam.cancelScheduledValues documentation> +cancelScheduledValues :: (MonadIO m) => AudioParam -> Float -> m ()+cancelScheduledValues self startTime+  = liftIO (js_cancelScheduledValues (unAudioParam self) startTime)+ +foreign import javascript unsafe+        "$1[\"setTargetValueAtTime\"]($2,\n$3, $4)" js_setTargetValueAtTime+        :: JSRef AudioParam -> Float -> Float -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioParam.setTargetValueAtTime Mozilla AudioParam.setTargetValueAtTime documentation> +setTargetValueAtTime ::+                     (MonadIO m) => AudioParam -> Float -> Float -> Float -> m ()+setTargetValueAtTime self targetValue time timeConstant+  = liftIO+      (js_setTargetValueAtTime (unAudioParam self) targetValue time+         timeConstant)+ +foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue+        :: JSRef AudioParam -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioParam.value Mozilla AudioParam.value documentation> +setValue :: (MonadIO m) => AudioParam -> Float -> m ()+setValue self val = liftIO (js_setValue (unAudioParam self) val)+ +foreign import javascript unsafe "$1[\"value\"]" js_getValue ::+        JSRef AudioParam -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioParam.value Mozilla AudioParam.value documentation> +getValue :: (MonadIO m) => AudioParam -> m Float+getValue self = liftIO (js_getValue (unAudioParam self))+ +foreign import javascript unsafe "$1[\"minValue\"]" js_getMinValue+        :: JSRef AudioParam -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioParam.minValue Mozilla AudioParam.minValue documentation> +getMinValue :: (MonadIO m) => AudioParam -> m Float+getMinValue self = liftIO (js_getMinValue (unAudioParam self))+ +foreign import javascript unsafe "$1[\"maxValue\"]" js_getMaxValue+        :: JSRef AudioParam -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioParam.maxValue Mozilla AudioParam.maxValue documentation> +getMaxValue :: (MonadIO m) => AudioParam -> m Float+getMaxValue self = liftIO (js_getMaxValue (unAudioParam self))+ +foreign import javascript unsafe "$1[\"defaultValue\"]"+        js_getDefaultValue :: JSRef AudioParam -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioParam.defaultValue Mozilla AudioParam.defaultValue documentation> +getDefaultValue :: (MonadIO m) => AudioParam -> m Float+getDefaultValue self+  = liftIO (js_getDefaultValue (unAudioParam self))+ +foreign import javascript unsafe "$1[\"name\"]" js_getName ::+        JSRef AudioParam -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioParam.name Mozilla AudioParam.name documentation> +getName ::+        (MonadIO m, FromJSString result) => AudioParam -> m result+getName self+  = liftIO (fromJSString <$> (js_getName (unAudioParam self)))+ +foreign import javascript unsafe "$1[\"units\"]" js_getUnits ::+        JSRef AudioParam -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioParam.units Mozilla AudioParam.units documentation> +getUnits :: (MonadIO m) => AudioParam -> m Word+getUnits self = liftIO (js_getUnits (unAudioParam self))
+ src/GHCJS/DOM/JSFFI/Generated/AudioProcessingEvent.hs view
@@ -0,0 +1,51 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.AudioProcessingEvent+       (js_getPlaybackTime, getPlaybackTime, js_getInputBuffer,+        getInputBuffer, js_getOutputBuffer, getOutputBuffer,+        AudioProcessingEvent, castToAudioProcessingEvent,+        gTypeAudioProcessingEvent)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"playbackTime\"]"+        js_getPlaybackTime :: JSRef AudioProcessingEvent -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioProcessingEvent.playbackTime Mozilla AudioProcessingEvent.playbackTime documentation> +getPlaybackTime :: (MonadIO m) => AudioProcessingEvent -> m Double+getPlaybackTime self+  = liftIO (js_getPlaybackTime (unAudioProcessingEvent self))+ +foreign import javascript unsafe "$1[\"inputBuffer\"]"+        js_getInputBuffer ::+        JSRef AudioProcessingEvent -> IO (JSRef AudioBuffer)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioProcessingEvent.inputBuffer Mozilla AudioProcessingEvent.inputBuffer documentation> +getInputBuffer ::+               (MonadIO m) => AudioProcessingEvent -> m (Maybe AudioBuffer)+getInputBuffer self+  = liftIO+      ((js_getInputBuffer (unAudioProcessingEvent self)) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"outputBuffer\"]"+        js_getOutputBuffer ::+        JSRef AudioProcessingEvent -> IO (JSRef AudioBuffer)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioProcessingEvent.outputBuffer Mozilla AudioProcessingEvent.outputBuffer documentation> +getOutputBuffer ::+                (MonadIO m) => AudioProcessingEvent -> m (Maybe AudioBuffer)+getOutputBuffer self+  = liftIO+      ((js_getOutputBuffer (unAudioProcessingEvent self)) >>= fromJSRef)
+ src/GHCJS/DOM/JSFFI/Generated/AudioStreamTrack.hs view
@@ -0,0 +1,33 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.AudioStreamTrack+       (js_newAudioStreamTrack, newAudioStreamTrack, AudioStreamTrack,+        castToAudioStreamTrack, gTypeAudioStreamTrack)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe+        "new window[\"AudioStreamTrack\"]($1)" js_newAudioStreamTrack ::+        JSRef Dictionary -> IO (JSRef AudioStreamTrack)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioStreamTrack Mozilla AudioStreamTrack documentation> +newAudioStreamTrack ::+                    (MonadIO m, IsDictionary audioConstraints) =>+                      Maybe audioConstraints -> m AudioStreamTrack+newAudioStreamTrack audioConstraints+  = liftIO+      (js_newAudioStreamTrack+         (maybe jsNull (unDictionary . toDictionary) audioConstraints)+         >>= fromJSRefUnchecked)
+ src/GHCJS/DOM/JSFFI/Generated/AudioTrack.hs view
@@ -0,0 +1,98 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.AudioTrack+       (js_getId, getId, js_setKind, setKind, js_getKind, getKind,+        js_getLabel, getLabel, js_setLanguage, setLanguage, js_getLanguage,+        getLanguage, js_setEnabled, setEnabled, js_getEnabled, getEnabled,+        js_getSourceBuffer, getSourceBuffer, AudioTrack, castToAudioTrack,+        gTypeAudioTrack)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"id\"]" js_getId ::+        JSRef AudioTrack -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrack.id Mozilla AudioTrack.id documentation> +getId :: (MonadIO m, FromJSString result) => AudioTrack -> m result+getId self+  = liftIO (fromJSString <$> (js_getId (unAudioTrack self)))+ +foreign import javascript unsafe "$1[\"kind\"] = $2;" js_setKind ::+        JSRef AudioTrack -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrack.kind Mozilla AudioTrack.kind documentation> +setKind :: (MonadIO m, ToJSString val) => AudioTrack -> val -> m ()+setKind self val+  = liftIO (js_setKind (unAudioTrack self) (toJSString val))+ +foreign import javascript unsafe "$1[\"kind\"]" js_getKind ::+        JSRef AudioTrack -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrack.kind Mozilla AudioTrack.kind documentation> +getKind ::+        (MonadIO m, FromJSString result) => AudioTrack -> m result+getKind self+  = liftIO (fromJSString <$> (js_getKind (unAudioTrack self)))+ +foreign import javascript unsafe "$1[\"label\"]" js_getLabel ::+        JSRef AudioTrack -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrack.label Mozilla AudioTrack.label documentation> +getLabel ::+         (MonadIO m, FromJSString result) => AudioTrack -> m result+getLabel self+  = liftIO (fromJSString <$> (js_getLabel (unAudioTrack self)))+ +foreign import javascript unsafe "$1[\"language\"] = $2;"+        js_setLanguage :: JSRef AudioTrack -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrack.language Mozilla AudioTrack.language documentation> +setLanguage ::+            (MonadIO m, ToJSString val) => AudioTrack -> val -> m ()+setLanguage self val+  = liftIO (js_setLanguage (unAudioTrack self) (toJSString val))+ +foreign import javascript unsafe "$1[\"language\"]" js_getLanguage+        :: JSRef AudioTrack -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrack.language Mozilla AudioTrack.language documentation> +getLanguage ::+            (MonadIO m, FromJSString result) => AudioTrack -> m result+getLanguage self+  = liftIO (fromJSString <$> (js_getLanguage (unAudioTrack self)))+ +foreign import javascript unsafe "$1[\"enabled\"] = $2;"+        js_setEnabled :: JSRef AudioTrack -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrack.enabled Mozilla AudioTrack.enabled documentation> +setEnabled :: (MonadIO m) => AudioTrack -> Bool -> m ()+setEnabled self val+  = liftIO (js_setEnabled (unAudioTrack self) val)+ +foreign import javascript unsafe "($1[\"enabled\"] ? 1 : 0)"+        js_getEnabled :: JSRef AudioTrack -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrack.enabled Mozilla AudioTrack.enabled documentation> +getEnabled :: (MonadIO m) => AudioTrack -> m Bool+getEnabled self = liftIO (js_getEnabled (unAudioTrack self))+ +foreign import javascript unsafe "$1[\"sourceBuffer\"]"+        js_getSourceBuffer :: JSRef AudioTrack -> IO (JSRef SourceBuffer)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrack.sourceBuffer Mozilla AudioTrack.sourceBuffer documentation> +getSourceBuffer ::+                (MonadIO m) => AudioTrack -> m (Maybe SourceBuffer)+getSourceBuffer self+  = liftIO ((js_getSourceBuffer (unAudioTrack self)) >>= fromJSRef)
+ src/GHCJS/DOM/JSFFI/Generated/AudioTrackList.hs view
@@ -0,0 +1,61 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.AudioTrackList+       (js_item, item, js_getTrackById, getTrackById, js_getLength,+        getLength, change, addTrack, removeTrack, AudioTrackList,+        castToAudioTrackList, gTypeAudioTrackList)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"item\"]($2)" js_item ::+        JSRef AudioTrackList -> Word -> IO (JSRef AudioTrack)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrackList.item Mozilla AudioTrackList.item documentation> +item ::+     (MonadIO m) => AudioTrackList -> Word -> m (Maybe AudioTrack)+item self index+  = liftIO ((js_item (unAudioTrackList self) index) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"getTrackById\"]($2)"+        js_getTrackById ::+        JSRef AudioTrackList -> JSString -> IO (JSRef AudioTrack)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrackList.getTrackById Mozilla AudioTrackList.getTrackById documentation> +getTrackById ::+             (MonadIO m, ToJSString id) =>+               AudioTrackList -> id -> m (Maybe AudioTrack)+getTrackById self id+  = liftIO+      ((js_getTrackById (unAudioTrackList self) (toJSString id)) >>=+         fromJSRef)+ +foreign import javascript unsafe "$1[\"length\"]" js_getLength ::+        JSRef AudioTrackList -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrackList.length Mozilla AudioTrackList.length documentation> +getLength :: (MonadIO m) => AudioTrackList -> m Word+getLength self = liftIO (js_getLength (unAudioTrackList self))++-- | <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/GHCJS/DOM/JSFFI/Generated/AutocompleteErrorEvent.hs view
@@ -0,0 +1,30 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.AutocompleteErrorEvent+       (js_getReason, getReason, AutocompleteErrorEvent,+        castToAutocompleteErrorEvent, gTypeAutocompleteErrorEvent)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"reason\"]" js_getReason ::+        JSRef AutocompleteErrorEvent -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AutocompleteErrorEvent.reason Mozilla AutocompleteErrorEvent.reason documentation> +getReason ::+          (MonadIO m, FromJSString result) =>+            AutocompleteErrorEvent -> m result+getReason self+  = liftIO+      (fromJSString <$> (js_getReason (unAutocompleteErrorEvent self)))
+ src/GHCJS/DOM/JSFFI/Generated/BarProp.hs view
@@ -0,0 +1,25 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.BarProp+       (js_getVisible, getVisible, BarProp, castToBarProp, gTypeBarProp)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "($1[\"visible\"] ? 1 : 0)"+        js_getVisible :: JSRef BarProp -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/BarProp.visible Mozilla BarProp.visible documentation> +getVisible :: (MonadIO m) => BarProp -> m Bool+getVisible self = liftIO (js_getVisible (unBarProp self))
+ src/GHCJS/DOM/JSFFI/Generated/BatteryManager.hs view
@@ -0,0 +1,70 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.BatteryManager+       (js_getCharging, getCharging, js_getChargingTime, getChargingTime,+        js_getDischargingTime, getDischargingTime, js_getLevel, getLevel,+        chargingChange, chargingTimeChange, dischargingTimeChange,+        levelChange, BatteryManager, castToBatteryManager,+        gTypeBatteryManager)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "($1[\"charging\"] ? 1 : 0)"+        js_getCharging :: JSRef BatteryManager -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/BatteryManager.charging Mozilla BatteryManager.charging documentation> +getCharging :: (MonadIO m) => BatteryManager -> m Bool+getCharging self = liftIO (js_getCharging (unBatteryManager self))+ +foreign import javascript unsafe "$1[\"chargingTime\"]"+        js_getChargingTime :: JSRef BatteryManager -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/BatteryManager.chargingTime Mozilla BatteryManager.chargingTime documentation> +getChargingTime :: (MonadIO m) => BatteryManager -> m Double+getChargingTime self+  = liftIO (js_getChargingTime (unBatteryManager self))+ +foreign import javascript unsafe "$1[\"dischargingTime\"]"+        js_getDischargingTime :: JSRef BatteryManager -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/BatteryManager.dischargingTime Mozilla BatteryManager.dischargingTime documentation> +getDischargingTime :: (MonadIO m) => BatteryManager -> m Double+getDischargingTime self+  = liftIO (js_getDischargingTime (unBatteryManager self))+ +foreign import javascript unsafe "$1[\"level\"]" js_getLevel ::+        JSRef BatteryManager -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/BatteryManager.level Mozilla BatteryManager.level documentation> +getLevel :: (MonadIO m) => BatteryManager -> m Double+getLevel self = liftIO (js_getLevel (unBatteryManager self))++-- | <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/GHCJS/DOM/JSFFI/Generated/BeforeLoadEvent.hs view
@@ -0,0 +1,28 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.BeforeLoadEvent+       (js_getUrl, getUrl, BeforeLoadEvent, castToBeforeLoadEvent,+        gTypeBeforeLoadEvent)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"url\"]" js_getUrl ::+        JSRef BeforeLoadEvent -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/BeforeLoadEvent.url Mozilla BeforeLoadEvent.url documentation> +getUrl ::+       (MonadIO m, FromJSString result) => BeforeLoadEvent -> m result+getUrl self+  = liftIO (fromJSString <$> (js_getUrl (unBeforeLoadEvent self)))
+ src/GHCJS/DOM/JSFFI/Generated/BeforeUnloadEvent.hs view
@@ -0,0 +1,40 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.BeforeUnloadEvent+       (js_setReturnValue, setReturnValue, js_getReturnValue,+        getReturnValue, BeforeUnloadEvent, castToBeforeUnloadEvent,+        gTypeBeforeUnloadEvent)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"returnValue\"] = $2;"+        js_setReturnValue :: JSRef BeforeUnloadEvent -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/BeforeUnloadEvent.returnValue Mozilla BeforeUnloadEvent.returnValue documentation> +setReturnValue ::+               (MonadIO m, ToJSString val) => BeforeUnloadEvent -> val -> m ()+setReturnValue self val+  = liftIO+      (js_setReturnValue (unBeforeUnloadEvent self) (toJSString val))+ +foreign import javascript unsafe "$1[\"returnValue\"]"+        js_getReturnValue :: JSRef BeforeUnloadEvent -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/BeforeUnloadEvent.returnValue Mozilla BeforeUnloadEvent.returnValue documentation> +getReturnValue ::+               (MonadIO m, FromJSString result) => BeforeUnloadEvent -> m result+getReturnValue self+  = liftIO+      (fromJSString <$> (js_getReturnValue (unBeforeUnloadEvent self)))
+ src/GHCJS/DOM/JSFFI/Generated/BiquadFilterNode.hs view
@@ -0,0 +1,106 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.BiquadFilterNode+       (js_getFrequencyResponse, getFrequencyResponse, pattern LOWPASS,+        pattern HIGHPASS, pattern BANDPASS, pattern LOWSHELF,+        pattern HIGHSHELF, pattern PEAKING, pattern NOTCH, pattern ALLPASS,+        js_setType, setType, js_getType, getType, js_getFrequency,+        getFrequency, js_getDetune, getDetune, js_getQ, getQ, js_getGain,+        getGain, BiquadFilterNode, castToBiquadFilterNode,+        gTypeBiquadFilterNode)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe+        "$1[\"getFrequencyResponse\"]($2,\n$3, $4)" js_getFrequencyResponse+        ::+        JSRef BiquadFilterNode ->+          JSRef Float32Array ->+            JSRef Float32Array -> JSRef Float32Array -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/BiquadFilterNode.getFrequencyResponse Mozilla BiquadFilterNode.getFrequencyResponse documentation> +getFrequencyResponse ::+                     (MonadIO m, IsFloat32Array frequencyHz, IsFloat32Array magResponse,+                      IsFloat32Array phaseResponse) =>+                       BiquadFilterNode ->+                         Maybe frequencyHz ->+                           Maybe magResponse -> Maybe phaseResponse -> m ()+getFrequencyResponse self frequencyHz magResponse phaseResponse+  = liftIO+      (js_getFrequencyResponse (unBiquadFilterNode self)+         (maybe jsNull (unFloat32Array . toFloat32Array) frequencyHz)+         (maybe jsNull (unFloat32Array . toFloat32Array) magResponse)+         (maybe jsNull (unFloat32Array . toFloat32Array) 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+ +foreign import javascript unsafe "$1[\"type\"] = $2;" js_setType ::+        JSRef BiquadFilterNode -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/BiquadFilterNode.type Mozilla BiquadFilterNode.type documentation> +setType ::+        (MonadIO m, ToJSString val) => BiquadFilterNode -> val -> m ()+setType self val+  = liftIO (js_setType (unBiquadFilterNode self) (toJSString val))+ +foreign import javascript unsafe "$1[\"type\"]" js_getType ::+        JSRef BiquadFilterNode -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/BiquadFilterNode.type Mozilla BiquadFilterNode.type documentation> +getType ::+        (MonadIO m, FromJSString result) => BiquadFilterNode -> m result+getType self+  = liftIO (fromJSString <$> (js_getType (unBiquadFilterNode self)))+ +foreign import javascript unsafe "$1[\"frequency\"]"+        js_getFrequency :: JSRef BiquadFilterNode -> IO (JSRef AudioParam)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/BiquadFilterNode.frequency Mozilla BiquadFilterNode.frequency documentation> +getFrequency ::+             (MonadIO m) => BiquadFilterNode -> m (Maybe AudioParam)+getFrequency self+  = liftIO+      ((js_getFrequency (unBiquadFilterNode self)) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"detune\"]" js_getDetune ::+        JSRef BiquadFilterNode -> IO (JSRef AudioParam)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/BiquadFilterNode.detune Mozilla BiquadFilterNode.detune documentation> +getDetune ::+          (MonadIO m) => BiquadFilterNode -> m (Maybe AudioParam)+getDetune self+  = liftIO ((js_getDetune (unBiquadFilterNode self)) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"Q\"]" js_getQ ::+        JSRef BiquadFilterNode -> IO (JSRef AudioParam)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/BiquadFilterNode.Q Mozilla BiquadFilterNode.Q documentation> +getQ :: (MonadIO m) => BiquadFilterNode -> m (Maybe AudioParam)+getQ self+  = liftIO ((js_getQ (unBiquadFilterNode self)) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"gain\"]" js_getGain ::+        JSRef BiquadFilterNode -> IO (JSRef AudioParam)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/BiquadFilterNode.gain Mozilla BiquadFilterNode.gain documentation> +getGain :: (MonadIO m) => BiquadFilterNode -> m (Maybe AudioParam)+getGain self+  = liftIO ((js_getGain (unBiquadFilterNode self)) >>= fromJSRef)
+ src/GHCJS/DOM/JSFFI/Generated/Blob.hs view
@@ -0,0 +1,74 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.Blob+       (js_newBlob, newBlob, js_newBlob', newBlob', js_slice, slice,+        js_getSize, getSize, js_getType, getType, Blob, castToBlob,+        gTypeBlob, IsBlob, toBlob)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "new window[\"Blob\"]()"+        js_newBlob :: IO (JSRef Blob)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Blob Mozilla Blob documentation> +newBlob :: (MonadIO m) => m Blob+newBlob = liftIO (js_newBlob >>= fromJSRefUnchecked)+ +foreign import javascript unsafe "new window[\"Blob\"]($1, $2)"+        js_newBlob' ::+        JSRef [JSRef a] -> JSRef BlobPropertyBag -> IO (JSRef Blob)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Blob Mozilla Blob documentation> +newBlob' ::+         (MonadIO m, IsBlobPropertyBag options) =>+           [JSRef a] -> Maybe options -> m Blob+newBlob' blobParts options+  = liftIO+      (toJSRef blobParts >>= \ blobParts' -> js_newBlob' blobParts'+         (maybe jsNull (unBlobPropertyBag . toBlobPropertyBag) options)+         >>= fromJSRefUnchecked)+ +foreign import javascript unsafe "$1[\"slice\"]($2, $3, $4)"+        js_slice ::+        JSRef Blob ->+          Double -> Double -> JSRef (Maybe JSString) -> IO (JSRef Blob)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Blob.slice Mozilla Blob.slice documentation> +slice ::+      (MonadIO m, IsBlob self, ToJSString contentType) =>+        self -> Int64 -> Int64 -> Maybe contentType -> m (Maybe Blob)+slice self start end contentType+  = liftIO+      ((js_slice (unBlob (toBlob self)) (fromIntegral start)+          (fromIntegral end)+          (toMaybeJSString contentType))+         >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"size\"]" js_getSize ::+        JSRef Blob -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Blob.size Mozilla Blob.size documentation> +getSize :: (MonadIO m, IsBlob self) => self -> m Word64+getSize self+  = liftIO (round <$> (js_getSize (unBlob (toBlob self))))+ +foreign import javascript unsafe "$1[\"type\"]" js_getType ::+        JSRef Blob -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Blob.type Mozilla Blob.type documentation> +getType ::+        (MonadIO m, IsBlob self, FromJSString result) => self -> m result+getType self+  = liftIO (fromJSString <$> (js_getType (unBlob (toBlob self))))
+ src/GHCJS/DOM/JSFFI/Generated/CSS.hs view
@@ -0,0 +1,42 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.CSS+       (js_supports2, supports2, js_supports, supports, CSS, castToCSS,+        gTypeCSS)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe+        "($1[\"supports\"]($2, $3) ? 1 : 0)" js_supports2 ::+        JSRef CSS -> JSString -> JSString -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSS.supports Mozilla CSS.supports documentation> +supports2 ::+          (MonadIO m, ToJSString property, ToJSString value) =>+            CSS -> property -> value -> m Bool+supports2 self property value+  = liftIO+      (js_supports2 (unCSS self) (toJSString property)+         (toJSString value))+ +foreign import javascript unsafe "($1[\"supports\"]($2) ? 1 : 0)"+        js_supports :: JSRef CSS -> JSString -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSS.supports Mozilla CSS.supports documentation> +supports ::+         (MonadIO m, ToJSString conditionText) =>+           CSS -> conditionText -> m Bool+supports self conditionText+  = liftIO (js_supports (unCSS self) (toJSString conditionText))
+ src/GHCJS/DOM/JSFFI/Generated/CSSCharsetRule.hs view
@@ -0,0 +1,41 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.CSSCharsetRule+       (js_setEncoding, setEncoding, js_getEncoding, getEncoding,+        CSSCharsetRule, castToCSSCharsetRule, gTypeCSSCharsetRule)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"encoding\"] = $2;"+        js_setEncoding ::+        JSRef CSSCharsetRule -> JSRef (Maybe JSString) -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSCharsetRule.encoding Mozilla CSSCharsetRule.encoding documentation> +setEncoding ::+            (MonadIO m, ToJSString val) => CSSCharsetRule -> Maybe val -> m ()+setEncoding self val+  = liftIO+      (js_setEncoding (unCSSCharsetRule self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"encoding\"]" js_getEncoding+        :: JSRef CSSCharsetRule -> IO (JSRef (Maybe JSString))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSCharsetRule.encoding Mozilla CSSCharsetRule.encoding documentation> +getEncoding ::+            (MonadIO m, FromJSString result) =>+              CSSCharsetRule -> m (Maybe result)+getEncoding self+  = liftIO+      (fromMaybeJSString <$> (js_getEncoding (unCSSCharsetRule self)))
+ src/GHCJS/DOM/JSFFI/Generated/CSSFontFaceLoadEvent.hs view
@@ -0,0 +1,40 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.CSSFontFaceLoadEvent+       (js_getFontface, getFontface, js_getError, getError,+        CSSFontFaceLoadEvent, castToCSSFontFaceLoadEvent,+        gTypeCSSFontFaceLoadEvent)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"fontface\"]" js_getFontface+        :: JSRef CSSFontFaceLoadEvent -> IO (JSRef CSSFontFaceRule)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSFontFaceLoadEvent.fontface Mozilla CSSFontFaceLoadEvent.fontface documentation> +getFontface ::+            (MonadIO m) => CSSFontFaceLoadEvent -> m (Maybe CSSFontFaceRule)+getFontface self+  = liftIO+      ((js_getFontface (unCSSFontFaceLoadEvent self)) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"error\"]" js_getError ::+        JSRef CSSFontFaceLoadEvent -> IO (JSRef DOMError)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSFontFaceLoadEvent.error Mozilla CSSFontFaceLoadEvent.error documentation> +getError ::+         (MonadIO m) => CSSFontFaceLoadEvent -> m (Maybe DOMError)+getError self+  = liftIO+      ((js_getError (unCSSFontFaceLoadEvent self)) >>= fromJSRef)
+ src/GHCJS/DOM/JSFFI/Generated/CSSFontFaceRule.hs view
@@ -0,0 +1,28 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.CSSFontFaceRule+       (js_getStyle, getStyle, CSSFontFaceRule, castToCSSFontFaceRule,+        gTypeCSSFontFaceRule)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"style\"]" js_getStyle ::+        JSRef CSSFontFaceRule -> IO (JSRef CSSStyleDeclaration)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSFontFaceRule.style Mozilla CSSFontFaceRule.style documentation> +getStyle ::+         (MonadIO m) => CSSFontFaceRule -> m (Maybe CSSStyleDeclaration)+getStyle self+  = liftIO ((js_getStyle (unCSSFontFaceRule self)) >>= fromJSRef)
+ src/GHCJS/DOM/JSFFI/Generated/CSSImportRule.hs view
@@ -0,0 +1,48 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.CSSImportRule+       (js_getHref, getHref, js_getMedia, getMedia, js_getStyleSheet,+        getStyleSheet, CSSImportRule, castToCSSImportRule,+        gTypeCSSImportRule)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"href\"]" js_getHref ::+        JSRef CSSImportRule -> IO (JSRef (Maybe JSString))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSImportRule.href Mozilla CSSImportRule.href documentation> +getHref ::+        (MonadIO m, FromJSString result) =>+          CSSImportRule -> m (Maybe result)+getHref self+  = liftIO+      (fromMaybeJSString <$> (js_getHref (unCSSImportRule self)))+ +foreign import javascript unsafe "$1[\"media\"]" js_getMedia ::+        JSRef CSSImportRule -> IO (JSRef MediaList)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSImportRule.media Mozilla CSSImportRule.media documentation> +getMedia :: (MonadIO m) => CSSImportRule -> m (Maybe MediaList)+getMedia self+  = liftIO ((js_getMedia (unCSSImportRule self)) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"styleSheet\"]"+        js_getStyleSheet :: JSRef CSSImportRule -> IO (JSRef CSSStyleSheet)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSImportRule.styleSheet Mozilla CSSImportRule.styleSheet documentation> +getStyleSheet ::+              (MonadIO m) => CSSImportRule -> m (Maybe CSSStyleSheet)+getStyleSheet self+  = liftIO ((js_getStyleSheet (unCSSImportRule self)) >>= fromJSRef)
+ src/GHCJS/DOM/JSFFI/Generated/CSSKeyframeRule.hs view
@@ -0,0 +1,48 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.CSSKeyframeRule+       (js_setKeyText, setKeyText, js_getKeyText, getKeyText, js_getStyle,+        getStyle, CSSKeyframeRule, castToCSSKeyframeRule,+        gTypeCSSKeyframeRule)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"keyText\"] = $2;"+        js_setKeyText :: JSRef CSSKeyframeRule -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframeRule.keyText Mozilla CSSKeyframeRule.keyText documentation> +setKeyText ::+           (MonadIO m, ToJSString val) => CSSKeyframeRule -> val -> m ()+setKeyText self val+  = liftIO (js_setKeyText (unCSSKeyframeRule self) (toJSString val))+ +foreign import javascript unsafe "$1[\"keyText\"]" js_getKeyText ::+        JSRef CSSKeyframeRule -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframeRule.keyText Mozilla CSSKeyframeRule.keyText documentation> +getKeyText ::+           (MonadIO m, FromJSString result) => CSSKeyframeRule -> m result+getKeyText self+  = liftIO+      (fromJSString <$> (js_getKeyText (unCSSKeyframeRule self)))+ +foreign import javascript unsafe "$1[\"style\"]" js_getStyle ::+        JSRef CSSKeyframeRule -> IO (JSRef CSSStyleDeclaration)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframeRule.style Mozilla CSSKeyframeRule.style documentation> +getStyle ::+         (MonadIO m) => CSSKeyframeRule -> m (Maybe CSSStyleDeclaration)+getStyle self+  = liftIO ((js_getStyle (unCSSKeyframeRule self)) >>= fromJSRef)
+ src/GHCJS/DOM/JSFFI/Generated/CSSKeyframesRule.hs view
@@ -0,0 +1,104 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.CSSKeyframesRule+       (js_insertRule, insertRule, js_appendRule, appendRule,+        js_deleteRule, deleteRule, js_findRule, findRule, js__get, _get,+        js_setName, setName, js_getName, getName, js_getCssRules,+        getCssRules, CSSKeyframesRule, castToCSSKeyframesRule,+        gTypeCSSKeyframesRule)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"insertRule\"]($2)"+        js_insertRule :: JSRef CSSKeyframesRule -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframesRule.insertRule Mozilla CSSKeyframesRule.insertRule documentation> +insertRule ::+           (MonadIO m, ToJSString rule) => CSSKeyframesRule -> rule -> m ()+insertRule self rule+  = liftIO+      (js_insertRule (unCSSKeyframesRule self) (toJSString rule))+ +foreign import javascript unsafe "$1[\"appendRule\"]($2)"+        js_appendRule :: JSRef CSSKeyframesRule -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframesRule.appendRule Mozilla CSSKeyframesRule.appendRule documentation> +appendRule ::+           (MonadIO m, ToJSString rule) => CSSKeyframesRule -> rule -> m ()+appendRule self rule+  = liftIO+      (js_appendRule (unCSSKeyframesRule self) (toJSString rule))+ +foreign import javascript unsafe "$1[\"deleteRule\"]($2)"+        js_deleteRule :: JSRef CSSKeyframesRule -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframesRule.deleteRule Mozilla CSSKeyframesRule.deleteRule documentation> +deleteRule ::+           (MonadIO m, ToJSString key) => CSSKeyframesRule -> key -> m ()+deleteRule self key+  = liftIO (js_deleteRule (unCSSKeyframesRule self) (toJSString key))+ +foreign import javascript unsafe "$1[\"findRule\"]($2)" js_findRule+        :: JSRef CSSKeyframesRule -> JSString -> IO (JSRef CSSKeyframeRule)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframesRule.findRule Mozilla CSSKeyframesRule.findRule documentation> +findRule ::+         (MonadIO m, ToJSString key) =>+           CSSKeyframesRule -> key -> m (Maybe CSSKeyframeRule)+findRule self key+  = liftIO+      ((js_findRule (unCSSKeyframesRule self) (toJSString key)) >>=+         fromJSRef)+ +foreign import javascript unsafe "$1[\"_get\"]($2)" js__get ::+        JSRef CSSKeyframesRule -> Word -> IO (JSRef CSSKeyframeRule)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframesRule._get Mozilla CSSKeyframesRule._get documentation> +_get ::+     (MonadIO m) =>+       CSSKeyframesRule -> Word -> m (Maybe CSSKeyframeRule)+_get self index+  = liftIO ((js__get (unCSSKeyframesRule self) index) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName ::+        JSRef CSSKeyframesRule -> JSRef (Maybe JSString) -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframesRule.name Mozilla CSSKeyframesRule.name documentation> +setName ::+        (MonadIO m, ToJSString val) =>+          CSSKeyframesRule -> Maybe val -> m ()+setName self val+  = liftIO+      (js_setName (unCSSKeyframesRule self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"name\"]" js_getName ::+        JSRef CSSKeyframesRule -> IO (JSRef (Maybe JSString))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframesRule.name Mozilla CSSKeyframesRule.name documentation> +getName ::+        (MonadIO m, FromJSString result) =>+          CSSKeyframesRule -> m (Maybe result)+getName self+  = liftIO+      (fromMaybeJSString <$> (js_getName (unCSSKeyframesRule self)))+ +foreign import javascript unsafe "$1[\"cssRules\"]" js_getCssRules+        :: JSRef CSSKeyframesRule -> IO (JSRef CSSRuleList)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframesRule.cssRules Mozilla CSSKeyframesRule.cssRules documentation> +getCssRules ::+            (MonadIO m) => CSSKeyframesRule -> m (Maybe CSSRuleList)+getCssRules self+  = liftIO ((js_getCssRules (unCSSKeyframesRule self)) >>= fromJSRef)
+ src/GHCJS/DOM/JSFFI/Generated/CSSMediaRule.hs view
@@ -0,0 +1,55 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.CSSMediaRule+       (js_insertRule, insertRule, js_deleteRule, deleteRule, js_getMedia,+        getMedia, js_getCssRules, getCssRules, CSSMediaRule,+        castToCSSMediaRule, gTypeCSSMediaRule)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"insertRule\"]($2, $3)"+        js_insertRule :: JSRef CSSMediaRule -> JSString -> Word -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSMediaRule.insertRule Mozilla CSSMediaRule.insertRule documentation> +insertRule ::+           (MonadIO m, ToJSString rule) =>+             CSSMediaRule -> rule -> Word -> m Word+insertRule self rule index+  = liftIO+      (js_insertRule (unCSSMediaRule self) (toJSString rule) index)+ +foreign import javascript unsafe "$1[\"deleteRule\"]($2)"+        js_deleteRule :: JSRef CSSMediaRule -> Word -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSMediaRule.deleteRule Mozilla CSSMediaRule.deleteRule documentation> +deleteRule :: (MonadIO m) => CSSMediaRule -> Word -> m ()+deleteRule self index+  = liftIO (js_deleteRule (unCSSMediaRule self) index)+ +foreign import javascript unsafe "$1[\"media\"]" js_getMedia ::+        JSRef CSSMediaRule -> IO (JSRef MediaList)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSMediaRule.media Mozilla CSSMediaRule.media documentation> +getMedia :: (MonadIO m) => CSSMediaRule -> m (Maybe MediaList)+getMedia self+  = liftIO ((js_getMedia (unCSSMediaRule self)) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"cssRules\"]" js_getCssRules+        :: JSRef CSSMediaRule -> IO (JSRef CSSRuleList)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSMediaRule.cssRules Mozilla CSSMediaRule.cssRules documentation> +getCssRules :: (MonadIO m) => CSSMediaRule -> m (Maybe CSSRuleList)+getCssRules self+  = liftIO ((js_getCssRules (unCSSMediaRule self)) >>= fromJSRef)
+ src/GHCJS/DOM/JSFFI/Generated/CSSPageRule.hs view
@@ -0,0 +1,51 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.CSSPageRule+       (js_setSelectorText, setSelectorText, js_getSelectorText,+        getSelectorText, js_getStyle, getStyle, CSSPageRule,+        castToCSSPageRule, gTypeCSSPageRule)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"selectorText\"] = $2;"+        js_setSelectorText ::+        JSRef CSSPageRule -> JSRef (Maybe JSString) -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPageRule.selectorText Mozilla CSSPageRule.selectorText documentation> +setSelectorText ::+                (MonadIO m, ToJSString val) => CSSPageRule -> Maybe val -> m ()+setSelectorText self val+  = liftIO+      (js_setSelectorText (unCSSPageRule self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"selectorText\"]"+        js_getSelectorText ::+        JSRef CSSPageRule -> IO (JSRef (Maybe JSString))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPageRule.selectorText Mozilla CSSPageRule.selectorText documentation> +getSelectorText ::+                (MonadIO m, FromJSString result) => CSSPageRule -> m (Maybe result)+getSelectorText self+  = liftIO+      (fromMaybeJSString <$> (js_getSelectorText (unCSSPageRule self)))+ +foreign import javascript unsafe "$1[\"style\"]" js_getStyle ::+        JSRef CSSPageRule -> IO (JSRef CSSStyleDeclaration)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPageRule.style Mozilla CSSPageRule.style documentation> +getStyle ::+         (MonadIO m) => CSSPageRule -> m (Maybe CSSStyleDeclaration)+getStyle self+  = liftIO ((js_getStyle (unCSSPageRule self)) >>= fromJSRef)
+ src/GHCJS/DOM/JSFFI/Generated/CSSPrimitiveValue.hs view
@@ -0,0 +1,143 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.CSSPrimitiveValue+       (js_setFloatValue, setFloatValue, js_getFloatValue, getFloatValue,+        js_setStringValue, setStringValue, js_getStringValue,+        getStringValue, js_getCounterValue, getCounterValue,+        js_getRectValue, getRectValue, js_getRGBColorValue,+        getRGBColorValue, pattern CSS_UNKNOWN, pattern CSS_NUMBER,+        pattern CSS_PERCENTAGE, pattern CSS_EMS, pattern CSS_EXS,+        pattern CSS_PX, pattern CSS_CM, pattern CSS_MM, pattern CSS_IN,+        pattern CSS_PT, pattern CSS_PC, pattern CSS_DEG, pattern CSS_RAD,+        pattern CSS_GRAD, pattern CSS_MS, pattern CSS_S, pattern CSS_HZ,+        pattern CSS_KHZ, pattern CSS_DIMENSION, pattern CSS_STRING,+        pattern CSS_URI, pattern CSS_IDENT, pattern CSS_ATTR,+        pattern CSS_COUNTER, pattern CSS_RECT, pattern CSS_RGBCOLOR,+        pattern CSS_VW, pattern CSS_VH, pattern CSS_VMIN, pattern CSS_VMAX,+        js_getPrimitiveType, getPrimitiveType, CSSPrimitiveValue,+        castToCSSPrimitiveValue, gTypeCSSPrimitiveValue)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"setFloatValue\"]($2, $3)"+        js_setFloatValue ::+        JSRef CSSPrimitiveValue -> Word -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPrimitiveValue.setFloatValue Mozilla CSSPrimitiveValue.setFloatValue documentation> +setFloatValue ::+              (MonadIO m) => CSSPrimitiveValue -> Word -> Float -> m ()+setFloatValue self unitType floatValue+  = liftIO+      (js_setFloatValue (unCSSPrimitiveValue self) unitType floatValue)+ +foreign import javascript unsafe "$1[\"getFloatValue\"]($2)"+        js_getFloatValue :: JSRef CSSPrimitiveValue -> Word -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPrimitiveValue.getFloatValue Mozilla CSSPrimitiveValue.getFloatValue documentation> +getFloatValue ::+              (MonadIO m) => CSSPrimitiveValue -> Word -> m Float+getFloatValue self unitType+  = liftIO (js_getFloatValue (unCSSPrimitiveValue self) unitType)+ +foreign import javascript unsafe "$1[\"setStringValue\"]($2, $3)"+        js_setStringValue ::+        JSRef CSSPrimitiveValue -> Word -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPrimitiveValue.setStringValue Mozilla CSSPrimitiveValue.setStringValue documentation> +setStringValue ::+               (MonadIO m, ToJSString stringValue) =>+                 CSSPrimitiveValue -> Word -> stringValue -> m ()+setStringValue self stringType stringValue+  = liftIO+      (js_setStringValue (unCSSPrimitiveValue self) stringType+         (toJSString stringValue))+ +foreign import javascript unsafe "$1[\"getStringValue\"]()"+        js_getStringValue :: JSRef CSSPrimitiveValue -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPrimitiveValue.getStringValue Mozilla CSSPrimitiveValue.getStringValue documentation> +getStringValue ::+               (MonadIO m, FromJSString result) => CSSPrimitiveValue -> m result+getStringValue self+  = liftIO+      (fromJSString <$> (js_getStringValue (unCSSPrimitiveValue self)))+ +foreign import javascript unsafe "$1[\"getCounterValue\"]()"+        js_getCounterValue :: JSRef CSSPrimitiveValue -> IO (JSRef Counter)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPrimitiveValue.getCounterValue Mozilla CSSPrimitiveValue.getCounterValue documentation> +getCounterValue ::+                (MonadIO m) => CSSPrimitiveValue -> m (Maybe Counter)+getCounterValue self+  = liftIO+      ((js_getCounterValue (unCSSPrimitiveValue self)) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"getRectValue\"]()"+        js_getRectValue :: JSRef CSSPrimitiveValue -> IO (JSRef Rect)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPrimitiveValue.getRectValue Mozilla CSSPrimitiveValue.getRectValue documentation> +getRectValue :: (MonadIO m) => CSSPrimitiveValue -> m (Maybe Rect)+getRectValue self+  = liftIO+      ((js_getRectValue (unCSSPrimitiveValue self)) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"getRGBColorValue\"]()"+        js_getRGBColorValue ::+        JSRef CSSPrimitiveValue -> IO (JSRef RGBColor)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPrimitiveValue.getRGBColorValue Mozilla CSSPrimitiveValue.getRGBColorValue documentation> +getRGBColorValue ::+                 (MonadIO m) => CSSPrimitiveValue -> m (Maybe RGBColor)+getRGBColorValue self+  = liftIO+      ((js_getRGBColorValue (unCSSPrimitiveValue self)) >>= fromJSRef)+pattern CSS_UNKNOWN = 0+pattern CSS_NUMBER = 1+pattern CSS_PERCENTAGE = 2+pattern CSS_EMS = 3+pattern CSS_EXS = 4+pattern CSS_PX = 5+pattern CSS_CM = 6+pattern CSS_MM = 7+pattern CSS_IN = 8+pattern CSS_PT = 9+pattern CSS_PC = 10+pattern CSS_DEG = 11+pattern CSS_RAD = 12+pattern CSS_GRAD = 13+pattern CSS_MS = 14+pattern CSS_S = 15+pattern CSS_HZ = 16+pattern CSS_KHZ = 17+pattern CSS_DIMENSION = 18+pattern CSS_STRING = 19+pattern CSS_URI = 20+pattern CSS_IDENT = 21+pattern CSS_ATTR = 22+pattern CSS_COUNTER = 23+pattern CSS_RECT = 24+pattern CSS_RGBCOLOR = 25+pattern CSS_VW = 26+pattern CSS_VH = 27+pattern CSS_VMIN = 28+pattern CSS_VMAX = 29+ +foreign import javascript unsafe "$1[\"primitiveType\"]"+        js_getPrimitiveType :: JSRef CSSPrimitiveValue -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPrimitiveValue.primitiveType Mozilla CSSPrimitiveValue.primitiveType documentation> +getPrimitiveType :: (MonadIO m) => CSSPrimitiveValue -> m Word+getPrimitiveType self+  = liftIO (js_getPrimitiveType (unCSSPrimitiveValue self))
+ src/GHCJS/DOM/JSFFI/Generated/CSSRule.hs view
@@ -0,0 +1,91 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.CSSRule+       (pattern UNKNOWN_RULE, pattern STYLE_RULE, pattern CHARSET_RULE,+        pattern IMPORT_RULE, pattern MEDIA_RULE, pattern FONT_FACE_RULE,+        pattern PAGE_RULE, pattern KEYFRAMES_RULE, pattern KEYFRAME_RULE,+        pattern SUPPORTS_RULE, pattern WEBKIT_VIEWPORT_RULE,+        pattern WEBKIT_REGION_RULE, pattern WEBKIT_KEYFRAMES_RULE,+        pattern WEBKIT_KEYFRAME_RULE, js_getType, getType, js_setCssText,+        setCssText, js_getCssText, getCssText, js_getParentStyleSheet,+        getParentStyleSheet, js_getParentRule, getParentRule, CSSRule,+        castToCSSRule, gTypeCSSRule, IsCSSRule, toCSSRule)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.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+ +foreign import javascript unsafe "$1[\"type\"]" js_getType ::+        JSRef CSSRule -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSRule.type Mozilla CSSRule.type documentation> +getType :: (MonadIO m, IsCSSRule self) => self -> m Word+getType self = liftIO (js_getType (unCSSRule (toCSSRule self)))+ +foreign import javascript unsafe "$1[\"cssText\"] = $2;"+        js_setCssText :: JSRef CSSRule -> JSRef (Maybe JSString) -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSRule.cssText Mozilla CSSRule.cssText documentation> +setCssText ::+           (MonadIO m, IsCSSRule self, ToJSString val) =>+             self -> Maybe val -> m ()+setCssText self val+  = liftIO+      (js_setCssText (unCSSRule (toCSSRule self)) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"cssText\"]" js_getCssText ::+        JSRef CSSRule -> IO (JSRef (Maybe JSString))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSRule.cssText Mozilla CSSRule.cssText documentation> +getCssText ::+           (MonadIO m, IsCSSRule self, FromJSString result) =>+             self -> m (Maybe result)+getCssText self+  = liftIO+      (fromMaybeJSString <$>+         (js_getCssText (unCSSRule (toCSSRule self))))+ +foreign import javascript unsafe "$1[\"parentStyleSheet\"]"+        js_getParentStyleSheet :: JSRef CSSRule -> IO (JSRef CSSStyleSheet)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSRule.parentStyleSheet Mozilla CSSRule.parentStyleSheet documentation> +getParentStyleSheet ::+                    (MonadIO m, IsCSSRule self) => self -> m (Maybe CSSStyleSheet)+getParentStyleSheet self+  = liftIO+      ((js_getParentStyleSheet (unCSSRule (toCSSRule self))) >>=+         fromJSRef)+ +foreign import javascript unsafe "$1[\"parentRule\"]"+        js_getParentRule :: JSRef CSSRule -> IO (JSRef CSSRule)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSRule.parentRule Mozilla CSSRule.parentRule documentation> +getParentRule ::+              (MonadIO m, IsCSSRule self) => self -> m (Maybe CSSRule)+getParentRule self+  = liftIO+      ((js_getParentRule (unCSSRule (toCSSRule self))) >>= fromJSRef)
+ src/GHCJS/DOM/JSFFI/Generated/CSSRuleList.hs view
@@ -0,0 +1,34 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.CSSRuleList+       (js_item, item, js_getLength, getLength, CSSRuleList,+        castToCSSRuleList, gTypeCSSRuleList)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"item\"]($2)" js_item ::+        JSRef CSSRuleList -> Word -> IO (JSRef CSSRule)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSRuleList.item Mozilla CSSRuleList.item documentation> +item :: (MonadIO m) => CSSRuleList -> Word -> m (Maybe CSSRule)+item self index+  = liftIO ((js_item (unCSSRuleList self) index) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"length\"]" js_getLength ::+        JSRef CSSRuleList -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSRuleList.length Mozilla CSSRuleList.length documentation> +getLength :: (MonadIO m) => CSSRuleList -> m Word+getLength self = liftIO (js_getLength (unCSSRuleList self))
+ src/GHCJS/DOM/JSFFI/Generated/CSSStyleDeclaration.hs view
@@ -0,0 +1,182 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.CSSStyleDeclaration+       (js_getPropertyValue, getPropertyValue, js_getPropertyCSSValue,+        getPropertyCSSValue, js_removeProperty, removeProperty,+        js_getPropertyPriority, getPropertyPriority, js_setProperty,+        setProperty, js_item, item, js_getPropertyShorthand,+        getPropertyShorthand, js_isPropertyImplicit, isPropertyImplicit,+        js_setCssText, setCssText, js_getCssText, getCssText, js_getLength,+        getLength, js_getParentRule, getParentRule, CSSStyleDeclaration,+        castToCSSStyleDeclaration, gTypeCSSStyleDeclaration)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"getPropertyValue\"]($2)"+        js_getPropertyValue ::+        JSRef CSSStyleDeclaration ->+          JSString -> IO (JSRef (Maybe JSString))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.getPropertyValue Mozilla CSSStyleDeclaration.getPropertyValue documentation> +getPropertyValue ::+                 (MonadIO m, ToJSString propertyName, FromJSString result) =>+                   CSSStyleDeclaration -> propertyName -> m (Maybe result)+getPropertyValue self propertyName+  = liftIO+      (fromMaybeJSString <$>+         (js_getPropertyValue (unCSSStyleDeclaration self)+            (toJSString propertyName)))+ +foreign import javascript unsafe "$1[\"getPropertyCSSValue\"]($2)"+        js_getPropertyCSSValue ::+        JSRef CSSStyleDeclaration -> JSString -> IO (JSRef CSSValue)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.getPropertyCSSValue Mozilla CSSStyleDeclaration.getPropertyCSSValue documentation> +getPropertyCSSValue ::+                    (MonadIO m, ToJSString propertyName) =>+                      CSSStyleDeclaration -> propertyName -> m (Maybe CSSValue)+getPropertyCSSValue self propertyName+  = liftIO+      ((js_getPropertyCSSValue (unCSSStyleDeclaration self)+          (toJSString propertyName))+         >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"removeProperty\"]($2)"+        js_removeProperty ::+        JSRef CSSStyleDeclaration ->+          JSString -> IO (JSRef (Maybe JSString))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.removeProperty Mozilla CSSStyleDeclaration.removeProperty documentation> +removeProperty ::+               (MonadIO m, ToJSString propertyName, FromJSString result) =>+                 CSSStyleDeclaration -> propertyName -> m (Maybe result)+removeProperty self propertyName+  = liftIO+      (fromMaybeJSString <$>+         (js_removeProperty (unCSSStyleDeclaration self)+            (toJSString propertyName)))+ +foreign import javascript unsafe "$1[\"getPropertyPriority\"]($2)"+        js_getPropertyPriority ::+        JSRef CSSStyleDeclaration ->+          JSString -> IO (JSRef (Maybe JSString))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.getPropertyPriority Mozilla CSSStyleDeclaration.getPropertyPriority documentation> +getPropertyPriority ::+                    (MonadIO m, ToJSString propertyName, FromJSString result) =>+                      CSSStyleDeclaration -> propertyName -> m (Maybe result)+getPropertyPriority self propertyName+  = liftIO+      (fromMaybeJSString <$>+         (js_getPropertyPriority (unCSSStyleDeclaration self)+            (toJSString propertyName)))+ +foreign import javascript unsafe "$1[\"setProperty\"]($2, $3, $4)"+        js_setProperty ::+        JSRef CSSStyleDeclaration ->+          JSString -> JSRef (Maybe JSString) -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.setProperty Mozilla CSSStyleDeclaration.setProperty documentation> +setProperty ::+            (MonadIO m, ToJSString propertyName, ToJSString value,+             ToJSString priority) =>+              CSSStyleDeclaration ->+                propertyName -> Maybe value -> priority -> m ()+setProperty self propertyName value priority+  = liftIO+      (js_setProperty (unCSSStyleDeclaration self)+         (toJSString propertyName)+         (toMaybeJSString value)+         (toJSString priority))+ +foreign import javascript unsafe "$1[\"item\"]($2)" js_item ::+        JSRef CSSStyleDeclaration -> Word -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.item Mozilla CSSStyleDeclaration.item documentation> +item ::+     (MonadIO m, FromJSString result) =>+       CSSStyleDeclaration -> Word -> m result+item self index+  = liftIO+      (fromJSString <$> (js_item (unCSSStyleDeclaration self) index))+ +foreign import javascript unsafe "$1[\"getPropertyShorthand\"]($2)"+        js_getPropertyShorthand ::+        JSRef CSSStyleDeclaration ->+          JSString -> IO (JSRef (Maybe JSString))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.getPropertyShorthand Mozilla CSSStyleDeclaration.getPropertyShorthand documentation> +getPropertyShorthand ::+                     (MonadIO m, ToJSString propertyName, FromJSString result) =>+                       CSSStyleDeclaration -> propertyName -> m (Maybe result)+getPropertyShorthand self propertyName+  = liftIO+      (fromMaybeJSString <$>+         (js_getPropertyShorthand (unCSSStyleDeclaration self)+            (toJSString propertyName)))+ +foreign import javascript unsafe+        "($1[\"isPropertyImplicit\"]($2) ? 1 : 0)" js_isPropertyImplicit ::+        JSRef CSSStyleDeclaration -> JSString -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.isPropertyImplicit Mozilla CSSStyleDeclaration.isPropertyImplicit documentation> +isPropertyImplicit ::+                   (MonadIO m, ToJSString propertyName) =>+                     CSSStyleDeclaration -> propertyName -> m Bool+isPropertyImplicit self propertyName+  = liftIO+      (js_isPropertyImplicit (unCSSStyleDeclaration self)+         (toJSString propertyName))+ +foreign import javascript unsafe "$1[\"cssText\"] = $2;"+        js_setCssText ::+        JSRef CSSStyleDeclaration -> JSRef (Maybe JSString) -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.cssText Mozilla CSSStyleDeclaration.cssText documentation> +setCssText ::+           (MonadIO m, ToJSString val) =>+             CSSStyleDeclaration -> Maybe val -> m ()+setCssText self val+  = liftIO+      (js_setCssText (unCSSStyleDeclaration self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"cssText\"]" js_getCssText ::+        JSRef CSSStyleDeclaration -> IO (JSRef (Maybe JSString))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.cssText Mozilla CSSStyleDeclaration.cssText documentation> +getCssText ::+           (MonadIO m, FromJSString result) =>+             CSSStyleDeclaration -> m (Maybe result)+getCssText self+  = liftIO+      (fromMaybeJSString <$>+         (js_getCssText (unCSSStyleDeclaration self)))+ +foreign import javascript unsafe "$1[\"length\"]" js_getLength ::+        JSRef CSSStyleDeclaration -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.length Mozilla CSSStyleDeclaration.length documentation> +getLength :: (MonadIO m) => CSSStyleDeclaration -> m Word+getLength self = liftIO (js_getLength (unCSSStyleDeclaration self))+ +foreign import javascript unsafe "$1[\"parentRule\"]"+        js_getParentRule :: JSRef CSSStyleDeclaration -> IO (JSRef CSSRule)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.parentRule Mozilla CSSStyleDeclaration.parentRule documentation> +getParentRule ::+              (MonadIO m) => CSSStyleDeclaration -> m (Maybe CSSRule)+getParentRule self+  = liftIO+      ((js_getParentRule (unCSSStyleDeclaration self)) >>= fromJSRef)
+ src/GHCJS/DOM/JSFFI/Generated/CSSStyleRule.hs view
@@ -0,0 +1,52 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.CSSStyleRule+       (js_setSelectorText, setSelectorText, js_getSelectorText,+        getSelectorText, js_getStyle, getStyle, CSSStyleRule,+        castToCSSStyleRule, gTypeCSSStyleRule)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"selectorText\"] = $2;"+        js_setSelectorText ::+        JSRef CSSStyleRule -> JSRef (Maybe JSString) -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleRule.selectorText Mozilla CSSStyleRule.selectorText documentation> +setSelectorText ::+                (MonadIO m, ToJSString val) => CSSStyleRule -> Maybe val -> m ()+setSelectorText self val+  = liftIO+      (js_setSelectorText (unCSSStyleRule self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"selectorText\"]"+        js_getSelectorText ::+        JSRef CSSStyleRule -> IO (JSRef (Maybe JSString))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleRule.selectorText Mozilla CSSStyleRule.selectorText documentation> +getSelectorText ::+                (MonadIO m, FromJSString result) =>+                  CSSStyleRule -> m (Maybe result)+getSelectorText self+  = liftIO+      (fromMaybeJSString <$> (js_getSelectorText (unCSSStyleRule self)))+ +foreign import javascript unsafe "$1[\"style\"]" js_getStyle ::+        JSRef CSSStyleRule -> IO (JSRef CSSStyleDeclaration)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleRule.style Mozilla CSSStyleRule.style documentation> +getStyle ::+         (MonadIO m) => CSSStyleRule -> m (Maybe CSSStyleDeclaration)+getStyle self+  = liftIO ((js_getStyle (unCSSStyleRule self)) >>= fromJSRef)
+ src/GHCJS/DOM/JSFFI/Generated/CSSStyleSheet.hs view
@@ -0,0 +1,87 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.CSSStyleSheet+       (js_insertRule, insertRule, js_deleteRule, deleteRule, js_addRule,+        addRule, js_removeRule, removeRule, js_getOwnerRule, getOwnerRule,+        js_getCssRules, getCssRules, js_getRules, getRules, CSSStyleSheet,+        castToCSSStyleSheet, gTypeCSSStyleSheet)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"insertRule\"]($2, $3)"+        js_insertRule :: JSRef CSSStyleSheet -> JSString -> Word -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleSheet.insertRule Mozilla CSSStyleSheet.insertRule documentation> +insertRule ::+           (MonadIO m, ToJSString rule) =>+             CSSStyleSheet -> rule -> Word -> m Word+insertRule self rule index+  = liftIO+      (js_insertRule (unCSSStyleSheet self) (toJSString rule) index)+ +foreign import javascript unsafe "$1[\"deleteRule\"]($2)"+        js_deleteRule :: JSRef CSSStyleSheet -> Word -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleSheet.deleteRule Mozilla CSSStyleSheet.deleteRule documentation> +deleteRule :: (MonadIO m) => CSSStyleSheet -> Word -> m ()+deleteRule self index+  = liftIO (js_deleteRule (unCSSStyleSheet self) index)+ +foreign import javascript unsafe "$1[\"addRule\"]($2, $3, $4)"+        js_addRule ::+        JSRef CSSStyleSheet -> JSString -> JSString -> Word -> IO Int++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleSheet.addRule Mozilla CSSStyleSheet.addRule documentation> +addRule ::+        (MonadIO m, ToJSString selector, ToJSString style) =>+          CSSStyleSheet -> selector -> style -> Word -> m Int+addRule self selector style index+  = liftIO+      (js_addRule (unCSSStyleSheet self) (toJSString selector)+         (toJSString style)+         index)+ +foreign import javascript unsafe "$1[\"removeRule\"]($2)"+        js_removeRule :: JSRef CSSStyleSheet -> Word -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleSheet.removeRule Mozilla CSSStyleSheet.removeRule documentation> +removeRule :: (MonadIO m) => CSSStyleSheet -> Word -> m ()+removeRule self index+  = liftIO (js_removeRule (unCSSStyleSheet self) index)+ +foreign import javascript unsafe "$1[\"ownerRule\"]"+        js_getOwnerRule :: JSRef CSSStyleSheet -> IO (JSRef CSSRule)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleSheet.ownerRule Mozilla CSSStyleSheet.ownerRule documentation> +getOwnerRule :: (MonadIO m) => CSSStyleSheet -> m (Maybe CSSRule)+getOwnerRule self+  = liftIO ((js_getOwnerRule (unCSSStyleSheet self)) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"cssRules\"]" js_getCssRules+        :: JSRef CSSStyleSheet -> IO (JSRef CSSRuleList)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleSheet.cssRules Mozilla CSSStyleSheet.cssRules documentation> +getCssRules ::+            (MonadIO m) => CSSStyleSheet -> m (Maybe CSSRuleList)+getCssRules self+  = liftIO ((js_getCssRules (unCSSStyleSheet self)) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"rules\"]" js_getRules ::+        JSRef CSSStyleSheet -> IO (JSRef CSSRuleList)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleSheet.rules Mozilla CSSStyleSheet.rules documentation> +getRules :: (MonadIO m) => CSSStyleSheet -> m (Maybe CSSRuleList)+getRules self+  = liftIO ((js_getRules (unCSSStyleSheet self)) >>= fromJSRef)
+ src/GHCJS/DOM/JSFFI/Generated/CSSSupportsRule.hs view
@@ -0,0 +1,59 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.CSSSupportsRule+       (js_insertRule, insertRule, js_deleteRule, deleteRule,+        js_getCssRules, getCssRules, js_getConditionText, getConditionText,+        CSSSupportsRule, castToCSSSupportsRule, gTypeCSSSupportsRule)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"insertRule\"]($2, $3)"+        js_insertRule ::+        JSRef CSSSupportsRule -> JSString -> Word -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSSupportsRule.insertRule Mozilla CSSSupportsRule.insertRule documentation> +insertRule ::+           (MonadIO m, ToJSString rule) =>+             CSSSupportsRule -> rule -> Word -> m Word+insertRule self rule index+  = liftIO+      (js_insertRule (unCSSSupportsRule self) (toJSString rule) index)+ +foreign import javascript unsafe "$1[\"deleteRule\"]($2)"+        js_deleteRule :: JSRef CSSSupportsRule -> Word -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSSupportsRule.deleteRule Mozilla CSSSupportsRule.deleteRule documentation> +deleteRule :: (MonadIO m) => CSSSupportsRule -> Word -> m ()+deleteRule self index+  = liftIO (js_deleteRule (unCSSSupportsRule self) index)+ +foreign import javascript unsafe "$1[\"cssRules\"]" js_getCssRules+        :: JSRef CSSSupportsRule -> IO (JSRef CSSRuleList)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSSupportsRule.cssRules Mozilla CSSSupportsRule.cssRules documentation> +getCssRules ::+            (MonadIO m) => CSSSupportsRule -> m (Maybe CSSRuleList)+getCssRules self+  = liftIO ((js_getCssRules (unCSSSupportsRule self)) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"conditionText\"]"+        js_getConditionText :: JSRef CSSSupportsRule -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSSupportsRule.conditionText Mozilla CSSSupportsRule.conditionText documentation> +getConditionText ::+                 (MonadIO m, FromJSString result) => CSSSupportsRule -> m result+getConditionText self+  = liftIO+      (fromJSString <$> (js_getConditionText (unCSSSupportsRule self)))
+ src/GHCJS/DOM/JSFFI/Generated/CSSValue.hs view
@@ -0,0 +1,58 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.CSSValue+       (pattern CSS_INHERIT, pattern CSS_PRIMITIVE_VALUE,+        pattern CSS_VALUE_LIST, pattern CSS_CUSTOM, js_setCssText,+        setCssText, js_getCssText, getCssText, js_getCssValueType,+        getCssValueType, CSSValue, castToCSSValue, gTypeCSSValue,+        IsCSSValue, toCSSValue)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+pattern CSS_INHERIT = 0+pattern CSS_PRIMITIVE_VALUE = 1+pattern CSS_VALUE_LIST = 2+pattern CSS_CUSTOM = 3+ +foreign import javascript unsafe "$1[\"cssText\"] = $2;"+        js_setCssText :: JSRef CSSValue -> JSRef (Maybe JSString) -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSValue.cssText Mozilla CSSValue.cssText documentation> +setCssText ::+           (MonadIO m, IsCSSValue self, ToJSString val) =>+             self -> Maybe val -> m ()+setCssText self val+  = liftIO+      (js_setCssText (unCSSValue (toCSSValue self))+         (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"cssText\"]" js_getCssText ::+        JSRef CSSValue -> IO (JSRef (Maybe JSString))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSValue.cssText Mozilla CSSValue.cssText documentation> +getCssText ::+           (MonadIO m, IsCSSValue self, FromJSString result) =>+             self -> m (Maybe result)+getCssText self+  = liftIO+      (fromMaybeJSString <$>+         (js_getCssText (unCSSValue (toCSSValue self))))+ +foreign import javascript unsafe "$1[\"cssValueType\"]"+        js_getCssValueType :: JSRef CSSValue -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSValue.cssValueType Mozilla CSSValue.cssValueType documentation> +getCssValueType :: (MonadIO m, IsCSSValue self) => self -> m Word+getCssValueType self+  = liftIO (js_getCssValueType (unCSSValue (toCSSValue self)))
+ src/GHCJS/DOM/JSFFI/Generated/CSSValueList.hs view
@@ -0,0 +1,40 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.CSSValueList+       (js_item, item, js_getLength, getLength, CSSValueList,+        castToCSSValueList, gTypeCSSValueList, IsCSSValueList,+        toCSSValueList)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"item\"]($2)" js_item ::+        JSRef CSSValueList -> Word -> IO (JSRef CSSValue)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSValueList.item Mozilla CSSValueList.item documentation> +item ::+     (MonadIO m, IsCSSValueList self) =>+       self -> Word -> m (Maybe CSSValue)+item self index+  = liftIO+      ((js_item (unCSSValueList (toCSSValueList self)) index) >>=+         fromJSRef)+ +foreign import javascript unsafe "$1[\"length\"]" js_getLength ::+        JSRef CSSValueList -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSValueList.length Mozilla CSSValueList.length documentation> +getLength :: (MonadIO m, IsCSSValueList self) => self -> m Word+getLength self+  = liftIO (js_getLength (unCSSValueList (toCSSValueList self)))
+ src/GHCJS/DOM/JSFFI/Generated/CanvasGradient.hs view
@@ -0,0 +1,31 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.CanvasGradient+       (js_addColorStop, addColorStop, CanvasGradient,+        castToCanvasGradient, gTypeCanvasGradient)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"addColorStop\"]($2, $3)"+        js_addColorStop ::+        JSRef CanvasGradient -> Float -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasGradient.addColorStop Mozilla CanvasGradient.addColorStop documentation> +addColorStop ::+             (MonadIO m, ToJSString color) =>+               CanvasGradient -> Float -> color -> m ()+addColorStop self offset color+  = liftIO+      (js_addColorStop (unCanvasGradient self) offset (toJSString color))
+ src/GHCJS/DOM/JSFFI/Generated/CanvasRenderingContext.hs view
@@ -0,0 +1,33 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.CanvasRenderingContext+       (js_getCanvas, getCanvas, CanvasRenderingContext,+        castToCanvasRenderingContext, gTypeCanvasRenderingContext,+        IsCanvasRenderingContext, toCanvasRenderingContext)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"canvas\"]" js_getCanvas ::+        JSRef CanvasRenderingContext -> IO (JSRef HTMLCanvasElement)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext.canvas Mozilla CanvasRenderingContext.canvas documentation> +getCanvas ::+          (MonadIO m, IsCanvasRenderingContext self) =>+            self -> m (Maybe HTMLCanvasElement)+getCanvas self+  = liftIO+      ((js_getCanvas+          (unCanvasRenderingContext (toCanvasRenderingContext self)))+         >>= fromJSRef)
+ src/GHCJS/DOM/JSFFI/Generated/CanvasRenderingContext2D.hs view
@@ -0,0 +1,1738 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.CanvasRenderingContext2D+       (js_save, save, js_restore, restore, js_scale, scale, js_rotate,+        rotate, js_translate, translate, js_transform, transform,+        js_setTransform, setTransform, js_createLinearGradient,+        createLinearGradient, js_createRadialGradient,+        createRadialGradient, js_setLineDash, setLineDash, js_getLineDash,+        getLineDash, js_clearRect, clearRect, js_fillRect, fillRect,+        js_beginPath, beginPath, js_closePath, closePath, js_moveTo,+        moveTo, js_lineTo, lineTo, js_quadraticCurveTo, quadraticCurveTo,+        js_bezierCurveTo, bezierCurveTo, js_arcTo, arcTo, js_rect, rect,+        js_arc, arc, js_fillPath, fillPath, js_strokePath, strokePath,+        js_clipPath, clipPath, js_fill, fill, js_stroke, stroke, js_clip,+        clip, js_isPointInPathPath, isPointInPathPath,+        js_isPointInStrokePath, isPointInStrokePath, js_isPointInPath,+        isPointInPath, js_isPointInStroke, isPointInStroke, js_measureText,+        measureText, js_setAlpha, setAlpha, js_setCompositeOperation,+        setCompositeOperation, js_setLineWidthFunction,+        setLineWidthFunction, js_setLineCapFunction, setLineCapFunction,+        js_setLineJoinFunction, setLineJoinFunction,+        js_setMiterLimitFunction, setMiterLimitFunction, js_clearShadow,+        clearShadow, js_fillText, fillText, js_strokeText, strokeText,+        js_setStrokeColor, setStrokeColor, js_setStrokeColorGray,+        setStrokeColorGray, js_setStrokeColorRGB, setStrokeColorRGB,+        js_setStrokeColorCYMK, setStrokeColorCYMK, js_setFillColor,+        setFillColor, js_setFillColorGray, setFillColorGray,+        js_setFillColorRGB, setFillColorRGB, js_setFillColorCYMK,+        setFillColorCYMK, js_strokeRect, strokeRect, js_drawImage,+        drawImage, js_drawImageScaled, drawImageScaled, js_drawImagePart,+        drawImagePart, js_drawImageFromCanvas, drawImageFromCanvas,+        js_drawImageFromCanvasScaled, drawImageFromCanvasScaled,+        js_drawImageFromCanvasPart, drawImageFromCanvasPart,+        js_drawImageFromVideo, drawImageFromVideo,+        js_drawImageFromVideoScaled, drawImageFromVideoScaled,+        js_drawImageFromVideoPart, drawImageFromVideoPart,+        js_drawImageFromRect, drawImageFromRect, js_setShadow, setShadow,+        js_setShadowGray, setShadowGray, js_setShadowRGB, setShadowRGB,+        js_setShadowCYMK, setShadowCYMK, js_putImageData, putImageData,+        js_putImageDataDirty, putImageDataDirty, js_webkitPutImageDataHD,+        webkitPutImageDataHD, js_webkitPutImageDataHDDirty,+        webkitPutImageDataHDDirty, js_createPatternFromCanvas,+        createPatternFromCanvas, js_createPattern, createPattern,+        js_createImageData, createImageData, js_createImageDataSize,+        createImageDataSize, js_getImageData, getImageData,+        js_webkitGetImageDataHD, webkitGetImageDataHD,+        js_drawFocusIfNeeded, drawFocusIfNeeded, js_drawFocusIfNeededPath,+        drawFocusIfNeededPath, js_setGlobalAlpha, setGlobalAlpha,+        js_getGlobalAlpha, getGlobalAlpha, js_setGlobalCompositeOperation,+        setGlobalCompositeOperation, js_getGlobalCompositeOperation,+        getGlobalCompositeOperation, js_setLineWidth, setLineWidth,+        js_getLineWidth, getLineWidth, js_setLineCap, setLineCap,+        js_getLineCap, getLineCap, js_setLineJoin, setLineJoin,+        js_getLineJoin, getLineJoin, js_setMiterLimit, setMiterLimit,+        js_getMiterLimit, getMiterLimit, js_setShadowOffsetX,+        setShadowOffsetX, js_getShadowOffsetX, getShadowOffsetX,+        js_setShadowOffsetY, setShadowOffsetY, js_getShadowOffsetY,+        getShadowOffsetY, js_setShadowBlur, setShadowBlur,+        js_getShadowBlur, getShadowBlur, js_setShadowColor, setShadowColor,+        js_getShadowColor, getShadowColor, js_setLineDashOffset,+        setLineDashOffset, js_getLineDashOffset, getLineDashOffset,+        js_setWebkitLineDash, setWebkitLineDash, js_getWebkitLineDash,+        getWebkitLineDash, js_setWebkitLineDashOffset,+        setWebkitLineDashOffset, js_getWebkitLineDashOffset,+        getWebkitLineDashOffset, js_setFont, setFont, js_getFont, getFont,+        js_setTextAlign, setTextAlign, js_getTextAlign, getTextAlign,+        js_setTextBaseline, setTextBaseline, js_getTextBaseline,+        getTextBaseline, js_setDirection, setDirection, js_getDirection,+        getDirection, js_setStrokeStyle, setStrokeStyle, js_getStrokeStyle,+        getStrokeStyle, js_setFillStyle, setFillStyle, js_getFillStyle,+        getFillStyle, js_getWebkitBackingStorePixelRatio,+        getWebkitBackingStorePixelRatio, js_setWebkitImageSmoothingEnabled,+        setWebkitImageSmoothingEnabled, js_getWebkitImageSmoothingEnabled,+        getWebkitImageSmoothingEnabled, CanvasRenderingContext2D,+        castToCanvasRenderingContext2D, gTypeCanvasRenderingContext2D)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"save\"]()" js_save ::+        JSRef CanvasRenderingContext2D -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.save Mozilla CanvasRenderingContext2D.save documentation> +save :: (MonadIO m) => CanvasRenderingContext2D -> m ()+save self = liftIO (js_save (unCanvasRenderingContext2D self))+ +foreign import javascript unsafe "$1[\"restore\"]()" js_restore ::+        JSRef CanvasRenderingContext2D -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.restore Mozilla CanvasRenderingContext2D.restore documentation> +restore :: (MonadIO m) => CanvasRenderingContext2D -> m ()+restore self+  = liftIO (js_restore (unCanvasRenderingContext2D self))+ +foreign import javascript unsafe "$1[\"scale\"]($2, $3)" js_scale+        :: JSRef CanvasRenderingContext2D -> Float -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.scale Mozilla CanvasRenderingContext2D.scale documentation> +scale ::+      (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> m ()+scale self sx sy+  = liftIO (js_scale (unCanvasRenderingContext2D self) sx sy)+ +foreign import javascript unsafe "$1[\"rotate\"]($2)" js_rotate ::+        JSRef CanvasRenderingContext2D -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.rotate Mozilla CanvasRenderingContext2D.rotate documentation> +rotate :: (MonadIO m) => CanvasRenderingContext2D -> Float -> m ()+rotate self angle+  = liftIO (js_rotate (unCanvasRenderingContext2D self) angle)+ +foreign import javascript unsafe "$1[\"translate\"]($2, $3)"+        js_translate ::+        JSRef CanvasRenderingContext2D -> Float -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.translate Mozilla CanvasRenderingContext2D.translate documentation> +translate ::+          (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> m ()+translate self tx ty+  = liftIO (js_translate (unCanvasRenderingContext2D self) tx ty)+ +foreign import javascript unsafe+        "$1[\"transform\"]($2, $3, $4, $5,\n$6, $7)" js_transform ::+        JSRef CanvasRenderingContext2D ->+          Float -> Float -> Float -> Float -> Float -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.transform Mozilla CanvasRenderingContext2D.transform documentation> +transform ::+          (MonadIO m) =>+            CanvasRenderingContext2D ->+              Float -> Float -> Float -> Float -> Float -> Float -> m ()+transform self m11 m12 m21 m22 dx dy+  = liftIO+      (js_transform (unCanvasRenderingContext2D self) m11 m12 m21 m22 dx+         dy)+ +foreign import javascript unsafe+        "$1[\"setTransform\"]($2, $3, $4,\n$5, $6, $7)" js_setTransform ::+        JSRef CanvasRenderingContext2D ->+          Float -> Float -> Float -> Float -> Float -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setTransform Mozilla CanvasRenderingContext2D.setTransform documentation> +setTransform ::+             (MonadIO m) =>+               CanvasRenderingContext2D ->+                 Float -> Float -> Float -> Float -> Float -> Float -> m ()+setTransform self m11 m12 m21 m22 dx dy+  = liftIO+      (js_setTransform (unCanvasRenderingContext2D self) m11 m12 m21 m22+         dx+         dy)+ +foreign import javascript unsafe+        "$1[\"createLinearGradient\"]($2,\n$3, $4, $5)"+        js_createLinearGradient ::+        JSRef CanvasRenderingContext2D ->+          Float -> Float -> Float -> Float -> IO (JSRef CanvasGradient)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createLinearGradient Mozilla CanvasRenderingContext2D.createLinearGradient documentation> +createLinearGradient ::+                     (MonadIO m) =>+                       CanvasRenderingContext2D ->+                         Float -> Float -> Float -> Float -> m (Maybe CanvasGradient)+createLinearGradient self x0 y0 x1 y1+  = liftIO+      ((js_createLinearGradient (unCanvasRenderingContext2D self) x0 y0+          x1+          y1)+         >>= fromJSRef)+ +foreign import javascript unsafe+        "$1[\"createRadialGradient\"]($2,\n$3, $4, $5, $6, $7)"+        js_createRadialGradient ::+        JSRef CanvasRenderingContext2D ->+          Float ->+            Float ->+              Float -> Float -> Float -> Float -> IO (JSRef CanvasGradient)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createRadialGradient Mozilla CanvasRenderingContext2D.createRadialGradient documentation> +createRadialGradient ::+                     (MonadIO m) =>+                       CanvasRenderingContext2D ->+                         Float ->+                           Float ->+                             Float -> Float -> Float -> Float -> m (Maybe CanvasGradient)+createRadialGradient self x0 y0 r0 x1 y1 r1+  = liftIO+      ((js_createRadialGradient (unCanvasRenderingContext2D self) x0 y0+          r0+          x1+          y1+          r1)+         >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"setLineDash\"]($2)"+        js_setLineDash ::+        JSRef CanvasRenderingContext2D -> JSRef [Float] -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setLineDash Mozilla CanvasRenderingContext2D.setLineDash documentation> +setLineDash ::+            (MonadIO m) => CanvasRenderingContext2D -> [Float] -> m ()+setLineDash self dash+  = liftIO+      (toJSRef dash >>=+         \ dash' -> js_setLineDash (unCanvasRenderingContext2D self) dash')+ +foreign import javascript unsafe "$1[\"getLineDash\"]()"+        js_getLineDash ::+        JSRef CanvasRenderingContext2D -> IO (JSRef [Float])++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.getLineDash Mozilla CanvasRenderingContext2D.getLineDash documentation> +getLineDash :: (MonadIO m) => CanvasRenderingContext2D -> m [Float]+getLineDash self+  = liftIO+      ((js_getLineDash (unCanvasRenderingContext2D self)) >>=+         fromJSRefUnchecked)+ +foreign import javascript unsafe+        "$1[\"clearRect\"]($2, $3, $4, $5)" js_clearRect ::+        JSRef CanvasRenderingContext2D ->+          Float -> Float -> Float -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.clearRect Mozilla CanvasRenderingContext2D.clearRect documentation> +clearRect ::+          (MonadIO m) =>+            CanvasRenderingContext2D ->+              Float -> Float -> Float -> Float -> m ()+clearRect self x y width height+  = liftIO+      (js_clearRect (unCanvasRenderingContext2D self) x y width height)+ +foreign import javascript unsafe "$1[\"fillRect\"]($2, $3, $4, $5)"+        js_fillRect ::+        JSRef CanvasRenderingContext2D ->+          Float -> Float -> Float -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.fillRect Mozilla CanvasRenderingContext2D.fillRect documentation> +fillRect ::+         (MonadIO m) =>+           CanvasRenderingContext2D ->+             Float -> Float -> Float -> Float -> m ()+fillRect self x y width height+  = liftIO+      (js_fillRect (unCanvasRenderingContext2D self) x y width height)+ +foreign import javascript unsafe "$1[\"beginPath\"]()" js_beginPath+        :: JSRef CanvasRenderingContext2D -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.beginPath Mozilla CanvasRenderingContext2D.beginPath documentation> +beginPath :: (MonadIO m) => CanvasRenderingContext2D -> m ()+beginPath self+  = liftIO (js_beginPath (unCanvasRenderingContext2D self))+ +foreign import javascript unsafe "$1[\"closePath\"]()" js_closePath+        :: JSRef CanvasRenderingContext2D -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.closePath Mozilla CanvasRenderingContext2D.closePath documentation> +closePath :: (MonadIO m) => CanvasRenderingContext2D -> m ()+closePath self+  = liftIO (js_closePath (unCanvasRenderingContext2D self))+ +foreign import javascript unsafe "$1[\"moveTo\"]($2, $3)" js_moveTo+        :: JSRef CanvasRenderingContext2D -> Float -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.moveTo Mozilla CanvasRenderingContext2D.moveTo documentation> +moveTo ::+       (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> m ()+moveTo self x y+  = liftIO (js_moveTo (unCanvasRenderingContext2D self) x y)+ +foreign import javascript unsafe "$1[\"lineTo\"]($2, $3)" js_lineTo+        :: JSRef CanvasRenderingContext2D -> Float -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.lineTo Mozilla CanvasRenderingContext2D.lineTo documentation> +lineTo ::+       (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> m ()+lineTo self x y+  = liftIO (js_lineTo (unCanvasRenderingContext2D self) x y)+ +foreign import javascript unsafe+        "$1[\"quadraticCurveTo\"]($2, $3,\n$4, $5)" js_quadraticCurveTo ::+        JSRef CanvasRenderingContext2D ->+          Float -> Float -> Float -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.quadraticCurveTo Mozilla CanvasRenderingContext2D.quadraticCurveTo documentation> +quadraticCurveTo ::+                 (MonadIO m) =>+                   CanvasRenderingContext2D ->+                     Float -> Float -> Float -> Float -> m ()+quadraticCurveTo self cpx cpy x y+  = liftIO+      (js_quadraticCurveTo (unCanvasRenderingContext2D self) cpx cpy x y)+ +foreign import javascript unsafe+        "$1[\"bezierCurveTo\"]($2, $3, $4,\n$5, $6, $7)" js_bezierCurveTo+        ::+        JSRef CanvasRenderingContext2D ->+          Float -> Float -> Float -> Float -> Float -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.bezierCurveTo Mozilla CanvasRenderingContext2D.bezierCurveTo documentation> +bezierCurveTo ::+              (MonadIO m) =>+                CanvasRenderingContext2D ->+                  Float -> Float -> Float -> Float -> Float -> Float -> m ()+bezierCurveTo self cp1x cp1y cp2x cp2y x y+  = liftIO+      (js_bezierCurveTo (unCanvasRenderingContext2D self) cp1x cp1y cp2x+         cp2y+         x+         y)+ +foreign import javascript unsafe+        "$1[\"arcTo\"]($2, $3, $4, $5, $6)" js_arcTo ::+        JSRef CanvasRenderingContext2D ->+          Float -> Float -> Float -> Float -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.arcTo Mozilla CanvasRenderingContext2D.arcTo documentation> +arcTo ::+      (MonadIO m) =>+        CanvasRenderingContext2D ->+          Float -> Float -> Float -> Float -> Float -> m ()+arcTo self x1 y1 x2 y2 radius+  = liftIO+      (js_arcTo (unCanvasRenderingContext2D self) x1 y1 x2 y2 radius)+ +foreign import javascript unsafe "$1[\"rect\"]($2, $3, $4, $5)"+        js_rect ::+        JSRef CanvasRenderingContext2D ->+          Float -> Float -> Float -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.rect Mozilla CanvasRenderingContext2D.rect documentation> +rect ::+     (MonadIO m) =>+       CanvasRenderingContext2D ->+         Float -> Float -> Float -> Float -> m ()+rect self x y width height+  = liftIO+      (js_rect (unCanvasRenderingContext2D self) x y width height)+ +foreign import javascript unsafe+        "$1[\"arc\"]($2, $3, $4, $5, $6,\n$7)" js_arc ::+        JSRef CanvasRenderingContext2D ->+          Float -> Float -> Float -> Float -> Float -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.arc Mozilla CanvasRenderingContext2D.arc documentation> +arc ::+    (MonadIO m) =>+      CanvasRenderingContext2D ->+        Float -> Float -> Float -> Float -> Float -> Bool -> m ()+arc self x y radius startAngle endAngle anticlockwise+  = liftIO+      (js_arc (unCanvasRenderingContext2D self) x y radius startAngle+         endAngle+         anticlockwise)+ +foreign import javascript unsafe "$1[\"fill\"]($2, $3)" js_fillPath+        ::+        JSRef CanvasRenderingContext2D ->+          JSRef Path2D -> JSRef CanvasWindingRule -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.fill Mozilla CanvasRenderingContext2D.fill documentation> +fillPath ::+         (MonadIO m) =>+           CanvasRenderingContext2D ->+             Maybe Path2D -> CanvasWindingRule -> m ()+fillPath self path winding+  = liftIO+      (js_fillPath (unCanvasRenderingContext2D self)+         (maybe jsNull pToJSRef path)+         (pToJSRef winding))+ +foreign import javascript unsafe "$1[\"stroke\"]($2)" js_strokePath+        :: JSRef CanvasRenderingContext2D -> JSRef Path2D -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.stroke Mozilla CanvasRenderingContext2D.stroke documentation> +strokePath ::+           (MonadIO m) => CanvasRenderingContext2D -> Maybe Path2D -> m ()+strokePath self path+  = liftIO+      (js_strokePath (unCanvasRenderingContext2D self)+         (maybe jsNull pToJSRef path))+ +foreign import javascript unsafe "$1[\"clip\"]($2, $3)" js_clipPath+        ::+        JSRef CanvasRenderingContext2D ->+          JSRef Path2D -> JSRef CanvasWindingRule -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.clip Mozilla CanvasRenderingContext2D.clip documentation> +clipPath ::+         (MonadIO m) =>+           CanvasRenderingContext2D ->+             Maybe Path2D -> CanvasWindingRule -> m ()+clipPath self path winding+  = liftIO+      (js_clipPath (unCanvasRenderingContext2D self)+         (maybe jsNull pToJSRef path)+         (pToJSRef winding))+ +foreign import javascript unsafe "$1[\"fill\"]($2)" js_fill ::+        JSRef CanvasRenderingContext2D -> JSRef CanvasWindingRule -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.fill Mozilla CanvasRenderingContext2D.fill documentation> +fill ::+     (MonadIO m) =>+       CanvasRenderingContext2D -> CanvasWindingRule -> m ()+fill self winding+  = liftIO+      (js_fill (unCanvasRenderingContext2D self) (pToJSRef winding))+ +foreign import javascript unsafe "$1[\"stroke\"]()" js_stroke ::+        JSRef CanvasRenderingContext2D -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.stroke Mozilla CanvasRenderingContext2D.stroke documentation> +stroke :: (MonadIO m) => CanvasRenderingContext2D -> m ()+stroke self = liftIO (js_stroke (unCanvasRenderingContext2D self))+ +foreign import javascript unsafe "$1[\"clip\"]($2)" js_clip ::+        JSRef CanvasRenderingContext2D -> JSRef CanvasWindingRule -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.clip Mozilla CanvasRenderingContext2D.clip documentation> +clip ::+     (MonadIO m) =>+       CanvasRenderingContext2D -> CanvasWindingRule -> m ()+clip self winding+  = liftIO+      (js_clip (unCanvasRenderingContext2D self) (pToJSRef winding))+ +foreign import javascript unsafe+        "($1[\"isPointInPath\"]($2, $3, $4,\n$5) ? 1 : 0)"+        js_isPointInPathPath ::+        JSRef CanvasRenderingContext2D ->+          JSRef Path2D ->+            Float -> Float -> JSRef CanvasWindingRule -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.isPointInPath Mozilla CanvasRenderingContext2D.isPointInPath documentation> +isPointInPathPath ::+                  (MonadIO m) =>+                    CanvasRenderingContext2D ->+                      Maybe Path2D -> Float -> Float -> CanvasWindingRule -> m Bool+isPointInPathPath self path x y winding+  = liftIO+      (js_isPointInPathPath (unCanvasRenderingContext2D self)+         (maybe jsNull pToJSRef path)+         x+         y+         (pToJSRef winding))+ +foreign import javascript unsafe+        "($1[\"isPointInStroke\"]($2, $3,\n$4) ? 1 : 0)"+        js_isPointInStrokePath ::+        JSRef CanvasRenderingContext2D ->+          JSRef Path2D -> Float -> Float -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.isPointInStroke Mozilla CanvasRenderingContext2D.isPointInStroke documentation> +isPointInStrokePath ::+                    (MonadIO m) =>+                      CanvasRenderingContext2D ->+                        Maybe Path2D -> Float -> Float -> m Bool+isPointInStrokePath self path x y+  = liftIO+      (js_isPointInStrokePath (unCanvasRenderingContext2D self)+         (maybe jsNull pToJSRef path)+         x+         y)+ +foreign import javascript unsafe+        "($1[\"isPointInPath\"]($2, $3,\n$4) ? 1 : 0)" js_isPointInPath ::+        JSRef CanvasRenderingContext2D ->+          Float -> Float -> JSRef CanvasWindingRule -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.isPointInPath Mozilla CanvasRenderingContext2D.isPointInPath documentation> +isPointInPath ::+              (MonadIO m) =>+                CanvasRenderingContext2D ->+                  Float -> Float -> CanvasWindingRule -> m Bool+isPointInPath self x y winding+  = liftIO+      (js_isPointInPath (unCanvasRenderingContext2D self) x y+         (pToJSRef winding))+ +foreign import javascript unsafe+        "($1[\"isPointInStroke\"]($2,\n$3) ? 1 : 0)" js_isPointInStroke ::+        JSRef CanvasRenderingContext2D -> Float -> Float -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.isPointInStroke Mozilla CanvasRenderingContext2D.isPointInStroke documentation> +isPointInStroke ::+                (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> m Bool+isPointInStroke self x y+  = liftIO (js_isPointInStroke (unCanvasRenderingContext2D self) x y)+ +foreign import javascript unsafe "$1[\"measureText\"]($2)"+        js_measureText ::+        JSRef CanvasRenderingContext2D ->+          JSString -> IO (JSRef TextMetrics)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.measureText Mozilla CanvasRenderingContext2D.measureText documentation> +measureText ::+            (MonadIO m, ToJSString text) =>+              CanvasRenderingContext2D -> text -> m (Maybe TextMetrics)+measureText self text+  = liftIO+      ((js_measureText (unCanvasRenderingContext2D self)+          (toJSString text))+         >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"setAlpha\"]($2)" js_setAlpha+        :: JSRef CanvasRenderingContext2D -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setAlpha Mozilla CanvasRenderingContext2D.setAlpha documentation> +setAlpha ::+         (MonadIO m) => CanvasRenderingContext2D -> Float -> m ()+setAlpha self alpha+  = liftIO (js_setAlpha (unCanvasRenderingContext2D self) alpha)+ +foreign import javascript unsafe+        "$1[\"setCompositeOperation\"]($2)" js_setCompositeOperation ::+        JSRef CanvasRenderingContext2D -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setCompositeOperation Mozilla CanvasRenderingContext2D.setCompositeOperation documentation> +setCompositeOperation ::+                      (MonadIO m, ToJSString compositeOperation) =>+                        CanvasRenderingContext2D -> compositeOperation -> m ()+setCompositeOperation self compositeOperation+  = liftIO+      (js_setCompositeOperation (unCanvasRenderingContext2D self)+         (toJSString compositeOperation))+ +foreign import javascript unsafe "$1[\"setLineWidth\"]($2)"+        js_setLineWidthFunction ::+        JSRef CanvasRenderingContext2D -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setLineWidth Mozilla CanvasRenderingContext2D.setLineWidth documentation> +setLineWidthFunction ::+                     (MonadIO m) => CanvasRenderingContext2D -> Float -> m ()+setLineWidthFunction self width+  = liftIO+      (js_setLineWidthFunction (unCanvasRenderingContext2D self) width)+ +foreign import javascript unsafe "$1[\"setLineCap\"]($2)"+        js_setLineCapFunction ::+        JSRef CanvasRenderingContext2D -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setLineCap Mozilla CanvasRenderingContext2D.setLineCap documentation> +setLineCapFunction ::+                   (MonadIO m, ToJSString cap) =>+                     CanvasRenderingContext2D -> cap -> m ()+setLineCapFunction self cap+  = liftIO+      (js_setLineCapFunction (unCanvasRenderingContext2D self)+         (toJSString cap))+ +foreign import javascript unsafe "$1[\"setLineJoin\"]($2)"+        js_setLineJoinFunction ::+        JSRef CanvasRenderingContext2D -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setLineJoin Mozilla CanvasRenderingContext2D.setLineJoin documentation> +setLineJoinFunction ::+                    (MonadIO m, ToJSString join) =>+                      CanvasRenderingContext2D -> join -> m ()+setLineJoinFunction self join+  = liftIO+      (js_setLineJoinFunction (unCanvasRenderingContext2D self)+         (toJSString join))+ +foreign import javascript unsafe "$1[\"setMiterLimit\"]($2)"+        js_setMiterLimitFunction ::+        JSRef CanvasRenderingContext2D -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setMiterLimit Mozilla CanvasRenderingContext2D.setMiterLimit documentation> +setMiterLimitFunction ::+                      (MonadIO m) => CanvasRenderingContext2D -> Float -> m ()+setMiterLimitFunction self limit+  = liftIO+      (js_setMiterLimitFunction (unCanvasRenderingContext2D self) limit)+ +foreign import javascript unsafe "$1[\"clearShadow\"]()"+        js_clearShadow :: JSRef CanvasRenderingContext2D -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.clearShadow Mozilla CanvasRenderingContext2D.clearShadow documentation> +clearShadow :: (MonadIO m) => CanvasRenderingContext2D -> m ()+clearShadow self+  = liftIO (js_clearShadow (unCanvasRenderingContext2D self))+ +foreign import javascript unsafe "$1[\"fillText\"]($2, $3, $4, $5)"+        js_fillText ::+        JSRef CanvasRenderingContext2D ->+          JSString -> Float -> Float -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.fillText Mozilla CanvasRenderingContext2D.fillText documentation> +fillText ::+         (MonadIO m, ToJSString text) =>+           CanvasRenderingContext2D -> text -> Float -> Float -> Float -> m ()+fillText self text x y maxWidth+  = liftIO+      (js_fillText (unCanvasRenderingContext2D self) (toJSString text) x+         y+         maxWidth)+ +foreign import javascript unsafe+        "$1[\"strokeText\"]($2, $3, $4, $5)" js_strokeText ::+        JSRef CanvasRenderingContext2D ->+          JSString -> Float -> Float -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.strokeText Mozilla CanvasRenderingContext2D.strokeText documentation> +strokeText ::+           (MonadIO m, ToJSString text) =>+             CanvasRenderingContext2D -> text -> Float -> Float -> Float -> m ()+strokeText self text x y maxWidth+  = liftIO+      (js_strokeText (unCanvasRenderingContext2D self) (toJSString text)+         x+         y+         maxWidth)+ +foreign import javascript unsafe "$1[\"setStrokeColor\"]($2, $3)"+        js_setStrokeColor ::+        JSRef CanvasRenderingContext2D -> JSString -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setStrokeColor Mozilla CanvasRenderingContext2D.setStrokeColor documentation> +setStrokeColor ::+               (MonadIO m, ToJSString color) =>+                 CanvasRenderingContext2D -> color -> Float -> m ()+setStrokeColor self color alpha+  = liftIO+      (js_setStrokeColor (unCanvasRenderingContext2D self)+         (toJSString color)+         alpha)+ +foreign import javascript unsafe "$1[\"setStrokeColor\"]($2, $3)"+        js_setStrokeColorGray ::+        JSRef CanvasRenderingContext2D -> Float -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setStrokeColor Mozilla CanvasRenderingContext2D.setStrokeColor documentation> +setStrokeColorGray ::+                   (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> m ()+setStrokeColorGray self grayLevel alpha+  = liftIO+      (js_setStrokeColorGray (unCanvasRenderingContext2D self) grayLevel+         alpha)+ +foreign import javascript unsafe+        "$1[\"setStrokeColor\"]($2, $3, $4,\n$5)" js_setStrokeColorRGB ::+        JSRef CanvasRenderingContext2D ->+          Float -> Float -> Float -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setStrokeColor Mozilla CanvasRenderingContext2D.setStrokeColor documentation> +setStrokeColorRGB ::+                  (MonadIO m) =>+                    CanvasRenderingContext2D ->+                      Float -> Float -> Float -> Float -> m ()+setStrokeColorRGB self r g b a+  = liftIO+      (js_setStrokeColorRGB (unCanvasRenderingContext2D self) r g b a)+ +foreign import javascript unsafe+        "$1[\"setStrokeColor\"]($2, $3, $4,\n$5, $6)" js_setStrokeColorCYMK+        ::+        JSRef CanvasRenderingContext2D ->+          Float -> Float -> Float -> Float -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setStrokeColor Mozilla CanvasRenderingContext2D.setStrokeColor documentation> +setStrokeColorCYMK ::+                   (MonadIO m) =>+                     CanvasRenderingContext2D ->+                       Float -> Float -> Float -> Float -> Float -> m ()+setStrokeColorCYMK self c m y k a+  = liftIO+      (js_setStrokeColorCYMK (unCanvasRenderingContext2D self) c m y k a)+ +foreign import javascript unsafe "$1[\"setFillColor\"]($2, $3)"+        js_setFillColor ::+        JSRef CanvasRenderingContext2D -> JSString -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setFillColor Mozilla CanvasRenderingContext2D.setFillColor documentation> +setFillColor ::+             (MonadIO m, ToJSString color) =>+               CanvasRenderingContext2D -> color -> Float -> m ()+setFillColor self color alpha+  = liftIO+      (js_setFillColor (unCanvasRenderingContext2D self)+         (toJSString color)+         alpha)+ +foreign import javascript unsafe "$1[\"setFillColor\"]($2, $3)"+        js_setFillColorGray ::+        JSRef CanvasRenderingContext2D -> Float -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setFillColor Mozilla CanvasRenderingContext2D.setFillColor documentation> +setFillColorGray ::+                 (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> m ()+setFillColorGray self grayLevel alpha+  = liftIO+      (js_setFillColorGray (unCanvasRenderingContext2D self) grayLevel+         alpha)+ +foreign import javascript unsafe+        "$1[\"setFillColor\"]($2, $3, $4,\n$5)" js_setFillColorRGB ::+        JSRef CanvasRenderingContext2D ->+          Float -> Float -> Float -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setFillColor Mozilla CanvasRenderingContext2D.setFillColor documentation> +setFillColorRGB ::+                (MonadIO m) =>+                  CanvasRenderingContext2D ->+                    Float -> Float -> Float -> Float -> m ()+setFillColorRGB self r g b a+  = liftIO+      (js_setFillColorRGB (unCanvasRenderingContext2D self) r g b a)+ +foreign import javascript unsafe+        "$1[\"setFillColor\"]($2, $3, $4,\n$5, $6)" js_setFillColorCYMK ::+        JSRef CanvasRenderingContext2D ->+          Float -> Float -> Float -> Float -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setFillColor Mozilla CanvasRenderingContext2D.setFillColor documentation> +setFillColorCYMK ::+                 (MonadIO m) =>+                   CanvasRenderingContext2D ->+                     Float -> Float -> Float -> Float -> Float -> m ()+setFillColorCYMK self c m y k a+  = liftIO+      (js_setFillColorCYMK (unCanvasRenderingContext2D self) c m y k a)+ +foreign import javascript unsafe+        "$1[\"strokeRect\"]($2, $3, $4, $5)" js_strokeRect ::+        JSRef CanvasRenderingContext2D ->+          Float -> Float -> Float -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.strokeRect Mozilla CanvasRenderingContext2D.strokeRect documentation> +strokeRect ::+           (MonadIO m) =>+             CanvasRenderingContext2D ->+               Float -> Float -> Float -> Float -> m ()+strokeRect self x y width height+  = liftIO+      (js_strokeRect (unCanvasRenderingContext2D self) x y width height)+ +foreign import javascript unsafe "$1[\"drawImage\"]($2, $3, $4)"+        js_drawImage ::+        JSRef CanvasRenderingContext2D ->+          JSRef HTMLImageElement -> Float -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.drawImage Mozilla CanvasRenderingContext2D.drawImage documentation> +drawImage ::+          (MonadIO m) =>+            CanvasRenderingContext2D ->+              Maybe HTMLImageElement -> Float -> Float -> m ()+drawImage self image x y+  = liftIO+      (js_drawImage (unCanvasRenderingContext2D self)+         (maybe jsNull pToJSRef image)+         x+         y)+ +foreign import javascript unsafe+        "$1[\"drawImage\"]($2, $3, $4, $5,\n$6)" js_drawImageScaled ::+        JSRef CanvasRenderingContext2D ->+          JSRef HTMLImageElement -> Float -> Float -> Float -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.drawImage Mozilla CanvasRenderingContext2D.drawImage documentation> +drawImageScaled ::+                (MonadIO m) =>+                  CanvasRenderingContext2D ->+                    Maybe HTMLImageElement -> Float -> Float -> Float -> Float -> m ()+drawImageScaled self image x y width height+  = liftIO+      (js_drawImageScaled (unCanvasRenderingContext2D self)+         (maybe jsNull pToJSRef image)+         x+         y+         width+         height)+ +foreign import javascript unsafe+        "$1[\"drawImage\"]($2, $3, $4, $5,\n$6, $7, $8, $9, $10)"+        js_drawImagePart ::+        JSRef CanvasRenderingContext2D ->+          JSRef HTMLImageElement ->+            Float ->+              Float ->+                Float -> Float -> Float -> Float -> Float -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.drawImage Mozilla CanvasRenderingContext2D.drawImage documentation> +drawImagePart ::+              (MonadIO m) =>+                CanvasRenderingContext2D ->+                  Maybe HTMLImageElement ->+                    Float ->+                      Float -> Float -> Float -> Float -> Float -> Float -> Float -> m ()+drawImagePart self image sx sy sw sh dx dy dw dh+  = liftIO+      (js_drawImagePart (unCanvasRenderingContext2D self)+         (maybe jsNull pToJSRef image)+         sx+         sy+         sw+         sh+         dx+         dy+         dw+         dh)+ +foreign import javascript unsafe "$1[\"drawImage\"]($2, $3, $4)"+        js_drawImageFromCanvas ::+        JSRef CanvasRenderingContext2D ->+          JSRef HTMLCanvasElement -> Float -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.drawImage Mozilla CanvasRenderingContext2D.drawImage documentation> +drawImageFromCanvas ::+                    (MonadIO m) =>+                      CanvasRenderingContext2D ->+                        Maybe HTMLCanvasElement -> Float -> Float -> m ()+drawImageFromCanvas self canvas x y+  = liftIO+      (js_drawImageFromCanvas (unCanvasRenderingContext2D self)+         (maybe jsNull pToJSRef canvas)+         x+         y)+ +foreign import javascript unsafe+        "$1[\"drawImage\"]($2, $3, $4, $5,\n$6)"+        js_drawImageFromCanvasScaled ::+        JSRef CanvasRenderingContext2D ->+          JSRef HTMLCanvasElement ->+            Float -> Float -> Float -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.drawImage Mozilla CanvasRenderingContext2D.drawImage documentation> +drawImageFromCanvasScaled ::+                          (MonadIO m) =>+                            CanvasRenderingContext2D ->+                              Maybe HTMLCanvasElement -> Float -> Float -> Float -> Float -> m ()+drawImageFromCanvasScaled self canvas x y width height+  = liftIO+      (js_drawImageFromCanvasScaled (unCanvasRenderingContext2D self)+         (maybe jsNull pToJSRef canvas)+         x+         y+         width+         height)+ +foreign import javascript unsafe+        "$1[\"drawImage\"]($2, $3, $4, $5,\n$6, $7, $8, $9, $10)"+        js_drawImageFromCanvasPart ::+        JSRef CanvasRenderingContext2D ->+          JSRef HTMLCanvasElement ->+            Float ->+              Float ->+                Float -> Float -> Float -> Float -> Float -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.drawImage Mozilla CanvasRenderingContext2D.drawImage documentation> +drawImageFromCanvasPart ::+                        (MonadIO m) =>+                          CanvasRenderingContext2D ->+                            Maybe HTMLCanvasElement ->+                              Float ->+                                Float -> Float -> Float -> Float -> Float -> Float -> Float -> m ()+drawImageFromCanvasPart self canvas sx sy sw sh dx dy dw dh+  = liftIO+      (js_drawImageFromCanvasPart (unCanvasRenderingContext2D self)+         (maybe jsNull pToJSRef canvas)+         sx+         sy+         sw+         sh+         dx+         dy+         dw+         dh)+ +foreign import javascript unsafe "$1[\"drawImage\"]($2, $3, $4)"+        js_drawImageFromVideo ::+        JSRef CanvasRenderingContext2D ->+          JSRef HTMLVideoElement -> Float -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.drawImage Mozilla CanvasRenderingContext2D.drawImage documentation> +drawImageFromVideo ::+                   (MonadIO m) =>+                     CanvasRenderingContext2D ->+                       Maybe HTMLVideoElement -> Float -> Float -> m ()+drawImageFromVideo self video x y+  = liftIO+      (js_drawImageFromVideo (unCanvasRenderingContext2D self)+         (maybe jsNull pToJSRef video)+         x+         y)+ +foreign import javascript unsafe+        "$1[\"drawImage\"]($2, $3, $4, $5,\n$6)"+        js_drawImageFromVideoScaled ::+        JSRef CanvasRenderingContext2D ->+          JSRef HTMLVideoElement -> Float -> Float -> Float -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.drawImage Mozilla CanvasRenderingContext2D.drawImage documentation> +drawImageFromVideoScaled ::+                         (MonadIO m) =>+                           CanvasRenderingContext2D ->+                             Maybe HTMLVideoElement -> Float -> Float -> Float -> Float -> m ()+drawImageFromVideoScaled self video x y width height+  = liftIO+      (js_drawImageFromVideoScaled (unCanvasRenderingContext2D self)+         (maybe jsNull pToJSRef video)+         x+         y+         width+         height)+ +foreign import javascript unsafe+        "$1[\"drawImage\"]($2, $3, $4, $5,\n$6, $7, $8, $9, $10)"+        js_drawImageFromVideoPart ::+        JSRef CanvasRenderingContext2D ->+          JSRef HTMLVideoElement ->+            Float ->+              Float ->+                Float -> Float -> Float -> Float -> Float -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.drawImage Mozilla CanvasRenderingContext2D.drawImage documentation> +drawImageFromVideoPart ::+                       (MonadIO m) =>+                         CanvasRenderingContext2D ->+                           Maybe HTMLVideoElement ->+                             Float ->+                               Float -> Float -> Float -> Float -> Float -> Float -> Float -> m ()+drawImageFromVideoPart self video sx sy sw sh dx dy dw dh+  = liftIO+      (js_drawImageFromVideoPart (unCanvasRenderingContext2D self)+         (maybe jsNull pToJSRef video)+         sx+         sy+         sw+         sh+         dx+         dy+         dw+         dh)+ +foreign import javascript unsafe+        "$1[\"drawImageFromRect\"]($2, $3,\n$4, $5, $6, $7, $8, $9, $10,\n$11)"+        js_drawImageFromRect ::+        JSRef CanvasRenderingContext2D ->+          JSRef HTMLImageElement ->+            Float ->+              Float ->+                Float ->+                  Float -> Float -> Float -> Float -> Float -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.drawImageFromRect Mozilla CanvasRenderingContext2D.drawImageFromRect documentation> +drawImageFromRect ::+                  (MonadIO 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+  = liftIO+      (js_drawImageFromRect (unCanvasRenderingContext2D self)+         (maybe jsNull pToJSRef image)+         sx+         sy+         sw+         sh+         dx+         dy+         dw+         dh+         (toJSString compositeOperation))+ +foreign import javascript unsafe+        "$1[\"setShadow\"]($2, $3, $4, $5,\n$6)" js_setShadow ::+        JSRef CanvasRenderingContext2D ->+          Float -> Float -> Float -> JSString -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setShadow Mozilla CanvasRenderingContext2D.setShadow documentation> +setShadow ::+          (MonadIO m, ToJSString color) =>+            CanvasRenderingContext2D ->+              Float -> Float -> Float -> color -> Float -> m ()+setShadow self width height blur color alpha+  = liftIO+      (js_setShadow (unCanvasRenderingContext2D self) width height blur+         (toJSString color)+         alpha)+ +foreign import javascript unsafe+        "$1[\"setShadow\"]($2, $3, $4, $5,\n$6)" js_setShadowGray ::+        JSRef CanvasRenderingContext2D ->+          Float -> Float -> Float -> Float -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setShadow Mozilla CanvasRenderingContext2D.setShadow documentation> +setShadowGray ::+              (MonadIO m) =>+                CanvasRenderingContext2D ->+                  Float -> Float -> Float -> Float -> Float -> m ()+setShadowGray self width height blur grayLevel alpha+  = liftIO+      (js_setShadowGray (unCanvasRenderingContext2D self) width height+         blur+         grayLevel+         alpha)+ +foreign import javascript unsafe+        "$1[\"setShadow\"]($2, $3, $4, $5,\n$6, $7, $8)" js_setShadowRGB ::+        JSRef CanvasRenderingContext2D ->+          Float ->+            Float -> Float -> Float -> Float -> Float -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setShadow Mozilla CanvasRenderingContext2D.setShadow documentation> +setShadowRGB ::+             (MonadIO m) =>+               CanvasRenderingContext2D ->+                 Float -> Float -> Float -> Float -> Float -> Float -> Float -> m ()+setShadowRGB self width height blur r g b a+  = liftIO+      (js_setShadowRGB (unCanvasRenderingContext2D self) width height+         blur+         r+         g+         b+         a)+ +foreign import javascript unsafe+        "$1[\"setShadow\"]($2, $3, $4, $5,\n$6, $7, $8, $9)"+        js_setShadowCYMK ::+        JSRef CanvasRenderingContext2D ->+          Float ->+            Float ->+              Float -> Float -> Float -> Float -> Float -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setShadow Mozilla CanvasRenderingContext2D.setShadow documentation> +setShadowCYMK ::+              (MonadIO m) =>+                CanvasRenderingContext2D ->+                  Float ->+                    Float -> Float -> Float -> Float -> Float -> Float -> Float -> m ()+setShadowCYMK self width height blur c m y k a+  = liftIO+      (js_setShadowCYMK (unCanvasRenderingContext2D self) width height+         blur+         c+         m+         y+         k+         a)+ +foreign import javascript unsafe "$1[\"putImageData\"]($2, $3, $4)"+        js_putImageData ::+        JSRef CanvasRenderingContext2D ->+          JSRef ImageData -> Float -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.putImageData Mozilla CanvasRenderingContext2D.putImageData documentation> +putImageData ::+             (MonadIO m) =>+               CanvasRenderingContext2D ->+                 Maybe ImageData -> Float -> Float -> m ()+putImageData self imagedata dx dy+  = liftIO+      (js_putImageData (unCanvasRenderingContext2D self)+         (maybe jsNull pToJSRef imagedata)+         dx+         dy)+ +foreign import javascript unsafe+        "$1[\"putImageData\"]($2, $3, $4,\n$5, $6, $7, $8)"+        js_putImageDataDirty ::+        JSRef CanvasRenderingContext2D ->+          JSRef ImageData ->+            Float -> Float -> Float -> Float -> Float -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.putImageData Mozilla CanvasRenderingContext2D.putImageData documentation> +putImageDataDirty ::+                  (MonadIO m) =>+                    CanvasRenderingContext2D ->+                      Maybe ImageData ->+                        Float -> Float -> Float -> Float -> Float -> Float -> m ()+putImageDataDirty self imagedata dx dy dirtyX dirtyY dirtyWidth+  dirtyHeight+  = liftIO+      (js_putImageDataDirty (unCanvasRenderingContext2D self)+         (maybe jsNull pToJSRef imagedata)+         dx+         dy+         dirtyX+         dirtyY+         dirtyWidth+         dirtyHeight)+ +foreign import javascript unsafe+        "$1[\"webkitPutImageDataHD\"]($2,\n$3, $4)" js_webkitPutImageDataHD+        ::+        JSRef CanvasRenderingContext2D ->+          JSRef ImageData -> Float -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.webkitPutImageDataHD Mozilla CanvasRenderingContext2D.webkitPutImageDataHD documentation> +webkitPutImageDataHD ::+                     (MonadIO m) =>+                       CanvasRenderingContext2D ->+                         Maybe ImageData -> Float -> Float -> m ()+webkitPutImageDataHD self imagedata dx dy+  = liftIO+      (js_webkitPutImageDataHD (unCanvasRenderingContext2D self)+         (maybe jsNull pToJSRef imagedata)+         dx+         dy)+ +foreign import javascript unsafe+        "$1[\"webkitPutImageDataHD\"]($2,\n$3, $4, $5, $6, $7, $8)"+        js_webkitPutImageDataHDDirty ::+        JSRef CanvasRenderingContext2D ->+          JSRef ImageData ->+            Float -> Float -> Float -> Float -> Float -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.webkitPutImageDataHD Mozilla CanvasRenderingContext2D.webkitPutImageDataHD documentation> +webkitPutImageDataHDDirty ::+                          (MonadIO m) =>+                            CanvasRenderingContext2D ->+                              Maybe ImageData ->+                                Float -> Float -> Float -> Float -> Float -> Float -> m ()+webkitPutImageDataHDDirty self imagedata dx dy dirtyX dirtyY+  dirtyWidth dirtyHeight+  = liftIO+      (js_webkitPutImageDataHDDirty (unCanvasRenderingContext2D self)+         (maybe jsNull pToJSRef imagedata)+         dx+         dy+         dirtyX+         dirtyY+         dirtyWidth+         dirtyHeight)+ +foreign import javascript unsafe "$1[\"createPattern\"]($2, $3)"+        js_createPatternFromCanvas ::+        JSRef CanvasRenderingContext2D ->+          JSRef HTMLCanvasElement ->+            JSRef (Maybe JSString) -> IO (JSRef CanvasPattern)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createPattern Mozilla CanvasRenderingContext2D.createPattern documentation> +createPatternFromCanvas ::+                        (MonadIO m, ToJSString repetitionType) =>+                          CanvasRenderingContext2D ->+                            Maybe HTMLCanvasElement ->+                              Maybe repetitionType -> m (Maybe CanvasPattern)+createPatternFromCanvas self canvas repetitionType+  = liftIO+      ((js_createPatternFromCanvas (unCanvasRenderingContext2D self)+          (maybe jsNull pToJSRef canvas)+          (toMaybeJSString repetitionType))+         >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"createPattern\"]($2, $3)"+        js_createPattern ::+        JSRef CanvasRenderingContext2D ->+          JSRef HTMLImageElement ->+            JSRef (Maybe JSString) -> IO (JSRef CanvasPattern)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createPattern Mozilla CanvasRenderingContext2D.createPattern documentation> +createPattern ::+              (MonadIO m, ToJSString repetitionType) =>+                CanvasRenderingContext2D ->+                  Maybe HTMLImageElement ->+                    Maybe repetitionType -> m (Maybe CanvasPattern)+createPattern self image repetitionType+  = liftIO+      ((js_createPattern (unCanvasRenderingContext2D self)+          (maybe jsNull pToJSRef image)+          (toMaybeJSString repetitionType))+         >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"createImageData\"]($2)"+        js_createImageData ::+        JSRef CanvasRenderingContext2D ->+          JSRef ImageData -> IO (JSRef ImageData)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createImageData Mozilla CanvasRenderingContext2D.createImageData documentation> +createImageData ::+                (MonadIO m) =>+                  CanvasRenderingContext2D -> Maybe ImageData -> m (Maybe ImageData)+createImageData self imagedata+  = liftIO+      ((js_createImageData (unCanvasRenderingContext2D self)+          (maybe jsNull pToJSRef imagedata))+         >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"createImageData\"]($2, $3)"+        js_createImageDataSize ::+        JSRef CanvasRenderingContext2D ->+          Float -> Float -> IO (JSRef ImageData)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createImageData Mozilla CanvasRenderingContext2D.createImageData documentation> +createImageDataSize ::+                    (MonadIO m) =>+                      CanvasRenderingContext2D -> Float -> Float -> m (Maybe ImageData)+createImageDataSize self sw sh+  = liftIO+      ((js_createImageDataSize (unCanvasRenderingContext2D self) sw sh)+         >>= fromJSRef)+ +foreign import javascript unsafe+        "$1[\"getImageData\"]($2, $3, $4,\n$5)" js_getImageData ::+        JSRef CanvasRenderingContext2D ->+          Float -> Float -> Float -> Float -> IO (JSRef ImageData)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.getImageData Mozilla CanvasRenderingContext2D.getImageData documentation> +getImageData ::+             (MonadIO m) =>+               CanvasRenderingContext2D ->+                 Float -> Float -> Float -> Float -> m (Maybe ImageData)+getImageData self sx sy sw sh+  = liftIO+      ((js_getImageData (unCanvasRenderingContext2D self) sx sy sw sh)+         >>= fromJSRef)+ +foreign import javascript unsafe+        "$1[\"webkitGetImageDataHD\"]($2,\n$3, $4, $5)"+        js_webkitGetImageDataHD ::+        JSRef CanvasRenderingContext2D ->+          Float -> Float -> Float -> Float -> IO (JSRef ImageData)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.webkitGetImageDataHD Mozilla CanvasRenderingContext2D.webkitGetImageDataHD documentation> +webkitGetImageDataHD ::+                     (MonadIO m) =>+                       CanvasRenderingContext2D ->+                         Float -> Float -> Float -> Float -> m (Maybe ImageData)+webkitGetImageDataHD self sx sy sw sh+  = liftIO+      ((js_webkitGetImageDataHD (unCanvasRenderingContext2D self) sx sy+          sw+          sh)+         >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"drawFocusIfNeeded\"]($2)"+        js_drawFocusIfNeeded ::+        JSRef CanvasRenderingContext2D -> JSRef Element -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.drawFocusIfNeeded Mozilla CanvasRenderingContext2D.drawFocusIfNeeded documentation> +drawFocusIfNeeded ::+                  (MonadIO m, IsElement element) =>+                    CanvasRenderingContext2D -> Maybe element -> m ()+drawFocusIfNeeded self element+  = liftIO+      (js_drawFocusIfNeeded (unCanvasRenderingContext2D self)+         (maybe jsNull (unElement . toElement) element))+ +foreign import javascript unsafe+        "$1[\"drawFocusIfNeeded\"]($2, $3)" js_drawFocusIfNeededPath ::+        JSRef CanvasRenderingContext2D ->+          JSRef Path2D -> JSRef Element -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.drawFocusIfNeeded Mozilla CanvasRenderingContext2D.drawFocusIfNeeded documentation> +drawFocusIfNeededPath ::+                      (MonadIO m, IsElement element) =>+                        CanvasRenderingContext2D -> Maybe Path2D -> Maybe element -> m ()+drawFocusIfNeededPath self path element+  = liftIO+      (js_drawFocusIfNeededPath (unCanvasRenderingContext2D self)+         (maybe jsNull pToJSRef path)+         (maybe jsNull (unElement . toElement) element))+ +foreign import javascript unsafe "$1[\"globalAlpha\"] = $2;"+        js_setGlobalAlpha ::+        JSRef CanvasRenderingContext2D -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.globalAlpha Mozilla CanvasRenderingContext2D.globalAlpha documentation> +setGlobalAlpha ::+               (MonadIO m) => CanvasRenderingContext2D -> Float -> m ()+setGlobalAlpha self val+  = liftIO (js_setGlobalAlpha (unCanvasRenderingContext2D self) val)+ +foreign import javascript unsafe "$1[\"globalAlpha\"]"+        js_getGlobalAlpha :: JSRef CanvasRenderingContext2D -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.globalAlpha Mozilla CanvasRenderingContext2D.globalAlpha documentation> +getGlobalAlpha ::+               (MonadIO m) => CanvasRenderingContext2D -> m Float+getGlobalAlpha self+  = liftIO (js_getGlobalAlpha (unCanvasRenderingContext2D self))+ +foreign import javascript unsafe+        "$1[\"globalCompositeOperation\"] = $2;"+        js_setGlobalCompositeOperation ::+        JSRef CanvasRenderingContext2D -> JSRef (Maybe JSString) -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.globalCompositeOperation Mozilla CanvasRenderingContext2D.globalCompositeOperation documentation> +setGlobalCompositeOperation ::+                            (MonadIO m, ToJSString val) =>+                              CanvasRenderingContext2D -> Maybe val -> m ()+setGlobalCompositeOperation self val+  = liftIO+      (js_setGlobalCompositeOperation (unCanvasRenderingContext2D self)+         (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"globalCompositeOperation\"]"+        js_getGlobalCompositeOperation ::+        JSRef CanvasRenderingContext2D -> IO (JSRef (Maybe JSString))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.globalCompositeOperation Mozilla CanvasRenderingContext2D.globalCompositeOperation documentation> +getGlobalCompositeOperation ::+                            (MonadIO m, FromJSString result) =>+                              CanvasRenderingContext2D -> m (Maybe result)+getGlobalCompositeOperation self+  = liftIO+      (fromMaybeJSString <$>+         (js_getGlobalCompositeOperation (unCanvasRenderingContext2D self)))+ +foreign import javascript unsafe "$1[\"lineWidth\"] = $2;"+        js_setLineWidth :: JSRef CanvasRenderingContext2D -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.lineWidth Mozilla CanvasRenderingContext2D.lineWidth documentation> +setLineWidth ::+             (MonadIO m) => CanvasRenderingContext2D -> Float -> m ()+setLineWidth self val+  = liftIO (js_setLineWidth (unCanvasRenderingContext2D self) val)+ +foreign import javascript unsafe "$1[\"lineWidth\"]"+        js_getLineWidth :: JSRef CanvasRenderingContext2D -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.lineWidth Mozilla CanvasRenderingContext2D.lineWidth documentation> +getLineWidth :: (MonadIO m) => CanvasRenderingContext2D -> m Float+getLineWidth self+  = liftIO (js_getLineWidth (unCanvasRenderingContext2D self))+ +foreign import javascript unsafe "$1[\"lineCap\"] = $2;"+        js_setLineCap ::+        JSRef CanvasRenderingContext2D -> JSRef (Maybe JSString) -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.lineCap Mozilla CanvasRenderingContext2D.lineCap documentation> +setLineCap ::+           (MonadIO m, ToJSString val) =>+             CanvasRenderingContext2D -> Maybe val -> m ()+setLineCap self val+  = liftIO+      (js_setLineCap (unCanvasRenderingContext2D self)+         (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"lineCap\"]" js_getLineCap ::+        JSRef CanvasRenderingContext2D -> IO (JSRef (Maybe JSString))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.lineCap Mozilla CanvasRenderingContext2D.lineCap documentation> +getLineCap ::+           (MonadIO m, FromJSString result) =>+             CanvasRenderingContext2D -> m (Maybe result)+getLineCap self+  = liftIO+      (fromMaybeJSString <$>+         (js_getLineCap (unCanvasRenderingContext2D self)))+ +foreign import javascript unsafe "$1[\"lineJoin\"] = $2;"+        js_setLineJoin ::+        JSRef CanvasRenderingContext2D -> JSRef (Maybe JSString) -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.lineJoin Mozilla CanvasRenderingContext2D.lineJoin documentation> +setLineJoin ::+            (MonadIO m, ToJSString val) =>+              CanvasRenderingContext2D -> Maybe val -> m ()+setLineJoin self val+  = liftIO+      (js_setLineJoin (unCanvasRenderingContext2D self)+         (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"lineJoin\"]" js_getLineJoin+        :: JSRef CanvasRenderingContext2D -> IO (JSRef (Maybe JSString))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.lineJoin Mozilla CanvasRenderingContext2D.lineJoin documentation> +getLineJoin ::+            (MonadIO m, FromJSString result) =>+              CanvasRenderingContext2D -> m (Maybe result)+getLineJoin self+  = liftIO+      (fromMaybeJSString <$>+         (js_getLineJoin (unCanvasRenderingContext2D self)))+ +foreign import javascript unsafe "$1[\"miterLimit\"] = $2;"+        js_setMiterLimit ::+        JSRef CanvasRenderingContext2D -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.miterLimit Mozilla CanvasRenderingContext2D.miterLimit documentation> +setMiterLimit ::+              (MonadIO m) => CanvasRenderingContext2D -> Float -> m ()+setMiterLimit self val+  = liftIO (js_setMiterLimit (unCanvasRenderingContext2D self) val)+ +foreign import javascript unsafe "$1[\"miterLimit\"]"+        js_getMiterLimit :: JSRef CanvasRenderingContext2D -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.miterLimit Mozilla CanvasRenderingContext2D.miterLimit documentation> +getMiterLimit :: (MonadIO m) => CanvasRenderingContext2D -> m Float+getMiterLimit self+  = liftIO (js_getMiterLimit (unCanvasRenderingContext2D self))+ +foreign import javascript unsafe "$1[\"shadowOffsetX\"] = $2;"+        js_setShadowOffsetX ::+        JSRef CanvasRenderingContext2D -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.shadowOffsetX Mozilla CanvasRenderingContext2D.shadowOffsetX documentation> +setShadowOffsetX ::+                 (MonadIO m) => CanvasRenderingContext2D -> Float -> m ()+setShadowOffsetX self val+  = liftIO+      (js_setShadowOffsetX (unCanvasRenderingContext2D self) val)+ +foreign import javascript unsafe "$1[\"shadowOffsetX\"]"+        js_getShadowOffsetX :: JSRef CanvasRenderingContext2D -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.shadowOffsetX Mozilla CanvasRenderingContext2D.shadowOffsetX documentation> +getShadowOffsetX ::+                 (MonadIO m) => CanvasRenderingContext2D -> m Float+getShadowOffsetX self+  = liftIO (js_getShadowOffsetX (unCanvasRenderingContext2D self))+ +foreign import javascript unsafe "$1[\"shadowOffsetY\"] = $2;"+        js_setShadowOffsetY ::+        JSRef CanvasRenderingContext2D -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.shadowOffsetY Mozilla CanvasRenderingContext2D.shadowOffsetY documentation> +setShadowOffsetY ::+                 (MonadIO m) => CanvasRenderingContext2D -> Float -> m ()+setShadowOffsetY self val+  = liftIO+      (js_setShadowOffsetY (unCanvasRenderingContext2D self) val)+ +foreign import javascript unsafe "$1[\"shadowOffsetY\"]"+        js_getShadowOffsetY :: JSRef CanvasRenderingContext2D -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.shadowOffsetY Mozilla CanvasRenderingContext2D.shadowOffsetY documentation> +getShadowOffsetY ::+                 (MonadIO m) => CanvasRenderingContext2D -> m Float+getShadowOffsetY self+  = liftIO (js_getShadowOffsetY (unCanvasRenderingContext2D self))+ +foreign import javascript unsafe "$1[\"shadowBlur\"] = $2;"+        js_setShadowBlur ::+        JSRef CanvasRenderingContext2D -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.shadowBlur Mozilla CanvasRenderingContext2D.shadowBlur documentation> +setShadowBlur ::+              (MonadIO m) => CanvasRenderingContext2D -> Float -> m ()+setShadowBlur self val+  = liftIO (js_setShadowBlur (unCanvasRenderingContext2D self) val)+ +foreign import javascript unsafe "$1[\"shadowBlur\"]"+        js_getShadowBlur :: JSRef CanvasRenderingContext2D -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.shadowBlur Mozilla CanvasRenderingContext2D.shadowBlur documentation> +getShadowBlur :: (MonadIO m) => CanvasRenderingContext2D -> m Float+getShadowBlur self+  = liftIO (js_getShadowBlur (unCanvasRenderingContext2D self))+ +foreign import javascript unsafe "$1[\"shadowColor\"] = $2;"+        js_setShadowColor ::+        JSRef CanvasRenderingContext2D -> JSRef (Maybe JSString) -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.shadowColor Mozilla CanvasRenderingContext2D.shadowColor documentation> +setShadowColor ::+               (MonadIO m, ToJSString val) =>+                 CanvasRenderingContext2D -> Maybe val -> m ()+setShadowColor self val+  = liftIO+      (js_setShadowColor (unCanvasRenderingContext2D self)+         (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"shadowColor\"]"+        js_getShadowColor ::+        JSRef CanvasRenderingContext2D -> IO (JSRef (Maybe JSString))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.shadowColor Mozilla CanvasRenderingContext2D.shadowColor documentation> +getShadowColor ::+               (MonadIO m, FromJSString result) =>+                 CanvasRenderingContext2D -> m (Maybe result)+getShadowColor self+  = liftIO+      (fromMaybeJSString <$>+         (js_getShadowColor (unCanvasRenderingContext2D self)))+ +foreign import javascript unsafe "$1[\"lineDashOffset\"] = $2;"+        js_setLineDashOffset ::+        JSRef CanvasRenderingContext2D -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.lineDashOffset Mozilla CanvasRenderingContext2D.lineDashOffset documentation> +setLineDashOffset ::+                  (MonadIO m) => CanvasRenderingContext2D -> Float -> m ()+setLineDashOffset self val+  = liftIO+      (js_setLineDashOffset (unCanvasRenderingContext2D self) val)+ +foreign import javascript unsafe "$1[\"lineDashOffset\"]"+        js_getLineDashOffset :: JSRef CanvasRenderingContext2D -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.lineDashOffset Mozilla CanvasRenderingContext2D.lineDashOffset documentation> +getLineDashOffset ::+                  (MonadIO m) => CanvasRenderingContext2D -> m Float+getLineDashOffset self+  = liftIO (js_getLineDashOffset (unCanvasRenderingContext2D self))+ +foreign import javascript unsafe "$1[\"webkitLineDash\"] = $2;"+        js_setWebkitLineDash ::+        JSRef CanvasRenderingContext2D -> JSRef Array -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.webkitLineDash Mozilla CanvasRenderingContext2D.webkitLineDash documentation> +setWebkitLineDash ::+                  (MonadIO m, IsArray val) =>+                    CanvasRenderingContext2D -> Maybe val -> m ()+setWebkitLineDash self val+  = liftIO+      (js_setWebkitLineDash (unCanvasRenderingContext2D self)+         (maybe jsNull (unArray . toArray) val))+ +foreign import javascript unsafe "$1[\"webkitLineDash\"]"+        js_getWebkitLineDash ::+        JSRef CanvasRenderingContext2D -> IO (JSRef Array)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.webkitLineDash Mozilla CanvasRenderingContext2D.webkitLineDash documentation> +getWebkitLineDash ::+                  (MonadIO m) => CanvasRenderingContext2D -> m (Maybe Array)+getWebkitLineDash self+  = liftIO+      ((js_getWebkitLineDash (unCanvasRenderingContext2D self)) >>=+         fromJSRef)+ +foreign import javascript unsafe+        "$1[\"webkitLineDashOffset\"] = $2;" js_setWebkitLineDashOffset ::+        JSRef CanvasRenderingContext2D -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.webkitLineDashOffset Mozilla CanvasRenderingContext2D.webkitLineDashOffset documentation> +setWebkitLineDashOffset ::+                        (MonadIO m) => CanvasRenderingContext2D -> Float -> m ()+setWebkitLineDashOffset self val+  = liftIO+      (js_setWebkitLineDashOffset (unCanvasRenderingContext2D self) val)+ +foreign import javascript unsafe "$1[\"webkitLineDashOffset\"]"+        js_getWebkitLineDashOffset ::+        JSRef CanvasRenderingContext2D -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.webkitLineDashOffset Mozilla CanvasRenderingContext2D.webkitLineDashOffset documentation> +getWebkitLineDashOffset ::+                        (MonadIO m) => CanvasRenderingContext2D -> m Float+getWebkitLineDashOffset self+  = liftIO+      (js_getWebkitLineDashOffset (unCanvasRenderingContext2D self))+ +foreign import javascript unsafe "$1[\"font\"] = $2;" js_setFont ::+        JSRef CanvasRenderingContext2D -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.font Mozilla CanvasRenderingContext2D.font documentation> +setFont ::+        (MonadIO m, ToJSString val) =>+          CanvasRenderingContext2D -> val -> m ()+setFont self val+  = liftIO+      (js_setFont (unCanvasRenderingContext2D self) (toJSString val))+ +foreign import javascript unsafe "$1[\"font\"]" js_getFont ::+        JSRef CanvasRenderingContext2D -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.font Mozilla CanvasRenderingContext2D.font documentation> +getFont ::+        (MonadIO m, FromJSString result) =>+          CanvasRenderingContext2D -> m result+getFont self+  = liftIO+      (fromJSString <$> (js_getFont (unCanvasRenderingContext2D self)))+ +foreign import javascript unsafe "$1[\"textAlign\"] = $2;"+        js_setTextAlign ::+        JSRef CanvasRenderingContext2D -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.textAlign Mozilla CanvasRenderingContext2D.textAlign documentation> +setTextAlign ::+             (MonadIO m, ToJSString val) =>+               CanvasRenderingContext2D -> val -> m ()+setTextAlign self val+  = liftIO+      (js_setTextAlign (unCanvasRenderingContext2D self)+         (toJSString val))+ +foreign import javascript unsafe "$1[\"textAlign\"]"+        js_getTextAlign :: JSRef CanvasRenderingContext2D -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.textAlign Mozilla CanvasRenderingContext2D.textAlign documentation> +getTextAlign ::+             (MonadIO m, FromJSString result) =>+               CanvasRenderingContext2D -> m result+getTextAlign self+  = liftIO+      (fromJSString <$>+         (js_getTextAlign (unCanvasRenderingContext2D self)))+ +foreign import javascript unsafe "$1[\"textBaseline\"] = $2;"+        js_setTextBaseline ::+        JSRef CanvasRenderingContext2D -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.textBaseline Mozilla CanvasRenderingContext2D.textBaseline documentation> +setTextBaseline ::+                (MonadIO m, ToJSString val) =>+                  CanvasRenderingContext2D -> val -> m ()+setTextBaseline self val+  = liftIO+      (js_setTextBaseline (unCanvasRenderingContext2D self)+         (toJSString val))+ +foreign import javascript unsafe "$1[\"textBaseline\"]"+        js_getTextBaseline :: JSRef CanvasRenderingContext2D -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.textBaseline Mozilla CanvasRenderingContext2D.textBaseline documentation> +getTextBaseline ::+                (MonadIO m, FromJSString result) =>+                  CanvasRenderingContext2D -> m result+getTextBaseline self+  = liftIO+      (fromJSString <$>+         (js_getTextBaseline (unCanvasRenderingContext2D self)))+ +foreign import javascript unsafe "$1[\"direction\"] = $2;"+        js_setDirection ::+        JSRef CanvasRenderingContext2D -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.direction Mozilla CanvasRenderingContext2D.direction documentation> +setDirection ::+             (MonadIO m, ToJSString val) =>+               CanvasRenderingContext2D -> val -> m ()+setDirection self val+  = liftIO+      (js_setDirection (unCanvasRenderingContext2D self)+         (toJSString val))+ +foreign import javascript unsafe "$1[\"direction\"]"+        js_getDirection :: JSRef CanvasRenderingContext2D -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.direction Mozilla CanvasRenderingContext2D.direction documentation> +getDirection ::+             (MonadIO m, FromJSString result) =>+               CanvasRenderingContext2D -> m result+getDirection self+  = liftIO+      (fromJSString <$>+         (js_getDirection (unCanvasRenderingContext2D self)))+ +foreign import javascript unsafe "$1[\"strokeStyle\"] = $2;"+        js_setStrokeStyle ::+        JSRef CanvasRenderingContext2D -> JSRef CanvasStyle -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.strokeStyle Mozilla CanvasRenderingContext2D.strokeStyle documentation> +setStrokeStyle ::+               (MonadIO m, IsCanvasStyle val) =>+                 CanvasRenderingContext2D -> Maybe val -> m ()+setStrokeStyle self val+  = liftIO+      (js_setStrokeStyle (unCanvasRenderingContext2D self)+         (maybe jsNull (unCanvasStyle . toCanvasStyle) val))+ +foreign import javascript unsafe "$1[\"strokeStyle\"]"+        js_getStrokeStyle ::+        JSRef CanvasRenderingContext2D -> IO (JSRef CanvasStyle)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.strokeStyle Mozilla CanvasRenderingContext2D.strokeStyle documentation> +getStrokeStyle ::+               (MonadIO m) => CanvasRenderingContext2D -> m (Maybe CanvasStyle)+getStrokeStyle self+  = liftIO+      ((js_getStrokeStyle (unCanvasRenderingContext2D self)) >>=+         fromJSRef)+ +foreign import javascript unsafe "$1[\"fillStyle\"] = $2;"+        js_setFillStyle ::+        JSRef CanvasRenderingContext2D -> JSRef CanvasStyle -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.fillStyle Mozilla CanvasRenderingContext2D.fillStyle documentation> +setFillStyle ::+             (MonadIO m, IsCanvasStyle val) =>+               CanvasRenderingContext2D -> Maybe val -> m ()+setFillStyle self val+  = liftIO+      (js_setFillStyle (unCanvasRenderingContext2D self)+         (maybe jsNull (unCanvasStyle . toCanvasStyle) val))+ +foreign import javascript unsafe "$1[\"fillStyle\"]"+        js_getFillStyle ::+        JSRef CanvasRenderingContext2D -> IO (JSRef CanvasStyle)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.fillStyle Mozilla CanvasRenderingContext2D.fillStyle documentation> +getFillStyle ::+             (MonadIO m) => CanvasRenderingContext2D -> m (Maybe CanvasStyle)+getFillStyle self+  = liftIO+      ((js_getFillStyle (unCanvasRenderingContext2D self)) >>= fromJSRef)+ +foreign import javascript unsafe+        "$1[\"webkitBackingStorePixelRatio\"]"+        js_getWebkitBackingStorePixelRatio ::+        JSRef CanvasRenderingContext2D -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.webkitBackingStorePixelRatio Mozilla CanvasRenderingContext2D.webkitBackingStorePixelRatio documentation> +getWebkitBackingStorePixelRatio ::+                                (MonadIO m) => CanvasRenderingContext2D -> m Float+getWebkitBackingStorePixelRatio self+  = liftIO+      (js_getWebkitBackingStorePixelRatio+         (unCanvasRenderingContext2D self))+ +foreign import javascript unsafe+        "$1[\"webkitImageSmoothingEnabled\"] = $2;"+        js_setWebkitImageSmoothingEnabled ::+        JSRef CanvasRenderingContext2D -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.webkitImageSmoothingEnabled Mozilla CanvasRenderingContext2D.webkitImageSmoothingEnabled documentation> +setWebkitImageSmoothingEnabled ::+                               (MonadIO m) => CanvasRenderingContext2D -> Bool -> m ()+setWebkitImageSmoothingEnabled self val+  = liftIO+      (js_setWebkitImageSmoothingEnabled+         (unCanvasRenderingContext2D self)+         val)+ +foreign import javascript unsafe+        "($1[\"webkitImageSmoothingEnabled\"] ? 1 : 0)"+        js_getWebkitImageSmoothingEnabled ::+        JSRef CanvasRenderingContext2D -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.webkitImageSmoothingEnabled Mozilla CanvasRenderingContext2D.webkitImageSmoothingEnabled documentation> +getWebkitImageSmoothingEnabled ::+                               (MonadIO m) => CanvasRenderingContext2D -> m Bool+getWebkitImageSmoothingEnabled self+  = liftIO+      (js_getWebkitImageSmoothingEnabled+         (unCanvasRenderingContext2D self))
+ src/GHCJS/DOM/JSFFI/Generated/CapabilityRange.hs view
@@ -0,0 +1,42 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.CapabilityRange+       (js_getMax, getMax, js_getMin, getMin, js_getSupported,+        getSupported, CapabilityRange, castToCapabilityRange,+        gTypeCapabilityRange)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"max\"]" js_getMax ::+        JSRef CapabilityRange -> IO (JSRef a)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CapabilityRange.max Mozilla CapabilityRange.max documentation> +getMax :: (MonadIO m) => CapabilityRange -> m (JSRef a)+getMax self = liftIO (js_getMax (unCapabilityRange self))+ +foreign import javascript unsafe "$1[\"min\"]" js_getMin ::+        JSRef CapabilityRange -> IO (JSRef a)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CapabilityRange.min Mozilla CapabilityRange.min documentation> +getMin :: (MonadIO m) => CapabilityRange -> m (JSRef a)+getMin self = liftIO (js_getMin (unCapabilityRange self))+ +foreign import javascript unsafe "($1[\"supported\"] ? 1 : 0)"+        js_getSupported :: JSRef CapabilityRange -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CapabilityRange.supported Mozilla CapabilityRange.supported documentation> +getSupported :: (MonadIO m) => CapabilityRange -> m Bool+getSupported self+  = liftIO (js_getSupported (unCapabilityRange self))
+ src/GHCJS/DOM/JSFFI/Generated/CharacterData.hs view
@@ -0,0 +1,118 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.CharacterData+       (js_substringData, substringData, js_appendData, appendData,+        js_insertData, insertData, js_deleteData, deleteData,+        js_replaceData, replaceData, js_setData, setData, js_getData,+        getData, js_getLength, getLength, CharacterData,+        castToCharacterData, gTypeCharacterData, IsCharacterData,+        toCharacterData)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"substringData\"]($2, $3)"+        js_substringData ::+        JSRef CharacterData -> Word -> Word -> IO (JSRef (Maybe JSString))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CharacterData.substringData Mozilla CharacterData.substringData documentation> +substringData ::+              (MonadIO m, IsCharacterData self, FromJSString result) =>+                self -> Word -> Word -> m (Maybe result)+substringData self offset length+  = liftIO+      (fromMaybeJSString <$>+         (js_substringData (unCharacterData (toCharacterData self)) offset+            length))+ +foreign import javascript unsafe "$1[\"appendData\"]($2)"+        js_appendData :: JSRef CharacterData -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CharacterData.appendData Mozilla CharacterData.appendData documentation> +appendData ::+           (MonadIO m, IsCharacterData self, ToJSString data') =>+             self -> data' -> m ()+appendData self data'+  = liftIO+      (js_appendData (unCharacterData (toCharacterData self))+         (toJSString data'))+ +foreign import javascript unsafe "$1[\"insertData\"]($2, $3)"+        js_insertData :: JSRef CharacterData -> Word -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CharacterData.insertData Mozilla CharacterData.insertData documentation> +insertData ::+           (MonadIO m, IsCharacterData self, ToJSString data') =>+             self -> Word -> data' -> m ()+insertData self offset data'+  = liftIO+      (js_insertData (unCharacterData (toCharacterData self)) offset+         (toJSString data'))+ +foreign import javascript unsafe "$1[\"deleteData\"]($2, $3)"+        js_deleteData :: JSRef CharacterData -> Word -> Word -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CharacterData.deleteData Mozilla CharacterData.deleteData documentation> +deleteData ::+           (MonadIO m, IsCharacterData self) => self -> Word -> Word -> m ()+deleteData self offset length+  = liftIO+      (js_deleteData (unCharacterData (toCharacterData self)) offset+         length)+ +foreign import javascript unsafe "$1[\"replaceData\"]($2, $3, $4)"+        js_replaceData ::+        JSRef CharacterData -> Word -> Word -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CharacterData.replaceData Mozilla CharacterData.replaceData documentation> +replaceData ::+            (MonadIO m, IsCharacterData self, ToJSString data') =>+              self -> Word -> Word -> data' -> m ()+replaceData self offset length data'+  = liftIO+      (js_replaceData (unCharacterData (toCharacterData self)) offset+         length+         (toJSString data'))+ +foreign import javascript unsafe "$1[\"data\"] = $2;" js_setData ::+        JSRef CharacterData -> JSRef (Maybe JSString) -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CharacterData.data Mozilla CharacterData.data documentation> +setData ::+        (MonadIO m, IsCharacterData self, ToJSString val) =>+          self -> Maybe val -> m ()+setData self val+  = liftIO+      (js_setData (unCharacterData (toCharacterData self))+         (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"data\"]" js_getData ::+        JSRef CharacterData -> IO (JSRef (Maybe JSString))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CharacterData.data Mozilla CharacterData.data documentation> +getData ::+        (MonadIO m, IsCharacterData self, FromJSString result) =>+          self -> m (Maybe result)+getData self+  = liftIO+      (fromMaybeJSString <$>+         (js_getData (unCharacterData (toCharacterData self))))+ +foreign import javascript unsafe "$1[\"length\"]" js_getLength ::+        JSRef CharacterData -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CharacterData.length Mozilla CharacterData.length documentation> +getLength :: (MonadIO m, IsCharacterData self) => self -> m Word+getLength self+  = liftIO (js_getLength (unCharacterData (toCharacterData self)))
+ src/GHCJS/DOM/JSFFI/Generated/ChildNode.hs view
@@ -0,0 +1,25 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.ChildNode+       (js_remove, remove, ChildNode, castToChildNode, gTypeChildNode)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"remove\"]()" js_remove ::+        JSRef ChildNode -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ChildNode.remove Mozilla ChildNode.remove documentation> +remove :: (MonadIO m) => ChildNode -> m ()+remove self = liftIO (js_remove (unChildNode self))
+ src/GHCJS/DOM/JSFFI/Generated/ClientRect.hs view
@@ -0,0 +1,62 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.ClientRect+       (js_getTop, getTop, js_getRight, getRight, js_getBottom, getBottom,+        js_getLeft, getLeft, js_getWidth, getWidth, js_getHeight,+        getHeight, ClientRect, castToClientRect, gTypeClientRect)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"top\"]" js_getTop ::+        JSRef ClientRect -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ClientRect.top Mozilla ClientRect.top documentation> +getTop :: (MonadIO m) => ClientRect -> m Float+getTop self = liftIO (js_getTop (unClientRect self))+ +foreign import javascript unsafe "$1[\"right\"]" js_getRight ::+        JSRef ClientRect -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ClientRect.right Mozilla ClientRect.right documentation> +getRight :: (MonadIO m) => ClientRect -> m Float+getRight self = liftIO (js_getRight (unClientRect self))+ +foreign import javascript unsafe "$1[\"bottom\"]" js_getBottom ::+        JSRef ClientRect -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ClientRect.bottom Mozilla ClientRect.bottom documentation> +getBottom :: (MonadIO m) => ClientRect -> m Float+getBottom self = liftIO (js_getBottom (unClientRect self))+ +foreign import javascript unsafe "$1[\"left\"]" js_getLeft ::+        JSRef ClientRect -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ClientRect.left Mozilla ClientRect.left documentation> +getLeft :: (MonadIO m) => ClientRect -> m Float+getLeft self = liftIO (js_getLeft (unClientRect self))+ +foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::+        JSRef ClientRect -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ClientRect.width Mozilla ClientRect.width documentation> +getWidth :: (MonadIO m) => ClientRect -> m Float+getWidth self = liftIO (js_getWidth (unClientRect self))+ +foreign import javascript unsafe "$1[\"height\"]" js_getHeight ::+        JSRef ClientRect -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ClientRect.height Mozilla ClientRect.height documentation> +getHeight :: (MonadIO m) => ClientRect -> m Float+getHeight self = liftIO (js_getHeight (unClientRect self))
+ src/GHCJS/DOM/JSFFI/Generated/ClientRectList.hs view
@@ -0,0 +1,35 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.ClientRectList+       (js_item, item, js_getLength, getLength, ClientRectList,+        castToClientRectList, gTypeClientRectList)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"item\"]($2)" js_item ::+        JSRef ClientRectList -> Word -> IO (JSRef ClientRect)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ClientRectList.item Mozilla ClientRectList.item documentation> +item ::+     (MonadIO m) => ClientRectList -> Word -> m (Maybe ClientRect)+item self index+  = liftIO ((js_item (unClientRectList self) index) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"length\"]" js_getLength ::+        JSRef ClientRectList -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ClientRectList.length Mozilla ClientRectList.length documentation> +getLength :: (MonadIO m) => ClientRectList -> m Word+getLength self = liftIO (js_getLength (unClientRectList self))
+ src/GHCJS/DOM/JSFFI/Generated/CloseEvent.hs view
@@ -0,0 +1,42 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.CloseEvent+       (js_getWasClean, getWasClean, js_getCode, getCode, js_getReason,+        getReason, CloseEvent, castToCloseEvent, gTypeCloseEvent)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "($1[\"wasClean\"] ? 1 : 0)"+        js_getWasClean :: JSRef CloseEvent -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CloseEvent.wasClean Mozilla CloseEvent.wasClean documentation> +getWasClean :: (MonadIO m) => CloseEvent -> m Bool+getWasClean self = liftIO (js_getWasClean (unCloseEvent self))+ +foreign import javascript unsafe "$1[\"code\"]" js_getCode ::+        JSRef CloseEvent -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CloseEvent.code Mozilla CloseEvent.code documentation> +getCode :: (MonadIO m) => CloseEvent -> m Word+getCode self = liftIO (js_getCode (unCloseEvent self))+ +foreign import javascript unsafe "$1[\"reason\"]" js_getReason ::+        JSRef CloseEvent -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CloseEvent.reason Mozilla CloseEvent.reason documentation> +getReason ::+          (MonadIO m, FromJSString result) => CloseEvent -> m result+getReason self+  = liftIO (fromJSString <$> (js_getReason (unCloseEvent self)))
+ src/GHCJS/DOM/JSFFI/Generated/CommandLineAPIHost.hs view
@@ -0,0 +1,98 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.CommandLineAPIHost+       (js_clearConsoleMessages, clearConsoleMessages, js_copyText,+        copyText, js_inspect, inspect, js_inspectedObject, inspectedObject,+        js_getEventListeners, getEventListeners, js_databaseId, databaseId,+        js_storageId, storageId, CommandLineAPIHost,+        castToCommandLineAPIHost, gTypeCommandLineAPIHost)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"clearConsoleMessages\"]()"+        js_clearConsoleMessages :: JSRef CommandLineAPIHost -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CommandLineAPIHost.clearConsoleMessages Mozilla CommandLineAPIHost.clearConsoleMessages documentation> +clearConsoleMessages :: (MonadIO m) => CommandLineAPIHost -> m ()+clearConsoleMessages self+  = liftIO (js_clearConsoleMessages (unCommandLineAPIHost self))+ +foreign import javascript unsafe "$1[\"copyText\"]($2)" js_copyText+        :: JSRef CommandLineAPIHost -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CommandLineAPIHost.copyText Mozilla CommandLineAPIHost.copyText documentation> +copyText ::+         (MonadIO m, ToJSString text) => CommandLineAPIHost -> text -> m ()+copyText self text+  = liftIO+      (js_copyText (unCommandLineAPIHost self) (toJSString text))+ +foreign import javascript unsafe "$1[\"inspect\"]($2, $3)"+        js_inspect ::+        JSRef CommandLineAPIHost -> JSRef a -> JSRef a -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CommandLineAPIHost.inspect Mozilla CommandLineAPIHost.inspect documentation> +inspect ::+        (MonadIO m) => CommandLineAPIHost -> JSRef a -> JSRef a -> m ()+inspect self objectId hints+  = liftIO (js_inspect (unCommandLineAPIHost self) objectId hints)+ +foreign import javascript unsafe "$1[\"inspectedObject\"]($2)"+        js_inspectedObject ::+        JSRef CommandLineAPIHost -> Int -> IO (JSRef a)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CommandLineAPIHost.inspectedObject Mozilla CommandLineAPIHost.inspectedObject documentation> +inspectedObject ::+                (MonadIO m) => CommandLineAPIHost -> Int -> m (JSRef a)+inspectedObject self num+  = liftIO (js_inspectedObject (unCommandLineAPIHost self) num)+ +foreign import javascript unsafe "$1[\"getEventListeners\"]($2)"+        js_getEventListeners ::+        JSRef CommandLineAPIHost -> JSRef Node -> IO (JSRef Array)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CommandLineAPIHost.getEventListeners Mozilla CommandLineAPIHost.getEventListeners documentation> +getEventListeners ::+                  (MonadIO m, IsNode node) =>+                    CommandLineAPIHost -> Maybe node -> m (Maybe Array)+getEventListeners self node+  = liftIO+      ((js_getEventListeners (unCommandLineAPIHost self)+          (maybe jsNull (unNode . toNode) node))+         >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"databaseId\"]($2)"+        js_databaseId :: JSRef CommandLineAPIHost -> JSRef a -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CommandLineAPIHost.databaseId Mozilla CommandLineAPIHost.databaseId documentation> +databaseId ::+           (MonadIO m, FromJSString result) =>+             CommandLineAPIHost -> JSRef a -> m result+databaseId self database+  = liftIO+      (fromJSString <$>+         (js_databaseId (unCommandLineAPIHost self) database))+ +foreign import javascript unsafe "$1[\"storageId\"]($2)"+        js_storageId :: JSRef CommandLineAPIHost -> JSRef a -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CommandLineAPIHost.storageId Mozilla CommandLineAPIHost.storageId documentation> +storageId ::+          (MonadIO m, FromJSString result) =>+            CommandLineAPIHost -> JSRef a -> m result+storageId self storage+  = liftIO+      (fromJSString <$>+         (js_storageId (unCommandLineAPIHost self) storage))
+ src/GHCJS/DOM/JSFFI/Generated/Comment.hs view
@@ -0,0 +1,26 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.Comment+       (js_newComment, newComment, Comment, castToComment, gTypeComment)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "new window[\"Comment\"]($1)"+        js_newComment :: JSString -> IO (JSRef Comment)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Comment Mozilla Comment documentation> +newComment :: (MonadIO m, ToJSString data') => data' -> m Comment+newComment data'+  = liftIO (js_newComment (toJSString data') >>= fromJSRefUnchecked)
+ src/GHCJS/DOM/JSFFI/Generated/CompositionEvent.hs view
@@ -0,0 +1,50 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.CompositionEvent+       (js_initCompositionEvent, initCompositionEvent, js_getData,+        getData, CompositionEvent, castToCompositionEvent,+        gTypeCompositionEvent)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe+        "$1[\"initCompositionEvent\"]($2,\n$3, $4, $5, $6)"+        js_initCompositionEvent ::+        JSRef CompositionEvent ->+          JSString -> Bool -> Bool -> JSRef Window -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CompositionEvent.initCompositionEvent Mozilla CompositionEvent.initCompositionEvent documentation> +initCompositionEvent ::+                     (MonadIO m, ToJSString typeArg, ToJSString dataArg) =>+                       CompositionEvent ->+                         typeArg -> Bool -> Bool -> Maybe Window -> dataArg -> m ()+initCompositionEvent self typeArg canBubbleArg cancelableArg+  viewArg dataArg+  = liftIO+      (js_initCompositionEvent (unCompositionEvent self)+         (toJSString typeArg)+         canBubbleArg+         cancelableArg+         (maybe jsNull pToJSRef viewArg)+         (toJSString dataArg))+ +foreign import javascript unsafe "$1[\"data\"]" js_getData ::+        JSRef CompositionEvent -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CompositionEvent.data Mozilla CompositionEvent.data documentation> +getData ::+        (MonadIO m, FromJSString result) => CompositionEvent -> m result+getData self+  = liftIO (fromJSString <$> (js_getData (unCompositionEvent self)))
+ src/GHCJS/DOM/JSFFI/Generated/ConvolverNode.hs view
@@ -0,0 +1,53 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.ConvolverNode+       (js_setBuffer, setBuffer, js_getBuffer, getBuffer, js_setNormalize,+        setNormalize, js_getNormalize, getNormalize, ConvolverNode,+        castToConvolverNode, gTypeConvolverNode)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"buffer\"] = $2;"+        js_setBuffer :: JSRef ConvolverNode -> JSRef AudioBuffer -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ConvolverNode.buffer Mozilla ConvolverNode.buffer documentation> +setBuffer ::+          (MonadIO m) => ConvolverNode -> Maybe AudioBuffer -> m ()+setBuffer self val+  = liftIO+      (js_setBuffer (unConvolverNode self) (maybe jsNull pToJSRef val))+ +foreign import javascript unsafe "$1[\"buffer\"]" js_getBuffer ::+        JSRef ConvolverNode -> IO (JSRef AudioBuffer)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ConvolverNode.buffer Mozilla ConvolverNode.buffer documentation> +getBuffer :: (MonadIO m) => ConvolverNode -> m (Maybe AudioBuffer)+getBuffer self+  = liftIO ((js_getBuffer (unConvolverNode self)) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"normalize\"] = $2;"+        js_setNormalize :: JSRef ConvolverNode -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ConvolverNode.normalize Mozilla ConvolverNode.normalize documentation> +setNormalize :: (MonadIO m) => ConvolverNode -> Bool -> m ()+setNormalize self val+  = liftIO (js_setNormalize (unConvolverNode self) val)+ +foreign import javascript unsafe "($1[\"normalize\"] ? 1 : 0)"+        js_getNormalize :: JSRef ConvolverNode -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ConvolverNode.normalize Mozilla ConvolverNode.normalize documentation> +getNormalize :: (MonadIO m) => ConvolverNode -> m Bool+getNormalize self = liftIO (js_getNormalize (unConvolverNode self))
+ src/GHCJS/DOM/JSFFI/Generated/Coordinates.hs view
@@ -0,0 +1,82 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.Coordinates+       (js_getLatitude, getLatitude, js_getLongitude, getLongitude,+        js_getAltitude, getAltitude, js_getAccuracy, getAccuracy,+        js_getAltitudeAccuracy, getAltitudeAccuracy, js_getHeading,+        getHeading, js_getSpeed, getSpeed, Coordinates, castToCoordinates,+        gTypeCoordinates)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"latitude\"]" js_getLatitude+        :: JSRef Coordinates -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Coordinates.latitude Mozilla Coordinates.latitude documentation> +getLatitude :: (MonadIO m) => Coordinates -> m Double+getLatitude self = liftIO (js_getLatitude (unCoordinates self))+ +foreign import javascript unsafe "$1[\"longitude\"]"+        js_getLongitude :: JSRef Coordinates -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Coordinates.longitude Mozilla Coordinates.longitude documentation> +getLongitude :: (MonadIO m) => Coordinates -> m Double+getLongitude self = liftIO (js_getLongitude (unCoordinates self))+ +foreign import javascript unsafe "$1[\"altitude\"]" js_getAltitude+        :: JSRef Coordinates -> IO (JSRef (Maybe Double))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Coordinates.altitude Mozilla Coordinates.altitude documentation> +getAltitude :: (MonadIO m) => Coordinates -> m (Maybe Double)+getAltitude self+  = liftIO+      ((js_getAltitude (unCoordinates self)) >>= fromJSRefUnchecked)+ +foreign import javascript unsafe "$1[\"accuracy\"]" js_getAccuracy+        :: JSRef Coordinates -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Coordinates.accuracy Mozilla Coordinates.accuracy documentation> +getAccuracy :: (MonadIO m) => Coordinates -> m Double+getAccuracy self = liftIO (js_getAccuracy (unCoordinates self))+ +foreign import javascript unsafe "$1[\"altitudeAccuracy\"]"+        js_getAltitudeAccuracy ::+        JSRef Coordinates -> IO (JSRef (Maybe Double))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Coordinates.altitudeAccuracy Mozilla Coordinates.altitudeAccuracy documentation> +getAltitudeAccuracy ::+                    (MonadIO m) => Coordinates -> m (Maybe Double)+getAltitudeAccuracy self+  = liftIO+      ((js_getAltitudeAccuracy (unCoordinates self)) >>=+         fromJSRefUnchecked)+ +foreign import javascript unsafe "$1[\"heading\"]" js_getHeading ::+        JSRef Coordinates -> IO (JSRef (Maybe Double))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Coordinates.heading Mozilla Coordinates.heading documentation> +getHeading :: (MonadIO m) => Coordinates -> m (Maybe Double)+getHeading self+  = liftIO+      ((js_getHeading (unCoordinates self)) >>= fromJSRefUnchecked)+ +foreign import javascript unsafe "$1[\"speed\"]" js_getSpeed ::+        JSRef Coordinates -> IO (JSRef (Maybe Double))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Coordinates.speed Mozilla Coordinates.speed documentation> +getSpeed :: (MonadIO m) => Coordinates -> m (Maybe Double)+getSpeed self+  = liftIO+      ((js_getSpeed (unCoordinates self)) >>= fromJSRefUnchecked)
+ src/GHCJS/DOM/JSFFI/Generated/Counter.hs view
@@ -0,0 +1,47 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.Counter+       (js_getIdentifier, getIdentifier, js_getListStyle, getListStyle,+        js_getSeparator, getSeparator, Counter, castToCounter,+        gTypeCounter)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"identifier\"]"+        js_getIdentifier :: JSRef Counter -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Counter.identifier Mozilla Counter.identifier documentation> +getIdentifier ::+              (MonadIO m, FromJSString result) => Counter -> m result+getIdentifier self+  = liftIO (fromJSString <$> (js_getIdentifier (unCounter self)))+ +foreign import javascript unsafe "$1[\"listStyle\"]"+        js_getListStyle :: JSRef Counter -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Counter.listStyle Mozilla Counter.listStyle documentation> +getListStyle ::+             (MonadIO m, FromJSString result) => Counter -> m result+getListStyle self+  = liftIO (fromJSString <$> (js_getListStyle (unCounter self)))+ +foreign import javascript unsafe "$1[\"separator\"]"+        js_getSeparator :: JSRef Counter -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Counter.separator Mozilla Counter.separator documentation> +getSeparator ::+             (MonadIO m, FromJSString result) => Counter -> m result+getSeparator self+  = liftIO (fromJSString <$> (js_getSeparator (unCounter self)))
+ src/GHCJS/DOM/JSFFI/Generated/Crypto.hs view
@@ -0,0 +1,41 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.Crypto+       (js_getRandomValues, getRandomValues, js_getWebkitSubtle,+        getWebkitSubtle, Crypto, castToCrypto, gTypeCrypto)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"getRandomValues\"]($2)"+        js_getRandomValues ::+        JSRef Crypto -> JSRef ArrayBufferView -> IO (JSRef ArrayBufferView)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Crypto.getRandomValues Mozilla Crypto.getRandomValues documentation> +getRandomValues ::+                (MonadIO m, IsArrayBufferView array) =>+                  Crypto -> Maybe array -> m (Maybe ArrayBufferView)+getRandomValues self array+  = liftIO+      ((js_getRandomValues (unCrypto self)+          (maybe jsNull (unArrayBufferView . toArrayBufferView) array))+         >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"webkitSubtle\"]"+        js_getWebkitSubtle :: JSRef Crypto -> IO (JSRef SubtleCrypto)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Crypto.webkitSubtle Mozilla Crypto.webkitSubtle documentation> +getWebkitSubtle :: (MonadIO m) => Crypto -> m (Maybe SubtleCrypto)+getWebkitSubtle self+  = liftIO ((js_getWebkitSubtle (unCrypto self)) >>= fromJSRef)
+ src/GHCJS/DOM/JSFFI/Generated/CryptoKey.hs view
@@ -0,0 +1,51 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.CryptoKey+       (js_getType, getType, js_getExtractable, getExtractable,+        js_getAlgorithm, getAlgorithm, js_getUsages, getUsages, CryptoKey,+        castToCryptoKey, gTypeCryptoKey)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"type\"]" js_getType ::+        JSRef CryptoKey -> IO (JSRef KeyType)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CryptoKey.type Mozilla CryptoKey.type documentation> +getType :: (MonadIO m) => CryptoKey -> m KeyType+getType self+  = liftIO ((js_getType (unCryptoKey self)) >>= fromJSRefUnchecked)+ +foreign import javascript unsafe "($1[\"extractable\"] ? 1 : 0)"+        js_getExtractable :: JSRef CryptoKey -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CryptoKey.extractable Mozilla CryptoKey.extractable documentation> +getExtractable :: (MonadIO m) => CryptoKey -> m Bool+getExtractable self = liftIO (js_getExtractable (unCryptoKey self))+ +foreign import javascript unsafe "$1[\"algorithm\"]"+        js_getAlgorithm :: JSRef CryptoKey -> IO (JSRef Algorithm)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CryptoKey.algorithm Mozilla CryptoKey.algorithm documentation> +getAlgorithm :: (MonadIO m) => CryptoKey -> m (Maybe Algorithm)+getAlgorithm self+  = liftIO ((js_getAlgorithm (unCryptoKey self)) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"usages\"]" js_getUsages ::+        JSRef CryptoKey -> IO (JSRef [KeyUsage])++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CryptoKey.usages Mozilla CryptoKey.usages documentation> +getUsages :: (MonadIO m) => CryptoKey -> m [KeyUsage]+getUsages self+  = liftIO ((js_getUsages (unCryptoKey self)) >>= fromJSRefUnchecked)
+ src/GHCJS/DOM/JSFFI/Generated/CryptoKeyPair.hs view
@@ -0,0 +1,36 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.CryptoKeyPair+       (js_getPublicKey, getPublicKey, js_getPrivateKey, getPrivateKey,+        CryptoKeyPair, castToCryptoKeyPair, gTypeCryptoKeyPair)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"publicKey\"]"+        js_getPublicKey :: JSRef CryptoKeyPair -> IO (JSRef CryptoKey)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CryptoKeyPair.publicKey Mozilla CryptoKeyPair.publicKey documentation> +getPublicKey :: (MonadIO m) => CryptoKeyPair -> m (Maybe CryptoKey)+getPublicKey self+  = liftIO ((js_getPublicKey (unCryptoKeyPair self)) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"privateKey\"]"+        js_getPrivateKey :: JSRef CryptoKeyPair -> IO (JSRef CryptoKey)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CryptoKeyPair.privateKey Mozilla CryptoKeyPair.privateKey documentation> +getPrivateKey ::+              (MonadIO m) => CryptoKeyPair -> m (Maybe CryptoKey)+getPrivateKey self+  = liftIO ((js_getPrivateKey (unCryptoKeyPair self)) >>= fromJSRef)
+ src/GHCJS/DOM/JSFFI/Generated/CustomEvent.hs view
@@ -0,0 +1,41 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.CustomEvent+       (js_initCustomEvent, initCustomEvent, js_getDetail, getDetail,+        CustomEvent, castToCustomEvent, gTypeCustomEvent)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe+        "$1[\"initCustomEvent\"]($2, $3,\n$4, $5)" js_initCustomEvent ::+        JSRef CustomEvent -> JSString -> Bool -> Bool -> JSRef a -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CustomEvent.initCustomEvent Mozilla CustomEvent.initCustomEvent documentation> +initCustomEvent ::+                (MonadIO m, ToJSString typeArg) =>+                  CustomEvent -> typeArg -> Bool -> Bool -> JSRef a -> m ()+initCustomEvent self typeArg canBubbleArg cancelableArg detailArg+  = liftIO+      (js_initCustomEvent (unCustomEvent self) (toJSString typeArg)+         canBubbleArg+         cancelableArg+         detailArg)+ +foreign import javascript unsafe "$1[\"detail\"]" js_getDetail ::+        JSRef CustomEvent -> IO (JSRef a)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CustomEvent.detail Mozilla CustomEvent.detail documentation> +getDetail :: (MonadIO m) => CustomEvent -> m (JSRef a)+getDetail self = liftIO (js_getDetail (unCustomEvent self))
+ src/GHCJS/DOM/JSFFI/Generated/DOMError.hs view
@@ -0,0 +1,30 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.DOMError+       (js_getName, getName, DOMError, castToDOMError, gTypeDOMError,+        IsDOMError, toDOMError)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"name\"]" js_getName ::+        JSRef DOMError -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMError.name Mozilla DOMError.name documentation> +getName ::+        (MonadIO m, IsDOMError self, FromJSString result) =>+          self -> m result+getName self+  = liftIO+      (fromJSString <$> (js_getName (unDOMError (toDOMError self))))
+ src/GHCJS/DOM/JSFFI/Generated/DOMImplementation.hs view
@@ -0,0 +1,108 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.DOMImplementation+       (js_hasFeature, hasFeature, js_createDocumentType,+        createDocumentType, js_createDocument, createDocument,+        js_createCSSStyleSheet, createCSSStyleSheet, js_createHTMLDocument,+        createHTMLDocument, DOMImplementation, castToDOMImplementation,+        gTypeDOMImplementation)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe+        "($1[\"hasFeature\"]($2,\n$3) ? 1 : 0)" js_hasFeature ::+        JSRef DOMImplementation ->+          JSString -> JSRef (Maybe JSString) -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMImplementation.hasFeature Mozilla DOMImplementation.hasFeature documentation> +hasFeature ::+           (MonadIO m, ToJSString feature, ToJSString version) =>+             DOMImplementation -> feature -> Maybe version -> m Bool+hasFeature self feature version+  = liftIO+      (js_hasFeature (unDOMImplementation self) (toJSString feature)+         (toMaybeJSString version))+ +foreign import javascript unsafe+        "$1[\"createDocumentType\"]($2, $3,\n$4)" js_createDocumentType ::+        JSRef DOMImplementation ->+          JSRef (Maybe JSString) ->+            JSRef (Maybe JSString) ->+              JSRef (Maybe JSString) -> IO (JSRef DocumentType)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMImplementation.createDocumentType Mozilla DOMImplementation.createDocumentType documentation> +createDocumentType ::+                   (MonadIO m, ToJSString qualifiedName, ToJSString publicId,+                    ToJSString systemId) =>+                     DOMImplementation ->+                       Maybe qualifiedName ->+                         Maybe publicId -> Maybe systemId -> m (Maybe DocumentType)+createDocumentType self qualifiedName publicId systemId+  = liftIO+      ((js_createDocumentType (unDOMImplementation self)+          (toMaybeJSString qualifiedName)+          (toMaybeJSString publicId)+          (toMaybeJSString systemId))+         >>= fromJSRef)+ +foreign import javascript unsafe+        "$1[\"createDocument\"]($2, $3, $4)" js_createDocument ::+        JSRef DOMImplementation ->+          JSRef (Maybe JSString) ->+            JSRef (Maybe JSString) -> JSRef DocumentType -> IO (JSRef Document)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMImplementation.createDocument Mozilla DOMImplementation.createDocument documentation> +createDocument ::+               (MonadIO m, ToJSString namespaceURI, ToJSString qualifiedName) =>+                 DOMImplementation ->+                   Maybe namespaceURI ->+                     Maybe qualifiedName -> Maybe DocumentType -> m (Maybe Document)+createDocument self namespaceURI qualifiedName doctype+  = liftIO+      ((js_createDocument (unDOMImplementation self)+          (toMaybeJSString namespaceURI)+          (toMaybeJSString qualifiedName)+          (maybe jsNull pToJSRef doctype))+         >>= fromJSRef)+ +foreign import javascript unsafe+        "$1[\"createCSSStyleSheet\"]($2,\n$3)" js_createCSSStyleSheet ::+        JSRef DOMImplementation ->+          JSString -> JSString -> IO (JSRef CSSStyleSheet)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMImplementation.createCSSStyleSheet Mozilla DOMImplementation.createCSSStyleSheet documentation> +createCSSStyleSheet ::+                    (MonadIO m, ToJSString title, ToJSString media) =>+                      DOMImplementation -> title -> media -> m (Maybe CSSStyleSheet)+createCSSStyleSheet self title media+  = liftIO+      ((js_createCSSStyleSheet (unDOMImplementation self)+          (toJSString title)+          (toJSString media))+         >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"createHTMLDocument\"]($2)"+        js_createHTMLDocument ::+        JSRef DOMImplementation -> JSString -> IO (JSRef HTMLDocument)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMImplementation.createHTMLDocument Mozilla DOMImplementation.createHTMLDocument documentation> +createHTMLDocument ::+                   (MonadIO m, ToJSString title) =>+                     DOMImplementation -> title -> m (Maybe HTMLDocument)+createHTMLDocument self title+  = liftIO+      ((js_createHTMLDocument (unDOMImplementation self)+          (toJSString title))+         >>= fromJSRef)
+ src/GHCJS/DOM/JSFFI/Generated/DOMNamedFlowCollection.hs view
@@ -0,0 +1,53 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.DOMNamedFlowCollection+       (js_item, item, js_namedItem, namedItem, js_getLength, getLength,+        DOMNamedFlowCollection, castToDOMNamedFlowCollection,+        gTypeDOMNamedFlowCollection)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"item\"]($2)" js_item ::+        JSRef DOMNamedFlowCollection -> Word -> IO (JSRef WebKitNamedFlow)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitNamedFlowCollection.item Mozilla WebKitNamedFlowCollection.item documentation> +item ::+     (MonadIO m) =>+       DOMNamedFlowCollection -> Word -> m (Maybe WebKitNamedFlow)+item self index+  = liftIO+      ((js_item (unDOMNamedFlowCollection self) index) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"namedItem\"]($2)"+        js_namedItem ::+        JSRef DOMNamedFlowCollection ->+          JSString -> IO (JSRef WebKitNamedFlow)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitNamedFlowCollection.namedItem Mozilla WebKitNamedFlowCollection.namedItem documentation> +namedItem ::+          (MonadIO m, ToJSString name) =>+            DOMNamedFlowCollection -> name -> m (Maybe WebKitNamedFlow)+namedItem self name+  = liftIO+      ((js_namedItem (unDOMNamedFlowCollection self) (toJSString name))+         >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"length\"]" js_getLength ::+        JSRef DOMNamedFlowCollection -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitNamedFlowCollection.length Mozilla WebKitNamedFlowCollection.length documentation> +getLength :: (MonadIO m) => DOMNamedFlowCollection -> m Word+getLength self+  = liftIO (js_getLength (unDOMNamedFlowCollection self))
+ src/GHCJS/DOM/JSFFI/Generated/DOMParser.hs view
@@ -0,0 +1,40 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.DOMParser+       (js_newDOMParser, newDOMParser, js_parseFromString,+        parseFromString, DOMParser, castToDOMParser, gTypeDOMParser)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "new window[\"DOMParser\"]()"+        js_newDOMParser :: IO (JSRef DOMParser)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMParser Mozilla DOMParser documentation> +newDOMParser :: (MonadIO m) => m DOMParser+newDOMParser = liftIO (js_newDOMParser >>= fromJSRefUnchecked)+ +foreign import javascript unsafe "$1[\"parseFromString\"]($2, $3)"+        js_parseFromString ::+        JSRef DOMParser -> JSString -> JSString -> IO (JSRef Document)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMParser.parseFromString Mozilla DOMParser.parseFromString documentation> +parseFromString ::+                (MonadIO m, ToJSString str, ToJSString contentType) =>+                  DOMParser -> str -> contentType -> m (Maybe Document)+parseFromString self str contentType+  = liftIO+      ((js_parseFromString (unDOMParser self) (toJSString str)+          (toJSString contentType))+         >>= fromJSRef)
+ src/GHCJS/DOM/JSFFI/Generated/DOMSettableTokenList.hs view
@@ -0,0 +1,53 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.DOMSettableTokenList+       (js__get, _get, js_setValue, setValue, js_getValue, getValue,+        DOMSettableTokenList, castToDOMSettableTokenList,+        gTypeDOMSettableTokenList)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"_get\"]($2)" js__get ::+        JSRef DOMSettableTokenList -> Word -> IO (JSRef (Maybe JSString))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMSettableTokenList._get Mozilla DOMSettableTokenList._get documentation> +_get ::+     (MonadIO m, FromJSString result) =>+       DOMSettableTokenList -> Word -> m (Maybe result)+_get self index+  = liftIO+      (fromMaybeJSString <$>+         (js__get (unDOMSettableTokenList self) index))+ +foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue+        :: JSRef DOMSettableTokenList -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMSettableTokenList.value Mozilla DOMSettableTokenList.value documentation> +setValue ::+         (MonadIO m, ToJSString val) => DOMSettableTokenList -> val -> m ()+setValue self val+  = liftIO+      (js_setValue (unDOMSettableTokenList self) (toJSString val))+ +foreign import javascript unsafe "$1[\"value\"]" js_getValue ::+        JSRef DOMSettableTokenList -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMSettableTokenList.value Mozilla DOMSettableTokenList.value documentation> +getValue ::+         (MonadIO m, FromJSString result) =>+           DOMSettableTokenList -> m result+getValue self+  = liftIO+      (fromJSString <$> (js_getValue (unDOMSettableTokenList self)))
+ src/GHCJS/DOM/JSFFI/Generated/DOMStringList.hs view
@@ -0,0 +1,46 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.DOMStringList+       (js_item, item, js_contains, contains, js_getLength, getLength,+        DOMStringList, castToDOMStringList, gTypeDOMStringList)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"item\"]($2)" js_item ::+        JSRef DOMStringList -> Word -> IO (JSRef (Maybe JSString))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMStringList.item Mozilla DOMStringList.item documentation> +item ::+     (MonadIO m, FromJSString result) =>+       DOMStringList -> Word -> m (Maybe result)+item self index+  = liftIO+      (fromMaybeJSString <$> (js_item (unDOMStringList self) index))+ +foreign import javascript unsafe "($1[\"contains\"]($2) ? 1 : 0)"+        js_contains :: JSRef DOMStringList -> JSString -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMStringList.contains Mozilla DOMStringList.contains documentation> +contains ::+         (MonadIO m, ToJSString string) => DOMStringList -> string -> m Bool+contains self string+  = liftIO (js_contains (unDOMStringList self) (toJSString string))+ +foreign import javascript unsafe "$1[\"length\"]" js_getLength ::+        JSRef DOMStringList -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMStringList.length Mozilla DOMStringList.length documentation> +getLength :: (MonadIO m) => DOMStringList -> m Word+getLength self = liftIO (js_getLength (unDOMStringList self))
+ src/GHCJS/DOM/JSFFI/Generated/DOMTokenList.hs view
@@ -0,0 +1,105 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.DOMTokenList+       (js_item, item, js_contains, contains, js_add, add, js_remove,+        remove, js_toggle, toggle, js_toString, toString, js_getLength,+        getLength, DOMTokenList, castToDOMTokenList, gTypeDOMTokenList,+        IsDOMTokenList, toDOMTokenList)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"item\"]($2)" js_item ::+        JSRef DOMTokenList -> Word -> IO (JSRef (Maybe JSString))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMTokenList.item Mozilla DOMTokenList.item documentation> +item ::+     (MonadIO m, IsDOMTokenList self, FromJSString result) =>+       self -> Word -> m (Maybe result)+item self index+  = liftIO+      (fromMaybeJSString <$>+         (js_item (unDOMTokenList (toDOMTokenList self)) index))+ +foreign import javascript unsafe "($1[\"contains\"]($2) ? 1 : 0)"+        js_contains :: JSRef DOMTokenList -> JSString -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMTokenList.contains Mozilla DOMTokenList.contains documentation> +contains ::+         (MonadIO m, IsDOMTokenList self, ToJSString token) =>+           self -> token -> m Bool+contains self token+  = liftIO+      (js_contains (unDOMTokenList (toDOMTokenList self))+         (toJSString token))+ +foreign import javascript unsafe "$1[\"add\"].apply($1, $2)" js_add+        :: JSRef DOMTokenList -> JSRef [a] -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMTokenList.add Mozilla DOMTokenList.add documentation> +add ::+    (MonadIO m, IsDOMTokenList self, ToJSString tokens,+     ToJSRef tokens) =>+      self -> [tokens] -> m ()+add self tokens+  = liftIO+      (toJSRef tokens >>=+         \ tokens' -> js_add (unDOMTokenList (toDOMTokenList self)) tokens')+ +foreign import javascript unsafe "$1[\"remove\"].apply($1, $2)"+        js_remove :: JSRef DOMTokenList -> JSRef [a] -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMTokenList.remove Mozilla DOMTokenList.remove documentation> +remove ::+       (MonadIO m, IsDOMTokenList self, ToJSString tokens,+        ToJSRef tokens) =>+         self -> [tokens] -> m ()+remove self tokens+  = liftIO+      (toJSRef tokens >>=+         \ tokens' ->+           js_remove (unDOMTokenList (toDOMTokenList self)) tokens')+ +foreign import javascript unsafe "($1[\"toggle\"]($2, $3) ? 1 : 0)"+        js_toggle :: JSRef DOMTokenList -> JSString -> Bool -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMTokenList.toggle Mozilla DOMTokenList.toggle documentation> +toggle ::+       (MonadIO m, IsDOMTokenList self, ToJSString token) =>+         self -> token -> Bool -> m Bool+toggle self token force+  = liftIO+      (js_toggle (unDOMTokenList (toDOMTokenList self))+         (toJSString token)+         force)+ +foreign import javascript unsafe "$1[\"toString\"]()" js_toString+        :: JSRef DOMTokenList -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMTokenList.toString Mozilla DOMTokenList.toString documentation> +toString ::+         (MonadIO m, IsDOMTokenList self, FromJSString result) =>+           self -> m result+toString self+  = liftIO+      (fromJSString <$>+         (js_toString (unDOMTokenList (toDOMTokenList self))))+ +foreign import javascript unsafe "$1[\"length\"]" js_getLength ::+        JSRef DOMTokenList -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMTokenList.length Mozilla DOMTokenList.length documentation> +getLength :: (MonadIO m, IsDOMTokenList self) => self -> m Word+getLength self+  = liftIO (js_getLength (unDOMTokenList (toDOMTokenList self)))
+ src/GHCJS/DOM/JSFFI/Generated/DataCue.hs view
@@ -0,0 +1,81 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.DataCue+       (js_newDataCue, newDataCue, js_newDataCue', newDataCue',+        js_setData, setData, js_getData, getData, js_setValue, setValue,+        js_getValue, getValue, js_getType, getType, DataCue, castToDataCue,+        gTypeDataCue)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "new window[\"WebKitDataCue\"]()"+        js_newDataCue :: IO (JSRef DataCue)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitDataCue Mozilla WebKitDataCue documentation> +newDataCue :: (MonadIO m) => m DataCue+newDataCue = liftIO (js_newDataCue >>= fromJSRefUnchecked)+ +foreign import javascript unsafe+        "new window[\"WebKitDataCue\"]($1,\n$2, $3, $4)" js_newDataCue' ::+        Double -> Double -> JSRef a -> JSString -> IO (JSRef DataCue)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitDataCue Mozilla WebKitDataCue documentation> +newDataCue' ::+            (MonadIO m, ToJSString type') =>+              Double -> Double -> JSRef a -> type' -> m DataCue+newDataCue' startTime endTime value type'+  = liftIO+      (js_newDataCue' startTime endTime value (toJSString type') >>=+         fromJSRefUnchecked)+ +foreign import javascript unsafe "$1[\"data\"] = $2;" js_setData ::+        JSRef DataCue -> JSRef ArrayBuffer -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitDataCue.data Mozilla WebKitDataCue.data documentation> +setData ::+        (MonadIO m, IsArrayBuffer val) => DataCue -> Maybe val -> m ()+setData self val+  = liftIO+      (js_setData (unDataCue self)+         (maybe jsNull (unArrayBuffer . toArrayBuffer) val))+ +foreign import javascript unsafe "$1[\"data\"]" js_getData ::+        JSRef DataCue -> IO (JSRef ArrayBuffer)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitDataCue.data Mozilla WebKitDataCue.data documentation> +getData :: (MonadIO m) => DataCue -> m (Maybe ArrayBuffer)+getData self = liftIO ((js_getData (unDataCue self)) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue+        :: JSRef DataCue -> JSRef a -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitDataCue.value Mozilla WebKitDataCue.value documentation> +setValue :: (MonadIO m) => DataCue -> JSRef a -> m ()+setValue self val = liftIO (js_setValue (unDataCue self) val)+ +foreign import javascript unsafe "$1[\"value\"]" js_getValue ::+        JSRef DataCue -> IO (JSRef a)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitDataCue.value Mozilla WebKitDataCue.value documentation> +getValue :: (MonadIO m) => DataCue -> m (JSRef a)+getValue self = liftIO (js_getValue (unDataCue self))+ +foreign import javascript unsafe "$1[\"type\"]" js_getType ::+        JSRef DataCue -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitDataCue.type Mozilla WebKitDataCue.type documentation> +getType :: (MonadIO m, FromJSString result) => DataCue -> m result+getType self+  = liftIO (fromJSString <$> (js_getType (unDataCue self)))
+ src/GHCJS/DOM/JSFFI/Generated/DataTransfer.hs view
@@ -0,0 +1,135 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.DataTransfer+       (js_clearData, clearData, js_getData, getData, js_setData, setData,+        js_setDragImage, setDragImage, js_setDropEffect, setDropEffect,+        js_getDropEffect, getDropEffect, js_setEffectAllowed,+        setEffectAllowed, js_getEffectAllowed, getEffectAllowed,+        js_getTypes, getTypes, js_getFiles, getFiles, js_getItems,+        getItems, DataTransfer, castToDataTransfer, gTypeDataTransfer)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"clearData\"]($2)"+        js_clearData :: JSRef DataTransfer -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer.clearData Mozilla DataTransfer.clearData documentation> +clearData ::+          (MonadIO m, ToJSString type') => DataTransfer -> type' -> m ()+clearData self type'+  = liftIO (js_clearData (unDataTransfer self) (toJSString type'))+ +foreign import javascript unsafe "$1[\"getData\"]($2)" js_getData+        :: JSRef DataTransfer -> JSString -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer.getData Mozilla DataTransfer.getData documentation> +getData ::+        (MonadIO m, ToJSString type', FromJSString result) =>+          DataTransfer -> type' -> m result+getData self type'+  = liftIO+      (fromJSString <$>+         (js_getData (unDataTransfer self) (toJSString type')))+ +foreign import javascript unsafe "$1[\"setData\"]($2, $3)"+        js_setData :: JSRef DataTransfer -> JSString -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer.setData Mozilla DataTransfer.setData documentation> +setData ::+        (MonadIO m, ToJSString type', ToJSString data') =>+          DataTransfer -> type' -> data' -> m ()+setData self type' data'+  = liftIO+      (js_setData (unDataTransfer self) (toJSString type')+         (toJSString data'))+ +foreign import javascript unsafe "$1[\"setDragImage\"]($2, $3, $4)"+        js_setDragImage ::+        JSRef DataTransfer -> JSRef Element -> Int -> Int -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer.setDragImage Mozilla DataTransfer.setDragImage documentation> +setDragImage ::+             (MonadIO m, IsElement image) =>+               DataTransfer -> Maybe image -> Int -> Int -> m ()+setDragImage self image x y+  = liftIO+      (js_setDragImage (unDataTransfer self)+         (maybe jsNull (unElement . toElement) image)+         x+         y)+ +foreign import javascript unsafe "$1[\"dropEffect\"] = $2;"+        js_setDropEffect :: JSRef DataTransfer -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer.dropEffect Mozilla DataTransfer.dropEffect documentation> +setDropEffect ::+              (MonadIO m, ToJSString val) => DataTransfer -> val -> m ()+setDropEffect self val+  = liftIO (js_setDropEffect (unDataTransfer self) (toJSString val))+ +foreign import javascript unsafe "$1[\"dropEffect\"]"+        js_getDropEffect :: JSRef DataTransfer -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer.dropEffect Mozilla DataTransfer.dropEffect documentation> +getDropEffect ::+              (MonadIO m, FromJSString result) => DataTransfer -> m result+getDropEffect self+  = liftIO+      (fromJSString <$> (js_getDropEffect (unDataTransfer self)))+ +foreign import javascript unsafe "$1[\"effectAllowed\"] = $2;"+        js_setEffectAllowed :: JSRef DataTransfer -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer.effectAllowed Mozilla DataTransfer.effectAllowed documentation> +setEffectAllowed ::+                 (MonadIO m, ToJSString val) => DataTransfer -> val -> m ()+setEffectAllowed self val+  = liftIO+      (js_setEffectAllowed (unDataTransfer self) (toJSString val))+ +foreign import javascript unsafe "$1[\"effectAllowed\"]"+        js_getEffectAllowed :: JSRef DataTransfer -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer.effectAllowed Mozilla DataTransfer.effectAllowed documentation> +getEffectAllowed ::+                 (MonadIO m, FromJSString result) => DataTransfer -> m result+getEffectAllowed self+  = liftIO+      (fromJSString <$> (js_getEffectAllowed (unDataTransfer self)))+ +foreign import javascript unsafe "$1[\"types\"]" js_getTypes ::+        JSRef DataTransfer -> IO (JSRef Array)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer.types Mozilla DataTransfer.types documentation> +getTypes :: (MonadIO m) => DataTransfer -> m (Maybe Array)+getTypes self+  = liftIO ((js_getTypes (unDataTransfer self)) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"files\"]" js_getFiles ::+        JSRef DataTransfer -> IO (JSRef FileList)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer.files Mozilla DataTransfer.files documentation> +getFiles :: (MonadIO m) => DataTransfer -> m (Maybe FileList)+getFiles self+  = liftIO ((js_getFiles (unDataTransfer self)) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"items\"]" js_getItems ::+        JSRef DataTransfer -> IO (JSRef DataTransferItemList)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer.items Mozilla DataTransfer.items documentation> +getItems ::+         (MonadIO m) => DataTransfer -> m (Maybe DataTransferItemList)+getItems self+  = liftIO ((js_getItems (unDataTransfer self)) >>= fromJSRef)
+ src/GHCJS/DOM/JSFFI/Generated/DataTransferItem.hs view
@@ -0,0 +1,59 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.DataTransferItem+       (js_getAsString, getAsString, js_getAsFile, getAsFile, js_getKind,+        getKind, js_getType, getType, DataTransferItem,+        castToDataTransferItem, gTypeDataTransferItem)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"getAsString\"]($2)"+        js_getAsString ::+        JSRef DataTransferItem -> JSRef (StringCallback callback) -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransferItem.getAsString Mozilla DataTransferItem.getAsString documentation> +getAsString ::+            (MonadIO m, ToJSString callback) =>+              DataTransferItem -> Maybe (StringCallback callback) -> m ()+getAsString self callback+  = liftIO+      (js_getAsString (unDataTransferItem self)+         (maybe jsNull pToJSRef callback))+ +foreign import javascript unsafe "$1[\"getAsFile\"]()" js_getAsFile+        :: JSRef DataTransferItem -> IO (JSRef Blob)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransferItem.getAsFile Mozilla DataTransferItem.getAsFile documentation> +getAsFile :: (MonadIO m) => DataTransferItem -> m (Maybe Blob)+getAsFile self+  = liftIO ((js_getAsFile (unDataTransferItem self)) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"kind\"]" js_getKind ::+        JSRef DataTransferItem -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransferItem.kind Mozilla DataTransferItem.kind documentation> +getKind ::+        (MonadIO m, FromJSString result) => DataTransferItem -> m result+getKind self+  = liftIO (fromJSString <$> (js_getKind (unDataTransferItem self)))+ +foreign import javascript unsafe "$1[\"type\"]" js_getType ::+        JSRef DataTransferItem -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransferItem.type Mozilla DataTransferItem.type documentation> +getType ::+        (MonadIO m, FromJSString result) => DataTransferItem -> m result+getType self+  = liftIO (fromJSString <$> (js_getType (unDataTransferItem self)))
+ src/GHCJS/DOM/JSFFI/Generated/DataTransferItemList.hs view
@@ -0,0 +1,69 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.DataTransferItemList+       (js_item, item, js_clear, clear, js_addFile, addFile, js_add, add,+        js_getLength, getLength, DataTransferItemList,+        castToDataTransferItemList, gTypeDataTransferItemList)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"item\"]($2)" js_item ::+        JSRef DataTransferItemList -> Word -> IO (JSRef DataTransferItem)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransferItemList.item Mozilla DataTransferItemList.item documentation> +item ::+     (MonadIO m) =>+       DataTransferItemList -> Word -> m (Maybe DataTransferItem)+item self index+  = liftIO+      ((js_item (unDataTransferItemList self) index) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"clear\"]()" js_clear ::+        JSRef DataTransferItemList -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransferItemList.clear Mozilla DataTransferItemList.clear documentation> +clear :: (MonadIO m) => DataTransferItemList -> m ()+clear self = liftIO (js_clear (unDataTransferItemList self))+ +foreign import javascript unsafe "$1[\"add\"]($2)" js_addFile ::+        JSRef DataTransferItemList -> JSRef File -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransferItemList.add Mozilla DataTransferItemList.add documentation> +addFile ::+        (MonadIO m) => DataTransferItemList -> Maybe File -> m ()+addFile self file+  = liftIO+      (js_addFile (unDataTransferItemList self)+         (maybe jsNull pToJSRef file))+ +foreign import javascript unsafe "$1[\"add\"]($2, $3)" js_add ::+        JSRef DataTransferItemList -> JSString -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransferItemList.add Mozilla DataTransferItemList.add documentation> +add ::+    (MonadIO m, ToJSString data', ToJSString type') =>+      DataTransferItemList -> data' -> type' -> m ()+add self data' type'+  = liftIO+      (js_add (unDataTransferItemList self) (toJSString data')+         (toJSString type'))+ +foreign import javascript unsafe "$1[\"length\"]" js_getLength ::+        JSRef DataTransferItemList -> IO Int++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransferItemList.length Mozilla DataTransferItemList.length documentation> +getLength :: (MonadIO m) => DataTransferItemList -> m Int+getLength self+  = liftIO (js_getLength (unDataTransferItemList self))
+ src/GHCJS/DOM/JSFFI/Generated/Database.hs view
@@ -0,0 +1,91 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.Database+       (js_changeVersion, changeVersion, js_transaction, transaction,+        js_readTransaction, readTransaction, js_getVersion, getVersion,+        Database, castToDatabase, gTypeDatabase)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe+        "$1[\"changeVersion\"]($2, $3, $4,\n$5, $6)" js_changeVersion ::+        JSRef Database ->+          JSString ->+            JSString ->+              JSRef SQLTransactionCallback ->+                JSRef SQLTransactionErrorCallback -> JSRef VoidCallback -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Database.changeVersion Mozilla Database.changeVersion documentation> +changeVersion ::+              (MonadIO m, ToJSString oldVersion, ToJSString newVersion) =>+                Database ->+                  oldVersion ->+                    newVersion ->+                      Maybe SQLTransactionCallback ->+                        Maybe SQLTransactionErrorCallback -> Maybe VoidCallback -> m ()+changeVersion self oldVersion newVersion callback errorCallback+  successCallback+  = liftIO+      (js_changeVersion (unDatabase self) (toJSString oldVersion)+         (toJSString newVersion)+         (maybe jsNull pToJSRef callback)+         (maybe jsNull pToJSRef errorCallback)+         (maybe jsNull pToJSRef successCallback))+ +foreign import javascript unsafe "$1[\"transaction\"]($2, $3, $4)"+        js_transaction ::+        JSRef Database ->+          JSRef SQLTransactionCallback ->+            JSRef SQLTransactionErrorCallback -> JSRef VoidCallback -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Database.transaction Mozilla Database.transaction documentation> +transaction ::+            (MonadIO m) =>+              Database ->+                Maybe SQLTransactionCallback ->+                  Maybe SQLTransactionErrorCallback -> Maybe VoidCallback -> m ()+transaction self callback errorCallback successCallback+  = liftIO+      (js_transaction (unDatabase self) (maybe jsNull pToJSRef callback)+         (maybe jsNull pToJSRef errorCallback)+         (maybe jsNull pToJSRef successCallback))+ +foreign import javascript unsafe+        "$1[\"readTransaction\"]($2, $3,\n$4)" js_readTransaction ::+        JSRef Database ->+          JSRef SQLTransactionCallback ->+            JSRef SQLTransactionErrorCallback -> JSRef VoidCallback -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Database.readTransaction Mozilla Database.readTransaction documentation> +readTransaction ::+                (MonadIO m) =>+                  Database ->+                    Maybe SQLTransactionCallback ->+                      Maybe SQLTransactionErrorCallback -> Maybe VoidCallback -> m ()+readTransaction self callback errorCallback successCallback+  = liftIO+      (js_readTransaction (unDatabase self)+         (maybe jsNull pToJSRef callback)+         (maybe jsNull pToJSRef errorCallback)+         (maybe jsNull pToJSRef successCallback))+ +foreign import javascript unsafe "$1[\"version\"]" js_getVersion ::+        JSRef Database -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Database.version Mozilla Database.version documentation> +getVersion ::+           (MonadIO m, FromJSString result) => Database -> m result+getVersion self+  = liftIO (fromJSString <$> (js_getVersion (unDatabase self)))
+ src/GHCJS/DOM/JSFFI/Generated/DatabaseCallback.hs view
@@ -0,0 +1,46 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.DatabaseCallback+       (newDatabaseCallback, newDatabaseCallbackSync,+        newDatabaseCallbackAsync, DatabaseCallback)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DatabaseCallback Mozilla DatabaseCallback documentation> +newDatabaseCallback ::+                    (MonadIO m) => (Maybe Database -> IO ()) -> m DatabaseCallback+newDatabaseCallback callback+  = liftIO+      (syncCallback1 ThrowWouldBlock+         (\ database ->+            fromJSRefUnchecked database >>= \ database' -> callback database'))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DatabaseCallback Mozilla DatabaseCallback documentation> +newDatabaseCallbackSync ::+                        (MonadIO m) => (Maybe Database -> IO ()) -> m DatabaseCallback+newDatabaseCallbackSync callback+  = liftIO+      (syncCallback1 ContinueAsync+         (\ database ->+            fromJSRefUnchecked database >>= \ database' -> callback database'))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DatabaseCallback Mozilla DatabaseCallback documentation> +newDatabaseCallbackAsync ::+                         (MonadIO m) => (Maybe Database -> IO ()) -> m DatabaseCallback+newDatabaseCallbackAsync callback+  = liftIO+      (asyncCallback1+         (\ database ->+            fromJSRefUnchecked database >>= \ database' -> callback database'))
+ src/GHCJS/DOM/JSFFI/Generated/DedicatedWorkerGlobalScope.hs view
@@ -0,0 +1,36 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.DedicatedWorkerGlobalScope+       (js_postMessage, postMessage, message, DedicatedWorkerGlobalScope,+        castToDedicatedWorkerGlobalScope, gTypeDedicatedWorkerGlobalScope)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"postMessage\"]($2, $3)"+        js_postMessage ::+        JSRef DedicatedWorkerGlobalScope -> JSRef a -> JSRef Array -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DedicatedWorkerGlobalScope.postMessage Mozilla DedicatedWorkerGlobalScope.postMessage documentation> +postMessage ::+            (MonadIO m, IsArray messagePorts) =>+              DedicatedWorkerGlobalScope -> JSRef a -> Maybe messagePorts -> m ()+postMessage self message messagePorts+  = liftIO+      (js_postMessage (unDedicatedWorkerGlobalScope self) message+         (maybe jsNull (unArray . toArray) 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/GHCJS/DOM/JSFFI/Generated/DelayNode.hs view
@@ -0,0 +1,27 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.DelayNode+       (js_getDelayTime, getDelayTime, DelayNode, castToDelayNode,+        gTypeDelayNode)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"delayTime\"]"+        js_getDelayTime :: JSRef DelayNode -> IO (JSRef AudioParam)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DelayNode.delayTime Mozilla DelayNode.delayTime documentation> +getDelayTime :: (MonadIO m) => DelayNode -> m (Maybe AudioParam)+getDelayTime self+  = liftIO ((js_getDelayTime (unDelayNode self)) >>= fromJSRef)
+ src/GHCJS/DOM/JSFFI/Generated/DeviceMotionEvent.hs view
@@ -0,0 +1,101 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.DeviceMotionEvent+       (js_initDeviceMotionEvent, initDeviceMotionEvent,+        js_getAcceleration, getAcceleration,+        js_getAccelerationIncludingGravity,+        getAccelerationIncludingGravity, js_getRotationRate,+        getRotationRate, js_getInterval, getInterval, DeviceMotionEvent,+        castToDeviceMotionEvent, gTypeDeviceMotionEvent)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe+        "$1[\"initDeviceMotionEvent\"]($2,\n$3, $4, $5, $6, $7, $8)"+        js_initDeviceMotionEvent ::+        JSRef DeviceMotionEvent ->+          JSString ->+            Bool ->+              Bool ->+                JSRef Acceleration ->+                  JSRef Acceleration -> JSRef RotationRate -> Double -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceMotionEvent.initDeviceMotionEvent Mozilla DeviceMotionEvent.initDeviceMotionEvent documentation> +initDeviceMotionEvent ::+                      (MonadIO 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+  = liftIO+      (js_initDeviceMotionEvent (unDeviceMotionEvent self)+         (toJSString type')+         bubbles+         cancelable+         (maybe jsNull (unAcceleration . toAcceleration) acceleration)+         (maybe jsNull (unAcceleration . toAcceleration)+            accelerationIncludingGravity)+         (maybe jsNull (unRotationRate . toRotationRate) rotationRate)+         interval)+ +foreign import javascript unsafe "$1[\"acceleration\"]"+        js_getAcceleration ::+        JSRef DeviceMotionEvent -> IO (JSRef Acceleration)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceMotionEvent.acceleration Mozilla DeviceMotionEvent.acceleration documentation> +getAcceleration ::+                (MonadIO m) => DeviceMotionEvent -> m (Maybe Acceleration)+getAcceleration self+  = liftIO+      ((js_getAcceleration (unDeviceMotionEvent self)) >>= fromJSRef)+ +foreign import javascript unsafe+        "$1[\"accelerationIncludingGravity\"]"+        js_getAccelerationIncludingGravity ::+        JSRef DeviceMotionEvent -> IO (JSRef Acceleration)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceMotionEvent.accelerationIncludingGravity Mozilla DeviceMotionEvent.accelerationIncludingGravity documentation> +getAccelerationIncludingGravity ::+                                (MonadIO m) => DeviceMotionEvent -> m (Maybe Acceleration)+getAccelerationIncludingGravity self+  = liftIO+      ((js_getAccelerationIncludingGravity (unDeviceMotionEvent self))+         >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"rotationRate\"]"+        js_getRotationRate ::+        JSRef DeviceMotionEvent -> IO (JSRef RotationRate)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceMotionEvent.rotationRate Mozilla DeviceMotionEvent.rotationRate documentation> +getRotationRate ::+                (MonadIO m) => DeviceMotionEvent -> m (Maybe RotationRate)+getRotationRate self+  = liftIO+      ((js_getRotationRate (unDeviceMotionEvent self)) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"interval\"]" js_getInterval+        :: JSRef DeviceMotionEvent -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceMotionEvent.interval Mozilla DeviceMotionEvent.interval documentation> +getInterval :: (MonadIO m) => DeviceMotionEvent -> m Double+getInterval self+  = liftIO (js_getInterval (unDeviceMotionEvent self))
+ src/GHCJS/DOM/JSFFI/Generated/DeviceOrientationEvent.hs view
@@ -0,0 +1,76 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.DeviceOrientationEvent+       (js_initDeviceOrientationEvent, initDeviceOrientationEvent,+        js_getAlpha, getAlpha, js_getBeta, getBeta, js_getGamma, getGamma,+        js_getAbsolute, getAbsolute, DeviceOrientationEvent,+        castToDeviceOrientationEvent, gTypeDeviceOrientationEvent)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe+        "$1[\"initDeviceOrientationEvent\"]($2,\n$3, $4, $5, $6, $7, $8)"+        js_initDeviceOrientationEvent ::+        JSRef DeviceOrientationEvent ->+          JSString ->+            Bool -> Bool -> Double -> Double -> Double -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceOrientationEvent.initDeviceOrientationEvent Mozilla DeviceOrientationEvent.initDeviceOrientationEvent documentation> +initDeviceOrientationEvent ::+                           (MonadIO m, ToJSString type') =>+                             DeviceOrientationEvent ->+                               type' -> Bool -> Bool -> Double -> Double -> Double -> Bool -> m ()+initDeviceOrientationEvent self type' bubbles cancelable alpha beta+  gamma absolute+  = liftIO+      (js_initDeviceOrientationEvent (unDeviceOrientationEvent self)+         (toJSString type')+         bubbles+         cancelable+         alpha+         beta+         gamma+         absolute)+ +foreign import javascript unsafe "$1[\"alpha\"]" js_getAlpha ::+        JSRef DeviceOrientationEvent -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceOrientationEvent.alpha Mozilla DeviceOrientationEvent.alpha documentation> +getAlpha :: (MonadIO m) => DeviceOrientationEvent -> m Double+getAlpha self+  = liftIO (js_getAlpha (unDeviceOrientationEvent self))+ +foreign import javascript unsafe "$1[\"beta\"]" js_getBeta ::+        JSRef DeviceOrientationEvent -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceOrientationEvent.beta Mozilla DeviceOrientationEvent.beta documentation> +getBeta :: (MonadIO m) => DeviceOrientationEvent -> m Double+getBeta self = liftIO (js_getBeta (unDeviceOrientationEvent self))+ +foreign import javascript unsafe "$1[\"gamma\"]" js_getGamma ::+        JSRef DeviceOrientationEvent -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceOrientationEvent.gamma Mozilla DeviceOrientationEvent.gamma documentation> +getGamma :: (MonadIO m) => DeviceOrientationEvent -> m Double+getGamma self+  = liftIO (js_getGamma (unDeviceOrientationEvent self))+ +foreign import javascript unsafe "($1[\"absolute\"] ? 1 : 0)"+        js_getAbsolute :: JSRef DeviceOrientationEvent -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceOrientationEvent.absolute Mozilla DeviceOrientationEvent.absolute documentation> +getAbsolute :: (MonadIO m) => DeviceOrientationEvent -> m Bool+getAbsolute self+  = liftIO (js_getAbsolute (unDeviceOrientationEvent self))
+ src/GHCJS/DOM/JSFFI/Generated/DeviceProximityEvent.hs view
@@ -0,0 +1,41 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.DeviceProximityEvent+       (js_getValue, getValue, js_getMin, getMin, js_getMax, getMax,+        DeviceProximityEvent, castToDeviceProximityEvent,+        gTypeDeviceProximityEvent)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"value\"]" js_getValue ::+        JSRef DeviceProximityEvent -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceProximityEvent.value Mozilla DeviceProximityEvent.value documentation> +getValue :: (MonadIO m) => DeviceProximityEvent -> m Double+getValue self = liftIO (js_getValue (unDeviceProximityEvent self))+ +foreign import javascript unsafe "$1[\"min\"]" js_getMin ::+        JSRef DeviceProximityEvent -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceProximityEvent.min Mozilla DeviceProximityEvent.min documentation> +getMin :: (MonadIO m) => DeviceProximityEvent -> m Double+getMin self = liftIO (js_getMin (unDeviceProximityEvent self))+ +foreign import javascript unsafe "$1[\"max\"]" js_getMax ::+        JSRef DeviceProximityEvent -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceProximityEvent.max Mozilla DeviceProximityEvent.max documentation> +getMax :: (MonadIO m) => DeviceProximityEvent -> m Double+getMax self = liftIO (js_getMax (unDeviceProximityEvent self))
+ src/GHCJS/DOM/JSFFI/Generated/Document.hs view
@@ -0,0 +1,1660 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.Document+       (js_newDocument, newDocument, js_createElement, createElement,+        js_createDocumentFragment, createDocumentFragment,+        js_createTextNode, createTextNode, js_createComment, createComment,+        js_createCDATASection, createCDATASection,+        js_createProcessingInstruction, createProcessingInstruction,+        js_createAttribute, createAttribute, js_createEntityReference,+        createEntityReference, js_getElementsByTagName,+        getElementsByTagName, js_importNode, importNode,+        js_createElementNS, createElementNS, js_createAttributeNS,+        createAttributeNS, js_getElementsByTagNameNS,+        getElementsByTagNameNS, js_getElementById, getElementById,+        js_adoptNode, adoptNode, js_createEvent, createEvent,+        js_createRange, createRange, js_createNodeIterator,+        createNodeIterator, js_createTreeWalker, createTreeWalker,+        js_getOverrideStyle, getOverrideStyle, js_createExpression,+        createExpression, js_createNSResolver, createNSResolver,+        js_evaluate, evaluate, js_execCommand, execCommand,+        js_queryCommandEnabled, queryCommandEnabled,+        js_queryCommandIndeterm, queryCommandIndeterm,+        js_queryCommandState, queryCommandState, js_queryCommandSupported,+        queryCommandSupported, js_queryCommandValue, queryCommandValue,+        js_getElementsByName, getElementsByName, js_elementFromPoint,+        elementFromPoint, js_caretRangeFromPoint, caretRangeFromPoint,+        js_getSelection, getSelection, js_getCSSCanvasContext,+        getCSSCanvasContext, js_getElementsByClassName,+        getElementsByClassName, js_hasFocus, hasFocus, js_querySelector,+        querySelector, js_querySelectorAll, querySelectorAll,+        js_webkitCancelFullScreen, webkitCancelFullScreen,+        js_webkitExitFullscreen, webkitExitFullscreen, js_exitPointerLock,+        exitPointerLock, js_webkitGetNamedFlows, webkitGetNamedFlows,+        js_createTouch, createTouch, js_createTouchList, createTouchList,+        js_getDoctype, getDoctype, js_getImplementation, getImplementation,+        js_getDocumentElement, getDocumentElement, js_getInputEncoding,+        getInputEncoding, js_getXmlEncoding, getXmlEncoding,+        js_setXmlVersion, setXmlVersion, js_getXmlVersion, getXmlVersion,+        js_setXmlStandalone, setXmlStandalone, js_getXmlStandalone,+        getXmlStandalone, js_getDocumentURI, getDocumentURI,+        js_getDefaultView, getDefaultView, js_getStyleSheets,+        getStyleSheets, js_getContentType, getContentType, js_setTitle,+        setTitle, js_getTitle, getTitle, js_getReferrer, getReferrer,+        js_setDomain, setDomain, js_getDomain, getDomain, js_getURL,+        getURL, js_setCookie, setCookie, js_getCookie, getCookie,+        js_setBody, setBody, js_getBody, getBody, js_getHead, getHead,+        js_getImages, getImages, js_getApplets, getApplets, js_getLinks,+        getLinks, js_getForms, getForms, js_getAnchors, getAnchors,+        js_getLastModified, getLastModified, js_setLocation, setLocation,+        js_getLocation, getLocation, js_setCharset, setCharset,+        js_getCharset, getCharset, js_getDefaultCharset, getDefaultCharset,+        js_getReadyState, getReadyState, js_getCharacterSet,+        getCharacterSet, js_getPreferredStylesheetSet,+        getPreferredStylesheetSet, js_setSelectedStylesheetSet,+        setSelectedStylesheetSet, js_getSelectedStylesheetSet,+        getSelectedStylesheetSet, js_getActiveElement, getActiveElement,+        js_getCompatMode, getCompatMode, js_getWebkitIsFullScreen,+        getWebkitIsFullScreen, js_getWebkitFullScreenKeyboardInputAllowed,+        getWebkitFullScreenKeyboardInputAllowed,+        js_getWebkitCurrentFullScreenElement,+        getWebkitCurrentFullScreenElement, js_getWebkitFullscreenEnabled,+        getWebkitFullscreenEnabled, js_getWebkitFullscreenElement,+        getWebkitFullscreenElement, js_getPointerLockElement,+        getPointerLockElement, js_getFonts, 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,+        js_getVisibilityState, getVisibilityState, js_getHidden, getHidden,+        js_getSecurityPolicy, getSecurityPolicy, js_getCurrentScript,+        getCurrentScript, js_getOrigin, getOrigin, Document,+        castToDocument, gTypeDocument, IsDocument, toDocument)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "new window[\"Document\"]()"+        js_newDocument :: IO (JSRef Document)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document Mozilla Document documentation> +newDocument :: (MonadIO m) => m Document+newDocument = liftIO (js_newDocument >>= fromJSRefUnchecked)+ +foreign import javascript unsafe "$1[\"createElement\"]($2)"+        js_createElement ::+        JSRef Document -> JSRef (Maybe JSString) -> IO (JSRef Element)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createElement Mozilla Document.createElement documentation> +createElement ::+              (MonadIO m, IsDocument self, ToJSString tagName) =>+                self -> Maybe tagName -> m (Maybe Element)+createElement self tagName+  = liftIO+      ((js_createElement (unDocument (toDocument self))+          (toMaybeJSString tagName))+         >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"createDocumentFragment\"]()"+        js_createDocumentFragment ::+        JSRef Document -> IO (JSRef DocumentFragment)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createDocumentFragment Mozilla Document.createDocumentFragment documentation> +createDocumentFragment ::+                       (MonadIO m, IsDocument self) => self -> m (Maybe DocumentFragment)+createDocumentFragment self+  = liftIO+      ((js_createDocumentFragment (unDocument (toDocument self))) >>=+         fromJSRef)+ +foreign import javascript unsafe "$1[\"createTextNode\"]($2)"+        js_createTextNode :: JSRef Document -> JSString -> IO (JSRef Text)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createTextNode Mozilla Document.createTextNode documentation> +createTextNode ::+               (MonadIO m, IsDocument self, ToJSString data') =>+                 self -> data' -> m (Maybe Text)+createTextNode self data'+  = liftIO+      ((js_createTextNode (unDocument (toDocument self))+          (toJSString data'))+         >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"createComment\"]($2)"+        js_createComment ::+        JSRef Document -> JSString -> IO (JSRef Comment)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createComment Mozilla Document.createComment documentation> +createComment ::+              (MonadIO m, IsDocument self, ToJSString data') =>+                self -> data' -> m (Maybe Comment)+createComment self data'+  = liftIO+      ((js_createComment (unDocument (toDocument self))+          (toJSString data'))+         >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"createCDATASection\"]($2)"+        js_createCDATASection ::+        JSRef Document -> JSString -> IO (JSRef CDATASection)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createCDATASection Mozilla Document.createCDATASection documentation> +createCDATASection ::+                   (MonadIO m, IsDocument self, ToJSString data') =>+                     self -> data' -> m (Maybe CDATASection)+createCDATASection self data'+  = liftIO+      ((js_createCDATASection (unDocument (toDocument self))+          (toJSString data'))+         >>= fromJSRef)+ +foreign import javascript unsafe+        "$1[\"createProcessingInstruction\"]($2,\n$3)"+        js_createProcessingInstruction ::+        JSRef Document ->+          JSString -> JSString -> IO (JSRef ProcessingInstruction)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createProcessingInstruction Mozilla Document.createProcessingInstruction documentation> +createProcessingInstruction ::+                            (MonadIO m, IsDocument self, ToJSString target,+                             ToJSString data') =>+                              self -> target -> data' -> m (Maybe ProcessingInstruction)+createProcessingInstruction self target data'+  = liftIO+      ((js_createProcessingInstruction (unDocument (toDocument self))+          (toJSString target)+          (toJSString data'))+         >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"createAttribute\"]($2)"+        js_createAttribute :: JSRef Document -> JSString -> IO (JSRef Attr)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createAttribute Mozilla Document.createAttribute documentation> +createAttribute ::+                (MonadIO m, IsDocument self, ToJSString name) =>+                  self -> name -> m (Maybe Attr)+createAttribute self name+  = liftIO+      ((js_createAttribute (unDocument (toDocument self))+          (toJSString name))+         >>= fromJSRef)+ +foreign import javascript unsafe+        "$1[\"createEntityReference\"]($2)" js_createEntityReference ::+        JSRef Document -> JSString -> IO (JSRef EntityReference)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createEntityReference Mozilla Document.createEntityReference documentation> +createEntityReference ::+                      (MonadIO m, IsDocument self, ToJSString name) =>+                        self -> name -> m (Maybe EntityReference)+createEntityReference self name+  = liftIO+      ((js_createEntityReference (unDocument (toDocument self))+          (toJSString name))+         >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"getElementsByTagName\"]($2)"+        js_getElementsByTagName ::+        JSRef Document -> JSString -> IO (JSRef NodeList)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getElementsByTagName Mozilla Document.getElementsByTagName documentation> +getElementsByTagName ::+                     (MonadIO m, IsDocument self, ToJSString tagname) =>+                       self -> tagname -> m (Maybe NodeList)+getElementsByTagName self tagname+  = liftIO+      ((js_getElementsByTagName (unDocument (toDocument self))+          (toJSString tagname))+         >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"importNode\"]($2, $3)"+        js_importNode ::+        JSRef Document -> JSRef Node -> Bool -> IO (JSRef Node)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.importNode Mozilla Document.importNode documentation> +importNode ::+           (MonadIO m, IsDocument self, IsNode importedNode) =>+             self -> Maybe importedNode -> Bool -> m (Maybe Node)+importNode self importedNode deep+  = liftIO+      ((js_importNode (unDocument (toDocument self))+          (maybe jsNull (unNode . toNode) importedNode)+          deep)+         >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"createElementNS\"]($2, $3)"+        js_createElementNS ::+        JSRef Document ->+          JSRef (Maybe JSString) ->+            JSRef (Maybe JSString) -> IO (JSRef Element)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createElementNS Mozilla Document.createElementNS documentation> +createElementNS ::+                (MonadIO m, IsDocument self, ToJSString namespaceURI,+                 ToJSString qualifiedName) =>+                  self ->+                    Maybe namespaceURI -> Maybe qualifiedName -> m (Maybe Element)+createElementNS self namespaceURI qualifiedName+  = liftIO+      ((js_createElementNS (unDocument (toDocument self))+          (toMaybeJSString namespaceURI)+          (toMaybeJSString qualifiedName))+         >>= fromJSRef)+ +foreign import javascript unsafe+        "$1[\"createAttributeNS\"]($2, $3)" js_createAttributeNS ::+        JSRef Document ->+          JSRef (Maybe JSString) -> JSRef (Maybe JSString) -> IO (JSRef Attr)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createAttributeNS Mozilla Document.createAttributeNS documentation> +createAttributeNS ::+                  (MonadIO m, IsDocument self, ToJSString namespaceURI,+                   ToJSString qualifiedName) =>+                    self -> Maybe namespaceURI -> Maybe qualifiedName -> m (Maybe Attr)+createAttributeNS self namespaceURI qualifiedName+  = liftIO+      ((js_createAttributeNS (unDocument (toDocument self))+          (toMaybeJSString namespaceURI)+          (toMaybeJSString qualifiedName))+         >>= fromJSRef)+ +foreign import javascript unsafe+        "$1[\"getElementsByTagNameNS\"]($2,\n$3)" js_getElementsByTagNameNS+        ::+        JSRef Document ->+          JSRef (Maybe JSString) -> JSString -> IO (JSRef NodeList)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getElementsByTagNameNS Mozilla Document.getElementsByTagNameNS documentation> +getElementsByTagNameNS ::+                       (MonadIO m, IsDocument self, ToJSString namespaceURI,+                        ToJSString localName) =>+                         self -> Maybe namespaceURI -> localName -> m (Maybe NodeList)+getElementsByTagNameNS self namespaceURI localName+  = liftIO+      ((js_getElementsByTagNameNS (unDocument (toDocument self))+          (toMaybeJSString namespaceURI)+          (toJSString localName))+         >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"getElementById\"]($2)"+        js_getElementById ::+        JSRef Document -> JSString -> IO (JSRef Element)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getElementById Mozilla Document.getElementById documentation> +getElementById ::+               (MonadIO m, IsDocument self, ToJSString elementId) =>+                 self -> elementId -> m (Maybe Element)+getElementById self elementId+  = liftIO+      ((js_getElementById (unDocument (toDocument self))+          (toJSString elementId))+         >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"adoptNode\"]($2)"+        js_adoptNode :: JSRef Document -> JSRef Node -> IO (JSRef Node)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.adoptNode Mozilla Document.adoptNode documentation> +adoptNode ::+          (MonadIO m, IsDocument self, IsNode source) =>+            self -> Maybe source -> m (Maybe Node)+adoptNode self source+  = liftIO+      ((js_adoptNode (unDocument (toDocument self))+          (maybe jsNull (unNode . toNode) source))+         >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"createEvent\"]($2)"+        js_createEvent :: JSRef Document -> JSString -> IO (JSRef Event)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createEvent Mozilla Document.createEvent documentation> +createEvent ::+            (MonadIO m, IsDocument self, ToJSString eventType) =>+              self -> eventType -> m (Maybe Event)+createEvent self eventType+  = liftIO+      ((js_createEvent (unDocument (toDocument self))+          (toJSString eventType))+         >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"createRange\"]()"+        js_createRange :: JSRef Document -> IO (JSRef Range)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createRange Mozilla Document.createRange documentation> +createRange ::+            (MonadIO m, IsDocument self) => self -> m (Maybe Range)+createRange self+  = liftIO+      ((js_createRange (unDocument (toDocument self))) >>= fromJSRef)+ +foreign import javascript unsafe+        "$1[\"createNodeIterator\"]($2, $3,\n$4, $5)" js_createNodeIterator+        ::+        JSRef Document ->+          JSRef Node ->+            Word -> JSRef NodeFilter -> Bool -> IO (JSRef NodeIterator)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createNodeIterator Mozilla Document.createNodeIterator documentation> +createNodeIterator ::+                   (MonadIO m, IsDocument self, IsNode root) =>+                     self ->+                       Maybe root ->+                         Word -> Maybe NodeFilter -> Bool -> m (Maybe NodeIterator)+createNodeIterator self root whatToShow filter+  expandEntityReferences+  = liftIO+      ((js_createNodeIterator (unDocument (toDocument self))+          (maybe jsNull (unNode . toNode) root)+          whatToShow+          (maybe jsNull pToJSRef filter)+          expandEntityReferences)+         >>= fromJSRef)+ +foreign import javascript unsafe+        "$1[\"createTreeWalker\"]($2, $3,\n$4, $5)" js_createTreeWalker ::+        JSRef Document ->+          JSRef Node ->+            Word -> JSRef NodeFilter -> Bool -> IO (JSRef TreeWalker)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createTreeWalker Mozilla Document.createTreeWalker documentation> +createTreeWalker ::+                 (MonadIO m, IsDocument self, IsNode root) =>+                   self ->+                     Maybe root ->+                       Word -> Maybe NodeFilter -> Bool -> m (Maybe TreeWalker)+createTreeWalker self root whatToShow filter expandEntityReferences+  = liftIO+      ((js_createTreeWalker (unDocument (toDocument self))+          (maybe jsNull (unNode . toNode) root)+          whatToShow+          (maybe jsNull pToJSRef filter)+          expandEntityReferences)+         >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"getOverrideStyle\"]($2, $3)"+        js_getOverrideStyle ::+        JSRef Document ->+          JSRef Element -> JSString -> IO (JSRef CSSStyleDeclaration)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getOverrideStyle Mozilla Document.getOverrideStyle documentation> +getOverrideStyle ::+                 (MonadIO m, IsDocument self, IsElement element,+                  ToJSString pseudoElement) =>+                   self ->+                     Maybe element -> pseudoElement -> m (Maybe CSSStyleDeclaration)+getOverrideStyle self element pseudoElement+  = liftIO+      ((js_getOverrideStyle (unDocument (toDocument self))+          (maybe jsNull (unElement . toElement) element)+          (toJSString pseudoElement))+         >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"createExpression\"]($2, $3)"+        js_createExpression ::+        JSRef Document ->+          JSString -> JSRef XPathNSResolver -> IO (JSRef XPathExpression)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createExpression Mozilla Document.createExpression documentation> +createExpression ::+                 (MonadIO m, IsDocument self, ToJSString expression) =>+                   self ->+                     expression -> Maybe XPathNSResolver -> m (Maybe XPathExpression)+createExpression self expression resolver+  = liftIO+      ((js_createExpression (unDocument (toDocument self))+          (toJSString expression)+          (maybe jsNull pToJSRef resolver))+         >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"createNSResolver\"]($2)"+        js_createNSResolver ::+        JSRef Document -> JSRef Node -> IO (JSRef XPathNSResolver)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createNSResolver Mozilla Document.createNSResolver documentation> +createNSResolver ::+                 (MonadIO m, IsDocument self, IsNode nodeResolver) =>+                   self -> Maybe nodeResolver -> m (Maybe XPathNSResolver)+createNSResolver self nodeResolver+  = liftIO+      ((js_createNSResolver (unDocument (toDocument self))+          (maybe jsNull (unNode . toNode) nodeResolver))+         >>= fromJSRef)+ +foreign import javascript unsafe+        "$1[\"evaluate\"]($2, $3, $4, $5,\n$6)" js_evaluate ::+        JSRef Document ->+          JSString ->+            JSRef Node ->+              JSRef XPathNSResolver ->+                Word -> JSRef XPathResult -> IO (JSRef XPathResult)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.evaluate Mozilla Document.evaluate documentation> +evaluate ::+         (MonadIO m, IsDocument self, ToJSString expression,+          IsNode contextNode) =>+           self ->+             expression ->+               Maybe contextNode ->+                 Maybe XPathNSResolver ->+                   Word -> Maybe XPathResult -> m (Maybe XPathResult)+evaluate self expression contextNode resolver type' inResult+  = liftIO+      ((js_evaluate (unDocument (toDocument self))+          (toJSString expression)+          (maybe jsNull (unNode . toNode) contextNode)+          (maybe jsNull pToJSRef resolver)+          type'+          (maybe jsNull pToJSRef inResult))+         >>= fromJSRef)+ +foreign import javascript unsafe+        "($1[\"execCommand\"]($2, $3,\n$4) ? 1 : 0)" js_execCommand ::+        JSRef Document ->+          JSString -> Bool -> JSRef (Maybe JSString) -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.execCommand Mozilla Document.execCommand documentation> +execCommand ::+            (MonadIO m, IsDocument self, ToJSString command,+             ToJSString value) =>+              self -> command -> Bool -> Maybe value -> m Bool+execCommand self command userInterface value+  = liftIO+      (js_execCommand (unDocument (toDocument self)) (toJSString command)+         userInterface+         (toMaybeJSString value))+ +foreign import javascript unsafe+        "($1[\"queryCommandEnabled\"]($2) ? 1 : 0)" js_queryCommandEnabled+        :: JSRef Document -> JSString -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.queryCommandEnabled Mozilla Document.queryCommandEnabled documentation> +queryCommandEnabled ::+                    (MonadIO m, IsDocument self, ToJSString command) =>+                      self -> command -> m Bool+queryCommandEnabled self command+  = liftIO+      (js_queryCommandEnabled (unDocument (toDocument self))+         (toJSString command))+ +foreign import javascript unsafe+        "($1[\"queryCommandIndeterm\"]($2) ? 1 : 0)"+        js_queryCommandIndeterm :: JSRef Document -> JSString -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.queryCommandIndeterm Mozilla Document.queryCommandIndeterm documentation> +queryCommandIndeterm ::+                     (MonadIO m, IsDocument self, ToJSString command) =>+                       self -> command -> m Bool+queryCommandIndeterm self command+  = liftIO+      (js_queryCommandIndeterm (unDocument (toDocument self))+         (toJSString command))+ +foreign import javascript unsafe+        "($1[\"queryCommandState\"]($2) ? 1 : 0)" js_queryCommandState ::+        JSRef Document -> JSString -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.queryCommandState Mozilla Document.queryCommandState documentation> +queryCommandState ::+                  (MonadIO m, IsDocument self, ToJSString command) =>+                    self -> command -> m Bool+queryCommandState self command+  = liftIO+      (js_queryCommandState (unDocument (toDocument self))+         (toJSString command))+ +foreign import javascript unsafe+        "($1[\"queryCommandSupported\"]($2) ? 1 : 0)"+        js_queryCommandSupported :: JSRef Document -> JSString -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.queryCommandSupported Mozilla Document.queryCommandSupported documentation> +queryCommandSupported ::+                      (MonadIO m, IsDocument self, ToJSString command) =>+                        self -> command -> m Bool+queryCommandSupported self command+  = liftIO+      (js_queryCommandSupported (unDocument (toDocument self))+         (toJSString command))+ +foreign import javascript unsafe "$1[\"queryCommandValue\"]($2)"+        js_queryCommandValue :: JSRef Document -> JSString -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.queryCommandValue Mozilla Document.queryCommandValue documentation> +queryCommandValue ::+                  (MonadIO m, IsDocument self, ToJSString command,+                   FromJSString result) =>+                    self -> command -> m result+queryCommandValue self command+  = liftIO+      (fromJSString <$>+         (js_queryCommandValue (unDocument (toDocument self))+            (toJSString command)))+ +foreign import javascript unsafe "$1[\"getElementsByName\"]($2)"+        js_getElementsByName ::+        JSRef Document -> JSString -> IO (JSRef NodeList)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getElementsByName Mozilla Document.getElementsByName documentation> +getElementsByName ::+                  (MonadIO m, IsDocument self, ToJSString elementName) =>+                    self -> elementName -> m (Maybe NodeList)+getElementsByName self elementName+  = liftIO+      ((js_getElementsByName (unDocument (toDocument self))+          (toJSString elementName))+         >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"elementFromPoint\"]($2, $3)"+        js_elementFromPoint ::+        JSRef Document -> Int -> Int -> IO (JSRef Element)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.elementFromPoint Mozilla Document.elementFromPoint documentation> +elementFromPoint ::+                 (MonadIO m, IsDocument self) =>+                   self -> Int -> Int -> m (Maybe Element)+elementFromPoint self x y+  = liftIO+      ((js_elementFromPoint (unDocument (toDocument self)) x y) >>=+         fromJSRef)+ +foreign import javascript unsafe+        "$1[\"caretRangeFromPoint\"]($2,\n$3)" js_caretRangeFromPoint ::+        JSRef Document -> Int -> Int -> IO (JSRef Range)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.caretRangeFromPoint Mozilla Document.caretRangeFromPoint documentation> +caretRangeFromPoint ::+                    (MonadIO m, IsDocument self) =>+                      self -> Int -> Int -> m (Maybe Range)+caretRangeFromPoint self x y+  = liftIO+      ((js_caretRangeFromPoint (unDocument (toDocument self)) x y) >>=+         fromJSRef)+ +foreign import javascript unsafe "$1[\"getSelection\"]()"+        js_getSelection :: JSRef Document -> IO (JSRef Selection)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getSelection Mozilla Document.getSelection documentation> +getSelection ::+             (MonadIO m, IsDocument self) => self -> m (Maybe Selection)+getSelection self+  = liftIO+      ((js_getSelection (unDocument (toDocument self))) >>= fromJSRef)+ +foreign import javascript unsafe+        "$1[\"getCSSCanvasContext\"]($2,\n$3, $4, $5)"+        js_getCSSCanvasContext ::+        JSRef Document ->+          JSString ->+            JSString -> Int -> Int -> IO (JSRef CanvasRenderingContext)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getCSSCanvasContext Mozilla Document.getCSSCanvasContext documentation> +getCSSCanvasContext ::+                    (MonadIO m, IsDocument self, ToJSString contextId,+                     ToJSString name) =>+                      self ->+                        contextId -> name -> Int -> Int -> m (Maybe CanvasRenderingContext)+getCSSCanvasContext self contextId name width height+  = liftIO+      ((js_getCSSCanvasContext (unDocument (toDocument self))+          (toJSString contextId)+          (toJSString name)+          width+          height)+         >>= fromJSRef)+ +foreign import javascript unsafe+        "$1[\"getElementsByClassName\"]($2)" js_getElementsByClassName ::+        JSRef Document -> JSString -> IO (JSRef NodeList)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getElementsByClassName Mozilla Document.getElementsByClassName documentation> +getElementsByClassName ::+                       (MonadIO m, IsDocument self, ToJSString tagname) =>+                         self -> tagname -> m (Maybe NodeList)+getElementsByClassName self tagname+  = liftIO+      ((js_getElementsByClassName (unDocument (toDocument self))+          (toJSString tagname))+         >>= fromJSRef)+ +foreign import javascript unsafe "($1[\"hasFocus\"]() ? 1 : 0)"+        js_hasFocus :: JSRef Document -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.hasFocus Mozilla Document.hasFocus documentation> +hasFocus :: (MonadIO m, IsDocument self) => self -> m Bool+hasFocus self = liftIO (js_hasFocus (unDocument (toDocument self)))+ +foreign import javascript unsafe "$1[\"querySelector\"]($2)"+        js_querySelector ::+        JSRef Document -> JSString -> IO (JSRef Element)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.querySelector Mozilla Document.querySelector documentation> +querySelector ::+              (MonadIO m, IsDocument self, ToJSString selectors) =>+                self -> selectors -> m (Maybe Element)+querySelector self selectors+  = liftIO+      ((js_querySelector (unDocument (toDocument self))+          (toJSString selectors))+         >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"querySelectorAll\"]($2)"+        js_querySelectorAll ::+        JSRef Document -> JSString -> IO (JSRef NodeList)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.querySelectorAll Mozilla Document.querySelectorAll documentation> +querySelectorAll ::+                 (MonadIO m, IsDocument self, ToJSString selectors) =>+                   self -> selectors -> m (Maybe NodeList)+querySelectorAll self selectors+  = liftIO+      ((js_querySelectorAll (unDocument (toDocument self))+          (toJSString selectors))+         >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"webkitCancelFullScreen\"]()"+        js_webkitCancelFullScreen :: JSRef Document -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.webkitCancelFullScreen Mozilla Document.webkitCancelFullScreen documentation> +webkitCancelFullScreen ::+                       (MonadIO m, IsDocument self) => self -> m ()+webkitCancelFullScreen self+  = liftIO (js_webkitCancelFullScreen (unDocument (toDocument self)))+ +foreign import javascript unsafe "$1[\"webkitExitFullscreen\"]()"+        js_webkitExitFullscreen :: JSRef Document -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.webkitExitFullscreen Mozilla Document.webkitExitFullscreen documentation> +webkitExitFullscreen ::+                     (MonadIO m, IsDocument self) => self -> m ()+webkitExitFullscreen self+  = liftIO (js_webkitExitFullscreen (unDocument (toDocument self)))+ +foreign import javascript unsafe "$1[\"exitPointerLock\"]()"+        js_exitPointerLock :: JSRef Document -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.exitPointerLock Mozilla Document.exitPointerLock documentation> +exitPointerLock :: (MonadIO m, IsDocument self) => self -> m ()+exitPointerLock self+  = liftIO (js_exitPointerLock (unDocument (toDocument self)))+ +foreign import javascript unsafe "$1[\"webkitGetNamedFlows\"]()"+        js_webkitGetNamedFlows ::+        JSRef Document -> IO (JSRef DOMNamedFlowCollection)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.webkitGetNamedFlows Mozilla Document.webkitGetNamedFlows documentation> +webkitGetNamedFlows ::+                    (MonadIO m, IsDocument self) =>+                      self -> m (Maybe DOMNamedFlowCollection)+webkitGetNamedFlows self+  = liftIO+      ((js_webkitGetNamedFlows (unDocument (toDocument self))) >>=+         fromJSRef)+ +foreign import javascript unsafe+        "$1[\"createTouch\"]($2, $3, $4,\n$5, $6, $7, $8, $9, $10, $11,\n$12)"+        js_createTouch ::+        JSRef Document ->+          JSRef Window ->+            JSRef EventTarget ->+              Int ->+                Int ->+                  Int ->+                    Int -> Int -> Int -> Int -> Float -> Float -> IO (JSRef Touch)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createTouch Mozilla Document.createTouch documentation> +createTouch ::+            (MonadIO m, IsDocument self, IsEventTarget target) =>+              self ->+                Maybe Window ->+                  Maybe target ->+                    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+  = liftIO+      ((js_createTouch (unDocument (toDocument self))+          (maybe jsNull pToJSRef window)+          (maybe jsNull (unEventTarget . toEventTarget) target)+          identifier+          pageX+          pageY+          screenX+          screenY+          webkitRadiusX+          webkitRadiusY+          webkitRotationAngle+          webkitForce)+         >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"createTouchList\"]()"+        js_createTouchList :: JSRef Document -> IO (JSRef TouchList)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createTouchList Mozilla Document.createTouchList documentation> +createTouchList ::+                (MonadIO m, IsDocument self) => self -> m (Maybe TouchList)+createTouchList self+  = liftIO+      ((js_createTouchList (unDocument (toDocument self))) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"doctype\"]" js_getDoctype ::+        JSRef Document -> IO (JSRef DocumentType)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.doctype Mozilla Document.doctype documentation> +getDoctype ::+           (MonadIO m, IsDocument self) => self -> m (Maybe DocumentType)+getDoctype self+  = liftIO+      ((js_getDoctype (unDocument (toDocument self))) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"implementation\"]"+        js_getImplementation ::+        JSRef Document -> IO (JSRef DOMImplementation)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.implementation Mozilla Document.implementation documentation> +getImplementation ::+                  (MonadIO m, IsDocument self) => self -> m (Maybe DOMImplementation)+getImplementation self+  = liftIO+      ((js_getImplementation (unDocument (toDocument self))) >>=+         fromJSRef)+ +foreign import javascript unsafe "$1[\"documentElement\"]"+        js_getDocumentElement :: JSRef Document -> IO (JSRef Element)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.documentElement Mozilla Document.documentElement documentation> +getDocumentElement ::+                   (MonadIO m, IsDocument self) => self -> m (Maybe Element)+getDocumentElement self+  = liftIO+      ((js_getDocumentElement (unDocument (toDocument self))) >>=+         fromJSRef)+ +foreign import javascript unsafe "$1[\"inputEncoding\"]"+        js_getInputEncoding ::+        JSRef Document -> IO (JSRef (Maybe JSString))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.inputEncoding Mozilla Document.inputEncoding documentation> +getInputEncoding ::+                 (MonadIO m, IsDocument self, FromJSString result) =>+                   self -> m (Maybe result)+getInputEncoding self+  = liftIO+      (fromMaybeJSString <$>+         (js_getInputEncoding (unDocument (toDocument self))))+ +foreign import javascript unsafe "$1[\"xmlEncoding\"]"+        js_getXmlEncoding :: JSRef Document -> IO (JSRef (Maybe JSString))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.xmlEncoding Mozilla Document.xmlEncoding documentation> +getXmlEncoding ::+               (MonadIO m, IsDocument self, FromJSString result) =>+                 self -> m (Maybe result)+getXmlEncoding self+  = liftIO+      (fromMaybeJSString <$>+         (js_getXmlEncoding (unDocument (toDocument self))))+ +foreign import javascript unsafe "$1[\"xmlVersion\"] = $2;"+        js_setXmlVersion ::+        JSRef Document -> JSRef (Maybe JSString) -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.xmlVersion Mozilla Document.xmlVersion documentation> +setXmlVersion ::+              (MonadIO m, IsDocument self, ToJSString val) =>+                self -> Maybe val -> m ()+setXmlVersion self val+  = liftIO+      (js_setXmlVersion (unDocument (toDocument self))+         (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"xmlVersion\"]"+        js_getXmlVersion :: JSRef Document -> IO (JSRef (Maybe JSString))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.xmlVersion Mozilla Document.xmlVersion documentation> +getXmlVersion ::+              (MonadIO m, IsDocument self, FromJSString result) =>+                self -> m (Maybe result)+getXmlVersion self+  = liftIO+      (fromMaybeJSString <$>+         (js_getXmlVersion (unDocument (toDocument self))))+ +foreign import javascript unsafe "$1[\"xmlStandalone\"] = $2;"+        js_setXmlStandalone :: JSRef Document -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.xmlStandalone Mozilla Document.xmlStandalone documentation> +setXmlStandalone ::+                 (MonadIO m, IsDocument self) => self -> Bool -> m ()+setXmlStandalone self val+  = liftIO (js_setXmlStandalone (unDocument (toDocument self)) val)+ +foreign import javascript unsafe "($1[\"xmlStandalone\"] ? 1 : 0)"+        js_getXmlStandalone :: JSRef Document -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.xmlStandalone Mozilla Document.xmlStandalone documentation> +getXmlStandalone :: (MonadIO m, IsDocument self) => self -> m Bool+getXmlStandalone self+  = liftIO (js_getXmlStandalone (unDocument (toDocument self)))+ +foreign import javascript unsafe "$1[\"documentURI\"]"+        js_getDocumentURI :: JSRef Document -> IO (JSRef (Maybe JSString))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.documentURI Mozilla Document.documentURI documentation> +getDocumentURI ::+               (MonadIO m, IsDocument self, FromJSString result) =>+                 self -> m (Maybe result)+getDocumentURI self+  = liftIO+      (fromMaybeJSString <$>+         (js_getDocumentURI (unDocument (toDocument self))))+ +foreign import javascript unsafe "$1[\"defaultView\"]"+        js_getDefaultView :: JSRef Document -> IO (JSRef Window)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.defaultView Mozilla Document.defaultView documentation> +getDefaultView ::+               (MonadIO m, IsDocument self) => self -> m (Maybe Window)+getDefaultView self+  = liftIO+      ((js_getDefaultView (unDocument (toDocument self))) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"styleSheets\"]"+        js_getStyleSheets :: JSRef Document -> IO (JSRef StyleSheetList)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.styleSheets Mozilla Document.styleSheets documentation> +getStyleSheets ::+               (MonadIO m, IsDocument self) => self -> m (Maybe StyleSheetList)+getStyleSheets self+  = liftIO+      ((js_getStyleSheets (unDocument (toDocument self))) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"contentType\"]"+        js_getContentType :: JSRef Document -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.contentType Mozilla Document.contentType documentation> +getContentType ::+               (MonadIO m, IsDocument self, FromJSString result) =>+                 self -> m result+getContentType self+  = liftIO+      (fromJSString <$>+         (js_getContentType (unDocument (toDocument self))))+ +foreign import javascript unsafe "$1[\"title\"] = $2;" js_setTitle+        :: JSRef Document -> JSRef (Maybe JSString) -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.title Mozilla Document.title documentation> +setTitle ::+         (MonadIO m, IsDocument self, ToJSString val) =>+           self -> Maybe val -> m ()+setTitle self val+  = liftIO+      (js_setTitle (unDocument (toDocument self)) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"title\"]" js_getTitle ::+        JSRef Document -> IO (JSRef (Maybe JSString))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.title Mozilla Document.title documentation> +getTitle ::+         (MonadIO m, IsDocument self, FromJSString result) =>+           self -> m (Maybe result)+getTitle self+  = liftIO+      (fromMaybeJSString <$>+         (js_getTitle (unDocument (toDocument self))))+ +foreign import javascript unsafe "$1[\"referrer\"]" js_getReferrer+        :: JSRef Document -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.referrer Mozilla Document.referrer documentation> +getReferrer ::+            (MonadIO m, IsDocument self, FromJSString result) =>+              self -> m result+getReferrer self+  = liftIO+      (fromJSString <$> (js_getReferrer (unDocument (toDocument self))))+ +foreign import javascript unsafe "$1[\"domain\"] = $2;"+        js_setDomain :: JSRef Document -> JSRef (Maybe JSString) -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.domain Mozilla Document.domain documentation> +setDomain ::+          (MonadIO m, IsDocument self, ToJSString val) =>+            self -> Maybe val -> m ()+setDomain self val+  = liftIO+      (js_setDomain (unDocument (toDocument self)) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"domain\"]" js_getDomain ::+        JSRef Document -> IO (JSRef (Maybe JSString))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.domain Mozilla Document.domain documentation> +getDomain ::+          (MonadIO m, IsDocument self, FromJSString result) =>+            self -> m (Maybe result)+getDomain self+  = liftIO+      (fromMaybeJSString <$>+         (js_getDomain (unDocument (toDocument self))))+ +foreign import javascript unsafe "$1[\"URL\"]" js_getURL ::+        JSRef Document -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.URL Mozilla Document.URL documentation> +getURL ::+       (MonadIO m, IsDocument self, FromJSString result) =>+         self -> m result+getURL self+  = liftIO+      (fromJSString <$> (js_getURL (unDocument (toDocument self))))+ +foreign import javascript unsafe "$1[\"cookie\"] = $2;"+        js_setCookie :: JSRef Document -> JSRef (Maybe JSString) -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.cookie Mozilla Document.cookie documentation> +setCookie ::+          (MonadIO m, IsDocument self, ToJSString val) =>+            self -> Maybe val -> m ()+setCookie self val+  = liftIO+      (js_setCookie (unDocument (toDocument self)) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"cookie\"]" js_getCookie ::+        JSRef Document -> IO (JSRef (Maybe JSString))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.cookie Mozilla Document.cookie documentation> +getCookie ::+          (MonadIO m, IsDocument self, FromJSString result) =>+            self -> m (Maybe result)+getCookie self+  = liftIO+      (fromMaybeJSString <$>+         (js_getCookie (unDocument (toDocument self))))+ +foreign import javascript unsafe "$1[\"body\"] = $2;" js_setBody ::+        JSRef Document -> JSRef HTMLElement -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.body Mozilla Document.body documentation> +setBody ::+        (MonadIO m, IsDocument self, IsHTMLElement val) =>+          self -> Maybe val -> m ()+setBody self val+  = liftIO+      (js_setBody (unDocument (toDocument self))+         (maybe jsNull (unHTMLElement . toHTMLElement) val))+ +foreign import javascript unsafe "$1[\"body\"]" js_getBody ::+        JSRef Document -> IO (JSRef HTMLElement)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.body Mozilla Document.body documentation> +getBody ::+        (MonadIO m, IsDocument self) => self -> m (Maybe HTMLElement)+getBody self+  = liftIO+      ((js_getBody (unDocument (toDocument self))) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"head\"]" js_getHead ::+        JSRef Document -> IO (JSRef HTMLHeadElement)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.head Mozilla Document.head documentation> +getHead ::+        (MonadIO m, IsDocument self) => self -> m (Maybe HTMLHeadElement)+getHead self+  = liftIO+      ((js_getHead (unDocument (toDocument self))) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"images\"]" js_getImages ::+        JSRef Document -> IO (JSRef HTMLCollection)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.images Mozilla Document.images documentation> +getImages ::+          (MonadIO m, IsDocument self) => self -> m (Maybe HTMLCollection)+getImages self+  = liftIO+      ((js_getImages (unDocument (toDocument self))) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"applets\"]" js_getApplets ::+        JSRef Document -> IO (JSRef HTMLCollection)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.applets Mozilla Document.applets documentation> +getApplets ::+           (MonadIO m, IsDocument self) => self -> m (Maybe HTMLCollection)+getApplets self+  = liftIO+      ((js_getApplets (unDocument (toDocument self))) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"links\"]" js_getLinks ::+        JSRef Document -> IO (JSRef HTMLCollection)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.links Mozilla Document.links documentation> +getLinks ::+         (MonadIO m, IsDocument self) => self -> m (Maybe HTMLCollection)+getLinks self+  = liftIO+      ((js_getLinks (unDocument (toDocument self))) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"forms\"]" js_getForms ::+        JSRef Document -> IO (JSRef HTMLCollection)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.forms Mozilla Document.forms documentation> +getForms ::+         (MonadIO m, IsDocument self) => self -> m (Maybe HTMLCollection)+getForms self+  = liftIO+      ((js_getForms (unDocument (toDocument self))) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"anchors\"]" js_getAnchors ::+        JSRef Document -> IO (JSRef HTMLCollection)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.anchors Mozilla Document.anchors documentation> +getAnchors ::+           (MonadIO m, IsDocument self) => self -> m (Maybe HTMLCollection)+getAnchors self+  = liftIO+      ((js_getAnchors (unDocument (toDocument self))) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"lastModified\"]"+        js_getLastModified :: JSRef Document -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.lastModified Mozilla Document.lastModified documentation> +getLastModified ::+                (MonadIO m, IsDocument self, FromJSString result) =>+                  self -> m result+getLastModified self+  = liftIO+      (fromJSString <$>+         (js_getLastModified (unDocument (toDocument self))))+ +foreign import javascript unsafe "$1[\"location\"] = $2;"+        js_setLocation :: JSRef Document -> JSRef Location -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.location Mozilla Document.location documentation> +setLocation ::+            (MonadIO m, IsDocument self) => self -> Maybe Location -> m ()+setLocation self val+  = liftIO+      (js_setLocation (unDocument (toDocument self))+         (maybe jsNull pToJSRef val))+ +foreign import javascript unsafe "$1[\"location\"]" js_getLocation+        :: JSRef Document -> IO (JSRef Location)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.location Mozilla Document.location documentation> +getLocation ::+            (MonadIO m, IsDocument self) => self -> m (Maybe Location)+getLocation self+  = liftIO+      ((js_getLocation (unDocument (toDocument self))) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"charset\"] = $2;"+        js_setCharset :: JSRef Document -> JSRef (Maybe JSString) -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.charset Mozilla Document.charset documentation> +setCharset ::+           (MonadIO m, IsDocument self, ToJSString val) =>+             self -> Maybe val -> m ()+setCharset self val+  = liftIO+      (js_setCharset (unDocument (toDocument self))+         (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"charset\"]" js_getCharset ::+        JSRef Document -> IO (JSRef (Maybe JSString))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.charset Mozilla Document.charset documentation> +getCharset ::+           (MonadIO m, IsDocument self, FromJSString result) =>+             self -> m (Maybe result)+getCharset self+  = liftIO+      (fromMaybeJSString <$>+         (js_getCharset (unDocument (toDocument self))))+ +foreign import javascript unsafe "$1[\"defaultCharset\"]"+        js_getDefaultCharset ::+        JSRef Document -> IO (JSRef (Maybe JSString))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.defaultCharset Mozilla Document.defaultCharset documentation> +getDefaultCharset ::+                  (MonadIO m, IsDocument self, FromJSString result) =>+                    self -> m (Maybe result)+getDefaultCharset self+  = liftIO+      (fromMaybeJSString <$>+         (js_getDefaultCharset (unDocument (toDocument self))))+ +foreign import javascript unsafe "$1[\"readyState\"]"+        js_getReadyState :: JSRef Document -> IO (JSRef (Maybe JSString))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.readyState Mozilla Document.readyState documentation> +getReadyState ::+              (MonadIO m, IsDocument self, FromJSString result) =>+                self -> m (Maybe result)+getReadyState self+  = liftIO+      (fromMaybeJSString <$>+         (js_getReadyState (unDocument (toDocument self))))+ +foreign import javascript unsafe "$1[\"characterSet\"]"+        js_getCharacterSet :: JSRef Document -> IO (JSRef (Maybe JSString))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.characterSet Mozilla Document.characterSet documentation> +getCharacterSet ::+                (MonadIO m, IsDocument self, FromJSString result) =>+                  self -> m (Maybe result)+getCharacterSet self+  = liftIO+      (fromMaybeJSString <$>+         (js_getCharacterSet (unDocument (toDocument self))))+ +foreign import javascript unsafe "$1[\"preferredStylesheetSet\"]"+        js_getPreferredStylesheetSet ::+        JSRef Document -> IO (JSRef (Maybe JSString))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.preferredStylesheetSet Mozilla Document.preferredStylesheetSet documentation> +getPreferredStylesheetSet ::+                          (MonadIO m, IsDocument self, FromJSString result) =>+                            self -> m (Maybe result)+getPreferredStylesheetSet self+  = liftIO+      (fromMaybeJSString <$>+         (js_getPreferredStylesheetSet (unDocument (toDocument self))))+ +foreign import javascript unsafe+        "$1[\"selectedStylesheetSet\"] = $2;" js_setSelectedStylesheetSet+        :: JSRef Document -> JSRef (Maybe JSString) -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.selectedStylesheetSet Mozilla Document.selectedStylesheetSet documentation> +setSelectedStylesheetSet ::+                         (MonadIO m, IsDocument self, ToJSString val) =>+                           self -> Maybe val -> m ()+setSelectedStylesheetSet self val+  = liftIO+      (js_setSelectedStylesheetSet (unDocument (toDocument self))+         (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"selectedStylesheetSet\"]"+        js_getSelectedStylesheetSet ::+        JSRef Document -> IO (JSRef (Maybe JSString))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.selectedStylesheetSet Mozilla Document.selectedStylesheetSet documentation> +getSelectedStylesheetSet ::+                         (MonadIO m, IsDocument self, FromJSString result) =>+                           self -> m (Maybe result)+getSelectedStylesheetSet self+  = liftIO+      (fromMaybeJSString <$>+         (js_getSelectedStylesheetSet (unDocument (toDocument self))))+ +foreign import javascript unsafe "$1[\"activeElement\"]"+        js_getActiveElement :: JSRef Document -> IO (JSRef Element)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.activeElement Mozilla Document.activeElement documentation> +getActiveElement ::+                 (MonadIO m, IsDocument self) => self -> m (Maybe Element)+getActiveElement self+  = liftIO+      ((js_getActiveElement (unDocument (toDocument self))) >>=+         fromJSRef)+ +foreign import javascript unsafe "$1[\"compatMode\"]"+        js_getCompatMode :: JSRef Document -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.compatMode Mozilla Document.compatMode documentation> +getCompatMode ::+              (MonadIO m, IsDocument self, FromJSString result) =>+                self -> m result+getCompatMode self+  = liftIO+      (fromJSString <$>+         (js_getCompatMode (unDocument (toDocument self))))+ +foreign import javascript unsafe+        "($1[\"webkitIsFullScreen\"] ? 1 : 0)" js_getWebkitIsFullScreen ::+        JSRef Document -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.webkitIsFullScreen Mozilla Document.webkitIsFullScreen documentation> +getWebkitIsFullScreen ::+                      (MonadIO m, IsDocument self) => self -> m Bool+getWebkitIsFullScreen self+  = liftIO (js_getWebkitIsFullScreen (unDocument (toDocument self)))+ +foreign import javascript unsafe+        "($1[\"webkitFullScreenKeyboardInputAllowed\"] ? 1 : 0)"+        js_getWebkitFullScreenKeyboardInputAllowed ::+        JSRef Document -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.webkitFullScreenKeyboardInputAllowed Mozilla Document.webkitFullScreenKeyboardInputAllowed documentation> +getWebkitFullScreenKeyboardInputAllowed ::+                                        (MonadIO m, IsDocument self) => self -> m Bool+getWebkitFullScreenKeyboardInputAllowed self+  = liftIO+      (js_getWebkitFullScreenKeyboardInputAllowed+         (unDocument (toDocument self)))+ +foreign import javascript unsafe+        "$1[\"webkitCurrentFullScreenElement\"]"+        js_getWebkitCurrentFullScreenElement ::+        JSRef Document -> IO (JSRef Element)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.webkitCurrentFullScreenElement Mozilla Document.webkitCurrentFullScreenElement documentation> +getWebkitCurrentFullScreenElement ::+                                  (MonadIO m, IsDocument self) => self -> m (Maybe Element)+getWebkitCurrentFullScreenElement self+  = liftIO+      ((js_getWebkitCurrentFullScreenElement+          (unDocument (toDocument self)))+         >>= fromJSRef)+ +foreign import javascript unsafe+        "($1[\"webkitFullscreenEnabled\"] ? 1 : 0)"+        js_getWebkitFullscreenEnabled :: JSRef Document -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.webkitFullscreenEnabled Mozilla Document.webkitFullscreenEnabled documentation> +getWebkitFullscreenEnabled ::+                           (MonadIO m, IsDocument self) => self -> m Bool+getWebkitFullscreenEnabled self+  = liftIO+      (js_getWebkitFullscreenEnabled (unDocument (toDocument self)))+ +foreign import javascript unsafe "$1[\"webkitFullscreenElement\"]"+        js_getWebkitFullscreenElement ::+        JSRef Document -> IO (JSRef Element)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.webkitFullscreenElement Mozilla Document.webkitFullscreenElement documentation> +getWebkitFullscreenElement ::+                           (MonadIO m, IsDocument self) => self -> m (Maybe Element)+getWebkitFullscreenElement self+  = liftIO+      ((js_getWebkitFullscreenElement (unDocument (toDocument self))) >>=+         fromJSRef)+ +foreign import javascript unsafe "$1[\"pointerLockElement\"]"+        js_getPointerLockElement :: JSRef Document -> IO (JSRef Element)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.pointerLockElement Mozilla Document.pointerLockElement documentation> +getPointerLockElement ::+                      (MonadIO m, IsDocument self) => self -> m (Maybe Element)+getPointerLockElement self+  = liftIO+      ((js_getPointerLockElement (unDocument (toDocument self))) >>=+         fromJSRef)+ +foreign import javascript unsafe "$1[\"fonts\"]" js_getFonts ::+        JSRef Document -> IO (JSRef FontLoader)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.fonts Mozilla Document.fonts documentation> +getFonts ::+         (MonadIO m, IsDocument self) => self -> m (Maybe FontLoader)+getFonts self+  = liftIO+      ((js_getFonts (unDocument (toDocument self))) >>= fromJSRef)++-- | <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")+ +foreign import javascript unsafe "$1[\"visibilityState\"]"+        js_getVisibilityState :: JSRef Document -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.visibilityState Mozilla Document.visibilityState documentation> +getVisibilityState ::+                   (MonadIO m, IsDocument self, FromJSString result) =>+                     self -> m result+getVisibilityState self+  = liftIO+      (fromJSString <$>+         (js_getVisibilityState (unDocument (toDocument self))))+ +foreign import javascript unsafe "($1[\"hidden\"] ? 1 : 0)"+        js_getHidden :: JSRef Document -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.hidden Mozilla Document.hidden documentation> +getHidden :: (MonadIO m, IsDocument self) => self -> m Bool+getHidden self+  = liftIO (js_getHidden (unDocument (toDocument self)))+ +foreign import javascript unsafe "$1[\"securityPolicy\"]"+        js_getSecurityPolicy :: JSRef Document -> IO (JSRef SecurityPolicy)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.securityPolicy Mozilla Document.securityPolicy documentation> +getSecurityPolicy ::+                  (MonadIO m, IsDocument self) => self -> m (Maybe SecurityPolicy)+getSecurityPolicy self+  = liftIO+      ((js_getSecurityPolicy (unDocument (toDocument self))) >>=+         fromJSRef)+ +foreign import javascript unsafe "$1[\"currentScript\"]"+        js_getCurrentScript ::+        JSRef Document -> IO (JSRef HTMLScriptElement)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.currentScript Mozilla Document.currentScript documentation> +getCurrentScript ::+                 (MonadIO m, IsDocument self) => self -> m (Maybe HTMLScriptElement)+getCurrentScript self+  = liftIO+      ((js_getCurrentScript (unDocument (toDocument self))) >>=+         fromJSRef)+ +foreign import javascript unsafe "$1[\"origin\"]" js_getOrigin ::+        JSRef Document -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.origin Mozilla Document.origin documentation> +getOrigin ::+          (MonadIO m, IsDocument self, FromJSString result) =>+            self -> m result+getOrigin self+  = liftIO+      (fromJSString <$> (js_getOrigin (unDocument (toDocument self))))
+ src/GHCJS/DOM/JSFFI/Generated/DocumentFragment.hs view
@@ -0,0 +1,57 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.DocumentFragment+       (js_newDocumentFragment, newDocumentFragment, js_querySelector,+        querySelector, js_querySelectorAll, querySelectorAll,+        DocumentFragment, castToDocumentFragment, gTypeDocumentFragment)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe+        "new window[\"DocumentFragment\"]()" js_newDocumentFragment ::+        IO (JSRef DocumentFragment)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentFragment Mozilla DocumentFragment documentation> +newDocumentFragment :: (MonadIO m) => m DocumentFragment+newDocumentFragment+  = liftIO (js_newDocumentFragment >>= fromJSRefUnchecked)+ +foreign import javascript unsafe "$1[\"querySelector\"]($2)"+        js_querySelector ::+        JSRef DocumentFragment -> JSString -> IO (JSRef Element)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentFragment.querySelector Mozilla DocumentFragment.querySelector documentation> +querySelector ::+              (MonadIO m, ToJSString selectors) =>+                DocumentFragment -> selectors -> m (Maybe Element)+querySelector self selectors+  = liftIO+      ((js_querySelector (unDocumentFragment self)+          (toJSString selectors))+         >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"querySelectorAll\"]($2)"+        js_querySelectorAll ::+        JSRef DocumentFragment -> JSString -> IO (JSRef NodeList)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentFragment.querySelectorAll Mozilla DocumentFragment.querySelectorAll documentation> +querySelectorAll ::+                 (MonadIO m, ToJSString selectors) =>+                   DocumentFragment -> selectors -> m (Maybe NodeList)+querySelectorAll self selectors+  = liftIO+      ((js_querySelectorAll (unDocumentFragment self)+          (toJSString selectors))+         >>= fromJSRef)
+ src/GHCJS/DOM/JSFFI/Generated/DocumentType.hs view
@@ -0,0 +1,83 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.DocumentType+       (js_getName, getName, js_getEntities, getEntities, js_getNotations,+        getNotations, js_getPublicId, getPublicId, js_getSystemId,+        getSystemId, js_getInternalSubset, getInternalSubset, DocumentType,+        castToDocumentType, gTypeDocumentType)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"name\"]" js_getName ::+        JSRef DocumentType -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentType.name Mozilla DocumentType.name documentation> +getName ::+        (MonadIO m, FromJSString result) => DocumentType -> m result+getName self+  = liftIO (fromJSString <$> (js_getName (unDocumentType self)))+ +foreign import javascript unsafe "$1[\"entities\"]" js_getEntities+        :: JSRef DocumentType -> IO (JSRef NamedNodeMap)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentType.entities Mozilla DocumentType.entities documentation> +getEntities ::+            (MonadIO m) => DocumentType -> m (Maybe NamedNodeMap)+getEntities self+  = liftIO ((js_getEntities (unDocumentType self)) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"notations\"]"+        js_getNotations :: JSRef DocumentType -> IO (JSRef NamedNodeMap)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentType.notations Mozilla DocumentType.notations documentation> +getNotations ::+             (MonadIO m) => DocumentType -> m (Maybe NamedNodeMap)+getNotations self+  = liftIO ((js_getNotations (unDocumentType self)) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"publicId\"]" js_getPublicId+        :: JSRef DocumentType -> IO (JSRef (Maybe JSString))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentType.publicId Mozilla DocumentType.publicId documentation> +getPublicId ::+            (MonadIO m, FromJSString result) =>+              DocumentType -> m (Maybe result)+getPublicId self+  = liftIO+      (fromMaybeJSString <$> (js_getPublicId (unDocumentType self)))+ +foreign import javascript unsafe "$1[\"systemId\"]" js_getSystemId+        :: JSRef DocumentType -> IO (JSRef (Maybe JSString))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentType.systemId Mozilla DocumentType.systemId documentation> +getSystemId ::+            (MonadIO m, FromJSString result) =>+              DocumentType -> m (Maybe result)+getSystemId self+  = liftIO+      (fromMaybeJSString <$> (js_getSystemId (unDocumentType self)))+ +foreign import javascript unsafe "$1[\"internalSubset\"]"+        js_getInternalSubset ::+        JSRef DocumentType -> IO (JSRef (Maybe JSString))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentType.internalSubset Mozilla DocumentType.internalSubset documentation> +getInternalSubset ::+                  (MonadIO m, FromJSString result) =>+                    DocumentType -> m (Maybe result)+getInternalSubset self+  = liftIO+      (fromMaybeJSString <$>+         (js_getInternalSubset (unDocumentType self)))
+ src/GHCJS/DOM/JSFFI/Generated/DynamicsCompressorNode.hs view
@@ -0,0 +1,83 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.DynamicsCompressorNode+       (js_getThreshold, getThreshold, js_getKnee, getKnee, js_getRatio,+        getRatio, js_getReduction, getReduction, js_getAttack, getAttack,+        js_getRelease, getRelease, DynamicsCompressorNode,+        castToDynamicsCompressorNode, gTypeDynamicsCompressorNode)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"threshold\"]"+        js_getThreshold ::+        JSRef DynamicsCompressorNode -> IO (JSRef AudioParam)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DynamicsCompressorNode.threshold Mozilla DynamicsCompressorNode.threshold documentation> +getThreshold ::+             (MonadIO m) => DynamicsCompressorNode -> m (Maybe AudioParam)+getThreshold self+  = liftIO+      ((js_getThreshold (unDynamicsCompressorNode self)) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"knee\"]" js_getKnee ::+        JSRef DynamicsCompressorNode -> IO (JSRef AudioParam)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DynamicsCompressorNode.knee Mozilla DynamicsCompressorNode.knee documentation> +getKnee ::+        (MonadIO m) => DynamicsCompressorNode -> m (Maybe AudioParam)+getKnee self+  = liftIO+      ((js_getKnee (unDynamicsCompressorNode self)) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"ratio\"]" js_getRatio ::+        JSRef DynamicsCompressorNode -> IO (JSRef AudioParam)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DynamicsCompressorNode.ratio Mozilla DynamicsCompressorNode.ratio documentation> +getRatio ::+         (MonadIO m) => DynamicsCompressorNode -> m (Maybe AudioParam)+getRatio self+  = liftIO+      ((js_getRatio (unDynamicsCompressorNode self)) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"reduction\"]"+        js_getReduction ::+        JSRef DynamicsCompressorNode -> IO (JSRef AudioParam)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DynamicsCompressorNode.reduction Mozilla DynamicsCompressorNode.reduction documentation> +getReduction ::+             (MonadIO m) => DynamicsCompressorNode -> m (Maybe AudioParam)+getReduction self+  = liftIO+      ((js_getReduction (unDynamicsCompressorNode self)) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"attack\"]" js_getAttack ::+        JSRef DynamicsCompressorNode -> IO (JSRef AudioParam)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DynamicsCompressorNode.attack Mozilla DynamicsCompressorNode.attack documentation> +getAttack ::+          (MonadIO m) => DynamicsCompressorNode -> m (Maybe AudioParam)+getAttack self+  = liftIO+      ((js_getAttack (unDynamicsCompressorNode self)) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"release\"]" js_getRelease ::+        JSRef DynamicsCompressorNode -> IO (JSRef AudioParam)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DynamicsCompressorNode.release Mozilla DynamicsCompressorNode.release documentation> +getRelease ::+           (MonadIO m) => DynamicsCompressorNode -> m (Maybe AudioParam)+getRelease self+  = liftIO+      ((js_getRelease (unDynamicsCompressorNode self)) >>= fromJSRef)
+ src/GHCJS/DOM/JSFFI/Generated/EXTBlendMinMax.hs view
@@ -0,0 +1,21 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.EXTBlendMinMax+       (pattern MIN_EXT, pattern MAX_EXT, EXTBlendMinMax,+        castToEXTBlendMinMax, gTypeEXTBlendMinMax)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+pattern MIN_EXT = 32775+pattern MAX_EXT = 32776
+ src/GHCJS/DOM/JSFFI/Generated/EXTTextureFilterAnisotropic.hs view
@@ -0,0 +1,23 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.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, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+pattern TEXTURE_MAX_ANISOTROPY_EXT = 34046+pattern MAX_TEXTURE_MAX_ANISOTROPY_EXT = 34047
+ src/GHCJS/DOM/JSFFI/Generated/EXTsRGB.hs view
@@ -0,0 +1,25 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.EXTsRGB+       (pattern SRGB_EXT, pattern SRGB_ALPHA_EXT,+        pattern SRGB8_ALPHA8_EXT,+        pattern FRAMEBUFFER_ATTACHMENT_COLOR_ENCODING_EXT, EXTsRGB,+        castToEXTsRGB, gTypeEXTsRGB)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+pattern SRGB_EXT = 35904+pattern SRGB_ALPHA_EXT = 35906+pattern SRGB8_ALPHA8_EXT = 35907+pattern FRAMEBUFFER_ATTACHMENT_COLOR_ENCODING_EXT = 33296
+ src/GHCJS/DOM/JSFFI/Generated/Element.hs view
@@ -0,0 +1,1103 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.Element+       (js_getAttribute, getAttribute, js_setAttribute, setAttribute,+        js_removeAttribute, removeAttribute, js_getAttributeNode,+        getAttributeNode, js_setAttributeNode, setAttributeNode,+        js_removeAttributeNode, removeAttributeNode,+        js_getElementsByTagName, getElementsByTagName, js_hasAttributes,+        hasAttributes, js_getAttributeNS, getAttributeNS,+        js_setAttributeNS, setAttributeNS, js_removeAttributeNS,+        removeAttributeNS, js_getElementsByTagNameNS,+        getElementsByTagNameNS, js_getAttributeNodeNS, getAttributeNodeNS,+        js_setAttributeNodeNS, setAttributeNodeNS, js_hasAttribute,+        hasAttribute, js_hasAttributeNS, hasAttributeNS, js_focus, focus,+        js_blur, blur, js_scrollIntoView, scrollIntoView,+        js_scrollIntoViewIfNeeded, scrollIntoViewIfNeeded,+        js_scrollByLines, scrollByLines, js_scrollByPages, scrollByPages,+        js_getElementsByClassName, getElementsByClassName,+        js_querySelector, querySelector, js_querySelectorAll,+        querySelectorAll, js_matches, matches, js_closest, closest,+        js_webkitMatchesSelector, webkitMatchesSelector, js_getClientRects,+        getClientRects, js_getBoundingClientRect, getBoundingClientRect,+        js_webkitRequestFullScreen, webkitRequestFullScreen,+        js_webkitRequestFullscreen, webkitRequestFullscreen,+        js_requestPointerLock, requestPointerLock,+        js_webkitGetRegionFlowRanges, webkitGetRegionFlowRanges,+        pattern ALLOW_KEYBOARD_INPUT, js_getTagName, getTagName,+        js_getAttributes, getAttributes, js_getStyle, getStyle, js_setId,+        setId, js_getId, getId, js_getOffsetLeft, getOffsetLeft,+        js_getOffsetTop, getOffsetTop, js_getOffsetWidth, getOffsetWidth,+        js_getOffsetHeight, getOffsetHeight, js_getClientLeft,+        getClientLeft, js_getClientTop, getClientTop, js_getClientWidth,+        getClientWidth, js_getClientHeight, getClientHeight,+        js_setScrollLeft, setScrollLeft, js_getScrollLeft, getScrollLeft,+        js_setScrollTop, setScrollTop, js_getScrollTop, getScrollTop,+        js_getScrollWidth, getScrollWidth, js_getScrollHeight,+        getScrollHeight, js_getOffsetParent, getOffsetParent,+        js_setInnerHTML, setInnerHTML, js_getInnerHTML, getInnerHTML,+        js_setOuterHTML, setOuterHTML, js_getOuterHTML, getOuterHTML,+        js_setClassName, setClassName, js_getClassName, getClassName,+        js_getClassList, getClassList, js_getDataset, getDataset,+        js_getFirstElementChild, getFirstElementChild,+        js_getLastElementChild, getLastElementChild,+        js_getPreviousElementSibling, getPreviousElementSibling,+        js_getNextElementSibling, getNextElementSibling,+        js_getChildElementCount, getChildElementCount, js_setUiactions,+        setUiactions, js_getUiactions, getUiactions,+        js_getWebkitRegionOverset, getWebkitRegionOverset, abort,+        blurEvent, change, click, contextMenu, dblClick, drag, dragEnd,+        dragEnter, dragLeave, dragOver, dragStart, drop, error, focusEvent,+        input, invalid, keyDown, keyPress, keyUp, load, mouseDown,+        mouseEnter, mouseLeave, mouseMove, mouseOut, mouseOver, mouseUp,+        mouseWheel, scroll, select, submit, wheel, beforeCut, cut,+        beforeCopy, copy, beforePaste, paste, reset, search, selectStart,+        touchStart, touchMove, touchEnd, touchCancel,+        webKitFullscreenChange, webKitFullscreenError,+        webKitWillRevealBottom, webKitWillRevealLeft,+        webKitWillRevealRight, webKitWillRevealTop, Element, castToElement,+        gTypeElement, IsElement, toElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"getAttribute\"]($2)"+        js_getAttribute ::+        JSRef Element -> JSString -> IO (JSRef (Maybe JSString))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getAttribute Mozilla Element.getAttribute documentation> +getAttribute ::+             (MonadIO m, IsElement self, ToJSString name,+              FromJSString result) =>+               self -> name -> m (Maybe result)+getAttribute self name+  = liftIO+      (fromMaybeJSString <$>+         (js_getAttribute (unElement (toElement self)) (toJSString name)))+ +foreign import javascript unsafe "$1[\"setAttribute\"]($2, $3)"+        js_setAttribute :: JSRef Element -> JSString -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.setAttribute Mozilla Element.setAttribute documentation> +setAttribute ::+             (MonadIO m, IsElement self, ToJSString name, ToJSString value) =>+               self -> name -> value -> m ()+setAttribute self name value+  = liftIO+      (js_setAttribute (unElement (toElement self)) (toJSString name)+         (toJSString value))+ +foreign import javascript unsafe "$1[\"removeAttribute\"]($2)"+        js_removeAttribute :: JSRef Element -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.removeAttribute Mozilla Element.removeAttribute documentation> +removeAttribute ::+                (MonadIO m, IsElement self, ToJSString name) =>+                  self -> name -> m ()+removeAttribute self name+  = liftIO+      (js_removeAttribute (unElement (toElement self)) (toJSString name))+ +foreign import javascript unsafe "$1[\"getAttributeNode\"]($2)"+        js_getAttributeNode :: JSRef Element -> JSString -> IO (JSRef Attr)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getAttributeNode Mozilla Element.getAttributeNode documentation> +getAttributeNode ::+                 (MonadIO m, IsElement self, ToJSString name) =>+                   self -> name -> m (Maybe Attr)+getAttributeNode self name+  = liftIO+      ((js_getAttributeNode (unElement (toElement self))+          (toJSString name))+         >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"setAttributeNode\"]($2)"+        js_setAttributeNode ::+        JSRef Element -> JSRef Attr -> IO (JSRef Attr)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.setAttributeNode Mozilla Element.setAttributeNode documentation> +setAttributeNode ::+                 (MonadIO m, IsElement self) => self -> Maybe Attr -> m (Maybe Attr)+setAttributeNode self newAttr+  = liftIO+      ((js_setAttributeNode (unElement (toElement self))+          (maybe jsNull pToJSRef newAttr))+         >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"removeAttributeNode\"]($2)"+        js_removeAttributeNode ::+        JSRef Element -> JSRef Attr -> IO (JSRef Attr)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.removeAttributeNode Mozilla Element.removeAttributeNode documentation> +removeAttributeNode ::+                    (MonadIO m, IsElement self) => self -> Maybe Attr -> m (Maybe Attr)+removeAttributeNode self oldAttr+  = liftIO+      ((js_removeAttributeNode (unElement (toElement self))+          (maybe jsNull pToJSRef oldAttr))+         >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"getElementsByTagName\"]($2)"+        js_getElementsByTagName ::+        JSRef Element -> JSString -> IO (JSRef NodeList)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getElementsByTagName Mozilla Element.getElementsByTagName documentation> +getElementsByTagName ::+                     (MonadIO m, IsElement self, ToJSString name) =>+                       self -> name -> m (Maybe NodeList)+getElementsByTagName self name+  = liftIO+      ((js_getElementsByTagName (unElement (toElement self))+          (toJSString name))+         >>= fromJSRef)+ +foreign import javascript unsafe+        "($1[\"hasAttributes\"]() ? 1 : 0)" js_hasAttributes ::+        JSRef Element -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.hasAttributes Mozilla Element.hasAttributes documentation> +hasAttributes :: (MonadIO m, IsElement self) => self -> m Bool+hasAttributes self+  = liftIO (js_hasAttributes (unElement (toElement self)))+ +foreign import javascript unsafe "$1[\"getAttributeNS\"]($2, $3)"+        js_getAttributeNS ::+        JSRef Element -> JSRef (Maybe JSString) -> JSString -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getAttributeNS Mozilla Element.getAttributeNS documentation> +getAttributeNS ::+               (MonadIO m, IsElement self, ToJSString namespaceURI,+                ToJSString localName, FromJSString result) =>+                 self -> Maybe namespaceURI -> localName -> m result+getAttributeNS self namespaceURI localName+  = liftIO+      (fromJSString <$>+         (js_getAttributeNS (unElement (toElement self))+            (toMaybeJSString namespaceURI)+            (toJSString localName)))+ +foreign import javascript unsafe+        "$1[\"setAttributeNS\"]($2, $3, $4)" js_setAttributeNS ::+        JSRef Element ->+          JSRef (Maybe JSString) -> JSString -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.setAttributeNS Mozilla Element.setAttributeNS documentation> +setAttributeNS ::+               (MonadIO m, IsElement self, ToJSString namespaceURI,+                ToJSString qualifiedName, ToJSString value) =>+                 self -> Maybe namespaceURI -> qualifiedName -> value -> m ()+setAttributeNS self namespaceURI qualifiedName value+  = liftIO+      (js_setAttributeNS (unElement (toElement self))+         (toMaybeJSString namespaceURI)+         (toJSString qualifiedName)+         (toJSString value))+ +foreign import javascript unsafe+        "$1[\"removeAttributeNS\"]($2, $3)" js_removeAttributeNS ::+        JSRef Element -> JSRef (Maybe JSString) -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.removeAttributeNS Mozilla Element.removeAttributeNS documentation> +removeAttributeNS ::+                  (MonadIO m, IsElement self, ToJSString namespaceURI,+                   ToJSString localName) =>+                    self -> Maybe namespaceURI -> localName -> m ()+removeAttributeNS self namespaceURI localName+  = liftIO+      (js_removeAttributeNS (unElement (toElement self))+         (toMaybeJSString namespaceURI)+         (toJSString localName))+ +foreign import javascript unsafe+        "$1[\"getElementsByTagNameNS\"]($2,\n$3)" js_getElementsByTagNameNS+        ::+        JSRef Element ->+          JSRef (Maybe JSString) -> JSString -> IO (JSRef NodeList)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getElementsByTagNameNS Mozilla Element.getElementsByTagNameNS documentation> +getElementsByTagNameNS ::+                       (MonadIO m, IsElement self, ToJSString namespaceURI,+                        ToJSString localName) =>+                         self -> Maybe namespaceURI -> localName -> m (Maybe NodeList)+getElementsByTagNameNS self namespaceURI localName+  = liftIO+      ((js_getElementsByTagNameNS (unElement (toElement self))+          (toMaybeJSString namespaceURI)+          (toJSString localName))+         >>= fromJSRef)+ +foreign import javascript unsafe+        "$1[\"getAttributeNodeNS\"]($2, $3)" js_getAttributeNodeNS ::+        JSRef Element ->+          JSRef (Maybe JSString) -> JSString -> IO (JSRef Attr)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getAttributeNodeNS Mozilla Element.getAttributeNodeNS documentation> +getAttributeNodeNS ::+                   (MonadIO m, IsElement self, ToJSString namespaceURI,+                    ToJSString localName) =>+                     self -> Maybe namespaceURI -> localName -> m (Maybe Attr)+getAttributeNodeNS self namespaceURI localName+  = liftIO+      ((js_getAttributeNodeNS (unElement (toElement self))+          (toMaybeJSString namespaceURI)+          (toJSString localName))+         >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"setAttributeNodeNS\"]($2)"+        js_setAttributeNodeNS ::+        JSRef Element -> JSRef Attr -> IO (JSRef Attr)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.setAttributeNodeNS Mozilla Element.setAttributeNodeNS documentation> +setAttributeNodeNS ::+                   (MonadIO m, IsElement self) => self -> Maybe Attr -> m (Maybe Attr)+setAttributeNodeNS self newAttr+  = liftIO+      ((js_setAttributeNodeNS (unElement (toElement self))+          (maybe jsNull pToJSRef newAttr))+         >>= fromJSRef)+ +foreign import javascript unsafe+        "($1[\"hasAttribute\"]($2) ? 1 : 0)" js_hasAttribute ::+        JSRef Element -> JSString -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.hasAttribute Mozilla Element.hasAttribute documentation> +hasAttribute ::+             (MonadIO m, IsElement self, ToJSString name) =>+               self -> name -> m Bool+hasAttribute self name+  = liftIO+      (js_hasAttribute (unElement (toElement self)) (toJSString name))+ +foreign import javascript unsafe+        "($1[\"hasAttributeNS\"]($2,\n$3) ? 1 : 0)" js_hasAttributeNS ::+        JSRef Element -> JSRef (Maybe JSString) -> JSString -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.hasAttributeNS Mozilla Element.hasAttributeNS documentation> +hasAttributeNS ::+               (MonadIO m, IsElement self, ToJSString namespaceURI,+                ToJSString localName) =>+                 self -> Maybe namespaceURI -> localName -> m Bool+hasAttributeNS self namespaceURI localName+  = liftIO+      (js_hasAttributeNS (unElement (toElement self))+         (toMaybeJSString namespaceURI)+         (toJSString localName))+ +foreign import javascript unsafe "$1[\"focus\"]()" js_focus ::+        JSRef Element -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.focus Mozilla Element.focus documentation> +focus :: (MonadIO m, IsElement self) => self -> m ()+focus self = liftIO (js_focus (unElement (toElement self)))+ +foreign import javascript unsafe "$1[\"blur\"]()" js_blur ::+        JSRef Element -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.blur Mozilla Element.blur documentation> +blur :: (MonadIO m, IsElement self) => self -> m ()+blur self = liftIO (js_blur (unElement (toElement self)))+ +foreign import javascript unsafe "$1[\"scrollIntoView\"]($2)"+        js_scrollIntoView :: JSRef Element -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.scrollIntoView Mozilla Element.scrollIntoView documentation> +scrollIntoView ::+               (MonadIO m, IsElement self) => self -> Bool -> m ()+scrollIntoView self alignWithTop+  = liftIO+      (js_scrollIntoView (unElement (toElement self)) alignWithTop)+ +foreign import javascript unsafe+        "$1[\"scrollIntoViewIfNeeded\"]($2)" js_scrollIntoViewIfNeeded ::+        JSRef Element -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.scrollIntoViewIfNeeded Mozilla Element.scrollIntoViewIfNeeded documentation> +scrollIntoViewIfNeeded ::+                       (MonadIO m, IsElement self) => self -> Bool -> m ()+scrollIntoViewIfNeeded self centerIfNeeded+  = liftIO+      (js_scrollIntoViewIfNeeded (unElement (toElement self))+         centerIfNeeded)+ +foreign import javascript unsafe "$1[\"scrollByLines\"]($2)"+        js_scrollByLines :: JSRef Element -> Int -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.scrollByLines Mozilla Element.scrollByLines documentation> +scrollByLines :: (MonadIO m, IsElement self) => self -> Int -> m ()+scrollByLines self lines+  = liftIO (js_scrollByLines (unElement (toElement self)) lines)+ +foreign import javascript unsafe "$1[\"scrollByPages\"]($2)"+        js_scrollByPages :: JSRef Element -> Int -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.scrollByPages Mozilla Element.scrollByPages documentation> +scrollByPages :: (MonadIO m, IsElement self) => self -> Int -> m ()+scrollByPages self pages+  = liftIO (js_scrollByPages (unElement (toElement self)) pages)+ +foreign import javascript unsafe+        "$1[\"getElementsByClassName\"]($2)" js_getElementsByClassName ::+        JSRef Element -> JSString -> IO (JSRef NodeList)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getElementsByClassName Mozilla Element.getElementsByClassName documentation> +getElementsByClassName ::+                       (MonadIO m, IsElement self, ToJSString name) =>+                         self -> name -> m (Maybe NodeList)+getElementsByClassName self name+  = liftIO+      ((js_getElementsByClassName (unElement (toElement self))+          (toJSString name))+         >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"querySelector\"]($2)"+        js_querySelector :: JSRef Element -> JSString -> IO (JSRef Element)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.querySelector Mozilla Element.querySelector documentation> +querySelector ::+              (MonadIO m, IsElement self, ToJSString selectors) =>+                self -> selectors -> m (Maybe Element)+querySelector self selectors+  = liftIO+      ((js_querySelector (unElement (toElement self))+          (toJSString selectors))+         >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"querySelectorAll\"]($2)"+        js_querySelectorAll ::+        JSRef Element -> JSString -> IO (JSRef NodeList)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.querySelectorAll Mozilla Element.querySelectorAll documentation> +querySelectorAll ::+                 (MonadIO m, IsElement self, ToJSString selectors) =>+                   self -> selectors -> m (Maybe NodeList)+querySelectorAll self selectors+  = liftIO+      ((js_querySelectorAll (unElement (toElement self))+          (toJSString selectors))+         >>= fromJSRef)+ +foreign import javascript unsafe "($1[\"matches\"]($2) ? 1 : 0)"+        js_matches :: JSRef Element -> JSString -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.matches Mozilla Element.matches documentation> +matches ::+        (MonadIO m, IsElement self, ToJSString selectors) =>+          self -> selectors -> m Bool+matches self selectors+  = liftIO+      (js_matches (unElement (toElement self)) (toJSString selectors))+ +foreign import javascript unsafe "$1[\"closest\"]($2)" js_closest+        :: JSRef Element -> JSString -> IO (JSRef Element)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.closest Mozilla Element.closest documentation> +closest ::+        (MonadIO m, IsElement self, ToJSString selectors) =>+          self -> selectors -> m (Maybe Element)+closest self selectors+  = liftIO+      ((js_closest (unElement (toElement self)) (toJSString selectors))+         >>= fromJSRef)+ +foreign import javascript unsafe+        "($1[\"webkitMatchesSelector\"]($2) ? 1 : 0)"+        js_webkitMatchesSelector :: JSRef Element -> JSString -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.webkitMatchesSelector Mozilla Element.webkitMatchesSelector documentation> +webkitMatchesSelector ::+                      (MonadIO m, IsElement self, ToJSString selectors) =>+                        self -> selectors -> m Bool+webkitMatchesSelector self selectors+  = liftIO+      (js_webkitMatchesSelector (unElement (toElement self))+         (toJSString selectors))+ +foreign import javascript unsafe "$1[\"getClientRects\"]()"+        js_getClientRects :: JSRef Element -> IO (JSRef ClientRectList)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getClientRects Mozilla Element.getClientRects documentation> +getClientRects ::+               (MonadIO m, IsElement self) => self -> m (Maybe ClientRectList)+getClientRects self+  = liftIO+      ((js_getClientRects (unElement (toElement self))) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"getBoundingClientRect\"]()"+        js_getBoundingClientRect :: JSRef Element -> IO (JSRef ClientRect)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getBoundingClientRect Mozilla Element.getBoundingClientRect documentation> +getBoundingClientRect ::+                      (MonadIO m, IsElement self) => self -> m (Maybe ClientRect)+getBoundingClientRect self+  = liftIO+      ((js_getBoundingClientRect (unElement (toElement self))) >>=+         fromJSRef)+ +foreign import javascript unsafe+        "$1[\"webkitRequestFullScreen\"]($2)" js_webkitRequestFullScreen ::+        JSRef Element -> Word -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.webkitRequestFullScreen Mozilla Element.webkitRequestFullScreen documentation> +webkitRequestFullScreen ::+                        (MonadIO m, IsElement self) => self -> Word -> m ()+webkitRequestFullScreen self flags+  = liftIO+      (js_webkitRequestFullScreen (unElement (toElement self)) flags)+ +foreign import javascript unsafe+        "$1[\"webkitRequestFullscreen\"]()" js_webkitRequestFullscreen ::+        JSRef Element -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.webkitRequestFullscreen Mozilla Element.webkitRequestFullscreen documentation> +webkitRequestFullscreen ::+                        (MonadIO m, IsElement self) => self -> m ()+webkitRequestFullscreen self+  = liftIO (js_webkitRequestFullscreen (unElement (toElement self)))+ +foreign import javascript unsafe "$1[\"requestPointerLock\"]()"+        js_requestPointerLock :: JSRef Element -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.requestPointerLock Mozilla Element.requestPointerLock documentation> +requestPointerLock :: (MonadIO m, IsElement self) => self -> m ()+requestPointerLock self+  = liftIO (js_requestPointerLock (unElement (toElement self)))+ +foreign import javascript unsafe+        "$1[\"webkitGetRegionFlowRanges\"]()" js_webkitGetRegionFlowRanges+        :: JSRef Element -> IO (JSRef [Maybe Range])++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.webkitGetRegionFlowRanges Mozilla Element.webkitGetRegionFlowRanges documentation> +webkitGetRegionFlowRanges ::+                          (MonadIO m, IsElement self) => self -> m [Maybe Range]+webkitGetRegionFlowRanges self+  = liftIO+      ((js_webkitGetRegionFlowRanges (unElement (toElement self))) >>=+         fromJSRefUnchecked)+pattern ALLOW_KEYBOARD_INPUT = 1+ +foreign import javascript unsafe "$1[\"tagName\"]" js_getTagName ::+        JSRef Element -> IO (JSRef (Maybe JSString))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.tagName Mozilla Element.tagName documentation> +getTagName ::+           (MonadIO m, IsElement self, FromJSString result) =>+             self -> m (Maybe result)+getTagName self+  = liftIO+      (fromMaybeJSString <$>+         (js_getTagName (unElement (toElement self))))+ +foreign import javascript unsafe "$1[\"attributes\"]"+        js_getAttributes :: JSRef Element -> IO (JSRef NamedNodeMap)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.attributes Mozilla Element.attributes documentation> +getAttributes ::+              (MonadIO m, IsElement self) => self -> m (Maybe NamedNodeMap)+getAttributes self+  = liftIO+      ((js_getAttributes (unElement (toElement self))) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"style\"]" js_getStyle ::+        JSRef Element -> IO (JSRef CSSStyleDeclaration)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.style Mozilla Element.style documentation> +getStyle ::+         (MonadIO m, IsElement self) =>+           self -> m (Maybe CSSStyleDeclaration)+getStyle self+  = liftIO ((js_getStyle (unElement (toElement self))) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"id\"] = $2;" js_setId ::+        JSRef Element -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.id Mozilla Element.id documentation> +setId ::+      (MonadIO m, IsElement self, ToJSString val) => self -> val -> m ()+setId self val+  = liftIO (js_setId (unElement (toElement self)) (toJSString val))+ +foreign import javascript unsafe "$1[\"id\"]" js_getId ::+        JSRef Element -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.id Mozilla Element.id documentation> +getId ::+      (MonadIO m, IsElement self, FromJSString result) =>+        self -> m result+getId self+  = liftIO (fromJSString <$> (js_getId (unElement (toElement self))))+ +foreign import javascript unsafe "$1[\"offsetLeft\"]"+        js_getOffsetLeft :: JSRef Element -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.offsetLeft Mozilla Element.offsetLeft documentation> +getOffsetLeft :: (MonadIO m, IsElement self) => self -> m Double+getOffsetLeft self+  = liftIO (js_getOffsetLeft (unElement (toElement self)))+ +foreign import javascript unsafe "$1[\"offsetTop\"]"+        js_getOffsetTop :: JSRef Element -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.offsetTop Mozilla Element.offsetTop documentation> +getOffsetTop :: (MonadIO m, IsElement self) => self -> m Double+getOffsetTop self+  = liftIO (js_getOffsetTop (unElement (toElement self)))+ +foreign import javascript unsafe "$1[\"offsetWidth\"]"+        js_getOffsetWidth :: JSRef Element -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.offsetWidth Mozilla Element.offsetWidth documentation> +getOffsetWidth :: (MonadIO m, IsElement self) => self -> m Double+getOffsetWidth self+  = liftIO (js_getOffsetWidth (unElement (toElement self)))+ +foreign import javascript unsafe "$1[\"offsetHeight\"]"+        js_getOffsetHeight :: JSRef Element -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.offsetHeight Mozilla Element.offsetHeight documentation> +getOffsetHeight :: (MonadIO m, IsElement self) => self -> m Double+getOffsetHeight self+  = liftIO (js_getOffsetHeight (unElement (toElement self)))+ +foreign import javascript unsafe "$1[\"clientLeft\"]"+        js_getClientLeft :: JSRef Element -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.clientLeft Mozilla Element.clientLeft documentation> +getClientLeft :: (MonadIO m, IsElement self) => self -> m Double+getClientLeft self+  = liftIO (js_getClientLeft (unElement (toElement self)))+ +foreign import javascript unsafe "$1[\"clientTop\"]"+        js_getClientTop :: JSRef Element -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.clientTop Mozilla Element.clientTop documentation> +getClientTop :: (MonadIO m, IsElement self) => self -> m Double+getClientTop self+  = liftIO (js_getClientTop (unElement (toElement self)))+ +foreign import javascript unsafe "$1[\"clientWidth\"]"+        js_getClientWidth :: JSRef Element -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.clientWidth Mozilla Element.clientWidth documentation> +getClientWidth :: (MonadIO m, IsElement self) => self -> m Double+getClientWidth self+  = liftIO (js_getClientWidth (unElement (toElement self)))+ +foreign import javascript unsafe "$1[\"clientHeight\"]"+        js_getClientHeight :: JSRef Element -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.clientHeight Mozilla Element.clientHeight documentation> +getClientHeight :: (MonadIO m, IsElement self) => self -> m Double+getClientHeight self+  = liftIO (js_getClientHeight (unElement (toElement self)))+ +foreign import javascript unsafe "$1[\"scrollLeft\"] = $2;"+        js_setScrollLeft :: JSRef Element -> Int -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.scrollLeft Mozilla Element.scrollLeft documentation> +setScrollLeft :: (MonadIO m, IsElement self) => self -> Int -> m ()+setScrollLeft self val+  = liftIO (js_setScrollLeft (unElement (toElement self)) val)+ +foreign import javascript unsafe "$1[\"scrollLeft\"]"+        js_getScrollLeft :: JSRef Element -> IO Int++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.scrollLeft Mozilla Element.scrollLeft documentation> +getScrollLeft :: (MonadIO m, IsElement self) => self -> m Int+getScrollLeft self+  = liftIO (js_getScrollLeft (unElement (toElement self)))+ +foreign import javascript unsafe "$1[\"scrollTop\"] = $2;"+        js_setScrollTop :: JSRef Element -> Int -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.scrollTop Mozilla Element.scrollTop documentation> +setScrollTop :: (MonadIO m, IsElement self) => self -> Int -> m ()+setScrollTop self val+  = liftIO (js_setScrollTop (unElement (toElement self)) val)+ +foreign import javascript unsafe "$1[\"scrollTop\"]"+        js_getScrollTop :: JSRef Element -> IO Int++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.scrollTop Mozilla Element.scrollTop documentation> +getScrollTop :: (MonadIO m, IsElement self) => self -> m Int+getScrollTop self+  = liftIO (js_getScrollTop (unElement (toElement self)))+ +foreign import javascript unsafe "$1[\"scrollWidth\"]"+        js_getScrollWidth :: JSRef Element -> IO Int++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.scrollWidth Mozilla Element.scrollWidth documentation> +getScrollWidth :: (MonadIO m, IsElement self) => self -> m Int+getScrollWidth self+  = liftIO (js_getScrollWidth (unElement (toElement self)))+ +foreign import javascript unsafe "$1[\"scrollHeight\"]"+        js_getScrollHeight :: JSRef Element -> IO Int++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.scrollHeight Mozilla Element.scrollHeight documentation> +getScrollHeight :: (MonadIO m, IsElement self) => self -> m Int+getScrollHeight self+  = liftIO (js_getScrollHeight (unElement (toElement self)))+ +foreign import javascript unsafe "$1[\"offsetParent\"]"+        js_getOffsetParent :: JSRef Element -> IO (JSRef Element)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.offsetParent Mozilla Element.offsetParent documentation> +getOffsetParent ::+                (MonadIO m, IsElement self) => self -> m (Maybe Element)+getOffsetParent self+  = liftIO+      ((js_getOffsetParent (unElement (toElement self))) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"innerHTML\"] = $2;"+        js_setInnerHTML :: JSRef Element -> JSRef (Maybe JSString) -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.innerHTML Mozilla Element.innerHTML documentation> +setInnerHTML ::+             (MonadIO m, IsElement self, ToJSString val) =>+               self -> Maybe val -> m ()+setInnerHTML self val+  = liftIO+      (js_setInnerHTML (unElement (toElement self))+         (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"innerHTML\"]"+        js_getInnerHTML :: JSRef Element -> IO (JSRef (Maybe JSString))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.innerHTML Mozilla Element.innerHTML documentation> +getInnerHTML ::+             (MonadIO m, IsElement self, FromJSString result) =>+               self -> m (Maybe result)+getInnerHTML self+  = liftIO+      (fromMaybeJSString <$>+         (js_getInnerHTML (unElement (toElement self))))+ +foreign import javascript unsafe "$1[\"outerHTML\"] = $2;"+        js_setOuterHTML :: JSRef Element -> JSRef (Maybe JSString) -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.outerHTML Mozilla Element.outerHTML documentation> +setOuterHTML ::+             (MonadIO m, IsElement self, ToJSString val) =>+               self -> Maybe val -> m ()+setOuterHTML self val+  = liftIO+      (js_setOuterHTML (unElement (toElement self))+         (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"outerHTML\"]"+        js_getOuterHTML :: JSRef Element -> IO (JSRef (Maybe JSString))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.outerHTML Mozilla Element.outerHTML documentation> +getOuterHTML ::+             (MonadIO m, IsElement self, FromJSString result) =>+               self -> m (Maybe result)+getOuterHTML self+  = liftIO+      (fromMaybeJSString <$>+         (js_getOuterHTML (unElement (toElement self))))+ +foreign import javascript unsafe "$1[\"className\"] = $2;"+        js_setClassName :: JSRef Element -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.className Mozilla Element.className documentation> +setClassName ::+             (MonadIO m, IsElement self, ToJSString val) => self -> val -> m ()+setClassName self val+  = liftIO+      (js_setClassName (unElement (toElement self)) (toJSString val))+ +foreign import javascript unsafe "$1[\"className\"]"+        js_getClassName :: JSRef Element -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.className Mozilla Element.className documentation> +getClassName ::+             (MonadIO m, IsElement self, FromJSString result) =>+               self -> m result+getClassName self+  = liftIO+      (fromJSString <$> (js_getClassName (unElement (toElement self))))+ +foreign import javascript unsafe "$1[\"classList\"]"+        js_getClassList :: JSRef Element -> IO (JSRef DOMTokenList)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.classList Mozilla Element.classList documentation> +getClassList ::+             (MonadIO m, IsElement self) => self -> m (Maybe DOMTokenList)+getClassList self+  = liftIO+      ((js_getClassList (unElement (toElement self))) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"dataset\"]" js_getDataset ::+        JSRef Element -> IO (JSRef DOMStringMap)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.dataset Mozilla Element.dataset documentation> +getDataset ::+           (MonadIO m, IsElement self) => self -> m (Maybe DOMStringMap)+getDataset self+  = liftIO+      ((js_getDataset (unElement (toElement self))) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"firstElementChild\"]"+        js_getFirstElementChild :: JSRef Element -> IO (JSRef Element)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.firstElementChild Mozilla Element.firstElementChild documentation> +getFirstElementChild ::+                     (MonadIO m, IsElement self) => self -> m (Maybe Element)+getFirstElementChild self+  = liftIO+      ((js_getFirstElementChild (unElement (toElement self))) >>=+         fromJSRef)+ +foreign import javascript unsafe "$1[\"lastElementChild\"]"+        js_getLastElementChild :: JSRef Element -> IO (JSRef Element)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.lastElementChild Mozilla Element.lastElementChild documentation> +getLastElementChild ::+                    (MonadIO m, IsElement self) => self -> m (Maybe Element)+getLastElementChild self+  = liftIO+      ((js_getLastElementChild (unElement (toElement self))) >>=+         fromJSRef)+ +foreign import javascript unsafe "$1[\"previousElementSibling\"]"+        js_getPreviousElementSibling :: JSRef Element -> IO (JSRef Element)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.previousElementSibling Mozilla Element.previousElementSibling documentation> +getPreviousElementSibling ::+                          (MonadIO m, IsElement self) => self -> m (Maybe Element)+getPreviousElementSibling self+  = liftIO+      ((js_getPreviousElementSibling (unElement (toElement self))) >>=+         fromJSRef)+ +foreign import javascript unsafe "$1[\"nextElementSibling\"]"+        js_getNextElementSibling :: JSRef Element -> IO (JSRef Element)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.nextElementSibling Mozilla Element.nextElementSibling documentation> +getNextElementSibling ::+                      (MonadIO m, IsElement self) => self -> m (Maybe Element)+getNextElementSibling self+  = liftIO+      ((js_getNextElementSibling (unElement (toElement self))) >>=+         fromJSRef)+ +foreign import javascript unsafe "$1[\"childElementCount\"]"+        js_getChildElementCount :: JSRef Element -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.childElementCount Mozilla Element.childElementCount documentation> +getChildElementCount ::+                     (MonadIO m, IsElement self) => self -> m Word+getChildElementCount self+  = liftIO (js_getChildElementCount (unElement (toElement self)))+ +foreign import javascript unsafe "$1[\"uiactions\"] = $2;"+        js_setUiactions :: JSRef Element -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.uiactions Mozilla Element.uiactions documentation> +setUiactions ::+             (MonadIO m, IsElement self, ToJSString val) => self -> val -> m ()+setUiactions self val+  = liftIO+      (js_setUiactions (unElement (toElement self)) (toJSString val))+ +foreign import javascript unsafe "$1[\"uiactions\"]"+        js_getUiactions :: JSRef Element -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.uiactions Mozilla Element.uiactions documentation> +getUiactions ::+             (MonadIO m, IsElement self, FromJSString result) =>+               self -> m result+getUiactions self+  = liftIO+      (fromJSString <$> (js_getUiactions (unElement (toElement self))))+ +foreign import javascript unsafe "$1[\"webkitRegionOverset\"]"+        js_getWebkitRegionOverset :: JSRef Element -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.webkitRegionOverset Mozilla Element.webkitRegionOverset documentation> +getWebkitRegionOverset ::+                       (MonadIO m, IsElement self, FromJSString result) =>+                         self -> m result+getWebkitRegionOverset self+  = liftIO+      (fromJSString <$>+         (js_getWebkitRegionOverset (unElement (toElement self))))++-- | <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/GHCJS/DOM/JSFFI/Generated/Entity.hs view
@@ -0,0 +1,48 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.Entity+       (js_getPublicId, getPublicId, js_getSystemId, getSystemId,+        js_getNotationName, getNotationName, Entity, castToEntity,+        gTypeEntity)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"publicId\"]" js_getPublicId+        :: JSRef Entity -> IO (JSRef (Maybe JSString))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Entity.publicId Mozilla Entity.publicId documentation> +getPublicId ::+            (MonadIO m, FromJSString result) => Entity -> m (Maybe result)+getPublicId self+  = liftIO (fromMaybeJSString <$> (js_getPublicId (unEntity self)))+ +foreign import javascript unsafe "$1[\"systemId\"]" js_getSystemId+        :: JSRef Entity -> IO (JSRef (Maybe JSString))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Entity.systemId Mozilla Entity.systemId documentation> +getSystemId ::+            (MonadIO m, FromJSString result) => Entity -> m (Maybe result)+getSystemId self+  = liftIO (fromMaybeJSString <$> (js_getSystemId (unEntity self)))+ +foreign import javascript unsafe "$1[\"notationName\"]"+        js_getNotationName :: JSRef Entity -> IO (JSRef (Maybe JSString))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Entity.notationName Mozilla Entity.notationName documentation> +getNotationName ::+                (MonadIO m, FromJSString result) => Entity -> m (Maybe result)+getNotationName self+  = liftIO+      (fromMaybeJSString <$> (js_getNotationName (unEntity self)))
+ src/GHCJS/DOM/JSFFI/Generated/Enums.hs view
@@ -0,0 +1,777 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.Enums+       (KeyType(..), PToJSRef, ToJSRef, PFromJSRef, FromJSRef,+        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, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+ +data KeyType = KeyTypeSecret+             | KeyTypePublic+             | KeyTypePrivate+             deriving (Show, Read, Eq, Ord, Typeable)+ +instance PToJSRef KeyType where+        pToJSRef KeyTypeSecret = js_KeyTypeSecret+        pToJSRef KeyTypePublic = js_KeyTypePublic+        pToJSRef KeyTypePrivate = js_KeyTypePrivate+ +instance ToJSRef KeyType where+        toJSRef = return . pToJSRef+ +instance PFromJSRef KeyType where+        pFromJSRef x | x `js_eq` js_KeyTypeSecret = KeyTypeSecret+        pFromJSRef x | x `js_eq` js_KeyTypePublic = KeyTypePublic+        pFromJSRef x | x `js_eq` js_KeyTypePrivate = KeyTypePrivate+ +instance FromJSRef KeyType where+        fromJSRefUnchecked = return . pFromJSRef+        fromJSRef = return . pFromJSRef . castRef+ +foreign import javascript unsafe "\"secret\"" js_KeyTypeSecret ::+        JSRef KeyType+ +foreign import javascript unsafe "\"public\"" js_KeyTypePublic ::+        JSRef KeyType+ +foreign import javascript unsafe "\"private\"" js_KeyTypePrivate ::+        JSRef KeyType+ +data KeyUsage = KeyUsageEncrypt+              | KeyUsageDecrypt+              | KeyUsageSign+              | KeyUsageVerify+              | KeyUsageDeriveKey+              | KeyUsageDeriveBits+              | KeyUsageWrapKey+              | KeyUsageUnwrapKey+              deriving (Show, Read, Eq, Ord, Typeable)+ +instance PToJSRef KeyUsage where+        pToJSRef KeyUsageEncrypt = js_KeyUsageEncrypt+        pToJSRef KeyUsageDecrypt = js_KeyUsageDecrypt+        pToJSRef KeyUsageSign = js_KeyUsageSign+        pToJSRef KeyUsageVerify = js_KeyUsageVerify+        pToJSRef KeyUsageDeriveKey = js_KeyUsageDeriveKey+        pToJSRef KeyUsageDeriveBits = js_KeyUsageDeriveBits+        pToJSRef KeyUsageWrapKey = js_KeyUsageWrapKey+        pToJSRef KeyUsageUnwrapKey = js_KeyUsageUnwrapKey+ +instance ToJSRef KeyUsage where+        toJSRef = return . pToJSRef+ +instance PFromJSRef KeyUsage where+        pFromJSRef x | x `js_eq` js_KeyUsageEncrypt = KeyUsageEncrypt+        pFromJSRef x | x `js_eq` js_KeyUsageDecrypt = KeyUsageDecrypt+        pFromJSRef x | x `js_eq` js_KeyUsageSign = KeyUsageSign+        pFromJSRef x | x `js_eq` js_KeyUsageVerify = KeyUsageVerify+        pFromJSRef x | x `js_eq` js_KeyUsageDeriveKey = KeyUsageDeriveKey+        pFromJSRef x | x `js_eq` js_KeyUsageDeriveBits = KeyUsageDeriveBits+        pFromJSRef x | x `js_eq` js_KeyUsageWrapKey = KeyUsageWrapKey+        pFromJSRef x | x `js_eq` js_KeyUsageUnwrapKey = KeyUsageUnwrapKey+ +instance FromJSRef KeyUsage where+        fromJSRefUnchecked = return . pFromJSRef+        fromJSRef = return . pFromJSRef . castRef+ +foreign import javascript unsafe "\"encrypt\"" js_KeyUsageEncrypt+        :: JSRef KeyUsage+ +foreign import javascript unsafe "\"decrypt\"" js_KeyUsageDecrypt+        :: JSRef KeyUsage+ +foreign import javascript unsafe "\"sign\"" js_KeyUsageSign ::+        JSRef KeyUsage+ +foreign import javascript unsafe "\"verify\"" js_KeyUsageVerify ::+        JSRef KeyUsage+ +foreign import javascript unsafe "\"deriveKey\""+        js_KeyUsageDeriveKey :: JSRef KeyUsage+ +foreign import javascript unsafe "\"deriveBits\""+        js_KeyUsageDeriveBits :: JSRef KeyUsage+ +foreign import javascript unsafe "\"wrapKey\"" js_KeyUsageWrapKey+        :: JSRef KeyUsage+ +foreign import javascript unsafe "\"unwrapKey\""+        js_KeyUsageUnwrapKey :: JSRef KeyUsage+ +data CanvasWindingRule = CanvasWindingRuleNonzero+                       | CanvasWindingRuleEvenodd+                       deriving (Show, Read, Eq, Ord, Typeable)+ +instance PToJSRef CanvasWindingRule where+        pToJSRef CanvasWindingRuleNonzero = js_CanvasWindingRuleNonzero+        pToJSRef CanvasWindingRuleEvenodd = js_CanvasWindingRuleEvenodd+ +instance ToJSRef CanvasWindingRule where+        toJSRef = return . pToJSRef+ +instance PFromJSRef CanvasWindingRule where+        pFromJSRef x+          | x `js_eq` js_CanvasWindingRuleNonzero = CanvasWindingRuleNonzero+        pFromJSRef x+          | x `js_eq` js_CanvasWindingRuleEvenodd = CanvasWindingRuleEvenodd+ +instance FromJSRef CanvasWindingRule where+        fromJSRefUnchecked = return . pFromJSRef+        fromJSRef = return . pFromJSRef . castRef+ +foreign import javascript unsafe "\"nonzero\""+        js_CanvasWindingRuleNonzero :: JSRef CanvasWindingRule+ +foreign import javascript unsafe "\"evenodd\""+        js_CanvasWindingRuleEvenodd :: JSRef CanvasWindingRule+ +data VideoPresentationMode = VideoPresentationModeFullscreen+                           | VideoPresentationModeOptimized+                           | VideoPresentationModeInline+                           deriving (Show, Read, Eq, Ord, Typeable)+ +instance PToJSRef VideoPresentationMode where+        pToJSRef VideoPresentationModeFullscreen+          = js_VideoPresentationModeFullscreen+        pToJSRef VideoPresentationModeOptimized+          = js_VideoPresentationModeOptimized+        pToJSRef VideoPresentationModeInline+          = js_VideoPresentationModeInline+ +instance ToJSRef VideoPresentationMode where+        toJSRef = return . pToJSRef+ +instance PFromJSRef VideoPresentationMode where+        pFromJSRef x+          | x `js_eq` js_VideoPresentationModeFullscreen =+            VideoPresentationModeFullscreen+        pFromJSRef x+          | x `js_eq` js_VideoPresentationModeOptimized =+            VideoPresentationModeOptimized+        pFromJSRef x+          | x `js_eq` js_VideoPresentationModeInline =+            VideoPresentationModeInline+ +instance FromJSRef VideoPresentationMode where+        fromJSRefUnchecked = return . pFromJSRef+        fromJSRef = return . pFromJSRef . castRef+ +foreign import javascript unsafe "\"fullscreen\""+        js_VideoPresentationModeFullscreen :: JSRef VideoPresentationMode+ +foreign import javascript unsafe "\"optimized\""+        js_VideoPresentationModeOptimized :: JSRef VideoPresentationMode+ +foreign import javascript unsafe "\"inline\""+        js_VideoPresentationModeInline :: JSRef VideoPresentationMode+ +data TextTrackMode = TextTrackModeDisabled+                   | TextTrackModeHidden+                   | TextTrackModeShowing+                   deriving (Show, Read, Eq, Ord, Typeable)+ +instance PToJSRef TextTrackMode where+        pToJSRef TextTrackModeDisabled = js_TextTrackModeDisabled+        pToJSRef TextTrackModeHidden = js_TextTrackModeHidden+        pToJSRef TextTrackModeShowing = js_TextTrackModeShowing+ +instance ToJSRef TextTrackMode where+        toJSRef = return . pToJSRef+ +instance PFromJSRef TextTrackMode where+        pFromJSRef x+          | x `js_eq` js_TextTrackModeDisabled = TextTrackModeDisabled+        pFromJSRef x+          | x `js_eq` js_TextTrackModeHidden = TextTrackModeHidden+        pFromJSRef x+          | x `js_eq` js_TextTrackModeShowing = TextTrackModeShowing+ +instance FromJSRef TextTrackMode where+        fromJSRefUnchecked = return . pFromJSRef+        fromJSRef = return . pFromJSRef . castRef+ +foreign import javascript unsafe "\"disabled\""+        js_TextTrackModeDisabled :: JSRef TextTrackMode+ +foreign import javascript unsafe "\"hidden\""+        js_TextTrackModeHidden :: JSRef TextTrackMode+ +foreign import javascript unsafe "\"showing\""+        js_TextTrackModeShowing :: JSRef TextTrackMode+ +data TextTrackKind = TextTrackKindSubtitles+                   | TextTrackKindCaptions+                   | TextTrackKindDescriptions+                   | TextTrackKindChapters+                   | TextTrackKindMetadata+                   deriving (Show, Read, Eq, Ord, Typeable)+ +instance PToJSRef TextTrackKind where+        pToJSRef TextTrackKindSubtitles = js_TextTrackKindSubtitles+        pToJSRef TextTrackKindCaptions = js_TextTrackKindCaptions+        pToJSRef TextTrackKindDescriptions = js_TextTrackKindDescriptions+        pToJSRef TextTrackKindChapters = js_TextTrackKindChapters+        pToJSRef TextTrackKindMetadata = js_TextTrackKindMetadata+ +instance ToJSRef TextTrackKind where+        toJSRef = return . pToJSRef+ +instance PFromJSRef TextTrackKind where+        pFromJSRef x+          | x `js_eq` js_TextTrackKindSubtitles = TextTrackKindSubtitles+        pFromJSRef x+          | x `js_eq` js_TextTrackKindCaptions = TextTrackKindCaptions+        pFromJSRef x+          | x `js_eq` js_TextTrackKindDescriptions =+            TextTrackKindDescriptions+        pFromJSRef x+          | x `js_eq` js_TextTrackKindChapters = TextTrackKindChapters+        pFromJSRef x+          | x `js_eq` js_TextTrackKindMetadata = TextTrackKindMetadata+ +instance FromJSRef TextTrackKind where+        fromJSRefUnchecked = return . pFromJSRef+        fromJSRef = return . pFromJSRef . castRef+ +foreign import javascript unsafe "\"subtitles\""+        js_TextTrackKindSubtitles :: JSRef TextTrackKind+ +foreign import javascript unsafe "\"captions\""+        js_TextTrackKindCaptions :: JSRef TextTrackKind+ +foreign import javascript unsafe "\"descriptions\""+        js_TextTrackKindDescriptions :: JSRef TextTrackKind+ +foreign import javascript unsafe "\"chapters\""+        js_TextTrackKindChapters :: JSRef TextTrackKind+ +foreign import javascript unsafe "\"metadata\""+        js_TextTrackKindMetadata :: JSRef TextTrackKind+ +data DeviceType = DeviceTypeNone+                | DeviceTypeAirplay+                | DeviceTypeTvout+                deriving (Show, Read, Eq, Ord, Typeable)+ +instance PToJSRef DeviceType where+        pToJSRef DeviceTypeNone = js_DeviceTypeNone+        pToJSRef DeviceTypeAirplay = js_DeviceTypeAirplay+        pToJSRef DeviceTypeTvout = js_DeviceTypeTvout+ +instance ToJSRef DeviceType where+        toJSRef = return . pToJSRef+ +instance PFromJSRef DeviceType where+        pFromJSRef x | x `js_eq` js_DeviceTypeNone = DeviceTypeNone+        pFromJSRef x | x `js_eq` js_DeviceTypeAirplay = DeviceTypeAirplay+        pFromJSRef x | x `js_eq` js_DeviceTypeTvout = DeviceTypeTvout+ +instance FromJSRef DeviceType where+        fromJSRefUnchecked = return . pFromJSRef+        fromJSRef = return . pFromJSRef . castRef+ +foreign import javascript unsafe "\"none\"" js_DeviceTypeNone ::+        JSRef DeviceType+ +foreign import javascript unsafe "\"airplay\"" js_DeviceTypeAirplay+        :: JSRef DeviceType+ +foreign import javascript unsafe "\"tvout\"" js_DeviceTypeTvout ::+        JSRef DeviceType+ +data MediaUIPartID = MediaUIPartIDOptimizedFullscreenButton+                   | MediaUIPartIDOptimizedFullscreenPlaceholder+                   deriving (Show, Read, Eq, Ord, Typeable)+ +instance PToJSRef MediaUIPartID where+        pToJSRef MediaUIPartIDOptimizedFullscreenButton+          = js_MediaUIPartIDOptimizedFullscreenButton+        pToJSRef MediaUIPartIDOptimizedFullscreenPlaceholder+          = js_MediaUIPartIDOptimizedFullscreenPlaceholder+ +instance ToJSRef MediaUIPartID where+        toJSRef = return . pToJSRef+ +instance PFromJSRef MediaUIPartID where+        pFromJSRef x+          | x `js_eq` js_MediaUIPartIDOptimizedFullscreenButton =+            MediaUIPartIDOptimizedFullscreenButton+        pFromJSRef x+          | x `js_eq` js_MediaUIPartIDOptimizedFullscreenPlaceholder =+            MediaUIPartIDOptimizedFullscreenPlaceholder+ +instance FromJSRef MediaUIPartID where+        fromJSRefUnchecked = return . pFromJSRef+        fromJSRef = return . pFromJSRef . castRef+ +foreign import javascript unsafe "\"optimized-fullscreen-button\""+        js_MediaUIPartIDOptimizedFullscreenButton :: JSRef MediaUIPartID+ +foreign import javascript unsafe+        "\"optimized-fullscreen-placeholder\""+        js_MediaUIPartIDOptimizedFullscreenPlaceholder ::+        JSRef MediaUIPartID+ +data EndOfStreamError = EndOfStreamErrorNetwork+                      | EndOfStreamErrorDecode+                      deriving (Show, Read, Eq, Ord, Typeable)+ +instance PToJSRef EndOfStreamError where+        pToJSRef EndOfStreamErrorNetwork = js_EndOfStreamErrorNetwork+        pToJSRef EndOfStreamErrorDecode = js_EndOfStreamErrorDecode+ +instance ToJSRef EndOfStreamError where+        toJSRef = return . pToJSRef+ +instance PFromJSRef EndOfStreamError where+        pFromJSRef x+          | x `js_eq` js_EndOfStreamErrorNetwork = EndOfStreamErrorNetwork+        pFromJSRef x+          | x `js_eq` js_EndOfStreamErrorDecode = EndOfStreamErrorDecode+ +instance FromJSRef EndOfStreamError where+        fromJSRefUnchecked = return . pFromJSRef+        fromJSRef = return . pFromJSRef . castRef+ +foreign import javascript unsafe "\"network\""+        js_EndOfStreamErrorNetwork :: JSRef EndOfStreamError+ +foreign import javascript unsafe "\"decode\""+        js_EndOfStreamErrorDecode :: JSRef EndOfStreamError+ +data AppendMode = AppendModeSegments+                | AppendModeSequence+                deriving (Show, Read, Eq, Ord, Typeable)+ +instance PToJSRef AppendMode where+        pToJSRef AppendModeSegments = js_AppendModeSegments+        pToJSRef AppendModeSequence = js_AppendModeSequence+ +instance ToJSRef AppendMode where+        toJSRef = return . pToJSRef+ +instance PFromJSRef AppendMode where+        pFromJSRef x | x `js_eq` js_AppendModeSegments = AppendModeSegments+        pFromJSRef x | x `js_eq` js_AppendModeSequence = AppendModeSequence+ +instance FromJSRef AppendMode where+        fromJSRefUnchecked = return . pFromJSRef+        fromJSRef = return . pFromJSRef . castRef+ +foreign import javascript unsafe "\"segments\""+        js_AppendModeSegments :: JSRef AppendMode+ +foreign import javascript unsafe "\"sequence\""+        js_AppendModeSequence :: JSRef AppendMode+ +data SourceTypeEnum = SourceTypeEnumNone+                    | SourceTypeEnumCamera+                    | SourceTypeEnumMicrophone+                    deriving (Show, Read, Eq, Ord, Typeable)+ +instance PToJSRef SourceTypeEnum where+        pToJSRef SourceTypeEnumNone = js_SourceTypeEnumNone+        pToJSRef SourceTypeEnumCamera = js_SourceTypeEnumCamera+        pToJSRef SourceTypeEnumMicrophone = js_SourceTypeEnumMicrophone+ +instance ToJSRef SourceTypeEnum where+        toJSRef = return . pToJSRef+ +instance PFromJSRef SourceTypeEnum where+        pFromJSRef x | x `js_eq` js_SourceTypeEnumNone = SourceTypeEnumNone+        pFromJSRef x+          | x `js_eq` js_SourceTypeEnumCamera = SourceTypeEnumCamera+        pFromJSRef x+          | x `js_eq` js_SourceTypeEnumMicrophone = SourceTypeEnumMicrophone+ +instance FromJSRef SourceTypeEnum where+        fromJSRefUnchecked = return . pFromJSRef+        fromJSRef = return . pFromJSRef . castRef+ +foreign import javascript unsafe "\"none\"" js_SourceTypeEnumNone+        :: JSRef SourceTypeEnum+ +foreign import javascript unsafe "\"camera\""+        js_SourceTypeEnumCamera :: JSRef SourceTypeEnum+ +foreign import javascript unsafe "\"microphone\""+        js_SourceTypeEnumMicrophone :: JSRef SourceTypeEnum+ +data VideoFacingModeEnum = VideoFacingModeEnumUser+                         | VideoFacingModeEnumEnvironment+                         | VideoFacingModeEnumLeft+                         | VideoFacingModeEnumRight+                         deriving (Show, Read, Eq, Ord, Typeable)+ +instance PToJSRef VideoFacingModeEnum where+        pToJSRef VideoFacingModeEnumUser = js_VideoFacingModeEnumUser+        pToJSRef VideoFacingModeEnumEnvironment+          = js_VideoFacingModeEnumEnvironment+        pToJSRef VideoFacingModeEnumLeft = js_VideoFacingModeEnumLeft+        pToJSRef VideoFacingModeEnumRight = js_VideoFacingModeEnumRight+ +instance ToJSRef VideoFacingModeEnum where+        toJSRef = return . pToJSRef+ +instance PFromJSRef VideoFacingModeEnum where+        pFromJSRef x+          | x `js_eq` js_VideoFacingModeEnumUser = VideoFacingModeEnumUser+        pFromJSRef x+          | x `js_eq` js_VideoFacingModeEnumEnvironment =+            VideoFacingModeEnumEnvironment+        pFromJSRef x+          | x `js_eq` js_VideoFacingModeEnumLeft = VideoFacingModeEnumLeft+        pFromJSRef x+          | x `js_eq` js_VideoFacingModeEnumRight = VideoFacingModeEnumRight+ +instance FromJSRef VideoFacingModeEnum where+        fromJSRefUnchecked = return . pFromJSRef+        fromJSRef = return . pFromJSRef . castRef+ +foreign import javascript unsafe "\"user\""+        js_VideoFacingModeEnumUser :: JSRef VideoFacingModeEnum+ +foreign import javascript unsafe "\"environment\""+        js_VideoFacingModeEnumEnvironment :: JSRef VideoFacingModeEnum+ +foreign import javascript unsafe "\"left\""+        js_VideoFacingModeEnumLeft :: JSRef VideoFacingModeEnum+ +foreign import javascript unsafe "\"right\""+        js_VideoFacingModeEnumRight :: JSRef VideoFacingModeEnum+ +data MediaStreamTrackState = MediaStreamTrackStateNew+                           | MediaStreamTrackStateLive+                           | MediaStreamTrackStateEnded+                           deriving (Show, Read, Eq, Ord, Typeable)+ +instance PToJSRef MediaStreamTrackState where+        pToJSRef MediaStreamTrackStateNew = js_MediaStreamTrackStateNew+        pToJSRef MediaStreamTrackStateLive = js_MediaStreamTrackStateLive+        pToJSRef MediaStreamTrackStateEnded = js_MediaStreamTrackStateEnded+ +instance ToJSRef MediaStreamTrackState where+        toJSRef = return . pToJSRef+ +instance PFromJSRef MediaStreamTrackState where+        pFromJSRef x+          | x `js_eq` js_MediaStreamTrackStateNew = MediaStreamTrackStateNew+        pFromJSRef x+          | x `js_eq` js_MediaStreamTrackStateLive =+            MediaStreamTrackStateLive+        pFromJSRef x+          | x `js_eq` js_MediaStreamTrackStateEnded =+            MediaStreamTrackStateEnded+ +instance FromJSRef MediaStreamTrackState where+        fromJSRefUnchecked = return . pFromJSRef+        fromJSRef = return . pFromJSRef . castRef+ +foreign import javascript unsafe "\"new\""+        js_MediaStreamTrackStateNew :: JSRef MediaStreamTrackState+ +foreign import javascript unsafe "\"live\""+        js_MediaStreamTrackStateLive :: JSRef MediaStreamTrackState+ +foreign import javascript unsafe "\"ended\""+        js_MediaStreamTrackStateEnded :: JSRef MediaStreamTrackState+ +data RTCIceTransportsEnum = RTCIceTransportsEnumNone+                          | RTCIceTransportsEnumRelay+                          | RTCIceTransportsEnumAll+                          deriving (Show, Read, Eq, Ord, Typeable)+ +instance PToJSRef RTCIceTransportsEnum where+        pToJSRef RTCIceTransportsEnumNone = js_RTCIceTransportsEnumNone+        pToJSRef RTCIceTransportsEnumRelay = js_RTCIceTransportsEnumRelay+        pToJSRef RTCIceTransportsEnumAll = js_RTCIceTransportsEnumAll+ +instance ToJSRef RTCIceTransportsEnum where+        toJSRef = return . pToJSRef+ +instance PFromJSRef RTCIceTransportsEnum where+        pFromJSRef x+          | x `js_eq` js_RTCIceTransportsEnumNone = RTCIceTransportsEnumNone+        pFromJSRef x+          | x `js_eq` js_RTCIceTransportsEnumRelay =+            RTCIceTransportsEnumRelay+        pFromJSRef x+          | x `js_eq` js_RTCIceTransportsEnumAll = RTCIceTransportsEnumAll+ +instance FromJSRef RTCIceTransportsEnum where+        fromJSRefUnchecked = return . pFromJSRef+        fromJSRef = return . pFromJSRef . castRef+ +foreign import javascript unsafe "\"none\""+        js_RTCIceTransportsEnumNone :: JSRef RTCIceTransportsEnum+ +foreign import javascript unsafe "\"relay\""+        js_RTCIceTransportsEnumRelay :: JSRef RTCIceTransportsEnum+ +foreign import javascript unsafe "\"all\""+        js_RTCIceTransportsEnumAll :: JSRef RTCIceTransportsEnum+ +data RTCIdentityOptionEnum = RTCIdentityOptionEnumYes+                           | RTCIdentityOptionEnumNo+                           | RTCIdentityOptionEnumIfconfigured+                           deriving (Show, Read, Eq, Ord, Typeable)+ +instance PToJSRef RTCIdentityOptionEnum where+        pToJSRef RTCIdentityOptionEnumYes = js_RTCIdentityOptionEnumYes+        pToJSRef RTCIdentityOptionEnumNo = js_RTCIdentityOptionEnumNo+        pToJSRef RTCIdentityOptionEnumIfconfigured+          = js_RTCIdentityOptionEnumIfconfigured+ +instance ToJSRef RTCIdentityOptionEnum where+        toJSRef = return . pToJSRef+ +instance PFromJSRef RTCIdentityOptionEnum where+        pFromJSRef x+          | x `js_eq` js_RTCIdentityOptionEnumYes = RTCIdentityOptionEnumYes+        pFromJSRef x+          | x `js_eq` js_RTCIdentityOptionEnumNo = RTCIdentityOptionEnumNo+        pFromJSRef x+          | x `js_eq` js_RTCIdentityOptionEnumIfconfigured =+            RTCIdentityOptionEnumIfconfigured+ +instance FromJSRef RTCIdentityOptionEnum where+        fromJSRefUnchecked = return . pFromJSRef+        fromJSRef = return . pFromJSRef . castRef+ +foreign import javascript unsafe "\"yes\""+        js_RTCIdentityOptionEnumYes :: JSRef RTCIdentityOptionEnum+ +foreign import javascript unsafe "\"no\""+        js_RTCIdentityOptionEnumNo :: JSRef RTCIdentityOptionEnum+ +foreign import javascript unsafe "\"ifconfigured\""+        js_RTCIdentityOptionEnumIfconfigured :: JSRef RTCIdentityOptionEnum+ +data ReadableStreamStateType = ReadableStreamStateTypeReadable+                             | ReadableStreamStateTypeWaiting+                             | ReadableStreamStateTypeClosed+                             | ReadableStreamStateTypeErrored+                             deriving (Show, Read, Eq, Ord, Typeable)+ +instance PToJSRef ReadableStreamStateType where+        pToJSRef ReadableStreamStateTypeReadable+          = js_ReadableStreamStateTypeReadable+        pToJSRef ReadableStreamStateTypeWaiting+          = js_ReadableStreamStateTypeWaiting+        pToJSRef ReadableStreamStateTypeClosed+          = js_ReadableStreamStateTypeClosed+        pToJSRef ReadableStreamStateTypeErrored+          = js_ReadableStreamStateTypeErrored+ +instance ToJSRef ReadableStreamStateType where+        toJSRef = return . pToJSRef+ +instance PFromJSRef ReadableStreamStateType where+        pFromJSRef x+          | x `js_eq` js_ReadableStreamStateTypeReadable =+            ReadableStreamStateTypeReadable+        pFromJSRef x+          | x `js_eq` js_ReadableStreamStateTypeWaiting =+            ReadableStreamStateTypeWaiting+        pFromJSRef x+          | x `js_eq` js_ReadableStreamStateTypeClosed =+            ReadableStreamStateTypeClosed+        pFromJSRef x+          | x `js_eq` js_ReadableStreamStateTypeErrored =+            ReadableStreamStateTypeErrored+ +instance FromJSRef ReadableStreamStateType where+        fromJSRefUnchecked = return . pFromJSRef+        fromJSRef = return . pFromJSRef . castRef+ +foreign import javascript unsafe "\"readable\""+        js_ReadableStreamStateTypeReadable :: JSRef ReadableStreamStateType+ +foreign import javascript unsafe "\"waiting\""+        js_ReadableStreamStateTypeWaiting :: JSRef ReadableStreamStateType+ +foreign import javascript unsafe "\"closed\""+        js_ReadableStreamStateTypeClosed :: JSRef ReadableStreamStateType+ +foreign import javascript unsafe "\"errored\""+        js_ReadableStreamStateTypeErrored :: JSRef ReadableStreamStateType+ +data OverSampleType = OverSampleTypeNone+                    | OverSampleType2x+                    | OverSampleType4x+                    deriving (Show, Read, Eq, Ord, Typeable)+ +instance PToJSRef OverSampleType where+        pToJSRef OverSampleTypeNone = js_OverSampleTypeNone+        pToJSRef OverSampleType2x = js_OverSampleType2x+        pToJSRef OverSampleType4x = js_OverSampleType4x+ +instance ToJSRef OverSampleType where+        toJSRef = return . pToJSRef+ +instance PFromJSRef OverSampleType where+        pFromJSRef x | x `js_eq` js_OverSampleTypeNone = OverSampleTypeNone+        pFromJSRef x | x `js_eq` js_OverSampleType2x = OverSampleType2x+        pFromJSRef x | x `js_eq` js_OverSampleType4x = OverSampleType4x+ +instance FromJSRef OverSampleType where+        fromJSRefUnchecked = return . pFromJSRef+        fromJSRef = return . pFromJSRef . castRef+ +foreign import javascript unsafe "\"none\"" js_OverSampleTypeNone+        :: JSRef OverSampleType+ +foreign import javascript unsafe "\"2x\"" js_OverSampleType2x ::+        JSRef OverSampleType+ +foreign import javascript unsafe "\"4x\"" js_OverSampleType4x ::+        JSRef OverSampleType+ +data PageOverlayType = PageOverlayTypeView+                     | PageOverlayTypeDocument+                     deriving (Show, Read, Eq, Ord, Typeable)+ +instance PToJSRef PageOverlayType where+        pToJSRef PageOverlayTypeView = js_PageOverlayTypeView+        pToJSRef PageOverlayTypeDocument = js_PageOverlayTypeDocument+ +instance ToJSRef PageOverlayType where+        toJSRef = return . pToJSRef+ +instance PFromJSRef PageOverlayType where+        pFromJSRef x+          | x `js_eq` js_PageOverlayTypeView = PageOverlayTypeView+        pFromJSRef x+          | x `js_eq` js_PageOverlayTypeDocument = PageOverlayTypeDocument+ +instance FromJSRef PageOverlayType where+        fromJSRefUnchecked = return . pFromJSRef+        fromJSRef = return . pFromJSRef . castRef+ +foreign import javascript unsafe "\"view\"" js_PageOverlayTypeView+        :: JSRef PageOverlayType+ +foreign import javascript unsafe "\"document\""+        js_PageOverlayTypeDocument :: JSRef PageOverlayType+ +data XMLHttpRequestResponseType = XMLHttpRequestResponseType+                                | XMLHttpRequestResponseTypeArraybuffer+                                | XMLHttpRequestResponseTypeBlob+                                | XMLHttpRequestResponseTypeDocument+                                | XMLHttpRequestResponseTypeJson+                                | XMLHttpRequestResponseTypeText+                                deriving (Show, Read, Eq, Ord, Typeable)+ +instance PToJSRef XMLHttpRequestResponseType where+        pToJSRef XMLHttpRequestResponseType = js_XMLHttpRequestResponseType+        pToJSRef XMLHttpRequestResponseTypeArraybuffer+          = js_XMLHttpRequestResponseTypeArraybuffer+        pToJSRef XMLHttpRequestResponseTypeBlob+          = js_XMLHttpRequestResponseTypeBlob+        pToJSRef XMLHttpRequestResponseTypeDocument+          = js_XMLHttpRequestResponseTypeDocument+        pToJSRef XMLHttpRequestResponseTypeJson+          = js_XMLHttpRequestResponseTypeJson+        pToJSRef XMLHttpRequestResponseTypeText+          = js_XMLHttpRequestResponseTypeText+ +instance ToJSRef XMLHttpRequestResponseType where+        toJSRef = return . pToJSRef+ +instance PFromJSRef XMLHttpRequestResponseType where+        pFromJSRef x+          | x `js_eq` js_XMLHttpRequestResponseType =+            XMLHttpRequestResponseType+        pFromJSRef x+          | x `js_eq` js_XMLHttpRequestResponseTypeArraybuffer =+            XMLHttpRequestResponseTypeArraybuffer+        pFromJSRef x+          | x `js_eq` js_XMLHttpRequestResponseTypeBlob =+            XMLHttpRequestResponseTypeBlob+        pFromJSRef x+          | x `js_eq` js_XMLHttpRequestResponseTypeDocument =+            XMLHttpRequestResponseTypeDocument+        pFromJSRef x+          | x `js_eq` js_XMLHttpRequestResponseTypeJson =+            XMLHttpRequestResponseTypeJson+        pFromJSRef x+          | x `js_eq` js_XMLHttpRequestResponseTypeText =+            XMLHttpRequestResponseTypeText+ +instance FromJSRef XMLHttpRequestResponseType where+        fromJSRefUnchecked = return . pFromJSRef+        fromJSRef = return . pFromJSRef . castRef+ +foreign import javascript unsafe "\"\""+        js_XMLHttpRequestResponseType :: JSRef XMLHttpRequestResponseType+ +foreign import javascript unsafe "\"arraybuffer\""+        js_XMLHttpRequestResponseTypeArraybuffer ::+        JSRef XMLHttpRequestResponseType+ +foreign import javascript unsafe "\"blob\""+        js_XMLHttpRequestResponseTypeBlob ::+        JSRef XMLHttpRequestResponseType+ +foreign import javascript unsafe "\"document\""+        js_XMLHttpRequestResponseTypeDocument ::+        JSRef XMLHttpRequestResponseType+ +foreign import javascript unsafe "\"json\""+        js_XMLHttpRequestResponseTypeJson ::+        JSRef XMLHttpRequestResponseType+ +foreign import javascript unsafe "\"text\""+        js_XMLHttpRequestResponseTypeText ::+        JSRef XMLHttpRequestResponseType
+ src/GHCJS/DOM/JSFFI/Generated/ErrorEvent.hs view
@@ -0,0 +1,52 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.ErrorEvent+       (js_getMessage, getMessage, js_getFilename, getFilename,+        js_getLineno, getLineno, js_getColno, getColno, ErrorEvent,+        castToErrorEvent, gTypeErrorEvent)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"message\"]" js_getMessage ::+        JSRef ErrorEvent -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ErrorEvent.message Mozilla ErrorEvent.message documentation> +getMessage ::+           (MonadIO m, FromJSString result) => ErrorEvent -> m result+getMessage self+  = liftIO (fromJSString <$> (js_getMessage (unErrorEvent self)))+ +foreign import javascript unsafe "$1[\"filename\"]" js_getFilename+        :: JSRef ErrorEvent -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ErrorEvent.filename Mozilla ErrorEvent.filename documentation> +getFilename ::+            (MonadIO m, FromJSString result) => ErrorEvent -> m result+getFilename self+  = liftIO (fromJSString <$> (js_getFilename (unErrorEvent self)))+ +foreign import javascript unsafe "$1[\"lineno\"]" js_getLineno ::+        JSRef ErrorEvent -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ErrorEvent.lineno Mozilla ErrorEvent.lineno documentation> +getLineno :: (MonadIO m) => ErrorEvent -> m Word+getLineno self = liftIO (js_getLineno (unErrorEvent self))+ +foreign import javascript unsafe "$1[\"colno\"]" js_getColno ::+        JSRef ErrorEvent -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ErrorEvent.colno Mozilla ErrorEvent.colno documentation> +getColno :: (MonadIO m) => ErrorEvent -> m Word+getColno self = liftIO (js_getColno (unErrorEvent self))
+ src/GHCJS/DOM/JSFFI/Generated/Event.hs view
@@ -0,0 +1,214 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.Event+       (js_stopPropagation, stopPropagation, js_preventDefault,+        preventDefault, js_initEvent, initEvent,+        js_stopImmediatePropagation, 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,+        js_getType, getType, js_getTarget, getTarget, js_getCurrentTarget,+        getCurrentTarget, js_getEventPhase, getEventPhase, js_getBubbles,+        getBubbles, js_getCancelable, getCancelable, js_getTimeStamp,+        getTimeStamp, js_getDefaultPrevented, getDefaultPrevented,+        js_getSrcElement, getSrcElement, js_setReturnValue, setReturnValue,+        js_getReturnValue, getReturnValue, js_setCancelBubble,+        setCancelBubble, js_getCancelBubble, getCancelBubble,+        js_getClipboardData, getClipboardData, Event, castToEvent,+        gTypeEvent, IsEvent, toEvent)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"stopPropagation\"]()"+        js_stopPropagation :: JSRef Event -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.stopPropagation Mozilla Event.stopPropagation documentation> +stopPropagation :: (MonadIO m, IsEvent self) => self -> m ()+stopPropagation self+  = liftIO (js_stopPropagation (unEvent (toEvent self)))+ +foreign import javascript unsafe "$1[\"preventDefault\"]()"+        js_preventDefault :: JSRef Event -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.preventDefault Mozilla Event.preventDefault documentation> +preventDefault :: (MonadIO m, IsEvent self) => self -> m ()+preventDefault self+  = liftIO (js_preventDefault (unEvent (toEvent self)))+ +foreign import javascript unsafe "$1[\"initEvent\"]($2, $3, $4)"+        js_initEvent :: JSRef Event -> JSString -> Bool -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.initEvent Mozilla Event.initEvent documentation> +initEvent ::+          (MonadIO m, IsEvent self, ToJSString eventTypeArg) =>+            self -> eventTypeArg -> Bool -> Bool -> m ()+initEvent self eventTypeArg canBubbleArg cancelableArg+  = liftIO+      (js_initEvent (unEvent (toEvent self)) (toJSString eventTypeArg)+         canBubbleArg+         cancelableArg)+ +foreign import javascript unsafe+        "$1[\"stopImmediatePropagation\"]()" js_stopImmediatePropagation ::+        JSRef Event -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.stopImmediatePropagation Mozilla Event.stopImmediatePropagation documentation> +stopImmediatePropagation ::+                         (MonadIO m, IsEvent self) => self -> m ()+stopImmediatePropagation self+  = liftIO (js_stopImmediatePropagation (unEvent (toEvent self)))+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+ +foreign import javascript unsafe "$1[\"type\"]" js_getType ::+        JSRef Event -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.type Mozilla Event.type documentation> +getType ::+        (MonadIO m, IsEvent self, FromJSString result) => self -> m result+getType self+  = liftIO (fromJSString <$> (js_getType (unEvent (toEvent self))))+ +foreign import javascript unsafe "$1[\"target\"]" js_getTarget ::+        JSRef Event -> IO (JSRef EventTarget)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.target Mozilla Event.target documentation> +getTarget ::+          (MonadIO m, IsEvent self) => self -> m (Maybe EventTarget)+getTarget self+  = liftIO ((js_getTarget (unEvent (toEvent self))) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"currentTarget\"]"+        js_getCurrentTarget :: JSRef Event -> IO (JSRef EventTarget)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.currentTarget Mozilla Event.currentTarget documentation> +getCurrentTarget ::+                 (MonadIO m, IsEvent self) => self -> m (Maybe EventTarget)+getCurrentTarget self+  = liftIO+      ((js_getCurrentTarget (unEvent (toEvent self))) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"eventPhase\"]"+        js_getEventPhase :: JSRef Event -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.eventPhase Mozilla Event.eventPhase documentation> +getEventPhase :: (MonadIO m, IsEvent self) => self -> m Word+getEventPhase self+  = liftIO (js_getEventPhase (unEvent (toEvent self)))+ +foreign import javascript unsafe "($1[\"bubbles\"] ? 1 : 0)"+        js_getBubbles :: JSRef Event -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.bubbles Mozilla Event.bubbles documentation> +getBubbles :: (MonadIO m, IsEvent self) => self -> m Bool+getBubbles self = liftIO (js_getBubbles (unEvent (toEvent self)))+ +foreign import javascript unsafe "($1[\"cancelable\"] ? 1 : 0)"+        js_getCancelable :: JSRef Event -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.cancelable Mozilla Event.cancelable documentation> +getCancelable :: (MonadIO m, IsEvent self) => self -> m Bool+getCancelable self+  = liftIO (js_getCancelable (unEvent (toEvent self)))+ +foreign import javascript unsafe "$1[\"timeStamp\"]"+        js_getTimeStamp :: JSRef Event -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.timeStamp Mozilla Event.timeStamp documentation> +getTimeStamp :: (MonadIO m, IsEvent self) => self -> m Word+getTimeStamp self+  = liftIO (js_getTimeStamp (unEvent (toEvent self)))+ +foreign import javascript unsafe+        "($1[\"defaultPrevented\"] ? 1 : 0)" js_getDefaultPrevented ::+        JSRef Event -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.defaultPrevented Mozilla Event.defaultPrevented documentation> +getDefaultPrevented :: (MonadIO m, IsEvent self) => self -> m Bool+getDefaultPrevented self+  = liftIO (js_getDefaultPrevented (unEvent (toEvent self)))+ +foreign import javascript unsafe "$1[\"srcElement\"]"+        js_getSrcElement :: JSRef Event -> IO (JSRef EventTarget)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.srcElement Mozilla Event.srcElement documentation> +getSrcElement ::+              (MonadIO m, IsEvent self) => self -> m (Maybe EventTarget)+getSrcElement self+  = liftIO+      ((js_getSrcElement (unEvent (toEvent self))) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"returnValue\"] = $2;"+        js_setReturnValue :: JSRef Event -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.returnValue Mozilla Event.returnValue documentation> +setReturnValue :: (MonadIO m, IsEvent self) => self -> Bool -> m ()+setReturnValue self val+  = liftIO (js_setReturnValue (unEvent (toEvent self)) val)+ +foreign import javascript unsafe "($1[\"returnValue\"] ? 1 : 0)"+        js_getReturnValue :: JSRef Event -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.returnValue Mozilla Event.returnValue documentation> +getReturnValue :: (MonadIO m, IsEvent self) => self -> m Bool+getReturnValue self+  = liftIO (js_getReturnValue (unEvent (toEvent self)))+ +foreign import javascript unsafe "$1[\"cancelBubble\"] = $2;"+        js_setCancelBubble :: JSRef Event -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.cancelBubble Mozilla Event.cancelBubble documentation> +setCancelBubble ::+                (MonadIO m, IsEvent self) => self -> Bool -> m ()+setCancelBubble self val+  = liftIO (js_setCancelBubble (unEvent (toEvent self)) val)+ +foreign import javascript unsafe "($1[\"cancelBubble\"] ? 1 : 0)"+        js_getCancelBubble :: JSRef Event -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.cancelBubble Mozilla Event.cancelBubble documentation> +getCancelBubble :: (MonadIO m, IsEvent self) => self -> m Bool+getCancelBubble self+  = liftIO (js_getCancelBubble (unEvent (toEvent self)))+ +foreign import javascript unsafe "$1[\"clipboardData\"]"+        js_getClipboardData :: JSRef Event -> IO (JSRef DataTransfer)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.clipboardData Mozilla Event.clipboardData documentation> +getClipboardData ::+                 (MonadIO m, IsEvent self) => self -> m (Maybe DataTransfer)+getClipboardData self+  = liftIO+      ((js_getClipboardData (unEvent (toEvent self))) >>= fromJSRef)
+ src/GHCJS/DOM/JSFFI/Generated/EventListener.hs view
@@ -0,0 +1,30 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.EventListener+       (js_handleEvent, handleEvent, EventListener, castToEventListener,+        gTypeEventListener)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"handleEvent\"]($2)"+        js_handleEvent :: JSRef EventListener -> JSRef Event -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/EventListener.handleEvent Mozilla EventListener.handleEvent documentation> +handleEvent ::+            (MonadIO m, IsEvent evt) => EventListener -> Maybe evt -> m ()+handleEvent self evt+  = liftIO+      (js_handleEvent (unEventListener self)+         (maybe jsNull (unEvent . toEvent) evt))
+ src/GHCJS/DOM/JSFFI/Generated/EventSource.hs view
@@ -0,0 +1,83 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.EventSource+       (js_newEventSource, newEventSource, js_close, close,+        pattern CONNECTING, pattern OPEN, pattern CLOSED, js_getUrl,+        getUrl, js_getWithCredentials, getWithCredentials,+        js_getReadyState, getReadyState, open, message, error, EventSource,+        castToEventSource, gTypeEventSource)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe+        "new window[\"EventSource\"]($1,\n$2)" js_newEventSource ::+        JSString -> JSRef Dictionary -> IO (JSRef EventSource)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/EventSource Mozilla EventSource documentation> +newEventSource ::+               (MonadIO m, ToJSString url, IsDictionary eventSourceInit) =>+                 url -> Maybe eventSourceInit -> m EventSource+newEventSource url eventSourceInit+  = liftIO+      (js_newEventSource (toJSString url)+         (maybe jsNull (unDictionary . toDictionary) eventSourceInit)+         >>= fromJSRefUnchecked)+ +foreign import javascript unsafe "$1[\"close\"]()" js_close ::+        JSRef EventSource -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/EventSource.close Mozilla EventSource.close documentation> +close :: (MonadIO m) => EventSource -> m ()+close self = liftIO (js_close (unEventSource self))+pattern CONNECTING = 0+pattern OPEN = 1+pattern CLOSED = 2+ +foreign import javascript unsafe "$1[\"url\"]" js_getUrl ::+        JSRef EventSource -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/EventSource.url Mozilla EventSource.url documentation> +getUrl ::+       (MonadIO m, FromJSString result) => EventSource -> m result+getUrl self+  = liftIO (fromJSString <$> (js_getUrl (unEventSource self)))+ +foreign import javascript unsafe+        "($1[\"withCredentials\"] ? 1 : 0)" js_getWithCredentials ::+        JSRef EventSource -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/EventSource.withCredentials Mozilla EventSource.withCredentials documentation> +getWithCredentials :: (MonadIO m) => EventSource -> m Bool+getWithCredentials self+  = liftIO (js_getWithCredentials (unEventSource self))+ +foreign import javascript unsafe "$1[\"readyState\"]"+        js_getReadyState :: JSRef EventSource -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/EventSource.readyState Mozilla EventSource.readyState documentation> +getReadyState :: (MonadIO m) => EventSource -> m Word+getReadyState self = liftIO (js_getReadyState (unEventSource self))++-- | <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/GHCJS/DOM/JSFFI/Generated/EventTarget.hs view
@@ -0,0 +1,65 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.EventTarget+       (js_addEventListener, addEventListener, js_removeEventListener,+        removeEventListener, js_dispatchEvent, dispatchEvent, EventTarget,+        castToEventTarget, gTypeEventTarget, IsEventTarget, toEventTarget)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.Enums+ +foreign import javascript unsafe+        "$1[\"addEventListener\"]($2, $3,\n$4)" js_addEventListener ::+        JSRef EventTarget ->+          JSString -> JSRef EventListener -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/EventTarget.addEventListener Mozilla EventTarget.addEventListener documentation> +addEventListener ::+                 (MonadIO m, IsEventTarget self, ToJSString type') =>+                   self -> type' -> Maybe EventListener -> Bool -> m ()+addEventListener self type' listener useCapture+  = liftIO+      (js_addEventListener (unEventTarget (toEventTarget self))+         (toJSString type')+         (maybe jsNull pToJSRef listener)+         useCapture)+ +foreign import javascript unsafe+        "$1[\"removeEventListener\"]($2,\n$3, $4)" js_removeEventListener+        ::+        JSRef EventTarget ->+          JSString -> JSRef EventListener -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/EventTarget.removeEventListener Mozilla EventTarget.removeEventListener documentation> +removeEventListener ::+                    (MonadIO m, IsEventTarget self, ToJSString type') =>+                      self -> type' -> Maybe EventListener -> Bool -> m ()+removeEventListener self type' listener useCapture+  = liftIO+      (js_removeEventListener (unEventTarget (toEventTarget self))+         (toJSString type')+         (maybe jsNull pToJSRef listener)+         useCapture)+ +foreign import javascript unsafe+        "($1[\"dispatchEvent\"]($2) ? 1 : 0)" js_dispatchEvent ::+        JSRef EventTarget -> JSRef Event -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/EventTarget.dispatchEvent Mozilla EventTarget.dispatchEvent documentation> +dispatchEvent ::+              (MonadIO m, IsEventTarget self, IsEvent event) =>+                self -> Maybe event -> m Bool+dispatchEvent self event+  = liftIO+      (js_dispatchEvent (unEventTarget (toEventTarget self))+         (maybe jsNull (unEvent . toEvent) event))
+ src/GHCJS/DOM/JSFFI/Generated/File.hs view
@@ -0,0 +1,34 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.File+       (js_getName, getName, js_getLastModifiedDate, getLastModifiedDate,+        File, castToFile, gTypeFile)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"name\"]" js_getName ::+        JSRef File -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/File.name Mozilla File.name documentation> +getName :: (MonadIO m, FromJSString result) => File -> m result+getName self = liftIO (fromJSString <$> (js_getName (unFile self)))+ +foreign import javascript unsafe "$1[\"lastModifiedDate\"]"+        js_getLastModifiedDate :: JSRef File -> IO (JSRef Date)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/File.lastModifiedDate Mozilla File.lastModifiedDate documentation> +getLastModifiedDate :: (MonadIO m) => File -> m (Maybe Date)+getLastModifiedDate self+  = liftIO ((js_getLastModifiedDate (unFile self)) >>= fromJSRef)
+ src/GHCJS/DOM/JSFFI/Generated/FileError.hs view
@@ -0,0 +1,43 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.FileError+       (pattern NOT_FOUND_ERR, pattern SECURITY_ERR, pattern ABORT_ERR,+        pattern NOT_READABLE_ERR, pattern ENCODING_ERR,+        pattern NO_MODIFICATION_ALLOWED_ERR, pattern INVALID_STATE_ERR,+        pattern SYNTAX_ERR, pattern INVALID_MODIFICATION_ERR,+        pattern QUOTA_EXCEEDED_ERR, pattern TYPE_MISMATCH_ERR,+        pattern PATH_EXISTS_ERR, js_getCode, getCode, FileError,+        castToFileError, gTypeFileError)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.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+ +foreign import javascript unsafe "$1[\"code\"]" js_getCode ::+        JSRef FileError -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FileError.code Mozilla FileError.code documentation> +getCode :: (MonadIO m) => FileError -> m Word+getCode self = liftIO (js_getCode (unFileError self))
+ src/GHCJS/DOM/JSFFI/Generated/FileList.hs view
@@ -0,0 +1,34 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.FileList+       (js_item, item, js_getLength, getLength, FileList, castToFileList,+        gTypeFileList)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"item\"]($2)" js_item ::+        JSRef FileList -> Word -> IO (JSRef File)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FileList.item Mozilla FileList.item documentation> +item :: (MonadIO m) => FileList -> Word -> m (Maybe File)+item self index+  = liftIO ((js_item (unFileList self) index) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"length\"]" js_getLength ::+        JSRef FileList -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FileList.length Mozilla FileList.length documentation> +getLength :: (MonadIO m) => FileList -> m Word+getLength self = liftIO (js_getLength (unFileList self))
+ src/GHCJS/DOM/JSFFI/Generated/FileReader.hs view
@@ -0,0 +1,134 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.FileReader+       (js_newFileReader, newFileReader, js_readAsArrayBuffer,+        readAsArrayBuffer, js_readAsBinaryString, readAsBinaryString,+        js_readAsText, readAsText, js_readAsDataURL, readAsDataURL,+        js_abort, abort, pattern EMPTY, pattern LOADING, pattern DONE,+        js_getReadyState, getReadyState, js_getResult, getResult,+        js_getError, getError, loadStart, progress, load, abortEvent,+        error, loadEnd, FileReader, castToFileReader, gTypeFileReader)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "new window[\"FileReader\"]()"+        js_newFileReader :: IO (JSRef FileReader)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FileReader Mozilla FileReader documentation> +newFileReader :: (MonadIO m) => m FileReader+newFileReader = liftIO (js_newFileReader >>= fromJSRefUnchecked)+ +foreign import javascript unsafe "$1[\"readAsArrayBuffer\"]($2)"+        js_readAsArrayBuffer :: JSRef FileReader -> JSRef Blob -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FileReader.readAsArrayBuffer Mozilla FileReader.readAsArrayBuffer documentation> +readAsArrayBuffer ::+                  (MonadIO m, IsBlob blob) => FileReader -> Maybe blob -> m ()+readAsArrayBuffer self blob+  = liftIO+      (js_readAsArrayBuffer (unFileReader self)+         (maybe jsNull (unBlob . toBlob) blob))+ +foreign import javascript unsafe "$1[\"readAsBinaryString\"]($2)"+        js_readAsBinaryString :: JSRef FileReader -> JSRef Blob -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FileReader.readAsBinaryString Mozilla FileReader.readAsBinaryString documentation> +readAsBinaryString ::+                   (MonadIO m, IsBlob blob) => FileReader -> Maybe blob -> m ()+readAsBinaryString self blob+  = liftIO+      (js_readAsBinaryString (unFileReader self)+         (maybe jsNull (unBlob . toBlob) blob))+ +foreign import javascript unsafe "$1[\"readAsText\"]($2, $3)"+        js_readAsText ::+        JSRef FileReader -> JSRef Blob -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FileReader.readAsText Mozilla FileReader.readAsText documentation> +readAsText ::+           (MonadIO m, IsBlob blob, ToJSString encoding) =>+             FileReader -> Maybe blob -> encoding -> m ()+readAsText self blob encoding+  = liftIO+      (js_readAsText (unFileReader self)+         (maybe jsNull (unBlob . toBlob) blob)+         (toJSString encoding))+ +foreign import javascript unsafe "$1[\"readAsDataURL\"]($2)"+        js_readAsDataURL :: JSRef FileReader -> JSRef Blob -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FileReader.readAsDataURL Mozilla FileReader.readAsDataURL documentation> +readAsDataURL ::+              (MonadIO m, IsBlob blob) => FileReader -> Maybe blob -> m ()+readAsDataURL self blob+  = liftIO+      (js_readAsDataURL (unFileReader self)+         (maybe jsNull (unBlob . toBlob) blob))+ +foreign import javascript unsafe "$1[\"abort\"]()" js_abort ::+        JSRef FileReader -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FileReader.abort Mozilla FileReader.abort documentation> +abort :: (MonadIO m) => FileReader -> m ()+abort self = liftIO (js_abort (unFileReader self))+pattern EMPTY = 0+pattern LOADING = 1+pattern DONE = 2+ +foreign import javascript unsafe "$1[\"readyState\"]"+        js_getReadyState :: JSRef FileReader -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FileReader.readyState Mozilla FileReader.readyState documentation> +getReadyState :: (MonadIO m) => FileReader -> m Word+getReadyState self = liftIO (js_getReadyState (unFileReader self))+ +foreign import javascript unsafe "$1[\"result\"]" js_getResult ::+        JSRef FileReader -> IO (JSRef a)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FileReader.result Mozilla FileReader.result documentation> +getResult :: (MonadIO m) => FileReader -> m (JSRef a)+getResult self = liftIO (js_getResult (unFileReader self))+ +foreign import javascript unsafe "$1[\"error\"]" js_getError ::+        JSRef FileReader -> IO (JSRef FileError)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FileReader.error Mozilla FileReader.error documentation> +getError :: (MonadIO m) => FileReader -> m (Maybe FileError)+getError self+  = liftIO ((js_getError (unFileReader self)) >>= fromJSRef)++-- | <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/GHCJS/DOM/JSFFI/Generated/FileReaderSync.hs view
@@ -0,0 +1,87 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.FileReaderSync+       (js_newFileReaderSync, newFileReaderSync, js_readAsArrayBuffer,+        readAsArrayBuffer, js_readAsBinaryString, readAsBinaryString,+        js_readAsText, readAsText, js_readAsDataURL, readAsDataURL,+        FileReaderSync, castToFileReaderSync, gTypeFileReaderSync)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "new window[\"FileReaderSync\"]()"+        js_newFileReaderSync :: IO (JSRef FileReaderSync)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FileReaderSync Mozilla FileReaderSync documentation> +newFileReaderSync :: (MonadIO m) => m FileReaderSync+newFileReaderSync+  = liftIO (js_newFileReaderSync >>= fromJSRefUnchecked)+ +foreign import javascript unsafe "$1[\"readAsArrayBuffer\"]($2)"+        js_readAsArrayBuffer ::+        JSRef FileReaderSync -> JSRef Blob -> IO (JSRef ArrayBuffer)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FileReaderSync.readAsArrayBuffer Mozilla FileReaderSync.readAsArrayBuffer documentation> +readAsArrayBuffer ::+                  (MonadIO m, IsBlob blob) =>+                    FileReaderSync -> Maybe blob -> m (Maybe ArrayBuffer)+readAsArrayBuffer self blob+  = liftIO+      ((js_readAsArrayBuffer (unFileReaderSync self)+          (maybe jsNull (unBlob . toBlob) blob))+         >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"readAsBinaryString\"]($2)"+        js_readAsBinaryString ::+        JSRef FileReaderSync -> JSRef Blob -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FileReaderSync.readAsBinaryString Mozilla FileReaderSync.readAsBinaryString documentation> +readAsBinaryString ::+                   (MonadIO m, IsBlob blob, FromJSString result) =>+                     FileReaderSync -> Maybe blob -> m result+readAsBinaryString self blob+  = liftIO+      (fromJSString <$>+         (js_readAsBinaryString (unFileReaderSync self)+            (maybe jsNull (unBlob . toBlob) blob)))+ +foreign import javascript unsafe "$1[\"readAsText\"]($2, $3)"+        js_readAsText ::+        JSRef FileReaderSync -> JSRef Blob -> JSString -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FileReaderSync.readAsText Mozilla FileReaderSync.readAsText documentation> +readAsText ::+           (MonadIO m, IsBlob blob, ToJSString encoding,+            FromJSString result) =>+             FileReaderSync -> Maybe blob -> encoding -> m result+readAsText self blob encoding+  = liftIO+      (fromJSString <$>+         (js_readAsText (unFileReaderSync self)+            (maybe jsNull (unBlob . toBlob) blob)+            (toJSString encoding)))+ +foreign import javascript unsafe "$1[\"readAsDataURL\"]($2)"+        js_readAsDataURL ::+        JSRef FileReaderSync -> JSRef Blob -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FileReaderSync.readAsDataURL Mozilla FileReaderSync.readAsDataURL documentation> +readAsDataURL ::+              (MonadIO m, IsBlob blob, FromJSString result) =>+                FileReaderSync -> Maybe blob -> m result+readAsDataURL self blob+  = liftIO+      (fromJSString <$>+         (js_readAsDataURL (unFileReaderSync self)+            (maybe jsNull (unBlob . toBlob) blob)))
+ src/GHCJS/DOM/JSFFI/Generated/FocusEvent.hs view
@@ -0,0 +1,28 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.FocusEvent+       (js_getRelatedTarget, getRelatedTarget, FocusEvent,+        castToFocusEvent, gTypeFocusEvent)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"relatedTarget\"]"+        js_getRelatedTarget :: JSRef FocusEvent -> IO (JSRef EventTarget)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FocusEvent.relatedTarget Mozilla FocusEvent.relatedTarget documentation> +getRelatedTarget ::+                 (MonadIO m) => FocusEvent -> m (Maybe EventTarget)+getRelatedTarget self+  = liftIO ((js_getRelatedTarget (unFocusEvent self)) >>= fromJSRef)
+ src/GHCJS/DOM/JSFFI/Generated/FontLoader.hs view
@@ -0,0 +1,85 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.FontLoader+       (js_checkFont, checkFont, js_loadFont, loadFont,+        js_notifyWhenFontsReady, notifyWhenFontsReady, loading,+        loadingDone, loadStart, load, error, js_getLoading, getLoading,+        FontLoader, castToFontLoader, gTypeFontLoader)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe+        "($1[\"checkFont\"]($2,\n$3) ? 1 : 0)" js_checkFont ::+        JSRef FontLoader -> JSString -> JSString -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FontLoader.checkFont Mozilla FontLoader.checkFont documentation> +checkFont ::+          (MonadIO m, ToJSString font, ToJSString text) =>+            FontLoader -> font -> text -> m Bool+checkFont self font text+  = liftIO+      (js_checkFont (unFontLoader self) (toJSString font)+         (toJSString text))+ +foreign import javascript unsafe "$1[\"loadFont\"]($2)" js_loadFont+        :: JSRef FontLoader -> JSRef Dictionary -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FontLoader.loadFont Mozilla FontLoader.loadFont documentation> +loadFont ::+         (MonadIO m, IsDictionary params) =>+           FontLoader -> Maybe params -> m ()+loadFont self params+  = liftIO+      (js_loadFont (unFontLoader self)+         (maybe jsNull (unDictionary . toDictionary) params))+ +foreign import javascript unsafe "$1[\"notifyWhenFontsReady\"]($2)"+        js_notifyWhenFontsReady ::+        JSRef FontLoader -> JSRef VoidCallback -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FontLoader.notifyWhenFontsReady Mozilla FontLoader.notifyWhenFontsReady documentation> +notifyWhenFontsReady ::+                     (MonadIO m) => FontLoader -> Maybe VoidCallback -> m ()+notifyWhenFontsReady self callback+  = liftIO+      (js_notifyWhenFontsReady (unFontLoader self)+         (maybe jsNull pToJSRef callback))++-- | <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")+ +foreign import javascript unsafe "($1[\"loading\"] ? 1 : 0)"+        js_getLoading :: JSRef FontLoader -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FontLoader.loading Mozilla FontLoader.loading documentation> +getLoading :: (MonadIO m) => FontLoader -> m Bool+getLoading self = liftIO (js_getLoading (unFontLoader self))
+ src/GHCJS/DOM/JSFFI/Generated/FormData.hs view
@@ -0,0 +1,43 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.FormData+       (js_newFormData, newFormData, js_append, append, FormData,+        castToFormData, gTypeFormData)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "new window[\"FormData\"]($1)"+        js_newFormData :: JSRef HTMLFormElement -> IO (JSRef FormData)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FormData Mozilla FormData documentation> +newFormData :: (MonadIO m) => Maybe HTMLFormElement -> m FormData+newFormData form+  = liftIO+      (js_newFormData (maybe jsNull pToJSRef form) >>=+         fromJSRefUnchecked)+ +foreign import javascript unsafe "$1[\"append\"]($2, $3, $4)"+        js_append ::+        JSRef FormData -> JSString -> JSString -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FormData.append Mozilla FormData.append documentation> +append ::+       (MonadIO m, ToJSString name, ToJSString value,+        ToJSString filename) =>+         FormData -> name -> value -> filename -> m ()+append self name value filename+  = liftIO+      (js_append (unFormData self) (toJSString name) (toJSString value)+         (toJSString filename))
+ src/GHCJS/DOM/JSFFI/Generated/GainNode.hs view
@@ -0,0 +1,26 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.GainNode+       (js_getGain, getGain, GainNode, castToGainNode, gTypeGainNode)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"gain\"]" js_getGain ::+        JSRef GainNode -> IO (JSRef AudioParam)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/GainNode.gain Mozilla GainNode.gain documentation> +getGain :: (MonadIO m) => GainNode -> m (Maybe AudioParam)+getGain self+  = liftIO ((js_getGain (unGainNode self)) >>= fromJSRef)
+ src/GHCJS/DOM/JSFFI/Generated/Gamepad.hs view
@@ -0,0 +1,74 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.Gamepad+       (js_getId, getId, js_getIndex, getIndex, js_getConnected,+        getConnected, js_getTimestamp, getTimestamp, js_getMapping,+        getMapping, js_getAxes, getAxes, js_getButtons, getButtons,+        Gamepad, castToGamepad, gTypeGamepad)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"id\"]" js_getId ::+        JSRef Gamepad -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Gamepad.id Mozilla Gamepad.id documentation> +getId :: (MonadIO m, FromJSString result) => Gamepad -> m result+getId self = liftIO (fromJSString <$> (js_getId (unGamepad self)))+ +foreign import javascript unsafe "$1[\"index\"]" js_getIndex ::+        JSRef Gamepad -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Gamepad.index Mozilla Gamepad.index documentation> +getIndex :: (MonadIO m) => Gamepad -> m Word+getIndex self = liftIO (js_getIndex (unGamepad self))+ +foreign import javascript unsafe "($1[\"connected\"] ? 1 : 0)"+        js_getConnected :: JSRef Gamepad -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Gamepad.connected Mozilla Gamepad.connected documentation> +getConnected :: (MonadIO m) => Gamepad -> m Bool+getConnected self = liftIO (js_getConnected (unGamepad self))+ +foreign import javascript unsafe "$1[\"timestamp\"]"+        js_getTimestamp :: JSRef Gamepad -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Gamepad.timestamp Mozilla Gamepad.timestamp documentation> +getTimestamp :: (MonadIO m) => Gamepad -> m Double+getTimestamp self = liftIO (js_getTimestamp (unGamepad self))+ +foreign import javascript unsafe "$1[\"mapping\"]" js_getMapping ::+        JSRef Gamepad -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Gamepad.mapping Mozilla Gamepad.mapping documentation> +getMapping ::+           (MonadIO m, FromJSString result) => Gamepad -> m result+getMapping self+  = liftIO (fromJSString <$> (js_getMapping (unGamepad self)))+ +foreign import javascript unsafe "$1[\"axes\"]" js_getAxes ::+        JSRef Gamepad -> IO (JSRef [Double])++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Gamepad.axes Mozilla Gamepad.axes documentation> +getAxes :: (MonadIO m) => Gamepad -> m [Double]+getAxes self+  = liftIO ((js_getAxes (unGamepad self)) >>= fromJSRefUnchecked)+ +foreign import javascript unsafe "$1[\"buttons\"]" js_getButtons ::+        JSRef Gamepad -> IO (JSRef [Maybe GamepadButton])++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Gamepad.buttons Mozilla Gamepad.buttons documentation> +getButtons :: (MonadIO m) => Gamepad -> m [Maybe GamepadButton]+getButtons self+  = liftIO ((js_getButtons (unGamepad self)) >>= fromJSRefUnchecked)
+ src/GHCJS/DOM/JSFFI/Generated/GamepadButton.hs view
@@ -0,0 +1,33 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.GamepadButton+       (js_getPressed, getPressed, js_getValue, getValue, GamepadButton,+        castToGamepadButton, gTypeGamepadButton)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "($1[\"pressed\"] ? 1 : 0)"+        js_getPressed :: JSRef GamepadButton -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/GamepadButton.pressed Mozilla GamepadButton.pressed documentation> +getPressed :: (MonadIO m) => GamepadButton -> m Bool+getPressed self = liftIO (js_getPressed (unGamepadButton self))+ +foreign import javascript unsafe "$1[\"value\"]" js_getValue ::+        JSRef GamepadButton -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/GamepadButton.value Mozilla GamepadButton.value documentation> +getValue :: (MonadIO m) => GamepadButton -> m Double+getValue self = liftIO (js_getValue (unGamepadButton self))
+ src/GHCJS/DOM/JSFFI/Generated/GamepadEvent.hs view
@@ -0,0 +1,27 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.GamepadEvent+       (js_getGamepad, getGamepad, GamepadEvent, castToGamepadEvent,+        gTypeGamepadEvent)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"gamepad\"]" js_getGamepad ::+        JSRef GamepadEvent -> IO (JSRef Gamepad)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/GamepadEvent.gamepad Mozilla GamepadEvent.gamepad documentation> +getGamepad :: (MonadIO m) => GamepadEvent -> m (Maybe Gamepad)+getGamepad self+  = liftIO ((js_getGamepad (unGamepadEvent self)) >>= fromJSRef)
+ src/GHCJS/DOM/JSFFI/Generated/Geolocation.hs view
@@ -0,0 +1,66 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.Geolocation+       (js_getCurrentPosition, getCurrentPosition, js_watchPosition,+        watchPosition, js_clearWatch, clearWatch, Geolocation,+        castToGeolocation, gTypeGeolocation)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe+        "$1[\"getCurrentPosition\"]($2, $3,\n$4)" js_getCurrentPosition ::+        JSRef Geolocation ->+          JSRef PositionCallback ->+            JSRef PositionErrorCallback -> JSRef PositionOptions -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Geolocation.getCurrentPosition Mozilla Geolocation.getCurrentPosition documentation> +getCurrentPosition ::+                   (MonadIO m, IsPositionOptions options) =>+                     Geolocation ->+                       Maybe PositionCallback ->+                         Maybe PositionErrorCallback -> Maybe options -> m ()+getCurrentPosition self successCallback errorCallback options+  = liftIO+      (js_getCurrentPosition (unGeolocation self)+         (maybe jsNull pToJSRef successCallback)+         (maybe jsNull pToJSRef errorCallback)+         (maybe jsNull (unPositionOptions . toPositionOptions) options))+ +foreign import javascript unsafe+        "$1[\"watchPosition\"]($2, $3, $4)" js_watchPosition ::+        JSRef Geolocation ->+          JSRef PositionCallback ->+            JSRef PositionErrorCallback -> JSRef PositionOptions -> IO Int++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Geolocation.watchPosition Mozilla Geolocation.watchPosition documentation> +watchPosition ::+              (MonadIO m, IsPositionOptions options) =>+                Geolocation ->+                  Maybe PositionCallback ->+                    Maybe PositionErrorCallback -> Maybe options -> m Int+watchPosition self successCallback errorCallback options+  = liftIO+      (js_watchPosition (unGeolocation self)+         (maybe jsNull pToJSRef successCallback)+         (maybe jsNull pToJSRef errorCallback)+         (maybe jsNull (unPositionOptions . toPositionOptions) options))+ +foreign import javascript unsafe "$1[\"clearWatch\"]($2)"+        js_clearWatch :: JSRef Geolocation -> Int -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Geolocation.clearWatch Mozilla Geolocation.clearWatch documentation> +clearWatch :: (MonadIO m) => Geolocation -> Int -> m ()+clearWatch self watchID+  = liftIO (js_clearWatch (unGeolocation self) watchID)
+ src/GHCJS/DOM/JSFFI/Generated/Geoposition.hs view
@@ -0,0 +1,34 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.Geoposition+       (js_getCoords, getCoords, js_getTimestamp, getTimestamp,+        Geoposition, castToGeoposition, gTypeGeoposition)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"coords\"]" js_getCoords ::+        JSRef Geoposition -> IO (JSRef Coordinates)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Geoposition.coords Mozilla Geoposition.coords documentation> +getCoords :: (MonadIO m) => Geoposition -> m (Maybe Coordinates)+getCoords self+  = liftIO ((js_getCoords (unGeoposition self)) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"timestamp\"]"+        js_getTimestamp :: JSRef Geoposition -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Geoposition.timestamp Mozilla Geoposition.timestamp documentation> +getTimestamp :: (MonadIO m) => Geoposition -> m Word+getTimestamp self = liftIO (js_getTimestamp (unGeoposition self))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLAllCollection.hs view
@@ -0,0 +1,60 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.HTMLAllCollection+       (js_item, item, js_namedItem, namedItem, js_tags, tags,+        js_getLength, getLength, HTMLAllCollection,+        castToHTMLAllCollection, gTypeHTMLAllCollection)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"item\"]($2)" js_item ::+        JSRef HTMLAllCollection -> Word -> IO (JSRef Node)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAllCollection.item Mozilla HTMLAllCollection.item documentation> +item :: (MonadIO m) => HTMLAllCollection -> Word -> m (Maybe Node)+item self index+  = liftIO ((js_item (unHTMLAllCollection self) index) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"namedItem\"]($2)"+        js_namedItem ::+        JSRef HTMLAllCollection -> JSString -> IO (JSRef Node)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAllCollection.namedItem Mozilla HTMLAllCollection.namedItem documentation> +namedItem ::+          (MonadIO m, ToJSString name) =>+            HTMLAllCollection -> name -> m (Maybe Node)+namedItem self name+  = liftIO+      ((js_namedItem (unHTMLAllCollection self) (toJSString name)) >>=+         fromJSRef)+ +foreign import javascript unsafe "$1[\"tags\"]($2)" js_tags ::+        JSRef HTMLAllCollection -> JSString -> IO (JSRef NodeList)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAllCollection.tags Mozilla HTMLAllCollection.tags documentation> +tags ::+     (MonadIO m, ToJSString name) =>+       HTMLAllCollection -> name -> m (Maybe NodeList)+tags self name+  = liftIO+      ((js_tags (unHTMLAllCollection self) (toJSString name)) >>=+         fromJSRef)+ +foreign import javascript unsafe "$1[\"length\"]" js_getLength ::+        JSRef HTMLAllCollection -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAllCollection.length Mozilla HTMLAllCollection.length documentation> +getLength :: (MonadIO m) => HTMLAllCollection -> m Word+getLength self = liftIO (js_getLength (unHTMLAllCollection self))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLAnchorElement.hs view
@@ -0,0 +1,466 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.HTMLAnchorElement+       (js_toString, toString, js_setCharset, setCharset, js_getCharset,+        getCharset, js_setCoords, setCoords, js_getCoords, getCoords,+        js_setDownload, setDownload, js_getDownload, getDownload,+        js_setHref, setHref, js_getHref, getHref, js_setHreflang,+        setHreflang, js_getHreflang, getHreflang, js_setName, setName,+        js_getName, getName, js_setPing, setPing, js_getPing, getPing,+        js_setRel, setRel, js_getRel, getRel, js_setRev, setRev, js_getRev,+        getRev, js_setShape, setShape, js_getShape, getShape, js_setTarget,+        setTarget, js_getTarget, getTarget, js_setType, setType,+        js_getType, getType, js_setHash, setHash, js_getHash, getHash,+        js_setHost, setHost, js_getHost, getHost, js_setHostname,+        setHostname, js_getHostname, getHostname, js_setPathname,+        setPathname, js_getPathname, getPathname, js_setPort, setPort,+        js_getPort, getPort, js_setProtocol, setProtocol, js_getProtocol,+        getProtocol, js_setSearch, setSearch, js_getSearch, getSearch,+        js_getOrigin, getOrigin, js_setText, setText, js_getText, getText,+        js_getRelList, getRelList, HTMLAnchorElement,+        castToHTMLAnchorElement, gTypeHTMLAnchorElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"toString\"]()" js_toString+        :: JSRef HTMLAnchorElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.toString Mozilla HTMLAnchorElement.toString documentation> +toString ::+         (MonadIO m, FromJSString result) => HTMLAnchorElement -> m result+toString self+  = liftIO+      (fromJSString <$> (js_toString (unHTMLAnchorElement self)))+ +foreign import javascript unsafe "$1[\"charset\"] = $2;"+        js_setCharset :: JSRef HTMLAnchorElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.charset Mozilla HTMLAnchorElement.charset documentation> +setCharset ::+           (MonadIO m, ToJSString val) => HTMLAnchorElement -> val -> m ()+setCharset self val+  = liftIO+      (js_setCharset (unHTMLAnchorElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"charset\"]" js_getCharset ::+        JSRef HTMLAnchorElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.charset Mozilla HTMLAnchorElement.charset documentation> +getCharset ::+           (MonadIO m, FromJSString result) => HTMLAnchorElement -> m result+getCharset self+  = liftIO+      (fromJSString <$> (js_getCharset (unHTMLAnchorElement self)))+ +foreign import javascript unsafe "$1[\"coords\"] = $2;"+        js_setCoords :: JSRef HTMLAnchorElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.coords Mozilla HTMLAnchorElement.coords documentation> +setCoords ::+          (MonadIO m, ToJSString val) => HTMLAnchorElement -> val -> m ()+setCoords self val+  = liftIO (js_setCoords (unHTMLAnchorElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"coords\"]" js_getCoords ::+        JSRef HTMLAnchorElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.coords Mozilla HTMLAnchorElement.coords documentation> +getCoords ::+          (MonadIO m, FromJSString result) => HTMLAnchorElement -> m result+getCoords self+  = liftIO+      (fromJSString <$> (js_getCoords (unHTMLAnchorElement self)))+ +foreign import javascript unsafe "$1[\"download\"] = $2;"+        js_setDownload :: JSRef HTMLAnchorElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.download Mozilla HTMLAnchorElement.download documentation> +setDownload ::+            (MonadIO m, ToJSString val) => HTMLAnchorElement -> val -> m ()+setDownload self val+  = liftIO+      (js_setDownload (unHTMLAnchorElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"download\"]" js_getDownload+        :: JSRef HTMLAnchorElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.download Mozilla HTMLAnchorElement.download documentation> +getDownload ::+            (MonadIO m, FromJSString result) => HTMLAnchorElement -> m result+getDownload self+  = liftIO+      (fromJSString <$> (js_getDownload (unHTMLAnchorElement self)))+ +foreign import javascript unsafe "$1[\"href\"] = $2;" js_setHref ::+        JSRef HTMLAnchorElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.href Mozilla HTMLAnchorElement.href documentation> +setHref ::+        (MonadIO m, ToJSString val) => HTMLAnchorElement -> val -> m ()+setHref self val+  = liftIO (js_setHref (unHTMLAnchorElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"href\"]" js_getHref ::+        JSRef HTMLAnchorElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.href Mozilla HTMLAnchorElement.href documentation> +getHref ::+        (MonadIO m, FromJSString result) => HTMLAnchorElement -> m result+getHref self+  = liftIO (fromJSString <$> (js_getHref (unHTMLAnchorElement self)))+ +foreign import javascript unsafe "$1[\"hreflang\"] = $2;"+        js_setHreflang :: JSRef HTMLAnchorElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.hreflang Mozilla HTMLAnchorElement.hreflang documentation> +setHreflang ::+            (MonadIO m, ToJSString val) => HTMLAnchorElement -> val -> m ()+setHreflang self val+  = liftIO+      (js_setHreflang (unHTMLAnchorElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"hreflang\"]" js_getHreflang+        :: JSRef HTMLAnchorElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.hreflang Mozilla HTMLAnchorElement.hreflang documentation> +getHreflang ::+            (MonadIO m, FromJSString result) => HTMLAnchorElement -> m result+getHreflang self+  = liftIO+      (fromJSString <$> (js_getHreflang (unHTMLAnchorElement self)))+ +foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName ::+        JSRef HTMLAnchorElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.name Mozilla HTMLAnchorElement.name documentation> +setName ::+        (MonadIO m, ToJSString val) => HTMLAnchorElement -> val -> m ()+setName self val+  = liftIO (js_setName (unHTMLAnchorElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"name\"]" js_getName ::+        JSRef HTMLAnchorElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.name Mozilla HTMLAnchorElement.name documentation> +getName ::+        (MonadIO m, FromJSString result) => HTMLAnchorElement -> m result+getName self+  = liftIO (fromJSString <$> (js_getName (unHTMLAnchorElement self)))+ +foreign import javascript unsafe "$1[\"ping\"] = $2;" js_setPing ::+        JSRef HTMLAnchorElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.ping Mozilla HTMLAnchorElement.ping documentation> +setPing ::+        (MonadIO m, ToJSString val) => HTMLAnchorElement -> val -> m ()+setPing self val+  = liftIO (js_setPing (unHTMLAnchorElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"ping\"]" js_getPing ::+        JSRef HTMLAnchorElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.ping Mozilla HTMLAnchorElement.ping documentation> +getPing ::+        (MonadIO m, FromJSString result) => HTMLAnchorElement -> m result+getPing self+  = liftIO (fromJSString <$> (js_getPing (unHTMLAnchorElement self)))+ +foreign import javascript unsafe "$1[\"rel\"] = $2;" js_setRel ::+        JSRef HTMLAnchorElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.rel Mozilla HTMLAnchorElement.rel documentation> +setRel ::+       (MonadIO m, ToJSString val) => HTMLAnchorElement -> val -> m ()+setRel self val+  = liftIO (js_setRel (unHTMLAnchorElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"rel\"]" js_getRel ::+        JSRef HTMLAnchorElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.rel Mozilla HTMLAnchorElement.rel documentation> +getRel ::+       (MonadIO m, FromJSString result) => HTMLAnchorElement -> m result+getRel self+  = liftIO (fromJSString <$> (js_getRel (unHTMLAnchorElement self)))+ +foreign import javascript unsafe "$1[\"rev\"] = $2;" js_setRev ::+        JSRef HTMLAnchorElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.rev Mozilla HTMLAnchorElement.rev documentation> +setRev ::+       (MonadIO m, ToJSString val) => HTMLAnchorElement -> val -> m ()+setRev self val+  = liftIO (js_setRev (unHTMLAnchorElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"rev\"]" js_getRev ::+        JSRef HTMLAnchorElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.rev Mozilla HTMLAnchorElement.rev documentation> +getRev ::+       (MonadIO m, FromJSString result) => HTMLAnchorElement -> m result+getRev self+  = liftIO (fromJSString <$> (js_getRev (unHTMLAnchorElement self)))+ +foreign import javascript unsafe "$1[\"shape\"] = $2;" js_setShape+        :: JSRef HTMLAnchorElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.shape Mozilla HTMLAnchorElement.shape documentation> +setShape ::+         (MonadIO m, ToJSString val) => HTMLAnchorElement -> val -> m ()+setShape self val+  = liftIO (js_setShape (unHTMLAnchorElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"shape\"]" js_getShape ::+        JSRef HTMLAnchorElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.shape Mozilla HTMLAnchorElement.shape documentation> +getShape ::+         (MonadIO m, FromJSString result) => HTMLAnchorElement -> m result+getShape self+  = liftIO+      (fromJSString <$> (js_getShape (unHTMLAnchorElement self)))+ +foreign import javascript unsafe "$1[\"target\"] = $2;"+        js_setTarget :: JSRef HTMLAnchorElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.target Mozilla HTMLAnchorElement.target documentation> +setTarget ::+          (MonadIO m, ToJSString val) => HTMLAnchorElement -> val -> m ()+setTarget self val+  = liftIO (js_setTarget (unHTMLAnchorElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"target\"]" js_getTarget ::+        JSRef HTMLAnchorElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.target Mozilla HTMLAnchorElement.target documentation> +getTarget ::+          (MonadIO m, FromJSString result) => HTMLAnchorElement -> m result+getTarget self+  = liftIO+      (fromJSString <$> (js_getTarget (unHTMLAnchorElement self)))+ +foreign import javascript unsafe "$1[\"type\"] = $2;" js_setType ::+        JSRef HTMLAnchorElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.type Mozilla HTMLAnchorElement.type documentation> +setType ::+        (MonadIO m, ToJSString val) => HTMLAnchorElement -> val -> m ()+setType self val+  = liftIO (js_setType (unHTMLAnchorElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"type\"]" js_getType ::+        JSRef HTMLAnchorElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.type Mozilla HTMLAnchorElement.type documentation> +getType ::+        (MonadIO m, FromJSString result) => HTMLAnchorElement -> m result+getType self+  = liftIO (fromJSString <$> (js_getType (unHTMLAnchorElement self)))+ +foreign import javascript unsafe "$1[\"hash\"] = $2;" js_setHash ::+        JSRef HTMLAnchorElement -> JSRef (Maybe JSString) -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.hash Mozilla HTMLAnchorElement.hash documentation> +setHash ::+        (MonadIO m, ToJSString val) =>+          HTMLAnchorElement -> Maybe val -> m ()+setHash self val+  = liftIO+      (js_setHash (unHTMLAnchorElement self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"hash\"]" js_getHash ::+        JSRef HTMLAnchorElement -> IO (JSRef (Maybe JSString))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.hash Mozilla HTMLAnchorElement.hash documentation> +getHash ::+        (MonadIO m, FromJSString result) =>+          HTMLAnchorElement -> m (Maybe result)+getHash self+  = liftIO+      (fromMaybeJSString <$> (js_getHash (unHTMLAnchorElement self)))+ +foreign import javascript unsafe "$1[\"host\"] = $2;" js_setHost ::+        JSRef HTMLAnchorElement -> JSRef (Maybe JSString) -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.host Mozilla HTMLAnchorElement.host documentation> +setHost ::+        (MonadIO m, ToJSString val) =>+          HTMLAnchorElement -> Maybe val -> m ()+setHost self val+  = liftIO+      (js_setHost (unHTMLAnchorElement self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"host\"]" js_getHost ::+        JSRef HTMLAnchorElement -> IO (JSRef (Maybe JSString))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.host Mozilla HTMLAnchorElement.host documentation> +getHost ::+        (MonadIO m, FromJSString result) =>+          HTMLAnchorElement -> m (Maybe result)+getHost self+  = liftIO+      (fromMaybeJSString <$> (js_getHost (unHTMLAnchorElement self)))+ +foreign import javascript unsafe "$1[\"hostname\"] = $2;"+        js_setHostname ::+        JSRef HTMLAnchorElement -> JSRef (Maybe JSString) -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.hostname Mozilla HTMLAnchorElement.hostname documentation> +setHostname ::+            (MonadIO m, ToJSString val) =>+              HTMLAnchorElement -> Maybe val -> m ()+setHostname self val+  = liftIO+      (js_setHostname (unHTMLAnchorElement self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"hostname\"]" js_getHostname+        :: JSRef HTMLAnchorElement -> IO (JSRef (Maybe JSString))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.hostname Mozilla HTMLAnchorElement.hostname documentation> +getHostname ::+            (MonadIO m, FromJSString result) =>+              HTMLAnchorElement -> m (Maybe result)+getHostname self+  = liftIO+      (fromMaybeJSString <$> (js_getHostname (unHTMLAnchorElement self)))+ +foreign import javascript unsafe "$1[\"pathname\"] = $2;"+        js_setPathname ::+        JSRef HTMLAnchorElement -> JSRef (Maybe JSString) -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.pathname Mozilla HTMLAnchorElement.pathname documentation> +setPathname ::+            (MonadIO m, ToJSString val) =>+              HTMLAnchorElement -> Maybe val -> m ()+setPathname self val+  = liftIO+      (js_setPathname (unHTMLAnchorElement self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"pathname\"]" js_getPathname+        :: JSRef HTMLAnchorElement -> IO (JSRef (Maybe JSString))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.pathname Mozilla HTMLAnchorElement.pathname documentation> +getPathname ::+            (MonadIO m, FromJSString result) =>+              HTMLAnchorElement -> m (Maybe result)+getPathname self+  = liftIO+      (fromMaybeJSString <$> (js_getPathname (unHTMLAnchorElement self)))+ +foreign import javascript unsafe "$1[\"port\"] = $2;" js_setPort ::+        JSRef HTMLAnchorElement -> JSRef (Maybe JSString) -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.port Mozilla HTMLAnchorElement.port documentation> +setPort ::+        (MonadIO m, ToJSString val) =>+          HTMLAnchorElement -> Maybe val -> m ()+setPort self val+  = liftIO+      (js_setPort (unHTMLAnchorElement self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"port\"]" js_getPort ::+        JSRef HTMLAnchorElement -> IO (JSRef (Maybe JSString))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.port Mozilla HTMLAnchorElement.port documentation> +getPort ::+        (MonadIO m, FromJSString result) =>+          HTMLAnchorElement -> m (Maybe result)+getPort self+  = liftIO+      (fromMaybeJSString <$> (js_getPort (unHTMLAnchorElement self)))+ +foreign import javascript unsafe "$1[\"protocol\"] = $2;"+        js_setProtocol ::+        JSRef HTMLAnchorElement -> JSRef (Maybe JSString) -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.protocol Mozilla HTMLAnchorElement.protocol documentation> +setProtocol ::+            (MonadIO m, ToJSString val) =>+              HTMLAnchorElement -> Maybe val -> m ()+setProtocol self val+  = liftIO+      (js_setProtocol (unHTMLAnchorElement self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"protocol\"]" js_getProtocol+        :: JSRef HTMLAnchorElement -> IO (JSRef (Maybe JSString))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.protocol Mozilla HTMLAnchorElement.protocol documentation> +getProtocol ::+            (MonadIO m, FromJSString result) =>+              HTMLAnchorElement -> m (Maybe result)+getProtocol self+  = liftIO+      (fromMaybeJSString <$> (js_getProtocol (unHTMLAnchorElement self)))+ +foreign import javascript unsafe "$1[\"search\"] = $2;"+        js_setSearch ::+        JSRef HTMLAnchorElement -> JSRef (Maybe JSString) -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.search Mozilla HTMLAnchorElement.search documentation> +setSearch ::+          (MonadIO m, ToJSString val) =>+            HTMLAnchorElement -> Maybe val -> m ()+setSearch self val+  = liftIO+      (js_setSearch (unHTMLAnchorElement self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"search\"]" js_getSearch ::+        JSRef HTMLAnchorElement -> IO (JSRef (Maybe JSString))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.search Mozilla HTMLAnchorElement.search documentation> +getSearch ::+          (MonadIO m, FromJSString result) =>+            HTMLAnchorElement -> m (Maybe result)+getSearch self+  = liftIO+      (fromMaybeJSString <$> (js_getSearch (unHTMLAnchorElement self)))+ +foreign import javascript unsafe "$1[\"origin\"]" js_getOrigin ::+        JSRef HTMLAnchorElement -> IO (JSRef (Maybe JSString))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.origin Mozilla HTMLAnchorElement.origin documentation> +getOrigin ::+          (MonadIO m, FromJSString result) =>+            HTMLAnchorElement -> m (Maybe result)+getOrigin self+  = liftIO+      (fromMaybeJSString <$> (js_getOrigin (unHTMLAnchorElement self)))+ +foreign import javascript unsafe "$1[\"text\"] = $2;" js_setText ::+        JSRef HTMLAnchorElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.text Mozilla HTMLAnchorElement.text documentation> +setText ::+        (MonadIO m, ToJSString val) => HTMLAnchorElement -> val -> m ()+setText self val+  = liftIO (js_setText (unHTMLAnchorElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"text\"]" js_getText ::+        JSRef HTMLAnchorElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.text Mozilla HTMLAnchorElement.text documentation> +getText ::+        (MonadIO m, FromJSString result) => HTMLAnchorElement -> m result+getText self+  = liftIO (fromJSString <$> (js_getText (unHTMLAnchorElement self)))+ +foreign import javascript unsafe "$1[\"relList\"]" js_getRelList ::+        JSRef HTMLAnchorElement -> IO (JSRef DOMTokenList)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.relList Mozilla HTMLAnchorElement.relList documentation> +getRelList ::+           (MonadIO m) => HTMLAnchorElement -> m (Maybe DOMTokenList)+getRelList self+  = liftIO ((js_getRelList (unHTMLAnchorElement self)) >>= fromJSRef)
+ src/GHCJS/DOM/JSFFI/Generated/HTMLAppletElement.hs view
@@ -0,0 +1,235 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.HTMLAppletElement+       (js_setAlign, setAlign, js_getAlign, getAlign, js_setAlt, setAlt,+        js_getAlt, getAlt, js_setArchive, setArchive, js_getArchive,+        getArchive, js_setCode, setCode, js_getCode, getCode,+        js_setCodeBase, setCodeBase, js_getCodeBase, getCodeBase,+        js_setHeight, setHeight, js_getHeight, getHeight, js_setHspace,+        setHspace, js_getHspace, getHspace, js_setName, setName,+        js_getName, getName, js_setObject, setObject, js_getObject,+        getObject, js_setVspace, setVspace, js_getVspace, getVspace,+        js_setWidth, setWidth, js_getWidth, getWidth, HTMLAppletElement,+        castToHTMLAppletElement, gTypeHTMLAppletElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign+        :: JSRef HTMLAppletElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAppletElement.align Mozilla HTMLAppletElement.align documentation> +setAlign ::+         (MonadIO m, ToJSString val) => HTMLAppletElement -> val -> m ()+setAlign self val+  = liftIO (js_setAlign (unHTMLAppletElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"align\"]" js_getAlign ::+        JSRef HTMLAppletElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAppletElement.align Mozilla HTMLAppletElement.align documentation> +getAlign ::+         (MonadIO m, FromJSString result) => HTMLAppletElement -> m result+getAlign self+  = liftIO+      (fromJSString <$> (js_getAlign (unHTMLAppletElement self)))+ +foreign import javascript unsafe "$1[\"alt\"] = $2;" js_setAlt ::+        JSRef HTMLAppletElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAppletElement.alt Mozilla HTMLAppletElement.alt documentation> +setAlt ::+       (MonadIO m, ToJSString val) => HTMLAppletElement -> val -> m ()+setAlt self val+  = liftIO (js_setAlt (unHTMLAppletElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"alt\"]" js_getAlt ::+        JSRef HTMLAppletElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAppletElement.alt Mozilla HTMLAppletElement.alt documentation> +getAlt ::+       (MonadIO m, FromJSString result) => HTMLAppletElement -> m result+getAlt self+  = liftIO (fromJSString <$> (js_getAlt (unHTMLAppletElement self)))+ +foreign import javascript unsafe "$1[\"archive\"] = $2;"+        js_setArchive :: JSRef HTMLAppletElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAppletElement.archive Mozilla HTMLAppletElement.archive documentation> +setArchive ::+           (MonadIO m, ToJSString val) => HTMLAppletElement -> val -> m ()+setArchive self val+  = liftIO+      (js_setArchive (unHTMLAppletElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"archive\"]" js_getArchive ::+        JSRef HTMLAppletElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAppletElement.archive Mozilla HTMLAppletElement.archive documentation> +getArchive ::+           (MonadIO m, FromJSString result) => HTMLAppletElement -> m result+getArchive self+  = liftIO+      (fromJSString <$> (js_getArchive (unHTMLAppletElement self)))+ +foreign import javascript unsafe "$1[\"code\"] = $2;" js_setCode ::+        JSRef HTMLAppletElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAppletElement.code Mozilla HTMLAppletElement.code documentation> +setCode ::+        (MonadIO m, ToJSString val) => HTMLAppletElement -> val -> m ()+setCode self val+  = liftIO (js_setCode (unHTMLAppletElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"code\"]" js_getCode ::+        JSRef HTMLAppletElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAppletElement.code Mozilla HTMLAppletElement.code documentation> +getCode ::+        (MonadIO m, FromJSString result) => HTMLAppletElement -> m result+getCode self+  = liftIO (fromJSString <$> (js_getCode (unHTMLAppletElement self)))+ +foreign import javascript unsafe "$1[\"codeBase\"] = $2;"+        js_setCodeBase :: JSRef HTMLAppletElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAppletElement.codeBase Mozilla HTMLAppletElement.codeBase documentation> +setCodeBase ::+            (MonadIO m, ToJSString val) => HTMLAppletElement -> val -> m ()+setCodeBase self val+  = liftIO+      (js_setCodeBase (unHTMLAppletElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"codeBase\"]" js_getCodeBase+        :: JSRef HTMLAppletElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAppletElement.codeBase Mozilla HTMLAppletElement.codeBase documentation> +getCodeBase ::+            (MonadIO m, FromJSString result) => HTMLAppletElement -> m result+getCodeBase self+  = liftIO+      (fromJSString <$> (js_getCodeBase (unHTMLAppletElement self)))+ +foreign import javascript unsafe "$1[\"height\"] = $2;"+        js_setHeight :: JSRef HTMLAppletElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAppletElement.height Mozilla HTMLAppletElement.height documentation> +setHeight ::+          (MonadIO m, ToJSString val) => HTMLAppletElement -> val -> m ()+setHeight self val+  = liftIO (js_setHeight (unHTMLAppletElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"height\"]" js_getHeight ::+        JSRef HTMLAppletElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAppletElement.height Mozilla HTMLAppletElement.height documentation> +getHeight ::+          (MonadIO m, FromJSString result) => HTMLAppletElement -> m result+getHeight self+  = liftIO+      (fromJSString <$> (js_getHeight (unHTMLAppletElement self)))+ +foreign import javascript unsafe "$1[\"hspace\"] = $2;"+        js_setHspace :: JSRef HTMLAppletElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAppletElement.hspace Mozilla HTMLAppletElement.hspace documentation> +setHspace ::+          (MonadIO m, ToJSString val) => HTMLAppletElement -> val -> m ()+setHspace self val+  = liftIO (js_setHspace (unHTMLAppletElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"hspace\"]" js_getHspace ::+        JSRef HTMLAppletElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAppletElement.hspace Mozilla HTMLAppletElement.hspace documentation> +getHspace ::+          (MonadIO m, FromJSString result) => HTMLAppletElement -> m result+getHspace self+  = liftIO+      (fromJSString <$> (js_getHspace (unHTMLAppletElement self)))+ +foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName ::+        JSRef HTMLAppletElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAppletElement.name Mozilla HTMLAppletElement.name documentation> +setName ::+        (MonadIO m, ToJSString val) => HTMLAppletElement -> val -> m ()+setName self val+  = liftIO (js_setName (unHTMLAppletElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"name\"]" js_getName ::+        JSRef HTMLAppletElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAppletElement.name Mozilla HTMLAppletElement.name documentation> +getName ::+        (MonadIO m, FromJSString result) => HTMLAppletElement -> m result+getName self+  = liftIO (fromJSString <$> (js_getName (unHTMLAppletElement self)))+ +foreign import javascript unsafe "$1[\"object\"] = $2;"+        js_setObject :: JSRef HTMLAppletElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAppletElement.object Mozilla HTMLAppletElement.object documentation> +setObject ::+          (MonadIO m, ToJSString val) => HTMLAppletElement -> val -> m ()+setObject self val+  = liftIO (js_setObject (unHTMLAppletElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"object\"]" js_getObject ::+        JSRef HTMLAppletElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAppletElement.object Mozilla HTMLAppletElement.object documentation> +getObject ::+          (MonadIO m, FromJSString result) => HTMLAppletElement -> m result+getObject self+  = liftIO+      (fromJSString <$> (js_getObject (unHTMLAppletElement self)))+ +foreign import javascript unsafe "$1[\"vspace\"] = $2;"+        js_setVspace :: JSRef HTMLAppletElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAppletElement.vspace Mozilla HTMLAppletElement.vspace documentation> +setVspace ::+          (MonadIO m, ToJSString val) => HTMLAppletElement -> val -> m ()+setVspace self val+  = liftIO (js_setVspace (unHTMLAppletElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"vspace\"]" js_getVspace ::+        JSRef HTMLAppletElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAppletElement.vspace Mozilla HTMLAppletElement.vspace documentation> +getVspace ::+          (MonadIO m, FromJSString result) => HTMLAppletElement -> m result+getVspace self+  = liftIO+      (fromJSString <$> (js_getVspace (unHTMLAppletElement self)))+ +foreign import javascript unsafe "$1[\"width\"] = $2;" js_setWidth+        :: JSRef HTMLAppletElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAppletElement.width Mozilla HTMLAppletElement.width documentation> +setWidth ::+         (MonadIO m, ToJSString val) => HTMLAppletElement -> val -> m ()+setWidth self val+  = liftIO (js_setWidth (unHTMLAppletElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::+        JSRef HTMLAppletElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAppletElement.width Mozilla HTMLAppletElement.width documentation> +getWidth ::+         (MonadIO m, FromJSString result) => HTMLAppletElement -> m result+getWidth self+  = liftIO+      (fromJSString <$> (js_getWidth (unHTMLAppletElement self)))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLAreaElement.hs view
@@ -0,0 +1,243 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.HTMLAreaElement+       (js_setAlt, setAlt, js_getAlt, getAlt, js_setCoords, setCoords,+        js_getCoords, getCoords, js_setHref, setHref, js_getHref, getHref,+        js_setNoHref, setNoHref, js_getNoHref, getNoHref, js_setPing,+        setPing, js_getPing, getPing, js_setRel, setRel, js_getRel, getRel,+        js_setShape, setShape, js_getShape, getShape, js_setTarget,+        setTarget, js_getTarget, getTarget, js_getHash, getHash,+        js_getHost, getHost, js_getHostname, getHostname, js_getPathname,+        getPathname, js_getPort, getPort, js_getProtocol, getProtocol,+        js_getSearch, getSearch, js_getRelList, getRelList,+        HTMLAreaElement, castToHTMLAreaElement, gTypeHTMLAreaElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"alt\"] = $2;" js_setAlt ::+        JSRef HTMLAreaElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.alt Mozilla HTMLAreaElement.alt documentation> +setAlt ::+       (MonadIO m, ToJSString val) => HTMLAreaElement -> val -> m ()+setAlt self val+  = liftIO (js_setAlt (unHTMLAreaElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"alt\"]" js_getAlt ::+        JSRef HTMLAreaElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.alt Mozilla HTMLAreaElement.alt documentation> +getAlt ::+       (MonadIO m, FromJSString result) => HTMLAreaElement -> m result+getAlt self+  = liftIO (fromJSString <$> (js_getAlt (unHTMLAreaElement self)))+ +foreign import javascript unsafe "$1[\"coords\"] = $2;"+        js_setCoords :: JSRef HTMLAreaElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.coords Mozilla HTMLAreaElement.coords documentation> +setCoords ::+          (MonadIO m, ToJSString val) => HTMLAreaElement -> val -> m ()+setCoords self val+  = liftIO (js_setCoords (unHTMLAreaElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"coords\"]" js_getCoords ::+        JSRef HTMLAreaElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.coords Mozilla HTMLAreaElement.coords documentation> +getCoords ::+          (MonadIO m, FromJSString result) => HTMLAreaElement -> m result+getCoords self+  = liftIO (fromJSString <$> (js_getCoords (unHTMLAreaElement self)))+ +foreign import javascript unsafe "$1[\"href\"] = $2;" js_setHref ::+        JSRef HTMLAreaElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.href Mozilla HTMLAreaElement.href documentation> +setHref ::+        (MonadIO m, ToJSString val) => HTMLAreaElement -> val -> m ()+setHref self val+  = liftIO (js_setHref (unHTMLAreaElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"href\"]" js_getHref ::+        JSRef HTMLAreaElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.href Mozilla HTMLAreaElement.href documentation> +getHref ::+        (MonadIO m, FromJSString result) => HTMLAreaElement -> m result+getHref self+  = liftIO (fromJSString <$> (js_getHref (unHTMLAreaElement self)))+ +foreign import javascript unsafe "$1[\"noHref\"] = $2;"+        js_setNoHref :: JSRef HTMLAreaElement -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.noHref Mozilla HTMLAreaElement.noHref documentation> +setNoHref :: (MonadIO m) => HTMLAreaElement -> Bool -> m ()+setNoHref self val+  = liftIO (js_setNoHref (unHTMLAreaElement self) val)+ +foreign import javascript unsafe "($1[\"noHref\"] ? 1 : 0)"+        js_getNoHref :: JSRef HTMLAreaElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.noHref Mozilla HTMLAreaElement.noHref documentation> +getNoHref :: (MonadIO m) => HTMLAreaElement -> m Bool+getNoHref self = liftIO (js_getNoHref (unHTMLAreaElement self))+ +foreign import javascript unsafe "$1[\"ping\"] = $2;" js_setPing ::+        JSRef HTMLAreaElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.ping Mozilla HTMLAreaElement.ping documentation> +setPing ::+        (MonadIO m, ToJSString val) => HTMLAreaElement -> val -> m ()+setPing self val+  = liftIO (js_setPing (unHTMLAreaElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"ping\"]" js_getPing ::+        JSRef HTMLAreaElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.ping Mozilla HTMLAreaElement.ping documentation> +getPing ::+        (MonadIO m, FromJSString result) => HTMLAreaElement -> m result+getPing self+  = liftIO (fromJSString <$> (js_getPing (unHTMLAreaElement self)))+ +foreign import javascript unsafe "$1[\"rel\"] = $2;" js_setRel ::+        JSRef HTMLAreaElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.rel Mozilla HTMLAreaElement.rel documentation> +setRel ::+       (MonadIO m, ToJSString val) => HTMLAreaElement -> val -> m ()+setRel self val+  = liftIO (js_setRel (unHTMLAreaElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"rel\"]" js_getRel ::+        JSRef HTMLAreaElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.rel Mozilla HTMLAreaElement.rel documentation> +getRel ::+       (MonadIO m, FromJSString result) => HTMLAreaElement -> m result+getRel self+  = liftIO (fromJSString <$> (js_getRel (unHTMLAreaElement self)))+ +foreign import javascript unsafe "$1[\"shape\"] = $2;" js_setShape+        :: JSRef HTMLAreaElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.shape Mozilla HTMLAreaElement.shape documentation> +setShape ::+         (MonadIO m, ToJSString val) => HTMLAreaElement -> val -> m ()+setShape self val+  = liftIO (js_setShape (unHTMLAreaElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"shape\"]" js_getShape ::+        JSRef HTMLAreaElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.shape Mozilla HTMLAreaElement.shape documentation> +getShape ::+         (MonadIO m, FromJSString result) => HTMLAreaElement -> m result+getShape self+  = liftIO (fromJSString <$> (js_getShape (unHTMLAreaElement self)))+ +foreign import javascript unsafe "$1[\"target\"] = $2;"+        js_setTarget :: JSRef HTMLAreaElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.target Mozilla HTMLAreaElement.target documentation> +setTarget ::+          (MonadIO m, ToJSString val) => HTMLAreaElement -> val -> m ()+setTarget self val+  = liftIO (js_setTarget (unHTMLAreaElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"target\"]" js_getTarget ::+        JSRef HTMLAreaElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.target Mozilla HTMLAreaElement.target documentation> +getTarget ::+          (MonadIO m, FromJSString result) => HTMLAreaElement -> m result+getTarget self+  = liftIO (fromJSString <$> (js_getTarget (unHTMLAreaElement self)))+ +foreign import javascript unsafe "$1[\"hash\"]" js_getHash ::+        JSRef HTMLAreaElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.hash Mozilla HTMLAreaElement.hash documentation> +getHash ::+        (MonadIO m, FromJSString result) => HTMLAreaElement -> m result+getHash self+  = liftIO (fromJSString <$> (js_getHash (unHTMLAreaElement self)))+ +foreign import javascript unsafe "$1[\"host\"]" js_getHost ::+        JSRef HTMLAreaElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.host Mozilla HTMLAreaElement.host documentation> +getHost ::+        (MonadIO m, FromJSString result) => HTMLAreaElement -> m result+getHost self+  = liftIO (fromJSString <$> (js_getHost (unHTMLAreaElement self)))+ +foreign import javascript unsafe "$1[\"hostname\"]" js_getHostname+        :: JSRef HTMLAreaElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.hostname Mozilla HTMLAreaElement.hostname documentation> +getHostname ::+            (MonadIO m, FromJSString result) => HTMLAreaElement -> m result+getHostname self+  = liftIO+      (fromJSString <$> (js_getHostname (unHTMLAreaElement self)))+ +foreign import javascript unsafe "$1[\"pathname\"]" js_getPathname+        :: JSRef HTMLAreaElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.pathname Mozilla HTMLAreaElement.pathname documentation> +getPathname ::+            (MonadIO m, FromJSString result) => HTMLAreaElement -> m result+getPathname self+  = liftIO+      (fromJSString <$> (js_getPathname (unHTMLAreaElement self)))+ +foreign import javascript unsafe "$1[\"port\"]" js_getPort ::+        JSRef HTMLAreaElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.port Mozilla HTMLAreaElement.port documentation> +getPort ::+        (MonadIO m, FromJSString result) => HTMLAreaElement -> m result+getPort self+  = liftIO (fromJSString <$> (js_getPort (unHTMLAreaElement self)))+ +foreign import javascript unsafe "$1[\"protocol\"]" js_getProtocol+        :: JSRef HTMLAreaElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.protocol Mozilla HTMLAreaElement.protocol documentation> +getProtocol ::+            (MonadIO m, FromJSString result) => HTMLAreaElement -> m result+getProtocol self+  = liftIO+      (fromJSString <$> (js_getProtocol (unHTMLAreaElement self)))+ +foreign import javascript unsafe "$1[\"search\"]" js_getSearch ::+        JSRef HTMLAreaElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.search Mozilla HTMLAreaElement.search documentation> +getSearch ::+          (MonadIO m, FromJSString result) => HTMLAreaElement -> m result+getSearch self+  = liftIO (fromJSString <$> (js_getSearch (unHTMLAreaElement self)))+ +foreign import javascript unsafe "$1[\"relList\"]" js_getRelList ::+        JSRef HTMLAreaElement -> IO (JSRef DOMTokenList)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.relList Mozilla HTMLAreaElement.relList documentation> +getRelList ::+           (MonadIO m) => HTMLAreaElement -> m (Maybe DOMTokenList)+getRelList self+  = liftIO ((js_getRelList (unHTMLAreaElement self)) >>= fromJSRef)
+ src/GHCJS/DOM/JSFFI/Generated/HTMLBRElement.hs view
@@ -0,0 +1,37 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.HTMLBRElement+       (js_setClear, setClear, js_getClear, getClear, HTMLBRElement,+        castToHTMLBRElement, gTypeHTMLBRElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"clear\"] = $2;" js_setClear+        :: JSRef HTMLBRElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBRElement.clear Mozilla HTMLBRElement.clear documentation> +setClear ::+         (MonadIO m, ToJSString val) => HTMLBRElement -> val -> m ()+setClear self val+  = liftIO (js_setClear (unHTMLBRElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"clear\"]" js_getClear ::+        JSRef HTMLBRElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBRElement.clear Mozilla HTMLBRElement.clear documentation> +getClear ::+         (MonadIO m, FromJSString result) => HTMLBRElement -> m result+getClear self+  = liftIO (fromJSString <$> (js_getClear (unHTMLBRElement self)))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLBaseElement.hs view
@@ -0,0 +1,59 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.HTMLBaseElement+       (js_setHref, setHref, js_getHref, getHref, js_setTarget, setTarget,+        js_getTarget, getTarget, HTMLBaseElement, castToHTMLBaseElement,+        gTypeHTMLBaseElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"href\"] = $2;" js_setHref ::+        JSRef HTMLBaseElement -> JSRef (Maybe JSString) -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBaseElement.href Mozilla HTMLBaseElement.href documentation> +setHref ::+        (MonadIO m, ToJSString val) => HTMLBaseElement -> Maybe val -> m ()+setHref self val+  = liftIO+      (js_setHref (unHTMLBaseElement self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"href\"]" js_getHref ::+        JSRef HTMLBaseElement -> IO (JSRef (Maybe JSString))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBaseElement.href Mozilla HTMLBaseElement.href documentation> +getHref ::+        (MonadIO m, FromJSString result) =>+          HTMLBaseElement -> m (Maybe result)+getHref self+  = liftIO+      (fromMaybeJSString <$> (js_getHref (unHTMLBaseElement self)))+ +foreign import javascript unsafe "$1[\"target\"] = $2;"+        js_setTarget :: JSRef HTMLBaseElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBaseElement.target Mozilla HTMLBaseElement.target documentation> +setTarget ::+          (MonadIO m, ToJSString val) => HTMLBaseElement -> val -> m ()+setTarget self val+  = liftIO (js_setTarget (unHTMLBaseElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"target\"]" js_getTarget ::+        JSRef HTMLBaseElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBaseElement.target Mozilla HTMLBaseElement.target documentation> +getTarget ::+          (MonadIO m, FromJSString result) => HTMLBaseElement -> m result+getTarget self+  = liftIO (fromJSString <$> (js_getTarget (unHTMLBaseElement self)))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLBaseFontElement.hs view
@@ -0,0 +1,75 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.HTMLBaseFontElement+       (js_setColor, setColor, js_getColor, getColor, js_setFace, setFace,+        js_getFace, getFace, js_setSize, setSize, js_getSize, getSize,+        HTMLBaseFontElement, castToHTMLBaseFontElement,+        gTypeHTMLBaseFontElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"color\"] = $2;" js_setColor+        :: JSRef HTMLBaseFontElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBaseFontElement.color Mozilla HTMLBaseFontElement.color documentation> +setColor ::+         (MonadIO m, ToJSString val) => HTMLBaseFontElement -> val -> m ()+setColor self val+  = liftIO+      (js_setColor (unHTMLBaseFontElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"color\"]" js_getColor ::+        JSRef HTMLBaseFontElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBaseFontElement.color Mozilla HTMLBaseFontElement.color documentation> +getColor ::+         (MonadIO m, FromJSString result) => HTMLBaseFontElement -> m result+getColor self+  = liftIO+      (fromJSString <$> (js_getColor (unHTMLBaseFontElement self)))+ +foreign import javascript unsafe "$1[\"face\"] = $2;" js_setFace ::+        JSRef HTMLBaseFontElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBaseFontElement.face Mozilla HTMLBaseFontElement.face documentation> +setFace ::+        (MonadIO m, ToJSString val) => HTMLBaseFontElement -> val -> m ()+setFace self val+  = liftIO (js_setFace (unHTMLBaseFontElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"face\"]" js_getFace ::+        JSRef HTMLBaseFontElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBaseFontElement.face Mozilla HTMLBaseFontElement.face documentation> +getFace ::+        (MonadIO m, FromJSString result) => HTMLBaseFontElement -> m result+getFace self+  = liftIO+      (fromJSString <$> (js_getFace (unHTMLBaseFontElement self)))+ +foreign import javascript unsafe "$1[\"size\"] = $2;" js_setSize ::+        JSRef HTMLBaseFontElement -> Int -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBaseFontElement.size Mozilla HTMLBaseFontElement.size documentation> +setSize :: (MonadIO m) => HTMLBaseFontElement -> Int -> m ()+setSize self val+  = liftIO (js_setSize (unHTMLBaseFontElement self) val)+ +foreign import javascript unsafe "$1[\"size\"]" js_getSize ::+        JSRef HTMLBaseFontElement -> IO Int++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBaseFontElement.size Mozilla HTMLBaseFontElement.size documentation> +getSize :: (MonadIO m) => HTMLBaseFontElement -> m Int+getSize self = liftIO (js_getSize (unHTMLBaseFontElement self))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLBodyElement.hs view
@@ -0,0 +1,193 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.HTMLBodyElement+       (js_setALink, setALink, js_getALink, getALink, js_setBackground,+        setBackground, js_getBackground, getBackground, js_setBgColor,+        setBgColor, js_getBgColor, getBgColor, js_setLink, setLink,+        js_getLink, getLink, js_setText, setText, js_getText, getText,+        js_setVLink, setVLink, js_getVLink, 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, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"aLink\"] = $2;" js_setALink+        :: JSRef HTMLBodyElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement.aLink Mozilla HTMLBodyElement.aLink documentation> +setALink ::+         (MonadIO m, ToJSString val) => HTMLBodyElement -> val -> m ()+setALink self val+  = liftIO (js_setALink (unHTMLBodyElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"aLink\"]" js_getALink ::+        JSRef HTMLBodyElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement.aLink Mozilla HTMLBodyElement.aLink documentation> +getALink ::+         (MonadIO m, FromJSString result) => HTMLBodyElement -> m result+getALink self+  = liftIO (fromJSString <$> (js_getALink (unHTMLBodyElement self)))+ +foreign import javascript unsafe "$1[\"background\"] = $2;"+        js_setBackground :: JSRef HTMLBodyElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement.background Mozilla HTMLBodyElement.background documentation> +setBackground ::+              (MonadIO m, ToJSString val) => HTMLBodyElement -> val -> m ()+setBackground self val+  = liftIO+      (js_setBackground (unHTMLBodyElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"background\"]"+        js_getBackground :: JSRef HTMLBodyElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement.background Mozilla HTMLBodyElement.background documentation> +getBackground ::+              (MonadIO m, FromJSString result) => HTMLBodyElement -> m result+getBackground self+  = liftIO+      (fromJSString <$> (js_getBackground (unHTMLBodyElement self)))+ +foreign import javascript unsafe "$1[\"bgColor\"] = $2;"+        js_setBgColor :: JSRef HTMLBodyElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement.bgColor Mozilla HTMLBodyElement.bgColor documentation> +setBgColor ::+           (MonadIO m, ToJSString val) => HTMLBodyElement -> val -> m ()+setBgColor self val+  = liftIO (js_setBgColor (unHTMLBodyElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"bgColor\"]" js_getBgColor ::+        JSRef HTMLBodyElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement.bgColor Mozilla HTMLBodyElement.bgColor documentation> +getBgColor ::+           (MonadIO m, FromJSString result) => HTMLBodyElement -> m result+getBgColor self+  = liftIO+      (fromJSString <$> (js_getBgColor (unHTMLBodyElement self)))+ +foreign import javascript unsafe "$1[\"link\"] = $2;" js_setLink ::+        JSRef HTMLBodyElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement.link Mozilla HTMLBodyElement.link documentation> +setLink ::+        (MonadIO m, ToJSString val) => HTMLBodyElement -> val -> m ()+setLink self val+  = liftIO (js_setLink (unHTMLBodyElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"link\"]" js_getLink ::+        JSRef HTMLBodyElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement.link Mozilla HTMLBodyElement.link documentation> +getLink ::+        (MonadIO m, FromJSString result) => HTMLBodyElement -> m result+getLink self+  = liftIO (fromJSString <$> (js_getLink (unHTMLBodyElement self)))+ +foreign import javascript unsafe "$1[\"text\"] = $2;" js_setText ::+        JSRef HTMLBodyElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement.text Mozilla HTMLBodyElement.text documentation> +setText ::+        (MonadIO m, ToJSString val) => HTMLBodyElement -> val -> m ()+setText self val+  = liftIO (js_setText (unHTMLBodyElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"text\"]" js_getText ::+        JSRef HTMLBodyElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement.text Mozilla HTMLBodyElement.text documentation> +getText ::+        (MonadIO m, FromJSString result) => HTMLBodyElement -> m result+getText self+  = liftIO (fromJSString <$> (js_getText (unHTMLBodyElement self)))+ +foreign import javascript unsafe "$1[\"vLink\"] = $2;" js_setVLink+        :: JSRef HTMLBodyElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement.vLink Mozilla HTMLBodyElement.vLink documentation> +setVLink ::+         (MonadIO m, ToJSString val) => HTMLBodyElement -> val -> m ()+setVLink self val+  = liftIO (js_setVLink (unHTMLBodyElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"vLink\"]" js_getVLink ::+        JSRef HTMLBodyElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement.vLink Mozilla HTMLBodyElement.vLink documentation> +getVLink ::+         (MonadIO m, FromJSString result) => HTMLBodyElement -> m result+getVLink self+  = liftIO (fromJSString <$> (js_getVLink (unHTMLBodyElement self)))++-- | <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/GHCJS/DOM/JSFFI/Generated/HTMLButtonElement.hs view
@@ -0,0 +1,299 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.HTMLButtonElement+       (js_checkValidity, checkValidity, js_setCustomValidity,+        setCustomValidity, js_setAutofocus, setAutofocus, js_getAutofocus,+        getAutofocus, js_setDisabled, setDisabled, js_getDisabled,+        getDisabled, js_getForm, getForm, js_setFormAction, setFormAction,+        js_getFormAction, getFormAction, js_setFormEnctype, setFormEnctype,+        js_getFormEnctype, getFormEnctype, js_setFormMethod, setFormMethod,+        js_getFormMethod, getFormMethod, js_setFormNoValidate,+        setFormNoValidate, js_getFormNoValidate, getFormNoValidate,+        js_setFormTarget, setFormTarget, js_getFormTarget, getFormTarget,+        js_setName, setName, js_getName, getName, js_setType, setType,+        js_getType, getType, js_setValue, setValue, js_getValue, getValue,+        js_getWillValidate, getWillValidate, js_getValidity, getValidity,+        js_getValidationMessage, getValidationMessage, js_getLabels,+        getLabels, HTMLButtonElement, castToHTMLButtonElement,+        gTypeHTMLButtonElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe+        "($1[\"checkValidity\"]() ? 1 : 0)" js_checkValidity ::+        JSRef HTMLButtonElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.checkValidity Mozilla HTMLButtonElement.checkValidity documentation> +checkValidity :: (MonadIO m) => HTMLButtonElement -> m Bool+checkValidity self+  = liftIO (js_checkValidity (unHTMLButtonElement self))+ +foreign import javascript unsafe "$1[\"setCustomValidity\"]($2)"+        js_setCustomValidity ::+        JSRef HTMLButtonElement -> JSRef (Maybe JSString) -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.setCustomValidity Mozilla HTMLButtonElement.setCustomValidity documentation> +setCustomValidity ::+                  (MonadIO m, ToJSString error) =>+                    HTMLButtonElement -> Maybe error -> m ()+setCustomValidity self error+  = liftIO+      (js_setCustomValidity (unHTMLButtonElement self)+         (toMaybeJSString error))+ +foreign import javascript unsafe "$1[\"autofocus\"] = $2;"+        js_setAutofocus :: JSRef HTMLButtonElement -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.autofocus Mozilla HTMLButtonElement.autofocus documentation> +setAutofocus :: (MonadIO m) => HTMLButtonElement -> Bool -> m ()+setAutofocus self val+  = liftIO (js_setAutofocus (unHTMLButtonElement self) val)+ +foreign import javascript unsafe "($1[\"autofocus\"] ? 1 : 0)"+        js_getAutofocus :: JSRef HTMLButtonElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.autofocus Mozilla HTMLButtonElement.autofocus documentation> +getAutofocus :: (MonadIO m) => HTMLButtonElement -> m Bool+getAutofocus self+  = liftIO (js_getAutofocus (unHTMLButtonElement self))+ +foreign import javascript unsafe "$1[\"disabled\"] = $2;"+        js_setDisabled :: JSRef HTMLButtonElement -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.disabled Mozilla HTMLButtonElement.disabled documentation> +setDisabled :: (MonadIO m) => HTMLButtonElement -> Bool -> m ()+setDisabled self val+  = liftIO (js_setDisabled (unHTMLButtonElement self) val)+ +foreign import javascript unsafe "($1[\"disabled\"] ? 1 : 0)"+        js_getDisabled :: JSRef HTMLButtonElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.disabled Mozilla HTMLButtonElement.disabled documentation> +getDisabled :: (MonadIO m) => HTMLButtonElement -> m Bool+getDisabled self+  = liftIO (js_getDisabled (unHTMLButtonElement self))+ +foreign import javascript unsafe "$1[\"form\"]" js_getForm ::+        JSRef HTMLButtonElement -> IO (JSRef HTMLFormElement)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.form Mozilla HTMLButtonElement.form documentation> +getForm ::+        (MonadIO m) => HTMLButtonElement -> m (Maybe HTMLFormElement)+getForm self+  = liftIO ((js_getForm (unHTMLButtonElement self)) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"formAction\"] = $2;"+        js_setFormAction :: JSRef HTMLButtonElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.formAction Mozilla HTMLButtonElement.formAction documentation> +setFormAction ::+              (MonadIO m, ToJSString val) => HTMLButtonElement -> val -> m ()+setFormAction self val+  = liftIO+      (js_setFormAction (unHTMLButtonElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"formAction\"]"+        js_getFormAction :: JSRef HTMLButtonElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.formAction Mozilla HTMLButtonElement.formAction documentation> +getFormAction ::+              (MonadIO m, FromJSString result) => HTMLButtonElement -> m result+getFormAction self+  = liftIO+      (fromJSString <$> (js_getFormAction (unHTMLButtonElement self)))+ +foreign import javascript unsafe "$1[\"formEnctype\"] = $2;"+        js_setFormEnctype ::+        JSRef HTMLButtonElement -> JSRef (Maybe JSString) -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.formEnctype Mozilla HTMLButtonElement.formEnctype documentation> +setFormEnctype ::+               (MonadIO m, ToJSString val) =>+                 HTMLButtonElement -> Maybe val -> m ()+setFormEnctype self val+  = liftIO+      (js_setFormEnctype (unHTMLButtonElement self)+         (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"formEnctype\"]"+        js_getFormEnctype ::+        JSRef HTMLButtonElement -> IO (JSRef (Maybe JSString))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.formEnctype Mozilla HTMLButtonElement.formEnctype documentation> +getFormEnctype ::+               (MonadIO m, FromJSString result) =>+                 HTMLButtonElement -> m (Maybe result)+getFormEnctype self+  = liftIO+      (fromMaybeJSString <$>+         (js_getFormEnctype (unHTMLButtonElement self)))+ +foreign import javascript unsafe "$1[\"formMethod\"] = $2;"+        js_setFormMethod ::+        JSRef HTMLButtonElement -> JSRef (Maybe JSString) -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.formMethod Mozilla HTMLButtonElement.formMethod documentation> +setFormMethod ::+              (MonadIO m, ToJSString val) =>+                HTMLButtonElement -> Maybe val -> m ()+setFormMethod self val+  = liftIO+      (js_setFormMethod (unHTMLButtonElement self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"formMethod\"]"+        js_getFormMethod ::+        JSRef HTMLButtonElement -> IO (JSRef (Maybe JSString))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.formMethod Mozilla HTMLButtonElement.formMethod documentation> +getFormMethod ::+              (MonadIO m, FromJSString result) =>+                HTMLButtonElement -> m (Maybe result)+getFormMethod self+  = liftIO+      (fromMaybeJSString <$>+         (js_getFormMethod (unHTMLButtonElement self)))+ +foreign import javascript unsafe "$1[\"formNoValidate\"] = $2;"+        js_setFormNoValidate :: JSRef HTMLButtonElement -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.formNoValidate Mozilla HTMLButtonElement.formNoValidate documentation> +setFormNoValidate ::+                  (MonadIO m) => HTMLButtonElement -> Bool -> m ()+setFormNoValidate self val+  = liftIO (js_setFormNoValidate (unHTMLButtonElement self) val)+ +foreign import javascript unsafe "($1[\"formNoValidate\"] ? 1 : 0)"+        js_getFormNoValidate :: JSRef HTMLButtonElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.formNoValidate Mozilla HTMLButtonElement.formNoValidate documentation> +getFormNoValidate :: (MonadIO m) => HTMLButtonElement -> m Bool+getFormNoValidate self+  = liftIO (js_getFormNoValidate (unHTMLButtonElement self))+ +foreign import javascript unsafe "$1[\"formTarget\"] = $2;"+        js_setFormTarget :: JSRef HTMLButtonElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.formTarget Mozilla HTMLButtonElement.formTarget documentation> +setFormTarget ::+              (MonadIO m, ToJSString val) => HTMLButtonElement -> val -> m ()+setFormTarget self val+  = liftIO+      (js_setFormTarget (unHTMLButtonElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"formTarget\"]"+        js_getFormTarget :: JSRef HTMLButtonElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.formTarget Mozilla HTMLButtonElement.formTarget documentation> +getFormTarget ::+              (MonadIO m, FromJSString result) => HTMLButtonElement -> m result+getFormTarget self+  = liftIO+      (fromJSString <$> (js_getFormTarget (unHTMLButtonElement self)))+ +foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName ::+        JSRef HTMLButtonElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.name Mozilla HTMLButtonElement.name documentation> +setName ::+        (MonadIO m, ToJSString val) => HTMLButtonElement -> val -> m ()+setName self val+  = liftIO (js_setName (unHTMLButtonElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"name\"]" js_getName ::+        JSRef HTMLButtonElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.name Mozilla HTMLButtonElement.name documentation> +getName ::+        (MonadIO m, FromJSString result) => HTMLButtonElement -> m result+getName self+  = liftIO (fromJSString <$> (js_getName (unHTMLButtonElement self)))+ +foreign import javascript unsafe "$1[\"type\"] = $2;" js_setType ::+        JSRef HTMLButtonElement -> JSRef (Maybe JSString) -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.type Mozilla HTMLButtonElement.type documentation> +setType ::+        (MonadIO m, ToJSString val) =>+          HTMLButtonElement -> Maybe val -> m ()+setType self val+  = liftIO+      (js_setType (unHTMLButtonElement self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"type\"]" js_getType ::+        JSRef HTMLButtonElement -> IO (JSRef (Maybe JSString))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.type Mozilla HTMLButtonElement.type documentation> +getType ::+        (MonadIO m, FromJSString result) =>+          HTMLButtonElement -> m (Maybe result)+getType self+  = liftIO+      (fromMaybeJSString <$> (js_getType (unHTMLButtonElement self)))+ +foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue+        :: JSRef HTMLButtonElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.value Mozilla HTMLButtonElement.value documentation> +setValue ::+         (MonadIO m, ToJSString val) => HTMLButtonElement -> val -> m ()+setValue self val+  = liftIO (js_setValue (unHTMLButtonElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"value\"]" js_getValue ::+        JSRef HTMLButtonElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.value Mozilla HTMLButtonElement.value documentation> +getValue ::+         (MonadIO m, FromJSString result) => HTMLButtonElement -> m result+getValue self+  = liftIO+      (fromJSString <$> (js_getValue (unHTMLButtonElement self)))+ +foreign import javascript unsafe "($1[\"willValidate\"] ? 1 : 0)"+        js_getWillValidate :: JSRef HTMLButtonElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.willValidate Mozilla HTMLButtonElement.willValidate documentation> +getWillValidate :: (MonadIO m) => HTMLButtonElement -> m Bool+getWillValidate self+  = liftIO (js_getWillValidate (unHTMLButtonElement self))+ +foreign import javascript unsafe "$1[\"validity\"]" js_getValidity+        :: JSRef HTMLButtonElement -> IO (JSRef ValidityState)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.validity Mozilla HTMLButtonElement.validity documentation> +getValidity ::+            (MonadIO m) => HTMLButtonElement -> m (Maybe ValidityState)+getValidity self+  = liftIO+      ((js_getValidity (unHTMLButtonElement self)) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"validationMessage\"]"+        js_getValidationMessage :: JSRef HTMLButtonElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.validationMessage Mozilla HTMLButtonElement.validationMessage documentation> +getValidationMessage ::+                     (MonadIO m, FromJSString result) => HTMLButtonElement -> m result+getValidationMessage self+  = liftIO+      (fromJSString <$>+         (js_getValidationMessage (unHTMLButtonElement self)))+ +foreign import javascript unsafe "$1[\"labels\"]" js_getLabels ::+        JSRef HTMLButtonElement -> IO (JSRef NodeList)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.labels Mozilla HTMLButtonElement.labels documentation> +getLabels :: (MonadIO m) => HTMLButtonElement -> m (Maybe NodeList)+getLabels self+  = liftIO ((js_getLabels (unHTMLButtonElement self)) >>= fromJSRef)
+ src/GHCJS/DOM/JSFFI/Generated/HTMLCanvasElement.hs view
@@ -0,0 +1,90 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.HTMLCanvasElement+       (js_toDataURL, toDataURL, js_getContext, getContext,+        js_probablySupportsContext, probablySupportsContext, js_setWidth,+        setWidth, js_getWidth, getWidth, js_setHeight, setHeight,+        js_getHeight, getHeight, HTMLCanvasElement,+        castToHTMLCanvasElement, gTypeHTMLCanvasElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"toDataURL\"]($2)"+        js_toDataURL ::+        JSRef HTMLCanvasElement -> JSRef (Maybe JSString) -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLCanvasElement.toDataURL Mozilla HTMLCanvasElement.toDataURL documentation> +toDataURL ::+          (MonadIO m, ToJSString type', FromJSString result) =>+            HTMLCanvasElement -> Maybe type' -> m result+toDataURL self type'+  = liftIO+      (fromJSString <$>+         (js_toDataURL (unHTMLCanvasElement self) (toMaybeJSString type')))+ +foreign import javascript unsafe "$1[\"getContext\"]($2)"+        js_getContext ::+        JSRef HTMLCanvasElement -> JSString -> IO (JSRef a)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLCanvasElement.getContext Mozilla HTMLCanvasElement.getContext documentation> +getContext ::+           (MonadIO m, ToJSString contextId) =>+             HTMLCanvasElement -> contextId -> m (JSRef a)+getContext self contextId+  = liftIO+      (js_getContext (unHTMLCanvasElement self) (toJSString contextId))+ +foreign import javascript unsafe+        "$1[\"probablySupportsContext\"]($2)" js_probablySupportsContext ::+        JSRef HTMLCanvasElement -> JSString -> IO (JSRef a)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLCanvasElement.probablySupportsContext Mozilla HTMLCanvasElement.probablySupportsContext documentation> +probablySupportsContext ::+                        (MonadIO m, ToJSString contextId) =>+                          HTMLCanvasElement -> contextId -> m (JSRef a)+probablySupportsContext self contextId+  = liftIO+      (js_probablySupportsContext (unHTMLCanvasElement self)+         (toJSString contextId))+ +foreign import javascript unsafe "$1[\"width\"] = $2;" js_setWidth+        :: JSRef HTMLCanvasElement -> Int -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLCanvasElement.width Mozilla HTMLCanvasElement.width documentation> +setWidth :: (MonadIO m) => HTMLCanvasElement -> Int -> m ()+setWidth self val+  = liftIO (js_setWidth (unHTMLCanvasElement self) val)+ +foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::+        JSRef HTMLCanvasElement -> IO Int++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLCanvasElement.width Mozilla HTMLCanvasElement.width documentation> +getWidth :: (MonadIO m) => HTMLCanvasElement -> m Int+getWidth self = liftIO (js_getWidth (unHTMLCanvasElement self))+ +foreign import javascript unsafe "$1[\"height\"] = $2;"+        js_setHeight :: JSRef HTMLCanvasElement -> Int -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLCanvasElement.height Mozilla HTMLCanvasElement.height documentation> +setHeight :: (MonadIO m) => HTMLCanvasElement -> Int -> m ()+setHeight self val+  = liftIO (js_setHeight (unHTMLCanvasElement self) val)+ +foreign import javascript unsafe "$1[\"height\"]" js_getHeight ::+        JSRef HTMLCanvasElement -> IO Int++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLCanvasElement.height Mozilla HTMLCanvasElement.height documentation> +getHeight :: (MonadIO m) => HTMLCanvasElement -> m Int+getHeight self = liftIO (js_getHeight (unHTMLCanvasElement self))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLCollection.hs view
@@ -0,0 +1,53 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.HTMLCollection+       (js_item, item, js_namedItem, namedItem, js_getLength, getLength,+        HTMLCollection, castToHTMLCollection, gTypeHTMLCollection,+        IsHTMLCollection, toHTMLCollection)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"item\"]($2)" js_item ::+        JSRef HTMLCollection -> Word -> IO (JSRef Node)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLCollection.item Mozilla HTMLCollection.item documentation> +item ::+     (MonadIO m, IsHTMLCollection self) =>+       self -> Word -> m (Maybe Node)+item self index+  = liftIO+      ((js_item (unHTMLCollection (toHTMLCollection self)) index) >>=+         fromJSRef)+ +foreign import javascript unsafe "$1[\"namedItem\"]($2)"+        js_namedItem :: JSRef HTMLCollection -> JSString -> IO (JSRef Node)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLCollection.namedItem Mozilla HTMLCollection.namedItem documentation> +namedItem ::+          (MonadIO m, IsHTMLCollection self, ToJSString name) =>+            self -> name -> m (Maybe Node)+namedItem self name+  = liftIO+      ((js_namedItem (unHTMLCollection (toHTMLCollection self))+          (toJSString name))+         >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"length\"]" js_getLength ::+        JSRef HTMLCollection -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLCollection.length Mozilla HTMLCollection.length documentation> +getLength :: (MonadIO m, IsHTMLCollection self) => self -> m Word+getLength self+  = liftIO (js_getLength (unHTMLCollection (toHTMLCollection self)))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLDListElement.hs view
@@ -0,0 +1,34 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.HTMLDListElement+       (js_setCompact, setCompact, js_getCompact, getCompact,+        HTMLDListElement, castToHTMLDListElement, gTypeHTMLDListElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"compact\"] = $2;"+        js_setCompact :: JSRef HTMLDListElement -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDListElement.compact Mozilla HTMLDListElement.compact documentation> +setCompact :: (MonadIO m) => HTMLDListElement -> Bool -> m ()+setCompact self val+  = liftIO (js_setCompact (unHTMLDListElement self) val)+ +foreign import javascript unsafe "($1[\"compact\"] ? 1 : 0)"+        js_getCompact :: JSRef HTMLDListElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDListElement.compact Mozilla HTMLDListElement.compact documentation> +getCompact :: (MonadIO m) => HTMLDListElement -> m Bool+getCompact self = liftIO (js_getCompact (unHTMLDListElement self))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLDataListElement.hs view
@@ -0,0 +1,29 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.HTMLDataListElement+       (js_getOptions, getOptions, HTMLDataListElement,+        castToHTMLDataListElement, gTypeHTMLDataListElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"options\"]" js_getOptions ::+        JSRef HTMLDataListElement -> IO (JSRef HTMLCollection)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDataListElement.options Mozilla HTMLDataListElement.options documentation> +getOptions ::+           (MonadIO m) => HTMLDataListElement -> m (Maybe HTMLCollection)+getOptions self+  = liftIO+      ((js_getOptions (unHTMLDataListElement self)) >>= fromJSRef)
+ src/GHCJS/DOM/JSFFI/Generated/HTMLDetailsElement.hs view
@@ -0,0 +1,34 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.HTMLDetailsElement+       (js_setOpen, setOpen, js_getOpen, getOpen, HTMLDetailsElement,+        castToHTMLDetailsElement, gTypeHTMLDetailsElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"open\"] = $2;" js_setOpen ::+        JSRef HTMLDetailsElement -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDetailsElement.open Mozilla HTMLDetailsElement.open documentation> +setOpen :: (MonadIO m) => HTMLDetailsElement -> Bool -> m ()+setOpen self val+  = liftIO (js_setOpen (unHTMLDetailsElement self) val)+ +foreign import javascript unsafe "($1[\"open\"] ? 1 : 0)"+        js_getOpen :: JSRef HTMLDetailsElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDetailsElement.open Mozilla HTMLDetailsElement.open documentation> +getOpen :: (MonadIO m) => HTMLDetailsElement -> m Bool+getOpen self = liftIO (js_getOpen (unHTMLDetailsElement self))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLDirectoryElement.hs view
@@ -0,0 +1,36 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.HTMLDirectoryElement+       (js_setCompact, setCompact, js_getCompact, getCompact,+        HTMLDirectoryElement, castToHTMLDirectoryElement,+        gTypeHTMLDirectoryElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"compact\"] = $2;"+        js_setCompact :: JSRef HTMLDirectoryElement -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDirectoryElement.compact Mozilla HTMLDirectoryElement.compact documentation> +setCompact :: (MonadIO m) => HTMLDirectoryElement -> Bool -> m ()+setCompact self val+  = liftIO (js_setCompact (unHTMLDirectoryElement self) val)+ +foreign import javascript unsafe "($1[\"compact\"] ? 1 : 0)"+        js_getCompact :: JSRef HTMLDirectoryElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDirectoryElement.compact Mozilla HTMLDirectoryElement.compact documentation> +getCompact :: (MonadIO m) => HTMLDirectoryElement -> m Bool+getCompact self+  = liftIO (js_getCompact (unHTMLDirectoryElement self))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLDivElement.hs view
@@ -0,0 +1,37 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.HTMLDivElement+       (js_setAlign, setAlign, js_getAlign, getAlign, HTMLDivElement,+        castToHTMLDivElement, gTypeHTMLDivElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign+        :: JSRef HTMLDivElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDivElement.align Mozilla HTMLDivElement.align documentation> +setAlign ::+         (MonadIO m, ToJSString val) => HTMLDivElement -> val -> m ()+setAlign self val+  = liftIO (js_setAlign (unHTMLDivElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"align\"]" js_getAlign ::+        JSRef HTMLDivElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDivElement.align Mozilla HTMLDivElement.align documentation> +getAlign ::+         (MonadIO m, FromJSString result) => HTMLDivElement -> m result+getAlign self+  = liftIO (fromJSString <$> (js_getAlign (unHTMLDivElement self)))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLDocument.hs view
@@ -0,0 +1,300 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.HTMLDocument+       (js_open, open, js_close, close, js_write, write, js_writeln,+        writeln, js_clear, clear, js_captureEvents, captureEvents,+        js_releaseEvents, releaseEvents, js_getEmbeds, getEmbeds,+        js_getPlugins, getPlugins, js_getScripts, getScripts, js_getAll,+        getAll, js_getWidth, getWidth, js_getHeight, getHeight, js_setDir,+        setDir, js_getDir, getDir, js_setDesignMode, setDesignMode,+        js_getDesignMode, getDesignMode, js_getCompatMode, getCompatMode,+        js_setBgColor, setBgColor, js_getBgColor, getBgColor,+        js_setFgColor, setFgColor, js_getFgColor, getFgColor,+        js_setAlinkColor, setAlinkColor, js_getAlinkColor, getAlinkColor,+        js_setLinkColor, setLinkColor, js_getLinkColor, getLinkColor,+        js_setVlinkColor, setVlinkColor, js_getVlinkColor, getVlinkColor,+        HTMLDocument, castToHTMLDocument, gTypeHTMLDocument)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"open\"]()" js_open ::+        JSRef HTMLDocument -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.open Mozilla HTMLDocument.open documentation> +open :: (MonadIO m) => HTMLDocument -> m ()+open self = liftIO (js_open (unHTMLDocument self))+ +foreign import javascript unsafe "$1[\"close\"]()" js_close ::+        JSRef HTMLDocument -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.close Mozilla HTMLDocument.close documentation> +close :: (MonadIO m) => HTMLDocument -> m ()+close self = liftIO (js_close (unHTMLDocument self))+ +foreign import javascript unsafe "$1[\"write\"]($2)" js_write ::+        JSRef HTMLDocument -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.write Mozilla HTMLDocument.write documentation> +write ::+      (MonadIO m, ToJSString text) => HTMLDocument -> text -> m ()+write self text+  = liftIO (js_write (unHTMLDocument self) (toJSString text))+ +foreign import javascript unsafe "$1[\"writeln\"]($2)" js_writeln+        :: JSRef HTMLDocument -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.writeln Mozilla HTMLDocument.writeln documentation> +writeln ::+        (MonadIO m, ToJSString text) => HTMLDocument -> text -> m ()+writeln self text+  = liftIO (js_writeln (unHTMLDocument self) (toJSString text))+ +foreign import javascript unsafe "$1[\"clear\"]()" js_clear ::+        JSRef HTMLDocument -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.clear Mozilla HTMLDocument.clear documentation> +clear :: (MonadIO m) => HTMLDocument -> m ()+clear self = liftIO (js_clear (unHTMLDocument self))+ +foreign import javascript unsafe "$1[\"captureEvents\"]()"+        js_captureEvents :: JSRef HTMLDocument -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.captureEvents Mozilla HTMLDocument.captureEvents documentation> +captureEvents :: (MonadIO m) => HTMLDocument -> m ()+captureEvents self+  = liftIO (js_captureEvents (unHTMLDocument self))+ +foreign import javascript unsafe "$1[\"releaseEvents\"]()"+        js_releaseEvents :: JSRef HTMLDocument -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.releaseEvents Mozilla HTMLDocument.releaseEvents documentation> +releaseEvents :: (MonadIO m) => HTMLDocument -> m ()+releaseEvents self+  = liftIO (js_releaseEvents (unHTMLDocument self))+ +foreign import javascript unsafe "$1[\"embeds\"]" js_getEmbeds ::+        JSRef HTMLDocument -> IO (JSRef HTMLCollection)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.embeds Mozilla HTMLDocument.embeds documentation> +getEmbeds ::+          (MonadIO m) => HTMLDocument -> m (Maybe HTMLCollection)+getEmbeds self+  = liftIO ((js_getEmbeds (unHTMLDocument self)) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"plugins\"]" js_getPlugins ::+        JSRef HTMLDocument -> IO (JSRef HTMLCollection)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.plugins Mozilla HTMLDocument.plugins documentation> +getPlugins ::+           (MonadIO m) => HTMLDocument -> m (Maybe HTMLCollection)+getPlugins self+  = liftIO ((js_getPlugins (unHTMLDocument self)) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"scripts\"]" js_getScripts ::+        JSRef HTMLDocument -> IO (JSRef HTMLCollection)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.scripts Mozilla HTMLDocument.scripts documentation> +getScripts ::+           (MonadIO m) => HTMLDocument -> m (Maybe HTMLCollection)+getScripts self+  = liftIO ((js_getScripts (unHTMLDocument self)) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"all\"]" js_getAll ::+        JSRef HTMLDocument -> IO (JSRef HTMLAllCollection)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.all Mozilla HTMLDocument.all documentation> +getAll ::+       (MonadIO m) => HTMLDocument -> m (Maybe HTMLAllCollection)+getAll self+  = liftIO ((js_getAll (unHTMLDocument self)) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::+        JSRef HTMLDocument -> IO Int++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.width Mozilla HTMLDocument.width documentation> +getWidth :: (MonadIO m) => HTMLDocument -> m Int+getWidth self = liftIO (js_getWidth (unHTMLDocument self))+ +foreign import javascript unsafe "$1[\"height\"]" js_getHeight ::+        JSRef HTMLDocument -> IO Int++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.height Mozilla HTMLDocument.height documentation> +getHeight :: (MonadIO m) => HTMLDocument -> m Int+getHeight self = liftIO (js_getHeight (unHTMLDocument self))+ +foreign import javascript unsafe "$1[\"dir\"] = $2;" js_setDir ::+        JSRef HTMLDocument -> JSRef (Maybe JSString) -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.dir Mozilla HTMLDocument.dir documentation> +setDir ::+       (MonadIO m, ToJSString val) => HTMLDocument -> Maybe val -> m ()+setDir self val+  = liftIO (js_setDir (unHTMLDocument self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"dir\"]" js_getDir ::+        JSRef HTMLDocument -> IO (JSRef (Maybe JSString))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.dir Mozilla HTMLDocument.dir documentation> +getDir ::+       (MonadIO m, FromJSString result) =>+         HTMLDocument -> m (Maybe result)+getDir self+  = liftIO (fromMaybeJSString <$> (js_getDir (unHTMLDocument self)))+ +foreign import javascript unsafe "$1[\"designMode\"] = $2;"+        js_setDesignMode ::+        JSRef HTMLDocument -> JSRef (Maybe JSString) -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.designMode Mozilla HTMLDocument.designMode documentation> +setDesignMode ::+              (MonadIO m, ToJSString val) => HTMLDocument -> Maybe val -> m ()+setDesignMode self val+  = liftIO+      (js_setDesignMode (unHTMLDocument self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"designMode\"]"+        js_getDesignMode ::+        JSRef HTMLDocument -> IO (JSRef (Maybe JSString))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.designMode Mozilla HTMLDocument.designMode documentation> +getDesignMode ::+              (MonadIO m, FromJSString result) =>+                HTMLDocument -> m (Maybe result)+getDesignMode self+  = liftIO+      (fromMaybeJSString <$> (js_getDesignMode (unHTMLDocument self)))+ +foreign import javascript unsafe "$1[\"compatMode\"]"+        js_getCompatMode :: JSRef HTMLDocument -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.compatMode Mozilla HTMLDocument.compatMode documentation> +getCompatMode ::+              (MonadIO m, FromJSString result) => HTMLDocument -> m result+getCompatMode self+  = liftIO+      (fromJSString <$> (js_getCompatMode (unHTMLDocument self)))+ +foreign import javascript unsafe "$1[\"bgColor\"] = $2;"+        js_setBgColor ::+        JSRef HTMLDocument -> JSRef (Maybe JSString) -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.bgColor Mozilla HTMLDocument.bgColor documentation> +setBgColor ::+           (MonadIO m, ToJSString val) => HTMLDocument -> Maybe val -> m ()+setBgColor self val+  = liftIO+      (js_setBgColor (unHTMLDocument self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"bgColor\"]" js_getBgColor ::+        JSRef HTMLDocument -> IO (JSRef (Maybe JSString))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.bgColor Mozilla HTMLDocument.bgColor documentation> +getBgColor ::+           (MonadIO m, FromJSString result) =>+             HTMLDocument -> m (Maybe result)+getBgColor self+  = liftIO+      (fromMaybeJSString <$> (js_getBgColor (unHTMLDocument self)))+ +foreign import javascript unsafe "$1[\"fgColor\"] = $2;"+        js_setFgColor ::+        JSRef HTMLDocument -> JSRef (Maybe JSString) -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.fgColor Mozilla HTMLDocument.fgColor documentation> +setFgColor ::+           (MonadIO m, ToJSString val) => HTMLDocument -> Maybe val -> m ()+setFgColor self val+  = liftIO+      (js_setFgColor (unHTMLDocument self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"fgColor\"]" js_getFgColor ::+        JSRef HTMLDocument -> IO (JSRef (Maybe JSString))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.fgColor Mozilla HTMLDocument.fgColor documentation> +getFgColor ::+           (MonadIO m, FromJSString result) =>+             HTMLDocument -> m (Maybe result)+getFgColor self+  = liftIO+      (fromMaybeJSString <$> (js_getFgColor (unHTMLDocument self)))+ +foreign import javascript unsafe "$1[\"alinkColor\"] = $2;"+        js_setAlinkColor ::+        JSRef HTMLDocument -> JSRef (Maybe JSString) -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.alinkColor Mozilla HTMLDocument.alinkColor documentation> +setAlinkColor ::+              (MonadIO m, ToJSString val) => HTMLDocument -> Maybe val -> m ()+setAlinkColor self val+  = liftIO+      (js_setAlinkColor (unHTMLDocument self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"alinkColor\"]"+        js_getAlinkColor ::+        JSRef HTMLDocument -> IO (JSRef (Maybe JSString))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.alinkColor Mozilla HTMLDocument.alinkColor documentation> +getAlinkColor ::+              (MonadIO m, FromJSString result) =>+                HTMLDocument -> m (Maybe result)+getAlinkColor self+  = liftIO+      (fromMaybeJSString <$> (js_getAlinkColor (unHTMLDocument self)))+ +foreign import javascript unsafe "$1[\"linkColor\"] = $2;"+        js_setLinkColor ::+        JSRef HTMLDocument -> JSRef (Maybe JSString) -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.linkColor Mozilla HTMLDocument.linkColor documentation> +setLinkColor ::+             (MonadIO m, ToJSString val) => HTMLDocument -> Maybe val -> m ()+setLinkColor self val+  = liftIO+      (js_setLinkColor (unHTMLDocument self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"linkColor\"]"+        js_getLinkColor ::+        JSRef HTMLDocument -> IO (JSRef (Maybe JSString))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.linkColor Mozilla HTMLDocument.linkColor documentation> +getLinkColor ::+             (MonadIO m, FromJSString result) =>+               HTMLDocument -> m (Maybe result)+getLinkColor self+  = liftIO+      (fromMaybeJSString <$> (js_getLinkColor (unHTMLDocument self)))+ +foreign import javascript unsafe "$1[\"vlinkColor\"] = $2;"+        js_setVlinkColor ::+        JSRef HTMLDocument -> JSRef (Maybe JSString) -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.vlinkColor Mozilla HTMLDocument.vlinkColor documentation> +setVlinkColor ::+              (MonadIO m, ToJSString val) => HTMLDocument -> Maybe val -> m ()+setVlinkColor self val+  = liftIO+      (js_setVlinkColor (unHTMLDocument self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"vlinkColor\"]"+        js_getVlinkColor ::+        JSRef HTMLDocument -> IO (JSRef (Maybe JSString))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.vlinkColor Mozilla HTMLDocument.vlinkColor documentation> +getVlinkColor ::+              (MonadIO m, FromJSString result) =>+                HTMLDocument -> m (Maybe result)+getVlinkColor self+  = liftIO+      (fromMaybeJSString <$> (js_getVlinkColor (unHTMLDocument self)))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLElement.hs view
@@ -0,0 +1,390 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.HTMLElement+       (js_insertAdjacentElement, insertAdjacentElement,+        js_insertAdjacentHTML, insertAdjacentHTML, js_insertAdjacentText,+        insertAdjacentText, js_click, click, js_setTitle, setTitle,+        js_getTitle, getTitle, js_setLang, setLang, js_getLang, getLang,+        js_setTranslate, setTranslate, js_getTranslate, getTranslate,+        js_setDir, setDir, js_getDir, getDir, js_setTabIndex, setTabIndex,+        js_getTabIndex, getTabIndex, js_setDraggable, setDraggable,+        js_getDraggable, getDraggable, js_setWebkitdropzone,+        setWebkitdropzone, js_getWebkitdropzone, getWebkitdropzone,+        js_setHidden, setHidden, js_getHidden, getHidden, js_setAccessKey,+        setAccessKey, js_getAccessKey, getAccessKey, js_setInnerText,+        setInnerText, js_getInnerText, getInnerText, js_setOuterText,+        setOuterText, js_getOuterText, getOuterText, js_getChildren,+        getChildren, js_setContentEditable, setContentEditable,+        js_getContentEditable, getContentEditable, js_getIsContentEditable,+        getIsContentEditable, js_setSpellcheck, setSpellcheck,+        js_getSpellcheck, getSpellcheck, HTMLElement, castToHTMLElement,+        gTypeHTMLElement, IsHTMLElement, toHTMLElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe+        "$1[\"insertAdjacentElement\"]($2,\n$3)" js_insertAdjacentElement+        ::+        JSRef HTMLElement ->+          JSString -> JSRef Element -> IO (JSRef Element)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.insertAdjacentElement Mozilla HTMLElement.insertAdjacentElement documentation> +insertAdjacentElement ::+                      (MonadIO m, IsHTMLElement self, ToJSString where',+                       IsElement element) =>+                        self -> where' -> Maybe element -> m (Maybe Element)+insertAdjacentElement self where' element+  = liftIO+      ((js_insertAdjacentElement (unHTMLElement (toHTMLElement self))+          (toJSString where')+          (maybe jsNull (unElement . toElement) element))+         >>= fromJSRef)+ +foreign import javascript unsafe+        "$1[\"insertAdjacentHTML\"]($2, $3)" js_insertAdjacentHTML ::+        JSRef HTMLElement -> JSString -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.insertAdjacentHTML Mozilla HTMLElement.insertAdjacentHTML documentation> +insertAdjacentHTML ::+                   (MonadIO m, IsHTMLElement self, ToJSString where',+                    ToJSString html) =>+                     self -> where' -> html -> m ()+insertAdjacentHTML self where' html+  = liftIO+      (js_insertAdjacentHTML (unHTMLElement (toHTMLElement self))+         (toJSString where')+         (toJSString html))+ +foreign import javascript unsafe+        "$1[\"insertAdjacentText\"]($2, $3)" js_insertAdjacentText ::+        JSRef HTMLElement -> JSString -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.insertAdjacentText Mozilla HTMLElement.insertAdjacentText documentation> +insertAdjacentText ::+                   (MonadIO m, IsHTMLElement self, ToJSString where',+                    ToJSString text) =>+                     self -> where' -> text -> m ()+insertAdjacentText self where' text+  = liftIO+      (js_insertAdjacentText (unHTMLElement (toHTMLElement self))+         (toJSString where')+         (toJSString text))+ +foreign import javascript unsafe "$1[\"click\"]()" js_click ::+        JSRef HTMLElement -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.click Mozilla HTMLElement.click documentation> +click :: (MonadIO m, IsHTMLElement self) => self -> m ()+click self = liftIO (js_click (unHTMLElement (toHTMLElement self)))+ +foreign import javascript unsafe "$1[\"title\"] = $2;" js_setTitle+        :: JSRef HTMLElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.title Mozilla HTMLElement.title documentation> +setTitle ::+         (MonadIO m, IsHTMLElement self, ToJSString val) =>+           self -> val -> m ()+setTitle self val+  = liftIO+      (js_setTitle (unHTMLElement (toHTMLElement self)) (toJSString val))+ +foreign import javascript unsafe "$1[\"title\"]" js_getTitle ::+        JSRef HTMLElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.title Mozilla HTMLElement.title documentation> +getTitle ::+         (MonadIO m, IsHTMLElement self, FromJSString result) =>+           self -> m result+getTitle self+  = liftIO+      (fromJSString <$>+         (js_getTitle (unHTMLElement (toHTMLElement self))))+ +foreign import javascript unsafe "$1[\"lang\"] = $2;" js_setLang ::+        JSRef HTMLElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.lang Mozilla HTMLElement.lang documentation> +setLang ::+        (MonadIO m, IsHTMLElement self, ToJSString val) =>+          self -> val -> m ()+setLang self val+  = liftIO+      (js_setLang (unHTMLElement (toHTMLElement self)) (toJSString val))+ +foreign import javascript unsafe "$1[\"lang\"]" js_getLang ::+        JSRef HTMLElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.lang Mozilla HTMLElement.lang documentation> +getLang ::+        (MonadIO m, IsHTMLElement self, FromJSString result) =>+          self -> m result+getLang self+  = liftIO+      (fromJSString <$>+         (js_getLang (unHTMLElement (toHTMLElement self))))+ +foreign import javascript unsafe "$1[\"translate\"] = $2;"+        js_setTranslate :: JSRef HTMLElement -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.translate Mozilla HTMLElement.translate documentation> +setTranslate ::+             (MonadIO m, IsHTMLElement self) => self -> Bool -> m ()+setTranslate self val+  = liftIO (js_setTranslate (unHTMLElement (toHTMLElement self)) val)+ +foreign import javascript unsafe "($1[\"translate\"] ? 1 : 0)"+        js_getTranslate :: JSRef HTMLElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.translate Mozilla HTMLElement.translate documentation> +getTranslate :: (MonadIO m, IsHTMLElement self) => self -> m Bool+getTranslate self+  = liftIO (js_getTranslate (unHTMLElement (toHTMLElement self)))+ +foreign import javascript unsafe "$1[\"dir\"] = $2;" js_setDir ::+        JSRef HTMLElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.dir Mozilla HTMLElement.dir documentation> +setDir ::+       (MonadIO m, IsHTMLElement self, ToJSString val) =>+         self -> val -> m ()+setDir self val+  = liftIO+      (js_setDir (unHTMLElement (toHTMLElement self)) (toJSString val))+ +foreign import javascript unsafe "$1[\"dir\"]" js_getDir ::+        JSRef HTMLElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.dir Mozilla HTMLElement.dir documentation> +getDir ::+       (MonadIO m, IsHTMLElement self, FromJSString result) =>+         self -> m result+getDir self+  = liftIO+      (fromJSString <$> (js_getDir (unHTMLElement (toHTMLElement self))))+ +foreign import javascript unsafe "$1[\"tabIndex\"] = $2;"+        js_setTabIndex :: JSRef HTMLElement -> Int -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.tabIndex Mozilla HTMLElement.tabIndex documentation> +setTabIndex ::+            (MonadIO m, IsHTMLElement self) => self -> Int -> m ()+setTabIndex self val+  = liftIO (js_setTabIndex (unHTMLElement (toHTMLElement self)) val)+ +foreign import javascript unsafe "$1[\"tabIndex\"]" js_getTabIndex+        :: JSRef HTMLElement -> IO Int++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.tabIndex Mozilla HTMLElement.tabIndex documentation> +getTabIndex :: (MonadIO m, IsHTMLElement self) => self -> m Int+getTabIndex self+  = liftIO (js_getTabIndex (unHTMLElement (toHTMLElement self)))+ +foreign import javascript unsafe "$1[\"draggable\"] = $2;"+        js_setDraggable :: JSRef HTMLElement -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.draggable Mozilla HTMLElement.draggable documentation> +setDraggable ::+             (MonadIO m, IsHTMLElement self) => self -> Bool -> m ()+setDraggable self val+  = liftIO (js_setDraggable (unHTMLElement (toHTMLElement self)) val)+ +foreign import javascript unsafe "($1[\"draggable\"] ? 1 : 0)"+        js_getDraggable :: JSRef HTMLElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.draggable Mozilla HTMLElement.draggable documentation> +getDraggable :: (MonadIO m, IsHTMLElement self) => self -> m Bool+getDraggable self+  = liftIO (js_getDraggable (unHTMLElement (toHTMLElement self)))+ +foreign import javascript unsafe "$1[\"webkitdropzone\"] = $2;"+        js_setWebkitdropzone :: JSRef HTMLElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.webkitdropzone Mozilla HTMLElement.webkitdropzone documentation> +setWebkitdropzone ::+                  (MonadIO m, IsHTMLElement self, ToJSString val) =>+                    self -> val -> m ()+setWebkitdropzone self val+  = liftIO+      (js_setWebkitdropzone (unHTMLElement (toHTMLElement self))+         (toJSString val))+ +foreign import javascript unsafe "$1[\"webkitdropzone\"]"+        js_getWebkitdropzone :: JSRef HTMLElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.webkitdropzone Mozilla HTMLElement.webkitdropzone documentation> +getWebkitdropzone ::+                  (MonadIO m, IsHTMLElement self, FromJSString result) =>+                    self -> m result+getWebkitdropzone self+  = liftIO+      (fromJSString <$>+         (js_getWebkitdropzone (unHTMLElement (toHTMLElement self))))+ +foreign import javascript unsafe "$1[\"hidden\"] = $2;"+        js_setHidden :: JSRef HTMLElement -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.hidden Mozilla HTMLElement.hidden documentation> +setHidden ::+          (MonadIO m, IsHTMLElement self) => self -> Bool -> m ()+setHidden self val+  = liftIO (js_setHidden (unHTMLElement (toHTMLElement self)) val)+ +foreign import javascript unsafe "($1[\"hidden\"] ? 1 : 0)"+        js_getHidden :: JSRef HTMLElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.hidden Mozilla HTMLElement.hidden documentation> +getHidden :: (MonadIO m, IsHTMLElement self) => self -> m Bool+getHidden self+  = liftIO (js_getHidden (unHTMLElement (toHTMLElement self)))+ +foreign import javascript unsafe "$1[\"accessKey\"] = $2;"+        js_setAccessKey :: JSRef HTMLElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.accessKey Mozilla HTMLElement.accessKey documentation> +setAccessKey ::+             (MonadIO m, IsHTMLElement self, ToJSString val) =>+               self -> val -> m ()+setAccessKey self val+  = liftIO+      (js_setAccessKey (unHTMLElement (toHTMLElement self))+         (toJSString val))+ +foreign import javascript unsafe "$1[\"accessKey\"]"+        js_getAccessKey :: JSRef HTMLElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.accessKey Mozilla HTMLElement.accessKey documentation> +getAccessKey ::+             (MonadIO m, IsHTMLElement self, FromJSString result) =>+               self -> m result+getAccessKey self+  = liftIO+      (fromJSString <$>+         (js_getAccessKey (unHTMLElement (toHTMLElement self))))+ +foreign import javascript unsafe "$1[\"innerText\"] = $2;"+        js_setInnerText ::+        JSRef HTMLElement -> JSRef (Maybe JSString) -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.innerText Mozilla HTMLElement.innerText documentation> +setInnerText ::+             (MonadIO m, IsHTMLElement self, ToJSString val) =>+               self -> Maybe val -> m ()+setInnerText self val+  = liftIO+      (js_setInnerText (unHTMLElement (toHTMLElement self))+         (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"innerText\"]"+        js_getInnerText :: JSRef HTMLElement -> IO (JSRef (Maybe JSString))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.innerText Mozilla HTMLElement.innerText documentation> +getInnerText ::+             (MonadIO m, IsHTMLElement self, FromJSString result) =>+               self -> m (Maybe result)+getInnerText self+  = liftIO+      (fromMaybeJSString <$>+         (js_getInnerText (unHTMLElement (toHTMLElement self))))+ +foreign import javascript unsafe "$1[\"outerText\"] = $2;"+        js_setOuterText ::+        JSRef HTMLElement -> JSRef (Maybe JSString) -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.outerText Mozilla HTMLElement.outerText documentation> +setOuterText ::+             (MonadIO m, IsHTMLElement self, ToJSString val) =>+               self -> Maybe val -> m ()+setOuterText self val+  = liftIO+      (js_setOuterText (unHTMLElement (toHTMLElement self))+         (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"outerText\"]"+        js_getOuterText :: JSRef HTMLElement -> IO (JSRef (Maybe JSString))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.outerText Mozilla HTMLElement.outerText documentation> +getOuterText ::+             (MonadIO m, IsHTMLElement self, FromJSString result) =>+               self -> m (Maybe result)+getOuterText self+  = liftIO+      (fromMaybeJSString <$>+         (js_getOuterText (unHTMLElement (toHTMLElement self))))+ +foreign import javascript unsafe "$1[\"children\"]" js_getChildren+        :: JSRef HTMLElement -> IO (JSRef HTMLCollection)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.children Mozilla HTMLElement.children documentation> +getChildren ::+            (MonadIO m, IsHTMLElement self) => self -> m (Maybe HTMLCollection)+getChildren self+  = liftIO+      ((js_getChildren (unHTMLElement (toHTMLElement self))) >>=+         fromJSRef)+ +foreign import javascript unsafe "$1[\"contentEditable\"] = $2;"+        js_setContentEditable ::+        JSRef HTMLElement -> JSRef (Maybe JSString) -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.contentEditable Mozilla HTMLElement.contentEditable documentation> +setContentEditable ::+                   (MonadIO m, IsHTMLElement self, ToJSString val) =>+                     self -> Maybe val -> m ()+setContentEditable self val+  = liftIO+      (js_setContentEditable (unHTMLElement (toHTMLElement self))+         (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"contentEditable\"]"+        js_getContentEditable ::+        JSRef HTMLElement -> IO (JSRef (Maybe JSString))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.contentEditable Mozilla HTMLElement.contentEditable documentation> +getContentEditable ::+                   (MonadIO m, IsHTMLElement self, FromJSString result) =>+                     self -> m (Maybe result)+getContentEditable self+  = liftIO+      (fromMaybeJSString <$>+         (js_getContentEditable (unHTMLElement (toHTMLElement self))))+ +foreign import javascript unsafe+        "($1[\"isContentEditable\"] ? 1 : 0)" js_getIsContentEditable ::+        JSRef HTMLElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.isContentEditable Mozilla HTMLElement.isContentEditable documentation> +getIsContentEditable ::+                     (MonadIO m, IsHTMLElement self) => self -> m Bool+getIsContentEditable self+  = liftIO+      (js_getIsContentEditable (unHTMLElement (toHTMLElement self)))+ +foreign import javascript unsafe "$1[\"spellcheck\"] = $2;"+        js_setSpellcheck :: JSRef HTMLElement -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.spellcheck Mozilla HTMLElement.spellcheck documentation> +setSpellcheck ::+              (MonadIO m, IsHTMLElement self) => self -> Bool -> m ()+setSpellcheck self val+  = liftIO+      (js_setSpellcheck (unHTMLElement (toHTMLElement self)) val)+ +foreign import javascript unsafe "($1[\"spellcheck\"] ? 1 : 0)"+        js_getSpellcheck :: JSRef HTMLElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.spellcheck Mozilla HTMLElement.spellcheck documentation> +getSpellcheck :: (MonadIO m, IsHTMLElement self) => self -> m Bool+getSpellcheck self+  = liftIO (js_getSpellcheck (unHTMLElement (toHTMLElement self)))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLEmbedElement.hs view
@@ -0,0 +1,143 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.HTMLEmbedElement+       (js_getSVGDocument, getSVGDocument, js_setAlign, setAlign,+        js_getAlign, getAlign, js_setHeight, setHeight, js_getHeight,+        getHeight, js_setName, setName, js_getName, getName, js_setSrc,+        setSrc, js_getSrc, getSrc, js_setType, setType, js_getType,+        getType, js_setWidth, setWidth, js_getWidth, getWidth,+        HTMLEmbedElement, castToHTMLEmbedElement, gTypeHTMLEmbedElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"getSVGDocument\"]()"+        js_getSVGDocument ::+        JSRef HTMLEmbedElement -> IO (JSRef SVGDocument)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLEmbedElement.getSVGDocument Mozilla HTMLEmbedElement.getSVGDocument documentation> +getSVGDocument ::+               (MonadIO m) => HTMLEmbedElement -> m (Maybe SVGDocument)+getSVGDocument self+  = liftIO+      ((js_getSVGDocument (unHTMLEmbedElement self)) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign+        :: JSRef HTMLEmbedElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLEmbedElement.align Mozilla HTMLEmbedElement.align documentation> +setAlign ::+         (MonadIO m, ToJSString val) => HTMLEmbedElement -> val -> m ()+setAlign self val+  = liftIO (js_setAlign (unHTMLEmbedElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"align\"]" js_getAlign ::+        JSRef HTMLEmbedElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLEmbedElement.align Mozilla HTMLEmbedElement.align documentation> +getAlign ::+         (MonadIO m, FromJSString result) => HTMLEmbedElement -> m result+getAlign self+  = liftIO (fromJSString <$> (js_getAlign (unHTMLEmbedElement self)))+ +foreign import javascript unsafe "$1[\"height\"] = $2;"+        js_setHeight :: JSRef HTMLEmbedElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLEmbedElement.height Mozilla HTMLEmbedElement.height documentation> +setHeight ::+          (MonadIO m, ToJSString val) => HTMLEmbedElement -> val -> m ()+setHeight self val+  = liftIO (js_setHeight (unHTMLEmbedElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"height\"]" js_getHeight ::+        JSRef HTMLEmbedElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLEmbedElement.height Mozilla HTMLEmbedElement.height documentation> +getHeight ::+          (MonadIO m, FromJSString result) => HTMLEmbedElement -> m result+getHeight self+  = liftIO+      (fromJSString <$> (js_getHeight (unHTMLEmbedElement self)))+ +foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName ::+        JSRef HTMLEmbedElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLEmbedElement.name Mozilla HTMLEmbedElement.name documentation> +setName ::+        (MonadIO m, ToJSString val) => HTMLEmbedElement -> val -> m ()+setName self val+  = liftIO (js_setName (unHTMLEmbedElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"name\"]" js_getName ::+        JSRef HTMLEmbedElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLEmbedElement.name Mozilla HTMLEmbedElement.name documentation> +getName ::+        (MonadIO m, FromJSString result) => HTMLEmbedElement -> m result+getName self+  = liftIO (fromJSString <$> (js_getName (unHTMLEmbedElement self)))+ +foreign import javascript unsafe "$1[\"src\"] = $2;" js_setSrc ::+        JSRef HTMLEmbedElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLEmbedElement.src Mozilla HTMLEmbedElement.src documentation> +setSrc ::+       (MonadIO m, ToJSString val) => HTMLEmbedElement -> val -> m ()+setSrc self val+  = liftIO (js_setSrc (unHTMLEmbedElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"src\"]" js_getSrc ::+        JSRef HTMLEmbedElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLEmbedElement.src Mozilla HTMLEmbedElement.src documentation> +getSrc ::+       (MonadIO m, FromJSString result) => HTMLEmbedElement -> m result+getSrc self+  = liftIO (fromJSString <$> (js_getSrc (unHTMLEmbedElement self)))+ +foreign import javascript unsafe "$1[\"type\"] = $2;" js_setType ::+        JSRef HTMLEmbedElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLEmbedElement.type Mozilla HTMLEmbedElement.type documentation> +setType ::+        (MonadIO m, ToJSString val) => HTMLEmbedElement -> val -> m ()+setType self val+  = liftIO (js_setType (unHTMLEmbedElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"type\"]" js_getType ::+        JSRef HTMLEmbedElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLEmbedElement.type Mozilla HTMLEmbedElement.type documentation> +getType ::+        (MonadIO m, FromJSString result) => HTMLEmbedElement -> m result+getType self+  = liftIO (fromJSString <$> (js_getType (unHTMLEmbedElement self)))+ +foreign import javascript unsafe "$1[\"width\"] = $2;" js_setWidth+        :: JSRef HTMLEmbedElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLEmbedElement.width Mozilla HTMLEmbedElement.width documentation> +setWidth ::+         (MonadIO m, ToJSString val) => HTMLEmbedElement -> val -> m ()+setWidth self val+  = liftIO (js_setWidth (unHTMLEmbedElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::+        JSRef HTMLEmbedElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLEmbedElement.width Mozilla HTMLEmbedElement.width documentation> +getWidth ::+         (MonadIO m, FromJSString result) => HTMLEmbedElement -> m result+getWidth self+  = liftIO (fromJSString <$> (js_getWidth (unHTMLEmbedElement self)))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLFieldSetElement.hs view
@@ -0,0 +1,139 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.HTMLFieldSetElement+       (js_checkValidity, checkValidity, js_setCustomValidity,+        setCustomValidity, js_setDisabled, setDisabled, js_getDisabled,+        getDisabled, js_getForm, getForm, js_setName, setName, js_getName,+        getName, js_getType, getType, js_getElements, getElements,+        js_getWillValidate, getWillValidate, js_getValidity, getValidity,+        js_getValidationMessage, getValidationMessage, HTMLFieldSetElement,+        castToHTMLFieldSetElement, gTypeHTMLFieldSetElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe+        "($1[\"checkValidity\"]() ? 1 : 0)" js_checkValidity ::+        JSRef HTMLFieldSetElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFieldSetElement.checkValidity Mozilla HTMLFieldSetElement.checkValidity documentation> +checkValidity :: (MonadIO m) => HTMLFieldSetElement -> m Bool+checkValidity self+  = liftIO (js_checkValidity (unHTMLFieldSetElement self))+ +foreign import javascript unsafe "$1[\"setCustomValidity\"]($2)"+        js_setCustomValidity ::+        JSRef HTMLFieldSetElement -> JSRef (Maybe JSString) -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFieldSetElement.setCustomValidity Mozilla HTMLFieldSetElement.setCustomValidity documentation> +setCustomValidity ::+                  (MonadIO m, ToJSString error) =>+                    HTMLFieldSetElement -> Maybe error -> m ()+setCustomValidity self error+  = liftIO+      (js_setCustomValidity (unHTMLFieldSetElement self)+         (toMaybeJSString error))+ +foreign import javascript unsafe "$1[\"disabled\"] = $2;"+        js_setDisabled :: JSRef HTMLFieldSetElement -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFieldSetElement.disabled Mozilla HTMLFieldSetElement.disabled documentation> +setDisabled :: (MonadIO m) => HTMLFieldSetElement -> Bool -> m ()+setDisabled self val+  = liftIO (js_setDisabled (unHTMLFieldSetElement self) val)+ +foreign import javascript unsafe "($1[\"disabled\"] ? 1 : 0)"+        js_getDisabled :: JSRef HTMLFieldSetElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFieldSetElement.disabled Mozilla HTMLFieldSetElement.disabled documentation> +getDisabled :: (MonadIO m) => HTMLFieldSetElement -> m Bool+getDisabled self+  = liftIO (js_getDisabled (unHTMLFieldSetElement self))+ +foreign import javascript unsafe "$1[\"form\"]" js_getForm ::+        JSRef HTMLFieldSetElement -> IO (JSRef HTMLFormElement)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFieldSetElement.form Mozilla HTMLFieldSetElement.form documentation> +getForm ::+        (MonadIO m) => HTMLFieldSetElement -> m (Maybe HTMLFormElement)+getForm self+  = liftIO ((js_getForm (unHTMLFieldSetElement self)) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName ::+        JSRef HTMLFieldSetElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFieldSetElement.name Mozilla HTMLFieldSetElement.name documentation> +setName ::+        (MonadIO m, ToJSString val) => HTMLFieldSetElement -> val -> m ()+setName self val+  = liftIO (js_setName (unHTMLFieldSetElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"name\"]" js_getName ::+        JSRef HTMLFieldSetElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFieldSetElement.name Mozilla HTMLFieldSetElement.name documentation> +getName ::+        (MonadIO m, FromJSString result) => HTMLFieldSetElement -> m result+getName self+  = liftIO+      (fromJSString <$> (js_getName (unHTMLFieldSetElement self)))+ +foreign import javascript unsafe "$1[\"type\"]" js_getType ::+        JSRef HTMLFieldSetElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFieldSetElement.type Mozilla HTMLFieldSetElement.type documentation> +getType ::+        (MonadIO m, FromJSString result) => HTMLFieldSetElement -> m result+getType self+  = liftIO+      (fromJSString <$> (js_getType (unHTMLFieldSetElement self)))+ +foreign import javascript unsafe "$1[\"elements\"]" js_getElements+        :: JSRef HTMLFieldSetElement -> IO (JSRef HTMLCollection)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFieldSetElement.elements Mozilla HTMLFieldSetElement.elements documentation> +getElements ::+            (MonadIO m) => HTMLFieldSetElement -> m (Maybe HTMLCollection)+getElements self+  = liftIO+      ((js_getElements (unHTMLFieldSetElement self)) >>= fromJSRef)+ +foreign import javascript unsafe "($1[\"willValidate\"] ? 1 : 0)"+        js_getWillValidate :: JSRef HTMLFieldSetElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFieldSetElement.willValidate Mozilla HTMLFieldSetElement.willValidate documentation> +getWillValidate :: (MonadIO m) => HTMLFieldSetElement -> m Bool+getWillValidate self+  = liftIO (js_getWillValidate (unHTMLFieldSetElement self))+ +foreign import javascript unsafe "$1[\"validity\"]" js_getValidity+        :: JSRef HTMLFieldSetElement -> IO (JSRef ValidityState)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFieldSetElement.validity Mozilla HTMLFieldSetElement.validity documentation> +getValidity ::+            (MonadIO m) => HTMLFieldSetElement -> m (Maybe ValidityState)+getValidity self+  = liftIO+      ((js_getValidity (unHTMLFieldSetElement self)) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"validationMessage\"]"+        js_getValidationMessage :: JSRef HTMLFieldSetElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFieldSetElement.validationMessage Mozilla HTMLFieldSetElement.validationMessage documentation> +getValidationMessage ::+                     (MonadIO m, FromJSString result) => HTMLFieldSetElement -> m result+getValidationMessage self+  = liftIO+      (fromJSString <$>+         (js_getValidationMessage (unHTMLFieldSetElement self)))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLFontElement.hs view
@@ -0,0 +1,74 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.HTMLFontElement+       (js_setColor, setColor, js_getColor, getColor, js_setFace, setFace,+        js_getFace, getFace, js_setSize, setSize, js_getSize, getSize,+        HTMLFontElement, castToHTMLFontElement, gTypeHTMLFontElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"color\"] = $2;" js_setColor+        :: JSRef HTMLFontElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFontElement.color Mozilla HTMLFontElement.color documentation> +setColor ::+         (MonadIO m, ToJSString val) => HTMLFontElement -> val -> m ()+setColor self val+  = liftIO (js_setColor (unHTMLFontElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"color\"]" js_getColor ::+        JSRef HTMLFontElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFontElement.color Mozilla HTMLFontElement.color documentation> +getColor ::+         (MonadIO m, FromJSString result) => HTMLFontElement -> m result+getColor self+  = liftIO (fromJSString <$> (js_getColor (unHTMLFontElement self)))+ +foreign import javascript unsafe "$1[\"face\"] = $2;" js_setFace ::+        JSRef HTMLFontElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFontElement.face Mozilla HTMLFontElement.face documentation> +setFace ::+        (MonadIO m, ToJSString val) => HTMLFontElement -> val -> m ()+setFace self val+  = liftIO (js_setFace (unHTMLFontElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"face\"]" js_getFace ::+        JSRef HTMLFontElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFontElement.face Mozilla HTMLFontElement.face documentation> +getFace ::+        (MonadIO m, FromJSString result) => HTMLFontElement -> m result+getFace self+  = liftIO (fromJSString <$> (js_getFace (unHTMLFontElement self)))+ +foreign import javascript unsafe "$1[\"size\"] = $2;" js_setSize ::+        JSRef HTMLFontElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFontElement.size Mozilla HTMLFontElement.size documentation> +setSize ::+        (MonadIO m, ToJSString val) => HTMLFontElement -> val -> m ()+setSize self val+  = liftIO (js_setSize (unHTMLFontElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"size\"]" js_getSize ::+        JSRef HTMLFontElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFontElement.size Mozilla HTMLFontElement.size documentation> +getSize ::+        (MonadIO m, FromJSString result) => HTMLFontElement -> m result+getSize self+  = liftIO (fromJSString <$> (js_getSize (unHTMLFontElement self)))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLFormControlsCollection.hs view
@@ -0,0 +1,44 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.HTMLFormControlsCollection+       (js__get, _get, js_namedItem, namedItem,+        HTMLFormControlsCollection, castToHTMLFormControlsCollection,+        gTypeHTMLFormControlsCollection)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"_get\"]($2)" js__get ::+        JSRef HTMLFormControlsCollection -> Word -> IO (JSRef Node)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormControlsCollection._get Mozilla HTMLFormControlsCollection._get documentation> +_get ::+     (MonadIO m) => HTMLFormControlsCollection -> Word -> m (Maybe Node)+_get self index+  = liftIO+      ((js__get (unHTMLFormControlsCollection self) index) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"namedItem\"]($2)"+        js_namedItem ::+        JSRef HTMLFormControlsCollection -> JSString -> IO (JSRef Node)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormControlsCollection.namedItem Mozilla HTMLFormControlsCollection.namedItem documentation> +namedItem ::+          (MonadIO m, ToJSString name) =>+            HTMLFormControlsCollection -> name -> m (Maybe Node)+namedItem self name+  = liftIO+      ((js_namedItem (unHTMLFormControlsCollection self)+          (toJSString name))+         >>= fromJSRef)
+ src/GHCJS/DOM/JSFFI/Generated/HTMLFormElement.hs view
@@ -0,0 +1,314 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.HTMLFormElement+       (js__get, _get, js_submit, submit, js_reset, reset,+        js_checkValidity, checkValidity, js_requestAutocomplete,+        requestAutocomplete, js_setAcceptCharset, setAcceptCharset,+        js_getAcceptCharset, getAcceptCharset, js_setAction, setAction,+        js_getAction, getAction, js_setAutocomplete, setAutocomplete,+        js_getAutocomplete, getAutocomplete, js_setEnctype, setEnctype,+        js_getEnctype, getEnctype, js_setEncoding, setEncoding,+        js_getEncoding, getEncoding, js_setMethod, setMethod, js_getMethod,+        getMethod, js_setName, setName, js_getName, getName,+        js_setNoValidate, setNoValidate, js_getNoValidate, getNoValidate,+        js_setTarget, setTarget, js_getTarget, getTarget, js_getElements,+        getElements, js_getLength, getLength, js_setAutocorrect,+        setAutocorrect, js_getAutocorrect, getAutocorrect,+        js_setAutocapitalize, setAutocapitalize, js_getAutocapitalize,+        getAutocapitalize, autocomplete, autocompleteerror,+        HTMLFormElement, castToHTMLFormElement, gTypeHTMLFormElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"_get\"]($2)" js__get ::+        JSRef HTMLFormElement -> Word -> IO (JSRef Element)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement._get Mozilla HTMLFormElement._get documentation> +_get :: (MonadIO m) => HTMLFormElement -> Word -> m (Maybe Element)+_get self index+  = liftIO ((js__get (unHTMLFormElement self) index) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"submit\"]()" js_submit ::+        JSRef HTMLFormElement -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.submit Mozilla HTMLFormElement.submit documentation> +submit :: (MonadIO m) => HTMLFormElement -> m ()+submit self = liftIO (js_submit (unHTMLFormElement self))+ +foreign import javascript unsafe "$1[\"reset\"]()" js_reset ::+        JSRef HTMLFormElement -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.reset Mozilla HTMLFormElement.reset documentation> +reset :: (MonadIO m) => HTMLFormElement -> m ()+reset self = liftIO (js_reset (unHTMLFormElement self))+ +foreign import javascript unsafe+        "($1[\"checkValidity\"]() ? 1 : 0)" js_checkValidity ::+        JSRef HTMLFormElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.checkValidity Mozilla HTMLFormElement.checkValidity documentation> +checkValidity :: (MonadIO m) => HTMLFormElement -> m Bool+checkValidity self+  = liftIO (js_checkValidity (unHTMLFormElement self))+ +foreign import javascript unsafe "$1[\"requestAutocomplete\"]()"+        js_requestAutocomplete :: JSRef HTMLFormElement -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.requestAutocomplete Mozilla HTMLFormElement.requestAutocomplete documentation> +requestAutocomplete :: (MonadIO m) => HTMLFormElement -> m ()+requestAutocomplete self+  = liftIO (js_requestAutocomplete (unHTMLFormElement self))+ +foreign import javascript unsafe "$1[\"acceptCharset\"] = $2;"+        js_setAcceptCharset :: JSRef HTMLFormElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.acceptCharset Mozilla HTMLFormElement.acceptCharset documentation> +setAcceptCharset ::+                 (MonadIO m, ToJSString val) => HTMLFormElement -> val -> m ()+setAcceptCharset self val+  = liftIO+      (js_setAcceptCharset (unHTMLFormElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"acceptCharset\"]"+        js_getAcceptCharset :: JSRef HTMLFormElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.acceptCharset Mozilla HTMLFormElement.acceptCharset documentation> +getAcceptCharset ::+                 (MonadIO m, FromJSString result) => HTMLFormElement -> m result+getAcceptCharset self+  = liftIO+      (fromJSString <$> (js_getAcceptCharset (unHTMLFormElement self)))+ +foreign import javascript unsafe "$1[\"action\"] = $2;"+        js_setAction :: JSRef HTMLFormElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.action Mozilla HTMLFormElement.action documentation> +setAction ::+          (MonadIO m, ToJSString val) => HTMLFormElement -> val -> m ()+setAction self val+  = liftIO (js_setAction (unHTMLFormElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"action\"]" js_getAction ::+        JSRef HTMLFormElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.action Mozilla HTMLFormElement.action documentation> +getAction ::+          (MonadIO m, FromJSString result) => HTMLFormElement -> m result+getAction self+  = liftIO (fromJSString <$> (js_getAction (unHTMLFormElement self)))+ +foreign import javascript unsafe "$1[\"autocomplete\"] = $2;"+        js_setAutocomplete :: JSRef HTMLFormElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.autocomplete Mozilla HTMLFormElement.autocomplete documentation> +setAutocomplete ::+                (MonadIO m, ToJSString val) => HTMLFormElement -> val -> m ()+setAutocomplete self val+  = liftIO+      (js_setAutocomplete (unHTMLFormElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"autocomplete\"]"+        js_getAutocomplete :: JSRef HTMLFormElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.autocomplete Mozilla HTMLFormElement.autocomplete documentation> +getAutocomplete ::+                (MonadIO m, FromJSString result) => HTMLFormElement -> m result+getAutocomplete self+  = liftIO+      (fromJSString <$> (js_getAutocomplete (unHTMLFormElement self)))+ +foreign import javascript unsafe "$1[\"enctype\"] = $2;"+        js_setEnctype ::+        JSRef HTMLFormElement -> JSRef (Maybe JSString) -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.enctype Mozilla HTMLFormElement.enctype documentation> +setEnctype ::+           (MonadIO m, ToJSString val) => HTMLFormElement -> Maybe val -> m ()+setEnctype self val+  = liftIO+      (js_setEnctype (unHTMLFormElement self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"enctype\"]" js_getEnctype ::+        JSRef HTMLFormElement -> IO (JSRef (Maybe JSString))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.enctype Mozilla HTMLFormElement.enctype documentation> +getEnctype ::+           (MonadIO m, FromJSString result) =>+             HTMLFormElement -> m (Maybe result)+getEnctype self+  = liftIO+      (fromMaybeJSString <$> (js_getEnctype (unHTMLFormElement self)))+ +foreign import javascript unsafe "$1[\"encoding\"] = $2;"+        js_setEncoding ::+        JSRef HTMLFormElement -> JSRef (Maybe JSString) -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.encoding Mozilla HTMLFormElement.encoding documentation> +setEncoding ::+            (MonadIO m, ToJSString val) => HTMLFormElement -> Maybe val -> m ()+setEncoding self val+  = liftIO+      (js_setEncoding (unHTMLFormElement self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"encoding\"]" js_getEncoding+        :: JSRef HTMLFormElement -> IO (JSRef (Maybe JSString))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.encoding Mozilla HTMLFormElement.encoding documentation> +getEncoding ::+            (MonadIO m, FromJSString result) =>+              HTMLFormElement -> m (Maybe result)+getEncoding self+  = liftIO+      (fromMaybeJSString <$> (js_getEncoding (unHTMLFormElement self)))+ +foreign import javascript unsafe "$1[\"method\"] = $2;"+        js_setMethod ::+        JSRef HTMLFormElement -> JSRef (Maybe JSString) -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.method Mozilla HTMLFormElement.method documentation> +setMethod ::+          (MonadIO m, ToJSString val) => HTMLFormElement -> Maybe val -> m ()+setMethod self val+  = liftIO+      (js_setMethod (unHTMLFormElement self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"method\"]" js_getMethod ::+        JSRef HTMLFormElement -> IO (JSRef (Maybe JSString))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.method Mozilla HTMLFormElement.method documentation> +getMethod ::+          (MonadIO m, FromJSString result) =>+            HTMLFormElement -> m (Maybe result)+getMethod self+  = liftIO+      (fromMaybeJSString <$> (js_getMethod (unHTMLFormElement self)))+ +foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName ::+        JSRef HTMLFormElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.name Mozilla HTMLFormElement.name documentation> +setName ::+        (MonadIO m, ToJSString val) => HTMLFormElement -> val -> m ()+setName self val+  = liftIO (js_setName (unHTMLFormElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"name\"]" js_getName ::+        JSRef HTMLFormElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.name Mozilla HTMLFormElement.name documentation> +getName ::+        (MonadIO m, FromJSString result) => HTMLFormElement -> m result+getName self+  = liftIO (fromJSString <$> (js_getName (unHTMLFormElement self)))+ +foreign import javascript unsafe "$1[\"noValidate\"] = $2;"+        js_setNoValidate :: JSRef HTMLFormElement -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.noValidate Mozilla HTMLFormElement.noValidate documentation> +setNoValidate :: (MonadIO m) => HTMLFormElement -> Bool -> m ()+setNoValidate self val+  = liftIO (js_setNoValidate (unHTMLFormElement self) val)+ +foreign import javascript unsafe "($1[\"noValidate\"] ? 1 : 0)"+        js_getNoValidate :: JSRef HTMLFormElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.noValidate Mozilla HTMLFormElement.noValidate documentation> +getNoValidate :: (MonadIO m) => HTMLFormElement -> m Bool+getNoValidate self+  = liftIO (js_getNoValidate (unHTMLFormElement self))+ +foreign import javascript unsafe "$1[\"target\"] = $2;"+        js_setTarget :: JSRef HTMLFormElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.target Mozilla HTMLFormElement.target documentation> +setTarget ::+          (MonadIO m, ToJSString val) => HTMLFormElement -> val -> m ()+setTarget self val+  = liftIO (js_setTarget (unHTMLFormElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"target\"]" js_getTarget ::+        JSRef HTMLFormElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.target Mozilla HTMLFormElement.target documentation> +getTarget ::+          (MonadIO m, FromJSString result) => HTMLFormElement -> m result+getTarget self+  = liftIO (fromJSString <$> (js_getTarget (unHTMLFormElement self)))+ +foreign import javascript unsafe "$1[\"elements\"]" js_getElements+        :: JSRef HTMLFormElement -> IO (JSRef HTMLCollection)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.elements Mozilla HTMLFormElement.elements documentation> +getElements ::+            (MonadIO m) => HTMLFormElement -> m (Maybe HTMLCollection)+getElements self+  = liftIO ((js_getElements (unHTMLFormElement self)) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"length\"]" js_getLength ::+        JSRef HTMLFormElement -> IO Int++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.length Mozilla HTMLFormElement.length documentation> +getLength :: (MonadIO m) => HTMLFormElement -> m Int+getLength self = liftIO (js_getLength (unHTMLFormElement self))+ +foreign import javascript unsafe "$1[\"autocorrect\"] = $2;"+        js_setAutocorrect :: JSRef HTMLFormElement -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.autocorrect Mozilla HTMLFormElement.autocorrect documentation> +setAutocorrect :: (MonadIO m) => HTMLFormElement -> Bool -> m ()+setAutocorrect self val+  = liftIO (js_setAutocorrect (unHTMLFormElement self) val)+ +foreign import javascript unsafe "($1[\"autocorrect\"] ? 1 : 0)"+        js_getAutocorrect :: JSRef HTMLFormElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.autocorrect Mozilla HTMLFormElement.autocorrect documentation> +getAutocorrect :: (MonadIO m) => HTMLFormElement -> m Bool+getAutocorrect self+  = liftIO (js_getAutocorrect (unHTMLFormElement self))+ +foreign import javascript unsafe "$1[\"autocapitalize\"] = $2;"+        js_setAutocapitalize ::+        JSRef HTMLFormElement -> JSRef (Maybe JSString) -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.autocapitalize Mozilla HTMLFormElement.autocapitalize documentation> +setAutocapitalize ::+                  (MonadIO m, ToJSString val) => HTMLFormElement -> Maybe val -> m ()+setAutocapitalize self val+  = liftIO+      (js_setAutocapitalize (unHTMLFormElement self)+         (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"autocapitalize\"]"+        js_getAutocapitalize ::+        JSRef HTMLFormElement -> IO (JSRef (Maybe JSString))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.autocapitalize Mozilla HTMLFormElement.autocapitalize documentation> +getAutocapitalize ::+                  (MonadIO m, FromJSString result) =>+                    HTMLFormElement -> m (Maybe result)+getAutocapitalize self+  = liftIO+      (fromMaybeJSString <$>+         (js_getAutocapitalize (unHTMLFormElement self)))++-- | <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/GHCJS/DOM/JSFFI/Generated/HTMLFrameElement.hs view
@@ -0,0 +1,251 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.HTMLFrameElement+       (js_getSVGDocument, getSVGDocument, js_setFrameBorder,+        setFrameBorder, js_getFrameBorder, getFrameBorder, js_setLongDesc,+        setLongDesc, js_getLongDesc, getLongDesc, js_setMarginHeight,+        setMarginHeight, js_getMarginHeight, getMarginHeight,+        js_setMarginWidth, setMarginWidth, js_getMarginWidth,+        getMarginWidth, js_setName, setName, js_getName, getName,+        js_setNoResize, setNoResize, js_getNoResize, getNoResize,+        js_setScrolling, setScrolling, js_getScrolling, getScrolling,+        js_setSrc, setSrc, js_getSrc, getSrc, js_getContentDocument,+        getContentDocument, js_getContentWindow, getContentWindow,+        js_setLocation, setLocation, js_getLocation, getLocation,+        js_getWidth, getWidth, js_getHeight, getHeight, HTMLFrameElement,+        castToHTMLFrameElement, gTypeHTMLFrameElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"getSVGDocument\"]()"+        js_getSVGDocument ::+        JSRef HTMLFrameElement -> IO (JSRef SVGDocument)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.getSVGDocument Mozilla HTMLFrameElement.getSVGDocument documentation> +getSVGDocument ::+               (MonadIO m) => HTMLFrameElement -> m (Maybe SVGDocument)+getSVGDocument self+  = liftIO+      ((js_getSVGDocument (unHTMLFrameElement self)) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"frameBorder\"] = $2;"+        js_setFrameBorder :: JSRef HTMLFrameElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.frameBorder Mozilla HTMLFrameElement.frameBorder documentation> +setFrameBorder ::+               (MonadIO m, ToJSString val) => HTMLFrameElement -> val -> m ()+setFrameBorder self val+  = liftIO+      (js_setFrameBorder (unHTMLFrameElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"frameBorder\"]"+        js_getFrameBorder :: JSRef HTMLFrameElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.frameBorder Mozilla HTMLFrameElement.frameBorder documentation> +getFrameBorder ::+               (MonadIO m, FromJSString result) => HTMLFrameElement -> m result+getFrameBorder self+  = liftIO+      (fromJSString <$> (js_getFrameBorder (unHTMLFrameElement self)))+ +foreign import javascript unsafe "$1[\"longDesc\"] = $2;"+        js_setLongDesc :: JSRef HTMLFrameElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.longDesc Mozilla HTMLFrameElement.longDesc documentation> +setLongDesc ::+            (MonadIO m, ToJSString val) => HTMLFrameElement -> val -> m ()+setLongDesc self val+  = liftIO+      (js_setLongDesc (unHTMLFrameElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"longDesc\"]" js_getLongDesc+        :: JSRef HTMLFrameElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.longDesc Mozilla HTMLFrameElement.longDesc documentation> +getLongDesc ::+            (MonadIO m, FromJSString result) => HTMLFrameElement -> m result+getLongDesc self+  = liftIO+      (fromJSString <$> (js_getLongDesc (unHTMLFrameElement self)))+ +foreign import javascript unsafe "$1[\"marginHeight\"] = $2;"+        js_setMarginHeight :: JSRef HTMLFrameElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.marginHeight Mozilla HTMLFrameElement.marginHeight documentation> +setMarginHeight ::+                (MonadIO m, ToJSString val) => HTMLFrameElement -> val -> m ()+setMarginHeight self val+  = liftIO+      (js_setMarginHeight (unHTMLFrameElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"marginHeight\"]"+        js_getMarginHeight :: JSRef HTMLFrameElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.marginHeight Mozilla HTMLFrameElement.marginHeight documentation> +getMarginHeight ::+                (MonadIO m, FromJSString result) => HTMLFrameElement -> m result+getMarginHeight self+  = liftIO+      (fromJSString <$> (js_getMarginHeight (unHTMLFrameElement self)))+ +foreign import javascript unsafe "$1[\"marginWidth\"] = $2;"+        js_setMarginWidth :: JSRef HTMLFrameElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.marginWidth Mozilla HTMLFrameElement.marginWidth documentation> +setMarginWidth ::+               (MonadIO m, ToJSString val) => HTMLFrameElement -> val -> m ()+setMarginWidth self val+  = liftIO+      (js_setMarginWidth (unHTMLFrameElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"marginWidth\"]"+        js_getMarginWidth :: JSRef HTMLFrameElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.marginWidth Mozilla HTMLFrameElement.marginWidth documentation> +getMarginWidth ::+               (MonadIO m, FromJSString result) => HTMLFrameElement -> m result+getMarginWidth self+  = liftIO+      (fromJSString <$> (js_getMarginWidth (unHTMLFrameElement self)))+ +foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName ::+        JSRef HTMLFrameElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.name Mozilla HTMLFrameElement.name documentation> +setName ::+        (MonadIO m, ToJSString val) => HTMLFrameElement -> val -> m ()+setName self val+  = liftIO (js_setName (unHTMLFrameElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"name\"]" js_getName ::+        JSRef HTMLFrameElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.name Mozilla HTMLFrameElement.name documentation> +getName ::+        (MonadIO m, FromJSString result) => HTMLFrameElement -> m result+getName self+  = liftIO (fromJSString <$> (js_getName (unHTMLFrameElement self)))+ +foreign import javascript unsafe "$1[\"noResize\"] = $2;"+        js_setNoResize :: JSRef HTMLFrameElement -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.noResize Mozilla HTMLFrameElement.noResize documentation> +setNoResize :: (MonadIO m) => HTMLFrameElement -> Bool -> m ()+setNoResize self val+  = liftIO (js_setNoResize (unHTMLFrameElement self) val)+ +foreign import javascript unsafe "($1[\"noResize\"] ? 1 : 0)"+        js_getNoResize :: JSRef HTMLFrameElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.noResize Mozilla HTMLFrameElement.noResize documentation> +getNoResize :: (MonadIO m) => HTMLFrameElement -> m Bool+getNoResize self+  = liftIO (js_getNoResize (unHTMLFrameElement self))+ +foreign import javascript unsafe "$1[\"scrolling\"] = $2;"+        js_setScrolling :: JSRef HTMLFrameElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.scrolling Mozilla HTMLFrameElement.scrolling documentation> +setScrolling ::+             (MonadIO m, ToJSString val) => HTMLFrameElement -> val -> m ()+setScrolling self val+  = liftIO+      (js_setScrolling (unHTMLFrameElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"scrolling\"]"+        js_getScrolling :: JSRef HTMLFrameElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.scrolling Mozilla HTMLFrameElement.scrolling documentation> +getScrolling ::+             (MonadIO m, FromJSString result) => HTMLFrameElement -> m result+getScrolling self+  = liftIO+      (fromJSString <$> (js_getScrolling (unHTMLFrameElement self)))+ +foreign import javascript unsafe "$1[\"src\"] = $2;" js_setSrc ::+        JSRef HTMLFrameElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.src Mozilla HTMLFrameElement.src documentation> +setSrc ::+       (MonadIO m, ToJSString val) => HTMLFrameElement -> val -> m ()+setSrc self val+  = liftIO (js_setSrc (unHTMLFrameElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"src\"]" js_getSrc ::+        JSRef HTMLFrameElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.src Mozilla HTMLFrameElement.src documentation> +getSrc ::+       (MonadIO m, FromJSString result) => HTMLFrameElement -> m result+getSrc self+  = liftIO (fromJSString <$> (js_getSrc (unHTMLFrameElement self)))+ +foreign import javascript unsafe "$1[\"contentDocument\"]"+        js_getContentDocument ::+        JSRef HTMLFrameElement -> IO (JSRef Document)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.contentDocument Mozilla HTMLFrameElement.contentDocument documentation> +getContentDocument ::+                   (MonadIO m) => HTMLFrameElement -> m (Maybe Document)+getContentDocument self+  = liftIO+      ((js_getContentDocument (unHTMLFrameElement self)) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"contentWindow\"]"+        js_getContentWindow :: JSRef HTMLFrameElement -> IO (JSRef Window)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.contentWindow Mozilla HTMLFrameElement.contentWindow documentation> +getContentWindow ::+                 (MonadIO m) => HTMLFrameElement -> m (Maybe Window)+getContentWindow self+  = liftIO+      ((js_getContentWindow (unHTMLFrameElement self)) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"location\"] = $2;"+        js_setLocation ::+        JSRef HTMLFrameElement -> JSRef (Maybe JSString) -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.location Mozilla HTMLFrameElement.location documentation> +setLocation ::+            (MonadIO m, ToJSString val) =>+              HTMLFrameElement -> Maybe val -> m ()+setLocation self val+  = liftIO+      (js_setLocation (unHTMLFrameElement self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"location\"]" js_getLocation+        :: JSRef HTMLFrameElement -> IO (JSRef (Maybe JSString))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.location Mozilla HTMLFrameElement.location documentation> +getLocation ::+            (MonadIO m, FromJSString result) =>+              HTMLFrameElement -> m (Maybe result)+getLocation self+  = liftIO+      (fromMaybeJSString <$> (js_getLocation (unHTMLFrameElement self)))+ +foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::+        JSRef HTMLFrameElement -> IO Int++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.width Mozilla HTMLFrameElement.width documentation> +getWidth :: (MonadIO m) => HTMLFrameElement -> m Int+getWidth self = liftIO (js_getWidth (unHTMLFrameElement self))+ +foreign import javascript unsafe "$1[\"height\"]" js_getHeight ::+        JSRef HTMLFrameElement -> IO Int++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.height Mozilla HTMLFrameElement.height documentation> +getHeight :: (MonadIO m) => HTMLFrameElement -> m Int+getHeight self = liftIO (js_getHeight (unHTMLFrameElement self))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLFrameSetElement.hs view
@@ -0,0 +1,117 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.HTMLFrameSetElement+       (js_setCols, setCols, js_getCols, getCols, js_setRows, setRows,+        js_getRows, getRows, beforeUnload, hashChange, message, offline,+        online, popState, resize, storage, unload, orientationChange, blur,+        error, focus, load, HTMLFrameSetElement, castToHTMLFrameSetElement,+        gTypeHTMLFrameSetElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"cols\"] = $2;" js_setCols ::+        JSRef HTMLFrameSetElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameSetElement.cols Mozilla HTMLFrameSetElement.cols documentation> +setCols ::+        (MonadIO m, ToJSString val) => HTMLFrameSetElement -> val -> m ()+setCols self val+  = liftIO (js_setCols (unHTMLFrameSetElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"cols\"]" js_getCols ::+        JSRef HTMLFrameSetElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameSetElement.cols Mozilla HTMLFrameSetElement.cols documentation> +getCols ::+        (MonadIO m, FromJSString result) => HTMLFrameSetElement -> m result+getCols self+  = liftIO+      (fromJSString <$> (js_getCols (unHTMLFrameSetElement self)))+ +foreign import javascript unsafe "$1[\"rows\"] = $2;" js_setRows ::+        JSRef HTMLFrameSetElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameSetElement.rows Mozilla HTMLFrameSetElement.rows documentation> +setRows ::+        (MonadIO m, ToJSString val) => HTMLFrameSetElement -> val -> m ()+setRows self val+  = liftIO (js_setRows (unHTMLFrameSetElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"rows\"]" js_getRows ::+        JSRef HTMLFrameSetElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameSetElement.rows Mozilla HTMLFrameSetElement.rows documentation> +getRows ::+        (MonadIO m, FromJSString result) => HTMLFrameSetElement -> m result+getRows self+  = liftIO+      (fromJSString <$> (js_getRows (unHTMLFrameSetElement self)))++-- | <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/GHCJS/DOM/JSFFI/Generated/HTMLHRElement.hs view
@@ -0,0 +1,90 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.HTMLHRElement+       (js_setAlign, setAlign, js_getAlign, getAlign, js_setNoShade,+        setNoShade, js_getNoShade, getNoShade, js_setSize, setSize,+        js_getSize, getSize, js_setWidth, setWidth, js_getWidth, getWidth,+        HTMLHRElement, castToHTMLHRElement, gTypeHTMLHRElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign+        :: JSRef HTMLHRElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHRElement.align Mozilla HTMLHRElement.align documentation> +setAlign ::+         (MonadIO m, ToJSString val) => HTMLHRElement -> val -> m ()+setAlign self val+  = liftIO (js_setAlign (unHTMLHRElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"align\"]" js_getAlign ::+        JSRef HTMLHRElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHRElement.align Mozilla HTMLHRElement.align documentation> +getAlign ::+         (MonadIO m, FromJSString result) => HTMLHRElement -> m result+getAlign self+  = liftIO (fromJSString <$> (js_getAlign (unHTMLHRElement self)))+ +foreign import javascript unsafe "$1[\"noShade\"] = $2;"+        js_setNoShade :: JSRef HTMLHRElement -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHRElement.noShade Mozilla HTMLHRElement.noShade documentation> +setNoShade :: (MonadIO m) => HTMLHRElement -> Bool -> m ()+setNoShade self val+  = liftIO (js_setNoShade (unHTMLHRElement self) val)+ +foreign import javascript unsafe "($1[\"noShade\"] ? 1 : 0)"+        js_getNoShade :: JSRef HTMLHRElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHRElement.noShade Mozilla HTMLHRElement.noShade documentation> +getNoShade :: (MonadIO m) => HTMLHRElement -> m Bool+getNoShade self = liftIO (js_getNoShade (unHTMLHRElement self))+ +foreign import javascript unsafe "$1[\"size\"] = $2;" js_setSize ::+        JSRef HTMLHRElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHRElement.size Mozilla HTMLHRElement.size documentation> +setSize ::+        (MonadIO m, ToJSString val) => HTMLHRElement -> val -> m ()+setSize self val+  = liftIO (js_setSize (unHTMLHRElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"size\"]" js_getSize ::+        JSRef HTMLHRElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHRElement.size Mozilla HTMLHRElement.size documentation> +getSize ::+        (MonadIO m, FromJSString result) => HTMLHRElement -> m result+getSize self+  = liftIO (fromJSString <$> (js_getSize (unHTMLHRElement self)))+ +foreign import javascript unsafe "$1[\"width\"] = $2;" js_setWidth+        :: JSRef HTMLHRElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHRElement.width Mozilla HTMLHRElement.width documentation> +setWidth ::+         (MonadIO m, ToJSString val) => HTMLHRElement -> val -> m ()+setWidth self val+  = liftIO (js_setWidth (unHTMLHRElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::+        JSRef HTMLHRElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHRElement.width Mozilla HTMLHRElement.width documentation> +getWidth ::+         (MonadIO m, FromJSString result) => HTMLHRElement -> m result+getWidth self+  = liftIO (fromJSString <$> (js_getWidth (unHTMLHRElement self)))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLHeadElement.hs view
@@ -0,0 +1,38 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.HTMLHeadElement+       (js_setProfile, setProfile, js_getProfile, getProfile,+        HTMLHeadElement, castToHTMLHeadElement, gTypeHTMLHeadElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"profile\"] = $2;"+        js_setProfile :: JSRef HTMLHeadElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHeadElement.profile Mozilla HTMLHeadElement.profile documentation> +setProfile ::+           (MonadIO m, ToJSString val) => HTMLHeadElement -> val -> m ()+setProfile self val+  = liftIO (js_setProfile (unHTMLHeadElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"profile\"]" js_getProfile ::+        JSRef HTMLHeadElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHeadElement.profile Mozilla HTMLHeadElement.profile documentation> +getProfile ::+           (MonadIO m, FromJSString result) => HTMLHeadElement -> m result+getProfile self+  = liftIO+      (fromJSString <$> (js_getProfile (unHTMLHeadElement self)))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLHeadingElement.hs view
@@ -0,0 +1,38 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.HTMLHeadingElement+       (js_setAlign, setAlign, js_getAlign, getAlign, HTMLHeadingElement,+        castToHTMLHeadingElement, gTypeHTMLHeadingElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign+        :: JSRef HTMLHeadingElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHeadingElement.align Mozilla HTMLHeadingElement.align documentation> +setAlign ::+         (MonadIO m, ToJSString val) => HTMLHeadingElement -> val -> m ()+setAlign self val+  = liftIO (js_setAlign (unHTMLHeadingElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"align\"]" js_getAlign ::+        JSRef HTMLHeadingElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHeadingElement.align Mozilla HTMLHeadingElement.align documentation> +getAlign ::+         (MonadIO m, FromJSString result) => HTMLHeadingElement -> m result+getAlign self+  = liftIO+      (fromJSString <$> (js_getAlign (unHTMLHeadingElement self)))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLHtmlElement.hs view
@@ -0,0 +1,58 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.HTMLHtmlElement+       (js_setVersion, setVersion, js_getVersion, getVersion,+        js_setManifest, setManifest, js_getManifest, getManifest,+        HTMLHtmlElement, castToHTMLHtmlElement, gTypeHTMLHtmlElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"version\"] = $2;"+        js_setVersion :: JSRef HTMLHtmlElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHtmlElement.version Mozilla HTMLHtmlElement.version documentation> +setVersion ::+           (MonadIO m, ToJSString val) => HTMLHtmlElement -> val -> m ()+setVersion self val+  = liftIO (js_setVersion (unHTMLHtmlElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"version\"]" js_getVersion ::+        JSRef HTMLHtmlElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHtmlElement.version Mozilla HTMLHtmlElement.version documentation> +getVersion ::+           (MonadIO m, FromJSString result) => HTMLHtmlElement -> m result+getVersion self+  = liftIO+      (fromJSString <$> (js_getVersion (unHTMLHtmlElement self)))+ +foreign import javascript unsafe "$1[\"manifest\"] = $2;"+        js_setManifest :: JSRef HTMLHtmlElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHtmlElement.manifest Mozilla HTMLHtmlElement.manifest documentation> +setManifest ::+            (MonadIO m, ToJSString val) => HTMLHtmlElement -> val -> m ()+setManifest self val+  = liftIO (js_setManifest (unHTMLHtmlElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"manifest\"]" js_getManifest+        :: JSRef HTMLHtmlElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHtmlElement.manifest Mozilla HTMLHtmlElement.manifest documentation> +getManifest ::+            (MonadIO m, FromJSString result) => HTMLHtmlElement -> m result+getManifest self+  = liftIO+      (fromJSString <$> (js_getManifest (unHTMLHtmlElement self)))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLIFrameElement.hs view
@@ -0,0 +1,296 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.HTMLIFrameElement+       (js_getSVGDocument, getSVGDocument, js_setAlign, setAlign,+        js_getAlign, getAlign, js_setFrameBorder, setFrameBorder,+        js_getFrameBorder, getFrameBorder, js_setHeight, setHeight,+        js_getHeight, getHeight, js_setLongDesc, setLongDesc,+        js_getLongDesc, getLongDesc, js_setMarginHeight, setMarginHeight,+        js_getMarginHeight, getMarginHeight, js_setMarginWidth,+        setMarginWidth, js_getMarginWidth, getMarginWidth, js_setName,+        setName, js_getName, getName, js_setSandbox, setSandbox,+        js_getSandbox, getSandbox, js_setScrolling, setScrolling,+        js_getScrolling, getScrolling, js_setSrc, setSrc, js_getSrc,+        getSrc, js_setSrcdoc, setSrcdoc, js_getSrcdoc, getSrcdoc,+        js_setWidth, setWidth, js_getWidth, getWidth,+        js_getContentDocument, getContentDocument, js_getContentWindow,+        getContentWindow, HTMLIFrameElement, castToHTMLIFrameElement,+        gTypeHTMLIFrameElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"getSVGDocument\"]()"+        js_getSVGDocument ::+        JSRef HTMLIFrameElement -> IO (JSRef SVGDocument)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.getSVGDocument Mozilla HTMLIFrameElement.getSVGDocument documentation> +getSVGDocument ::+               (MonadIO m) => HTMLIFrameElement -> m (Maybe SVGDocument)+getSVGDocument self+  = liftIO+      ((js_getSVGDocument (unHTMLIFrameElement self)) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign+        :: JSRef HTMLIFrameElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.align Mozilla HTMLIFrameElement.align documentation> +setAlign ::+         (MonadIO m, ToJSString val) => HTMLIFrameElement -> val -> m ()+setAlign self val+  = liftIO (js_setAlign (unHTMLIFrameElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"align\"]" js_getAlign ::+        JSRef HTMLIFrameElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.align Mozilla HTMLIFrameElement.align documentation> +getAlign ::+         (MonadIO m, FromJSString result) => HTMLIFrameElement -> m result+getAlign self+  = liftIO+      (fromJSString <$> (js_getAlign (unHTMLIFrameElement self)))+ +foreign import javascript unsafe "$1[\"frameBorder\"] = $2;"+        js_setFrameBorder :: JSRef HTMLIFrameElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.frameBorder Mozilla HTMLIFrameElement.frameBorder documentation> +setFrameBorder ::+               (MonadIO m, ToJSString val) => HTMLIFrameElement -> val -> m ()+setFrameBorder self val+  = liftIO+      (js_setFrameBorder (unHTMLIFrameElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"frameBorder\"]"+        js_getFrameBorder :: JSRef HTMLIFrameElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.frameBorder Mozilla HTMLIFrameElement.frameBorder documentation> +getFrameBorder ::+               (MonadIO m, FromJSString result) => HTMLIFrameElement -> m result+getFrameBorder self+  = liftIO+      (fromJSString <$> (js_getFrameBorder (unHTMLIFrameElement self)))+ +foreign import javascript unsafe "$1[\"height\"] = $2;"+        js_setHeight :: JSRef HTMLIFrameElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.height Mozilla HTMLIFrameElement.height documentation> +setHeight ::+          (MonadIO m, ToJSString val) => HTMLIFrameElement -> val -> m ()+setHeight self val+  = liftIO (js_setHeight (unHTMLIFrameElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"height\"]" js_getHeight ::+        JSRef HTMLIFrameElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.height Mozilla HTMLIFrameElement.height documentation> +getHeight ::+          (MonadIO m, FromJSString result) => HTMLIFrameElement -> m result+getHeight self+  = liftIO+      (fromJSString <$> (js_getHeight (unHTMLIFrameElement self)))+ +foreign import javascript unsafe "$1[\"longDesc\"] = $2;"+        js_setLongDesc :: JSRef HTMLIFrameElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.longDesc Mozilla HTMLIFrameElement.longDesc documentation> +setLongDesc ::+            (MonadIO m, ToJSString val) => HTMLIFrameElement -> val -> m ()+setLongDesc self val+  = liftIO+      (js_setLongDesc (unHTMLIFrameElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"longDesc\"]" js_getLongDesc+        :: JSRef HTMLIFrameElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.longDesc Mozilla HTMLIFrameElement.longDesc documentation> +getLongDesc ::+            (MonadIO m, FromJSString result) => HTMLIFrameElement -> m result+getLongDesc self+  = liftIO+      (fromJSString <$> (js_getLongDesc (unHTMLIFrameElement self)))+ +foreign import javascript unsafe "$1[\"marginHeight\"] = $2;"+        js_setMarginHeight :: JSRef HTMLIFrameElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.marginHeight Mozilla HTMLIFrameElement.marginHeight documentation> +setMarginHeight ::+                (MonadIO m, ToJSString val) => HTMLIFrameElement -> val -> m ()+setMarginHeight self val+  = liftIO+      (js_setMarginHeight (unHTMLIFrameElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"marginHeight\"]"+        js_getMarginHeight :: JSRef HTMLIFrameElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.marginHeight Mozilla HTMLIFrameElement.marginHeight documentation> +getMarginHeight ::+                (MonadIO m, FromJSString result) => HTMLIFrameElement -> m result+getMarginHeight self+  = liftIO+      (fromJSString <$> (js_getMarginHeight (unHTMLIFrameElement self)))+ +foreign import javascript unsafe "$1[\"marginWidth\"] = $2;"+        js_setMarginWidth :: JSRef HTMLIFrameElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.marginWidth Mozilla HTMLIFrameElement.marginWidth documentation> +setMarginWidth ::+               (MonadIO m, ToJSString val) => HTMLIFrameElement -> val -> m ()+setMarginWidth self val+  = liftIO+      (js_setMarginWidth (unHTMLIFrameElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"marginWidth\"]"+        js_getMarginWidth :: JSRef HTMLIFrameElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.marginWidth Mozilla HTMLIFrameElement.marginWidth documentation> +getMarginWidth ::+               (MonadIO m, FromJSString result) => HTMLIFrameElement -> m result+getMarginWidth self+  = liftIO+      (fromJSString <$> (js_getMarginWidth (unHTMLIFrameElement self)))+ +foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName ::+        JSRef HTMLIFrameElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.name Mozilla HTMLIFrameElement.name documentation> +setName ::+        (MonadIO m, ToJSString val) => HTMLIFrameElement -> val -> m ()+setName self val+  = liftIO (js_setName (unHTMLIFrameElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"name\"]" js_getName ::+        JSRef HTMLIFrameElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.name Mozilla HTMLIFrameElement.name documentation> +getName ::+        (MonadIO m, FromJSString result) => HTMLIFrameElement -> m result+getName self+  = liftIO (fromJSString <$> (js_getName (unHTMLIFrameElement self)))+ +foreign import javascript unsafe "$1[\"sandbox\"] = $2;"+        js_setSandbox :: JSRef HTMLIFrameElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.sandbox Mozilla HTMLIFrameElement.sandbox documentation> +setSandbox ::+           (MonadIO m, ToJSString val) => HTMLIFrameElement -> val -> m ()+setSandbox self val+  = liftIO+      (js_setSandbox (unHTMLIFrameElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"sandbox\"]" js_getSandbox ::+        JSRef HTMLIFrameElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.sandbox Mozilla HTMLIFrameElement.sandbox documentation> +getSandbox ::+           (MonadIO m, FromJSString result) => HTMLIFrameElement -> m result+getSandbox self+  = liftIO+      (fromJSString <$> (js_getSandbox (unHTMLIFrameElement self)))+ +foreign import javascript unsafe "$1[\"scrolling\"] = $2;"+        js_setScrolling :: JSRef HTMLIFrameElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.scrolling Mozilla HTMLIFrameElement.scrolling documentation> +setScrolling ::+             (MonadIO m, ToJSString val) => HTMLIFrameElement -> val -> m ()+setScrolling self val+  = liftIO+      (js_setScrolling (unHTMLIFrameElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"scrolling\"]"+        js_getScrolling :: JSRef HTMLIFrameElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.scrolling Mozilla HTMLIFrameElement.scrolling documentation> +getScrolling ::+             (MonadIO m, FromJSString result) => HTMLIFrameElement -> m result+getScrolling self+  = liftIO+      (fromJSString <$> (js_getScrolling (unHTMLIFrameElement self)))+ +foreign import javascript unsafe "$1[\"src\"] = $2;" js_setSrc ::+        JSRef HTMLIFrameElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.src Mozilla HTMLIFrameElement.src documentation> +setSrc ::+       (MonadIO m, ToJSString val) => HTMLIFrameElement -> val -> m ()+setSrc self val+  = liftIO (js_setSrc (unHTMLIFrameElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"src\"]" js_getSrc ::+        JSRef HTMLIFrameElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.src Mozilla HTMLIFrameElement.src documentation> +getSrc ::+       (MonadIO m, FromJSString result) => HTMLIFrameElement -> m result+getSrc self+  = liftIO (fromJSString <$> (js_getSrc (unHTMLIFrameElement self)))+ +foreign import javascript unsafe "$1[\"srcdoc\"] = $2;"+        js_setSrcdoc :: JSRef HTMLIFrameElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.srcdoc Mozilla HTMLIFrameElement.srcdoc documentation> +setSrcdoc ::+          (MonadIO m, ToJSString val) => HTMLIFrameElement -> val -> m ()+setSrcdoc self val+  = liftIO (js_setSrcdoc (unHTMLIFrameElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"srcdoc\"]" js_getSrcdoc ::+        JSRef HTMLIFrameElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.srcdoc Mozilla HTMLIFrameElement.srcdoc documentation> +getSrcdoc ::+          (MonadIO m, FromJSString result) => HTMLIFrameElement -> m result+getSrcdoc self+  = liftIO+      (fromJSString <$> (js_getSrcdoc (unHTMLIFrameElement self)))+ +foreign import javascript unsafe "$1[\"width\"] = $2;" js_setWidth+        :: JSRef HTMLIFrameElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.width Mozilla HTMLIFrameElement.width documentation> +setWidth ::+         (MonadIO m, ToJSString val) => HTMLIFrameElement -> val -> m ()+setWidth self val+  = liftIO (js_setWidth (unHTMLIFrameElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::+        JSRef HTMLIFrameElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.width Mozilla HTMLIFrameElement.width documentation> +getWidth ::+         (MonadIO m, FromJSString result) => HTMLIFrameElement -> m result+getWidth self+  = liftIO+      (fromJSString <$> (js_getWidth (unHTMLIFrameElement self)))+ +foreign import javascript unsafe "$1[\"contentDocument\"]"+        js_getContentDocument ::+        JSRef HTMLIFrameElement -> IO (JSRef Document)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.contentDocument Mozilla HTMLIFrameElement.contentDocument documentation> +getContentDocument ::+                   (MonadIO m) => HTMLIFrameElement -> m (Maybe Document)+getContentDocument self+  = liftIO+      ((js_getContentDocument (unHTMLIFrameElement self)) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"contentWindow\"]"+        js_getContentWindow :: JSRef HTMLIFrameElement -> IO (JSRef Window)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.contentWindow Mozilla HTMLIFrameElement.contentWindow documentation> +getContentWindow ::+                 (MonadIO m) => HTMLIFrameElement -> m (Maybe Window)+getContentWindow self+  = liftIO+      ((js_getContentWindow (unHTMLIFrameElement self)) >>= fromJSRef)
+ src/GHCJS/DOM/JSFFI/Generated/HTMLImageElement.hs view
@@ -0,0 +1,363 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.HTMLImageElement+       (js_setName, setName, js_getName, getName, js_setAlign, setAlign,+        js_getAlign, getAlign, js_setAlt, setAlt, js_getAlt, getAlt,+        js_setBorder, setBorder, js_getBorder, getBorder,+        js_setCrossOrigin, setCrossOrigin, js_getCrossOrigin,+        getCrossOrigin, js_setHeight, setHeight, js_getHeight, getHeight,+        js_setHspace, setHspace, js_getHspace, getHspace, js_setIsMap,+        setIsMap, js_getIsMap, getIsMap, js_setLongDesc, setLongDesc,+        js_getLongDesc, getLongDesc, js_setSrc, setSrc, js_getSrc, getSrc,+        js_setSrcset, setSrcset, js_getSrcset, getSrcset, js_setSizes,+        setSizes, js_getSizes, getSizes, js_getCurrentSrc, getCurrentSrc,+        js_setUseMap, setUseMap, js_getUseMap, getUseMap, js_setVspace,+        setVspace, js_getVspace, getVspace, js_setWidth, setWidth,+        js_getWidth, getWidth, js_getComplete, getComplete, js_setLowsrc,+        setLowsrc, js_getLowsrc, getLowsrc, js_getNaturalHeight,+        getNaturalHeight, js_getNaturalWidth, getNaturalWidth, js_getX,+        getX, js_getY, getY, HTMLImageElement, castToHTMLImageElement,+        gTypeHTMLImageElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName ::+        JSRef HTMLImageElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.name Mozilla HTMLImageElement.name documentation> +setName ::+        (MonadIO m, ToJSString val) => HTMLImageElement -> val -> m ()+setName self val+  = liftIO (js_setName (unHTMLImageElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"name\"]" js_getName ::+        JSRef HTMLImageElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.name Mozilla HTMLImageElement.name documentation> +getName ::+        (MonadIO m, FromJSString result) => HTMLImageElement -> m result+getName self+  = liftIO (fromJSString <$> (js_getName (unHTMLImageElement self)))+ +foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign+        :: JSRef HTMLImageElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.align Mozilla HTMLImageElement.align documentation> +setAlign ::+         (MonadIO m, ToJSString val) => HTMLImageElement -> val -> m ()+setAlign self val+  = liftIO (js_setAlign (unHTMLImageElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"align\"]" js_getAlign ::+        JSRef HTMLImageElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.align Mozilla HTMLImageElement.align documentation> +getAlign ::+         (MonadIO m, FromJSString result) => HTMLImageElement -> m result+getAlign self+  = liftIO (fromJSString <$> (js_getAlign (unHTMLImageElement self)))+ +foreign import javascript unsafe "$1[\"alt\"] = $2;" js_setAlt ::+        JSRef HTMLImageElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.alt Mozilla HTMLImageElement.alt documentation> +setAlt ::+       (MonadIO m, ToJSString val) => HTMLImageElement -> val -> m ()+setAlt self val+  = liftIO (js_setAlt (unHTMLImageElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"alt\"]" js_getAlt ::+        JSRef HTMLImageElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.alt Mozilla HTMLImageElement.alt documentation> +getAlt ::+       (MonadIO m, FromJSString result) => HTMLImageElement -> m result+getAlt self+  = liftIO (fromJSString <$> (js_getAlt (unHTMLImageElement self)))+ +foreign import javascript unsafe "$1[\"border\"] = $2;"+        js_setBorder :: JSRef HTMLImageElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.border Mozilla HTMLImageElement.border documentation> +setBorder ::+          (MonadIO m, ToJSString val) => HTMLImageElement -> val -> m ()+setBorder self val+  = liftIO (js_setBorder (unHTMLImageElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"border\"]" js_getBorder ::+        JSRef HTMLImageElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.border Mozilla HTMLImageElement.border documentation> +getBorder ::+          (MonadIO m, FromJSString result) => HTMLImageElement -> m result+getBorder self+  = liftIO+      (fromJSString <$> (js_getBorder (unHTMLImageElement self)))+ +foreign import javascript unsafe "$1[\"crossOrigin\"] = $2;"+        js_setCrossOrigin :: JSRef HTMLImageElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.crossOrigin Mozilla HTMLImageElement.crossOrigin documentation> +setCrossOrigin ::+               (MonadIO m, ToJSString val) => HTMLImageElement -> val -> m ()+setCrossOrigin self val+  = liftIO+      (js_setCrossOrigin (unHTMLImageElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"crossOrigin\"]"+        js_getCrossOrigin :: JSRef HTMLImageElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.crossOrigin Mozilla HTMLImageElement.crossOrigin documentation> +getCrossOrigin ::+               (MonadIO m, FromJSString result) => HTMLImageElement -> m result+getCrossOrigin self+  = liftIO+      (fromJSString <$> (js_getCrossOrigin (unHTMLImageElement self)))+ +foreign import javascript unsafe "$1[\"height\"] = $2;"+        js_setHeight :: JSRef HTMLImageElement -> Int -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.height Mozilla HTMLImageElement.height documentation> +setHeight :: (MonadIO m) => HTMLImageElement -> Int -> m ()+setHeight self val+  = liftIO (js_setHeight (unHTMLImageElement self) val)+ +foreign import javascript unsafe "$1[\"height\"]" js_getHeight ::+        JSRef HTMLImageElement -> IO Int++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.height Mozilla HTMLImageElement.height documentation> +getHeight :: (MonadIO m) => HTMLImageElement -> m Int+getHeight self = liftIO (js_getHeight (unHTMLImageElement self))+ +foreign import javascript unsafe "$1[\"hspace\"] = $2;"+        js_setHspace :: JSRef HTMLImageElement -> Int -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.hspace Mozilla HTMLImageElement.hspace documentation> +setHspace :: (MonadIO m) => HTMLImageElement -> Int -> m ()+setHspace self val+  = liftIO (js_setHspace (unHTMLImageElement self) val)+ +foreign import javascript unsafe "$1[\"hspace\"]" js_getHspace ::+        JSRef HTMLImageElement -> IO Int++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.hspace Mozilla HTMLImageElement.hspace documentation> +getHspace :: (MonadIO m) => HTMLImageElement -> m Int+getHspace self = liftIO (js_getHspace (unHTMLImageElement self))+ +foreign import javascript unsafe "$1[\"isMap\"] = $2;" js_setIsMap+        :: JSRef HTMLImageElement -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.isMap Mozilla HTMLImageElement.isMap documentation> +setIsMap :: (MonadIO m) => HTMLImageElement -> Bool -> m ()+setIsMap self val+  = liftIO (js_setIsMap (unHTMLImageElement self) val)+ +foreign import javascript unsafe "($1[\"isMap\"] ? 1 : 0)"+        js_getIsMap :: JSRef HTMLImageElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.isMap Mozilla HTMLImageElement.isMap documentation> +getIsMap :: (MonadIO m) => HTMLImageElement -> m Bool+getIsMap self = liftIO (js_getIsMap (unHTMLImageElement self))+ +foreign import javascript unsafe "$1[\"longDesc\"] = $2;"+        js_setLongDesc :: JSRef HTMLImageElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.longDesc Mozilla HTMLImageElement.longDesc documentation> +setLongDesc ::+            (MonadIO m, ToJSString val) => HTMLImageElement -> val -> m ()+setLongDesc self val+  = liftIO+      (js_setLongDesc (unHTMLImageElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"longDesc\"]" js_getLongDesc+        :: JSRef HTMLImageElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.longDesc Mozilla HTMLImageElement.longDesc documentation> +getLongDesc ::+            (MonadIO m, FromJSString result) => HTMLImageElement -> m result+getLongDesc self+  = liftIO+      (fromJSString <$> (js_getLongDesc (unHTMLImageElement self)))+ +foreign import javascript unsafe "$1[\"src\"] = $2;" js_setSrc ::+        JSRef HTMLImageElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.src Mozilla HTMLImageElement.src documentation> +setSrc ::+       (MonadIO m, ToJSString val) => HTMLImageElement -> val -> m ()+setSrc self val+  = liftIO (js_setSrc (unHTMLImageElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"src\"]" js_getSrc ::+        JSRef HTMLImageElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.src Mozilla HTMLImageElement.src documentation> +getSrc ::+       (MonadIO m, FromJSString result) => HTMLImageElement -> m result+getSrc self+  = liftIO (fromJSString <$> (js_getSrc (unHTMLImageElement self)))+ +foreign import javascript unsafe "$1[\"srcset\"] = $2;"+        js_setSrcset :: JSRef HTMLImageElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.srcset Mozilla HTMLImageElement.srcset documentation> +setSrcset ::+          (MonadIO m, ToJSString val) => HTMLImageElement -> val -> m ()+setSrcset self val+  = liftIO (js_setSrcset (unHTMLImageElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"srcset\"]" js_getSrcset ::+        JSRef HTMLImageElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.srcset Mozilla HTMLImageElement.srcset documentation> +getSrcset ::+          (MonadIO m, FromJSString result) => HTMLImageElement -> m result+getSrcset self+  = liftIO+      (fromJSString <$> (js_getSrcset (unHTMLImageElement self)))+ +foreign import javascript unsafe "$1[\"sizes\"] = $2;" js_setSizes+        :: JSRef HTMLImageElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.sizes Mozilla HTMLImageElement.sizes documentation> +setSizes ::+         (MonadIO m, ToJSString val) => HTMLImageElement -> val -> m ()+setSizes self val+  = liftIO (js_setSizes (unHTMLImageElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"sizes\"]" js_getSizes ::+        JSRef HTMLImageElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.sizes Mozilla HTMLImageElement.sizes documentation> +getSizes ::+         (MonadIO m, FromJSString result) => HTMLImageElement -> m result+getSizes self+  = liftIO (fromJSString <$> (js_getSizes (unHTMLImageElement self)))+ +foreign import javascript unsafe "$1[\"currentSrc\"]"+        js_getCurrentSrc :: JSRef HTMLImageElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.currentSrc Mozilla HTMLImageElement.currentSrc documentation> +getCurrentSrc ::+              (MonadIO m, FromJSString result) => HTMLImageElement -> m result+getCurrentSrc self+  = liftIO+      (fromJSString <$> (js_getCurrentSrc (unHTMLImageElement self)))+ +foreign import javascript unsafe "$1[\"useMap\"] = $2;"+        js_setUseMap :: JSRef HTMLImageElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.useMap Mozilla HTMLImageElement.useMap documentation> +setUseMap ::+          (MonadIO m, ToJSString val) => HTMLImageElement -> val -> m ()+setUseMap self val+  = liftIO (js_setUseMap (unHTMLImageElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"useMap\"]" js_getUseMap ::+        JSRef HTMLImageElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.useMap Mozilla HTMLImageElement.useMap documentation> +getUseMap ::+          (MonadIO m, FromJSString result) => HTMLImageElement -> m result+getUseMap self+  = liftIO+      (fromJSString <$> (js_getUseMap (unHTMLImageElement self)))+ +foreign import javascript unsafe "$1[\"vspace\"] = $2;"+        js_setVspace :: JSRef HTMLImageElement -> Int -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.vspace Mozilla HTMLImageElement.vspace documentation> +setVspace :: (MonadIO m) => HTMLImageElement -> Int -> m ()+setVspace self val+  = liftIO (js_setVspace (unHTMLImageElement self) val)+ +foreign import javascript unsafe "$1[\"vspace\"]" js_getVspace ::+        JSRef HTMLImageElement -> IO Int++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.vspace Mozilla HTMLImageElement.vspace documentation> +getVspace :: (MonadIO m) => HTMLImageElement -> m Int+getVspace self = liftIO (js_getVspace (unHTMLImageElement self))+ +foreign import javascript unsafe "$1[\"width\"] = $2;" js_setWidth+        :: JSRef HTMLImageElement -> Int -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.width Mozilla HTMLImageElement.width documentation> +setWidth :: (MonadIO m) => HTMLImageElement -> Int -> m ()+setWidth self val+  = liftIO (js_setWidth (unHTMLImageElement self) val)+ +foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::+        JSRef HTMLImageElement -> IO Int++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.width Mozilla HTMLImageElement.width documentation> +getWidth :: (MonadIO m) => HTMLImageElement -> m Int+getWidth self = liftIO (js_getWidth (unHTMLImageElement self))+ +foreign import javascript unsafe "($1[\"complete\"] ? 1 : 0)"+        js_getComplete :: JSRef HTMLImageElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.complete Mozilla HTMLImageElement.complete documentation> +getComplete :: (MonadIO m) => HTMLImageElement -> m Bool+getComplete self+  = liftIO (js_getComplete (unHTMLImageElement self))+ +foreign import javascript unsafe "$1[\"lowsrc\"] = $2;"+        js_setLowsrc :: JSRef HTMLImageElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.lowsrc Mozilla HTMLImageElement.lowsrc documentation> +setLowsrc ::+          (MonadIO m, ToJSString val) => HTMLImageElement -> val -> m ()+setLowsrc self val+  = liftIO (js_setLowsrc (unHTMLImageElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"lowsrc\"]" js_getLowsrc ::+        JSRef HTMLImageElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.lowsrc Mozilla HTMLImageElement.lowsrc documentation> +getLowsrc ::+          (MonadIO m, FromJSString result) => HTMLImageElement -> m result+getLowsrc self+  = liftIO+      (fromJSString <$> (js_getLowsrc (unHTMLImageElement self)))+ +foreign import javascript unsafe "$1[\"naturalHeight\"]"+        js_getNaturalHeight :: JSRef HTMLImageElement -> IO Int++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.naturalHeight Mozilla HTMLImageElement.naturalHeight documentation> +getNaturalHeight :: (MonadIO m) => HTMLImageElement -> m Int+getNaturalHeight self+  = liftIO (js_getNaturalHeight (unHTMLImageElement self))+ +foreign import javascript unsafe "$1[\"naturalWidth\"]"+        js_getNaturalWidth :: JSRef HTMLImageElement -> IO Int++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.naturalWidth Mozilla HTMLImageElement.naturalWidth documentation> +getNaturalWidth :: (MonadIO m) => HTMLImageElement -> m Int+getNaturalWidth self+  = liftIO (js_getNaturalWidth (unHTMLImageElement self))+ +foreign import javascript unsafe "$1[\"x\"]" js_getX ::+        JSRef HTMLImageElement -> IO Int++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.x Mozilla HTMLImageElement.x documentation> +getX :: (MonadIO m) => HTMLImageElement -> m Int+getX self = liftIO (js_getX (unHTMLImageElement self))+ +foreign import javascript unsafe "$1[\"y\"]" js_getY ::+        JSRef HTMLImageElement -> IO Int++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.y Mozilla HTMLImageElement.y documentation> +getY :: (MonadIO m) => HTMLImageElement -> m Int+getY self = liftIO (js_getY (unHTMLImageElement self))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLInputElement.hs view
@@ -0,0 +1,995 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.HTMLInputElement+       (js_stepUp, stepUp, js_stepDown, stepDown, js_checkValidity,+        checkValidity, js_setCustomValidity, setCustomValidity, js_select,+        select, js_setRangeText, setRangeText, js_setRangeText4,+        setRangeText4, js_setSelectionRange, setSelectionRange,+        js_setAccept, setAccept, js_getAccept, getAccept, js_setAlt,+        setAlt, js_getAlt, getAlt, js_setAutocomplete, setAutocomplete,+        js_getAutocomplete, getAutocomplete, js_setAutofocus, setAutofocus,+        js_getAutofocus, getAutofocus, js_setDefaultChecked,+        setDefaultChecked, js_getDefaultChecked, getDefaultChecked,+        js_setChecked, setChecked, js_getChecked, getChecked,+        js_setDirName, setDirName, js_getDirName, getDirName,+        js_setDisabled, setDisabled, js_getDisabled, getDisabled,+        js_getForm, getForm, js_setFiles, setFiles, js_getFiles, getFiles,+        js_setFormAction, setFormAction, js_getFormAction, getFormAction,+        js_setFormEnctype, setFormEnctype, js_getFormEnctype,+        getFormEnctype, js_setFormMethod, setFormMethod, js_getFormMethod,+        getFormMethod, js_setFormNoValidate, setFormNoValidate,+        js_getFormNoValidate, getFormNoValidate, js_setFormTarget,+        setFormTarget, js_getFormTarget, getFormTarget, js_setHeight,+        setHeight, js_getHeight, getHeight, js_setIndeterminate,+        setIndeterminate, js_getIndeterminate, getIndeterminate,+        js_getList, getList, js_setMax, setMax, js_getMax, getMax,+        js_setMaxLength, setMaxLength, js_getMaxLength, getMaxLength,+        js_setMin, setMin, js_getMin, getMin, js_setMultiple, setMultiple,+        js_getMultiple, getMultiple, js_setName, setName, js_getName,+        getName, js_setPattern, setPattern, js_getPattern, getPattern,+        js_setPlaceholder, setPlaceholder, js_getPlaceholder,+        getPlaceholder, js_setReadOnly, setReadOnly, js_getReadOnly,+        getReadOnly, js_setRequired, setRequired, js_getRequired,+        getRequired, js_setSize, setSize, js_getSize, getSize, js_setSrc,+        setSrc, js_getSrc, getSrc, js_setStep, setStep, js_getStep,+        getStep, js_setType, setType, js_getType, getType,+        js_setDefaultValue, setDefaultValue, js_getDefaultValue,+        getDefaultValue, js_setValue, setValue, js_getValue, getValue,+        js_setValueAsDate, setValueAsDate, js_getValueAsDate,+        getValueAsDate, js_setValueAsNumber, setValueAsNumber,+        js_getValueAsNumber, getValueAsNumber, js_setWidth, setWidth,+        js_getWidth, getWidth, js_getWillValidate, getWillValidate,+        js_getValidity, getValidity, js_getValidationMessage,+        getValidationMessage, js_getLabels, getLabels,+        js_setSelectionStart, setSelectionStart, js_getSelectionStart,+        getSelectionStart, js_setSelectionEnd, setSelectionEnd,+        js_getSelectionEnd, getSelectionEnd, js_setSelectionDirection,+        setSelectionDirection, js_getSelectionDirection,+        getSelectionDirection, js_setAlign, setAlign, js_getAlign,+        getAlign, js_setUseMap, setUseMap, js_getUseMap, getUseMap,+        js_setIncremental, setIncremental, js_getIncremental,+        getIncremental, js_setAutocorrect, setAutocorrect,+        js_getAutocorrect, getAutocorrect, js_setAutocapitalize,+        setAutocapitalize, js_getAutocapitalize, getAutocapitalize,+        js_setCapture, setCapture, js_getCapture, getCapture,+        HTMLInputElement, castToHTMLInputElement, gTypeHTMLInputElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"stepUp\"]($2)" js_stepUp ::+        JSRef HTMLInputElement -> Int -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.stepUp Mozilla HTMLInputElement.stepUp documentation> +stepUp :: (MonadIO m) => HTMLInputElement -> Int -> m ()+stepUp self n = liftIO (js_stepUp (unHTMLInputElement self) n)+ +foreign import javascript unsafe "$1[\"stepDown\"]($2)" js_stepDown+        :: JSRef HTMLInputElement -> Int -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.stepDown Mozilla HTMLInputElement.stepDown documentation> +stepDown :: (MonadIO m) => HTMLInputElement -> Int -> m ()+stepDown self n = liftIO (js_stepDown (unHTMLInputElement self) n)+ +foreign import javascript unsafe+        "($1[\"checkValidity\"]() ? 1 : 0)" js_checkValidity ::+        JSRef HTMLInputElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.checkValidity Mozilla HTMLInputElement.checkValidity documentation> +checkValidity :: (MonadIO m) => HTMLInputElement -> m Bool+checkValidity self+  = liftIO (js_checkValidity (unHTMLInputElement self))+ +foreign import javascript unsafe "$1[\"setCustomValidity\"]($2)"+        js_setCustomValidity ::+        JSRef HTMLInputElement -> JSRef (Maybe JSString) -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.setCustomValidity Mozilla HTMLInputElement.setCustomValidity documentation> +setCustomValidity ::+                  (MonadIO m, ToJSString error) =>+                    HTMLInputElement -> Maybe error -> m ()+setCustomValidity self error+  = liftIO+      (js_setCustomValidity (unHTMLInputElement self)+         (toMaybeJSString error))+ +foreign import javascript unsafe "$1[\"select\"]()" js_select ::+        JSRef HTMLInputElement -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.select Mozilla HTMLInputElement.select documentation> +select :: (MonadIO m) => HTMLInputElement -> m ()+select self = liftIO (js_select (unHTMLInputElement self))+ +foreign import javascript unsafe "$1[\"setRangeText\"]($2)"+        js_setRangeText :: JSRef HTMLInputElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.setRangeText Mozilla HTMLInputElement.setRangeText documentation> +setRangeText ::+             (MonadIO m, ToJSString replacement) =>+               HTMLInputElement -> replacement -> m ()+setRangeText self replacement+  = liftIO+      (js_setRangeText (unHTMLInputElement self)+         (toJSString replacement))+ +foreign import javascript unsafe+        "$1[\"setRangeText\"]($2, $3, $4,\n$5)" js_setRangeText4 ::+        JSRef HTMLInputElement ->+          JSString -> Word -> Word -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.setRangeText Mozilla HTMLInputElement.setRangeText documentation> +setRangeText4 ::+              (MonadIO m, ToJSString replacement, ToJSString selectionMode) =>+                HTMLInputElement ->+                  replacement -> Word -> Word -> selectionMode -> m ()+setRangeText4 self replacement start end selectionMode+  = liftIO+      (js_setRangeText4 (unHTMLInputElement self)+         (toJSString replacement)+         start+         end+         (toJSString selectionMode))+ +foreign import javascript unsafe+        "$1[\"setSelectionRange\"]($2, $3,\n$4)" js_setSelectionRange ::+        JSRef HTMLInputElement -> Int -> Int -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.setSelectionRange Mozilla HTMLInputElement.setSelectionRange documentation> +setSelectionRange ::+                  (MonadIO m, ToJSString direction) =>+                    HTMLInputElement -> Int -> Int -> direction -> m ()+setSelectionRange self start end direction+  = liftIO+      (js_setSelectionRange (unHTMLInputElement self) start end+         (toJSString direction))+ +foreign import javascript unsafe "$1[\"accept\"] = $2;"+        js_setAccept :: JSRef HTMLInputElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.accept Mozilla HTMLInputElement.accept documentation> +setAccept ::+          (MonadIO m, ToJSString val) => HTMLInputElement -> val -> m ()+setAccept self val+  = liftIO (js_setAccept (unHTMLInputElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"accept\"]" js_getAccept ::+        JSRef HTMLInputElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.accept Mozilla HTMLInputElement.accept documentation> +getAccept ::+          (MonadIO m, FromJSString result) => HTMLInputElement -> m result+getAccept self+  = liftIO+      (fromJSString <$> (js_getAccept (unHTMLInputElement self)))+ +foreign import javascript unsafe "$1[\"alt\"] = $2;" js_setAlt ::+        JSRef HTMLInputElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.alt Mozilla HTMLInputElement.alt documentation> +setAlt ::+       (MonadIO m, ToJSString val) => HTMLInputElement -> val -> m ()+setAlt self val+  = liftIO (js_setAlt (unHTMLInputElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"alt\"]" js_getAlt ::+        JSRef HTMLInputElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.alt Mozilla HTMLInputElement.alt documentation> +getAlt ::+       (MonadIO m, FromJSString result) => HTMLInputElement -> m result+getAlt self+  = liftIO (fromJSString <$> (js_getAlt (unHTMLInputElement self)))+ +foreign import javascript unsafe "$1[\"autocomplete\"] = $2;"+        js_setAutocomplete :: JSRef HTMLInputElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.autocomplete Mozilla HTMLInputElement.autocomplete documentation> +setAutocomplete ::+                (MonadIO m, ToJSString val) => HTMLInputElement -> val -> m ()+setAutocomplete self val+  = liftIO+      (js_setAutocomplete (unHTMLInputElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"autocomplete\"]"+        js_getAutocomplete :: JSRef HTMLInputElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.autocomplete Mozilla HTMLInputElement.autocomplete documentation> +getAutocomplete ::+                (MonadIO m, FromJSString result) => HTMLInputElement -> m result+getAutocomplete self+  = liftIO+      (fromJSString <$> (js_getAutocomplete (unHTMLInputElement self)))+ +foreign import javascript unsafe "$1[\"autofocus\"] = $2;"+        js_setAutofocus :: JSRef HTMLInputElement -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.autofocus Mozilla HTMLInputElement.autofocus documentation> +setAutofocus :: (MonadIO m) => HTMLInputElement -> Bool -> m ()+setAutofocus self val+  = liftIO (js_setAutofocus (unHTMLInputElement self) val)+ +foreign import javascript unsafe "($1[\"autofocus\"] ? 1 : 0)"+        js_getAutofocus :: JSRef HTMLInputElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.autofocus Mozilla HTMLInputElement.autofocus documentation> +getAutofocus :: (MonadIO m) => HTMLInputElement -> m Bool+getAutofocus self+  = liftIO (js_getAutofocus (unHTMLInputElement self))+ +foreign import javascript unsafe "$1[\"defaultChecked\"] = $2;"+        js_setDefaultChecked :: JSRef HTMLInputElement -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.defaultChecked Mozilla HTMLInputElement.defaultChecked documentation> +setDefaultChecked ::+                  (MonadIO m) => HTMLInputElement -> Bool -> m ()+setDefaultChecked self val+  = liftIO (js_setDefaultChecked (unHTMLInputElement self) val)+ +foreign import javascript unsafe "($1[\"defaultChecked\"] ? 1 : 0)"+        js_getDefaultChecked :: JSRef HTMLInputElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.defaultChecked Mozilla HTMLInputElement.defaultChecked documentation> +getDefaultChecked :: (MonadIO m) => HTMLInputElement -> m Bool+getDefaultChecked self+  = liftIO (js_getDefaultChecked (unHTMLInputElement self))+ +foreign import javascript unsafe "$1[\"checked\"] = $2;"+        js_setChecked :: JSRef HTMLInputElement -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.checked Mozilla HTMLInputElement.checked documentation> +setChecked :: (MonadIO m) => HTMLInputElement -> Bool -> m ()+setChecked self val+  = liftIO (js_setChecked (unHTMLInputElement self) val)+ +foreign import javascript unsafe "($1[\"checked\"] ? 1 : 0)"+        js_getChecked :: JSRef HTMLInputElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.checked Mozilla HTMLInputElement.checked documentation> +getChecked :: (MonadIO m) => HTMLInputElement -> m Bool+getChecked self = liftIO (js_getChecked (unHTMLInputElement self))+ +foreign import javascript unsafe "$1[\"dirName\"] = $2;"+        js_setDirName :: JSRef HTMLInputElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.dirName Mozilla HTMLInputElement.dirName documentation> +setDirName ::+           (MonadIO m, ToJSString val) => HTMLInputElement -> val -> m ()+setDirName self val+  = liftIO (js_setDirName (unHTMLInputElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"dirName\"]" js_getDirName ::+        JSRef HTMLInputElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.dirName Mozilla HTMLInputElement.dirName documentation> +getDirName ::+           (MonadIO m, FromJSString result) => HTMLInputElement -> m result+getDirName self+  = liftIO+      (fromJSString <$> (js_getDirName (unHTMLInputElement self)))+ +foreign import javascript unsafe "$1[\"disabled\"] = $2;"+        js_setDisabled :: JSRef HTMLInputElement -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.disabled Mozilla HTMLInputElement.disabled documentation> +setDisabled :: (MonadIO m) => HTMLInputElement -> Bool -> m ()+setDisabled self val+  = liftIO (js_setDisabled (unHTMLInputElement self) val)+ +foreign import javascript unsafe "($1[\"disabled\"] ? 1 : 0)"+        js_getDisabled :: JSRef HTMLInputElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.disabled Mozilla HTMLInputElement.disabled documentation> +getDisabled :: (MonadIO m) => HTMLInputElement -> m Bool+getDisabled self+  = liftIO (js_getDisabled (unHTMLInputElement self))+ +foreign import javascript unsafe "$1[\"form\"]" js_getForm ::+        JSRef HTMLInputElement -> IO (JSRef HTMLFormElement)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.form Mozilla HTMLInputElement.form documentation> +getForm ::+        (MonadIO m) => HTMLInputElement -> m (Maybe HTMLFormElement)+getForm self+  = liftIO ((js_getForm (unHTMLInputElement self)) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"files\"] = $2;" js_setFiles+        :: JSRef HTMLInputElement -> JSRef FileList -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.files Mozilla HTMLInputElement.files documentation> +setFiles ::+         (MonadIO m) => HTMLInputElement -> Maybe FileList -> m ()+setFiles self val+  = liftIO+      (js_setFiles (unHTMLInputElement self) (maybe jsNull pToJSRef val))+ +foreign import javascript unsafe "$1[\"files\"]" js_getFiles ::+        JSRef HTMLInputElement -> IO (JSRef FileList)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.files Mozilla HTMLInputElement.files documentation> +getFiles :: (MonadIO m) => HTMLInputElement -> m (Maybe FileList)+getFiles self+  = liftIO ((js_getFiles (unHTMLInputElement self)) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"formAction\"] = $2;"+        js_setFormAction :: JSRef HTMLInputElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.formAction Mozilla HTMLInputElement.formAction documentation> +setFormAction ::+              (MonadIO m, ToJSString val) => HTMLInputElement -> val -> m ()+setFormAction self val+  = liftIO+      (js_setFormAction (unHTMLInputElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"formAction\"]"+        js_getFormAction :: JSRef HTMLInputElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.formAction Mozilla HTMLInputElement.formAction documentation> +getFormAction ::+              (MonadIO m, FromJSString result) => HTMLInputElement -> m result+getFormAction self+  = liftIO+      (fromJSString <$> (js_getFormAction (unHTMLInputElement self)))+ +foreign import javascript unsafe "$1[\"formEnctype\"] = $2;"+        js_setFormEnctype ::+        JSRef HTMLInputElement -> JSRef (Maybe JSString) -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.formEnctype Mozilla HTMLInputElement.formEnctype documentation> +setFormEnctype ::+               (MonadIO m, ToJSString val) =>+                 HTMLInputElement -> Maybe val -> m ()+setFormEnctype self val+  = liftIO+      (js_setFormEnctype (unHTMLInputElement self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"formEnctype\"]"+        js_getFormEnctype ::+        JSRef HTMLInputElement -> IO (JSRef (Maybe JSString))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.formEnctype Mozilla HTMLInputElement.formEnctype documentation> +getFormEnctype ::+               (MonadIO m, FromJSString result) =>+                 HTMLInputElement -> m (Maybe result)+getFormEnctype self+  = liftIO+      (fromMaybeJSString <$>+         (js_getFormEnctype (unHTMLInputElement self)))+ +foreign import javascript unsafe "$1[\"formMethod\"] = $2;"+        js_setFormMethod ::+        JSRef HTMLInputElement -> JSRef (Maybe JSString) -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.formMethod Mozilla HTMLInputElement.formMethod documentation> +setFormMethod ::+              (MonadIO m, ToJSString val) =>+                HTMLInputElement -> Maybe val -> m ()+setFormMethod self val+  = liftIO+      (js_setFormMethod (unHTMLInputElement self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"formMethod\"]"+        js_getFormMethod ::+        JSRef HTMLInputElement -> IO (JSRef (Maybe JSString))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.formMethod Mozilla HTMLInputElement.formMethod documentation> +getFormMethod ::+              (MonadIO m, FromJSString result) =>+                HTMLInputElement -> m (Maybe result)+getFormMethod self+  = liftIO+      (fromMaybeJSString <$>+         (js_getFormMethod (unHTMLInputElement self)))+ +foreign import javascript unsafe "$1[\"formNoValidate\"] = $2;"+        js_setFormNoValidate :: JSRef HTMLInputElement -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.formNoValidate Mozilla HTMLInputElement.formNoValidate documentation> +setFormNoValidate ::+                  (MonadIO m) => HTMLInputElement -> Bool -> m ()+setFormNoValidate self val+  = liftIO (js_setFormNoValidate (unHTMLInputElement self) val)+ +foreign import javascript unsafe "($1[\"formNoValidate\"] ? 1 : 0)"+        js_getFormNoValidate :: JSRef HTMLInputElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.formNoValidate Mozilla HTMLInputElement.formNoValidate documentation> +getFormNoValidate :: (MonadIO m) => HTMLInputElement -> m Bool+getFormNoValidate self+  = liftIO (js_getFormNoValidate (unHTMLInputElement self))+ +foreign import javascript unsafe "$1[\"formTarget\"] = $2;"+        js_setFormTarget :: JSRef HTMLInputElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.formTarget Mozilla HTMLInputElement.formTarget documentation> +setFormTarget ::+              (MonadIO m, ToJSString val) => HTMLInputElement -> val -> m ()+setFormTarget self val+  = liftIO+      (js_setFormTarget (unHTMLInputElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"formTarget\"]"+        js_getFormTarget :: JSRef HTMLInputElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.formTarget Mozilla HTMLInputElement.formTarget documentation> +getFormTarget ::+              (MonadIO m, FromJSString result) => HTMLInputElement -> m result+getFormTarget self+  = liftIO+      (fromJSString <$> (js_getFormTarget (unHTMLInputElement self)))+ +foreign import javascript unsafe "$1[\"height\"] = $2;"+        js_setHeight :: JSRef HTMLInputElement -> Word -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.height Mozilla HTMLInputElement.height documentation> +setHeight :: (MonadIO m) => HTMLInputElement -> Word -> m ()+setHeight self val+  = liftIO (js_setHeight (unHTMLInputElement self) val)+ +foreign import javascript unsafe "$1[\"height\"]" js_getHeight ::+        JSRef HTMLInputElement -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.height Mozilla HTMLInputElement.height documentation> +getHeight :: (MonadIO m) => HTMLInputElement -> m Word+getHeight self = liftIO (js_getHeight (unHTMLInputElement self))+ +foreign import javascript unsafe "$1[\"indeterminate\"] = $2;"+        js_setIndeterminate :: JSRef HTMLInputElement -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.indeterminate Mozilla HTMLInputElement.indeterminate documentation> +setIndeterminate :: (MonadIO m) => HTMLInputElement -> Bool -> m ()+setIndeterminate self val+  = liftIO (js_setIndeterminate (unHTMLInputElement self) val)+ +foreign import javascript unsafe "($1[\"indeterminate\"] ? 1 : 0)"+        js_getIndeterminate :: JSRef HTMLInputElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.indeterminate Mozilla HTMLInputElement.indeterminate documentation> +getIndeterminate :: (MonadIO m) => HTMLInputElement -> m Bool+getIndeterminate self+  = liftIO (js_getIndeterminate (unHTMLInputElement self))+ +foreign import javascript unsafe "$1[\"list\"]" js_getList ::+        JSRef HTMLInputElement -> IO (JSRef HTMLElement)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.list Mozilla HTMLInputElement.list documentation> +getList :: (MonadIO m) => HTMLInputElement -> m (Maybe HTMLElement)+getList self+  = liftIO ((js_getList (unHTMLInputElement self)) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"max\"] = $2;" js_setMax ::+        JSRef HTMLInputElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.max Mozilla HTMLInputElement.max documentation> +setMax ::+       (MonadIO m, ToJSString val) => HTMLInputElement -> val -> m ()+setMax self val+  = liftIO (js_setMax (unHTMLInputElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"max\"]" js_getMax ::+        JSRef HTMLInputElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.max Mozilla HTMLInputElement.max documentation> +getMax ::+       (MonadIO m, FromJSString result) => HTMLInputElement -> m result+getMax self+  = liftIO (fromJSString <$> (js_getMax (unHTMLInputElement self)))+ +foreign import javascript unsafe "$1[\"maxLength\"] = $2;"+        js_setMaxLength :: JSRef HTMLInputElement -> Int -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.maxLength Mozilla HTMLInputElement.maxLength documentation> +setMaxLength :: (MonadIO m) => HTMLInputElement -> Int -> m ()+setMaxLength self val+  = liftIO (js_setMaxLength (unHTMLInputElement self) val)+ +foreign import javascript unsafe "$1[\"maxLength\"]"+        js_getMaxLength :: JSRef HTMLInputElement -> IO Int++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.maxLength Mozilla HTMLInputElement.maxLength documentation> +getMaxLength :: (MonadIO m) => HTMLInputElement -> m Int+getMaxLength self+  = liftIO (js_getMaxLength (unHTMLInputElement self))+ +foreign import javascript unsafe "$1[\"min\"] = $2;" js_setMin ::+        JSRef HTMLInputElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.min Mozilla HTMLInputElement.min documentation> +setMin ::+       (MonadIO m, ToJSString val) => HTMLInputElement -> val -> m ()+setMin self val+  = liftIO (js_setMin (unHTMLInputElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"min\"]" js_getMin ::+        JSRef HTMLInputElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.min Mozilla HTMLInputElement.min documentation> +getMin ::+       (MonadIO m, FromJSString result) => HTMLInputElement -> m result+getMin self+  = liftIO (fromJSString <$> (js_getMin (unHTMLInputElement self)))+ +foreign import javascript unsafe "$1[\"multiple\"] = $2;"+        js_setMultiple :: JSRef HTMLInputElement -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.multiple Mozilla HTMLInputElement.multiple documentation> +setMultiple :: (MonadIO m) => HTMLInputElement -> Bool -> m ()+setMultiple self val+  = liftIO (js_setMultiple (unHTMLInputElement self) val)+ +foreign import javascript unsafe "($1[\"multiple\"] ? 1 : 0)"+        js_getMultiple :: JSRef HTMLInputElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.multiple Mozilla HTMLInputElement.multiple documentation> +getMultiple :: (MonadIO m) => HTMLInputElement -> m Bool+getMultiple self+  = liftIO (js_getMultiple (unHTMLInputElement self))+ +foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName ::+        JSRef HTMLInputElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.name Mozilla HTMLInputElement.name documentation> +setName ::+        (MonadIO m, ToJSString val) => HTMLInputElement -> val -> m ()+setName self val+  = liftIO (js_setName (unHTMLInputElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"name\"]" js_getName ::+        JSRef HTMLInputElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.name Mozilla HTMLInputElement.name documentation> +getName ::+        (MonadIO m, FromJSString result) => HTMLInputElement -> m result+getName self+  = liftIO (fromJSString <$> (js_getName (unHTMLInputElement self)))+ +foreign import javascript unsafe "$1[\"pattern\"] = $2;"+        js_setPattern :: JSRef HTMLInputElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.pattern Mozilla HTMLInputElement.pattern documentation> +setPattern ::+           (MonadIO m, ToJSString val) => HTMLInputElement -> val -> m ()+setPattern self val+  = liftIO (js_setPattern (unHTMLInputElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"pattern\"]" js_getPattern ::+        JSRef HTMLInputElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.pattern Mozilla HTMLInputElement.pattern documentation> +getPattern ::+           (MonadIO m, FromJSString result) => HTMLInputElement -> m result+getPattern self+  = liftIO+      (fromJSString <$> (js_getPattern (unHTMLInputElement self)))+ +foreign import javascript unsafe "$1[\"placeholder\"] = $2;"+        js_setPlaceholder :: JSRef HTMLInputElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.placeholder Mozilla HTMLInputElement.placeholder documentation> +setPlaceholder ::+               (MonadIO m, ToJSString val) => HTMLInputElement -> val -> m ()+setPlaceholder self val+  = liftIO+      (js_setPlaceholder (unHTMLInputElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"placeholder\"]"+        js_getPlaceholder :: JSRef HTMLInputElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.placeholder Mozilla HTMLInputElement.placeholder documentation> +getPlaceholder ::+               (MonadIO m, FromJSString result) => HTMLInputElement -> m result+getPlaceholder self+  = liftIO+      (fromJSString <$> (js_getPlaceholder (unHTMLInputElement self)))+ +foreign import javascript unsafe "$1[\"readOnly\"] = $2;"+        js_setReadOnly :: JSRef HTMLInputElement -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.readOnly Mozilla HTMLInputElement.readOnly documentation> +setReadOnly :: (MonadIO m) => HTMLInputElement -> Bool -> m ()+setReadOnly self val+  = liftIO (js_setReadOnly (unHTMLInputElement self) val)+ +foreign import javascript unsafe "($1[\"readOnly\"] ? 1 : 0)"+        js_getReadOnly :: JSRef HTMLInputElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.readOnly Mozilla HTMLInputElement.readOnly documentation> +getReadOnly :: (MonadIO m) => HTMLInputElement -> m Bool+getReadOnly self+  = liftIO (js_getReadOnly (unHTMLInputElement self))+ +foreign import javascript unsafe "$1[\"required\"] = $2;"+        js_setRequired :: JSRef HTMLInputElement -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.required Mozilla HTMLInputElement.required documentation> +setRequired :: (MonadIO m) => HTMLInputElement -> Bool -> m ()+setRequired self val+  = liftIO (js_setRequired (unHTMLInputElement self) val)+ +foreign import javascript unsafe "($1[\"required\"] ? 1 : 0)"+        js_getRequired :: JSRef HTMLInputElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.required Mozilla HTMLInputElement.required documentation> +getRequired :: (MonadIO m) => HTMLInputElement -> m Bool+getRequired self+  = liftIO (js_getRequired (unHTMLInputElement self))+ +foreign import javascript unsafe "$1[\"size\"] = $2;" js_setSize ::+        JSRef HTMLInputElement -> Word -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.size Mozilla HTMLInputElement.size documentation> +setSize :: (MonadIO m) => HTMLInputElement -> Word -> m ()+setSize self val+  = liftIO (js_setSize (unHTMLInputElement self) val)+ +foreign import javascript unsafe "$1[\"size\"]" js_getSize ::+        JSRef HTMLInputElement -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.size Mozilla HTMLInputElement.size documentation> +getSize :: (MonadIO m) => HTMLInputElement -> m Word+getSize self = liftIO (js_getSize (unHTMLInputElement self))+ +foreign import javascript unsafe "$1[\"src\"] = $2;" js_setSrc ::+        JSRef HTMLInputElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.src Mozilla HTMLInputElement.src documentation> +setSrc ::+       (MonadIO m, ToJSString val) => HTMLInputElement -> val -> m ()+setSrc self val+  = liftIO (js_setSrc (unHTMLInputElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"src\"]" js_getSrc ::+        JSRef HTMLInputElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.src Mozilla HTMLInputElement.src documentation> +getSrc ::+       (MonadIO m, FromJSString result) => HTMLInputElement -> m result+getSrc self+  = liftIO (fromJSString <$> (js_getSrc (unHTMLInputElement self)))+ +foreign import javascript unsafe "$1[\"step\"] = $2;" js_setStep ::+        JSRef HTMLInputElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.step Mozilla HTMLInputElement.step documentation> +setStep ::+        (MonadIO m, ToJSString val) => HTMLInputElement -> val -> m ()+setStep self val+  = liftIO (js_setStep (unHTMLInputElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"step\"]" js_getStep ::+        JSRef HTMLInputElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.step Mozilla HTMLInputElement.step documentation> +getStep ::+        (MonadIO m, FromJSString result) => HTMLInputElement -> m result+getStep self+  = liftIO (fromJSString <$> (js_getStep (unHTMLInputElement self)))+ +foreign import javascript unsafe "$1[\"type\"] = $2;" js_setType ::+        JSRef HTMLInputElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.type Mozilla HTMLInputElement.type documentation> +setType ::+        (MonadIO m, ToJSString val) => HTMLInputElement -> val -> m ()+setType self val+  = liftIO (js_setType (unHTMLInputElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"type\"]" js_getType ::+        JSRef HTMLInputElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.type Mozilla HTMLInputElement.type documentation> +getType ::+        (MonadIO m, FromJSString result) => HTMLInputElement -> m result+getType self+  = liftIO (fromJSString <$> (js_getType (unHTMLInputElement self)))+ +foreign import javascript unsafe "$1[\"defaultValue\"] = $2;"+        js_setDefaultValue ::+        JSRef HTMLInputElement -> JSRef (Maybe JSString) -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.defaultValue Mozilla HTMLInputElement.defaultValue documentation> +setDefaultValue ::+                (MonadIO m, ToJSString val) =>+                  HTMLInputElement -> Maybe val -> m ()+setDefaultValue self val+  = liftIO+      (js_setDefaultValue (unHTMLInputElement self)+         (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"defaultValue\"]"+        js_getDefaultValue ::+        JSRef HTMLInputElement -> IO (JSRef (Maybe JSString))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.defaultValue Mozilla HTMLInputElement.defaultValue documentation> +getDefaultValue ::+                (MonadIO m, FromJSString result) =>+                  HTMLInputElement -> m (Maybe result)+getDefaultValue self+  = liftIO+      (fromMaybeJSString <$>+         (js_getDefaultValue (unHTMLInputElement self)))+ +foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue+        :: JSRef HTMLInputElement -> JSRef (Maybe JSString) -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.value Mozilla HTMLInputElement.value documentation> +setValue ::+         (MonadIO m, ToJSString val) =>+           HTMLInputElement -> Maybe val -> m ()+setValue self val+  = liftIO+      (js_setValue (unHTMLInputElement self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"value\"]" js_getValue ::+        JSRef HTMLInputElement -> IO (JSRef (Maybe JSString))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.value Mozilla HTMLInputElement.value documentation> +getValue ::+         (MonadIO m, FromJSString result) =>+           HTMLInputElement -> m (Maybe result)+getValue self+  = liftIO+      (fromMaybeJSString <$> (js_getValue (unHTMLInputElement self)))+ +foreign import javascript unsafe "$1[\"valueAsDate\"] = $2;"+        js_setValueAsDate :: JSRef HTMLInputElement -> JSRef Date -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.valueAsDate Mozilla HTMLInputElement.valueAsDate documentation> +setValueAsDate ::+               (MonadIO m, IsDate val) => HTMLInputElement -> Maybe val -> m ()+setValueAsDate self val+  = liftIO+      (js_setValueAsDate (unHTMLInputElement self)+         (maybe jsNull (unDate . toDate) val))+ +foreign import javascript unsafe "$1[\"valueAsDate\"]"+        js_getValueAsDate :: JSRef HTMLInputElement -> IO (JSRef Date)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.valueAsDate Mozilla HTMLInputElement.valueAsDate documentation> +getValueAsDate :: (MonadIO m) => HTMLInputElement -> m (Maybe Date)+getValueAsDate self+  = liftIO+      ((js_getValueAsDate (unHTMLInputElement self)) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"valueAsNumber\"] = $2;"+        js_setValueAsNumber :: JSRef HTMLInputElement -> Double -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.valueAsNumber Mozilla HTMLInputElement.valueAsNumber documentation> +setValueAsNumber ::+                 (MonadIO m) => HTMLInputElement -> Double -> m ()+setValueAsNumber self val+  = liftIO (js_setValueAsNumber (unHTMLInputElement self) val)+ +foreign import javascript unsafe "$1[\"valueAsNumber\"]"+        js_getValueAsNumber :: JSRef HTMLInputElement -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.valueAsNumber Mozilla HTMLInputElement.valueAsNumber documentation> +getValueAsNumber :: (MonadIO m) => HTMLInputElement -> m Double+getValueAsNumber self+  = liftIO (js_getValueAsNumber (unHTMLInputElement self))+ +foreign import javascript unsafe "$1[\"width\"] = $2;" js_setWidth+        :: JSRef HTMLInputElement -> Word -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.width Mozilla HTMLInputElement.width documentation> +setWidth :: (MonadIO m) => HTMLInputElement -> Word -> m ()+setWidth self val+  = liftIO (js_setWidth (unHTMLInputElement self) val)+ +foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::+        JSRef HTMLInputElement -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.width Mozilla HTMLInputElement.width documentation> +getWidth :: (MonadIO m) => HTMLInputElement -> m Word+getWidth self = liftIO (js_getWidth (unHTMLInputElement self))+ +foreign import javascript unsafe "($1[\"willValidate\"] ? 1 : 0)"+        js_getWillValidate :: JSRef HTMLInputElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.willValidate Mozilla HTMLInputElement.willValidate documentation> +getWillValidate :: (MonadIO m) => HTMLInputElement -> m Bool+getWillValidate self+  = liftIO (js_getWillValidate (unHTMLInputElement self))+ +foreign import javascript unsafe "$1[\"validity\"]" js_getValidity+        :: JSRef HTMLInputElement -> IO (JSRef ValidityState)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.validity Mozilla HTMLInputElement.validity documentation> +getValidity ::+            (MonadIO m) => HTMLInputElement -> m (Maybe ValidityState)+getValidity self+  = liftIO ((js_getValidity (unHTMLInputElement self)) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"validationMessage\"]"+        js_getValidationMessage :: JSRef HTMLInputElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.validationMessage Mozilla HTMLInputElement.validationMessage documentation> +getValidationMessage ::+                     (MonadIO m, FromJSString result) => HTMLInputElement -> m result+getValidationMessage self+  = liftIO+      (fromJSString <$>+         (js_getValidationMessage (unHTMLInputElement self)))+ +foreign import javascript unsafe "$1[\"labels\"]" js_getLabels ::+        JSRef HTMLInputElement -> IO (JSRef NodeList)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.labels Mozilla HTMLInputElement.labels documentation> +getLabels :: (MonadIO m) => HTMLInputElement -> m (Maybe NodeList)+getLabels self+  = liftIO ((js_getLabels (unHTMLInputElement self)) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"selectionStart\"] = $2;"+        js_setSelectionStart :: JSRef HTMLInputElement -> Int -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.selectionStart Mozilla HTMLInputElement.selectionStart documentation> +setSelectionStart :: (MonadIO m) => HTMLInputElement -> Int -> m ()+setSelectionStart self val+  = liftIO (js_setSelectionStart (unHTMLInputElement self) val)+ +foreign import javascript unsafe "$1[\"selectionStart\"]"+        js_getSelectionStart :: JSRef HTMLInputElement -> IO Int++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.selectionStart Mozilla HTMLInputElement.selectionStart documentation> +getSelectionStart :: (MonadIO m) => HTMLInputElement -> m Int+getSelectionStart self+  = liftIO (js_getSelectionStart (unHTMLInputElement self))+ +foreign import javascript unsafe "$1[\"selectionEnd\"] = $2;"+        js_setSelectionEnd :: JSRef HTMLInputElement -> Int -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.selectionEnd Mozilla HTMLInputElement.selectionEnd documentation> +setSelectionEnd :: (MonadIO m) => HTMLInputElement -> Int -> m ()+setSelectionEnd self val+  = liftIO (js_setSelectionEnd (unHTMLInputElement self) val)+ +foreign import javascript unsafe "$1[\"selectionEnd\"]"+        js_getSelectionEnd :: JSRef HTMLInputElement -> IO Int++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.selectionEnd Mozilla HTMLInputElement.selectionEnd documentation> +getSelectionEnd :: (MonadIO m) => HTMLInputElement -> m Int+getSelectionEnd self+  = liftIO (js_getSelectionEnd (unHTMLInputElement self))+ +foreign import javascript unsafe "$1[\"selectionDirection\"] = $2;"+        js_setSelectionDirection ::+        JSRef HTMLInputElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.selectionDirection Mozilla HTMLInputElement.selectionDirection documentation> +setSelectionDirection ::+                      (MonadIO m, ToJSString val) => HTMLInputElement -> val -> m ()+setSelectionDirection self val+  = liftIO+      (js_setSelectionDirection (unHTMLInputElement self)+         (toJSString val))+ +foreign import javascript unsafe "$1[\"selectionDirection\"]"+        js_getSelectionDirection :: JSRef HTMLInputElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.selectionDirection Mozilla HTMLInputElement.selectionDirection documentation> +getSelectionDirection ::+                      (MonadIO m, FromJSString result) => HTMLInputElement -> m result+getSelectionDirection self+  = liftIO+      (fromJSString <$>+         (js_getSelectionDirection (unHTMLInputElement self)))+ +foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign+        :: JSRef HTMLInputElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.align Mozilla HTMLInputElement.align documentation> +setAlign ::+         (MonadIO m, ToJSString val) => HTMLInputElement -> val -> m ()+setAlign self val+  = liftIO (js_setAlign (unHTMLInputElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"align\"]" js_getAlign ::+        JSRef HTMLInputElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.align Mozilla HTMLInputElement.align documentation> +getAlign ::+         (MonadIO m, FromJSString result) => HTMLInputElement -> m result+getAlign self+  = liftIO (fromJSString <$> (js_getAlign (unHTMLInputElement self)))+ +foreign import javascript unsafe "$1[\"useMap\"] = $2;"+        js_setUseMap :: JSRef HTMLInputElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.useMap Mozilla HTMLInputElement.useMap documentation> +setUseMap ::+          (MonadIO m, ToJSString val) => HTMLInputElement -> val -> m ()+setUseMap self val+  = liftIO (js_setUseMap (unHTMLInputElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"useMap\"]" js_getUseMap ::+        JSRef HTMLInputElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.useMap Mozilla HTMLInputElement.useMap documentation> +getUseMap ::+          (MonadIO m, FromJSString result) => HTMLInputElement -> m result+getUseMap self+  = liftIO+      (fromJSString <$> (js_getUseMap (unHTMLInputElement self)))+ +foreign import javascript unsafe "$1[\"incremental\"] = $2;"+        js_setIncremental :: JSRef HTMLInputElement -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.incremental Mozilla HTMLInputElement.incremental documentation> +setIncremental :: (MonadIO m) => HTMLInputElement -> Bool -> m ()+setIncremental self val+  = liftIO (js_setIncremental (unHTMLInputElement self) val)+ +foreign import javascript unsafe "($1[\"incremental\"] ? 1 : 0)"+        js_getIncremental :: JSRef HTMLInputElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.incremental Mozilla HTMLInputElement.incremental documentation> +getIncremental :: (MonadIO m) => HTMLInputElement -> m Bool+getIncremental self+  = liftIO (js_getIncremental (unHTMLInputElement self))+ +foreign import javascript unsafe "$1[\"autocorrect\"] = $2;"+        js_setAutocorrect :: JSRef HTMLInputElement -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.autocorrect Mozilla HTMLInputElement.autocorrect documentation> +setAutocorrect :: (MonadIO m) => HTMLInputElement -> Bool -> m ()+setAutocorrect self val+  = liftIO (js_setAutocorrect (unHTMLInputElement self) val)+ +foreign import javascript unsafe "($1[\"autocorrect\"] ? 1 : 0)"+        js_getAutocorrect :: JSRef HTMLInputElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.autocorrect Mozilla HTMLInputElement.autocorrect documentation> +getAutocorrect :: (MonadIO m) => HTMLInputElement -> m Bool+getAutocorrect self+  = liftIO (js_getAutocorrect (unHTMLInputElement self))+ +foreign import javascript unsafe "$1[\"autocapitalize\"] = $2;"+        js_setAutocapitalize ::+        JSRef HTMLInputElement -> JSRef (Maybe JSString) -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.autocapitalize Mozilla HTMLInputElement.autocapitalize documentation> +setAutocapitalize ::+                  (MonadIO m, ToJSString val) =>+                    HTMLInputElement -> Maybe val -> m ()+setAutocapitalize self val+  = liftIO+      (js_setAutocapitalize (unHTMLInputElement self)+         (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"autocapitalize\"]"+        js_getAutocapitalize ::+        JSRef HTMLInputElement -> IO (JSRef (Maybe JSString))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.autocapitalize Mozilla HTMLInputElement.autocapitalize documentation> +getAutocapitalize ::+                  (MonadIO m, FromJSString result) =>+                    HTMLInputElement -> m (Maybe result)+getAutocapitalize self+  = liftIO+      (fromMaybeJSString <$>+         (js_getAutocapitalize (unHTMLInputElement self)))+ +foreign import javascript unsafe "$1[\"capture\"] = $2;"+        js_setCapture :: JSRef HTMLInputElement -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.capture Mozilla HTMLInputElement.capture documentation> +setCapture :: (MonadIO m) => HTMLInputElement -> Bool -> m ()+setCapture self val+  = liftIO (js_setCapture (unHTMLInputElement self) val)+ +foreign import javascript unsafe "($1[\"capture\"] ? 1 : 0)"+        js_getCapture :: JSRef HTMLInputElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.capture Mozilla HTMLInputElement.capture documentation> +getCapture :: (MonadIO m) => HTMLInputElement -> m Bool+getCapture self = liftIO (js_getCapture (unHTMLInputElement self))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLKeygenElement.hs view
@@ -0,0 +1,194 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.HTMLKeygenElement+       (js_checkValidity, checkValidity, js_setCustomValidity,+        setCustomValidity, js_setAutofocus, setAutofocus, js_getAutofocus,+        getAutofocus, js_setChallenge, setChallenge, js_getChallenge,+        getChallenge, js_setDisabled, setDisabled, js_getDisabled,+        getDisabled, js_getForm, getForm, js_setKeytype, setKeytype,+        js_getKeytype, getKeytype, js_setName, setName, js_getName,+        getName, js_getType, getType, js_getWillValidate, getWillValidate,+        js_getValidity, getValidity, js_getValidationMessage,+        getValidationMessage, js_getLabels, getLabels, HTMLKeygenElement,+        castToHTMLKeygenElement, gTypeHTMLKeygenElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe+        "($1[\"checkValidity\"]() ? 1 : 0)" js_checkValidity ::+        JSRef HTMLKeygenElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLKeygenElement.checkValidity Mozilla HTMLKeygenElement.checkValidity documentation> +checkValidity :: (MonadIO m) => HTMLKeygenElement -> m Bool+checkValidity self+  = liftIO (js_checkValidity (unHTMLKeygenElement self))+ +foreign import javascript unsafe "$1[\"setCustomValidity\"]($2)"+        js_setCustomValidity ::+        JSRef HTMLKeygenElement -> JSRef (Maybe JSString) -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLKeygenElement.setCustomValidity Mozilla HTMLKeygenElement.setCustomValidity documentation> +setCustomValidity ::+                  (MonadIO m, ToJSString error) =>+                    HTMLKeygenElement -> Maybe error -> m ()+setCustomValidity self error+  = liftIO+      (js_setCustomValidity (unHTMLKeygenElement self)+         (toMaybeJSString error))+ +foreign import javascript unsafe "$1[\"autofocus\"] = $2;"+        js_setAutofocus :: JSRef HTMLKeygenElement -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLKeygenElement.autofocus Mozilla HTMLKeygenElement.autofocus documentation> +setAutofocus :: (MonadIO m) => HTMLKeygenElement -> Bool -> m ()+setAutofocus self val+  = liftIO (js_setAutofocus (unHTMLKeygenElement self) val)+ +foreign import javascript unsafe "($1[\"autofocus\"] ? 1 : 0)"+        js_getAutofocus :: JSRef HTMLKeygenElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLKeygenElement.autofocus Mozilla HTMLKeygenElement.autofocus documentation> +getAutofocus :: (MonadIO m) => HTMLKeygenElement -> m Bool+getAutofocus self+  = liftIO (js_getAutofocus (unHTMLKeygenElement self))+ +foreign import javascript unsafe "$1[\"challenge\"] = $2;"+        js_setChallenge :: JSRef HTMLKeygenElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLKeygenElement.challenge Mozilla HTMLKeygenElement.challenge documentation> +setChallenge ::+             (MonadIO m, ToJSString val) => HTMLKeygenElement -> val -> m ()+setChallenge self val+  = liftIO+      (js_setChallenge (unHTMLKeygenElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"challenge\"]"+        js_getChallenge :: JSRef HTMLKeygenElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLKeygenElement.challenge Mozilla HTMLKeygenElement.challenge documentation> +getChallenge ::+             (MonadIO m, FromJSString result) => HTMLKeygenElement -> m result+getChallenge self+  = liftIO+      (fromJSString <$> (js_getChallenge (unHTMLKeygenElement self)))+ +foreign import javascript unsafe "$1[\"disabled\"] = $2;"+        js_setDisabled :: JSRef HTMLKeygenElement -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLKeygenElement.disabled Mozilla HTMLKeygenElement.disabled documentation> +setDisabled :: (MonadIO m) => HTMLKeygenElement -> Bool -> m ()+setDisabled self val+  = liftIO (js_setDisabled (unHTMLKeygenElement self) val)+ +foreign import javascript unsafe "($1[\"disabled\"] ? 1 : 0)"+        js_getDisabled :: JSRef HTMLKeygenElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLKeygenElement.disabled Mozilla HTMLKeygenElement.disabled documentation> +getDisabled :: (MonadIO m) => HTMLKeygenElement -> m Bool+getDisabled self+  = liftIO (js_getDisabled (unHTMLKeygenElement self))+ +foreign import javascript unsafe "$1[\"form\"]" js_getForm ::+        JSRef HTMLKeygenElement -> IO (JSRef HTMLFormElement)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLKeygenElement.form Mozilla HTMLKeygenElement.form documentation> +getForm ::+        (MonadIO m) => HTMLKeygenElement -> m (Maybe HTMLFormElement)+getForm self+  = liftIO ((js_getForm (unHTMLKeygenElement self)) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"keytype\"] = $2;"+        js_setKeytype :: JSRef HTMLKeygenElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLKeygenElement.keytype Mozilla HTMLKeygenElement.keytype documentation> +setKeytype ::+           (MonadIO m, ToJSString val) => HTMLKeygenElement -> val -> m ()+setKeytype self val+  = liftIO+      (js_setKeytype (unHTMLKeygenElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"keytype\"]" js_getKeytype ::+        JSRef HTMLKeygenElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLKeygenElement.keytype Mozilla HTMLKeygenElement.keytype documentation> +getKeytype ::+           (MonadIO m, FromJSString result) => HTMLKeygenElement -> m result+getKeytype self+  = liftIO+      (fromJSString <$> (js_getKeytype (unHTMLKeygenElement self)))+ +foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName ::+        JSRef HTMLKeygenElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLKeygenElement.name Mozilla HTMLKeygenElement.name documentation> +setName ::+        (MonadIO m, ToJSString val) => HTMLKeygenElement -> val -> m ()+setName self val+  = liftIO (js_setName (unHTMLKeygenElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"name\"]" js_getName ::+        JSRef HTMLKeygenElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLKeygenElement.name Mozilla HTMLKeygenElement.name documentation> +getName ::+        (MonadIO m, FromJSString result) => HTMLKeygenElement -> m result+getName self+  = liftIO (fromJSString <$> (js_getName (unHTMLKeygenElement self)))+ +foreign import javascript unsafe "$1[\"type\"]" js_getType ::+        JSRef HTMLKeygenElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLKeygenElement.type Mozilla HTMLKeygenElement.type documentation> +getType ::+        (MonadIO m, FromJSString result) => HTMLKeygenElement -> m result+getType self+  = liftIO (fromJSString <$> (js_getType (unHTMLKeygenElement self)))+ +foreign import javascript unsafe "($1[\"willValidate\"] ? 1 : 0)"+        js_getWillValidate :: JSRef HTMLKeygenElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLKeygenElement.willValidate Mozilla HTMLKeygenElement.willValidate documentation> +getWillValidate :: (MonadIO m) => HTMLKeygenElement -> m Bool+getWillValidate self+  = liftIO (js_getWillValidate (unHTMLKeygenElement self))+ +foreign import javascript unsafe "$1[\"validity\"]" js_getValidity+        :: JSRef HTMLKeygenElement -> IO (JSRef ValidityState)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLKeygenElement.validity Mozilla HTMLKeygenElement.validity documentation> +getValidity ::+            (MonadIO m) => HTMLKeygenElement -> m (Maybe ValidityState)+getValidity self+  = liftIO+      ((js_getValidity (unHTMLKeygenElement self)) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"validationMessage\"]"+        js_getValidationMessage :: JSRef HTMLKeygenElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLKeygenElement.validationMessage Mozilla HTMLKeygenElement.validationMessage documentation> +getValidationMessage ::+                     (MonadIO m, FromJSString result) => HTMLKeygenElement -> m result+getValidationMessage self+  = liftIO+      (fromJSString <$>+         (js_getValidationMessage (unHTMLKeygenElement self)))+ +foreign import javascript unsafe "$1[\"labels\"]" js_getLabels ::+        JSRef HTMLKeygenElement -> IO (JSRef NodeList)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLKeygenElement.labels Mozilla HTMLKeygenElement.labels documentation> +getLabels :: (MonadIO m) => HTMLKeygenElement -> m (Maybe NodeList)+getLabels self+  = liftIO ((js_getLabels (unHTMLKeygenElement self)) >>= fromJSRef)
+ src/GHCJS/DOM/JSFFI/Generated/HTMLLIElement.hs view
@@ -0,0 +1,52 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.HTMLLIElement+       (js_setType, setType, js_getType, getType, js_setValue, setValue,+        js_getValue, getValue, HTMLLIElement, castToHTMLLIElement,+        gTypeHTMLLIElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"type\"] = $2;" js_setType ::+        JSRef HTMLLIElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLIElement.type Mozilla HTMLLIElement.type documentation> +setType ::+        (MonadIO m, ToJSString val) => HTMLLIElement -> val -> m ()+setType self val+  = liftIO (js_setType (unHTMLLIElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"type\"]" js_getType ::+        JSRef HTMLLIElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLIElement.type Mozilla HTMLLIElement.type documentation> +getType ::+        (MonadIO m, FromJSString result) => HTMLLIElement -> m result+getType self+  = liftIO (fromJSString <$> (js_getType (unHTMLLIElement self)))+ +foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue+        :: JSRef HTMLLIElement -> Int -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLIElement.value Mozilla HTMLLIElement.value documentation> +setValue :: (MonadIO m) => HTMLLIElement -> Int -> m ()+setValue self val = liftIO (js_setValue (unHTMLLIElement self) val)+ +foreign import javascript unsafe "$1[\"value\"]" js_getValue ::+        JSRef HTMLLIElement -> IO Int++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLIElement.value Mozilla HTMLLIElement.value documentation> +getValue :: (MonadIO m) => HTMLLIElement -> m Int+getValue self = liftIO (js_getValue (unHTMLLIElement self))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLLabelElement.hs view
@@ -0,0 +1,57 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.HTMLLabelElement+       (js_getForm, getForm, js_setHtmlFor, setHtmlFor, js_getHtmlFor,+        getHtmlFor, js_getControl, getControl, HTMLLabelElement,+        castToHTMLLabelElement, gTypeHTMLLabelElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"form\"]" js_getForm ::+        JSRef HTMLLabelElement -> IO (JSRef HTMLFormElement)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLabelElement.form Mozilla HTMLLabelElement.form documentation> +getForm ::+        (MonadIO m) => HTMLLabelElement -> m (Maybe HTMLFormElement)+getForm self+  = liftIO ((js_getForm (unHTMLLabelElement self)) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"htmlFor\"] = $2;"+        js_setHtmlFor :: JSRef HTMLLabelElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLabelElement.htmlFor Mozilla HTMLLabelElement.htmlFor documentation> +setHtmlFor ::+           (MonadIO m, ToJSString val) => HTMLLabelElement -> val -> m ()+setHtmlFor self val+  = liftIO (js_setHtmlFor (unHTMLLabelElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"htmlFor\"]" js_getHtmlFor ::+        JSRef HTMLLabelElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLabelElement.htmlFor Mozilla HTMLLabelElement.htmlFor documentation> +getHtmlFor ::+           (MonadIO m, FromJSString result) => HTMLLabelElement -> m result+getHtmlFor self+  = liftIO+      (fromJSString <$> (js_getHtmlFor (unHTMLLabelElement self)))+ +foreign import javascript unsafe "$1[\"control\"]" js_getControl ::+        JSRef HTMLLabelElement -> IO (JSRef HTMLElement)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLabelElement.control Mozilla HTMLLabelElement.control documentation> +getControl ::+           (MonadIO m) => HTMLLabelElement -> m (Maybe HTMLElement)+getControl self+  = liftIO ((js_getControl (unHTMLLabelElement self)) >>= fromJSRef)
+ src/GHCJS/DOM/JSFFI/Generated/HTMLLegendElement.hs view
@@ -0,0 +1,47 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.HTMLLegendElement+       (js_getForm, getForm, js_setAlign, setAlign, js_getAlign, getAlign,+        HTMLLegendElement, castToHTMLLegendElement, gTypeHTMLLegendElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"form\"]" js_getForm ::+        JSRef HTMLLegendElement -> IO (JSRef HTMLFormElement)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLegendElement.form Mozilla HTMLLegendElement.form documentation> +getForm ::+        (MonadIO m) => HTMLLegendElement -> m (Maybe HTMLFormElement)+getForm self+  = liftIO ((js_getForm (unHTMLLegendElement self)) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign+        :: JSRef HTMLLegendElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLegendElement.align Mozilla HTMLLegendElement.align documentation> +setAlign ::+         (MonadIO m, ToJSString val) => HTMLLegendElement -> val -> m ()+setAlign self val+  = liftIO (js_setAlign (unHTMLLegendElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"align\"]" js_getAlign ::+        JSRef HTMLLegendElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLegendElement.align Mozilla HTMLLegendElement.align documentation> +getAlign ::+         (MonadIO m, FromJSString result) => HTMLLegendElement -> m result+getAlign self+  = liftIO+      (fromJSString <$> (js_getAlign (unHTMLLegendElement self)))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLLinkElement.hs view
@@ -0,0 +1,225 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.HTMLLinkElement+       (js_setDisabled, setDisabled, js_getDisabled, getDisabled,+        js_setCharset, setCharset, js_getCharset, getCharset, js_setHref,+        setHref, js_getHref, getHref, js_setHreflang, setHreflang,+        js_getHreflang, getHreflang, js_setMedia, setMedia, js_getMedia,+        getMedia, js_setRel, setRel, js_getRel, getRel, js_setRev, setRev,+        js_getRev, getRev, js_setSizes, setSizes, js_getSizes, getSizes,+        js_setTarget, setTarget, js_getTarget, getTarget, js_setType,+        setType, js_getType, getType, js_getSheet, getSheet, js_getRelList,+        getRelList, HTMLLinkElement, castToHTMLLinkElement,+        gTypeHTMLLinkElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"disabled\"] = $2;"+        js_setDisabled :: JSRef HTMLLinkElement -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.disabled Mozilla HTMLLinkElement.disabled documentation> +setDisabled :: (MonadIO m) => HTMLLinkElement -> Bool -> m ()+setDisabled self val+  = liftIO (js_setDisabled (unHTMLLinkElement self) val)+ +foreign import javascript unsafe "($1[\"disabled\"] ? 1 : 0)"+        js_getDisabled :: JSRef HTMLLinkElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.disabled Mozilla HTMLLinkElement.disabled documentation> +getDisabled :: (MonadIO m) => HTMLLinkElement -> m Bool+getDisabled self = liftIO (js_getDisabled (unHTMLLinkElement self))+ +foreign import javascript unsafe "$1[\"charset\"] = $2;"+        js_setCharset :: JSRef HTMLLinkElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.charset Mozilla HTMLLinkElement.charset documentation> +setCharset ::+           (MonadIO m, ToJSString val) => HTMLLinkElement -> val -> m ()+setCharset self val+  = liftIO (js_setCharset (unHTMLLinkElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"charset\"]" js_getCharset ::+        JSRef HTMLLinkElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.charset Mozilla HTMLLinkElement.charset documentation> +getCharset ::+           (MonadIO m, FromJSString result) => HTMLLinkElement -> m result+getCharset self+  = liftIO+      (fromJSString <$> (js_getCharset (unHTMLLinkElement self)))+ +foreign import javascript unsafe "$1[\"href\"] = $2;" js_setHref ::+        JSRef HTMLLinkElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.href Mozilla HTMLLinkElement.href documentation> +setHref ::+        (MonadIO m, ToJSString val) => HTMLLinkElement -> val -> m ()+setHref self val+  = liftIO (js_setHref (unHTMLLinkElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"href\"]" js_getHref ::+        JSRef HTMLLinkElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.href Mozilla HTMLLinkElement.href documentation> +getHref ::+        (MonadIO m, FromJSString result) => HTMLLinkElement -> m result+getHref self+  = liftIO (fromJSString <$> (js_getHref (unHTMLLinkElement self)))+ +foreign import javascript unsafe "$1[\"hreflang\"] = $2;"+        js_setHreflang :: JSRef HTMLLinkElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.hreflang Mozilla HTMLLinkElement.hreflang documentation> +setHreflang ::+            (MonadIO m, ToJSString val) => HTMLLinkElement -> val -> m ()+setHreflang self val+  = liftIO (js_setHreflang (unHTMLLinkElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"hreflang\"]" js_getHreflang+        :: JSRef HTMLLinkElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.hreflang Mozilla HTMLLinkElement.hreflang documentation> +getHreflang ::+            (MonadIO m, FromJSString result) => HTMLLinkElement -> m result+getHreflang self+  = liftIO+      (fromJSString <$> (js_getHreflang (unHTMLLinkElement self)))+ +foreign import javascript unsafe "$1[\"media\"] = $2;" js_setMedia+        :: JSRef HTMLLinkElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.media Mozilla HTMLLinkElement.media documentation> +setMedia ::+         (MonadIO m, ToJSString val) => HTMLLinkElement -> val -> m ()+setMedia self val+  = liftIO (js_setMedia (unHTMLLinkElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"media\"]" js_getMedia ::+        JSRef HTMLLinkElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.media Mozilla HTMLLinkElement.media documentation> +getMedia ::+         (MonadIO m, FromJSString result) => HTMLLinkElement -> m result+getMedia self+  = liftIO (fromJSString <$> (js_getMedia (unHTMLLinkElement self)))+ +foreign import javascript unsafe "$1[\"rel\"] = $2;" js_setRel ::+        JSRef HTMLLinkElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.rel Mozilla HTMLLinkElement.rel documentation> +setRel ::+       (MonadIO m, ToJSString val) => HTMLLinkElement -> val -> m ()+setRel self val+  = liftIO (js_setRel (unHTMLLinkElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"rel\"]" js_getRel ::+        JSRef HTMLLinkElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.rel Mozilla HTMLLinkElement.rel documentation> +getRel ::+       (MonadIO m, FromJSString result) => HTMLLinkElement -> m result+getRel self+  = liftIO (fromJSString <$> (js_getRel (unHTMLLinkElement self)))+ +foreign import javascript unsafe "$1[\"rev\"] = $2;" js_setRev ::+        JSRef HTMLLinkElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.rev Mozilla HTMLLinkElement.rev documentation> +setRev ::+       (MonadIO m, ToJSString val) => HTMLLinkElement -> val -> m ()+setRev self val+  = liftIO (js_setRev (unHTMLLinkElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"rev\"]" js_getRev ::+        JSRef HTMLLinkElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.rev Mozilla HTMLLinkElement.rev documentation> +getRev ::+       (MonadIO m, FromJSString result) => HTMLLinkElement -> m result+getRev self+  = liftIO (fromJSString <$> (js_getRev (unHTMLLinkElement self)))+ +foreign import javascript unsafe "$1[\"sizes\"] = $2;" js_setSizes+        :: JSRef HTMLLinkElement -> JSRef DOMSettableTokenList -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.sizes Mozilla HTMLLinkElement.sizes documentation> +setSizes ::+         (MonadIO m) =>+           HTMLLinkElement -> Maybe DOMSettableTokenList -> m ()+setSizes self val+  = liftIO+      (js_setSizes (unHTMLLinkElement self) (maybe jsNull pToJSRef val))+ +foreign import javascript unsafe "$1[\"sizes\"]" js_getSizes ::+        JSRef HTMLLinkElement -> IO (JSRef DOMSettableTokenList)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.sizes Mozilla HTMLLinkElement.sizes documentation> +getSizes ::+         (MonadIO m) => HTMLLinkElement -> m (Maybe DOMSettableTokenList)+getSizes self+  = liftIO ((js_getSizes (unHTMLLinkElement self)) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"target\"] = $2;"+        js_setTarget :: JSRef HTMLLinkElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.target Mozilla HTMLLinkElement.target documentation> +setTarget ::+          (MonadIO m, ToJSString val) => HTMLLinkElement -> val -> m ()+setTarget self val+  = liftIO (js_setTarget (unHTMLLinkElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"target\"]" js_getTarget ::+        JSRef HTMLLinkElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.target Mozilla HTMLLinkElement.target documentation> +getTarget ::+          (MonadIO m, FromJSString result) => HTMLLinkElement -> m result+getTarget self+  = liftIO (fromJSString <$> (js_getTarget (unHTMLLinkElement self)))+ +foreign import javascript unsafe "$1[\"type\"] = $2;" js_setType ::+        JSRef HTMLLinkElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.type Mozilla HTMLLinkElement.type documentation> +setType ::+        (MonadIO m, ToJSString val) => HTMLLinkElement -> val -> m ()+setType self val+  = liftIO (js_setType (unHTMLLinkElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"type\"]" js_getType ::+        JSRef HTMLLinkElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.type Mozilla HTMLLinkElement.type documentation> +getType ::+        (MonadIO m, FromJSString result) => HTMLLinkElement -> m result+getType self+  = liftIO (fromJSString <$> (js_getType (unHTMLLinkElement self)))+ +foreign import javascript unsafe "$1[\"sheet\"]" js_getSheet ::+        JSRef HTMLLinkElement -> IO (JSRef StyleSheet)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.sheet Mozilla HTMLLinkElement.sheet documentation> +getSheet :: (MonadIO m) => HTMLLinkElement -> m (Maybe StyleSheet)+getSheet self+  = liftIO ((js_getSheet (unHTMLLinkElement self)) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"relList\"]" js_getRelList ::+        JSRef HTMLLinkElement -> IO (JSRef DOMTokenList)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.relList Mozilla HTMLLinkElement.relList documentation> +getRelList ::+           (MonadIO m) => HTMLLinkElement -> m (Maybe DOMTokenList)+getRelList self+  = liftIO ((js_getRelList (unHTMLLinkElement self)) >>= fromJSRef)
+ src/GHCJS/DOM/JSFFI/Generated/HTMLMapElement.hs view
@@ -0,0 +1,46 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.HTMLMapElement+       (js_getAreas, getAreas, js_setName, setName, js_getName, getName,+        HTMLMapElement, castToHTMLMapElement, gTypeHTMLMapElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"areas\"]" js_getAreas ::+        JSRef HTMLMapElement -> IO (JSRef HTMLCollection)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMapElement.areas Mozilla HTMLMapElement.areas documentation> +getAreas ::+         (MonadIO m) => HTMLMapElement -> m (Maybe HTMLCollection)+getAreas self+  = liftIO ((js_getAreas (unHTMLMapElement self)) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName ::+        JSRef HTMLMapElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMapElement.name Mozilla HTMLMapElement.name documentation> +setName ::+        (MonadIO m, ToJSString val) => HTMLMapElement -> val -> m ()+setName self val+  = liftIO (js_setName (unHTMLMapElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"name\"]" js_getName ::+        JSRef HTMLMapElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMapElement.name Mozilla HTMLMapElement.name documentation> +getName ::+        (MonadIO m, FromJSString result) => HTMLMapElement -> m result+getName self+  = liftIO (fromJSString <$> (js_getName (unHTMLMapElement self)))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLMarqueeElement.hs view
@@ -0,0 +1,236 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.HTMLMarqueeElement+       (js_start, start, js_stop, stop, js_setBehavior, setBehavior,+        js_getBehavior, getBehavior, js_setBgColor, setBgColor,+        js_getBgColor, getBgColor, js_setDirection, setDirection,+        js_getDirection, getDirection, js_setHeight, setHeight,+        js_getHeight, getHeight, js_setHspace, setHspace, js_getHspace,+        getHspace, js_setLoop, setLoop, js_getLoop, getLoop,+        js_setScrollAmount, setScrollAmount, js_getScrollAmount,+        getScrollAmount, js_setScrollDelay, setScrollDelay,+        js_getScrollDelay, getScrollDelay, js_setTrueSpeed, setTrueSpeed,+        js_getTrueSpeed, getTrueSpeed, js_setVspace, setVspace,+        js_getVspace, getVspace, js_setWidth, setWidth, js_getWidth,+        getWidth, HTMLMarqueeElement, castToHTMLMarqueeElement,+        gTypeHTMLMarqueeElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"start\"]()" js_start ::+        JSRef HTMLMarqueeElement -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMarqueeElement.start Mozilla HTMLMarqueeElement.start documentation> +start :: (MonadIO m) => HTMLMarqueeElement -> m ()+start self = liftIO (js_start (unHTMLMarqueeElement self))+ +foreign import javascript unsafe "$1[\"stop\"]()" js_stop ::+        JSRef HTMLMarqueeElement -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMarqueeElement.stop Mozilla HTMLMarqueeElement.stop documentation> +stop :: (MonadIO m) => HTMLMarqueeElement -> m ()+stop self = liftIO (js_stop (unHTMLMarqueeElement self))+ +foreign import javascript unsafe "$1[\"behavior\"] = $2;"+        js_setBehavior :: JSRef HTMLMarqueeElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMarqueeElement.behavior Mozilla HTMLMarqueeElement.behavior documentation> +setBehavior ::+            (MonadIO m, ToJSString val) => HTMLMarqueeElement -> val -> m ()+setBehavior self val+  = liftIO+      (js_setBehavior (unHTMLMarqueeElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"behavior\"]" js_getBehavior+        :: JSRef HTMLMarqueeElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMarqueeElement.behavior Mozilla HTMLMarqueeElement.behavior documentation> +getBehavior ::+            (MonadIO m, FromJSString result) => HTMLMarqueeElement -> m result+getBehavior self+  = liftIO+      (fromJSString <$> (js_getBehavior (unHTMLMarqueeElement self)))+ +foreign import javascript unsafe "$1[\"bgColor\"] = $2;"+        js_setBgColor :: JSRef HTMLMarqueeElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMarqueeElement.bgColor Mozilla HTMLMarqueeElement.bgColor documentation> +setBgColor ::+           (MonadIO m, ToJSString val) => HTMLMarqueeElement -> val -> m ()+setBgColor self val+  = liftIO+      (js_setBgColor (unHTMLMarqueeElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"bgColor\"]" js_getBgColor ::+        JSRef HTMLMarqueeElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMarqueeElement.bgColor Mozilla HTMLMarqueeElement.bgColor documentation> +getBgColor ::+           (MonadIO m, FromJSString result) => HTMLMarqueeElement -> m result+getBgColor self+  = liftIO+      (fromJSString <$> (js_getBgColor (unHTMLMarqueeElement self)))+ +foreign import javascript unsafe "$1[\"direction\"] = $2;"+        js_setDirection :: JSRef HTMLMarqueeElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMarqueeElement.direction Mozilla HTMLMarqueeElement.direction documentation> +setDirection ::+             (MonadIO m, ToJSString val) => HTMLMarqueeElement -> val -> m ()+setDirection self val+  = liftIO+      (js_setDirection (unHTMLMarqueeElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"direction\"]"+        js_getDirection :: JSRef HTMLMarqueeElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMarqueeElement.direction Mozilla HTMLMarqueeElement.direction documentation> +getDirection ::+             (MonadIO m, FromJSString result) => HTMLMarqueeElement -> m result+getDirection self+  = liftIO+      (fromJSString <$> (js_getDirection (unHTMLMarqueeElement self)))+ +foreign import javascript unsafe "$1[\"height\"] = $2;"+        js_setHeight :: JSRef HTMLMarqueeElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMarqueeElement.height Mozilla HTMLMarqueeElement.height documentation> +setHeight ::+          (MonadIO m, ToJSString val) => HTMLMarqueeElement -> val -> m ()+setHeight self val+  = liftIO+      (js_setHeight (unHTMLMarqueeElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"height\"]" js_getHeight ::+        JSRef HTMLMarqueeElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMarqueeElement.height Mozilla HTMLMarqueeElement.height documentation> +getHeight ::+          (MonadIO m, FromJSString result) => HTMLMarqueeElement -> m result+getHeight self+  = liftIO+      (fromJSString <$> (js_getHeight (unHTMLMarqueeElement self)))+ +foreign import javascript unsafe "$1[\"hspace\"] = $2;"+        js_setHspace :: JSRef HTMLMarqueeElement -> Word -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMarqueeElement.hspace Mozilla HTMLMarqueeElement.hspace documentation> +setHspace :: (MonadIO m) => HTMLMarqueeElement -> Word -> m ()+setHspace self val+  = liftIO (js_setHspace (unHTMLMarqueeElement self) val)+ +foreign import javascript unsafe "$1[\"hspace\"]" js_getHspace ::+        JSRef HTMLMarqueeElement -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMarqueeElement.hspace Mozilla HTMLMarqueeElement.hspace documentation> +getHspace :: (MonadIO m) => HTMLMarqueeElement -> m Word+getHspace self = liftIO (js_getHspace (unHTMLMarqueeElement self))+ +foreign import javascript unsafe "$1[\"loop\"] = $2;" js_setLoop ::+        JSRef HTMLMarqueeElement -> Int -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMarqueeElement.loop Mozilla HTMLMarqueeElement.loop documentation> +setLoop :: (MonadIO m) => HTMLMarqueeElement -> Int -> m ()+setLoop self val+  = liftIO (js_setLoop (unHTMLMarqueeElement self) val)+ +foreign import javascript unsafe "$1[\"loop\"]" js_getLoop ::+        JSRef HTMLMarqueeElement -> IO Int++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMarqueeElement.loop Mozilla HTMLMarqueeElement.loop documentation> +getLoop :: (MonadIO m) => HTMLMarqueeElement -> m Int+getLoop self = liftIO (js_getLoop (unHTMLMarqueeElement self))+ +foreign import javascript unsafe "$1[\"scrollAmount\"] = $2;"+        js_setScrollAmount :: JSRef HTMLMarqueeElement -> Int -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMarqueeElement.scrollAmount Mozilla HTMLMarqueeElement.scrollAmount documentation> +setScrollAmount :: (MonadIO m) => HTMLMarqueeElement -> Int -> m ()+setScrollAmount self val+  = liftIO (js_setScrollAmount (unHTMLMarqueeElement self) val)+ +foreign import javascript unsafe "$1[\"scrollAmount\"]"+        js_getScrollAmount :: JSRef HTMLMarqueeElement -> IO Int++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMarqueeElement.scrollAmount Mozilla HTMLMarqueeElement.scrollAmount documentation> +getScrollAmount :: (MonadIO m) => HTMLMarqueeElement -> m Int+getScrollAmount self+  = liftIO (js_getScrollAmount (unHTMLMarqueeElement self))+ +foreign import javascript unsafe "$1[\"scrollDelay\"] = $2;"+        js_setScrollDelay :: JSRef HTMLMarqueeElement -> Int -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMarqueeElement.scrollDelay Mozilla HTMLMarqueeElement.scrollDelay documentation> +setScrollDelay :: (MonadIO m) => HTMLMarqueeElement -> Int -> m ()+setScrollDelay self val+  = liftIO (js_setScrollDelay (unHTMLMarqueeElement self) val)+ +foreign import javascript unsafe "$1[\"scrollDelay\"]"+        js_getScrollDelay :: JSRef HTMLMarqueeElement -> IO Int++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMarqueeElement.scrollDelay Mozilla HTMLMarqueeElement.scrollDelay documentation> +getScrollDelay :: (MonadIO m) => HTMLMarqueeElement -> m Int+getScrollDelay self+  = liftIO (js_getScrollDelay (unHTMLMarqueeElement self))+ +foreign import javascript unsafe "$1[\"trueSpeed\"] = $2;"+        js_setTrueSpeed :: JSRef HTMLMarqueeElement -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMarqueeElement.trueSpeed Mozilla HTMLMarqueeElement.trueSpeed documentation> +setTrueSpeed :: (MonadIO m) => HTMLMarqueeElement -> Bool -> m ()+setTrueSpeed self val+  = liftIO (js_setTrueSpeed (unHTMLMarqueeElement self) val)+ +foreign import javascript unsafe "($1[\"trueSpeed\"] ? 1 : 0)"+        js_getTrueSpeed :: JSRef HTMLMarqueeElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMarqueeElement.trueSpeed Mozilla HTMLMarqueeElement.trueSpeed documentation> +getTrueSpeed :: (MonadIO m) => HTMLMarqueeElement -> m Bool+getTrueSpeed self+  = liftIO (js_getTrueSpeed (unHTMLMarqueeElement self))+ +foreign import javascript unsafe "$1[\"vspace\"] = $2;"+        js_setVspace :: JSRef HTMLMarqueeElement -> Word -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMarqueeElement.vspace Mozilla HTMLMarqueeElement.vspace documentation> +setVspace :: (MonadIO m) => HTMLMarqueeElement -> Word -> m ()+setVspace self val+  = liftIO (js_setVspace (unHTMLMarqueeElement self) val)+ +foreign import javascript unsafe "$1[\"vspace\"]" js_getVspace ::+        JSRef HTMLMarqueeElement -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMarqueeElement.vspace Mozilla HTMLMarqueeElement.vspace documentation> +getVspace :: (MonadIO m) => HTMLMarqueeElement -> m Word+getVspace self = liftIO (js_getVspace (unHTMLMarqueeElement self))+ +foreign import javascript unsafe "$1[\"width\"] = $2;" js_setWidth+        :: JSRef HTMLMarqueeElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMarqueeElement.width Mozilla HTMLMarqueeElement.width documentation> +setWidth ::+         (MonadIO m, ToJSString val) => HTMLMarqueeElement -> val -> m ()+setWidth self val+  = liftIO (js_setWidth (unHTMLMarqueeElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::+        JSRef HTMLMarqueeElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMarqueeElement.width Mozilla HTMLMarqueeElement.width documentation> +getWidth ::+         (MonadIO m, FromJSString result) => HTMLMarqueeElement -> m result+getWidth self+  = liftIO+      (fromJSString <$> (js_getWidth (unHTMLMarqueeElement self)))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLMediaElement.hs view
@@ -0,0 +1,948 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.HTMLMediaElement+       (js_load, load, js_canPlayType, canPlayType, js_play, play,+        js_pause, pause, js_fastSeek, fastSeek,+        js_webkitGenerateKeyRequest, webkitGenerateKeyRequest,+        js_webkitAddKey, webkitAddKey, js_webkitCancelKeyRequest,+        webkitCancelKeyRequest, js_webkitSetMediaKeys, webkitSetMediaKeys,+        js_addTextTrack, addTextTrack, js_getVideoPlaybackQuality,+        getVideoPlaybackQuality, js_webkitShowPlaybackTargetPicker,+        webkitShowPlaybackTargetPicker, pattern NETWORK_EMPTY,+        pattern NETWORK_IDLE, pattern NETWORK_LOADING,+        pattern NETWORK_NO_SOURCE, pattern HAVE_NOTHING,+        pattern HAVE_METADATA, pattern HAVE_CURRENT_DATA,+        pattern HAVE_FUTURE_DATA, pattern HAVE_ENOUGH_DATA, js_getError,+        getError, js_setSrc, setSrc, js_getSrc, getSrc, js_getCurrentSrc,+        getCurrentSrc, js_getNetworkState, getNetworkState, js_setPreload,+        setPreload, js_getPreload, getPreload, js_getBuffered, getBuffered,+        js_getReadyState, getReadyState, js_getSeeking, getSeeking,+        js_setCurrentTime, setCurrentTime, js_getCurrentTime,+        getCurrentTime, js_getDuration, getDuration, js_getPaused,+        getPaused, js_setDefaultPlaybackRate, setDefaultPlaybackRate,+        js_getDefaultPlaybackRate, getDefaultPlaybackRate,+        js_setPlaybackRate, setPlaybackRate, js_getPlaybackRate,+        getPlaybackRate, js_getPlayed, getPlayed, js_getSeekable,+        getSeekable, js_getEnded, getEnded, js_setAutoplay, setAutoplay,+        js_getAutoplay, getAutoplay, js_setLoop, setLoop, js_getLoop,+        getLoop, js_setControls, setControls, js_getControls, getControls,+        js_setVolume, setVolume, js_getVolume, getVolume, js_setMuted,+        setMuted, js_getMuted, getMuted, js_setDefaultMuted,+        setDefaultMuted, js_getDefaultMuted, getDefaultMuted, emptied,+        loadedMetadata, loadedData, canPlay, canPlayThrough, playing,+        ended, waiting, durationChange, timeUpdate, playEvent, pauseEvent,+        rateChange, volumeChange, js_setWebkitPreservesPitch,+        setWebkitPreservesPitch, js_getWebkitPreservesPitch,+        getWebkitPreservesPitch, js_getWebkitHasClosedCaptions,+        getWebkitHasClosedCaptions, js_setWebkitClosedCaptionsVisible,+        setWebkitClosedCaptionsVisible, js_getWebkitClosedCaptionsVisible,+        getWebkitClosedCaptionsVisible, js_getWebkitAudioDecodedByteCount,+        getWebkitAudioDecodedByteCount, js_getWebkitVideoDecodedByteCount,+        getWebkitVideoDecodedByteCount, webKitKeyAdded, webKitKeyError,+        webKitKeyMessage, webKitNeedKey, js_getWebkitKeys, getWebkitKeys,+        js_getAudioTracks, getAudioTracks, js_getTextTracks, getTextTracks,+        js_getVideoTracks, getVideoTracks, js_setMediaGroup, setMediaGroup,+        js_getMediaGroup, getMediaGroup, js_setController, setController,+        js_getController, getController,+        js_getWebkitCurrentPlaybackTargetIsWireless,+        getWebkitCurrentPlaybackTargetIsWireless,+        webKitCurrentPlaybackTargetIsWirelessChanged,+        webKitPlaybackTargetAvailabilityChanged, js_setSrcObject,+        setSrcObject, js_getSrcObject, getSrcObject, HTMLMediaElement,+        castToHTMLMediaElement, gTypeHTMLMediaElement, IsHTMLMediaElement,+        toHTMLMediaElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"load\"]()" js_load ::+        JSRef HTMLMediaElement -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.load Mozilla HTMLMediaElement.load documentation> +load :: (MonadIO m, IsHTMLMediaElement self) => self -> m ()+load self+  = liftIO (js_load (unHTMLMediaElement (toHTMLMediaElement self)))+ +foreign import javascript unsafe "$1[\"canPlayType\"]($2, $3)"+        js_canPlayType ::+        JSRef HTMLMediaElement ->+          JSString -> JSRef (Maybe JSString) -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.canPlayType Mozilla HTMLMediaElement.canPlayType documentation> +canPlayType ::+            (MonadIO m, IsHTMLMediaElement self, ToJSString type',+             ToJSString keySystem, FromJSString result) =>+              self -> type' -> Maybe keySystem -> m result+canPlayType self type' keySystem+  = liftIO+      (fromJSString <$>+         (js_canPlayType (unHTMLMediaElement (toHTMLMediaElement self))+            (toJSString type')+            (toMaybeJSString keySystem)))+ +foreign import javascript unsafe "$1[\"play\"]()" js_play ::+        JSRef HTMLMediaElement -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.play Mozilla HTMLMediaElement.play documentation> +play :: (MonadIO m, IsHTMLMediaElement self) => self -> m ()+play self+  = liftIO (js_play (unHTMLMediaElement (toHTMLMediaElement self)))+ +foreign import javascript unsafe "$1[\"pause\"]()" js_pause ::+        JSRef HTMLMediaElement -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.pause Mozilla HTMLMediaElement.pause documentation> +pause :: (MonadIO m, IsHTMLMediaElement self) => self -> m ()+pause self+  = liftIO (js_pause (unHTMLMediaElement (toHTMLMediaElement self)))+ +foreign import javascript unsafe "$1[\"fastSeek\"]($2)" js_fastSeek+        :: JSRef HTMLMediaElement -> Double -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.fastSeek Mozilla HTMLMediaElement.fastSeek documentation> +fastSeek ::+         (MonadIO m, IsHTMLMediaElement self) => self -> Double -> m ()+fastSeek self time+  = liftIO+      (js_fastSeek (unHTMLMediaElement (toHTMLMediaElement self)) time)+ +foreign import javascript unsafe+        "$1[\"webkitGenerateKeyRequest\"]($2,\n$3)"+        js_webkitGenerateKeyRequest ::+        JSRef HTMLMediaElement ->+          JSRef (Maybe JSString) -> JSRef Uint8Array -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.webkitGenerateKeyRequest Mozilla HTMLMediaElement.webkitGenerateKeyRequest documentation> +webkitGenerateKeyRequest ::+                         (MonadIO m, IsHTMLMediaElement self, ToJSString keySystem,+                          IsUint8Array initData) =>+                           self -> Maybe keySystem -> Maybe initData -> m ()+webkitGenerateKeyRequest self keySystem initData+  = liftIO+      (js_webkitGenerateKeyRequest+         (unHTMLMediaElement (toHTMLMediaElement self))+         (toMaybeJSString keySystem)+         (maybe jsNull (unUint8Array . toUint8Array) initData))+ +foreign import javascript unsafe+        "$1[\"webkitAddKey\"]($2, $3, $4,\n$5)" js_webkitAddKey ::+        JSRef HTMLMediaElement ->+          JSRef (Maybe JSString) ->+            JSRef Uint8Array -> JSRef Uint8Array -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.webkitAddKey Mozilla HTMLMediaElement.webkitAddKey documentation> +webkitAddKey ::+             (MonadIO 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+  = liftIO+      (js_webkitAddKey (unHTMLMediaElement (toHTMLMediaElement self))+         (toMaybeJSString keySystem)+         (maybe jsNull (unUint8Array . toUint8Array) key)+         (maybe jsNull (unUint8Array . toUint8Array) initData)+         (toJSString sessionId))+ +foreign import javascript unsafe+        "$1[\"webkitCancelKeyRequest\"]($2,\n$3)" js_webkitCancelKeyRequest+        ::+        JSRef HTMLMediaElement ->+          JSRef (Maybe JSString) -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.webkitCancelKeyRequest Mozilla HTMLMediaElement.webkitCancelKeyRequest documentation> +webkitCancelKeyRequest ::+                       (MonadIO m, IsHTMLMediaElement self, ToJSString keySystem,+                        ToJSString sessionId) =>+                         self -> Maybe keySystem -> sessionId -> m ()+webkitCancelKeyRequest self keySystem sessionId+  = liftIO+      (js_webkitCancelKeyRequest+         (unHTMLMediaElement (toHTMLMediaElement self))+         (toMaybeJSString keySystem)+         (toJSString sessionId))+ +foreign import javascript unsafe "$1[\"webkitSetMediaKeys\"]($2)"+        js_webkitSetMediaKeys ::+        JSRef HTMLMediaElement -> JSRef MediaKeys -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.webkitSetMediaKeys Mozilla HTMLMediaElement.webkitSetMediaKeys documentation> +webkitSetMediaKeys ::+                   (MonadIO m, IsHTMLMediaElement self) =>+                     self -> Maybe MediaKeys -> m ()+webkitSetMediaKeys self mediaKeys+  = liftIO+      (js_webkitSetMediaKeys+         (unHTMLMediaElement (toHTMLMediaElement self))+         (maybe jsNull pToJSRef mediaKeys))+ +foreign import javascript unsafe "$1[\"addTextTrack\"]($2, $3, $4)"+        js_addTextTrack ::+        JSRef HTMLMediaElement ->+          JSString -> JSString -> JSString -> IO (JSRef TextTrack)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.addTextTrack Mozilla HTMLMediaElement.addTextTrack documentation> +addTextTrack ::+             (MonadIO m, IsHTMLMediaElement self, ToJSString kind,+              ToJSString label, ToJSString language) =>+               self -> kind -> label -> language -> m (Maybe TextTrack)+addTextTrack self kind label language+  = liftIO+      ((js_addTextTrack (unHTMLMediaElement (toHTMLMediaElement self))+          (toJSString kind)+          (toJSString label)+          (toJSString language))+         >>= fromJSRef)+ +foreign import javascript unsafe+        "$1[\"getVideoPlaybackQuality\"]()" js_getVideoPlaybackQuality ::+        JSRef HTMLMediaElement -> IO (JSRef VideoPlaybackQuality)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.getVideoPlaybackQuality Mozilla HTMLMediaElement.getVideoPlaybackQuality documentation> +getVideoPlaybackQuality ::+                        (MonadIO m, IsHTMLMediaElement self) =>+                          self -> m (Maybe VideoPlaybackQuality)+getVideoPlaybackQuality self+  = liftIO+      ((js_getVideoPlaybackQuality+          (unHTMLMediaElement (toHTMLMediaElement self)))+         >>= fromJSRef)+ +foreign import javascript unsafe+        "$1[\"webkitShowPlaybackTargetPicker\"]()"+        js_webkitShowPlaybackTargetPicker ::+        JSRef HTMLMediaElement -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.webkitShowPlaybackTargetPicker Mozilla HTMLMediaElement.webkitShowPlaybackTargetPicker documentation> +webkitShowPlaybackTargetPicker ::+                               (MonadIO m, IsHTMLMediaElement self) => self -> m ()+webkitShowPlaybackTargetPicker self+  = liftIO+      (js_webkitShowPlaybackTargetPicker+         (unHTMLMediaElement (toHTMLMediaElement self)))+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+ +foreign import javascript unsafe "$1[\"error\"]" js_getError ::+        JSRef HTMLMediaElement -> IO (JSRef MediaError)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.error Mozilla HTMLMediaElement.error documentation> +getError ::+         (MonadIO m, IsHTMLMediaElement self) =>+           self -> m (Maybe MediaError)+getError self+  = liftIO+      ((js_getError (unHTMLMediaElement (toHTMLMediaElement self))) >>=+         fromJSRef)+ +foreign import javascript unsafe "$1[\"src\"] = $2;" js_setSrc ::+        JSRef HTMLMediaElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.src Mozilla HTMLMediaElement.src documentation> +setSrc ::+       (MonadIO m, IsHTMLMediaElement self, ToJSString val) =>+         self -> val -> m ()+setSrc self val+  = liftIO+      (js_setSrc (unHTMLMediaElement (toHTMLMediaElement self))+         (toJSString val))+ +foreign import javascript unsafe "$1[\"src\"]" js_getSrc ::+        JSRef HTMLMediaElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.src Mozilla HTMLMediaElement.src documentation> +getSrc ::+       (MonadIO m, IsHTMLMediaElement self, FromJSString result) =>+         self -> m result+getSrc self+  = liftIO+      (fromJSString <$>+         (js_getSrc (unHTMLMediaElement (toHTMLMediaElement self))))+ +foreign import javascript unsafe "$1[\"currentSrc\"]"+        js_getCurrentSrc :: JSRef HTMLMediaElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.currentSrc Mozilla HTMLMediaElement.currentSrc documentation> +getCurrentSrc ::+              (MonadIO m, IsHTMLMediaElement self, FromJSString result) =>+                self -> m result+getCurrentSrc self+  = liftIO+      (fromJSString <$>+         (js_getCurrentSrc (unHTMLMediaElement (toHTMLMediaElement self))))+ +foreign import javascript unsafe "$1[\"networkState\"]"+        js_getNetworkState :: JSRef HTMLMediaElement -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.networkState Mozilla HTMLMediaElement.networkState documentation> +getNetworkState ::+                (MonadIO m, IsHTMLMediaElement self) => self -> m Word+getNetworkState self+  = liftIO+      (js_getNetworkState (unHTMLMediaElement (toHTMLMediaElement self)))+ +foreign import javascript unsafe "$1[\"preload\"] = $2;"+        js_setPreload :: JSRef HTMLMediaElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.preload Mozilla HTMLMediaElement.preload documentation> +setPreload ::+           (MonadIO m, IsHTMLMediaElement self, ToJSString val) =>+             self -> val -> m ()+setPreload self val+  = liftIO+      (js_setPreload (unHTMLMediaElement (toHTMLMediaElement self))+         (toJSString val))+ +foreign import javascript unsafe "$1[\"preload\"]" js_getPreload ::+        JSRef HTMLMediaElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.preload Mozilla HTMLMediaElement.preload documentation> +getPreload ::+           (MonadIO m, IsHTMLMediaElement self, FromJSString result) =>+             self -> m result+getPreload self+  = liftIO+      (fromJSString <$>+         (js_getPreload (unHTMLMediaElement (toHTMLMediaElement self))))+ +foreign import javascript unsafe "$1[\"buffered\"]" js_getBuffered+        :: JSRef HTMLMediaElement -> IO (JSRef TimeRanges)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.buffered Mozilla HTMLMediaElement.buffered documentation> +getBuffered ::+            (MonadIO m, IsHTMLMediaElement self) =>+              self -> m (Maybe TimeRanges)+getBuffered self+  = liftIO+      ((js_getBuffered (unHTMLMediaElement (toHTMLMediaElement self)))+         >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"readyState\"]"+        js_getReadyState :: JSRef HTMLMediaElement -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.readyState Mozilla HTMLMediaElement.readyState documentation> +getReadyState ::+              (MonadIO m, IsHTMLMediaElement self) => self -> m Word+getReadyState self+  = liftIO+      (js_getReadyState (unHTMLMediaElement (toHTMLMediaElement self)))+ +foreign import javascript unsafe "($1[\"seeking\"] ? 1 : 0)"+        js_getSeeking :: JSRef HTMLMediaElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.seeking Mozilla HTMLMediaElement.seeking documentation> +getSeeking ::+           (MonadIO m, IsHTMLMediaElement self) => self -> m Bool+getSeeking self+  = liftIO+      (js_getSeeking (unHTMLMediaElement (toHTMLMediaElement self)))+ +foreign import javascript unsafe "$1[\"currentTime\"] = $2;"+        js_setCurrentTime :: JSRef HTMLMediaElement -> Double -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.currentTime Mozilla HTMLMediaElement.currentTime documentation> +setCurrentTime ::+               (MonadIO m, IsHTMLMediaElement self) => self -> Double -> m ()+setCurrentTime self val+  = liftIO+      (js_setCurrentTime (unHTMLMediaElement (toHTMLMediaElement self))+         val)+ +foreign import javascript unsafe "$1[\"currentTime\"]"+        js_getCurrentTime :: JSRef HTMLMediaElement -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.currentTime Mozilla HTMLMediaElement.currentTime documentation> +getCurrentTime ::+               (MonadIO m, IsHTMLMediaElement self) => self -> m Double+getCurrentTime self+  = liftIO+      (js_getCurrentTime (unHTMLMediaElement (toHTMLMediaElement self)))+ +foreign import javascript unsafe "$1[\"duration\"]" js_getDuration+        :: JSRef HTMLMediaElement -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.duration Mozilla HTMLMediaElement.duration documentation> +getDuration ::+            (MonadIO m, IsHTMLMediaElement self) => self -> m Double+getDuration self+  = liftIO+      (js_getDuration (unHTMLMediaElement (toHTMLMediaElement self)))+ +foreign import javascript unsafe "($1[\"paused\"] ? 1 : 0)"+        js_getPaused :: JSRef HTMLMediaElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.paused Mozilla HTMLMediaElement.paused documentation> +getPaused :: (MonadIO m, IsHTMLMediaElement self) => self -> m Bool+getPaused self+  = liftIO+      (js_getPaused (unHTMLMediaElement (toHTMLMediaElement self)))+ +foreign import javascript unsafe+        "$1[\"defaultPlaybackRate\"] = $2;" js_setDefaultPlaybackRate ::+        JSRef HTMLMediaElement -> Double -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.defaultPlaybackRate Mozilla HTMLMediaElement.defaultPlaybackRate documentation> +setDefaultPlaybackRate ::+                       (MonadIO m, IsHTMLMediaElement self) => self -> Double -> m ()+setDefaultPlaybackRate self val+  = liftIO+      (js_setDefaultPlaybackRate+         (unHTMLMediaElement (toHTMLMediaElement self))+         val)+ +foreign import javascript unsafe "$1[\"defaultPlaybackRate\"]"+        js_getDefaultPlaybackRate :: JSRef HTMLMediaElement -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.defaultPlaybackRate Mozilla HTMLMediaElement.defaultPlaybackRate documentation> +getDefaultPlaybackRate ::+                       (MonadIO m, IsHTMLMediaElement self) => self -> m Double+getDefaultPlaybackRate self+  = liftIO+      (js_getDefaultPlaybackRate+         (unHTMLMediaElement (toHTMLMediaElement self)))+ +foreign import javascript unsafe "$1[\"playbackRate\"] = $2;"+        js_setPlaybackRate :: JSRef HTMLMediaElement -> Double -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.playbackRate Mozilla HTMLMediaElement.playbackRate documentation> +setPlaybackRate ::+                (MonadIO m, IsHTMLMediaElement self) => self -> Double -> m ()+setPlaybackRate self val+  = liftIO+      (js_setPlaybackRate (unHTMLMediaElement (toHTMLMediaElement self))+         val)+ +foreign import javascript unsafe "$1[\"playbackRate\"]"+        js_getPlaybackRate :: JSRef HTMLMediaElement -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.playbackRate Mozilla HTMLMediaElement.playbackRate documentation> +getPlaybackRate ::+                (MonadIO m, IsHTMLMediaElement self) => self -> m Double+getPlaybackRate self+  = liftIO+      (js_getPlaybackRate (unHTMLMediaElement (toHTMLMediaElement self)))+ +foreign import javascript unsafe "$1[\"played\"]" js_getPlayed ::+        JSRef HTMLMediaElement -> IO (JSRef TimeRanges)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.played Mozilla HTMLMediaElement.played documentation> +getPlayed ::+          (MonadIO m, IsHTMLMediaElement self) =>+            self -> m (Maybe TimeRanges)+getPlayed self+  = liftIO+      ((js_getPlayed (unHTMLMediaElement (toHTMLMediaElement self))) >>=+         fromJSRef)+ +foreign import javascript unsafe "$1[\"seekable\"]" js_getSeekable+        :: JSRef HTMLMediaElement -> IO (JSRef TimeRanges)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.seekable Mozilla HTMLMediaElement.seekable documentation> +getSeekable ::+            (MonadIO m, IsHTMLMediaElement self) =>+              self -> m (Maybe TimeRanges)+getSeekable self+  = liftIO+      ((js_getSeekable (unHTMLMediaElement (toHTMLMediaElement self)))+         >>= fromJSRef)+ +foreign import javascript unsafe "($1[\"ended\"] ? 1 : 0)"+        js_getEnded :: JSRef HTMLMediaElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.ended Mozilla HTMLMediaElement.ended documentation> +getEnded :: (MonadIO m, IsHTMLMediaElement self) => self -> m Bool+getEnded self+  = liftIO+      (js_getEnded (unHTMLMediaElement (toHTMLMediaElement self)))+ +foreign import javascript unsafe "$1[\"autoplay\"] = $2;"+        js_setAutoplay :: JSRef HTMLMediaElement -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.autoplay Mozilla HTMLMediaElement.autoplay documentation> +setAutoplay ::+            (MonadIO m, IsHTMLMediaElement self) => self -> Bool -> m ()+setAutoplay self val+  = liftIO+      (js_setAutoplay (unHTMLMediaElement (toHTMLMediaElement self)) val)+ +foreign import javascript unsafe "($1[\"autoplay\"] ? 1 : 0)"+        js_getAutoplay :: JSRef HTMLMediaElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.autoplay Mozilla HTMLMediaElement.autoplay documentation> +getAutoplay ::+            (MonadIO m, IsHTMLMediaElement self) => self -> m Bool+getAutoplay self+  = liftIO+      (js_getAutoplay (unHTMLMediaElement (toHTMLMediaElement self)))+ +foreign import javascript unsafe "$1[\"loop\"] = $2;" js_setLoop ::+        JSRef HTMLMediaElement -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.loop Mozilla HTMLMediaElement.loop documentation> +setLoop ::+        (MonadIO m, IsHTMLMediaElement self) => self -> Bool -> m ()+setLoop self val+  = liftIO+      (js_setLoop (unHTMLMediaElement (toHTMLMediaElement self)) val)+ +foreign import javascript unsafe "($1[\"loop\"] ? 1 : 0)"+        js_getLoop :: JSRef HTMLMediaElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.loop Mozilla HTMLMediaElement.loop documentation> +getLoop :: (MonadIO m, IsHTMLMediaElement self) => self -> m Bool+getLoop self+  = liftIO+      (js_getLoop (unHTMLMediaElement (toHTMLMediaElement self)))+ +foreign import javascript unsafe "$1[\"controls\"] = $2;"+        js_setControls :: JSRef HTMLMediaElement -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.controls Mozilla HTMLMediaElement.controls documentation> +setControls ::+            (MonadIO m, IsHTMLMediaElement self) => self -> Bool -> m ()+setControls self val+  = liftIO+      (js_setControls (unHTMLMediaElement (toHTMLMediaElement self)) val)+ +foreign import javascript unsafe "($1[\"controls\"] ? 1 : 0)"+        js_getControls :: JSRef HTMLMediaElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.controls Mozilla HTMLMediaElement.controls documentation> +getControls ::+            (MonadIO m, IsHTMLMediaElement self) => self -> m Bool+getControls self+  = liftIO+      (js_getControls (unHTMLMediaElement (toHTMLMediaElement self)))+ +foreign import javascript unsafe "$1[\"volume\"] = $2;"+        js_setVolume :: JSRef HTMLMediaElement -> Double -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.volume Mozilla HTMLMediaElement.volume documentation> +setVolume ::+          (MonadIO m, IsHTMLMediaElement self) => self -> Double -> m ()+setVolume self val+  = liftIO+      (js_setVolume (unHTMLMediaElement (toHTMLMediaElement self)) val)+ +foreign import javascript unsafe "$1[\"volume\"]" js_getVolume ::+        JSRef HTMLMediaElement -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.volume Mozilla HTMLMediaElement.volume documentation> +getVolume ::+          (MonadIO m, IsHTMLMediaElement self) => self -> m Double+getVolume self+  = liftIO+      (js_getVolume (unHTMLMediaElement (toHTMLMediaElement self)))+ +foreign import javascript unsafe "$1[\"muted\"] = $2;" js_setMuted+        :: JSRef HTMLMediaElement -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.muted Mozilla HTMLMediaElement.muted documentation> +setMuted ::+         (MonadIO m, IsHTMLMediaElement self) => self -> Bool -> m ()+setMuted self val+  = liftIO+      (js_setMuted (unHTMLMediaElement (toHTMLMediaElement self)) val)+ +foreign import javascript unsafe "($1[\"muted\"] ? 1 : 0)"+        js_getMuted :: JSRef HTMLMediaElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.muted Mozilla HTMLMediaElement.muted documentation> +getMuted :: (MonadIO m, IsHTMLMediaElement self) => self -> m Bool+getMuted self+  = liftIO+      (js_getMuted (unHTMLMediaElement (toHTMLMediaElement self)))+ +foreign import javascript unsafe "$1[\"defaultMuted\"] = $2;"+        js_setDefaultMuted :: JSRef HTMLMediaElement -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.defaultMuted Mozilla HTMLMediaElement.defaultMuted documentation> +setDefaultMuted ::+                (MonadIO m, IsHTMLMediaElement self) => self -> Bool -> m ()+setDefaultMuted self val+  = liftIO+      (js_setDefaultMuted (unHTMLMediaElement (toHTMLMediaElement self))+         val)+ +foreign import javascript unsafe "($1[\"defaultMuted\"] ? 1 : 0)"+        js_getDefaultMuted :: JSRef HTMLMediaElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.defaultMuted Mozilla HTMLMediaElement.defaultMuted documentation> +getDefaultMuted ::+                (MonadIO m, IsHTMLMediaElement self) => self -> m Bool+getDefaultMuted self+  = liftIO+      (js_getDefaultMuted (unHTMLMediaElement (toHTMLMediaElement self)))++-- | <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")+ +foreign import javascript unsafe+        "$1[\"webkitPreservesPitch\"] = $2;" js_setWebkitPreservesPitch ::+        JSRef HTMLMediaElement -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.webkitPreservesPitch Mozilla HTMLMediaElement.webkitPreservesPitch documentation> +setWebkitPreservesPitch ::+                        (MonadIO m, IsHTMLMediaElement self) => self -> Bool -> m ()+setWebkitPreservesPitch self val+  = liftIO+      (js_setWebkitPreservesPitch+         (unHTMLMediaElement (toHTMLMediaElement self))+         val)+ +foreign import javascript unsafe+        "($1[\"webkitPreservesPitch\"] ? 1 : 0)" js_getWebkitPreservesPitch+        :: JSRef HTMLMediaElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.webkitPreservesPitch Mozilla HTMLMediaElement.webkitPreservesPitch documentation> +getWebkitPreservesPitch ::+                        (MonadIO m, IsHTMLMediaElement self) => self -> m Bool+getWebkitPreservesPitch self+  = liftIO+      (js_getWebkitPreservesPitch+         (unHTMLMediaElement (toHTMLMediaElement self)))+ +foreign import javascript unsafe+        "($1[\"webkitHasClosedCaptions\"] ? 1 : 0)"+        js_getWebkitHasClosedCaptions :: JSRef HTMLMediaElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.webkitHasClosedCaptions Mozilla HTMLMediaElement.webkitHasClosedCaptions documentation> +getWebkitHasClosedCaptions ::+                           (MonadIO m, IsHTMLMediaElement self) => self -> m Bool+getWebkitHasClosedCaptions self+  = liftIO+      (js_getWebkitHasClosedCaptions+         (unHTMLMediaElement (toHTMLMediaElement self)))+ +foreign import javascript unsafe+        "$1[\"webkitClosedCaptionsVisible\"] = $2;"+        js_setWebkitClosedCaptionsVisible ::+        JSRef HTMLMediaElement -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.webkitClosedCaptionsVisible Mozilla HTMLMediaElement.webkitClosedCaptionsVisible documentation> +setWebkitClosedCaptionsVisible ::+                               (MonadIO m, IsHTMLMediaElement self) => self -> Bool -> m ()+setWebkitClosedCaptionsVisible self val+  = liftIO+      (js_setWebkitClosedCaptionsVisible+         (unHTMLMediaElement (toHTMLMediaElement self))+         val)+ +foreign import javascript unsafe+        "($1[\"webkitClosedCaptionsVisible\"] ? 1 : 0)"+        js_getWebkitClosedCaptionsVisible ::+        JSRef HTMLMediaElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.webkitClosedCaptionsVisible Mozilla HTMLMediaElement.webkitClosedCaptionsVisible documentation> +getWebkitClosedCaptionsVisible ::+                               (MonadIO m, IsHTMLMediaElement self) => self -> m Bool+getWebkitClosedCaptionsVisible self+  = liftIO+      (js_getWebkitClosedCaptionsVisible+         (unHTMLMediaElement (toHTMLMediaElement self)))+ +foreign import javascript unsafe+        "$1[\"webkitAudioDecodedByteCount\"]"+        js_getWebkitAudioDecodedByteCount ::+        JSRef HTMLMediaElement -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.webkitAudioDecodedByteCount Mozilla HTMLMediaElement.webkitAudioDecodedByteCount documentation> +getWebkitAudioDecodedByteCount ::+                               (MonadIO m, IsHTMLMediaElement self) => self -> m Word+getWebkitAudioDecodedByteCount self+  = liftIO+      (js_getWebkitAudioDecodedByteCount+         (unHTMLMediaElement (toHTMLMediaElement self)))+ +foreign import javascript unsafe+        "$1[\"webkitVideoDecodedByteCount\"]"+        js_getWebkitVideoDecodedByteCount ::+        JSRef HTMLMediaElement -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.webkitVideoDecodedByteCount Mozilla HTMLMediaElement.webkitVideoDecodedByteCount documentation> +getWebkitVideoDecodedByteCount ::+                               (MonadIO m, IsHTMLMediaElement self) => self -> m Word+getWebkitVideoDecodedByteCount self+  = liftIO+      (js_getWebkitVideoDecodedByteCount+         (unHTMLMediaElement (toHTMLMediaElement self)))++-- | <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")+ +foreign import javascript unsafe "$1[\"webkitKeys\"]"+        js_getWebkitKeys :: JSRef HTMLMediaElement -> IO (JSRef MediaKeys)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.webkitKeys Mozilla HTMLMediaElement.webkitKeys documentation> +getWebkitKeys ::+              (MonadIO m, IsHTMLMediaElement self) => self -> m (Maybe MediaKeys)+getWebkitKeys self+  = liftIO+      ((js_getWebkitKeys (unHTMLMediaElement (toHTMLMediaElement self)))+         >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"audioTracks\"]"+        js_getAudioTracks ::+        JSRef HTMLMediaElement -> IO (JSRef AudioTrackList)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.audioTracks Mozilla HTMLMediaElement.audioTracks documentation> +getAudioTracks ::+               (MonadIO m, IsHTMLMediaElement self) =>+                 self -> m (Maybe AudioTrackList)+getAudioTracks self+  = liftIO+      ((js_getAudioTracks (unHTMLMediaElement (toHTMLMediaElement self)))+         >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"textTracks\"]"+        js_getTextTracks ::+        JSRef HTMLMediaElement -> IO (JSRef TextTrackList)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.textTracks Mozilla HTMLMediaElement.textTracks documentation> +getTextTracks ::+              (MonadIO m, IsHTMLMediaElement self) =>+                self -> m (Maybe TextTrackList)+getTextTracks self+  = liftIO+      ((js_getTextTracks (unHTMLMediaElement (toHTMLMediaElement self)))+         >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"videoTracks\"]"+        js_getVideoTracks ::+        JSRef HTMLMediaElement -> IO (JSRef VideoTrackList)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.videoTracks Mozilla HTMLMediaElement.videoTracks documentation> +getVideoTracks ::+               (MonadIO m, IsHTMLMediaElement self) =>+                 self -> m (Maybe VideoTrackList)+getVideoTracks self+  = liftIO+      ((js_getVideoTracks (unHTMLMediaElement (toHTMLMediaElement self)))+         >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"mediaGroup\"] = $2;"+        js_setMediaGroup ::+        JSRef HTMLMediaElement -> JSRef (Maybe JSString) -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.mediaGroup Mozilla HTMLMediaElement.mediaGroup documentation> +setMediaGroup ::+              (MonadIO m, IsHTMLMediaElement self, ToJSString val) =>+                self -> Maybe val -> m ()+setMediaGroup self val+  = liftIO+      (js_setMediaGroup (unHTMLMediaElement (toHTMLMediaElement self))+         (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"mediaGroup\"]"+        js_getMediaGroup ::+        JSRef HTMLMediaElement -> IO (JSRef (Maybe JSString))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.mediaGroup Mozilla HTMLMediaElement.mediaGroup documentation> +getMediaGroup ::+              (MonadIO m, IsHTMLMediaElement self, FromJSString result) =>+                self -> m (Maybe result)+getMediaGroup self+  = liftIO+      (fromMaybeJSString <$>+         (js_getMediaGroup (unHTMLMediaElement (toHTMLMediaElement self))))+ +foreign import javascript unsafe "$1[\"controller\"] = $2;"+        js_setController ::+        JSRef HTMLMediaElement -> JSRef MediaController -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.controller Mozilla HTMLMediaElement.controller documentation> +setController ::+              (MonadIO m, IsHTMLMediaElement self) =>+                self -> Maybe MediaController -> m ()+setController self val+  = liftIO+      (js_setController (unHTMLMediaElement (toHTMLMediaElement self))+         (maybe jsNull pToJSRef val))+ +foreign import javascript unsafe "$1[\"controller\"]"+        js_getController ::+        JSRef HTMLMediaElement -> IO (JSRef MediaController)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.controller Mozilla HTMLMediaElement.controller documentation> +getController ::+              (MonadIO m, IsHTMLMediaElement self) =>+                self -> m (Maybe MediaController)+getController self+  = liftIO+      ((js_getController (unHTMLMediaElement (toHTMLMediaElement self)))+         >>= fromJSRef)+ +foreign import javascript unsafe+        "($1[\"webkitCurrentPlaybackTargetIsWireless\"] ? 1 : 0)"+        js_getWebkitCurrentPlaybackTargetIsWireless ::+        JSRef HTMLMediaElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.webkitCurrentPlaybackTargetIsWireless Mozilla HTMLMediaElement.webkitCurrentPlaybackTargetIsWireless documentation> +getWebkitCurrentPlaybackTargetIsWireless ::+                                         (MonadIO m, IsHTMLMediaElement self) => self -> m Bool+getWebkitCurrentPlaybackTargetIsWireless self+  = liftIO+      (js_getWebkitCurrentPlaybackTargetIsWireless+         (unHTMLMediaElement (toHTMLMediaElement self)))++-- | <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")+ +foreign import javascript unsafe "$1[\"srcObject\"] = $2;"+        js_setSrcObject ::+        JSRef HTMLMediaElement -> JSRef MediaStream -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.srcObject Mozilla HTMLMediaElement.srcObject documentation> +setSrcObject ::+             (MonadIO m, IsHTMLMediaElement self) =>+               self -> Maybe MediaStream -> m ()+setSrcObject self val+  = liftIO+      (js_setSrcObject (unHTMLMediaElement (toHTMLMediaElement self))+         (maybe jsNull pToJSRef val))+ +foreign import javascript unsafe "$1[\"srcObject\"]"+        js_getSrcObject ::+        JSRef HTMLMediaElement -> IO (JSRef (Maybe MediaStream))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.srcObject Mozilla HTMLMediaElement.srcObject documentation> +getSrcObject ::+             (MonadIO m, IsHTMLMediaElement self) =>+               self -> m (Maybe MediaStream)+getSrcObject self+  = liftIO+      ((js_getSrcObject (unHTMLMediaElement (toHTMLMediaElement self)))+         >>= fromJSRefUnchecked)
+ src/GHCJS/DOM/JSFFI/Generated/HTMLMenuElement.hs view
@@ -0,0 +1,34 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.HTMLMenuElement+       (js_setCompact, setCompact, js_getCompact, getCompact,+        HTMLMenuElement, castToHTMLMenuElement, gTypeHTMLMenuElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"compact\"] = $2;"+        js_setCompact :: JSRef HTMLMenuElement -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMenuElement.compact Mozilla HTMLMenuElement.compact documentation> +setCompact :: (MonadIO m) => HTMLMenuElement -> Bool -> m ()+setCompact self val+  = liftIO (js_setCompact (unHTMLMenuElement self) val)+ +foreign import javascript unsafe "($1[\"compact\"] ? 1 : 0)"+        js_getCompact :: JSRef HTMLMenuElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMenuElement.compact Mozilla HTMLMenuElement.compact documentation> +getCompact :: (MonadIO m) => HTMLMenuElement -> m Bool+getCompact self = liftIO (js_getCompact (unHTMLMenuElement self))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLMetaElement.hs view
@@ -0,0 +1,97 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.HTMLMetaElement+       (js_setContent, setContent, js_getContent, getContent,+        js_setHttpEquiv, setHttpEquiv, js_getHttpEquiv, getHttpEquiv,+        js_setName, setName, js_getName, getName, js_setScheme, setScheme,+        js_getScheme, getScheme, HTMLMetaElement, castToHTMLMetaElement,+        gTypeHTMLMetaElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"content\"] = $2;"+        js_setContent :: JSRef HTMLMetaElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMetaElement.content Mozilla HTMLMetaElement.content documentation> +setContent ::+           (MonadIO m, ToJSString val) => HTMLMetaElement -> val -> m ()+setContent self val+  = liftIO (js_setContent (unHTMLMetaElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"content\"]" js_getContent ::+        JSRef HTMLMetaElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMetaElement.content Mozilla HTMLMetaElement.content documentation> +getContent ::+           (MonadIO m, FromJSString result) => HTMLMetaElement -> m result+getContent self+  = liftIO+      (fromJSString <$> (js_getContent (unHTMLMetaElement self)))+ +foreign import javascript unsafe "$1[\"httpEquiv\"] = $2;"+        js_setHttpEquiv :: JSRef HTMLMetaElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMetaElement.httpEquiv Mozilla HTMLMetaElement.httpEquiv documentation> +setHttpEquiv ::+             (MonadIO m, ToJSString val) => HTMLMetaElement -> val -> m ()+setHttpEquiv self val+  = liftIO+      (js_setHttpEquiv (unHTMLMetaElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"httpEquiv\"]"+        js_getHttpEquiv :: JSRef HTMLMetaElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMetaElement.httpEquiv Mozilla HTMLMetaElement.httpEquiv documentation> +getHttpEquiv ::+             (MonadIO m, FromJSString result) => HTMLMetaElement -> m result+getHttpEquiv self+  = liftIO+      (fromJSString <$> (js_getHttpEquiv (unHTMLMetaElement self)))+ +foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName ::+        JSRef HTMLMetaElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMetaElement.name Mozilla HTMLMetaElement.name documentation> +setName ::+        (MonadIO m, ToJSString val) => HTMLMetaElement -> val -> m ()+setName self val+  = liftIO (js_setName (unHTMLMetaElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"name\"]" js_getName ::+        JSRef HTMLMetaElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMetaElement.name Mozilla HTMLMetaElement.name documentation> +getName ::+        (MonadIO m, FromJSString result) => HTMLMetaElement -> m result+getName self+  = liftIO (fromJSString <$> (js_getName (unHTMLMetaElement self)))+ +foreign import javascript unsafe "$1[\"scheme\"] = $2;"+        js_setScheme :: JSRef HTMLMetaElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMetaElement.scheme Mozilla HTMLMetaElement.scheme documentation> +setScheme ::+          (MonadIO m, ToJSString val) => HTMLMetaElement -> val -> m ()+setScheme self val+  = liftIO (js_setScheme (unHTMLMetaElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"scheme\"]" js_getScheme ::+        JSRef HTMLMetaElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMetaElement.scheme Mozilla HTMLMetaElement.scheme documentation> +getScheme ::+          (MonadIO m, FromJSString result) => HTMLMetaElement -> m result+getScheme self+  = liftIO (fromJSString <$> (js_getScheme (unHTMLMetaElement self)))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLMeterElement.hs view
@@ -0,0 +1,118 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.HTMLMeterElement+       (js_setValue, setValue, js_getValue, getValue, js_setMin, setMin,+        js_getMin, getMin, js_setMax, setMax, js_getMax, getMax, js_setLow,+        setLow, js_getLow, getLow, js_setHigh, setHigh, js_getHigh,+        getHigh, js_setOptimum, setOptimum, js_getOptimum, getOptimum,+        js_getLabels, getLabels, HTMLMeterElement, castToHTMLMeterElement,+        gTypeHTMLMeterElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue+        :: JSRef HTMLMeterElement -> Double -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMeterElement.value Mozilla HTMLMeterElement.value documentation> +setValue :: (MonadIO m) => HTMLMeterElement -> Double -> m ()+setValue self val+  = liftIO (js_setValue (unHTMLMeterElement self) val)+ +foreign import javascript unsafe "$1[\"value\"]" js_getValue ::+        JSRef HTMLMeterElement -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMeterElement.value Mozilla HTMLMeterElement.value documentation> +getValue :: (MonadIO m) => HTMLMeterElement -> m Double+getValue self = liftIO (js_getValue (unHTMLMeterElement self))+ +foreign import javascript unsafe "$1[\"min\"] = $2;" js_setMin ::+        JSRef HTMLMeterElement -> Double -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMeterElement.min Mozilla HTMLMeterElement.min documentation> +setMin :: (MonadIO m) => HTMLMeterElement -> Double -> m ()+setMin self val = liftIO (js_setMin (unHTMLMeterElement self) val)+ +foreign import javascript unsafe "$1[\"min\"]" js_getMin ::+        JSRef HTMLMeterElement -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMeterElement.min Mozilla HTMLMeterElement.min documentation> +getMin :: (MonadIO m) => HTMLMeterElement -> m Double+getMin self = liftIO (js_getMin (unHTMLMeterElement self))+ +foreign import javascript unsafe "$1[\"max\"] = $2;" js_setMax ::+        JSRef HTMLMeterElement -> Double -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMeterElement.max Mozilla HTMLMeterElement.max documentation> +setMax :: (MonadIO m) => HTMLMeterElement -> Double -> m ()+setMax self val = liftIO (js_setMax (unHTMLMeterElement self) val)+ +foreign import javascript unsafe "$1[\"max\"]" js_getMax ::+        JSRef HTMLMeterElement -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMeterElement.max Mozilla HTMLMeterElement.max documentation> +getMax :: (MonadIO m) => HTMLMeterElement -> m Double+getMax self = liftIO (js_getMax (unHTMLMeterElement self))+ +foreign import javascript unsafe "$1[\"low\"] = $2;" js_setLow ::+        JSRef HTMLMeterElement -> Double -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMeterElement.low Mozilla HTMLMeterElement.low documentation> +setLow :: (MonadIO m) => HTMLMeterElement -> Double -> m ()+setLow self val = liftIO (js_setLow (unHTMLMeterElement self) val)+ +foreign import javascript unsafe "$1[\"low\"]" js_getLow ::+        JSRef HTMLMeterElement -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMeterElement.low Mozilla HTMLMeterElement.low documentation> +getLow :: (MonadIO m) => HTMLMeterElement -> m Double+getLow self = liftIO (js_getLow (unHTMLMeterElement self))+ +foreign import javascript unsafe "$1[\"high\"] = $2;" js_setHigh ::+        JSRef HTMLMeterElement -> Double -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMeterElement.high Mozilla HTMLMeterElement.high documentation> +setHigh :: (MonadIO m) => HTMLMeterElement -> Double -> m ()+setHigh self val+  = liftIO (js_setHigh (unHTMLMeterElement self) val)+ +foreign import javascript unsafe "$1[\"high\"]" js_getHigh ::+        JSRef HTMLMeterElement -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMeterElement.high Mozilla HTMLMeterElement.high documentation> +getHigh :: (MonadIO m) => HTMLMeterElement -> m Double+getHigh self = liftIO (js_getHigh (unHTMLMeterElement self))+ +foreign import javascript unsafe "$1[\"optimum\"] = $2;"+        js_setOptimum :: JSRef HTMLMeterElement -> Double -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMeterElement.optimum Mozilla HTMLMeterElement.optimum documentation> +setOptimum :: (MonadIO m) => HTMLMeterElement -> Double -> m ()+setOptimum self val+  = liftIO (js_setOptimum (unHTMLMeterElement self) val)+ +foreign import javascript unsafe "$1[\"optimum\"]" js_getOptimum ::+        JSRef HTMLMeterElement -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMeterElement.optimum Mozilla HTMLMeterElement.optimum documentation> +getOptimum :: (MonadIO m) => HTMLMeterElement -> m Double+getOptimum self = liftIO (js_getOptimum (unHTMLMeterElement self))+ +foreign import javascript unsafe "$1[\"labels\"]" js_getLabels ::+        JSRef HTMLMeterElement -> IO (JSRef NodeList)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMeterElement.labels Mozilla HTMLMeterElement.labels documentation> +getLabels :: (MonadIO m) => HTMLMeterElement -> m (Maybe NodeList)+getLabels self+  = liftIO ((js_getLabels (unHTMLMeterElement self)) >>= fromJSRef)
+ src/GHCJS/DOM/JSFFI/Generated/HTMLModElement.hs view
@@ -0,0 +1,57 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.HTMLModElement+       (js_setCite, setCite, js_getCite, getCite, js_setDateTime,+        setDateTime, js_getDateTime, getDateTime, HTMLModElement,+        castToHTMLModElement, gTypeHTMLModElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"cite\"] = $2;" js_setCite ::+        JSRef HTMLModElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLModElement.cite Mozilla HTMLModElement.cite documentation> +setCite ::+        (MonadIO m, ToJSString val) => HTMLModElement -> val -> m ()+setCite self val+  = liftIO (js_setCite (unHTMLModElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"cite\"]" js_getCite ::+        JSRef HTMLModElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLModElement.cite Mozilla HTMLModElement.cite documentation> +getCite ::+        (MonadIO m, FromJSString result) => HTMLModElement -> m result+getCite self+  = liftIO (fromJSString <$> (js_getCite (unHTMLModElement self)))+ +foreign import javascript unsafe "$1[\"dateTime\"] = $2;"+        js_setDateTime :: JSRef HTMLModElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLModElement.dateTime Mozilla HTMLModElement.dateTime documentation> +setDateTime ::+            (MonadIO m, ToJSString val) => HTMLModElement -> val -> m ()+setDateTime self val+  = liftIO (js_setDateTime (unHTMLModElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"dateTime\"]" js_getDateTime+        :: JSRef HTMLModElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLModElement.dateTime Mozilla HTMLModElement.dateTime documentation> +getDateTime ::+            (MonadIO m, FromJSString result) => HTMLModElement -> m result+getDateTime self+  = liftIO+      (fromJSString <$> (js_getDateTime (unHTMLModElement self)))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLOListElement.hs view
@@ -0,0 +1,86 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.HTMLOListElement+       (js_setCompact, setCompact, js_getCompact, getCompact, js_setStart,+        setStart, js_getStart, getStart, js_setReversed, setReversed,+        js_getReversed, getReversed, js_setType, setType, js_getType,+        getType, HTMLOListElement, castToHTMLOListElement,+        gTypeHTMLOListElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"compact\"] = $2;"+        js_setCompact :: JSRef HTMLOListElement -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOListElement.compact Mozilla HTMLOListElement.compact documentation> +setCompact :: (MonadIO m) => HTMLOListElement -> Bool -> m ()+setCompact self val+  = liftIO (js_setCompact (unHTMLOListElement self) val)+ +foreign import javascript unsafe "($1[\"compact\"] ? 1 : 0)"+        js_getCompact :: JSRef HTMLOListElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOListElement.compact Mozilla HTMLOListElement.compact documentation> +getCompact :: (MonadIO m) => HTMLOListElement -> m Bool+getCompact self = liftIO (js_getCompact (unHTMLOListElement self))+ +foreign import javascript unsafe "$1[\"start\"] = $2;" js_setStart+        :: JSRef HTMLOListElement -> Int -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOListElement.start Mozilla HTMLOListElement.start documentation> +setStart :: (MonadIO m) => HTMLOListElement -> Int -> m ()+setStart self val+  = liftIO (js_setStart (unHTMLOListElement self) val)+ +foreign import javascript unsafe "$1[\"start\"]" js_getStart ::+        JSRef HTMLOListElement -> IO Int++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOListElement.start Mozilla HTMLOListElement.start documentation> +getStart :: (MonadIO m) => HTMLOListElement -> m Int+getStart self = liftIO (js_getStart (unHTMLOListElement self))+ +foreign import javascript unsafe "$1[\"reversed\"] = $2;"+        js_setReversed :: JSRef HTMLOListElement -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOListElement.reversed Mozilla HTMLOListElement.reversed documentation> +setReversed :: (MonadIO m) => HTMLOListElement -> Bool -> m ()+setReversed self val+  = liftIO (js_setReversed (unHTMLOListElement self) val)+ +foreign import javascript unsafe "($1[\"reversed\"] ? 1 : 0)"+        js_getReversed :: JSRef HTMLOListElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOListElement.reversed Mozilla HTMLOListElement.reversed documentation> +getReversed :: (MonadIO m) => HTMLOListElement -> m Bool+getReversed self+  = liftIO (js_getReversed (unHTMLOListElement self))+ +foreign import javascript unsafe "$1[\"type\"] = $2;" js_setType ::+        JSRef HTMLOListElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOListElement.type Mozilla HTMLOListElement.type documentation> +setType ::+        (MonadIO m, ToJSString val) => HTMLOListElement -> val -> m ()+setType self val+  = liftIO (js_setType (unHTMLOListElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"type\"]" js_getType ::+        JSRef HTMLOListElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOListElement.type Mozilla HTMLOListElement.type documentation> +getType ::+        (MonadIO m, FromJSString result) => HTMLOListElement -> m result+getType self+  = liftIO (fromJSString <$> (js_getType (unHTMLOListElement self)))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLObjectElement.hs view
@@ -0,0 +1,410 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.HTMLObjectElement+       (js_checkValidity, checkValidity, js_setCustomValidity,+        setCustomValidity, js_getSVGDocument, getSVGDocument, js_getForm,+        getForm, js_setCode, setCode, js_getCode, getCode, js_setAlign,+        setAlign, js_getAlign, getAlign, js_setArchive, setArchive,+        js_getArchive, getArchive, js_setBorder, setBorder, js_getBorder,+        getBorder, js_setCodeBase, setCodeBase, js_getCodeBase,+        getCodeBase, js_setCodeType, setCodeType, js_getCodeType,+        getCodeType, js_setData, setData, js_getData, getData,+        js_setDeclare, setDeclare, js_getDeclare, getDeclare, js_setHeight,+        setHeight, js_getHeight, getHeight, js_setHspace, setHspace,+        js_getHspace, getHspace, js_setName, setName, js_getName, getName,+        js_setStandby, setStandby, js_getStandby, getStandby, js_setType,+        setType, js_getType, getType, js_setUseMap, setUseMap,+        js_getUseMap, getUseMap, js_setVspace, setVspace, js_getVspace,+        getVspace, js_setWidth, setWidth, js_getWidth, getWidth,+        js_getWillValidate, getWillValidate, js_getValidity, getValidity,+        js_getValidationMessage, getValidationMessage,+        js_getContentDocument, getContentDocument, HTMLObjectElement,+        castToHTMLObjectElement, gTypeHTMLObjectElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe+        "($1[\"checkValidity\"]() ? 1 : 0)" js_checkValidity ::+        JSRef HTMLObjectElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.checkValidity Mozilla HTMLObjectElement.checkValidity documentation> +checkValidity :: (MonadIO m) => HTMLObjectElement -> m Bool+checkValidity self+  = liftIO (js_checkValidity (unHTMLObjectElement self))+ +foreign import javascript unsafe "$1[\"setCustomValidity\"]($2)"+        js_setCustomValidity ::+        JSRef HTMLObjectElement -> JSRef (Maybe JSString) -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.setCustomValidity Mozilla HTMLObjectElement.setCustomValidity documentation> +setCustomValidity ::+                  (MonadIO m, ToJSString error) =>+                    HTMLObjectElement -> Maybe error -> m ()+setCustomValidity self error+  = liftIO+      (js_setCustomValidity (unHTMLObjectElement self)+         (toMaybeJSString error))+ +foreign import javascript unsafe "$1[\"getSVGDocument\"]()"+        js_getSVGDocument ::+        JSRef HTMLObjectElement -> IO (JSRef SVGDocument)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.getSVGDocument Mozilla HTMLObjectElement.getSVGDocument documentation> +getSVGDocument ::+               (MonadIO m) => HTMLObjectElement -> m (Maybe SVGDocument)+getSVGDocument self+  = liftIO+      ((js_getSVGDocument (unHTMLObjectElement self)) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"form\"]" js_getForm ::+        JSRef HTMLObjectElement -> IO (JSRef HTMLFormElement)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.form Mozilla HTMLObjectElement.form documentation> +getForm ::+        (MonadIO m) => HTMLObjectElement -> m (Maybe HTMLFormElement)+getForm self+  = liftIO ((js_getForm (unHTMLObjectElement self)) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"code\"] = $2;" js_setCode ::+        JSRef HTMLObjectElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.code Mozilla HTMLObjectElement.code documentation> +setCode ::+        (MonadIO m, ToJSString val) => HTMLObjectElement -> val -> m ()+setCode self val+  = liftIO (js_setCode (unHTMLObjectElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"code\"]" js_getCode ::+        JSRef HTMLObjectElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.code Mozilla HTMLObjectElement.code documentation> +getCode ::+        (MonadIO m, FromJSString result) => HTMLObjectElement -> m result+getCode self+  = liftIO (fromJSString <$> (js_getCode (unHTMLObjectElement self)))+ +foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign+        :: JSRef HTMLObjectElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.align Mozilla HTMLObjectElement.align documentation> +setAlign ::+         (MonadIO m, ToJSString val) => HTMLObjectElement -> val -> m ()+setAlign self val+  = liftIO (js_setAlign (unHTMLObjectElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"align\"]" js_getAlign ::+        JSRef HTMLObjectElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.align Mozilla HTMLObjectElement.align documentation> +getAlign ::+         (MonadIO m, FromJSString result) => HTMLObjectElement -> m result+getAlign self+  = liftIO+      (fromJSString <$> (js_getAlign (unHTMLObjectElement self)))+ +foreign import javascript unsafe "$1[\"archive\"] = $2;"+        js_setArchive :: JSRef HTMLObjectElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.archive Mozilla HTMLObjectElement.archive documentation> +setArchive ::+           (MonadIO m, ToJSString val) => HTMLObjectElement -> val -> m ()+setArchive self val+  = liftIO+      (js_setArchive (unHTMLObjectElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"archive\"]" js_getArchive ::+        JSRef HTMLObjectElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.archive Mozilla HTMLObjectElement.archive documentation> +getArchive ::+           (MonadIO m, FromJSString result) => HTMLObjectElement -> m result+getArchive self+  = liftIO+      (fromJSString <$> (js_getArchive (unHTMLObjectElement self)))+ +foreign import javascript unsafe "$1[\"border\"] = $2;"+        js_setBorder :: JSRef HTMLObjectElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.border Mozilla HTMLObjectElement.border documentation> +setBorder ::+          (MonadIO m, ToJSString val) => HTMLObjectElement -> val -> m ()+setBorder self val+  = liftIO (js_setBorder (unHTMLObjectElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"border\"]" js_getBorder ::+        JSRef HTMLObjectElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.border Mozilla HTMLObjectElement.border documentation> +getBorder ::+          (MonadIO m, FromJSString result) => HTMLObjectElement -> m result+getBorder self+  = liftIO+      (fromJSString <$> (js_getBorder (unHTMLObjectElement self)))+ +foreign import javascript unsafe "$1[\"codeBase\"] = $2;"+        js_setCodeBase :: JSRef HTMLObjectElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.codeBase Mozilla HTMLObjectElement.codeBase documentation> +setCodeBase ::+            (MonadIO m, ToJSString val) => HTMLObjectElement -> val -> m ()+setCodeBase self val+  = liftIO+      (js_setCodeBase (unHTMLObjectElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"codeBase\"]" js_getCodeBase+        :: JSRef HTMLObjectElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.codeBase Mozilla HTMLObjectElement.codeBase documentation> +getCodeBase ::+            (MonadIO m, FromJSString result) => HTMLObjectElement -> m result+getCodeBase self+  = liftIO+      (fromJSString <$> (js_getCodeBase (unHTMLObjectElement self)))+ +foreign import javascript unsafe "$1[\"codeType\"] = $2;"+        js_setCodeType :: JSRef HTMLObjectElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.codeType Mozilla HTMLObjectElement.codeType documentation> +setCodeType ::+            (MonadIO m, ToJSString val) => HTMLObjectElement -> val -> m ()+setCodeType self val+  = liftIO+      (js_setCodeType (unHTMLObjectElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"codeType\"]" js_getCodeType+        :: JSRef HTMLObjectElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.codeType Mozilla HTMLObjectElement.codeType documentation> +getCodeType ::+            (MonadIO m, FromJSString result) => HTMLObjectElement -> m result+getCodeType self+  = liftIO+      (fromJSString <$> (js_getCodeType (unHTMLObjectElement self)))+ +foreign import javascript unsafe "$1[\"data\"] = $2;" js_setData ::+        JSRef HTMLObjectElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.data Mozilla HTMLObjectElement.data documentation> +setData ::+        (MonadIO m, ToJSString val) => HTMLObjectElement -> val -> m ()+setData self val+  = liftIO (js_setData (unHTMLObjectElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"data\"]" js_getData ::+        JSRef HTMLObjectElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.data Mozilla HTMLObjectElement.data documentation> +getData ::+        (MonadIO m, FromJSString result) => HTMLObjectElement -> m result+getData self+  = liftIO (fromJSString <$> (js_getData (unHTMLObjectElement self)))+ +foreign import javascript unsafe "$1[\"declare\"] = $2;"+        js_setDeclare :: JSRef HTMLObjectElement -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.declare Mozilla HTMLObjectElement.declare documentation> +setDeclare :: (MonadIO m) => HTMLObjectElement -> Bool -> m ()+setDeclare self val+  = liftIO (js_setDeclare (unHTMLObjectElement self) val)+ +foreign import javascript unsafe "($1[\"declare\"] ? 1 : 0)"+        js_getDeclare :: JSRef HTMLObjectElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.declare Mozilla HTMLObjectElement.declare documentation> +getDeclare :: (MonadIO m) => HTMLObjectElement -> m Bool+getDeclare self = liftIO (js_getDeclare (unHTMLObjectElement self))+ +foreign import javascript unsafe "$1[\"height\"] = $2;"+        js_setHeight :: JSRef HTMLObjectElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.height Mozilla HTMLObjectElement.height documentation> +setHeight ::+          (MonadIO m, ToJSString val) => HTMLObjectElement -> val -> m ()+setHeight self val+  = liftIO (js_setHeight (unHTMLObjectElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"height\"]" js_getHeight ::+        JSRef HTMLObjectElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.height Mozilla HTMLObjectElement.height documentation> +getHeight ::+          (MonadIO m, FromJSString result) => HTMLObjectElement -> m result+getHeight self+  = liftIO+      (fromJSString <$> (js_getHeight (unHTMLObjectElement self)))+ +foreign import javascript unsafe "$1[\"hspace\"] = $2;"+        js_setHspace :: JSRef HTMLObjectElement -> Int -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.hspace Mozilla HTMLObjectElement.hspace documentation> +setHspace :: (MonadIO m) => HTMLObjectElement -> Int -> m ()+setHspace self val+  = liftIO (js_setHspace (unHTMLObjectElement self) val)+ +foreign import javascript unsafe "$1[\"hspace\"]" js_getHspace ::+        JSRef HTMLObjectElement -> IO Int++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.hspace Mozilla HTMLObjectElement.hspace documentation> +getHspace :: (MonadIO m) => HTMLObjectElement -> m Int+getHspace self = liftIO (js_getHspace (unHTMLObjectElement self))+ +foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName ::+        JSRef HTMLObjectElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.name Mozilla HTMLObjectElement.name documentation> +setName ::+        (MonadIO m, ToJSString val) => HTMLObjectElement -> val -> m ()+setName self val+  = liftIO (js_setName (unHTMLObjectElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"name\"]" js_getName ::+        JSRef HTMLObjectElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.name Mozilla HTMLObjectElement.name documentation> +getName ::+        (MonadIO m, FromJSString result) => HTMLObjectElement -> m result+getName self+  = liftIO (fromJSString <$> (js_getName (unHTMLObjectElement self)))+ +foreign import javascript unsafe "$1[\"standby\"] = $2;"+        js_setStandby :: JSRef HTMLObjectElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.standby Mozilla HTMLObjectElement.standby documentation> +setStandby ::+           (MonadIO m, ToJSString val) => HTMLObjectElement -> val -> m ()+setStandby self val+  = liftIO+      (js_setStandby (unHTMLObjectElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"standby\"]" js_getStandby ::+        JSRef HTMLObjectElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.standby Mozilla HTMLObjectElement.standby documentation> +getStandby ::+           (MonadIO m, FromJSString result) => HTMLObjectElement -> m result+getStandby self+  = liftIO+      (fromJSString <$> (js_getStandby (unHTMLObjectElement self)))+ +foreign import javascript unsafe "$1[\"type\"] = $2;" js_setType ::+        JSRef HTMLObjectElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.type Mozilla HTMLObjectElement.type documentation> +setType ::+        (MonadIO m, ToJSString val) => HTMLObjectElement -> val -> m ()+setType self val+  = liftIO (js_setType (unHTMLObjectElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"type\"]" js_getType ::+        JSRef HTMLObjectElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.type Mozilla HTMLObjectElement.type documentation> +getType ::+        (MonadIO m, FromJSString result) => HTMLObjectElement -> m result+getType self+  = liftIO (fromJSString <$> (js_getType (unHTMLObjectElement self)))+ +foreign import javascript unsafe "$1[\"useMap\"] = $2;"+        js_setUseMap :: JSRef HTMLObjectElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.useMap Mozilla HTMLObjectElement.useMap documentation> +setUseMap ::+          (MonadIO m, ToJSString val) => HTMLObjectElement -> val -> m ()+setUseMap self val+  = liftIO (js_setUseMap (unHTMLObjectElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"useMap\"]" js_getUseMap ::+        JSRef HTMLObjectElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.useMap Mozilla HTMLObjectElement.useMap documentation> +getUseMap ::+          (MonadIO m, FromJSString result) => HTMLObjectElement -> m result+getUseMap self+  = liftIO+      (fromJSString <$> (js_getUseMap (unHTMLObjectElement self)))+ +foreign import javascript unsafe "$1[\"vspace\"] = $2;"+        js_setVspace :: JSRef HTMLObjectElement -> Int -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.vspace Mozilla HTMLObjectElement.vspace documentation> +setVspace :: (MonadIO m) => HTMLObjectElement -> Int -> m ()+setVspace self val+  = liftIO (js_setVspace (unHTMLObjectElement self) val)+ +foreign import javascript unsafe "$1[\"vspace\"]" js_getVspace ::+        JSRef HTMLObjectElement -> IO Int++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.vspace Mozilla HTMLObjectElement.vspace documentation> +getVspace :: (MonadIO m) => HTMLObjectElement -> m Int+getVspace self = liftIO (js_getVspace (unHTMLObjectElement self))+ +foreign import javascript unsafe "$1[\"width\"] = $2;" js_setWidth+        :: JSRef HTMLObjectElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.width Mozilla HTMLObjectElement.width documentation> +setWidth ::+         (MonadIO m, ToJSString val) => HTMLObjectElement -> val -> m ()+setWidth self val+  = liftIO (js_setWidth (unHTMLObjectElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::+        JSRef HTMLObjectElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.width Mozilla HTMLObjectElement.width documentation> +getWidth ::+         (MonadIO m, FromJSString result) => HTMLObjectElement -> m result+getWidth self+  = liftIO+      (fromJSString <$> (js_getWidth (unHTMLObjectElement self)))+ +foreign import javascript unsafe "($1[\"willValidate\"] ? 1 : 0)"+        js_getWillValidate :: JSRef HTMLObjectElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.willValidate Mozilla HTMLObjectElement.willValidate documentation> +getWillValidate :: (MonadIO m) => HTMLObjectElement -> m Bool+getWillValidate self+  = liftIO (js_getWillValidate (unHTMLObjectElement self))+ +foreign import javascript unsafe "$1[\"validity\"]" js_getValidity+        :: JSRef HTMLObjectElement -> IO (JSRef ValidityState)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.validity Mozilla HTMLObjectElement.validity documentation> +getValidity ::+            (MonadIO m) => HTMLObjectElement -> m (Maybe ValidityState)+getValidity self+  = liftIO+      ((js_getValidity (unHTMLObjectElement self)) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"validationMessage\"]"+        js_getValidationMessage :: JSRef HTMLObjectElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.validationMessage Mozilla HTMLObjectElement.validationMessage documentation> +getValidationMessage ::+                     (MonadIO m, FromJSString result) => HTMLObjectElement -> m result+getValidationMessage self+  = liftIO+      (fromJSString <$>+         (js_getValidationMessage (unHTMLObjectElement self)))+ +foreign import javascript unsafe "$1[\"contentDocument\"]"+        js_getContentDocument ::+        JSRef HTMLObjectElement -> IO (JSRef Document)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.contentDocument Mozilla HTMLObjectElement.contentDocument documentation> +getContentDocument ::+                   (MonadIO m) => HTMLObjectElement -> m (Maybe Document)+getContentDocument self+  = liftIO+      ((js_getContentDocument (unHTMLObjectElement self)) >>= fromJSRef)
+ src/GHCJS/DOM/JSFFI/Generated/HTMLOptGroupElement.hs view
@@ -0,0 +1,56 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.HTMLOptGroupElement+       (js_setDisabled, setDisabled, js_getDisabled, getDisabled,+        js_setLabel, setLabel, js_getLabel, getLabel, HTMLOptGroupElement,+        castToHTMLOptGroupElement, gTypeHTMLOptGroupElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"disabled\"] = $2;"+        js_setDisabled :: JSRef HTMLOptGroupElement -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptGroupElement.disabled Mozilla HTMLOptGroupElement.disabled documentation> +setDisabled :: (MonadIO m) => HTMLOptGroupElement -> Bool -> m ()+setDisabled self val+  = liftIO (js_setDisabled (unHTMLOptGroupElement self) val)+ +foreign import javascript unsafe "($1[\"disabled\"] ? 1 : 0)"+        js_getDisabled :: JSRef HTMLOptGroupElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptGroupElement.disabled Mozilla HTMLOptGroupElement.disabled documentation> +getDisabled :: (MonadIO m) => HTMLOptGroupElement -> m Bool+getDisabled self+  = liftIO (js_getDisabled (unHTMLOptGroupElement self))+ +foreign import javascript unsafe "$1[\"label\"] = $2;" js_setLabel+        :: JSRef HTMLOptGroupElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptGroupElement.label Mozilla HTMLOptGroupElement.label documentation> +setLabel ::+         (MonadIO m, ToJSString val) => HTMLOptGroupElement -> val -> m ()+setLabel self val+  = liftIO+      (js_setLabel (unHTMLOptGroupElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"label\"]" js_getLabel ::+        JSRef HTMLOptGroupElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptGroupElement.label Mozilla HTMLOptGroupElement.label documentation> +getLabel ::+         (MonadIO m, FromJSString result) => HTMLOptGroupElement -> m result+getLabel self+  = liftIO+      (fromJSString <$> (js_getLabel (unHTMLOptGroupElement self)))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLOptionElement.hs view
@@ -0,0 +1,146 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.HTMLOptionElement+       (js_setDisabled, setDisabled, js_getDisabled, getDisabled,+        js_getForm, getForm, js_setLabel, setLabel, js_getLabel, getLabel,+        js_setDefaultSelected, setDefaultSelected, js_getDefaultSelected,+        getDefaultSelected, js_setSelected, setSelected, js_getSelected,+        getSelected, js_setValue, setValue, js_getValue, getValue,+        js_setText, setText, js_getText, getText, js_getIndex, getIndex,+        HTMLOptionElement, castToHTMLOptionElement, gTypeHTMLOptionElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"disabled\"] = $2;"+        js_setDisabled :: JSRef HTMLOptionElement -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionElement.disabled Mozilla HTMLOptionElement.disabled documentation> +setDisabled :: (MonadIO m) => HTMLOptionElement -> Bool -> m ()+setDisabled self val+  = liftIO (js_setDisabled (unHTMLOptionElement self) val)+ +foreign import javascript unsafe "($1[\"disabled\"] ? 1 : 0)"+        js_getDisabled :: JSRef HTMLOptionElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionElement.disabled Mozilla HTMLOptionElement.disabled documentation> +getDisabled :: (MonadIO m) => HTMLOptionElement -> m Bool+getDisabled self+  = liftIO (js_getDisabled (unHTMLOptionElement self))+ +foreign import javascript unsafe "$1[\"form\"]" js_getForm ::+        JSRef HTMLOptionElement -> IO (JSRef HTMLFormElement)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionElement.form Mozilla HTMLOptionElement.form documentation> +getForm ::+        (MonadIO m) => HTMLOptionElement -> m (Maybe HTMLFormElement)+getForm self+  = liftIO ((js_getForm (unHTMLOptionElement self)) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"label\"] = $2;" js_setLabel+        :: JSRef HTMLOptionElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionElement.label Mozilla HTMLOptionElement.label documentation> +setLabel ::+         (MonadIO m, ToJSString val) => HTMLOptionElement -> val -> m ()+setLabel self val+  = liftIO (js_setLabel (unHTMLOptionElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"label\"]" js_getLabel ::+        JSRef HTMLOptionElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionElement.label Mozilla HTMLOptionElement.label documentation> +getLabel ::+         (MonadIO m, FromJSString result) => HTMLOptionElement -> m result+getLabel self+  = liftIO+      (fromJSString <$> (js_getLabel (unHTMLOptionElement self)))+ +foreign import javascript unsafe "$1[\"defaultSelected\"] = $2;"+        js_setDefaultSelected :: JSRef HTMLOptionElement -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionElement.defaultSelected Mozilla HTMLOptionElement.defaultSelected documentation> +setDefaultSelected ::+                   (MonadIO m) => HTMLOptionElement -> Bool -> m ()+setDefaultSelected self val+  = liftIO (js_setDefaultSelected (unHTMLOptionElement self) val)+ +foreign import javascript unsafe+        "($1[\"defaultSelected\"] ? 1 : 0)" js_getDefaultSelected ::+        JSRef HTMLOptionElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionElement.defaultSelected Mozilla HTMLOptionElement.defaultSelected documentation> +getDefaultSelected :: (MonadIO m) => HTMLOptionElement -> m Bool+getDefaultSelected self+  = liftIO (js_getDefaultSelected (unHTMLOptionElement self))+ +foreign import javascript unsafe "$1[\"selected\"] = $2;"+        js_setSelected :: JSRef HTMLOptionElement -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionElement.selected Mozilla HTMLOptionElement.selected documentation> +setSelected :: (MonadIO m) => HTMLOptionElement -> Bool -> m ()+setSelected self val+  = liftIO (js_setSelected (unHTMLOptionElement self) val)+ +foreign import javascript unsafe "($1[\"selected\"] ? 1 : 0)"+        js_getSelected :: JSRef HTMLOptionElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionElement.selected Mozilla HTMLOptionElement.selected documentation> +getSelected :: (MonadIO m) => HTMLOptionElement -> m Bool+getSelected self+  = liftIO (js_getSelected (unHTMLOptionElement self))+ +foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue+        :: JSRef HTMLOptionElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionElement.value Mozilla HTMLOptionElement.value documentation> +setValue ::+         (MonadIO m, ToJSString val) => HTMLOptionElement -> val -> m ()+setValue self val+  = liftIO (js_setValue (unHTMLOptionElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"value\"]" js_getValue ::+        JSRef HTMLOptionElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionElement.value Mozilla HTMLOptionElement.value documentation> +getValue ::+         (MonadIO m, FromJSString result) => HTMLOptionElement -> m result+getValue self+  = liftIO+      (fromJSString <$> (js_getValue (unHTMLOptionElement self)))+ +foreign import javascript unsafe "$1[\"text\"] = $2;" js_setText ::+        JSRef HTMLOptionElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionElement.text Mozilla HTMLOptionElement.text documentation> +setText ::+        (MonadIO m, ToJSString val) => HTMLOptionElement -> val -> m ()+setText self val+  = liftIO (js_setText (unHTMLOptionElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"text\"]" js_getText ::+        JSRef HTMLOptionElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionElement.text Mozilla HTMLOptionElement.text documentation> +getText ::+        (MonadIO m, FromJSString result) => HTMLOptionElement -> m result+getText self+  = liftIO (fromJSString <$> (js_getText (unHTMLOptionElement self)))+ +foreign import javascript unsafe "$1[\"index\"]" js_getIndex ::+        JSRef HTMLOptionElement -> IO Int++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionElement.index Mozilla HTMLOptionElement.index documentation> +getIndex :: (MonadIO m) => HTMLOptionElement -> m Int+getIndex self = liftIO (js_getIndex (unHTMLOptionElement self))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLOptionsCollection.hs view
@@ -0,0 +1,104 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.HTMLOptionsCollection+       (js_namedItem, namedItem, js_addBefore, addBefore, js_add, add,+        js_remove, remove, js_setSelectedIndex, setSelectedIndex,+        js_getSelectedIndex, getSelectedIndex, js_setLength, setLength,+        js_getLength, getLength, HTMLOptionsCollection,+        castToHTMLOptionsCollection, gTypeHTMLOptionsCollection)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"namedItem\"]($2)"+        js_namedItem ::+        JSRef HTMLOptionsCollection -> JSString -> IO (JSRef Node)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionsCollection.namedItem Mozilla HTMLOptionsCollection.namedItem documentation> +namedItem ::+          (MonadIO m, ToJSString name) =>+            HTMLOptionsCollection -> name -> m (Maybe Node)+namedItem self name+  = liftIO+      ((js_namedItem (unHTMLOptionsCollection self) (toJSString name))+         >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"add\"]($2, $3)" js_addBefore+        ::+        JSRef HTMLOptionsCollection ->+          JSRef HTMLElement -> JSRef HTMLElement -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionsCollection.add Mozilla HTMLOptionsCollection.add documentation> +addBefore ::+          (MonadIO m, IsHTMLElement element, IsHTMLElement before) =>+            HTMLOptionsCollection -> Maybe element -> Maybe before -> m ()+addBefore self element before+  = liftIO+      (js_addBefore (unHTMLOptionsCollection self)+         (maybe jsNull (unHTMLElement . toHTMLElement) element)+         (maybe jsNull (unHTMLElement . toHTMLElement) before))+ +foreign import javascript unsafe "$1[\"add\"]($2, $3)" js_add ::+        JSRef HTMLOptionsCollection -> JSRef HTMLElement -> Int -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionsCollection.add Mozilla HTMLOptionsCollection.add documentation> +add ::+    (MonadIO m, IsHTMLElement element) =>+      HTMLOptionsCollection -> Maybe element -> Int -> m ()+add self element index+  = liftIO+      (js_add (unHTMLOptionsCollection self)+         (maybe jsNull (unHTMLElement . toHTMLElement) element)+         index)+ +foreign import javascript unsafe "$1[\"remove\"]($2)" js_remove ::+        JSRef HTMLOptionsCollection -> Word -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionsCollection.remove Mozilla HTMLOptionsCollection.remove documentation> +remove :: (MonadIO m) => HTMLOptionsCollection -> Word -> m ()+remove self index+  = liftIO (js_remove (unHTMLOptionsCollection self) index)+ +foreign import javascript unsafe "$1[\"selectedIndex\"] = $2;"+        js_setSelectedIndex :: JSRef HTMLOptionsCollection -> Int -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionsCollection.selectedIndex Mozilla HTMLOptionsCollection.selectedIndex documentation> +setSelectedIndex ::+                 (MonadIO m) => HTMLOptionsCollection -> Int -> m ()+setSelectedIndex self val+  = liftIO (js_setSelectedIndex (unHTMLOptionsCollection self) val)+ +foreign import javascript unsafe "$1[\"selectedIndex\"]"+        js_getSelectedIndex :: JSRef HTMLOptionsCollection -> IO Int++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionsCollection.selectedIndex Mozilla HTMLOptionsCollection.selectedIndex documentation> +getSelectedIndex :: (MonadIO m) => HTMLOptionsCollection -> m Int+getSelectedIndex self+  = liftIO (js_getSelectedIndex (unHTMLOptionsCollection self))+ +foreign import javascript unsafe "$1[\"length\"] = $2;"+        js_setLength :: JSRef HTMLOptionsCollection -> Word -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionsCollection.length Mozilla HTMLOptionsCollection.length documentation> +setLength :: (MonadIO m) => HTMLOptionsCollection -> Word -> m ()+setLength self val+  = liftIO (js_setLength (unHTMLOptionsCollection self) val)+ +foreign import javascript unsafe "$1[\"length\"]" js_getLength ::+        JSRef HTMLOptionsCollection -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionsCollection.length Mozilla HTMLOptionsCollection.length documentation> +getLength :: (MonadIO m) => HTMLOptionsCollection -> m Word+getLength self+  = liftIO (js_getLength (unHTMLOptionsCollection self))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLOutputElement.hs view
@@ -0,0 +1,178 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.HTMLOutputElement+       (js_checkValidity, checkValidity, js_setCustomValidity,+        setCustomValidity, js_getHtmlFor, getHtmlFor, js_getForm, getForm,+        js_setName, setName, js_getName, getName, js_getType, getType,+        js_setDefaultValue, setDefaultValue, js_getDefaultValue,+        getDefaultValue, js_setValue, setValue, js_getValue, getValue,+        js_getWillValidate, getWillValidate, js_getValidity, getValidity,+        js_getValidationMessage, getValidationMessage, js_getLabels,+        getLabels, HTMLOutputElement, castToHTMLOutputElement,+        gTypeHTMLOutputElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe+        "($1[\"checkValidity\"]() ? 1 : 0)" js_checkValidity ::+        JSRef HTMLOutputElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement.checkValidity Mozilla HTMLOutputElement.checkValidity documentation> +checkValidity :: (MonadIO m) => HTMLOutputElement -> m Bool+checkValidity self+  = liftIO (js_checkValidity (unHTMLOutputElement self))+ +foreign import javascript unsafe "$1[\"setCustomValidity\"]($2)"+        js_setCustomValidity ::+        JSRef HTMLOutputElement -> JSRef (Maybe JSString) -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement.setCustomValidity Mozilla HTMLOutputElement.setCustomValidity documentation> +setCustomValidity ::+                  (MonadIO m, ToJSString error) =>+                    HTMLOutputElement -> Maybe error -> m ()+setCustomValidity self error+  = liftIO+      (js_setCustomValidity (unHTMLOutputElement self)+         (toMaybeJSString error))+ +foreign import javascript unsafe "$1[\"htmlFor\"]" js_getHtmlFor ::+        JSRef HTMLOutputElement -> IO (JSRef DOMSettableTokenList)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement.htmlFor Mozilla HTMLOutputElement.htmlFor documentation> +getHtmlFor ::+           (MonadIO m) => HTMLOutputElement -> m (Maybe DOMSettableTokenList)+getHtmlFor self+  = liftIO ((js_getHtmlFor (unHTMLOutputElement self)) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"form\"]" js_getForm ::+        JSRef HTMLOutputElement -> IO (JSRef HTMLFormElement)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement.form Mozilla HTMLOutputElement.form documentation> +getForm ::+        (MonadIO m) => HTMLOutputElement -> m (Maybe HTMLFormElement)+getForm self+  = liftIO ((js_getForm (unHTMLOutputElement self)) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName ::+        JSRef HTMLOutputElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement.name Mozilla HTMLOutputElement.name documentation> +setName ::+        (MonadIO m, ToJSString val) => HTMLOutputElement -> val -> m ()+setName self val+  = liftIO (js_setName (unHTMLOutputElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"name\"]" js_getName ::+        JSRef HTMLOutputElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement.name Mozilla HTMLOutputElement.name documentation> +getName ::+        (MonadIO m, FromJSString result) => HTMLOutputElement -> m result+getName self+  = liftIO (fromJSString <$> (js_getName (unHTMLOutputElement self)))+ +foreign import javascript unsafe "$1[\"type\"]" js_getType ::+        JSRef HTMLOutputElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement.type Mozilla HTMLOutputElement.type documentation> +getType ::+        (MonadIO m, FromJSString result) => HTMLOutputElement -> m result+getType self+  = liftIO (fromJSString <$> (js_getType (unHTMLOutputElement self)))+ +foreign import javascript unsafe "$1[\"defaultValue\"] = $2;"+        js_setDefaultValue ::+        JSRef HTMLOutputElement -> JSRef (Maybe JSString) -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement.defaultValue Mozilla HTMLOutputElement.defaultValue documentation> +setDefaultValue ::+                (MonadIO m, ToJSString val) =>+                  HTMLOutputElement -> Maybe val -> m ()+setDefaultValue self val+  = liftIO+      (js_setDefaultValue (unHTMLOutputElement self)+         (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"defaultValue\"]"+        js_getDefaultValue ::+        JSRef HTMLOutputElement -> IO (JSRef (Maybe JSString))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement.defaultValue Mozilla HTMLOutputElement.defaultValue documentation> +getDefaultValue ::+                (MonadIO m, FromJSString result) =>+                  HTMLOutputElement -> m (Maybe result)+getDefaultValue self+  = liftIO+      (fromMaybeJSString <$>+         (js_getDefaultValue (unHTMLOutputElement self)))+ +foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue+        :: JSRef HTMLOutputElement -> JSRef (Maybe JSString) -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement.value Mozilla HTMLOutputElement.value documentation> +setValue ::+         (MonadIO m, ToJSString val) =>+           HTMLOutputElement -> Maybe val -> m ()+setValue self val+  = liftIO+      (js_setValue (unHTMLOutputElement self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"value\"]" js_getValue ::+        JSRef HTMLOutputElement -> IO (JSRef (Maybe JSString))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement.value Mozilla HTMLOutputElement.value documentation> +getValue ::+         (MonadIO m, FromJSString result) =>+           HTMLOutputElement -> m (Maybe result)+getValue self+  = liftIO+      (fromMaybeJSString <$> (js_getValue (unHTMLOutputElement self)))+ +foreign import javascript unsafe "($1[\"willValidate\"] ? 1 : 0)"+        js_getWillValidate :: JSRef HTMLOutputElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement.willValidate Mozilla HTMLOutputElement.willValidate documentation> +getWillValidate :: (MonadIO m) => HTMLOutputElement -> m Bool+getWillValidate self+  = liftIO (js_getWillValidate (unHTMLOutputElement self))+ +foreign import javascript unsafe "$1[\"validity\"]" js_getValidity+        :: JSRef HTMLOutputElement -> IO (JSRef ValidityState)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement.validity Mozilla HTMLOutputElement.validity documentation> +getValidity ::+            (MonadIO m) => HTMLOutputElement -> m (Maybe ValidityState)+getValidity self+  = liftIO+      ((js_getValidity (unHTMLOutputElement self)) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"validationMessage\"]"+        js_getValidationMessage :: JSRef HTMLOutputElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement.validationMessage Mozilla HTMLOutputElement.validationMessage documentation> +getValidationMessage ::+                     (MonadIO m, FromJSString result) => HTMLOutputElement -> m result+getValidationMessage self+  = liftIO+      (fromJSString <$>+         (js_getValidationMessage (unHTMLOutputElement self)))+ +foreign import javascript unsafe "$1[\"labels\"]" js_getLabels ::+        JSRef HTMLOutputElement -> IO (JSRef NodeList)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement.labels Mozilla HTMLOutputElement.labels documentation> +getLabels :: (MonadIO m) => HTMLOutputElement -> m (Maybe NodeList)+getLabels self+  = liftIO ((js_getLabels (unHTMLOutputElement self)) >>= fromJSRef)
+ src/GHCJS/DOM/JSFFI/Generated/HTMLParagraphElement.hs view
@@ -0,0 +1,41 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.HTMLParagraphElement+       (js_setAlign, setAlign, js_getAlign, getAlign,+        HTMLParagraphElement, castToHTMLParagraphElement,+        gTypeHTMLParagraphElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign+        :: JSRef HTMLParagraphElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLParagraphElement.align Mozilla HTMLParagraphElement.align documentation> +setAlign ::+         (MonadIO m, ToJSString val) => HTMLParagraphElement -> val -> m ()+setAlign self val+  = liftIO+      (js_setAlign (unHTMLParagraphElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"align\"]" js_getAlign ::+        JSRef HTMLParagraphElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLParagraphElement.align Mozilla HTMLParagraphElement.align documentation> +getAlign ::+         (MonadIO m, FromJSString result) =>+           HTMLParagraphElement -> m result+getAlign self+  = liftIO+      (fromJSString <$> (js_getAlign (unHTMLParagraphElement self)))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLParamElement.hs view
@@ -0,0 +1,95 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.HTMLParamElement+       (js_setName, setName, js_getName, getName, js_setType, setType,+        js_getType, getType, js_setValue, setValue, js_getValue, getValue,+        js_setValueType, setValueType, js_getValueType, getValueType,+        HTMLParamElement, castToHTMLParamElement, gTypeHTMLParamElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName ::+        JSRef HTMLParamElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLParamElement.name Mozilla HTMLParamElement.name documentation> +setName ::+        (MonadIO m, ToJSString val) => HTMLParamElement -> val -> m ()+setName self val+  = liftIO (js_setName (unHTMLParamElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"name\"]" js_getName ::+        JSRef HTMLParamElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLParamElement.name Mozilla HTMLParamElement.name documentation> +getName ::+        (MonadIO m, FromJSString result) => HTMLParamElement -> m result+getName self+  = liftIO (fromJSString <$> (js_getName (unHTMLParamElement self)))+ +foreign import javascript unsafe "$1[\"type\"] = $2;" js_setType ::+        JSRef HTMLParamElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLParamElement.type Mozilla HTMLParamElement.type documentation> +setType ::+        (MonadIO m, ToJSString val) => HTMLParamElement -> val -> m ()+setType self val+  = liftIO (js_setType (unHTMLParamElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"type\"]" js_getType ::+        JSRef HTMLParamElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLParamElement.type Mozilla HTMLParamElement.type documentation> +getType ::+        (MonadIO m, FromJSString result) => HTMLParamElement -> m result+getType self+  = liftIO (fromJSString <$> (js_getType (unHTMLParamElement self)))+ +foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue+        :: JSRef HTMLParamElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLParamElement.value Mozilla HTMLParamElement.value documentation> +setValue ::+         (MonadIO m, ToJSString val) => HTMLParamElement -> val -> m ()+setValue self val+  = liftIO (js_setValue (unHTMLParamElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"value\"]" js_getValue ::+        JSRef HTMLParamElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLParamElement.value Mozilla HTMLParamElement.value documentation> +getValue ::+         (MonadIO m, FromJSString result) => HTMLParamElement -> m result+getValue self+  = liftIO (fromJSString <$> (js_getValue (unHTMLParamElement self)))+ +foreign import javascript unsafe "$1[\"valueType\"] = $2;"+        js_setValueType :: JSRef HTMLParamElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLParamElement.valueType Mozilla HTMLParamElement.valueType documentation> +setValueType ::+             (MonadIO m, ToJSString val) => HTMLParamElement -> val -> m ()+setValueType self val+  = liftIO+      (js_setValueType (unHTMLParamElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"valueType\"]"+        js_getValueType :: JSRef HTMLParamElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLParamElement.valueType Mozilla HTMLParamElement.valueType documentation> +getValueType ::+             (MonadIO m, FromJSString result) => HTMLParamElement -> m result+getValueType self+  = liftIO+      (fromJSString <$> (js_getValueType (unHTMLParamElement self)))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLPreElement.hs view
@@ -0,0 +1,49 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.HTMLPreElement+       (js_setWidth, setWidth, js_getWidth, getWidth, js_setWrap, setWrap,+        js_getWrap, getWrap, HTMLPreElement, castToHTMLPreElement,+        gTypeHTMLPreElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"width\"] = $2;" js_setWidth+        :: JSRef HTMLPreElement -> Int -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLPreElement.width Mozilla HTMLPreElement.width documentation> +setWidth :: (MonadIO m) => HTMLPreElement -> Int -> m ()+setWidth self val+  = liftIO (js_setWidth (unHTMLPreElement self) val)+ +foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::+        JSRef HTMLPreElement -> IO Int++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLPreElement.width Mozilla HTMLPreElement.width documentation> +getWidth :: (MonadIO m) => HTMLPreElement -> m Int+getWidth self = liftIO (js_getWidth (unHTMLPreElement self))+ +foreign import javascript unsafe "$1[\"wrap\"] = $2;" js_setWrap ::+        JSRef HTMLPreElement -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLPreElement.wrap Mozilla HTMLPreElement.wrap documentation> +setWrap :: (MonadIO m) => HTMLPreElement -> Bool -> m ()+setWrap self val = liftIO (js_setWrap (unHTMLPreElement self) val)+ +foreign import javascript unsafe "($1[\"wrap\"] ? 1 : 0)"+        js_getWrap :: JSRef HTMLPreElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLPreElement.wrap Mozilla HTMLPreElement.wrap documentation> +getWrap :: (MonadIO m) => HTMLPreElement -> m Bool+getWrap self = liftIO (js_getWrap (unHTMLPreElement self))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLProgressElement.hs view
@@ -0,0 +1,69 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.HTMLProgressElement+       (js_setValue, setValue, js_getValue, getValue, js_setMax, setMax,+        js_getMax, getMax, js_getPosition, getPosition, js_getLabels,+        getLabels, HTMLProgressElement, castToHTMLProgressElement,+        gTypeHTMLProgressElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue+        :: JSRef HTMLProgressElement -> Double -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLProgressElement.value Mozilla HTMLProgressElement.value documentation> +setValue :: (MonadIO m) => HTMLProgressElement -> Double -> m ()+setValue self val+  = liftIO (js_setValue (unHTMLProgressElement self) val)+ +foreign import javascript unsafe "$1[\"value\"]" js_getValue ::+        JSRef HTMLProgressElement -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLProgressElement.value Mozilla HTMLProgressElement.value documentation> +getValue :: (MonadIO m) => HTMLProgressElement -> m Double+getValue self = liftIO (js_getValue (unHTMLProgressElement self))+ +foreign import javascript unsafe "$1[\"max\"] = $2;" js_setMax ::+        JSRef HTMLProgressElement -> Double -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLProgressElement.max Mozilla HTMLProgressElement.max documentation> +setMax :: (MonadIO m) => HTMLProgressElement -> Double -> m ()+setMax self val+  = liftIO (js_setMax (unHTMLProgressElement self) val)+ +foreign import javascript unsafe "$1[\"max\"]" js_getMax ::+        JSRef HTMLProgressElement -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLProgressElement.max Mozilla HTMLProgressElement.max documentation> +getMax :: (MonadIO m) => HTMLProgressElement -> m Double+getMax self = liftIO (js_getMax (unHTMLProgressElement self))+ +foreign import javascript unsafe "$1[\"position\"]" js_getPosition+        :: JSRef HTMLProgressElement -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLProgressElement.position Mozilla HTMLProgressElement.position documentation> +getPosition :: (MonadIO m) => HTMLProgressElement -> m Double+getPosition self+  = liftIO (js_getPosition (unHTMLProgressElement self))+ +foreign import javascript unsafe "$1[\"labels\"]" js_getLabels ::+        JSRef HTMLProgressElement -> IO (JSRef NodeList)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLProgressElement.labels Mozilla HTMLProgressElement.labels documentation> +getLabels ::+          (MonadIO m) => HTMLProgressElement -> m (Maybe NodeList)+getLabels self+  = liftIO+      ((js_getLabels (unHTMLProgressElement self)) >>= fromJSRef)
+ src/GHCJS/DOM/JSFFI/Generated/HTMLQuoteElement.hs view
@@ -0,0 +1,37 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.HTMLQuoteElement+       (js_setCite, setCite, js_getCite, getCite, HTMLQuoteElement,+        castToHTMLQuoteElement, gTypeHTMLQuoteElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"cite\"] = $2;" js_setCite ::+        JSRef HTMLQuoteElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLQuoteElement.cite Mozilla HTMLQuoteElement.cite documentation> +setCite ::+        (MonadIO m, ToJSString val) => HTMLQuoteElement -> val -> m ()+setCite self val+  = liftIO (js_setCite (unHTMLQuoteElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"cite\"]" js_getCite ::+        JSRef HTMLQuoteElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLQuoteElement.cite Mozilla HTMLQuoteElement.cite documentation> +getCite ::+        (MonadIO m, FromJSString result) => HTMLQuoteElement -> m result+getCite self+  = liftIO (fromJSString <$> (js_getCite (unHTMLQuoteElement self)))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLScriptElement.hs view
@@ -0,0 +1,212 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.HTMLScriptElement+       (js_setText, setText, js_getText, getText, js_setHtmlFor,+        setHtmlFor, js_getHtmlFor, getHtmlFor, js_setEvent, setEvent,+        js_getEvent, getEvent, js_setCharset, setCharset, js_getCharset,+        getCharset, js_setAsync, setAsync, js_getAsync, getAsync,+        js_setDefer, setDefer, js_getDefer, getDefer, js_setSrc, setSrc,+        js_getSrc, getSrc, js_setType, setType, js_getType, getType,+        js_setCrossOrigin, setCrossOrigin, js_getCrossOrigin,+        getCrossOrigin, js_setNonce, setNonce, js_getNonce, getNonce,+        HTMLScriptElement, castToHTMLScriptElement, gTypeHTMLScriptElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"text\"] = $2;" js_setText ::+        JSRef HTMLScriptElement -> JSRef (Maybe JSString) -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLScriptElement.text Mozilla HTMLScriptElement.text documentation> +setText ::+        (MonadIO m, ToJSString val) =>+          HTMLScriptElement -> Maybe val -> m ()+setText self val+  = liftIO+      (js_setText (unHTMLScriptElement self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"text\"]" js_getText ::+        JSRef HTMLScriptElement -> IO (JSRef (Maybe JSString))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLScriptElement.text Mozilla HTMLScriptElement.text documentation> +getText ::+        (MonadIO m, FromJSString result) =>+          HTMLScriptElement -> m (Maybe result)+getText self+  = liftIO+      (fromMaybeJSString <$> (js_getText (unHTMLScriptElement self)))+ +foreign import javascript unsafe "$1[\"htmlFor\"] = $2;"+        js_setHtmlFor :: JSRef HTMLScriptElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLScriptElement.htmlFor Mozilla HTMLScriptElement.htmlFor documentation> +setHtmlFor ::+           (MonadIO m, ToJSString val) => HTMLScriptElement -> val -> m ()+setHtmlFor self val+  = liftIO+      (js_setHtmlFor (unHTMLScriptElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"htmlFor\"]" js_getHtmlFor ::+        JSRef HTMLScriptElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLScriptElement.htmlFor Mozilla HTMLScriptElement.htmlFor documentation> +getHtmlFor ::+           (MonadIO m, FromJSString result) => HTMLScriptElement -> m result+getHtmlFor self+  = liftIO+      (fromJSString <$> (js_getHtmlFor (unHTMLScriptElement self)))+ +foreign import javascript unsafe "$1[\"event\"] = $2;" js_setEvent+        :: JSRef HTMLScriptElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLScriptElement.event Mozilla HTMLScriptElement.event documentation> +setEvent ::+         (MonadIO m, ToJSString val) => HTMLScriptElement -> val -> m ()+setEvent self val+  = liftIO (js_setEvent (unHTMLScriptElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"event\"]" js_getEvent ::+        JSRef HTMLScriptElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLScriptElement.event Mozilla HTMLScriptElement.event documentation> +getEvent ::+         (MonadIO m, FromJSString result) => HTMLScriptElement -> m result+getEvent self+  = liftIO+      (fromJSString <$> (js_getEvent (unHTMLScriptElement self)))+ +foreign import javascript unsafe "$1[\"charset\"] = $2;"+        js_setCharset :: JSRef HTMLScriptElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLScriptElement.charset Mozilla HTMLScriptElement.charset documentation> +setCharset ::+           (MonadIO m, ToJSString val) => HTMLScriptElement -> val -> m ()+setCharset self val+  = liftIO+      (js_setCharset (unHTMLScriptElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"charset\"]" js_getCharset ::+        JSRef HTMLScriptElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLScriptElement.charset Mozilla HTMLScriptElement.charset documentation> +getCharset ::+           (MonadIO m, FromJSString result) => HTMLScriptElement -> m result+getCharset self+  = liftIO+      (fromJSString <$> (js_getCharset (unHTMLScriptElement self)))+ +foreign import javascript unsafe "$1[\"async\"] = $2;" js_setAsync+        :: JSRef HTMLScriptElement -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLScriptElement.async Mozilla HTMLScriptElement.async documentation> +setAsync :: (MonadIO m) => HTMLScriptElement -> Bool -> m ()+setAsync self val+  = liftIO (js_setAsync (unHTMLScriptElement self) val)+ +foreign import javascript unsafe "($1[\"async\"] ? 1 : 0)"+        js_getAsync :: JSRef HTMLScriptElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLScriptElement.async Mozilla HTMLScriptElement.async documentation> +getAsync :: (MonadIO m) => HTMLScriptElement -> m Bool+getAsync self = liftIO (js_getAsync (unHTMLScriptElement self))+ +foreign import javascript unsafe "$1[\"defer\"] = $2;" js_setDefer+        :: JSRef HTMLScriptElement -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLScriptElement.defer Mozilla HTMLScriptElement.defer documentation> +setDefer :: (MonadIO m) => HTMLScriptElement -> Bool -> m ()+setDefer self val+  = liftIO (js_setDefer (unHTMLScriptElement self) val)+ +foreign import javascript unsafe "($1[\"defer\"] ? 1 : 0)"+        js_getDefer :: JSRef HTMLScriptElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLScriptElement.defer Mozilla HTMLScriptElement.defer documentation> +getDefer :: (MonadIO m) => HTMLScriptElement -> m Bool+getDefer self = liftIO (js_getDefer (unHTMLScriptElement self))+ +foreign import javascript unsafe "$1[\"src\"] = $2;" js_setSrc ::+        JSRef HTMLScriptElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLScriptElement.src Mozilla HTMLScriptElement.src documentation> +setSrc ::+       (MonadIO m, ToJSString val) => HTMLScriptElement -> val -> m ()+setSrc self val+  = liftIO (js_setSrc (unHTMLScriptElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"src\"]" js_getSrc ::+        JSRef HTMLScriptElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLScriptElement.src Mozilla HTMLScriptElement.src documentation> +getSrc ::+       (MonadIO m, FromJSString result) => HTMLScriptElement -> m result+getSrc self+  = liftIO (fromJSString <$> (js_getSrc (unHTMLScriptElement self)))+ +foreign import javascript unsafe "$1[\"type\"] = $2;" js_setType ::+        JSRef HTMLScriptElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLScriptElement.type Mozilla HTMLScriptElement.type documentation> +setType ::+        (MonadIO m, ToJSString val) => HTMLScriptElement -> val -> m ()+setType self val+  = liftIO (js_setType (unHTMLScriptElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"type\"]" js_getType ::+        JSRef HTMLScriptElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLScriptElement.type Mozilla HTMLScriptElement.type documentation> +getType ::+        (MonadIO m, FromJSString result) => HTMLScriptElement -> m result+getType self+  = liftIO (fromJSString <$> (js_getType (unHTMLScriptElement self)))+ +foreign import javascript unsafe "$1[\"crossOrigin\"] = $2;"+        js_setCrossOrigin :: JSRef HTMLScriptElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLScriptElement.crossOrigin Mozilla HTMLScriptElement.crossOrigin documentation> +setCrossOrigin ::+               (MonadIO m, ToJSString val) => HTMLScriptElement -> val -> m ()+setCrossOrigin self val+  = liftIO+      (js_setCrossOrigin (unHTMLScriptElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"crossOrigin\"]"+        js_getCrossOrigin :: JSRef HTMLScriptElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLScriptElement.crossOrigin Mozilla HTMLScriptElement.crossOrigin documentation> +getCrossOrigin ::+               (MonadIO m, FromJSString result) => HTMLScriptElement -> m result+getCrossOrigin self+  = liftIO+      (fromJSString <$> (js_getCrossOrigin (unHTMLScriptElement self)))+ +foreign import javascript unsafe "$1[\"nonce\"] = $2;" js_setNonce+        :: JSRef HTMLScriptElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLScriptElement.nonce Mozilla HTMLScriptElement.nonce documentation> +setNonce ::+         (MonadIO m, ToJSString val) => HTMLScriptElement -> val -> m ()+setNonce self val+  = liftIO (js_setNonce (unHTMLScriptElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"nonce\"]" js_getNonce ::+        JSRef HTMLScriptElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLScriptElement.nonce Mozilla HTMLScriptElement.nonce documentation> +getNonce ::+         (MonadIO m, FromJSString result) => HTMLScriptElement -> m result+getNonce self+  = liftIO+      (fromJSString <$> (js_getNonce (unHTMLScriptElement self)))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLSelectElement.hs view
@@ -0,0 +1,337 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.HTMLSelectElement+       (js_item, item, js_namedItem, namedItem, js_addBefore, addBefore,+        js_add, add, js_remove, remove, js_checkValidity, checkValidity,+        js_setCustomValidity, setCustomValidity, js_setAutofocus,+        setAutofocus, js_getAutofocus, getAutofocus, js_setDisabled,+        setDisabled, js_getDisabled, getDisabled, js_getForm, getForm,+        js_setMultiple, setMultiple, js_getMultiple, getMultiple,+        js_setName, setName, js_getName, getName, js_setRequired,+        setRequired, js_getRequired, getRequired, js_setSize, setSize,+        js_getSize, getSize, js_getType, getType, js_getOptions,+        getOptions, js_setLength, setLength, js_getLength, getLength,+        js_getSelectedOptions, getSelectedOptions, js_setSelectedIndex,+        setSelectedIndex, js_getSelectedIndex, getSelectedIndex,+        js_setValue, setValue, js_getValue, getValue, js_getWillValidate,+        getWillValidate, js_getValidity, getValidity,+        js_getValidationMessage, getValidationMessage, js_getLabels,+        getLabels, HTMLSelectElement, castToHTMLSelectElement,+        gTypeHTMLSelectElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"item\"]($2)" js_item ::+        JSRef HTMLSelectElement -> Word -> IO (JSRef Node)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.item Mozilla HTMLSelectElement.item documentation> +item :: (MonadIO m) => HTMLSelectElement -> Word -> m (Maybe Node)+item self index+  = liftIO ((js_item (unHTMLSelectElement self) index) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"namedItem\"]($2)"+        js_namedItem ::+        JSRef HTMLSelectElement -> JSString -> IO (JSRef Node)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.namedItem Mozilla HTMLSelectElement.namedItem documentation> +namedItem ::+          (MonadIO m, ToJSString name) =>+            HTMLSelectElement -> name -> m (Maybe Node)+namedItem self name+  = liftIO+      ((js_namedItem (unHTMLSelectElement self) (toJSString name)) >>=+         fromJSRef)+ +foreign import javascript unsafe "$1[\"add\"]($2, $3)" js_addBefore+        ::+        JSRef HTMLSelectElement ->+          JSRef HTMLElement -> JSRef HTMLElement -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.add Mozilla HTMLSelectElement.add documentation> +addBefore ::+          (MonadIO m, IsHTMLElement element, IsHTMLElement before) =>+            HTMLSelectElement -> Maybe element -> Maybe before -> m ()+addBefore self element before+  = liftIO+      (js_addBefore (unHTMLSelectElement self)+         (maybe jsNull (unHTMLElement . toHTMLElement) element)+         (maybe jsNull (unHTMLElement . toHTMLElement) before))+ +foreign import javascript unsafe "$1[\"add\"]($2, $3)" js_add ::+        JSRef HTMLSelectElement -> JSRef HTMLElement -> Int -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.add Mozilla HTMLSelectElement.add documentation> +add ::+    (MonadIO m, IsHTMLElement element) =>+      HTMLSelectElement -> Maybe element -> Int -> m ()+add self element index+  = liftIO+      (js_add (unHTMLSelectElement self)+         (maybe jsNull (unHTMLElement . toHTMLElement) element)+         index)+ +foreign import javascript unsafe "$1[\"remove\"]()" js_remove ::+        JSRef HTMLSelectElement -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.remove Mozilla HTMLSelectElement.remove documentation> +remove :: (MonadIO m) => HTMLSelectElement -> m ()+remove self = liftIO (js_remove (unHTMLSelectElement self))+ +foreign import javascript unsafe+        "($1[\"checkValidity\"]() ? 1 : 0)" js_checkValidity ::+        JSRef HTMLSelectElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.checkValidity Mozilla HTMLSelectElement.checkValidity documentation> +checkValidity :: (MonadIO m) => HTMLSelectElement -> m Bool+checkValidity self+  = liftIO (js_checkValidity (unHTMLSelectElement self))+ +foreign import javascript unsafe "$1[\"setCustomValidity\"]($2)"+        js_setCustomValidity ::+        JSRef HTMLSelectElement -> JSRef (Maybe JSString) -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.setCustomValidity Mozilla HTMLSelectElement.setCustomValidity documentation> +setCustomValidity ::+                  (MonadIO m, ToJSString error) =>+                    HTMLSelectElement -> Maybe error -> m ()+setCustomValidity self error+  = liftIO+      (js_setCustomValidity (unHTMLSelectElement self)+         (toMaybeJSString error))+ +foreign import javascript unsafe "$1[\"autofocus\"] = $2;"+        js_setAutofocus :: JSRef HTMLSelectElement -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.autofocus Mozilla HTMLSelectElement.autofocus documentation> +setAutofocus :: (MonadIO m) => HTMLSelectElement -> Bool -> m ()+setAutofocus self val+  = liftIO (js_setAutofocus (unHTMLSelectElement self) val)+ +foreign import javascript unsafe "($1[\"autofocus\"] ? 1 : 0)"+        js_getAutofocus :: JSRef HTMLSelectElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.autofocus Mozilla HTMLSelectElement.autofocus documentation> +getAutofocus :: (MonadIO m) => HTMLSelectElement -> m Bool+getAutofocus self+  = liftIO (js_getAutofocus (unHTMLSelectElement self))+ +foreign import javascript unsafe "$1[\"disabled\"] = $2;"+        js_setDisabled :: JSRef HTMLSelectElement -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.disabled Mozilla HTMLSelectElement.disabled documentation> +setDisabled :: (MonadIO m) => HTMLSelectElement -> Bool -> m ()+setDisabled self val+  = liftIO (js_setDisabled (unHTMLSelectElement self) val)+ +foreign import javascript unsafe "($1[\"disabled\"] ? 1 : 0)"+        js_getDisabled :: JSRef HTMLSelectElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.disabled Mozilla HTMLSelectElement.disabled documentation> +getDisabled :: (MonadIO m) => HTMLSelectElement -> m Bool+getDisabled self+  = liftIO (js_getDisabled (unHTMLSelectElement self))+ +foreign import javascript unsafe "$1[\"form\"]" js_getForm ::+        JSRef HTMLSelectElement -> IO (JSRef HTMLFormElement)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.form Mozilla HTMLSelectElement.form documentation> +getForm ::+        (MonadIO m) => HTMLSelectElement -> m (Maybe HTMLFormElement)+getForm self+  = liftIO ((js_getForm (unHTMLSelectElement self)) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"multiple\"] = $2;"+        js_setMultiple :: JSRef HTMLSelectElement -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.multiple Mozilla HTMLSelectElement.multiple documentation> +setMultiple :: (MonadIO m) => HTMLSelectElement -> Bool -> m ()+setMultiple self val+  = liftIO (js_setMultiple (unHTMLSelectElement self) val)+ +foreign import javascript unsafe "($1[\"multiple\"] ? 1 : 0)"+        js_getMultiple :: JSRef HTMLSelectElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.multiple Mozilla HTMLSelectElement.multiple documentation> +getMultiple :: (MonadIO m) => HTMLSelectElement -> m Bool+getMultiple self+  = liftIO (js_getMultiple (unHTMLSelectElement self))+ +foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName ::+        JSRef HTMLSelectElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.name Mozilla HTMLSelectElement.name documentation> +setName ::+        (MonadIO m, ToJSString val) => HTMLSelectElement -> val -> m ()+setName self val+  = liftIO (js_setName (unHTMLSelectElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"name\"]" js_getName ::+        JSRef HTMLSelectElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.name Mozilla HTMLSelectElement.name documentation> +getName ::+        (MonadIO m, FromJSString result) => HTMLSelectElement -> m result+getName self+  = liftIO (fromJSString <$> (js_getName (unHTMLSelectElement self)))+ +foreign import javascript unsafe "$1[\"required\"] = $2;"+        js_setRequired :: JSRef HTMLSelectElement -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.required Mozilla HTMLSelectElement.required documentation> +setRequired :: (MonadIO m) => HTMLSelectElement -> Bool -> m ()+setRequired self val+  = liftIO (js_setRequired (unHTMLSelectElement self) val)+ +foreign import javascript unsafe "($1[\"required\"] ? 1 : 0)"+        js_getRequired :: JSRef HTMLSelectElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.required Mozilla HTMLSelectElement.required documentation> +getRequired :: (MonadIO m) => HTMLSelectElement -> m Bool+getRequired self+  = liftIO (js_getRequired (unHTMLSelectElement self))+ +foreign import javascript unsafe "$1[\"size\"] = $2;" js_setSize ::+        JSRef HTMLSelectElement -> Int -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.size Mozilla HTMLSelectElement.size documentation> +setSize :: (MonadIO m) => HTMLSelectElement -> Int -> m ()+setSize self val+  = liftIO (js_setSize (unHTMLSelectElement self) val)+ +foreign import javascript unsafe "$1[\"size\"]" js_getSize ::+        JSRef HTMLSelectElement -> IO Int++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.size Mozilla HTMLSelectElement.size documentation> +getSize :: (MonadIO m) => HTMLSelectElement -> m Int+getSize self = liftIO (js_getSize (unHTMLSelectElement self))+ +foreign import javascript unsafe "$1[\"type\"]" js_getType ::+        JSRef HTMLSelectElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.type Mozilla HTMLSelectElement.type documentation> +getType ::+        (MonadIO m, FromJSString result) => HTMLSelectElement -> m result+getType self+  = liftIO (fromJSString <$> (js_getType (unHTMLSelectElement self)))+ +foreign import javascript unsafe "$1[\"options\"]" js_getOptions ::+        JSRef HTMLSelectElement -> IO (JSRef HTMLOptionsCollection)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.options Mozilla HTMLSelectElement.options documentation> +getOptions ::+           (MonadIO m) => HTMLSelectElement -> m (Maybe HTMLOptionsCollection)+getOptions self+  = liftIO ((js_getOptions (unHTMLSelectElement self)) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"length\"] = $2;"+        js_setLength :: JSRef HTMLSelectElement -> Word -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.length Mozilla HTMLSelectElement.length documentation> +setLength :: (MonadIO m) => HTMLSelectElement -> Word -> m ()+setLength self val+  = liftIO (js_setLength (unHTMLSelectElement self) val)+ +foreign import javascript unsafe "$1[\"length\"]" js_getLength ::+        JSRef HTMLSelectElement -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.length Mozilla HTMLSelectElement.length documentation> +getLength :: (MonadIO m) => HTMLSelectElement -> m Word+getLength self = liftIO (js_getLength (unHTMLSelectElement self))+ +foreign import javascript unsafe "$1[\"selectedOptions\"]"+        js_getSelectedOptions ::+        JSRef HTMLSelectElement -> IO (JSRef HTMLCollection)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.selectedOptions Mozilla HTMLSelectElement.selectedOptions documentation> +getSelectedOptions ::+                   (MonadIO m) => HTMLSelectElement -> m (Maybe HTMLCollection)+getSelectedOptions self+  = liftIO+      ((js_getSelectedOptions (unHTMLSelectElement self)) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"selectedIndex\"] = $2;"+        js_setSelectedIndex :: JSRef HTMLSelectElement -> Int -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.selectedIndex Mozilla HTMLSelectElement.selectedIndex documentation> +setSelectedIndex :: (MonadIO m) => HTMLSelectElement -> Int -> m ()+setSelectedIndex self val+  = liftIO (js_setSelectedIndex (unHTMLSelectElement self) val)+ +foreign import javascript unsafe "$1[\"selectedIndex\"]"+        js_getSelectedIndex :: JSRef HTMLSelectElement -> IO Int++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.selectedIndex Mozilla HTMLSelectElement.selectedIndex documentation> +getSelectedIndex :: (MonadIO m) => HTMLSelectElement -> m Int+getSelectedIndex self+  = liftIO (js_getSelectedIndex (unHTMLSelectElement self))+ +foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue+        :: JSRef HTMLSelectElement -> JSRef (Maybe JSString) -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.value Mozilla HTMLSelectElement.value documentation> +setValue ::+         (MonadIO m, ToJSString val) =>+           HTMLSelectElement -> Maybe val -> m ()+setValue self val+  = liftIO+      (js_setValue (unHTMLSelectElement self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"value\"]" js_getValue ::+        JSRef HTMLSelectElement -> IO (JSRef (Maybe JSString))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.value Mozilla HTMLSelectElement.value documentation> +getValue ::+         (MonadIO m, FromJSString result) =>+           HTMLSelectElement -> m (Maybe result)+getValue self+  = liftIO+      (fromMaybeJSString <$> (js_getValue (unHTMLSelectElement self)))+ +foreign import javascript unsafe "($1[\"willValidate\"] ? 1 : 0)"+        js_getWillValidate :: JSRef HTMLSelectElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.willValidate Mozilla HTMLSelectElement.willValidate documentation> +getWillValidate :: (MonadIO m) => HTMLSelectElement -> m Bool+getWillValidate self+  = liftIO (js_getWillValidate (unHTMLSelectElement self))+ +foreign import javascript unsafe "$1[\"validity\"]" js_getValidity+        :: JSRef HTMLSelectElement -> IO (JSRef ValidityState)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.validity Mozilla HTMLSelectElement.validity documentation> +getValidity ::+            (MonadIO m) => HTMLSelectElement -> m (Maybe ValidityState)+getValidity self+  = liftIO+      ((js_getValidity (unHTMLSelectElement self)) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"validationMessage\"]"+        js_getValidationMessage :: JSRef HTMLSelectElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.validationMessage Mozilla HTMLSelectElement.validationMessage documentation> +getValidationMessage ::+                     (MonadIO m, FromJSString result) => HTMLSelectElement -> m result+getValidationMessage self+  = liftIO+      (fromJSString <$>+         (js_getValidationMessage (unHTMLSelectElement self)))+ +foreign import javascript unsafe "$1[\"labels\"]" js_getLabels ::+        JSRef HTMLSelectElement -> IO (JSRef NodeList)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.labels Mozilla HTMLSelectElement.labels documentation> +getLabels :: (MonadIO m) => HTMLSelectElement -> m (Maybe NodeList)+getLabels self+  = liftIO ((js_getLabels (unHTMLSelectElement self)) >>= fromJSRef)
+ src/GHCJS/DOM/JSFFI/Generated/HTMLSourceElement.hs view
@@ -0,0 +1,75 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.HTMLSourceElement+       (js_setSrc, setSrc, js_getSrc, getSrc, js_setType, setType,+        js_getType, getType, js_setMedia, setMedia, js_getMedia, getMedia,+        HTMLSourceElement, castToHTMLSourceElement, gTypeHTMLSourceElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"src\"] = $2;" js_setSrc ::+        JSRef HTMLSourceElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSourceElement.src Mozilla HTMLSourceElement.src documentation> +setSrc ::+       (MonadIO m, ToJSString val) => HTMLSourceElement -> val -> m ()+setSrc self val+  = liftIO (js_setSrc (unHTMLSourceElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"src\"]" js_getSrc ::+        JSRef HTMLSourceElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSourceElement.src Mozilla HTMLSourceElement.src documentation> +getSrc ::+       (MonadIO m, FromJSString result) => HTMLSourceElement -> m result+getSrc self+  = liftIO (fromJSString <$> (js_getSrc (unHTMLSourceElement self)))+ +foreign import javascript unsafe "$1[\"type\"] = $2;" js_setType ::+        JSRef HTMLSourceElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSourceElement.type Mozilla HTMLSourceElement.type documentation> +setType ::+        (MonadIO m, ToJSString val) => HTMLSourceElement -> val -> m ()+setType self val+  = liftIO (js_setType (unHTMLSourceElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"type\"]" js_getType ::+        JSRef HTMLSourceElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSourceElement.type Mozilla HTMLSourceElement.type documentation> +getType ::+        (MonadIO m, FromJSString result) => HTMLSourceElement -> m result+getType self+  = liftIO (fromJSString <$> (js_getType (unHTMLSourceElement self)))+ +foreign import javascript unsafe "$1[\"media\"] = $2;" js_setMedia+        :: JSRef HTMLSourceElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSourceElement.media Mozilla HTMLSourceElement.media documentation> +setMedia ::+         (MonadIO m, ToJSString val) => HTMLSourceElement -> val -> m ()+setMedia self val+  = liftIO (js_setMedia (unHTMLSourceElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"media\"]" js_getMedia ::+        JSRef HTMLSourceElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSourceElement.media Mozilla HTMLSourceElement.media documentation> +getMedia ::+         (MonadIO m, FromJSString result) => HTMLSourceElement -> m result+getMedia self+  = liftIO+      (fromJSString <$> (js_getMedia (unHTMLSourceElement self)))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLStyleElement.hs view
@@ -0,0 +1,81 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.HTMLStyleElement+       (js_setDisabled, setDisabled, js_getDisabled, getDisabled,+        js_setMedia, setMedia, js_getMedia, getMedia, js_setType, setType,+        js_getType, getType, js_getSheet, getSheet, HTMLStyleElement,+        castToHTMLStyleElement, gTypeHTMLStyleElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"disabled\"] = $2;"+        js_setDisabled :: JSRef HTMLStyleElement -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLStyleElement.disabled Mozilla HTMLStyleElement.disabled documentation> +setDisabled :: (MonadIO m) => HTMLStyleElement -> Bool -> m ()+setDisabled self val+  = liftIO (js_setDisabled (unHTMLStyleElement self) val)+ +foreign import javascript unsafe "($1[\"disabled\"] ? 1 : 0)"+        js_getDisabled :: JSRef HTMLStyleElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLStyleElement.disabled Mozilla HTMLStyleElement.disabled documentation> +getDisabled :: (MonadIO m) => HTMLStyleElement -> m Bool+getDisabled self+  = liftIO (js_getDisabled (unHTMLStyleElement self))+ +foreign import javascript unsafe "$1[\"media\"] = $2;" js_setMedia+        :: JSRef HTMLStyleElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLStyleElement.media Mozilla HTMLStyleElement.media documentation> +setMedia ::+         (MonadIO m, ToJSString val) => HTMLStyleElement -> val -> m ()+setMedia self val+  = liftIO (js_setMedia (unHTMLStyleElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"media\"]" js_getMedia ::+        JSRef HTMLStyleElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLStyleElement.media Mozilla HTMLStyleElement.media documentation> +getMedia ::+         (MonadIO m, FromJSString result) => HTMLStyleElement -> m result+getMedia self+  = liftIO (fromJSString <$> (js_getMedia (unHTMLStyleElement self)))+ +foreign import javascript unsafe "$1[\"type\"] = $2;" js_setType ::+        JSRef HTMLStyleElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLStyleElement.type Mozilla HTMLStyleElement.type documentation> +setType ::+        (MonadIO m, ToJSString val) => HTMLStyleElement -> val -> m ()+setType self val+  = liftIO (js_setType (unHTMLStyleElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"type\"]" js_getType ::+        JSRef HTMLStyleElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLStyleElement.type Mozilla HTMLStyleElement.type documentation> +getType ::+        (MonadIO m, FromJSString result) => HTMLStyleElement -> m result+getType self+  = liftIO (fromJSString <$> (js_getType (unHTMLStyleElement self)))+ +foreign import javascript unsafe "$1[\"sheet\"]" js_getSheet ::+        JSRef HTMLStyleElement -> IO (JSRef StyleSheet)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLStyleElement.sheet Mozilla HTMLStyleElement.sheet documentation> +getSheet :: (MonadIO m) => HTMLStyleElement -> m (Maybe StyleSheet)+getSheet self+  = liftIO ((js_getSheet (unHTMLStyleElement self)) >>= fromJSRef)
+ src/GHCJS/DOM/JSFFI/Generated/HTMLTableCaptionElement.hs view
@@ -0,0 +1,42 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.HTMLTableCaptionElement+       (js_setAlign, setAlign, js_getAlign, getAlign,+        HTMLTableCaptionElement, castToHTMLTableCaptionElement,+        gTypeHTMLTableCaptionElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign+        :: JSRef HTMLTableCaptionElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCaptionElement.align Mozilla HTMLTableCaptionElement.align documentation> +setAlign ::+         (MonadIO m, ToJSString val) =>+           HTMLTableCaptionElement -> val -> m ()+setAlign self val+  = liftIO+      (js_setAlign (unHTMLTableCaptionElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"align\"]" js_getAlign ::+        JSRef HTMLTableCaptionElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCaptionElement.align Mozilla HTMLTableCaptionElement.align documentation> +getAlign ::+         (MonadIO m, FromJSString result) =>+           HTMLTableCaptionElement -> m result+getAlign self+  = liftIO+      (fromJSString <$> (js_getAlign (unHTMLTableCaptionElement self)))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLTableCellElement.hs view
@@ -0,0 +1,316 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.HTMLTableCellElement+       (js_getCellIndex, getCellIndex, js_setAbbr, setAbbr, js_getAbbr,+        getAbbr, js_setAlign, setAlign, js_getAlign, getAlign, js_setAxis,+        setAxis, js_getAxis, getAxis, js_setBgColor, setBgColor,+        js_getBgColor, getBgColor, js_setCh, setCh, js_getCh, getCh,+        js_setChOff, setChOff, js_getChOff, getChOff, js_setColSpan,+        setColSpan, js_getColSpan, getColSpan, js_setHeaders, setHeaders,+        js_getHeaders, getHeaders, js_setHeight, setHeight, js_getHeight,+        getHeight, js_setNoWrap, setNoWrap, js_getNoWrap, getNoWrap,+        js_setRowSpan, setRowSpan, js_getRowSpan, getRowSpan, js_setScope,+        setScope, js_getScope, getScope, js_setVAlign, setVAlign,+        js_getVAlign, getVAlign, js_setWidth, setWidth, js_getWidth,+        getWidth, HTMLTableCellElement, castToHTMLTableCellElement,+        gTypeHTMLTableCellElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"cellIndex\"]"+        js_getCellIndex :: JSRef HTMLTableCellElement -> IO Int++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.cellIndex Mozilla HTMLTableCellElement.cellIndex documentation> +getCellIndex :: (MonadIO m) => HTMLTableCellElement -> m Int+getCellIndex self+  = liftIO (js_getCellIndex (unHTMLTableCellElement self))+ +foreign import javascript unsafe "$1[\"abbr\"] = $2;" js_setAbbr ::+        JSRef HTMLTableCellElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.abbr Mozilla HTMLTableCellElement.abbr documentation> +setAbbr ::+        (MonadIO m, ToJSString val) => HTMLTableCellElement -> val -> m ()+setAbbr self val+  = liftIO+      (js_setAbbr (unHTMLTableCellElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"abbr\"]" js_getAbbr ::+        JSRef HTMLTableCellElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.abbr Mozilla HTMLTableCellElement.abbr documentation> +getAbbr ::+        (MonadIO m, FromJSString result) =>+          HTMLTableCellElement -> m result+getAbbr self+  = liftIO+      (fromJSString <$> (js_getAbbr (unHTMLTableCellElement self)))+ +foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign+        :: JSRef HTMLTableCellElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.align Mozilla HTMLTableCellElement.align documentation> +setAlign ::+         (MonadIO m, ToJSString val) => HTMLTableCellElement -> val -> m ()+setAlign self val+  = liftIO+      (js_setAlign (unHTMLTableCellElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"align\"]" js_getAlign ::+        JSRef HTMLTableCellElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.align Mozilla HTMLTableCellElement.align documentation> +getAlign ::+         (MonadIO m, FromJSString result) =>+           HTMLTableCellElement -> m result+getAlign self+  = liftIO+      (fromJSString <$> (js_getAlign (unHTMLTableCellElement self)))+ +foreign import javascript unsafe "$1[\"axis\"] = $2;" js_setAxis ::+        JSRef HTMLTableCellElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.axis Mozilla HTMLTableCellElement.axis documentation> +setAxis ::+        (MonadIO m, ToJSString val) => HTMLTableCellElement -> val -> m ()+setAxis self val+  = liftIO+      (js_setAxis (unHTMLTableCellElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"axis\"]" js_getAxis ::+        JSRef HTMLTableCellElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.axis Mozilla HTMLTableCellElement.axis documentation> +getAxis ::+        (MonadIO m, FromJSString result) =>+          HTMLTableCellElement -> m result+getAxis self+  = liftIO+      (fromJSString <$> (js_getAxis (unHTMLTableCellElement self)))+ +foreign import javascript unsafe "$1[\"bgColor\"] = $2;"+        js_setBgColor :: JSRef HTMLTableCellElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.bgColor Mozilla HTMLTableCellElement.bgColor documentation> +setBgColor ::+           (MonadIO m, ToJSString val) => HTMLTableCellElement -> val -> m ()+setBgColor self val+  = liftIO+      (js_setBgColor (unHTMLTableCellElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"bgColor\"]" js_getBgColor ::+        JSRef HTMLTableCellElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.bgColor Mozilla HTMLTableCellElement.bgColor documentation> +getBgColor ::+           (MonadIO m, FromJSString result) =>+             HTMLTableCellElement -> m result+getBgColor self+  = liftIO+      (fromJSString <$> (js_getBgColor (unHTMLTableCellElement self)))+ +foreign import javascript unsafe "$1[\"ch\"] = $2;" js_setCh ::+        JSRef HTMLTableCellElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.ch Mozilla HTMLTableCellElement.ch documentation> +setCh ::+      (MonadIO m, ToJSString val) => HTMLTableCellElement -> val -> m ()+setCh self val+  = liftIO (js_setCh (unHTMLTableCellElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"ch\"]" js_getCh ::+        JSRef HTMLTableCellElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.ch Mozilla HTMLTableCellElement.ch documentation> +getCh ::+      (MonadIO m, FromJSString result) =>+        HTMLTableCellElement -> m result+getCh self+  = liftIO+      (fromJSString <$> (js_getCh (unHTMLTableCellElement self)))+ +foreign import javascript unsafe "$1[\"chOff\"] = $2;" js_setChOff+        :: JSRef HTMLTableCellElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.chOff Mozilla HTMLTableCellElement.chOff documentation> +setChOff ::+         (MonadIO m, ToJSString val) => HTMLTableCellElement -> val -> m ()+setChOff self val+  = liftIO+      (js_setChOff (unHTMLTableCellElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"chOff\"]" js_getChOff ::+        JSRef HTMLTableCellElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.chOff Mozilla HTMLTableCellElement.chOff documentation> +getChOff ::+         (MonadIO m, FromJSString result) =>+           HTMLTableCellElement -> m result+getChOff self+  = liftIO+      (fromJSString <$> (js_getChOff (unHTMLTableCellElement self)))+ +foreign import javascript unsafe "$1[\"colSpan\"] = $2;"+        js_setColSpan :: JSRef HTMLTableCellElement -> Int -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.colSpan Mozilla HTMLTableCellElement.colSpan documentation> +setColSpan :: (MonadIO m) => HTMLTableCellElement -> Int -> m ()+setColSpan self val+  = liftIO (js_setColSpan (unHTMLTableCellElement self) val)+ +foreign import javascript unsafe "$1[\"colSpan\"]" js_getColSpan ::+        JSRef HTMLTableCellElement -> IO Int++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.colSpan Mozilla HTMLTableCellElement.colSpan documentation> +getColSpan :: (MonadIO m) => HTMLTableCellElement -> m Int+getColSpan self+  = liftIO (js_getColSpan (unHTMLTableCellElement self))+ +foreign import javascript unsafe "$1[\"headers\"] = $2;"+        js_setHeaders :: JSRef HTMLTableCellElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.headers Mozilla HTMLTableCellElement.headers documentation> +setHeaders ::+           (MonadIO m, ToJSString val) => HTMLTableCellElement -> val -> m ()+setHeaders self val+  = liftIO+      (js_setHeaders (unHTMLTableCellElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"headers\"]" js_getHeaders ::+        JSRef HTMLTableCellElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.headers Mozilla HTMLTableCellElement.headers documentation> +getHeaders ::+           (MonadIO m, FromJSString result) =>+             HTMLTableCellElement -> m result+getHeaders self+  = liftIO+      (fromJSString <$> (js_getHeaders (unHTMLTableCellElement self)))+ +foreign import javascript unsafe "$1[\"height\"] = $2;"+        js_setHeight :: JSRef HTMLTableCellElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.height Mozilla HTMLTableCellElement.height documentation> +setHeight ::+          (MonadIO m, ToJSString val) => HTMLTableCellElement -> val -> m ()+setHeight self val+  = liftIO+      (js_setHeight (unHTMLTableCellElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"height\"]" js_getHeight ::+        JSRef HTMLTableCellElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.height Mozilla HTMLTableCellElement.height documentation> +getHeight ::+          (MonadIO m, FromJSString result) =>+            HTMLTableCellElement -> m result+getHeight self+  = liftIO+      (fromJSString <$> (js_getHeight (unHTMLTableCellElement self)))+ +foreign import javascript unsafe "$1[\"noWrap\"] = $2;"+        js_setNoWrap :: JSRef HTMLTableCellElement -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.noWrap Mozilla HTMLTableCellElement.noWrap documentation> +setNoWrap :: (MonadIO m) => HTMLTableCellElement -> Bool -> m ()+setNoWrap self val+  = liftIO (js_setNoWrap (unHTMLTableCellElement self) val)+ +foreign import javascript unsafe "($1[\"noWrap\"] ? 1 : 0)"+        js_getNoWrap :: JSRef HTMLTableCellElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.noWrap Mozilla HTMLTableCellElement.noWrap documentation> +getNoWrap :: (MonadIO m) => HTMLTableCellElement -> m Bool+getNoWrap self+  = liftIO (js_getNoWrap (unHTMLTableCellElement self))+ +foreign import javascript unsafe "$1[\"rowSpan\"] = $2;"+        js_setRowSpan :: JSRef HTMLTableCellElement -> Int -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.rowSpan Mozilla HTMLTableCellElement.rowSpan documentation> +setRowSpan :: (MonadIO m) => HTMLTableCellElement -> Int -> m ()+setRowSpan self val+  = liftIO (js_setRowSpan (unHTMLTableCellElement self) val)+ +foreign import javascript unsafe "$1[\"rowSpan\"]" js_getRowSpan ::+        JSRef HTMLTableCellElement -> IO Int++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.rowSpan Mozilla HTMLTableCellElement.rowSpan documentation> +getRowSpan :: (MonadIO m) => HTMLTableCellElement -> m Int+getRowSpan self+  = liftIO (js_getRowSpan (unHTMLTableCellElement self))+ +foreign import javascript unsafe "$1[\"scope\"] = $2;" js_setScope+        :: JSRef HTMLTableCellElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.scope Mozilla HTMLTableCellElement.scope documentation> +setScope ::+         (MonadIO m, ToJSString val) => HTMLTableCellElement -> val -> m ()+setScope self val+  = liftIO+      (js_setScope (unHTMLTableCellElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"scope\"]" js_getScope ::+        JSRef HTMLTableCellElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.scope Mozilla HTMLTableCellElement.scope documentation> +getScope ::+         (MonadIO m, FromJSString result) =>+           HTMLTableCellElement -> m result+getScope self+  = liftIO+      (fromJSString <$> (js_getScope (unHTMLTableCellElement self)))+ +foreign import javascript unsafe "$1[\"vAlign\"] = $2;"+        js_setVAlign :: JSRef HTMLTableCellElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.vAlign Mozilla HTMLTableCellElement.vAlign documentation> +setVAlign ::+          (MonadIO m, ToJSString val) => HTMLTableCellElement -> val -> m ()+setVAlign self val+  = liftIO+      (js_setVAlign (unHTMLTableCellElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"vAlign\"]" js_getVAlign ::+        JSRef HTMLTableCellElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.vAlign Mozilla HTMLTableCellElement.vAlign documentation> +getVAlign ::+          (MonadIO m, FromJSString result) =>+            HTMLTableCellElement -> m result+getVAlign self+  = liftIO+      (fromJSString <$> (js_getVAlign (unHTMLTableCellElement self)))+ +foreign import javascript unsafe "$1[\"width\"] = $2;" js_setWidth+        :: JSRef HTMLTableCellElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.width Mozilla HTMLTableCellElement.width documentation> +setWidth ::+         (MonadIO m, ToJSString val) => HTMLTableCellElement -> val -> m ()+setWidth self val+  = liftIO+      (js_setWidth (unHTMLTableCellElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::+        JSRef HTMLTableCellElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.width Mozilla HTMLTableCellElement.width documentation> +getWidth ::+         (MonadIO m, FromJSString result) =>+           HTMLTableCellElement -> m result+getWidth self+  = liftIO+      (fromJSString <$> (js_getWidth (unHTMLTableCellElement self)))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLTableColElement.hs view
@@ -0,0 +1,136 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.HTMLTableColElement+       (js_setAlign, setAlign, js_getAlign, getAlign, js_setCh, setCh,+        js_getCh, getCh, js_setChOff, setChOff, js_getChOff, getChOff,+        js_setSpan, setSpan, js_getSpan, getSpan, js_setVAlign, setVAlign,+        js_getVAlign, getVAlign, js_setWidth, setWidth, js_getWidth,+        getWidth, HTMLTableColElement, castToHTMLTableColElement,+        gTypeHTMLTableColElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign+        :: JSRef HTMLTableColElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableColElement.align Mozilla HTMLTableColElement.align documentation> +setAlign ::+         (MonadIO m, ToJSString val) => HTMLTableColElement -> val -> m ()+setAlign self val+  = liftIO+      (js_setAlign (unHTMLTableColElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"align\"]" js_getAlign ::+        JSRef HTMLTableColElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableColElement.align Mozilla HTMLTableColElement.align documentation> +getAlign ::+         (MonadIO m, FromJSString result) => HTMLTableColElement -> m result+getAlign self+  = liftIO+      (fromJSString <$> (js_getAlign (unHTMLTableColElement self)))+ +foreign import javascript unsafe "$1[\"ch\"] = $2;" js_setCh ::+        JSRef HTMLTableColElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableColElement.ch Mozilla HTMLTableColElement.ch documentation> +setCh ::+      (MonadIO m, ToJSString val) => HTMLTableColElement -> val -> m ()+setCh self val+  = liftIO (js_setCh (unHTMLTableColElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"ch\"]" js_getCh ::+        JSRef HTMLTableColElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableColElement.ch Mozilla HTMLTableColElement.ch documentation> +getCh ::+      (MonadIO m, FromJSString result) => HTMLTableColElement -> m result+getCh self+  = liftIO (fromJSString <$> (js_getCh (unHTMLTableColElement self)))+ +foreign import javascript unsafe "$1[\"chOff\"] = $2;" js_setChOff+        :: JSRef HTMLTableColElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableColElement.chOff Mozilla HTMLTableColElement.chOff documentation> +setChOff ::+         (MonadIO m, ToJSString val) => HTMLTableColElement -> val -> m ()+setChOff self val+  = liftIO+      (js_setChOff (unHTMLTableColElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"chOff\"]" js_getChOff ::+        JSRef HTMLTableColElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableColElement.chOff Mozilla HTMLTableColElement.chOff documentation> +getChOff ::+         (MonadIO m, FromJSString result) => HTMLTableColElement -> m result+getChOff self+  = liftIO+      (fromJSString <$> (js_getChOff (unHTMLTableColElement self)))+ +foreign import javascript unsafe "$1[\"span\"] = $2;" js_setSpan ::+        JSRef HTMLTableColElement -> Int -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableColElement.span Mozilla HTMLTableColElement.span documentation> +setSpan :: (MonadIO m) => HTMLTableColElement -> Int -> m ()+setSpan self val+  = liftIO (js_setSpan (unHTMLTableColElement self) val)+ +foreign import javascript unsafe "$1[\"span\"]" js_getSpan ::+        JSRef HTMLTableColElement -> IO Int++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableColElement.span Mozilla HTMLTableColElement.span documentation> +getSpan :: (MonadIO m) => HTMLTableColElement -> m Int+getSpan self = liftIO (js_getSpan (unHTMLTableColElement self))+ +foreign import javascript unsafe "$1[\"vAlign\"] = $2;"+        js_setVAlign :: JSRef HTMLTableColElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableColElement.vAlign Mozilla HTMLTableColElement.vAlign documentation> +setVAlign ::+          (MonadIO m, ToJSString val) => HTMLTableColElement -> val -> m ()+setVAlign self val+  = liftIO+      (js_setVAlign (unHTMLTableColElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"vAlign\"]" js_getVAlign ::+        JSRef HTMLTableColElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableColElement.vAlign Mozilla HTMLTableColElement.vAlign documentation> +getVAlign ::+          (MonadIO m, FromJSString result) => HTMLTableColElement -> m result+getVAlign self+  = liftIO+      (fromJSString <$> (js_getVAlign (unHTMLTableColElement self)))+ +foreign import javascript unsafe "$1[\"width\"] = $2;" js_setWidth+        :: JSRef HTMLTableColElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableColElement.width Mozilla HTMLTableColElement.width documentation> +setWidth ::+         (MonadIO m, ToJSString val) => HTMLTableColElement -> val -> m ()+setWidth self val+  = liftIO+      (js_setWidth (unHTMLTableColElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::+        JSRef HTMLTableColElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableColElement.width Mozilla HTMLTableColElement.width documentation> +getWidth ::+         (MonadIO m, FromJSString result) => HTMLTableColElement -> m result+getWidth self+  = liftIO+      (fromJSString <$> (js_getWidth (unHTMLTableColElement self)))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLTableElement.hs view
@@ -0,0 +1,367 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.HTMLTableElement+       (js_createTHead, createTHead, js_deleteTHead, deleteTHead,+        js_createTFoot, createTFoot, js_deleteTFoot, deleteTFoot,+        js_createTBody, createTBody, js_createCaption, createCaption,+        js_deleteCaption, deleteCaption, js_insertRow, insertRow,+        js_deleteRow, deleteRow, js_setCaption, setCaption, js_getCaption,+        getCaption, js_setTHead, setTHead, js_getTHead, getTHead,+        js_setTFoot, setTFoot, js_getTFoot, getTFoot, js_getRows, getRows,+        js_getTBodies, getTBodies, js_setAlign, setAlign, js_getAlign,+        getAlign, js_setBgColor, setBgColor, js_getBgColor, getBgColor,+        js_setBorder, setBorder, js_getBorder, getBorder,+        js_setCellPadding, setCellPadding, js_getCellPadding,+        getCellPadding, js_setCellSpacing, setCellSpacing,+        js_getCellSpacing, getCellSpacing, js_setFrame, setFrame,+        js_getFrame, getFrame, js_setRules, setRules, js_getRules,+        getRules, js_setSummary, setSummary, js_getSummary, getSummary,+        js_setWidth, setWidth, js_getWidth, getWidth, HTMLTableElement,+        castToHTMLTableElement, gTypeHTMLTableElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"createTHead\"]()"+        js_createTHead :: JSRef HTMLTableElement -> IO (JSRef HTMLElement)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.createTHead Mozilla HTMLTableElement.createTHead documentation> +createTHead ::+            (MonadIO m) => HTMLTableElement -> m (Maybe HTMLElement)+createTHead self+  = liftIO ((js_createTHead (unHTMLTableElement self)) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"deleteTHead\"]()"+        js_deleteTHead :: JSRef HTMLTableElement -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.deleteTHead Mozilla HTMLTableElement.deleteTHead documentation> +deleteTHead :: (MonadIO m) => HTMLTableElement -> m ()+deleteTHead self+  = liftIO (js_deleteTHead (unHTMLTableElement self))+ +foreign import javascript unsafe "$1[\"createTFoot\"]()"+        js_createTFoot :: JSRef HTMLTableElement -> IO (JSRef HTMLElement)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.createTFoot Mozilla HTMLTableElement.createTFoot documentation> +createTFoot ::+            (MonadIO m) => HTMLTableElement -> m (Maybe HTMLElement)+createTFoot self+  = liftIO ((js_createTFoot (unHTMLTableElement self)) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"deleteTFoot\"]()"+        js_deleteTFoot :: JSRef HTMLTableElement -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.deleteTFoot Mozilla HTMLTableElement.deleteTFoot documentation> +deleteTFoot :: (MonadIO m) => HTMLTableElement -> m ()+deleteTFoot self+  = liftIO (js_deleteTFoot (unHTMLTableElement self))+ +foreign import javascript unsafe "$1[\"createTBody\"]()"+        js_createTBody :: JSRef HTMLTableElement -> IO (JSRef HTMLElement)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.createTBody Mozilla HTMLTableElement.createTBody documentation> +createTBody ::+            (MonadIO m) => HTMLTableElement -> m (Maybe HTMLElement)+createTBody self+  = liftIO ((js_createTBody (unHTMLTableElement self)) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"createCaption\"]()"+        js_createCaption ::+        JSRef HTMLTableElement -> IO (JSRef HTMLElement)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.createCaption Mozilla HTMLTableElement.createCaption documentation> +createCaption ::+              (MonadIO m) => HTMLTableElement -> m (Maybe HTMLElement)+createCaption self+  = liftIO+      ((js_createCaption (unHTMLTableElement self)) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"deleteCaption\"]()"+        js_deleteCaption :: JSRef HTMLTableElement -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.deleteCaption Mozilla HTMLTableElement.deleteCaption documentation> +deleteCaption :: (MonadIO m) => HTMLTableElement -> m ()+deleteCaption self+  = liftIO (js_deleteCaption (unHTMLTableElement self))+ +foreign import javascript unsafe "$1[\"insertRow\"]($2)"+        js_insertRow ::+        JSRef HTMLTableElement -> Int -> IO (JSRef HTMLElement)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.insertRow Mozilla HTMLTableElement.insertRow documentation> +insertRow ::+          (MonadIO m) => HTMLTableElement -> Int -> m (Maybe HTMLElement)+insertRow self index+  = liftIO+      ((js_insertRow (unHTMLTableElement self) index) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"deleteRow\"]($2)"+        js_deleteRow :: JSRef HTMLTableElement -> Int -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.deleteRow Mozilla HTMLTableElement.deleteRow documentation> +deleteRow :: (MonadIO m) => HTMLTableElement -> Int -> m ()+deleteRow self index+  = liftIO (js_deleteRow (unHTMLTableElement self) index)+ +foreign import javascript unsafe "$1[\"caption\"] = $2;"+        js_setCaption ::+        JSRef HTMLTableElement -> JSRef HTMLTableCaptionElement -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.caption Mozilla HTMLTableElement.caption documentation> +setCaption ::+           (MonadIO m) =>+             HTMLTableElement -> Maybe HTMLTableCaptionElement -> m ()+setCaption self val+  = liftIO+      (js_setCaption (unHTMLTableElement self)+         (maybe jsNull pToJSRef val))+ +foreign import javascript unsafe "$1[\"caption\"]" js_getCaption ::+        JSRef HTMLTableElement -> IO (JSRef HTMLTableCaptionElement)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.caption Mozilla HTMLTableElement.caption documentation> +getCaption ::+           (MonadIO m) =>+             HTMLTableElement -> m (Maybe HTMLTableCaptionElement)+getCaption self+  = liftIO ((js_getCaption (unHTMLTableElement self)) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"tHead\"] = $2;" js_setTHead+        :: JSRef HTMLTableElement -> JSRef HTMLTableSectionElement -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.tHead Mozilla HTMLTableElement.tHead documentation> +setTHead ::+         (MonadIO m) =>+           HTMLTableElement -> Maybe HTMLTableSectionElement -> m ()+setTHead self val+  = liftIO+      (js_setTHead (unHTMLTableElement self) (maybe jsNull pToJSRef val))+ +foreign import javascript unsafe "$1[\"tHead\"]" js_getTHead ::+        JSRef HTMLTableElement -> IO (JSRef HTMLTableSectionElement)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.tHead Mozilla HTMLTableElement.tHead documentation> +getTHead ::+         (MonadIO m) =>+           HTMLTableElement -> m (Maybe HTMLTableSectionElement)+getTHead self+  = liftIO ((js_getTHead (unHTMLTableElement self)) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"tFoot\"] = $2;" js_setTFoot+        :: JSRef HTMLTableElement -> JSRef HTMLTableSectionElement -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.tFoot Mozilla HTMLTableElement.tFoot documentation> +setTFoot ::+         (MonadIO m) =>+           HTMLTableElement -> Maybe HTMLTableSectionElement -> m ()+setTFoot self val+  = liftIO+      (js_setTFoot (unHTMLTableElement self) (maybe jsNull pToJSRef val))+ +foreign import javascript unsafe "$1[\"tFoot\"]" js_getTFoot ::+        JSRef HTMLTableElement -> IO (JSRef HTMLTableSectionElement)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.tFoot Mozilla HTMLTableElement.tFoot documentation> +getTFoot ::+         (MonadIO m) =>+           HTMLTableElement -> m (Maybe HTMLTableSectionElement)+getTFoot self+  = liftIO ((js_getTFoot (unHTMLTableElement self)) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"rows\"]" js_getRows ::+        JSRef HTMLTableElement -> IO (JSRef HTMLCollection)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.rows Mozilla HTMLTableElement.rows documentation> +getRows ::+        (MonadIO m) => HTMLTableElement -> m (Maybe HTMLCollection)+getRows self+  = liftIO ((js_getRows (unHTMLTableElement self)) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"tBodies\"]" js_getTBodies ::+        JSRef HTMLTableElement -> IO (JSRef HTMLCollection)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.tBodies Mozilla HTMLTableElement.tBodies documentation> +getTBodies ::+           (MonadIO m) => HTMLTableElement -> m (Maybe HTMLCollection)+getTBodies self+  = liftIO ((js_getTBodies (unHTMLTableElement self)) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign+        :: JSRef HTMLTableElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.align Mozilla HTMLTableElement.align documentation> +setAlign ::+         (MonadIO m, ToJSString val) => HTMLTableElement -> val -> m ()+setAlign self val+  = liftIO (js_setAlign (unHTMLTableElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"align\"]" js_getAlign ::+        JSRef HTMLTableElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.align Mozilla HTMLTableElement.align documentation> +getAlign ::+         (MonadIO m, FromJSString result) => HTMLTableElement -> m result+getAlign self+  = liftIO (fromJSString <$> (js_getAlign (unHTMLTableElement self)))+ +foreign import javascript unsafe "$1[\"bgColor\"] = $2;"+        js_setBgColor :: JSRef HTMLTableElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.bgColor Mozilla HTMLTableElement.bgColor documentation> +setBgColor ::+           (MonadIO m, ToJSString val) => HTMLTableElement -> val -> m ()+setBgColor self val+  = liftIO (js_setBgColor (unHTMLTableElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"bgColor\"]" js_getBgColor ::+        JSRef HTMLTableElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.bgColor Mozilla HTMLTableElement.bgColor documentation> +getBgColor ::+           (MonadIO m, FromJSString result) => HTMLTableElement -> m result+getBgColor self+  = liftIO+      (fromJSString <$> (js_getBgColor (unHTMLTableElement self)))+ +foreign import javascript unsafe "$1[\"border\"] = $2;"+        js_setBorder :: JSRef HTMLTableElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.border Mozilla HTMLTableElement.border documentation> +setBorder ::+          (MonadIO m, ToJSString val) => HTMLTableElement -> val -> m ()+setBorder self val+  = liftIO (js_setBorder (unHTMLTableElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"border\"]" js_getBorder ::+        JSRef HTMLTableElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.border Mozilla HTMLTableElement.border documentation> +getBorder ::+          (MonadIO m, FromJSString result) => HTMLTableElement -> m result+getBorder self+  = liftIO+      (fromJSString <$> (js_getBorder (unHTMLTableElement self)))+ +foreign import javascript unsafe "$1[\"cellPadding\"] = $2;"+        js_setCellPadding :: JSRef HTMLTableElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.cellPadding Mozilla HTMLTableElement.cellPadding documentation> +setCellPadding ::+               (MonadIO m, ToJSString val) => HTMLTableElement -> val -> m ()+setCellPadding self val+  = liftIO+      (js_setCellPadding (unHTMLTableElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"cellPadding\"]"+        js_getCellPadding :: JSRef HTMLTableElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.cellPadding Mozilla HTMLTableElement.cellPadding documentation> +getCellPadding ::+               (MonadIO m, FromJSString result) => HTMLTableElement -> m result+getCellPadding self+  = liftIO+      (fromJSString <$> (js_getCellPadding (unHTMLTableElement self)))+ +foreign import javascript unsafe "$1[\"cellSpacing\"] = $2;"+        js_setCellSpacing :: JSRef HTMLTableElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.cellSpacing Mozilla HTMLTableElement.cellSpacing documentation> +setCellSpacing ::+               (MonadIO m, ToJSString val) => HTMLTableElement -> val -> m ()+setCellSpacing self val+  = liftIO+      (js_setCellSpacing (unHTMLTableElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"cellSpacing\"]"+        js_getCellSpacing :: JSRef HTMLTableElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.cellSpacing Mozilla HTMLTableElement.cellSpacing documentation> +getCellSpacing ::+               (MonadIO m, FromJSString result) => HTMLTableElement -> m result+getCellSpacing self+  = liftIO+      (fromJSString <$> (js_getCellSpacing (unHTMLTableElement self)))+ +foreign import javascript unsafe "$1[\"frame\"] = $2;" js_setFrame+        :: JSRef HTMLTableElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.frame Mozilla HTMLTableElement.frame documentation> +setFrame ::+         (MonadIO m, ToJSString val) => HTMLTableElement -> val -> m ()+setFrame self val+  = liftIO (js_setFrame (unHTMLTableElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"frame\"]" js_getFrame ::+        JSRef HTMLTableElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.frame Mozilla HTMLTableElement.frame documentation> +getFrame ::+         (MonadIO m, FromJSString result) => HTMLTableElement -> m result+getFrame self+  = liftIO (fromJSString <$> (js_getFrame (unHTMLTableElement self)))+ +foreign import javascript unsafe "$1[\"rules\"] = $2;" js_setRules+        :: JSRef HTMLTableElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.rules Mozilla HTMLTableElement.rules documentation> +setRules ::+         (MonadIO m, ToJSString val) => HTMLTableElement -> val -> m ()+setRules self val+  = liftIO (js_setRules (unHTMLTableElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"rules\"]" js_getRules ::+        JSRef HTMLTableElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.rules Mozilla HTMLTableElement.rules documentation> +getRules ::+         (MonadIO m, FromJSString result) => HTMLTableElement -> m result+getRules self+  = liftIO (fromJSString <$> (js_getRules (unHTMLTableElement self)))+ +foreign import javascript unsafe "$1[\"summary\"] = $2;"+        js_setSummary :: JSRef HTMLTableElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.summary Mozilla HTMLTableElement.summary documentation> +setSummary ::+           (MonadIO m, ToJSString val) => HTMLTableElement -> val -> m ()+setSummary self val+  = liftIO (js_setSummary (unHTMLTableElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"summary\"]" js_getSummary ::+        JSRef HTMLTableElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.summary Mozilla HTMLTableElement.summary documentation> +getSummary ::+           (MonadIO m, FromJSString result) => HTMLTableElement -> m result+getSummary self+  = liftIO+      (fromJSString <$> (js_getSummary (unHTMLTableElement self)))+ +foreign import javascript unsafe "$1[\"width\"] = $2;" js_setWidth+        :: JSRef HTMLTableElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.width Mozilla HTMLTableElement.width documentation> +setWidth ::+         (MonadIO m, ToJSString val) => HTMLTableElement -> val -> m ()+setWidth self val+  = liftIO (js_setWidth (unHTMLTableElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::+        JSRef HTMLTableElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.width Mozilla HTMLTableElement.width documentation> +getWidth ::+         (MonadIO m, FromJSString result) => HTMLTableElement -> m result+getWidth self+  = liftIO (fromJSString <$> (js_getWidth (unHTMLTableElement self)))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLTableRowElement.hs view
@@ -0,0 +1,167 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.HTMLTableRowElement+       (js_insertCell, insertCell, js_deleteCell, deleteCell,+        js_getRowIndex, getRowIndex, js_getSectionRowIndex,+        getSectionRowIndex, js_getCells, getCells, js_setAlign, setAlign,+        js_getAlign, getAlign, js_setBgColor, setBgColor, js_getBgColor,+        getBgColor, js_setCh, setCh, js_getCh, getCh, js_setChOff,+        setChOff, js_getChOff, getChOff, js_setVAlign, setVAlign,+        js_getVAlign, getVAlign, HTMLTableRowElement,+        castToHTMLTableRowElement, gTypeHTMLTableRowElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"insertCell\"]($2)"+        js_insertCell ::+        JSRef HTMLTableRowElement -> Int -> IO (JSRef HTMLElement)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableRowElement.insertCell Mozilla HTMLTableRowElement.insertCell documentation> +insertCell ::+           (MonadIO m) => HTMLTableRowElement -> Int -> m (Maybe HTMLElement)+insertCell self index+  = liftIO+      ((js_insertCell (unHTMLTableRowElement self) index) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"deleteCell\"]($2)"+        js_deleteCell :: JSRef HTMLTableRowElement -> Int -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableRowElement.deleteCell Mozilla HTMLTableRowElement.deleteCell documentation> +deleteCell :: (MonadIO m) => HTMLTableRowElement -> Int -> m ()+deleteCell self index+  = liftIO (js_deleteCell (unHTMLTableRowElement self) index)+ +foreign import javascript unsafe "$1[\"rowIndex\"]" js_getRowIndex+        :: JSRef HTMLTableRowElement -> IO Int++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableRowElement.rowIndex Mozilla HTMLTableRowElement.rowIndex documentation> +getRowIndex :: (MonadIO m) => HTMLTableRowElement -> m Int+getRowIndex self+  = liftIO (js_getRowIndex (unHTMLTableRowElement self))+ +foreign import javascript unsafe "$1[\"sectionRowIndex\"]"+        js_getSectionRowIndex :: JSRef HTMLTableRowElement -> IO Int++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableRowElement.sectionRowIndex Mozilla HTMLTableRowElement.sectionRowIndex documentation> +getSectionRowIndex :: (MonadIO m) => HTMLTableRowElement -> m Int+getSectionRowIndex self+  = liftIO (js_getSectionRowIndex (unHTMLTableRowElement self))+ +foreign import javascript unsafe "$1[\"cells\"]" js_getCells ::+        JSRef HTMLTableRowElement -> IO (JSRef HTMLCollection)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableRowElement.cells Mozilla HTMLTableRowElement.cells documentation> +getCells ::+         (MonadIO m) => HTMLTableRowElement -> m (Maybe HTMLCollection)+getCells self+  = liftIO ((js_getCells (unHTMLTableRowElement self)) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign+        :: JSRef HTMLTableRowElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableRowElement.align Mozilla HTMLTableRowElement.align documentation> +setAlign ::+         (MonadIO m, ToJSString val) => HTMLTableRowElement -> val -> m ()+setAlign self val+  = liftIO+      (js_setAlign (unHTMLTableRowElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"align\"]" js_getAlign ::+        JSRef HTMLTableRowElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableRowElement.align Mozilla HTMLTableRowElement.align documentation> +getAlign ::+         (MonadIO m, FromJSString result) => HTMLTableRowElement -> m result+getAlign self+  = liftIO+      (fromJSString <$> (js_getAlign (unHTMLTableRowElement self)))+ +foreign import javascript unsafe "$1[\"bgColor\"] = $2;"+        js_setBgColor :: JSRef HTMLTableRowElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableRowElement.bgColor Mozilla HTMLTableRowElement.bgColor documentation> +setBgColor ::+           (MonadIO m, ToJSString val) => HTMLTableRowElement -> val -> m ()+setBgColor self val+  = liftIO+      (js_setBgColor (unHTMLTableRowElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"bgColor\"]" js_getBgColor ::+        JSRef HTMLTableRowElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableRowElement.bgColor Mozilla HTMLTableRowElement.bgColor documentation> +getBgColor ::+           (MonadIO m, FromJSString result) => HTMLTableRowElement -> m result+getBgColor self+  = liftIO+      (fromJSString <$> (js_getBgColor (unHTMLTableRowElement self)))+ +foreign import javascript unsafe "$1[\"ch\"] = $2;" js_setCh ::+        JSRef HTMLTableRowElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableRowElement.ch Mozilla HTMLTableRowElement.ch documentation> +setCh ::+      (MonadIO m, ToJSString val) => HTMLTableRowElement -> val -> m ()+setCh self val+  = liftIO (js_setCh (unHTMLTableRowElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"ch\"]" js_getCh ::+        JSRef HTMLTableRowElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableRowElement.ch Mozilla HTMLTableRowElement.ch documentation> +getCh ::+      (MonadIO m, FromJSString result) => HTMLTableRowElement -> m result+getCh self+  = liftIO (fromJSString <$> (js_getCh (unHTMLTableRowElement self)))+ +foreign import javascript unsafe "$1[\"chOff\"] = $2;" js_setChOff+        :: JSRef HTMLTableRowElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableRowElement.chOff Mozilla HTMLTableRowElement.chOff documentation> +setChOff ::+         (MonadIO m, ToJSString val) => HTMLTableRowElement -> val -> m ()+setChOff self val+  = liftIO+      (js_setChOff (unHTMLTableRowElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"chOff\"]" js_getChOff ::+        JSRef HTMLTableRowElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableRowElement.chOff Mozilla HTMLTableRowElement.chOff documentation> +getChOff ::+         (MonadIO m, FromJSString result) => HTMLTableRowElement -> m result+getChOff self+  = liftIO+      (fromJSString <$> (js_getChOff (unHTMLTableRowElement self)))+ +foreign import javascript unsafe "$1[\"vAlign\"] = $2;"+        js_setVAlign :: JSRef HTMLTableRowElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableRowElement.vAlign Mozilla HTMLTableRowElement.vAlign documentation> +setVAlign ::+          (MonadIO m, ToJSString val) => HTMLTableRowElement -> val -> m ()+setVAlign self val+  = liftIO+      (js_setVAlign (unHTMLTableRowElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"vAlign\"]" js_getVAlign ::+        JSRef HTMLTableRowElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableRowElement.vAlign Mozilla HTMLTableRowElement.vAlign documentation> +getVAlign ::+          (MonadIO m, FromJSString result) => HTMLTableRowElement -> m result+getVAlign self+  = liftIO+      (fromJSString <$> (js_getVAlign (unHTMLTableRowElement self)))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLTableSectionElement.hs view
@@ -0,0 +1,142 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.HTMLTableSectionElement+       (js_insertRow, insertRow, js_deleteRow, deleteRow, js_setAlign,+        setAlign, js_getAlign, getAlign, js_setCh, setCh, js_getCh, getCh,+        js_setChOff, setChOff, js_getChOff, getChOff, js_setVAlign,+        setVAlign, js_getVAlign, getVAlign, js_getRows, getRows,+        HTMLTableSectionElement, castToHTMLTableSectionElement,+        gTypeHTMLTableSectionElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"insertRow\"]($2)"+        js_insertRow ::+        JSRef HTMLTableSectionElement -> Int -> IO (JSRef HTMLElement)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableSectionElement.insertRow Mozilla HTMLTableSectionElement.insertRow documentation> +insertRow ::+          (MonadIO m) =>+            HTMLTableSectionElement -> Int -> m (Maybe HTMLElement)+insertRow self index+  = liftIO+      ((js_insertRow (unHTMLTableSectionElement self) index) >>=+         fromJSRef)+ +foreign import javascript unsafe "$1[\"deleteRow\"]($2)"+        js_deleteRow :: JSRef HTMLTableSectionElement -> Int -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableSectionElement.deleteRow Mozilla HTMLTableSectionElement.deleteRow documentation> +deleteRow :: (MonadIO m) => HTMLTableSectionElement -> Int -> m ()+deleteRow self index+  = liftIO (js_deleteRow (unHTMLTableSectionElement self) index)+ +foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign+        :: JSRef HTMLTableSectionElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableSectionElement.align Mozilla HTMLTableSectionElement.align documentation> +setAlign ::+         (MonadIO m, ToJSString val) =>+           HTMLTableSectionElement -> val -> m ()+setAlign self val+  = liftIO+      (js_setAlign (unHTMLTableSectionElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"align\"]" js_getAlign ::+        JSRef HTMLTableSectionElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableSectionElement.align Mozilla HTMLTableSectionElement.align documentation> +getAlign ::+         (MonadIO m, FromJSString result) =>+           HTMLTableSectionElement -> m result+getAlign self+  = liftIO+      (fromJSString <$> (js_getAlign (unHTMLTableSectionElement self)))+ +foreign import javascript unsafe "$1[\"ch\"] = $2;" js_setCh ::+        JSRef HTMLTableSectionElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableSectionElement.ch Mozilla HTMLTableSectionElement.ch documentation> +setCh ::+      (MonadIO m, ToJSString val) =>+        HTMLTableSectionElement -> val -> m ()+setCh self val+  = liftIO+      (js_setCh (unHTMLTableSectionElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"ch\"]" js_getCh ::+        JSRef HTMLTableSectionElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableSectionElement.ch Mozilla HTMLTableSectionElement.ch documentation> +getCh ::+      (MonadIO m, FromJSString result) =>+        HTMLTableSectionElement -> m result+getCh self+  = liftIO+      (fromJSString <$> (js_getCh (unHTMLTableSectionElement self)))+ +foreign import javascript unsafe "$1[\"chOff\"] = $2;" js_setChOff+        :: JSRef HTMLTableSectionElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableSectionElement.chOff Mozilla HTMLTableSectionElement.chOff documentation> +setChOff ::+         (MonadIO m, ToJSString val) =>+           HTMLTableSectionElement -> val -> m ()+setChOff self val+  = liftIO+      (js_setChOff (unHTMLTableSectionElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"chOff\"]" js_getChOff ::+        JSRef HTMLTableSectionElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableSectionElement.chOff Mozilla HTMLTableSectionElement.chOff documentation> +getChOff ::+         (MonadIO m, FromJSString result) =>+           HTMLTableSectionElement -> m result+getChOff self+  = liftIO+      (fromJSString <$> (js_getChOff (unHTMLTableSectionElement self)))+ +foreign import javascript unsafe "$1[\"vAlign\"] = $2;"+        js_setVAlign :: JSRef HTMLTableSectionElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableSectionElement.vAlign Mozilla HTMLTableSectionElement.vAlign documentation> +setVAlign ::+          (MonadIO m, ToJSString val) =>+            HTMLTableSectionElement -> val -> m ()+setVAlign self val+  = liftIO+      (js_setVAlign (unHTMLTableSectionElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"vAlign\"]" js_getVAlign ::+        JSRef HTMLTableSectionElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableSectionElement.vAlign Mozilla HTMLTableSectionElement.vAlign documentation> +getVAlign ::+          (MonadIO m, FromJSString result) =>+            HTMLTableSectionElement -> m result+getVAlign self+  = liftIO+      (fromJSString <$> (js_getVAlign (unHTMLTableSectionElement self)))+ +foreign import javascript unsafe "$1[\"rows\"]" js_getRows ::+        JSRef HTMLTableSectionElement -> IO (JSRef HTMLCollection)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableSectionElement.rows Mozilla HTMLTableSectionElement.rows documentation> +getRows ::+        (MonadIO m) => HTMLTableSectionElement -> m (Maybe HTMLCollection)+getRows self+  = liftIO+      ((js_getRows (unHTMLTableSectionElement self)) >>= fromJSRef)
+ src/GHCJS/DOM/JSFFI/Generated/HTMLTemplateElement.hs view
@@ -0,0 +1,29 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.HTMLTemplateElement+       (js_getContent, getContent, HTMLTemplateElement,+        castToHTMLTemplateElement, gTypeHTMLTemplateElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"content\"]" js_getContent ::+        JSRef HTMLTemplateElement -> IO (JSRef DocumentFragment)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTemplateElement.content Mozilla HTMLTemplateElement.content documentation> +getContent ::+           (MonadIO m) => HTMLTemplateElement -> m (Maybe DocumentFragment)+getContent self+  = liftIO+      ((js_getContent (unHTMLTemplateElement self)) >>= fromJSRef)
+ src/GHCJS/DOM/JSFFI/Generated/HTMLTextAreaElement.hs view
@@ -0,0 +1,520 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.HTMLTextAreaElement+       (js_checkValidity, checkValidity, js_setCustomValidity,+        setCustomValidity, js_select, select, js_setRangeText,+        setRangeText, js_setRangeText4, setRangeText4,+        js_setSelectionRange, setSelectionRange, js_setAutofocus,+        setAutofocus, js_getAutofocus, getAutofocus, js_setCols, setCols,+        js_getCols, getCols, js_setDirName, setDirName, js_getDirName,+        getDirName, js_setDisabled, setDisabled, js_getDisabled,+        getDisabled, js_getForm, getForm, js_setMaxLength, setMaxLength,+        js_getMaxLength, getMaxLength, js_setName, setName, js_getName,+        getName, js_setPlaceholder, setPlaceholder, js_getPlaceholder,+        getPlaceholder, js_setReadOnly, setReadOnly, js_getReadOnly,+        getReadOnly, js_setRequired, setRequired, js_getRequired,+        getRequired, js_setRows, setRows, js_getRows, getRows, js_setWrap,+        setWrap, js_getWrap, getWrap, js_getType, getType,+        js_setDefaultValue, setDefaultValue, js_getDefaultValue,+        getDefaultValue, js_setValue, setValue, js_getValue, getValue,+        js_getTextLength, getTextLength, js_getWillValidate,+        getWillValidate, js_getValidity, getValidity,+        js_getValidationMessage, getValidationMessage, js_getLabels,+        getLabels, js_setSelectionStart, setSelectionStart,+        js_getSelectionStart, getSelectionStart, js_setSelectionEnd,+        setSelectionEnd, js_getSelectionEnd, getSelectionEnd,+        js_setSelectionDirection, setSelectionDirection,+        js_getSelectionDirection, getSelectionDirection, js_setAutocorrect,+        setAutocorrect, js_getAutocorrect, getAutocorrect,+        js_setAutocapitalize, setAutocapitalize, js_getAutocapitalize,+        getAutocapitalize, HTMLTextAreaElement, castToHTMLTextAreaElement,+        gTypeHTMLTextAreaElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe+        "($1[\"checkValidity\"]() ? 1 : 0)" js_checkValidity ::+        JSRef HTMLTextAreaElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.checkValidity Mozilla HTMLTextAreaElement.checkValidity documentation> +checkValidity :: (MonadIO m) => HTMLTextAreaElement -> m Bool+checkValidity self+  = liftIO (js_checkValidity (unHTMLTextAreaElement self))+ +foreign import javascript unsafe "$1[\"setCustomValidity\"]($2)"+        js_setCustomValidity ::+        JSRef HTMLTextAreaElement -> JSRef (Maybe JSString) -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.setCustomValidity Mozilla HTMLTextAreaElement.setCustomValidity documentation> +setCustomValidity ::+                  (MonadIO m, ToJSString error) =>+                    HTMLTextAreaElement -> Maybe error -> m ()+setCustomValidity self error+  = liftIO+      (js_setCustomValidity (unHTMLTextAreaElement self)+         (toMaybeJSString error))+ +foreign import javascript unsafe "$1[\"select\"]()" js_select ::+        JSRef HTMLTextAreaElement -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.select Mozilla HTMLTextAreaElement.select documentation> +select :: (MonadIO m) => HTMLTextAreaElement -> m ()+select self = liftIO (js_select (unHTMLTextAreaElement self))+ +foreign import javascript unsafe "$1[\"setRangeText\"]($2)"+        js_setRangeText :: JSRef HTMLTextAreaElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.setRangeText Mozilla HTMLTextAreaElement.setRangeText documentation> +setRangeText ::+             (MonadIO m, ToJSString replacement) =>+               HTMLTextAreaElement -> replacement -> m ()+setRangeText self replacement+  = liftIO+      (js_setRangeText (unHTMLTextAreaElement self)+         (toJSString replacement))+ +foreign import javascript unsafe+        "$1[\"setRangeText\"]($2, $3, $4,\n$5)" js_setRangeText4 ::+        JSRef HTMLTextAreaElement ->+          JSString -> Word -> Word -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.setRangeText Mozilla HTMLTextAreaElement.setRangeText documentation> +setRangeText4 ::+              (MonadIO m, ToJSString replacement, ToJSString selectionMode) =>+                HTMLTextAreaElement ->+                  replacement -> Word -> Word -> selectionMode -> m ()+setRangeText4 self replacement start end selectionMode+  = liftIO+      (js_setRangeText4 (unHTMLTextAreaElement self)+         (toJSString replacement)+         start+         end+         (toJSString selectionMode))+ +foreign import javascript unsafe+        "$1[\"setSelectionRange\"]($2, $3,\n$4)" js_setSelectionRange ::+        JSRef HTMLTextAreaElement -> Int -> Int -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.setSelectionRange Mozilla HTMLTextAreaElement.setSelectionRange documentation> +setSelectionRange ::+                  (MonadIO m, ToJSString direction) =>+                    HTMLTextAreaElement -> Int -> Int -> direction -> m ()+setSelectionRange self start end direction+  = liftIO+      (js_setSelectionRange (unHTMLTextAreaElement self) start end+         (toJSString direction))+ +foreign import javascript unsafe "$1[\"autofocus\"] = $2;"+        js_setAutofocus :: JSRef HTMLTextAreaElement -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.autofocus Mozilla HTMLTextAreaElement.autofocus documentation> +setAutofocus :: (MonadIO m) => HTMLTextAreaElement -> Bool -> m ()+setAutofocus self val+  = liftIO (js_setAutofocus (unHTMLTextAreaElement self) val)+ +foreign import javascript unsafe "($1[\"autofocus\"] ? 1 : 0)"+        js_getAutofocus :: JSRef HTMLTextAreaElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.autofocus Mozilla HTMLTextAreaElement.autofocus documentation> +getAutofocus :: (MonadIO m) => HTMLTextAreaElement -> m Bool+getAutofocus self+  = liftIO (js_getAutofocus (unHTMLTextAreaElement self))+ +foreign import javascript unsafe "$1[\"cols\"] = $2;" js_setCols ::+        JSRef HTMLTextAreaElement -> Int -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.cols Mozilla HTMLTextAreaElement.cols documentation> +setCols :: (MonadIO m) => HTMLTextAreaElement -> Int -> m ()+setCols self val+  = liftIO (js_setCols (unHTMLTextAreaElement self) val)+ +foreign import javascript unsafe "$1[\"cols\"]" js_getCols ::+        JSRef HTMLTextAreaElement -> IO Int++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.cols Mozilla HTMLTextAreaElement.cols documentation> +getCols :: (MonadIO m) => HTMLTextAreaElement -> m Int+getCols self = liftIO (js_getCols (unHTMLTextAreaElement self))+ +foreign import javascript unsafe "$1[\"dirName\"] = $2;"+        js_setDirName :: JSRef HTMLTextAreaElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.dirName Mozilla HTMLTextAreaElement.dirName documentation> +setDirName ::+           (MonadIO m, ToJSString val) => HTMLTextAreaElement -> val -> m ()+setDirName self val+  = liftIO+      (js_setDirName (unHTMLTextAreaElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"dirName\"]" js_getDirName ::+        JSRef HTMLTextAreaElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.dirName Mozilla HTMLTextAreaElement.dirName documentation> +getDirName ::+           (MonadIO m, FromJSString result) => HTMLTextAreaElement -> m result+getDirName self+  = liftIO+      (fromJSString <$> (js_getDirName (unHTMLTextAreaElement self)))+ +foreign import javascript unsafe "$1[\"disabled\"] = $2;"+        js_setDisabled :: JSRef HTMLTextAreaElement -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.disabled Mozilla HTMLTextAreaElement.disabled documentation> +setDisabled :: (MonadIO m) => HTMLTextAreaElement -> Bool -> m ()+setDisabled self val+  = liftIO (js_setDisabled (unHTMLTextAreaElement self) val)+ +foreign import javascript unsafe "($1[\"disabled\"] ? 1 : 0)"+        js_getDisabled :: JSRef HTMLTextAreaElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.disabled Mozilla HTMLTextAreaElement.disabled documentation> +getDisabled :: (MonadIO m) => HTMLTextAreaElement -> m Bool+getDisabled self+  = liftIO (js_getDisabled (unHTMLTextAreaElement self))+ +foreign import javascript unsafe "$1[\"form\"]" js_getForm ::+        JSRef HTMLTextAreaElement -> IO (JSRef HTMLFormElement)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.form Mozilla HTMLTextAreaElement.form documentation> +getForm ::+        (MonadIO m) => HTMLTextAreaElement -> m (Maybe HTMLFormElement)+getForm self+  = liftIO ((js_getForm (unHTMLTextAreaElement self)) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"maxLength\"] = $2;"+        js_setMaxLength :: JSRef HTMLTextAreaElement -> Int -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.maxLength Mozilla HTMLTextAreaElement.maxLength documentation> +setMaxLength :: (MonadIO m) => HTMLTextAreaElement -> Int -> m ()+setMaxLength self val+  = liftIO (js_setMaxLength (unHTMLTextAreaElement self) val)+ +foreign import javascript unsafe "$1[\"maxLength\"]"+        js_getMaxLength :: JSRef HTMLTextAreaElement -> IO Int++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.maxLength Mozilla HTMLTextAreaElement.maxLength documentation> +getMaxLength :: (MonadIO m) => HTMLTextAreaElement -> m Int+getMaxLength self+  = liftIO (js_getMaxLength (unHTMLTextAreaElement self))+ +foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName ::+        JSRef HTMLTextAreaElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.name Mozilla HTMLTextAreaElement.name documentation> +setName ::+        (MonadIO m, ToJSString val) => HTMLTextAreaElement -> val -> m ()+setName self val+  = liftIO (js_setName (unHTMLTextAreaElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"name\"]" js_getName ::+        JSRef HTMLTextAreaElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.name Mozilla HTMLTextAreaElement.name documentation> +getName ::+        (MonadIO m, FromJSString result) => HTMLTextAreaElement -> m result+getName self+  = liftIO+      (fromJSString <$> (js_getName (unHTMLTextAreaElement self)))+ +foreign import javascript unsafe "$1[\"placeholder\"] = $2;"+        js_setPlaceholder :: JSRef HTMLTextAreaElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.placeholder Mozilla HTMLTextAreaElement.placeholder documentation> +setPlaceholder ::+               (MonadIO m, ToJSString val) => HTMLTextAreaElement -> val -> m ()+setPlaceholder self val+  = liftIO+      (js_setPlaceholder (unHTMLTextAreaElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"placeholder\"]"+        js_getPlaceholder :: JSRef HTMLTextAreaElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.placeholder Mozilla HTMLTextAreaElement.placeholder documentation> +getPlaceholder ::+               (MonadIO m, FromJSString result) => HTMLTextAreaElement -> m result+getPlaceholder self+  = liftIO+      (fromJSString <$> (js_getPlaceholder (unHTMLTextAreaElement self)))+ +foreign import javascript unsafe "$1[\"readOnly\"] = $2;"+        js_setReadOnly :: JSRef HTMLTextAreaElement -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.readOnly Mozilla HTMLTextAreaElement.readOnly documentation> +setReadOnly :: (MonadIO m) => HTMLTextAreaElement -> Bool -> m ()+setReadOnly self val+  = liftIO (js_setReadOnly (unHTMLTextAreaElement self) val)+ +foreign import javascript unsafe "($1[\"readOnly\"] ? 1 : 0)"+        js_getReadOnly :: JSRef HTMLTextAreaElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.readOnly Mozilla HTMLTextAreaElement.readOnly documentation> +getReadOnly :: (MonadIO m) => HTMLTextAreaElement -> m Bool+getReadOnly self+  = liftIO (js_getReadOnly (unHTMLTextAreaElement self))+ +foreign import javascript unsafe "$1[\"required\"] = $2;"+        js_setRequired :: JSRef HTMLTextAreaElement -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.required Mozilla HTMLTextAreaElement.required documentation> +setRequired :: (MonadIO m) => HTMLTextAreaElement -> Bool -> m ()+setRequired self val+  = liftIO (js_setRequired (unHTMLTextAreaElement self) val)+ +foreign import javascript unsafe "($1[\"required\"] ? 1 : 0)"+        js_getRequired :: JSRef HTMLTextAreaElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.required Mozilla HTMLTextAreaElement.required documentation> +getRequired :: (MonadIO m) => HTMLTextAreaElement -> m Bool+getRequired self+  = liftIO (js_getRequired (unHTMLTextAreaElement self))+ +foreign import javascript unsafe "$1[\"rows\"] = $2;" js_setRows ::+        JSRef HTMLTextAreaElement -> Int -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.rows Mozilla HTMLTextAreaElement.rows documentation> +setRows :: (MonadIO m) => HTMLTextAreaElement -> Int -> m ()+setRows self val+  = liftIO (js_setRows (unHTMLTextAreaElement self) val)+ +foreign import javascript unsafe "$1[\"rows\"]" js_getRows ::+        JSRef HTMLTextAreaElement -> IO Int++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.rows Mozilla HTMLTextAreaElement.rows documentation> +getRows :: (MonadIO m) => HTMLTextAreaElement -> m Int+getRows self = liftIO (js_getRows (unHTMLTextAreaElement self))+ +foreign import javascript unsafe "$1[\"wrap\"] = $2;" js_setWrap ::+        JSRef HTMLTextAreaElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.wrap Mozilla HTMLTextAreaElement.wrap documentation> +setWrap ::+        (MonadIO m, ToJSString val) => HTMLTextAreaElement -> val -> m ()+setWrap self val+  = liftIO (js_setWrap (unHTMLTextAreaElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"wrap\"]" js_getWrap ::+        JSRef HTMLTextAreaElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.wrap Mozilla HTMLTextAreaElement.wrap documentation> +getWrap ::+        (MonadIO m, FromJSString result) => HTMLTextAreaElement -> m result+getWrap self+  = liftIO+      (fromJSString <$> (js_getWrap (unHTMLTextAreaElement self)))+ +foreign import javascript unsafe "$1[\"type\"]" js_getType ::+        JSRef HTMLTextAreaElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.type Mozilla HTMLTextAreaElement.type documentation> +getType ::+        (MonadIO m, FromJSString result) => HTMLTextAreaElement -> m result+getType self+  = liftIO+      (fromJSString <$> (js_getType (unHTMLTextAreaElement self)))+ +foreign import javascript unsafe "$1[\"defaultValue\"] = $2;"+        js_setDefaultValue ::+        JSRef HTMLTextAreaElement -> JSRef (Maybe JSString) -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.defaultValue Mozilla HTMLTextAreaElement.defaultValue documentation> +setDefaultValue ::+                (MonadIO m, ToJSString val) =>+                  HTMLTextAreaElement -> Maybe val -> m ()+setDefaultValue self val+  = liftIO+      (js_setDefaultValue (unHTMLTextAreaElement self)+         (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"defaultValue\"]"+        js_getDefaultValue ::+        JSRef HTMLTextAreaElement -> IO (JSRef (Maybe JSString))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.defaultValue Mozilla HTMLTextAreaElement.defaultValue documentation> +getDefaultValue ::+                (MonadIO m, FromJSString result) =>+                  HTMLTextAreaElement -> m (Maybe result)+getDefaultValue self+  = liftIO+      (fromMaybeJSString <$>+         (js_getDefaultValue (unHTMLTextAreaElement self)))+ +foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue+        :: JSRef HTMLTextAreaElement -> JSRef (Maybe JSString) -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.value Mozilla HTMLTextAreaElement.value documentation> +setValue ::+         (MonadIO m, ToJSString val) =>+           HTMLTextAreaElement -> Maybe val -> m ()+setValue self val+  = liftIO+      (js_setValue (unHTMLTextAreaElement self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"value\"]" js_getValue ::+        JSRef HTMLTextAreaElement -> IO (JSRef (Maybe JSString))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.value Mozilla HTMLTextAreaElement.value documentation> +getValue ::+         (MonadIO m, FromJSString result) =>+           HTMLTextAreaElement -> m (Maybe result)+getValue self+  = liftIO+      (fromMaybeJSString <$> (js_getValue (unHTMLTextAreaElement self)))+ +foreign import javascript unsafe "$1[\"textLength\"]"+        js_getTextLength :: JSRef HTMLTextAreaElement -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.textLength Mozilla HTMLTextAreaElement.textLength documentation> +getTextLength :: (MonadIO m) => HTMLTextAreaElement -> m Word+getTextLength self+  = liftIO (js_getTextLength (unHTMLTextAreaElement self))+ +foreign import javascript unsafe "($1[\"willValidate\"] ? 1 : 0)"+        js_getWillValidate :: JSRef HTMLTextAreaElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.willValidate Mozilla HTMLTextAreaElement.willValidate documentation> +getWillValidate :: (MonadIO m) => HTMLTextAreaElement -> m Bool+getWillValidate self+  = liftIO (js_getWillValidate (unHTMLTextAreaElement self))+ +foreign import javascript unsafe "$1[\"validity\"]" js_getValidity+        :: JSRef HTMLTextAreaElement -> IO (JSRef ValidityState)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.validity Mozilla HTMLTextAreaElement.validity documentation> +getValidity ::+            (MonadIO m) => HTMLTextAreaElement -> m (Maybe ValidityState)+getValidity self+  = liftIO+      ((js_getValidity (unHTMLTextAreaElement self)) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"validationMessage\"]"+        js_getValidationMessage :: JSRef HTMLTextAreaElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.validationMessage Mozilla HTMLTextAreaElement.validationMessage documentation> +getValidationMessage ::+                     (MonadIO m, FromJSString result) => HTMLTextAreaElement -> m result+getValidationMessage self+  = liftIO+      (fromJSString <$>+         (js_getValidationMessage (unHTMLTextAreaElement self)))+ +foreign import javascript unsafe "$1[\"labels\"]" js_getLabels ::+        JSRef HTMLTextAreaElement -> IO (JSRef NodeList)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.labels Mozilla HTMLTextAreaElement.labels documentation> +getLabels ::+          (MonadIO m) => HTMLTextAreaElement -> m (Maybe NodeList)+getLabels self+  = liftIO+      ((js_getLabels (unHTMLTextAreaElement self)) >>= fromJSRef)+ +foreign import javascript unsafe "$1[\"selectionStart\"] = $2;"+        js_setSelectionStart :: JSRef HTMLTextAreaElement -> Int -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.selectionStart Mozilla HTMLTextAreaElement.selectionStart documentation> +setSelectionStart ::+                  (MonadIO m) => HTMLTextAreaElement -> Int -> m ()+setSelectionStart self val+  = liftIO (js_setSelectionStart (unHTMLTextAreaElement self) val)+ +foreign import javascript unsafe "$1[\"selectionStart\"]"+        js_getSelectionStart :: JSRef HTMLTextAreaElement -> IO Int++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.selectionStart Mozilla HTMLTextAreaElement.selectionStart documentation> +getSelectionStart :: (MonadIO m) => HTMLTextAreaElement -> m Int+getSelectionStart self+  = liftIO (js_getSelectionStart (unHTMLTextAreaElement self))+ +foreign import javascript unsafe "$1[\"selectionEnd\"] = $2;"+        js_setSelectionEnd :: JSRef HTMLTextAreaElement -> Int -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.selectionEnd Mozilla HTMLTextAreaElement.selectionEnd documentation> +setSelectionEnd ::+                (MonadIO m) => HTMLTextAreaElement -> Int -> m ()+setSelectionEnd self val+  = liftIO (js_setSelectionEnd (unHTMLTextAreaElement self) val)+ +foreign import javascript unsafe "$1[\"selectionEnd\"]"+        js_getSelectionEnd :: JSRef HTMLTextAreaElement -> IO Int++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.selectionEnd Mozilla HTMLTextAreaElement.selectionEnd documentation> +getSelectionEnd :: (MonadIO m) => HTMLTextAreaElement -> m Int+getSelectionEnd self+  = liftIO (js_getSelectionEnd (unHTMLTextAreaElement self))+ +foreign import javascript unsafe "$1[\"selectionDirection\"] = $2;"+        js_setSelectionDirection ::+        JSRef HTMLTextAreaElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.selectionDirection Mozilla HTMLTextAreaElement.selectionDirection documentation> +setSelectionDirection ::+                      (MonadIO m, ToJSString val) => HTMLTextAreaElement -> val -> m ()+setSelectionDirection self val+  = liftIO+      (js_setSelectionDirection (unHTMLTextAreaElement self)+         (toJSString val))+ +foreign import javascript unsafe "$1[\"selectionDirection\"]"+        js_getSelectionDirection ::+        JSRef HTMLTextAreaElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.selectionDirection Mozilla HTMLTextAreaElement.selectionDirection documentation> +getSelectionDirection ::+                      (MonadIO m, FromJSString result) => HTMLTextAreaElement -> m result+getSelectionDirection self+  = liftIO+      (fromJSString <$>+         (js_getSelectionDirection (unHTMLTextAreaElement self)))+ +foreign import javascript unsafe "$1[\"autocorrect\"] = $2;"+        js_setAutocorrect :: JSRef HTMLTextAreaElement -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.autocorrect Mozilla HTMLTextAreaElement.autocorrect documentation> +setAutocorrect ::+               (MonadIO m) => HTMLTextAreaElement -> Bool -> m ()+setAutocorrect self val+  = liftIO (js_setAutocorrect (unHTMLTextAreaElement self) val)+ +foreign import javascript unsafe "($1[\"autocorrect\"] ? 1 : 0)"+        js_getAutocorrect :: JSRef HTMLTextAreaElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.autocorrect Mozilla HTMLTextAreaElement.autocorrect documentation> +getAutocorrect :: (MonadIO m) => HTMLTextAreaElement -> m Bool+getAutocorrect self+  = liftIO (js_getAutocorrect (unHTMLTextAreaElement self))+ +foreign import javascript unsafe "$1[\"autocapitalize\"] = $2;"+        js_setAutocapitalize ::+        JSRef HTMLTextAreaElement -> JSRef (Maybe JSString) -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.autocapitalize Mozilla HTMLTextAreaElement.autocapitalize documentation> +setAutocapitalize ::+                  (MonadIO m, ToJSString val) =>+                    HTMLTextAreaElement -> Maybe val -> m ()+setAutocapitalize self val+  = liftIO+      (js_setAutocapitalize (unHTMLTextAreaElement self)+         (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"autocapitalize\"]"+        js_getAutocapitalize ::+        JSRef HTMLTextAreaElement -> IO (JSRef (Maybe JSString))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.autocapitalize Mozilla HTMLTextAreaElement.autocapitalize documentation> +getAutocapitalize ::+                  (MonadIO m, FromJSString result) =>+                    HTMLTextAreaElement -> m (Maybe result)+getAutocapitalize self+  = liftIO+      (fromMaybeJSString <$>+         (js_getAutocapitalize (unHTMLTextAreaElement self)))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLTitleElement.hs view
@@ -0,0 +1,41 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.HTMLTitleElement+       (js_setText, setText, js_getText, getText, HTMLTitleElement,+        castToHTMLTitleElement, gTypeHTMLTitleElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+ +foreign import javascript unsafe "$1[\"text\"] = $2;" js_setText ::+        JSRef HTMLTitleElement -> JSRef (Maybe JSString) -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTitleElement.text Mozilla HTMLTitleElement.text documentation> +setText ::+        (MonadIO m, ToJSString val) =>+          HTMLTitleElement -> Maybe val -> m ()+setText self val+  = liftIO+      (js_setText (unHTMLTitleElement self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"text\"]" js_getText ::+        JSRef HTMLTitleElement -> IO (JSRef (Maybe JSString))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTitleElement.text Mozilla HTMLTitleElement.text documentation> +getText ::+        (MonadIO m, FromJSString result) =>+          HTMLTitleElement -> m (Maybe result)+getText self+  = liftIO+      (fromMaybeJSString <$> (js_getText (unHTMLTitleElement self)))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLTrackElement.hs view
@@ -0,0 +1,132 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.HTMLTrackElement+       (pattern NONE, pattern LOADING, pattern LOADED, pattern ERROR,+        js_setKind, setKind, js_getKind, getKind, js_setSrc, setSrc,+        js_getSrc, getSrc, js_setSrclang, setSrclang, js_getSrclang,+        getSrclang, js_setLabel, setLabel, js_getLabel, getLabel,+        js_setDefault, setDefault, js_getDefault, getDefault,+        js_getReadyState, getReadyState, js_getTrack, getTrack,+        HTMLTrackElement, castToHTMLTrackElement, gTypeHTMLTrackElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.Enums+pattern NONE = 0+pattern LOADING = 1+pattern LOADED = 2+pattern ERROR = 3+ +foreign import javascript unsafe "$1[\"kind\"] = $2;" js_setKind ::+        JSRef HTMLTrackElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTrackElement.kind Mozilla HTMLTrackElement.kind documentation> +setKind ::+        (MonadIO m, ToJSString val) => HTMLTrackElement -> val -> m ()+setKind self val+  = liftIO (js_setKind (unHTMLTrackElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"kind\"]" js_getKind ::+        JSRef HTMLTrackElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTrackElement.kind Mozilla HTMLTrackElement.kind documentation> +getKind ::+        (MonadIO m, FromJSString result) => HTMLTrackElement -> m result+getKind self+  = liftIO (fromJSString <$> (js_getKind (unHTMLTrackElement self)))+ +foreign import javascript unsafe "$1[\"src\"] = $2;" js_setSrc ::+        JSRef HTMLTrackElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTrackElement.src Mozilla HTMLTrackElement.src documentation> +setSrc ::+       (MonadIO m, ToJSString val) => HTMLTrackElement -> val -> m ()+setSrc self val+  = liftIO (js_setSrc (unHTMLTrackElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"src\"]" js_getSrc ::+        JSRef HTMLTrackElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTrackElement.src Mozilla HTMLTrackElement.src documentation> +getSrc ::+       (MonadIO m, FromJSString result) => HTMLTrackElement -> m result+getSrc self+  = liftIO (fromJSString <$> (js_getSrc (unHTMLTrackElement self)))+ +foreign import javascript unsafe "$1[\"srclang\"] = $2;"+        js_setSrclang :: JSRef HTMLTrackElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTrackElement.srclang Mozilla HTMLTrackElement.srclang documentation> +setSrclang ::+           (MonadIO m, ToJSString val) => HTMLTrackElement -> val -> m ()+setSrclang self val+  = liftIO (js_setSrclang (unHTMLTrackElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"srclang\"]" js_getSrclang ::+        JSRef HTMLTrackElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTrackElement.srclang Mozilla HTMLTrackElement.srclang documentation> +getSrclang ::+           (MonadIO m, FromJSString result) => HTMLTrackElement -> m result+getSrclang self+  = liftIO+      (fromJSString <$> (js_getSrclang (unHTMLTrackElement self)))+ +foreign import javascript unsafe "$1[\"label\"] = $2;" js_setLabel+        :: JSRef HTMLTrackElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTrackElement.label Mozilla HTMLTrackElement.label documentation> +setLabel ::+         (MonadIO m, ToJSString val) => HTMLTrackElement -> val -> m ()+setLabel self val+  = liftIO (js_setLabel (unHTMLTrackElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"label\"]" js_getLabel ::+        JSRef HTMLTrackElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTrackElement.label Mozilla HTMLTrackElement.label documentation> +getLabel ::+         (MonadIO m, FromJSString result) => HTMLTrackElement -> m result+getLabel self+  = liftIO (fromJSString <$> (js_getLabel (unHTMLTrackElement self)))+ +foreign import javascript unsafe "$1[\"default\"] = $2;"+        js_setDefault :: JSRef HTMLTrackElement -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTrackElement.default Mozilla HTMLTrackElement.default documentation> +setDefault :: (MonadIO m) => HTMLTrackElement -> Bool -> m ()+setDefault self val+  = liftIO (js_setDefault (unHTMLTrackElement self) val)+ +foreign import javascript unsafe "($1[\"default\"] ? 1 : 0)"+        js_getDefault :: JSRef HTMLTrackElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTrackElement.default Mozilla HTMLTrackElement.default documentation> +getDefault :: (MonadIO m) => HTMLTrackElement -> m Bool+getDefault self = liftIO (js_getDefault (unHTMLTrackElement self))+ +foreign import javascript unsafe "$1[\"readyState\"]"+        js_getReadyState :: JSRef HTMLTrackElement -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTrackElement.readyState Mozilla HTMLTrackElement.readyState documentation> +getReadyState :: (MonadIO m) => HTMLTrackElement -> m Word+getReadyState self+  = liftIO (js_getReadyState (unHTMLTrackElement self))+ +foreign import javascript unsafe "$1[\"track\"]" js_getTrack ::+        JSRef HTMLTrackElement -> IO (JSRef TextTrack)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTrackElement.track Mozilla HTMLTrackElement.track documentation> +getTrack :: (MonadIO m) => HTMLTrackElement -> m (Maybe TextTrack)+getTrack self+  = liftIO ((js_getTrack (unHTMLTrackElement self)) >>= fromJSRef)
+ src/GHCJS/DOM/JSFFI/Generated/HTMLUListElement.hs view

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/NavigatorUserMediaError.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/PositionError.hs view

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/RTCPeerConnectionError.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/SQLError.hs view

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

src/GHCJS/DOM/KeyboardEvent.hs view

file too large to diff

src/GHCJS/DOM/Location.hs view

file too large to diff

+ src/GHCJS/DOM/MallocStatistics.hs view

file too large to diff

+ src/GHCJS/DOM/MediaController.hs view

file too large to diff

+ src/GHCJS/DOM/MediaControlsHost.hs view

file too large to diff

+ src/GHCJS/DOM/MediaElementAudioSourceNode.hs view

file too large to diff

src/GHCJS/DOM/MediaError.hs view

file too large to diff

+ src/GHCJS/DOM/MediaKeyError.hs view

file too large to diff

+ src/GHCJS/DOM/MediaKeyEvent.hs view

file too large to diff

+ src/GHCJS/DOM/MediaKeyMessageEvent.hs view

file too large to diff

+ src/GHCJS/DOM/MediaKeyNeededEvent.hs view

file too large to diff

+ src/GHCJS/DOM/MediaKeySession.hs view

file too large to diff

+ src/GHCJS/DOM/MediaKeys.hs view

file too large to diff

src/GHCJS/DOM/MediaList.hs view

file too large to diff

src/GHCJS/DOM/MediaQueryList.hs view

file too large to diff

+ src/GHCJS/DOM/MediaQueryListListener.hs view

file too large to diff

+ src/GHCJS/DOM/MediaSource.hs view

file too large to diff

+ src/GHCJS/DOM/MediaSourceStates.hs view

file too large to diff

+ src/GHCJS/DOM/MediaStream.hs view

file too large to diff

+ src/GHCJS/DOM/MediaStreamAudioDestinationNode.hs view

file too large to diff

+ src/GHCJS/DOM/MediaStreamAudioSourceNode.hs view

file too large to diff

+ src/GHCJS/DOM/MediaStreamEvent.hs view

file too large to diff

+ src/GHCJS/DOM/MediaStreamTrack.hs view

file too large to diff

+ src/GHCJS/DOM/MediaStreamTrackEvent.hs view

file too large to diff

+ src/GHCJS/DOM/MediaStreamTrackSourcesCallback.hs view

file too large to diff

+ src/GHCJS/DOM/MediaTrackConstraints.hs view

file too large to diff

+ src/GHCJS/DOM/MemoryInfo.hs view

file too large to diff

+ src/GHCJS/DOM/MessageChannel.hs view

file too large to diff

+ src/GHCJS/DOM/MessageEvent.hs view

file too large to diff

+ src/GHCJS/DOM/MessagePort.hs view

file too large to diff

+ src/GHCJS/DOM/MimeType.hs view

file too large to diff

+ src/GHCJS/DOM/MimeTypeArray.hs view

file too large to diff

src/GHCJS/DOM/MouseEvent.hs view

file too large to diff

+ src/GHCJS/DOM/MutationEvent.hs view

file too large to diff

+ src/GHCJS/DOM/MutationObserver.hs view

file too large to diff

+ src/GHCJS/DOM/MutationRecord.hs view

file too large to diff

src/GHCJS/DOM/NamedNodeMap.hs view

file too large to diff

src/GHCJS/DOM/Navigator.hs view

file too large to diff

+ src/GHCJS/DOM/NavigatorUserMediaError.hs view

file too large to diff

+ src/GHCJS/DOM/NavigatorUserMediaErrorCallback.hs view

file too large to diff

+ src/GHCJS/DOM/NavigatorUserMediaSuccessCallback.hs view

file too large to diff

src/GHCJS/DOM/Node.hs view

file too large to diff

src/GHCJS/DOM/NodeFilter.hs view

file too large to diff

src/GHCJS/DOM/NodeIterator.hs view

file too large to diff

src/GHCJS/DOM/NodeList.hs view

file too large to diff

+ src/GHCJS/DOM/Notification.hs view

file too large to diff

+ src/GHCJS/DOM/NotificationCenter.hs view

file too large to diff

+ src/GHCJS/DOM/NotificationPermissionCallback.hs view

file too large to diff

+ src/GHCJS/DOM/OESStandardDerivatives.hs view

file too large to diff

+ src/GHCJS/DOM/OESTextureHalfFloat.hs view

file too large to diff

+ src/GHCJS/DOM/OESVertexArrayObject.hs view

file too large to diff

+ src/GHCJS/DOM/OfflineAudioCompletionEvent.hs view

file too large to diff

+ src/GHCJS/DOM/OfflineAudioContext.hs view

file too large to diff

+ src/GHCJS/DOM/OscillatorNode.hs view

file too large to diff

+ src/GHCJS/DOM/OverflowEvent.hs view

file too large to diff

+ src/GHCJS/DOM/PageTransitionEvent.hs view

file too large to diff

+ src/GHCJS/DOM/PannerNode.hs view

file too large to diff

+ src/GHCJS/DOM/Path2D.hs view

file too large to diff

+ src/GHCJS/DOM/Performance.hs view

file too large to diff

+ src/GHCJS/DOM/PerformanceEntry.hs view

file too large to diff

+ src/GHCJS/DOM/PerformanceEntryList.hs view

file too large to diff

+ src/GHCJS/DOM/PerformanceNavigation.hs view

file too large to diff

+ src/GHCJS/DOM/PerformanceResourceTiming.hs view

file too large to diff

+ src/GHCJS/DOM/PerformanceTiming.hs view

file too large to diff

+ src/GHCJS/DOM/Plugin.hs view

file too large to diff

+ src/GHCJS/DOM/PluginArray.hs view

file too large to diff

+ src/GHCJS/DOM/PopStateEvent.hs view

file too large to diff

+ src/GHCJS/DOM/PositionCallback.hs view

file too large to diff

+ src/GHCJS/DOM/PositionError.hs view

file too large to diff

+ src/GHCJS/DOM/PositionErrorCallback.hs view

file too large to diff

src/GHCJS/DOM/ProcessingInstruction.hs view

file too large to diff

+ src/GHCJS/DOM/ProgressEvent.hs view

file too large to diff

+ src/GHCJS/DOM/QuickTimePluginReplacement.hs view

file too large to diff

+ src/GHCJS/DOM/RGBColor.hs view

file too large to diff

+ src/GHCJS/DOM/RTCConfiguration.hs view

file too large to diff

+ src/GHCJS/DOM/RTCDTMFSender.hs view

file too large to diff

+ src/GHCJS/DOM/RTCDTMFToneChangeEvent.hs view

file too large to diff

+ src/GHCJS/DOM/RTCDataChannel.hs view

file too large to diff

+ src/GHCJS/DOM/RTCDataChannelEvent.hs view

file too large to diff

+ src/GHCJS/DOM/RTCIceCandidate.hs view

file too large to diff

+ src/GHCJS/DOM/RTCIceCandidateEvent.hs view

file too large to diff

+ src/GHCJS/DOM/RTCIceServer.hs view

file too large to diff

+ src/GHCJS/DOM/RTCPeerConnection.hs view

file too large to diff

+ src/GHCJS/DOM/RTCPeerConnectionErrorCallback.hs view

file too large to diff

+ src/GHCJS/DOM/RTCSessionDescription.hs view

file too large to diff

+ src/GHCJS/DOM/RTCSessionDescriptionCallback.hs view

file too large to diff

+ src/GHCJS/DOM/RTCStatsCallback.hs view

file too large to diff

+ src/GHCJS/DOM/RTCStatsReport.hs view

file too large to diff

+ src/GHCJS/DOM/RTCStatsResponse.hs view

file too large to diff

+ src/GHCJS/DOM/RadioNodeList.hs view

file too large to diff

src/GHCJS/DOM/Range.hs view

file too large to diff

− src/GHCJS/DOM/Ranges.hs

file too large to diff

+ src/GHCJS/DOM/ReadableStream.hs view

file too large to diff

+ src/GHCJS/DOM/Rect.hs view

file too large to diff

+ src/GHCJS/DOM/RequestAnimationFrameCallback.hs view

file too large to diff

+ src/GHCJS/DOM/SQLError.hs view

file too large to diff

+ src/GHCJS/DOM/SQLResultSet.hs view

file too large to diff

+ src/GHCJS/DOM/SQLResultSetRowList.hs view

file too large to diff

+ src/GHCJS/DOM/SQLStatementCallback.hs view

file too large to diff

+ src/GHCJS/DOM/SQLStatementErrorCallback.hs view

file too large to diff

+ src/GHCJS/DOM/SQLTransaction.hs view

file too large to diff

+ src/GHCJS/DOM/SQLTransactionCallback.hs view

file too large to diff

+ src/GHCJS/DOM/SQLTransactionErrorCallback.hs view

file too large to diff

+ src/GHCJS/DOM/SVGAElement.hs view

file too large to diff

+ src/GHCJS/DOM/SVGAltGlyphElement.hs view

file too large to diff

+ src/GHCJS/DOM/SVGAngle.hs view

file too large to diff

+ src/GHCJS/DOM/SVGAnimatedAngle.hs view

file too large to diff

+ src/GHCJS/DOM/SVGAnimatedBoolean.hs view

file too large to diff

+ src/GHCJS/DOM/SVGAnimatedEnumeration.hs view

file too large to diff

+ src/GHCJS/DOM/SVGAnimatedInteger.hs view

file too large to diff

+ src/GHCJS/DOM/SVGAnimatedLength.hs view

file too large to diff

+ src/GHCJS/DOM/SVGAnimatedLengthList.hs view

file too large to diff

+ src/GHCJS/DOM/SVGAnimatedNumber.hs view

file too large to diff

+ src/GHCJS/DOM/SVGAnimatedNumberList.hs view

file too large to diff

+ src/GHCJS/DOM/SVGAnimatedPreserveAspectRatio.hs view

file too large to diff

+ src/GHCJS/DOM/SVGAnimatedRect.hs view

file too large to diff

+ src/GHCJS/DOM/SVGAnimatedString.hs view

file too large to diff

+ src/GHCJS/DOM/SVGAnimatedTransformList.hs view

file too large to diff

+ src/GHCJS/DOM/SVGAnimationElement.hs view

file too large to diff

+ src/GHCJS/DOM/SVGCircleElement.hs view

file too large to diff

+ src/GHCJS/DOM/SVGClipPathElement.hs view

file too large to diff

+ src/GHCJS/DOM/SVGColor.hs view

file too large to diff

+ src/GHCJS/DOM/SVGComponentTransferFunctionElement.hs view

file too large to diff

+ src/GHCJS/DOM/SVGCursorElement.hs view

file too large to diff

+ src/GHCJS/DOM/SVGDocument.hs view

file too large to diff

+ src/GHCJS/DOM/SVGElement.hs view

file too large to diff

+ src/GHCJS/DOM/SVGEllipseElement.hs view

file too large to diff

+ src/GHCJS/DOM/SVGExternalResourcesRequired.hs view

file too large to diff

+ src/GHCJS/DOM/SVGFEBlendElement.hs view

file too large to diff

+ src/GHCJS/DOM/SVGFEColorMatrixElement.hs view

file too large to diff

+ src/GHCJS/DOM/SVGFEComponentTransferElement.hs view

file too large to diff

+ src/GHCJS/DOM/SVGFECompositeElement.hs view

file too large to diff

+ src/GHCJS/DOM/SVGFEConvolveMatrixElement.hs view

file too large to diff

+ src/GHCJS/DOM/SVGFEDiffuseLightingElement.hs view

file too large to diff

+ src/GHCJS/DOM/SVGFEDisplacementMapElement.hs view

file too large to diff

+ src/GHCJS/DOM/SVGFEDistantLightElement.hs view

file too large to diff

+ src/GHCJS/DOM/SVGFEDropShadowElement.hs view

file too large to diff

+ src/GHCJS/DOM/SVGFEGaussianBlurElement.hs view

file too large to diff

+ src/GHCJS/DOM/SVGFEImageElement.hs view

file too large to diff

+ src/GHCJS/DOM/SVGFEMergeNodeElement.hs view

file too large to diff

+ src/GHCJS/DOM/SVGFEMorphologyElement.hs view

file too large to diff

+ src/GHCJS/DOM/SVGFEOffsetElement.hs view

file too large to diff

+ src/GHCJS/DOM/SVGFEPointLightElement.hs view

file too large to diff

+ src/GHCJS/DOM/SVGFESpecularLightingElement.hs view

file too large to diff

+ src/GHCJS/DOM/SVGFESpotLightElement.hs view

file too large to diff

+ src/GHCJS/DOM/SVGFETileElement.hs view

file too large to diff

+ src/GHCJS/DOM/SVGFETurbulenceElement.hs view

file too large to diff

+ src/GHCJS/DOM/SVGFilterElement.hs view

file too large to diff

+ src/GHCJS/DOM/SVGFilterPrimitiveStandardAttributes.hs view

file too large to diff

+ src/GHCJS/DOM/SVGFitToViewBox.hs view

file too large to diff

+ src/GHCJS/DOM/SVGForeignObjectElement.hs view

file too large to diff

+ src/GHCJS/DOM/SVGGlyphRefElement.hs view

file too large to diff

+ src/GHCJS/DOM/SVGGradientElement.hs view

file too large to diff

+ src/GHCJS/DOM/SVGGraphicsElement.hs view

file too large to diff

+ src/GHCJS/DOM/SVGImageElement.hs view

file too large to diff

+ src/GHCJS/DOM/SVGLength.hs view

file too large to diff

+ src/GHCJS/DOM/SVGLengthList.hs view

file too large to diff

+ src/GHCJS/DOM/SVGLineElement.hs view

file too large to diff

+ src/GHCJS/DOM/SVGLinearGradientElement.hs view

file too large to diff

+ src/GHCJS/DOM/SVGMarkerElement.hs view

file too large to diff

+ src/GHCJS/DOM/SVGMaskElement.hs view

file too large to diff

+ src/GHCJS/DOM/SVGMatrix.hs view

file too large to diff

+ src/GHCJS/DOM/SVGNumber.hs view

file too large to diff

+ src/GHCJS/DOM/SVGNumberList.hs view

file too large to diff

+ src/GHCJS/DOM/SVGPaint.hs view

file too large to diff

+ src/GHCJS/DOM/SVGPathElement.hs view

file too large to diff

+ src/GHCJS/DOM/SVGPathSeg.hs view

file too large to diff

+ src/GHCJS/DOM/SVGPathSegArcAbs.hs view

file too large to diff

+ src/GHCJS/DOM/SVGPathSegArcRel.hs view

file too large to diff

+ src/GHCJS/DOM/SVGPathSegCurvetoCubicAbs.hs view

file too large to diff

+ src/GHCJS/DOM/SVGPathSegCurvetoCubicRel.hs view

file too large to diff

+ src/GHCJS/DOM/SVGPathSegCurvetoCubicSmoothAbs.hs view

file too large to diff

+ src/GHCJS/DOM/SVGPathSegCurvetoCubicSmoothRel.hs view

file too large to diff

+ src/GHCJS/DOM/SVGPathSegCurvetoQuadraticAbs.hs view

file too large to diff

+ src/GHCJS/DOM/SVGPathSegCurvetoQuadraticRel.hs view

file too large to diff

+ src/GHCJS/DOM/SVGPathSegCurvetoQuadraticSmoothAbs.hs view

file too large to diff

+ src/GHCJS/DOM/SVGPathSegCurvetoQuadraticSmoothRel.hs view

file too large to diff

+ src/GHCJS/DOM/SVGPathSegLinetoAbs.hs view

file too large to diff

+ src/GHCJS/DOM/SVGPathSegLinetoHorizontalAbs.hs view

file too large to diff

+ src/GHCJS/DOM/SVGPathSegLinetoHorizontalRel.hs view

file too large to diff

+ src/GHCJS/DOM/SVGPathSegLinetoRel.hs view

file too large to diff

+ src/GHCJS/DOM/SVGPathSegLinetoVerticalAbs.hs view

file too large to diff

+ src/GHCJS/DOM/SVGPathSegLinetoVerticalRel.hs view

file too large to diff

+ src/GHCJS/DOM/SVGPathSegList.hs view

file too large to diff

+ src/GHCJS/DOM/SVGPathSegMovetoAbs.hs view

file too large to diff

+ src/GHCJS/DOM/SVGPathSegMovetoRel.hs view

file too large to diff

+ src/GHCJS/DOM/SVGPatternElement.hs view

file too large to diff

+ src/GHCJS/DOM/SVGPoint.hs view

file too large to diff

+ src/GHCJS/DOM/SVGPointList.hs view

file too large to diff

+ src/GHCJS/DOM/SVGPolygonElement.hs view

file too large to diff

+ src/GHCJS/DOM/SVGPolylineElement.hs view

file too large to diff

+ src/GHCJS/DOM/SVGPreserveAspectRatio.hs view

file too large to diff

+ src/GHCJS/DOM/SVGRadialGradientElement.hs view

file too large to diff

+ src/GHCJS/DOM/SVGRect.hs view

file too large to diff

+ src/GHCJS/DOM/SVGRectElement.hs view

file too large to diff

+ src/GHCJS/DOM/SVGRenderingIntent.hs view

file too large to diff

+ src/GHCJS/DOM/SVGSVGElement.hs view

file too large to diff

+ src/GHCJS/DOM/SVGScriptElement.hs view

file too large to diff

+ src/GHCJS/DOM/SVGStopElement.hs view

file too large to diff

+ src/GHCJS/DOM/SVGStringList.hs view

file too large to diff

+ src/GHCJS/DOM/SVGStyleElement.hs view

file too large to diff

+ src/GHCJS/DOM/SVGTests.hs view

file too large to diff

+ src/GHCJS/DOM/SVGTextContentElement.hs view

file too large to diff

+ src/GHCJS/DOM/SVGTextPathElement.hs view

file too large to diff

+ src/GHCJS/DOM/SVGTextPositioningElement.hs view

file too large to diff

+ src/GHCJS/DOM/SVGTransform.hs view

file too large to diff

+ src/GHCJS/DOM/SVGTransformList.hs view

file too large to diff

+ src/GHCJS/DOM/SVGURIReference.hs view

file too large to diff

+ src/GHCJS/DOM/SVGUnitTypes.hs view

file too large to diff

+ src/GHCJS/DOM/SVGUseElement.hs view

file too large to diff

+ src/GHCJS/DOM/SVGViewElement.hs view

file too large to diff

+ src/GHCJS/DOM/SVGViewSpec.hs view

file too large to diff

+ src/GHCJS/DOM/SVGZoomAndPan.hs view

file too large to diff

+ src/GHCJS/DOM/SVGZoomEvent.hs view

file too large to diff

src/GHCJS/DOM/Screen.hs view

file too large to diff

+ src/GHCJS/DOM/ScriptProcessorNode.hs view

file too large to diff

+ src/GHCJS/DOM/ScriptProfile.hs view

file too large to diff

+ src/GHCJS/DOM/ScriptProfileNode.hs view

file too large to diff

+ src/GHCJS/DOM/SecurityPolicy.hs view

file too large to diff

+ src/GHCJS/DOM/SecurityPolicyViolationEvent.hs view

file too large to diff

+ src/GHCJS/DOM/Selection.hs view

file too large to diff

+ src/GHCJS/DOM/SourceBuffer.hs view

file too large to diff

+ src/GHCJS/DOM/SourceBufferList.hs view

file too large to diff

+ src/GHCJS/DOM/SourceInfo.hs view

file too large to diff

+ src/GHCJS/DOM/SpeechSynthesis.hs view

file too large to diff

+ src/GHCJS/DOM/SpeechSynthesisEvent.hs view

file too large to diff

+ src/GHCJS/DOM/SpeechSynthesisUtterance.hs view

file too large to diff

+ src/GHCJS/DOM/SpeechSynthesisVoice.hs view

file too large to diff

src/GHCJS/DOM/Storage.hs view

file too large to diff

+ src/GHCJS/DOM/StorageErrorCallback.hs view

file too large to diff

+ src/GHCJS/DOM/StorageEvent.hs view

file too large to diff

src/GHCJS/DOM/StorageInfo.hs view

file too large to diff

+ src/GHCJS/DOM/StorageQuota.hs view

file too large to diff

+ src/GHCJS/DOM/StorageQuotaCallback.hs view

file too large to diff

+ src/GHCJS/DOM/StorageUsageCallback.hs view

file too large to diff

+ src/GHCJS/DOM/StringCallback.hs view

file too large to diff

src/GHCJS/DOM/StyleMedia.hs view

file too large to diff

src/GHCJS/DOM/StyleSheet.hs view

file too large to diff

src/GHCJS/DOM/StyleSheetList.hs view

file too large to diff

− src/GHCJS/DOM/Stylesheets.hs

file too large to diff

+ src/GHCJS/DOM/SubtleCrypto.hs view

file too large to diff

src/GHCJS/DOM/Text.hs view

file too large to diff

+ src/GHCJS/DOM/TextEvent.hs view

file too large to diff

+ src/GHCJS/DOM/TextMetrics.hs view

file too large to diff

+ src/GHCJS/DOM/TextTrack.hs view

file too large to diff

+ src/GHCJS/DOM/TextTrackCue.hs view

file too large to diff

+ src/GHCJS/DOM/TextTrackCueList.hs view

file too large to diff

+ src/GHCJS/DOM/TextTrackList.hs view

file too large to diff

src/GHCJS/DOM/TimeRanges.hs view

file too large to diff

+ src/GHCJS/DOM/Touch.hs view

file too large to diff

+ src/GHCJS/DOM/TouchEvent.hs view

file too large to diff

+ src/GHCJS/DOM/TouchList.hs view

file too large to diff

+ src/GHCJS/DOM/TrackEvent.hs view

file too large to diff

+ src/GHCJS/DOM/TransitionEvent.hs view

file too large to diff

− src/GHCJS/DOM/Traversal.hs

file too large to diff

src/GHCJS/DOM/TreeWalker.hs view

file too large to diff

+ src/GHCJS/DOM/TypeConversions.hs view

file too large to diff

src/GHCJS/DOM/Types.hs view

file too large to diff

src/GHCJS/DOM/UIEvent.hs view

file too large to diff

+ src/GHCJS/DOM/UIRequestEvent.hs view

file too large to diff

+ src/GHCJS/DOM/URL.hs view

file too large to diff

+ src/GHCJS/DOM/URLUtils.hs view

file too large to diff

+ src/GHCJS/DOM/UserMessageHandler.hs view

file too large to diff

+ src/GHCJS/DOM/VTTCue.hs view

file too large to diff

+ src/GHCJS/DOM/VTTRegion.hs view

file too large to diff

+ src/GHCJS/DOM/VTTRegionList.hs view

file too large to diff

src/GHCJS/DOM/ValidityState.hs view

file too large to diff

+ src/GHCJS/DOM/VideoPlaybackQuality.hs view

file too large to diff

+ src/GHCJS/DOM/VideoStreamTrack.hs view

file too large to diff

+ src/GHCJS/DOM/VideoTrack.hs view

file too large to diff

+ src/GHCJS/DOM/VideoTrackList.hs view

file too large to diff

+ src/GHCJS/DOM/VoidCallback.hs view

file too large to diff

+ src/GHCJS/DOM/WaveShaperNode.hs view

file too large to diff

+ src/GHCJS/DOM/WebGL2RenderingContext.hs view

file too large to diff

+ src/GHCJS/DOM/WebGLActiveInfo.hs view

file too large to diff

+ src/GHCJS/DOM/WebGLCompressedTextureATC.hs view

file too large to diff

+ src/GHCJS/DOM/WebGLCompressedTexturePVRTC.hs view

file too large to diff

+ src/GHCJS/DOM/WebGLCompressedTextureS3TC.hs view

file too large to diff

+ src/GHCJS/DOM/WebGLContextAttributes.hs view

file too large to diff

+ src/GHCJS/DOM/WebGLContextEvent.hs view

file too large to diff

+ src/GHCJS/DOM/WebGLDebugRendererInfo.hs view

file too large to diff

+ src/GHCJS/DOM/WebGLDebugShaders.hs view

file too large to diff

+ src/GHCJS/DOM/WebGLDepthTexture.hs view

file too large to diff

+ src/GHCJS/DOM/WebGLDrawBuffers.hs view

file too large to diff

+ src/GHCJS/DOM/WebGLLoseContext.hs view

file too large to diff

+ src/GHCJS/DOM/WebGLRenderingContextBase.hs view

file too large to diff

+ src/GHCJS/DOM/WebGLShaderPrecisionFormat.hs view

file too large to diff

+ src/GHCJS/DOM/WebKitAnimationEvent.hs view

file too large to diff

+ src/GHCJS/DOM/WebKitCSSFilterValue.hs view

file too large to diff

+ src/GHCJS/DOM/WebKitCSSMatrix.hs view

file too large to diff

+ src/GHCJS/DOM/WebKitCSSRegionRule.hs view

file too large to diff

+ src/GHCJS/DOM/WebKitCSSTransformValue.hs view

file too large to diff

+ src/GHCJS/DOM/WebKitCSSViewportRule.hs view

file too large to diff

src/GHCJS/DOM/WebKitNamedFlow.hs view

file too large to diff

+ src/GHCJS/DOM/WebKitNamespace.hs view

file too large to diff

+ src/GHCJS/DOM/WebKitPlaybackTargetAvailabilityEvent.hs view

file too large to diff

src/GHCJS/DOM/WebKitPoint.hs view

file too large to diff

+ src/GHCJS/DOM/WebKitTransitionEvent.hs view

file too large to diff

+ src/GHCJS/DOM/WebSocket.hs view

file too large to diff

+ src/GHCJS/DOM/WheelEvent.hs view

file too large to diff

+ src/GHCJS/DOM/Window.hs view

file too large to diff

+ src/GHCJS/DOM/WindowBase64.hs view

file too large to diff

+ src/GHCJS/DOM/WindowTimers.hs view

file too large to diff

+ src/GHCJS/DOM/Worker.hs view

file too large to diff

+ src/GHCJS/DOM/WorkerGlobalScope.hs view

file too large to diff

+ src/GHCJS/DOM/WorkerLocation.hs view

file too large to diff

+ src/GHCJS/DOM/WorkerNavigator.hs view

file too large to diff

+ src/GHCJS/DOM/XMLHttpRequest.hs view

file too large to diff

+ src/GHCJS/DOM/XMLHttpRequestProgressEvent.hs view

file too large to diff

+ src/GHCJS/DOM/XMLHttpRequestUpload.hs view

file too large to diff

+ src/GHCJS/DOM/XMLSerializer.hs view

file too large to diff

+ src/GHCJS/DOM/XPathEvaluator.hs view

file too large to diff

src/GHCJS/DOM/XPathExpression.hs view

file too large to diff

src/GHCJS/DOM/XPathNSResolver.hs view

file too large to diff

src/GHCJS/DOM/XPathResult.hs view

file too large to diff

+ src/GHCJS/DOM/XSLTProcessor.hs view

file too large to diff