packages feed

ghcjs-dom-jsffi (empty) → 0.3.1.0

raw patch · 535 files changed

+83298/−0 lines, 535 filesdep +basedep +ghc-primdep +ghcjs-basesetup-changed

Dependencies added: base, ghc-prim, ghcjs-base, ghcjs-prim, text, transformers

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

Files

+ LICENSE view
@@ -0,0 +1,21 @@+Copyright (c) 2010-2012 Hamish Mackenzie, Victor Nazarov, Luite Stegeman++Permission is hereby granted, free of charge, to any person obtaining+a copy of this software and associated documentation files (the+"Software"), to deal in the Software without restriction, including+without limitation the rights to use, copy, modify, merge, publish,+distribute, sublicense, and/or sell copies of the Software, and to+permit persons to whom the Software is furnished to do so, subject to+the following conditions:++The above copyright notice and this permission notice shall be+included in all copies or substantial portions of the Software.++THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND+NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE+LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION+OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION+WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.+
+ Setup.lhs view
@@ -0,0 +1,6 @@+#!/usr/bin/runhaskell +> module Main where+> import Distribution.Simple+> main :: IO ()+> main = defaultMain+
+ ghcjs-dom-jsffi.cabal view
@@ -0,0 +1,1087 @@+name: ghcjs-dom-jsffi+version: 0.3.1.0+cabal-version: >=1.22+build-type: Simple+license: MIT+license-file: LICENSE+maintainer: Hamish Mackenzie <Hamish.K.Mackenzie@googlemail.com>+synopsis: DOM library using JSFFI and GHCJS+description: Documentent Object Model (DOM) functions that work with+             GHCJS.+author: Hamish Mackenzie+data-dir: ""+category: Web++Source-Repository head+  type:         git+  location:     https://github.com/ghcjs/ghcjs-dom+  subdir:       ghcjs-dom-jsffi++library+    build-depends: base <5,+                   transformers >=0.2 && <0.6,+                   text >= 0.11.0.6 && < 1.3,+                   ghcjs-base >=0.2.0.0 && <0.3,+                   ghcjs-prim,+                   ghc-prim++    default-language: Haskell2010++    hs-source-dirs: src+    cpp-options: -DUSE_JAVASCRIPTFFI+    exposed: True+    if impl(ghcjs)+        buildable: True+    else+        buildable: False+    js-sources: jsbits/xhr.js++    exposed-modules:+          GHCJS.DOM+          GHCJS.DOM.Types+          GHCJS.DOM.EventM+          GHCJS.DOM.EventTargetClosures++          GHCJS.DOM.JSFFI.AudioContext+          GHCJS.DOM.JSFFI.Database+          GHCJS.DOM.JSFFI.DOMError+          GHCJS.DOM.JSFFI.Geolocation+          GHCJS.DOM.JSFFI.FormData+          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++    reexported-modules:+          -- Generated by domconv-webkit-jsffi+            GHCJS.DOM.JSFFI.Generated.ANGLEInstancedArrays as GHCJS.DOM.ANGLEInstancedArrays+          , GHCJS.DOM.JSFFI.Generated.AbstractView as GHCJS.DOM.AbstractView+          , GHCJS.DOM.JSFFI.Generated.AbstractWorker as GHCJS.DOM.AbstractWorker+          , GHCJS.DOM.JSFFI.Generated.AllAudioCapabilities as GHCJS.DOM.AllAudioCapabilities+          , GHCJS.DOM.JSFFI.Generated.AllVideoCapabilities as GHCJS.DOM.AllVideoCapabilities+          , GHCJS.DOM.JSFFI.Generated.AnalyserNode as GHCJS.DOM.AnalyserNode+          , GHCJS.DOM.JSFFI.Generated.AnimationEvent as GHCJS.DOM.AnimationEvent+          , GHCJS.DOM.JSFFI.Generated.ApplicationCache as GHCJS.DOM.ApplicationCache+          , GHCJS.DOM.JSFFI.Generated.Attr as GHCJS.DOM.Attr+          , GHCJS.DOM.JSFFI.Generated.AudioBuffer as GHCJS.DOM.AudioBuffer+          , GHCJS.DOM.JSFFI.Generated.AudioBufferCallback as GHCJS.DOM.AudioBufferCallback+          , GHCJS.DOM.JSFFI.Generated.AudioBufferSourceNode as GHCJS.DOM.AudioBufferSourceNode+          , GHCJS.DOM.JSFFI.AudioContext as GHCJS.DOM.AudioContext+          , GHCJS.DOM.JSFFI.Generated.AudioDestinationNode as GHCJS.DOM.AudioDestinationNode+          , GHCJS.DOM.JSFFI.Generated.AudioListener as GHCJS.DOM.AudioListener+          , GHCJS.DOM.JSFFI.Generated.AudioNode as GHCJS.DOM.AudioNode+          , GHCJS.DOM.JSFFI.Generated.AudioParam as GHCJS.DOM.AudioParam+          , GHCJS.DOM.JSFFI.Generated.AudioProcessingEvent as GHCJS.DOM.AudioProcessingEvent+          , GHCJS.DOM.JSFFI.Generated.AudioStreamTrack as GHCJS.DOM.AudioStreamTrack+          , GHCJS.DOM.JSFFI.Generated.AudioTrack as GHCJS.DOM.AudioTrack+          , GHCJS.DOM.JSFFI.Generated.AudioTrackList as GHCJS.DOM.AudioTrackList+          , GHCJS.DOM.JSFFI.Generated.AutocompleteErrorEvent as GHCJS.DOM.AutocompleteErrorEvent+          , GHCJS.DOM.JSFFI.Generated.BarProp as GHCJS.DOM.BarProp+          , GHCJS.DOM.JSFFI.Generated.BatteryManager as GHCJS.DOM.BatteryManager+          , GHCJS.DOM.JSFFI.Generated.BeforeLoadEvent as GHCJS.DOM.BeforeLoadEvent+          , GHCJS.DOM.JSFFI.Generated.BeforeUnloadEvent as GHCJS.DOM.BeforeUnloadEvent+          , GHCJS.DOM.JSFFI.Generated.BiquadFilterNode as GHCJS.DOM.BiquadFilterNode+          , GHCJS.DOM.JSFFI.Generated.Blob as GHCJS.DOM.Blob+          , GHCJS.DOM.JSFFI.Generated.CSS as GHCJS.DOM.CSS+          , GHCJS.DOM.JSFFI.Generated.CSSCharsetRule as GHCJS.DOM.CSSCharsetRule+          , GHCJS.DOM.JSFFI.Generated.CSSFontFaceLoadEvent as GHCJS.DOM.CSSFontFaceLoadEvent+          , GHCJS.DOM.JSFFI.Generated.CSSFontFaceRule as GHCJS.DOM.CSSFontFaceRule+          , GHCJS.DOM.JSFFI.Generated.CSSImportRule as GHCJS.DOM.CSSImportRule+          , GHCJS.DOM.JSFFI.Generated.CSSKeyframeRule as GHCJS.DOM.CSSKeyframeRule+          , GHCJS.DOM.JSFFI.Generated.CSSKeyframesRule as GHCJS.DOM.CSSKeyframesRule+          , GHCJS.DOM.JSFFI.Generated.CSSMediaRule as GHCJS.DOM.CSSMediaRule+          , GHCJS.DOM.JSFFI.Generated.CSSPageRule as GHCJS.DOM.CSSPageRule+          , GHCJS.DOM.JSFFI.Generated.CSSPrimitiveValue as GHCJS.DOM.CSSPrimitiveValue+          , GHCJS.DOM.JSFFI.Generated.CSSRule as GHCJS.DOM.CSSRule+          , GHCJS.DOM.JSFFI.Generated.CSSRuleList as GHCJS.DOM.CSSRuleList+          , GHCJS.DOM.JSFFI.Generated.CSSStyleDeclaration as GHCJS.DOM.CSSStyleDeclaration+          , GHCJS.DOM.JSFFI.Generated.CSSStyleRule as GHCJS.DOM.CSSStyleRule+          , GHCJS.DOM.JSFFI.Generated.CSSStyleSheet as GHCJS.DOM.CSSStyleSheet+          , GHCJS.DOM.JSFFI.Generated.CSSSupportsRule as GHCJS.DOM.CSSSupportsRule+          , GHCJS.DOM.JSFFI.Generated.CSSValue as GHCJS.DOM.CSSValue+          , GHCJS.DOM.JSFFI.Generated.CSSValueList as GHCJS.DOM.CSSValueList+          , GHCJS.DOM.JSFFI.Generated.CanvasGradient as GHCJS.DOM.CanvasGradient+          , GHCJS.DOM.JSFFI.Generated.CanvasRenderingContext as GHCJS.DOM.CanvasRenderingContext+          , GHCJS.DOM.JSFFI.Generated.CanvasRenderingContext2D as GHCJS.DOM.CanvasRenderingContext2D+          , GHCJS.DOM.JSFFI.Generated.CapabilityRange as GHCJS.DOM.CapabilityRange+          , GHCJS.DOM.JSFFI.Generated.CharacterData as GHCJS.DOM.CharacterData+          , GHCJS.DOM.JSFFI.Generated.ChildNode as GHCJS.DOM.ChildNode+          , GHCJS.DOM.JSFFI.Generated.ClientRect as GHCJS.DOM.ClientRect+          , GHCJS.DOM.JSFFI.Generated.ClientRectList as GHCJS.DOM.ClientRectList+          , GHCJS.DOM.JSFFI.Generated.CloseEvent as GHCJS.DOM.CloseEvent+          , GHCJS.DOM.JSFFI.Generated.CommandLineAPIHost as GHCJS.DOM.CommandLineAPIHost+          , GHCJS.DOM.JSFFI.Generated.Comment as GHCJS.DOM.Comment+          , GHCJS.DOM.JSFFI.Generated.CompositionEvent as GHCJS.DOM.CompositionEvent+          , GHCJS.DOM.JSFFI.Generated.ConvolverNode as GHCJS.DOM.ConvolverNode+          , GHCJS.DOM.JSFFI.Generated.Coordinates as GHCJS.DOM.Coordinates+          , GHCJS.DOM.JSFFI.Generated.Counter as GHCJS.DOM.Counter+          , GHCJS.DOM.JSFFI.Generated.Crypto as GHCJS.DOM.Crypto+          , GHCJS.DOM.JSFFI.Generated.CryptoKey as GHCJS.DOM.CryptoKey+          , GHCJS.DOM.JSFFI.Generated.CryptoKeyPair as GHCJS.DOM.CryptoKeyPair+          , GHCJS.DOM.JSFFI.Generated.CustomEvent as GHCJS.DOM.CustomEvent+          , GHCJS.DOM.JSFFI.DOMError as GHCJS.DOM.DOMError+          , GHCJS.DOM.JSFFI.Generated.DOMImplementation as GHCJS.DOM.DOMImplementation+          , GHCJS.DOM.JSFFI.Generated.DOMNamedFlowCollection as GHCJS.DOM.DOMNamedFlowCollection+          , GHCJS.DOM.JSFFI.Generated.DOMParser as GHCJS.DOM.DOMParser+          , GHCJS.DOM.JSFFI.Generated.DOMSettableTokenList as GHCJS.DOM.DOMSettableTokenList+          , GHCJS.DOM.JSFFI.Generated.DOMStringList as GHCJS.DOM.DOMStringList+          , GHCJS.DOM.JSFFI.Generated.DOMTokenList as GHCJS.DOM.DOMTokenList+          , GHCJS.DOM.JSFFI.Generated.DataCue as GHCJS.DOM.DataCue+          , GHCJS.DOM.JSFFI.Generated.DataTransfer as GHCJS.DOM.DataTransfer+          , GHCJS.DOM.JSFFI.Generated.DataTransferItem as GHCJS.DOM.DataTransferItem+          , GHCJS.DOM.JSFFI.Generated.DataTransferItemList as GHCJS.DOM.DataTransferItemList+          , GHCJS.DOM.JSFFI.Database as GHCJS.DOM.Database+          , GHCJS.DOM.JSFFI.Generated.DatabaseCallback as GHCJS.DOM.DatabaseCallback+          , GHCJS.DOM.JSFFI.Generated.DedicatedWorkerGlobalScope as GHCJS.DOM.DedicatedWorkerGlobalScope+          , GHCJS.DOM.JSFFI.Generated.DelayNode as GHCJS.DOM.DelayNode+          , GHCJS.DOM.JSFFI.Generated.DeviceMotionEvent as GHCJS.DOM.DeviceMotionEvent+          , GHCJS.DOM.JSFFI.Generated.DeviceOrientationEvent as GHCJS.DOM.DeviceOrientationEvent+          , GHCJS.DOM.JSFFI.Generated.DeviceProximityEvent as GHCJS.DOM.DeviceProximityEvent+          , GHCJS.DOM.JSFFI.Generated.Document as GHCJS.DOM.Document+          , GHCJS.DOM.JSFFI.Generated.DocumentFragment as GHCJS.DOM.DocumentFragment+          , GHCJS.DOM.JSFFI.Generated.DocumentType as GHCJS.DOM.DocumentType+          , GHCJS.DOM.JSFFI.Generated.DynamicsCompressorNode as GHCJS.DOM.DynamicsCompressorNode+          , GHCJS.DOM.JSFFI.Generated.EXTBlendMinMax as GHCJS.DOM.EXTBlendMinMax+          , GHCJS.DOM.JSFFI.Generated.EXTTextureFilterAnisotropic as GHCJS.DOM.EXTTextureFilterAnisotropic+          , GHCJS.DOM.JSFFI.Generated.EXTsRGB as GHCJS.DOM.EXTsRGB+          , GHCJS.DOM.JSFFI.Generated.Element as GHCJS.DOM.Element+          , GHCJS.DOM.JSFFI.Generated.Entity as GHCJS.DOM.Entity+          , GHCJS.DOM.JSFFI.Generated.Enums as GHCJS.DOM.Enums+          , GHCJS.DOM.JSFFI.Generated.ErrorEvent as GHCJS.DOM.ErrorEvent+          , GHCJS.DOM.JSFFI.Generated.Event as GHCJS.DOM.Event+          , GHCJS.DOM.JSFFI.Generated.EventListener as GHCJS.DOM.EventListener+          , GHCJS.DOM.JSFFI.Generated.EventSource as GHCJS.DOM.EventSource+          , GHCJS.DOM.JSFFI.Generated.EventTarget as GHCJS.DOM.EventTarget+          , GHCJS.DOM.JSFFI.Generated.File as GHCJS.DOM.File+          , GHCJS.DOM.JSFFI.Generated.FileError as GHCJS.DOM.FileError+          , GHCJS.DOM.JSFFI.Generated.FileList as GHCJS.DOM.FileList+          , GHCJS.DOM.JSFFI.Generated.FileReader as GHCJS.DOM.FileReader+          , GHCJS.DOM.JSFFI.Generated.FileReaderSync as GHCJS.DOM.FileReaderSync+          , GHCJS.DOM.JSFFI.Generated.FocusEvent as GHCJS.DOM.FocusEvent+          , GHCJS.DOM.JSFFI.Generated.FontLoader as GHCJS.DOM.FontLoader+          , GHCJS.DOM.JSFFI.FormData as GHCJS.DOM.FormData+          , GHCJS.DOM.JSFFI.Generated.GainNode as GHCJS.DOM.GainNode+          , GHCJS.DOM.JSFFI.Generated.Gamepad as GHCJS.DOM.Gamepad+          , GHCJS.DOM.JSFFI.Generated.GamepadButton as GHCJS.DOM.GamepadButton+          , GHCJS.DOM.JSFFI.Generated.GamepadEvent as GHCJS.DOM.GamepadEvent+          , GHCJS.DOM.JSFFI.Geolocation as GHCJS.DOM.Geolocation+          , GHCJS.DOM.JSFFI.Generated.Geoposition as GHCJS.DOM.Geoposition+          , GHCJS.DOM.JSFFI.Generated.HTMLAllCollection as GHCJS.DOM.HTMLAllCollection+          , GHCJS.DOM.JSFFI.Generated.HTMLAnchorElement as GHCJS.DOM.HTMLAnchorElement+          , GHCJS.DOM.JSFFI.Generated.HTMLAppletElement as GHCJS.DOM.HTMLAppletElement+          , GHCJS.DOM.JSFFI.Generated.HTMLAreaElement as GHCJS.DOM.HTMLAreaElement+          , GHCJS.DOM.JSFFI.Generated.HTMLBRElement as GHCJS.DOM.HTMLBRElement+          , GHCJS.DOM.JSFFI.Generated.HTMLBaseElement as GHCJS.DOM.HTMLBaseElement+          , GHCJS.DOM.JSFFI.Generated.HTMLBaseFontElement as GHCJS.DOM.HTMLBaseFontElement+          , GHCJS.DOM.JSFFI.Generated.HTMLBodyElement as GHCJS.DOM.HTMLBodyElement+          , GHCJS.DOM.JSFFI.Generated.HTMLButtonElement as GHCJS.DOM.HTMLButtonElement+          , GHCJS.DOM.JSFFI.Generated.HTMLCanvasElement as GHCJS.DOM.HTMLCanvasElement+          , GHCJS.DOM.JSFFI.Generated.HTMLCollection as GHCJS.DOM.HTMLCollection+          , GHCJS.DOM.JSFFI.Generated.HTMLDListElement as GHCJS.DOM.HTMLDListElement+          , GHCJS.DOM.JSFFI.Generated.HTMLDataListElement as GHCJS.DOM.HTMLDataListElement+          , GHCJS.DOM.JSFFI.Generated.HTMLDetailsElement as GHCJS.DOM.HTMLDetailsElement+          , GHCJS.DOM.JSFFI.Generated.HTMLDirectoryElement as GHCJS.DOM.HTMLDirectoryElement+          , GHCJS.DOM.JSFFI.Generated.HTMLDivElement as GHCJS.DOM.HTMLDivElement+          , GHCJS.DOM.JSFFI.Generated.HTMLDocument as GHCJS.DOM.HTMLDocument+          , GHCJS.DOM.JSFFI.Generated.HTMLElement as GHCJS.DOM.HTMLElement+          , GHCJS.DOM.JSFFI.Generated.HTMLEmbedElement as GHCJS.DOM.HTMLEmbedElement+          , GHCJS.DOM.JSFFI.Generated.HTMLFieldSetElement as GHCJS.DOM.HTMLFieldSetElement+          , GHCJS.DOM.JSFFI.Generated.HTMLFontElement as GHCJS.DOM.HTMLFontElement+          , GHCJS.DOM.JSFFI.Generated.HTMLFormControlsCollection as GHCJS.DOM.HTMLFormControlsCollection+          , GHCJS.DOM.JSFFI.Generated.HTMLFormElement as GHCJS.DOM.HTMLFormElement+          , GHCJS.DOM.JSFFI.Generated.HTMLFrameElement as GHCJS.DOM.HTMLFrameElement+          , GHCJS.DOM.JSFFI.Generated.HTMLFrameSetElement as GHCJS.DOM.HTMLFrameSetElement+          , GHCJS.DOM.JSFFI.Generated.HTMLHRElement as GHCJS.DOM.HTMLHRElement+          , GHCJS.DOM.JSFFI.Generated.HTMLHeadElement as GHCJS.DOM.HTMLHeadElement+          , GHCJS.DOM.JSFFI.Generated.HTMLHeadingElement as GHCJS.DOM.HTMLHeadingElement+          , GHCJS.DOM.JSFFI.Generated.HTMLHtmlElement as GHCJS.DOM.HTMLHtmlElement+          , GHCJS.DOM.JSFFI.Generated.HTMLIFrameElement as GHCJS.DOM.HTMLIFrameElement+          , GHCJS.DOM.JSFFI.Generated.HTMLImageElement as GHCJS.DOM.HTMLImageElement+          , GHCJS.DOM.JSFFI.Generated.HTMLInputElement as GHCJS.DOM.HTMLInputElement+          , GHCJS.DOM.JSFFI.Generated.HTMLKeygenElement as GHCJS.DOM.HTMLKeygenElement+          , GHCJS.DOM.JSFFI.Generated.HTMLLIElement as GHCJS.DOM.HTMLLIElement+          , GHCJS.DOM.JSFFI.Generated.HTMLLabelElement as GHCJS.DOM.HTMLLabelElement+          , GHCJS.DOM.JSFFI.Generated.HTMLLegendElement as GHCJS.DOM.HTMLLegendElement+          , GHCJS.DOM.JSFFI.Generated.HTMLLinkElement as GHCJS.DOM.HTMLLinkElement+          , GHCJS.DOM.JSFFI.Generated.HTMLMapElement as GHCJS.DOM.HTMLMapElement+          , GHCJS.DOM.JSFFI.Generated.HTMLMarqueeElement as GHCJS.DOM.HTMLMarqueeElement+          , GHCJS.DOM.JSFFI.Generated.HTMLMediaElement as GHCJS.DOM.HTMLMediaElement+          , GHCJS.DOM.JSFFI.Generated.HTMLMenuElement as GHCJS.DOM.HTMLMenuElement+          , GHCJS.DOM.JSFFI.Generated.HTMLMetaElement as GHCJS.DOM.HTMLMetaElement+          , GHCJS.DOM.JSFFI.Generated.HTMLMeterElement as GHCJS.DOM.HTMLMeterElement+          , GHCJS.DOM.JSFFI.Generated.HTMLModElement as GHCJS.DOM.HTMLModElement+          , GHCJS.DOM.JSFFI.Generated.HTMLOListElement as GHCJS.DOM.HTMLOListElement+          , GHCJS.DOM.JSFFI.Generated.HTMLObjectElement as GHCJS.DOM.HTMLObjectElement+          , GHCJS.DOM.JSFFI.Generated.HTMLOptGroupElement as GHCJS.DOM.HTMLOptGroupElement+          , GHCJS.DOM.JSFFI.Generated.HTMLOptionElement as GHCJS.DOM.HTMLOptionElement+          , GHCJS.DOM.JSFFI.Generated.HTMLOptionsCollection as GHCJS.DOM.HTMLOptionsCollection+          , GHCJS.DOM.JSFFI.Generated.HTMLOutputElement as GHCJS.DOM.HTMLOutputElement+          , GHCJS.DOM.JSFFI.Generated.HTMLParagraphElement as GHCJS.DOM.HTMLParagraphElement+          , GHCJS.DOM.JSFFI.Generated.HTMLParamElement as GHCJS.DOM.HTMLParamElement+          , GHCJS.DOM.JSFFI.Generated.HTMLPreElement as GHCJS.DOM.HTMLPreElement+          , GHCJS.DOM.JSFFI.Generated.HTMLProgressElement as GHCJS.DOM.HTMLProgressElement+          , GHCJS.DOM.JSFFI.Generated.HTMLQuoteElement as GHCJS.DOM.HTMLQuoteElement+          , GHCJS.DOM.JSFFI.Generated.HTMLScriptElement as GHCJS.DOM.HTMLScriptElement+          , GHCJS.DOM.JSFFI.Generated.HTMLSelectElement as GHCJS.DOM.HTMLSelectElement+          , GHCJS.DOM.JSFFI.Generated.HTMLSourceElement as GHCJS.DOM.HTMLSourceElement+          , GHCJS.DOM.JSFFI.Generated.HTMLStyleElement as GHCJS.DOM.HTMLStyleElement+          , GHCJS.DOM.JSFFI.Generated.HTMLTableCaptionElement as GHCJS.DOM.HTMLTableCaptionElement+          , GHCJS.DOM.JSFFI.Generated.HTMLTableCellElement as GHCJS.DOM.HTMLTableCellElement+          , GHCJS.DOM.JSFFI.Generated.HTMLTableColElement as GHCJS.DOM.HTMLTableColElement+          , GHCJS.DOM.JSFFI.Generated.HTMLTableElement as GHCJS.DOM.HTMLTableElement+          , GHCJS.DOM.JSFFI.Generated.HTMLTableRowElement as GHCJS.DOM.HTMLTableRowElement+          , GHCJS.DOM.JSFFI.Generated.HTMLTableSectionElement as GHCJS.DOM.HTMLTableSectionElement+          , GHCJS.DOM.JSFFI.Generated.HTMLTemplateElement as GHCJS.DOM.HTMLTemplateElement+          , GHCJS.DOM.JSFFI.Generated.HTMLTextAreaElement as GHCJS.DOM.HTMLTextAreaElement+          , GHCJS.DOM.JSFFI.Generated.HTMLTitleElement as GHCJS.DOM.HTMLTitleElement+          , GHCJS.DOM.JSFFI.Generated.HTMLTrackElement as GHCJS.DOM.HTMLTrackElement+          , GHCJS.DOM.JSFFI.Generated.HTMLUListElement as GHCJS.DOM.HTMLUListElement+          , GHCJS.DOM.JSFFI.Generated.HTMLVideoElement as GHCJS.DOM.HTMLVideoElement+          , GHCJS.DOM.JSFFI.Generated.HashChangeEvent as GHCJS.DOM.HashChangeEvent+          , GHCJS.DOM.JSFFI.Generated.History as GHCJS.DOM.History+          , GHCJS.DOM.JSFFI.Generated.IDBCursor as GHCJS.DOM.IDBCursor+          , GHCJS.DOM.JSFFI.Generated.IDBCursorWithValue as GHCJS.DOM.IDBCursorWithValue+          , GHCJS.DOM.JSFFI.Generated.IDBDatabase as GHCJS.DOM.IDBDatabase+          , GHCJS.DOM.JSFFI.Generated.IDBFactory as GHCJS.DOM.IDBFactory+          , GHCJS.DOM.JSFFI.Generated.IDBIndex as GHCJS.DOM.IDBIndex+          , GHCJS.DOM.JSFFI.Generated.IDBKeyRange as GHCJS.DOM.IDBKeyRange+          , GHCJS.DOM.JSFFI.Generated.IDBObjectStore as GHCJS.DOM.IDBObjectStore+          , GHCJS.DOM.JSFFI.Generated.IDBOpenDBRequest as GHCJS.DOM.IDBOpenDBRequest+          , GHCJS.DOM.JSFFI.Generated.IDBRequest as GHCJS.DOM.IDBRequest+          , GHCJS.DOM.JSFFI.Generated.IDBTransaction as GHCJS.DOM.IDBTransaction+          , GHCJS.DOM.JSFFI.Generated.IDBVersionChangeEvent as GHCJS.DOM.IDBVersionChangeEvent+          , GHCJS.DOM.JSFFI.Generated.ImageData as GHCJS.DOM.ImageData+          , GHCJS.DOM.JSFFI.Generated.InspectorFrontendHost as GHCJS.DOM.InspectorFrontendHost+          , GHCJS.DOM.JSFFI.Generated.InternalSettings as GHCJS.DOM.InternalSettings+          , GHCJS.DOM.JSFFI.Generated.Internals as GHCJS.DOM.Internals+          , GHCJS.DOM.JSFFI.Generated.KeyboardEvent as GHCJS.DOM.KeyboardEvent+          , GHCJS.DOM.JSFFI.Generated.Location as GHCJS.DOM.Location+          , GHCJS.DOM.JSFFI.Generated.MallocStatistics as GHCJS.DOM.MallocStatistics+          , GHCJS.DOM.JSFFI.Generated.MediaController as GHCJS.DOM.MediaController+          , GHCJS.DOM.JSFFI.Generated.MediaControlsHost as GHCJS.DOM.MediaControlsHost+          , GHCJS.DOM.JSFFI.Generated.MediaElementAudioSourceNode as GHCJS.DOM.MediaElementAudioSourceNode+          , GHCJS.DOM.JSFFI.Generated.MediaError as GHCJS.DOM.MediaError+          , GHCJS.DOM.JSFFI.Generated.MediaKeyError as GHCJS.DOM.MediaKeyError+          , GHCJS.DOM.JSFFI.Generated.MediaKeyEvent as GHCJS.DOM.MediaKeyEvent+          , GHCJS.DOM.JSFFI.Generated.MediaKeyMessageEvent as GHCJS.DOM.MediaKeyMessageEvent+          , GHCJS.DOM.JSFFI.Generated.MediaKeyNeededEvent as GHCJS.DOM.MediaKeyNeededEvent+          , GHCJS.DOM.JSFFI.Generated.MediaKeySession as GHCJS.DOM.MediaKeySession+          , GHCJS.DOM.JSFFI.Generated.MediaKeys as GHCJS.DOM.MediaKeys+          , GHCJS.DOM.JSFFI.Generated.MediaList as GHCJS.DOM.MediaList+          , GHCJS.DOM.JSFFI.Generated.MediaQueryList as GHCJS.DOM.MediaQueryList+          , GHCJS.DOM.JSFFI.Generated.MediaQueryListListener as GHCJS.DOM.MediaQueryListListener+          , GHCJS.DOM.JSFFI.Generated.MediaSource as GHCJS.DOM.MediaSource+          , GHCJS.DOM.JSFFI.Generated.MediaSourceStates as GHCJS.DOM.MediaSourceStates+          , GHCJS.DOM.JSFFI.Generated.MediaStream as GHCJS.DOM.MediaStream+          , GHCJS.DOM.JSFFI.Generated.MediaStreamAudioDestinationNode as GHCJS.DOM.MediaStreamAudioDestinationNode+          , GHCJS.DOM.JSFFI.Generated.MediaStreamAudioSourceNode as GHCJS.DOM.MediaStreamAudioSourceNode+          , GHCJS.DOM.JSFFI.Generated.MediaStreamEvent as GHCJS.DOM.MediaStreamEvent+          , GHCJS.DOM.JSFFI.MediaStreamTrack as GHCJS.DOM.MediaStreamTrack+          , GHCJS.DOM.JSFFI.Generated.MediaStreamTrackEvent as GHCJS.DOM.MediaStreamTrackEvent+          , GHCJS.DOM.JSFFI.Generated.MediaStreamTrackSourcesCallback as GHCJS.DOM.MediaStreamTrackSourcesCallback+          , GHCJS.DOM.JSFFI.Generated.MediaTrackConstraints as GHCJS.DOM.MediaTrackConstraints+          , GHCJS.DOM.JSFFI.Generated.MemoryInfo as GHCJS.DOM.MemoryInfo+          , GHCJS.DOM.JSFFI.Generated.MessageChannel as GHCJS.DOM.MessageChannel+          , GHCJS.DOM.JSFFI.Generated.MessageEvent as GHCJS.DOM.MessageEvent+          , GHCJS.DOM.JSFFI.Generated.MessagePort as GHCJS.DOM.MessagePort+          , GHCJS.DOM.JSFFI.Generated.MimeType as GHCJS.DOM.MimeType+          , GHCJS.DOM.JSFFI.Generated.MimeTypeArray as GHCJS.DOM.MimeTypeArray+          , GHCJS.DOM.JSFFI.Generated.MouseEvent as GHCJS.DOM.MouseEvent+          , GHCJS.DOM.JSFFI.Generated.MutationEvent as GHCJS.DOM.MutationEvent+          , GHCJS.DOM.JSFFI.Generated.MutationObserver as GHCJS.DOM.MutationObserver+          , GHCJS.DOM.JSFFI.Generated.MutationRecord as GHCJS.DOM.MutationRecord+          , GHCJS.DOM.JSFFI.Generated.NamedNodeMap as GHCJS.DOM.NamedNodeMap+          , GHCJS.DOM.JSFFI.Navigator as GHCJS.DOM.Navigator+          , GHCJS.DOM.JSFFI.NavigatorUserMediaError as GHCJS.DOM.NavigatorUserMediaError+          , GHCJS.DOM.JSFFI.Generated.NavigatorUserMediaErrorCallback as GHCJS.DOM.NavigatorUserMediaErrorCallback+          , GHCJS.DOM.JSFFI.Generated.NavigatorUserMediaSuccessCallback as GHCJS.DOM.NavigatorUserMediaSuccessCallback+          , GHCJS.DOM.JSFFI.Generated.Node as GHCJS.DOM.Node+          , GHCJS.DOM.JSFFI.Generated.NodeFilter as GHCJS.DOM.NodeFilter+          , GHCJS.DOM.JSFFI.Generated.NodeIterator as GHCJS.DOM.NodeIterator+          , GHCJS.DOM.JSFFI.Generated.NodeList as GHCJS.DOM.NodeList+          , GHCJS.DOM.JSFFI.Generated.Notification as GHCJS.DOM.Notification+          , GHCJS.DOM.JSFFI.Generated.NotificationCenter as GHCJS.DOM.NotificationCenter+          , GHCJS.DOM.JSFFI.Generated.NotificationPermissionCallback as GHCJS.DOM.NotificationPermissionCallback+          , GHCJS.DOM.JSFFI.Generated.OESStandardDerivatives as GHCJS.DOM.OESStandardDerivatives+          , GHCJS.DOM.JSFFI.Generated.OESTextureHalfFloat as GHCJS.DOM.OESTextureHalfFloat+          , GHCJS.DOM.JSFFI.Generated.OESVertexArrayObject as GHCJS.DOM.OESVertexArrayObject+          , GHCJS.DOM.JSFFI.Generated.OfflineAudioCompletionEvent as GHCJS.DOM.OfflineAudioCompletionEvent+          , GHCJS.DOM.JSFFI.Generated.OfflineAudioContext as GHCJS.DOM.OfflineAudioContext+          , GHCJS.DOM.JSFFI.Generated.OscillatorNode as GHCJS.DOM.OscillatorNode+          , GHCJS.DOM.JSFFI.Generated.OverflowEvent as GHCJS.DOM.OverflowEvent+          , GHCJS.DOM.JSFFI.Generated.PageTransitionEvent as GHCJS.DOM.PageTransitionEvent+          , GHCJS.DOM.JSFFI.Generated.PannerNode as GHCJS.DOM.PannerNode+          , GHCJS.DOM.JSFFI.Generated.Path2D as GHCJS.DOM.Path2D+          , GHCJS.DOM.JSFFI.Generated.Performance as GHCJS.DOM.Performance+          , GHCJS.DOM.JSFFI.Generated.PerformanceEntry as GHCJS.DOM.PerformanceEntry+          , GHCJS.DOM.JSFFI.Generated.PerformanceEntryList as GHCJS.DOM.PerformanceEntryList+          , GHCJS.DOM.JSFFI.Generated.PerformanceNavigation as GHCJS.DOM.PerformanceNavigation+          , GHCJS.DOM.JSFFI.Generated.PerformanceResourceTiming as GHCJS.DOM.PerformanceResourceTiming+          , GHCJS.DOM.JSFFI.Generated.PerformanceTiming as GHCJS.DOM.PerformanceTiming+          , GHCJS.DOM.JSFFI.Generated.Plugin as GHCJS.DOM.Plugin+          , GHCJS.DOM.JSFFI.Generated.PluginArray as GHCJS.DOM.PluginArray+          , GHCJS.DOM.JSFFI.Generated.PopStateEvent as GHCJS.DOM.PopStateEvent+          , GHCJS.DOM.JSFFI.Generated.PositionCallback as GHCJS.DOM.PositionCallback+          , GHCJS.DOM.JSFFI.PositionError as GHCJS.DOM.PositionError+          , GHCJS.DOM.JSFFI.Generated.PositionErrorCallback as GHCJS.DOM.PositionErrorCallback+          , GHCJS.DOM.JSFFI.Generated.ProcessingInstruction as GHCJS.DOM.ProcessingInstruction+          , GHCJS.DOM.JSFFI.Generated.ProgressEvent as GHCJS.DOM.ProgressEvent+          , GHCJS.DOM.JSFFI.Generated.QuickTimePluginReplacement as GHCJS.DOM.QuickTimePluginReplacement+          , GHCJS.DOM.JSFFI.Generated.RGBColor as GHCJS.DOM.RGBColor+          , GHCJS.DOM.JSFFI.Generated.RTCConfiguration as GHCJS.DOM.RTCConfiguration+          , GHCJS.DOM.JSFFI.Generated.RTCDTMFSender as GHCJS.DOM.RTCDTMFSender+          , GHCJS.DOM.JSFFI.Generated.RTCDTMFToneChangeEvent as GHCJS.DOM.RTCDTMFToneChangeEvent+          , GHCJS.DOM.JSFFI.Generated.RTCDataChannel as GHCJS.DOM.RTCDataChannel+          , GHCJS.DOM.JSFFI.Generated.RTCDataChannelEvent as GHCJS.DOM.RTCDataChannelEvent+          , GHCJS.DOM.JSFFI.Generated.RTCIceCandidate as GHCJS.DOM.RTCIceCandidate+          , GHCJS.DOM.JSFFI.Generated.RTCIceCandidateEvent as GHCJS.DOM.RTCIceCandidateEvent+          , GHCJS.DOM.JSFFI.Generated.RTCIceServer as GHCJS.DOM.RTCIceServer+          , GHCJS.DOM.JSFFI.RTCPeerConnection as GHCJS.DOM.RTCPeerConnection+          , GHCJS.DOM.JSFFI.Generated.RTCPeerConnectionErrorCallback as GHCJS.DOM.RTCPeerConnectionErrorCallback+          , GHCJS.DOM.JSFFI.Generated.RTCSessionDescription as GHCJS.DOM.RTCSessionDescription+          , GHCJS.DOM.JSFFI.Generated.RTCSessionDescriptionCallback as GHCJS.DOM.RTCSessionDescriptionCallback+          , GHCJS.DOM.JSFFI.Generated.RTCStatsCallback as GHCJS.DOM.RTCStatsCallback+          , GHCJS.DOM.JSFFI.Generated.RTCStatsReport as GHCJS.DOM.RTCStatsReport+          , GHCJS.DOM.JSFFI.Generated.RTCStatsResponse as GHCJS.DOM.RTCStatsResponse+          , GHCJS.DOM.JSFFI.Generated.RadioNodeList as GHCJS.DOM.RadioNodeList+          , GHCJS.DOM.JSFFI.Generated.Range as GHCJS.DOM.Range+          , GHCJS.DOM.JSFFI.Generated.ReadableStream as GHCJS.DOM.ReadableStream+          , GHCJS.DOM.JSFFI.Generated.Rect as GHCJS.DOM.Rect+          , GHCJS.DOM.JSFFI.Generated.RequestAnimationFrameCallback as GHCJS.DOM.RequestAnimationFrameCallback+          , GHCJS.DOM.JSFFI.SQLError as GHCJS.DOM.SQLError+          , GHCJS.DOM.JSFFI.Generated.SQLResultSet as GHCJS.DOM.SQLResultSet+          , GHCJS.DOM.JSFFI.Generated.SQLResultSetRowList as GHCJS.DOM.SQLResultSetRowList+          , GHCJS.DOM.JSFFI.Generated.SQLStatementCallback as GHCJS.DOM.SQLStatementCallback+          , GHCJS.DOM.JSFFI.Generated.SQLStatementErrorCallback as GHCJS.DOM.SQLStatementErrorCallback+          , GHCJS.DOM.JSFFI.SQLTransaction as GHCJS.DOM.SQLTransaction+          , GHCJS.DOM.JSFFI.Generated.SQLTransactionCallback as GHCJS.DOM.SQLTransactionCallback+          , GHCJS.DOM.JSFFI.Generated.SQLTransactionErrorCallback as GHCJS.DOM.SQLTransactionErrorCallback+          , GHCJS.DOM.JSFFI.Generated.SVGAElement as GHCJS.DOM.SVGAElement+          , GHCJS.DOM.JSFFI.Generated.SVGAltGlyphElement as GHCJS.DOM.SVGAltGlyphElement+          , GHCJS.DOM.JSFFI.Generated.SVGAngle as GHCJS.DOM.SVGAngle+          , GHCJS.DOM.JSFFI.Generated.SVGAnimatedAngle as GHCJS.DOM.SVGAnimatedAngle+          , GHCJS.DOM.JSFFI.Generated.SVGAnimatedBoolean as GHCJS.DOM.SVGAnimatedBoolean+          , GHCJS.DOM.JSFFI.Generated.SVGAnimatedEnumeration as GHCJS.DOM.SVGAnimatedEnumeration+          , GHCJS.DOM.JSFFI.Generated.SVGAnimatedInteger as GHCJS.DOM.SVGAnimatedInteger+          , GHCJS.DOM.JSFFI.Generated.SVGAnimatedLength as GHCJS.DOM.SVGAnimatedLength+          , GHCJS.DOM.JSFFI.Generated.SVGAnimatedLengthList as GHCJS.DOM.SVGAnimatedLengthList+          , GHCJS.DOM.JSFFI.Generated.SVGAnimatedNumber as GHCJS.DOM.SVGAnimatedNumber+          , GHCJS.DOM.JSFFI.Generated.SVGAnimatedNumberList as GHCJS.DOM.SVGAnimatedNumberList+          , GHCJS.DOM.JSFFI.Generated.SVGAnimatedPreserveAspectRatio as GHCJS.DOM.SVGAnimatedPreserveAspectRatio+          , GHCJS.DOM.JSFFI.Generated.SVGAnimatedRect as GHCJS.DOM.SVGAnimatedRect+          , GHCJS.DOM.JSFFI.Generated.SVGAnimatedString as GHCJS.DOM.SVGAnimatedString+          , GHCJS.DOM.JSFFI.Generated.SVGAnimatedTransformList as GHCJS.DOM.SVGAnimatedTransformList+          , GHCJS.DOM.JSFFI.Generated.SVGAnimationElement as GHCJS.DOM.SVGAnimationElement+          , GHCJS.DOM.JSFFI.Generated.SVGCircleElement as GHCJS.DOM.SVGCircleElement+          , GHCJS.DOM.JSFFI.Generated.SVGClipPathElement as GHCJS.DOM.SVGClipPathElement+          , GHCJS.DOM.JSFFI.Generated.SVGColor as GHCJS.DOM.SVGColor+          , GHCJS.DOM.JSFFI.Generated.SVGComponentTransferFunctionElement as GHCJS.DOM.SVGComponentTransferFunctionElement+          , GHCJS.DOM.JSFFI.Generated.SVGCursorElement as GHCJS.DOM.SVGCursorElement+          , GHCJS.DOM.JSFFI.Generated.SVGDocument as GHCJS.DOM.SVGDocument+          , GHCJS.DOM.JSFFI.Generated.SVGElement as GHCJS.DOM.SVGElement+          , GHCJS.DOM.JSFFI.Generated.SVGEllipseElement as GHCJS.DOM.SVGEllipseElement+          , GHCJS.DOM.JSFFI.Generated.SVGExternalResourcesRequired as GHCJS.DOM.SVGExternalResourcesRequired+          , GHCJS.DOM.JSFFI.Generated.SVGFEBlendElement as GHCJS.DOM.SVGFEBlendElement+          , GHCJS.DOM.JSFFI.Generated.SVGFEColorMatrixElement as GHCJS.DOM.SVGFEColorMatrixElement+          , GHCJS.DOM.JSFFI.Generated.SVGFEComponentTransferElement as GHCJS.DOM.SVGFEComponentTransferElement+          , GHCJS.DOM.JSFFI.Generated.SVGFECompositeElement as GHCJS.DOM.SVGFECompositeElement+          , GHCJS.DOM.JSFFI.Generated.SVGFEConvolveMatrixElement as GHCJS.DOM.SVGFEConvolveMatrixElement+          , GHCJS.DOM.JSFFI.Generated.SVGFEDiffuseLightingElement as GHCJS.DOM.SVGFEDiffuseLightingElement+          , GHCJS.DOM.JSFFI.Generated.SVGFEDisplacementMapElement as GHCJS.DOM.SVGFEDisplacementMapElement+          , GHCJS.DOM.JSFFI.Generated.SVGFEDistantLightElement as GHCJS.DOM.SVGFEDistantLightElement+          , GHCJS.DOM.JSFFI.Generated.SVGFEDropShadowElement as GHCJS.DOM.SVGFEDropShadowElement+          , GHCJS.DOM.JSFFI.Generated.SVGFEGaussianBlurElement as GHCJS.DOM.SVGFEGaussianBlurElement+          , GHCJS.DOM.JSFFI.Generated.SVGFEImageElement as GHCJS.DOM.SVGFEImageElement+          , GHCJS.DOM.JSFFI.Generated.SVGFEMergeNodeElement as GHCJS.DOM.SVGFEMergeNodeElement+          , GHCJS.DOM.JSFFI.Generated.SVGFEMorphologyElement as GHCJS.DOM.SVGFEMorphologyElement+          , GHCJS.DOM.JSFFI.Generated.SVGFEOffsetElement as GHCJS.DOM.SVGFEOffsetElement+          , GHCJS.DOM.JSFFI.Generated.SVGFEPointLightElement as GHCJS.DOM.SVGFEPointLightElement+          , GHCJS.DOM.JSFFI.Generated.SVGFESpecularLightingElement as GHCJS.DOM.SVGFESpecularLightingElement+          , GHCJS.DOM.JSFFI.Generated.SVGFESpotLightElement as GHCJS.DOM.SVGFESpotLightElement+          , GHCJS.DOM.JSFFI.Generated.SVGFETileElement as GHCJS.DOM.SVGFETileElement+          , GHCJS.DOM.JSFFI.Generated.SVGFETurbulenceElement as GHCJS.DOM.SVGFETurbulenceElement+          , GHCJS.DOM.JSFFI.Generated.SVGFilterElement as GHCJS.DOM.SVGFilterElement+          , GHCJS.DOM.JSFFI.Generated.SVGFilterPrimitiveStandardAttributes as GHCJS.DOM.SVGFilterPrimitiveStandardAttributes+          , GHCJS.DOM.JSFFI.Generated.SVGFitToViewBox as GHCJS.DOM.SVGFitToViewBox+          , GHCJS.DOM.JSFFI.Generated.SVGForeignObjectElement as GHCJS.DOM.SVGForeignObjectElement+          , GHCJS.DOM.JSFFI.Generated.SVGGlyphRefElement as GHCJS.DOM.SVGGlyphRefElement+          , GHCJS.DOM.JSFFI.Generated.SVGGradientElement as GHCJS.DOM.SVGGradientElement+          , GHCJS.DOM.JSFFI.Generated.SVGGraphicsElement as GHCJS.DOM.SVGGraphicsElement+          , GHCJS.DOM.JSFFI.Generated.SVGImageElement as GHCJS.DOM.SVGImageElement+          , GHCJS.DOM.JSFFI.Generated.SVGLength as GHCJS.DOM.SVGLength+          , GHCJS.DOM.JSFFI.Generated.SVGLengthList as GHCJS.DOM.SVGLengthList+          , GHCJS.DOM.JSFFI.Generated.SVGLineElement as GHCJS.DOM.SVGLineElement+          , GHCJS.DOM.JSFFI.Generated.SVGLinearGradientElement as GHCJS.DOM.SVGLinearGradientElement+          , GHCJS.DOM.JSFFI.Generated.SVGMarkerElement as GHCJS.DOM.SVGMarkerElement+          , GHCJS.DOM.JSFFI.Generated.SVGMaskElement as GHCJS.DOM.SVGMaskElement+          , GHCJS.DOM.JSFFI.Generated.SVGMatrix as GHCJS.DOM.SVGMatrix+          , GHCJS.DOM.JSFFI.Generated.SVGNumber as GHCJS.DOM.SVGNumber+          , GHCJS.DOM.JSFFI.Generated.SVGNumberList as GHCJS.DOM.SVGNumberList+          , GHCJS.DOM.JSFFI.Generated.SVGPaint as GHCJS.DOM.SVGPaint+          , GHCJS.DOM.JSFFI.Generated.SVGPathElement as GHCJS.DOM.SVGPathElement+          , GHCJS.DOM.JSFFI.Generated.SVGPathSeg as GHCJS.DOM.SVGPathSeg+          , GHCJS.DOM.JSFFI.Generated.SVGPathSegArcAbs as GHCJS.DOM.SVGPathSegArcAbs+          , GHCJS.DOM.JSFFI.Generated.SVGPathSegArcRel as GHCJS.DOM.SVGPathSegArcRel+          , GHCJS.DOM.JSFFI.Generated.SVGPathSegCurvetoCubicAbs as GHCJS.DOM.SVGPathSegCurvetoCubicAbs+          , GHCJS.DOM.JSFFI.Generated.SVGPathSegCurvetoCubicRel as GHCJS.DOM.SVGPathSegCurvetoCubicRel+          , GHCJS.DOM.JSFFI.Generated.SVGPathSegCurvetoCubicSmoothAbs as GHCJS.DOM.SVGPathSegCurvetoCubicSmoothAbs+          , GHCJS.DOM.JSFFI.Generated.SVGPathSegCurvetoCubicSmoothRel as GHCJS.DOM.SVGPathSegCurvetoCubicSmoothRel+          , GHCJS.DOM.JSFFI.Generated.SVGPathSegCurvetoQuadraticAbs as GHCJS.DOM.SVGPathSegCurvetoQuadraticAbs+          , GHCJS.DOM.JSFFI.Generated.SVGPathSegCurvetoQuadraticRel as GHCJS.DOM.SVGPathSegCurvetoQuadraticRel+          , GHCJS.DOM.JSFFI.Generated.SVGPathSegCurvetoQuadraticSmoothAbs as GHCJS.DOM.SVGPathSegCurvetoQuadraticSmoothAbs+          , GHCJS.DOM.JSFFI.Generated.SVGPathSegCurvetoQuadraticSmoothRel as GHCJS.DOM.SVGPathSegCurvetoQuadraticSmoothRel+          , GHCJS.DOM.JSFFI.Generated.SVGPathSegLinetoAbs as GHCJS.DOM.SVGPathSegLinetoAbs+          , GHCJS.DOM.JSFFI.Generated.SVGPathSegLinetoHorizontalAbs as GHCJS.DOM.SVGPathSegLinetoHorizontalAbs+          , GHCJS.DOM.JSFFI.Generated.SVGPathSegLinetoHorizontalRel as GHCJS.DOM.SVGPathSegLinetoHorizontalRel+          , GHCJS.DOM.JSFFI.Generated.SVGPathSegLinetoRel as GHCJS.DOM.SVGPathSegLinetoRel+          , GHCJS.DOM.JSFFI.Generated.SVGPathSegLinetoVerticalAbs as GHCJS.DOM.SVGPathSegLinetoVerticalAbs+          , GHCJS.DOM.JSFFI.Generated.SVGPathSegLinetoVerticalRel as GHCJS.DOM.SVGPathSegLinetoVerticalRel+          , GHCJS.DOM.JSFFI.Generated.SVGPathSegList as GHCJS.DOM.SVGPathSegList+          , GHCJS.DOM.JSFFI.Generated.SVGPathSegMovetoAbs as GHCJS.DOM.SVGPathSegMovetoAbs+          , GHCJS.DOM.JSFFI.Generated.SVGPathSegMovetoRel as GHCJS.DOM.SVGPathSegMovetoRel+          , GHCJS.DOM.JSFFI.Generated.SVGPatternElement as GHCJS.DOM.SVGPatternElement+          , GHCJS.DOM.JSFFI.Generated.SVGPoint as GHCJS.DOM.SVGPoint+          , GHCJS.DOM.JSFFI.Generated.SVGPointList as GHCJS.DOM.SVGPointList+          , GHCJS.DOM.JSFFI.Generated.SVGPolygonElement as GHCJS.DOM.SVGPolygonElement+          , GHCJS.DOM.JSFFI.Generated.SVGPolylineElement as GHCJS.DOM.SVGPolylineElement+          , GHCJS.DOM.JSFFI.Generated.SVGPreserveAspectRatio as GHCJS.DOM.SVGPreserveAspectRatio+          , GHCJS.DOM.JSFFI.Generated.SVGRadialGradientElement as GHCJS.DOM.SVGRadialGradientElement+          , GHCJS.DOM.JSFFI.Generated.SVGRect as GHCJS.DOM.SVGRect+          , GHCJS.DOM.JSFFI.Generated.SVGRectElement as GHCJS.DOM.SVGRectElement+          , GHCJS.DOM.JSFFI.Generated.SVGRenderingIntent as GHCJS.DOM.SVGRenderingIntent+          , GHCJS.DOM.JSFFI.Generated.SVGSVGElement as GHCJS.DOM.SVGSVGElement+          , GHCJS.DOM.JSFFI.Generated.SVGScriptElement as GHCJS.DOM.SVGScriptElement+          , GHCJS.DOM.JSFFI.Generated.SVGStopElement as GHCJS.DOM.SVGStopElement+          , GHCJS.DOM.JSFFI.Generated.SVGStringList as GHCJS.DOM.SVGStringList+          , GHCJS.DOM.JSFFI.Generated.SVGStyleElement as GHCJS.DOM.SVGStyleElement+          , GHCJS.DOM.JSFFI.Generated.SVGTests as GHCJS.DOM.SVGTests+          , GHCJS.DOM.JSFFI.Generated.SVGTextContentElement as GHCJS.DOM.SVGTextContentElement+          , GHCJS.DOM.JSFFI.Generated.SVGTextPathElement as GHCJS.DOM.SVGTextPathElement+          , GHCJS.DOM.JSFFI.Generated.SVGTextPositioningElement as GHCJS.DOM.SVGTextPositioningElement+          , GHCJS.DOM.JSFFI.Generated.SVGTransform as GHCJS.DOM.SVGTransform+          , GHCJS.DOM.JSFFI.Generated.SVGTransformList as GHCJS.DOM.SVGTransformList+          , GHCJS.DOM.JSFFI.Generated.SVGURIReference as GHCJS.DOM.SVGURIReference+          , GHCJS.DOM.JSFFI.Generated.SVGUnitTypes as GHCJS.DOM.SVGUnitTypes+          , GHCJS.DOM.JSFFI.Generated.SVGUseElement as GHCJS.DOM.SVGUseElement+          , GHCJS.DOM.JSFFI.Generated.SVGViewElement as GHCJS.DOM.SVGViewElement+          , GHCJS.DOM.JSFFI.Generated.SVGViewSpec as GHCJS.DOM.SVGViewSpec+          , GHCJS.DOM.JSFFI.Generated.SVGZoomAndPan as GHCJS.DOM.SVGZoomAndPan+          , GHCJS.DOM.JSFFI.Generated.SVGZoomEvent as GHCJS.DOM.SVGZoomEvent+          , GHCJS.DOM.JSFFI.Generated.Screen as GHCJS.DOM.Screen+          , GHCJS.DOM.JSFFI.Generated.ScriptProcessorNode as GHCJS.DOM.ScriptProcessorNode+          , GHCJS.DOM.JSFFI.Generated.ScriptProfile as GHCJS.DOM.ScriptProfile+          , GHCJS.DOM.JSFFI.Generated.ScriptProfileNode as GHCJS.DOM.ScriptProfileNode+          , GHCJS.DOM.JSFFI.Generated.SecurityPolicy as GHCJS.DOM.SecurityPolicy+          , GHCJS.DOM.JSFFI.Generated.SecurityPolicyViolationEvent as GHCJS.DOM.SecurityPolicyViolationEvent+          , GHCJS.DOM.JSFFI.Generated.Selection as GHCJS.DOM.Selection+          , GHCJS.DOM.JSFFI.Generated.SourceBuffer as GHCJS.DOM.SourceBuffer+          , GHCJS.DOM.JSFFI.Generated.SourceBufferList as GHCJS.DOM.SourceBufferList+          , GHCJS.DOM.JSFFI.Generated.SourceInfo as GHCJS.DOM.SourceInfo+          , GHCJS.DOM.JSFFI.Generated.SpeechSynthesis as GHCJS.DOM.SpeechSynthesis+          , GHCJS.DOM.JSFFI.Generated.SpeechSynthesisEvent as GHCJS.DOM.SpeechSynthesisEvent+          , GHCJS.DOM.JSFFI.Generated.SpeechSynthesisUtterance as GHCJS.DOM.SpeechSynthesisUtterance+          , GHCJS.DOM.JSFFI.Generated.SpeechSynthesisVoice as GHCJS.DOM.SpeechSynthesisVoice+          , GHCJS.DOM.JSFFI.Generated.Storage as GHCJS.DOM.Storage+          , GHCJS.DOM.JSFFI.Generated.StorageErrorCallback as GHCJS.DOM.StorageErrorCallback+          , GHCJS.DOM.JSFFI.Generated.StorageEvent as GHCJS.DOM.StorageEvent+          , GHCJS.DOM.JSFFI.Generated.StorageInfo as GHCJS.DOM.StorageInfo+          , GHCJS.DOM.JSFFI.Generated.StorageQuota as GHCJS.DOM.StorageQuota+          , GHCJS.DOM.JSFFI.Generated.StorageQuotaCallback as GHCJS.DOM.StorageQuotaCallback+          , GHCJS.DOM.JSFFI.Generated.StorageUsageCallback as GHCJS.DOM.StorageUsageCallback+          , GHCJS.DOM.JSFFI.Generated.StringCallback as GHCJS.DOM.StringCallback+          , GHCJS.DOM.JSFFI.Generated.StyleMedia as GHCJS.DOM.StyleMedia+          , GHCJS.DOM.JSFFI.Generated.StyleSheet as GHCJS.DOM.StyleSheet+          , GHCJS.DOM.JSFFI.Generated.StyleSheetList as GHCJS.DOM.StyleSheetList+          , GHCJS.DOM.JSFFI.Generated.SubtleCrypto as GHCJS.DOM.SubtleCrypto+          , GHCJS.DOM.JSFFI.Generated.Text as GHCJS.DOM.Text+          , GHCJS.DOM.JSFFI.Generated.TextEvent as GHCJS.DOM.TextEvent+          , GHCJS.DOM.JSFFI.Generated.TextMetrics as GHCJS.DOM.TextMetrics+          , GHCJS.DOM.JSFFI.Generated.TextTrack as GHCJS.DOM.TextTrack+          , GHCJS.DOM.JSFFI.Generated.TextTrackCue as GHCJS.DOM.TextTrackCue+          , GHCJS.DOM.JSFFI.Generated.TextTrackCueList as GHCJS.DOM.TextTrackCueList+          , GHCJS.DOM.JSFFI.Generated.TextTrackList as GHCJS.DOM.TextTrackList+          , GHCJS.DOM.JSFFI.Generated.TimeRanges as GHCJS.DOM.TimeRanges+          , GHCJS.DOM.JSFFI.Generated.Touch as GHCJS.DOM.Touch+          , GHCJS.DOM.JSFFI.Generated.TouchEvent as GHCJS.DOM.TouchEvent+          , GHCJS.DOM.JSFFI.Generated.TouchList as GHCJS.DOM.TouchList+          , GHCJS.DOM.JSFFI.Generated.TrackEvent as GHCJS.DOM.TrackEvent+          , GHCJS.DOM.JSFFI.Generated.TransitionEvent as GHCJS.DOM.TransitionEvent+          , GHCJS.DOM.JSFFI.Generated.TreeWalker as GHCJS.DOM.TreeWalker+          , GHCJS.DOM.JSFFI.Generated.TypeConversions as GHCJS.DOM.TypeConversions+          , GHCJS.DOM.JSFFI.Generated.UIEvent as GHCJS.DOM.UIEvent+          , GHCJS.DOM.JSFFI.Generated.UIRequestEvent as GHCJS.DOM.UIRequestEvent+          , GHCJS.DOM.JSFFI.Generated.URL as GHCJS.DOM.URL+          , GHCJS.DOM.JSFFI.Generated.URLUtils as GHCJS.DOM.URLUtils+          , GHCJS.DOM.JSFFI.Generated.UserMessageHandler as GHCJS.DOM.UserMessageHandler+          , GHCJS.DOM.JSFFI.Generated.VTTCue as GHCJS.DOM.VTTCue+          , GHCJS.DOM.JSFFI.Generated.VTTRegion as GHCJS.DOM.VTTRegion+          , GHCJS.DOM.JSFFI.Generated.VTTRegionList as GHCJS.DOM.VTTRegionList+          , GHCJS.DOM.JSFFI.Generated.ValidityState as GHCJS.DOM.ValidityState+          , GHCJS.DOM.JSFFI.Generated.VideoPlaybackQuality as GHCJS.DOM.VideoPlaybackQuality+          , GHCJS.DOM.JSFFI.Generated.VideoStreamTrack as GHCJS.DOM.VideoStreamTrack+          , GHCJS.DOM.JSFFI.Generated.VideoTrack as GHCJS.DOM.VideoTrack+          , GHCJS.DOM.JSFFI.Generated.VideoTrackList as GHCJS.DOM.VideoTrackList+          , GHCJS.DOM.JSFFI.Generated.VoidCallback as GHCJS.DOM.VoidCallback+          , GHCJS.DOM.JSFFI.Generated.WaveShaperNode as GHCJS.DOM.WaveShaperNode+          , GHCJS.DOM.JSFFI.Generated.WebGL2RenderingContext as GHCJS.DOM.WebGL2RenderingContext+          , GHCJS.DOM.JSFFI.Generated.WebGLActiveInfo as GHCJS.DOM.WebGLActiveInfo+          , GHCJS.DOM.JSFFI.Generated.WebGLCompressedTextureATC as GHCJS.DOM.WebGLCompressedTextureATC+          , GHCJS.DOM.JSFFI.Generated.WebGLCompressedTexturePVRTC as GHCJS.DOM.WebGLCompressedTexturePVRTC+          , GHCJS.DOM.JSFFI.Generated.WebGLCompressedTextureS3TC as GHCJS.DOM.WebGLCompressedTextureS3TC+          , GHCJS.DOM.JSFFI.Generated.WebGLContextAttributes as GHCJS.DOM.WebGLContextAttributes+          , GHCJS.DOM.JSFFI.Generated.WebGLContextEvent as GHCJS.DOM.WebGLContextEvent+          , GHCJS.DOM.JSFFI.Generated.WebGLDebugRendererInfo as GHCJS.DOM.WebGLDebugRendererInfo+          , GHCJS.DOM.JSFFI.Generated.WebGLDebugShaders as GHCJS.DOM.WebGLDebugShaders+          , GHCJS.DOM.JSFFI.Generated.WebGLDepthTexture as GHCJS.DOM.WebGLDepthTexture+          , GHCJS.DOM.JSFFI.Generated.WebGLDrawBuffers as GHCJS.DOM.WebGLDrawBuffers+          , GHCJS.DOM.JSFFI.Generated.WebGLLoseContext as GHCJS.DOM.WebGLLoseContext+          , GHCJS.DOM.JSFFI.Generated.WebGLRenderingContextBase as GHCJS.DOM.WebGLRenderingContextBase+          , GHCJS.DOM.JSFFI.Generated.WebGLShaderPrecisionFormat as GHCJS.DOM.WebGLShaderPrecisionFormat+          , GHCJS.DOM.JSFFI.Generated.WebKitAnimationEvent as GHCJS.DOM.WebKitAnimationEvent+          , GHCJS.DOM.JSFFI.Generated.WebKitCSSFilterValue as GHCJS.DOM.WebKitCSSFilterValue+          , GHCJS.DOM.JSFFI.Generated.WebKitCSSMatrix as GHCJS.DOM.WebKitCSSMatrix+          , GHCJS.DOM.JSFFI.Generated.WebKitCSSRegionRule as GHCJS.DOM.WebKitCSSRegionRule+          , GHCJS.DOM.JSFFI.Generated.WebKitCSSTransformValue as GHCJS.DOM.WebKitCSSTransformValue+          , GHCJS.DOM.JSFFI.Generated.WebKitCSSViewportRule as GHCJS.DOM.WebKitCSSViewportRule+          , GHCJS.DOM.JSFFI.Generated.WebKitNamedFlow as GHCJS.DOM.WebKitNamedFlow+          , GHCJS.DOM.JSFFI.Generated.WebKitNamespace as GHCJS.DOM.WebKitNamespace+          , GHCJS.DOM.JSFFI.Generated.WebKitPlaybackTargetAvailabilityEvent as GHCJS.DOM.WebKitPlaybackTargetAvailabilityEvent+          , GHCJS.DOM.JSFFI.Generated.WebKitPoint as GHCJS.DOM.WebKitPoint+          , GHCJS.DOM.JSFFI.Generated.WebKitTransitionEvent as GHCJS.DOM.WebKitTransitionEvent+          , GHCJS.DOM.JSFFI.Generated.WebSocket as GHCJS.DOM.WebSocket+          , GHCJS.DOM.JSFFI.Generated.WheelEvent as GHCJS.DOM.WheelEvent+          , GHCJS.DOM.JSFFI.Window as GHCJS.DOM.Window+          , GHCJS.DOM.JSFFI.Generated.WindowBase64 as GHCJS.DOM.WindowBase64+          , GHCJS.DOM.JSFFI.Generated.WindowTimers as GHCJS.DOM.WindowTimers+          , GHCJS.DOM.JSFFI.Generated.Worker as GHCJS.DOM.Worker+          , GHCJS.DOM.JSFFI.Generated.WorkerGlobalScope as GHCJS.DOM.WorkerGlobalScope+          , GHCJS.DOM.JSFFI.Generated.WorkerLocation as GHCJS.DOM.WorkerLocation+          , GHCJS.DOM.JSFFI.Generated.WorkerNavigator as GHCJS.DOM.WorkerNavigator+          , GHCJS.DOM.JSFFI.XMLHttpRequest as GHCJS.DOM.XMLHttpRequest+          , GHCJS.DOM.JSFFI.Generated.XMLHttpRequestProgressEvent as GHCJS.DOM.XMLHttpRequestProgressEvent+          , GHCJS.DOM.JSFFI.Generated.XMLHttpRequestUpload as GHCJS.DOM.XMLHttpRequestUpload+          , GHCJS.DOM.JSFFI.Generated.XMLSerializer as GHCJS.DOM.XMLSerializer+          , GHCJS.DOM.JSFFI.Generated.XPathEvaluator as GHCJS.DOM.XPathEvaluator+          , GHCJS.DOM.JSFFI.Generated.XPathExpression as GHCJS.DOM.XPathExpression+          , GHCJS.DOM.JSFFI.Generated.XPathNSResolver as GHCJS.DOM.XPathNSResolver+          , GHCJS.DOM.JSFFI.Generated.XPathResult as GHCJS.DOM.XPathResult+          , GHCJS.DOM.JSFFI.Generated.XSLTProcessor as GHCJS.DOM.XSLTProcessor
+ 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
@@ -0,0 +1,167 @@+{-# LANGUAGE CPP, ForeignFunctionInterface, OverloadedStrings #-}+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+{-# LANGUAGE JavaScriptFFI #-}+#endif+module GHCJS.DOM (+  currentWindow+, currentDocument+, WebView(..)+, webViewGetDomDocument+, runWebGUI+, enableInspector+, postGUISync+, postGUIAsync+) where++import qualified Data.Text as T+import Data.Monoid ((<>))+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.Types (JSVal(..))+import Control.Applicative ((<$>))+#else+import Graphics.UI.Gtk.WebKit.WebView+       (webViewSetWebSettings, webViewGetWebSettings, loadStarted,+        webViewLoadUri, loadFinished, webViewNew, webViewGetDomDocument,+        webViewGetInspector)+import Graphics.UI.Gtk.WebKit.WebInspector+       (showWindow, inspectWebView)+import Graphics.UI.Gtk+       (timeoutAddFull, widgetShowAll, mainQuit, objectDestroy,+        WindowPosition(..), containerAdd, scrolledWindowNew,+        windowSetPosition, windowSetDefaultSize, windowNew, mainGUI,+        initGUI, postGUISync, postGUIAsync)+import System.Glib.Signals (on)+import System.Glib.Attributes (get, AttrOp(..), set)+import System.Glib.FFI (maybeNull)+import System.Glib.MainLoop (priorityLow)+import Graphics.UI.Gtk.WebKit.WebSettings+       (webSettingsMonospaceFontFamily, webSettingsUserAgent,+        webSettingsEnableDeveloperExtras)+import Control.Monad.IO.Class (liftIO)+#endif++import GHCJS.DOM.Types+import GHCJS.DOM.JSFFI.Generated.Window (getNavigator, getDocument)+import GHCJS.DOM.JSFFI.Generated.Navigator (getUserAgent)+import Foreign (ForeignPtr, nullPtr, Ptr)+import Control.Monad (unless, forever, liftM)+import Control.Concurrent+       (yield, threadDelay, takeMVar, newEmptyMVar)+import System.Environment (getArgs)+import Data.List (isSuffixOf)++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+postGUIAsync :: IO () -> IO ()+postGUIAsync = id++postGUISync :: IO a -> IO a+postGUISync = id++#ifdef ghcjs_HOST_OS+foreign import javascript unsafe "$r = window"+  ghcjs_currentWindow :: IO (Nullable Window)+foreign import javascript unsafe "$r = document"+  ghcjs_currentDocument :: IO (Nullable Document)+#else+ghcjs_currentWindow :: IO (Nullable Window)+ghcjs_currentWindow = undefined+ghcjs_currentDocument :: IO (Nullable Document)+ghcjs_currentDocument = undefined+#endif++currentWindow :: IO (Maybe Window)+currentWindow = nullableToMaybe <$> ghcjs_currentWindow+currentDocument :: IO (Maybe Document)+currentDocument = nullableToMaybe <$> ghcjs_currentDocument++type WebView = Window+castToWebView = id++webViewGetDomDocument :: Window -> IO (Maybe Document)+webViewGetDomDocument = getDocument+#else+foreign import ccall safe "ghcjs_currentWindow"+  ghcjs_currentWindow :: IO (Ptr Window)++currentWindow :: IO (Maybe Window)+currentWindow = maybeNull (makeNewGObject mkWindow) ghcjs_currentWindow++foreign import ccall unsafe "ghcjs_currentDocument"+  ghcjs_currentDocument :: IO (Ptr Document)++currentDocument :: IO (Maybe Document)+currentDocument = maybeNull (makeNewGObject mkDocument) ghcjs_currentDocument+#endif++runWebGUI :: (WebView -> IO ()) -> IO ()+runWebGUI = runWebGUI' "GHCJS"++runWebGUI' :: T.Text -> (WebView -> IO ()) -> IO ()+runWebGUI' userAgentKey main = do+  -- Are we in a java script inside some kind of browser+  mbWindow <- currentWindow+  case mbWindow of+    Just window -> do+      -- Check if we are running in javascript inside the the native version+      Just n <- getNavigator window+      agent <- getUserAgent n+      unless ((" " <> userAgentKey) `T.isSuffixOf` agent) $ main (castToWebView window)+    Nothing -> do+      makeDefaultWebView userAgentKey main++makeDefaultWebView :: T.Text -> (WebView -> IO ()) -> IO ()+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+makeDefaultWebView _ _ = error "Unsupported makeDefaultWebView"+#else+makeDefaultWebView userAgentKey main = do+  initGUI+  window <- windowNew+  timeoutAddFull (yield >> return True) priorityLow 10+  windowSetDefaultSize window 900 600+  windowSetPosition window WinPosCenter+  scrollWin <- scrolledWindowNew Nothing Nothing+  webView <- webViewNew+  settings <- webViewGetWebSettings webView+  userAgent <- settings `get` webSettingsUserAgent+  settings `set` [webSettingsUserAgent := userAgent <> " " <> userAgentKey]+  webViewSetWebSettings webView settings+  window `containerAdd` scrollWin+  scrollWin `containerAdd` webView+  on window objectDestroy . liftIO $ mainQuit+  widgetShowAll window+  webView `on` loadFinished $ \frame -> do+    main webView+  args <- getArgs+  case args of+    uri:_ -> webViewLoadUri webView (T.pack uri)+    []    -> do+      main webView+  mainGUI+#endif++enableInspector :: WebView -> IO ()+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+enableInspector _ = return ()+#else+enableInspector webView = do+  settings <- webViewGetWebSettings webView+  settings `set` [webSettingsEnableDeveloperExtras := True]+  webViewSetWebSettings webView settings+  inspector <- webViewGetInspector webView+  window <- windowNew+  windowSetDefaultSize window 900 300+  scrollWin <- scrolledWindowNew Nothing Nothing+  inspector `on` inspectWebView $ \view -> do+    inspectorView <- webViewNew+    settings <- webViewGetWebSettings inspectorView+    settings `set` [webSettingsMonospaceFontFamily := ("Consolas" :: String)]+    webViewSetWebSettings inspectorView settings+    scrollWin `containerAdd` inspectorView+    window `containerAdd` scrollWin+    widgetShowAll window+    return inspectorView+  inspector `on` showWindow $ do+    widgetShowAll window+    return True+  return ()+#endif
+ src/GHCJS/DOM/EventM.hs view
@@ -0,0 +1,297 @@+{-# LANGUAGE ConstraintKinds #-}+module GHCJS.DOM.EventM+(+  EventM(..)+, SaferEventListener(..)+, EventName+, newListener+, newListenerSync+, newListenerAsync+, addListener+, removeListener+, releaseListener+, on+, event+, eventTarget+, target+, eventCurrentTarget+, eventPhase+, bubbles+, cancelable+, timeStamp+, stopPropagation+, preventDefault+, defaultPrevented+, stopImmediatePropagation+, srcElement+, getCancelBubble+, cancelBubble+, getReturnValue+, returnValue+, uiView+, uiDetail+, uiKeyCode+, uiCharCode+, uiLayerX+, uiLayerY+, uiLayerXY+, uiPageX+, uiPageY+, uiPageXY+, uiWhich+, mouseScreenX+, mouseScreenY+, mouseScreenXY+, mouseClientX+, mouseClientY+, mouseClientXY+, mouseMovementX+, mouseMovementY+, mouseMovementXY+, mouseCtrlKey+, mouseShiftKey+, mouseAltKey+, mouseMetaKey+, mouseButton+, mouseRelatedTarget+, mouseOffsetX+, mouseOffsetY+, mouseOffsetXY+, mouseX+, mouseY+, mouseXY+, mouseFromElement+, mouseToElement+)+where+import           Control.Applicative ((<$>))+import           Control.Monad.Trans.Reader (ReaderT, ask, runReaderT)+import           Control.Monad.IO.Class (MonadIO(..))+import           GHCJS.DOM.Types+import qualified GHCJS.DOM.JSFFI.Generated.Event as Event+import qualified GHCJS.DOM.JSFFI.Generated.UIEvent as UIEvent+import qualified GHCJS.DOM.JSFFI.Generated.MouseEvent as MouseEvent+import           GHCJS.DOM.JSFFI.Generated.EventTarget+import           GHCJS.DOM.EventTargetClosures+import           Data.Word (Word)+import           Data.Foldable (forM_)++type EventM t e = ReaderT e IO++newListener :: (IsEvent e) => EventM t e () -> IO (SaferEventListener t e)+newListener f = SaferEventListener <$> eventListenerNew (runReaderT f)++newListenerSync :: (IsEvent e) => EventM t e () -> IO (SaferEventListener t e)+newListenerSync f = SaferEventListener <$> eventListenerNewSync (runReaderT f)++newListenerAsync :: (IsEvent e) => EventM t e () -> IO (SaferEventListener t e)+newListenerAsync f = SaferEventListener <$> eventListenerNewAsync (runReaderT f)++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++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++releaseListener :: (IsEventTarget t, IsEvent e) => SaferEventListener t e -> IO ()+releaseListener (SaferEventListener l) = eventListenerRelease l++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 >> releaseListener l)++onThese :: (IsEventTarget t, IsEvent e) => [(t, EventName t e)] -> EventM t e () -> IO (IO ())+onThese targetsAndEventNames callback = do+    l <- newListener callback+    forM_ targetsAndEventNames $ \(target, eventName) ->+        addListener target eventName l False+    return (do+        forM_ targetsAndEventNames (\(target, eventName) ->+            removeListener target eventName l False)+        releaseListener l)++event :: EventM t e e+event = ask++eventTarget :: IsEvent e => EventM t e (Maybe EventTarget)+eventTarget = event >>= Event.getTarget++target :: (IsEvent e, IsGObject t) => EventM t e (Maybe t)+target = (fmap (unsafeCastGObject . toGObject)) <$> eventTarget++eventCurrentTarget :: IsEvent e => EventM t e (Maybe EventTarget)+eventCurrentTarget = event >>= Event.getCurrentTarget++eventPhase :: IsEvent e => EventM t e Word+eventPhase = event >>= Event.getEventPhase++bubbles :: IsEvent e => EventM t e Bool+bubbles = event >>= Event.getBubbles++cancelable :: IsEvent e => EventM t e Bool+cancelable = event >>= Event.getCancelable++timeStamp :: IsEvent e => EventM t e Word+timeStamp = event >>= Event.getTimeStamp++stopPropagation :: IsEvent e => EventM t e ()+stopPropagation = event >>= Event.stopPropagation++preventDefault :: IsEvent e => EventM t e ()+preventDefault = event >>= Event.preventDefault++defaultPrevented :: IsEvent e => EventM t e Bool+defaultPrevented = event >>= Event.getDefaultPrevented++stopImmediatePropagation :: IsEvent e => EventM t e ()+stopImmediatePropagation = event >>= Event.stopImmediatePropagation++srcElement :: IsEvent e => EventM t e (Maybe EventTarget)+srcElement = event >>= Event.getSrcElement++getCancelBubble :: IsEvent e => EventM t e Bool+getCancelBubble = event >>= Event.getCancelBubble++cancelBubble :: IsEvent e => Bool -> EventM t e ()+cancelBubble f = event >>= flip Event.setCancelBubble f++getReturnValue :: IsEvent e => EventM t e Bool+getReturnValue = event >>= Event.getReturnValue++returnValue :: IsEvent e => Bool -> EventM t e ()+returnValue f = event >>= flip Event.setReturnValue f++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+    x <- UIEvent.getLayerX e+    y <- UIEvent.getLayerY e+    return (x, y)++uiPageX :: IsUIEvent e => EventM t e Int+uiPageX = event >>= UIEvent.getPageX++uiPageY :: IsUIEvent e => EventM t e Int+uiPageY = event >>= UIEvent.getPageY++uiPageXY :: IsUIEvent e => EventM t e (Int, Int)+uiPageXY = do+    e <- event+    x <- UIEvent.getPageX e+    y <- UIEvent.getPageY e+    return (x, y)++uiWhich :: IsUIEvent e => EventM t e Int+uiWhich = event >>= UIEvent.getWhich++mouseScreenX :: IsMouseEvent e => EventM t e Int+mouseScreenX = event >>= MouseEvent.getScreenX++mouseScreenY :: IsMouseEvent e => EventM t e Int+mouseScreenY = event >>= MouseEvent.getScreenY++mouseScreenXY :: IsMouseEvent e => EventM t e (Int, Int)+mouseScreenXY = do+    e <- event+    x <- MouseEvent.getScreenX e+    y <- MouseEvent.getScreenY e+    return (x, y)++mouseClientX :: IsMouseEvent e => EventM t e Int+mouseClientX = event >>= MouseEvent.getClientX++mouseClientY :: IsMouseEvent e => EventM t e Int+mouseClientY = event >>= MouseEvent.getClientY++mouseClientXY :: IsMouseEvent e => EventM t e (Int, Int)+mouseClientXY = do+    e <- event+    x <- MouseEvent.getClientX e+    y <- MouseEvent.getClientY e+    return (x, y)++mouseMovementX :: IsMouseEvent e => EventM t e Int+mouseMovementX = event >>= MouseEvent.getMovementX++mouseMovementY :: IsMouseEvent e => EventM t e Int+mouseMovementY = event >>= MouseEvent.getMovementY++mouseMovementXY :: IsMouseEvent e => EventM t e (Int, Int)+mouseMovementXY = do+    e <- event+    x <- MouseEvent.getMovementX e+    y <- MouseEvent.getMovementY e+    return (x, y)++mouseCtrlKey :: IsMouseEvent e => EventM t e Bool+mouseCtrlKey = event >>= MouseEvent.getCtrlKey++mouseShiftKey :: IsMouseEvent e => EventM t e Bool+mouseShiftKey = event >>= MouseEvent.getShiftKey++mouseAltKey :: IsMouseEvent e => EventM t e Bool+mouseAltKey = event >>= MouseEvent.getAltKey++mouseMetaKey :: IsMouseEvent e => EventM t e Bool+mouseMetaKey = event >>= MouseEvent.getMetaKey++mouseButton :: IsMouseEvent e => EventM t e Word+mouseButton = event >>= MouseEvent.getButton++mouseRelatedTarget :: IsMouseEvent e => EventM t e (Maybe EventTarget)+mouseRelatedTarget = event >>= MouseEvent.getRelatedTarget++mouseOffsetX :: IsMouseEvent e => EventM t e Int+mouseOffsetX = event >>= MouseEvent.getOffsetX++mouseOffsetY :: IsMouseEvent e => EventM t e Int+mouseOffsetY = event >>= MouseEvent.getOffsetY++mouseOffsetXY :: IsMouseEvent e => EventM t e (Int, Int)+mouseOffsetXY = do+    e <- event+    x <- MouseEvent.getOffsetX e+    y <- MouseEvent.getOffsetY e+    return (x, y)++mouseX :: IsMouseEvent e => EventM t e Int+mouseX = event >>= MouseEvent.getX++mouseY :: IsMouseEvent e => EventM t e Int+mouseY = event >>= MouseEvent.getY++mouseXY :: IsMouseEvent e => EventM t e (Int, Int)+mouseXY = do+    e <- event+    x <- MouseEvent.getX e+    y <- MouseEvent.getY e+    return (x, y)++mouseFromElement :: IsMouseEvent e => EventM t e (Maybe Node)+mouseFromElement = event >>= MouseEvent.getFromElement++mouseToElement :: IsMouseEvent e => EventM t e (Maybe Node)+mouseToElement = event >>= MouseEvent.getToElement+
+ src/GHCJS/DOM/EventTargetClosures.hs view
@@ -0,0 +1,37 @@+{-# LANGUAGE JavaScriptFFI, ForeignFunctionInterface #-}+module GHCJS.DOM.EventTargetClosures+       (EventName(..), SaferEventListener(..), unsafeEventName, eventListenerNew, eventListenerNewSync, eventListenerNewAsync, eventListenerRelease) where++import Control.Applicative ((<$>))+import GHCJS.Types+import GHCJS.Foreign.Callback.Internal+import GHCJS.Foreign.Callback+import GHCJS.Marshal.Pure+import GHCJS.DOM.Types+import GHCJS.Foreign.Callback.Internal++newtype EventName t e = EventName DOMString+newtype SaferEventListener t e = SaferEventListener EventListener++instance PToJSVal (SaferEventListener t e) where+    pToJSVal (SaferEventListener l) = pToJSVal l+    {-# INLINE pToJSVal #-}++instance PFromJSVal (SaferEventListener t e) where+    pFromJSVal = SaferEventListener . pFromJSVal+    {-# INLINE pFromJSVal #-}++unsafeEventName :: DOMString -> EventName t e+unsafeEventName = EventName++eventListenerNew :: IsEvent event => (event -> IO ()) -> IO EventListener+eventListenerNew callback = (EventListener . jsval) <$> syncCallback1 ContinueAsync (callback . unsafeCastGObject . GObject)++eventListenerNewSync :: IsEvent event => (event -> IO ()) -> IO EventListener+eventListenerNewSync callback = (EventListener . jsval) <$> syncCallback1 ThrowWouldBlock (callback . unsafeCastGObject . GObject)++eventListenerNewAsync :: IsEvent event => (event -> IO ()) -> IO EventListener+eventListenerNewAsync callback = (EventListener . jsval) <$> asyncCallback1 (callback . unsafeCastGObject . GObject)++eventListenerRelease :: EventListener -> IO ()+eventListenerRelease (EventListener ref) = releaseCallback (Callback ref)
+ 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 (JSVal)+import GHCJS.Foreign (jsNull)+import GHCJS.Marshal (fromJSVal, fromJSValUnchecked)+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 ::+        AudioContext -> ArrayBuffer -> IO (Nullable AudioBuffer)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.decodeAudioData Mozilla AudioContext.decodeAudioData documentation>+decodeAudioData :: (MonadIO m, IsAudioContext self, IsArrayBuffer audioData) =>+                   self -> audioData -> m AudioBuffer+decodeAudioData self audioData = liftIO $ nullableToMaybe <$> js_decodeAudioData+        (toAudioContext self)+        (toArrayBuffer audioData)+            >>= maybe (throwIO DecodeAudioError) return+
+ src/GHCJS/DOM/JSFFI/DOMError.hs 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,75 @@+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Database (+    module Generated+  , js_changeVersion+  , changeVersion'+  , changeVersion+  , js_transaction+  , transaction'+  , transaction+  , js_readTransaction+  , readTransaction'+  , readTransaction+) where++import Data.Maybe (fromJust, maybe)++import Control.Monad.IO.Class (MonadIO(..))+import Control.Exception (Exception, bracket)++import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (OnBlocked(..))+import GHCJS.Marshal (fromJSVal)+import GHCJS.Marshal.Pure (pToJSVal)+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)) (\(SQLTransactionCallback c) -> releaseCallback c)++foreign import javascript interruptible+        "$1[\"changeVersion\"]($2, $3, $4, $c, function() { $c(null); });"+        js_changeVersion :: Database -> JSString -> JSString -> Nullable SQLTransactionCallback -> IO (Nullable SQLError)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Database.changeVersion Mozilla Database.changeVersion documentation>+changeVersion' :: (MonadIO m, ToJSString oldVersion, ToJSString newVersion) =>+                  Database -> oldVersion -> newVersion -> Maybe (SQLTransaction -> IO ()) -> m (Maybe SQLError)+changeVersion' self oldVersion newVersion Nothing = liftIO $ nullableToMaybe <$>+    js_changeVersion self (toJSString oldVersion) (toJSString newVersion) (Nullable jsNull)+changeVersion' self oldVersion newVersion (Just callback) = liftIO $ nullableToMaybe <$>+    withSQLTransactionCallback callback+        (js_changeVersion self (toJSString oldVersion) (toJSString newVersion) . Nullable . pToJSVal)++changeVersion :: (MonadIO m, ToJSString oldVersion, ToJSString newVersion) =>+                 Database -> oldVersion -> newVersion -> Maybe (SQLTransaction -> IO ()) -> m ()+changeVersion self oldVersion newVersion callback =+    changeVersion' self oldVersion newVersion callback >>= maybe (return ()) throwSQLException++foreign import javascript interruptible "$1[\"transaction\"]($2, $c, function() { $c(null); });"+        js_transaction :: Database -> SQLTransactionCallback -> IO (Nullable SQLError)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Database.transaction Mozilla Database.transaction documentation>+transaction' :: (MonadIO m) => Database -> (SQLTransaction -> IO ()) -> m (Maybe SQLError)+transaction' self callback = liftIO $ nullableToMaybe <$>+    withSQLTransactionCallback callback+        (js_transaction self)++transaction :: (MonadIO m) => Database -> (SQLTransaction -> IO ()) -> m ()+transaction self callback = transaction' self callback >>= maybe (return ()) throwSQLException++foreign import javascript interruptible+        "$1[\"readTransaction\"]($2, $c, function() { $c(null); });"+        js_readTransaction :: Database -> SQLTransactionCallback -> IO (Nullable SQLError)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Database.readTransaction Mozilla Database.readTransaction documentation>+readTransaction' :: (MonadIO m) => Database -> (SQLTransaction -> IO ()) -> m (Maybe SQLError)+readTransaction' self callback = liftIO $ nullableToMaybe <$>+      withSQLTransactionCallback callback (js_readTransaction self)++readTransaction :: (MonadIO m) => Database -> (SQLTransaction -> IO ()) -> m ()+readTransaction self callback = readTransaction' self callback >>= maybe (return ()) throwSQLException
+ src/GHCJS/DOM/JSFFI/FormData.hs view
@@ -0,0 +1,40 @@+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.FormData (+    module Generated+  , js_append+  , js_append3+  , append+  , appendBlob+) where++import Control.Monad.IO.Class (MonadIO(..))++import GHCJS.Types (JSVal, JSString)+import GHCJS.Marshal.Internal (PToJSVal(..))+import GHCJS.DOM.Types++import GHCJS.DOM.JSFFI.Generated.FormData as Generated hiding (js_append, append)++foreign import javascript unsafe "$1[\"append\"]($2, $3)"+        js_append :: FormData -> JSString -> JSVal -> IO ()++foreign import javascript unsafe "$1[\"append\"]($2, $3, $4)"+        js_append3 :: FormData -> JSString -> JSVal -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FormData/append Mozilla FormData.append documentation>+append+  :: (MonadIO m, ToJSString name, ToJSString str)+  => FormData -> name -> str -> m ()+append self name str+  = liftIO $ js_append self (toJSString name) (pToJSVal str)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FormData/append Mozilla FormData.append documentation>+appendBlob+  :: (MonadIO m, ToJSString name, IsBlob blob, ToJSString filename)+  => FormData -> name -> blob -> Maybe filename -> m ()+appendBlob self name blob mfilename+  = let jsname = toJSString name+        jsblob = unBlob $ toBlob blob+    in liftIO $ case mfilename of+         Just filename -> js_append3 self jsname jsblob $ toJSString filename+         Nothing -> js_append self jsname jsblob
+ src/GHCJS/DOM/JSFFI/Generated/ANGLEInstancedArrays.hs view
@@ -0,0 +1,63 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe+        "$1[\"drawArraysInstancedANGLE\"]($2,\n$3, $4, $5)"+        js_drawArraysInstancedANGLE ::+        ANGLEInstancedArrays -> Word -> Int -> Int -> Int -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ANGLEInstancedArrays.drawArraysInstancedANGLE Mozilla ANGLEInstancedArrays.drawArraysInstancedANGLE documentation> +drawArraysInstancedANGLE ::+                         (MonadIO m) =>+                           ANGLEInstancedArrays -> Word -> Int -> Int -> Int -> m ()+drawArraysInstancedANGLE self mode first count primcount+  = liftIO+      (js_drawArraysInstancedANGLE (self) mode first count primcount)+ +foreign import javascript unsafe+        "$1[\"drawElementsInstancedANGLE\"]($2,\n$3, $4, $5, $6)"+        js_drawElementsInstancedANGLE ::+        ANGLEInstancedArrays ->+          Word -> Int -> Word -> Double -> Int -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ANGLEInstancedArrays.drawElementsInstancedANGLE Mozilla ANGLEInstancedArrays.drawElementsInstancedANGLE documentation> +drawElementsInstancedANGLE ::+                           (MonadIO m) =>+                             ANGLEInstancedArrays -> Word -> Int -> Word -> Int64 -> Int -> m ()+drawElementsInstancedANGLE self mode count type' offset primcount+  = liftIO+      (js_drawElementsInstancedANGLE (self) mode count type'+         (fromIntegral offset)+         primcount)+ +foreign import javascript unsafe+        "$1[\"vertexAttribDivisorANGLE\"]($2,\n$3)"+        js_vertexAttribDivisorANGLE ::+        ANGLEInstancedArrays -> Word -> Word -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ANGLEInstancedArrays.vertexAttribDivisorANGLE Mozilla ANGLEInstancedArrays.vertexAttribDivisorANGLE documentation> +vertexAttribDivisorANGLE ::+                         (MonadIO m) => ANGLEInstancedArrays -> Word -> Word -> m ()+vertexAttribDivisorANGLE self index divisor+  = liftIO (js_vertexAttribDivisorANGLE (self) index divisor)+pattern VERTEX_ATTRIB_ARRAY_DIVISOR_ANGLE = 35070
+ src/GHCJS/DOM/JSFFI/Generated/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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"document\"]" js_getDocument+        :: AbstractView -> IO (Nullable 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 (nullableToMaybe <$> (js_getDocument (self)))+ +foreign import javascript unsafe "$1[\"styleMedia\"]"+        js_getStyleMedia :: AbstractView -> IO (Nullable 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 (nullableToMaybe <$> (js_getStyleMedia (self)))
+ 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.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,38 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"sourceId\"]" js_getSourceId+        :: AllAudioCapabilities -> IO JSVal++-- | <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 (self)) >>= fromJSValUnchecked)+ +foreign import javascript unsafe "$1[\"volume\"]" js_getVolume ::+        AllAudioCapabilities -> IO (Nullable 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 (nullableToMaybe <$> (js_getVolume (self)))
+ src/GHCJS/DOM/JSFFI/Generated/AllVideoCapabilities.hs view
@@ -0,0 +1,88 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"sourceType\"]"+        js_getSourceType :: AllVideoCapabilities -> IO JSVal++-- | <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 (self)) >>= fromJSValUnchecked)+ +foreign import javascript unsafe "$1[\"sourceId\"]" js_getSourceId+        :: AllVideoCapabilities -> IO JSVal++-- | <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 (self)) >>= fromJSValUnchecked)+ +foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::+        AllVideoCapabilities -> IO (Nullable 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 (nullableToMaybe <$> (js_getWidth (self)))+ +foreign import javascript unsafe "$1[\"height\"]" js_getHeight ::+        AllVideoCapabilities -> IO (Nullable 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 (nullableToMaybe <$> (js_getHeight (self)))+ +foreign import javascript unsafe "$1[\"frameRate\"]"+        js_getFrameRate ::+        AllVideoCapabilities -> IO (Nullable 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 (nullableToMaybe <$> (js_getFrameRate (self)))+ +foreign import javascript unsafe "$1[\"aspectRatio\"]"+        js_getAspectRatio ::+        AllVideoCapabilities -> IO (Nullable 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 (nullableToMaybe <$> (js_getAspectRatio (self)))+ +foreign import javascript unsafe "$1[\"facingMode\"]"+        js_getFacingMode :: AllVideoCapabilities -> IO JSVal++-- | <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 (self)) >>= fromJSValUnchecked)
+ src/GHCJS/DOM/JSFFI/Generated/AnalyserNode.hs view
@@ -0,0 +1,133 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe+        "$1[\"getFloatFrequencyData\"]($2)" js_getFloatFrequencyData ::+        AnalyserNode -> Nullable Float32Array -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AnalyserNode.getFloatFrequencyData Mozilla AnalyserNode.getFloatFrequencyData documentation> +getFloatFrequencyData ::+                      (MonadIO m, IsFloat32Array array) =>+                        AnalyserNode -> Maybe array -> m ()+getFloatFrequencyData self array+  = liftIO+      (js_getFloatFrequencyData (self)+         (maybeToNullable (fmap toFloat32Array array)))+ +foreign import javascript unsafe "$1[\"getByteFrequencyData\"]($2)"+        js_getByteFrequencyData ::+        AnalyserNode -> Nullable 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 (self)+         (maybeToNullable (fmap toUint8Array array)))+ +foreign import javascript unsafe+        "$1[\"getByteTimeDomainData\"]($2)" js_getByteTimeDomainData ::+        AnalyserNode -> Nullable 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 (self)+         (maybeToNullable (fmap toUint8Array array)))+ +foreign import javascript unsafe "$1[\"fftSize\"] = $2;"+        js_setFftSize :: 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 (self) val)+ +foreign import javascript unsafe "$1[\"fftSize\"]" js_getFftSize ::+        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 (self))+ +foreign import javascript unsafe "$1[\"frequencyBinCount\"]"+        js_getFrequencyBinCount :: 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 (self))+ +foreign import javascript unsafe "$1[\"minDecibels\"] = $2;"+        js_setMinDecibels :: 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 (self) val)+ +foreign import javascript unsafe "$1[\"minDecibels\"]"+        js_getMinDecibels :: 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 (self))+ +foreign import javascript unsafe "$1[\"maxDecibels\"] = $2;"+        js_setMaxDecibels :: 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 (self) val)+ +foreign import javascript unsafe "$1[\"maxDecibels\"]"+        js_getMaxDecibels :: 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 (self))+ +foreign import javascript unsafe+        "$1[\"smoothingTimeConstant\"] = $2;" js_setSmoothingTimeConstant+        :: 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 (self) val)+ +foreign import javascript unsafe "$1[\"smoothingTimeConstant\"]"+        js_getSmoothingTimeConstant :: AnalyserNode -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AnalyserNode.smoothingTimeConstant Mozilla AnalyserNode.smoothingTimeConstant documentation> +getSmoothingTimeConstant :: (MonadIO m) => AnalyserNode -> m Double+getSmoothingTimeConstant self+  = liftIO (js_getSmoothingTimeConstant (self))
+ src/GHCJS/DOM/JSFFI/Generated/AnimationEvent.hs view
@@ -0,0 +1,36 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"animationName\"]"+        js_getAnimationName :: 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 (self)))+ +foreign import javascript unsafe "$1[\"elapsedTime\"]"+        js_getElapsedTime :: 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 (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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"update\"]()" js_update ::+        ApplicationCache -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplicationCache.update Mozilla ApplicationCache.update documentation> +update :: (MonadIO m) => ApplicationCache -> m ()+update self = liftIO (js_update (self))+ +foreign import javascript unsafe "$1[\"swapCache\"]()" js_swapCache+        :: ApplicationCache -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplicationCache.swapCache Mozilla ApplicationCache.swapCache documentation> +swapCache :: (MonadIO m) => ApplicationCache -> m ()+swapCache self = liftIO (js_swapCache (self))+ +foreign import javascript unsafe "$1[\"abort\"]()" js_abort ::+        ApplicationCache -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplicationCache.abort Mozilla ApplicationCache.abort documentation> +abort :: (MonadIO m) => ApplicationCache -> m ()+abort self = liftIO (js_abort (self))+pattern UNCACHED = 0+pattern IDLE = 1+pattern CHECKING = 2+pattern DOWNLOADING = 3+pattern UPDATEREADY = 4+pattern OBSOLETE = 5+ +foreign import javascript unsafe "$1[\"status\"]" js_getStatus ::+        ApplicationCache -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplicationCache.status Mozilla ApplicationCache.status documentation> +getStatus :: (MonadIO m) => ApplicationCache -> m Word+getStatus self = liftIO (js_getStatus (self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplicationCache.onchecking Mozilla ApplicationCache.onchecking documentation> +checking :: EventName ApplicationCache Event+checking = unsafeEventName (toJSString "checking")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplicationCache.onerror Mozilla ApplicationCache.onerror documentation> +error :: EventName ApplicationCache UIEvent+error = 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,67 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"name\"]" js_getName ::+        Attr -> IO (Nullable 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 (self)))+ +foreign import javascript unsafe "($1[\"specified\"] ? 1 : 0)"+        js_getSpecified :: Attr -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Attr.specified Mozilla Attr.specified documentation> +getSpecified :: (MonadIO m) => Attr -> m Bool+getSpecified self = liftIO (js_getSpecified (self))+ +foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue+        :: Attr -> Nullable 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 (self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"value\"]" js_getValue ::+        Attr -> IO (Nullable 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 (self)))+ +foreign import javascript unsafe "$1[\"ownerElement\"]"+        js_getOwnerElement :: Attr -> IO (Nullable 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 (nullableToMaybe <$> (js_getOwnerElement (self)))+ +foreign import javascript unsafe "($1[\"isId\"] ? 1 : 0)"+        js_getIsId :: 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 (self))
+ src/GHCJS/DOM/JSFFI/Generated/AudioBuffer.hs view
@@ -0,0 +1,75 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"getChannelData\"]($2)"+        js_getChannelData ::+        AudioBuffer -> Word -> IO (Nullable 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+      (nullableToMaybe <$> (js_getChannelData (self) channelIndex))+ +foreign import javascript unsafe "$1[\"length\"]" js_getLength ::+        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 (self))+ +foreign import javascript unsafe "$1[\"duration\"]" js_getDuration+        :: 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 (self))+ +foreign import javascript unsafe "$1[\"sampleRate\"]"+        js_getSampleRate :: 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 (self))+ +foreign import javascript unsafe "$1[\"gain\"] = $2;" js_setGain ::+        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 (self) val)+ +foreign import javascript unsafe "$1[\"gain\"]" js_getGain ::+        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 (self))+ +foreign import javascript unsafe "$1[\"numberOfChannels\"]"+        js_getNumberOfChannels :: AudioBuffer -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBuffer.numberOfChannels Mozilla AudioBuffer.numberOfChannels documentation> +getNumberOfChannels :: (MonadIO m) => AudioBuffer -> m Word+getNumberOfChannels self = liftIO (js_getNumberOfChannels (self))
+ src/GHCJS/DOM/JSFFI/Generated/AudioBufferCallback.hs view
@@ -0,0 +1,55 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.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+      (AudioBufferCallback <$>+         syncCallback1 ThrowWouldBlock+           (\ audioBuffer ->+              fromJSValUnchecked audioBuffer >>=+                \ audioBuffer' -> callback audioBuffer'))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferCallback Mozilla AudioBufferCallback documentation> +newAudioBufferCallbackSync ::+                           (MonadIO m) =>+                             (Maybe AudioBuffer -> IO ()) -> m AudioBufferCallback+newAudioBufferCallbackSync callback+  = liftIO+      (AudioBufferCallback <$>+         syncCallback1 ContinueAsync+           (\ audioBuffer ->+              fromJSValUnchecked audioBuffer >>=+                \ audioBuffer' -> callback audioBuffer'))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferCallback Mozilla AudioBufferCallback documentation> +newAudioBufferCallbackAsync ::+                            (MonadIO m) =>+                              (Maybe AudioBuffer -> IO ()) -> m AudioBufferCallback+newAudioBufferCallbackAsync callback+  = liftIO+      (AudioBufferCallback <$>+         asyncCallback1+           (\ audioBuffer ->+              fromJSValUnchecked audioBuffer >>=+                \ audioBuffer' -> callback audioBuffer'))
+ src/GHCJS/DOM/JSFFI/Generated/AudioBufferSourceNode.hs view
@@ -0,0 +1,180 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"start\"]($2, $3, $4)"+        js_start ::+        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 (self) when grainOffset grainDuration)+ +foreign import javascript unsafe "$1[\"stop\"]($2)" js_stop ::+        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 (self) when)+ +foreign import javascript unsafe "$1[\"noteOn\"]($2)" js_noteOn ::+        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 (self) when)+ +foreign import javascript unsafe "$1[\"noteGrainOn\"]($2, $3, $4)"+        js_noteGrainOn ::+        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 (self) when grainOffset grainDuration)+ +foreign import javascript unsafe "$1[\"noteOff\"]($2)" js_noteOff+        :: 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 (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 ::+        AudioBufferSourceNode -> Nullable 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 (self) (maybeToNullable val))+ +foreign import javascript unsafe "$1[\"buffer\"]" js_getBuffer ::+        AudioBufferSourceNode -> IO (Nullable 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 (nullableToMaybe <$> (js_getBuffer (self)))+ +foreign import javascript unsafe "$1[\"playbackState\"]"+        js_getPlaybackState :: 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 (self))+ +foreign import javascript unsafe "$1[\"gain\"]" js_getGain ::+        AudioBufferSourceNode -> IO (Nullable 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 (nullableToMaybe <$> (js_getGain (self)))+ +foreign import javascript unsafe "$1[\"playbackRate\"]"+        js_getPlaybackRate ::+        AudioBufferSourceNode -> IO (Nullable 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 (nullableToMaybe <$> (js_getPlaybackRate (self)))+ +foreign import javascript unsafe "$1[\"loop\"] = $2;" js_setLoop ::+        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 (self) val)+ +foreign import javascript unsafe "($1[\"loop\"] ? 1 : 0)"+        js_getLoop :: 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 (self))+ +foreign import javascript unsafe "$1[\"loopStart\"] = $2;"+        js_setLoopStart :: 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 (self) val)+ +foreign import javascript unsafe "$1[\"loopStart\"]"+        js_getLoopStart :: 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 (self))+ +foreign import javascript unsafe "$1[\"loopEnd\"] = $2;"+        js_setLoopEnd :: AudioBufferSourceNode -> Double -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.loopEnd Mozilla AudioBufferSourceNode.loopEnd documentation> +setLoopEnd ::+           (MonadIO m) => AudioBufferSourceNode -> Double -> m ()+setLoopEnd self val = liftIO (js_setLoopEnd (self) val)+ +foreign import javascript unsafe "$1[\"loopEnd\"]" js_getLoopEnd ::+        AudioBufferSourceNode -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.loopEnd Mozilla AudioBufferSourceNode.loopEnd documentation> +getLoopEnd :: (MonadIO m) => AudioBufferSourceNode -> m Double+getLoopEnd self = liftIO (js_getLoopEnd (self))+ +foreign import javascript unsafe "$1[\"looping\"] = $2;"+        js_setLooping :: 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 (self) val)+ +foreign import javascript unsafe "($1[\"looping\"] ? 1 : 0)"+        js_getLooping :: 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 (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,424 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe+        "new (window[\"AudioContext\"]\n||\nwindow[\"webkitAudioContext\"])()"+        js_newAudioContext :: IO AudioContext++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext Mozilla AudioContext documentation> +newAudioContext :: (MonadIO m) => m AudioContext+newAudioContext = liftIO (js_newAudioContext)+ +foreign import javascript unsafe "$1[\"createBuffer\"]($2, $3, $4)"+        js_createBuffer ::+        AudioContext -> Word -> Word -> Float -> IO (Nullable 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+      (nullableToMaybe <$>+         (js_createBuffer (toAudioContext self) numberOfChannels+            numberOfFrames+            sampleRate))+ +foreign import javascript unsafe "$1[\"createBuffer\"]($2, $3)"+        js_createBufferFromArrayBuffer ::+        AudioContext ->+          Nullable ArrayBuffer -> Bool -> IO (Nullable 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+      (nullableToMaybe <$>+         (js_createBufferFromArrayBuffer (toAudioContext self)+            (maybeToNullable (fmap toArrayBuffer buffer))+            mixToMono))+ +foreign import javascript unsafe+        "$1[\"decodeAudioData\"]($2, $3,\n$4)" js_decodeAudioData ::+        AudioContext ->+          Nullable ArrayBuffer ->+            Nullable AudioBufferCallback ->+              Nullable 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 (toAudioContext self)+         (maybeToNullable (fmap toArrayBuffer audioData))+         (maybeToNullable successCallback)+         (maybeToNullable errorCallback))+ +foreign import javascript unsafe "$1[\"createBufferSource\"]()"+        js_createBufferSource ::+        AudioContext -> IO (Nullable 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+      (nullableToMaybe <$> (js_createBufferSource (toAudioContext self)))+ +foreign import javascript unsafe+        "$1[\"createMediaElementSource\"]($2)" js_createMediaElementSource+        ::+        AudioContext ->+          Nullable HTMLMediaElement ->+            IO (Nullable 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+      (nullableToMaybe <$>+         (js_createMediaElementSource (toAudioContext self)+            (maybeToNullable (fmap toHTMLMediaElement mediaElement))))+ +foreign import javascript unsafe+        "$1[\"createMediaStreamSource\"]($2)" js_createMediaStreamSource ::+        AudioContext ->+          Nullable MediaStream -> IO (Nullable 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+      (nullableToMaybe <$>+         (js_createMediaStreamSource (toAudioContext self)+            (maybeToNullable mediaStream)))+ +foreign import javascript unsafe+        "$1[\"createMediaStreamDestination\"]()"+        js_createMediaStreamDestination ::+        AudioContext -> IO (Nullable 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+      (nullableToMaybe <$>+         (js_createMediaStreamDestination (toAudioContext self)))+ +foreign import javascript unsafe "$1[\"createGain\"]()"+        js_createGain :: AudioContext -> IO (Nullable 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+      (nullableToMaybe <$> (js_createGain (toAudioContext self)))+ +foreign import javascript unsafe "$1[\"createDelay\"]($2)"+        js_createDelay :: AudioContext -> Double -> IO (Nullable 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+      (nullableToMaybe <$>+         (js_createDelay (toAudioContext self) maxDelayTime))+ +foreign import javascript unsafe "$1[\"createBiquadFilter\"]()"+        js_createBiquadFilter ::+        AudioContext -> IO (Nullable 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+      (nullableToMaybe <$> (js_createBiquadFilter (toAudioContext self)))+ +foreign import javascript unsafe "$1[\"createWaveShaper\"]()"+        js_createWaveShaper :: AudioContext -> IO (Nullable 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+      (nullableToMaybe <$> (js_createWaveShaper (toAudioContext self)))+ +foreign import javascript unsafe "$1[\"createPanner\"]()"+        js_createPanner :: AudioContext -> IO (Nullable 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+      (nullableToMaybe <$> (js_createPanner (toAudioContext self)))+ +foreign import javascript unsafe "$1[\"createConvolver\"]()"+        js_createConvolver :: AudioContext -> IO (Nullable 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+      (nullableToMaybe <$> (js_createConvolver (toAudioContext self)))+ +foreign import javascript unsafe+        "$1[\"createDynamicsCompressor\"]()" js_createDynamicsCompressor ::+        AudioContext -> IO (Nullable 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+      (nullableToMaybe <$>+         (js_createDynamicsCompressor (toAudioContext self)))+ +foreign import javascript unsafe "$1[\"createAnalyser\"]()"+        js_createAnalyser :: AudioContext -> IO (Nullable 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+      (nullableToMaybe <$> (js_createAnalyser (toAudioContext self)))+ +foreign import javascript unsafe+        "$1[\"createScriptProcessor\"]($2,\n$3, $4)"+        js_createScriptProcessor ::+        AudioContext ->+          Word -> Word -> Word -> IO (Nullable 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+      (nullableToMaybe <$>+         (js_createScriptProcessor (toAudioContext self) bufferSize+            numberOfInputChannels+            numberOfOutputChannels))+ +foreign import javascript unsafe "$1[\"createOscillator\"]()"+        js_createOscillator :: AudioContext -> IO (Nullable 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+      (nullableToMaybe <$> (js_createOscillator (toAudioContext self)))+ +foreign import javascript unsafe+        "$1[\"createPeriodicWave\"]($2, $3)" js_createPeriodicWave ::+        AudioContext ->+          Nullable Float32Array ->+            Nullable Float32Array -> IO (Nullable 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+      (nullableToMaybe <$>+         (js_createPeriodicWave (toAudioContext self)+            (maybeToNullable (fmap toFloat32Array real))+            (maybeToNullable (fmap toFloat32Array imag))))+ +foreign import javascript unsafe+        "$1[\"createChannelSplitter\"]($2)" js_createChannelSplitter ::+        AudioContext -> Word -> IO (Nullable 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+      (nullableToMaybe <$>+         (js_createChannelSplitter (toAudioContext self) numberOfOutputs))+ +foreign import javascript unsafe "$1[\"createChannelMerger\"]($2)"+        js_createChannelMerger ::+        AudioContext -> Word -> IO (Nullable 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+      (nullableToMaybe <$>+         (js_createChannelMerger (toAudioContext self) numberOfInputs))+ +foreign import javascript unsafe "$1[\"startRendering\"]()"+        js_startRendering :: 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 (toAudioContext self))+ +foreign import javascript unsafe "$1[\"createGainNode\"]()"+        js_createGainNode :: AudioContext -> IO (Nullable 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+      (nullableToMaybe <$> (js_createGainNode (toAudioContext self)))+ +foreign import javascript unsafe "$1[\"createDelayNode\"]($2)"+        js_createDelayNode ::+        AudioContext -> Double -> IO (Nullable 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+      (nullableToMaybe <$>+         (js_createDelayNode (toAudioContext self) maxDelayTime))+ +foreign import javascript unsafe+        "$1[\"createJavaScriptNode\"]($2,\n$3, $4)" js_createJavaScriptNode+        ::+        AudioContext ->+          Word -> Word -> Word -> IO (Nullable 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+      (nullableToMaybe <$>+         (js_createJavaScriptNode (toAudioContext self) bufferSize+            numberOfInputChannels+            numberOfOutputChannels))+ +foreign import javascript unsafe "$1[\"destination\"]"+        js_getDestination ::+        AudioContext -> IO (Nullable 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+      (nullableToMaybe <$> (js_getDestination (toAudioContext self)))+ +foreign import javascript unsafe "$1[\"currentTime\"]"+        js_getCurrentTime :: 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 (toAudioContext self))+ +foreign import javascript unsafe "$1[\"sampleRate\"]"+        js_getSampleRate :: 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 (toAudioContext self))+ +foreign import javascript unsafe "$1[\"listener\"]" js_getListener+        :: AudioContext -> IO (Nullable 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+      (nullableToMaybe <$> (js_getListener (toAudioContext self)))+ +foreign import javascript unsafe "$1[\"activeSourceCount\"]"+        js_getActiveSourceCount :: 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 (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,26 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"maxChannelCount\"]"+        js_getMaxChannelCount :: AudioDestinationNode -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioDestinationNode.maxChannelCount Mozilla AudioDestinationNode.maxChannelCount documentation> +getMaxChannelCount :: (MonadIO m) => AudioDestinationNode -> m Word+getMaxChannelCount self = liftIO (js_getMaxChannelCount (self))
+ src/GHCJS/DOM/JSFFI/Generated/AudioListener.hs view
@@ -0,0 +1,80 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"setPosition\"]($2, $3, $4)"+        js_setPosition :: 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 (self) x y z)+ +foreign import javascript unsafe+        "$1[\"setOrientation\"]($2, $3, $4,\n$5, $6, $7)" js_setOrientation+        ::+        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 (self) x y z xUp yUp zUp)+ +foreign import javascript unsafe "$1[\"setVelocity\"]($2, $3, $4)"+        js_setVelocity :: 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 (self) x y z)+ +foreign import javascript unsafe "$1[\"dopplerFactor\"] = $2;"+        js_setDopplerFactor :: 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 (self) val)+ +foreign import javascript unsafe "$1[\"dopplerFactor\"]"+        js_getDopplerFactor :: 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 (self))+ +foreign import javascript unsafe "$1[\"speedOfSound\"] = $2;"+        js_setSpeedOfSound :: 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 (self) val)+ +foreign import javascript unsafe "$1[\"speedOfSound\"]"+        js_getSpeedOfSound :: 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 (self))
+ src/GHCJS/DOM/JSFFI/Generated/AudioNode.hs view
@@ -0,0 +1,151 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"connect\"]($2, $3, $4)"+        js_connect ::+        AudioNode -> Nullable 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 (toAudioNode self)+         (maybeToNullable (fmap toAudioNode destination))+         output+         input)+ +foreign import javascript unsafe "$1[\"connect\"]($2, $3)"+        js_connectParam ::+        AudioNode -> Nullable 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 (toAudioNode self) (maybeToNullable destination)+         output)+ +foreign import javascript unsafe "$1[\"disconnect\"]($2)"+        js_disconnect :: 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 (toAudioNode self) output)+ +foreign import javascript unsafe "$1[\"context\"]" js_getContext ::+        AudioNode -> IO (Nullable 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 (nullableToMaybe <$> (js_getContext (toAudioNode self)))+ +foreign import javascript unsafe "$1[\"numberOfInputs\"]"+        js_getNumberOfInputs :: 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 (toAudioNode self))+ +foreign import javascript unsafe "$1[\"numberOfOutputs\"]"+        js_getNumberOfOutputs :: 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 (toAudioNode self))+ +foreign import javascript unsafe "$1[\"channelCount\"] = $2;"+        js_setChannelCount :: 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 (toAudioNode self) val)+ +foreign import javascript unsafe "$1[\"channelCount\"]"+        js_getChannelCount :: 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 (toAudioNode self))+ +foreign import javascript unsafe "$1[\"channelCountMode\"] = $2;"+        js_setChannelCountMode :: 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 (toAudioNode self) (toJSString val))+ +foreign import javascript unsafe "$1[\"channelCountMode\"]"+        js_getChannelCountMode :: 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 (toAudioNode self)))+ +foreign import javascript unsafe+        "$1[\"channelInterpretation\"] = $2;" js_setChannelInterpretation+        :: 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 (toAudioNode self) (toJSString val))+ +foreign import javascript unsafe "$1[\"channelInterpretation\"]"+        js_getChannelInterpretation :: AudioNode -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioNode.channelInterpretation Mozilla AudioNode.channelInterpretation documentation> +getChannelInterpretation ::+                         (MonadIO m, IsAudioNode self, FromJSString result) =>+                           self -> m result+getChannelInterpretation self+  = liftIO+      (fromJSString <$> (js_getChannelInterpretation (toAudioNode self)))
+ src/GHCJS/DOM/JSFFI/Generated/AudioParam.hs view
@@ -0,0 +1,152 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"setValueAtTime\"]($2, $3)"+        js_setValueAtTime :: AudioParam -> Float -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioParam.setValueAtTime Mozilla AudioParam.setValueAtTime documentation> +setValueAtTime ::+               (MonadIO m) => AudioParam -> Float -> Float -> m ()+setValueAtTime self value time+  = liftIO (js_setValueAtTime (self) value time)+ +foreign import javascript unsafe+        "$1[\"linearRampToValueAtTime\"]($2,\n$3)"+        js_linearRampToValueAtTime :: 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 (self) value time)+ +foreign import javascript unsafe+        "$1[\"exponentialRampToValueAtTime\"]($2,\n$3)"+        js_exponentialRampToValueAtTime ::+        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 (self) value time)+ +foreign import javascript unsafe+        "$1[\"setTargetAtTime\"]($2, $3,\n$4)" js_setTargetAtTime ::+        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 (self) target time timeConstant)+ +foreign import javascript unsafe+        "$1[\"setValueCurveAtTime\"]($2,\n$3, $4)" js_setValueCurveAtTime+        :: AudioParam -> Nullable 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 (self)+         (maybeToNullable (fmap toFloat32Array values))+         time+         duration)+ +foreign import javascript unsafe+        "$1[\"cancelScheduledValues\"]($2)" js_cancelScheduledValues ::+        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 (self) startTime)+ +foreign import javascript unsafe+        "$1[\"setTargetValueAtTime\"]($2,\n$3, $4)" js_setTargetValueAtTime+        :: 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 (self) targetValue time timeConstant)+ +foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue+        :: 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 (self) val)+ +foreign import javascript unsafe "$1[\"value\"]" js_getValue ::+        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 (self))+ +foreign import javascript unsafe "$1[\"minValue\"]" js_getMinValue+        :: 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 (self))+ +foreign import javascript unsafe "$1[\"maxValue\"]" js_getMaxValue+        :: 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 (self))+ +foreign import javascript unsafe "$1[\"defaultValue\"]"+        js_getDefaultValue :: AudioParam -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioParam.defaultValue Mozilla AudioParam.defaultValue documentation> +getDefaultValue :: (MonadIO m) => AudioParam -> m Float+getDefaultValue self = liftIO (js_getDefaultValue (self))+ +foreign import javascript unsafe "$1[\"name\"]" js_getName ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"units\"]" js_getUnits ::+        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 (self))
+ src/GHCJS/DOM/JSFFI/Generated/AudioProcessingEvent.hs view
@@ -0,0 +1,48 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"playbackTime\"]"+        js_getPlaybackTime :: 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 (self))+ +foreign import javascript unsafe "$1[\"inputBuffer\"]"+        js_getInputBuffer ::+        AudioProcessingEvent -> IO (Nullable 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 (nullableToMaybe <$> (js_getInputBuffer (self)))+ +foreign import javascript unsafe "$1[\"outputBuffer\"]"+        js_getOutputBuffer ::+        AudioProcessingEvent -> IO (Nullable 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 (nullableToMaybe <$> (js_getOutputBuffer (self)))
+ src/GHCJS/DOM/JSFFI/Generated/AudioStreamTrack.hs view
@@ -0,0 +1,32 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe+        "new window[\"AudioStreamTrack\"]($1)" js_newAudioStreamTrack ::+        Nullable Dictionary -> IO 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+         (maybeToNullable (fmap toDictionary audioConstraints)))
+ src/GHCJS/DOM/JSFFI/Generated/AudioTrack.hs view
@@ -0,0 +1,93 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"id\"]" js_getId ::+        AudioTrack -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrack.id Mozilla AudioTrack.id documentation> +getId :: (MonadIO m, FromJSString result) => AudioTrack -> m result+getId self = liftIO (fromJSString <$> (js_getId (self)))+ +foreign import javascript unsafe "$1[\"kind\"] = $2;" js_setKind ::+        AudioTrack -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrack.kind Mozilla AudioTrack.kind documentation> +setKind :: (MonadIO m, ToJSString val) => AudioTrack -> val -> m ()+setKind self val = liftIO (js_setKind (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"kind\"]" js_getKind ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"label\"]" js_getLabel ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"language\"] = $2;"+        js_setLanguage :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"language\"]" js_getLanguage+        :: 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 (self)))+ +foreign import javascript unsafe "$1[\"enabled\"] = $2;"+        js_setEnabled :: 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 (self) val)+ +foreign import javascript unsafe "($1[\"enabled\"] ? 1 : 0)"+        js_getEnabled :: 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 (self))+ +foreign import javascript unsafe "$1[\"sourceBuffer\"]"+        js_getSourceBuffer :: AudioTrack -> IO (Nullable 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 (nullableToMaybe <$> (js_getSourceBuffer (self)))
+ src/GHCJS/DOM/JSFFI/Generated/AudioTrackList.hs view
@@ -0,0 +1,60 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"item\"]($2)" js_item ::+        AudioTrackList -> Word -> IO (Nullable 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 (nullableToMaybe <$> (js_item (self) index))+ +foreign import javascript unsafe "$1[\"getTrackById\"]($2)"+        js_getTrackById ::+        AudioTrackList -> JSString -> IO (Nullable 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+      (nullableToMaybe <$> (js_getTrackById (self) (toJSString id)))+ +foreign import javascript unsafe "$1[\"length\"]" js_getLength ::+        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 (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,28 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"reason\"]" js_getReason ::+        AutocompleteErrorEvent -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AutocompleteErrorEvent.reason Mozilla AutocompleteErrorEvent.reason documentation> +getReason ::+          (MonadIO m, FromJSString result) =>+            AutocompleteErrorEvent -> m result+getReason self = liftIO (fromJSString <$> (js_getReason (self)))
+ src/GHCJS/DOM/JSFFI/Generated/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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "($1[\"visible\"] ? 1 : 0)"+        js_getVisible :: BarProp -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/BarProp.visible Mozilla BarProp.visible documentation> +getVisible :: (MonadIO m) => BarProp -> m Bool+getVisible self = liftIO (js_getVisible (self))
+ src/GHCJS/DOM/JSFFI/Generated/BatteryManager.hs view
@@ -0,0 +1,68 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "($1[\"charging\"] ? 1 : 0)"+        js_getCharging :: 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 (self))+ +foreign import javascript unsafe "$1[\"chargingTime\"]"+        js_getChargingTime :: 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 (self))+ +foreign import javascript unsafe "$1[\"dischargingTime\"]"+        js_getDischargingTime :: 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 (self))+ +foreign import javascript unsafe "$1[\"level\"]" js_getLevel ::+        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 (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,27 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"url\"]" js_getUrl ::+        BeforeLoadEvent -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/BeforeLoadEvent.url Mozilla BeforeLoadEvent.url documentation> +getUrl ::+       (MonadIO m, FromJSString result) => BeforeLoadEvent -> m result+getUrl self = liftIO (fromJSString <$> (js_getUrl (self)))
+ src/GHCJS/DOM/JSFFI/Generated/BeforeUnloadEvent.hs view
@@ -0,0 +1,38 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"returnValue\"] = $2;"+        js_setReturnValue :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"returnValue\"]"+        js_getReturnValue :: BeforeUnloadEvent -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/BeforeUnloadEvent.returnValue Mozilla BeforeUnloadEvent.returnValue documentation> +getReturnValue ::+               (MonadIO m, FromJSString result) => BeforeUnloadEvent -> m result+getReturnValue self+  = liftIO (fromJSString <$> (js_getReturnValue (self)))
+ src/GHCJS/DOM/JSFFI/Generated/BiquadFilterNode.hs view
@@ -0,0 +1,100 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe+        "$1[\"getFrequencyResponse\"]($2,\n$3, $4)" js_getFrequencyResponse+        ::+        BiquadFilterNode ->+          Nullable Float32Array ->+            Nullable Float32Array -> Nullable Float32Array -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/BiquadFilterNode.getFrequencyResponse Mozilla BiquadFilterNode.getFrequencyResponse documentation> +getFrequencyResponse ::+                     (MonadIO m, IsFloat32Array frequencyHz, IsFloat32Array magResponse,+                      IsFloat32Array phaseResponse) =>+                       BiquadFilterNode ->+                         Maybe frequencyHz ->+                           Maybe magResponse -> Maybe phaseResponse -> m ()+getFrequencyResponse self frequencyHz magResponse phaseResponse+  = liftIO+      (js_getFrequencyResponse (self)+         (maybeToNullable (fmap toFloat32Array frequencyHz))+         (maybeToNullable (fmap toFloat32Array magResponse))+         (maybeToNullable (fmap 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 ::+        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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"type\"]" js_getType ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"frequency\"]"+        js_getFrequency :: BiquadFilterNode -> IO (Nullable 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 (nullableToMaybe <$> (js_getFrequency (self)))+ +foreign import javascript unsafe "$1[\"detune\"]" js_getDetune ::+        BiquadFilterNode -> IO (Nullable 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 (nullableToMaybe <$> (js_getDetune (self)))+ +foreign import javascript unsafe "$1[\"Q\"]" js_getQ ::+        BiquadFilterNode -> IO (Nullable 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 (nullableToMaybe <$> (js_getQ (self)))+ +foreign import javascript unsafe "$1[\"gain\"]" js_getGain ::+        BiquadFilterNode -> IO (Nullable 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 (nullableToMaybe <$> (js_getGain (self)))
+ src/GHCJS/DOM/JSFFI/Generated/Blob.hs view
@@ -0,0 +1,68 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "new window[\"Blob\"]()"+        js_newBlob :: IO Blob++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Blob Mozilla Blob documentation> +newBlob :: (MonadIO m) => m Blob+newBlob = liftIO (js_newBlob)+ +foreign import javascript unsafe "new window[\"Blob\"]($1, $2)"+        js_newBlob' :: JSVal -> Nullable BlobPropertyBag -> IO Blob++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Blob Mozilla Blob documentation> +newBlob' ::+         (MonadIO m, IsBlobPropertyBag options) =>+           [JSVal] -> Maybe options -> m Blob+newBlob' blobParts options+  = liftIO+      (toJSVal blobParts >>= \ blobParts' -> js_newBlob' blobParts'+         (maybeToNullable (fmap toBlobPropertyBag options)))+ +foreign import javascript unsafe "$1[\"slice\"]($2, $3, $4)"+        js_slice ::+        Blob -> Double -> Double -> Nullable JSString -> IO (Nullable 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+      (nullableToMaybe <$>+         (js_slice (toBlob self) (fromIntegral start) (fromIntegral end)+            (toMaybeJSString contentType)))+ +foreign import javascript unsafe "$1[\"size\"]" js_getSize ::+        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 (toBlob self)))+ +foreign import javascript unsafe "$1[\"type\"]" js_getType ::+        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 (toBlob self)))
+ src/GHCJS/DOM/JSFFI/Generated/CSS.hs view
@@ -0,0 +1,41 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe+        "($1[\"supports\"]($2, $3) ? 1 : 0)" js_supports2 ::+        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 (self) (toJSString property) (toJSString value))+ +foreign import javascript unsafe "($1[\"supports\"]($2) ? 1 : 0)"+        js_supports :: 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 (self) (toJSString conditionText))
+ src/GHCJS/DOM/JSFFI/Generated/CSSCharsetRule.hs view
@@ -0,0 +1,38 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"encoding\"] = $2;"+        js_setEncoding :: CSSCharsetRule -> Nullable 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 (self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"encoding\"]" js_getEncoding+        :: CSSCharsetRule -> IO (Nullable 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 (self)))
+ src/GHCJS/DOM/JSFFI/Generated/CSSFontFaceLoadEvent.hs view
@@ -0,0 +1,37 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"fontface\"]" js_getFontface+        :: CSSFontFaceLoadEvent -> IO (Nullable CSSFontFaceRule)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSFontFaceLoadEvent.fontface Mozilla CSSFontFaceLoadEvent.fontface documentation> +getFontface ::+            (MonadIO m) => CSSFontFaceLoadEvent -> m (Maybe CSSFontFaceRule)+getFontface self+  = liftIO (nullableToMaybe <$> (js_getFontface (self)))+ +foreign import javascript unsafe "$1[\"error\"]" js_getError ::+        CSSFontFaceLoadEvent -> IO (Nullable DOMError)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSFontFaceLoadEvent.error Mozilla CSSFontFaceLoadEvent.error documentation> +getError ::+         (MonadIO m) => CSSFontFaceLoadEvent -> m (Maybe DOMError)+getError self = liftIO (nullableToMaybe <$> (js_getError (self)))
+ src/GHCJS/DOM/JSFFI/Generated/CSSFontFaceRule.hs view
@@ -0,0 +1,27 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"style\"]" js_getStyle ::+        CSSFontFaceRule -> IO (Nullable 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 (nullableToMaybe <$> (js_getStyle (self)))
+ src/GHCJS/DOM/JSFFI/Generated/CSSImportRule.hs view
@@ -0,0 +1,45 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"href\"]" js_getHref ::+        CSSImportRule -> IO (Nullable JSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSImportRule.href Mozilla CSSImportRule.href documentation> +getHref ::+        (MonadIO m, FromJSString result) =>+          CSSImportRule -> m (Maybe result)+getHref self = liftIO (fromMaybeJSString <$> (js_getHref (self)))+ +foreign import javascript unsafe "$1[\"media\"]" js_getMedia ::+        CSSImportRule -> IO (Nullable 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 (nullableToMaybe <$> (js_getMedia (self)))+ +foreign import javascript unsafe "$1[\"styleSheet\"]"+        js_getStyleSheet :: CSSImportRule -> IO (Nullable 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 (nullableToMaybe <$> (js_getStyleSheet (self)))
+ src/GHCJS/DOM/JSFFI/Generated/CSSKeyframeRule.hs view
@@ -0,0 +1,45 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"keyText\"] = $2;"+        js_setKeyText :: CSSKeyframeRule -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframeRule.keyText Mozilla CSSKeyframeRule.keyText documentation> +setKeyText ::+           (MonadIO m, ToJSString val) => CSSKeyframeRule -> val -> m ()+setKeyText self val+  = liftIO (js_setKeyText (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"keyText\"]" js_getKeyText ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"style\"]" js_getStyle ::+        CSSKeyframeRule -> IO (Nullable 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 (nullableToMaybe <$> (js_getStyle (self)))
+ src/GHCJS/DOM/JSFFI/Generated/CSSKeyframesRule.hs view
@@ -0,0 +1,97 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"insertRule\"]($2)"+        js_insertRule :: CSSKeyframesRule -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframesRule.insertRule Mozilla CSSKeyframesRule.insertRule documentation> +insertRule ::+           (MonadIO m, ToJSString rule) => CSSKeyframesRule -> rule -> m ()+insertRule self rule+  = liftIO (js_insertRule (self) (toJSString rule))+ +foreign import javascript unsafe "$1[\"appendRule\"]($2)"+        js_appendRule :: 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 (self) (toJSString rule))+ +foreign import javascript unsafe "$1[\"deleteRule\"]($2)"+        js_deleteRule :: CSSKeyframesRule -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframesRule.deleteRule Mozilla CSSKeyframesRule.deleteRule documentation> +deleteRule ::+           (MonadIO m, ToJSString key) => CSSKeyframesRule -> key -> m ()+deleteRule self key+  = liftIO (js_deleteRule (self) (toJSString key))+ +foreign import javascript unsafe "$1[\"findRule\"]($2)" js_findRule+        :: CSSKeyframesRule -> JSString -> IO (Nullable CSSKeyframeRule)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframesRule.findRule Mozilla CSSKeyframesRule.findRule documentation> +findRule ::+         (MonadIO m, ToJSString key) =>+           CSSKeyframesRule -> key -> m (Maybe CSSKeyframeRule)+findRule self key+  = liftIO+      (nullableToMaybe <$> (js_findRule (self) (toJSString key)))+ +foreign import javascript unsafe "$1[\"_get\"]($2)" js__get ::+        CSSKeyframesRule -> Word -> IO (Nullable 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 (nullableToMaybe <$> (js__get (self) index))+ +foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName ::+        CSSKeyframesRule -> Nullable 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 (self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"name\"]" js_getName ::+        CSSKeyframesRule -> IO (Nullable 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 (self)))+ +foreign import javascript unsafe "$1[\"cssRules\"]" js_getCssRules+        :: CSSKeyframesRule -> IO (Nullable 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 (nullableToMaybe <$> (js_getCssRules (self)))
+ src/GHCJS/DOM/JSFFI/Generated/CSSMediaRule.hs view
@@ -0,0 +1,52 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"insertRule\"]($2, $3)"+        js_insertRule :: 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 (self) (toJSString rule) index)+ +foreign import javascript unsafe "$1[\"deleteRule\"]($2)"+        js_deleteRule :: 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 (self) index)+ +foreign import javascript unsafe "$1[\"media\"]" js_getMedia ::+        CSSMediaRule -> IO (Nullable 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 (nullableToMaybe <$> (js_getMedia (self)))+ +foreign import javascript unsafe "$1[\"cssRules\"]" js_getCssRules+        :: CSSMediaRule -> IO (Nullable 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 (nullableToMaybe <$> (js_getCssRules (self)))
+ src/GHCJS/DOM/JSFFI/Generated/CSSPageRule.hs view
@@ -0,0 +1,46 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"selectorText\"] = $2;"+        js_setSelectorText :: CSSPageRule -> Nullable JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPageRule.selectorText Mozilla CSSPageRule.selectorText documentation> +setSelectorText ::+                (MonadIO m, ToJSString val) => CSSPageRule -> Maybe val -> m ()+setSelectorText self val+  = liftIO (js_setSelectorText (self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"selectorText\"]"+        js_getSelectorText :: CSSPageRule -> IO (Nullable JSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPageRule.selectorText Mozilla CSSPageRule.selectorText documentation> +getSelectorText ::+                (MonadIO m, FromJSString result) => CSSPageRule -> m (Maybe result)+getSelectorText self+  = liftIO (fromMaybeJSString <$> (js_getSelectorText (self)))+ +foreign import javascript unsafe "$1[\"style\"]" js_getStyle ::+        CSSPageRule -> IO (Nullable 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 (nullableToMaybe <$> (js_getStyle (self)))
+ src/GHCJS/DOM/JSFFI/Generated/CSSPrimitiveValue.hs view
@@ -0,0 +1,133 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"setFloatValue\"]($2, $3)"+        js_setFloatValue :: 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 (self) unitType floatValue)+ +foreign import javascript unsafe "$1[\"getFloatValue\"]($2)"+        js_getFloatValue :: 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 (self) unitType)+ +foreign import javascript unsafe "$1[\"setStringValue\"]($2, $3)"+        js_setStringValue :: 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 (self) stringType (toJSString stringValue))+ +foreign import javascript unsafe "$1[\"getStringValue\"]()"+        js_getStringValue :: CSSPrimitiveValue -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPrimitiveValue.getStringValue Mozilla CSSPrimitiveValue.getStringValue documentation> +getStringValue ::+               (MonadIO m, FromJSString result) => CSSPrimitiveValue -> m result+getStringValue self+  = liftIO (fromJSString <$> (js_getStringValue (self)))+ +foreign import javascript unsafe "$1[\"getCounterValue\"]()"+        js_getCounterValue :: CSSPrimitiveValue -> IO (Nullable 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 (nullableToMaybe <$> (js_getCounterValue (self)))+ +foreign import javascript unsafe "$1[\"getRectValue\"]()"+        js_getRectValue :: CSSPrimitiveValue -> IO (Nullable 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 (nullableToMaybe <$> (js_getRectValue (self)))+ +foreign import javascript unsafe "$1[\"getRGBColorValue\"]()"+        js_getRGBColorValue :: CSSPrimitiveValue -> IO (Nullable 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 (nullableToMaybe <$> (js_getRGBColorValue (self)))+pattern CSS_UNKNOWN = 0+pattern CSS_NUMBER = 1+pattern CSS_PERCENTAGE = 2+pattern CSS_EMS = 3+pattern CSS_EXS = 4+pattern CSS_PX = 5+pattern CSS_CM = 6+pattern CSS_MM = 7+pattern CSS_IN = 8+pattern CSS_PT = 9+pattern CSS_PC = 10+pattern CSS_DEG = 11+pattern CSS_RAD = 12+pattern CSS_GRAD = 13+pattern CSS_MS = 14+pattern CSS_S = 15+pattern CSS_HZ = 16+pattern CSS_KHZ = 17+pattern CSS_DIMENSION = 18+pattern CSS_STRING = 19+pattern CSS_URI = 20+pattern CSS_IDENT = 21+pattern CSS_ATTR = 22+pattern CSS_COUNTER = 23+pattern CSS_RECT = 24+pattern CSS_RGBCOLOR = 25+pattern CSS_VW = 26+pattern CSS_VH = 27+pattern CSS_VMIN = 28+pattern CSS_VMAX = 29+ +foreign import javascript unsafe "$1[\"primitiveType\"]"+        js_getPrimitiveType :: CSSPrimitiveValue -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPrimitiveValue.primitiveType Mozilla CSSPrimitiveValue.primitiveType documentation> +getPrimitiveType :: (MonadIO m) => CSSPrimitiveValue -> m Word+getPrimitiveType self = liftIO (js_getPrimitiveType (self))
+ src/GHCJS/DOM/JSFFI/Generated/CSSRule.hs view
@@ -0,0 +1,86 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+pattern UNKNOWN_RULE = 0+pattern STYLE_RULE = 1+pattern CHARSET_RULE = 2+pattern IMPORT_RULE = 3+pattern MEDIA_RULE = 4+pattern FONT_FACE_RULE = 5+pattern PAGE_RULE = 6+pattern KEYFRAMES_RULE = 7+pattern KEYFRAME_RULE = 8+pattern 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 ::+        CSSRule -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSRule.type Mozilla CSSRule.type documentation> +getType :: (MonadIO m, IsCSSRule self) => self -> m Word+getType self = liftIO (js_getType (toCSSRule self))+ +foreign import javascript unsafe "$1[\"cssText\"] = $2;"+        js_setCssText :: CSSRule -> Nullable 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 (toCSSRule self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"cssText\"]" js_getCssText ::+        CSSRule -> IO (Nullable 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 (toCSSRule self)))+ +foreign import javascript unsafe "$1[\"parentStyleSheet\"]"+        js_getParentStyleSheet :: CSSRule -> IO (Nullable 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+      (nullableToMaybe <$> (js_getParentStyleSheet (toCSSRule self)))+ +foreign import javascript unsafe "$1[\"parentRule\"]"+        js_getParentRule :: CSSRule -> IO (Nullable 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 (nullableToMaybe <$> (js_getParentRule (toCSSRule self)))
+ 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"item\"]($2)" js_item ::+        CSSRuleList -> Word -> IO (Nullable 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 (nullableToMaybe <$> (js_item (self) index))+ +foreign import javascript unsafe "$1[\"length\"]" js_getLength ::+        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 (self))
+ src/GHCJS/DOM/JSFFI/Generated/CSSStyleDeclaration.hs view
@@ -0,0 +1,163 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"getPropertyValue\"]($2)"+        js_getPropertyValue ::+        CSSStyleDeclaration -> JSString -> IO (Nullable 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 (self) (toJSString propertyName)))+ +foreign import javascript unsafe "$1[\"getPropertyCSSValue\"]($2)"+        js_getPropertyCSSValue ::+        CSSStyleDeclaration -> JSString -> IO (Nullable 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+      (nullableToMaybe <$>+         (js_getPropertyCSSValue (self) (toJSString propertyName)))+ +foreign import javascript unsafe "$1[\"removeProperty\"]($2)"+        js_removeProperty ::+        CSSStyleDeclaration -> JSString -> IO (Nullable 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 (self) (toJSString propertyName)))+ +foreign import javascript unsafe "$1[\"getPropertyPriority\"]($2)"+        js_getPropertyPriority ::+        CSSStyleDeclaration -> JSString -> IO (Nullable JSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.getPropertyPriority Mozilla CSSStyleDeclaration.getPropertyPriority documentation> +getPropertyPriority ::+                    (MonadIO m, ToJSString propertyName, FromJSString result) =>+                      CSSStyleDeclaration -> propertyName -> m (Maybe result)+getPropertyPriority self propertyName+  = liftIO+      (fromMaybeJSString <$>+         (js_getPropertyPriority (self) (toJSString propertyName)))+ +foreign import javascript unsafe "$1[\"setProperty\"]($2, $3, $4)"+        js_setProperty ::+        CSSStyleDeclaration ->+          JSString -> Nullable 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 (self) (toJSString propertyName)+         (toMaybeJSString value)+         (toJSString priority))+ +foreign import javascript unsafe "$1[\"item\"]($2)" js_item ::+        CSSStyleDeclaration -> Word -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.item Mozilla CSSStyleDeclaration.item documentation> +item ::+     (MonadIO m, FromJSString result) =>+       CSSStyleDeclaration -> Word -> m result+item self index = liftIO (fromJSString <$> (js_item (self) index))+ +foreign import javascript unsafe "$1[\"getPropertyShorthand\"]($2)"+        js_getPropertyShorthand ::+        CSSStyleDeclaration -> JSString -> IO (Nullable JSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.getPropertyShorthand Mozilla CSSStyleDeclaration.getPropertyShorthand documentation> +getPropertyShorthand ::+                     (MonadIO m, ToJSString propertyName, FromJSString result) =>+                       CSSStyleDeclaration -> propertyName -> m (Maybe result)+getPropertyShorthand self propertyName+  = liftIO+      (fromMaybeJSString <$>+         (js_getPropertyShorthand (self) (toJSString propertyName)))+ +foreign import javascript unsafe+        "($1[\"isPropertyImplicit\"]($2) ? 1 : 0)" js_isPropertyImplicit ::+        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 (self) (toJSString propertyName))+ +foreign import javascript unsafe "$1[\"cssText\"] = $2;"+        js_setCssText :: CSSStyleDeclaration -> Nullable 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 (self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"cssText\"]" js_getCssText ::+        CSSStyleDeclaration -> IO (Nullable 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 (self)))+ +foreign import javascript unsafe "$1[\"length\"]" js_getLength ::+        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 (self))+ +foreign import javascript unsafe "$1[\"parentRule\"]"+        js_getParentRule :: CSSStyleDeclaration -> IO (Nullable CSSRule)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.parentRule Mozilla CSSStyleDeclaration.parentRule documentation> +getParentRule ::+              (MonadIO m) => CSSStyleDeclaration -> m (Maybe CSSRule)+getParentRule self+  = liftIO (nullableToMaybe <$> (js_getParentRule (self)))
+ src/GHCJS/DOM/JSFFI/Generated/CSSStyleRule.hs view
@@ -0,0 +1,47 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"selectorText\"] = $2;"+        js_setSelectorText :: CSSStyleRule -> Nullable JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleRule.selectorText Mozilla CSSStyleRule.selectorText documentation> +setSelectorText ::+                (MonadIO m, ToJSString val) => CSSStyleRule -> Maybe val -> m ()+setSelectorText self val+  = liftIO (js_setSelectorText (self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"selectorText\"]"+        js_getSelectorText :: CSSStyleRule -> IO (Nullable JSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleRule.selectorText Mozilla CSSStyleRule.selectorText documentation> +getSelectorText ::+                (MonadIO m, FromJSString result) =>+                  CSSStyleRule -> m (Maybe result)+getSelectorText self+  = liftIO (fromMaybeJSString <$> (js_getSelectorText (self)))+ +foreign import javascript unsafe "$1[\"style\"]" js_getStyle ::+        CSSStyleRule -> IO (Nullable 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 (nullableToMaybe <$> (js_getStyle (self)))
+ src/GHCJS/DOM/JSFFI/Generated/CSSStyleSheet.hs view
@@ -0,0 +1,81 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"insertRule\"]($2, $3)"+        js_insertRule :: 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 (self) (toJSString rule) index)+ +foreign import javascript unsafe "$1[\"deleteRule\"]($2)"+        js_deleteRule :: 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 (self) index)+ +foreign import javascript unsafe "$1[\"addRule\"]($2, $3, $4)"+        js_addRule ::+        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 (self) (toJSString selector) (toJSString style) index)+ +foreign import javascript unsafe "$1[\"removeRule\"]($2)"+        js_removeRule :: 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 (self) index)+ +foreign import javascript unsafe "$1[\"ownerRule\"]"+        js_getOwnerRule :: CSSStyleSheet -> IO (Nullable 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 (nullableToMaybe <$> (js_getOwnerRule (self)))+ +foreign import javascript unsafe "$1[\"cssRules\"]" js_getCssRules+        :: CSSStyleSheet -> IO (Nullable 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 (nullableToMaybe <$> (js_getCssRules (self)))+ +foreign import javascript unsafe "$1[\"rules\"]" js_getRules ::+        CSSStyleSheet -> IO (Nullable 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 (nullableToMaybe <$> (js_getRules (self)))
+ src/GHCJS/DOM/JSFFI/Generated/CSSSupportsRule.hs view
@@ -0,0 +1,55 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"insertRule\"]($2, $3)"+        js_insertRule :: CSSSupportsRule -> JSString -> Word -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSSupportsRule.insertRule Mozilla CSSSupportsRule.insertRule documentation> +insertRule ::+           (MonadIO m, ToJSString rule) =>+             CSSSupportsRule -> rule -> Word -> m Word+insertRule self rule index+  = liftIO (js_insertRule (self) (toJSString rule) index)+ +foreign import javascript unsafe "$1[\"deleteRule\"]($2)"+        js_deleteRule :: CSSSupportsRule -> Word -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSSupportsRule.deleteRule Mozilla CSSSupportsRule.deleteRule documentation> +deleteRule :: (MonadIO m) => CSSSupportsRule -> Word -> m ()+deleteRule self index = liftIO (js_deleteRule (self) index)+ +foreign import javascript unsafe "$1[\"cssRules\"]" js_getCssRules+        :: CSSSupportsRule -> IO (Nullable 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 (nullableToMaybe <$> (js_getCssRules (self)))+ +foreign import javascript unsafe "$1[\"conditionText\"]"+        js_getConditionText :: CSSSupportsRule -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSSupportsRule.conditionText Mozilla CSSSupportsRule.conditionText documentation> +getConditionText ::+                 (MonadIO m, FromJSString result) => CSSSupportsRule -> m result+getConditionText self+  = liftIO (fromJSString <$> (js_getConditionText (self)))
+ src/GHCJS/DOM/JSFFI/Generated/CSSValue.hs view
@@ -0,0 +1,54 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.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 :: CSSValue -> Nullable JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSValue.cssText Mozilla CSSValue.cssText documentation> +setCssText ::+           (MonadIO m, IsCSSValue self, ToJSString val) =>+             self -> Maybe val -> m ()+setCssText self val+  = liftIO (js_setCssText (toCSSValue self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"cssText\"]" js_getCssText ::+        CSSValue -> IO (Nullable JSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSValue.cssText Mozilla CSSValue.cssText documentation> +getCssText ::+           (MonadIO m, IsCSSValue self, FromJSString result) =>+             self -> m (Maybe result)+getCssText self+  = liftIO (fromMaybeJSString <$> (js_getCssText (toCSSValue self)))+ +foreign import javascript unsafe "$1[\"cssValueType\"]"+        js_getCssValueType :: CSSValue -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSValue.cssValueType Mozilla CSSValue.cssValueType documentation> +getCssValueType :: (MonadIO m, IsCSSValue self) => self -> m Word+getCssValueType self+  = liftIO (js_getCssValueType (toCSSValue self))
+ src/GHCJS/DOM/JSFFI/Generated/CSSValueList.hs view
@@ -0,0 +1,38 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"item\"]($2)" js_item ::+        CSSValueList -> Word -> IO (Nullable 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+      (nullableToMaybe <$> (js_item (toCSSValueList self) index))+ +foreign import javascript unsafe "$1[\"length\"]" js_getLength ::+        CSSValueList -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSValueList.length Mozilla CSSValueList.length documentation> +getLength :: (MonadIO m, IsCSSValueList self) => self -> m Word+getLength self = liftIO (js_getLength (toCSSValueList self))
+ src/GHCJS/DOM/JSFFI/Generated/CanvasGradient.hs view
@@ -0,0 +1,29 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"addColorStop\"]($2, $3)"+        js_addColorStop :: CanvasGradient -> Float -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasGradient.addColorStop Mozilla CanvasGradient.addColorStop documentation> +addColorStop ::+             (MonadIO m, ToJSString color) =>+               CanvasGradient -> Float -> color -> m ()+addColorStop self offset color+  = liftIO (js_addColorStop (self) offset (toJSString color))
+ src/GHCJS/DOM/JSFFI/Generated/CanvasRenderingContext.hs view
@@ -0,0 +1,32 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"canvas\"]" js_getCanvas ::+        CanvasRenderingContext -> IO (Nullable 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+      (nullableToMaybe <$>+         (js_getCanvas (toCanvasRenderingContext self)))
+ src/GHCJS/DOM/JSFFI/Generated/CanvasRenderingContext2D.hs view
@@ -0,0 +1,1489 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"save\"]()" js_save ::+        CanvasRenderingContext2D -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.save Mozilla CanvasRenderingContext2D.save documentation> +save :: (MonadIO m) => CanvasRenderingContext2D -> m ()+save self = liftIO (js_save (self))+ +foreign import javascript unsafe "$1[\"restore\"]()" js_restore ::+        CanvasRenderingContext2D -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.restore Mozilla CanvasRenderingContext2D.restore documentation> +restore :: (MonadIO m) => CanvasRenderingContext2D -> m ()+restore self = liftIO (js_restore (self))+ +foreign import javascript unsafe "$1[\"scale\"]($2, $3)" js_scale+        :: CanvasRenderingContext2D -> Float -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.scale Mozilla CanvasRenderingContext2D.scale documentation> +scale ::+      (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> m ()+scale self sx sy = liftIO (js_scale (self) sx sy)+ +foreign import javascript unsafe "$1[\"rotate\"]($2)" js_rotate ::+        CanvasRenderingContext2D -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.rotate Mozilla CanvasRenderingContext2D.rotate documentation> +rotate :: (MonadIO m) => CanvasRenderingContext2D -> Float -> m ()+rotate self angle = liftIO (js_rotate (self) angle)+ +foreign import javascript unsafe "$1[\"translate\"]($2, $3)"+        js_translate :: CanvasRenderingContext2D -> Float -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.translate Mozilla CanvasRenderingContext2D.translate documentation> +translate ::+          (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> m ()+translate self tx ty = liftIO (js_translate (self) tx ty)+ +foreign import javascript unsafe+        "$1[\"transform\"]($2, $3, $4, $5,\n$6, $7)" js_transform ::+        CanvasRenderingContext2D ->+          Float -> Float -> Float -> Float -> Float -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.transform Mozilla CanvasRenderingContext2D.transform documentation> +transform ::+          (MonadIO m) =>+            CanvasRenderingContext2D ->+              Float -> Float -> Float -> Float -> Float -> Float -> m ()+transform self m11 m12 m21 m22 dx dy+  = liftIO (js_transform (self) m11 m12 m21 m22 dx dy)+ +foreign import javascript unsafe+        "$1[\"setTransform\"]($2, $3, $4,\n$5, $6, $7)" js_setTransform ::+        CanvasRenderingContext2D ->+          Float -> Float -> Float -> Float -> Float -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setTransform Mozilla CanvasRenderingContext2D.setTransform documentation> +setTransform ::+             (MonadIO m) =>+               CanvasRenderingContext2D ->+                 Float -> Float -> Float -> Float -> Float -> Float -> m ()+setTransform self m11 m12 m21 m22 dx dy+  = liftIO (js_setTransform (self) m11 m12 m21 m22 dx dy)+ +foreign import javascript unsafe+        "$1[\"createLinearGradient\"]($2,\n$3, $4, $5)"+        js_createLinearGradient ::+        CanvasRenderingContext2D ->+          Float -> Float -> Float -> Float -> IO (Nullable 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+      (nullableToMaybe <$> (js_createLinearGradient (self) x0 y0 x1 y1))+ +foreign import javascript unsafe+        "$1[\"createRadialGradient\"]($2,\n$3, $4, $5, $6, $7)"+        js_createRadialGradient ::+        CanvasRenderingContext2D ->+          Float ->+            Float ->+              Float -> Float -> Float -> Float -> IO (Nullable 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+      (nullableToMaybe <$>+         (js_createRadialGradient (self) x0 y0 r0 x1 y1 r1))+ +foreign import javascript unsafe "$1[\"setLineDash\"]($2)"+        js_setLineDash :: CanvasRenderingContext2D -> JSVal -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setLineDash Mozilla CanvasRenderingContext2D.setLineDash documentation> +setLineDash ::+            (MonadIO m) => CanvasRenderingContext2D -> [Float] -> m ()+setLineDash self dash+  = liftIO (toJSVal dash >>= \ dash' -> js_setLineDash (self) dash')+ +foreign import javascript unsafe "$1[\"getLineDash\"]()"+        js_getLineDash :: CanvasRenderingContext2D -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.getLineDash Mozilla CanvasRenderingContext2D.getLineDash documentation> +getLineDash :: (MonadIO m) => CanvasRenderingContext2D -> m [Float]+getLineDash self+  = liftIO ((js_getLineDash (self)) >>= fromJSValUnchecked)+ +foreign import javascript unsafe+        "$1[\"clearRect\"]($2, $3, $4, $5)" js_clearRect ::+        CanvasRenderingContext2D ->+          Float -> Float -> Float -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.clearRect Mozilla CanvasRenderingContext2D.clearRect documentation> +clearRect ::+          (MonadIO m) =>+            CanvasRenderingContext2D ->+              Float -> Float -> Float -> Float -> m ()+clearRect self x y width height+  = liftIO (js_clearRect (self) x y width height)+ +foreign import javascript unsafe "$1[\"fillRect\"]($2, $3, $4, $5)"+        js_fillRect ::+        CanvasRenderingContext2D ->+          Float -> Float -> Float -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.fillRect Mozilla CanvasRenderingContext2D.fillRect documentation> +fillRect ::+         (MonadIO m) =>+           CanvasRenderingContext2D ->+             Float -> Float -> Float -> Float -> m ()+fillRect self x y width height+  = liftIO (js_fillRect (self) x y width height)+ +foreign import javascript unsafe "$1[\"beginPath\"]()" js_beginPath+        :: CanvasRenderingContext2D -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.beginPath Mozilla CanvasRenderingContext2D.beginPath documentation> +beginPath :: (MonadIO m) => CanvasRenderingContext2D -> m ()+beginPath self = liftIO (js_beginPath (self))+ +foreign import javascript unsafe "$1[\"closePath\"]()" js_closePath+        :: 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 (self))+ +foreign import javascript unsafe "$1[\"moveTo\"]($2, $3)" js_moveTo+        :: 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 (self) x y)+ +foreign import javascript unsafe "$1[\"lineTo\"]($2, $3)" js_lineTo+        :: 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 (self) x y)+ +foreign import javascript unsafe+        "$1[\"quadraticCurveTo\"]($2, $3,\n$4, $5)" js_quadraticCurveTo ::+        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 (self) cpx cpy x y)+ +foreign import javascript unsafe+        "$1[\"bezierCurveTo\"]($2, $3, $4,\n$5, $6, $7)" js_bezierCurveTo+        ::+        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 (self) cp1x cp1y cp2x cp2y x y)+ +foreign import javascript unsafe+        "$1[\"arcTo\"]($2, $3, $4, $5, $6)" js_arcTo ::+        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 (self) x1 y1 x2 y2 radius)+ +foreign import javascript unsafe "$1[\"rect\"]($2, $3, $4, $5)"+        js_rect ::+        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 (self) x y width height)+ +foreign import javascript unsafe+        "$1[\"arc\"]($2, $3, $4, $5, $6,\n$7)" js_arc ::+        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 (self) x y radius startAngle endAngle anticlockwise)+ +foreign import javascript unsafe "$1[\"fill\"]($2, $3)" js_fillPath+        :: CanvasRenderingContext2D -> Nullable Path2D -> JSVal -> 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 (self) (maybeToNullable path) (pToJSVal winding))+ +foreign import javascript unsafe "$1[\"stroke\"]($2)" js_strokePath+        :: CanvasRenderingContext2D -> Nullable 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 (self) (maybeToNullable path))+ +foreign import javascript unsafe "$1[\"clip\"]($2, $3)" js_clipPath+        :: CanvasRenderingContext2D -> Nullable Path2D -> JSVal -> 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 (self) (maybeToNullable path) (pToJSVal winding))+ +foreign import javascript unsafe "$1[\"fill\"]($2)" js_fill ::+        CanvasRenderingContext2D -> JSVal -> 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 (self) (pToJSVal winding))+ +foreign import javascript unsafe "$1[\"stroke\"]()" js_stroke ::+        CanvasRenderingContext2D -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.stroke Mozilla CanvasRenderingContext2D.stroke documentation> +stroke :: (MonadIO m) => CanvasRenderingContext2D -> m ()+stroke self = liftIO (js_stroke (self))+ +foreign import javascript unsafe "$1[\"clip\"]($2)" js_clip ::+        CanvasRenderingContext2D -> JSVal -> 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 (self) (pToJSVal winding))+ +foreign import javascript unsafe+        "($1[\"isPointInPath\"]($2, $3, $4,\n$5) ? 1 : 0)"+        js_isPointInPathPath ::+        CanvasRenderingContext2D ->+          Nullable Path2D -> Float -> Float -> JSVal -> 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 (self) (maybeToNullable path) x y+         (pToJSVal winding))+ +foreign import javascript unsafe+        "($1[\"isPointInStroke\"]($2, $3,\n$4) ? 1 : 0)"+        js_isPointInStrokePath ::+        CanvasRenderingContext2D ->+          Nullable 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 (self) (maybeToNullable path) x y)+ +foreign import javascript unsafe+        "($1[\"isPointInPath\"]($2, $3,\n$4) ? 1 : 0)" js_isPointInPath ::+        CanvasRenderingContext2D -> Float -> Float -> JSVal -> 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 (self) x y (pToJSVal winding))+ +foreign import javascript unsafe+        "($1[\"isPointInStroke\"]($2,\n$3) ? 1 : 0)" js_isPointInStroke ::+        CanvasRenderingContext2D -> Float -> Float -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.isPointInStroke Mozilla CanvasRenderingContext2D.isPointInStroke documentation> +isPointInStroke ::+                (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> m Bool+isPointInStroke self x y = liftIO (js_isPointInStroke (self) x y)+ +foreign import javascript unsafe "$1[\"measureText\"]($2)"+        js_measureText ::+        CanvasRenderingContext2D -> JSString -> IO (Nullable 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+      (nullableToMaybe <$> (js_measureText (self) (toJSString text)))+ +foreign import javascript unsafe "$1[\"setAlpha\"]($2)" js_setAlpha+        :: 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 (self) alpha)+ +foreign import javascript unsafe+        "$1[\"setCompositeOperation\"]($2)" js_setCompositeOperation ::+        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 (self) (toJSString compositeOperation))+ +foreign import javascript unsafe "$1[\"setLineWidth\"]($2)"+        js_setLineWidthFunction ::+        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 (self) width)+ +foreign import javascript unsafe "$1[\"setLineCap\"]($2)"+        js_setLineCapFunction ::+        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 (self) (toJSString cap))+ +foreign import javascript unsafe "$1[\"setLineJoin\"]($2)"+        js_setLineJoinFunction ::+        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 (self) (toJSString join))+ +foreign import javascript unsafe "$1[\"setMiterLimit\"]($2)"+        js_setMiterLimitFunction ::+        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 (self) limit)+ +foreign import javascript unsafe "$1[\"clearShadow\"]()"+        js_clearShadow :: CanvasRenderingContext2D -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.clearShadow Mozilla CanvasRenderingContext2D.clearShadow documentation> +clearShadow :: (MonadIO m) => CanvasRenderingContext2D -> m ()+clearShadow self = liftIO (js_clearShadow (self))+ +foreign import javascript unsafe "$1[\"fillText\"]($2, $3, $4, $5)"+        js_fillText ::+        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 (self) (toJSString text) x y maxWidth)+ +foreign import javascript unsafe+        "$1[\"strokeText\"]($2, $3, $4, $5)" js_strokeText ::+        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 (self) (toJSString text) x y maxWidth)+ +foreign import javascript unsafe "$1[\"setStrokeColor\"]($2, $3)"+        js_setStrokeColor ::+        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 (self) (toJSString color) alpha)+ +foreign import javascript unsafe "$1[\"setStrokeColor\"]($2, $3)"+        js_setStrokeColorGray ::+        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 (self) grayLevel alpha)+ +foreign import javascript unsafe+        "$1[\"setStrokeColor\"]($2, $3, $4,\n$5)" js_setStrokeColorRGB ::+        CanvasRenderingContext2D ->+          Float -> Float -> Float -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setStrokeColor Mozilla CanvasRenderingContext2D.setStrokeColor documentation> +setStrokeColorRGB ::+                  (MonadIO m) =>+                    CanvasRenderingContext2D ->+                      Float -> Float -> Float -> Float -> m ()+setStrokeColorRGB self r g b a+  = liftIO (js_setStrokeColorRGB (self) r g b a)+ +foreign import javascript unsafe+        "$1[\"setStrokeColor\"]($2, $3, $4,\n$5, $6)" js_setStrokeColorCYMK+        ::+        CanvasRenderingContext2D ->+          Float -> Float -> Float -> Float -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setStrokeColor Mozilla CanvasRenderingContext2D.setStrokeColor documentation> +setStrokeColorCYMK ::+                   (MonadIO m) =>+                     CanvasRenderingContext2D ->+                       Float -> Float -> Float -> Float -> Float -> m ()+setStrokeColorCYMK self c m y k a+  = liftIO (js_setStrokeColorCYMK (self) c m y k a)+ +foreign import javascript unsafe "$1[\"setFillColor\"]($2, $3)"+        js_setFillColor ::+        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 (self) (toJSString color) alpha)+ +foreign import javascript unsafe "$1[\"setFillColor\"]($2, $3)"+        js_setFillColorGray ::+        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 (self) grayLevel alpha)+ +foreign import javascript unsafe+        "$1[\"setFillColor\"]($2, $3, $4,\n$5)" js_setFillColorRGB ::+        CanvasRenderingContext2D ->+          Float -> Float -> Float -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setFillColor Mozilla CanvasRenderingContext2D.setFillColor documentation> +setFillColorRGB ::+                (MonadIO m) =>+                  CanvasRenderingContext2D ->+                    Float -> Float -> Float -> Float -> m ()+setFillColorRGB self r g b a+  = liftIO (js_setFillColorRGB (self) r g b a)+ +foreign import javascript unsafe+        "$1[\"setFillColor\"]($2, $3, $4,\n$5, $6)" js_setFillColorCYMK ::+        CanvasRenderingContext2D ->+          Float -> Float -> Float -> Float -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setFillColor Mozilla CanvasRenderingContext2D.setFillColor documentation> +setFillColorCYMK ::+                 (MonadIO m) =>+                   CanvasRenderingContext2D ->+                     Float -> Float -> Float -> Float -> Float -> m ()+setFillColorCYMK self c m y k a+  = liftIO (js_setFillColorCYMK (self) c m y k a)+ +foreign import javascript unsafe+        "$1[\"strokeRect\"]($2, $3, $4, $5)" js_strokeRect ::+        CanvasRenderingContext2D ->+          Float -> Float -> Float -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.strokeRect Mozilla CanvasRenderingContext2D.strokeRect documentation> +strokeRect ::+           (MonadIO m) =>+             CanvasRenderingContext2D ->+               Float -> Float -> Float -> Float -> m ()+strokeRect self x y width height+  = liftIO (js_strokeRect (self) x y width height)+ +foreign import javascript unsafe "$1[\"drawImage\"]($2, $3, $4)"+        js_drawImage ::+        CanvasRenderingContext2D ->+          Nullable 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 (self) (maybeToNullable image) x y)+ +foreign import javascript unsafe+        "$1[\"drawImage\"]($2, $3, $4, $5,\n$6)" js_drawImageScaled ::+        CanvasRenderingContext2D ->+          Nullable 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 (self) (maybeToNullable image) x y width+         height)+ +foreign import javascript unsafe+        "$1[\"drawImage\"]($2, $3, $4, $5,\n$6, $7, $8, $9, $10)"+        js_drawImagePart ::+        CanvasRenderingContext2D ->+          Nullable 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 (self) (maybeToNullable image) sx sy sw sh dx dy+         dw+         dh)+ +foreign import javascript unsafe "$1[\"drawImage\"]($2, $3, $4)"+        js_drawImageFromCanvas ::+        CanvasRenderingContext2D ->+          Nullable 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 (self) (maybeToNullable canvas) x y)+ +foreign import javascript unsafe+        "$1[\"drawImage\"]($2, $3, $4, $5,\n$6)"+        js_drawImageFromCanvasScaled ::+        CanvasRenderingContext2D ->+          Nullable 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 (self) (maybeToNullable canvas) x y+         width+         height)+ +foreign import javascript unsafe+        "$1[\"drawImage\"]($2, $3, $4, $5,\n$6, $7, $8, $9, $10)"+        js_drawImageFromCanvasPart ::+        CanvasRenderingContext2D ->+          Nullable 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 (self) (maybeToNullable canvas) sx sy+         sw+         sh+         dx+         dy+         dw+         dh)+ +foreign import javascript unsafe "$1[\"drawImage\"]($2, $3, $4)"+        js_drawImageFromVideo ::+        CanvasRenderingContext2D ->+          Nullable 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 (self) (maybeToNullable video) x y)+ +foreign import javascript unsafe+        "$1[\"drawImage\"]($2, $3, $4, $5,\n$6)"+        js_drawImageFromVideoScaled ::+        CanvasRenderingContext2D ->+          Nullable 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 (self) (maybeToNullable video) x y+         width+         height)+ +foreign import javascript unsafe+        "$1[\"drawImage\"]($2, $3, $4, $5,\n$6, $7, $8, $9, $10)"+        js_drawImageFromVideoPart ::+        CanvasRenderingContext2D ->+          Nullable 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 (self) (maybeToNullable 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 ::+        CanvasRenderingContext2D ->+          Nullable 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 (self) (maybeToNullable 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 ::+        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 (self) width height blur (toJSString color) alpha)+ +foreign import javascript unsafe+        "$1[\"setShadow\"]($2, $3, $4, $5,\n$6)" js_setShadowGray ::+        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 (self) width height blur grayLevel alpha)+ +foreign import javascript unsafe+        "$1[\"setShadow\"]($2, $3, $4, $5,\n$6, $7, $8)" js_setShadowRGB ::+        CanvasRenderingContext2D ->+          Float ->+            Float -> Float -> Float -> Float -> Float -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setShadow Mozilla CanvasRenderingContext2D.setShadow documentation> +setShadowRGB ::+             (MonadIO m) =>+               CanvasRenderingContext2D ->+                 Float -> Float -> Float -> Float -> Float -> Float -> Float -> m ()+setShadowRGB self width height blur r g b a+  = liftIO (js_setShadowRGB (self) width height blur r g b a)+ +foreign import javascript unsafe+        "$1[\"setShadow\"]($2, $3, $4, $5,\n$6, $7, $8, $9)"+        js_setShadowCYMK ::+        CanvasRenderingContext2D ->+          Float ->+            Float ->+              Float -> Float -> Float -> Float -> Float -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setShadow Mozilla CanvasRenderingContext2D.setShadow documentation> +setShadowCYMK ::+              (MonadIO m) =>+                CanvasRenderingContext2D ->+                  Float ->+                    Float -> Float -> Float -> Float -> Float -> Float -> Float -> m ()+setShadowCYMK self width height blur c m y k a+  = liftIO (js_setShadowCYMK (self) width height blur c m y k a)+ +foreign import javascript unsafe "$1[\"putImageData\"]($2, $3, $4)"+        js_putImageData ::+        CanvasRenderingContext2D ->+          Nullable 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 (self) (maybeToNullable imagedata) dx dy)+ +foreign import javascript unsafe+        "$1[\"putImageData\"]($2, $3, $4,\n$5, $6, $7, $8)"+        js_putImageDataDirty ::+        CanvasRenderingContext2D ->+          Nullable 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 (self) (maybeToNullable imagedata) dx dy+         dirtyX+         dirtyY+         dirtyWidth+         dirtyHeight)+ +foreign import javascript unsafe+        "$1[\"webkitPutImageDataHD\"]($2,\n$3, $4)" js_webkitPutImageDataHD+        ::+        CanvasRenderingContext2D ->+          Nullable 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 (self) (maybeToNullable imagedata) dx dy)+ +foreign import javascript unsafe+        "$1[\"webkitPutImageDataHD\"]($2,\n$3, $4, $5, $6, $7, $8)"+        js_webkitPutImageDataHDDirty ::+        CanvasRenderingContext2D ->+          Nullable 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 (self) (maybeToNullable imagedata) dx+         dy+         dirtyX+         dirtyY+         dirtyWidth+         dirtyHeight)+ +foreign import javascript unsafe "$1[\"createPattern\"]($2, $3)"+        js_createPatternFromCanvas ::+        CanvasRenderingContext2D ->+          Nullable HTMLCanvasElement ->+            Nullable JSString -> IO (Nullable 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+      (nullableToMaybe <$>+         (js_createPatternFromCanvas (self) (maybeToNullable canvas)+            (toMaybeJSString repetitionType)))+ +foreign import javascript unsafe "$1[\"createPattern\"]($2, $3)"+        js_createPattern ::+        CanvasRenderingContext2D ->+          Nullable HTMLImageElement ->+            Nullable JSString -> IO (Nullable 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+      (nullableToMaybe <$>+         (js_createPattern (self) (maybeToNullable image)+            (toMaybeJSString repetitionType)))+ +foreign import javascript unsafe "$1[\"createImageData\"]($2)"+        js_createImageData ::+        CanvasRenderingContext2D ->+          Nullable ImageData -> IO (Nullable 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+      (nullableToMaybe <$>+         (js_createImageData (self) (maybeToNullable imagedata)))+ +foreign import javascript unsafe "$1[\"createImageData\"]($2, $3)"+        js_createImageDataSize ::+        CanvasRenderingContext2D ->+          Float -> Float -> IO (Nullable 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+      (nullableToMaybe <$> (js_createImageDataSize (self) sw sh))+ +foreign import javascript unsafe+        "$1[\"getImageData\"]($2, $3, $4,\n$5)" js_getImageData ::+        CanvasRenderingContext2D ->+          Float -> Float -> Float -> Float -> IO (Nullable 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 (nullableToMaybe <$> (js_getImageData (self) sx sy sw sh))+ +foreign import javascript unsafe+        "$1[\"webkitGetImageDataHD\"]($2,\n$3, $4, $5)"+        js_webkitGetImageDataHD ::+        CanvasRenderingContext2D ->+          Float -> Float -> Float -> Float -> IO (Nullable 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+      (nullableToMaybe <$> (js_webkitGetImageDataHD (self) sx sy sw sh))+ +foreign import javascript unsafe "$1[\"drawFocusIfNeeded\"]($2)"+        js_drawFocusIfNeeded ::+        CanvasRenderingContext2D -> Nullable 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 (self)+         (maybeToNullable (fmap toElement element)))+ +foreign import javascript unsafe+        "$1[\"drawFocusIfNeeded\"]($2, $3)" js_drawFocusIfNeededPath ::+        CanvasRenderingContext2D ->+          Nullable Path2D -> Nullable 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 (self) (maybeToNullable path)+         (maybeToNullable (fmap toElement element)))+ +foreign import javascript unsafe "$1[\"globalAlpha\"] = $2;"+        js_setGlobalAlpha :: CanvasRenderingContext2D -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.globalAlpha Mozilla CanvasRenderingContext2D.globalAlpha documentation> +setGlobalAlpha ::+               (MonadIO m) => CanvasRenderingContext2D -> Float -> m ()+setGlobalAlpha self val = liftIO (js_setGlobalAlpha (self) val)+ +foreign import javascript unsafe "$1[\"globalAlpha\"]"+        js_getGlobalAlpha :: CanvasRenderingContext2D -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.globalAlpha Mozilla CanvasRenderingContext2D.globalAlpha documentation> +getGlobalAlpha ::+               (MonadIO m) => CanvasRenderingContext2D -> m Float+getGlobalAlpha self = liftIO (js_getGlobalAlpha (self))+ +foreign import javascript unsafe+        "$1[\"globalCompositeOperation\"] = $2;"+        js_setGlobalCompositeOperation ::+        CanvasRenderingContext2D -> Nullable 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 (self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"globalCompositeOperation\"]"+        js_getGlobalCompositeOperation ::+        CanvasRenderingContext2D -> IO (Nullable 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 (self)))+ +foreign import javascript unsafe "$1[\"lineWidth\"] = $2;"+        js_setLineWidth :: CanvasRenderingContext2D -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.lineWidth Mozilla CanvasRenderingContext2D.lineWidth documentation> +setLineWidth ::+             (MonadIO m) => CanvasRenderingContext2D -> Float -> m ()+setLineWidth self val = liftIO (js_setLineWidth (self) val)+ +foreign import javascript unsafe "$1[\"lineWidth\"]"+        js_getLineWidth :: CanvasRenderingContext2D -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.lineWidth Mozilla CanvasRenderingContext2D.lineWidth documentation> +getLineWidth :: (MonadIO m) => CanvasRenderingContext2D -> m Float+getLineWidth self = liftIO (js_getLineWidth (self))+ +foreign import javascript unsafe "$1[\"lineCap\"] = $2;"+        js_setLineCap ::+        CanvasRenderingContext2D -> Nullable 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 (self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"lineCap\"]" js_getLineCap ::+        CanvasRenderingContext2D -> IO (Nullable 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 (self)))+ +foreign import javascript unsafe "$1[\"lineJoin\"] = $2;"+        js_setLineJoin ::+        CanvasRenderingContext2D -> Nullable 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 (self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"lineJoin\"]" js_getLineJoin+        :: CanvasRenderingContext2D -> IO (Nullable 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 (self)))+ +foreign import javascript unsafe "$1[\"miterLimit\"] = $2;"+        js_setMiterLimit :: CanvasRenderingContext2D -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.miterLimit Mozilla CanvasRenderingContext2D.miterLimit documentation> +setMiterLimit ::+              (MonadIO m) => CanvasRenderingContext2D -> Float -> m ()+setMiterLimit self val = liftIO (js_setMiterLimit (self) val)+ +foreign import javascript unsafe "$1[\"miterLimit\"]"+        js_getMiterLimit :: CanvasRenderingContext2D -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.miterLimit Mozilla CanvasRenderingContext2D.miterLimit documentation> +getMiterLimit :: (MonadIO m) => CanvasRenderingContext2D -> m Float+getMiterLimit self = liftIO (js_getMiterLimit (self))+ +foreign import javascript unsafe "$1[\"shadowOffsetX\"] = $2;"+        js_setShadowOffsetX :: CanvasRenderingContext2D -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.shadowOffsetX Mozilla CanvasRenderingContext2D.shadowOffsetX documentation> +setShadowOffsetX ::+                 (MonadIO m) => CanvasRenderingContext2D -> Float -> m ()+setShadowOffsetX self val = liftIO (js_setShadowOffsetX (self) val)+ +foreign import javascript unsafe "$1[\"shadowOffsetX\"]"+        js_getShadowOffsetX :: CanvasRenderingContext2D -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.shadowOffsetX Mozilla CanvasRenderingContext2D.shadowOffsetX documentation> +getShadowOffsetX ::+                 (MonadIO m) => CanvasRenderingContext2D -> m Float+getShadowOffsetX self = liftIO (js_getShadowOffsetX (self))+ +foreign import javascript unsafe "$1[\"shadowOffsetY\"] = $2;"+        js_setShadowOffsetY :: CanvasRenderingContext2D -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.shadowOffsetY Mozilla CanvasRenderingContext2D.shadowOffsetY documentation> +setShadowOffsetY ::+                 (MonadIO m) => CanvasRenderingContext2D -> Float -> m ()+setShadowOffsetY self val = liftIO (js_setShadowOffsetY (self) val)+ +foreign import javascript unsafe "$1[\"shadowOffsetY\"]"+        js_getShadowOffsetY :: CanvasRenderingContext2D -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.shadowOffsetY Mozilla CanvasRenderingContext2D.shadowOffsetY documentation> +getShadowOffsetY ::+                 (MonadIO m) => CanvasRenderingContext2D -> m Float+getShadowOffsetY self = liftIO (js_getShadowOffsetY (self))+ +foreign import javascript unsafe "$1[\"shadowBlur\"] = $2;"+        js_setShadowBlur :: CanvasRenderingContext2D -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.shadowBlur Mozilla CanvasRenderingContext2D.shadowBlur documentation> +setShadowBlur ::+              (MonadIO m) => CanvasRenderingContext2D -> Float -> m ()+setShadowBlur self val = liftIO (js_setShadowBlur (self) val)+ +foreign import javascript unsafe "$1[\"shadowBlur\"]"+        js_getShadowBlur :: CanvasRenderingContext2D -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.shadowBlur Mozilla CanvasRenderingContext2D.shadowBlur documentation> +getShadowBlur :: (MonadIO m) => CanvasRenderingContext2D -> m Float+getShadowBlur self = liftIO (js_getShadowBlur (self))+ +foreign import javascript unsafe "$1[\"shadowColor\"] = $2;"+        js_setShadowColor ::+        CanvasRenderingContext2D -> Nullable 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 (self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"shadowColor\"]"+        js_getShadowColor ::+        CanvasRenderingContext2D -> IO (Nullable 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 (self)))+ +foreign import javascript unsafe "$1[\"lineDashOffset\"] = $2;"+        js_setLineDashOffset :: CanvasRenderingContext2D -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.lineDashOffset Mozilla CanvasRenderingContext2D.lineDashOffset documentation> +setLineDashOffset ::+                  (MonadIO m) => CanvasRenderingContext2D -> Float -> m ()+setLineDashOffset self val+  = liftIO (js_setLineDashOffset (self) val)+ +foreign import javascript unsafe "$1[\"lineDashOffset\"]"+        js_getLineDashOffset :: CanvasRenderingContext2D -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.lineDashOffset Mozilla CanvasRenderingContext2D.lineDashOffset documentation> +getLineDashOffset ::+                  (MonadIO m) => CanvasRenderingContext2D -> m Float+getLineDashOffset self = liftIO (js_getLineDashOffset (self))+ +foreign import javascript unsafe "$1[\"webkitLineDash\"] = $2;"+        js_setWebkitLineDash ::+        CanvasRenderingContext2D -> Nullable 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 (self) (maybeToNullable (fmap toArray val)))+ +foreign import javascript unsafe "$1[\"webkitLineDash\"]"+        js_getWebkitLineDash ::+        CanvasRenderingContext2D -> IO (Nullable 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 (nullableToMaybe <$> (js_getWebkitLineDash (self)))+ +foreign import javascript unsafe+        "$1[\"webkitLineDashOffset\"] = $2;" js_setWebkitLineDashOffset ::+        CanvasRenderingContext2D -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.webkitLineDashOffset Mozilla CanvasRenderingContext2D.webkitLineDashOffset documentation> +setWebkitLineDashOffset ::+                        (MonadIO m) => CanvasRenderingContext2D -> Float -> m ()+setWebkitLineDashOffset self val+  = liftIO (js_setWebkitLineDashOffset (self) val)+ +foreign import javascript unsafe "$1[\"webkitLineDashOffset\"]"+        js_getWebkitLineDashOffset :: CanvasRenderingContext2D -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.webkitLineDashOffset Mozilla CanvasRenderingContext2D.webkitLineDashOffset documentation> +getWebkitLineDashOffset ::+                        (MonadIO m) => CanvasRenderingContext2D -> m Float+getWebkitLineDashOffset self+  = liftIO (js_getWebkitLineDashOffset (self))+ +foreign import javascript unsafe "$1[\"font\"] = $2;" js_setFont ::+        CanvasRenderingContext2D -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.font Mozilla CanvasRenderingContext2D.font documentation> +setFont ::+        (MonadIO m, ToJSString val) =>+          CanvasRenderingContext2D -> val -> m ()+setFont self val = liftIO (js_setFont (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"font\"]" js_getFont ::+        CanvasRenderingContext2D -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.font Mozilla CanvasRenderingContext2D.font documentation> +getFont ::+        (MonadIO m, FromJSString result) =>+          CanvasRenderingContext2D -> m result+getFont self = liftIO (fromJSString <$> (js_getFont (self)))+ +foreign import javascript unsafe "$1[\"textAlign\"] = $2;"+        js_setTextAlign :: CanvasRenderingContext2D -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.textAlign Mozilla CanvasRenderingContext2D.textAlign documentation> +setTextAlign ::+             (MonadIO m, ToJSString val) =>+               CanvasRenderingContext2D -> val -> m ()+setTextAlign self val+  = liftIO (js_setTextAlign (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"textAlign\"]"+        js_getTextAlign :: CanvasRenderingContext2D -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.textAlign Mozilla CanvasRenderingContext2D.textAlign documentation> +getTextAlign ::+             (MonadIO m, FromJSString result) =>+               CanvasRenderingContext2D -> m result+getTextAlign self+  = liftIO (fromJSString <$> (js_getTextAlign (self)))+ +foreign import javascript unsafe "$1[\"textBaseline\"] = $2;"+        js_setTextBaseline :: CanvasRenderingContext2D -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.textBaseline Mozilla CanvasRenderingContext2D.textBaseline documentation> +setTextBaseline ::+                (MonadIO m, ToJSString val) =>+                  CanvasRenderingContext2D -> val -> m ()+setTextBaseline self val+  = liftIO (js_setTextBaseline (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"textBaseline\"]"+        js_getTextBaseline :: CanvasRenderingContext2D -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.textBaseline Mozilla CanvasRenderingContext2D.textBaseline documentation> +getTextBaseline ::+                (MonadIO m, FromJSString result) =>+                  CanvasRenderingContext2D -> m result+getTextBaseline self+  = liftIO (fromJSString <$> (js_getTextBaseline (self)))+ +foreign import javascript unsafe "$1[\"direction\"] = $2;"+        js_setDirection :: CanvasRenderingContext2D -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.direction Mozilla CanvasRenderingContext2D.direction documentation> +setDirection ::+             (MonadIO m, ToJSString val) =>+               CanvasRenderingContext2D -> val -> m ()+setDirection self val+  = liftIO (js_setDirection (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"direction\"]"+        js_getDirection :: CanvasRenderingContext2D -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.direction Mozilla CanvasRenderingContext2D.direction documentation> +getDirection ::+             (MonadIO m, FromJSString result) =>+               CanvasRenderingContext2D -> m result+getDirection self+  = liftIO (fromJSString <$> (js_getDirection (self)))+ +foreign import javascript unsafe "$1[\"strokeStyle\"] = $2;"+        js_setStrokeStyle ::+        CanvasRenderingContext2D -> Nullable 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 (self)+         (maybeToNullable (fmap toCanvasStyle val)))+ +foreign import javascript unsafe "$1[\"strokeStyle\"]"+        js_getStrokeStyle ::+        CanvasRenderingContext2D -> IO (Nullable 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 (nullableToMaybe <$> (js_getStrokeStyle (self)))+ +foreign import javascript unsafe "$1[\"fillStyle\"] = $2;"+        js_setFillStyle ::+        CanvasRenderingContext2D -> Nullable 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 (self) (maybeToNullable (fmap toCanvasStyle val)))+ +foreign import javascript unsafe "$1[\"fillStyle\"]"+        js_getFillStyle ::+        CanvasRenderingContext2D -> IO (Nullable 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 (nullableToMaybe <$> (js_getFillStyle (self)))+ +foreign import javascript unsafe+        "$1[\"webkitBackingStorePixelRatio\"]"+        js_getWebkitBackingStorePixelRatio ::+        CanvasRenderingContext2D -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.webkitBackingStorePixelRatio Mozilla CanvasRenderingContext2D.webkitBackingStorePixelRatio documentation> +getWebkitBackingStorePixelRatio ::+                                (MonadIO m) => CanvasRenderingContext2D -> m Float+getWebkitBackingStorePixelRatio self+  = liftIO (js_getWebkitBackingStorePixelRatio (self))+ +foreign import javascript unsafe+        "$1[\"webkitImageSmoothingEnabled\"] = $2;"+        js_setWebkitImageSmoothingEnabled ::+        CanvasRenderingContext2D -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.webkitImageSmoothingEnabled Mozilla CanvasRenderingContext2D.webkitImageSmoothingEnabled documentation> +setWebkitImageSmoothingEnabled ::+                               (MonadIO m) => CanvasRenderingContext2D -> Bool -> m ()+setWebkitImageSmoothingEnabled self val+  = liftIO (js_setWebkitImageSmoothingEnabled (self) val)+ +foreign import javascript unsafe+        "($1[\"webkitImageSmoothingEnabled\"] ? 1 : 0)"+        js_getWebkitImageSmoothingEnabled ::+        CanvasRenderingContext2D -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.webkitImageSmoothingEnabled Mozilla CanvasRenderingContext2D.webkitImageSmoothingEnabled documentation> +getWebkitImageSmoothingEnabled ::+                               (MonadIO m) => CanvasRenderingContext2D -> m Bool+getWebkitImageSmoothingEnabled self+  = liftIO (js_getWebkitImageSmoothingEnabled (self))
+ src/GHCJS/DOM/JSFFI/Generated/CapabilityRange.hs view
@@ -0,0 +1,41 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"max\"]" js_getMax ::+        CapabilityRange -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CapabilityRange.max Mozilla CapabilityRange.max documentation> +getMax :: (MonadIO m) => CapabilityRange -> m JSVal+getMax self = liftIO (js_getMax (self))+ +foreign import javascript unsafe "$1[\"min\"]" js_getMin ::+        CapabilityRange -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CapabilityRange.min Mozilla CapabilityRange.min documentation> +getMin :: (MonadIO m) => CapabilityRange -> m JSVal+getMin self = liftIO (js_getMin (self))+ +foreign import javascript unsafe "($1[\"supported\"] ? 1 : 0)"+        js_getSupported :: 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 (self))
+ src/GHCJS/DOM/JSFFI/Generated/CharacterData.hs view
@@ -0,0 +1,107 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"substringData\"]($2, $3)"+        js_substringData ::+        CharacterData -> Word -> Word -> IO (Nullable 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 (toCharacterData self) offset length))+ +foreign import javascript unsafe "$1[\"appendData\"]($2)"+        js_appendData :: CharacterData -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CharacterData.appendData Mozilla CharacterData.appendData documentation> +appendData ::+           (MonadIO m, IsCharacterData self, ToJSString data') =>+             self -> data' -> m ()+appendData self data'+  = liftIO (js_appendData (toCharacterData self) (toJSString data'))+ +foreign import javascript unsafe "$1[\"insertData\"]($2, $3)"+        js_insertData :: 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 (toCharacterData self) offset (toJSString data'))+ +foreign import javascript unsafe "$1[\"deleteData\"]($2, $3)"+        js_deleteData :: 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 (toCharacterData self) offset length)+ +foreign import javascript unsafe "$1[\"replaceData\"]($2, $3, $4)"+        js_replaceData ::+        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 (toCharacterData self) offset length+         (toJSString data'))+ +foreign import javascript unsafe "$1[\"data\"] = $2;" js_setData ::+        CharacterData -> Nullable 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 (toCharacterData self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"data\"]" js_getData ::+        CharacterData -> IO (Nullable 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 (toCharacterData self)))+ +foreign import javascript unsafe "$1[\"length\"]" js_getLength ::+        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 (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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"remove\"]()" js_remove ::+        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 (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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"top\"]" js_getTop ::+        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 (self))+ +foreign import javascript unsafe "$1[\"right\"]" js_getRight ::+        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 (self))+ +foreign import javascript unsafe "$1[\"bottom\"]" js_getBottom ::+        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 (self))+ +foreign import javascript unsafe "$1[\"left\"]" js_getLeft ::+        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 (self))+ +foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::+        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 (self))+ +foreign import javascript unsafe "$1[\"height\"]" js_getHeight ::+        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 (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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"item\"]($2)" js_item ::+        ClientRectList -> Word -> IO (Nullable 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 (nullableToMaybe <$> (js_item (self) index))+ +foreign import javascript unsafe "$1[\"length\"]" js_getLength ::+        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 (self))
+ src/GHCJS/DOM/JSFFI/Generated/CloseEvent.hs view
@@ -0,0 +1,41 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "($1[\"wasClean\"] ? 1 : 0)"+        js_getWasClean :: 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 (self))+ +foreign import javascript unsafe "$1[\"code\"]" js_getCode ::+        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 (self))+ +foreign import javascript unsafe "$1[\"reason\"]" js_getReason ::+        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 (self)))
+ src/GHCJS/DOM/JSFFI/Generated/CommandLineAPIHost.hs view
@@ -0,0 +1,87 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"clearConsoleMessages\"]()"+        js_clearConsoleMessages :: CommandLineAPIHost -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CommandLineAPIHost.clearConsoleMessages Mozilla CommandLineAPIHost.clearConsoleMessages documentation> +clearConsoleMessages :: (MonadIO m) => CommandLineAPIHost -> m ()+clearConsoleMessages self = liftIO (js_clearConsoleMessages (self))+ +foreign import javascript unsafe "$1[\"copyText\"]($2)" js_copyText+        :: CommandLineAPIHost -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CommandLineAPIHost.copyText Mozilla CommandLineAPIHost.copyText documentation> +copyText ::+         (MonadIO m, ToJSString text) => CommandLineAPIHost -> text -> m ()+copyText self text = liftIO (js_copyText (self) (toJSString text))+ +foreign import javascript unsafe "$1[\"inspect\"]($2, $3)"+        js_inspect :: CommandLineAPIHost -> JSVal -> JSVal -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CommandLineAPIHost.inspect Mozilla CommandLineAPIHost.inspect documentation> +inspect ::+        (MonadIO m) => CommandLineAPIHost -> JSVal -> JSVal -> m ()+inspect self objectId hints+  = liftIO (js_inspect (self) objectId hints)+ +foreign import javascript unsafe "$1[\"inspectedObject\"]($2)"+        js_inspectedObject :: CommandLineAPIHost -> Int -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CommandLineAPIHost.inspectedObject Mozilla CommandLineAPIHost.inspectedObject documentation> +inspectedObject ::+                (MonadIO m) => CommandLineAPIHost -> Int -> m JSVal+inspectedObject self num = liftIO (js_inspectedObject (self) num)+ +foreign import javascript unsafe "$1[\"getEventListeners\"]($2)"+        js_getEventListeners ::+        CommandLineAPIHost -> Nullable Node -> IO (Nullable 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+      (nullableToMaybe <$>+         (js_getEventListeners (self) (maybeToNullable (fmap toNode node))))+ +foreign import javascript unsafe "$1[\"databaseId\"]($2)"+        js_databaseId :: CommandLineAPIHost -> JSVal -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CommandLineAPIHost.databaseId Mozilla CommandLineAPIHost.databaseId documentation> +databaseId ::+           (MonadIO m, FromJSString result) =>+             CommandLineAPIHost -> JSVal -> m result+databaseId self database+  = liftIO (fromJSString <$> (js_databaseId (self) database))+ +foreign import javascript unsafe "$1[\"storageId\"]($2)"+        js_storageId :: CommandLineAPIHost -> JSVal -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CommandLineAPIHost.storageId Mozilla CommandLineAPIHost.storageId documentation> +storageId ::+          (MonadIO m, FromJSString result) =>+            CommandLineAPIHost -> JSVal -> m result+storageId self storage+  = liftIO (fromJSString <$> (js_storageId (self) storage))
+ src/GHCJS/DOM/JSFFI/Generated/Comment.hs view
@@ -0,0 +1,25 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "new window[\"Comment\"]($1)"+        js_newComment :: JSString -> IO 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'))
+ src/GHCJS/DOM/JSFFI/Generated/CompositionEvent.hs view
@@ -0,0 +1,47 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe+        "$1[\"initCompositionEvent\"]($2,\n$3, $4, $5, $6)"+        js_initCompositionEvent ::+        CompositionEvent ->+          JSString -> Bool -> Bool -> Nullable 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 (self) (toJSString typeArg) canBubbleArg+         cancelableArg+         (maybeToNullable viewArg)+         (toJSString dataArg))+ +foreign import javascript unsafe "$1[\"data\"]" js_getData ::+        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 (self)))
+ src/GHCJS/DOM/JSFFI/Generated/ConvolverNode.hs view
@@ -0,0 +1,50 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"buffer\"] = $2;"+        js_setBuffer :: ConvolverNode -> Nullable AudioBuffer -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ConvolverNode.buffer Mozilla ConvolverNode.buffer documentation> +setBuffer ::+          (MonadIO m) => ConvolverNode -> Maybe AudioBuffer -> m ()+setBuffer self val+  = liftIO (js_setBuffer (self) (maybeToNullable val))+ +foreign import javascript unsafe "$1[\"buffer\"]" js_getBuffer ::+        ConvolverNode -> IO (Nullable 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 (nullableToMaybe <$> (js_getBuffer (self)))+ +foreign import javascript unsafe "$1[\"normalize\"] = $2;"+        js_setNormalize :: 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 (self) val)+ +foreign import javascript unsafe "($1[\"normalize\"] ? 1 : 0)"+        js_getNormalize :: ConvolverNode -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ConvolverNode.normalize Mozilla ConvolverNode.normalize documentation> +getNormalize :: (MonadIO m) => ConvolverNode -> m Bool+getNormalize self = liftIO (js_getNormalize (self))
+ src/GHCJS/DOM/JSFFI/Generated/Coordinates.hs view
@@ -0,0 +1,76 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"latitude\"]" js_getLatitude+        :: Coordinates -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Coordinates.latitude Mozilla Coordinates.latitude documentation> +getLatitude :: (MonadIO m) => Coordinates -> m Double+getLatitude self = liftIO (js_getLatitude (self))+ +foreign import javascript unsafe "$1[\"longitude\"]"+        js_getLongitude :: Coordinates -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Coordinates.longitude Mozilla Coordinates.longitude documentation> +getLongitude :: (MonadIO m) => Coordinates -> m Double+getLongitude self = liftIO (js_getLongitude (self))+ +foreign import javascript unsafe "$1[\"altitude\"]" js_getAltitude+        :: Coordinates -> IO JSVal++-- | <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 (self)) >>= fromJSValUnchecked)+ +foreign import javascript unsafe "$1[\"accuracy\"]" js_getAccuracy+        :: Coordinates -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Coordinates.accuracy Mozilla Coordinates.accuracy documentation> +getAccuracy :: (MonadIO m) => Coordinates -> m Double+getAccuracy self = liftIO (js_getAccuracy (self))+ +foreign import javascript unsafe "$1[\"altitudeAccuracy\"]"+        js_getAltitudeAccuracy :: Coordinates -> IO JSVal++-- | <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 (self)) >>= fromJSValUnchecked)+ +foreign import javascript unsafe "$1[\"heading\"]" js_getHeading ::+        Coordinates -> IO JSVal++-- | <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 (self)) >>= fromJSValUnchecked)+ +foreign import javascript unsafe "$1[\"speed\"]" js_getSpeed ::+        Coordinates -> IO JSVal++-- | <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 (self)) >>= fromJSValUnchecked)
+ 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"identifier\"]"+        js_getIdentifier :: Counter -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Counter.identifier Mozilla Counter.identifier documentation> +getIdentifier ::+              (MonadIO m, FromJSString result) => Counter -> m result+getIdentifier self+  = liftIO (fromJSString <$> (js_getIdentifier (self)))+ +foreign import javascript unsafe "$1[\"listStyle\"]"+        js_getListStyle :: Counter -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Counter.listStyle Mozilla Counter.listStyle documentation> +getListStyle ::+             (MonadIO m, FromJSString result) => Counter -> m result+getListStyle self+  = liftIO (fromJSString <$> (js_getListStyle (self)))+ +foreign import javascript unsafe "$1[\"separator\"]"+        js_getSeparator :: Counter -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Counter.separator Mozilla Counter.separator documentation> +getSeparator ::+             (MonadIO m, FromJSString result) => Counter -> m result+getSeparator self+  = liftIO (fromJSString <$> (js_getSeparator (self)))
+ src/GHCJS/DOM/JSFFI/Generated/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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"getRandomValues\"]($2)"+        js_getRandomValues ::+        Crypto -> Nullable ArrayBufferView -> IO (Nullable 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+      (nullableToMaybe <$>+         (js_getRandomValues (self)+            (maybeToNullable (fmap toArrayBufferView array))))+ +foreign import javascript unsafe "$1[\"webkitSubtle\"]"+        js_getWebkitSubtle :: Crypto -> IO (Nullable 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 (nullableToMaybe <$> (js_getWebkitSubtle (self)))
+ src/GHCJS/DOM/JSFFI/Generated/CryptoKey.hs view
@@ -0,0 +1,50 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"type\"]" js_getType ::+        CryptoKey -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CryptoKey.type Mozilla CryptoKey.type documentation> +getType :: (MonadIO m) => CryptoKey -> m KeyType+getType self = liftIO ((js_getType (self)) >>= fromJSValUnchecked)+ +foreign import javascript unsafe "($1[\"extractable\"] ? 1 : 0)"+        js_getExtractable :: 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 (self))+ +foreign import javascript unsafe "$1[\"algorithm\"]"+        js_getAlgorithm :: CryptoKey -> IO (Nullable 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 (nullableToMaybe <$> (js_getAlgorithm (self)))+ +foreign import javascript unsafe "$1[\"usages\"]" js_getUsages ::+        CryptoKey -> IO JSVal++-- | <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 (self)) >>= fromJSValUnchecked)
+ 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"publicKey\"]"+        js_getPublicKey :: CryptoKeyPair -> IO (Nullable 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 (nullableToMaybe <$> (js_getPublicKey (self)))+ +foreign import javascript unsafe "$1[\"privateKey\"]"+        js_getPrivateKey :: CryptoKeyPair -> IO (Nullable 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 (nullableToMaybe <$> (js_getPrivateKey (self)))
+ src/GHCJS/DOM/JSFFI/Generated/CustomEvent.hs view
@@ -0,0 +1,40 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe+        "$1[\"initCustomEvent\"]($2, $3,\n$4, $5)" js_initCustomEvent ::+        CustomEvent -> JSString -> Bool -> Bool -> JSVal -> 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 -> JSVal -> m ()+initCustomEvent self typeArg canBubbleArg cancelableArg detailArg+  = liftIO+      (js_initCustomEvent (self) (toJSString typeArg) canBubbleArg+         cancelableArg+         detailArg)+ +foreign import javascript unsafe "$1[\"detail\"]" js_getDetail ::+        CustomEvent -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CustomEvent.detail Mozilla CustomEvent.detail documentation> +getDetail :: (MonadIO m) => CustomEvent -> m JSVal+getDetail self = liftIO (js_getDetail (self))
+ src/GHCJS/DOM/JSFFI/Generated/DOMError.hs view
@@ -0,0 +1,29 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"name\"]" js_getName ::+        DOMError -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMError.name Mozilla DOMError.name documentation> +getName ::+        (MonadIO m, IsDOMError self, FromJSString result) =>+          self -> m result+getName self+  = liftIO (fromJSString <$> (js_getName (toDOMError self)))
+ src/GHCJS/DOM/JSFFI/Generated/DOMImplementation.hs view
@@ -0,0 +1,104 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe+        "($1[\"hasFeature\"]($2,\n$3) ? 1 : 0)" js_hasFeature ::+        DOMImplementation -> JSString -> Nullable 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 (self) (toJSString feature)+         (toMaybeJSString version))+ +foreign import javascript unsafe+        "$1[\"createDocumentType\"]($2, $3,\n$4)" js_createDocumentType ::+        DOMImplementation ->+          Nullable JSString ->+            Nullable JSString ->+              Nullable JSString -> IO (Nullable 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+      (nullableToMaybe <$>+         (js_createDocumentType (self) (toMaybeJSString qualifiedName)+            (toMaybeJSString publicId)+            (toMaybeJSString systemId)))+ +foreign import javascript unsafe+        "$1[\"createDocument\"]($2, $3, $4)" js_createDocument ::+        DOMImplementation ->+          Nullable JSString ->+            Nullable JSString ->+              Nullable DocumentType -> IO (Nullable 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+      (nullableToMaybe <$>+         (js_createDocument (self) (toMaybeJSString namespaceURI)+            (toMaybeJSString qualifiedName)+            (maybeToNullable doctype)))+ +foreign import javascript unsafe+        "$1[\"createCSSStyleSheet\"]($2,\n$3)" js_createCSSStyleSheet ::+        DOMImplementation ->+          JSString -> JSString -> IO (Nullable 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+      (nullableToMaybe <$>+         (js_createCSSStyleSheet (self) (toJSString title)+            (toJSString media)))+ +foreign import javascript unsafe "$1[\"createHTMLDocument\"]($2)"+        js_createHTMLDocument ::+        DOMImplementation -> JSString -> IO (Nullable 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+      (nullableToMaybe <$>+         (js_createHTMLDocument (self) (toJSString title)))
+ src/GHCJS/DOM/JSFFI/Generated/DOMNamedFlowCollection.hs view
@@ -0,0 +1,49 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"item\"]($2)" js_item ::+        DOMNamedFlowCollection -> Word -> IO (Nullable WebKitNamedFlow)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitNamedFlowCollection.item Mozilla WebKitNamedFlowCollection.item documentation> +item ::+     (MonadIO m) =>+       DOMNamedFlowCollection -> Word -> m (Maybe WebKitNamedFlow)+item self index+  = liftIO (nullableToMaybe <$> (js_item (self) index))+ +foreign import javascript unsafe "$1[\"namedItem\"]($2)"+        js_namedItem ::+        DOMNamedFlowCollection -> JSString -> IO (Nullable WebKitNamedFlow)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitNamedFlowCollection.namedItem Mozilla WebKitNamedFlowCollection.namedItem documentation> +namedItem ::+          (MonadIO m, ToJSString name) =>+            DOMNamedFlowCollection -> name -> m (Maybe WebKitNamedFlow)+namedItem self name+  = liftIO+      (nullableToMaybe <$> (js_namedItem (self) (toJSString name)))+ +foreign import javascript unsafe "$1[\"length\"]" js_getLength ::+        DOMNamedFlowCollection -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitNamedFlowCollection.length Mozilla WebKitNamedFlowCollection.length documentation> +getLength :: (MonadIO m) => DOMNamedFlowCollection -> m Word+getLength self = liftIO (js_getLength (self))
+ src/GHCJS/DOM/JSFFI/Generated/DOMParser.hs view
@@ -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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "new window[\"DOMParser\"]()"+        js_newDOMParser :: IO DOMParser++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMParser Mozilla DOMParser documentation> +newDOMParser :: (MonadIO m) => m DOMParser+newDOMParser = liftIO (js_newDOMParser)+ +foreign import javascript unsafe "$1[\"parseFromString\"]($2, $3)"+        js_parseFromString ::+        DOMParser -> JSString -> JSString -> IO (Nullable 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+      (nullableToMaybe <$>+         (js_parseFromString (self) (toJSString str)+            (toJSString contentType)))
+ src/GHCJS/DOM/JSFFI/Generated/DOMSettableTokenList.hs view
@@ -0,0 +1,47 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"_get\"]($2)" js__get ::+        DOMSettableTokenList -> Word -> IO (Nullable 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 (self) index))+ +foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue+        :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"value\"]" js_getValue ::+        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 (self)))
+ src/GHCJS/DOM/JSFFI/Generated/DOMStringList.hs view
@@ -0,0 +1,45 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"item\"]($2)" js_item ::+        DOMStringList -> Word -> IO (Nullable JSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMStringList.item Mozilla DOMStringList.item documentation> +item ::+     (MonadIO m, FromJSString result) =>+       DOMStringList -> Word -> m (Maybe result)+item self index+  = liftIO (fromMaybeJSString <$> (js_item (self) index))+ +foreign import javascript unsafe "($1[\"contains\"]($2) ? 1 : 0)"+        js_contains :: 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 (self) (toJSString string))+ +foreign import javascript unsafe "$1[\"length\"]" js_getLength ::+        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 (self))
+ src/GHCJS/DOM/JSFFI/Generated/DOMTokenList.hs view
@@ -0,0 +1,95 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"item\"]($2)" js_item ::+        DOMTokenList -> Word -> IO (Nullable JSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMTokenList.item Mozilla DOMTokenList.item documentation> +item ::+     (MonadIO m, IsDOMTokenList self, FromJSString result) =>+       self -> Word -> m (Maybe result)+item self index+  = liftIO+      (fromMaybeJSString <$> (js_item (toDOMTokenList self) index))+ +foreign import javascript unsafe "($1[\"contains\"]($2) ? 1 : 0)"+        js_contains :: 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 (toDOMTokenList self) (toJSString token))+ +foreign import javascript unsafe "$1[\"add\"].apply($1, $2)" js_add+        :: DOMTokenList -> JSVal -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMTokenList.add Mozilla DOMTokenList.add documentation> +add ::+    (MonadIO m, IsDOMTokenList self, ToJSString tokens,+     ToJSVal tokens) =>+      self -> [tokens] -> m ()+add self tokens+  = liftIO+      (toJSVal tokens >>=+         \ tokens' -> js_add (toDOMTokenList self) tokens')+ +foreign import javascript unsafe "$1[\"remove\"].apply($1, $2)"+        js_remove :: DOMTokenList -> JSVal -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMTokenList.remove Mozilla DOMTokenList.remove documentation> +remove ::+       (MonadIO m, IsDOMTokenList self, ToJSString tokens,+        ToJSVal tokens) =>+         self -> [tokens] -> m ()+remove self tokens+  = liftIO+      (toJSVal tokens >>=+         \ tokens' -> js_remove (toDOMTokenList self) tokens')+ +foreign import javascript unsafe "($1[\"toggle\"]($2, $3) ? 1 : 0)"+        js_toggle :: 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 (toDOMTokenList self) (toJSString token) force)+ +foreign import javascript unsafe "$1[\"toString\"]()" js_toString+        :: 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 (toDOMTokenList self)))+ +foreign import javascript unsafe "$1[\"length\"]" js_getLength ::+        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 (toDOMTokenList self))
+ src/GHCJS/DOM/JSFFI/Generated/DataCue.hs view
@@ -0,0 +1,78 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "new window[\"WebKitDataCue\"]()"+        js_newDataCue :: IO DataCue++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitDataCue Mozilla WebKitDataCue documentation> +newDataCue :: (MonadIO m) => m DataCue+newDataCue = liftIO (js_newDataCue)+ +foreign import javascript unsafe+        "new window[\"WebKitDataCue\"]($1,\n$2, $3, $4)" js_newDataCue' ::+        Double -> Double -> JSVal -> JSString -> IO DataCue++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitDataCue Mozilla WebKitDataCue documentation> +newDataCue' ::+            (MonadIO m, ToJSString type') =>+              Double -> Double -> JSVal -> type' -> m DataCue+newDataCue' startTime endTime value type'+  = liftIO+      (js_newDataCue' startTime endTime value (toJSString type'))+ +foreign import javascript unsafe "$1[\"data\"] = $2;" js_setData ::+        DataCue -> Nullable 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 (self) (maybeToNullable (fmap toArrayBuffer val)))+ +foreign import javascript unsafe "$1[\"data\"]" js_getData ::+        DataCue -> IO (Nullable 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 (nullableToMaybe <$> (js_getData (self)))+ +foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue+        :: DataCue -> JSVal -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitDataCue.value Mozilla WebKitDataCue.value documentation> +setValue :: (MonadIO m) => DataCue -> JSVal -> m ()+setValue self val = liftIO (js_setValue (self) val)+ +foreign import javascript unsafe "$1[\"value\"]" js_getValue ::+        DataCue -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitDataCue.value Mozilla WebKitDataCue.value documentation> +getValue :: (MonadIO m) => DataCue -> m JSVal+getValue self = liftIO (js_getValue (self))+ +foreign import javascript unsafe "$1[\"type\"]" js_getType ::+        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 (self)))
+ src/GHCJS/DOM/JSFFI/Generated/DataTransfer.hs view
@@ -0,0 +1,123 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"clearData\"]($2)"+        js_clearData :: 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 (self) (toJSString type'))+ +foreign import javascript unsafe "$1[\"getData\"]($2)" js_getData+        :: 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 (self) (toJSString type')))+ +foreign import javascript unsafe "$1[\"setData\"]($2, $3)"+        js_setData :: 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 (self) (toJSString type') (toJSString data'))+ +foreign import javascript unsafe "$1[\"setDragImage\"]($2, $3, $4)"+        js_setDragImage ::+        DataTransfer -> Nullable Element -> Int -> Int -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer.setDragImage Mozilla DataTransfer.setDragImage documentation> +setDragImage ::+             (MonadIO m, IsElement image) =>+               DataTransfer -> Maybe image -> Int -> Int -> m ()+setDragImage self image x y+  = liftIO+      (js_setDragImage (self) (maybeToNullable (fmap toElement image)) x+         y)+ +foreign import javascript unsafe "$1[\"dropEffect\"] = $2;"+        js_setDropEffect :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"dropEffect\"]"+        js_getDropEffect :: 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 (self)))+ +foreign import javascript unsafe "$1[\"effectAllowed\"] = $2;"+        js_setEffectAllowed :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"effectAllowed\"]"+        js_getEffectAllowed :: DataTransfer -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer.effectAllowed Mozilla DataTransfer.effectAllowed documentation> +getEffectAllowed ::+                 (MonadIO m, FromJSString result) => DataTransfer -> m result+getEffectAllowed self+  = liftIO (fromJSString <$> (js_getEffectAllowed (self)))+ +foreign import javascript unsafe "$1[\"types\"]" js_getTypes ::+        DataTransfer -> IO (Nullable 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 (nullableToMaybe <$> (js_getTypes (self)))+ +foreign import javascript unsafe "$1[\"files\"]" js_getFiles ::+        DataTransfer -> IO (Nullable 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 (nullableToMaybe <$> (js_getFiles (self)))+ +foreign import javascript unsafe "$1[\"items\"]" js_getItems ::+        DataTransfer -> IO (Nullable 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 (nullableToMaybe <$> (js_getItems (self)))
+ src/GHCJS/DOM/JSFFI/Generated/DataTransferItem.hs view
@@ -0,0 +1,54 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"getAsString\"]($2)"+        js_getAsString ::+        DataTransferItem -> Nullable (StringCallback callback) -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransferItem.getAsString Mozilla DataTransferItem.getAsString documentation> +getAsString ::+            (MonadIO m, ToJSString callback) =>+              DataTransferItem -> Maybe (StringCallback callback) -> m ()+getAsString self callback+  = liftIO (js_getAsString (self) (maybeToNullable callback))+ +foreign import javascript unsafe "$1[\"getAsFile\"]()" js_getAsFile+        :: DataTransferItem -> IO (Nullable 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 (nullableToMaybe <$> (js_getAsFile (self)))+ +foreign import javascript unsafe "$1[\"kind\"]" js_getKind ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"type\"]" js_getType ::+        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 (self)))
+ src/GHCJS/DOM/JSFFI/Generated/DataTransferItemList.hs view
@@ -0,0 +1,63 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"item\"]($2)" js_item ::+        DataTransferItemList -> Word -> IO (Nullable 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 (nullableToMaybe <$> (js_item (self) index))+ +foreign import javascript unsafe "$1[\"clear\"]()" js_clear ::+        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 (self))+ +foreign import javascript unsafe "$1[\"add\"]($2)" js_addFile ::+        DataTransferItemList -> Nullable 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 (self) (maybeToNullable file))+ +foreign import javascript unsafe "$1[\"add\"]($2, $3)" js_add ::+        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 (self) (toJSString data') (toJSString type'))+ +foreign import javascript unsafe "$1[\"length\"]" js_getLength ::+        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 (self))
+ src/GHCJS/DOM/JSFFI/Generated/Database.hs view
@@ -0,0 +1,92 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe+        "$1[\"changeVersion\"]($2, $3, $4,\n$5, $6)" js_changeVersion ::+        Database ->+          JSString ->+            JSString ->+              Nullable SQLTransactionCallback ->+                Nullable SQLTransactionErrorCallback ->+                  Nullable VoidCallback -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Database.changeVersion Mozilla Database.changeVersion documentation> +changeVersion ::+              (MonadIO m, ToJSString oldVersion, ToJSString newVersion) =>+                Database ->+                  oldVersion ->+                    newVersion ->+                      Maybe SQLTransactionCallback ->+                        Maybe SQLTransactionErrorCallback -> Maybe VoidCallback -> m ()+changeVersion self oldVersion newVersion callback errorCallback+  successCallback+  = liftIO+      (js_changeVersion (self) (toJSString oldVersion)+         (toJSString newVersion)+         (maybeToNullable callback)+         (maybeToNullable errorCallback)+         (maybeToNullable successCallback))+ +foreign import javascript unsafe "$1[\"transaction\"]($2, $3, $4)"+        js_transaction ::+        Database ->+          Nullable SQLTransactionCallback ->+            Nullable SQLTransactionErrorCallback ->+              Nullable 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 (self) (maybeToNullable callback)+         (maybeToNullable errorCallback)+         (maybeToNullable successCallback))+ +foreign import javascript unsafe+        "$1[\"readTransaction\"]($2, $3,\n$4)" js_readTransaction ::+        Database ->+          Nullable SQLTransactionCallback ->+            Nullable SQLTransactionErrorCallback ->+              Nullable 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 (self) (maybeToNullable callback)+         (maybeToNullable errorCallback)+         (maybeToNullable successCallback))+ +foreign import javascript unsafe "$1[\"version\"]" js_getVersion ::+        Database -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Database.version Mozilla Database.version documentation> +getVersion ::+           (MonadIO m, FromJSString result) => Database -> m result+getVersion self = liftIO (fromJSString <$> (js_getVersion (self)))
+ src/GHCJS/DOM/JSFFI/Generated/DatabaseCallback.hs view
@@ -0,0 +1,49 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.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+      (DatabaseCallback <$>+         syncCallback1 ThrowWouldBlock+           (\ database ->+              fromJSValUnchecked database >>= \ database' -> callback database'))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DatabaseCallback Mozilla DatabaseCallback documentation> +newDatabaseCallbackSync ::+                        (MonadIO m) => (Maybe Database -> IO ()) -> m DatabaseCallback+newDatabaseCallbackSync callback+  = liftIO+      (DatabaseCallback <$>+         syncCallback1 ContinueAsync+           (\ database ->+              fromJSValUnchecked database >>= \ database' -> callback database'))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DatabaseCallback Mozilla DatabaseCallback documentation> +newDatabaseCallbackAsync ::+                         (MonadIO m) => (Maybe Database -> IO ()) -> m DatabaseCallback+newDatabaseCallbackAsync callback+  = liftIO+      (DatabaseCallback <$>+         asyncCallback1+           (\ database ->+              fromJSValUnchecked 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"postMessage\"]($2, $3)"+        js_postMessage ::+        DedicatedWorkerGlobalScope -> JSVal -> Nullable Array -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DedicatedWorkerGlobalScope.postMessage Mozilla DedicatedWorkerGlobalScope.postMessage documentation> +postMessage ::+            (MonadIO m, IsArray messagePorts) =>+              DedicatedWorkerGlobalScope -> JSVal -> Maybe messagePorts -> m ()+postMessage self message messagePorts+  = liftIO+      (js_postMessage (self) message+         (maybeToNullable (fmap 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"delayTime\"]"+        js_getDelayTime :: DelayNode -> IO (Nullable 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 (nullableToMaybe <$> (js_getDelayTime (self)))
+ src/GHCJS/DOM/JSFFI/Generated/DeviceMotionEvent.hs view
@@ -0,0 +1,95 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe+        "$1[\"initDeviceMotionEvent\"]($2,\n$3, $4, $5, $6, $7, $8)"+        js_initDeviceMotionEvent ::+        DeviceMotionEvent ->+          JSString ->+            Bool ->+              Bool ->+                Nullable Acceleration ->+                  Nullable Acceleration -> Nullable 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 (self) (toJSString type') bubbles+         cancelable+         (maybeToNullable (fmap toAcceleration acceleration))+         (maybeToNullable+            (fmap toAcceleration accelerationIncludingGravity))+         (maybeToNullable (fmap toRotationRate rotationRate))+         interval)+ +foreign import javascript unsafe "$1[\"acceleration\"]"+        js_getAcceleration ::+        DeviceMotionEvent -> IO (Nullable 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 (nullableToMaybe <$> (js_getAcceleration (self)))+ +foreign import javascript unsafe+        "$1[\"accelerationIncludingGravity\"]"+        js_getAccelerationIncludingGravity ::+        DeviceMotionEvent -> IO (Nullable 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+      (nullableToMaybe <$> (js_getAccelerationIncludingGravity (self)))+ +foreign import javascript unsafe "$1[\"rotationRate\"]"+        js_getRotationRate ::+        DeviceMotionEvent -> IO (Nullable RotationRate)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceMotionEvent.rotationRate Mozilla DeviceMotionEvent.rotationRate documentation> +getRotationRate ::+                (MonadIO m) => DeviceMotionEvent -> m (Maybe RotationRate)+getRotationRate self+  = liftIO (nullableToMaybe <$> (js_getRotationRate (self)))+ +foreign import javascript unsafe "$1[\"interval\"]" js_getInterval+        :: 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 (self))
+ src/GHCJS/DOM/JSFFI/Generated/DeviceOrientationEvent.hs view
@@ -0,0 +1,71 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe+        "$1[\"initDeviceOrientationEvent\"]($2,\n$3, $4, $5, $6, $7, $8)"+        js_initDeviceOrientationEvent ::+        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 (self) (toJSString type') bubbles+         cancelable+         alpha+         beta+         gamma+         absolute)+ +foreign import javascript unsafe "$1[\"alpha\"]" js_getAlpha ::+        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 (self))+ +foreign import javascript unsafe "$1[\"beta\"]" js_getBeta ::+        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 (self))+ +foreign import javascript unsafe "$1[\"gamma\"]" js_getGamma ::+        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 (self))+ +foreign import javascript unsafe "($1[\"absolute\"] ? 1 : 0)"+        js_getAbsolute :: 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 (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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"value\"]" js_getValue ::+        DeviceProximityEvent -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceProximityEvent.value Mozilla DeviceProximityEvent.value documentation> +getValue :: (MonadIO m) => DeviceProximityEvent -> m Double+getValue self = liftIO (js_getValue (self))+ +foreign import javascript unsafe "$1[\"min\"]" js_getMin ::+        DeviceProximityEvent -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceProximityEvent.min Mozilla DeviceProximityEvent.min documentation> +getMin :: (MonadIO m) => DeviceProximityEvent -> m Double+getMin self = liftIO (js_getMin (self))+ +foreign import javascript unsafe "$1[\"max\"]" js_getMax ::+        DeviceProximityEvent -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceProximityEvent.max Mozilla DeviceProximityEvent.max documentation> +getMax :: (MonadIO m) => DeviceProximityEvent -> m Double+getMax self = liftIO (js_getMax (self))
+ src/GHCJS/DOM/JSFFI/Generated/Document.hs view
@@ -0,0 +1,1565 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "new window[\"Document\"]()"+        js_newDocument :: IO Document++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document Mozilla Document documentation> +newDocument :: (MonadIO m) => m Document+newDocument = liftIO (js_newDocument)+ +foreign import javascript unsafe "$1[\"createElement\"]($2)"+        js_createElement ::+        Document -> Nullable JSString -> IO (Nullable 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+      (nullableToMaybe <$>+         (js_createElement (toDocument self) (toMaybeJSString tagName)))+ +foreign import javascript unsafe "$1[\"createDocumentFragment\"]()"+        js_createDocumentFragment ::+        Document -> IO (Nullable 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+      (nullableToMaybe <$> (js_createDocumentFragment (toDocument self)))+ +foreign import javascript unsafe "$1[\"createTextNode\"]($2)"+        js_createTextNode :: Document -> JSString -> IO (Nullable 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+      (nullableToMaybe <$>+         (js_createTextNode (toDocument self) (toJSString data')))+ +foreign import javascript unsafe "$1[\"createComment\"]($2)"+        js_createComment :: Document -> JSString -> IO (Nullable 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+      (nullableToMaybe <$>+         (js_createComment (toDocument self) (toJSString data')))+ +foreign import javascript unsafe "$1[\"createCDATASection\"]($2)"+        js_createCDATASection ::+        Document -> JSString -> IO (Nullable 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+      (nullableToMaybe <$>+         (js_createCDATASection (toDocument self) (toJSString data')))+ +foreign import javascript unsafe+        "$1[\"createProcessingInstruction\"]($2,\n$3)"+        js_createProcessingInstruction ::+        Document ->+          JSString -> JSString -> IO (Nullable 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+      (nullableToMaybe <$>+         (js_createProcessingInstruction (toDocument self)+            (toJSString target)+            (toJSString data')))+ +foreign import javascript unsafe "$1[\"createAttribute\"]($2)"+        js_createAttribute :: Document -> JSString -> IO (Nullable 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+      (nullableToMaybe <$>+         (js_createAttribute (toDocument self) (toJSString name)))+ +foreign import javascript unsafe+        "$1[\"createEntityReference\"]($2)" js_createEntityReference ::+        Document -> JSString -> IO (Nullable 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+      (nullableToMaybe <$>+         (js_createEntityReference (toDocument self) (toJSString name)))+ +foreign import javascript unsafe "$1[\"getElementsByTagName\"]($2)"+        js_getElementsByTagName ::+        Document -> JSString -> IO (Nullable 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+      (nullableToMaybe <$>+         (js_getElementsByTagName (toDocument self) (toJSString tagname)))+ +foreign import javascript unsafe "$1[\"importNode\"]($2, $3)"+        js_importNode ::+        Document -> Nullable Node -> Bool -> IO (Nullable 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+      (nullableToMaybe <$>+         (js_importNode (toDocument self)+            (maybeToNullable (fmap toNode importedNode))+            deep))+ +foreign import javascript unsafe "$1[\"createElementNS\"]($2, $3)"+        js_createElementNS ::+        Document ->+          Nullable JSString -> Nullable JSString -> IO (Nullable 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+      (nullableToMaybe <$>+         (js_createElementNS (toDocument self)+            (toMaybeJSString namespaceURI)+            (toMaybeJSString qualifiedName)))+ +foreign import javascript unsafe+        "$1[\"createAttributeNS\"]($2, $3)" js_createAttributeNS ::+        Document ->+          Nullable JSString -> Nullable JSString -> IO (Nullable 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+      (nullableToMaybe <$>+         (js_createAttributeNS (toDocument self)+            (toMaybeJSString namespaceURI)+            (toMaybeJSString qualifiedName)))+ +foreign import javascript unsafe+        "$1[\"getElementsByTagNameNS\"]($2,\n$3)" js_getElementsByTagNameNS+        ::+        Document -> Nullable JSString -> JSString -> IO (Nullable 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+      (nullableToMaybe <$>+         (js_getElementsByTagNameNS (toDocument self)+            (toMaybeJSString namespaceURI)+            (toJSString localName)))+ +foreign import javascript unsafe "$1[\"getElementById\"]($2)"+        js_getElementById :: Document -> JSString -> IO (Nullable 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+      (nullableToMaybe <$>+         (js_getElementById (toDocument self) (toJSString elementId)))+ +foreign import javascript unsafe "$1[\"adoptNode\"]($2)"+        js_adoptNode :: Document -> Nullable Node -> IO (Nullable 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+      (nullableToMaybe <$>+         (js_adoptNode (toDocument self)+            (maybeToNullable (fmap toNode source))))+ +foreign import javascript unsafe "$1[\"createEvent\"]($2)"+        js_createEvent :: Document -> JSString -> IO (Nullable 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+      (nullableToMaybe <$>+         (js_createEvent (toDocument self) (toJSString eventType)))+ +foreign import javascript unsafe "$1[\"createRange\"]()"+        js_createRange :: Document -> IO (Nullable 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 (nullableToMaybe <$> (js_createRange (toDocument self)))+ +foreign import javascript unsafe+        "$1[\"createNodeIterator\"]($2, $3,\n$4, $5)" js_createNodeIterator+        ::+        Document ->+          Nullable Node ->+            Word -> Nullable NodeFilter -> Bool -> IO (Nullable 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+      (nullableToMaybe <$>+         (js_createNodeIterator (toDocument self)+            (maybeToNullable (fmap toNode root))+            whatToShow+            (maybeToNullable filter)+            expandEntityReferences))+ +foreign import javascript unsafe+        "$1[\"createTreeWalker\"]($2, $3,\n$4, $5)" js_createTreeWalker ::+        Document ->+          Nullable Node ->+            Word -> Nullable NodeFilter -> Bool -> IO (Nullable 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+      (nullableToMaybe <$>+         (js_createTreeWalker (toDocument self)+            (maybeToNullable (fmap toNode root))+            whatToShow+            (maybeToNullable filter)+            expandEntityReferences))+ +foreign import javascript unsafe "$1[\"getOverrideStyle\"]($2, $3)"+        js_getOverrideStyle ::+        Document ->+          Nullable Element -> JSString -> IO (Nullable 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+      (nullableToMaybe <$>+         (js_getOverrideStyle (toDocument self)+            (maybeToNullable (fmap toElement element))+            (toJSString pseudoElement)))+ +foreign import javascript unsafe "$1[\"createExpression\"]($2, $3)"+        js_createExpression ::+        Document ->+          JSString ->+            Nullable XPathNSResolver -> IO (Nullable 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+      (nullableToMaybe <$>+         (js_createExpression (toDocument self) (toJSString expression)+            (maybeToNullable resolver)))+ +foreign import javascript unsafe "$1[\"createNSResolver\"]($2)"+        js_createNSResolver ::+        Document -> Nullable Node -> IO (Nullable 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+      (nullableToMaybe <$>+         (js_createNSResolver (toDocument self)+            (maybeToNullable (fmap toNode nodeResolver))))+ +foreign import javascript unsafe+        "$1[\"evaluate\"]($2, $3, $4, $5,\n$6)" js_evaluate ::+        Document ->+          JSString ->+            Nullable Node ->+              Nullable XPathNSResolver ->+                Word -> Nullable XPathResult -> IO (Nullable 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+      (nullableToMaybe <$>+         (js_evaluate (toDocument self) (toJSString expression)+            (maybeToNullable (fmap toNode contextNode))+            (maybeToNullable resolver)+            type'+            (maybeToNullable inResult)))+ +foreign import javascript unsafe+        "($1[\"execCommand\"]($2, $3,\n$4) ? 1 : 0)" js_execCommand ::+        Document -> JSString -> Bool -> Nullable 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 (toDocument self) (toJSString command)+         userInterface+         (toMaybeJSString value))+ +foreign import javascript unsafe+        "($1[\"queryCommandEnabled\"]($2) ? 1 : 0)" js_queryCommandEnabled+        :: Document -> JSString -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.queryCommandEnabled Mozilla Document.queryCommandEnabled documentation> +queryCommandEnabled ::+                    (MonadIO m, IsDocument self, ToJSString command) =>+                      self -> command -> m Bool+queryCommandEnabled self command+  = liftIO+      (js_queryCommandEnabled (toDocument self) (toJSString command))+ +foreign import javascript unsafe+        "($1[\"queryCommandIndeterm\"]($2) ? 1 : 0)"+        js_queryCommandIndeterm :: Document -> JSString -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.queryCommandIndeterm Mozilla Document.queryCommandIndeterm documentation> +queryCommandIndeterm ::+                     (MonadIO m, IsDocument self, ToJSString command) =>+                       self -> command -> m Bool+queryCommandIndeterm self command+  = liftIO+      (js_queryCommandIndeterm (toDocument self) (toJSString command))+ +foreign import javascript unsafe+        "($1[\"queryCommandState\"]($2) ? 1 : 0)" js_queryCommandState ::+        Document -> JSString -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.queryCommandState Mozilla Document.queryCommandState documentation> +queryCommandState ::+                  (MonadIO m, IsDocument self, ToJSString command) =>+                    self -> command -> m Bool+queryCommandState self command+  = liftIO+      (js_queryCommandState (toDocument self) (toJSString command))+ +foreign import javascript unsafe+        "($1[\"queryCommandSupported\"]($2) ? 1 : 0)"+        js_queryCommandSupported :: Document -> JSString -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.queryCommandSupported Mozilla Document.queryCommandSupported documentation> +queryCommandSupported ::+                      (MonadIO m, IsDocument self, ToJSString command) =>+                        self -> command -> m Bool+queryCommandSupported self command+  = liftIO+      (js_queryCommandSupported (toDocument self) (toJSString command))+ +foreign import javascript unsafe "$1[\"queryCommandValue\"]($2)"+        js_queryCommandValue :: Document -> JSString -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.queryCommandValue Mozilla Document.queryCommandValue documentation> +queryCommandValue ::+                  (MonadIO m, IsDocument self, ToJSString command,+                   FromJSString result) =>+                    self -> command -> m result+queryCommandValue self command+  = liftIO+      (fromJSString <$>+         (js_queryCommandValue (toDocument self) (toJSString command)))+ +foreign import javascript unsafe "$1[\"getElementsByName\"]($2)"+        js_getElementsByName ::+        Document -> JSString -> IO (Nullable 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+      (nullableToMaybe <$>+         (js_getElementsByName (toDocument self) (toJSString elementName)))+ +foreign import javascript unsafe "$1[\"elementFromPoint\"]($2, $3)"+        js_elementFromPoint ::+        Document -> Int -> Int -> IO (Nullable 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+      (nullableToMaybe <$> (js_elementFromPoint (toDocument self) x y))+ +foreign import javascript unsafe+        "$1[\"caretRangeFromPoint\"]($2,\n$3)" js_caretRangeFromPoint ::+        Document -> Int -> Int -> IO (Nullable 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+      (nullableToMaybe <$>+         (js_caretRangeFromPoint (toDocument self) x y))+ +foreign import javascript unsafe "$1[\"getSelection\"]()"+        js_getSelection :: Document -> IO (Nullable Selection)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getSelection Mozilla Document.getSelection documentation> +getSelection ::+             (MonadIO m, IsDocument self) => self -> m (Maybe Selection)+getSelection self+  = liftIO (nullableToMaybe <$> (js_getSelection (toDocument self)))+ +foreign import javascript unsafe+        "$1[\"getCSSCanvasContext\"]($2,\n$3, $4, $5)"+        js_getCSSCanvasContext ::+        Document ->+          JSString ->+            JSString -> Int -> Int -> IO (Nullable 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+      (nullableToMaybe <$>+         (js_getCSSCanvasContext (toDocument self) (toJSString contextId)+            (toJSString name)+            width+            height))+ +foreign import javascript unsafe+        "$1[\"getElementsByClassName\"]($2)" js_getElementsByClassName ::+        Document -> JSString -> IO (Nullable 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+      (nullableToMaybe <$>+         (js_getElementsByClassName (toDocument self) (toJSString tagname)))+ +foreign import javascript unsafe "($1[\"hasFocus\"]() ? 1 : 0)"+        js_hasFocus :: Document -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.hasFocus Mozilla Document.hasFocus documentation> +hasFocus :: (MonadIO m, IsDocument self) => self -> m Bool+hasFocus self = liftIO (js_hasFocus (toDocument self))+ +foreign import javascript unsafe "$1[\"querySelector\"]($2)"+        js_querySelector :: Document -> JSString -> IO (Nullable 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+      (nullableToMaybe <$>+         (js_querySelector (toDocument self) (toJSString selectors)))+ +foreign import javascript unsafe "$1[\"querySelectorAll\"]($2)"+        js_querySelectorAll ::+        Document -> JSString -> IO (Nullable 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+      (nullableToMaybe <$>+         (js_querySelectorAll (toDocument self) (toJSString selectors)))+ +foreign import javascript unsafe "$1[\"webkitCancelFullScreen\"]()"+        js_webkitCancelFullScreen :: Document -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.webkitCancelFullScreen Mozilla Document.webkitCancelFullScreen documentation> +webkitCancelFullScreen ::+                       (MonadIO m, IsDocument self) => self -> m ()+webkitCancelFullScreen self+  = liftIO (js_webkitCancelFullScreen (toDocument self))+ +foreign import javascript unsafe "$1[\"webkitExitFullscreen\"]()"+        js_webkitExitFullscreen :: Document -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.webkitExitFullscreen Mozilla Document.webkitExitFullscreen documentation> +webkitExitFullscreen ::+                     (MonadIO m, IsDocument self) => self -> m ()+webkitExitFullscreen self+  = liftIO (js_webkitExitFullscreen (toDocument self))+ +foreign import javascript unsafe "$1[\"exitPointerLock\"]()"+        js_exitPointerLock :: Document -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.exitPointerLock Mozilla Document.exitPointerLock documentation> +exitPointerLock :: (MonadIO m, IsDocument self) => self -> m ()+exitPointerLock self+  = liftIO (js_exitPointerLock (toDocument self))+ +foreign import javascript unsafe "$1[\"webkitGetNamedFlows\"]()"+        js_webkitGetNamedFlows ::+        Document -> IO (Nullable 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+      (nullableToMaybe <$> (js_webkitGetNamedFlows (toDocument self)))+ +foreign import javascript unsafe+        "$1[\"createTouch\"]($2, $3, $4,\n$5, $6, $7, $8, $9, $10, $11,\n$12)"+        js_createTouch ::+        Document ->+          Nullable Window ->+            Nullable EventTarget ->+              Int ->+                Int ->+                  Int ->+                    Int -> Int -> Int -> Int -> Float -> Float -> IO (Nullable 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+      (nullableToMaybe <$>+         (js_createTouch (toDocument self) (maybeToNullable window)+            (maybeToNullable (fmap toEventTarget target))+            identifier+            pageX+            pageY+            screenX+            screenY+            webkitRadiusX+            webkitRadiusY+            webkitRotationAngle+            webkitForce))+ +foreign import javascript unsafe "$1[\"createTouchList\"]()"+        js_createTouchList :: Document -> IO (Nullable 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+      (nullableToMaybe <$> (js_createTouchList (toDocument self)))+ +foreign import javascript unsafe "$1[\"doctype\"]" js_getDoctype ::+        Document -> IO (Nullable DocumentType)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.doctype Mozilla Document.doctype documentation> +getDoctype ::+           (MonadIO m, IsDocument self) => self -> m (Maybe DocumentType)+getDoctype self+  = liftIO (nullableToMaybe <$> (js_getDoctype (toDocument self)))+ +foreign import javascript unsafe "$1[\"implementation\"]"+        js_getImplementation :: Document -> IO (Nullable 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+      (nullableToMaybe <$> (js_getImplementation (toDocument self)))+ +foreign import javascript unsafe "$1[\"documentElement\"]"+        js_getDocumentElement :: Document -> IO (Nullable Element)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.documentElement Mozilla Document.documentElement documentation> +getDocumentElement ::+                   (MonadIO m, IsDocument self) => self -> m (Maybe Element)+getDocumentElement self+  = liftIO+      (nullableToMaybe <$> (js_getDocumentElement (toDocument self)))+ +foreign import javascript unsafe "$1[\"inputEncoding\"]"+        js_getInputEncoding :: Document -> IO (Nullable 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 (toDocument self)))+ +foreign import javascript unsafe "$1[\"xmlEncoding\"]"+        js_getXmlEncoding :: Document -> IO (Nullable JSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.xmlEncoding Mozilla Document.xmlEncoding documentation> +getXmlEncoding ::+               (MonadIO m, IsDocument self, FromJSString result) =>+                 self -> m (Maybe result)+getXmlEncoding self+  = liftIO+      (fromMaybeJSString <$> (js_getXmlEncoding (toDocument self)))+ +foreign import javascript unsafe "$1[\"xmlVersion\"] = $2;"+        js_setXmlVersion :: Document -> Nullable JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.xmlVersion Mozilla Document.xmlVersion documentation> +setXmlVersion ::+              (MonadIO m, IsDocument self, ToJSString val) =>+                self -> Maybe val -> m ()+setXmlVersion self val+  = liftIO (js_setXmlVersion (toDocument self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"xmlVersion\"]"+        js_getXmlVersion :: Document -> IO (Nullable JSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.xmlVersion Mozilla Document.xmlVersion documentation> +getXmlVersion ::+              (MonadIO m, IsDocument self, FromJSString result) =>+                self -> m (Maybe result)+getXmlVersion self+  = liftIO+      (fromMaybeJSString <$> (js_getXmlVersion (toDocument self)))+ +foreign import javascript unsafe "$1[\"xmlStandalone\"] = $2;"+        js_setXmlStandalone :: Document -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.xmlStandalone Mozilla Document.xmlStandalone documentation> +setXmlStandalone ::+                 (MonadIO m, IsDocument self) => self -> Bool -> m ()+setXmlStandalone self val+  = liftIO (js_setXmlStandalone (toDocument self) val)+ +foreign import javascript unsafe "($1[\"xmlStandalone\"] ? 1 : 0)"+        js_getXmlStandalone :: Document -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.xmlStandalone Mozilla Document.xmlStandalone documentation> +getXmlStandalone :: (MonadIO m, IsDocument self) => self -> m Bool+getXmlStandalone self+  = liftIO (js_getXmlStandalone (toDocument self))+ +foreign import javascript unsafe "$1[\"documentURI\"]"+        js_getDocumentURI :: Document -> IO (Nullable 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 (toDocument self)))+ +foreign import javascript unsafe "$1[\"defaultView\"]"+        js_getDefaultView :: Document -> IO (Nullable Window)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.defaultView Mozilla Document.defaultView documentation> +getDefaultView ::+               (MonadIO m, IsDocument self) => self -> m (Maybe Window)+getDefaultView self+  = liftIO+      (nullableToMaybe <$> (js_getDefaultView (toDocument self)))+ +foreign import javascript unsafe "$1[\"styleSheets\"]"+        js_getStyleSheets :: Document -> IO (Nullable 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+      (nullableToMaybe <$> (js_getStyleSheets (toDocument self)))+ +foreign import javascript unsafe "$1[\"contentType\"]"+        js_getContentType :: Document -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.contentType Mozilla Document.contentType documentation> +getContentType ::+               (MonadIO m, IsDocument self, FromJSString result) =>+                 self -> m result+getContentType self+  = liftIO (fromJSString <$> (js_getContentType (toDocument self)))+ +foreign import javascript unsafe "$1[\"title\"] = $2;" js_setTitle+        :: Document -> Nullable 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 (toDocument self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"title\"]" js_getTitle ::+        Document -> IO (Nullable 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 (toDocument self)))+ +foreign import javascript unsafe "$1[\"referrer\"]" js_getReferrer+        :: Document -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.referrer Mozilla Document.referrer documentation> +getReferrer ::+            (MonadIO m, IsDocument self, FromJSString result) =>+              self -> m result+getReferrer self+  = liftIO (fromJSString <$> (js_getReferrer (toDocument self)))+ +foreign import javascript unsafe "$1[\"domain\"] = $2;"+        js_setDomain :: Document -> Nullable 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 (toDocument self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"domain\"]" js_getDomain ::+        Document -> IO (Nullable 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 (toDocument self)))+ +foreign import javascript unsafe "$1[\"URL\"]" js_getURL ::+        Document -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.URL Mozilla Document.URL documentation> +getURL ::+       (MonadIO m, IsDocument self, FromJSString result) =>+         self -> m result+getURL self+  = liftIO (fromJSString <$> (js_getURL (toDocument self)))+ +foreign import javascript unsafe "$1[\"cookie\"] = $2;"+        js_setCookie :: Document -> Nullable 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 (toDocument self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"cookie\"]" js_getCookie ::+        Document -> IO (Nullable 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 (toDocument self)))+ +foreign import javascript unsafe "$1[\"body\"] = $2;" js_setBody ::+        Document -> Nullable HTMLElement -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.body Mozilla Document.body documentation> +setBody ::+        (MonadIO m, IsDocument self, IsHTMLElement val) =>+          self -> Maybe val -> m ()+setBody self val+  = liftIO+      (js_setBody (toDocument self)+         (maybeToNullable (fmap toHTMLElement val)))+ +foreign import javascript unsafe "$1[\"body\"]" js_getBody ::+        Document -> IO (Nullable HTMLElement)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.body Mozilla Document.body documentation> +getBody ::+        (MonadIO m, IsDocument self) => self -> m (Maybe HTMLElement)+getBody self+  = liftIO (nullableToMaybe <$> (js_getBody (toDocument self)))+ +foreign import javascript unsafe "$1[\"head\"]" js_getHead ::+        Document -> IO (Nullable HTMLHeadElement)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.head Mozilla Document.head documentation> +getHead ::+        (MonadIO m, IsDocument self) => self -> m (Maybe HTMLHeadElement)+getHead self+  = liftIO (nullableToMaybe <$> (js_getHead (toDocument self)))+ +foreign import javascript unsafe "$1[\"images\"]" js_getImages ::+        Document -> IO (Nullable 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 (nullableToMaybe <$> (js_getImages (toDocument self)))+ +foreign import javascript unsafe "$1[\"applets\"]" js_getApplets ::+        Document -> IO (Nullable 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 (nullableToMaybe <$> (js_getApplets (toDocument self)))+ +foreign import javascript unsafe "$1[\"links\"]" js_getLinks ::+        Document -> IO (Nullable 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 (nullableToMaybe <$> (js_getLinks (toDocument self)))+ +foreign import javascript unsafe "$1[\"forms\"]" js_getForms ::+        Document -> IO (Nullable 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 (nullableToMaybe <$> (js_getForms (toDocument self)))+ +foreign import javascript unsafe "$1[\"anchors\"]" js_getAnchors ::+        Document -> IO (Nullable 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 (nullableToMaybe <$> (js_getAnchors (toDocument self)))+ +foreign import javascript unsafe "$1[\"lastModified\"]"+        js_getLastModified :: Document -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.lastModified Mozilla Document.lastModified documentation> +getLastModified ::+                (MonadIO m, IsDocument self, FromJSString result) =>+                  self -> m result+getLastModified self+  = liftIO (fromJSString <$> (js_getLastModified (toDocument self)))+ +foreign import javascript unsafe "$1[\"location\"] = $2;"+        js_setLocation :: Document -> Nullable 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 (toDocument self) (maybeToNullable val))+ +foreign import javascript unsafe "$1[\"location\"]" js_getLocation+        :: Document -> IO (Nullable Location)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.location Mozilla Document.location documentation> +getLocation ::+            (MonadIO m, IsDocument self) => self -> m (Maybe Location)+getLocation self+  = liftIO (nullableToMaybe <$> (js_getLocation (toDocument self)))+ +foreign import javascript unsafe "$1[\"charset\"] = $2;"+        js_setCharset :: Document -> Nullable 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 (toDocument self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"charset\"]" js_getCharset ::+        Document -> IO (Nullable 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 (toDocument self)))+ +foreign import javascript unsafe "$1[\"defaultCharset\"]"+        js_getDefaultCharset :: Document -> IO (Nullable 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 (toDocument self)))+ +foreign import javascript unsafe "$1[\"readyState\"]"+        js_getReadyState :: Document -> IO (Nullable 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 (toDocument self)))+ +foreign import javascript unsafe "$1[\"characterSet\"]"+        js_getCharacterSet :: Document -> IO (Nullable 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 (toDocument self)))+ +foreign import javascript unsafe "$1[\"preferredStylesheetSet\"]"+        js_getPreferredStylesheetSet :: Document -> IO (Nullable JSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.preferredStylesheetSet Mozilla Document.preferredStylesheetSet documentation> +getPreferredStylesheetSet ::+                          (MonadIO m, IsDocument self, FromJSString result) =>+                            self -> m (Maybe result)+getPreferredStylesheetSet self+  = liftIO+      (fromMaybeJSString <$>+         (js_getPreferredStylesheetSet (toDocument self)))+ +foreign import javascript unsafe+        "$1[\"selectedStylesheetSet\"] = $2;" js_setSelectedStylesheetSet+        :: Document -> Nullable JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.selectedStylesheetSet Mozilla Document.selectedStylesheetSet documentation> +setSelectedStylesheetSet ::+                         (MonadIO m, IsDocument self, ToJSString val) =>+                           self -> Maybe val -> m ()+setSelectedStylesheetSet self val+  = liftIO+      (js_setSelectedStylesheetSet (toDocument self)+         (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"selectedStylesheetSet\"]"+        js_getSelectedStylesheetSet :: Document -> IO (Nullable JSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.selectedStylesheetSet Mozilla Document.selectedStylesheetSet documentation> +getSelectedStylesheetSet ::+                         (MonadIO m, IsDocument self, FromJSString result) =>+                           self -> m (Maybe result)+getSelectedStylesheetSet self+  = liftIO+      (fromMaybeJSString <$>+         (js_getSelectedStylesheetSet (toDocument self)))+ +foreign import javascript unsafe "$1[\"activeElement\"]"+        js_getActiveElement :: Document -> IO (Nullable 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+      (nullableToMaybe <$> (js_getActiveElement (toDocument self)))+ +foreign import javascript unsafe "$1[\"compatMode\"]"+        js_getCompatMode :: Document -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.compatMode Mozilla Document.compatMode documentation> +getCompatMode ::+              (MonadIO m, IsDocument self, FromJSString result) =>+                self -> m result+getCompatMode self+  = liftIO (fromJSString <$> (js_getCompatMode (toDocument self)))+ +foreign import javascript unsafe+        "($1[\"webkitIsFullScreen\"] ? 1 : 0)" js_getWebkitIsFullScreen ::+        Document -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.webkitIsFullScreen Mozilla Document.webkitIsFullScreen documentation> +getWebkitIsFullScreen ::+                      (MonadIO m, IsDocument self) => self -> m Bool+getWebkitIsFullScreen self+  = liftIO (js_getWebkitIsFullScreen (toDocument self))+ +foreign import javascript unsafe+        "($1[\"webkitFullScreenKeyboardInputAllowed\"] ? 1 : 0)"+        js_getWebkitFullScreenKeyboardInputAllowed :: Document -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.webkitFullScreenKeyboardInputAllowed Mozilla Document.webkitFullScreenKeyboardInputAllowed documentation> +getWebkitFullScreenKeyboardInputAllowed ::+                                        (MonadIO m, IsDocument self) => self -> m Bool+getWebkitFullScreenKeyboardInputAllowed self+  = liftIO+      (js_getWebkitFullScreenKeyboardInputAllowed (toDocument self))+ +foreign import javascript unsafe+        "$1[\"webkitCurrentFullScreenElement\"]"+        js_getWebkitCurrentFullScreenElement ::+        Document -> IO (Nullable 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+      (nullableToMaybe <$>+         (js_getWebkitCurrentFullScreenElement (toDocument self)))+ +foreign import javascript unsafe+        "($1[\"webkitFullscreenEnabled\"] ? 1 : 0)"+        js_getWebkitFullscreenEnabled :: Document -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.webkitFullscreenEnabled Mozilla Document.webkitFullscreenEnabled documentation> +getWebkitFullscreenEnabled ::+                           (MonadIO m, IsDocument self) => self -> m Bool+getWebkitFullscreenEnabled self+  = liftIO (js_getWebkitFullscreenEnabled (toDocument self))+ +foreign import javascript unsafe "$1[\"webkitFullscreenElement\"]"+        js_getWebkitFullscreenElement :: Document -> IO (Nullable Element)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.webkitFullscreenElement Mozilla Document.webkitFullscreenElement documentation> +getWebkitFullscreenElement ::+                           (MonadIO m, IsDocument self) => self -> m (Maybe Element)+getWebkitFullscreenElement self+  = liftIO+      (nullableToMaybe <$>+         (js_getWebkitFullscreenElement (toDocument self)))+ +foreign import javascript unsafe "$1[\"pointerLockElement\"]"+        js_getPointerLockElement :: Document -> IO (Nullable 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+      (nullableToMaybe <$> (js_getPointerLockElement (toDocument self)))+ +foreign import javascript unsafe "$1[\"fonts\"]" js_getFonts ::+        Document -> IO (Nullable 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 (nullableToMaybe <$> (js_getFonts (toDocument self)))++-- | <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 :: 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 (toDocument self)))+ +foreign import javascript unsafe "($1[\"hidden\"] ? 1 : 0)"+        js_getHidden :: Document -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.hidden Mozilla Document.hidden documentation> +getHidden :: (MonadIO m, IsDocument self) => self -> m Bool+getHidden self = liftIO (js_getHidden (toDocument self))+ +foreign import javascript unsafe "$1[\"securityPolicy\"]"+        js_getSecurityPolicy :: Document -> IO (Nullable 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+      (nullableToMaybe <$> (js_getSecurityPolicy (toDocument self)))+ +foreign import javascript unsafe "$1[\"currentScript\"]"+        js_getCurrentScript :: Document -> IO (Nullable HTMLScriptElement)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.currentScript Mozilla Document.currentScript documentation> +getCurrentScript ::+                 (MonadIO m, IsDocument self) => self -> m (Maybe HTMLScriptElement)+getCurrentScript self+  = liftIO+      (nullableToMaybe <$> (js_getCurrentScript (toDocument self)))+ +foreign import javascript unsafe "$1[\"origin\"]" js_getOrigin ::+        Document -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.origin Mozilla Document.origin documentation> +getOrigin ::+          (MonadIO m, IsDocument self, FromJSString result) =>+            self -> m result+getOrigin self+  = liftIO (fromJSString <$> (js_getOrigin (toDocument self)))
+ src/GHCJS/DOM/JSFFI/Generated/DocumentFragment.hs view
@@ -0,0 +1,54 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe+        "new window[\"DocumentFragment\"]()" js_newDocumentFragment ::+        IO DocumentFragment++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentFragment Mozilla DocumentFragment documentation> +newDocumentFragment :: (MonadIO m) => m DocumentFragment+newDocumentFragment = liftIO (js_newDocumentFragment)+ +foreign import javascript unsafe "$1[\"querySelector\"]($2)"+        js_querySelector ::+        DocumentFragment -> JSString -> IO (Nullable 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+      (nullableToMaybe <$>+         (js_querySelector (self) (toJSString selectors)))+ +foreign import javascript unsafe "$1[\"querySelectorAll\"]($2)"+        js_querySelectorAll ::+        DocumentFragment -> JSString -> IO (Nullable 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+      (nullableToMaybe <$>+         (js_querySelectorAll (self) (toJSString selectors)))
+ src/GHCJS/DOM/JSFFI/Generated/DocumentType.hs view
@@ -0,0 +1,77 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"name\"]" js_getName ::+        DocumentType -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentType.name Mozilla DocumentType.name documentation> +getName ::+        (MonadIO m, FromJSString result) => DocumentType -> m result+getName self = liftIO (fromJSString <$> (js_getName (self)))+ +foreign import javascript unsafe "$1[\"entities\"]" js_getEntities+        :: DocumentType -> IO (Nullable 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 (nullableToMaybe <$> (js_getEntities (self)))+ +foreign import javascript unsafe "$1[\"notations\"]"+        js_getNotations :: DocumentType -> IO (Nullable 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 (nullableToMaybe <$> (js_getNotations (self)))+ +foreign import javascript unsafe "$1[\"publicId\"]" js_getPublicId+        :: DocumentType -> IO (Nullable 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 (self)))+ +foreign import javascript unsafe "$1[\"systemId\"]" js_getSystemId+        :: DocumentType -> IO (Nullable 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 (self)))+ +foreign import javascript unsafe "$1[\"internalSubset\"]"+        js_getInternalSubset :: DocumentType -> IO (Nullable 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 (self)))
+ src/GHCJS/DOM/JSFFI/Generated/DynamicsCompressorNode.hs view
@@ -0,0 +1,74 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"threshold\"]"+        js_getThreshold ::+        DynamicsCompressorNode -> IO (Nullable 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 (nullableToMaybe <$> (js_getThreshold (self)))+ +foreign import javascript unsafe "$1[\"knee\"]" js_getKnee ::+        DynamicsCompressorNode -> IO (Nullable 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 (nullableToMaybe <$> (js_getKnee (self)))+ +foreign import javascript unsafe "$1[\"ratio\"]" js_getRatio ::+        DynamicsCompressorNode -> IO (Nullable 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 (nullableToMaybe <$> (js_getRatio (self)))+ +foreign import javascript unsafe "$1[\"reduction\"]"+        js_getReduction ::+        DynamicsCompressorNode -> IO (Nullable 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 (nullableToMaybe <$> (js_getReduction (self)))+ +foreign import javascript unsafe "$1[\"attack\"]" js_getAttack ::+        DynamicsCompressorNode -> IO (Nullable 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 (nullableToMaybe <$> (js_getAttack (self)))+ +foreign import javascript unsafe "$1[\"release\"]" js_getRelease ::+        DynamicsCompressorNode -> IO (Nullable 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 (nullableToMaybe <$> (js_getRelease (self)))
+ 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+pattern SRGB_EXT = 35904+pattern SRGB_ALPHA_EXT = 35906+pattern SRGB8_ALPHA8_EXT = 35907+pattern FRAMEBUFFER_ATTACHMENT_COLOR_ENCODING_EXT = 33296
+ src/GHCJS/DOM/JSFFI/Generated/Element.hs view
@@ -0,0 +1,1045 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"getAttribute\"]($2)"+        js_getAttribute :: Element -> JSString -> IO (Nullable JSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getAttribute Mozilla Element.getAttribute documentation> +getAttribute ::+             (MonadIO m, IsElement self, ToJSString name,+              FromJSString result) =>+               self -> name -> m (Maybe result)+getAttribute self name+  = liftIO+      (fromMaybeJSString <$>+         (js_getAttribute (toElement self) (toJSString name)))+ +foreign import javascript unsafe "$1[\"setAttribute\"]($2, $3)"+        js_setAttribute :: Element -> JSString -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.setAttribute Mozilla Element.setAttribute documentation> +setAttribute ::+             (MonadIO m, IsElement self, ToJSString name, ToJSString value) =>+               self -> name -> value -> m ()+setAttribute self name value+  = liftIO+      (js_setAttribute (toElement self) (toJSString name)+         (toJSString value))+ +foreign import javascript unsafe "$1[\"removeAttribute\"]($2)"+        js_removeAttribute :: Element -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.removeAttribute Mozilla Element.removeAttribute documentation> +removeAttribute ::+                (MonadIO m, IsElement self, ToJSString name) =>+                  self -> name -> m ()+removeAttribute self name+  = liftIO (js_removeAttribute (toElement self) (toJSString name))+ +foreign import javascript unsafe "$1[\"getAttributeNode\"]($2)"+        js_getAttributeNode :: Element -> JSString -> IO (Nullable Attr)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getAttributeNode Mozilla Element.getAttributeNode documentation> +getAttributeNode ::+                 (MonadIO m, IsElement self, ToJSString name) =>+                   self -> name -> m (Maybe Attr)+getAttributeNode self name+  = liftIO+      (nullableToMaybe <$>+         (js_getAttributeNode (toElement self) (toJSString name)))+ +foreign import javascript unsafe "$1[\"setAttributeNode\"]($2)"+        js_setAttributeNode ::+        Element -> Nullable Attr -> IO (Nullable Attr)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.setAttributeNode Mozilla Element.setAttributeNode documentation> +setAttributeNode ::+                 (MonadIO m, IsElement self) => self -> Maybe Attr -> m (Maybe Attr)+setAttributeNode self newAttr+  = liftIO+      (nullableToMaybe <$>+         (js_setAttributeNode (toElement self) (maybeToNullable newAttr)))+ +foreign import javascript unsafe "$1[\"removeAttributeNode\"]($2)"+        js_removeAttributeNode ::+        Element -> Nullable Attr -> IO (Nullable 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+      (nullableToMaybe <$>+         (js_removeAttributeNode (toElement self)+            (maybeToNullable oldAttr)))+ +foreign import javascript unsafe "$1[\"getElementsByTagName\"]($2)"+        js_getElementsByTagName ::+        Element -> JSString -> IO (Nullable 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+      (nullableToMaybe <$>+         (js_getElementsByTagName (toElement self) (toJSString name)))+ +foreign import javascript unsafe+        "($1[\"hasAttributes\"]() ? 1 : 0)" js_hasAttributes ::+        Element -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.hasAttributes Mozilla Element.hasAttributes documentation> +hasAttributes :: (MonadIO m, IsElement self) => self -> m Bool+hasAttributes self = liftIO (js_hasAttributes (toElement self))+ +foreign import javascript unsafe "$1[\"getAttributeNS\"]($2, $3)"+        js_getAttributeNS ::+        Element -> Nullable 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 (toElement self) (toMaybeJSString namespaceURI)+            (toJSString localName)))+ +foreign import javascript unsafe+        "$1[\"setAttributeNS\"]($2, $3, $4)" js_setAttributeNS ::+        Element -> Nullable JSString -> JSString -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.setAttributeNS Mozilla Element.setAttributeNS documentation> +setAttributeNS ::+               (MonadIO m, IsElement self, ToJSString namespaceURI,+                ToJSString qualifiedName, ToJSString value) =>+                 self -> Maybe namespaceURI -> qualifiedName -> value -> m ()+setAttributeNS self namespaceURI qualifiedName value+  = liftIO+      (js_setAttributeNS (toElement self) (toMaybeJSString namespaceURI)+         (toJSString qualifiedName)+         (toJSString value))+ +foreign import javascript unsafe+        "$1[\"removeAttributeNS\"]($2, $3)" js_removeAttributeNS ::+        Element -> Nullable JSString -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.removeAttributeNS Mozilla Element.removeAttributeNS documentation> +removeAttributeNS ::+                  (MonadIO m, IsElement self, ToJSString namespaceURI,+                   ToJSString localName) =>+                    self -> Maybe namespaceURI -> localName -> m ()+removeAttributeNS self namespaceURI localName+  = liftIO+      (js_removeAttributeNS (toElement self)+         (toMaybeJSString namespaceURI)+         (toJSString localName))+ +foreign import javascript unsafe+        "$1[\"getElementsByTagNameNS\"]($2,\n$3)" js_getElementsByTagNameNS+        ::+        Element -> Nullable JSString -> JSString -> IO (Nullable 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+      (nullableToMaybe <$>+         (js_getElementsByTagNameNS (toElement self)+            (toMaybeJSString namespaceURI)+            (toJSString localName)))+ +foreign import javascript unsafe+        "$1[\"getAttributeNodeNS\"]($2, $3)" js_getAttributeNodeNS ::+        Element -> Nullable JSString -> JSString -> IO (Nullable Attr)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getAttributeNodeNS Mozilla Element.getAttributeNodeNS documentation> +getAttributeNodeNS ::+                   (MonadIO m, IsElement self, ToJSString namespaceURI,+                    ToJSString localName) =>+                     self -> Maybe namespaceURI -> localName -> m (Maybe Attr)+getAttributeNodeNS self namespaceURI localName+  = liftIO+      (nullableToMaybe <$>+         (js_getAttributeNodeNS (toElement self)+            (toMaybeJSString namespaceURI)+            (toJSString localName)))+ +foreign import javascript unsafe "$1[\"setAttributeNodeNS\"]($2)"+        js_setAttributeNodeNS ::+        Element -> Nullable Attr -> IO (Nullable Attr)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.setAttributeNodeNS Mozilla Element.setAttributeNodeNS documentation> +setAttributeNodeNS ::+                   (MonadIO m, IsElement self) => self -> Maybe Attr -> m (Maybe Attr)+setAttributeNodeNS self newAttr+  = liftIO+      (nullableToMaybe <$>+         (js_setAttributeNodeNS (toElement self) (maybeToNullable newAttr)))+ +foreign import javascript unsafe+        "($1[\"hasAttribute\"]($2) ? 1 : 0)" js_hasAttribute ::+        Element -> JSString -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.hasAttribute Mozilla Element.hasAttribute documentation> +hasAttribute ::+             (MonadIO m, IsElement self, ToJSString name) =>+               self -> name -> m Bool+hasAttribute self name+  = liftIO (js_hasAttribute (toElement self) (toJSString name))+ +foreign import javascript unsafe+        "($1[\"hasAttributeNS\"]($2,\n$3) ? 1 : 0)" js_hasAttributeNS ::+        Element -> Nullable JSString -> JSString -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.hasAttributeNS Mozilla Element.hasAttributeNS documentation> +hasAttributeNS ::+               (MonadIO m, IsElement self, ToJSString namespaceURI,+                ToJSString localName) =>+                 self -> Maybe namespaceURI -> localName -> m Bool+hasAttributeNS self namespaceURI localName+  = liftIO+      (js_hasAttributeNS (toElement self) (toMaybeJSString namespaceURI)+         (toJSString localName))+ +foreign import javascript unsafe "$1[\"focus\"]()" js_focus ::+        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 (toElement self))+ +foreign import javascript unsafe "$1[\"blur\"]()" js_blur ::+        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 (toElement self))+ +foreign import javascript unsafe "$1[\"scrollIntoView\"]($2)"+        js_scrollIntoView :: Element -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.scrollIntoView Mozilla Element.scrollIntoView documentation> +scrollIntoView ::+               (MonadIO m, IsElement self) => self -> Bool -> m ()+scrollIntoView self alignWithTop+  = liftIO (js_scrollIntoView (toElement self) alignWithTop)+ +foreign import javascript unsafe+        "$1[\"scrollIntoViewIfNeeded\"]($2)" js_scrollIntoViewIfNeeded ::+        Element -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.scrollIntoViewIfNeeded Mozilla Element.scrollIntoViewIfNeeded documentation> +scrollIntoViewIfNeeded ::+                       (MonadIO m, IsElement self) => self -> Bool -> m ()+scrollIntoViewIfNeeded self centerIfNeeded+  = liftIO+      (js_scrollIntoViewIfNeeded (toElement self) centerIfNeeded)+ +foreign import javascript unsafe "$1[\"scrollByLines\"]($2)"+        js_scrollByLines :: 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 (toElement self) lines)+ +foreign import javascript unsafe "$1[\"scrollByPages\"]($2)"+        js_scrollByPages :: 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 (toElement self) pages)+ +foreign import javascript unsafe+        "$1[\"getElementsByClassName\"]($2)" js_getElementsByClassName ::+        Element -> JSString -> IO (Nullable 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+      (nullableToMaybe <$>+         (js_getElementsByClassName (toElement self) (toJSString name)))+ +foreign import javascript unsafe "$1[\"querySelector\"]($2)"+        js_querySelector :: Element -> JSString -> IO (Nullable 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+      (nullableToMaybe <$>+         (js_querySelector (toElement self) (toJSString selectors)))+ +foreign import javascript unsafe "$1[\"querySelectorAll\"]($2)"+        js_querySelectorAll ::+        Element -> JSString -> IO (Nullable 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+      (nullableToMaybe <$>+         (js_querySelectorAll (toElement self) (toJSString selectors)))+ +foreign import javascript unsafe "($1[\"matches\"]($2) ? 1 : 0)"+        js_matches :: Element -> JSString -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.matches Mozilla Element.matches documentation> +matches ::+        (MonadIO m, IsElement self, ToJSString selectors) =>+          self -> selectors -> m Bool+matches self selectors+  = liftIO (js_matches (toElement self) (toJSString selectors))+ +foreign import javascript unsafe "$1[\"closest\"]($2)" js_closest+        :: Element -> JSString -> IO (Nullable Element)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.closest Mozilla Element.closest documentation> +closest ::+        (MonadIO m, IsElement self, ToJSString selectors) =>+          self -> selectors -> m (Maybe Element)+closest self selectors+  = liftIO+      (nullableToMaybe <$>+         (js_closest (toElement self) (toJSString selectors)))+ +foreign import javascript unsafe+        "($1[\"webkitMatchesSelector\"]($2) ? 1 : 0)"+        js_webkitMatchesSelector :: Element -> JSString -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.webkitMatchesSelector Mozilla Element.webkitMatchesSelector documentation> +webkitMatchesSelector ::+                      (MonadIO m, IsElement self, ToJSString selectors) =>+                        self -> selectors -> m Bool+webkitMatchesSelector self selectors+  = liftIO+      (js_webkitMatchesSelector (toElement self) (toJSString selectors))+ +foreign import javascript unsafe "$1[\"getClientRects\"]()"+        js_getClientRects :: Element -> IO (Nullable 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 (nullableToMaybe <$> (js_getClientRects (toElement self)))+ +foreign import javascript unsafe "$1[\"getBoundingClientRect\"]()"+        js_getBoundingClientRect :: Element -> IO (Nullable 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+      (nullableToMaybe <$> (js_getBoundingClientRect (toElement self)))+ +foreign import javascript unsafe+        "$1[\"webkitRequestFullScreen\"]($2)" js_webkitRequestFullScreen ::+        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 (toElement self) flags)+ +foreign import javascript unsafe+        "$1[\"webkitRequestFullscreen\"]()" js_webkitRequestFullscreen ::+        Element -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.webkitRequestFullscreen Mozilla Element.webkitRequestFullscreen documentation> +webkitRequestFullscreen ::+                        (MonadIO m, IsElement self) => self -> m ()+webkitRequestFullscreen self+  = liftIO (js_webkitRequestFullscreen (toElement self))+ +foreign import javascript unsafe "$1[\"requestPointerLock\"]()"+        js_requestPointerLock :: Element -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.requestPointerLock Mozilla Element.requestPointerLock documentation> +requestPointerLock :: (MonadIO m, IsElement self) => self -> m ()+requestPointerLock self+  = liftIO (js_requestPointerLock (toElement self))+ +foreign import javascript unsafe+        "$1[\"webkitGetRegionFlowRanges\"]()" js_webkitGetRegionFlowRanges+        :: Element -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.webkitGetRegionFlowRanges Mozilla Element.webkitGetRegionFlowRanges documentation> +webkitGetRegionFlowRanges ::+                          (MonadIO m, IsElement self) => self -> m [Maybe Range]+webkitGetRegionFlowRanges self+  = liftIO+      ((js_webkitGetRegionFlowRanges (toElement self)) >>=+         fromJSValUnchecked)+pattern ALLOW_KEYBOARD_INPUT = 1+ +foreign import javascript unsafe "$1[\"tagName\"]" js_getTagName ::+        Element -> IO (Nullable 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 (toElement self)))+ +foreign import javascript unsafe "$1[\"attributes\"]"+        js_getAttributes :: Element -> IO (Nullable 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 (nullableToMaybe <$> (js_getAttributes (toElement self)))+ +foreign import javascript unsafe "$1[\"style\"]" js_getStyle ::+        Element -> IO (Nullable 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 (nullableToMaybe <$> (js_getStyle (toElement self)))+ +foreign import javascript unsafe "$1[\"id\"] = $2;" js_setId ::+        Element -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.id Mozilla Element.id documentation> +setId ::+      (MonadIO m, IsElement self, ToJSString val) => self -> val -> m ()+setId self val+  = liftIO (js_setId (toElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"id\"]" js_getId ::+        Element -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.id Mozilla Element.id documentation> +getId ::+      (MonadIO m, IsElement self, FromJSString result) =>+        self -> m result+getId self = liftIO (fromJSString <$> (js_getId (toElement self)))+ +foreign import javascript unsafe "$1[\"offsetLeft\"]"+        js_getOffsetLeft :: 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 (toElement self))+ +foreign import javascript unsafe "$1[\"offsetTop\"]"+        js_getOffsetTop :: 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 (toElement self))+ +foreign import javascript unsafe "$1[\"offsetWidth\"]"+        js_getOffsetWidth :: 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 (toElement self))+ +foreign import javascript unsafe "$1[\"offsetHeight\"]"+        js_getOffsetHeight :: 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 (toElement self))+ +foreign import javascript unsafe "$1[\"clientLeft\"]"+        js_getClientLeft :: Element -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.clientLeft Mozilla Element.clientLeft documentation> +getClientLeft :: (MonadIO m, IsElement self) => self -> m Double+getClientLeft self = liftIO (js_getClientLeft (toElement self))+ +foreign import javascript unsafe "$1[\"clientTop\"]"+        js_getClientTop :: Element -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.clientTop Mozilla Element.clientTop documentation> +getClientTop :: (MonadIO m, IsElement self) => self -> m Double+getClientTop self = liftIO (js_getClientTop (toElement self))+ +foreign import javascript unsafe "$1[\"clientWidth\"]"+        js_getClientWidth :: Element -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.clientWidth Mozilla Element.clientWidth documentation> +getClientWidth :: (MonadIO m, IsElement self) => self -> m Double+getClientWidth self = liftIO (js_getClientWidth (toElement self))+ +foreign import javascript unsafe "$1[\"clientHeight\"]"+        js_getClientHeight :: Element -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.clientHeight Mozilla Element.clientHeight documentation> +getClientHeight :: (MonadIO m, IsElement self) => self -> m Double+getClientHeight self = liftIO (js_getClientHeight (toElement self))+ +foreign import javascript unsafe "$1[\"scrollLeft\"] = $2;"+        js_setScrollLeft :: Element -> Int -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.scrollLeft Mozilla Element.scrollLeft documentation> +setScrollLeft :: (MonadIO m, IsElement self) => self -> Int -> m ()+setScrollLeft self val+  = liftIO (js_setScrollLeft (toElement self) val)+ +foreign import javascript unsafe "$1[\"scrollLeft\"]"+        js_getScrollLeft :: Element -> IO Int++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.scrollLeft Mozilla Element.scrollLeft documentation> +getScrollLeft :: (MonadIO m, IsElement self) => self -> m Int+getScrollLeft self = liftIO (js_getScrollLeft (toElement self))+ +foreign import javascript unsafe "$1[\"scrollTop\"] = $2;"+        js_setScrollTop :: Element -> Int -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.scrollTop Mozilla Element.scrollTop documentation> +setScrollTop :: (MonadIO m, IsElement self) => self -> Int -> m ()+setScrollTop self val+  = liftIO (js_setScrollTop (toElement self) val)+ +foreign import javascript unsafe "$1[\"scrollTop\"]"+        js_getScrollTop :: Element -> IO Int++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.scrollTop Mozilla Element.scrollTop documentation> +getScrollTop :: (MonadIO m, IsElement self) => self -> m Int+getScrollTop self = liftIO (js_getScrollTop (toElement self))+ +foreign import javascript unsafe "$1[\"scrollWidth\"]"+        js_getScrollWidth :: Element -> IO Int++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.scrollWidth Mozilla Element.scrollWidth documentation> +getScrollWidth :: (MonadIO m, IsElement self) => self -> m Int+getScrollWidth self = liftIO (js_getScrollWidth (toElement self))+ +foreign import javascript unsafe "$1[\"scrollHeight\"]"+        js_getScrollHeight :: Element -> IO Int++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.scrollHeight Mozilla Element.scrollHeight documentation> +getScrollHeight :: (MonadIO m, IsElement self) => self -> m Int+getScrollHeight self = liftIO (js_getScrollHeight (toElement self))+ +foreign import javascript unsafe "$1[\"offsetParent\"]"+        js_getOffsetParent :: Element -> IO (Nullable 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+      (nullableToMaybe <$> (js_getOffsetParent (toElement self)))+ +foreign import javascript unsafe "$1[\"innerHTML\"] = $2;"+        js_setInnerHTML :: Element -> Nullable 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 (toElement self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"innerHTML\"]"+        js_getInnerHTML :: Element -> IO (Nullable 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 (toElement self)))+ +foreign import javascript unsafe "$1[\"outerHTML\"] = $2;"+        js_setOuterHTML :: Element -> Nullable 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 (toElement self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"outerHTML\"]"+        js_getOuterHTML :: Element -> IO (Nullable 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 (toElement self)))+ +foreign import javascript unsafe "$1[\"className\"] = $2;"+        js_setClassName :: Element -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.className Mozilla Element.className documentation> +setClassName ::+             (MonadIO m, IsElement self, ToJSString val) => self -> val -> m ()+setClassName self val+  = liftIO (js_setClassName (toElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"className\"]"+        js_getClassName :: Element -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.className Mozilla Element.className documentation> +getClassName ::+             (MonadIO m, IsElement self, FromJSString result) =>+               self -> m result+getClassName self+  = liftIO (fromJSString <$> (js_getClassName (toElement self)))+ +foreign import javascript unsafe "$1[\"classList\"]"+        js_getClassList :: Element -> IO (Nullable 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 (nullableToMaybe <$> (js_getClassList (toElement self)))+ +foreign import javascript unsafe "$1[\"dataset\"]" js_getDataset ::+        Element -> IO (Nullable 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 (nullableToMaybe <$> (js_getDataset (toElement self)))+ +foreign import javascript unsafe "$1[\"firstElementChild\"]"+        js_getFirstElementChild :: Element -> IO (Nullable 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+      (nullableToMaybe <$> (js_getFirstElementChild (toElement self)))+ +foreign import javascript unsafe "$1[\"lastElementChild\"]"+        js_getLastElementChild :: Element -> IO (Nullable 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+      (nullableToMaybe <$> (js_getLastElementChild (toElement self)))+ +foreign import javascript unsafe "$1[\"previousElementSibling\"]"+        js_getPreviousElementSibling :: Element -> IO (Nullable 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+      (nullableToMaybe <$>+         (js_getPreviousElementSibling (toElement self)))+ +foreign import javascript unsafe "$1[\"nextElementSibling\"]"+        js_getNextElementSibling :: Element -> IO (Nullable 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+      (nullableToMaybe <$> (js_getNextElementSibling (toElement self)))+ +foreign import javascript unsafe "$1[\"childElementCount\"]"+        js_getChildElementCount :: 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 (toElement self))+ +foreign import javascript unsafe "$1[\"uiactions\"] = $2;"+        js_setUiactions :: 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 (toElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"uiactions\"]"+        js_getUiactions :: 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 (toElement self)))+ +foreign import javascript unsafe "$1[\"webkitRegionOverset\"]"+        js_getWebkitRegionOverset :: Element -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.webkitRegionOverset Mozilla Element.webkitRegionOverset documentation> +getWebkitRegionOverset ::+                       (MonadIO m, IsElement self, FromJSString result) =>+                         self -> m result+getWebkitRegionOverset self+  = liftIO+      (fromJSString <$> (js_getWebkitRegionOverset (toElement self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.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,47 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"publicId\"]" js_getPublicId+        :: Entity -> IO (Nullable 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 (self)))+ +foreign import javascript unsafe "$1[\"systemId\"]" js_getSystemId+        :: Entity -> IO (Nullable 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 (self)))+ +foreign import javascript unsafe "$1[\"notationName\"]"+        js_getNotationName :: Entity -> IO (Nullable 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 (self)))
+ src/GHCJS/DOM/JSFFI/Generated/Enums.hs view
@@ -0,0 +1,771 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.Enums+       (KeyType(..), PToJSVal, ToJSVal, PFromJSVal, FromJSVal,+        js_KeyTypeSecret, js_KeyTypePublic, js_KeyTypePrivate,+        KeyUsage(..), js_KeyUsageEncrypt, js_KeyUsageDecrypt,+        js_KeyUsageSign, js_KeyUsageVerify, js_KeyUsageDeriveKey,+        js_KeyUsageDeriveBits, js_KeyUsageWrapKey, js_KeyUsageUnwrapKey,+        CanvasWindingRule(..), js_CanvasWindingRuleNonzero,+        js_CanvasWindingRuleEvenodd, VideoPresentationMode(..),+        js_VideoPresentationModeFullscreen,+        js_VideoPresentationModeOptimized, js_VideoPresentationModeInline,+        TextTrackMode(..), js_TextTrackModeDisabled,+        js_TextTrackModeHidden, js_TextTrackModeShowing, TextTrackKind(..),+        js_TextTrackKindSubtitles, js_TextTrackKindCaptions,+        js_TextTrackKindDescriptions, js_TextTrackKindChapters,+        js_TextTrackKindMetadata, DeviceType(..), js_DeviceTypeNone,+        js_DeviceTypeAirplay, js_DeviceTypeTvout, MediaUIPartID(..),+        js_MediaUIPartIDOptimizedFullscreenButton,+        js_MediaUIPartIDOptimizedFullscreenPlaceholder,+        EndOfStreamError(..), js_EndOfStreamErrorNetwork,+        js_EndOfStreamErrorDecode, AppendMode(..), js_AppendModeSegments,+        js_AppendModeSequence, SourceTypeEnum(..), js_SourceTypeEnumNone,+        js_SourceTypeEnumCamera, js_SourceTypeEnumMicrophone,+        VideoFacingModeEnum(..), js_VideoFacingModeEnumUser,+        js_VideoFacingModeEnumEnvironment, js_VideoFacingModeEnumLeft,+        js_VideoFacingModeEnumRight, MediaStreamTrackState(..),+        js_MediaStreamTrackStateNew, js_MediaStreamTrackStateLive,+        js_MediaStreamTrackStateEnded, RTCIceTransportsEnum(..),+        js_RTCIceTransportsEnumNone, js_RTCIceTransportsEnumRelay,+        js_RTCIceTransportsEnumAll, RTCIdentityOptionEnum(..),+        js_RTCIdentityOptionEnumYes, js_RTCIdentityOptionEnumNo,+        js_RTCIdentityOptionEnumIfconfigured, ReadableStreamStateType(..),+        js_ReadableStreamStateTypeReadable,+        js_ReadableStreamStateTypeWaiting,+        js_ReadableStreamStateTypeClosed,+        js_ReadableStreamStateTypeErrored, OverSampleType(..),+        js_OverSampleTypeNone, js_OverSampleType2x, js_OverSampleType4x,+        PageOverlayType(..), js_PageOverlayTypeView,+        js_PageOverlayTypeDocument, XMLHttpRequestResponseType(..),+        js_XMLHttpRequestResponseType,+        js_XMLHttpRequestResponseTypeArraybuffer,+        js_XMLHttpRequestResponseTypeBlob,+        js_XMLHttpRequestResponseTypeDocument,+        js_XMLHttpRequestResponseTypeJson,+        js_XMLHttpRequestResponseTypeText)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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 PToJSVal KeyType where+        pToJSVal KeyTypeSecret = js_KeyTypeSecret+        pToJSVal KeyTypePublic = js_KeyTypePublic+        pToJSVal KeyTypePrivate = js_KeyTypePrivate+ +instance ToJSVal KeyType where+        toJSVal = return . pToJSVal+ +instance PFromJSVal KeyType where+        pFromJSVal x | x `js_eq` js_KeyTypeSecret = KeyTypeSecret+        pFromJSVal x | x `js_eq` js_KeyTypePublic = KeyTypePublic+        pFromJSVal x | x `js_eq` js_KeyTypePrivate = KeyTypePrivate+ +instance FromJSVal KeyType where+        fromJSValUnchecked = return . pFromJSVal+        fromJSVal = return . pFromJSVal+ +foreign import javascript unsafe "\"secret\"" js_KeyTypeSecret ::+        JSVal+ +foreign import javascript unsafe "\"public\"" js_KeyTypePublic ::+        JSVal+ +foreign import javascript unsafe "\"private\"" js_KeyTypePrivate ::+        JSVal+ +data KeyUsage = KeyUsageEncrypt+              | KeyUsageDecrypt+              | KeyUsageSign+              | KeyUsageVerify+              | KeyUsageDeriveKey+              | KeyUsageDeriveBits+              | KeyUsageWrapKey+              | KeyUsageUnwrapKey+              deriving (Show, Read, Eq, Ord, Typeable)+ +instance PToJSVal KeyUsage where+        pToJSVal KeyUsageEncrypt = js_KeyUsageEncrypt+        pToJSVal KeyUsageDecrypt = js_KeyUsageDecrypt+        pToJSVal KeyUsageSign = js_KeyUsageSign+        pToJSVal KeyUsageVerify = js_KeyUsageVerify+        pToJSVal KeyUsageDeriveKey = js_KeyUsageDeriveKey+        pToJSVal KeyUsageDeriveBits = js_KeyUsageDeriveBits+        pToJSVal KeyUsageWrapKey = js_KeyUsageWrapKey+        pToJSVal KeyUsageUnwrapKey = js_KeyUsageUnwrapKey+ +instance ToJSVal KeyUsage where+        toJSVal = return . pToJSVal+ +instance PFromJSVal KeyUsage where+        pFromJSVal x | x `js_eq` js_KeyUsageEncrypt = KeyUsageEncrypt+        pFromJSVal x | x `js_eq` js_KeyUsageDecrypt = KeyUsageDecrypt+        pFromJSVal x | x `js_eq` js_KeyUsageSign = KeyUsageSign+        pFromJSVal x | x `js_eq` js_KeyUsageVerify = KeyUsageVerify+        pFromJSVal x | x `js_eq` js_KeyUsageDeriveKey = KeyUsageDeriveKey+        pFromJSVal x | x `js_eq` js_KeyUsageDeriveBits = KeyUsageDeriveBits+        pFromJSVal x | x `js_eq` js_KeyUsageWrapKey = KeyUsageWrapKey+        pFromJSVal x | x `js_eq` js_KeyUsageUnwrapKey = KeyUsageUnwrapKey+ +instance FromJSVal KeyUsage where+        fromJSValUnchecked = return . pFromJSVal+        fromJSVal = return . pFromJSVal+ +foreign import javascript unsafe "\"encrypt\"" js_KeyUsageEncrypt+        :: JSVal+ +foreign import javascript unsafe "\"decrypt\"" js_KeyUsageDecrypt+        :: JSVal+ +foreign import javascript unsafe "\"sign\"" js_KeyUsageSign ::+        JSVal+ +foreign import javascript unsafe "\"verify\"" js_KeyUsageVerify ::+        JSVal+ +foreign import javascript unsafe "\"deriveKey\""+        js_KeyUsageDeriveKey :: JSVal+ +foreign import javascript unsafe "\"deriveBits\""+        js_KeyUsageDeriveBits :: JSVal+ +foreign import javascript unsafe "\"wrapKey\"" js_KeyUsageWrapKey+        :: JSVal+ +foreign import javascript unsafe "\"unwrapKey\""+        js_KeyUsageUnwrapKey :: JSVal+ +data CanvasWindingRule = CanvasWindingRuleNonzero+                       | CanvasWindingRuleEvenodd+                       deriving (Show, Read, Eq, Ord, Typeable)+ +instance PToJSVal CanvasWindingRule where+        pToJSVal CanvasWindingRuleNonzero = js_CanvasWindingRuleNonzero+        pToJSVal CanvasWindingRuleEvenodd = js_CanvasWindingRuleEvenodd+ +instance ToJSVal CanvasWindingRule where+        toJSVal = return . pToJSVal+ +instance PFromJSVal CanvasWindingRule where+        pFromJSVal x+          | x `js_eq` js_CanvasWindingRuleNonzero = CanvasWindingRuleNonzero+        pFromJSVal x+          | x `js_eq` js_CanvasWindingRuleEvenodd = CanvasWindingRuleEvenodd+ +instance FromJSVal CanvasWindingRule where+        fromJSValUnchecked = return . pFromJSVal+        fromJSVal = return . pFromJSVal+ +foreign import javascript unsafe "\"nonzero\""+        js_CanvasWindingRuleNonzero :: JSVal+ +foreign import javascript unsafe "\"evenodd\""+        js_CanvasWindingRuleEvenodd :: JSVal+ +data VideoPresentationMode = VideoPresentationModeFullscreen+                           | VideoPresentationModeOptimized+                           | VideoPresentationModeInline+                           deriving (Show, Read, Eq, Ord, Typeable)+ +instance PToJSVal VideoPresentationMode where+        pToJSVal VideoPresentationModeFullscreen+          = js_VideoPresentationModeFullscreen+        pToJSVal VideoPresentationModeOptimized+          = js_VideoPresentationModeOptimized+        pToJSVal VideoPresentationModeInline+          = js_VideoPresentationModeInline+ +instance ToJSVal VideoPresentationMode where+        toJSVal = return . pToJSVal+ +instance PFromJSVal VideoPresentationMode where+        pFromJSVal x+          | x `js_eq` js_VideoPresentationModeFullscreen =+            VideoPresentationModeFullscreen+        pFromJSVal x+          | x `js_eq` js_VideoPresentationModeOptimized =+            VideoPresentationModeOptimized+        pFromJSVal x+          | x `js_eq` js_VideoPresentationModeInline =+            VideoPresentationModeInline+ +instance FromJSVal VideoPresentationMode where+        fromJSValUnchecked = return . pFromJSVal+        fromJSVal = return . pFromJSVal+ +foreign import javascript unsafe "\"fullscreen\""+        js_VideoPresentationModeFullscreen :: JSVal+ +foreign import javascript unsafe "\"optimized\""+        js_VideoPresentationModeOptimized :: JSVal+ +foreign import javascript unsafe "\"inline\""+        js_VideoPresentationModeInline :: JSVal+ +data TextTrackMode = TextTrackModeDisabled+                   | TextTrackModeHidden+                   | TextTrackModeShowing+                   deriving (Show, Read, Eq, Ord, Typeable)+ +instance PToJSVal TextTrackMode where+        pToJSVal TextTrackModeDisabled = js_TextTrackModeDisabled+        pToJSVal TextTrackModeHidden = js_TextTrackModeHidden+        pToJSVal TextTrackModeShowing = js_TextTrackModeShowing+ +instance ToJSVal TextTrackMode where+        toJSVal = return . pToJSVal+ +instance PFromJSVal TextTrackMode where+        pFromJSVal x+          | x `js_eq` js_TextTrackModeDisabled = TextTrackModeDisabled+        pFromJSVal x+          | x `js_eq` js_TextTrackModeHidden = TextTrackModeHidden+        pFromJSVal x+          | x `js_eq` js_TextTrackModeShowing = TextTrackModeShowing+ +instance FromJSVal TextTrackMode where+        fromJSValUnchecked = return . pFromJSVal+        fromJSVal = return . pFromJSVal+ +foreign import javascript unsafe "\"disabled\""+        js_TextTrackModeDisabled :: JSVal+ +foreign import javascript unsafe "\"hidden\""+        js_TextTrackModeHidden :: JSVal+ +foreign import javascript unsafe "\"showing\""+        js_TextTrackModeShowing :: JSVal+ +data TextTrackKind = TextTrackKindSubtitles+                   | TextTrackKindCaptions+                   | TextTrackKindDescriptions+                   | TextTrackKindChapters+                   | TextTrackKindMetadata+                   deriving (Show, Read, Eq, Ord, Typeable)+ +instance PToJSVal TextTrackKind where+        pToJSVal TextTrackKindSubtitles = js_TextTrackKindSubtitles+        pToJSVal TextTrackKindCaptions = js_TextTrackKindCaptions+        pToJSVal TextTrackKindDescriptions = js_TextTrackKindDescriptions+        pToJSVal TextTrackKindChapters = js_TextTrackKindChapters+        pToJSVal TextTrackKindMetadata = js_TextTrackKindMetadata+ +instance ToJSVal TextTrackKind where+        toJSVal = return . pToJSVal+ +instance PFromJSVal TextTrackKind where+        pFromJSVal x+          | x `js_eq` js_TextTrackKindSubtitles = TextTrackKindSubtitles+        pFromJSVal x+          | x `js_eq` js_TextTrackKindCaptions = TextTrackKindCaptions+        pFromJSVal x+          | x `js_eq` js_TextTrackKindDescriptions =+            TextTrackKindDescriptions+        pFromJSVal x+          | x `js_eq` js_TextTrackKindChapters = TextTrackKindChapters+        pFromJSVal x+          | x `js_eq` js_TextTrackKindMetadata = TextTrackKindMetadata+ +instance FromJSVal TextTrackKind where+        fromJSValUnchecked = return . pFromJSVal+        fromJSVal = return . pFromJSVal+ +foreign import javascript unsafe "\"subtitles\""+        js_TextTrackKindSubtitles :: JSVal+ +foreign import javascript unsafe "\"captions\""+        js_TextTrackKindCaptions :: JSVal+ +foreign import javascript unsafe "\"descriptions\""+        js_TextTrackKindDescriptions :: JSVal+ +foreign import javascript unsafe "\"chapters\""+        js_TextTrackKindChapters :: JSVal+ +foreign import javascript unsafe "\"metadata\""+        js_TextTrackKindMetadata :: JSVal+ +data DeviceType = DeviceTypeNone+                | DeviceTypeAirplay+                | DeviceTypeTvout+                deriving (Show, Read, Eq, Ord, Typeable)+ +instance PToJSVal DeviceType where+        pToJSVal DeviceTypeNone = js_DeviceTypeNone+        pToJSVal DeviceTypeAirplay = js_DeviceTypeAirplay+        pToJSVal DeviceTypeTvout = js_DeviceTypeTvout+ +instance ToJSVal DeviceType where+        toJSVal = return . pToJSVal+ +instance PFromJSVal DeviceType where+        pFromJSVal x | x `js_eq` js_DeviceTypeNone = DeviceTypeNone+        pFromJSVal x | x `js_eq` js_DeviceTypeAirplay = DeviceTypeAirplay+        pFromJSVal x | x `js_eq` js_DeviceTypeTvout = DeviceTypeTvout+ +instance FromJSVal DeviceType where+        fromJSValUnchecked = return . pFromJSVal+        fromJSVal = return . pFromJSVal+ +foreign import javascript unsafe "\"none\"" js_DeviceTypeNone ::+        JSVal+ +foreign import javascript unsafe "\"airplay\"" js_DeviceTypeAirplay+        :: JSVal+ +foreign import javascript unsafe "\"tvout\"" js_DeviceTypeTvout ::+        JSVal+ +data MediaUIPartID = MediaUIPartIDOptimizedFullscreenButton+                   | MediaUIPartIDOptimizedFullscreenPlaceholder+                   deriving (Show, Read, Eq, Ord, Typeable)+ +instance PToJSVal MediaUIPartID where+        pToJSVal MediaUIPartIDOptimizedFullscreenButton+          = js_MediaUIPartIDOptimizedFullscreenButton+        pToJSVal MediaUIPartIDOptimizedFullscreenPlaceholder+          = js_MediaUIPartIDOptimizedFullscreenPlaceholder+ +instance ToJSVal MediaUIPartID where+        toJSVal = return . pToJSVal+ +instance PFromJSVal MediaUIPartID where+        pFromJSVal x+          | x `js_eq` js_MediaUIPartIDOptimizedFullscreenButton =+            MediaUIPartIDOptimizedFullscreenButton+        pFromJSVal x+          | x `js_eq` js_MediaUIPartIDOptimizedFullscreenPlaceholder =+            MediaUIPartIDOptimizedFullscreenPlaceholder+ +instance FromJSVal MediaUIPartID where+        fromJSValUnchecked = return . pFromJSVal+        fromJSVal = return . pFromJSVal+ +foreign import javascript unsafe "\"optimized-fullscreen-button\""+        js_MediaUIPartIDOptimizedFullscreenButton :: JSVal+ +foreign import javascript unsafe+        "\"optimized-fullscreen-placeholder\""+        js_MediaUIPartIDOptimizedFullscreenPlaceholder :: JSVal+ +data EndOfStreamError = EndOfStreamErrorNetwork+                      | EndOfStreamErrorDecode+                      deriving (Show, Read, Eq, Ord, Typeable)+ +instance PToJSVal EndOfStreamError where+        pToJSVal EndOfStreamErrorNetwork = js_EndOfStreamErrorNetwork+        pToJSVal EndOfStreamErrorDecode = js_EndOfStreamErrorDecode+ +instance ToJSVal EndOfStreamError where+        toJSVal = return . pToJSVal+ +instance PFromJSVal EndOfStreamError where+        pFromJSVal x+          | x `js_eq` js_EndOfStreamErrorNetwork = EndOfStreamErrorNetwork+        pFromJSVal x+          | x `js_eq` js_EndOfStreamErrorDecode = EndOfStreamErrorDecode+ +instance FromJSVal EndOfStreamError where+        fromJSValUnchecked = return . pFromJSVal+        fromJSVal = return . pFromJSVal+ +foreign import javascript unsafe "\"network\""+        js_EndOfStreamErrorNetwork :: JSVal+ +foreign import javascript unsafe "\"decode\""+        js_EndOfStreamErrorDecode :: JSVal+ +data AppendMode = AppendModeSegments+                | AppendModeSequence+                deriving (Show, Read, Eq, Ord, Typeable)+ +instance PToJSVal AppendMode where+        pToJSVal AppendModeSegments = js_AppendModeSegments+        pToJSVal AppendModeSequence = js_AppendModeSequence+ +instance ToJSVal AppendMode where+        toJSVal = return . pToJSVal+ +instance PFromJSVal AppendMode where+        pFromJSVal x | x `js_eq` js_AppendModeSegments = AppendModeSegments+        pFromJSVal x | x `js_eq` js_AppendModeSequence = AppendModeSequence+ +instance FromJSVal AppendMode where+        fromJSValUnchecked = return . pFromJSVal+        fromJSVal = return . pFromJSVal+ +foreign import javascript unsafe "\"segments\""+        js_AppendModeSegments :: JSVal+ +foreign import javascript unsafe "\"sequence\""+        js_AppendModeSequence :: JSVal+ +data SourceTypeEnum = SourceTypeEnumNone+                    | SourceTypeEnumCamera+                    | SourceTypeEnumMicrophone+                    deriving (Show, Read, Eq, Ord, Typeable)+ +instance PToJSVal SourceTypeEnum where+        pToJSVal SourceTypeEnumNone = js_SourceTypeEnumNone+        pToJSVal SourceTypeEnumCamera = js_SourceTypeEnumCamera+        pToJSVal SourceTypeEnumMicrophone = js_SourceTypeEnumMicrophone+ +instance ToJSVal SourceTypeEnum where+        toJSVal = return . pToJSVal+ +instance PFromJSVal SourceTypeEnum where+        pFromJSVal x | x `js_eq` js_SourceTypeEnumNone = SourceTypeEnumNone+        pFromJSVal x+          | x `js_eq` js_SourceTypeEnumCamera = SourceTypeEnumCamera+        pFromJSVal x+          | x `js_eq` js_SourceTypeEnumMicrophone = SourceTypeEnumMicrophone+ +instance FromJSVal SourceTypeEnum where+        fromJSValUnchecked = return . pFromJSVal+        fromJSVal = return . pFromJSVal+ +foreign import javascript unsafe "\"none\"" js_SourceTypeEnumNone+        :: JSVal+ +foreign import javascript unsafe "\"camera\""+        js_SourceTypeEnumCamera :: JSVal+ +foreign import javascript unsafe "\"microphone\""+        js_SourceTypeEnumMicrophone :: JSVal+ +data VideoFacingModeEnum = VideoFacingModeEnumUser+                         | VideoFacingModeEnumEnvironment+                         | VideoFacingModeEnumLeft+                         | VideoFacingModeEnumRight+                         deriving (Show, Read, Eq, Ord, Typeable)+ +instance PToJSVal VideoFacingModeEnum where+        pToJSVal VideoFacingModeEnumUser = js_VideoFacingModeEnumUser+        pToJSVal VideoFacingModeEnumEnvironment+          = js_VideoFacingModeEnumEnvironment+        pToJSVal VideoFacingModeEnumLeft = js_VideoFacingModeEnumLeft+        pToJSVal VideoFacingModeEnumRight = js_VideoFacingModeEnumRight+ +instance ToJSVal VideoFacingModeEnum where+        toJSVal = return . pToJSVal+ +instance PFromJSVal VideoFacingModeEnum where+        pFromJSVal x+          | x `js_eq` js_VideoFacingModeEnumUser = VideoFacingModeEnumUser+        pFromJSVal x+          | x `js_eq` js_VideoFacingModeEnumEnvironment =+            VideoFacingModeEnumEnvironment+        pFromJSVal x+          | x `js_eq` js_VideoFacingModeEnumLeft = VideoFacingModeEnumLeft+        pFromJSVal x+          | x `js_eq` js_VideoFacingModeEnumRight = VideoFacingModeEnumRight+ +instance FromJSVal VideoFacingModeEnum where+        fromJSValUnchecked = return . pFromJSVal+        fromJSVal = return . pFromJSVal+ +foreign import javascript unsafe "\"user\""+        js_VideoFacingModeEnumUser :: JSVal+ +foreign import javascript unsafe "\"environment\""+        js_VideoFacingModeEnumEnvironment :: JSVal+ +foreign import javascript unsafe "\"left\""+        js_VideoFacingModeEnumLeft :: JSVal+ +foreign import javascript unsafe "\"right\""+        js_VideoFacingModeEnumRight :: JSVal+ +data MediaStreamTrackState = MediaStreamTrackStateNew+                           | MediaStreamTrackStateLive+                           | MediaStreamTrackStateEnded+                           deriving (Show, Read, Eq, Ord, Typeable)+ +instance PToJSVal MediaStreamTrackState where+        pToJSVal MediaStreamTrackStateNew = js_MediaStreamTrackStateNew+        pToJSVal MediaStreamTrackStateLive = js_MediaStreamTrackStateLive+        pToJSVal MediaStreamTrackStateEnded = js_MediaStreamTrackStateEnded+ +instance ToJSVal MediaStreamTrackState where+        toJSVal = return . pToJSVal+ +instance PFromJSVal MediaStreamTrackState where+        pFromJSVal x+          | x `js_eq` js_MediaStreamTrackStateNew = MediaStreamTrackStateNew+        pFromJSVal x+          | x `js_eq` js_MediaStreamTrackStateLive =+            MediaStreamTrackStateLive+        pFromJSVal x+          | x `js_eq` js_MediaStreamTrackStateEnded =+            MediaStreamTrackStateEnded+ +instance FromJSVal MediaStreamTrackState where+        fromJSValUnchecked = return . pFromJSVal+        fromJSVal = return . pFromJSVal+ +foreign import javascript unsafe "\"new\""+        js_MediaStreamTrackStateNew :: JSVal+ +foreign import javascript unsafe "\"live\""+        js_MediaStreamTrackStateLive :: JSVal+ +foreign import javascript unsafe "\"ended\""+        js_MediaStreamTrackStateEnded :: JSVal+ +data RTCIceTransportsEnum = RTCIceTransportsEnumNone+                          | RTCIceTransportsEnumRelay+                          | RTCIceTransportsEnumAll+                          deriving (Show, Read, Eq, Ord, Typeable)+ +instance PToJSVal RTCIceTransportsEnum where+        pToJSVal RTCIceTransportsEnumNone = js_RTCIceTransportsEnumNone+        pToJSVal RTCIceTransportsEnumRelay = js_RTCIceTransportsEnumRelay+        pToJSVal RTCIceTransportsEnumAll = js_RTCIceTransportsEnumAll+ +instance ToJSVal RTCIceTransportsEnum where+        toJSVal = return . pToJSVal+ +instance PFromJSVal RTCIceTransportsEnum where+        pFromJSVal x+          | x `js_eq` js_RTCIceTransportsEnumNone = RTCIceTransportsEnumNone+        pFromJSVal x+          | x `js_eq` js_RTCIceTransportsEnumRelay =+            RTCIceTransportsEnumRelay+        pFromJSVal x+          | x `js_eq` js_RTCIceTransportsEnumAll = RTCIceTransportsEnumAll+ +instance FromJSVal RTCIceTransportsEnum where+        fromJSValUnchecked = return . pFromJSVal+        fromJSVal = return . pFromJSVal+ +foreign import javascript unsafe "\"none\""+        js_RTCIceTransportsEnumNone :: JSVal+ +foreign import javascript unsafe "\"relay\""+        js_RTCIceTransportsEnumRelay :: JSVal+ +foreign import javascript unsafe "\"all\""+        js_RTCIceTransportsEnumAll :: JSVal+ +data RTCIdentityOptionEnum = RTCIdentityOptionEnumYes+                           | RTCIdentityOptionEnumNo+                           | RTCIdentityOptionEnumIfconfigured+                           deriving (Show, Read, Eq, Ord, Typeable)+ +instance PToJSVal RTCIdentityOptionEnum where+        pToJSVal RTCIdentityOptionEnumYes = js_RTCIdentityOptionEnumYes+        pToJSVal RTCIdentityOptionEnumNo = js_RTCIdentityOptionEnumNo+        pToJSVal RTCIdentityOptionEnumIfconfigured+          = js_RTCIdentityOptionEnumIfconfigured+ +instance ToJSVal RTCIdentityOptionEnum where+        toJSVal = return . pToJSVal+ +instance PFromJSVal RTCIdentityOptionEnum where+        pFromJSVal x+          | x `js_eq` js_RTCIdentityOptionEnumYes = RTCIdentityOptionEnumYes+        pFromJSVal x+          | x `js_eq` js_RTCIdentityOptionEnumNo = RTCIdentityOptionEnumNo+        pFromJSVal x+          | x `js_eq` js_RTCIdentityOptionEnumIfconfigured =+            RTCIdentityOptionEnumIfconfigured+ +instance FromJSVal RTCIdentityOptionEnum where+        fromJSValUnchecked = return . pFromJSVal+        fromJSVal = return . pFromJSVal+ +foreign import javascript unsafe "\"yes\""+        js_RTCIdentityOptionEnumYes :: JSVal+ +foreign import javascript unsafe "\"no\""+        js_RTCIdentityOptionEnumNo :: JSVal+ +foreign import javascript unsafe "\"ifconfigured\""+        js_RTCIdentityOptionEnumIfconfigured :: JSVal+ +data ReadableStreamStateType = ReadableStreamStateTypeReadable+                             | ReadableStreamStateTypeWaiting+                             | ReadableStreamStateTypeClosed+                             | ReadableStreamStateTypeErrored+                             deriving (Show, Read, Eq, Ord, Typeable)+ +instance PToJSVal ReadableStreamStateType where+        pToJSVal ReadableStreamStateTypeReadable+          = js_ReadableStreamStateTypeReadable+        pToJSVal ReadableStreamStateTypeWaiting+          = js_ReadableStreamStateTypeWaiting+        pToJSVal ReadableStreamStateTypeClosed+          = js_ReadableStreamStateTypeClosed+        pToJSVal ReadableStreamStateTypeErrored+          = js_ReadableStreamStateTypeErrored+ +instance ToJSVal ReadableStreamStateType where+        toJSVal = return . pToJSVal+ +instance PFromJSVal ReadableStreamStateType where+        pFromJSVal x+          | x `js_eq` js_ReadableStreamStateTypeReadable =+            ReadableStreamStateTypeReadable+        pFromJSVal x+          | x `js_eq` js_ReadableStreamStateTypeWaiting =+            ReadableStreamStateTypeWaiting+        pFromJSVal x+          | x `js_eq` js_ReadableStreamStateTypeClosed =+            ReadableStreamStateTypeClosed+        pFromJSVal x+          | x `js_eq` js_ReadableStreamStateTypeErrored =+            ReadableStreamStateTypeErrored+ +instance FromJSVal ReadableStreamStateType where+        fromJSValUnchecked = return . pFromJSVal+        fromJSVal = return . pFromJSVal+ +foreign import javascript unsafe "\"readable\""+        js_ReadableStreamStateTypeReadable :: JSVal+ +foreign import javascript unsafe "\"waiting\""+        js_ReadableStreamStateTypeWaiting :: JSVal+ +foreign import javascript unsafe "\"closed\""+        js_ReadableStreamStateTypeClosed :: JSVal+ +foreign import javascript unsafe "\"errored\""+        js_ReadableStreamStateTypeErrored :: JSVal+ +data OverSampleType = OverSampleTypeNone+                    | OverSampleType2x+                    | OverSampleType4x+                    deriving (Show, Read, Eq, Ord, Typeable)+ +instance PToJSVal OverSampleType where+        pToJSVal OverSampleTypeNone = js_OverSampleTypeNone+        pToJSVal OverSampleType2x = js_OverSampleType2x+        pToJSVal OverSampleType4x = js_OverSampleType4x+ +instance ToJSVal OverSampleType where+        toJSVal = return . pToJSVal+ +instance PFromJSVal OverSampleType where+        pFromJSVal x | x `js_eq` js_OverSampleTypeNone = OverSampleTypeNone+        pFromJSVal x | x `js_eq` js_OverSampleType2x = OverSampleType2x+        pFromJSVal x | x `js_eq` js_OverSampleType4x = OverSampleType4x+ +instance FromJSVal OverSampleType where+        fromJSValUnchecked = return . pFromJSVal+        fromJSVal = return . pFromJSVal+ +foreign import javascript unsafe "\"none\"" js_OverSampleTypeNone+        :: JSVal+ +foreign import javascript unsafe "\"2x\"" js_OverSampleType2x ::+        JSVal+ +foreign import javascript unsafe "\"4x\"" js_OverSampleType4x ::+        JSVal+ +data PageOverlayType = PageOverlayTypeView+                     | PageOverlayTypeDocument+                     deriving (Show, Read, Eq, Ord, Typeable)+ +instance PToJSVal PageOverlayType where+        pToJSVal PageOverlayTypeView = js_PageOverlayTypeView+        pToJSVal PageOverlayTypeDocument = js_PageOverlayTypeDocument+ +instance ToJSVal PageOverlayType where+        toJSVal = return . pToJSVal+ +instance PFromJSVal PageOverlayType where+        pFromJSVal x+          | x `js_eq` js_PageOverlayTypeView = PageOverlayTypeView+        pFromJSVal x+          | x `js_eq` js_PageOverlayTypeDocument = PageOverlayTypeDocument+ +instance FromJSVal PageOverlayType where+        fromJSValUnchecked = return . pFromJSVal+        fromJSVal = return . pFromJSVal+ +foreign import javascript unsafe "\"view\"" js_PageOverlayTypeView+        :: JSVal+ +foreign import javascript unsafe "\"document\""+        js_PageOverlayTypeDocument :: JSVal+ +data XMLHttpRequestResponseType = XMLHttpRequestResponseType+                                | XMLHttpRequestResponseTypeArraybuffer+                                | XMLHttpRequestResponseTypeBlob+                                | XMLHttpRequestResponseTypeDocument+                                | XMLHttpRequestResponseTypeJson+                                | XMLHttpRequestResponseTypeText+                                deriving (Show, Read, Eq, Ord, Typeable)+ +instance PToJSVal XMLHttpRequestResponseType where+        pToJSVal XMLHttpRequestResponseType = js_XMLHttpRequestResponseType+        pToJSVal XMLHttpRequestResponseTypeArraybuffer+          = js_XMLHttpRequestResponseTypeArraybuffer+        pToJSVal XMLHttpRequestResponseTypeBlob+          = js_XMLHttpRequestResponseTypeBlob+        pToJSVal XMLHttpRequestResponseTypeDocument+          = js_XMLHttpRequestResponseTypeDocument+        pToJSVal XMLHttpRequestResponseTypeJson+          = js_XMLHttpRequestResponseTypeJson+        pToJSVal XMLHttpRequestResponseTypeText+          = js_XMLHttpRequestResponseTypeText+ +instance ToJSVal XMLHttpRequestResponseType where+        toJSVal = return . pToJSVal+ +instance PFromJSVal XMLHttpRequestResponseType where+        pFromJSVal x+          | x `js_eq` js_XMLHttpRequestResponseType =+            XMLHttpRequestResponseType+        pFromJSVal x+          | x `js_eq` js_XMLHttpRequestResponseTypeArraybuffer =+            XMLHttpRequestResponseTypeArraybuffer+        pFromJSVal x+          | x `js_eq` js_XMLHttpRequestResponseTypeBlob =+            XMLHttpRequestResponseTypeBlob+        pFromJSVal x+          | x `js_eq` js_XMLHttpRequestResponseTypeDocument =+            XMLHttpRequestResponseTypeDocument+        pFromJSVal x+          | x `js_eq` js_XMLHttpRequestResponseTypeJson =+            XMLHttpRequestResponseTypeJson+        pFromJSVal x+          | x `js_eq` js_XMLHttpRequestResponseTypeText =+            XMLHttpRequestResponseTypeText+ +instance FromJSVal XMLHttpRequestResponseType where+        fromJSValUnchecked = return . pFromJSVal+        fromJSVal = return . pFromJSVal+ +foreign import javascript unsafe "\"\""+        js_XMLHttpRequestResponseType :: JSVal+ +foreign import javascript unsafe "\"arraybuffer\""+        js_XMLHttpRequestResponseTypeArraybuffer :: JSVal+ +foreign import javascript unsafe "\"blob\""+        js_XMLHttpRequestResponseTypeBlob :: JSVal+ +foreign import javascript unsafe "\"document\""+        js_XMLHttpRequestResponseTypeDocument :: JSVal+ +foreign import javascript unsafe "\"json\""+        js_XMLHttpRequestResponseTypeJson :: JSVal+ +foreign import javascript unsafe "\"text\""+        js_XMLHttpRequestResponseTypeText :: JSVal
+ src/GHCJS/DOM/JSFFI/Generated/ErrorEvent.hs view
@@ -0,0 +1,51 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"message\"]" js_getMessage ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"filename\"]" js_getFilename+        :: 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 (self)))+ +foreign import javascript unsafe "$1[\"lineno\"]" js_getLineno ::+        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 (self))+ +foreign import javascript unsafe "$1[\"colno\"]" js_getColno ::+        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 (self))
+ src/GHCJS/DOM/JSFFI/Generated/Event.hs view
@@ -0,0 +1,203 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"stopPropagation\"]()"+        js_stopPropagation :: 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 (toEvent self))+ +foreign import javascript unsafe "$1[\"preventDefault\"]()"+        js_preventDefault :: 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 (toEvent self))+ +foreign import javascript unsafe "$1[\"initEvent\"]($2, $3, $4)"+        js_initEvent :: 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 (toEvent self) (toJSString eventTypeArg) canBubbleArg+         cancelableArg)+ +foreign import javascript unsafe+        "$1[\"stopImmediatePropagation\"]()" js_stopImmediatePropagation ::+        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 (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 ::+        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 (toEvent self)))+ +foreign import javascript unsafe "$1[\"target\"]" js_getTarget ::+        Event -> IO (Nullable 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 (nullableToMaybe <$> (js_getTarget (toEvent self)))+ +foreign import javascript unsafe "$1[\"currentTarget\"]"+        js_getCurrentTarget :: Event -> IO (Nullable 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 (nullableToMaybe <$> (js_getCurrentTarget (toEvent self)))+ +foreign import javascript unsafe "$1[\"eventPhase\"]"+        js_getEventPhase :: 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 (toEvent self))+ +foreign import javascript unsafe "($1[\"bubbles\"] ? 1 : 0)"+        js_getBubbles :: 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 (toEvent self))+ +foreign import javascript unsafe "($1[\"cancelable\"] ? 1 : 0)"+        js_getCancelable :: 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 (toEvent self))+ +foreign import javascript unsafe "$1[\"timeStamp\"]"+        js_getTimeStamp :: 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 (toEvent self))+ +foreign import javascript unsafe+        "($1[\"defaultPrevented\"] ? 1 : 0)" js_getDefaultPrevented ::+        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 (toEvent self))+ +foreign import javascript unsafe "$1[\"srcElement\"]"+        js_getSrcElement :: Event -> IO (Nullable 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 (nullableToMaybe <$> (js_getSrcElement (toEvent self)))+ +foreign import javascript unsafe "$1[\"returnValue\"] = $2;"+        js_setReturnValue :: 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 (toEvent self) val)+ +foreign import javascript unsafe "($1[\"returnValue\"] ? 1 : 0)"+        js_getReturnValue :: 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 (toEvent self))+ +foreign import javascript unsafe "$1[\"cancelBubble\"] = $2;"+        js_setCancelBubble :: 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 (toEvent self) val)+ +foreign import javascript unsafe "($1[\"cancelBubble\"] ? 1 : 0)"+        js_getCancelBubble :: 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 (toEvent self))+ +foreign import javascript unsafe "$1[\"clipboardData\"]"+        js_getClipboardData :: Event -> IO (Nullable 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 (nullableToMaybe <$> (js_getClipboardData (toEvent self)))
+ src/GHCJS/DOM/JSFFI/Generated/EventListener.hs view
@@ -0,0 +1,29 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"handleEvent\"]($2)"+        js_handleEvent :: EventListener -> Nullable 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 (self) (maybeToNullable (fmap toEvent evt)))
+ src/GHCJS/DOM/JSFFI/Generated/EventSource.hs view
@@ -0,0 +1,80 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe+        "new window[\"EventSource\"]($1,\n$2)" js_newEventSource ::+        JSString -> Nullable Dictionary -> IO 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)+         (maybeToNullable (fmap toDictionary eventSourceInit)))+ +foreign import javascript unsafe "$1[\"close\"]()" js_close ::+        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 (self))+pattern CONNECTING = 0+pattern OPEN = 1+pattern CLOSED = 2+ +foreign import javascript unsafe "$1[\"url\"]" js_getUrl ::+        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 (self)))+ +foreign import javascript unsafe+        "($1[\"withCredentials\"] ? 1 : 0)" js_getWithCredentials ::+        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 (self))+ +foreign import javascript unsafe "$1[\"readyState\"]"+        js_getReadyState :: 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 (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,61 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe+        "$1[\"addEventListener\"]($2, $3,\n$4)" js_addEventListener ::+        EventTarget -> JSString -> Nullable 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 (toEventTarget self) (toJSString type')+         (maybeToNullable listener)+         useCapture)+ +foreign import javascript unsafe+        "$1[\"removeEventListener\"]($2,\n$3, $4)" js_removeEventListener+        ::+        EventTarget -> JSString -> Nullable 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 (toEventTarget self) (toJSString type')+         (maybeToNullable listener)+         useCapture)+ +foreign import javascript unsafe+        "($1[\"dispatchEvent\"]($2) ? 1 : 0)" js_dispatchEvent ::+        EventTarget -> Nullable 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 (toEventTarget self)+         (maybeToNullable (fmap 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"name\"]" js_getName ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"lastModifiedDate\"]"+        js_getLastModifiedDate :: File -> IO (Nullable 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 (nullableToMaybe <$> (js_getLastModifiedDate (self)))
+ 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.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 ::+        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 (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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"item\"]($2)" js_item ::+        FileList -> Word -> IO (Nullable 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 (nullableToMaybe <$> (js_item (self) index))+ +foreign import javascript unsafe "$1[\"length\"]" js_getLength ::+        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 (self))
+ src/GHCJS/DOM/JSFFI/Generated/FileReader.hs view
@@ -0,0 +1,128 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "new window[\"FileReader\"]()"+        js_newFileReader :: IO FileReader++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FileReader Mozilla FileReader documentation> +newFileReader :: (MonadIO m) => m FileReader+newFileReader = liftIO (js_newFileReader)+ +foreign import javascript unsafe "$1[\"readAsArrayBuffer\"]($2)"+        js_readAsArrayBuffer :: FileReader -> Nullable 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 (self) (maybeToNullable (fmap toBlob blob)))+ +foreign import javascript unsafe "$1[\"readAsBinaryString\"]($2)"+        js_readAsBinaryString :: FileReader -> Nullable 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 (self) (maybeToNullable (fmap toBlob blob)))+ +foreign import javascript unsafe "$1[\"readAsText\"]($2, $3)"+        js_readAsText :: FileReader -> Nullable 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 (self) (maybeToNullable (fmap toBlob blob))+         (toJSString encoding))+ +foreign import javascript unsafe "$1[\"readAsDataURL\"]($2)"+        js_readAsDataURL :: FileReader -> Nullable 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 (self) (maybeToNullable (fmap toBlob blob)))+ +foreign import javascript unsafe "$1[\"abort\"]()" js_abort ::+        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 (self))+pattern EMPTY = 0+pattern LOADING = 1+pattern DONE = 2+ +foreign import javascript unsafe "$1[\"readyState\"]"+        js_getReadyState :: 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 (self))+ +foreign import javascript unsafe "$1[\"result\"]" js_getResult ::+        FileReader -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FileReader.result Mozilla FileReader.result documentation> +getResult :: (MonadIO m) => FileReader -> m JSVal+getResult self = liftIO (js_getResult (self))+ +foreign import javascript unsafe "$1[\"error\"]" js_getError ::+        FileReader -> IO (Nullable 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 (nullableToMaybe <$> (js_getError (self)))++-- | <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,82 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "new window[\"FileReaderSync\"]()"+        js_newFileReaderSync :: IO FileReaderSync++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FileReaderSync Mozilla FileReaderSync documentation> +newFileReaderSync :: (MonadIO m) => m FileReaderSync+newFileReaderSync = liftIO (js_newFileReaderSync)+ +foreign import javascript unsafe "$1[\"readAsArrayBuffer\"]($2)"+        js_readAsArrayBuffer ::+        FileReaderSync -> Nullable Blob -> IO (Nullable 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+      (nullableToMaybe <$>+         (js_readAsArrayBuffer (self) (maybeToNullable (fmap toBlob blob))))+ +foreign import javascript unsafe "$1[\"readAsBinaryString\"]($2)"+        js_readAsBinaryString ::+        FileReaderSync -> Nullable 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 (self)+            (maybeToNullable (fmap toBlob blob))))+ +foreign import javascript unsafe "$1[\"readAsText\"]($2, $3)"+        js_readAsText ::+        FileReaderSync -> Nullable 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 (self) (maybeToNullable (fmap toBlob blob))+            (toJSString encoding)))+ +foreign import javascript unsafe "$1[\"readAsDataURL\"]($2)"+        js_readAsDataURL :: FileReaderSync -> Nullable 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 (self) (maybeToNullable (fmap 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"relatedTarget\"]"+        js_getRelatedTarget :: FocusEvent -> IO (Nullable 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 (nullableToMaybe <$> (js_getRelatedTarget (self)))
+ src/GHCJS/DOM/JSFFI/Generated/FontLoader.hs view
@@ -0,0 +1,81 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe+        "($1[\"checkFont\"]($2,\n$3) ? 1 : 0)" js_checkFont ::+        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 (self) (toJSString font) (toJSString text))+ +foreign import javascript unsafe "$1[\"loadFont\"]($2)" js_loadFont+        :: FontLoader -> Nullable 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 (self) (maybeToNullable (fmap toDictionary params)))+ +foreign import javascript unsafe "$1[\"notifyWhenFontsReady\"]($2)"+        js_notifyWhenFontsReady ::+        FontLoader -> Nullable 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 (self) (maybeToNullable 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 :: 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 (self))
+ src/GHCJS/DOM/JSFFI/Generated/FormData.hs view
@@ -0,0 +1,39 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "new window[\"FormData\"]($1)"+        js_newFormData :: Nullable HTMLFormElement -> IO 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 (maybeToNullable form))+ +foreign import javascript unsafe "$1[\"append\"]($2, $3, $4)"+        js_append :: 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 (self) (toJSString name) (toJSString value)+         (toJSString filename))
+ src/GHCJS/DOM/JSFFI/Generated/GainNode.hs view
@@ -0,0 +1,25 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"gain\"]" js_getGain ::+        GainNode -> IO (Nullable 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 (nullableToMaybe <$> (js_getGain (self)))
+ src/GHCJS/DOM/JSFFI/Generated/Gamepad.hs view
@@ -0,0 +1,72 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"id\"]" js_getId ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"index\"]" js_getIndex ::+        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 (self))+ +foreign import javascript unsafe "($1[\"connected\"] ? 1 : 0)"+        js_getConnected :: 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 (self))+ +foreign import javascript unsafe "$1[\"timestamp\"]"+        js_getTimestamp :: 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 (self))+ +foreign import javascript unsafe "$1[\"mapping\"]" js_getMapping ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"axes\"]" js_getAxes ::+        Gamepad -> IO JSVal++-- | <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 (self)) >>= fromJSValUnchecked)+ +foreign import javascript unsafe "$1[\"buttons\"]" js_getButtons ::+        Gamepad -> IO JSVal++-- | <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 (self)) >>= fromJSValUnchecked)
+ 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "($1[\"pressed\"] ? 1 : 0)"+        js_getPressed :: 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 (self))+ +foreign import javascript unsafe "$1[\"value\"]" js_getValue ::+        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 (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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"gamepad\"]" js_getGamepad ::+        GamepadEvent -> IO (Nullable 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 (nullableToMaybe <$> (js_getGamepad (self)))
+ src/GHCJS/DOM/JSFFI/Generated/Geolocation.hs view
@@ -0,0 +1,64 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe+        "$1[\"getCurrentPosition\"]($2, $3,\n$4)" js_getCurrentPosition ::+        Geolocation ->+          Nullable PositionCallback ->+            Nullable PositionErrorCallback -> Nullable 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 (self) (maybeToNullable successCallback)+         (maybeToNullable errorCallback)+         (maybeToNullable (fmap toPositionOptions options)))+ +foreign import javascript unsafe+        "$1[\"watchPosition\"]($2, $3, $4)" js_watchPosition ::+        Geolocation ->+          Nullable PositionCallback ->+            Nullable PositionErrorCallback ->+              Nullable 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 (self) (maybeToNullable successCallback)+         (maybeToNullable errorCallback)+         (maybeToNullable (fmap toPositionOptions options)))+ +foreign import javascript unsafe "$1[\"clearWatch\"]($2)"+        js_clearWatch :: 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 (self) watchID)
+ src/GHCJS/DOM/JSFFI/Generated/Geoposition.hs view
@@ -0,0 +1,33 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"coords\"]" js_getCoords ::+        Geoposition -> IO (Nullable 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 (nullableToMaybe <$> (js_getCoords (self)))+ +foreign import javascript unsafe "$1[\"timestamp\"]"+        js_getTimestamp :: 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 (self))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLAllCollection.hs view
@@ -0,0 +1,56 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"item\"]($2)" js_item ::+        HTMLAllCollection -> Word -> IO (Nullable 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 (nullableToMaybe <$> (js_item (self) index))+ +foreign import javascript unsafe "$1[\"namedItem\"]($2)"+        js_namedItem :: HTMLAllCollection -> JSString -> IO (Nullable 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+      (nullableToMaybe <$> (js_namedItem (self) (toJSString name)))+ +foreign import javascript unsafe "$1[\"tags\"]($2)" js_tags ::+        HTMLAllCollection -> JSString -> IO (Nullable 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 (nullableToMaybe <$> (js_tags (self) (toJSString name)))+ +foreign import javascript unsafe "$1[\"length\"]" js_getLength ::+        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 (self))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLAnchorElement.hs view
@@ -0,0 +1,409 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"toString\"]()" js_toString+        :: 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 (self)))+ +foreign import javascript unsafe "$1[\"charset\"] = $2;"+        js_setCharset :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"charset\"]" js_getCharset ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"coords\"] = $2;"+        js_setCoords :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"coords\"]" js_getCoords ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"download\"] = $2;"+        js_setDownload :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"download\"]" js_getDownload+        :: 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 (self)))+ +foreign import javascript unsafe "$1[\"href\"] = $2;" js_setHref ::+        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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"href\"]" js_getHref ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"hreflang\"] = $2;"+        js_setHreflang :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"hreflang\"]" js_getHreflang+        :: 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 (self)))+ +foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName ::+        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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"name\"]" js_getName ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"ping\"] = $2;" js_setPing ::+        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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"ping\"]" js_getPing ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"rel\"] = $2;" js_setRel ::+        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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"rel\"]" js_getRel ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"rev\"] = $2;" js_setRev ::+        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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"rev\"]" js_getRev ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"shape\"] = $2;" js_setShape+        :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"shape\"]" js_getShape ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"target\"] = $2;"+        js_setTarget :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"target\"]" js_getTarget ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"type\"] = $2;" js_setType ::+        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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"type\"]" js_getType ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"hash\"] = $2;" js_setHash ::+        HTMLAnchorElement -> Nullable 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 (self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"hash\"]" js_getHash ::+        HTMLAnchorElement -> IO (Nullable 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 (self)))+ +foreign import javascript unsafe "$1[\"host\"] = $2;" js_setHost ::+        HTMLAnchorElement -> Nullable 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 (self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"host\"]" js_getHost ::+        HTMLAnchorElement -> IO (Nullable 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 (self)))+ +foreign import javascript unsafe "$1[\"hostname\"] = $2;"+        js_setHostname :: HTMLAnchorElement -> Nullable 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 (self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"hostname\"]" js_getHostname+        :: HTMLAnchorElement -> IO (Nullable 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 (self)))+ +foreign import javascript unsafe "$1[\"pathname\"] = $2;"+        js_setPathname :: HTMLAnchorElement -> Nullable 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 (self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"pathname\"]" js_getPathname+        :: HTMLAnchorElement -> IO (Nullable 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 (self)))+ +foreign import javascript unsafe "$1[\"port\"] = $2;" js_setPort ::+        HTMLAnchorElement -> Nullable 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 (self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"port\"]" js_getPort ::+        HTMLAnchorElement -> IO (Nullable 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 (self)))+ +foreign import javascript unsafe "$1[\"protocol\"] = $2;"+        js_setProtocol :: HTMLAnchorElement -> Nullable 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 (self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"protocol\"]" js_getProtocol+        :: HTMLAnchorElement -> IO (Nullable 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 (self)))+ +foreign import javascript unsafe "$1[\"search\"] = $2;"+        js_setSearch :: HTMLAnchorElement -> Nullable 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 (self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"search\"]" js_getSearch ::+        HTMLAnchorElement -> IO (Nullable 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 (self)))+ +foreign import javascript unsafe "$1[\"origin\"]" js_getOrigin ::+        HTMLAnchorElement -> IO (Nullable 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 (self)))+ +foreign import javascript unsafe "$1[\"text\"] = $2;" js_setText ::+        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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"text\"]" js_getText ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"relList\"]" js_getRelList ::+        HTMLAnchorElement -> IO (Nullable 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 (nullableToMaybe <$> (js_getRelList (self)))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLAppletElement.hs view
@@ -0,0 +1,206 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign+        :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"align\"]" js_getAlign ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"alt\"] = $2;" js_setAlt ::+        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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"alt\"]" js_getAlt ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"archive\"] = $2;"+        js_setArchive :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"archive\"]" js_getArchive ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"code\"] = $2;" js_setCode ::+        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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"code\"]" js_getCode ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"codeBase\"] = $2;"+        js_setCodeBase :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"codeBase\"]" js_getCodeBase+        :: 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 (self)))+ +foreign import javascript unsafe "$1[\"height\"] = $2;"+        js_setHeight :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"height\"]" js_getHeight ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"hspace\"] = $2;"+        js_setHspace :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"hspace\"]" js_getHspace ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName ::+        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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"name\"]" js_getName ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"object\"] = $2;"+        js_setObject :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"object\"]" js_getObject ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"vspace\"] = $2;"+        js_setVspace :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"vspace\"]" js_getVspace ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"width\"] = $2;" js_setWidth+        :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::+        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 (self)))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLAreaElement.hs view
@@ -0,0 +1,221 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"alt\"] = $2;" js_setAlt ::+        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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"alt\"]" js_getAlt ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"coords\"] = $2;"+        js_setCoords :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"coords\"]" js_getCoords ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"href\"] = $2;" js_setHref ::+        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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"href\"]" js_getHref ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"noHref\"] = $2;"+        js_setNoHref :: 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 (self) val)+ +foreign import javascript unsafe "($1[\"noHref\"] ? 1 : 0)"+        js_getNoHref :: 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 (self))+ +foreign import javascript unsafe "$1[\"ping\"] = $2;" js_setPing ::+        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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"ping\"]" js_getPing ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"rel\"] = $2;" js_setRel ::+        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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"rel\"]" js_getRel ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"shape\"] = $2;" js_setShape+        :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"shape\"]" js_getShape ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"target\"] = $2;"+        js_setTarget :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"target\"]" js_getTarget ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"hash\"]" js_getHash ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"host\"]" js_getHost ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"hostname\"]" js_getHostname+        :: 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 (self)))+ +foreign import javascript unsafe "$1[\"pathname\"]" js_getPathname+        :: 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 (self)))+ +foreign import javascript unsafe "$1[\"port\"]" js_getPort ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"protocol\"]" js_getProtocol+        :: 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 (self)))+ +foreign import javascript unsafe "$1[\"search\"]" js_getSearch ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"relList\"]" js_getRelList ::+        HTMLAreaElement -> IO (Nullable 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 (nullableToMaybe <$> (js_getRelList (self)))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLBRElement.hs view
@@ -0,0 +1,35 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"clear\"] = $2;" js_setClear+        :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"clear\"]" js_getClear ::+        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 (self)))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLBaseElement.hs view
@@ -0,0 +1,53 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"href\"] = $2;" js_setHref ::+        HTMLBaseElement -> Nullable 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 (self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"href\"]" js_getHref ::+        HTMLBaseElement -> IO (Nullable 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 (self)))+ +foreign import javascript unsafe "$1[\"target\"] = $2;"+        js_setTarget :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"target\"]" js_getTarget ::+        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 (self)))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLBaseFontElement.hs view
@@ -0,0 +1,67 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"color\"] = $2;" js_setColor+        :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"color\"]" js_getColor ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"face\"] = $2;" js_setFace ::+        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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"face\"]" js_getFace ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"size\"] = $2;" js_setSize ::+        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 (self) val)+ +foreign import javascript unsafe "$1[\"size\"]" js_getSize ::+        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 (self))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLBodyElement.hs view
@@ -0,0 +1,181 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"aLink\"] = $2;" js_setALink+        :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"aLink\"]" js_getALink ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"background\"] = $2;"+        js_setBackground :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"background\"]"+        js_getBackground :: 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 (self)))+ +foreign import javascript unsafe "$1[\"bgColor\"] = $2;"+        js_setBgColor :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"bgColor\"]" js_getBgColor ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"link\"] = $2;" js_setLink ::+        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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"link\"]" js_getLink ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"text\"] = $2;" js_setText ::+        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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"text\"]" js_getText ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"vLink\"] = $2;" js_setVLink+        :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"vLink\"]" js_getVLink ::+        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 (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,262 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe+        "($1[\"checkValidity\"]() ? 1 : 0)" js_checkValidity ::+        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 (self))+ +foreign import javascript unsafe "$1[\"setCustomValidity\"]($2)"+        js_setCustomValidity ::+        HTMLButtonElement -> Nullable 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 (self) (toMaybeJSString error))+ +foreign import javascript unsafe "$1[\"autofocus\"] = $2;"+        js_setAutofocus :: 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 (self) val)+ +foreign import javascript unsafe "($1[\"autofocus\"] ? 1 : 0)"+        js_getAutofocus :: 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 (self))+ +foreign import javascript unsafe "$1[\"disabled\"] = $2;"+        js_setDisabled :: 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 (self) val)+ +foreign import javascript unsafe "($1[\"disabled\"] ? 1 : 0)"+        js_getDisabled :: 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 (self))+ +foreign import javascript unsafe "$1[\"form\"]" js_getForm ::+        HTMLButtonElement -> IO (Nullable 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 (nullableToMaybe <$> (js_getForm (self)))+ +foreign import javascript unsafe "$1[\"formAction\"] = $2;"+        js_setFormAction :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"formAction\"]"+        js_getFormAction :: 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 (self)))+ +foreign import javascript unsafe "$1[\"formEnctype\"] = $2;"+        js_setFormEnctype ::+        HTMLButtonElement -> Nullable 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 (self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"formEnctype\"]"+        js_getFormEnctype :: HTMLButtonElement -> IO (Nullable 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 (self)))+ +foreign import javascript unsafe "$1[\"formMethod\"] = $2;"+        js_setFormMethod :: HTMLButtonElement -> Nullable 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 (self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"formMethod\"]"+        js_getFormMethod :: HTMLButtonElement -> IO (Nullable 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 (self)))+ +foreign import javascript unsafe "$1[\"formNoValidate\"] = $2;"+        js_setFormNoValidate :: 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 (self) val)+ +foreign import javascript unsafe "($1[\"formNoValidate\"] ? 1 : 0)"+        js_getFormNoValidate :: 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 (self))+ +foreign import javascript unsafe "$1[\"formTarget\"] = $2;"+        js_setFormTarget :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"formTarget\"]"+        js_getFormTarget :: 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 (self)))+ +foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName ::+        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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"name\"]" js_getName ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"type\"] = $2;" js_setType ::+        HTMLButtonElement -> Nullable 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 (self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"type\"]" js_getType ::+        HTMLButtonElement -> IO (Nullable 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 (self)))+ +foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue+        :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"value\"]" js_getValue ::+        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 (self)))+ +foreign import javascript unsafe "($1[\"willValidate\"] ? 1 : 0)"+        js_getWillValidate :: 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 (self))+ +foreign import javascript unsafe "$1[\"validity\"]" js_getValidity+        :: HTMLButtonElement -> IO (Nullable 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 (nullableToMaybe <$> (js_getValidity (self)))+ +foreign import javascript unsafe "$1[\"validationMessage\"]"+        js_getValidationMessage :: 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 (self)))+ +foreign import javascript unsafe "$1[\"labels\"]" js_getLabels ::+        HTMLButtonElement -> IO (Nullable 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 (nullableToMaybe <$> (js_getLabels (self)))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLCanvasElement.hs view
@@ -0,0 +1,83 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"toDataURL\"]($2)"+        js_toDataURL ::+        HTMLCanvasElement -> Nullable 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 (self) (toMaybeJSString type')))+ +foreign import javascript unsafe "$1[\"getContext\"]($2)"+        js_getContext :: HTMLCanvasElement -> JSString -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLCanvasElement.getContext Mozilla HTMLCanvasElement.getContext documentation> +getContext ::+           (MonadIO m, ToJSString contextId) =>+             HTMLCanvasElement -> contextId -> m JSVal+getContext self contextId+  = liftIO (js_getContext (self) (toJSString contextId))+ +foreign import javascript unsafe+        "$1[\"probablySupportsContext\"]($2)" js_probablySupportsContext ::+        HTMLCanvasElement -> JSString -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLCanvasElement.probablySupportsContext Mozilla HTMLCanvasElement.probablySupportsContext documentation> +probablySupportsContext ::+                        (MonadIO m, ToJSString contextId) =>+                          HTMLCanvasElement -> contextId -> m JSVal+probablySupportsContext self contextId+  = liftIO (js_probablySupportsContext (self) (toJSString contextId))+ +foreign import javascript unsafe "$1[\"width\"] = $2;" js_setWidth+        :: 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 (self) val)+ +foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::+        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 (self))+ +foreign import javascript unsafe "$1[\"height\"] = $2;"+        js_setHeight :: 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 (self) val)+ +foreign import javascript unsafe "$1[\"height\"]" js_getHeight ::+        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 (self))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLCollection.hs view
@@ -0,0 +1,50 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"item\"]($2)" js_item ::+        HTMLCollection -> Word -> IO (Nullable 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+      (nullableToMaybe <$> (js_item (toHTMLCollection self) index))+ +foreign import javascript unsafe "$1[\"namedItem\"]($2)"+        js_namedItem :: HTMLCollection -> JSString -> IO (Nullable 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+      (nullableToMaybe <$>+         (js_namedItem (toHTMLCollection self) (toJSString name)))+ +foreign import javascript unsafe "$1[\"length\"]" js_getLength ::+        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 (toHTMLCollection self))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLDListElement.hs view
@@ -0,0 +1,33 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"compact\"] = $2;"+        js_setCompact :: 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 (self) val)+ +foreign import javascript unsafe "($1[\"compact\"] ? 1 : 0)"+        js_getCompact :: 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 (self))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLDataListElement.hs view
@@ -0,0 +1,28 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"options\"]" js_getOptions ::+        HTMLDataListElement -> IO (Nullable 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 (nullableToMaybe <$> (js_getOptions (self)))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLDetailsElement.hs view
@@ -0,0 +1,33 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"open\"] = $2;" js_setOpen ::+        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 (self) val)+ +foreign import javascript unsafe "($1[\"open\"] ? 1 : 0)"+        js_getOpen :: 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 (self))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLDirectoryElement.hs view
@@ -0,0 +1,34 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"compact\"] = $2;"+        js_setCompact :: 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 (self) val)+ +foreign import javascript unsafe "($1[\"compact\"] ? 1 : 0)"+        js_getCompact :: 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 (self))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLDivElement.hs view
@@ -0,0 +1,35 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign+        :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"align\"]" js_getAlign ::+        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 (self)))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLDocument.hs view
@@ -0,0 +1,269 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"open\"]()" js_open ::+        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 (self))+ +foreign import javascript unsafe "$1[\"close\"]()" js_close ::+        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 (self))+ +foreign import javascript unsafe "$1[\"write\"]($2)" js_write ::+        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 (self) (toJSString text))+ +foreign import javascript unsafe "$1[\"writeln\"]($2)" js_writeln+        :: 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 (self) (toJSString text))+ +foreign import javascript unsafe "$1[\"clear\"]()" js_clear ::+        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 (self))+ +foreign import javascript unsafe "$1[\"captureEvents\"]()"+        js_captureEvents :: 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 (self))+ +foreign import javascript unsafe "$1[\"releaseEvents\"]()"+        js_releaseEvents :: 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 (self))+ +foreign import javascript unsafe "$1[\"embeds\"]" js_getEmbeds ::+        HTMLDocument -> IO (Nullable 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 (nullableToMaybe <$> (js_getEmbeds (self)))+ +foreign import javascript unsafe "$1[\"plugins\"]" js_getPlugins ::+        HTMLDocument -> IO (Nullable 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 (nullableToMaybe <$> (js_getPlugins (self)))+ +foreign import javascript unsafe "$1[\"scripts\"]" js_getScripts ::+        HTMLDocument -> IO (Nullable 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 (nullableToMaybe <$> (js_getScripts (self)))+ +foreign import javascript unsafe "$1[\"all\"]" js_getAll ::+        HTMLDocument -> IO (Nullable 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 (nullableToMaybe <$> (js_getAll (self)))+ +foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::+        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 (self))+ +foreign import javascript unsafe "$1[\"height\"]" js_getHeight ::+        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 (self))+ +foreign import javascript unsafe "$1[\"dir\"] = $2;" js_setDir ::+        HTMLDocument -> Nullable 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 (self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"dir\"]" js_getDir ::+        HTMLDocument -> IO (Nullable 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 (self)))+ +foreign import javascript unsafe "$1[\"designMode\"] = $2;"+        js_setDesignMode :: HTMLDocument -> Nullable 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 (self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"designMode\"]"+        js_getDesignMode :: HTMLDocument -> IO (Nullable 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 (self)))+ +foreign import javascript unsafe "$1[\"compatMode\"]"+        js_getCompatMode :: 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 (self)))+ +foreign import javascript unsafe "$1[\"bgColor\"] = $2;"+        js_setBgColor :: HTMLDocument -> Nullable 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 (self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"bgColor\"]" js_getBgColor ::+        HTMLDocument -> IO (Nullable 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 (self)))+ +foreign import javascript unsafe "$1[\"fgColor\"] = $2;"+        js_setFgColor :: HTMLDocument -> Nullable 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 (self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"fgColor\"]" js_getFgColor ::+        HTMLDocument -> IO (Nullable 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 (self)))+ +foreign import javascript unsafe "$1[\"alinkColor\"] = $2;"+        js_setAlinkColor :: HTMLDocument -> Nullable 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 (self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"alinkColor\"]"+        js_getAlinkColor :: HTMLDocument -> IO (Nullable 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 (self)))+ +foreign import javascript unsafe "$1[\"linkColor\"] = $2;"+        js_setLinkColor :: HTMLDocument -> Nullable 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 (self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"linkColor\"]"+        js_getLinkColor :: HTMLDocument -> IO (Nullable 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 (self)))+ +foreign import javascript unsafe "$1[\"vlinkColor\"] = $2;"+        js_setVlinkColor :: HTMLDocument -> Nullable 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 (self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"vlinkColor\"]"+        js_getVlinkColor :: HTMLDocument -> IO (Nullable 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 (self)))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLElement.hs view
@@ -0,0 +1,355 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe+        "$1[\"insertAdjacentElement\"]($2,\n$3)" js_insertAdjacentElement+        ::+        HTMLElement ->+          JSString -> Nullable Element -> IO (Nullable 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+      (nullableToMaybe <$>+         (js_insertAdjacentElement (toHTMLElement self) (toJSString where')+            (maybeToNullable (fmap toElement element))))+ +foreign import javascript unsafe+        "$1[\"insertAdjacentHTML\"]($2, $3)" js_insertAdjacentHTML ::+        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 (toHTMLElement self) (toJSString where')+         (toJSString html))+ +foreign import javascript unsafe+        "$1[\"insertAdjacentText\"]($2, $3)" js_insertAdjacentText ::+        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 (toHTMLElement self) (toJSString where')+         (toJSString text))+ +foreign import javascript unsafe "$1[\"click\"]()" js_click ::+        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 (toHTMLElement self))+ +foreign import javascript unsafe "$1[\"title\"] = $2;" js_setTitle+        :: 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 (toHTMLElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"title\"]" js_getTitle ::+        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 (toHTMLElement self)))+ +foreign import javascript unsafe "$1[\"lang\"] = $2;" js_setLang ::+        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 (toHTMLElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"lang\"]" js_getLang ::+        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 (toHTMLElement self)))+ +foreign import javascript unsafe "$1[\"translate\"] = $2;"+        js_setTranslate :: 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 (toHTMLElement self) val)+ +foreign import javascript unsafe "($1[\"translate\"] ? 1 : 0)"+        js_getTranslate :: 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 (toHTMLElement self))+ +foreign import javascript unsafe "$1[\"dir\"] = $2;" js_setDir ::+        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 (toHTMLElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"dir\"]" js_getDir ::+        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 (toHTMLElement self)))+ +foreign import javascript unsafe "$1[\"tabIndex\"] = $2;"+        js_setTabIndex :: 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 (toHTMLElement self) val)+ +foreign import javascript unsafe "$1[\"tabIndex\"]" js_getTabIndex+        :: 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 (toHTMLElement self))+ +foreign import javascript unsafe "$1[\"draggable\"] = $2;"+        js_setDraggable :: 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 (toHTMLElement self) val)+ +foreign import javascript unsafe "($1[\"draggable\"] ? 1 : 0)"+        js_getDraggable :: 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 (toHTMLElement self))+ +foreign import javascript unsafe "$1[\"webkitdropzone\"] = $2;"+        js_setWebkitdropzone :: 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 (toHTMLElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"webkitdropzone\"]"+        js_getWebkitdropzone :: 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 (toHTMLElement self)))+ +foreign import javascript unsafe "$1[\"hidden\"] = $2;"+        js_setHidden :: 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 (toHTMLElement self) val)+ +foreign import javascript unsafe "($1[\"hidden\"] ? 1 : 0)"+        js_getHidden :: 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 (toHTMLElement self))+ +foreign import javascript unsafe "$1[\"accessKey\"] = $2;"+        js_setAccessKey :: 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 (toHTMLElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"accessKey\"]"+        js_getAccessKey :: 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 (toHTMLElement self)))+ +foreign import javascript unsafe "$1[\"innerText\"] = $2;"+        js_setInnerText :: HTMLElement -> Nullable 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 (toHTMLElement self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"innerText\"]"+        js_getInnerText :: HTMLElement -> IO (Nullable 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 (toHTMLElement self)))+ +foreign import javascript unsafe "$1[\"outerText\"] = $2;"+        js_setOuterText :: HTMLElement -> Nullable 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 (toHTMLElement self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"outerText\"]"+        js_getOuterText :: HTMLElement -> IO (Nullable 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 (toHTMLElement self)))+ +foreign import javascript unsafe "$1[\"children\"]" js_getChildren+        :: HTMLElement -> IO (Nullable 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+      (nullableToMaybe <$> (js_getChildren (toHTMLElement self)))+ +foreign import javascript unsafe "$1[\"contentEditable\"] = $2;"+        js_setContentEditable :: HTMLElement -> Nullable 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 (toHTMLElement self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"contentEditable\"]"+        js_getContentEditable :: HTMLElement -> IO (Nullable 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 (toHTMLElement self)))+ +foreign import javascript unsafe+        "($1[\"isContentEditable\"] ? 1 : 0)" js_getIsContentEditable ::+        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 (toHTMLElement self))+ +foreign import javascript unsafe "$1[\"spellcheck\"] = $2;"+        js_setSpellcheck :: 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 (toHTMLElement self) val)+ +foreign import javascript unsafe "($1[\"spellcheck\"] ? 1 : 0)"+        js_getSpellcheck :: 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 (toHTMLElement self))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLEmbedElement.hs view
@@ -0,0 +1,128 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"getSVGDocument\"]()"+        js_getSVGDocument :: HTMLEmbedElement -> IO (Nullable 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 (nullableToMaybe <$> (js_getSVGDocument (self)))+ +foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign+        :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"align\"]" js_getAlign ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"height\"] = $2;"+        js_setHeight :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"height\"]" js_getHeight ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName ::+        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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"name\"]" js_getName ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"src\"] = $2;" js_setSrc ::+        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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"src\"]" js_getSrc ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"type\"] = $2;" js_setType ::+        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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"type\"]" js_getType ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"width\"] = $2;" js_setWidth+        :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::+        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 (self)))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLFieldSetElement.hs view
@@ -0,0 +1,123 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe+        "($1[\"checkValidity\"]() ? 1 : 0)" js_checkValidity ::+        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 (self))+ +foreign import javascript unsafe "$1[\"setCustomValidity\"]($2)"+        js_setCustomValidity ::+        HTMLFieldSetElement -> Nullable 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 (self) (toMaybeJSString error))+ +foreign import javascript unsafe "$1[\"disabled\"] = $2;"+        js_setDisabled :: 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 (self) val)+ +foreign import javascript unsafe "($1[\"disabled\"] ? 1 : 0)"+        js_getDisabled :: 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 (self))+ +foreign import javascript unsafe "$1[\"form\"]" js_getForm ::+        HTMLFieldSetElement -> IO (Nullable 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 (nullableToMaybe <$> (js_getForm (self)))+ +foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName ::+        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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"name\"]" js_getName ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"type\"]" js_getType ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"elements\"]" js_getElements+        :: HTMLFieldSetElement -> IO (Nullable 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 (nullableToMaybe <$> (js_getElements (self)))+ +foreign import javascript unsafe "($1[\"willValidate\"] ? 1 : 0)"+        js_getWillValidate :: 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 (self))+ +foreign import javascript unsafe "$1[\"validity\"]" js_getValidity+        :: HTMLFieldSetElement -> IO (Nullable 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 (nullableToMaybe <$> (js_getValidity (self)))+ +foreign import javascript unsafe "$1[\"validationMessage\"]"+        js_getValidationMessage :: 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 (self)))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLFontElement.hs view
@@ -0,0 +1,68 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"color\"] = $2;" js_setColor+        :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"color\"]" js_getColor ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"face\"] = $2;" js_setFace ::+        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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"face\"]" js_getFace ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"size\"] = $2;" js_setSize ::+        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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"size\"]" js_getSize ::+        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 (self)))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLFormControlsCollection.hs view
@@ -0,0 +1,41 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"_get\"]($2)" js__get ::+        HTMLFormControlsCollection -> Word -> IO (Nullable 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 (nullableToMaybe <$> (js__get (self) index))+ +foreign import javascript unsafe "$1[\"namedItem\"]($2)"+        js_namedItem ::+        HTMLFormControlsCollection -> JSString -> IO (Nullable 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+      (nullableToMaybe <$> (js_namedItem (self) (toJSString name)))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLFormElement.hs view
@@ -0,0 +1,284 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"_get\"]($2)" js__get ::+        HTMLFormElement -> Word -> IO (Nullable 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 (nullableToMaybe <$> (js__get (self) index))+ +foreign import javascript unsafe "$1[\"submit\"]()" js_submit ::+        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 (self))+ +foreign import javascript unsafe "$1[\"reset\"]()" js_reset ::+        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 (self))+ +foreign import javascript unsafe+        "($1[\"checkValidity\"]() ? 1 : 0)" js_checkValidity ::+        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 (self))+ +foreign import javascript unsafe "$1[\"requestAutocomplete\"]()"+        js_requestAutocomplete :: 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 (self))+ +foreign import javascript unsafe "$1[\"acceptCharset\"] = $2;"+        js_setAcceptCharset :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"acceptCharset\"]"+        js_getAcceptCharset :: 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 (self)))+ +foreign import javascript unsafe "$1[\"action\"] = $2;"+        js_setAction :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"action\"]" js_getAction ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"autocomplete\"] = $2;"+        js_setAutocomplete :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"autocomplete\"]"+        js_getAutocomplete :: 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 (self)))+ +foreign import javascript unsafe "$1[\"enctype\"] = $2;"+        js_setEnctype :: HTMLFormElement -> Nullable 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 (self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"enctype\"]" js_getEnctype ::+        HTMLFormElement -> IO (Nullable 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 (self)))+ +foreign import javascript unsafe "$1[\"encoding\"] = $2;"+        js_setEncoding :: HTMLFormElement -> Nullable 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 (self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"encoding\"]" js_getEncoding+        :: HTMLFormElement -> IO (Nullable 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 (self)))+ +foreign import javascript unsafe "$1[\"method\"] = $2;"+        js_setMethod :: HTMLFormElement -> Nullable 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 (self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"method\"]" js_getMethod ::+        HTMLFormElement -> IO (Nullable 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 (self)))+ +foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName ::+        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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"name\"]" js_getName ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"noValidate\"] = $2;"+        js_setNoValidate :: 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 (self) val)+ +foreign import javascript unsafe "($1[\"noValidate\"] ? 1 : 0)"+        js_getNoValidate :: 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 (self))+ +foreign import javascript unsafe "$1[\"target\"] = $2;"+        js_setTarget :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"target\"]" js_getTarget ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"elements\"]" js_getElements+        :: HTMLFormElement -> IO (Nullable 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 (nullableToMaybe <$> (js_getElements (self)))+ +foreign import javascript unsafe "$1[\"length\"]" js_getLength ::+        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 (self))+ +foreign import javascript unsafe "$1[\"autocorrect\"] = $2;"+        js_setAutocorrect :: 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 (self) val)+ +foreign import javascript unsafe "($1[\"autocorrect\"] ? 1 : 0)"+        js_getAutocorrect :: 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 (self))+ +foreign import javascript unsafe "$1[\"autocapitalize\"] = $2;"+        js_setAutocapitalize ::+        HTMLFormElement -> Nullable 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 (self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"autocapitalize\"]"+        js_getAutocapitalize :: HTMLFormElement -> IO (Nullable 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 (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,227 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"getSVGDocument\"]()"+        js_getSVGDocument :: HTMLFrameElement -> IO (Nullable 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 (nullableToMaybe <$> (js_getSVGDocument (self)))+ +foreign import javascript unsafe "$1[\"frameBorder\"] = $2;"+        js_setFrameBorder :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"frameBorder\"]"+        js_getFrameBorder :: 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 (self)))+ +foreign import javascript unsafe "$1[\"longDesc\"] = $2;"+        js_setLongDesc :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"longDesc\"]" js_getLongDesc+        :: 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 (self)))+ +foreign import javascript unsafe "$1[\"marginHeight\"] = $2;"+        js_setMarginHeight :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"marginHeight\"]"+        js_getMarginHeight :: 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 (self)))+ +foreign import javascript unsafe "$1[\"marginWidth\"] = $2;"+        js_setMarginWidth :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"marginWidth\"]"+        js_getMarginWidth :: 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 (self)))+ +foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName ::+        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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"name\"]" js_getName ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"noResize\"] = $2;"+        js_setNoResize :: 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 (self) val)+ +foreign import javascript unsafe "($1[\"noResize\"] ? 1 : 0)"+        js_getNoResize :: 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 (self))+ +foreign import javascript unsafe "$1[\"scrolling\"] = $2;"+        js_setScrolling :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"scrolling\"]"+        js_getScrolling :: 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 (self)))+ +foreign import javascript unsafe "$1[\"src\"] = $2;" js_setSrc ::+        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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"src\"]" js_getSrc ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"contentDocument\"]"+        js_getContentDocument :: HTMLFrameElement -> IO (Nullable 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 (nullableToMaybe <$> (js_getContentDocument (self)))+ +foreign import javascript unsafe "$1[\"contentWindow\"]"+        js_getContentWindow :: HTMLFrameElement -> IO (Nullable 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 (nullableToMaybe <$> (js_getContentWindow (self)))+ +foreign import javascript unsafe "$1[\"location\"] = $2;"+        js_setLocation :: HTMLFrameElement -> Nullable 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 (self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"location\"]" js_getLocation+        :: HTMLFrameElement -> IO (Nullable 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 (self)))+ +foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::+        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 (self))+ +foreign import javascript unsafe "$1[\"height\"]" js_getHeight ::+        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 (self))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLFrameSetElement.hs view
@@ -0,0 +1,111 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"cols\"] = $2;" js_setCols ::+        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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"cols\"]" js_getCols ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"rows\"] = $2;" js_setRows ::+        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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"rows\"]" js_getRows ::+        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 (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,83 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign+        :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"align\"]" js_getAlign ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"noShade\"] = $2;"+        js_setNoShade :: 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 (self) val)+ +foreign import javascript unsafe "($1[\"noShade\"] ? 1 : 0)"+        js_getNoShade :: 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 (self))+ +foreign import javascript unsafe "$1[\"size\"] = $2;" js_setSize ::+        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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"size\"]" js_getSize ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"width\"] = $2;" js_setWidth+        :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::+        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 (self)))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLHeadElement.hs view
@@ -0,0 +1,36 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"profile\"] = $2;"+        js_setProfile :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"profile\"]" js_getProfile ::+        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 (self)))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLHeadingElement.hs view
@@ -0,0 +1,35 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign+        :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"align\"]" js_getAlign ::+        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 (self)))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLHtmlElement.hs view
@@ -0,0 +1,55 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"version\"] = $2;"+        js_setVersion :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"version\"]" js_getVersion ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"manifest\"] = $2;"+        js_setManifest :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"manifest\"]" js_getManifest+        :: 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 (self)))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLIFrameElement.hs view
@@ -0,0 +1,263 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"getSVGDocument\"]()"+        js_getSVGDocument :: HTMLIFrameElement -> IO (Nullable 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 (nullableToMaybe <$> (js_getSVGDocument (self)))+ +foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign+        :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"align\"]" js_getAlign ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"frameBorder\"] = $2;"+        js_setFrameBorder :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"frameBorder\"]"+        js_getFrameBorder :: 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 (self)))+ +foreign import javascript unsafe "$1[\"height\"] = $2;"+        js_setHeight :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"height\"]" js_getHeight ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"longDesc\"] = $2;"+        js_setLongDesc :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"longDesc\"]" js_getLongDesc+        :: 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 (self)))+ +foreign import javascript unsafe "$1[\"marginHeight\"] = $2;"+        js_setMarginHeight :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"marginHeight\"]"+        js_getMarginHeight :: 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 (self)))+ +foreign import javascript unsafe "$1[\"marginWidth\"] = $2;"+        js_setMarginWidth :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"marginWidth\"]"+        js_getMarginWidth :: 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 (self)))+ +foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName ::+        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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"name\"]" js_getName ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"sandbox\"] = $2;"+        js_setSandbox :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"sandbox\"]" js_getSandbox ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"scrolling\"] = $2;"+        js_setScrolling :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"scrolling\"]"+        js_getScrolling :: 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 (self)))+ +foreign import javascript unsafe "$1[\"src\"] = $2;" js_setSrc ::+        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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"src\"]" js_getSrc ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"srcdoc\"] = $2;"+        js_setSrcdoc :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"srcdoc\"]" js_getSrcdoc ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"width\"] = $2;" js_setWidth+        :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"contentDocument\"]"+        js_getContentDocument ::+        HTMLIFrameElement -> IO (Nullable 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 (nullableToMaybe <$> (js_getContentDocument (self)))+ +foreign import javascript unsafe "$1[\"contentWindow\"]"+        js_getContentWindow :: HTMLIFrameElement -> IO (Nullable 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 (nullableToMaybe <$> (js_getContentWindow (self)))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLImageElement.hs view
@@ -0,0 +1,328 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName ::+        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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"name\"]" js_getName ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign+        :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"align\"]" js_getAlign ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"alt\"] = $2;" js_setAlt ::+        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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"alt\"]" js_getAlt ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"border\"] = $2;"+        js_setBorder :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"border\"]" js_getBorder ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"crossOrigin\"] = $2;"+        js_setCrossOrigin :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"crossOrigin\"]"+        js_getCrossOrigin :: 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 (self)))+ +foreign import javascript unsafe "$1[\"height\"] = $2;"+        js_setHeight :: 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 (self) val)+ +foreign import javascript unsafe "$1[\"height\"]" js_getHeight ::+        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 (self))+ +foreign import javascript unsafe "$1[\"hspace\"] = $2;"+        js_setHspace :: 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 (self) val)+ +foreign import javascript unsafe "$1[\"hspace\"]" js_getHspace ::+        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 (self))+ +foreign import javascript unsafe "$1[\"isMap\"] = $2;" js_setIsMap+        :: 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 (self) val)+ +foreign import javascript unsafe "($1[\"isMap\"] ? 1 : 0)"+        js_getIsMap :: 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 (self))+ +foreign import javascript unsafe "$1[\"longDesc\"] = $2;"+        js_setLongDesc :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"longDesc\"]" js_getLongDesc+        :: 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 (self)))+ +foreign import javascript unsafe "$1[\"src\"] = $2;" js_setSrc ::+        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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"src\"]" js_getSrc ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"srcset\"] = $2;"+        js_setSrcset :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"srcset\"]" js_getSrcset ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"sizes\"] = $2;" js_setSizes+        :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"sizes\"]" js_getSizes ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"currentSrc\"]"+        js_getCurrentSrc :: 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 (self)))+ +foreign import javascript unsafe "$1[\"useMap\"] = $2;"+        js_setUseMap :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"useMap\"]" js_getUseMap ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"vspace\"] = $2;"+        js_setVspace :: 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 (self) val)+ +foreign import javascript unsafe "$1[\"vspace\"]" js_getVspace ::+        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 (self))+ +foreign import javascript unsafe "$1[\"width\"] = $2;" js_setWidth+        :: 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 (self) val)+ +foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::+        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 (self))+ +foreign import javascript unsafe "($1[\"complete\"] ? 1 : 0)"+        js_getComplete :: 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 (self))+ +foreign import javascript unsafe "$1[\"lowsrc\"] = $2;"+        js_setLowsrc :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"lowsrc\"]" js_getLowsrc ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"naturalHeight\"]"+        js_getNaturalHeight :: 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 (self))+ +foreign import javascript unsafe "$1[\"naturalWidth\"]"+        js_getNaturalWidth :: 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 (self))+ +foreign import javascript unsafe "$1[\"x\"]" js_getX ::+        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 (self))+ +foreign import javascript unsafe "$1[\"y\"]" js_getY ::+        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 (self))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLInputElement.hs view
@@ -0,0 +1,883 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"stepUp\"]($2)" js_stepUp ::+        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 (self) n)+ +foreign import javascript unsafe "$1[\"stepDown\"]($2)" js_stepDown+        :: 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 (self) n)+ +foreign import javascript unsafe+        "($1[\"checkValidity\"]() ? 1 : 0)" js_checkValidity ::+        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 (self))+ +foreign import javascript unsafe "$1[\"setCustomValidity\"]($2)"+        js_setCustomValidity ::+        HTMLInputElement -> Nullable 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 (self) (toMaybeJSString error))+ +foreign import javascript unsafe "$1[\"select\"]()" js_select ::+        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 (self))+ +foreign import javascript unsafe "$1[\"setRangeText\"]($2)"+        js_setRangeText :: 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 (self) (toJSString replacement))+ +foreign import javascript unsafe+        "$1[\"setRangeText\"]($2, $3, $4,\n$5)" js_setRangeText4 ::+        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 (self) (toJSString replacement) start end+         (toJSString selectionMode))+ +foreign import javascript unsafe+        "$1[\"setSelectionRange\"]($2, $3,\n$4)" js_setSelectionRange ::+        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 (self) start end (toJSString direction))+ +foreign import javascript unsafe "$1[\"accept\"] = $2;"+        js_setAccept :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"accept\"]" js_getAccept ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"alt\"] = $2;" js_setAlt ::+        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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"alt\"]" js_getAlt ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"autocomplete\"] = $2;"+        js_setAutocomplete :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"autocomplete\"]"+        js_getAutocomplete :: 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 (self)))+ +foreign import javascript unsafe "$1[\"autofocus\"] = $2;"+        js_setAutofocus :: 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 (self) val)+ +foreign import javascript unsafe "($1[\"autofocus\"] ? 1 : 0)"+        js_getAutofocus :: 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 (self))+ +foreign import javascript unsafe "$1[\"defaultChecked\"] = $2;"+        js_setDefaultChecked :: 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 (self) val)+ +foreign import javascript unsafe "($1[\"defaultChecked\"] ? 1 : 0)"+        js_getDefaultChecked :: 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 (self))+ +foreign import javascript unsafe "$1[\"checked\"] = $2;"+        js_setChecked :: 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 (self) val)+ +foreign import javascript unsafe "($1[\"checked\"] ? 1 : 0)"+        js_getChecked :: 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 (self))+ +foreign import javascript unsafe "$1[\"dirName\"] = $2;"+        js_setDirName :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"dirName\"]" js_getDirName ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"disabled\"] = $2;"+        js_setDisabled :: 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 (self) val)+ +foreign import javascript unsafe "($1[\"disabled\"] ? 1 : 0)"+        js_getDisabled :: 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 (self))+ +foreign import javascript unsafe "$1[\"form\"]" js_getForm ::+        HTMLInputElement -> IO (Nullable 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 (nullableToMaybe <$> (js_getForm (self)))+ +foreign import javascript unsafe "$1[\"files\"] = $2;" js_setFiles+        :: HTMLInputElement -> Nullable 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 (self) (maybeToNullable val))+ +foreign import javascript unsafe "$1[\"files\"]" js_getFiles ::+        HTMLInputElement -> IO (Nullable 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 (nullableToMaybe <$> (js_getFiles (self)))+ +foreign import javascript unsafe "$1[\"formAction\"] = $2;"+        js_setFormAction :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"formAction\"]"+        js_getFormAction :: 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 (self)))+ +foreign import javascript unsafe "$1[\"formEnctype\"] = $2;"+        js_setFormEnctype :: HTMLInputElement -> Nullable 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 (self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"formEnctype\"]"+        js_getFormEnctype :: HTMLInputElement -> IO (Nullable 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 (self)))+ +foreign import javascript unsafe "$1[\"formMethod\"] = $2;"+        js_setFormMethod :: HTMLInputElement -> Nullable 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 (self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"formMethod\"]"+        js_getFormMethod :: HTMLInputElement -> IO (Nullable 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 (self)))+ +foreign import javascript unsafe "$1[\"formNoValidate\"] = $2;"+        js_setFormNoValidate :: 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 (self) val)+ +foreign import javascript unsafe "($1[\"formNoValidate\"] ? 1 : 0)"+        js_getFormNoValidate :: 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 (self))+ +foreign import javascript unsafe "$1[\"formTarget\"] = $2;"+        js_setFormTarget :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"formTarget\"]"+        js_getFormTarget :: 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 (self)))+ +foreign import javascript unsafe "$1[\"height\"] = $2;"+        js_setHeight :: 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 (self) val)+ +foreign import javascript unsafe "$1[\"height\"]" js_getHeight ::+        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 (self))+ +foreign import javascript unsafe "$1[\"indeterminate\"] = $2;"+        js_setIndeterminate :: 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 (self) val)+ +foreign import javascript unsafe "($1[\"indeterminate\"] ? 1 : 0)"+        js_getIndeterminate :: 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 (self))+ +foreign import javascript unsafe "$1[\"list\"]" js_getList ::+        HTMLInputElement -> IO (Nullable 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 (nullableToMaybe <$> (js_getList (self)))+ +foreign import javascript unsafe "$1[\"max\"] = $2;" js_setMax ::+        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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"max\"]" js_getMax ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"maxLength\"] = $2;"+        js_setMaxLength :: 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 (self) val)+ +foreign import javascript unsafe "$1[\"maxLength\"]"+        js_getMaxLength :: 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 (self))+ +foreign import javascript unsafe "$1[\"min\"] = $2;" js_setMin ::+        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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"min\"]" js_getMin ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"multiple\"] = $2;"+        js_setMultiple :: 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 (self) val)+ +foreign import javascript unsafe "($1[\"multiple\"] ? 1 : 0)"+        js_getMultiple :: 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 (self))+ +foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName ::+        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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"name\"]" js_getName ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"pattern\"] = $2;"+        js_setPattern :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"pattern\"]" js_getPattern ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"placeholder\"] = $2;"+        js_setPlaceholder :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"placeholder\"]"+        js_getPlaceholder :: 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 (self)))+ +foreign import javascript unsafe "$1[\"readOnly\"] = $2;"+        js_setReadOnly :: 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 (self) val)+ +foreign import javascript unsafe "($1[\"readOnly\"] ? 1 : 0)"+        js_getReadOnly :: 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 (self))+ +foreign import javascript unsafe "$1[\"required\"] = $2;"+        js_setRequired :: 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 (self) val)+ +foreign import javascript unsafe "($1[\"required\"] ? 1 : 0)"+        js_getRequired :: 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 (self))+ +foreign import javascript unsafe "$1[\"size\"] = $2;" js_setSize ::+        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 (self) val)+ +foreign import javascript unsafe "$1[\"size\"]" js_getSize ::+        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 (self))+ +foreign import javascript unsafe "$1[\"src\"] = $2;" js_setSrc ::+        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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"src\"]" js_getSrc ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"step\"] = $2;" js_setStep ::+        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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"step\"]" js_getStep ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"type\"] = $2;" js_setType ::+        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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"type\"]" js_getType ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"defaultValue\"] = $2;"+        js_setDefaultValue ::+        HTMLInputElement -> Nullable 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 (self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"defaultValue\"]"+        js_getDefaultValue :: HTMLInputElement -> IO (Nullable 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 (self)))+ +foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue+        :: HTMLInputElement -> Nullable 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 (self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"value\"]" js_getValue ::+        HTMLInputElement -> IO (Nullable 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 (self)))+ +foreign import javascript unsafe "$1[\"valueAsDate\"] = $2;"+        js_setValueAsDate :: HTMLInputElement -> Nullable 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 (self) (maybeToNullable (fmap toDate val)))+ +foreign import javascript unsafe "$1[\"valueAsDate\"]"+        js_getValueAsDate :: HTMLInputElement -> IO (Nullable 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 (nullableToMaybe <$> (js_getValueAsDate (self)))+ +foreign import javascript unsafe "$1[\"valueAsNumber\"] = $2;"+        js_setValueAsNumber :: 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 (self) val)+ +foreign import javascript unsafe "$1[\"valueAsNumber\"]"+        js_getValueAsNumber :: 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 (self))+ +foreign import javascript unsafe "$1[\"width\"] = $2;" js_setWidth+        :: 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 (self) val)+ +foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::+        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 (self))+ +foreign import javascript unsafe "($1[\"willValidate\"] ? 1 : 0)"+        js_getWillValidate :: 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 (self))+ +foreign import javascript unsafe "$1[\"validity\"]" js_getValidity+        :: HTMLInputElement -> IO (Nullable 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 (nullableToMaybe <$> (js_getValidity (self)))+ +foreign import javascript unsafe "$1[\"validationMessage\"]"+        js_getValidationMessage :: 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 (self)))+ +foreign import javascript unsafe "$1[\"labels\"]" js_getLabels ::+        HTMLInputElement -> IO (Nullable 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 (nullableToMaybe <$> (js_getLabels (self)))+ +foreign import javascript unsafe "$1[\"selectionStart\"] = $2;"+        js_setSelectionStart :: 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 (self) val)+ +foreign import javascript unsafe "$1[\"selectionStart\"]"+        js_getSelectionStart :: 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 (self))+ +foreign import javascript unsafe "$1[\"selectionEnd\"] = $2;"+        js_setSelectionEnd :: 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 (self) val)+ +foreign import javascript unsafe "$1[\"selectionEnd\"]"+        js_getSelectionEnd :: 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 (self))+ +foreign import javascript unsafe "$1[\"selectionDirection\"] = $2;"+        js_setSelectionDirection :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"selectionDirection\"]"+        js_getSelectionDirection :: 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 (self)))+ +foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign+        :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"align\"]" js_getAlign ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"useMap\"] = $2;"+        js_setUseMap :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"useMap\"]" js_getUseMap ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"incremental\"] = $2;"+        js_setIncremental :: 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 (self) val)+ +foreign import javascript unsafe "($1[\"incremental\"] ? 1 : 0)"+        js_getIncremental :: 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 (self))+ +foreign import javascript unsafe "$1[\"autocorrect\"] = $2;"+        js_setAutocorrect :: 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 (self) val)+ +foreign import javascript unsafe "($1[\"autocorrect\"] ? 1 : 0)"+        js_getAutocorrect :: 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 (self))+ +foreign import javascript unsafe "$1[\"autocapitalize\"] = $2;"+        js_setAutocapitalize ::+        HTMLInputElement -> Nullable 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 (self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"autocapitalize\"]"+        js_getAutocapitalize :: HTMLInputElement -> IO (Nullable 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 (self)))+ +foreign import javascript unsafe "$1[\"capture\"] = $2;"+        js_setCapture :: 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 (self) val)+ +foreign import javascript unsafe "($1[\"capture\"] ? 1 : 0)"+        js_getCapture :: 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 (self))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLKeygenElement.hs view
@@ -0,0 +1,173 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe+        "($1[\"checkValidity\"]() ? 1 : 0)" js_checkValidity ::+        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 (self))+ +foreign import javascript unsafe "$1[\"setCustomValidity\"]($2)"+        js_setCustomValidity ::+        HTMLKeygenElement -> Nullable 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 (self) (toMaybeJSString error))+ +foreign import javascript unsafe "$1[\"autofocus\"] = $2;"+        js_setAutofocus :: 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 (self) val)+ +foreign import javascript unsafe "($1[\"autofocus\"] ? 1 : 0)"+        js_getAutofocus :: 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 (self))+ +foreign import javascript unsafe "$1[\"challenge\"] = $2;"+        js_setChallenge :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"challenge\"]"+        js_getChallenge :: 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 (self)))+ +foreign import javascript unsafe "$1[\"disabled\"] = $2;"+        js_setDisabled :: 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 (self) val)+ +foreign import javascript unsafe "($1[\"disabled\"] ? 1 : 0)"+        js_getDisabled :: 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 (self))+ +foreign import javascript unsafe "$1[\"form\"]" js_getForm ::+        HTMLKeygenElement -> IO (Nullable 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 (nullableToMaybe <$> (js_getForm (self)))+ +foreign import javascript unsafe "$1[\"keytype\"] = $2;"+        js_setKeytype :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"keytype\"]" js_getKeytype ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName ::+        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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"name\"]" js_getName ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"type\"]" js_getType ::+        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 (self)))+ +foreign import javascript unsafe "($1[\"willValidate\"] ? 1 : 0)"+        js_getWillValidate :: 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 (self))+ +foreign import javascript unsafe "$1[\"validity\"]" js_getValidity+        :: HTMLKeygenElement -> IO (Nullable 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 (nullableToMaybe <$> (js_getValidity (self)))+ +foreign import javascript unsafe "$1[\"validationMessage\"]"+        js_getValidationMessage :: 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 (self)))+ +foreign import javascript unsafe "$1[\"labels\"]" js_getLabels ::+        HTMLKeygenElement -> IO (Nullable 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 (nullableToMaybe <$> (js_getLabels (self)))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLLIElement.hs view
@@ -0,0 +1,50 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"type\"] = $2;" js_setType ::+        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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"type\"]" js_getType ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue+        :: 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 (self) val)+ +foreign import javascript unsafe "$1[\"value\"]" js_getValue ::+        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 (self))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLLabelElement.hs view
@@ -0,0 +1,54 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"form\"]" js_getForm ::+        HTMLLabelElement -> IO (Nullable 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 (nullableToMaybe <$> (js_getForm (self)))+ +foreign import javascript unsafe "$1[\"htmlFor\"] = $2;"+        js_setHtmlFor :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"htmlFor\"]" js_getHtmlFor ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"control\"]" js_getControl ::+        HTMLLabelElement -> IO (Nullable 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 (nullableToMaybe <$> (js_getControl (self)))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLLegendElement.hs view
@@ -0,0 +1,43 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"form\"]" js_getForm ::+        HTMLLegendElement -> IO (Nullable 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 (nullableToMaybe <$> (js_getForm (self)))+ +foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign+        :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"align\"]" js_getAlign ::+        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 (self)))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLLinkElement.hs view
@@ -0,0 +1,206 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"disabled\"] = $2;"+        js_setDisabled :: 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 (self) val)+ +foreign import javascript unsafe "($1[\"disabled\"] ? 1 : 0)"+        js_getDisabled :: 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 (self))+ +foreign import javascript unsafe "$1[\"charset\"] = $2;"+        js_setCharset :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"charset\"]" js_getCharset ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"href\"] = $2;" js_setHref ::+        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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"href\"]" js_getHref ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"hreflang\"] = $2;"+        js_setHreflang :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"hreflang\"]" js_getHreflang+        :: 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 (self)))+ +foreign import javascript unsafe "$1[\"media\"] = $2;" js_setMedia+        :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"media\"]" js_getMedia ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"rel\"] = $2;" js_setRel ::+        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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"rel\"]" js_getRel ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"rev\"] = $2;" js_setRev ::+        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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"rev\"]" js_getRev ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"sizes\"] = $2;" js_setSizes+        :: HTMLLinkElement -> Nullable 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 (self) (maybeToNullable val))+ +foreign import javascript unsafe "$1[\"sizes\"]" js_getSizes ::+        HTMLLinkElement -> IO (Nullable 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 (nullableToMaybe <$> (js_getSizes (self)))+ +foreign import javascript unsafe "$1[\"target\"] = $2;"+        js_setTarget :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"target\"]" js_getTarget ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"type\"] = $2;" js_setType ::+        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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"type\"]" js_getType ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"sheet\"]" js_getSheet ::+        HTMLLinkElement -> IO (Nullable 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 (nullableToMaybe <$> (js_getSheet (self)))+ +foreign import javascript unsafe "$1[\"relList\"]" js_getRelList ::+        HTMLLinkElement -> IO (Nullable 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 (nullableToMaybe <$> (js_getRelList (self)))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLMapElement.hs view
@@ -0,0 +1,43 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"areas\"]" js_getAreas ::+        HTMLMapElement -> IO (Nullable 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 (nullableToMaybe <$> (js_getAreas (self)))+ +foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName ::+        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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"name\"]" js_getName ::+        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 (self)))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLMarqueeElement.hs view
@@ -0,0 +1,213 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"start\"]()" js_start ::+        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 (self))+ +foreign import javascript unsafe "$1[\"stop\"]()" js_stop ::+        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 (self))+ +foreign import javascript unsafe "$1[\"behavior\"] = $2;"+        js_setBehavior :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"behavior\"]" js_getBehavior+        :: 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 (self)))+ +foreign import javascript unsafe "$1[\"bgColor\"] = $2;"+        js_setBgColor :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"bgColor\"]" js_getBgColor ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"direction\"] = $2;"+        js_setDirection :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"direction\"]"+        js_getDirection :: 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 (self)))+ +foreign import javascript unsafe "$1[\"height\"] = $2;"+        js_setHeight :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"height\"]" js_getHeight ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"hspace\"] = $2;"+        js_setHspace :: 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 (self) val)+ +foreign import javascript unsafe "$1[\"hspace\"]" js_getHspace ::+        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 (self))+ +foreign import javascript unsafe "$1[\"loop\"] = $2;" js_setLoop ::+        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 (self) val)+ +foreign import javascript unsafe "$1[\"loop\"]" js_getLoop ::+        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 (self))+ +foreign import javascript unsafe "$1[\"scrollAmount\"] = $2;"+        js_setScrollAmount :: 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 (self) val)+ +foreign import javascript unsafe "$1[\"scrollAmount\"]"+        js_getScrollAmount :: 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 (self))+ +foreign import javascript unsafe "$1[\"scrollDelay\"] = $2;"+        js_setScrollDelay :: 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 (self) val)+ +foreign import javascript unsafe "$1[\"scrollDelay\"]"+        js_getScrollDelay :: 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 (self))+ +foreign import javascript unsafe "$1[\"trueSpeed\"] = $2;"+        js_setTrueSpeed :: 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 (self) val)+ +foreign import javascript unsafe "($1[\"trueSpeed\"] ? 1 : 0)"+        js_getTrueSpeed :: 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 (self))+ +foreign import javascript unsafe "$1[\"vspace\"] = $2;"+        js_setVspace :: 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 (self) val)+ +foreign import javascript unsafe "$1[\"vspace\"]" js_getVspace ::+        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 (self))+ +foreign import javascript unsafe "$1[\"width\"] = $2;" js_setWidth+        :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::+        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 (self)))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLMediaElement.hs view
@@ -0,0 +1,858 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"load\"]()" js_load ::+        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 (toHTMLMediaElement self))+ +foreign import javascript unsafe "$1[\"canPlayType\"]($2, $3)"+        js_canPlayType ::+        HTMLMediaElement -> JSString -> Nullable 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 (toHTMLMediaElement self) (toJSString type')+            (toMaybeJSString keySystem)))+ +foreign import javascript unsafe "$1[\"play\"]()" js_play ::+        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 (toHTMLMediaElement self))+ +foreign import javascript unsafe "$1[\"pause\"]()" js_pause ::+        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 (toHTMLMediaElement self))+ +foreign import javascript unsafe "$1[\"fastSeek\"]($2)" js_fastSeek+        :: 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 (toHTMLMediaElement self) time)+ +foreign import javascript unsafe+        "$1[\"webkitGenerateKeyRequest\"]($2,\n$3)"+        js_webkitGenerateKeyRequest ::+        HTMLMediaElement ->+          Nullable JSString -> Nullable 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 (toHTMLMediaElement self)+         (toMaybeJSString keySystem)+         (maybeToNullable (fmap toUint8Array initData)))+ +foreign import javascript unsafe+        "$1[\"webkitAddKey\"]($2, $3, $4,\n$5)" js_webkitAddKey ::+        HTMLMediaElement ->+          Nullable JSString ->+            Nullable Uint8Array -> Nullable 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 (toHTMLMediaElement self)+         (toMaybeJSString keySystem)+         (maybeToNullable (fmap toUint8Array key))+         (maybeToNullable (fmap toUint8Array initData))+         (toJSString sessionId))+ +foreign import javascript unsafe+        "$1[\"webkitCancelKeyRequest\"]($2,\n$3)" js_webkitCancelKeyRequest+        :: HTMLMediaElement -> Nullable 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 (toHTMLMediaElement self)+         (toMaybeJSString keySystem)+         (toJSString sessionId))+ +foreign import javascript unsafe "$1[\"webkitSetMediaKeys\"]($2)"+        js_webkitSetMediaKeys ::+        HTMLMediaElement -> Nullable 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 (toHTMLMediaElement self)+         (maybeToNullable mediaKeys))+ +foreign import javascript unsafe "$1[\"addTextTrack\"]($2, $3, $4)"+        js_addTextTrack ::+        HTMLMediaElement ->+          JSString -> JSString -> JSString -> IO (Nullable 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+      (nullableToMaybe <$>+         (js_addTextTrack (toHTMLMediaElement self) (toJSString kind)+            (toJSString label)+            (toJSString language)))+ +foreign import javascript unsafe+        "$1[\"getVideoPlaybackQuality\"]()" js_getVideoPlaybackQuality ::+        HTMLMediaElement -> IO (Nullable 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+      (nullableToMaybe <$>+         (js_getVideoPlaybackQuality (toHTMLMediaElement self)))+ +foreign import javascript unsafe+        "$1[\"webkitShowPlaybackTargetPicker\"]()"+        js_webkitShowPlaybackTargetPicker :: 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 (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 ::+        HTMLMediaElement -> IO (Nullable 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+      (nullableToMaybe <$> (js_getError (toHTMLMediaElement self)))+ +foreign import javascript unsafe "$1[\"src\"] = $2;" js_setSrc ::+        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 (toHTMLMediaElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"src\"]" js_getSrc ::+        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 (toHTMLMediaElement self)))+ +foreign import javascript unsafe "$1[\"currentSrc\"]"+        js_getCurrentSrc :: 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 (toHTMLMediaElement self)))+ +foreign import javascript unsafe "$1[\"networkState\"]"+        js_getNetworkState :: 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 (toHTMLMediaElement self))+ +foreign import javascript unsafe "$1[\"preload\"] = $2;"+        js_setPreload :: 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 (toHTMLMediaElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"preload\"]" js_getPreload ::+        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 (toHTMLMediaElement self)))+ +foreign import javascript unsafe "$1[\"buffered\"]" js_getBuffered+        :: HTMLMediaElement -> IO (Nullable 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+      (nullableToMaybe <$> (js_getBuffered (toHTMLMediaElement self)))+ +foreign import javascript unsafe "$1[\"readyState\"]"+        js_getReadyState :: 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 (toHTMLMediaElement self))+ +foreign import javascript unsafe "($1[\"seeking\"] ? 1 : 0)"+        js_getSeeking :: 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 (toHTMLMediaElement self))+ +foreign import javascript unsafe "$1[\"currentTime\"] = $2;"+        js_setCurrentTime :: 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 (toHTMLMediaElement self) val)+ +foreign import javascript unsafe "$1[\"currentTime\"]"+        js_getCurrentTime :: 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 (toHTMLMediaElement self))+ +foreign import javascript unsafe "$1[\"duration\"]" js_getDuration+        :: 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 (toHTMLMediaElement self))+ +foreign import javascript unsafe "($1[\"paused\"] ? 1 : 0)"+        js_getPaused :: 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 (toHTMLMediaElement self))+ +foreign import javascript unsafe+        "$1[\"defaultPlaybackRate\"] = $2;" js_setDefaultPlaybackRate ::+        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 (toHTMLMediaElement self) val)+ +foreign import javascript unsafe "$1[\"defaultPlaybackRate\"]"+        js_getDefaultPlaybackRate :: 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 (toHTMLMediaElement self))+ +foreign import javascript unsafe "$1[\"playbackRate\"] = $2;"+        js_setPlaybackRate :: 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 (toHTMLMediaElement self) val)+ +foreign import javascript unsafe "$1[\"playbackRate\"]"+        js_getPlaybackRate :: 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 (toHTMLMediaElement self))+ +foreign import javascript unsafe "$1[\"played\"]" js_getPlayed ::+        HTMLMediaElement -> IO (Nullable 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+      (nullableToMaybe <$> (js_getPlayed (toHTMLMediaElement self)))+ +foreign import javascript unsafe "$1[\"seekable\"]" js_getSeekable+        :: HTMLMediaElement -> IO (Nullable 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+      (nullableToMaybe <$> (js_getSeekable (toHTMLMediaElement self)))+ +foreign import javascript unsafe "($1[\"ended\"] ? 1 : 0)"+        js_getEnded :: 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 (toHTMLMediaElement self))+ +foreign import javascript unsafe "$1[\"autoplay\"] = $2;"+        js_setAutoplay :: 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 (toHTMLMediaElement self) val)+ +foreign import javascript unsafe "($1[\"autoplay\"] ? 1 : 0)"+        js_getAutoplay :: 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 (toHTMLMediaElement self))+ +foreign import javascript unsafe "$1[\"loop\"] = $2;" js_setLoop ::+        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 (toHTMLMediaElement self) val)+ +foreign import javascript unsafe "($1[\"loop\"] ? 1 : 0)"+        js_getLoop :: 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 (toHTMLMediaElement self))+ +foreign import javascript unsafe "$1[\"controls\"] = $2;"+        js_setControls :: 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 (toHTMLMediaElement self) val)+ +foreign import javascript unsafe "($1[\"controls\"] ? 1 : 0)"+        js_getControls :: 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 (toHTMLMediaElement self))+ +foreign import javascript unsafe "$1[\"volume\"] = $2;"+        js_setVolume :: 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 (toHTMLMediaElement self) val)+ +foreign import javascript unsafe "$1[\"volume\"]" js_getVolume ::+        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 (toHTMLMediaElement self))+ +foreign import javascript unsafe "$1[\"muted\"] = $2;" js_setMuted+        :: 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 (toHTMLMediaElement self) val)+ +foreign import javascript unsafe "($1[\"muted\"] ? 1 : 0)"+        js_getMuted :: 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 (toHTMLMediaElement self))+ +foreign import javascript unsafe "$1[\"defaultMuted\"] = $2;"+        js_setDefaultMuted :: 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 (toHTMLMediaElement self) val)+ +foreign import javascript unsafe "($1[\"defaultMuted\"] ? 1 : 0)"+        js_getDefaultMuted :: 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 (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 ::+        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 (toHTMLMediaElement self) val)+ +foreign import javascript unsafe+        "($1[\"webkitPreservesPitch\"] ? 1 : 0)" js_getWebkitPreservesPitch+        :: 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 (toHTMLMediaElement self))+ +foreign import javascript unsafe+        "($1[\"webkitHasClosedCaptions\"] ? 1 : 0)"+        js_getWebkitHasClosedCaptions :: 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 (toHTMLMediaElement self))+ +foreign import javascript unsafe+        "$1[\"webkitClosedCaptionsVisible\"] = $2;"+        js_setWebkitClosedCaptionsVisible ::+        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 (toHTMLMediaElement self) val)+ +foreign import javascript unsafe+        "($1[\"webkitClosedCaptionsVisible\"] ? 1 : 0)"+        js_getWebkitClosedCaptionsVisible :: 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 (toHTMLMediaElement self))+ +foreign import javascript unsafe+        "$1[\"webkitAudioDecodedByteCount\"]"+        js_getWebkitAudioDecodedByteCount :: 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 (toHTMLMediaElement self))+ +foreign import javascript unsafe+        "$1[\"webkitVideoDecodedByteCount\"]"+        js_getWebkitVideoDecodedByteCount :: 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 (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 :: HTMLMediaElement -> IO (Nullable 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+      (nullableToMaybe <$> (js_getWebkitKeys (toHTMLMediaElement self)))+ +foreign import javascript unsafe "$1[\"audioTracks\"]"+        js_getAudioTracks ::+        HTMLMediaElement -> IO (Nullable 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+      (nullableToMaybe <$> (js_getAudioTracks (toHTMLMediaElement self)))+ +foreign import javascript unsafe "$1[\"textTracks\"]"+        js_getTextTracks :: HTMLMediaElement -> IO (Nullable 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+      (nullableToMaybe <$> (js_getTextTracks (toHTMLMediaElement self)))+ +foreign import javascript unsafe "$1[\"videoTracks\"]"+        js_getVideoTracks ::+        HTMLMediaElement -> IO (Nullable 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+      (nullableToMaybe <$> (js_getVideoTracks (toHTMLMediaElement self)))+ +foreign import javascript unsafe "$1[\"mediaGroup\"] = $2;"+        js_setMediaGroup :: HTMLMediaElement -> Nullable 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 (toHTMLMediaElement self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"mediaGroup\"]"+        js_getMediaGroup :: HTMLMediaElement -> IO (Nullable 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 (toHTMLMediaElement self)))+ +foreign import javascript unsafe "$1[\"controller\"] = $2;"+        js_setController ::+        HTMLMediaElement -> Nullable 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 (toHTMLMediaElement self) (maybeToNullable val))+ +foreign import javascript unsafe "$1[\"controller\"]"+        js_getController ::+        HTMLMediaElement -> IO (Nullable 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+      (nullableToMaybe <$> (js_getController (toHTMLMediaElement self)))+ +foreign import javascript unsafe+        "($1[\"webkitCurrentPlaybackTargetIsWireless\"] ? 1 : 0)"+        js_getWebkitCurrentPlaybackTargetIsWireless ::+        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+         (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 ::+        HTMLMediaElement -> Nullable 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 (toHTMLMediaElement self) (maybeToNullable val))+ +foreign import javascript unsafe "$1[\"srcObject\"]"+        js_getSrcObject :: HTMLMediaElement -> IO JSVal++-- | <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 (toHTMLMediaElement self)) >>=+         fromJSValUnchecked)
+ src/GHCJS/DOM/JSFFI/Generated/HTMLMenuElement.hs view
@@ -0,0 +1,33 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"compact\"] = $2;"+        js_setCompact :: 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 (self) val)+ +foreign import javascript unsafe "($1[\"compact\"] ? 1 : 0)"+        js_getCompact :: 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 (self))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLMetaElement.hs view
@@ -0,0 +1,89 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"content\"] = $2;"+        js_setContent :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"content\"]" js_getContent ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"httpEquiv\"] = $2;"+        js_setHttpEquiv :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"httpEquiv\"]"+        js_getHttpEquiv :: 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 (self)))+ +foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName ::+        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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"name\"]" js_getName ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"scheme\"] = $2;"+        js_setScheme :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"scheme\"]" js_getScheme ::+        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 (self)))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLMeterElement.hs view
@@ -0,0 +1,114 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue+        :: 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 (self) val)+ +foreign import javascript unsafe "$1[\"value\"]" js_getValue ::+        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 (self))+ +foreign import javascript unsafe "$1[\"min\"] = $2;" js_setMin ::+        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 (self) val)+ +foreign import javascript unsafe "$1[\"min\"]" js_getMin ::+        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 (self))+ +foreign import javascript unsafe "$1[\"max\"] = $2;" js_setMax ::+        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 (self) val)+ +foreign import javascript unsafe "$1[\"max\"]" js_getMax ::+        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 (self))+ +foreign import javascript unsafe "$1[\"low\"] = $2;" js_setLow ::+        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 (self) val)+ +foreign import javascript unsafe "$1[\"low\"]" js_getLow ::+        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 (self))+ +foreign import javascript unsafe "$1[\"high\"] = $2;" js_setHigh ::+        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 (self) val)+ +foreign import javascript unsafe "$1[\"high\"]" js_getHigh ::+        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 (self))+ +foreign import javascript unsafe "$1[\"optimum\"] = $2;"+        js_setOptimum :: 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 (self) val)+ +foreign import javascript unsafe "$1[\"optimum\"]" js_getOptimum ::+        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 (self))+ +foreign import javascript unsafe "$1[\"labels\"]" js_getLabels ::+        HTMLMeterElement -> IO (Nullable 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 (nullableToMaybe <$> (js_getLabels (self)))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLModElement.hs view
@@ -0,0 +1,54 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"cite\"] = $2;" js_setCite ::+        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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"cite\"]" js_getCite ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"dateTime\"] = $2;"+        js_setDateTime :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"dateTime\"]" js_getDateTime+        :: 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 (self)))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLOListElement.hs view
@@ -0,0 +1,80 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"compact\"] = $2;"+        js_setCompact :: 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 (self) val)+ +foreign import javascript unsafe "($1[\"compact\"] ? 1 : 0)"+        js_getCompact :: 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 (self))+ +foreign import javascript unsafe "$1[\"start\"] = $2;" js_setStart+        :: 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 (self) val)+ +foreign import javascript unsafe "$1[\"start\"]" js_getStart ::+        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 (self))+ +foreign import javascript unsafe "$1[\"reversed\"] = $2;"+        js_setReversed :: 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 (self) val)+ +foreign import javascript unsafe "($1[\"reversed\"] ? 1 : 0)"+        js_getReversed :: 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 (self))+ +foreign import javascript unsafe "$1[\"type\"] = $2;" js_setType ::+        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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"type\"]" js_getType ::+        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 (self)))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLObjectElement.hs view
@@ -0,0 +1,363 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe+        "($1[\"checkValidity\"]() ? 1 : 0)" js_checkValidity ::+        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 (self))+ +foreign import javascript unsafe "$1[\"setCustomValidity\"]($2)"+        js_setCustomValidity ::+        HTMLObjectElement -> Nullable 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 (self) (toMaybeJSString error))+ +foreign import javascript unsafe "$1[\"getSVGDocument\"]()"+        js_getSVGDocument :: HTMLObjectElement -> IO (Nullable 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 (nullableToMaybe <$> (js_getSVGDocument (self)))+ +foreign import javascript unsafe "$1[\"form\"]" js_getForm ::+        HTMLObjectElement -> IO (Nullable 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 (nullableToMaybe <$> (js_getForm (self)))+ +foreign import javascript unsafe "$1[\"code\"] = $2;" js_setCode ::+        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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"code\"]" js_getCode ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign+        :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"align\"]" js_getAlign ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"archive\"] = $2;"+        js_setArchive :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"archive\"]" js_getArchive ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"border\"] = $2;"+        js_setBorder :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"border\"]" js_getBorder ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"codeBase\"] = $2;"+        js_setCodeBase :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"codeBase\"]" js_getCodeBase+        :: 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 (self)))+ +foreign import javascript unsafe "$1[\"codeType\"] = $2;"+        js_setCodeType :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"codeType\"]" js_getCodeType+        :: 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 (self)))+ +foreign import javascript unsafe "$1[\"data\"] = $2;" js_setData ::+        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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"data\"]" js_getData ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"declare\"] = $2;"+        js_setDeclare :: 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 (self) val)+ +foreign import javascript unsafe "($1[\"declare\"] ? 1 : 0)"+        js_getDeclare :: 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 (self))+ +foreign import javascript unsafe "$1[\"height\"] = $2;"+        js_setHeight :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"height\"]" js_getHeight ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"hspace\"] = $2;"+        js_setHspace :: 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 (self) val)+ +foreign import javascript unsafe "$1[\"hspace\"]" js_getHspace ::+        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 (self))+ +foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName ::+        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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"name\"]" js_getName ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"standby\"] = $2;"+        js_setStandby :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"standby\"]" js_getStandby ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"type\"] = $2;" js_setType ::+        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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"type\"]" js_getType ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"useMap\"] = $2;"+        js_setUseMap :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"useMap\"]" js_getUseMap ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"vspace\"] = $2;"+        js_setVspace :: 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 (self) val)+ +foreign import javascript unsafe "$1[\"vspace\"]" js_getVspace ::+        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 (self))+ +foreign import javascript unsafe "$1[\"width\"] = $2;" js_setWidth+        :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::+        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 (self)))+ +foreign import javascript unsafe "($1[\"willValidate\"] ? 1 : 0)"+        js_getWillValidate :: 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 (self))+ +foreign import javascript unsafe "$1[\"validity\"]" js_getValidity+        :: HTMLObjectElement -> IO (Nullable 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 (nullableToMaybe <$> (js_getValidity (self)))+ +foreign import javascript unsafe "$1[\"validationMessage\"]"+        js_getValidationMessage :: 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 (self)))+ +foreign import javascript unsafe "$1[\"contentDocument\"]"+        js_getContentDocument ::+        HTMLObjectElement -> IO (Nullable 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 (nullableToMaybe <$> (js_getContentDocument (self)))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLOptGroupElement.hs view
@@ -0,0 +1,50 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"disabled\"] = $2;"+        js_setDisabled :: 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 (self) val)+ +foreign import javascript unsafe "($1[\"disabled\"] ? 1 : 0)"+        js_getDisabled :: 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 (self))+ +foreign import javascript unsafe "$1[\"label\"] = $2;" js_setLabel+        :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"label\"]" js_getLabel ::+        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 (self)))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLOptionElement.hs view
@@ -0,0 +1,132 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"disabled\"] = $2;"+        js_setDisabled :: 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 (self) val)+ +foreign import javascript unsafe "($1[\"disabled\"] ? 1 : 0)"+        js_getDisabled :: 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 (self))+ +foreign import javascript unsafe "$1[\"form\"]" js_getForm ::+        HTMLOptionElement -> IO (Nullable 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 (nullableToMaybe <$> (js_getForm (self)))+ +foreign import javascript unsafe "$1[\"label\"] = $2;" js_setLabel+        :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"label\"]" js_getLabel ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"defaultSelected\"] = $2;"+        js_setDefaultSelected :: 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 (self) val)+ +foreign import javascript unsafe+        "($1[\"defaultSelected\"] ? 1 : 0)" js_getDefaultSelected ::+        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 (self))+ +foreign import javascript unsafe "$1[\"selected\"] = $2;"+        js_setSelected :: 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 (self) val)+ +foreign import javascript unsafe "($1[\"selected\"] ? 1 : 0)"+        js_getSelected :: 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 (self))+ +foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue+        :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"value\"]" js_getValue ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"text\"] = $2;" js_setText ::+        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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"text\"]" js_getText ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"index\"]" js_getIndex ::+        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 (self))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLOptionsCollection.hs view
@@ -0,0 +1,96 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"namedItem\"]($2)"+        js_namedItem ::+        HTMLOptionsCollection -> JSString -> IO (Nullable 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+      (nullableToMaybe <$> (js_namedItem (self) (toJSString name)))+ +foreign import javascript unsafe "$1[\"add\"]($2, $3)" js_addBefore+        ::+        HTMLOptionsCollection ->+          Nullable HTMLElement -> Nullable 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 (self) (maybeToNullable (fmap toHTMLElement element))+         (maybeToNullable (fmap toHTMLElement before)))+ +foreign import javascript unsafe "$1[\"add\"]($2, $3)" js_add ::+        HTMLOptionsCollection -> Nullable 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 (self) (maybeToNullable (fmap toHTMLElement element))+         index)+ +foreign import javascript unsafe "$1[\"remove\"]($2)" js_remove ::+        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 (self) index)+ +foreign import javascript unsafe "$1[\"selectedIndex\"] = $2;"+        js_setSelectedIndex :: 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 (self) val)+ +foreign import javascript unsafe "$1[\"selectedIndex\"]"+        js_getSelectedIndex :: 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 (self))+ +foreign import javascript unsafe "$1[\"length\"] = $2;"+        js_setLength :: 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 (self) val)+ +foreign import javascript unsafe "$1[\"length\"]" js_getLength ::+        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 (self))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLOutputElement.hs view
@@ -0,0 +1,158 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe+        "($1[\"checkValidity\"]() ? 1 : 0)" js_checkValidity ::+        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 (self))+ +foreign import javascript unsafe "$1[\"setCustomValidity\"]($2)"+        js_setCustomValidity ::+        HTMLOutputElement -> Nullable 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 (self) (toMaybeJSString error))+ +foreign import javascript unsafe "$1[\"htmlFor\"]" js_getHtmlFor ::+        HTMLOutputElement -> IO (Nullable 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 (nullableToMaybe <$> (js_getHtmlFor (self)))+ +foreign import javascript unsafe "$1[\"form\"]" js_getForm ::+        HTMLOutputElement -> IO (Nullable 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 (nullableToMaybe <$> (js_getForm (self)))+ +foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName ::+        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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"name\"]" js_getName ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"type\"]" js_getType ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"defaultValue\"] = $2;"+        js_setDefaultValue ::+        HTMLOutputElement -> Nullable 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 (self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"defaultValue\"]"+        js_getDefaultValue :: HTMLOutputElement -> IO (Nullable 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 (self)))+ +foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue+        :: HTMLOutputElement -> Nullable 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 (self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"value\"]" js_getValue ::+        HTMLOutputElement -> IO (Nullable 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 (self)))+ +foreign import javascript unsafe "($1[\"willValidate\"] ? 1 : 0)"+        js_getWillValidate :: 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 (self))+ +foreign import javascript unsafe "$1[\"validity\"]" js_getValidity+        :: HTMLOutputElement -> IO (Nullable 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 (nullableToMaybe <$> (js_getValidity (self)))+ +foreign import javascript unsafe "$1[\"validationMessage\"]"+        js_getValidationMessage :: 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 (self)))+ +foreign import javascript unsafe "$1[\"labels\"]" js_getLabels ::+        HTMLOutputElement -> IO (Nullable 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 (nullableToMaybe <$> (js_getLabels (self)))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLParagraphElement.hs view
@@ -0,0 +1,37 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign+        :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"align\"]" js_getAlign ::+        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 (self)))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLParamElement.hs view
@@ -0,0 +1,87 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName ::+        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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"name\"]" js_getName ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"type\"] = $2;" js_setType ::+        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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"type\"]" js_getType ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue+        :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"value\"]" js_getValue ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"valueType\"] = $2;"+        js_setValueType :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"valueType\"]"+        js_getValueType :: 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 (self)))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLPreElement.hs view
@@ -0,0 +1,48 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"width\"] = $2;" js_setWidth+        :: 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 (self) val)+ +foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::+        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 (self))+ +foreign import javascript unsafe "$1[\"wrap\"] = $2;" js_setWrap ::+        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 (self) val)+ +foreign import javascript unsafe "($1[\"wrap\"] ? 1 : 0)"+        js_getWrap :: 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 (self))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLProgressElement.hs view
@@ -0,0 +1,64 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue+        :: 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 (self) val)+ +foreign import javascript unsafe "$1[\"value\"]" js_getValue ::+        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 (self))+ +foreign import javascript unsafe "$1[\"max\"] = $2;" js_setMax ::+        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 (self) val)+ +foreign import javascript unsafe "$1[\"max\"]" js_getMax ::+        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 (self))+ +foreign import javascript unsafe "$1[\"position\"]" js_getPosition+        :: 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 (self))+ +foreign import javascript unsafe "$1[\"labels\"]" js_getLabels ::+        HTMLProgressElement -> IO (Nullable 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 (nullableToMaybe <$> (js_getLabels (self)))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLQuoteElement.hs view
@@ -0,0 +1,35 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"cite\"] = $2;" js_setCite ::+        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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"cite\"]" js_getCite ::+        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 (self)))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLScriptElement.hs view
@@ -0,0 +1,188 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"text\"] = $2;" js_setText ::+        HTMLScriptElement -> Nullable 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 (self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"text\"]" js_getText ::+        HTMLScriptElement -> IO (Nullable 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 (self)))+ +foreign import javascript unsafe "$1[\"htmlFor\"] = $2;"+        js_setHtmlFor :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"htmlFor\"]" js_getHtmlFor ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"event\"] = $2;" js_setEvent+        :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"event\"]" js_getEvent ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"charset\"] = $2;"+        js_setCharset :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"charset\"]" js_getCharset ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"async\"] = $2;" js_setAsync+        :: 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 (self) val)+ +foreign import javascript unsafe "($1[\"async\"] ? 1 : 0)"+        js_getAsync :: 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 (self))+ +foreign import javascript unsafe "$1[\"defer\"] = $2;" js_setDefer+        :: 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 (self) val)+ +foreign import javascript unsafe "($1[\"defer\"] ? 1 : 0)"+        js_getDefer :: 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 (self))+ +foreign import javascript unsafe "$1[\"src\"] = $2;" js_setSrc ::+        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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"src\"]" js_getSrc ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"type\"] = $2;" js_setType ::+        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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"type\"]" js_getType ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"crossOrigin\"] = $2;"+        js_setCrossOrigin :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"crossOrigin\"]"+        js_getCrossOrigin :: 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 (self)))+ +foreign import javascript unsafe "$1[\"nonce\"] = $2;" js_setNonce+        :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"nonce\"]" js_getNonce ::+        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 (self)))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLSelectElement.hs view
@@ -0,0 +1,305 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"item\"]($2)" js_item ::+        HTMLSelectElement -> Word -> IO (Nullable 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 (nullableToMaybe <$> (js_item (self) index))+ +foreign import javascript unsafe "$1[\"namedItem\"]($2)"+        js_namedItem :: HTMLSelectElement -> JSString -> IO (Nullable 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+      (nullableToMaybe <$> (js_namedItem (self) (toJSString name)))+ +foreign import javascript unsafe "$1[\"add\"]($2, $3)" js_addBefore+        ::+        HTMLSelectElement ->+          Nullable HTMLElement -> Nullable 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 (self) (maybeToNullable (fmap toHTMLElement element))+         (maybeToNullable (fmap toHTMLElement before)))+ +foreign import javascript unsafe "$1[\"add\"]($2, $3)" js_add ::+        HTMLSelectElement -> Nullable 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 (self) (maybeToNullable (fmap toHTMLElement element))+         index)+ +foreign import javascript unsafe "$1[\"remove\"]()" js_remove ::+        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 (self))+ +foreign import javascript unsafe+        "($1[\"checkValidity\"]() ? 1 : 0)" js_checkValidity ::+        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 (self))+ +foreign import javascript unsafe "$1[\"setCustomValidity\"]($2)"+        js_setCustomValidity ::+        HTMLSelectElement -> Nullable 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 (self) (toMaybeJSString error))+ +foreign import javascript unsafe "$1[\"autofocus\"] = $2;"+        js_setAutofocus :: 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 (self) val)+ +foreign import javascript unsafe "($1[\"autofocus\"] ? 1 : 0)"+        js_getAutofocus :: 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 (self))+ +foreign import javascript unsafe "$1[\"disabled\"] = $2;"+        js_setDisabled :: 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 (self) val)+ +foreign import javascript unsafe "($1[\"disabled\"] ? 1 : 0)"+        js_getDisabled :: 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 (self))+ +foreign import javascript unsafe "$1[\"form\"]" js_getForm ::+        HTMLSelectElement -> IO (Nullable 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 (nullableToMaybe <$> (js_getForm (self)))+ +foreign import javascript unsafe "$1[\"multiple\"] = $2;"+        js_setMultiple :: 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 (self) val)+ +foreign import javascript unsafe "($1[\"multiple\"] ? 1 : 0)"+        js_getMultiple :: 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 (self))+ +foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName ::+        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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"name\"]" js_getName ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"required\"] = $2;"+        js_setRequired :: 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 (self) val)+ +foreign import javascript unsafe "($1[\"required\"] ? 1 : 0)"+        js_getRequired :: 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 (self))+ +foreign import javascript unsafe "$1[\"size\"] = $2;" js_setSize ::+        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 (self) val)+ +foreign import javascript unsafe "$1[\"size\"]" js_getSize ::+        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 (self))+ +foreign import javascript unsafe "$1[\"type\"]" js_getType ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"options\"]" js_getOptions ::+        HTMLSelectElement -> IO (Nullable 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 (nullableToMaybe <$> (js_getOptions (self)))+ +foreign import javascript unsafe "$1[\"length\"] = $2;"+        js_setLength :: 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 (self) val)+ +foreign import javascript unsafe "$1[\"length\"]" js_getLength ::+        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 (self))+ +foreign import javascript unsafe "$1[\"selectedOptions\"]"+        js_getSelectedOptions ::+        HTMLSelectElement -> IO (Nullable 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 (nullableToMaybe <$> (js_getSelectedOptions (self)))+ +foreign import javascript unsafe "$1[\"selectedIndex\"] = $2;"+        js_setSelectedIndex :: 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 (self) val)+ +foreign import javascript unsafe "$1[\"selectedIndex\"]"+        js_getSelectedIndex :: 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 (self))+ +foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue+        :: HTMLSelectElement -> Nullable 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 (self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"value\"]" js_getValue ::+        HTMLSelectElement -> IO (Nullable 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 (self)))+ +foreign import javascript unsafe "($1[\"willValidate\"] ? 1 : 0)"+        js_getWillValidate :: 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 (self))+ +foreign import javascript unsafe "$1[\"validity\"]" js_getValidity+        :: HTMLSelectElement -> IO (Nullable 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 (nullableToMaybe <$> (js_getValidity (self)))+ +foreign import javascript unsafe "$1[\"validationMessage\"]"+        js_getValidationMessage :: 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 (self)))+ +foreign import javascript unsafe "$1[\"labels\"]" js_getLabels ::+        HTMLSelectElement -> IO (Nullable 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 (nullableToMaybe <$> (js_getLabels (self)))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLSourceElement.hs view
@@ -0,0 +1,68 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"src\"] = $2;" js_setSrc ::+        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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"src\"]" js_getSrc ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"type\"] = $2;" js_setType ::+        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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"type\"]" js_getType ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"media\"] = $2;" js_setMedia+        :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"media\"]" js_getMedia ::+        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 (self)))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLStyleElement.hs view
@@ -0,0 +1,74 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"disabled\"] = $2;"+        js_setDisabled :: 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 (self) val)+ +foreign import javascript unsafe "($1[\"disabled\"] ? 1 : 0)"+        js_getDisabled :: 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 (self))+ +foreign import javascript unsafe "$1[\"media\"] = $2;" js_setMedia+        :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"media\"]" js_getMedia ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"type\"] = $2;" js_setType ::+        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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"type\"]" js_getType ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"sheet\"]" js_getSheet ::+        HTMLStyleElement -> IO (Nullable 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 (nullableToMaybe <$> (js_getSheet (self)))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLTableCaptionElement.hs view
@@ -0,0 +1,38 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign+        :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"align\"]" js_getAlign ::+        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 (self)))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLTableCellElement.hs view
@@ -0,0 +1,268 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"cellIndex\"]"+        js_getCellIndex :: 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 (self))+ +foreign import javascript unsafe "$1[\"abbr\"] = $2;" js_setAbbr ::+        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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"abbr\"]" js_getAbbr ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign+        :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"align\"]" js_getAlign ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"axis\"] = $2;" js_setAxis ::+        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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"axis\"]" js_getAxis ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"bgColor\"] = $2;"+        js_setBgColor :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"bgColor\"]" js_getBgColor ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"ch\"] = $2;" js_setCh ::+        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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"ch\"]" js_getCh ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"chOff\"] = $2;" js_setChOff+        :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"chOff\"]" js_getChOff ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"colSpan\"] = $2;"+        js_setColSpan :: 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 (self) val)+ +foreign import javascript unsafe "$1[\"colSpan\"]" js_getColSpan ::+        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 (self))+ +foreign import javascript unsafe "$1[\"headers\"] = $2;"+        js_setHeaders :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"headers\"]" js_getHeaders ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"height\"] = $2;"+        js_setHeight :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"height\"]" js_getHeight ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"noWrap\"] = $2;"+        js_setNoWrap :: 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 (self) val)+ +foreign import javascript unsafe "($1[\"noWrap\"] ? 1 : 0)"+        js_getNoWrap :: 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 (self))+ +foreign import javascript unsafe "$1[\"rowSpan\"] = $2;"+        js_setRowSpan :: 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 (self) val)+ +foreign import javascript unsafe "$1[\"rowSpan\"]" js_getRowSpan ::+        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 (self))+ +foreign import javascript unsafe "$1[\"scope\"] = $2;" js_setScope+        :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"scope\"]" js_getScope ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"vAlign\"] = $2;"+        js_setVAlign :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"vAlign\"]" js_getVAlign ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"width\"] = $2;" js_setWidth+        :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::+        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 (self)))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLTableColElement.hs view
@@ -0,0 +1,117 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign+        :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"align\"]" js_getAlign ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"ch\"] = $2;" js_setCh ::+        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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"ch\"]" js_getCh ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"chOff\"] = $2;" js_setChOff+        :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"chOff\"]" js_getChOff ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"span\"] = $2;" js_setSpan ::+        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 (self) val)+ +foreign import javascript unsafe "$1[\"span\"]" js_getSpan ::+        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 (self))+ +foreign import javascript unsafe "$1[\"vAlign\"] = $2;"+        js_setVAlign :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"vAlign\"]" js_getVAlign ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"width\"] = $2;" js_setWidth+        :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::+        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 (self)))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLTableElement.hs view
@@ -0,0 +1,334 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"createTHead\"]()"+        js_createTHead :: HTMLTableElement -> IO (Nullable 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 (nullableToMaybe <$> (js_createTHead (self)))+ +foreign import javascript unsafe "$1[\"deleteTHead\"]()"+        js_deleteTHead :: 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 (self))+ +foreign import javascript unsafe "$1[\"createTFoot\"]()"+        js_createTFoot :: HTMLTableElement -> IO (Nullable 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 (nullableToMaybe <$> (js_createTFoot (self)))+ +foreign import javascript unsafe "$1[\"deleteTFoot\"]()"+        js_deleteTFoot :: 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 (self))+ +foreign import javascript unsafe "$1[\"createTBody\"]()"+        js_createTBody :: HTMLTableElement -> IO (Nullable 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 (nullableToMaybe <$> (js_createTBody (self)))+ +foreign import javascript unsafe "$1[\"createCaption\"]()"+        js_createCaption :: HTMLTableElement -> IO (Nullable 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 (nullableToMaybe <$> (js_createCaption (self)))+ +foreign import javascript unsafe "$1[\"deleteCaption\"]()"+        js_deleteCaption :: 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 (self))+ +foreign import javascript unsafe "$1[\"insertRow\"]($2)"+        js_insertRow ::+        HTMLTableElement -> Int -> IO (Nullable 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 (nullableToMaybe <$> (js_insertRow (self) index))+ +foreign import javascript unsafe "$1[\"deleteRow\"]($2)"+        js_deleteRow :: 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 (self) index)+ +foreign import javascript unsafe "$1[\"caption\"] = $2;"+        js_setCaption ::+        HTMLTableElement -> Nullable 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 (self) (maybeToNullable val))+ +foreign import javascript unsafe "$1[\"caption\"]" js_getCaption ::+        HTMLTableElement -> IO (Nullable 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 (nullableToMaybe <$> (js_getCaption (self)))+ +foreign import javascript unsafe "$1[\"tHead\"] = $2;" js_setTHead+        :: HTMLTableElement -> Nullable 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 (self) (maybeToNullable val))+ +foreign import javascript unsafe "$1[\"tHead\"]" js_getTHead ::+        HTMLTableElement -> IO (Nullable 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 (nullableToMaybe <$> (js_getTHead (self)))+ +foreign import javascript unsafe "$1[\"tFoot\"] = $2;" js_setTFoot+        :: HTMLTableElement -> Nullable 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 (self) (maybeToNullable val))+ +foreign import javascript unsafe "$1[\"tFoot\"]" js_getTFoot ::+        HTMLTableElement -> IO (Nullable 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 (nullableToMaybe <$> (js_getTFoot (self)))+ +foreign import javascript unsafe "$1[\"rows\"]" js_getRows ::+        HTMLTableElement -> IO (Nullable 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 (nullableToMaybe <$> (js_getRows (self)))+ +foreign import javascript unsafe "$1[\"tBodies\"]" js_getTBodies ::+        HTMLTableElement -> IO (Nullable 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 (nullableToMaybe <$> (js_getTBodies (self)))+ +foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign+        :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"align\"]" js_getAlign ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"bgColor\"] = $2;"+        js_setBgColor :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"bgColor\"]" js_getBgColor ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"border\"] = $2;"+        js_setBorder :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"border\"]" js_getBorder ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"cellPadding\"] = $2;"+        js_setCellPadding :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"cellPadding\"]"+        js_getCellPadding :: 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 (self)))+ +foreign import javascript unsafe "$1[\"cellSpacing\"] = $2;"+        js_setCellSpacing :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"cellSpacing\"]"+        js_getCellSpacing :: 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 (self)))+ +foreign import javascript unsafe "$1[\"frame\"] = $2;" js_setFrame+        :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"frame\"]" js_getFrame ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"rules\"] = $2;" js_setRules+        :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"rules\"]" js_getRules ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"summary\"] = $2;"+        js_setSummary :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"summary\"]" js_getSummary ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"width\"] = $2;" js_setWidth+        :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::+        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 (self)))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLTableRowElement.hs view
@@ -0,0 +1,145 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"insertCell\"]($2)"+        js_insertCell ::+        HTMLTableRowElement -> Int -> IO (Nullable 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 (nullableToMaybe <$> (js_insertCell (self) index))+ +foreign import javascript unsafe "$1[\"deleteCell\"]($2)"+        js_deleteCell :: 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 (self) index)+ +foreign import javascript unsafe "$1[\"rowIndex\"]" js_getRowIndex+        :: 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 (self))+ +foreign import javascript unsafe "$1[\"sectionRowIndex\"]"+        js_getSectionRowIndex :: 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 (self))+ +foreign import javascript unsafe "$1[\"cells\"]" js_getCells ::+        HTMLTableRowElement -> IO (Nullable 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 (nullableToMaybe <$> (js_getCells (self)))+ +foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign+        :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"align\"]" js_getAlign ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"bgColor\"] = $2;"+        js_setBgColor :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"bgColor\"]" js_getBgColor ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"ch\"] = $2;" js_setCh ::+        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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"ch\"]" js_getCh ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"chOff\"] = $2;" js_setChOff+        :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"chOff\"]" js_getChOff ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"vAlign\"] = $2;"+        js_setVAlign :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"vAlign\"]" js_getVAlign ::+        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 (self)))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLTableSectionElement.hs view
@@ -0,0 +1,121 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"insertRow\"]($2)"+        js_insertRow ::+        HTMLTableSectionElement -> Int -> IO (Nullable 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 (nullableToMaybe <$> (js_insertRow (self) index))+ +foreign import javascript unsafe "$1[\"deleteRow\"]($2)"+        js_deleteRow :: 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 (self) index)+ +foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign+        :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"align\"]" js_getAlign ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"ch\"] = $2;" js_setCh ::+        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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"ch\"]" js_getCh ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"chOff\"] = $2;" js_setChOff+        :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"chOff\"]" js_getChOff ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"vAlign\"] = $2;"+        js_setVAlign :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"vAlign\"]" js_getVAlign ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"rows\"]" js_getRows ::+        HTMLTableSectionElement -> IO (Nullable 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 (nullableToMaybe <$> (js_getRows (self)))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLTemplateElement.hs view
@@ -0,0 +1,28 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"content\"]" js_getContent ::+        HTMLTemplateElement -> IO (Nullable 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 (nullableToMaybe <$> (js_getContent (self)))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLTextAreaElement.hs view
@@ -0,0 +1,456 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe+        "($1[\"checkValidity\"]() ? 1 : 0)" js_checkValidity ::+        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 (self))+ +foreign import javascript unsafe "$1[\"setCustomValidity\"]($2)"+        js_setCustomValidity ::+        HTMLTextAreaElement -> Nullable 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 (self) (toMaybeJSString error))+ +foreign import javascript unsafe "$1[\"select\"]()" js_select ::+        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 (self))+ +foreign import javascript unsafe "$1[\"setRangeText\"]($2)"+        js_setRangeText :: 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 (self) (toJSString replacement))+ +foreign import javascript unsafe+        "$1[\"setRangeText\"]($2, $3, $4,\n$5)" js_setRangeText4 ::+        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 (self) (toJSString replacement) start end+         (toJSString selectionMode))+ +foreign import javascript unsafe+        "$1[\"setSelectionRange\"]($2, $3,\n$4)" js_setSelectionRange ::+        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 (self) start end (toJSString direction))+ +foreign import javascript unsafe "$1[\"autofocus\"] = $2;"+        js_setAutofocus :: 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 (self) val)+ +foreign import javascript unsafe "($1[\"autofocus\"] ? 1 : 0)"+        js_getAutofocus :: 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 (self))+ +foreign import javascript unsafe "$1[\"cols\"] = $2;" js_setCols ::+        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 (self) val)+ +foreign import javascript unsafe "$1[\"cols\"]" js_getCols ::+        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 (self))+ +foreign import javascript unsafe "$1[\"dirName\"] = $2;"+        js_setDirName :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"dirName\"]" js_getDirName ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"disabled\"] = $2;"+        js_setDisabled :: 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 (self) val)+ +foreign import javascript unsafe "($1[\"disabled\"] ? 1 : 0)"+        js_getDisabled :: 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 (self))+ +foreign import javascript unsafe "$1[\"form\"]" js_getForm ::+        HTMLTextAreaElement -> IO (Nullable 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 (nullableToMaybe <$> (js_getForm (self)))+ +foreign import javascript unsafe "$1[\"maxLength\"] = $2;"+        js_setMaxLength :: 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 (self) val)+ +foreign import javascript unsafe "$1[\"maxLength\"]"+        js_getMaxLength :: 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 (self))+ +foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName ::+        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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"name\"]" js_getName ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"placeholder\"] = $2;"+        js_setPlaceholder :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"placeholder\"]"+        js_getPlaceholder :: 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 (self)))+ +foreign import javascript unsafe "$1[\"readOnly\"] = $2;"+        js_setReadOnly :: 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 (self) val)+ +foreign import javascript unsafe "($1[\"readOnly\"] ? 1 : 0)"+        js_getReadOnly :: 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 (self))+ +foreign import javascript unsafe "$1[\"required\"] = $2;"+        js_setRequired :: 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 (self) val)+ +foreign import javascript unsafe "($1[\"required\"] ? 1 : 0)"+        js_getRequired :: 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 (self))+ +foreign import javascript unsafe "$1[\"rows\"] = $2;" js_setRows ::+        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 (self) val)+ +foreign import javascript unsafe "$1[\"rows\"]" js_getRows ::+        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 (self))+ +foreign import javascript unsafe "$1[\"wrap\"] = $2;" js_setWrap ::+        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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"wrap\"]" js_getWrap ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"type\"]" js_getType ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"defaultValue\"] = $2;"+        js_setDefaultValue ::+        HTMLTextAreaElement -> Nullable 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 (self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"defaultValue\"]"+        js_getDefaultValue :: HTMLTextAreaElement -> IO (Nullable 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 (self)))+ +foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue+        :: HTMLTextAreaElement -> Nullable 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 (self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"value\"]" js_getValue ::+        HTMLTextAreaElement -> IO (Nullable 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 (self)))+ +foreign import javascript unsafe "$1[\"textLength\"]"+        js_getTextLength :: 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 (self))+ +foreign import javascript unsafe "($1[\"willValidate\"] ? 1 : 0)"+        js_getWillValidate :: 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 (self))+ +foreign import javascript unsafe "$1[\"validity\"]" js_getValidity+        :: HTMLTextAreaElement -> IO (Nullable 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 (nullableToMaybe <$> (js_getValidity (self)))+ +foreign import javascript unsafe "$1[\"validationMessage\"]"+        js_getValidationMessage :: 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 (self)))+ +foreign import javascript unsafe "$1[\"labels\"]" js_getLabels ::+        HTMLTextAreaElement -> IO (Nullable 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 (nullableToMaybe <$> (js_getLabels (self)))+ +foreign import javascript unsafe "$1[\"selectionStart\"] = $2;"+        js_setSelectionStart :: 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 (self) val)+ +foreign import javascript unsafe "$1[\"selectionStart\"]"+        js_getSelectionStart :: 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 (self))+ +foreign import javascript unsafe "$1[\"selectionEnd\"] = $2;"+        js_setSelectionEnd :: 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 (self) val)+ +foreign import javascript unsafe "$1[\"selectionEnd\"]"+        js_getSelectionEnd :: 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 (self))+ +foreign import javascript unsafe "$1[\"selectionDirection\"] = $2;"+        js_setSelectionDirection ::+        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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"selectionDirection\"]"+        js_getSelectionDirection :: 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 (self)))+ +foreign import javascript unsafe "$1[\"autocorrect\"] = $2;"+        js_setAutocorrect :: 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 (self) val)+ +foreign import javascript unsafe "($1[\"autocorrect\"] ? 1 : 0)"+        js_getAutocorrect :: 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 (self))+ +foreign import javascript unsafe "$1[\"autocapitalize\"] = $2;"+        js_setAutocapitalize ::+        HTMLTextAreaElement -> Nullable 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 (self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"autocapitalize\"]"+        js_getAutocapitalize ::+        HTMLTextAreaElement -> IO (Nullable 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 (self)))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLTitleElement.hs view
@@ -0,0 +1,37 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"text\"] = $2;" js_setText ::+        HTMLTitleElement -> Nullable 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 (self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"text\"]" js_getText ::+        HTMLTitleElement -> IO (Nullable 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 (self)))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLTrackElement.hs view
@@ -0,0 +1,121 @@+{-# 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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+pattern NONE = 0+pattern LOADING = 1+pattern LOADED = 2+pattern ERROR = 3+ +foreign import javascript unsafe "$1[\"kind\"] = $2;" js_setKind ::+        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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"kind\"]" js_getKind ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"src\"] = $2;" js_setSrc ::+        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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"src\"]" js_getSrc ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"srclang\"] = $2;"+        js_setSrclang :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"srclang\"]" js_getSrclang ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"label\"] = $2;" js_setLabel+        :: 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 (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"label\"]" js_getLabel ::+        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 (self)))+ +foreign import javascript unsafe "$1[\"default\"] = $2;"+        js_setDefault :: 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 (self) val)+ +foreign import javascript unsafe "($1[\"default\"] ? 1 : 0)"+        js_getDefault :: 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 (self))+ +foreign import javascript unsafe "$1[\"readyState\"]"+        js_getReadyState :: 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 (self))+ +foreign import javascript unsafe "$1[\"track\"]" js_getTrack ::+        HTMLTrackElement -> IO (Nullable 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 (nullableToMaybe <$> (js_getTrack (self)))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLUListElement.hs view
@@ -0,0 +1,50 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.HTMLUListElement+       (js_setCompact, setCompact, js_getCompact, getCompact, js_setType,+        setType, js_getType, getType, HTMLUListElement,+        castToHTMLUListElement, gTypeHTMLUListElement)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"compact\"] = $2;"+        js_setCompact :: HTMLUListElement -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLUListElement.compact Mozilla HTMLUListElement.compact documentation> +setCompact :: (MonadIO m) => HTMLUListElement -> Bool -> m ()+setCompact self val = liftIO (js_setCompact (self) val)+ +foreign import javascript unsafe "($1[\"compact\"] ? 1 : 0)"+        js_getCompact :: HTMLUListElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLUListElement.compact Mozilla HTMLUListElement.compact documentation> +getCompact :: (MonadIO m) => HTMLUListElement -> m Bool+getCompact self = liftIO (js_getCompact (self))+ +foreign import javascript unsafe "$1[\"type\"] = $2;" js_setType ::+        HTMLUListElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLUListElement.type Mozilla HTMLUListElement.type documentation> +setType ::+        (MonadIO m, ToJSString val) => HTMLUListElement -> val -> m ()+setType self val = liftIO (js_setType (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"type\"]" js_getType ::+        HTMLUListElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLUListElement.type Mozilla HTMLUListElement.type documentation> +getType ::+        (MonadIO m, FromJSString result) => HTMLUListElement -> m result+getType self = liftIO (fromJSString <$> (js_getType (self)))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLVideoElement.hs view
@@ -0,0 +1,222 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.HTMLVideoElement+       (js_webkitEnterFullscreen, webkitEnterFullscreen,+        js_webkitExitFullscreen, webkitExitFullscreen,+        js_webkitEnterFullScreen, webkitEnterFullScreen,+        js_webkitExitFullScreen, webkitExitFullScreen,+        js_webkitSupportsPresentationMode, webkitSupportsPresentationMode,+        js_webkitSetPresentationMode, webkitSetPresentationMode,+        js_setWidth, setWidth, js_getWidth, getWidth, js_setHeight,+        setHeight, js_getHeight, getHeight, js_getVideoWidth,+        getVideoWidth, js_getVideoHeight, getVideoHeight, js_setPoster,+        setPoster, js_getPoster, getPoster, js_getWebkitSupportsFullscreen,+        getWebkitSupportsFullscreen, js_getWebkitDisplayingFullscreen,+        getWebkitDisplayingFullscreen,+        js_setWebkitWirelessVideoPlaybackDisabled,+        setWebkitWirelessVideoPlaybackDisabled,+        js_getWebkitWirelessVideoPlaybackDisabled,+        getWebkitWirelessVideoPlaybackDisabled,+        js_getWebkitDecodedFrameCount, getWebkitDecodedFrameCount,+        js_getWebkitDroppedFrameCount, getWebkitDroppedFrameCount,+        js_getWebkitPresentationMode, getWebkitPresentationMode,+        webKitPresentationModeChanged, HTMLVideoElement,+        castToHTMLVideoElement, gTypeHTMLVideoElement)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"webkitEnterFullscreen\"]()"+        js_webkitEnterFullscreen :: HTMLVideoElement -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLVideoElement.webkitEnterFullscreen Mozilla HTMLVideoElement.webkitEnterFullscreen documentation> +webkitEnterFullscreen :: (MonadIO m) => HTMLVideoElement -> m ()+webkitEnterFullscreen self+  = liftIO (js_webkitEnterFullscreen (self))+ +foreign import javascript unsafe "$1[\"webkitExitFullscreen\"]()"+        js_webkitExitFullscreen :: HTMLVideoElement -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLVideoElement.webkitExitFullscreen Mozilla HTMLVideoElement.webkitExitFullscreen documentation> +webkitExitFullscreen :: (MonadIO m) => HTMLVideoElement -> m ()+webkitExitFullscreen self = liftIO (js_webkitExitFullscreen (self))+ +foreign import javascript unsafe "$1[\"webkitEnterFullScreen\"]()"+        js_webkitEnterFullScreen :: HTMLVideoElement -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLVideoElement.webkitEnterFullScreen Mozilla HTMLVideoElement.webkitEnterFullScreen documentation> +webkitEnterFullScreen :: (MonadIO m) => HTMLVideoElement -> m ()+webkitEnterFullScreen self+  = liftIO (js_webkitEnterFullScreen (self))+ +foreign import javascript unsafe "$1[\"webkitExitFullScreen\"]()"+        js_webkitExitFullScreen :: HTMLVideoElement -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLVideoElement.webkitExitFullScreen Mozilla HTMLVideoElement.webkitExitFullScreen documentation> +webkitExitFullScreen :: (MonadIO m) => HTMLVideoElement -> m ()+webkitExitFullScreen self = liftIO (js_webkitExitFullScreen (self))+ +foreign import javascript unsafe+        "($1[\"webkitSupportsPresentationMode\"]($2) ? 1 : 0)"+        js_webkitSupportsPresentationMode ::+        HTMLVideoElement -> JSVal -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLVideoElement.webkitSupportsPresentationMode Mozilla HTMLVideoElement.webkitSupportsPresentationMode documentation> +webkitSupportsPresentationMode ::+                               (MonadIO m) => HTMLVideoElement -> VideoPresentationMode -> m Bool+webkitSupportsPresentationMode self mode+  = liftIO (js_webkitSupportsPresentationMode (self) (pToJSVal mode))+ +foreign import javascript unsafe+        "$1[\"webkitSetPresentationMode\"]($2)"+        js_webkitSetPresentationMode :: HTMLVideoElement -> JSVal -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLVideoElement.webkitSetPresentationMode Mozilla HTMLVideoElement.webkitSetPresentationMode documentation> +webkitSetPresentationMode ::+                          (MonadIO m) => HTMLVideoElement -> VideoPresentationMode -> m ()+webkitSetPresentationMode self mode+  = liftIO (js_webkitSetPresentationMode (self) (pToJSVal mode))+ +foreign import javascript unsafe "$1[\"width\"] = $2;" js_setWidth+        :: HTMLVideoElement -> Word -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLVideoElement.width Mozilla HTMLVideoElement.width documentation> +setWidth :: (MonadIO m) => HTMLVideoElement -> Word -> m ()+setWidth self val = liftIO (js_setWidth (self) val)+ +foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::+        HTMLVideoElement -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLVideoElement.width Mozilla HTMLVideoElement.width documentation> +getWidth :: (MonadIO m) => HTMLVideoElement -> m Word+getWidth self = liftIO (js_getWidth (self))+ +foreign import javascript unsafe "$1[\"height\"] = $2;"+        js_setHeight :: HTMLVideoElement -> Word -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLVideoElement.height Mozilla HTMLVideoElement.height documentation> +setHeight :: (MonadIO m) => HTMLVideoElement -> Word -> m ()+setHeight self val = liftIO (js_setHeight (self) val)+ +foreign import javascript unsafe "$1[\"height\"]" js_getHeight ::+        HTMLVideoElement -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLVideoElement.height Mozilla HTMLVideoElement.height documentation> +getHeight :: (MonadIO m) => HTMLVideoElement -> m Word+getHeight self = liftIO (js_getHeight (self))+ +foreign import javascript unsafe "$1[\"videoWidth\"]"+        js_getVideoWidth :: HTMLVideoElement -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLVideoElement.videoWidth Mozilla HTMLVideoElement.videoWidth documentation> +getVideoWidth :: (MonadIO m) => HTMLVideoElement -> m Word+getVideoWidth self = liftIO (js_getVideoWidth (self))+ +foreign import javascript unsafe "$1[\"videoHeight\"]"+        js_getVideoHeight :: HTMLVideoElement -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLVideoElement.videoHeight Mozilla HTMLVideoElement.videoHeight documentation> +getVideoHeight :: (MonadIO m) => HTMLVideoElement -> m Word+getVideoHeight self = liftIO (js_getVideoHeight (self))+ +foreign import javascript unsafe "$1[\"poster\"] = $2;"+        js_setPoster :: HTMLVideoElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLVideoElement.poster Mozilla HTMLVideoElement.poster documentation> +setPoster ::+          (MonadIO m, ToJSString val) => HTMLVideoElement -> val -> m ()+setPoster self val = liftIO (js_setPoster (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"poster\"]" js_getPoster ::+        HTMLVideoElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLVideoElement.poster Mozilla HTMLVideoElement.poster documentation> +getPoster ::+          (MonadIO m, FromJSString result) => HTMLVideoElement -> m result+getPoster self = liftIO (fromJSString <$> (js_getPoster (self)))+ +foreign import javascript unsafe+        "($1[\"webkitSupportsFullscreen\"] ? 1 : 0)"+        js_getWebkitSupportsFullscreen :: HTMLVideoElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLVideoElement.webkitSupportsFullscreen Mozilla HTMLVideoElement.webkitSupportsFullscreen documentation> +getWebkitSupportsFullscreen ::+                            (MonadIO m) => HTMLVideoElement -> m Bool+getWebkitSupportsFullscreen self+  = liftIO (js_getWebkitSupportsFullscreen (self))+ +foreign import javascript unsafe+        "($1[\"webkitDisplayingFullscreen\"] ? 1 : 0)"+        js_getWebkitDisplayingFullscreen :: HTMLVideoElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLVideoElement.webkitDisplayingFullscreen Mozilla HTMLVideoElement.webkitDisplayingFullscreen documentation> +getWebkitDisplayingFullscreen ::+                              (MonadIO m) => HTMLVideoElement -> m Bool+getWebkitDisplayingFullscreen self+  = liftIO (js_getWebkitDisplayingFullscreen (self))+ +foreign import javascript unsafe+        "$1[\"webkitWirelessVideoPlaybackDisabled\"] = $2;"+        js_setWebkitWirelessVideoPlaybackDisabled ::+        HTMLVideoElement -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLVideoElement.webkitWirelessVideoPlaybackDisabled Mozilla HTMLVideoElement.webkitWirelessVideoPlaybackDisabled documentation> +setWebkitWirelessVideoPlaybackDisabled ::+                                       (MonadIO m) => HTMLVideoElement -> Bool -> m ()+setWebkitWirelessVideoPlaybackDisabled self val+  = liftIO (js_setWebkitWirelessVideoPlaybackDisabled (self) val)+ +foreign import javascript unsafe+        "($1[\"webkitWirelessVideoPlaybackDisabled\"] ? 1 : 0)"+        js_getWebkitWirelessVideoPlaybackDisabled ::+        HTMLVideoElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLVideoElement.webkitWirelessVideoPlaybackDisabled Mozilla HTMLVideoElement.webkitWirelessVideoPlaybackDisabled documentation> +getWebkitWirelessVideoPlaybackDisabled ::+                                       (MonadIO m) => HTMLVideoElement -> m Bool+getWebkitWirelessVideoPlaybackDisabled self+  = liftIO (js_getWebkitWirelessVideoPlaybackDisabled (self))+ +foreign import javascript unsafe "$1[\"webkitDecodedFrameCount\"]"+        js_getWebkitDecodedFrameCount :: HTMLVideoElement -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLVideoElement.webkitDecodedFrameCount Mozilla HTMLVideoElement.webkitDecodedFrameCount documentation> +getWebkitDecodedFrameCount ::+                           (MonadIO m) => HTMLVideoElement -> m Word+getWebkitDecodedFrameCount self+  = liftIO (js_getWebkitDecodedFrameCount (self))+ +foreign import javascript unsafe "$1[\"webkitDroppedFrameCount\"]"+        js_getWebkitDroppedFrameCount :: HTMLVideoElement -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLVideoElement.webkitDroppedFrameCount Mozilla HTMLVideoElement.webkitDroppedFrameCount documentation> +getWebkitDroppedFrameCount ::+                           (MonadIO m) => HTMLVideoElement -> m Word+getWebkitDroppedFrameCount self+  = liftIO (js_getWebkitDroppedFrameCount (self))+ +foreign import javascript unsafe "$1[\"webkitPresentationMode\"]"+        js_getWebkitPresentationMode :: HTMLVideoElement -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLVideoElement.webkitPresentationMode Mozilla HTMLVideoElement.webkitPresentationMode documentation> +getWebkitPresentationMode ::+                          (MonadIO m) => HTMLVideoElement -> m VideoPresentationMode+getWebkitPresentationMode self+  = liftIO+      ((js_getWebkitPresentationMode (self)) >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLVideoElement.onwebkitpresentationmodechanged Mozilla HTMLVideoElement.onwebkitpresentationmodechanged documentation> +webKitPresentationModeChanged :: EventName HTMLVideoElement Event+webKitPresentationModeChanged+  = unsafeEventName (toJSString "webkitpresentationmodechanged")
+ src/GHCJS/DOM/JSFFI/Generated/HashChangeEvent.hs view
@@ -0,0 +1,55 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.HashChangeEvent+       (js_initHashChangeEvent, initHashChangeEvent, js_getOldURL,+        getOldURL, js_getNewURL, getNewURL, HashChangeEvent,+        castToHashChangeEvent, gTypeHashChangeEvent)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe+        "$1[\"initHashChangeEvent\"]($2,\n$3, $4, $5, $6)"+        js_initHashChangeEvent ::+        HashChangeEvent ->+          JSString -> Bool -> Bool -> JSString -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HashChangeEvent.initHashChangeEvent Mozilla HashChangeEvent.initHashChangeEvent documentation> +initHashChangeEvent ::+                    (MonadIO m, ToJSString type', ToJSString oldURL,+                     ToJSString newURL) =>+                      HashChangeEvent ->+                        type' -> Bool -> Bool -> oldURL -> newURL -> m ()+initHashChangeEvent self type' canBubble cancelable oldURL newURL+  = liftIO+      (js_initHashChangeEvent (self) (toJSString type') canBubble+         cancelable+         (toJSString oldURL)+         (toJSString newURL))+ +foreign import javascript unsafe "$1[\"oldURL\"]" js_getOldURL ::+        HashChangeEvent -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HashChangeEvent.oldURL Mozilla HashChangeEvent.oldURL documentation> +getOldURL ::+          (MonadIO m, FromJSString result) => HashChangeEvent -> m result+getOldURL self = liftIO (fromJSString <$> (js_getOldURL (self)))+ +foreign import javascript unsafe "$1[\"newURL\"]" js_getNewURL ::+        HashChangeEvent -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HashChangeEvent.newURL Mozilla HashChangeEvent.newURL documentation> +getNewURL ::+          (MonadIO m, FromJSString result) => HashChangeEvent -> m result+getNewURL self = liftIO (fromJSString <$> (js_getNewURL (self)))
+ src/GHCJS/DOM/JSFFI/Generated/History.hs view
@@ -0,0 +1,79 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.History+       (js_back, back, js_forward, forward, js_go, go, js_pushState,+        pushState, js_replaceState, replaceState, js_getLength, getLength,+        js_getState, getState, History, castToHistory, gTypeHistory)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"back\"]()" js_back ::+        History -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/History.back Mozilla History.back documentation> +back :: (MonadIO m) => History -> m ()+back self = liftIO (js_back (self))+ +foreign import javascript unsafe "$1[\"forward\"]()" js_forward ::+        History -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/History.forward Mozilla History.forward documentation> +forward :: (MonadIO m) => History -> m ()+forward self = liftIO (js_forward (self))+ +foreign import javascript unsafe "$1[\"go\"]($2)" js_go ::+        History -> Int -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/History.go Mozilla History.go documentation> +go :: (MonadIO m) => History -> Int -> m ()+go self distance = liftIO (js_go (self) distance)+ +foreign import javascript unsafe "$1[\"pushState\"]($2, $3, $4)"+        js_pushState :: History -> JSVal -> JSString -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/History.pushState Mozilla History.pushState documentation> +pushState ::+          (MonadIO m, ToJSString title, ToJSString url) =>+            History -> JSVal -> title -> url -> m ()+pushState self data' title url+  = liftIO+      (js_pushState (self) data' (toJSString title) (toJSString url))+ +foreign import javascript unsafe "$1[\"replaceState\"]($2, $3, $4)"+        js_replaceState ::+        History -> JSVal -> JSString -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/History.replaceState Mozilla History.replaceState documentation> +replaceState ::+             (MonadIO m, ToJSString title, ToJSString url) =>+               History -> JSVal -> title -> url -> m ()+replaceState self data' title url+  = liftIO+      (js_replaceState (self) data' (toJSString title) (toJSString url))+ +foreign import javascript unsafe "$1[\"length\"]" js_getLength ::+        History -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/History.length Mozilla History.length documentation> +getLength :: (MonadIO m) => History -> m Word+getLength self = liftIO (js_getLength (self))+ +foreign import javascript unsafe "$1[\"state\"]" js_getState ::+        History -> IO (Nullable SerializedScriptValue)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/History.state Mozilla History.state documentation> +getState ::+         (MonadIO m) => History -> m (Maybe SerializedScriptValue)+getState self = liftIO (nullableToMaybe <$> (js_getState (self)))
+ src/GHCJS/DOM/JSFFI/Generated/IDBCursor.hs view
@@ -0,0 +1,88 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.IDBCursor+       (js_update, update, js_advance, advance, js_continue, continue,+        js_delete, delete, js_getSource, getSource, js_getDirection,+        getDirection, js_getKey, getKey, js_getPrimaryKey, getPrimaryKey,+        IDBCursor, castToIDBCursor, gTypeIDBCursor, IsIDBCursor,+        toIDBCursor)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"update\"]($2)" js_update ::+        IDBCursor -> JSVal -> IO (Nullable IDBRequest)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBCursor.update Mozilla IDBCursor.update documentation> +update ::+       (MonadIO m, IsIDBCursor self) =>+         self -> JSVal -> m (Maybe IDBRequest)+update self value+  = liftIO (nullableToMaybe <$> (js_update (toIDBCursor self) value))+ +foreign import javascript unsafe "$1[\"advance\"]($2)" js_advance+        :: IDBCursor -> Word -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBCursor.advance Mozilla IDBCursor.advance documentation> +advance :: (MonadIO m, IsIDBCursor self) => self -> Word -> m ()+advance self count = liftIO (js_advance (toIDBCursor self) count)+ +foreign import javascript unsafe "$1[\"continue\"]($2)" js_continue+        :: IDBCursor -> JSVal -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBCursor.continue Mozilla IDBCursor.continue documentation> +continue :: (MonadIO m, IsIDBCursor self) => self -> JSVal -> m ()+continue self key = liftIO (js_continue (toIDBCursor self) key)+ +foreign import javascript unsafe "$1[\"delete\"]()" js_delete ::+        IDBCursor -> IO (Nullable IDBRequest)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBCursor.delete Mozilla IDBCursor.delete documentation> +delete ::+       (MonadIO m, IsIDBCursor self) => self -> m (Maybe IDBRequest)+delete self+  = liftIO (nullableToMaybe <$> (js_delete (toIDBCursor self)))+ +foreign import javascript unsafe "$1[\"source\"]" js_getSource ::+        IDBCursor -> IO (Nullable IDBAny)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBCursor.source Mozilla IDBCursor.source documentation> +getSource ::+          (MonadIO m, IsIDBCursor self) => self -> m (Maybe IDBAny)+getSource self+  = liftIO (nullableToMaybe <$> (js_getSource (toIDBCursor self)))+ +foreign import javascript unsafe "$1[\"direction\"]"+        js_getDirection :: IDBCursor -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBCursor.direction Mozilla IDBCursor.direction documentation> +getDirection ::+             (MonadIO m, IsIDBCursor self, FromJSString result) =>+               self -> m result+getDirection self+  = liftIO (fromJSString <$> (js_getDirection (toIDBCursor self)))+ +foreign import javascript unsafe "$1[\"key\"]" js_getKey ::+        IDBCursor -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBCursor.key Mozilla IDBCursor.key documentation> +getKey :: (MonadIO m, IsIDBCursor self) => self -> m JSVal+getKey self = liftIO (js_getKey (toIDBCursor self))+ +foreign import javascript unsafe "$1[\"primaryKey\"]"+        js_getPrimaryKey :: IDBCursor -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBCursor.primaryKey Mozilla IDBCursor.primaryKey documentation> +getPrimaryKey :: (MonadIO m, IsIDBCursor self) => self -> m JSVal+getPrimaryKey self = liftIO (js_getPrimaryKey (toIDBCursor self))
+ src/GHCJS/DOM/JSFFI/Generated/IDBCursorWithValue.hs view
@@ -0,0 +1,26 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.IDBCursorWithValue+       (js_getValue, getValue, IDBCursorWithValue,+        castToIDBCursorWithValue, gTypeIDBCursorWithValue)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"value\"]" js_getValue ::+        IDBCursorWithValue -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBCursorWithValue.value Mozilla IDBCursorWithValue.value documentation> +getValue :: (MonadIO m) => IDBCursorWithValue -> m JSVal+getValue self = liftIO (js_getValue (self))
+ src/GHCJS/DOM/JSFFI/Generated/IDBDatabase.hs view
@@ -0,0 +1,119 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.IDBDatabase+       (js_createObjectStore, createObjectStore, js_deleteObjectStore,+        deleteObjectStore, js_transaction, transaction, js_transaction',+        transaction', js_close, close, js_getName, getName, js_getVersion,+        getVersion, js_getObjectStoreNames, getObjectStoreNames, abort,+        error, versionChange, IDBDatabase, castToIDBDatabase,+        gTypeIDBDatabase)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe+        "$1[\"createObjectStore\"]($2, $3)" js_createObjectStore ::+        IDBDatabase ->+          JSString -> Nullable Dictionary -> IO (Nullable IDBObjectStore)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBDatabase.createObjectStore Mozilla IDBDatabase.createObjectStore documentation> +createObjectStore ::+                  (MonadIO m, ToJSString name, IsDictionary options) =>+                    IDBDatabase -> name -> Maybe options -> m (Maybe IDBObjectStore)+createObjectStore self name options+  = liftIO+      (nullableToMaybe <$>+         (js_createObjectStore (self) (toJSString name)+            (maybeToNullable (fmap toDictionary options))))+ +foreign import javascript unsafe "$1[\"deleteObjectStore\"]($2)"+        js_deleteObjectStore :: IDBDatabase -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBDatabase.deleteObjectStore Mozilla IDBDatabase.deleteObjectStore documentation> +deleteObjectStore ::+                  (MonadIO m, ToJSString name) => IDBDatabase -> name -> m ()+deleteObjectStore self name+  = liftIO (js_deleteObjectStore (self) (toJSString name))+ +foreign import javascript unsafe "$1[\"transaction\"]($2, $3)"+        js_transaction ::+        IDBDatabase -> JSString -> JSString -> IO (Nullable IDBTransaction)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBDatabase.transaction Mozilla IDBDatabase.transaction documentation> +transaction ::+            (MonadIO m, ToJSString storeName, ToJSString mode) =>+              IDBDatabase -> storeName -> mode -> m (Maybe IDBTransaction)+transaction self storeName mode+  = liftIO+      (nullableToMaybe <$>+         (js_transaction (self) (toJSString storeName) (toJSString mode)))+ +foreign import javascript unsafe "$1[\"transaction\"]($2, $3)"+        js_transaction' ::+        IDBDatabase -> JSVal -> JSString -> IO (Nullable IDBTransaction)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBDatabase.transaction Mozilla IDBDatabase.transaction documentation> +transaction' ::+             (MonadIO m, ToJSString storeNames, ToJSString mode) =>+               IDBDatabase -> [storeNames] -> mode -> m (Maybe IDBTransaction)+transaction' self storeNames mode+  = liftIO+      (nullableToMaybe <$>+         (toJSVal storeNames >>=+            \ storeNames' -> js_transaction' (self) storeNames'+            (toJSString mode)))+ +foreign import javascript unsafe "$1[\"close\"]()" js_close ::+        IDBDatabase -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBDatabase.close Mozilla IDBDatabase.close documentation> +close :: (MonadIO m) => IDBDatabase -> m ()+close self = liftIO (js_close (self))+ +foreign import javascript unsafe "$1[\"name\"]" js_getName ::+        IDBDatabase -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBDatabase.name Mozilla IDBDatabase.name documentation> +getName ::+        (MonadIO m, FromJSString result) => IDBDatabase -> m result+getName self = liftIO (fromJSString <$> (js_getName (self)))+ +foreign import javascript unsafe "$1[\"version\"]" js_getVersion ::+        IDBDatabase -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBDatabase.version Mozilla IDBDatabase.version documentation> +getVersion :: (MonadIO m) => IDBDatabase -> m Word64+getVersion self = liftIO (round <$> (js_getVersion (self)))+ +foreign import javascript unsafe "$1[\"objectStoreNames\"]"+        js_getObjectStoreNames ::+        IDBDatabase -> IO (Nullable DOMStringList)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBDatabase.objectStoreNames Mozilla IDBDatabase.objectStoreNames documentation> +getObjectStoreNames ::+                    (MonadIO m) => IDBDatabase -> m (Maybe DOMStringList)+getObjectStoreNames self+  = liftIO (nullableToMaybe <$> (js_getObjectStoreNames (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBDatabase.onabort Mozilla IDBDatabase.onabort documentation> +abort :: EventName IDBDatabase Event+abort = unsafeEventName (toJSString "abort")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBDatabase.onerror Mozilla IDBDatabase.onerror documentation> +error :: EventName IDBDatabase Event+error = unsafeEventName (toJSString "error")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBDatabase.onversionchange Mozilla IDBDatabase.onversionchange documentation> +versionChange :: EventName IDBDatabase IDBVersionChangeEvent+versionChange = unsafeEventName (toJSString "versionchange")
+ src/GHCJS/DOM/JSFFI/Generated/IDBFactory.hs view
@@ -0,0 +1,50 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.IDBFactory+       (js_open, open, js_deleteDatabase, deleteDatabase, js_cmp, cmp,+        IDBFactory, castToIDBFactory, gTypeIDBFactory)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"open\"]($2, $3)" js_open ::+        IDBFactory -> JSString -> Double -> IO (Nullable IDBOpenDBRequest)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBFactory.open Mozilla IDBFactory.open documentation> +open ::+     (MonadIO m, ToJSString name) =>+       IDBFactory -> name -> Word64 -> m (Maybe IDBOpenDBRequest)+open self name version+  = liftIO+      (nullableToMaybe <$>+         (js_open (self) (toJSString name) (fromIntegral version)))+ +foreign import javascript unsafe "$1[\"deleteDatabase\"]($2)"+        js_deleteDatabase ::+        IDBFactory -> JSString -> IO (Nullable IDBOpenDBRequest)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBFactory.deleteDatabase Mozilla IDBFactory.deleteDatabase documentation> +deleteDatabase ::+               (MonadIO m, ToJSString name) =>+                 IDBFactory -> name -> m (Maybe IDBOpenDBRequest)+deleteDatabase self name+  = liftIO+      (nullableToMaybe <$> (js_deleteDatabase (self) (toJSString name)))+ +foreign import javascript unsafe "$1[\"cmp\"]($2, $3)" js_cmp ::+        IDBFactory -> JSVal -> JSVal -> IO Int++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBFactory.cmp Mozilla IDBFactory.cmp documentation> +cmp :: (MonadIO m) => IDBFactory -> JSVal -> JSVal -> m Int+cmp self first second = liftIO (js_cmp (self) first second)
+ src/GHCJS/DOM/JSFFI/Generated/IDBIndex.hs view
@@ -0,0 +1,176 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.IDBIndex+       (js_openCursorRange, openCursorRange, js_openCursor, openCursor,+        js_openKeyCursorRange, openKeyCursorRange, js_openKeyCursor,+        openKeyCursor, js_getRange, getRange, js_get, get, js_getKeyRange,+        getKeyRange, js_getKey, getKey, js_countRange, countRange,+        js_count, count, js_getName, getName, js_getObjectStore,+        getObjectStore, js_getKeyPath, getKeyPath, js_getMultiEntry,+        getMultiEntry, js_getUnique, getUnique, IDBIndex, castToIDBIndex,+        gTypeIDBIndex)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"openCursor\"]($2, $3)"+        js_openCursorRange ::+        IDBIndex ->+          Nullable IDBKeyRange -> JSString -> IO (Nullable IDBRequest)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.openCursor Mozilla IDBIndex.openCursor documentation> +openCursorRange ::+                (MonadIO m, ToJSString direction) =>+                  IDBIndex -> Maybe IDBKeyRange -> direction -> m (Maybe IDBRequest)+openCursorRange self range direction+  = liftIO+      (nullableToMaybe <$>+         (js_openCursorRange (self) (maybeToNullable range)+            (toJSString direction)))+ +foreign import javascript unsafe "$1[\"openCursor\"]($2, $3)"+        js_openCursor ::+        IDBIndex -> JSVal -> JSString -> IO (Nullable IDBRequest)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.openCursor Mozilla IDBIndex.openCursor documentation> +openCursor ::+           (MonadIO m, ToJSString direction) =>+             IDBIndex -> JSVal -> direction -> m (Maybe IDBRequest)+openCursor self key direction+  = liftIO+      (nullableToMaybe <$>+         (js_openCursor (self) key (toJSString direction)))+ +foreign import javascript unsafe "$1[\"openKeyCursor\"]($2, $3)"+        js_openKeyCursorRange ::+        IDBIndex ->+          Nullable IDBKeyRange -> JSString -> IO (Nullable IDBRequest)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.openKeyCursor Mozilla IDBIndex.openKeyCursor documentation> +openKeyCursorRange ::+                   (MonadIO m, ToJSString direction) =>+                     IDBIndex -> Maybe IDBKeyRange -> direction -> m (Maybe IDBRequest)+openKeyCursorRange self range direction+  = liftIO+      (nullableToMaybe <$>+         (js_openKeyCursorRange (self) (maybeToNullable range)+            (toJSString direction)))+ +foreign import javascript unsafe "$1[\"openKeyCursor\"]($2, $3)"+        js_openKeyCursor ::+        IDBIndex -> JSVal -> JSString -> IO (Nullable IDBRequest)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.openKeyCursor Mozilla IDBIndex.openKeyCursor documentation> +openKeyCursor ::+              (MonadIO m, ToJSString direction) =>+                IDBIndex -> JSVal -> direction -> m (Maybe IDBRequest)+openKeyCursor self key direction+  = liftIO+      (nullableToMaybe <$>+         (js_openKeyCursor (self) key (toJSString direction)))+ +foreign import javascript unsafe "$1[\"get\"]($2)" js_getRange ::+        IDBIndex -> Nullable IDBKeyRange -> IO (Nullable IDBRequest)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.get Mozilla IDBIndex.get documentation> +getRange ::+         (MonadIO m) =>+           IDBIndex -> Maybe IDBKeyRange -> m (Maybe IDBRequest)+getRange self key+  = liftIO+      (nullableToMaybe <$> (js_getRange (self) (maybeToNullable key)))+ +foreign import javascript unsafe "$1[\"get\"]($2)" js_get ::+        IDBIndex -> JSVal -> IO (Nullable IDBRequest)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.get Mozilla IDBIndex.get documentation> +get :: (MonadIO m) => IDBIndex -> JSVal -> m (Maybe IDBRequest)+get self key = liftIO (nullableToMaybe <$> (js_get (self) key))+ +foreign import javascript unsafe "$1[\"getKey\"]($2)"+        js_getKeyRange ::+        IDBIndex -> Nullable IDBKeyRange -> IO (Nullable IDBRequest)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.getKey Mozilla IDBIndex.getKey documentation> +getKeyRange ::+            (MonadIO m) =>+              IDBIndex -> Maybe IDBKeyRange -> m (Maybe IDBRequest)+getKeyRange self key+  = liftIO+      (nullableToMaybe <$> (js_getKeyRange (self) (maybeToNullable key)))+ +foreign import javascript unsafe "$1[\"getKey\"]($2)" js_getKey ::+        IDBIndex -> JSVal -> IO (Nullable IDBRequest)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.getKey Mozilla IDBIndex.getKey documentation> +getKey :: (MonadIO m) => IDBIndex -> JSVal -> m (Maybe IDBRequest)+getKey self key+  = liftIO (nullableToMaybe <$> (js_getKey (self) key))+ +foreign import javascript unsafe "$1[\"count\"]($2)" js_countRange+        :: IDBIndex -> Nullable IDBKeyRange -> IO (Nullable IDBRequest)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.count Mozilla IDBIndex.count documentation> +countRange ::+           (MonadIO m) =>+             IDBIndex -> Maybe IDBKeyRange -> m (Maybe IDBRequest)+countRange self range+  = liftIO+      (nullableToMaybe <$>+         (js_countRange (self) (maybeToNullable range)))+ +foreign import javascript unsafe "$1[\"count\"]($2)" js_count ::+        IDBIndex -> JSVal -> IO (Nullable IDBRequest)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.count Mozilla IDBIndex.count documentation> +count :: (MonadIO m) => IDBIndex -> JSVal -> m (Maybe IDBRequest)+count self key = liftIO (nullableToMaybe <$> (js_count (self) key))+ +foreign import javascript unsafe "$1[\"name\"]" js_getName ::+        IDBIndex -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.name Mozilla IDBIndex.name documentation> +getName :: (MonadIO m, FromJSString result) => IDBIndex -> m result+getName self = liftIO (fromJSString <$> (js_getName (self)))+ +foreign import javascript unsafe "$1[\"objectStore\"]"+        js_getObjectStore :: IDBIndex -> IO (Nullable IDBObjectStore)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.objectStore Mozilla IDBIndex.objectStore documentation> +getObjectStore ::+               (MonadIO m) => IDBIndex -> m (Maybe IDBObjectStore)+getObjectStore self+  = liftIO (nullableToMaybe <$> (js_getObjectStore (self)))+ +foreign import javascript unsafe "$1[\"keyPath\"]" js_getKeyPath ::+        IDBIndex -> IO (Nullable IDBAny)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.keyPath Mozilla IDBIndex.keyPath documentation> +getKeyPath :: (MonadIO m) => IDBIndex -> m (Maybe IDBAny)+getKeyPath self+  = liftIO (nullableToMaybe <$> (js_getKeyPath (self)))+ +foreign import javascript unsafe "($1[\"multiEntry\"] ? 1 : 0)"+        js_getMultiEntry :: IDBIndex -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.multiEntry Mozilla IDBIndex.multiEntry documentation> +getMultiEntry :: (MonadIO m) => IDBIndex -> m Bool+getMultiEntry self = liftIO (js_getMultiEntry (self))+ +foreign import javascript unsafe "($1[\"unique\"] ? 1 : 0)"+        js_getUnique :: IDBIndex -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.unique Mozilla IDBIndex.unique documentation> +getUnique :: (MonadIO m) => IDBIndex -> m Bool+getUnique self = liftIO (js_getUnique (self))
+ src/GHCJS/DOM/JSFFI/Generated/IDBKeyRange.hs view
@@ -0,0 +1,95 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.IDBKeyRange+       (js_only, only, js_lowerBound, lowerBound, js_upperBound,+        upperBound, js_bound, bound, js_getLower, getLower, js_getUpper,+        getUpper, js_getLowerOpen, getLowerOpen, js_getUpperOpen,+        getUpperOpen, IDBKeyRange, castToIDBKeyRange, gTypeIDBKeyRange)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"only\"]($2)" js_only ::+        IDBKeyRange -> JSVal -> IO (Nullable IDBKeyRange)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBKeyRange.only Mozilla IDBKeyRange.only documentation> +only ::+     (MonadIO m) => IDBKeyRange -> JSVal -> m (Maybe IDBKeyRange)+only self value+  = liftIO (nullableToMaybe <$> (js_only (self) value))+ +foreign import javascript unsafe "$1[\"lowerBound\"]($2, $3)"+        js_lowerBound ::+        IDBKeyRange -> JSVal -> Bool -> IO (Nullable IDBKeyRange)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBKeyRange.lowerBound Mozilla IDBKeyRange.lowerBound documentation> +lowerBound ::+           (MonadIO m) =>+             IDBKeyRange -> JSVal -> Bool -> m (Maybe IDBKeyRange)+lowerBound self lower open+  = liftIO (nullableToMaybe <$> (js_lowerBound (self) lower open))+ +foreign import javascript unsafe "$1[\"upperBound\"]($2, $3)"+        js_upperBound ::+        IDBKeyRange -> JSVal -> Bool -> IO (Nullable IDBKeyRange)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBKeyRange.upperBound Mozilla IDBKeyRange.upperBound documentation> +upperBound ::+           (MonadIO m) =>+             IDBKeyRange -> JSVal -> Bool -> m (Maybe IDBKeyRange)+upperBound self upper open+  = liftIO (nullableToMaybe <$> (js_upperBound (self) upper open))+ +foreign import javascript unsafe "$1[\"bound\"]($2, $3, $4, $5)"+        js_bound ::+        IDBKeyRange ->+          JSVal -> JSVal -> Bool -> Bool -> IO (Nullable IDBKeyRange)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBKeyRange.bound Mozilla IDBKeyRange.bound documentation> +bound ::+      (MonadIO m) =>+        IDBKeyRange ->+          JSVal -> JSVal -> Bool -> Bool -> m (Maybe IDBKeyRange)+bound self lower upper lowerOpen upperOpen+  = liftIO+      (nullableToMaybe <$>+         (js_bound (self) lower upper lowerOpen upperOpen))+ +foreign import javascript unsafe "$1[\"lower\"]" js_getLower ::+        IDBKeyRange -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBKeyRange.lower Mozilla IDBKeyRange.lower documentation> +getLower :: (MonadIO m) => IDBKeyRange -> m JSVal+getLower self = liftIO (js_getLower (self))+ +foreign import javascript unsafe "$1[\"upper\"]" js_getUpper ::+        IDBKeyRange -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBKeyRange.upper Mozilla IDBKeyRange.upper documentation> +getUpper :: (MonadIO m) => IDBKeyRange -> m JSVal+getUpper self = liftIO (js_getUpper (self))+ +foreign import javascript unsafe "($1[\"lowerOpen\"] ? 1 : 0)"+        js_getLowerOpen :: IDBKeyRange -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBKeyRange.lowerOpen Mozilla IDBKeyRange.lowerOpen documentation> +getLowerOpen :: (MonadIO m) => IDBKeyRange -> m Bool+getLowerOpen self = liftIO (js_getLowerOpen (self))+ +foreign import javascript unsafe "($1[\"upperOpen\"] ? 1 : 0)"+        js_getUpperOpen :: IDBKeyRange -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBKeyRange.upperOpen Mozilla IDBKeyRange.upperOpen documentation> +getUpperOpen :: (MonadIO m) => IDBKeyRange -> m Bool+getUpperOpen self = liftIO (js_getUpperOpen (self))
+ src/GHCJS/DOM/JSFFI/Generated/IDBObjectStore.hs view
@@ -0,0 +1,241 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.IDBObjectStore+       (js_put, put, js_add, add, js_deleteRange, deleteRange, js_delete,+        delete, js_getRange, getRange, js_get, get, js_clear, clear,+        js_openCursorRange, openCursorRange, js_openCursor, openCursor,+        js_createIndex', createIndex', js_createIndex, createIndex,+        js_index, index, js_deleteIndex, deleteIndex, js_countRange,+        countRange, js_count, count, js_getName, getName, js_getKeyPath,+        getKeyPath, js_getIndexNames, getIndexNames, js_getTransaction,+        getTransaction, js_getAutoIncrement, getAutoIncrement,+        IDBObjectStore, castToIDBObjectStore, gTypeIDBObjectStore)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"put\"]($2, $3)" js_put ::+        IDBObjectStore -> JSVal -> JSVal -> IO (Nullable IDBRequest)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.put Mozilla IDBObjectStore.put documentation> +put ::+    (MonadIO m) =>+      IDBObjectStore -> JSVal -> JSVal -> m (Maybe IDBRequest)+put self value key+  = liftIO (nullableToMaybe <$> (js_put (self) value key))+ +foreign import javascript unsafe "$1[\"add\"]($2, $3)" js_add ::+        IDBObjectStore -> JSVal -> JSVal -> IO (Nullable IDBRequest)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.add Mozilla IDBObjectStore.add documentation> +add ::+    (MonadIO m) =>+      IDBObjectStore -> JSVal -> JSVal -> m (Maybe IDBRequest)+add self value key+  = liftIO (nullableToMaybe <$> (js_add (self) value key))+ +foreign import javascript unsafe "$1[\"delete\"]($2)"+        js_deleteRange ::+        IDBObjectStore -> Nullable IDBKeyRange -> IO (Nullable IDBRequest)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.delete Mozilla IDBObjectStore.delete documentation> +deleteRange ::+            (MonadIO m) =>+              IDBObjectStore -> Maybe IDBKeyRange -> m (Maybe IDBRequest)+deleteRange self keyRange+  = liftIO+      (nullableToMaybe <$>+         (js_deleteRange (self) (maybeToNullable keyRange)))+ +foreign import javascript unsafe "$1[\"delete\"]($2)" js_delete ::+        IDBObjectStore -> JSVal -> IO (Nullable IDBRequest)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.delete Mozilla IDBObjectStore.delete documentation> +delete ::+       (MonadIO m) => IDBObjectStore -> JSVal -> m (Maybe IDBRequest)+delete self key+  = liftIO (nullableToMaybe <$> (js_delete (self) key))+ +foreign import javascript unsafe "$1[\"get\"]($2)" js_getRange ::+        IDBObjectStore -> Nullable IDBKeyRange -> IO (Nullable IDBRequest)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.get Mozilla IDBObjectStore.get documentation> +getRange ::+         (MonadIO m) =>+           IDBObjectStore -> Maybe IDBKeyRange -> m (Maybe IDBRequest)+getRange self key+  = liftIO+      (nullableToMaybe <$> (js_getRange (self) (maybeToNullable key)))+ +foreign import javascript unsafe "$1[\"get\"]($2)" js_get ::+        IDBObjectStore -> JSVal -> IO (Nullable IDBRequest)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.get Mozilla IDBObjectStore.get documentation> +get ::+    (MonadIO m) => IDBObjectStore -> JSVal -> m (Maybe IDBRequest)+get self key = liftIO (nullableToMaybe <$> (js_get (self) key))+ +foreign import javascript unsafe "$1[\"clear\"]()" js_clear ::+        IDBObjectStore -> IO (Nullable IDBRequest)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.clear Mozilla IDBObjectStore.clear documentation> +clear :: (MonadIO m) => IDBObjectStore -> m (Maybe IDBRequest)+clear self = liftIO (nullableToMaybe <$> (js_clear (self)))+ +foreign import javascript unsafe "$1[\"openCursor\"]($2, $3)"+        js_openCursorRange ::+        IDBObjectStore ->+          Nullable IDBKeyRange -> JSString -> IO (Nullable IDBRequest)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.openCursor Mozilla IDBObjectStore.openCursor documentation> +openCursorRange ::+                (MonadIO m, ToJSString direction) =>+                  IDBObjectStore ->+                    Maybe IDBKeyRange -> direction -> m (Maybe IDBRequest)+openCursorRange self range direction+  = liftIO+      (nullableToMaybe <$>+         (js_openCursorRange (self) (maybeToNullable range)+            (toJSString direction)))+ +foreign import javascript unsafe "$1[\"openCursor\"]($2, $3)"+        js_openCursor ::+        IDBObjectStore -> JSVal -> JSString -> IO (Nullable IDBRequest)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.openCursor Mozilla IDBObjectStore.openCursor documentation> +openCursor ::+           (MonadIO m, ToJSString direction) =>+             IDBObjectStore -> JSVal -> direction -> m (Maybe IDBRequest)+openCursor self key direction+  = liftIO+      (nullableToMaybe <$>+         (js_openCursor (self) key (toJSString direction)))+ +foreign import javascript unsafe "$1[\"createIndex\"]($2, $3, $4)"+        js_createIndex' ::+        IDBObjectStore ->+          JSString -> JSVal -> Nullable Dictionary -> IO (Nullable IDBIndex)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.createIndex Mozilla IDBObjectStore.createIndex documentation> +createIndex' ::+             (MonadIO m, ToJSString name, ToJSString keyPath,+              IsDictionary options) =>+               IDBObjectStore ->+                 name -> [keyPath] -> Maybe options -> m (Maybe IDBIndex)+createIndex' self name keyPath options+  = liftIO+      (nullableToMaybe <$>+         (toJSVal keyPath >>=+            \ keyPath' -> js_createIndex' (self) (toJSString name) keyPath'+            (maybeToNullable (fmap toDictionary options))))+ +foreign import javascript unsafe "$1[\"createIndex\"]($2, $3, $4)"+        js_createIndex ::+        IDBObjectStore ->+          JSString ->+            JSString -> Nullable Dictionary -> IO (Nullable IDBIndex)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.createIndex Mozilla IDBObjectStore.createIndex documentation> +createIndex ::+            (MonadIO m, ToJSString name, ToJSString keyPath,+             IsDictionary options) =>+              IDBObjectStore ->+                name -> keyPath -> Maybe options -> m (Maybe IDBIndex)+createIndex self name keyPath options+  = liftIO+      (nullableToMaybe <$>+         (js_createIndex (self) (toJSString name) (toJSString keyPath)+            (maybeToNullable (fmap toDictionary options))))+ +foreign import javascript unsafe "$1[\"index\"]($2)" js_index ::+        IDBObjectStore -> JSString -> IO (Nullable IDBIndex)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.index Mozilla IDBObjectStore.index documentation> +index ::+      (MonadIO m, ToJSString name) =>+        IDBObjectStore -> name -> m (Maybe IDBIndex)+index self name+  = liftIO (nullableToMaybe <$> (js_index (self) (toJSString name)))+ +foreign import javascript unsafe "$1[\"deleteIndex\"]($2)"+        js_deleteIndex :: IDBObjectStore -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.deleteIndex Mozilla IDBObjectStore.deleteIndex documentation> +deleteIndex ::+            (MonadIO m, ToJSString name) => IDBObjectStore -> name -> m ()+deleteIndex self name+  = liftIO (js_deleteIndex (self) (toJSString name))+ +foreign import javascript unsafe "$1[\"count\"]($2)" js_countRange+        ::+        IDBObjectStore -> Nullable IDBKeyRange -> IO (Nullable IDBRequest)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.count Mozilla IDBObjectStore.count documentation> +countRange ::+           (MonadIO m) =>+             IDBObjectStore -> Maybe IDBKeyRange -> m (Maybe IDBRequest)+countRange self range+  = liftIO+      (nullableToMaybe <$>+         (js_countRange (self) (maybeToNullable range)))+ +foreign import javascript unsafe "$1[\"count\"]($2)" js_count ::+        IDBObjectStore -> JSVal -> IO (Nullable IDBRequest)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.count Mozilla IDBObjectStore.count documentation> +count ::+      (MonadIO m) => IDBObjectStore -> JSVal -> m (Maybe IDBRequest)+count self key = liftIO (nullableToMaybe <$> (js_count (self) key))+ +foreign import javascript unsafe "$1[\"name\"]" js_getName ::+        IDBObjectStore -> IO (Nullable JSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.name Mozilla IDBObjectStore.name documentation> +getName ::+        (MonadIO m, FromJSString result) =>+          IDBObjectStore -> m (Maybe result)+getName self = liftIO (fromMaybeJSString <$> (js_getName (self)))+ +foreign import javascript unsafe "$1[\"keyPath\"]" js_getKeyPath ::+        IDBObjectStore -> IO (Nullable IDBAny)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.keyPath Mozilla IDBObjectStore.keyPath documentation> +getKeyPath :: (MonadIO m) => IDBObjectStore -> m (Maybe IDBAny)+getKeyPath self+  = liftIO (nullableToMaybe <$> (js_getKeyPath (self)))+ +foreign import javascript unsafe "$1[\"indexNames\"]"+        js_getIndexNames :: IDBObjectStore -> IO (Nullable DOMStringList)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.indexNames Mozilla IDBObjectStore.indexNames documentation> +getIndexNames ::+              (MonadIO m) => IDBObjectStore -> m (Maybe DOMStringList)+getIndexNames self+  = liftIO (nullableToMaybe <$> (js_getIndexNames (self)))+ +foreign import javascript unsafe "$1[\"transaction\"]"+        js_getTransaction :: IDBObjectStore -> IO (Nullable IDBTransaction)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.transaction Mozilla IDBObjectStore.transaction documentation> +getTransaction ::+               (MonadIO m) => IDBObjectStore -> m (Maybe IDBTransaction)+getTransaction self+  = liftIO (nullableToMaybe <$> (js_getTransaction (self)))+ +foreign import javascript unsafe "($1[\"autoIncrement\"] ? 1 : 0)"+        js_getAutoIncrement :: IDBObjectStore -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.autoIncrement Mozilla IDBObjectStore.autoIncrement documentation> +getAutoIncrement :: (MonadIO m) => IDBObjectStore -> m Bool+getAutoIncrement self = liftIO (js_getAutoIncrement (self))
+ src/GHCJS/DOM/JSFFI/Generated/IDBOpenDBRequest.hs view
@@ -0,0 +1,27 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.IDBOpenDBRequest+       (blocked, upgradeNeeded, IDBOpenDBRequest, castToIDBOpenDBRequest,+        gTypeIDBOpenDBRequest)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBOpenDBRequest.onblocked Mozilla IDBOpenDBRequest.onblocked documentation> +blocked :: EventName IDBOpenDBRequest IDBVersionChangeEvent+blocked = unsafeEventName (toJSString "blocked")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBOpenDBRequest.onupgradeneeded Mozilla IDBOpenDBRequest.onupgradeneeded documentation> +upgradeNeeded :: EventName IDBOpenDBRequest IDBVersionChangeEvent+upgradeNeeded = unsafeEventName (toJSString "upgradeneeded")
+ src/GHCJS/DOM/JSFFI/Generated/IDBRequest.hs view
@@ -0,0 +1,78 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.IDBRequest+       (js_getResult, getResult, js_getError, getError, js_getSource,+        getSource, js_getTransaction, getTransaction, js_getReadyState,+        getReadyState, success, error, IDBRequest, castToIDBRequest,+        gTypeIDBRequest, IsIDBRequest, toIDBRequest)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"result\"]" js_getResult ::+        IDBRequest -> IO (Nullable IDBAny)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBRequest.result Mozilla IDBRequest.result documentation> +getResult ::+          (MonadIO m, IsIDBRequest self) => self -> m (Maybe IDBAny)+getResult self+  = liftIO (nullableToMaybe <$> (js_getResult (toIDBRequest self)))+ +foreign import javascript unsafe "$1[\"error\"]" js_getError ::+        IDBRequest -> IO (Nullable DOMError)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBRequest.error Mozilla IDBRequest.error documentation> +getError ::+         (MonadIO m, IsIDBRequest self) => self -> m (Maybe DOMError)+getError self+  = liftIO (nullableToMaybe <$> (js_getError (toIDBRequest self)))+ +foreign import javascript unsafe "$1[\"source\"]" js_getSource ::+        IDBRequest -> IO (Nullable IDBAny)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBRequest.source Mozilla IDBRequest.source documentation> +getSource ::+          (MonadIO m, IsIDBRequest self) => self -> m (Maybe IDBAny)+getSource self+  = liftIO (nullableToMaybe <$> (js_getSource (toIDBRequest self)))+ +foreign import javascript unsafe "$1[\"transaction\"]"+        js_getTransaction :: IDBRequest -> IO (Nullable IDBTransaction)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBRequest.transaction Mozilla IDBRequest.transaction documentation> +getTransaction ::+               (MonadIO m, IsIDBRequest self) => self -> m (Maybe IDBTransaction)+getTransaction self+  = liftIO+      (nullableToMaybe <$> (js_getTransaction (toIDBRequest self)))+ +foreign import javascript unsafe "$1[\"readyState\"]"+        js_getReadyState :: IDBRequest -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBRequest.readyState Mozilla IDBRequest.readyState documentation> +getReadyState ::+              (MonadIO m, IsIDBRequest self, FromJSString result) =>+                self -> m result+getReadyState self+  = liftIO (fromJSString <$> (js_getReadyState (toIDBRequest self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBRequest.onsuccess Mozilla IDBRequest.onsuccess documentation> +success ::+        (IsIDBRequest self, IsEventTarget self) => EventName self Event+success = unsafeEventName (toJSString "success")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBRequest.onerror Mozilla IDBRequest.onerror documentation> +error ::+      (IsIDBRequest self, IsEventTarget self) => EventName self Event+error = unsafeEventName (toJSString "error")
+ src/GHCJS/DOM/JSFFI/Generated/IDBTransaction.hs view
@@ -0,0 +1,73 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.IDBTransaction+       (js_objectStore, objectStore, js_abort, abort, js_getMode, getMode,+        js_getDb, getDb, js_getError, getError, abortEvent, complete,+        error, IDBTransaction, castToIDBTransaction, gTypeIDBTransaction)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"objectStore\"]($2)"+        js_objectStore ::+        IDBTransaction -> JSString -> IO (Nullable IDBObjectStore)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBTransaction.objectStore Mozilla IDBTransaction.objectStore documentation> +objectStore ::+            (MonadIO m, ToJSString name) =>+              IDBTransaction -> name -> m (Maybe IDBObjectStore)+objectStore self name+  = liftIO+      (nullableToMaybe <$> (js_objectStore (self) (toJSString name)))+ +foreign import javascript unsafe "$1[\"abort\"]()" js_abort ::+        IDBTransaction -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBTransaction.abort Mozilla IDBTransaction.abort documentation> +abort :: (MonadIO m) => IDBTransaction -> m ()+abort self = liftIO (js_abort (self))+ +foreign import javascript unsafe "$1[\"mode\"]" js_getMode ::+        IDBTransaction -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBTransaction.mode Mozilla IDBTransaction.mode documentation> +getMode ::+        (MonadIO m, FromJSString result) => IDBTransaction -> m result+getMode self = liftIO (fromJSString <$> (js_getMode (self)))+ +foreign import javascript unsafe "$1[\"db\"]" js_getDb ::+        IDBTransaction -> IO (Nullable IDBDatabase)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBTransaction.db Mozilla IDBTransaction.db documentation> +getDb :: (MonadIO m) => IDBTransaction -> m (Maybe IDBDatabase)+getDb self = liftIO (nullableToMaybe <$> (js_getDb (self)))+ +foreign import javascript unsafe "$1[\"error\"]" js_getError ::+        IDBTransaction -> IO (Nullable DOMError)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBTransaction.error Mozilla IDBTransaction.error documentation> +getError :: (MonadIO m) => IDBTransaction -> m (Maybe DOMError)+getError self = liftIO (nullableToMaybe <$> (js_getError (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBTransaction.onabort Mozilla IDBTransaction.onabort documentation> +abortEvent :: EventName IDBTransaction Event+abortEvent = unsafeEventName (toJSString "abort")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBTransaction.oncomplete Mozilla IDBTransaction.oncomplete documentation> +complete :: EventName IDBTransaction Event+complete = unsafeEventName (toJSString "complete")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBTransaction.onerror Mozilla IDBTransaction.onerror documentation> +error :: EventName IDBTransaction Event+error = unsafeEventName (toJSString "error")
+ src/GHCJS/DOM/JSFFI/Generated/IDBVersionChangeEvent.hs view
@@ -0,0 +1,37 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.IDBVersionChangeEvent+       (js_getOldVersion, getOldVersion, js_getNewVersion, getNewVersion,+        IDBVersionChangeEvent, castToIDBVersionChangeEvent,+        gTypeIDBVersionChangeEvent)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"oldVersion\"]"+        js_getOldVersion :: IDBVersionChangeEvent -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBVersionChangeEvent.oldVersion Mozilla IDBVersionChangeEvent.oldVersion documentation> +getOldVersion :: (MonadIO m) => IDBVersionChangeEvent -> m Word64+getOldVersion self = liftIO (round <$> (js_getOldVersion (self)))+ +foreign import javascript unsafe "$1[\"newVersion\"]"+        js_getNewVersion :: IDBVersionChangeEvent -> IO (Nullable Double)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBVersionChangeEvent.newVersion Mozilla IDBVersionChangeEvent.newVersion documentation> +getNewVersion ::+              (MonadIO m) => IDBVersionChangeEvent -> m (Maybe Word64)+getNewVersion self+  = liftIO+      (fmap round . nullableToMaybe <$> (js_getNewVersion (self)))
+ src/GHCJS/DOM/JSFFI/Generated/ImageData.hs view
@@ -0,0 +1,56 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.ImageData+       (js_newImageData, newImageData, js_newImageData', newImageData',+        js_getWidth, getWidth, js_getHeight, getHeight, ImageData,+        castToImageData, gTypeImageData)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe+        "new window[\"ImageData\"]($1, $2,\n$3)" js_newImageData ::+        Nullable Uint8ClampedArray -> Word -> Word -> IO ImageData++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ImageData Mozilla ImageData documentation> +newImageData ::+             (MonadIO m, IsUint8ClampedArray data') =>+               Maybe data' -> Word -> Word -> m ImageData+newImageData data' sw sh+  = liftIO+      (js_newImageData (maybeToNullable (fmap toUint8ClampedArray data'))+         sw+         sh)+ +foreign import javascript unsafe+        "new window[\"ImageData\"]($1, $2)" js_newImageData' ::+        Word -> Word -> IO ImageData++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ImageData Mozilla ImageData documentation> +newImageData' :: (MonadIO m) => Word -> Word -> m ImageData+newImageData' sw sh = liftIO (js_newImageData' sw sh)+ +foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::+        ImageData -> IO Int++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ImageData.width Mozilla ImageData.width documentation> +getWidth :: (MonadIO m) => ImageData -> m Int+getWidth self = liftIO (js_getWidth (self))+ +foreign import javascript unsafe "$1[\"height\"]" js_getHeight ::+        ImageData -> IO Int++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ImageData.height Mozilla ImageData.height documentation> +getHeight :: (MonadIO m) => ImageData -> m Int+getHeight self = liftIO (js_getHeight (self))
+ src/GHCJS/DOM/JSFFI/Generated/InspectorFrontendHost.hs view
@@ -0,0 +1,294 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.InspectorFrontendHost+       (js_loaded, loaded, js_closeWindow, closeWindow, js_bringToFront,+        bringToFront, js_setZoomFactor, setZoomFactor,+        js_inspectedURLChanged, inspectedURLChanged, js_requestSetDockSide,+        requestSetDockSide, js_setAttachedWindowHeight,+        setAttachedWindowHeight, js_setAttachedWindowWidth,+        setAttachedWindowWidth, js_setToolbarHeight, setToolbarHeight,+        js_moveWindowBy, moveWindowBy, js_localizedStringsURL,+        localizedStringsURL, js_debuggableType, debuggableType,+        js_copyText, copyText, js_openInNewTab, openInNewTab, js_canSave,+        canSave, js_save, save, js_append, append, js_close, close,+        js_platform, platform, js_port, port, js_showContextMenu,+        showContextMenu, js_dispatchEventAsContextMenuEvent,+        dispatchEventAsContextMenuEvent, js_sendMessageToBackend,+        sendMessageToBackend, js_unbufferedLog, unbufferedLog,+        js_isUnderTest, isUnderTest, js_beep, beep, js_canInspectWorkers,+        canInspectWorkers, js_canSaveAs, canSaveAs, InspectorFrontendHost,+        castToInspectorFrontendHost, gTypeInspectorFrontendHost)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"loaded\"]()" js_loaded ::+        InspectorFrontendHost -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.loaded Mozilla InspectorFrontendHost.loaded documentation> +loaded :: (MonadIO m) => InspectorFrontendHost -> m ()+loaded self = liftIO (js_loaded (self))+ +foreign import javascript unsafe "$1[\"closeWindow\"]()"+        js_closeWindow :: InspectorFrontendHost -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.closeWindow Mozilla InspectorFrontendHost.closeWindow documentation> +closeWindow :: (MonadIO m) => InspectorFrontendHost -> m ()+closeWindow self = liftIO (js_closeWindow (self))+ +foreign import javascript unsafe "$1[\"bringToFront\"]()"+        js_bringToFront :: InspectorFrontendHost -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.bringToFront Mozilla InspectorFrontendHost.bringToFront documentation> +bringToFront :: (MonadIO m) => InspectorFrontendHost -> m ()+bringToFront self = liftIO (js_bringToFront (self))+ +foreign import javascript unsafe "$1[\"setZoomFactor\"]($2)"+        js_setZoomFactor :: InspectorFrontendHost -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.setZoomFactor Mozilla InspectorFrontendHost.setZoomFactor documentation> +setZoomFactor ::+              (MonadIO m) => InspectorFrontendHost -> Float -> m ()+setZoomFactor self zoom = liftIO (js_setZoomFactor (self) zoom)+ +foreign import javascript unsafe "$1[\"inspectedURLChanged\"]($2)"+        js_inspectedURLChanged ::+        InspectorFrontendHost -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.inspectedURLChanged Mozilla InspectorFrontendHost.inspectedURLChanged documentation> +inspectedURLChanged ::+                    (MonadIO m, ToJSString newURL) =>+                      InspectorFrontendHost -> newURL -> m ()+inspectedURLChanged self newURL+  = liftIO (js_inspectedURLChanged (self) (toJSString newURL))+ +foreign import javascript unsafe "$1[\"requestSetDockSide\"]($2)"+        js_requestSetDockSide :: InspectorFrontendHost -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.requestSetDockSide Mozilla InspectorFrontendHost.requestSetDockSide documentation> +requestSetDockSide ::+                   (MonadIO m, ToJSString side) =>+                     InspectorFrontendHost -> side -> m ()+requestSetDockSide self side+  = liftIO (js_requestSetDockSide (self) (toJSString side))+ +foreign import javascript unsafe+        "$1[\"setAttachedWindowHeight\"]($2)" js_setAttachedWindowHeight ::+        InspectorFrontendHost -> Word -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.setAttachedWindowHeight Mozilla InspectorFrontendHost.setAttachedWindowHeight documentation> +setAttachedWindowHeight ::+                        (MonadIO m) => InspectorFrontendHost -> Word -> m ()+setAttachedWindowHeight self height+  = liftIO (js_setAttachedWindowHeight (self) height)+ +foreign import javascript unsafe+        "$1[\"setAttachedWindowWidth\"]($2)" js_setAttachedWindowWidth ::+        InspectorFrontendHost -> Word -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.setAttachedWindowWidth Mozilla InspectorFrontendHost.setAttachedWindowWidth documentation> +setAttachedWindowWidth ::+                       (MonadIO m) => InspectorFrontendHost -> Word -> m ()+setAttachedWindowWidth self width+  = liftIO (js_setAttachedWindowWidth (self) width)+ +foreign import javascript unsafe "$1[\"setToolbarHeight\"]($2)"+        js_setToolbarHeight :: InspectorFrontendHost -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.setToolbarHeight Mozilla InspectorFrontendHost.setToolbarHeight documentation> +setToolbarHeight ::+                 (MonadIO m) => InspectorFrontendHost -> Float -> m ()+setToolbarHeight self height+  = liftIO (js_setToolbarHeight (self) height)+ +foreign import javascript unsafe "$1[\"moveWindowBy\"]($2, $3)"+        js_moveWindowBy :: InspectorFrontendHost -> Float -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.moveWindowBy Mozilla InspectorFrontendHost.moveWindowBy documentation> +moveWindowBy ::+             (MonadIO m) => InspectorFrontendHost -> Float -> Float -> m ()+moveWindowBy self x y = liftIO (js_moveWindowBy (self) x y)+ +foreign import javascript unsafe "$1[\"localizedStringsURL\"]()"+        js_localizedStringsURL :: InspectorFrontendHost -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.localizedStringsURL Mozilla InspectorFrontendHost.localizedStringsURL documentation> +localizedStringsURL ::+                    (MonadIO m, FromJSString result) =>+                      InspectorFrontendHost -> m result+localizedStringsURL self+  = liftIO (fromJSString <$> (js_localizedStringsURL (self)))+ +foreign import javascript unsafe "$1[\"debuggableType\"]()"+        js_debuggableType :: InspectorFrontendHost -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.debuggableType Mozilla InspectorFrontendHost.debuggableType documentation> +debuggableType ::+               (MonadIO m, FromJSString result) =>+                 InspectorFrontendHost -> m result+debuggableType self+  = liftIO (fromJSString <$> (js_debuggableType (self)))+ +foreign import javascript unsafe "$1[\"copyText\"]($2)" js_copyText+        :: InspectorFrontendHost -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.copyText Mozilla InspectorFrontendHost.copyText documentation> +copyText ::+         (MonadIO m, ToJSString text) =>+           InspectorFrontendHost -> text -> m ()+copyText self text = liftIO (js_copyText (self) (toJSString text))+ +foreign import javascript unsafe "$1[\"openInNewTab\"]($2)"+        js_openInNewTab :: InspectorFrontendHost -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.openInNewTab Mozilla InspectorFrontendHost.openInNewTab documentation> +openInNewTab ::+             (MonadIO m, ToJSString url) => InspectorFrontendHost -> url -> m ()+openInNewTab self url+  = liftIO (js_openInNewTab (self) (toJSString url))+ +foreign import javascript unsafe "($1[\"canSave\"]() ? 1 : 0)"+        js_canSave :: InspectorFrontendHost -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.canSave Mozilla InspectorFrontendHost.canSave documentation> +canSave :: (MonadIO m) => InspectorFrontendHost -> m Bool+canSave self = liftIO (js_canSave (self))+ +foreign import javascript unsafe "$1[\"save\"]($2, $3, $4, $5)"+        js_save ::+        InspectorFrontendHost ->+          JSString -> JSString -> Bool -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.save Mozilla InspectorFrontendHost.save documentation> +save ::+     (MonadIO m, ToJSString url, ToJSString content) =>+       InspectorFrontendHost -> url -> content -> Bool -> Bool -> m ()+save self url content base64Encoded forceSaveAs+  = liftIO+      (js_save (self) (toJSString url) (toJSString content) base64Encoded+         forceSaveAs)+ +foreign import javascript unsafe "$1[\"append\"]($2, $3)" js_append+        :: InspectorFrontendHost -> JSString -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.append Mozilla InspectorFrontendHost.append documentation> +append ::+       (MonadIO m, ToJSString url, ToJSString content) =>+         InspectorFrontendHost -> url -> content -> m ()+append self url content+  = liftIO (js_append (self) (toJSString url) (toJSString content))+ +foreign import javascript unsafe "$1[\"close\"]($2)" js_close ::+        InspectorFrontendHost -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.close Mozilla InspectorFrontendHost.close documentation> +close ::+      (MonadIO m, ToJSString url) => InspectorFrontendHost -> url -> m ()+close self url = liftIO (js_close (self) (toJSString url))+ +foreign import javascript unsafe "$1[\"platform\"]()" js_platform+        :: InspectorFrontendHost -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.platform Mozilla InspectorFrontendHost.platform documentation> +platform ::+         (MonadIO m, FromJSString result) =>+           InspectorFrontendHost -> m result+platform self = liftIO (fromJSString <$> (js_platform (self)))+ +foreign import javascript unsafe "$1[\"port\"]()" js_port ::+        InspectorFrontendHost -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.port Mozilla InspectorFrontendHost.port documentation> +port ::+     (MonadIO m, FromJSString result) =>+       InspectorFrontendHost -> m result+port self = liftIO (fromJSString <$> (js_port (self)))+ +foreign import javascript unsafe "$1[\"showContextMenu\"]($2, $3)"+        js_showContextMenu ::+        InspectorFrontendHost -> Nullable MouseEvent -> JSVal -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.showContextMenu Mozilla InspectorFrontendHost.showContextMenu documentation> +showContextMenu ::+                (MonadIO m, IsMouseEvent event) =>+                  InspectorFrontendHost -> Maybe event -> JSVal -> m ()+showContextMenu self event items+  = liftIO+      (js_showContextMenu (self)+         (maybeToNullable (fmap toMouseEvent event))+         items)+ +foreign import javascript unsafe+        "$1[\"dispatchEventAsContextMenuEvent\"]($2)"+        js_dispatchEventAsContextMenuEvent ::+        InspectorFrontendHost -> Nullable Event -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.dispatchEventAsContextMenuEvent Mozilla InspectorFrontendHost.dispatchEventAsContextMenuEvent documentation> +dispatchEventAsContextMenuEvent ::+                                (MonadIO m, IsEvent event) =>+                                  InspectorFrontendHost -> Maybe event -> m ()+dispatchEventAsContextMenuEvent self event+  = liftIO+      (js_dispatchEventAsContextMenuEvent (self)+         (maybeToNullable (fmap toEvent event)))+ +foreign import javascript unsafe "$1[\"sendMessageToBackend\"]($2)"+        js_sendMessageToBackend ::+        InspectorFrontendHost -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.sendMessageToBackend Mozilla InspectorFrontendHost.sendMessageToBackend documentation> +sendMessageToBackend ::+                     (MonadIO m, ToJSString message) =>+                       InspectorFrontendHost -> message -> m ()+sendMessageToBackend self message+  = liftIO (js_sendMessageToBackend (self) (toJSString message))+ +foreign import javascript unsafe "$1[\"unbufferedLog\"]($2)"+        js_unbufferedLog :: InspectorFrontendHost -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.unbufferedLog Mozilla InspectorFrontendHost.unbufferedLog documentation> +unbufferedLog ::+              (MonadIO m, ToJSString message) =>+                InspectorFrontendHost -> message -> m ()+unbufferedLog self message+  = liftIO (js_unbufferedLog (self) (toJSString message))+ +foreign import javascript unsafe "($1[\"isUnderTest\"]() ? 1 : 0)"+        js_isUnderTest :: InspectorFrontendHost -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.isUnderTest Mozilla InspectorFrontendHost.isUnderTest documentation> +isUnderTest :: (MonadIO m) => InspectorFrontendHost -> m Bool+isUnderTest self = liftIO (js_isUnderTest (self))+ +foreign import javascript unsafe "$1[\"beep\"]()" js_beep ::+        InspectorFrontendHost -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.beep Mozilla InspectorFrontendHost.beep documentation> +beep :: (MonadIO m) => InspectorFrontendHost -> m ()+beep self = liftIO (js_beep (self))+ +foreign import javascript unsafe+        "($1[\"canInspectWorkers\"]() ? 1 : 0)" js_canInspectWorkers ::+        InspectorFrontendHost -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.canInspectWorkers Mozilla InspectorFrontendHost.canInspectWorkers documentation> +canInspectWorkers :: (MonadIO m) => InspectorFrontendHost -> m Bool+canInspectWorkers self = liftIO (js_canInspectWorkers (self))+ +foreign import javascript unsafe "($1[\"canSaveAs\"]() ? 1 : 0)"+        js_canSaveAs :: InspectorFrontendHost -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.canSaveAs Mozilla InspectorFrontendHost.canSaveAs documentation> +canSaveAs :: (MonadIO m) => InspectorFrontendHost -> m Bool+canSaveAs self = liftIO (js_canSaveAs (self))
+ src/GHCJS/DOM/JSFFI/Generated/InternalSettings.hs view
@@ -0,0 +1,398 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.InternalSettings+       (js_setTouchEventEmulationEnabled, setTouchEventEmulationEnabled,+        js_setStandardFontFamily, setStandardFontFamily,+        js_setSerifFontFamily, setSerifFontFamily,+        js_setSansSerifFontFamily, setSansSerifFontFamily,+        js_setFixedFontFamily, setFixedFontFamily, js_setCursiveFontFamily,+        setCursiveFontFamily, js_setFantasyFontFamily,+        setFantasyFontFamily, js_setPictographFontFamily,+        setPictographFontFamily, js_setFontFallbackPrefersPictographs,+        setFontFallbackPrefersPictographs, js_setTextAutosizingEnabled,+        setTextAutosizingEnabled, js_setTextAutosizingWindowSizeOverride,+        setTextAutosizingWindowSizeOverride,+        js_setTextAutosizingFontScaleFactor,+        setTextAutosizingFontScaleFactor, js_setCSSShapesEnabled,+        setCSSShapesEnabled, js_setCanStartMedia, setCanStartMedia,+        js_setShouldDisplayTrackKind, setShouldDisplayTrackKind,+        js_shouldDisplayTrackKind, shouldDisplayTrackKind,+        js_setDefaultVideoPosterURL, setDefaultVideoPosterURL,+        js_setTimeWithoutMouseMovementBeforeHidingControls,+        setTimeWithoutMouseMovementBeforeHidingControls,+        js_setMediaTypeOverride, setMediaTypeOverride,+        js_setPluginReplacementEnabled, setPluginReplacementEnabled,+        js_setEditingBehavior, setEditingBehavior,+        js_setShouldConvertPositionStyleOnCopy,+        setShouldConvertPositionStyleOnCopy,+        js_setLangAttributeAwareFormControlUIEnabled,+        setLangAttributeAwareFormControlUIEnabled,+        js_setStorageBlockingPolicy, setStorageBlockingPolicy,+        js_setImagesEnabled, setImagesEnabled,+        js_setUseLegacyBackgroundSizeShorthandBehavior,+        setUseLegacyBackgroundSizeShorthandBehavior,+        js_setAutoscrollForDragAndDropEnabled,+        setAutoscrollForDragAndDropEnabled,+        js_setBackgroundShouldExtendBeyondPage,+        setBackgroundShouldExtendBeyondPage,+        js_setScrollingTreeIncludesFrames, setScrollingTreeIncludesFrames,+        js_setMinimumTimerInterval, setMinimumTimerInterval,+        InternalSettings, castToInternalSettings, gTypeInternalSettings)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe+        "$1[\"setTouchEventEmulationEnabled\"]($2)"+        js_setTouchEventEmulationEnabled ::+        InternalSettings -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setTouchEventEmulationEnabled Mozilla InternalSettings.setTouchEventEmulationEnabled documentation> +setTouchEventEmulationEnabled ::+                              (MonadIO m) => InternalSettings -> Bool -> m ()+setTouchEventEmulationEnabled self enabled+  = liftIO (js_setTouchEventEmulationEnabled (self) enabled)+ +foreign import javascript unsafe+        "$1[\"setStandardFontFamily\"]($2,\n$3)" js_setStandardFontFamily+        :: InternalSettings -> JSString -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setStandardFontFamily Mozilla InternalSettings.setStandardFontFamily documentation> +setStandardFontFamily ::+                      (MonadIO m, ToJSString family', ToJSString script) =>+                        InternalSettings -> family' -> script -> m ()+setStandardFontFamily self family' script+  = liftIO+      (js_setStandardFontFamily (self) (toJSString family')+         (toJSString script))+ +foreign import javascript unsafe+        "$1[\"setSerifFontFamily\"]($2, $3)" js_setSerifFontFamily ::+        InternalSettings -> JSString -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setSerifFontFamily Mozilla InternalSettings.setSerifFontFamily documentation> +setSerifFontFamily ::+                   (MonadIO m, ToJSString family', ToJSString script) =>+                     InternalSettings -> family' -> script -> m ()+setSerifFontFamily self family' script+  = liftIO+      (js_setSerifFontFamily (self) (toJSString family')+         (toJSString script))+ +foreign import javascript unsafe+        "$1[\"setSansSerifFontFamily\"]($2,\n$3)" js_setSansSerifFontFamily+        :: InternalSettings -> JSString -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setSansSerifFontFamily Mozilla InternalSettings.setSansSerifFontFamily documentation> +setSansSerifFontFamily ::+                       (MonadIO m, ToJSString family', ToJSString script) =>+                         InternalSettings -> family' -> script -> m ()+setSansSerifFontFamily self family' script+  = liftIO+      (js_setSansSerifFontFamily (self) (toJSString family')+         (toJSString script))+ +foreign import javascript unsafe+        "$1[\"setFixedFontFamily\"]($2, $3)" js_setFixedFontFamily ::+        InternalSettings -> JSString -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setFixedFontFamily Mozilla InternalSettings.setFixedFontFamily documentation> +setFixedFontFamily ::+                   (MonadIO m, ToJSString family', ToJSString script) =>+                     InternalSettings -> family' -> script -> m ()+setFixedFontFamily self family' script+  = liftIO+      (js_setFixedFontFamily (self) (toJSString family')+         (toJSString script))+ +foreign import javascript unsafe+        "$1[\"setCursiveFontFamily\"]($2,\n$3)" js_setCursiveFontFamily ::+        InternalSettings -> JSString -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setCursiveFontFamily Mozilla InternalSettings.setCursiveFontFamily documentation> +setCursiveFontFamily ::+                     (MonadIO m, ToJSString family', ToJSString script) =>+                       InternalSettings -> family' -> script -> m ()+setCursiveFontFamily self family' script+  = liftIO+      (js_setCursiveFontFamily (self) (toJSString family')+         (toJSString script))+ +foreign import javascript unsafe+        "$1[\"setFantasyFontFamily\"]($2,\n$3)" js_setFantasyFontFamily ::+        InternalSettings -> JSString -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setFantasyFontFamily Mozilla InternalSettings.setFantasyFontFamily documentation> +setFantasyFontFamily ::+                     (MonadIO m, ToJSString family', ToJSString script) =>+                       InternalSettings -> family' -> script -> m ()+setFantasyFontFamily self family' script+  = liftIO+      (js_setFantasyFontFamily (self) (toJSString family')+         (toJSString script))+ +foreign import javascript unsafe+        "$1[\"setPictographFontFamily\"]($2,\n$3)"+        js_setPictographFontFamily ::+        InternalSettings -> JSString -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setPictographFontFamily Mozilla InternalSettings.setPictographFontFamily documentation> +setPictographFontFamily ::+                        (MonadIO m, ToJSString family', ToJSString script) =>+                          InternalSettings -> family' -> script -> m ()+setPictographFontFamily self family' script+  = liftIO+      (js_setPictographFontFamily (self) (toJSString family')+         (toJSString script))+ +foreign import javascript unsafe+        "$1[\"setFontFallbackPrefersPictographs\"]($2)"+        js_setFontFallbackPrefersPictographs ::+        InternalSettings -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setFontFallbackPrefersPictographs Mozilla InternalSettings.setFontFallbackPrefersPictographs documentation> +setFontFallbackPrefersPictographs ::+                                  (MonadIO m) => InternalSettings -> Bool -> m ()+setFontFallbackPrefersPictographs self preferPictographs+  = liftIO+      (js_setFontFallbackPrefersPictographs (self) preferPictographs)+ +foreign import javascript unsafe+        "$1[\"setTextAutosizingEnabled\"]($2)" js_setTextAutosizingEnabled+        :: InternalSettings -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setTextAutosizingEnabled Mozilla InternalSettings.setTextAutosizingEnabled documentation> +setTextAutosizingEnabled ::+                         (MonadIO m) => InternalSettings -> Bool -> m ()+setTextAutosizingEnabled self enabled+  = liftIO (js_setTextAutosizingEnabled (self) enabled)+ +foreign import javascript unsafe+        "$1[\"setTextAutosizingWindowSizeOverride\"]($2,\n$3)"+        js_setTextAutosizingWindowSizeOverride ::+        InternalSettings -> Int -> Int -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setTextAutosizingWindowSizeOverride Mozilla InternalSettings.setTextAutosizingWindowSizeOverride documentation> +setTextAutosizingWindowSizeOverride ::+                                    (MonadIO m) => InternalSettings -> Int -> Int -> m ()+setTextAutosizingWindowSizeOverride self width height+  = liftIO+      (js_setTextAutosizingWindowSizeOverride (self) width height)+ +foreign import javascript unsafe+        "$1[\"setTextAutosizingFontScaleFactor\"]($2)"+        js_setTextAutosizingFontScaleFactor ::+        InternalSettings -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setTextAutosizingFontScaleFactor Mozilla InternalSettings.setTextAutosizingFontScaleFactor documentation> +setTextAutosizingFontScaleFactor ::+                                 (MonadIO m) => InternalSettings -> Float -> m ()+setTextAutosizingFontScaleFactor self fontScaleFactor+  = liftIO+      (js_setTextAutosizingFontScaleFactor (self) fontScaleFactor)+ +foreign import javascript unsafe "$1[\"setCSSShapesEnabled\"]($2)"+        js_setCSSShapesEnabled :: InternalSettings -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setCSSShapesEnabled Mozilla InternalSettings.setCSSShapesEnabled documentation> +setCSSShapesEnabled ::+                    (MonadIO m) => InternalSettings -> Bool -> m ()+setCSSShapesEnabled self enabled+  = liftIO (js_setCSSShapesEnabled (self) enabled)+ +foreign import javascript unsafe "$1[\"setCanStartMedia\"]($2)"+        js_setCanStartMedia :: InternalSettings -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setCanStartMedia Mozilla InternalSettings.setCanStartMedia documentation> +setCanStartMedia :: (MonadIO m) => InternalSettings -> Bool -> m ()+setCanStartMedia self enabled+  = liftIO (js_setCanStartMedia (self) enabled)+ +foreign import javascript unsafe+        "$1[\"setShouldDisplayTrackKind\"]($2,\n$3)"+        js_setShouldDisplayTrackKind ::+        InternalSettings -> JSString -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setShouldDisplayTrackKind Mozilla InternalSettings.setShouldDisplayTrackKind documentation> +setShouldDisplayTrackKind ::+                          (MonadIO m, ToJSString kind) =>+                            InternalSettings -> kind -> Bool -> m ()+setShouldDisplayTrackKind self kind enabled+  = liftIO+      (js_setShouldDisplayTrackKind (self) (toJSString kind) enabled)+ +foreign import javascript unsafe+        "($1[\"shouldDisplayTrackKind\"]($2) ? 1 : 0)"+        js_shouldDisplayTrackKind ::+        InternalSettings -> JSString -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.shouldDisplayTrackKind Mozilla InternalSettings.shouldDisplayTrackKind documentation> +shouldDisplayTrackKind ::+                       (MonadIO m, ToJSString trackKind) =>+                         InternalSettings -> trackKind -> m Bool+shouldDisplayTrackKind self trackKind+  = liftIO (js_shouldDisplayTrackKind (self) (toJSString trackKind))+ +foreign import javascript unsafe+        "$1[\"setDefaultVideoPosterURL\"]($2)" js_setDefaultVideoPosterURL+        :: InternalSettings -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setDefaultVideoPosterURL Mozilla InternalSettings.setDefaultVideoPosterURL documentation> +setDefaultVideoPosterURL ::+                         (MonadIO m, ToJSString poster) =>+                           InternalSettings -> poster -> m ()+setDefaultVideoPosterURL self poster+  = liftIO (js_setDefaultVideoPosterURL (self) (toJSString poster))+ +foreign import javascript unsafe+        "$1[\"setTimeWithoutMouseMovementBeforeHidingControls\"]($2)"+        js_setTimeWithoutMouseMovementBeforeHidingControls ::+        InternalSettings -> Double -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setTimeWithoutMouseMovementBeforeHidingControls Mozilla InternalSettings.setTimeWithoutMouseMovementBeforeHidingControls documentation> +setTimeWithoutMouseMovementBeforeHidingControls ::+                                                (MonadIO m) => InternalSettings -> Double -> m ()+setTimeWithoutMouseMovementBeforeHidingControls self time+  = liftIO+      (js_setTimeWithoutMouseMovementBeforeHidingControls (self) time)+ +foreign import javascript unsafe "$1[\"setMediaTypeOverride\"]($2)"+        js_setMediaTypeOverride :: InternalSettings -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setMediaTypeOverride Mozilla InternalSettings.setMediaTypeOverride documentation> +setMediaTypeOverride ::+                     (MonadIO m, ToJSString mediaTypeOverride) =>+                       InternalSettings -> mediaTypeOverride -> m ()+setMediaTypeOverride self mediaTypeOverride+  = liftIO+      (js_setMediaTypeOverride (self) (toJSString mediaTypeOverride))+ +foreign import javascript unsafe+        "$1[\"setPluginReplacementEnabled\"]($2)"+        js_setPluginReplacementEnabled :: InternalSettings -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setPluginReplacementEnabled Mozilla InternalSettings.setPluginReplacementEnabled documentation> +setPluginReplacementEnabled ::+                            (MonadIO m) => InternalSettings -> Bool -> m ()+setPluginReplacementEnabled self enabled+  = liftIO (js_setPluginReplacementEnabled (self) enabled)+ +foreign import javascript unsafe "$1[\"setEditingBehavior\"]($2)"+        js_setEditingBehavior :: InternalSettings -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setEditingBehavior Mozilla InternalSettings.setEditingBehavior documentation> +setEditingBehavior ::+                   (MonadIO m, ToJSString behavior) =>+                     InternalSettings -> behavior -> m ()+setEditingBehavior self behavior+  = liftIO (js_setEditingBehavior (self) (toJSString behavior))+ +foreign import javascript unsafe+        "$1[\"setShouldConvertPositionStyleOnCopy\"]($2)"+        js_setShouldConvertPositionStyleOnCopy ::+        InternalSettings -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setShouldConvertPositionStyleOnCopy Mozilla InternalSettings.setShouldConvertPositionStyleOnCopy documentation> +setShouldConvertPositionStyleOnCopy ::+                                    (MonadIO m) => InternalSettings -> Bool -> m ()+setShouldConvertPositionStyleOnCopy self convert+  = liftIO (js_setShouldConvertPositionStyleOnCopy (self) convert)+ +foreign import javascript unsafe+        "$1[\"setLangAttributeAwareFormControlUIEnabled\"]($2)"+        js_setLangAttributeAwareFormControlUIEnabled ::+        InternalSettings -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setLangAttributeAwareFormControlUIEnabled Mozilla InternalSettings.setLangAttributeAwareFormControlUIEnabled documentation> +setLangAttributeAwareFormControlUIEnabled ::+                                          (MonadIO m) => InternalSettings -> Bool -> m ()+setLangAttributeAwareFormControlUIEnabled self enabled+  = liftIO+      (js_setLangAttributeAwareFormControlUIEnabled (self) enabled)+ +foreign import javascript unsafe+        "$1[\"setStorageBlockingPolicy\"]($2)" js_setStorageBlockingPolicy+        :: InternalSettings -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setStorageBlockingPolicy Mozilla InternalSettings.setStorageBlockingPolicy documentation> +setStorageBlockingPolicy ::+                         (MonadIO m, ToJSString policy) =>+                           InternalSettings -> policy -> m ()+setStorageBlockingPolicy self policy+  = liftIO (js_setStorageBlockingPolicy (self) (toJSString policy))+ +foreign import javascript unsafe "$1[\"setImagesEnabled\"]($2)"+        js_setImagesEnabled :: InternalSettings -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setImagesEnabled Mozilla InternalSettings.setImagesEnabled documentation> +setImagesEnabled :: (MonadIO m) => InternalSettings -> Bool -> m ()+setImagesEnabled self enabled+  = liftIO (js_setImagesEnabled (self) enabled)+ +foreign import javascript unsafe+        "$1[\"setUseLegacyBackgroundSizeShorthandBehavior\"]($2)"+        js_setUseLegacyBackgroundSizeShorthandBehavior ::+        InternalSettings -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setUseLegacyBackgroundSizeShorthandBehavior Mozilla InternalSettings.setUseLegacyBackgroundSizeShorthandBehavior documentation> +setUseLegacyBackgroundSizeShorthandBehavior ::+                                            (MonadIO m) => InternalSettings -> Bool -> m ()+setUseLegacyBackgroundSizeShorthandBehavior self enabled+  = liftIO+      (js_setUseLegacyBackgroundSizeShorthandBehavior (self) enabled)+ +foreign import javascript unsafe+        "$1[\"setAutoscrollForDragAndDropEnabled\"]($2)"+        js_setAutoscrollForDragAndDropEnabled ::+        InternalSettings -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setAutoscrollForDragAndDropEnabled Mozilla InternalSettings.setAutoscrollForDragAndDropEnabled documentation> +setAutoscrollForDragAndDropEnabled ::+                                   (MonadIO m) => InternalSettings -> Bool -> m ()+setAutoscrollForDragAndDropEnabled self enabled+  = liftIO (js_setAutoscrollForDragAndDropEnabled (self) enabled)+ +foreign import javascript unsafe+        "$1[\"setBackgroundShouldExtendBeyondPage\"]($2)"+        js_setBackgroundShouldExtendBeyondPage ::+        InternalSettings -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setBackgroundShouldExtendBeyondPage Mozilla InternalSettings.setBackgroundShouldExtendBeyondPage documentation> +setBackgroundShouldExtendBeyondPage ::+                                    (MonadIO m) => InternalSettings -> Bool -> m ()+setBackgroundShouldExtendBeyondPage self hasExtendedBackground+  = liftIO+      (js_setBackgroundShouldExtendBeyondPage (self)+         hasExtendedBackground)+ +foreign import javascript unsafe+        "$1[\"setScrollingTreeIncludesFrames\"]($2)"+        js_setScrollingTreeIncludesFrames ::+        InternalSettings -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setScrollingTreeIncludesFrames Mozilla InternalSettings.setScrollingTreeIncludesFrames documentation> +setScrollingTreeIncludesFrames ::+                               (MonadIO m) => InternalSettings -> Bool -> m ()+setScrollingTreeIncludesFrames self enabled+  = liftIO (js_setScrollingTreeIncludesFrames (self) enabled)+ +foreign import javascript unsafe+        "$1[\"setMinimumTimerInterval\"]($2)" js_setMinimumTimerInterval ::+        InternalSettings -> Double -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setMinimumTimerInterval Mozilla InternalSettings.setMinimumTimerInterval documentation> +setMinimumTimerInterval ::+                        (MonadIO m) => InternalSettings -> Double -> m ()+setMinimumTimerInterval self intervalInSeconds+  = liftIO (js_setMinimumTimerInterval (self) intervalInSeconds)
+ src/GHCJS/DOM/JSFFI/Generated/Internals.hs view
@@ -0,0 +1,2148 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.Internals+       (js_address, address, js_nodeNeedsStyleRecalc,+        nodeNeedsStyleRecalc, js_description, description,+        js_hasPausedImageAnimations, hasPausedImageAnimations,+        js_elementRenderTreeAsText, elementRenderTreeAsText,+        js_isPreloaded, isPreloaded, js_isLoadingFromMemoryCache,+        isLoadingFromMemoryCache, js_xhrResponseSource, xhrResponseSource,+        js_clearMemoryCache, clearMemoryCache, js_pruneMemoryCacheToSize,+        pruneMemoryCacheToSize, js_memoryCacheSize, memoryCacheSize,+        js_clearPageCache, clearPageCache, js_pageCacheSize, pageCacheSize,+        js_computedStyleIncludingVisitedInfo,+        computedStyleIncludingVisitedInfo, js_ensureShadowRoot,+        ensureShadowRoot, js_createShadowRoot, createShadowRoot,+        js_shadowRoot, shadowRoot, js_shadowRootType, shadowRootType,+        js_includerFor, includerFor, js_shadowPseudoId, shadowPseudoId,+        js_setShadowPseudoId, setShadowPseudoId, js_treeScopeRootNode,+        treeScopeRootNode, js_parentTreeScope, parentTreeScope,+        js_lastSpatialNavigationCandidateCount,+        lastSpatialNavigationCandidateCount, js_numberOfActiveAnimations,+        numberOfActiveAnimations, js_suspendAnimations, suspendAnimations,+        js_resumeAnimations, resumeAnimations, js_animationsAreSuspended,+        animationsAreSuspended, js_pauseAnimationAtTimeOnElement,+        pauseAnimationAtTimeOnElement,+        js_pauseAnimationAtTimeOnPseudoElement,+        pauseAnimationAtTimeOnPseudoElement,+        js_pauseTransitionAtTimeOnElement, pauseTransitionAtTimeOnElement,+        js_pauseTransitionAtTimeOnPseudoElement,+        pauseTransitionAtTimeOnPseudoElement, js_attached, attached,+        js_visiblePlaceholder, visiblePlaceholder,+        js_selectColorInColorChooser, selectColorInColorChooser,+        js_formControlStateOfPreviousHistoryItem,+        formControlStateOfPreviousHistoryItem,+        js_setFormControlStateOfPreviousHistoryItem,+        setFormControlStateOfPreviousHistoryItem, js_absoluteCaretBounds,+        absoluteCaretBounds, js_boundingBox, boundingBox,+        js_inspectorHighlightRects, inspectorHighlightRects,+        js_inspectorHighlightObject, inspectorHighlightObject,+        js_markerCountForNode, markerCountForNode, js_markerRangeForNode,+        markerRangeForNode, js_markerDescriptionForNode,+        markerDescriptionForNode, js_addTextMatchMarker,+        addTextMatchMarker, js_setMarkedTextMatchesAreHighlighted,+        setMarkedTextMatchesAreHighlighted, js_invalidateFontCache,+        invalidateFontCache, js_setScrollViewPosition,+        setScrollViewPosition, js_setPagination, setPagination,+        js_configurationForViewport, configurationForViewport,+        js_wasLastChangeUserEdit, wasLastChangeUserEdit,+        js_elementShouldAutoComplete, elementShouldAutoComplete,+        js_setEditingValue, setEditingValue, js_setAutofilled,+        setAutofilled, js_countMatchesForText, countMatchesForText,+        js_paintControlTints, paintControlTints, js_scrollElementToRect,+        scrollElementToRect, js_rangeFromLocationAndLength,+        rangeFromLocationAndLength, js_locationFromRange,+        locationFromRange, js_lengthFromRange, lengthFromRange,+        js_rangeAsText, rangeAsText, js_subrange, subrange,+        js_rangeForDictionaryLookupAtLocation,+        rangeForDictionaryLookupAtLocation, js_setDelegatesScrolling,+        setDelegatesScrolling, js_lastSpellCheckRequestSequence,+        lastSpellCheckRequestSequence, js_lastSpellCheckProcessedSequence,+        lastSpellCheckProcessedSequence, js_userPreferredLanguages,+        userPreferredLanguages, js_setUserPreferredLanguages,+        setUserPreferredLanguages, js_wheelEventHandlerCount,+        wheelEventHandlerCount, js_touchEventHandlerCount,+        touchEventHandlerCount, js_nodesFromRect, nodesFromRect,+        js_parserMetaData, parserMetaData, js_updateEditorUINowIfScheduled,+        updateEditorUINowIfScheduled, js_hasSpellingMarker,+        hasSpellingMarker, js_hasGrammarMarker, hasGrammarMarker,+        js_hasAutocorrectedMarker, hasAutocorrectedMarker,+        js_setContinuousSpellCheckingEnabled,+        setContinuousSpellCheckingEnabled,+        js_setAutomaticQuoteSubstitutionEnabled,+        setAutomaticQuoteSubstitutionEnabled,+        js_setAutomaticLinkDetectionEnabled,+        setAutomaticLinkDetectionEnabled,+        js_setAutomaticDashSubstitutionEnabled,+        setAutomaticDashSubstitutionEnabled,+        js_setAutomaticTextReplacementEnabled,+        setAutomaticTextReplacementEnabled,+        js_setAutomaticSpellingCorrectionEnabled,+        setAutomaticSpellingCorrectionEnabled, js_isOverwriteModeEnabled,+        isOverwriteModeEnabled, js_toggleOverwriteModeEnabled,+        toggleOverwriteModeEnabled, js_numberOfScrollableAreas,+        numberOfScrollableAreas, js_isPageBoxVisible, isPageBoxVisible,+        js_layerTreeAsText, layerTreeAsText, js_scrollingStateTreeAsText,+        scrollingStateTreeAsText, js_mainThreadScrollingReasons,+        mainThreadScrollingReasons, js_nonFastScrollableRects,+        nonFastScrollableRects, js_repaintRectsAsText, repaintRectsAsText,+        js_garbageCollectDocumentResources,+        garbageCollectDocumentResources, js_allowRoundingHacks,+        allowRoundingHacks, js_insertAuthorCSS, insertAuthorCSS,+        js_insertUserCSS, insertUserCSS, js_setBatteryStatus,+        setBatteryStatus, js_setDeviceProximity, setDeviceProximity,+        js_numberOfLiveNodes, numberOfLiveNodes, js_numberOfLiveDocuments,+        numberOfLiveDocuments, js_consoleMessageArgumentCounts,+        consoleMessageArgumentCounts, js_openDummyInspectorFrontend,+        openDummyInspectorFrontend, js_closeDummyInspectorFrontend,+        closeDummyInspectorFrontend, js_setJavaScriptProfilingEnabled,+        setJavaScriptProfilingEnabled, js_setInspectorIsUnderTest,+        setInspectorIsUnderTest, js_counterValue, counterValue,+        js_pageNumber, pageNumber, js_shortcutIconURLs, shortcutIconURLs,+        js_allIconURLs, allIconURLs, js_numberOfPages, numberOfPages,+        js_pageProperty, pageProperty, js_pageSizeAndMarginsInPixels,+        pageSizeAndMarginsInPixels, js_setPageScaleFactor,+        setPageScaleFactor, js_setPageZoomFactor, setPageZoomFactor,+        js_setHeaderHeight, setHeaderHeight, js_setFooterHeight,+        setFooterHeight, js_setTopContentInset, setTopContentInset,+        js_webkitWillEnterFullScreenForElement,+        webkitWillEnterFullScreenForElement,+        js_webkitDidEnterFullScreenForElement,+        webkitDidEnterFullScreenForElement,+        js_webkitWillExitFullScreenForElement,+        webkitWillExitFullScreenForElement,+        js_webkitDidExitFullScreenForElement,+        webkitDidExitFullScreenForElement,+        js_setApplicationCacheOriginQuota, setApplicationCacheOriginQuota,+        js_registerURLSchemeAsBypassingContentSecurityPolicy,+        registerURLSchemeAsBypassingContentSecurityPolicy,+        js_removeURLSchemeRegisteredAsBypassingContentSecurityPolicy,+        removeURLSchemeRegisteredAsBypassingContentSecurityPolicy,+        js_mallocStatistics, mallocStatistics, js_typeConversions,+        typeConversions, js_memoryInfo, memoryInfo,+        js_getReferencedFilePaths, getReferencedFilePaths,+        js_startTrackingRepaints, startTrackingRepaints,+        js_stopTrackingRepaints, stopTrackingRepaints, js_isTimerThrottled,+        isTimerThrottled,+        js_updateLayoutIgnorePendingStylesheetsAndRunPostLayoutTasks,+        updateLayoutIgnorePendingStylesheetsAndRunPostLayoutTasks,+        js_getCurrentCursorInfo, getCurrentCursorInfo,+        js_markerTextForListItem, markerTextForListItem,+        js_toolTipFromElement, toolTipFromElement, js_deserializeBuffer,+        deserializeBuffer, js_serializeObject, serializeObject,+        js_setUsesOverlayScrollbars, setUsesOverlayScrollbars,+        js_forceReload, forceReload, js_simulateAudioInterruption,+        simulateAudioInterruption, js_mediaElementHasCharacteristic,+        mediaElementHasCharacteristic, js_initializeMockCDM,+        initializeMockCDM, js_enableMockSpeechSynthesizer,+        enableMockSpeechSynthesizer, js_getImageSourceURL,+        getImageSourceURL, js_captionsStyleSheetOverride,+        captionsStyleSheetOverride, js_setCaptionsStyleSheetOverride,+        setCaptionsStyleSheetOverride,+        js_setPrimaryAudioTrackLanguageOverride,+        setPrimaryAudioTrackLanguageOverride, js_setCaptionDisplayMode,+        setCaptionDisplayMode, js_createTimeRanges, createTimeRanges,+        js_closestTimeToTimeRanges, closestTimeToTimeRanges,+        js_isSelectPopupVisible, isSelectPopupVisible, js_isVibrating,+        isVibrating, js_isPluginUnavailabilityIndicatorObscured,+        isPluginUnavailabilityIndicatorObscured, js_isPluginSnapshotted,+        isPluginSnapshotted, js_selectionBounds, selectionBounds,+        js_initializeMockMediaSource, initializeMockMediaSource,+        js_bufferedSamplesForTrackID, bufferedSamplesForTrackID,+        js_beginMediaSessionInterruption, beginMediaSessionInterruption,+        js_endMediaSessionInterruption, endMediaSessionInterruption,+        js_applicationWillEnterForeground, applicationWillEnterForeground,+        js_applicationWillEnterBackground, applicationWillEnterBackground,+        js_setMediaSessionRestrictions, setMediaSessionRestrictions,+        js_postRemoteControlCommand, postRemoteControlCommand,+        js_simulateSystemSleep, simulateSystemSleep, js_simulateSystemWake,+        simulateSystemWake, js_elementIsBlockingDisplaySleep,+        elementIsBlockingDisplaySleep, js_installMockPageOverlay,+        installMockPageOverlay, js_pageOverlayLayerTreeAsText,+        pageOverlayLayerTreeAsText, js_setPageMuted, setPageMuted,+        js_isPagePlayingAudio, isPagePlayingAudio,+        pattern LAYER_TREE_INCLUDES_VISIBLE_RECTS,+        pattern LAYER_TREE_INCLUDES_TILE_CACHES,+        pattern LAYER_TREE_INCLUDES_REPAINT_RECTS,+        pattern LAYER_TREE_INCLUDES_PAINTING_PHASES,+        pattern LAYER_TREE_INCLUDES_CONTENT_LAYERS, js_getSettings,+        getSettings, js_getWorkerThreadCount, getWorkerThreadCount,+        js_getConsoleProfiles, getConsoleProfiles, Internals,+        castToInternals, gTypeInternals)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"address\"]($2)" js_address+        :: Internals -> Nullable Node -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.address Mozilla Internals.address documentation> +address ::+        (MonadIO m, IsNode node, FromJSString result) =>+          Internals -> Maybe node -> m result+address self node+  = liftIO+      (fromJSString <$>+         (js_address (self) (maybeToNullable (fmap toNode node))))+ +foreign import javascript unsafe+        "($1[\"nodeNeedsStyleRecalc\"]($2) ? 1 : 0)"+        js_nodeNeedsStyleRecalc :: Internals -> Nullable Node -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.nodeNeedsStyleRecalc Mozilla Internals.nodeNeedsStyleRecalc documentation> +nodeNeedsStyleRecalc ::+                     (MonadIO m, IsNode node) => Internals -> Maybe node -> m Bool+nodeNeedsStyleRecalc self node+  = liftIO+      (js_nodeNeedsStyleRecalc (self)+         (maybeToNullable (fmap toNode node)))+ +foreign import javascript unsafe "$1[\"description\"]($2)"+        js_description :: Internals -> JSVal -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.description Mozilla Internals.description documentation> +description ::+            (MonadIO m, FromJSString result) => Internals -> JSVal -> m result+description self value+  = liftIO (fromJSString <$> (js_description (self) value))+ +foreign import javascript unsafe+        "($1[\"hasPausedImageAnimations\"]($2) ? 1 : 0)"+        js_hasPausedImageAnimations ::+        Internals -> Nullable Element -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.hasPausedImageAnimations Mozilla Internals.hasPausedImageAnimations documentation> +hasPausedImageAnimations ::+                         (MonadIO m, IsElement element) =>+                           Internals -> Maybe element -> m Bool+hasPausedImageAnimations self element+  = liftIO+      (js_hasPausedImageAnimations (self)+         (maybeToNullable (fmap toElement element)))+ +foreign import javascript unsafe+        "$1[\"elementRenderTreeAsText\"]($2)" js_elementRenderTreeAsText ::+        Internals -> Nullable Element -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.elementRenderTreeAsText Mozilla Internals.elementRenderTreeAsText documentation> +elementRenderTreeAsText ::+                        (MonadIO m, IsElement element, FromJSString result) =>+                          Internals -> Maybe element -> m result+elementRenderTreeAsText self element+  = liftIO+      (fromJSString <$>+         (js_elementRenderTreeAsText (self)+            (maybeToNullable (fmap toElement element))))+ +foreign import javascript unsafe+        "($1[\"isPreloaded\"]($2) ? 1 : 0)" js_isPreloaded ::+        Internals -> JSString -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.isPreloaded Mozilla Internals.isPreloaded documentation> +isPreloaded ::+            (MonadIO m, ToJSString url) => Internals -> url -> m Bool+isPreloaded self url+  = liftIO (js_isPreloaded (self) (toJSString url))+ +foreign import javascript unsafe+        "($1[\"isLoadingFromMemoryCache\"]($2) ? 1 : 0)"+        js_isLoadingFromMemoryCache :: Internals -> JSString -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.isLoadingFromMemoryCache Mozilla Internals.isLoadingFromMemoryCache documentation> +isLoadingFromMemoryCache ::+                         (MonadIO m, ToJSString url) => Internals -> url -> m Bool+isLoadingFromMemoryCache self url+  = liftIO (js_isLoadingFromMemoryCache (self) (toJSString url))+ +foreign import javascript unsafe "$1[\"xhrResponseSource\"]($2)"+        js_xhrResponseSource ::+        Internals -> Nullable XMLHttpRequest -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.xhrResponseSource Mozilla Internals.xhrResponseSource documentation> +xhrResponseSource ::+                  (MonadIO m, FromJSString result) =>+                    Internals -> Maybe XMLHttpRequest -> m result+xhrResponseSource self xhr+  = liftIO+      (fromJSString <$>+         (js_xhrResponseSource (self) (maybeToNullable xhr)))+ +foreign import javascript unsafe "$1[\"clearMemoryCache\"]()"+        js_clearMemoryCache :: Internals -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.clearMemoryCache Mozilla Internals.clearMemoryCache documentation> +clearMemoryCache :: (MonadIO m) => Internals -> m ()+clearMemoryCache self = liftIO (js_clearMemoryCache (self))+ +foreign import javascript unsafe+        "$1[\"pruneMemoryCacheToSize\"]($2)" js_pruneMemoryCacheToSize ::+        Internals -> Int -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.pruneMemoryCacheToSize Mozilla Internals.pruneMemoryCacheToSize documentation> +pruneMemoryCacheToSize :: (MonadIO m) => Internals -> Int -> m ()+pruneMemoryCacheToSize self size+  = liftIO (js_pruneMemoryCacheToSize (self) size)+ +foreign import javascript unsafe "$1[\"memoryCacheSize\"]()"+        js_memoryCacheSize :: Internals -> IO Int++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.memoryCacheSize Mozilla Internals.memoryCacheSize documentation> +memoryCacheSize :: (MonadIO m) => Internals -> m Int+memoryCacheSize self = liftIO (js_memoryCacheSize (self))+ +foreign import javascript unsafe "$1[\"clearPageCache\"]()"+        js_clearPageCache :: Internals -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.clearPageCache Mozilla Internals.clearPageCache documentation> +clearPageCache :: (MonadIO m) => Internals -> m ()+clearPageCache self = liftIO (js_clearPageCache (self))+ +foreign import javascript unsafe "$1[\"pageCacheSize\"]()"+        js_pageCacheSize :: Internals -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.pageCacheSize Mozilla Internals.pageCacheSize documentation> +pageCacheSize :: (MonadIO m) => Internals -> m Word+pageCacheSize self = liftIO (js_pageCacheSize (self))+ +foreign import javascript unsafe+        "$1[\"computedStyleIncludingVisitedInfo\"]($2)"+        js_computedStyleIncludingVisitedInfo ::+        Internals -> Nullable Node -> IO (Nullable CSSStyleDeclaration)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.computedStyleIncludingVisitedInfo Mozilla Internals.computedStyleIncludingVisitedInfo documentation> +computedStyleIncludingVisitedInfo ::+                                  (MonadIO m, IsNode node) =>+                                    Internals -> Maybe node -> m (Maybe CSSStyleDeclaration)+computedStyleIncludingVisitedInfo self node+  = liftIO+      (nullableToMaybe <$>+         (js_computedStyleIncludingVisitedInfo (self)+            (maybeToNullable (fmap toNode node))))+ +foreign import javascript unsafe "$1[\"ensureShadowRoot\"]($2)"+        js_ensureShadowRoot ::+        Internals -> Nullable Element -> IO (Nullable Node)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.ensureShadowRoot Mozilla Internals.ensureShadowRoot documentation> +ensureShadowRoot ::+                 (MonadIO m, IsElement host) =>+                   Internals -> Maybe host -> m (Maybe Node)+ensureShadowRoot self host+  = liftIO+      (nullableToMaybe <$>+         (js_ensureShadowRoot (self)+            (maybeToNullable (fmap toElement host))))+ +foreign import javascript unsafe "$1[\"createShadowRoot\"]($2)"+        js_createShadowRoot ::+        Internals -> Nullable Element -> IO (Nullable Node)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.createShadowRoot Mozilla Internals.createShadowRoot documentation> +createShadowRoot ::+                 (MonadIO m, IsElement host) =>+                   Internals -> Maybe host -> m (Maybe Node)+createShadowRoot self host+  = liftIO+      (nullableToMaybe <$>+         (js_createShadowRoot (self)+            (maybeToNullable (fmap toElement host))))+ +foreign import javascript unsafe "$1[\"shadowRoot\"]($2)"+        js_shadowRoot ::+        Internals -> Nullable Element -> IO (Nullable Node)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.shadowRoot Mozilla Internals.shadowRoot documentation> +shadowRoot ::+           (MonadIO m, IsElement host) =>+             Internals -> Maybe host -> m (Maybe Node)+shadowRoot self host+  = liftIO+      (nullableToMaybe <$>+         (js_shadowRoot (self) (maybeToNullable (fmap toElement host))))+ +foreign import javascript unsafe "$1[\"shadowRootType\"]($2)"+        js_shadowRootType :: Internals -> Nullable Node -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.shadowRootType Mozilla Internals.shadowRootType documentation> +shadowRootType ::+               (MonadIO m, IsNode root, FromJSString result) =>+                 Internals -> Maybe root -> m result+shadowRootType self root+  = liftIO+      (fromJSString <$>+         (js_shadowRootType (self) (maybeToNullable (fmap toNode root))))+ +foreign import javascript unsafe "$1[\"includerFor\"]($2)"+        js_includerFor ::+        Internals -> Nullable Node -> IO (Nullable Element)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.includerFor Mozilla Internals.includerFor documentation> +includerFor ::+            (MonadIO m, IsNode node) =>+              Internals -> Maybe node -> m (Maybe Element)+includerFor self node+  = liftIO+      (nullableToMaybe <$>+         (js_includerFor (self) (maybeToNullable (fmap toNode node))))+ +foreign import javascript unsafe "$1[\"shadowPseudoId\"]($2)"+        js_shadowPseudoId :: Internals -> Nullable Element -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.shadowPseudoId Mozilla Internals.shadowPseudoId documentation> +shadowPseudoId ::+               (MonadIO m, IsElement element, FromJSString result) =>+                 Internals -> Maybe element -> m result+shadowPseudoId self element+  = liftIO+      (fromJSString <$>+         (js_shadowPseudoId (self)+            (maybeToNullable (fmap toElement element))))+ +foreign import javascript unsafe+        "$1[\"setShadowPseudoId\"]($2, $3)" js_setShadowPseudoId ::+        Internals -> Nullable Element -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setShadowPseudoId Mozilla Internals.setShadowPseudoId documentation> +setShadowPseudoId ::+                  (MonadIO m, IsElement element, ToJSString id) =>+                    Internals -> Maybe element -> id -> m ()+setShadowPseudoId self element id+  = liftIO+      (js_setShadowPseudoId (self)+         (maybeToNullable (fmap toElement element))+         (toJSString id))+ +foreign import javascript unsafe "$1[\"treeScopeRootNode\"]($2)"+        js_treeScopeRootNode ::+        Internals -> Nullable Node -> IO (Nullable Node)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.treeScopeRootNode Mozilla Internals.treeScopeRootNode documentation> +treeScopeRootNode ::+                  (MonadIO m, IsNode node) =>+                    Internals -> Maybe node -> m (Maybe Node)+treeScopeRootNode self node+  = liftIO+      (nullableToMaybe <$>+         (js_treeScopeRootNode (self) (maybeToNullable (fmap toNode node))))+ +foreign import javascript unsafe "$1[\"parentTreeScope\"]($2)"+        js_parentTreeScope ::+        Internals -> Nullable Node -> IO (Nullable Node)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.parentTreeScope Mozilla Internals.parentTreeScope documentation> +parentTreeScope ::+                (MonadIO m, IsNode node) =>+                  Internals -> Maybe node -> m (Maybe Node)+parentTreeScope self node+  = liftIO+      (nullableToMaybe <$>+         (js_parentTreeScope (self) (maybeToNullable (fmap toNode node))))+ +foreign import javascript unsafe+        "$1[\"lastSpatialNavigationCandidateCount\"]()"+        js_lastSpatialNavigationCandidateCount :: Internals -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.lastSpatialNavigationCandidateCount Mozilla Internals.lastSpatialNavigationCandidateCount documentation> +lastSpatialNavigationCandidateCount ::+                                    (MonadIO m) => Internals -> m Word+lastSpatialNavigationCandidateCount self+  = liftIO (js_lastSpatialNavigationCandidateCount (self))+ +foreign import javascript unsafe+        "$1[\"numberOfActiveAnimations\"]()" js_numberOfActiveAnimations ::+        Internals -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.numberOfActiveAnimations Mozilla Internals.numberOfActiveAnimations documentation> +numberOfActiveAnimations :: (MonadIO m) => Internals -> m Word+numberOfActiveAnimations self+  = liftIO (js_numberOfActiveAnimations (self))+ +foreign import javascript unsafe "$1[\"suspendAnimations\"]()"+        js_suspendAnimations :: Internals -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.suspendAnimations Mozilla Internals.suspendAnimations documentation> +suspendAnimations :: (MonadIO m) => Internals -> m ()+suspendAnimations self = liftIO (js_suspendAnimations (self))+ +foreign import javascript unsafe "$1[\"resumeAnimations\"]()"+        js_resumeAnimations :: Internals -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.resumeAnimations Mozilla Internals.resumeAnimations documentation> +resumeAnimations :: (MonadIO m) => Internals -> m ()+resumeAnimations self = liftIO (js_resumeAnimations (self))+ +foreign import javascript unsafe+        "($1[\"animationsAreSuspended\"]() ? 1 : 0)"+        js_animationsAreSuspended :: Internals -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.animationsAreSuspended Mozilla Internals.animationsAreSuspended documentation> +animationsAreSuspended :: (MonadIO m) => Internals -> m Bool+animationsAreSuspended self+  = liftIO (js_animationsAreSuspended (self))+ +foreign import javascript unsafe+        "($1[\"pauseAnimationAtTimeOnElement\"]($2,\n$3, $4) ? 1 : 0)"+        js_pauseAnimationAtTimeOnElement ::+        Internals -> JSString -> Double -> Nullable Element -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.pauseAnimationAtTimeOnElement Mozilla Internals.pauseAnimationAtTimeOnElement documentation> +pauseAnimationAtTimeOnElement ::+                              (MonadIO m, ToJSString animationName, IsElement element) =>+                                Internals -> animationName -> Double -> Maybe element -> m Bool+pauseAnimationAtTimeOnElement self animationName pauseTime element+  = liftIO+      (js_pauseAnimationAtTimeOnElement (self) (toJSString animationName)+         pauseTime+         (maybeToNullable (fmap toElement element)))+ +foreign import javascript unsafe+        "($1[\"pauseAnimationAtTimeOnPseudoElement\"]($2,\n$3, $4, $5) ? 1 : 0)"+        js_pauseAnimationAtTimeOnPseudoElement ::+        Internals ->+          JSString -> Double -> Nullable Element -> JSString -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.pauseAnimationAtTimeOnPseudoElement Mozilla Internals.pauseAnimationAtTimeOnPseudoElement documentation> +pauseAnimationAtTimeOnPseudoElement ::+                                    (MonadIO m, ToJSString animationName, IsElement element,+                                     ToJSString pseudoId) =>+                                      Internals ->+                                        animationName ->+                                          Double -> Maybe element -> pseudoId -> m Bool+pauseAnimationAtTimeOnPseudoElement self animationName pauseTime+  element pseudoId+  = liftIO+      (js_pauseAnimationAtTimeOnPseudoElement (self)+         (toJSString animationName)+         pauseTime+         (maybeToNullable (fmap toElement element))+         (toJSString pseudoId))+ +foreign import javascript unsafe+        "($1[\"pauseTransitionAtTimeOnElement\"]($2,\n$3, $4) ? 1 : 0)"+        js_pauseTransitionAtTimeOnElement ::+        Internals -> JSString -> Double -> Nullable Element -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.pauseTransitionAtTimeOnElement Mozilla Internals.pauseTransitionAtTimeOnElement documentation> +pauseTransitionAtTimeOnElement ::+                               (MonadIO m, ToJSString propertyName, IsElement element) =>+                                 Internals -> propertyName -> Double -> Maybe element -> m Bool+pauseTransitionAtTimeOnElement self propertyName pauseTime element+  = liftIO+      (js_pauseTransitionAtTimeOnElement (self) (toJSString propertyName)+         pauseTime+         (maybeToNullable (fmap toElement element)))+ +foreign import javascript unsafe+        "($1[\"pauseTransitionAtTimeOnPseudoElement\"]($2,\n$3, $4, $5) ? 1 : 0)"+        js_pauseTransitionAtTimeOnPseudoElement ::+        Internals ->+          JSString -> Double -> Nullable Element -> JSString -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.pauseTransitionAtTimeOnPseudoElement Mozilla Internals.pauseTransitionAtTimeOnPseudoElement documentation> +pauseTransitionAtTimeOnPseudoElement ::+                                     (MonadIO m, ToJSString property, IsElement element,+                                      ToJSString pseudoId) =>+                                       Internals ->+                                         property -> Double -> Maybe element -> pseudoId -> m Bool+pauseTransitionAtTimeOnPseudoElement self property pauseTime+  element pseudoId+  = liftIO+      (js_pauseTransitionAtTimeOnPseudoElement (self)+         (toJSString property)+         pauseTime+         (maybeToNullable (fmap toElement element))+         (toJSString pseudoId))+ +foreign import javascript unsafe "($1[\"attached\"]($2) ? 1 : 0)"+        js_attached :: Internals -> Nullable Node -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.attached Mozilla Internals.attached documentation> +attached ::+         (MonadIO m, IsNode node) => Internals -> Maybe node -> m Bool+attached self node+  = liftIO (js_attached (self) (maybeToNullable (fmap toNode node)))+ +foreign import javascript unsafe "$1[\"visiblePlaceholder\"]($2)"+        js_visiblePlaceholder ::+        Internals -> Nullable Element -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.visiblePlaceholder Mozilla Internals.visiblePlaceholder documentation> +visiblePlaceholder ::+                   (MonadIO m, IsElement element, FromJSString result) =>+                     Internals -> Maybe element -> m result+visiblePlaceholder self element+  = liftIO+      (fromJSString <$>+         (js_visiblePlaceholder (self)+            (maybeToNullable (fmap toElement element))))+ +foreign import javascript unsafe+        "$1[\"selectColorInColorChooser\"]($2,\n$3)"+        js_selectColorInColorChooser ::+        Internals -> Nullable Element -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.selectColorInColorChooser Mozilla Internals.selectColorInColorChooser documentation> +selectColorInColorChooser ::+                          (MonadIO m, IsElement element, ToJSString colorValue) =>+                            Internals -> Maybe element -> colorValue -> m ()+selectColorInColorChooser self element colorValue+  = liftIO+      (js_selectColorInColorChooser (self)+         (maybeToNullable (fmap toElement element))+         (toJSString colorValue))+ +foreign import javascript unsafe+        "$1[\"formControlStateOfPreviousHistoryItem\"]()"+        js_formControlStateOfPreviousHistoryItem :: Internals -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.formControlStateOfPreviousHistoryItem Mozilla Internals.formControlStateOfPreviousHistoryItem documentation> +formControlStateOfPreviousHistoryItem ::+                                      (MonadIO m, FromJSString result) => Internals -> m [result]+formControlStateOfPreviousHistoryItem self+  = liftIO+      ((js_formControlStateOfPreviousHistoryItem (self)) >>=+         fromJSValUnchecked)+ +foreign import javascript unsafe+        "$1[\"setFormControlStateOfPreviousHistoryItem\"]($2)"+        js_setFormControlStateOfPreviousHistoryItem ::+        Internals -> JSVal -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setFormControlStateOfPreviousHistoryItem Mozilla Internals.setFormControlStateOfPreviousHistoryItem documentation> +setFormControlStateOfPreviousHistoryItem ::+                                         (MonadIO m, ToJSString values) =>+                                           Internals -> [values] -> m ()+setFormControlStateOfPreviousHistoryItem self values+  = liftIO+      (toJSVal values >>=+         \ values' ->+           js_setFormControlStateOfPreviousHistoryItem (self) values')+ +foreign import javascript unsafe "$1[\"absoluteCaretBounds\"]()"+        js_absoluteCaretBounds :: Internals -> IO (Nullable ClientRect)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.absoluteCaretBounds Mozilla Internals.absoluteCaretBounds documentation> +absoluteCaretBounds ::+                    (MonadIO m) => Internals -> m (Maybe ClientRect)+absoluteCaretBounds self+  = liftIO (nullableToMaybe <$> (js_absoluteCaretBounds (self)))+ +foreign import javascript unsafe "$1[\"boundingBox\"]($2)"+        js_boundingBox ::+        Internals -> Nullable Element -> IO (Nullable ClientRect)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.boundingBox Mozilla Internals.boundingBox documentation> +boundingBox ::+            (MonadIO m, IsElement element) =>+              Internals -> Maybe element -> m (Maybe ClientRect)+boundingBox self element+  = liftIO+      (nullableToMaybe <$>+         (js_boundingBox (self) (maybeToNullable (fmap toElement element))))+ +foreign import javascript unsafe+        "$1[\"inspectorHighlightRects\"]()" js_inspectorHighlightRects ::+        Internals -> IO (Nullable ClientRectList)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.inspectorHighlightRects Mozilla Internals.inspectorHighlightRects documentation> +inspectorHighlightRects ::+                        (MonadIO m) => Internals -> m (Maybe ClientRectList)+inspectorHighlightRects self+  = liftIO (nullableToMaybe <$> (js_inspectorHighlightRects (self)))+ +foreign import javascript unsafe+        "$1[\"inspectorHighlightObject\"]()" js_inspectorHighlightObject ::+        Internals -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.inspectorHighlightObject Mozilla Internals.inspectorHighlightObject documentation> +inspectorHighlightObject ::+                         (MonadIO m, FromJSString result) => Internals -> m result+inspectorHighlightObject self+  = liftIO (fromJSString <$> (js_inspectorHighlightObject (self)))+ +foreign import javascript unsafe+        "$1[\"markerCountForNode\"]($2, $3)" js_markerCountForNode ::+        Internals -> Nullable Node -> JSString -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.markerCountForNode Mozilla Internals.markerCountForNode documentation> +markerCountForNode ::+                   (MonadIO m, IsNode node, ToJSString markerType) =>+                     Internals -> Maybe node -> markerType -> m Word+markerCountForNode self node markerType+  = liftIO+      (js_markerCountForNode (self) (maybeToNullable (fmap toNode node))+         (toJSString markerType))+ +foreign import javascript unsafe+        "$1[\"markerRangeForNode\"]($2, $3,\n$4)" js_markerRangeForNode ::+        Internals ->+          Nullable Node -> JSString -> Word -> IO (Nullable Range)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.markerRangeForNode Mozilla Internals.markerRangeForNode documentation> +markerRangeForNode ::+                   (MonadIO m, IsNode node, ToJSString markerType) =>+                     Internals -> Maybe node -> markerType -> Word -> m (Maybe Range)+markerRangeForNode self node markerType index+  = liftIO+      (nullableToMaybe <$>+         (js_markerRangeForNode (self) (maybeToNullable (fmap toNode node))+            (toJSString markerType)+            index))+ +foreign import javascript unsafe+        "$1[\"markerDescriptionForNode\"]($2,\n$3, $4)"+        js_markerDescriptionForNode ::+        Internals -> Nullable Node -> JSString -> Word -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.markerDescriptionForNode Mozilla Internals.markerDescriptionForNode documentation> +markerDescriptionForNode ::+                         (MonadIO m, IsNode node, ToJSString markerType,+                          FromJSString result) =>+                           Internals -> Maybe node -> markerType -> Word -> m result+markerDescriptionForNode self node markerType index+  = liftIO+      (fromJSString <$>+         (js_markerDescriptionForNode (self)+            (maybeToNullable (fmap toNode node))+            (toJSString markerType)+            index))+ +foreign import javascript unsafe+        "$1[\"addTextMatchMarker\"]($2, $3)" js_addTextMatchMarker ::+        Internals -> Nullable Range -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.addTextMatchMarker Mozilla Internals.addTextMatchMarker documentation> +addTextMatchMarker ::+                   (MonadIO m) => Internals -> Maybe Range -> Bool -> m ()+addTextMatchMarker self range isActive+  = liftIO+      (js_addTextMatchMarker (self) (maybeToNullable range) isActive)+ +foreign import javascript unsafe+        "$1[\"setMarkedTextMatchesAreHighlighted\"]($2)"+        js_setMarkedTextMatchesAreHighlighted :: Internals -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setMarkedTextMatchesAreHighlighted Mozilla Internals.setMarkedTextMatchesAreHighlighted documentation> +setMarkedTextMatchesAreHighlighted ::+                                   (MonadIO m) => Internals -> Bool -> m ()+setMarkedTextMatchesAreHighlighted self flag+  = liftIO (js_setMarkedTextMatchesAreHighlighted (self) flag)+ +foreign import javascript unsafe "$1[\"invalidateFontCache\"]()"+        js_invalidateFontCache :: Internals -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.invalidateFontCache Mozilla Internals.invalidateFontCache documentation> +invalidateFontCache :: (MonadIO m) => Internals -> m ()+invalidateFontCache self = liftIO (js_invalidateFontCache (self))+ +foreign import javascript unsafe+        "$1[\"setScrollViewPosition\"]($2,\n$3)" js_setScrollViewPosition+        :: Internals -> Int -> Int -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setScrollViewPosition Mozilla Internals.setScrollViewPosition documentation> +setScrollViewPosition ::+                      (MonadIO m) => Internals -> Int -> Int -> m ()+setScrollViewPosition self x y+  = liftIO (js_setScrollViewPosition (self) x y)+ +foreign import javascript unsafe+        "$1[\"setPagination\"]($2, $3, $4)" js_setPagination ::+        Internals -> JSString -> Int -> Int -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setPagination Mozilla Internals.setPagination documentation> +setPagination ::+              (MonadIO m, ToJSString mode) =>+                Internals -> mode -> Int -> Int -> m ()+setPagination self mode gap pageLength+  = liftIO (js_setPagination (self) (toJSString mode) gap pageLength)+ +foreign import javascript unsafe+        "$1[\"configurationForViewport\"]($2,\n$3, $4, $5, $6)"+        js_configurationForViewport ::+        Internals -> Float -> Int -> Int -> Int -> Int -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.configurationForViewport Mozilla Internals.configurationForViewport documentation> +configurationForViewport ::+                         (MonadIO m, FromJSString result) =>+                           Internals -> Float -> Int -> Int -> Int -> Int -> m result+configurationForViewport self devicePixelRatio deviceWidth+  deviceHeight availableWidth availableHeight+  = liftIO+      (fromJSString <$>+         (js_configurationForViewport (self) devicePixelRatio deviceWidth+            deviceHeight+            availableWidth+            availableHeight))+ +foreign import javascript unsafe+        "($1[\"wasLastChangeUserEdit\"]($2) ? 1 : 0)"+        js_wasLastChangeUserEdit ::+        Internals -> Nullable Element -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.wasLastChangeUserEdit Mozilla Internals.wasLastChangeUserEdit documentation> +wasLastChangeUserEdit ::+                      (MonadIO m, IsElement textField) =>+                        Internals -> Maybe textField -> m Bool+wasLastChangeUserEdit self textField+  = liftIO+      (js_wasLastChangeUserEdit (self)+         (maybeToNullable (fmap toElement textField)))+ +foreign import javascript unsafe+        "($1[\"elementShouldAutoComplete\"]($2) ? 1 : 0)"+        js_elementShouldAutoComplete ::+        Internals -> Nullable Element -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.elementShouldAutoComplete Mozilla Internals.elementShouldAutoComplete documentation> +elementShouldAutoComplete ::+                          (MonadIO m, IsElement inputElement) =>+                            Internals -> Maybe inputElement -> m Bool+elementShouldAutoComplete self inputElement+  = liftIO+      (js_elementShouldAutoComplete (self)+         (maybeToNullable (fmap toElement inputElement)))+ +foreign import javascript unsafe "$1[\"setEditingValue\"]($2, $3)"+        js_setEditingValue ::+        Internals -> Nullable Element -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setEditingValue Mozilla Internals.setEditingValue documentation> +setEditingValue ::+                (MonadIO m, IsElement inputElement, ToJSString value) =>+                  Internals -> Maybe inputElement -> value -> m ()+setEditingValue self inputElement value+  = liftIO+      (js_setEditingValue (self)+         (maybeToNullable (fmap toElement inputElement))+         (toJSString value))+ +foreign import javascript unsafe "$1[\"setAutofilled\"]($2, $3)"+        js_setAutofilled :: Internals -> Nullable Element -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setAutofilled Mozilla Internals.setAutofilled documentation> +setAutofilled ::+              (MonadIO m, IsElement inputElement) =>+                Internals -> Maybe inputElement -> Bool -> m ()+setAutofilled self inputElement enabled+  = liftIO+      (js_setAutofilled (self)+         (maybeToNullable (fmap toElement inputElement))+         enabled)+ +foreign import javascript unsafe+        "$1[\"countMatchesForText\"]($2,\n$3, $4)" js_countMatchesForText+        :: Internals -> JSString -> Word -> JSString -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.countMatchesForText Mozilla Internals.countMatchesForText documentation> +countMatchesForText ::+                    (MonadIO m, ToJSString text, ToJSString markMatches) =>+                      Internals -> text -> Word -> markMatches -> m Word+countMatchesForText self text findOptions markMatches+  = liftIO+      (js_countMatchesForText (self) (toJSString text) findOptions+         (toJSString markMatches))+ +foreign import javascript unsafe "$1[\"paintControlTints\"]()"+        js_paintControlTints :: Internals -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.paintControlTints Mozilla Internals.paintControlTints documentation> +paintControlTints :: (MonadIO m) => Internals -> m ()+paintControlTints self = liftIO (js_paintControlTints (self))+ +foreign import javascript unsafe+        "$1[\"scrollElementToRect\"]($2,\n$3, $4, $5, $6)"+        js_scrollElementToRect ::+        Internals -> Nullable Element -> Int -> Int -> Int -> Int -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.scrollElementToRect Mozilla Internals.scrollElementToRect documentation> +scrollElementToRect ::+                    (MonadIO m, IsElement element) =>+                      Internals -> Maybe element -> Int -> Int -> Int -> Int -> m ()+scrollElementToRect self element x y w h+  = liftIO+      (js_scrollElementToRect (self)+         (maybeToNullable (fmap toElement element))+         x+         y+         w+         h)+ +foreign import javascript unsafe+        "$1[\"rangeFromLocationAndLength\"]($2,\n$3, $4)"+        js_rangeFromLocationAndLength ::+        Internals -> Nullable Element -> Int -> Int -> IO (Nullable Range)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.rangeFromLocationAndLength Mozilla Internals.rangeFromLocationAndLength documentation> +rangeFromLocationAndLength ::+                           (MonadIO m, IsElement scope) =>+                             Internals -> Maybe scope -> Int -> Int -> m (Maybe Range)+rangeFromLocationAndLength self scope rangeLocation rangeLength+  = liftIO+      (nullableToMaybe <$>+         (js_rangeFromLocationAndLength (self)+            (maybeToNullable (fmap toElement scope))+            rangeLocation+            rangeLength))+ +foreign import javascript unsafe+        "$1[\"locationFromRange\"]($2, $3)" js_locationFromRange ::+        Internals -> Nullable Element -> Nullable Range -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.locationFromRange Mozilla Internals.locationFromRange documentation> +locationFromRange ::+                  (MonadIO m, IsElement scope) =>+                    Internals -> Maybe scope -> Maybe Range -> m Word+locationFromRange self scope range+  = liftIO+      (js_locationFromRange (self)+         (maybeToNullable (fmap toElement scope))+         (maybeToNullable range))+ +foreign import javascript unsafe "$1[\"lengthFromRange\"]($2, $3)"+        js_lengthFromRange ::+        Internals -> Nullable Element -> Nullable Range -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.lengthFromRange Mozilla Internals.lengthFromRange documentation> +lengthFromRange ::+                (MonadIO m, IsElement scope) =>+                  Internals -> Maybe scope -> Maybe Range -> m Word+lengthFromRange self scope range+  = liftIO+      (js_lengthFromRange (self) (maybeToNullable (fmap toElement scope))+         (maybeToNullable range))+ +foreign import javascript unsafe "$1[\"rangeAsText\"]($2)"+        js_rangeAsText :: Internals -> Nullable Range -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.rangeAsText Mozilla Internals.rangeAsText documentation> +rangeAsText ::+            (MonadIO m, FromJSString result) =>+              Internals -> Maybe Range -> m result+rangeAsText self range+  = liftIO+      (fromJSString <$> (js_rangeAsText (self) (maybeToNullable range)))+ +foreign import javascript unsafe "$1[\"subrange\"]($2, $3, $4)"+        js_subrange ::+        Internals -> Nullable Range -> Int -> Int -> IO (Nullable Range)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.subrange Mozilla Internals.subrange documentation> +subrange ::+         (MonadIO m) =>+           Internals -> Maybe Range -> Int -> Int -> m (Maybe Range)+subrange self range rangeLocation rangeLength+  = liftIO+      (nullableToMaybe <$>+         (js_subrange (self) (maybeToNullable range) rangeLocation+            rangeLength))+ +foreign import javascript unsafe+        "$1[\"rangeForDictionaryLookupAtLocation\"]($2,\n$3)"+        js_rangeForDictionaryLookupAtLocation ::+        Internals -> Int -> Int -> IO (Nullable Range)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.rangeForDictionaryLookupAtLocation Mozilla Internals.rangeForDictionaryLookupAtLocation documentation> +rangeForDictionaryLookupAtLocation ::+                                   (MonadIO m) => Internals -> Int -> Int -> m (Maybe Range)+rangeForDictionaryLookupAtLocation self x y+  = liftIO+      (nullableToMaybe <$>+         (js_rangeForDictionaryLookupAtLocation (self) x y))+ +foreign import javascript unsafe+        "$1[\"setDelegatesScrolling\"]($2)" js_setDelegatesScrolling ::+        Internals -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setDelegatesScrolling Mozilla Internals.setDelegatesScrolling documentation> +setDelegatesScrolling :: (MonadIO m) => Internals -> Bool -> m ()+setDelegatesScrolling self enabled+  = liftIO (js_setDelegatesScrolling (self) enabled)+ +foreign import javascript unsafe+        "$1[\"lastSpellCheckRequestSequence\"]()"+        js_lastSpellCheckRequestSequence :: Internals -> IO Int++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.lastSpellCheckRequestSequence Mozilla Internals.lastSpellCheckRequestSequence documentation> +lastSpellCheckRequestSequence :: (MonadIO m) => Internals -> m Int+lastSpellCheckRequestSequence self+  = liftIO (js_lastSpellCheckRequestSequence (self))+ +foreign import javascript unsafe+        "$1[\"lastSpellCheckProcessedSequence\"]()"+        js_lastSpellCheckProcessedSequence :: Internals -> IO Int++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.lastSpellCheckProcessedSequence Mozilla Internals.lastSpellCheckProcessedSequence documentation> +lastSpellCheckProcessedSequence ::+                                (MonadIO m) => Internals -> m Int+lastSpellCheckProcessedSequence self+  = liftIO (js_lastSpellCheckProcessedSequence (self))+ +foreign import javascript unsafe "$1[\"userPreferredLanguages\"]()"+        js_userPreferredLanguages :: Internals -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.userPreferredLanguages Mozilla Internals.userPreferredLanguages documentation> +userPreferredLanguages ::+                       (MonadIO m, FromJSString result) => Internals -> m [result]+userPreferredLanguages self+  = liftIO+      ((js_userPreferredLanguages (self)) >>= fromJSValUnchecked)+ +foreign import javascript unsafe+        "$1[\"setUserPreferredLanguages\"]($2)"+        js_setUserPreferredLanguages :: Internals -> JSVal -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setUserPreferredLanguages Mozilla Internals.setUserPreferredLanguages documentation> +setUserPreferredLanguages ::+                          (MonadIO m, ToJSString languages) =>+                            Internals -> [languages] -> m ()+setUserPreferredLanguages self languages+  = liftIO+      (toJSVal languages >>=+         \ languages' -> js_setUserPreferredLanguages (self) languages')+ +foreign import javascript unsafe "$1[\"wheelEventHandlerCount\"]()"+        js_wheelEventHandlerCount :: Internals -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.wheelEventHandlerCount Mozilla Internals.wheelEventHandlerCount documentation> +wheelEventHandlerCount :: (MonadIO m) => Internals -> m Word+wheelEventHandlerCount self+  = liftIO (js_wheelEventHandlerCount (self))+ +foreign import javascript unsafe "$1[\"touchEventHandlerCount\"]()"+        js_touchEventHandlerCount :: Internals -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.touchEventHandlerCount Mozilla Internals.touchEventHandlerCount documentation> +touchEventHandlerCount :: (MonadIO m) => Internals -> m Word+touchEventHandlerCount self+  = liftIO (js_touchEventHandlerCount (self))+ +foreign import javascript unsafe+        "$1[\"nodesFromRect\"]($2, $3, $4,\n$5, $6, $7, $8, $9, $10, $11)"+        js_nodesFromRect ::+        Internals ->+          Nullable Document ->+            Int ->+              Int ->+                Word ->+                  Word ->+                    Word -> Word -> Bool -> Bool -> Bool -> IO (Nullable NodeList)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.nodesFromRect Mozilla Internals.nodesFromRect documentation> +nodesFromRect ::+              (MonadIO m, IsDocument document) =>+                Internals ->+                  Maybe document ->+                    Int ->+                      Int ->+                        Word ->+                          Word -> Word -> Word -> Bool -> Bool -> Bool -> m (Maybe NodeList)+nodesFromRect self document x y topPadding rightPadding+  bottomPadding leftPadding ignoreClipping allowShadowContent+  allowChildFrameContent+  = liftIO+      (nullableToMaybe <$>+         (js_nodesFromRect (self)+            (maybeToNullable (fmap toDocument document))+            x+            y+            topPadding+            rightPadding+            bottomPadding+            leftPadding+            ignoreClipping+            allowShadowContent+            allowChildFrameContent))+ +foreign import javascript unsafe "$1[\"parserMetaData\"]($2)"+        js_parserMetaData :: Internals -> JSVal -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.parserMetaData Mozilla Internals.parserMetaData documentation> +parserMetaData ::+               (MonadIO m, FromJSString result) => Internals -> JSVal -> m result+parserMetaData self func+  = liftIO (fromJSString <$> (js_parserMetaData (self) func))+ +foreign import javascript unsafe+        "$1[\"updateEditorUINowIfScheduled\"]()"+        js_updateEditorUINowIfScheduled :: Internals -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.updateEditorUINowIfScheduled Mozilla Internals.updateEditorUINowIfScheduled documentation> +updateEditorUINowIfScheduled :: (MonadIO m) => Internals -> m ()+updateEditorUINowIfScheduled self+  = liftIO (js_updateEditorUINowIfScheduled (self))+ +foreign import javascript unsafe+        "($1[\"hasSpellingMarker\"]($2,\n$3) ? 1 : 0)" js_hasSpellingMarker+        :: Internals -> Int -> Int -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.hasSpellingMarker Mozilla Internals.hasSpellingMarker documentation> +hasSpellingMarker ::+                  (MonadIO m) => Internals -> Int -> Int -> m Bool+hasSpellingMarker self from length+  = liftIO (js_hasSpellingMarker (self) from length)+ +foreign import javascript unsafe+        "($1[\"hasGrammarMarker\"]($2,\n$3) ? 1 : 0)" js_hasGrammarMarker+        :: Internals -> Int -> Int -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.hasGrammarMarker Mozilla Internals.hasGrammarMarker documentation> +hasGrammarMarker ::+                 (MonadIO m) => Internals -> Int -> Int -> m Bool+hasGrammarMarker self from length+  = liftIO (js_hasGrammarMarker (self) from length)+ +foreign import javascript unsafe+        "($1[\"hasAutocorrectedMarker\"]($2,\n$3) ? 1 : 0)"+        js_hasAutocorrectedMarker :: Internals -> Int -> Int -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.hasAutocorrectedMarker Mozilla Internals.hasAutocorrectedMarker documentation> +hasAutocorrectedMarker ::+                       (MonadIO m) => Internals -> Int -> Int -> m Bool+hasAutocorrectedMarker self from length+  = liftIO (js_hasAutocorrectedMarker (self) from length)+ +foreign import javascript unsafe+        "$1[\"setContinuousSpellCheckingEnabled\"]($2)"+        js_setContinuousSpellCheckingEnabled :: Internals -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setContinuousSpellCheckingEnabled Mozilla Internals.setContinuousSpellCheckingEnabled documentation> +setContinuousSpellCheckingEnabled ::+                                  (MonadIO m) => Internals -> Bool -> m ()+setContinuousSpellCheckingEnabled self enabled+  = liftIO (js_setContinuousSpellCheckingEnabled (self) enabled)+ +foreign import javascript unsafe+        "$1[\"setAutomaticQuoteSubstitutionEnabled\"]($2)"+        js_setAutomaticQuoteSubstitutionEnabled ::+        Internals -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setAutomaticQuoteSubstitutionEnabled Mozilla Internals.setAutomaticQuoteSubstitutionEnabled documentation> +setAutomaticQuoteSubstitutionEnabled ::+                                     (MonadIO m) => Internals -> Bool -> m ()+setAutomaticQuoteSubstitutionEnabled self enabled+  = liftIO (js_setAutomaticQuoteSubstitutionEnabled (self) enabled)+ +foreign import javascript unsafe+        "$1[\"setAutomaticLinkDetectionEnabled\"]($2)"+        js_setAutomaticLinkDetectionEnabled :: Internals -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setAutomaticLinkDetectionEnabled Mozilla Internals.setAutomaticLinkDetectionEnabled documentation> +setAutomaticLinkDetectionEnabled ::+                                 (MonadIO m) => Internals -> Bool -> m ()+setAutomaticLinkDetectionEnabled self enabled+  = liftIO (js_setAutomaticLinkDetectionEnabled (self) enabled)+ +foreign import javascript unsafe+        "$1[\"setAutomaticDashSubstitutionEnabled\"]($2)"+        js_setAutomaticDashSubstitutionEnabled ::+        Internals -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setAutomaticDashSubstitutionEnabled Mozilla Internals.setAutomaticDashSubstitutionEnabled documentation> +setAutomaticDashSubstitutionEnabled ::+                                    (MonadIO m) => Internals -> Bool -> m ()+setAutomaticDashSubstitutionEnabled self enabled+  = liftIO (js_setAutomaticDashSubstitutionEnabled (self) enabled)+ +foreign import javascript unsafe+        "$1[\"setAutomaticTextReplacementEnabled\"]($2)"+        js_setAutomaticTextReplacementEnabled :: Internals -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setAutomaticTextReplacementEnabled Mozilla Internals.setAutomaticTextReplacementEnabled documentation> +setAutomaticTextReplacementEnabled ::+                                   (MonadIO m) => Internals -> Bool -> m ()+setAutomaticTextReplacementEnabled self enabled+  = liftIO (js_setAutomaticTextReplacementEnabled (self) enabled)+ +foreign import javascript unsafe+        "$1[\"setAutomaticSpellingCorrectionEnabled\"]($2)"+        js_setAutomaticSpellingCorrectionEnabled ::+        Internals -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setAutomaticSpellingCorrectionEnabled Mozilla Internals.setAutomaticSpellingCorrectionEnabled documentation> +setAutomaticSpellingCorrectionEnabled ::+                                      (MonadIO m) => Internals -> Bool -> m ()+setAutomaticSpellingCorrectionEnabled self enabled+  = liftIO (js_setAutomaticSpellingCorrectionEnabled (self) enabled)+ +foreign import javascript unsafe+        "($1[\"isOverwriteModeEnabled\"]() ? 1 : 0)"+        js_isOverwriteModeEnabled :: Internals -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.isOverwriteModeEnabled Mozilla Internals.isOverwriteModeEnabled documentation> +isOverwriteModeEnabled :: (MonadIO m) => Internals -> m Bool+isOverwriteModeEnabled self+  = liftIO (js_isOverwriteModeEnabled (self))+ +foreign import javascript unsafe+        "$1[\"toggleOverwriteModeEnabled\"]()"+        js_toggleOverwriteModeEnabled :: Internals -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.toggleOverwriteModeEnabled Mozilla Internals.toggleOverwriteModeEnabled documentation> +toggleOverwriteModeEnabled :: (MonadIO m) => Internals -> m ()+toggleOverwriteModeEnabled self+  = liftIO (js_toggleOverwriteModeEnabled (self))+ +foreign import javascript unsafe+        "$1[\"numberOfScrollableAreas\"]()" js_numberOfScrollableAreas ::+        Internals -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.numberOfScrollableAreas Mozilla Internals.numberOfScrollableAreas documentation> +numberOfScrollableAreas :: (MonadIO m) => Internals -> m Word+numberOfScrollableAreas self+  = liftIO (js_numberOfScrollableAreas (self))+ +foreign import javascript unsafe+        "($1[\"isPageBoxVisible\"]($2) ? 1 : 0)" js_isPageBoxVisible ::+        Internals -> Int -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.isPageBoxVisible Mozilla Internals.isPageBoxVisible documentation> +isPageBoxVisible :: (MonadIO m) => Internals -> Int -> m Bool+isPageBoxVisible self pageNumber+  = liftIO (js_isPageBoxVisible (self) pageNumber)+ +foreign import javascript unsafe "$1[\"layerTreeAsText\"]($2, $3)"+        js_layerTreeAsText ::+        Internals -> Nullable Document -> Word -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.layerTreeAsText Mozilla Internals.layerTreeAsText documentation> +layerTreeAsText ::+                (MonadIO m, IsDocument document, FromJSString result) =>+                  Internals -> Maybe document -> Word -> m result+layerTreeAsText self document flags+  = liftIO+      (fromJSString <$>+         (js_layerTreeAsText (self)+            (maybeToNullable (fmap toDocument document))+            flags))+ +foreign import javascript unsafe+        "$1[\"scrollingStateTreeAsText\"]()" js_scrollingStateTreeAsText ::+        Internals -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.scrollingStateTreeAsText Mozilla Internals.scrollingStateTreeAsText documentation> +scrollingStateTreeAsText ::+                         (MonadIO m, FromJSString result) => Internals -> m result+scrollingStateTreeAsText self+  = liftIO (fromJSString <$> (js_scrollingStateTreeAsText (self)))+ +foreign import javascript unsafe+        "$1[\"mainThreadScrollingReasons\"]()"+        js_mainThreadScrollingReasons :: Internals -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.mainThreadScrollingReasons Mozilla Internals.mainThreadScrollingReasons documentation> +mainThreadScrollingReasons ::+                           (MonadIO m, FromJSString result) => Internals -> m result+mainThreadScrollingReasons self+  = liftIO (fromJSString <$> (js_mainThreadScrollingReasons (self)))+ +foreign import javascript unsafe "$1[\"nonFastScrollableRects\"]()"+        js_nonFastScrollableRects ::+        Internals -> IO (Nullable ClientRectList)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.nonFastScrollableRects Mozilla Internals.nonFastScrollableRects documentation> +nonFastScrollableRects ::+                       (MonadIO m) => Internals -> m (Maybe ClientRectList)+nonFastScrollableRects self+  = liftIO (nullableToMaybe <$> (js_nonFastScrollableRects (self)))+ +foreign import javascript unsafe "$1[\"repaintRectsAsText\"]()"+        js_repaintRectsAsText :: Internals -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.repaintRectsAsText Mozilla Internals.repaintRectsAsText documentation> +repaintRectsAsText ::+                   (MonadIO m, FromJSString result) => Internals -> m result+repaintRectsAsText self+  = liftIO (fromJSString <$> (js_repaintRectsAsText (self)))+ +foreign import javascript unsafe+        "$1[\"garbageCollectDocumentResources\"]()"+        js_garbageCollectDocumentResources :: Internals -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.garbageCollectDocumentResources Mozilla Internals.garbageCollectDocumentResources documentation> +garbageCollectDocumentResources :: (MonadIO m) => Internals -> m ()+garbageCollectDocumentResources self+  = liftIO (js_garbageCollectDocumentResources (self))+ +foreign import javascript unsafe "$1[\"allowRoundingHacks\"]()"+        js_allowRoundingHacks :: Internals -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.allowRoundingHacks Mozilla Internals.allowRoundingHacks documentation> +allowRoundingHacks :: (MonadIO m) => Internals -> m ()+allowRoundingHacks self = liftIO (js_allowRoundingHacks (self))+ +foreign import javascript unsafe "$1[\"insertAuthorCSS\"]($2)"+        js_insertAuthorCSS :: Internals -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.insertAuthorCSS Mozilla Internals.insertAuthorCSS documentation> +insertAuthorCSS ::+                (MonadIO m, ToJSString css) => Internals -> css -> m ()+insertAuthorCSS self css+  = liftIO (js_insertAuthorCSS (self) (toJSString css))+ +foreign import javascript unsafe "$1[\"insertUserCSS\"]($2)"+        js_insertUserCSS :: Internals -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.insertUserCSS Mozilla Internals.insertUserCSS documentation> +insertUserCSS ::+              (MonadIO m, ToJSString css) => Internals -> css -> m ()+insertUserCSS self css+  = liftIO (js_insertUserCSS (self) (toJSString css))+ +foreign import javascript unsafe+        "$1[\"setBatteryStatus\"]($2, $3,\n$4, $5, $6)" js_setBatteryStatus+        ::+        Internals ->+          JSString -> Bool -> Double -> Double -> Double -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setBatteryStatus Mozilla Internals.setBatteryStatus documentation> +setBatteryStatus ::+                 (MonadIO m, ToJSString eventType) =>+                   Internals ->+                     eventType -> Bool -> Double -> Double -> Double -> m ()+setBatteryStatus self eventType charging chargingTime+  dischargingTime level+  = liftIO+      (js_setBatteryStatus (self) (toJSString eventType) charging+         chargingTime+         dischargingTime+         level)+ +foreign import javascript unsafe+        "$1[\"setDeviceProximity\"]($2, $3,\n$4, $5)" js_setDeviceProximity+        :: Internals -> JSString -> Double -> Double -> Double -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setDeviceProximity Mozilla Internals.setDeviceProximity documentation> +setDeviceProximity ::+                   (MonadIO m, ToJSString eventType) =>+                     Internals -> eventType -> Double -> Double -> Double -> m ()+setDeviceProximity self eventType value min max+  = liftIO+      (js_setDeviceProximity (self) (toJSString eventType) value min max)+ +foreign import javascript unsafe "$1[\"numberOfLiveNodes\"]()"+        js_numberOfLiveNodes :: Internals -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.numberOfLiveNodes Mozilla Internals.numberOfLiveNodes documentation> +numberOfLiveNodes :: (MonadIO m) => Internals -> m Word+numberOfLiveNodes self = liftIO (js_numberOfLiveNodes (self))+ +foreign import javascript unsafe "$1[\"numberOfLiveDocuments\"]()"+        js_numberOfLiveDocuments :: Internals -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.numberOfLiveDocuments Mozilla Internals.numberOfLiveDocuments documentation> +numberOfLiveDocuments :: (MonadIO m) => Internals -> m Word+numberOfLiveDocuments self+  = liftIO (js_numberOfLiveDocuments (self))+ +foreign import javascript unsafe+        "$1[\"consoleMessageArgumentCounts\"]()"+        js_consoleMessageArgumentCounts :: Internals -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.consoleMessageArgumentCounts Mozilla Internals.consoleMessageArgumentCounts documentation> +consoleMessageArgumentCounts ::+                             (MonadIO m, FromJSString result) => Internals -> m [result]+consoleMessageArgumentCounts self+  = liftIO+      ((js_consoleMessageArgumentCounts (self)) >>= fromJSValUnchecked)+ +foreign import javascript unsafe+        "$1[\"openDummyInspectorFrontend\"]($2)"+        js_openDummyInspectorFrontend ::+        Internals -> JSString -> IO (Nullable Window)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.openDummyInspectorFrontend Mozilla Internals.openDummyInspectorFrontend documentation> +openDummyInspectorFrontend ::+                           (MonadIO m, ToJSString url) => Internals -> url -> m (Maybe Window)+openDummyInspectorFrontend self url+  = liftIO+      (nullableToMaybe <$>+         (js_openDummyInspectorFrontend (self) (toJSString url)))+ +foreign import javascript unsafe+        "$1[\"closeDummyInspectorFrontend\"]()"+        js_closeDummyInspectorFrontend :: Internals -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.closeDummyInspectorFrontend Mozilla Internals.closeDummyInspectorFrontend documentation> +closeDummyInspectorFrontend :: (MonadIO m) => Internals -> m ()+closeDummyInspectorFrontend self+  = liftIO (js_closeDummyInspectorFrontend (self))+ +foreign import javascript unsafe+        "$1[\"setJavaScriptProfilingEnabled\"]($2)"+        js_setJavaScriptProfilingEnabled :: Internals -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setJavaScriptProfilingEnabled Mozilla Internals.setJavaScriptProfilingEnabled documentation> +setJavaScriptProfilingEnabled ::+                              (MonadIO m) => Internals -> Bool -> m ()+setJavaScriptProfilingEnabled self creates+  = liftIO (js_setJavaScriptProfilingEnabled (self) creates)+ +foreign import javascript unsafe+        "$1[\"setInspectorIsUnderTest\"]($2)" js_setInspectorIsUnderTest ::+        Internals -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setInspectorIsUnderTest Mozilla Internals.setInspectorIsUnderTest documentation> +setInspectorIsUnderTest :: (MonadIO m) => Internals -> Bool -> m ()+setInspectorIsUnderTest self isUnderTest+  = liftIO (js_setInspectorIsUnderTest (self) isUnderTest)+ +foreign import javascript unsafe "$1[\"counterValue\"]($2)"+        js_counterValue :: Internals -> Nullable Element -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.counterValue Mozilla Internals.counterValue documentation> +counterValue ::+             (MonadIO m, IsElement element, FromJSString result) =>+               Internals -> Maybe element -> m result+counterValue self element+  = liftIO+      (fromJSString <$>+         (js_counterValue (self)+            (maybeToNullable (fmap toElement element))))+ +foreign import javascript unsafe "$1[\"pageNumber\"]($2, $3, $4)"+        js_pageNumber ::+        Internals -> Nullable Element -> Float -> Float -> IO Int++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.pageNumber Mozilla Internals.pageNumber documentation> +pageNumber ::+           (MonadIO m, IsElement element) =>+             Internals -> Maybe element -> Float -> Float -> m Int+pageNumber self element pageWidth pageHeight+  = liftIO+      (js_pageNumber (self) (maybeToNullable (fmap toElement element))+         pageWidth+         pageHeight)+ +foreign import javascript unsafe "$1[\"shortcutIconURLs\"]()"+        js_shortcutIconURLs :: Internals -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.shortcutIconURLs Mozilla Internals.shortcutIconURLs documentation> +shortcutIconURLs ::+                 (MonadIO m, FromJSString result) => Internals -> m [result]+shortcutIconURLs self+  = liftIO ((js_shortcutIconURLs (self)) >>= fromJSValUnchecked)+ +foreign import javascript unsafe "$1[\"allIconURLs\"]()"+        js_allIconURLs :: Internals -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.allIconURLs Mozilla Internals.allIconURLs documentation> +allIconURLs ::+            (MonadIO m, FromJSString result) => Internals -> m [result]+allIconURLs self+  = liftIO ((js_allIconURLs (self)) >>= fromJSValUnchecked)+ +foreign import javascript unsafe "$1[\"numberOfPages\"]($2, $3)"+        js_numberOfPages :: Internals -> Double -> Double -> IO Int++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.numberOfPages Mozilla Internals.numberOfPages documentation> +numberOfPages ::+              (MonadIO m) => Internals -> Double -> Double -> m Int+numberOfPages self pageWidthInPixels pageHeightInPixels+  = liftIO+      (js_numberOfPages (self) pageWidthInPixels pageHeightInPixels)+ +foreign import javascript unsafe "$1[\"pageProperty\"]($2, $3)"+        js_pageProperty :: Internals -> JSString -> Int -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.pageProperty Mozilla Internals.pageProperty documentation> +pageProperty ::+             (MonadIO m, ToJSString propertyName, FromJSString result) =>+               Internals -> propertyName -> Int -> m result+pageProperty self propertyName pageNumber+  = liftIO+      (fromJSString <$>+         (js_pageProperty (self) (toJSString propertyName) pageNumber))+ +foreign import javascript unsafe+        "$1[\"pageSizeAndMarginsInPixels\"]($2,\n$3, $4, $5, $6, $7, $8)"+        js_pageSizeAndMarginsInPixels ::+        Internals ->+          Int -> Int -> Int -> Int -> Int -> Int -> Int -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.pageSizeAndMarginsInPixels Mozilla Internals.pageSizeAndMarginsInPixels documentation> +pageSizeAndMarginsInPixels ::+                           (MonadIO m, FromJSString result) =>+                             Internals ->+                               Int -> Int -> Int -> Int -> Int -> Int -> Int -> m result+pageSizeAndMarginsInPixels self pageIndex width height marginTop+  marginRight marginBottom marginLeft+  = liftIO+      (fromJSString <$>+         (js_pageSizeAndMarginsInPixels (self) pageIndex width height+            marginTop+            marginRight+            marginBottom+            marginLeft))+ +foreign import javascript unsafe+        "$1[\"setPageScaleFactor\"]($2, $3,\n$4)" js_setPageScaleFactor ::+        Internals -> Float -> Int -> Int -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setPageScaleFactor Mozilla Internals.setPageScaleFactor documentation> +setPageScaleFactor ::+                   (MonadIO m) => Internals -> Float -> Int -> Int -> m ()+setPageScaleFactor self scaleFactor x y+  = liftIO (js_setPageScaleFactor (self) scaleFactor x y)+ +foreign import javascript unsafe "$1[\"setPageZoomFactor\"]($2)"+        js_setPageZoomFactor :: Internals -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setPageZoomFactor Mozilla Internals.setPageZoomFactor documentation> +setPageZoomFactor :: (MonadIO m) => Internals -> Float -> m ()+setPageZoomFactor self zoomFactor+  = liftIO (js_setPageZoomFactor (self) zoomFactor)+ +foreign import javascript unsafe "$1[\"setHeaderHeight\"]($2)"+        js_setHeaderHeight :: Internals -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setHeaderHeight Mozilla Internals.setHeaderHeight documentation> +setHeaderHeight :: (MonadIO m) => Internals -> Float -> m ()+setHeaderHeight self height+  = liftIO (js_setHeaderHeight (self) height)+ +foreign import javascript unsafe "$1[\"setFooterHeight\"]($2)"+        js_setFooterHeight :: Internals -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setFooterHeight Mozilla Internals.setFooterHeight documentation> +setFooterHeight :: (MonadIO m) => Internals -> Float -> m ()+setFooterHeight self height+  = liftIO (js_setFooterHeight (self) height)+ +foreign import javascript unsafe "$1[\"setTopContentInset\"]($2)"+        js_setTopContentInset :: Internals -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setTopContentInset Mozilla Internals.setTopContentInset documentation> +setTopContentInset :: (MonadIO m) => Internals -> Float -> m ()+setTopContentInset self contentInset+  = liftIO (js_setTopContentInset (self) contentInset)+ +foreign import javascript unsafe+        "$1[\"webkitWillEnterFullScreenForElement\"]($2)"+        js_webkitWillEnterFullScreenForElement ::+        Internals -> Nullable Element -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.webkitWillEnterFullScreenForElement Mozilla Internals.webkitWillEnterFullScreenForElement documentation> +webkitWillEnterFullScreenForElement ::+                                    (MonadIO m, IsElement element) =>+                                      Internals -> Maybe element -> m ()+webkitWillEnterFullScreenForElement self element+  = liftIO+      (js_webkitWillEnterFullScreenForElement (self)+         (maybeToNullable (fmap toElement element)))+ +foreign import javascript unsafe+        "$1[\"webkitDidEnterFullScreenForElement\"]($2)"+        js_webkitDidEnterFullScreenForElement ::+        Internals -> Nullable Element -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.webkitDidEnterFullScreenForElement Mozilla Internals.webkitDidEnterFullScreenForElement documentation> +webkitDidEnterFullScreenForElement ::+                                   (MonadIO m, IsElement element) =>+                                     Internals -> Maybe element -> m ()+webkitDidEnterFullScreenForElement self element+  = liftIO+      (js_webkitDidEnterFullScreenForElement (self)+         (maybeToNullable (fmap toElement element)))+ +foreign import javascript unsafe+        "$1[\"webkitWillExitFullScreenForElement\"]($2)"+        js_webkitWillExitFullScreenForElement ::+        Internals -> Nullable Element -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.webkitWillExitFullScreenForElement Mozilla Internals.webkitWillExitFullScreenForElement documentation> +webkitWillExitFullScreenForElement ::+                                   (MonadIO m, IsElement element) =>+                                     Internals -> Maybe element -> m ()+webkitWillExitFullScreenForElement self element+  = liftIO+      (js_webkitWillExitFullScreenForElement (self)+         (maybeToNullable (fmap toElement element)))+ +foreign import javascript unsafe+        "$1[\"webkitDidExitFullScreenForElement\"]($2)"+        js_webkitDidExitFullScreenForElement ::+        Internals -> Nullable Element -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.webkitDidExitFullScreenForElement Mozilla Internals.webkitDidExitFullScreenForElement documentation> +webkitDidExitFullScreenForElement ::+                                  (MonadIO m, IsElement element) =>+                                    Internals -> Maybe element -> m ()+webkitDidExitFullScreenForElement self element+  = liftIO+      (js_webkitDidExitFullScreenForElement (self)+         (maybeToNullable (fmap toElement element)))+ +foreign import javascript unsafe+        "$1[\"setApplicationCacheOriginQuota\"]($2)"+        js_setApplicationCacheOriginQuota :: Internals -> Double -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setApplicationCacheOriginQuota Mozilla Internals.setApplicationCacheOriginQuota documentation> +setApplicationCacheOriginQuota ::+                               (MonadIO m) => Internals -> Word64 -> m ()+setApplicationCacheOriginQuota self quota+  = liftIO+      (js_setApplicationCacheOriginQuota (self) (fromIntegral quota))+ +foreign import javascript unsafe+        "$1[\"registerURLSchemeAsBypassingContentSecurityPolicy\"]($2)"+        js_registerURLSchemeAsBypassingContentSecurityPolicy ::+        Internals -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.registerURLSchemeAsBypassingContentSecurityPolicy Mozilla Internals.registerURLSchemeAsBypassingContentSecurityPolicy documentation> +registerURLSchemeAsBypassingContentSecurityPolicy ::+                                                  (MonadIO m, ToJSString scheme) =>+                                                    Internals -> scheme -> m ()+registerURLSchemeAsBypassingContentSecurityPolicy self scheme+  = liftIO+      (js_registerURLSchemeAsBypassingContentSecurityPolicy (self)+         (toJSString scheme))+ +foreign import javascript unsafe+        "$1[\"removeURLSchemeRegisteredAsBypassingContentSecurityPolicy\"]($2)"+        js_removeURLSchemeRegisteredAsBypassingContentSecurityPolicy ::+        Internals -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.removeURLSchemeRegisteredAsBypassingContentSecurityPolicy Mozilla Internals.removeURLSchemeRegisteredAsBypassingContentSecurityPolicy documentation> +removeURLSchemeRegisteredAsBypassingContentSecurityPolicy ::+                                                          (MonadIO m, ToJSString scheme) =>+                                                            Internals -> scheme -> m ()+removeURLSchemeRegisteredAsBypassingContentSecurityPolicy self+  scheme+  = liftIO+      (js_removeURLSchemeRegisteredAsBypassingContentSecurityPolicy+         (self)+         (toJSString scheme))+ +foreign import javascript unsafe "$1[\"mallocStatistics\"]()"+        js_mallocStatistics :: Internals -> IO (Nullable MallocStatistics)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.mallocStatistics Mozilla Internals.mallocStatistics documentation> +mallocStatistics ::+                 (MonadIO m) => Internals -> m (Maybe MallocStatistics)+mallocStatistics self+  = liftIO (nullableToMaybe <$> (js_mallocStatistics (self)))+ +foreign import javascript unsafe "$1[\"typeConversions\"]()"+        js_typeConversions :: Internals -> IO (Nullable TypeConversions)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.typeConversions Mozilla Internals.typeConversions documentation> +typeConversions ::+                (MonadIO m) => Internals -> m (Maybe TypeConversions)+typeConversions self+  = liftIO (nullableToMaybe <$> (js_typeConversions (self)))+ +foreign import javascript unsafe "$1[\"memoryInfo\"]()"+        js_memoryInfo :: Internals -> IO (Nullable MemoryInfo)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.memoryInfo Mozilla Internals.memoryInfo documentation> +memoryInfo :: (MonadIO m) => Internals -> m (Maybe MemoryInfo)+memoryInfo self+  = liftIO (nullableToMaybe <$> (js_memoryInfo (self)))+ +foreign import javascript unsafe "$1[\"getReferencedFilePaths\"]()"+        js_getReferencedFilePaths :: Internals -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.getReferencedFilePaths Mozilla Internals.getReferencedFilePaths documentation> +getReferencedFilePaths ::+                       (MonadIO m, FromJSString result) => Internals -> m [result]+getReferencedFilePaths self+  = liftIO+      ((js_getReferencedFilePaths (self)) >>= fromJSValUnchecked)+ +foreign import javascript unsafe "$1[\"startTrackingRepaints\"]()"+        js_startTrackingRepaints :: Internals -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.startTrackingRepaints Mozilla Internals.startTrackingRepaints documentation> +startTrackingRepaints :: (MonadIO m) => Internals -> m ()+startTrackingRepaints self+  = liftIO (js_startTrackingRepaints (self))+ +foreign import javascript unsafe "$1[\"stopTrackingRepaints\"]()"+        js_stopTrackingRepaints :: Internals -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.stopTrackingRepaints Mozilla Internals.stopTrackingRepaints documentation> +stopTrackingRepaints :: (MonadIO m) => Internals -> m ()+stopTrackingRepaints self = liftIO (js_stopTrackingRepaints (self))+ +foreign import javascript unsafe+        "($1[\"isTimerThrottled\"]($2) ? 1 : 0)" js_isTimerThrottled ::+        Internals -> Int -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.isTimerThrottled Mozilla Internals.isTimerThrottled documentation> +isTimerThrottled :: (MonadIO m) => Internals -> Int -> m Bool+isTimerThrottled self timerHandle+  = liftIO (js_isTimerThrottled (self) timerHandle)+ +foreign import javascript unsafe+        "$1[\"updateLayoutIgnorePendingStylesheetsAndRunPostLayoutTasks\"]($2)"+        js_updateLayoutIgnorePendingStylesheetsAndRunPostLayoutTasks ::+        Internals -> Nullable Node -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.updateLayoutIgnorePendingStylesheetsAndRunPostLayoutTasks Mozilla Internals.updateLayoutIgnorePendingStylesheetsAndRunPostLayoutTasks documentation> +updateLayoutIgnorePendingStylesheetsAndRunPostLayoutTasks ::+                                                          (MonadIO m, IsNode node) =>+                                                            Internals -> Maybe node -> m ()+updateLayoutIgnorePendingStylesheetsAndRunPostLayoutTasks self node+  = liftIO+      (js_updateLayoutIgnorePendingStylesheetsAndRunPostLayoutTasks+         (self)+         (maybeToNullable (fmap toNode node)))+ +foreign import javascript unsafe "$1[\"getCurrentCursorInfo\"]()"+        js_getCurrentCursorInfo :: Internals -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.getCurrentCursorInfo Mozilla Internals.getCurrentCursorInfo documentation> +getCurrentCursorInfo ::+                     (MonadIO m, FromJSString result) => Internals -> m result+getCurrentCursorInfo self+  = liftIO (fromJSString <$> (js_getCurrentCursorInfo (self)))+ +foreign import javascript unsafe+        "$1[\"markerTextForListItem\"]($2)" js_markerTextForListItem ::+        Internals -> Nullable Element -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.markerTextForListItem Mozilla Internals.markerTextForListItem documentation> +markerTextForListItem ::+                      (MonadIO m, IsElement element, FromJSString result) =>+                        Internals -> Maybe element -> m result+markerTextForListItem self element+  = liftIO+      (fromJSString <$>+         (js_markerTextForListItem (self)+            (maybeToNullable (fmap toElement element))))+ +foreign import javascript unsafe "$1[\"toolTipFromElement\"]($2)"+        js_toolTipFromElement ::+        Internals -> Nullable Element -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.toolTipFromElement Mozilla Internals.toolTipFromElement documentation> +toolTipFromElement ::+                   (MonadIO m, IsElement element, FromJSString result) =>+                     Internals -> Maybe element -> m result+toolTipFromElement self element+  = liftIO+      (fromJSString <$>+         (js_toolTipFromElement (self)+            (maybeToNullable (fmap toElement element))))+ +foreign import javascript unsafe "$1[\"deserializeBuffer\"]($2)"+        js_deserializeBuffer ::+        Internals ->+          Nullable ArrayBuffer -> IO (Nullable SerializedScriptValue)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.deserializeBuffer Mozilla Internals.deserializeBuffer documentation> +deserializeBuffer ::+                  (MonadIO m, IsArrayBuffer buffer) =>+                    Internals -> Maybe buffer -> m (Maybe SerializedScriptValue)+deserializeBuffer self buffer+  = liftIO+      (nullableToMaybe <$>+         (js_deserializeBuffer (self)+            (maybeToNullable (fmap toArrayBuffer buffer))))+ +foreign import javascript unsafe "$1[\"serializeObject\"]($2)"+        js_serializeObject ::+        Internals ->+          Nullable SerializedScriptValue -> IO (Nullable ArrayBuffer)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.serializeObject Mozilla Internals.serializeObject documentation> +serializeObject ::+                (MonadIO m, IsSerializedScriptValue obj) =>+                  Internals -> Maybe obj -> m (Maybe ArrayBuffer)+serializeObject self obj+  = liftIO+      (nullableToMaybe <$>+         (js_serializeObject (self)+            (maybeToNullable (fmap toSerializedScriptValue obj))))+ +foreign import javascript unsafe+        "$1[\"setUsesOverlayScrollbars\"]($2)" js_setUsesOverlayScrollbars+        :: Internals -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setUsesOverlayScrollbars Mozilla Internals.setUsesOverlayScrollbars documentation> +setUsesOverlayScrollbars ::+                         (MonadIO m) => Internals -> Bool -> m ()+setUsesOverlayScrollbars self enabled+  = liftIO (js_setUsesOverlayScrollbars (self) enabled)+ +foreign import javascript unsafe "$1[\"forceReload\"]($2)"+        js_forceReload :: Internals -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.forceReload Mozilla Internals.forceReload documentation> +forceReload :: (MonadIO m) => Internals -> Bool -> m ()+forceReload self endToEnd = liftIO (js_forceReload (self) endToEnd)+ +foreign import javascript unsafe+        "$1[\"simulateAudioInterruption\"]($2)"+        js_simulateAudioInterruption :: Internals -> Nullable Node -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.simulateAudioInterruption Mozilla Internals.simulateAudioInterruption documentation> +simulateAudioInterruption ::+                          (MonadIO m, IsNode node) => Internals -> Maybe node -> m ()+simulateAudioInterruption self node+  = liftIO+      (js_simulateAudioInterruption (self)+         (maybeToNullable (fmap toNode node)))+ +foreign import javascript unsafe+        "($1[\"mediaElementHasCharacteristic\"]($2,\n$3) ? 1 : 0)"+        js_mediaElementHasCharacteristic ::+        Internals -> Nullable Node -> JSString -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.mediaElementHasCharacteristic Mozilla Internals.mediaElementHasCharacteristic documentation> +mediaElementHasCharacteristic ::+                              (MonadIO m, IsNode node, ToJSString characteristic) =>+                                Internals -> Maybe node -> characteristic -> m Bool+mediaElementHasCharacteristic self node characteristic+  = liftIO+      (js_mediaElementHasCharacteristic (self)+         (maybeToNullable (fmap toNode node))+         (toJSString characteristic))+ +foreign import javascript unsafe "$1[\"initializeMockCDM\"]()"+        js_initializeMockCDM :: Internals -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.initializeMockCDM Mozilla Internals.initializeMockCDM documentation> +initializeMockCDM :: (MonadIO m) => Internals -> m ()+initializeMockCDM self = liftIO (js_initializeMockCDM (self))+ +foreign import javascript unsafe+        "$1[\"enableMockSpeechSynthesizer\"]()"+        js_enableMockSpeechSynthesizer :: Internals -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.enableMockSpeechSynthesizer Mozilla Internals.enableMockSpeechSynthesizer documentation> +enableMockSpeechSynthesizer :: (MonadIO m) => Internals -> m ()+enableMockSpeechSynthesizer self+  = liftIO (js_enableMockSpeechSynthesizer (self))+ +foreign import javascript unsafe "$1[\"getImageSourceURL\"]($2)"+        js_getImageSourceURL ::+        Internals -> Nullable Element -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.getImageSourceURL Mozilla Internals.getImageSourceURL documentation> +getImageSourceURL ::+                  (MonadIO m, IsElement element, FromJSString result) =>+                    Internals -> Maybe element -> m result+getImageSourceURL self element+  = liftIO+      (fromJSString <$>+         (js_getImageSourceURL (self)+            (maybeToNullable (fmap toElement element))))+ +foreign import javascript unsafe+        "$1[\"captionsStyleSheetOverride\"]()"+        js_captionsStyleSheetOverride :: Internals -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.captionsStyleSheetOverride Mozilla Internals.captionsStyleSheetOverride documentation> +captionsStyleSheetOverride ::+                           (MonadIO m, FromJSString result) => Internals -> m result+captionsStyleSheetOverride self+  = liftIO (fromJSString <$> (js_captionsStyleSheetOverride (self)))+ +foreign import javascript unsafe+        "$1[\"setCaptionsStyleSheetOverride\"]($2)"+        js_setCaptionsStyleSheetOverride :: Internals -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setCaptionsStyleSheetOverride Mozilla Internals.setCaptionsStyleSheetOverride documentation> +setCaptionsStyleSheetOverride ::+                              (MonadIO m, ToJSString override) => Internals -> override -> m ()+setCaptionsStyleSheetOverride self override+  = liftIO+      (js_setCaptionsStyleSheetOverride (self) (toJSString override))+ +foreign import javascript unsafe+        "$1[\"setPrimaryAudioTrackLanguageOverride\"]($2)"+        js_setPrimaryAudioTrackLanguageOverride ::+        Internals -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setPrimaryAudioTrackLanguageOverride Mozilla Internals.setPrimaryAudioTrackLanguageOverride documentation> +setPrimaryAudioTrackLanguageOverride ::+                                     (MonadIO m, ToJSString language) =>+                                       Internals -> language -> m ()+setPrimaryAudioTrackLanguageOverride self language+  = liftIO+      (js_setPrimaryAudioTrackLanguageOverride (self)+         (toJSString language))+ +foreign import javascript unsafe+        "$1[\"setCaptionDisplayMode\"]($2)" js_setCaptionDisplayMode ::+        Internals -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setCaptionDisplayMode Mozilla Internals.setCaptionDisplayMode documentation> +setCaptionDisplayMode ::+                      (MonadIO m, ToJSString mode) => Internals -> mode -> m ()+setCaptionDisplayMode self mode+  = liftIO (js_setCaptionDisplayMode (self) (toJSString mode))+ +foreign import javascript unsafe "$1[\"createTimeRanges\"]($2, $3)"+        js_createTimeRanges ::+        Internals ->+          Nullable Float32Array ->+            Nullable Float32Array -> IO (Nullable TimeRanges)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.createTimeRanges Mozilla Internals.createTimeRanges documentation> +createTimeRanges ::+                 (MonadIO m, IsFloat32Array startTimes, IsFloat32Array endTimes) =>+                   Internals ->+                     Maybe startTimes -> Maybe endTimes -> m (Maybe TimeRanges)+createTimeRanges self startTimes endTimes+  = liftIO+      (nullableToMaybe <$>+         (js_createTimeRanges (self)+            (maybeToNullable (fmap toFloat32Array startTimes))+            (maybeToNullable (fmap toFloat32Array endTimes))))+ +foreign import javascript unsafe+        "$1[\"closestTimeToTimeRanges\"]($2,\n$3)"+        js_closestTimeToTimeRanges ::+        Internals -> Double -> Nullable TimeRanges -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.closestTimeToTimeRanges Mozilla Internals.closestTimeToTimeRanges documentation> +closestTimeToTimeRanges ::+                        (MonadIO m) => Internals -> Double -> Maybe TimeRanges -> m Double+closestTimeToTimeRanges self time ranges+  = liftIO+      (js_closestTimeToTimeRanges (self) time (maybeToNullable ranges))+ +foreign import javascript unsafe+        "($1[\"isSelectPopupVisible\"]($2) ? 1 : 0)"+        js_isSelectPopupVisible :: Internals -> Nullable Node -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.isSelectPopupVisible Mozilla Internals.isSelectPopupVisible documentation> +isSelectPopupVisible ::+                     (MonadIO m, IsNode node) => Internals -> Maybe node -> m Bool+isSelectPopupVisible self node+  = liftIO+      (js_isSelectPopupVisible (self)+         (maybeToNullable (fmap toNode node)))+ +foreign import javascript unsafe "($1[\"isVibrating\"]() ? 1 : 0)"+        js_isVibrating :: Internals -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.isVibrating Mozilla Internals.isVibrating documentation> +isVibrating :: (MonadIO m) => Internals -> m Bool+isVibrating self = liftIO (js_isVibrating (self))+ +foreign import javascript unsafe+        "($1[\"isPluginUnavailabilityIndicatorObscured\"]($2) ? 1 : 0)"+        js_isPluginUnavailabilityIndicatorObscured ::+        Internals -> Nullable Element -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.isPluginUnavailabilityIndicatorObscured Mozilla Internals.isPluginUnavailabilityIndicatorObscured documentation> +isPluginUnavailabilityIndicatorObscured ::+                                        (MonadIO m, IsElement element) =>+                                          Internals -> Maybe element -> m Bool+isPluginUnavailabilityIndicatorObscured self element+  = liftIO+      (js_isPluginUnavailabilityIndicatorObscured (self)+         (maybeToNullable (fmap toElement element)))+ +foreign import javascript unsafe+        "($1[\"isPluginSnapshotted\"]($2) ? 1 : 0)" js_isPluginSnapshotted+        :: Internals -> Nullable Element -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.isPluginSnapshotted Mozilla Internals.isPluginSnapshotted documentation> +isPluginSnapshotted ::+                    (MonadIO m, IsElement element) =>+                      Internals -> Maybe element -> m Bool+isPluginSnapshotted self element+  = liftIO+      (js_isPluginSnapshotted (self)+         (maybeToNullable (fmap toElement element)))+ +foreign import javascript unsafe "$1[\"selectionBounds\"]()"+        js_selectionBounds :: Internals -> IO (Nullable ClientRect)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.selectionBounds Mozilla Internals.selectionBounds documentation> +selectionBounds :: (MonadIO m) => Internals -> m (Maybe ClientRect)+selectionBounds self+  = liftIO (nullableToMaybe <$> (js_selectionBounds (self)))+ +foreign import javascript unsafe+        "$1[\"initializeMockMediaSource\"]()" js_initializeMockMediaSource+        :: Internals -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.initializeMockMediaSource Mozilla Internals.initializeMockMediaSource documentation> +initializeMockMediaSource :: (MonadIO m) => Internals -> m ()+initializeMockMediaSource self+  = liftIO (js_initializeMockMediaSource (self))+ +foreign import javascript unsafe+        "$1[\"bufferedSamplesForTrackID\"]($2,\n$3)"+        js_bufferedSamplesForTrackID ::+        Internals -> Nullable SourceBuffer -> JSString -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.bufferedSamplesForTrackID Mozilla Internals.bufferedSamplesForTrackID documentation> +bufferedSamplesForTrackID ::+                          (MonadIO m, ToJSString trackID, FromJSString result) =>+                            Internals -> Maybe SourceBuffer -> trackID -> m [result]+bufferedSamplesForTrackID self buffer trackID+  = liftIO+      ((js_bufferedSamplesForTrackID (self) (maybeToNullable buffer)+          (toJSString trackID))+         >>= fromJSValUnchecked)+ +foreign import javascript unsafe+        "$1[\"beginMediaSessionInterruption\"]()"+        js_beginMediaSessionInterruption :: Internals -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.beginMediaSessionInterruption Mozilla Internals.beginMediaSessionInterruption documentation> +beginMediaSessionInterruption :: (MonadIO m) => Internals -> m ()+beginMediaSessionInterruption self+  = liftIO (js_beginMediaSessionInterruption (self))+ +foreign import javascript unsafe+        "$1[\"endMediaSessionInterruption\"]($2)"+        js_endMediaSessionInterruption :: Internals -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.endMediaSessionInterruption Mozilla Internals.endMediaSessionInterruption documentation> +endMediaSessionInterruption ::+                            (MonadIO m, ToJSString flags) => Internals -> flags -> m ()+endMediaSessionInterruption self flags+  = liftIO (js_endMediaSessionInterruption (self) (toJSString flags))+ +foreign import javascript unsafe+        "$1[\"applicationWillEnterForeground\"]()"+        js_applicationWillEnterForeground :: Internals -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.applicationWillEnterForeground Mozilla Internals.applicationWillEnterForeground documentation> +applicationWillEnterForeground :: (MonadIO m) => Internals -> m ()+applicationWillEnterForeground self+  = liftIO (js_applicationWillEnterForeground (self))+ +foreign import javascript unsafe+        "$1[\"applicationWillEnterBackground\"]()"+        js_applicationWillEnterBackground :: Internals -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.applicationWillEnterBackground Mozilla Internals.applicationWillEnterBackground documentation> +applicationWillEnterBackground :: (MonadIO m) => Internals -> m ()+applicationWillEnterBackground self+  = liftIO (js_applicationWillEnterBackground (self))+ +foreign import javascript unsafe+        "$1[\"setMediaSessionRestrictions\"]($2,\n$3)"+        js_setMediaSessionRestrictions ::+        Internals -> JSString -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setMediaSessionRestrictions Mozilla Internals.setMediaSessionRestrictions documentation> +setMediaSessionRestrictions ::+                            (MonadIO m, ToJSString mediaType, ToJSString restrictions) =>+                              Internals -> mediaType -> restrictions -> m ()+setMediaSessionRestrictions self mediaType restrictions+  = liftIO+      (js_setMediaSessionRestrictions (self) (toJSString mediaType)+         (toJSString restrictions))+ +foreign import javascript unsafe+        "$1[\"postRemoteControlCommand\"]($2)" js_postRemoteControlCommand+        :: Internals -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.postRemoteControlCommand Mozilla Internals.postRemoteControlCommand documentation> +postRemoteControlCommand ::+                         (MonadIO m, ToJSString command) => Internals -> command -> m ()+postRemoteControlCommand self command+  = liftIO (js_postRemoteControlCommand (self) (toJSString command))+ +foreign import javascript unsafe "$1[\"simulateSystemSleep\"]()"+        js_simulateSystemSleep :: Internals -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.simulateSystemSleep Mozilla Internals.simulateSystemSleep documentation> +simulateSystemSleep :: (MonadIO m) => Internals -> m ()+simulateSystemSleep self = liftIO (js_simulateSystemSleep (self))+ +foreign import javascript unsafe "$1[\"simulateSystemWake\"]()"+        js_simulateSystemWake :: Internals -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.simulateSystemWake Mozilla Internals.simulateSystemWake documentation> +simulateSystemWake :: (MonadIO m) => Internals -> m ()+simulateSystemWake self = liftIO (js_simulateSystemWake (self))+ +foreign import javascript unsafe+        "($1[\"elementIsBlockingDisplaySleep\"]($2) ? 1 : 0)"+        js_elementIsBlockingDisplaySleep ::+        Internals -> Nullable Element -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.elementIsBlockingDisplaySleep Mozilla Internals.elementIsBlockingDisplaySleep documentation> +elementIsBlockingDisplaySleep ::+                              (MonadIO m, IsElement element) =>+                                Internals -> Maybe element -> m Bool+elementIsBlockingDisplaySleep self element+  = liftIO+      (js_elementIsBlockingDisplaySleep (self)+         (maybeToNullable (fmap toElement element)))+ +foreign import javascript unsafe+        "$1[\"installMockPageOverlay\"]($2)" js_installMockPageOverlay ::+        Internals -> JSVal -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.installMockPageOverlay Mozilla Internals.installMockPageOverlay documentation> +installMockPageOverlay ::+                       (MonadIO m) => Internals -> PageOverlayType -> m ()+installMockPageOverlay self type'+  = liftIO (js_installMockPageOverlay (self) (pToJSVal type'))+ +foreign import javascript unsafe+        "$1[\"pageOverlayLayerTreeAsText\"]()"+        js_pageOverlayLayerTreeAsText :: Internals -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.pageOverlayLayerTreeAsText Mozilla Internals.pageOverlayLayerTreeAsText documentation> +pageOverlayLayerTreeAsText ::+                           (MonadIO m, FromJSString result) => Internals -> m result+pageOverlayLayerTreeAsText self+  = liftIO (fromJSString <$> (js_pageOverlayLayerTreeAsText (self)))+ +foreign import javascript unsafe "$1[\"setPageMuted\"]($2)"+        js_setPageMuted :: Internals -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setPageMuted Mozilla Internals.setPageMuted documentation> +setPageMuted :: (MonadIO m) => Internals -> Bool -> m ()+setPageMuted self muted = liftIO (js_setPageMuted (self) muted)+ +foreign import javascript unsafe+        "($1[\"isPagePlayingAudio\"]() ? 1 : 0)" js_isPagePlayingAudio ::+        Internals -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.isPagePlayingAudio Mozilla Internals.isPagePlayingAudio documentation> +isPagePlayingAudio :: (MonadIO m) => Internals -> m Bool+isPagePlayingAudio self = liftIO (js_isPagePlayingAudio (self))+pattern LAYER_TREE_INCLUDES_VISIBLE_RECTS = 1+pattern LAYER_TREE_INCLUDES_TILE_CACHES = 2+pattern LAYER_TREE_INCLUDES_REPAINT_RECTS = 4+pattern LAYER_TREE_INCLUDES_PAINTING_PHASES = 8+pattern LAYER_TREE_INCLUDES_CONTENT_LAYERS = 16+ +foreign import javascript unsafe "$1[\"settings\"]" js_getSettings+        :: Internals -> IO (Nullable InternalSettings)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.settings Mozilla Internals.settings documentation> +getSettings ::+            (MonadIO m) => Internals -> m (Maybe InternalSettings)+getSettings self+  = liftIO (nullableToMaybe <$> (js_getSettings (self)))+ +foreign import javascript unsafe "$1[\"workerThreadCount\"]"+        js_getWorkerThreadCount :: Internals -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.workerThreadCount Mozilla Internals.workerThreadCount documentation> +getWorkerThreadCount :: (MonadIO m) => Internals -> m Word+getWorkerThreadCount self = liftIO (js_getWorkerThreadCount (self))+ +foreign import javascript unsafe "$1[\"consoleProfiles\"]"+        js_getConsoleProfiles :: Internals -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.consoleProfiles Mozilla Internals.consoleProfiles documentation> +getConsoleProfiles ::+                   (MonadIO m) => Internals -> m [Maybe ScriptProfile]+getConsoleProfiles self+  = liftIO ((js_getConsoleProfiles (self)) >>= fromJSValUnchecked)
+ src/GHCJS/DOM/JSFFI/Generated/KeyboardEvent.hs view
@@ -0,0 +1,121 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.KeyboardEvent+       (js_initKeyboardEvent, initKeyboardEvent,+        pattern DOM_KEY_LOCATION_STANDARD, pattern DOM_KEY_LOCATION_LEFT,+        pattern DOM_KEY_LOCATION_RIGHT, pattern DOM_KEY_LOCATION_NUMPAD,+        js_getKeyIdentifier, getKeyIdentifier, js_getLocation, getLocation,+        js_getKeyLocation, getKeyLocation, js_getCtrlKey, getCtrlKey,+        js_getShiftKey, getShiftKey, js_getAltKey, getAltKey,+        js_getMetaKey, getMetaKey, js_getAltGraphKey, getAltGraphKey,+        KeyboardEvent, castToKeyboardEvent, gTypeKeyboardEvent)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe+        "$1[\"initKeyboardEvent\"]($2, $3,\n$4, $5, $6, $7, $8, $9, $10,\n$11, $12)"+        js_initKeyboardEvent ::+        KeyboardEvent ->+          JSString ->+            Bool ->+              Bool ->+                Nullable Window ->+                  JSString -> Word -> Bool -> Bool -> Bool -> Bool -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/KeyboardEvent.initKeyboardEvent Mozilla KeyboardEvent.initKeyboardEvent documentation> +initKeyboardEvent ::+                  (MonadIO m, ToJSString type', ToJSString keyIdentifier) =>+                    KeyboardEvent ->+                      type' ->+                        Bool ->+                          Bool ->+                            Maybe Window ->+                              keyIdentifier ->+                                Word -> Bool -> Bool -> Bool -> Bool -> Bool -> m ()+initKeyboardEvent self type' canBubble cancelable view+  keyIdentifier location ctrlKey altKey shiftKey metaKey altGraphKey+  = liftIO+      (js_initKeyboardEvent (self) (toJSString type') canBubble+         cancelable+         (maybeToNullable view)+         (toJSString keyIdentifier)+         location+         ctrlKey+         altKey+         shiftKey+         metaKey+         altGraphKey)+pattern DOM_KEY_LOCATION_STANDARD = 0+pattern DOM_KEY_LOCATION_LEFT = 1+pattern DOM_KEY_LOCATION_RIGHT = 2+pattern DOM_KEY_LOCATION_NUMPAD = 3+ +foreign import javascript unsafe "$1[\"keyIdentifier\"]"+        js_getKeyIdentifier :: KeyboardEvent -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/KeyboardEvent.keyIdentifier Mozilla KeyboardEvent.keyIdentifier documentation> +getKeyIdentifier ::+                 (MonadIO m, FromJSString result) => KeyboardEvent -> m result+getKeyIdentifier self+  = liftIO (fromJSString <$> (js_getKeyIdentifier (self)))+ +foreign import javascript unsafe "$1[\"location\"]" js_getLocation+        :: KeyboardEvent -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/KeyboardEvent.location Mozilla KeyboardEvent.location documentation> +getLocation :: (MonadIO m) => KeyboardEvent -> m Word+getLocation self = liftIO (js_getLocation (self))+ +foreign import javascript unsafe "$1[\"keyLocation\"]"+        js_getKeyLocation :: KeyboardEvent -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/KeyboardEvent.keyLocation Mozilla KeyboardEvent.keyLocation documentation> +getKeyLocation :: (MonadIO m) => KeyboardEvent -> m Word+getKeyLocation self = liftIO (js_getKeyLocation (self))+ +foreign import javascript unsafe "($1[\"ctrlKey\"] ? 1 : 0)"+        js_getCtrlKey :: KeyboardEvent -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/KeyboardEvent.ctrlKey Mozilla KeyboardEvent.ctrlKey documentation> +getCtrlKey :: (MonadIO m) => KeyboardEvent -> m Bool+getCtrlKey self = liftIO (js_getCtrlKey (self))+ +foreign import javascript unsafe "($1[\"shiftKey\"] ? 1 : 0)"+        js_getShiftKey :: KeyboardEvent -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/KeyboardEvent.shiftKey Mozilla KeyboardEvent.shiftKey documentation> +getShiftKey :: (MonadIO m) => KeyboardEvent -> m Bool+getShiftKey self = liftIO (js_getShiftKey (self))+ +foreign import javascript unsafe "($1[\"altKey\"] ? 1 : 0)"+        js_getAltKey :: KeyboardEvent -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/KeyboardEvent.altKey Mozilla KeyboardEvent.altKey documentation> +getAltKey :: (MonadIO m) => KeyboardEvent -> m Bool+getAltKey self = liftIO (js_getAltKey (self))+ +foreign import javascript unsafe "($1[\"metaKey\"] ? 1 : 0)"+        js_getMetaKey :: KeyboardEvent -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/KeyboardEvent.metaKey Mozilla KeyboardEvent.metaKey documentation> +getMetaKey :: (MonadIO m) => KeyboardEvent -> m Bool+getMetaKey self = liftIO (js_getMetaKey (self))+ +foreign import javascript unsafe "($1[\"altGraphKey\"] ? 1 : 0)"+        js_getAltGraphKey :: KeyboardEvent -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/KeyboardEvent.altGraphKey Mozilla KeyboardEvent.altGraphKey documentation> +getAltGraphKey :: (MonadIO m) => KeyboardEvent -> m Bool+getAltGraphKey self = liftIO (js_getAltGraphKey (self))
+ src/GHCJS/DOM/JSFFI/Generated/Location.hs view
@@ -0,0 +1,198 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.Location+       (js_assign, assign, js_replace, replace, js_reload, reload,+        js_toString, toString, js_setHref, setHref, js_getHref, getHref,+        js_setProtocol, setProtocol, js_getProtocol, getProtocol,+        js_setHost, setHost, js_getHost, getHost, js_setHostname,+        setHostname, js_getHostname, getHostname, js_setPort, setPort,+        js_getPort, getPort, js_setPathname, setPathname, js_getPathname,+        getPathname, js_setSearch, setSearch, js_getSearch, getSearch,+        js_setHash, setHash, js_getHash, getHash, js_getOrigin, getOrigin,+        js_getAncestorOrigins, getAncestorOrigins, Location,+        castToLocation, gTypeLocation)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"assign\"]($2)" js_assign ::+        Location -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Location.assign Mozilla Location.assign documentation> +assign :: (MonadIO m, ToJSString url) => Location -> url -> m ()+assign self url = liftIO (js_assign (self) (toJSString url))+ +foreign import javascript unsafe "$1[\"replace\"]($2)" js_replace+        :: Location -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Location.replace Mozilla Location.replace documentation> +replace :: (MonadIO m, ToJSString url) => Location -> url -> m ()+replace self url = liftIO (js_replace (self) (toJSString url))+ +foreign import javascript unsafe "$1[\"reload\"]()" js_reload ::+        Location -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Location.reload Mozilla Location.reload documentation> +reload :: (MonadIO m) => Location -> m ()+reload self = liftIO (js_reload (self))+ +foreign import javascript unsafe "$1[\"toString\"]()" js_toString+        :: Location -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Location.toString Mozilla Location.toString documentation> +toString ::+         (MonadIO m, FromJSString result) => Location -> m result+toString self = liftIO (fromJSString <$> (js_toString (self)))+ +foreign import javascript unsafe "$1[\"href\"] = $2;" js_setHref ::+        Location -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Location.href Mozilla Location.href documentation> +setHref :: (MonadIO m, ToJSString val) => Location -> val -> m ()+setHref self val = liftIO (js_setHref (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"href\"]" js_getHref ::+        Location -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Location.href Mozilla Location.href documentation> +getHref :: (MonadIO m, FromJSString result) => Location -> m result+getHref self = liftIO (fromJSString <$> (js_getHref (self)))+ +foreign import javascript unsafe "$1[\"protocol\"] = $2;"+        js_setProtocol :: Location -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Location.protocol Mozilla Location.protocol documentation> +setProtocol ::+            (MonadIO m, ToJSString val) => Location -> val -> m ()+setProtocol self val+  = liftIO (js_setProtocol (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"protocol\"]" js_getProtocol+        :: Location -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Location.protocol Mozilla Location.protocol documentation> +getProtocol ::+            (MonadIO m, FromJSString result) => Location -> m result+getProtocol self+  = liftIO (fromJSString <$> (js_getProtocol (self)))+ +foreign import javascript unsafe "$1[\"host\"] = $2;" js_setHost ::+        Location -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Location.host Mozilla Location.host documentation> +setHost :: (MonadIO m, ToJSString val) => Location -> val -> m ()+setHost self val = liftIO (js_setHost (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"host\"]" js_getHost ::+        Location -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Location.host Mozilla Location.host documentation> +getHost :: (MonadIO m, FromJSString result) => Location -> m result+getHost self = liftIO (fromJSString <$> (js_getHost (self)))+ +foreign import javascript unsafe "$1[\"hostname\"] = $2;"+        js_setHostname :: Location -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Location.hostname Mozilla Location.hostname documentation> +setHostname ::+            (MonadIO m, ToJSString val) => Location -> val -> m ()+setHostname self val+  = liftIO (js_setHostname (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"hostname\"]" js_getHostname+        :: Location -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Location.hostname Mozilla Location.hostname documentation> +getHostname ::+            (MonadIO m, FromJSString result) => Location -> m result+getHostname self+  = liftIO (fromJSString <$> (js_getHostname (self)))+ +foreign import javascript unsafe "$1[\"port\"] = $2;" js_setPort ::+        Location -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Location.port Mozilla Location.port documentation> +setPort :: (MonadIO m, ToJSString val) => Location -> val -> m ()+setPort self val = liftIO (js_setPort (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"port\"]" js_getPort ::+        Location -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Location.port Mozilla Location.port documentation> +getPort :: (MonadIO m, FromJSString result) => Location -> m result+getPort self = liftIO (fromJSString <$> (js_getPort (self)))+ +foreign import javascript unsafe "$1[\"pathname\"] = $2;"+        js_setPathname :: Location -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Location.pathname Mozilla Location.pathname documentation> +setPathname ::+            (MonadIO m, ToJSString val) => Location -> val -> m ()+setPathname self val+  = liftIO (js_setPathname (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"pathname\"]" js_getPathname+        :: Location -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Location.pathname Mozilla Location.pathname documentation> +getPathname ::+            (MonadIO m, FromJSString result) => Location -> m result+getPathname self+  = liftIO (fromJSString <$> (js_getPathname (self)))+ +foreign import javascript unsafe "$1[\"search\"] = $2;"+        js_setSearch :: Location -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Location.search Mozilla Location.search documentation> +setSearch :: (MonadIO m, ToJSString val) => Location -> val -> m ()+setSearch self val = liftIO (js_setSearch (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"search\"]" js_getSearch ::+        Location -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Location.search Mozilla Location.search documentation> +getSearch ::+          (MonadIO m, FromJSString result) => Location -> m result+getSearch self = liftIO (fromJSString <$> (js_getSearch (self)))+ +foreign import javascript unsafe "$1[\"hash\"] = $2;" js_setHash ::+        Location -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Location.hash Mozilla Location.hash documentation> +setHash :: (MonadIO m, ToJSString val) => Location -> val -> m ()+setHash self val = liftIO (js_setHash (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"hash\"]" js_getHash ::+        Location -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Location.hash Mozilla Location.hash documentation> +getHash :: (MonadIO m, FromJSString result) => Location -> m result+getHash self = liftIO (fromJSString <$> (js_getHash (self)))+ +foreign import javascript unsafe "$1[\"origin\"]" js_getOrigin ::+        Location -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Location.origin Mozilla Location.origin documentation> +getOrigin ::+          (MonadIO m, FromJSString result) => Location -> m result+getOrigin self = liftIO (fromJSString <$> (js_getOrigin (self)))+ +foreign import javascript unsafe "$1[\"ancestorOrigins\"]"+        js_getAncestorOrigins :: Location -> IO (Nullable DOMStringList)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Location.ancestorOrigins Mozilla Location.ancestorOrigins documentation> +getAncestorOrigins ::+                   (MonadIO m) => Location -> m (Maybe DOMStringList)+getAncestorOrigins self+  = liftIO (nullableToMaybe <$> (js_getAncestorOrigins (self)))
+ src/GHCJS/DOM/JSFFI/Generated/MallocStatistics.hs view
@@ -0,0 +1,41 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.MallocStatistics+       (js_getReservedVMBytes, getReservedVMBytes, js_getCommittedVMBytes,+        getCommittedVMBytes, js_getFreeListBytes, getFreeListBytes,+        MallocStatistics, castToMallocStatistics, gTypeMallocStatistics)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"reservedVMBytes\"]"+        js_getReservedVMBytes :: MallocStatistics -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MallocStatistics.reservedVMBytes Mozilla MallocStatistics.reservedVMBytes documentation> +getReservedVMBytes :: (MonadIO m) => MallocStatistics -> m Word+getReservedVMBytes self = liftIO (js_getReservedVMBytes (self))+ +foreign import javascript unsafe "$1[\"committedVMBytes\"]"+        js_getCommittedVMBytes :: MallocStatistics -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MallocStatistics.committedVMBytes Mozilla MallocStatistics.committedVMBytes documentation> +getCommittedVMBytes :: (MonadIO m) => MallocStatistics -> m Word+getCommittedVMBytes self = liftIO (js_getCommittedVMBytes (self))+ +foreign import javascript unsafe "$1[\"freeListBytes\"]"+        js_getFreeListBytes :: MallocStatistics -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MallocStatistics.freeListBytes Mozilla MallocStatistics.freeListBytes documentation> +getFreeListBytes :: (MonadIO m) => MallocStatistics -> m Word+getFreeListBytes self = liftIO (js_getFreeListBytes (self))
+ src/GHCJS/DOM/JSFFI/Generated/MediaController.hs view
@@ -0,0 +1,181 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.MediaController+       (js_newMediaController, newMediaController, js_play, play,+        js_pause, pause, js_unpause, unpause, js_getBuffered, getBuffered,+        js_getSeekable, getSeekable, js_getDuration, getDuration,+        js_setCurrentTime, setCurrentTime, js_getCurrentTime,+        getCurrentTime, js_getPaused, getPaused, js_getPlayed, getPlayed,+        js_getPlaybackState, getPlaybackState, js_setDefaultPlaybackRate,+        setDefaultPlaybackRate, js_getDefaultPlaybackRate,+        getDefaultPlaybackRate, js_setPlaybackRate, setPlaybackRate,+        js_getPlaybackRate, getPlaybackRate, js_setVolume, setVolume,+        js_getVolume, getVolume, js_setMuted, setMuted, js_getMuted,+        getMuted, MediaController, castToMediaController,+        gTypeMediaController)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe+        "new window[\"MediaController\"]()" js_newMediaController ::+        IO MediaController++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaController Mozilla MediaController documentation> +newMediaController :: (MonadIO m) => m MediaController+newMediaController = liftIO (js_newMediaController)+ +foreign import javascript unsafe "$1[\"play\"]()" js_play ::+        MediaController -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaController.play Mozilla MediaController.play documentation> +play :: (MonadIO m) => MediaController -> m ()+play self = liftIO (js_play (self))+ +foreign import javascript unsafe "$1[\"pause\"]()" js_pause ::+        MediaController -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaController.pause Mozilla MediaController.pause documentation> +pause :: (MonadIO m) => MediaController -> m ()+pause self = liftIO (js_pause (self))+ +foreign import javascript unsafe "$1[\"unpause\"]()" js_unpause ::+        MediaController -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaController.unpause Mozilla MediaController.unpause documentation> +unpause :: (MonadIO m) => MediaController -> m ()+unpause self = liftIO (js_unpause (self))+ +foreign import javascript unsafe "$1[\"buffered\"]" js_getBuffered+        :: MediaController -> IO (Nullable TimeRanges)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaController.buffered Mozilla MediaController.buffered documentation> +getBuffered ::+            (MonadIO m) => MediaController -> m (Maybe TimeRanges)+getBuffered self+  = liftIO (nullableToMaybe <$> (js_getBuffered (self)))+ +foreign import javascript unsafe "$1[\"seekable\"]" js_getSeekable+        :: MediaController -> IO (Nullable TimeRanges)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaController.seekable Mozilla MediaController.seekable documentation> +getSeekable ::+            (MonadIO m) => MediaController -> m (Maybe TimeRanges)+getSeekable self+  = liftIO (nullableToMaybe <$> (js_getSeekable (self)))+ +foreign import javascript unsafe "$1[\"duration\"]" js_getDuration+        :: MediaController -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaController.duration Mozilla MediaController.duration documentation> +getDuration :: (MonadIO m) => MediaController -> m Double+getDuration self = liftIO (js_getDuration (self))+ +foreign import javascript unsafe "$1[\"currentTime\"] = $2;"+        js_setCurrentTime :: MediaController -> Double -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaController.currentTime Mozilla MediaController.currentTime documentation> +setCurrentTime :: (MonadIO m) => MediaController -> Double -> m ()+setCurrentTime self val = liftIO (js_setCurrentTime (self) val)+ +foreign import javascript unsafe "$1[\"currentTime\"]"+        js_getCurrentTime :: MediaController -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaController.currentTime Mozilla MediaController.currentTime documentation> +getCurrentTime :: (MonadIO m) => MediaController -> m Double+getCurrentTime self = liftIO (js_getCurrentTime (self))+ +foreign import javascript unsafe "($1[\"paused\"] ? 1 : 0)"+        js_getPaused :: MediaController -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaController.paused Mozilla MediaController.paused documentation> +getPaused :: (MonadIO m) => MediaController -> m Bool+getPaused self = liftIO (js_getPaused (self))+ +foreign import javascript unsafe "$1[\"played\"]" js_getPlayed ::+        MediaController -> IO (Nullable TimeRanges)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaController.played Mozilla MediaController.played documentation> +getPlayed :: (MonadIO m) => MediaController -> m (Maybe TimeRanges)+getPlayed self = liftIO (nullableToMaybe <$> (js_getPlayed (self)))+ +foreign import javascript unsafe "$1[\"playbackState\"]"+        js_getPlaybackState :: MediaController -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaController.playbackState Mozilla MediaController.playbackState documentation> +getPlaybackState ::+                 (MonadIO m, FromJSString result) => MediaController -> m result+getPlaybackState self+  = liftIO (fromJSString <$> (js_getPlaybackState (self)))+ +foreign import javascript unsafe+        "$1[\"defaultPlaybackRate\"] = $2;" js_setDefaultPlaybackRate ::+        MediaController -> Double -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaController.defaultPlaybackRate Mozilla MediaController.defaultPlaybackRate documentation> +setDefaultPlaybackRate ::+                       (MonadIO m) => MediaController -> Double -> m ()+setDefaultPlaybackRate self val+  = liftIO (js_setDefaultPlaybackRate (self) val)+ +foreign import javascript unsafe "$1[\"defaultPlaybackRate\"]"+        js_getDefaultPlaybackRate :: MediaController -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaController.defaultPlaybackRate Mozilla MediaController.defaultPlaybackRate documentation> +getDefaultPlaybackRate ::+                       (MonadIO m) => MediaController -> m Double+getDefaultPlaybackRate self+  = liftIO (js_getDefaultPlaybackRate (self))+ +foreign import javascript unsafe "$1[\"playbackRate\"] = $2;"+        js_setPlaybackRate :: MediaController -> Double -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaController.playbackRate Mozilla MediaController.playbackRate documentation> +setPlaybackRate :: (MonadIO m) => MediaController -> Double -> m ()+setPlaybackRate self val = liftIO (js_setPlaybackRate (self) val)+ +foreign import javascript unsafe "$1[\"playbackRate\"]"+        js_getPlaybackRate :: MediaController -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaController.playbackRate Mozilla MediaController.playbackRate documentation> +getPlaybackRate :: (MonadIO m) => MediaController -> m Double+getPlaybackRate self = liftIO (js_getPlaybackRate (self))+ +foreign import javascript unsafe "$1[\"volume\"] = $2;"+        js_setVolume :: MediaController -> Double -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaController.volume Mozilla MediaController.volume documentation> +setVolume :: (MonadIO m) => MediaController -> Double -> m ()+setVolume self val = liftIO (js_setVolume (self) val)+ +foreign import javascript unsafe "$1[\"volume\"]" js_getVolume ::+        MediaController -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaController.volume Mozilla MediaController.volume documentation> +getVolume :: (MonadIO m) => MediaController -> m Double+getVolume self = liftIO (js_getVolume (self))+ +foreign import javascript unsafe "$1[\"muted\"] = $2;" js_setMuted+        :: MediaController -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaController.muted Mozilla MediaController.muted documentation> +setMuted :: (MonadIO m) => MediaController -> Bool -> m ()+setMuted self val = liftIO (js_setMuted (self) val)+ +foreign import javascript unsafe "($1[\"muted\"] ? 1 : 0)"+        js_getMuted :: MediaController -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaController.muted Mozilla MediaController.muted documentation> +getMuted :: (MonadIO m) => MediaController -> m Bool+getMuted self = liftIO (js_getMuted (self))
+ src/GHCJS/DOM/JSFFI/Generated/MediaControlsHost.hs view
@@ -0,0 +1,259 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.MediaControlsHost+       (js_sortedTrackListForMenu, sortedTrackListForMenu,+        js_sortedTrackListForMenuAudio, sortedTrackListForMenuAudio,+        js_displayNameForTrack, displayNameForTrack,+        js_displayNameForTrackAudio, displayNameForTrackAudio,+        js_setSelectedTextTrack, setSelectedTextTrack,+        js_updateTextTrackContainer, updateTextTrackContainer,+        js_enteredFullscreen, enteredFullscreen, js_exitedFullscreen,+        exitedFullscreen, js_enterFullscreenOptimized,+        enterFullscreenOptimized, js_mediaUIImageData, mediaUIImageData,+        js_getCaptionMenuOffItem, getCaptionMenuOffItem,+        js_getCaptionMenuAutomaticItem, getCaptionMenuAutomaticItem,+        js_getCaptionDisplayMode, getCaptionDisplayMode,+        js_getTextTrackContainer, getTextTrackContainer,+        js_getMediaPlaybackAllowsInline, getMediaPlaybackAllowsInline,+        js_getSupportsFullscreen, getSupportsFullscreen,+        js_getUserGestureRequired, getUserGestureRequired,+        js_getExternalDeviceDisplayName, getExternalDeviceDisplayName,+        js_getExternalDeviceType, getExternalDeviceType,+        js_setControlsDependOnPageScaleFactor,+        setControlsDependOnPageScaleFactor,+        js_getControlsDependOnPageScaleFactor,+        getControlsDependOnPageScaleFactor, MediaControlsHost,+        castToMediaControlsHost, gTypeMediaControlsHost)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe+        "$1[\"sortedTrackListForMenu\"]($2)" js_sortedTrackListForMenu ::+        MediaControlsHost -> Nullable TextTrackList -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.sortedTrackListForMenu Mozilla MediaControlsHost.sortedTrackListForMenu documentation> +sortedTrackListForMenu ::+                       (MonadIO m) =>+                         MediaControlsHost -> Maybe TextTrackList -> m [Maybe TextTrack]+sortedTrackListForMenu self trackList+  = liftIO+      ((js_sortedTrackListForMenu (self) (maybeToNullable trackList)) >>=+         fromJSValUnchecked)+ +foreign import javascript unsafe+        "$1[\"sortedTrackListForMenu\"]($2)" js_sortedTrackListForMenuAudio+        :: MediaControlsHost -> Nullable AudioTrackList -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.sortedTrackListForMenu Mozilla MediaControlsHost.sortedTrackListForMenu documentation> +sortedTrackListForMenuAudio ::+                            (MonadIO m) =>+                              MediaControlsHost -> Maybe AudioTrackList -> m [Maybe AudioTrack]+sortedTrackListForMenuAudio self trackList+  = liftIO+      ((js_sortedTrackListForMenuAudio (self)+          (maybeToNullable trackList))+         >>= fromJSValUnchecked)+ +foreign import javascript unsafe "$1[\"displayNameForTrack\"]($2)"+        js_displayNameForTrack ::+        MediaControlsHost -> Nullable TextTrack -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.displayNameForTrack Mozilla MediaControlsHost.displayNameForTrack documentation> +displayNameForTrack ::+                    (MonadIO m, FromJSString result) =>+                      MediaControlsHost -> Maybe TextTrack -> m result+displayNameForTrack self track+  = liftIO+      (fromJSString <$>+         (js_displayNameForTrack (self) (maybeToNullable track)))+ +foreign import javascript unsafe "$1[\"displayNameForTrack\"]($2)"+        js_displayNameForTrackAudio ::+        MediaControlsHost -> Nullable AudioTrack -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.displayNameForTrack Mozilla MediaControlsHost.displayNameForTrack documentation> +displayNameForTrackAudio ::+                         (MonadIO m, FromJSString result) =>+                           MediaControlsHost -> Maybe AudioTrack -> m result+displayNameForTrackAudio self track+  = liftIO+      (fromJSString <$>+         (js_displayNameForTrackAudio (self) (maybeToNullable track)))+ +foreign import javascript unsafe "$1[\"setSelectedTextTrack\"]($2)"+        js_setSelectedTextTrack ::+        MediaControlsHost -> Nullable TextTrack -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.setSelectedTextTrack Mozilla MediaControlsHost.setSelectedTextTrack documentation> +setSelectedTextTrack ::+                     (MonadIO m) => MediaControlsHost -> Maybe TextTrack -> m ()+setSelectedTextTrack self track+  = liftIO (js_setSelectedTextTrack (self) (maybeToNullable track))+ +foreign import javascript unsafe+        "$1[\"updateTextTrackContainer\"]()" js_updateTextTrackContainer ::+        MediaControlsHost -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.updateTextTrackContainer Mozilla MediaControlsHost.updateTextTrackContainer documentation> +updateTextTrackContainer ::+                         (MonadIO m) => MediaControlsHost -> m ()+updateTextTrackContainer self+  = liftIO (js_updateTextTrackContainer (self))+ +foreign import javascript unsafe "$1[\"enteredFullscreen\"]()"+        js_enteredFullscreen :: MediaControlsHost -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.enteredFullscreen Mozilla MediaControlsHost.enteredFullscreen documentation> +enteredFullscreen :: (MonadIO m) => MediaControlsHost -> m ()+enteredFullscreen self = liftIO (js_enteredFullscreen (self))+ +foreign import javascript unsafe "$1[\"exitedFullscreen\"]()"+        js_exitedFullscreen :: MediaControlsHost -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.exitedFullscreen Mozilla MediaControlsHost.exitedFullscreen documentation> +exitedFullscreen :: (MonadIO m) => MediaControlsHost -> m ()+exitedFullscreen self = liftIO (js_exitedFullscreen (self))+ +foreign import javascript unsafe+        "$1[\"enterFullscreenOptimized\"]()" js_enterFullscreenOptimized ::+        MediaControlsHost -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.enterFullscreenOptimized Mozilla MediaControlsHost.enterFullscreenOptimized documentation> +enterFullscreenOptimized ::+                         (MonadIO m) => MediaControlsHost -> m ()+enterFullscreenOptimized self+  = liftIO (js_enterFullscreenOptimized (self))+ +foreign import javascript unsafe "$1[\"mediaUIImageData\"]($2)"+        js_mediaUIImageData :: MediaControlsHost -> JSVal -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.mediaUIImageData Mozilla MediaControlsHost.mediaUIImageData documentation> +mediaUIImageData ::+                 (MonadIO m, FromJSString result) =>+                   MediaControlsHost -> MediaUIPartID -> m result+mediaUIImageData self partID+  = liftIO+      (fromJSString <$> (js_mediaUIImageData (self) (pToJSVal partID)))+ +foreign import javascript unsafe "$1[\"captionMenuOffItem\"]"+        js_getCaptionMenuOffItem ::+        MediaControlsHost -> IO (Nullable TextTrack)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.captionMenuOffItem Mozilla MediaControlsHost.captionMenuOffItem documentation> +getCaptionMenuOffItem ::+                      (MonadIO m) => MediaControlsHost -> m (Maybe TextTrack)+getCaptionMenuOffItem self+  = liftIO (nullableToMaybe <$> (js_getCaptionMenuOffItem (self)))+ +foreign import javascript unsafe "$1[\"captionMenuAutomaticItem\"]"+        js_getCaptionMenuAutomaticItem ::+        MediaControlsHost -> IO (Nullable TextTrack)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.captionMenuAutomaticItem Mozilla MediaControlsHost.captionMenuAutomaticItem documentation> +getCaptionMenuAutomaticItem ::+                            (MonadIO m) => MediaControlsHost -> m (Maybe TextTrack)+getCaptionMenuAutomaticItem self+  = liftIO+      (nullableToMaybe <$> (js_getCaptionMenuAutomaticItem (self)))+ +foreign import javascript unsafe "$1[\"captionDisplayMode\"]"+        js_getCaptionDisplayMode :: MediaControlsHost -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.captionDisplayMode Mozilla MediaControlsHost.captionDisplayMode documentation> +getCaptionDisplayMode ::+                      (MonadIO m, FromJSString result) => MediaControlsHost -> m result+getCaptionDisplayMode self+  = liftIO (fromJSString <$> (js_getCaptionDisplayMode (self)))+ +foreign import javascript unsafe "$1[\"textTrackContainer\"]"+        js_getTextTrackContainer ::+        MediaControlsHost -> IO (Nullable HTMLElement)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.textTrackContainer Mozilla MediaControlsHost.textTrackContainer documentation> +getTextTrackContainer ::+                      (MonadIO m) => MediaControlsHost -> m (Maybe HTMLElement)+getTextTrackContainer self+  = liftIO (nullableToMaybe <$> (js_getTextTrackContainer (self)))+ +foreign import javascript unsafe+        "($1[\"mediaPlaybackAllowsInline\"] ? 1 : 0)"+        js_getMediaPlaybackAllowsInline :: MediaControlsHost -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.mediaPlaybackAllowsInline Mozilla MediaControlsHost.mediaPlaybackAllowsInline documentation> +getMediaPlaybackAllowsInline ::+                             (MonadIO m) => MediaControlsHost -> m Bool+getMediaPlaybackAllowsInline self+  = liftIO (js_getMediaPlaybackAllowsInline (self))+ +foreign import javascript unsafe+        "($1[\"supportsFullscreen\"] ? 1 : 0)" js_getSupportsFullscreen ::+        MediaControlsHost -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.supportsFullscreen Mozilla MediaControlsHost.supportsFullscreen documentation> +getSupportsFullscreen :: (MonadIO m) => MediaControlsHost -> m Bool+getSupportsFullscreen self+  = liftIO (js_getSupportsFullscreen (self))+ +foreign import javascript unsafe+        "($1[\"userGestureRequired\"] ? 1 : 0)" js_getUserGestureRequired+        :: MediaControlsHost -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.userGestureRequired Mozilla MediaControlsHost.userGestureRequired documentation> +getUserGestureRequired ::+                       (MonadIO m) => MediaControlsHost -> m Bool+getUserGestureRequired self+  = liftIO (js_getUserGestureRequired (self))+ +foreign import javascript unsafe+        "$1[\"externalDeviceDisplayName\"]" js_getExternalDeviceDisplayName+        :: MediaControlsHost -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.externalDeviceDisplayName Mozilla MediaControlsHost.externalDeviceDisplayName documentation> +getExternalDeviceDisplayName ::+                             (MonadIO m, FromJSString result) => MediaControlsHost -> m result+getExternalDeviceDisplayName self+  = liftIO+      (fromJSString <$> (js_getExternalDeviceDisplayName (self)))+ +foreign import javascript unsafe "$1[\"externalDeviceType\"]"+        js_getExternalDeviceType :: MediaControlsHost -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.externalDeviceType Mozilla MediaControlsHost.externalDeviceType documentation> +getExternalDeviceType ::+                      (MonadIO m) => MediaControlsHost -> m DeviceType+getExternalDeviceType self+  = liftIO ((js_getExternalDeviceType (self)) >>= fromJSValUnchecked)+ +foreign import javascript unsafe+        "$1[\"controlsDependOnPageScaleFactor\"] = $2;"+        js_setControlsDependOnPageScaleFactor ::+        MediaControlsHost -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.controlsDependOnPageScaleFactor Mozilla MediaControlsHost.controlsDependOnPageScaleFactor documentation> +setControlsDependOnPageScaleFactor ::+                                   (MonadIO m) => MediaControlsHost -> Bool -> m ()+setControlsDependOnPageScaleFactor self val+  = liftIO (js_setControlsDependOnPageScaleFactor (self) val)+ +foreign import javascript unsafe+        "($1[\"controlsDependOnPageScaleFactor\"] ? 1 : 0)"+        js_getControlsDependOnPageScaleFactor ::+        MediaControlsHost -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.controlsDependOnPageScaleFactor Mozilla MediaControlsHost.controlsDependOnPageScaleFactor documentation> +getControlsDependOnPageScaleFactor ::+                                   (MonadIO m) => MediaControlsHost -> m Bool+getControlsDependOnPageScaleFactor self+  = liftIO (js_getControlsDependOnPageScaleFactor (self))
+ src/GHCJS/DOM/JSFFI/Generated/MediaElementAudioSourceNode.hs view
@@ -0,0 +1,31 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.MediaElementAudioSourceNode+       (js_getMediaElement, getMediaElement, MediaElementAudioSourceNode,+        castToMediaElementAudioSourceNode,+        gTypeMediaElementAudioSourceNode)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"mediaElement\"]"+        js_getMediaElement ::+        MediaElementAudioSourceNode -> IO (Nullable HTMLMediaElement)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaElementAudioSourceNode.mediaElement Mozilla MediaElementAudioSourceNode.mediaElement documentation> +getMediaElement ::+                (MonadIO m) =>+                  MediaElementAudioSourceNode -> m (Maybe HTMLMediaElement)+getMediaElement self+  = liftIO (nullableToMaybe <$> (js_getMediaElement (self)))
+ src/GHCJS/DOM/JSFFI/Generated/MediaError.hs view
@@ -0,0 +1,33 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.MediaError+       (pattern MEDIA_ERR_ABORTED, pattern MEDIA_ERR_NETWORK,+        pattern MEDIA_ERR_DECODE, pattern MEDIA_ERR_SRC_NOT_SUPPORTED,+        pattern MEDIA_ERR_ENCRYPTED, js_getCode, getCode, MediaError,+        castToMediaError, gTypeMediaError)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+pattern MEDIA_ERR_ABORTED = 1+pattern MEDIA_ERR_NETWORK = 2+pattern MEDIA_ERR_DECODE = 3+pattern MEDIA_ERR_SRC_NOT_SUPPORTED = 4+pattern MEDIA_ERR_ENCRYPTED = 5+ +foreign import javascript unsafe "$1[\"code\"]" js_getCode ::+        MediaError -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaError.code Mozilla MediaError.code documentation> +getCode :: (MonadIO m) => MediaError -> m Word+getCode self = liftIO (js_getCode (self))
+ src/GHCJS/DOM/JSFFI/Generated/MediaKeyError.hs view
@@ -0,0 +1,42 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.MediaKeyError+       (pattern MEDIA_KEYERR_UNKNOWN, pattern MEDIA_KEYERR_CLIENT,+        pattern MEDIA_KEYERR_SERVICE, pattern MEDIA_KEYERR_OUTPUT,+        pattern MEDIA_KEYERR_HARDWARECHANGE, pattern MEDIA_KEYERR_DOMAIN,+        js_getCode, getCode, js_getSystemCode, getSystemCode,+        MediaKeyError, castToMediaKeyError, gTypeMediaKeyError)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+pattern MEDIA_KEYERR_UNKNOWN = 1+pattern MEDIA_KEYERR_CLIENT = 2+pattern MEDIA_KEYERR_SERVICE = 3+pattern MEDIA_KEYERR_OUTPUT = 4+pattern MEDIA_KEYERR_HARDWARECHANGE = 5+pattern MEDIA_KEYERR_DOMAIN = 6+ +foreign import javascript unsafe "$1[\"code\"]" js_getCode ::+        MediaKeyError -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeyError.code Mozilla WebKitMediaKeyError.code documentation> +getCode :: (MonadIO m) => MediaKeyError -> m Word+getCode self = liftIO (js_getCode (self))+ +foreign import javascript unsafe "$1[\"systemCode\"]"+        js_getSystemCode :: MediaKeyError -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeyError.systemCode Mozilla WebKitMediaKeyError.systemCode documentation> +getSystemCode :: (MonadIO m) => MediaKeyError -> m Word+getSystemCode self = liftIO (js_getSystemCode (self))
+ src/GHCJS/DOM/JSFFI/Generated/MediaKeyEvent.hs view
@@ -0,0 +1,81 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.MediaKeyEvent+       (js_getKeySystem, getKeySystem, js_getSessionId, getSessionId,+        js_getInitData, getInitData, js_getMessage, getMessage,+        js_getDefaultURL, getDefaultURL, js_getErrorCode, getErrorCode,+        js_getSystemCode, getSystemCode, MediaKeyEvent,+        castToMediaKeyEvent, gTypeMediaKeyEvent)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"keySystem\"]"+        js_getKeySystem :: MediaKeyEvent -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaKeyEvent.keySystem Mozilla MediaKeyEvent.keySystem documentation> +getKeySystem ::+             (MonadIO m, FromJSString result) => MediaKeyEvent -> m result+getKeySystem self+  = liftIO (fromJSString <$> (js_getKeySystem (self)))+ +foreign import javascript unsafe "$1[\"sessionId\"]"+        js_getSessionId :: MediaKeyEvent -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaKeyEvent.sessionId Mozilla MediaKeyEvent.sessionId documentation> +getSessionId ::+             (MonadIO m, FromJSString result) => MediaKeyEvent -> m result+getSessionId self+  = liftIO (fromJSString <$> (js_getSessionId (self)))+ +foreign import javascript unsafe "$1[\"initData\"]" js_getInitData+        :: MediaKeyEvent -> IO (Nullable Uint8Array)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaKeyEvent.initData Mozilla MediaKeyEvent.initData documentation> +getInitData :: (MonadIO m) => MediaKeyEvent -> m (Maybe Uint8Array)+getInitData self+  = liftIO (nullableToMaybe <$> (js_getInitData (self)))+ +foreign import javascript unsafe "$1[\"message\"]" js_getMessage ::+        MediaKeyEvent -> IO (Nullable Uint8Array)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaKeyEvent.message Mozilla MediaKeyEvent.message documentation> +getMessage :: (MonadIO m) => MediaKeyEvent -> m (Maybe Uint8Array)+getMessage self+  = liftIO (nullableToMaybe <$> (js_getMessage (self)))+ +foreign import javascript unsafe "$1[\"defaultURL\"]"+        js_getDefaultURL :: MediaKeyEvent -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaKeyEvent.defaultURL Mozilla MediaKeyEvent.defaultURL documentation> +getDefaultURL ::+              (MonadIO m, FromJSString result) => MediaKeyEvent -> m result+getDefaultURL self+  = liftIO (fromJSString <$> (js_getDefaultURL (self)))+ +foreign import javascript unsafe "$1[\"errorCode\"]"+        js_getErrorCode :: MediaKeyEvent -> IO (Nullable MediaKeyError)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaKeyEvent.errorCode Mozilla MediaKeyEvent.errorCode documentation> +getErrorCode ::+             (MonadIO m) => MediaKeyEvent -> m (Maybe MediaKeyError)+getErrorCode self+  = liftIO (nullableToMaybe <$> (js_getErrorCode (self)))+ +foreign import javascript unsafe "$1[\"systemCode\"]"+        js_getSystemCode :: MediaKeyEvent -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaKeyEvent.systemCode Mozilla MediaKeyEvent.systemCode documentation> +getSystemCode :: (MonadIO m) => MediaKeyEvent -> m Word+getSystemCode self = liftIO (js_getSystemCode (self))
+ src/GHCJS/DOM/JSFFI/Generated/MediaKeyMessageEvent.hs view
@@ -0,0 +1,39 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.MediaKeyMessageEvent+       (js_getMessage, getMessage, js_getDestinationURL,+        getDestinationURL, MediaKeyMessageEvent,+        castToMediaKeyMessageEvent, gTypeMediaKeyMessageEvent)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"message\"]" js_getMessage ::+        MediaKeyMessageEvent -> IO (Nullable Uint8Array)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeyMessageEvent.message Mozilla WebKitMediaKeyMessageEvent.message documentation> +getMessage ::+           (MonadIO m) => MediaKeyMessageEvent -> m (Maybe Uint8Array)+getMessage self+  = liftIO (nullableToMaybe <$> (js_getMessage (self)))+ +foreign import javascript unsafe "$1[\"destinationURL\"]"+        js_getDestinationURL :: MediaKeyMessageEvent -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeyMessageEvent.destinationURL Mozilla WebKitMediaKeyMessageEvent.destinationURL documentation> +getDestinationURL ::+                  (MonadIO m, FromJSString result) =>+                    MediaKeyMessageEvent -> m result+getDestinationURL self+  = liftIO (fromJSString <$> (js_getDestinationURL (self)))
+ src/GHCJS/DOM/JSFFI/Generated/MediaKeyNeededEvent.hs view
@@ -0,0 +1,28 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.MediaKeyNeededEvent+       (js_getInitData, getInitData, MediaKeyNeededEvent,+        castToMediaKeyNeededEvent, gTypeMediaKeyNeededEvent)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"initData\"]" js_getInitData+        :: MediaKeyNeededEvent -> IO (Nullable Uint8Array)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaKeyNeededEvent.initData Mozilla MediaKeyNeededEvent.initData documentation> +getInitData ::+            (MonadIO m) => MediaKeyNeededEvent -> m (Maybe Uint8Array)+getInitData self+  = liftIO (nullableToMaybe <$> (js_getInitData (self)))
+ src/GHCJS/DOM/JSFFI/Generated/MediaKeySession.hs view
@@ -0,0 +1,77 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.MediaKeySession+       (js_update, update, js_close, close, js_getError, getError,+        js_getKeySystem, getKeySystem, js_getSessionId, getSessionId,+        webKitKeyAdded, webKitKeyError, webKitKeyMessage, MediaKeySession,+        castToMediaKeySession, gTypeMediaKeySession)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"update\"]($2)" js_update ::+        MediaKeySession -> Nullable Uint8Array -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeySession.update Mozilla WebKitMediaKeySession.update documentation> +update ::+       (MonadIO m, IsUint8Array key) =>+         MediaKeySession -> Maybe key -> m ()+update self key+  = liftIO+      (js_update (self) (maybeToNullable (fmap toUint8Array key)))+ +foreign import javascript unsafe "$1[\"close\"]()" js_close ::+        MediaKeySession -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeySession.close Mozilla WebKitMediaKeySession.close documentation> +close :: (MonadIO m) => MediaKeySession -> m ()+close self = liftIO (js_close (self))+ +foreign import javascript unsafe "$1[\"error\"]" js_getError ::+        MediaKeySession -> IO (Nullable MediaKeyError)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeySession.error Mozilla WebKitMediaKeySession.error documentation> +getError ::+         (MonadIO m) => MediaKeySession -> m (Maybe MediaKeyError)+getError self = liftIO (nullableToMaybe <$> (js_getError (self)))+ +foreign import javascript unsafe "$1[\"keySystem\"]"+        js_getKeySystem :: MediaKeySession -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeySession.keySystem Mozilla WebKitMediaKeySession.keySystem documentation> +getKeySystem ::+             (MonadIO m, FromJSString result) => MediaKeySession -> m result+getKeySystem self+  = liftIO (fromJSString <$> (js_getKeySystem (self)))+ +foreign import javascript unsafe "$1[\"sessionId\"]"+        js_getSessionId :: MediaKeySession -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeySession.sessionId Mozilla WebKitMediaKeySession.sessionId documentation> +getSessionId ::+             (MonadIO m, FromJSString result) => MediaKeySession -> m result+getSessionId self+  = liftIO (fromJSString <$> (js_getSessionId (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeySession.onwebkitkeyadded Mozilla WebKitMediaKeySession.onwebkitkeyadded documentation> +webKitKeyAdded :: EventName MediaKeySession Event+webKitKeyAdded = unsafeEventName (toJSString "webkitkeyadded")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeySession.onwebkitkeyerror Mozilla WebKitMediaKeySession.onwebkitkeyerror documentation> +webKitKeyError :: EventName MediaKeySession Event+webKitKeyError = unsafeEventName (toJSString "webkitkeyerror")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeySession.onwebkitkeymessage Mozilla WebKitMediaKeySession.onwebkitkeymessage documentation> +webKitKeyMessage :: EventName MediaKeySession Event+webKitKeyMessage = unsafeEventName (toJSString "webkitkeymessage")
+ src/GHCJS/DOM/JSFFI/Generated/MediaKeys.hs view
@@ -0,0 +1,67 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.MediaKeys+       (js_newMediaKeys, newMediaKeys, js_createSession, createSession,+        js_isTypeSupported, isTypeSupported, js_getKeySystem, getKeySystem,+        MediaKeys, castToMediaKeys, gTypeMediaKeys)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe+        "new window[\"WebKitMediaKeys\"]($1)" js_newMediaKeys ::+        JSString -> IO MediaKeys++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeys Mozilla WebKitMediaKeys documentation> +newMediaKeys ::+             (MonadIO m, ToJSString keySystem) => keySystem -> m MediaKeys+newMediaKeys keySystem+  = liftIO (js_newMediaKeys (toJSString keySystem))+ +foreign import javascript unsafe "$1[\"createSession\"]($2, $3)"+        js_createSession ::+        MediaKeys ->+          JSString -> Nullable Uint8Array -> IO (Nullable MediaKeySession)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeys.createSession Mozilla WebKitMediaKeys.createSession documentation> +createSession ::+              (MonadIO m, ToJSString type', IsUint8Array initData) =>+                MediaKeys -> type' -> Maybe initData -> m (Maybe MediaKeySession)+createSession self type' initData+  = liftIO+      (nullableToMaybe <$>+         (js_createSession (self) (toJSString type')+            (maybeToNullable (fmap toUint8Array initData))))+ +foreign import javascript unsafe+        "($1[\"isTypeSupported\"]($2,\n$3) ? 1 : 0)" js_isTypeSupported ::+        MediaKeys -> JSString -> JSString -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeys.isTypeSupported Mozilla WebKitMediaKeys.isTypeSupported documentation> +isTypeSupported ::+                (MonadIO m, ToJSString keySystem, ToJSString type') =>+                  MediaKeys -> keySystem -> type' -> m Bool+isTypeSupported self keySystem type'+  = liftIO+      (js_isTypeSupported (self) (toJSString keySystem)+         (toJSString type'))+ +foreign import javascript unsafe "$1[\"keySystem\"]"+        js_getKeySystem :: MediaKeys -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeys.keySystem Mozilla WebKitMediaKeys.keySystem documentation> +getKeySystem ::+             (MonadIO m, FromJSString result) => MediaKeys -> m result+getKeySystem self+  = liftIO (fromJSString <$> (js_getKeySystem (self)))
+ src/GHCJS/DOM/JSFFI/Generated/MediaList.hs view
@@ -0,0 +1,74 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.MediaList+       (js_item, item, js_deleteMedium, deleteMedium, js_appendMedium,+        appendMedium, js_setMediaText, setMediaText, js_getMediaText,+        getMediaText, js_getLength, getLength, MediaList, castToMediaList,+        gTypeMediaList)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"item\"]($2)" js_item ::+        MediaList -> Word -> IO (Nullable JSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaList.item Mozilla MediaList.item documentation> +item ::+     (MonadIO m, FromJSString result) =>+       MediaList -> Word -> m (Maybe result)+item self index+  = liftIO (fromMaybeJSString <$> (js_item (self) index))+ +foreign import javascript unsafe "$1[\"deleteMedium\"]($2)"+        js_deleteMedium :: MediaList -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaList.deleteMedium Mozilla MediaList.deleteMedium documentation> +deleteMedium ::+             (MonadIO m, ToJSString oldMedium) => MediaList -> oldMedium -> m ()+deleteMedium self oldMedium+  = liftIO (js_deleteMedium (self) (toJSString oldMedium))+ +foreign import javascript unsafe "$1[\"appendMedium\"]($2)"+        js_appendMedium :: MediaList -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaList.appendMedium Mozilla MediaList.appendMedium documentation> +appendMedium ::+             (MonadIO m, ToJSString newMedium) => MediaList -> newMedium -> m ()+appendMedium self newMedium+  = liftIO (js_appendMedium (self) (toJSString newMedium))+ +foreign import javascript unsafe "$1[\"mediaText\"] = $2;"+        js_setMediaText :: MediaList -> Nullable JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaList.mediaText Mozilla MediaList.mediaText documentation> +setMediaText ::+             (MonadIO m, ToJSString val) => MediaList -> Maybe val -> m ()+setMediaText self val+  = liftIO (js_setMediaText (self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"mediaText\"]"+        js_getMediaText :: MediaList -> IO (Nullable JSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaList.mediaText Mozilla MediaList.mediaText documentation> +getMediaText ::+             (MonadIO m, FromJSString result) => MediaList -> m (Maybe result)+getMediaText self+  = liftIO (fromMaybeJSString <$> (js_getMediaText (self)))+ +foreign import javascript unsafe "$1[\"length\"]" js_getLength ::+        MediaList -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaList.length Mozilla MediaList.length documentation> +getLength :: (MonadIO m) => MediaList -> m Word+getLength self = liftIO (js_getLength (self))
+ src/GHCJS/DOM/JSFFI/Generated/MediaQueryList.hs view
@@ -0,0 +1,57 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.MediaQueryList+       (js_addListener, addListener, js_removeListener, removeListener,+        js_getMedia, getMedia, js_getMatches, getMatches, MediaQueryList,+        castToMediaQueryList, gTypeMediaQueryList)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"addListener\"]($2)"+        js_addListener ::+        MediaQueryList -> Nullable MediaQueryListListener -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaQueryList.addListener Mozilla MediaQueryList.addListener documentation> +addListener ::+            (MonadIO m) =>+              MediaQueryList -> Maybe MediaQueryListListener -> m ()+addListener self listener+  = liftIO (js_addListener (self) (maybeToNullable listener))+ +foreign import javascript unsafe "$1[\"removeListener\"]($2)"+        js_removeListener ::+        MediaQueryList -> Nullable MediaQueryListListener -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaQueryList.removeListener Mozilla MediaQueryList.removeListener documentation> +removeListener ::+               (MonadIO m) =>+                 MediaQueryList -> Maybe MediaQueryListListener -> m ()+removeListener self listener+  = liftIO (js_removeListener (self) (maybeToNullable listener))+ +foreign import javascript unsafe "$1[\"media\"]" js_getMedia ::+        MediaQueryList -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaQueryList.media Mozilla MediaQueryList.media documentation> +getMedia ::+         (MonadIO m, FromJSString result) => MediaQueryList -> m result+getMedia self = liftIO (fromJSString <$> (js_getMedia (self)))+ +foreign import javascript unsafe "($1[\"matches\"] ? 1 : 0)"+        js_getMatches :: MediaQueryList -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaQueryList.matches Mozilla MediaQueryList.matches documentation> +getMatches :: (MonadIO m) => MediaQueryList -> m Bool+getMatches self = liftIO (js_getMatches (self))
+ src/GHCJS/DOM/JSFFI/Generated/MediaQueryListListener.hs view
@@ -0,0 +1,49 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.MediaQueryListListener+       (newMediaQueryListListener, newMediaQueryListListenerSync,+        newMediaQueryListListenerAsync, MediaQueryListListener)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaQueryListListener Mozilla MediaQueryListListener documentation> +newMediaQueryListListener ::+                          (MonadIO m) =>+                            (Maybe MediaQueryList -> IO ()) -> m MediaQueryListListener+newMediaQueryListListener callback+  = liftIO+      (MediaQueryListListener <$>+         syncCallback1 ThrowWouldBlock+           (\ list -> fromJSValUnchecked list >>= \ list' -> callback list'))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaQueryListListener Mozilla MediaQueryListListener documentation> +newMediaQueryListListenerSync ::+                              (MonadIO m) =>+                                (Maybe MediaQueryList -> IO ()) -> m MediaQueryListListener+newMediaQueryListListenerSync callback+  = liftIO+      (MediaQueryListListener <$>+         syncCallback1 ContinueAsync+           (\ list -> fromJSValUnchecked list >>= \ list' -> callback list'))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaQueryListListener Mozilla MediaQueryListListener documentation> +newMediaQueryListListenerAsync ::+                               (MonadIO m) =>+                                 (Maybe MediaQueryList -> IO ()) -> m MediaQueryListListener+newMediaQueryListListenerAsync callback+  = liftIO+      (MediaQueryListListener <$>+         asyncCallback1+           (\ list -> fromJSValUnchecked list >>= \ list' -> callback list'))
+ src/GHCJS/DOM/JSFFI/Generated/MediaSource.hs view
@@ -0,0 +1,116 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.MediaSource+       (js_newMediaSource, newMediaSource, js_addSourceBuffer,+        addSourceBuffer, js_removeSourceBuffer, removeSourceBuffer,+        js_endOfStream, endOfStream, js_isTypeSupported, isTypeSupported,+        js_getSourceBuffers, getSourceBuffers, js_getActiveSourceBuffers,+        getActiveSourceBuffers, js_setDuration, setDuration,+        js_getDuration, getDuration, js_getReadyState, getReadyState,+        MediaSource, castToMediaSource, gTypeMediaSource)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "new window[\"MediaSource\"]()"+        js_newMediaSource :: IO MediaSource++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSource Mozilla MediaSource documentation> +newMediaSource :: (MonadIO m) => m MediaSource+newMediaSource = liftIO (js_newMediaSource)+ +foreign import javascript unsafe "$1[\"addSourceBuffer\"]($2)"+        js_addSourceBuffer ::+        MediaSource -> JSString -> IO (Nullable SourceBuffer)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSource.addSourceBuffer Mozilla MediaSource.addSourceBuffer documentation> +addSourceBuffer ::+                (MonadIO m, ToJSString type') =>+                  MediaSource -> type' -> m (Maybe SourceBuffer)+addSourceBuffer self type'+  = liftIO+      (nullableToMaybe <$>+         (js_addSourceBuffer (self) (toJSString type')))+ +foreign import javascript unsafe "$1[\"removeSourceBuffer\"]($2)"+        js_removeSourceBuffer ::+        MediaSource -> Nullable SourceBuffer -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSource.removeSourceBuffer Mozilla MediaSource.removeSourceBuffer documentation> +removeSourceBuffer ::+                   (MonadIO m) => MediaSource -> Maybe SourceBuffer -> m ()+removeSourceBuffer self buffer+  = liftIO (js_removeSourceBuffer (self) (maybeToNullable buffer))+ +foreign import javascript unsafe "$1[\"endOfStream\"]($2)"+        js_endOfStream :: MediaSource -> JSVal -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSource.endOfStream Mozilla MediaSource.endOfStream documentation> +endOfStream ::+            (MonadIO m) => MediaSource -> EndOfStreamError -> m ()+endOfStream self error+  = liftIO (js_endOfStream (self) (pToJSVal error))+ +foreign import javascript unsafe+        "($1[\"isTypeSupported\"]($2) ? 1 : 0)" js_isTypeSupported ::+        MediaSource -> JSString -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSource.isTypeSupported Mozilla MediaSource.isTypeSupported documentation> +isTypeSupported ::+                (MonadIO m, ToJSString type') => MediaSource -> type' -> m Bool+isTypeSupported self type'+  = liftIO (js_isTypeSupported (self) (toJSString type'))+ +foreign import javascript unsafe "$1[\"sourceBuffers\"]"+        js_getSourceBuffers ::+        MediaSource -> IO (Nullable SourceBufferList)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSource.sourceBuffers Mozilla MediaSource.sourceBuffers documentation> +getSourceBuffers ::+                 (MonadIO m) => MediaSource -> m (Maybe SourceBufferList)+getSourceBuffers self+  = liftIO (nullableToMaybe <$> (js_getSourceBuffers (self)))+ +foreign import javascript unsafe "$1[\"activeSourceBuffers\"]"+        js_getActiveSourceBuffers ::+        MediaSource -> IO (Nullable SourceBufferList)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSource.activeSourceBuffers Mozilla MediaSource.activeSourceBuffers documentation> +getActiveSourceBuffers ::+                       (MonadIO m) => MediaSource -> m (Maybe SourceBufferList)+getActiveSourceBuffers self+  = liftIO (nullableToMaybe <$> (js_getActiveSourceBuffers (self)))+ +foreign import javascript unsafe "$1[\"duration\"] = $2;"+        js_setDuration :: MediaSource -> Double -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSource.duration Mozilla MediaSource.duration documentation> +setDuration :: (MonadIO m) => MediaSource -> Double -> m ()+setDuration self val = liftIO (js_setDuration (self) val)+ +foreign import javascript unsafe "$1[\"duration\"]" js_getDuration+        :: MediaSource -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSource.duration Mozilla MediaSource.duration documentation> +getDuration :: (MonadIO m) => MediaSource -> m Double+getDuration self = liftIO (js_getDuration (self))+ +foreign import javascript unsafe "$1[\"readyState\"]"+        js_getReadyState :: MediaSource -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSource.readyState Mozilla MediaSource.readyState documentation> +getReadyState ::+              (MonadIO m, FromJSString result) => MediaSource -> m result+getReadyState self+  = liftIO (fromJSString <$> (js_getReadyState (self)))
+ src/GHCJS/DOM/JSFFI/Generated/MediaSourceStates.hs view
@@ -0,0 +1,90 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.MediaSourceStates+       (js_getSourceType, getSourceType, js_getSourceId, getSourceId,+        js_getWidth, getWidth, js_getHeight, getHeight, js_getFrameRate,+        getFrameRate, js_getAspectRatio, getAspectRatio, js_getFacingMode,+        getFacingMode, js_getVolume, getVolume, MediaSourceStates,+        castToMediaSourceStates, gTypeMediaSourceStates)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"sourceType\"]"+        js_getSourceType :: MediaSourceStates -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSourceStates.sourceType Mozilla MediaSourceStates.sourceType documentation> +getSourceType ::+              (MonadIO m) => MediaSourceStates -> m SourceTypeEnum+getSourceType self+  = liftIO ((js_getSourceType (self)) >>= fromJSValUnchecked)+ +foreign import javascript unsafe "$1[\"sourceId\"]" js_getSourceId+        :: MediaSourceStates -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSourceStates.sourceId Mozilla MediaSourceStates.sourceId documentation> +getSourceId ::+            (MonadIO m, FromJSString result) => MediaSourceStates -> m result+getSourceId self+  = liftIO (fromJSString <$> (js_getSourceId (self)))+ +foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::+        MediaSourceStates -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSourceStates.width Mozilla MediaSourceStates.width documentation> +getWidth :: (MonadIO m) => MediaSourceStates -> m (Maybe Word)+getWidth self+  = liftIO ((js_getWidth (self)) >>= fromJSValUnchecked)+ +foreign import javascript unsafe "$1[\"height\"]" js_getHeight ::+        MediaSourceStates -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSourceStates.height Mozilla MediaSourceStates.height documentation> +getHeight :: (MonadIO m) => MediaSourceStates -> m (Maybe Word)+getHeight self+  = liftIO ((js_getHeight (self)) >>= fromJSValUnchecked)+ +foreign import javascript unsafe "$1[\"frameRate\"]"+        js_getFrameRate :: MediaSourceStates -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSourceStates.frameRate Mozilla MediaSourceStates.frameRate documentation> +getFrameRate :: (MonadIO m) => MediaSourceStates -> m (Maybe Float)+getFrameRate self+  = liftIO ((js_getFrameRate (self)) >>= fromJSValUnchecked)+ +foreign import javascript unsafe "$1[\"aspectRatio\"]"+        js_getAspectRatio :: MediaSourceStates -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSourceStates.aspectRatio Mozilla MediaSourceStates.aspectRatio documentation> +getAspectRatio ::+               (MonadIO m) => MediaSourceStates -> m (Maybe Float)+getAspectRatio self+  = liftIO ((js_getAspectRatio (self)) >>= fromJSValUnchecked)+ +foreign import javascript unsafe "$1[\"facingMode\"]"+        js_getFacingMode :: MediaSourceStates -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSourceStates.facingMode Mozilla MediaSourceStates.facingMode documentation> +getFacingMode ::+              (MonadIO m) => MediaSourceStates -> m VideoFacingModeEnum+getFacingMode self+  = liftIO ((js_getFacingMode (self)) >>= fromJSValUnchecked)+ +foreign import javascript unsafe "$1[\"volume\"]" js_getVolume ::+        MediaSourceStates -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSourceStates.volume Mozilla MediaSourceStates.volume documentation> +getVolume :: (MonadIO m) => MediaSourceStates -> m (Maybe Word)+getVolume self+  = liftIO ((js_getVolume (self)) >>= fromJSValUnchecked)
+ src/GHCJS/DOM/JSFFI/Generated/MediaStream.hs view
@@ -0,0 +1,156 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.MediaStream+       (js_newMediaStream, newMediaStream, js_newMediaStream',+        newMediaStream', js_newMediaStream'', newMediaStream'',+        js_getAudioTracks, getAudioTracks, js_getVideoTracks,+        getVideoTracks, js_getTracks, getTracks, js_addTrack, addTrack,+        js_removeTrack, removeTrack, js_getTrackById, getTrackById,+        js_clone, clone, js_getId, getId, js_getActive, getActive, active,+        inactive, addTrackEvent, removeTrackEvent, MediaStream,+        castToMediaStream, gTypeMediaStream)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe+        "new window[\"webkitMediaStream\"]()" js_newMediaStream ::+        IO MediaStream++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitMediaStream Mozilla webkitMediaStream documentation> +newMediaStream :: (MonadIO m) => m MediaStream+newMediaStream = liftIO (js_newMediaStream)+ +foreign import javascript unsafe+        "new window[\"webkitMediaStream\"]($1)" js_newMediaStream' ::+        Nullable MediaStream -> IO MediaStream++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitMediaStream Mozilla webkitMediaStream documentation> +newMediaStream' ::+                (MonadIO m) => Maybe MediaStream -> m MediaStream+newMediaStream' stream+  = liftIO (js_newMediaStream' (maybeToNullable stream))+ +foreign import javascript unsafe+        "new window[\"webkitMediaStream\"]($1)" js_newMediaStream'' ::+        JSVal -> IO MediaStream++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitMediaStream Mozilla webkitMediaStream documentation> +newMediaStream'' ::+                 (MonadIO m, IsMediaStreamTrack tracks) =>+                   [Maybe tracks] -> m MediaStream+newMediaStream'' tracks+  = liftIO+      (toJSVal tracks >>= \ tracks' -> js_newMediaStream'' tracks')+ +foreign import javascript unsafe "$1[\"getAudioTracks\"]()"+        js_getAudioTracks :: MediaStream -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitMediaStream.getAudioTracks Mozilla webkitMediaStream.getAudioTracks documentation> +getAudioTracks ::+               (MonadIO m) => MediaStream -> m [Maybe MediaStreamTrack]+getAudioTracks self+  = liftIO ((js_getAudioTracks (self)) >>= fromJSValUnchecked)+ +foreign import javascript unsafe "$1[\"getVideoTracks\"]()"+        js_getVideoTracks :: MediaStream -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitMediaStream.getVideoTracks Mozilla webkitMediaStream.getVideoTracks documentation> +getVideoTracks ::+               (MonadIO m) => MediaStream -> m [Maybe MediaStreamTrack]+getVideoTracks self+  = liftIO ((js_getVideoTracks (self)) >>= fromJSValUnchecked)+ +foreign import javascript unsafe "$1[\"getTracks\"]()" js_getTracks+        :: MediaStream -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitMediaStream.getTracks Mozilla webkitMediaStream.getTracks documentation> +getTracks ::+          (MonadIO m) => MediaStream -> m [Maybe MediaStreamTrack]+getTracks self+  = liftIO ((js_getTracks (self)) >>= fromJSValUnchecked)+ +foreign import javascript unsafe "$1[\"addTrack\"]($2)" js_addTrack+        :: MediaStream -> Nullable MediaStreamTrack -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitMediaStream.addTrack Mozilla webkitMediaStream.addTrack documentation> +addTrack ::+         (MonadIO m, IsMediaStreamTrack track) =>+           MediaStream -> Maybe track -> m ()+addTrack self track+  = liftIO+      (js_addTrack (self)+         (maybeToNullable (fmap toMediaStreamTrack track)))+ +foreign import javascript unsafe "$1[\"removeTrack\"]($2)"+        js_removeTrack :: MediaStream -> Nullable MediaStreamTrack -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitMediaStream.removeTrack Mozilla webkitMediaStream.removeTrack documentation> +removeTrack ::+            (MonadIO m, IsMediaStreamTrack track) =>+              MediaStream -> Maybe track -> m ()+removeTrack self track+  = liftIO+      (js_removeTrack (self)+         (maybeToNullable (fmap toMediaStreamTrack track)))+ +foreign import javascript unsafe "$1[\"getTrackById\"]($2)"+        js_getTrackById ::+        MediaStream -> JSString -> IO (Nullable MediaStreamTrack)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitMediaStream.getTrackById Mozilla webkitMediaStream.getTrackById documentation> +getTrackById ::+             (MonadIO m, ToJSString trackId) =>+               MediaStream -> trackId -> m (Maybe MediaStreamTrack)+getTrackById self trackId+  = liftIO+      (nullableToMaybe <$> (js_getTrackById (self) (toJSString trackId)))+ +foreign import javascript unsafe "$1[\"clone\"]()" js_clone ::+        MediaStream -> IO (Nullable MediaStream)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitMediaStream.clone Mozilla webkitMediaStream.clone documentation> +clone :: (MonadIO m) => MediaStream -> m (Maybe MediaStream)+clone self = liftIO (nullableToMaybe <$> (js_clone (self)))+ +foreign import javascript unsafe "$1[\"id\"]" js_getId ::+        MediaStream -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitMediaStream.id Mozilla webkitMediaStream.id documentation> +getId ::+      (MonadIO m, FromJSString result) => MediaStream -> m result+getId self = liftIO (fromJSString <$> (js_getId (self)))+ +foreign import javascript unsafe "($1[\"active\"] ? 1 : 0)"+        js_getActive :: MediaStream -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitMediaStream.active Mozilla webkitMediaStream.active documentation> +getActive :: (MonadIO m) => MediaStream -> m Bool+getActive self = liftIO (js_getActive (self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitMediaStream.onactive Mozilla webkitMediaStream.onactive documentation> +active :: EventName MediaStream Event+active = unsafeEventName (toJSString "active")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitMediaStream.oninactive Mozilla webkitMediaStream.oninactive documentation> +inactive :: EventName MediaStream Event+inactive = unsafeEventName (toJSString "inactive")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitMediaStream.onaddtrack Mozilla webkitMediaStream.onaddtrack documentation> +addTrackEvent :: EventName MediaStream Event+addTrackEvent = unsafeEventName (toJSString "addtrack")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitMediaStream.onremovetrack Mozilla webkitMediaStream.onremovetrack documentation> +removeTrackEvent :: EventName MediaStream Event+removeTrackEvent = unsafeEventName (toJSString "removetrack")
+ src/GHCJS/DOM/JSFFI/Generated/MediaStreamAudioDestinationNode.hs view
@@ -0,0 +1,29 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.MediaStreamAudioDestinationNode+       (js_getStream, getStream, MediaStreamAudioDestinationNode,+        castToMediaStreamAudioDestinationNode,+        gTypeMediaStreamAudioDestinationNode)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"stream\"]" js_getStream ::+        MediaStreamAudioDestinationNode -> IO (Nullable MediaStream)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamAudioDestinationNode.stream Mozilla MediaStreamAudioDestinationNode.stream documentation> +getStream ::+          (MonadIO m) =>+            MediaStreamAudioDestinationNode -> m (Maybe MediaStream)+getStream self = liftIO (nullableToMaybe <$> (js_getStream (self)))
+ src/GHCJS/DOM/JSFFI/Generated/MediaStreamAudioSourceNode.hs view
@@ -0,0 +1,29 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.MediaStreamAudioSourceNode+       (js_getMediaStream, getMediaStream, MediaStreamAudioSourceNode,+        castToMediaStreamAudioSourceNode, gTypeMediaStreamAudioSourceNode)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"mediaStream\"]"+        js_getMediaStream ::+        MediaStreamAudioSourceNode -> IO (Nullable MediaStream)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamAudioSourceNode.mediaStream Mozilla MediaStreamAudioSourceNode.mediaStream documentation> +getMediaStream ::+               (MonadIO m) => MediaStreamAudioSourceNode -> m (Maybe MediaStream)+getMediaStream self+  = liftIO (nullableToMaybe <$> (js_getMediaStream (self)))
+ src/GHCJS/DOM/JSFFI/Generated/MediaStreamEvent.hs view
@@ -0,0 +1,27 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.MediaStreamEvent+       (js_getStream, getStream, MediaStreamEvent, castToMediaStreamEvent,+        gTypeMediaStreamEvent)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"stream\"]" js_getStream ::+        MediaStreamEvent -> IO (Nullable MediaStream)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamEvent.stream Mozilla MediaStreamEvent.stream documentation> +getStream ::+          (MonadIO m) => MediaStreamEvent -> m (Maybe MediaStream)+getStream self = liftIO (nullableToMaybe <$> (js_getStream (self)))
+ src/GHCJS/DOM/JSFFI/Generated/MediaStreamTrack.hs view
@@ -0,0 +1,218 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.MediaStreamTrack+       (js_getSources, getSources, js_getConstraints, getConstraints,+        js_states, states, js_getCapabilities, getCapabilities,+        js_applyConstraints, applyConstraints, js_clone, clone, js_stop,+        stop, js_getKind, getKind, js_getId, getId, js_getLabel, getLabel,+        js_setEnabled, setEnabled, js_getEnabled, getEnabled, js_getMuted,+        getMuted, mute, unmute, js_get_readonly, get_readonly,+        js_getRemote, getRemote, js_getReadyState, getReadyState, started,+        ended, overConstrained, MediaStreamTrack, castToMediaStreamTrack,+        gTypeMediaStreamTrack, IsMediaStreamTrack, toMediaStreamTrack)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"getSources\"]($2)"+        js_getSources ::+        MediaStreamTrack ->+          Nullable MediaStreamTrackSourcesCallback -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.getSources Mozilla MediaStreamTrack.getSources documentation> +getSources ::+           (MonadIO m, IsMediaStreamTrack self) =>+             self -> Maybe MediaStreamTrackSourcesCallback -> m ()+getSources self callback+  = liftIO+      (js_getSources (toMediaStreamTrack self)+         (maybeToNullable callback))+ +foreign import javascript unsafe "$1[\"getConstraints\"]()"+        js_getConstraints ::+        MediaStreamTrack -> IO (Nullable MediaTrackConstraints)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.getConstraints Mozilla MediaStreamTrack.getConstraints documentation> +getConstraints ::+               (MonadIO m, IsMediaStreamTrack self) =>+                 self -> m (Maybe MediaTrackConstraints)+getConstraints self+  = liftIO+      (nullableToMaybe <$> (js_getConstraints (toMediaStreamTrack self)))+ +foreign import javascript unsafe "$1[\"states\"]()" js_states ::+        MediaStreamTrack -> IO (Nullable MediaSourceStates)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.states Mozilla MediaStreamTrack.states documentation> +states ::+       (MonadIO m, IsMediaStreamTrack self) =>+         self -> m (Maybe MediaSourceStates)+states self+  = liftIO+      (nullableToMaybe <$> (js_states (toMediaStreamTrack self)))+ +foreign import javascript unsafe "$1[\"getCapabilities\"]()"+        js_getCapabilities ::+        MediaStreamTrack -> IO (Nullable MediaStreamCapabilities)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.getCapabilities Mozilla MediaStreamTrack.getCapabilities documentation> +getCapabilities ::+                (MonadIO m, IsMediaStreamTrack self) =>+                  self -> m (Maybe MediaStreamCapabilities)+getCapabilities self+  = liftIO+      (nullableToMaybe <$>+         (js_getCapabilities (toMediaStreamTrack self)))+ +foreign import javascript unsafe "$1[\"applyConstraints\"]($2)"+        js_applyConstraints ::+        MediaStreamTrack -> Nullable Dictionary -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.applyConstraints Mozilla MediaStreamTrack.applyConstraints documentation> +applyConstraints ::+                 (MonadIO m, IsMediaStreamTrack self, IsDictionary constraints) =>+                   self -> Maybe constraints -> m ()+applyConstraints self constraints+  = liftIO+      (js_applyConstraints (toMediaStreamTrack self)+         (maybeToNullable (fmap toDictionary constraints)))+ +foreign import javascript unsafe "$1[\"clone\"]()" js_clone ::+        MediaStreamTrack -> IO (Nullable MediaStreamTrack)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.clone Mozilla MediaStreamTrack.clone documentation> +clone ::+      (MonadIO m, IsMediaStreamTrack self) =>+        self -> m (Maybe MediaStreamTrack)+clone self+  = liftIO (nullableToMaybe <$> (js_clone (toMediaStreamTrack self)))+ +foreign import javascript unsafe "$1[\"stop\"]()" js_stop ::+        MediaStreamTrack -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.stop Mozilla MediaStreamTrack.stop documentation> +stop :: (MonadIO m, IsMediaStreamTrack self) => self -> m ()+stop self = liftIO (js_stop (toMediaStreamTrack self))+ +foreign import javascript unsafe "$1[\"kind\"]" js_getKind ::+        MediaStreamTrack -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.kind Mozilla MediaStreamTrack.kind documentation> +getKind ::+        (MonadIO m, IsMediaStreamTrack self, FromJSString result) =>+          self -> m result+getKind self+  = liftIO (fromJSString <$> (js_getKind (toMediaStreamTrack self)))+ +foreign import javascript unsafe "$1[\"id\"]" js_getId ::+        MediaStreamTrack -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.id Mozilla MediaStreamTrack.id documentation> +getId ::+      (MonadIO m, IsMediaStreamTrack self, FromJSString result) =>+        self -> m result+getId self+  = liftIO (fromJSString <$> (js_getId (toMediaStreamTrack self)))+ +foreign import javascript unsafe "$1[\"label\"]" js_getLabel ::+        MediaStreamTrack -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.label Mozilla MediaStreamTrack.label documentation> +getLabel ::+         (MonadIO m, IsMediaStreamTrack self, FromJSString result) =>+           self -> m result+getLabel self+  = liftIO (fromJSString <$> (js_getLabel (toMediaStreamTrack self)))+ +foreign import javascript unsafe "$1[\"enabled\"] = $2;"+        js_setEnabled :: MediaStreamTrack -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.enabled Mozilla MediaStreamTrack.enabled documentation> +setEnabled ::+           (MonadIO m, IsMediaStreamTrack self) => self -> Bool -> m ()+setEnabled self val+  = liftIO (js_setEnabled (toMediaStreamTrack self) val)+ +foreign import javascript unsafe "($1[\"enabled\"] ? 1 : 0)"+        js_getEnabled :: MediaStreamTrack -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.enabled Mozilla MediaStreamTrack.enabled documentation> +getEnabled ::+           (MonadIO m, IsMediaStreamTrack self) => self -> m Bool+getEnabled self = liftIO (js_getEnabled (toMediaStreamTrack self))+ +foreign import javascript unsafe "($1[\"muted\"] ? 1 : 0)"+        js_getMuted :: MediaStreamTrack -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.muted Mozilla MediaStreamTrack.muted documentation> +getMuted :: (MonadIO m, IsMediaStreamTrack self) => self -> m Bool+getMuted self = liftIO (js_getMuted (toMediaStreamTrack self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.onmute Mozilla MediaStreamTrack.onmute documentation> +mute ::+     (IsMediaStreamTrack self, IsEventTarget self) =>+       EventName self Event+mute = unsafeEventName (toJSString "mute")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.onunmute Mozilla MediaStreamTrack.onunmute documentation> +unmute ::+       (IsMediaStreamTrack self, IsEventTarget self) =>+         EventName self Event+unmute = unsafeEventName (toJSString "unmute")+ +foreign import javascript unsafe "($1[\"_readonly\"] ? 1 : 0)"+        js_get_readonly :: MediaStreamTrack -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack._readonly Mozilla MediaStreamTrack._readonly documentation> +get_readonly ::+             (MonadIO m, IsMediaStreamTrack self) => self -> m Bool+get_readonly self+  = liftIO (js_get_readonly (toMediaStreamTrack self))+ +foreign import javascript unsafe "($1[\"remote\"] ? 1 : 0)"+        js_getRemote :: MediaStreamTrack -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.remote Mozilla MediaStreamTrack.remote documentation> +getRemote :: (MonadIO m, IsMediaStreamTrack self) => self -> m Bool+getRemote self = liftIO (js_getRemote (toMediaStreamTrack self))+ +foreign import javascript unsafe "$1[\"readyState\"]"+        js_getReadyState :: MediaStreamTrack -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.readyState Mozilla MediaStreamTrack.readyState documentation> +getReadyState ::+              (MonadIO m, IsMediaStreamTrack self) =>+                self -> m MediaStreamTrackState+getReadyState self+  = liftIO+      ((js_getReadyState (toMediaStreamTrack self)) >>=+         fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.onstarted Mozilla MediaStreamTrack.onstarted documentation> +started ::+        (IsMediaStreamTrack self, IsEventTarget self) =>+          EventName self Event+started = unsafeEventName (toJSString "started")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.onended Mozilla MediaStreamTrack.onended documentation> +ended ::+      (IsMediaStreamTrack self, IsEventTarget self) =>+        EventName self Event+ended = unsafeEventName (toJSString "ended")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.onoverconstrained Mozilla MediaStreamTrack.onoverconstrained documentation> +overConstrained ::+                (IsMediaStreamTrack self, IsEventTarget self) =>+                  EventName self Event+overConstrained = unsafeEventName (toJSString "overconstrained")
+ src/GHCJS/DOM/JSFFI/Generated/MediaStreamTrackEvent.hs view
@@ -0,0 +1,27 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.MediaStreamTrackEvent+       (js_getTrack, getTrack, MediaStreamTrackEvent,+        castToMediaStreamTrackEvent, gTypeMediaStreamTrackEvent)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"track\"]" js_getTrack ::+        MediaStreamTrackEvent -> IO (Nullable MediaStreamTrack)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrackEvent.track Mozilla MediaStreamTrackEvent.track documentation> +getTrack ::+         (MonadIO m) => MediaStreamTrackEvent -> m (Maybe MediaStreamTrack)+getTrack self = liftIO (nullableToMaybe <$> (js_getTrack (self)))
+ src/GHCJS/DOM/JSFFI/Generated/MediaStreamTrackSourcesCallback.hs view
@@ -0,0 +1,57 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.MediaStreamTrackSourcesCallback+       (newMediaStreamTrackSourcesCallback,+        newMediaStreamTrackSourcesCallbackSync,+        newMediaStreamTrackSourcesCallbackAsync,+        MediaStreamTrackSourcesCallback)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrackSourcesCallback Mozilla MediaStreamTrackSourcesCallback documentation> +newMediaStreamTrackSourcesCallback ::+                                   (MonadIO m) =>+                                     ([Maybe SourceInfo] -> IO ()) ->+                                       m MediaStreamTrackSourcesCallback+newMediaStreamTrackSourcesCallback callback+  = liftIO+      (MediaStreamTrackSourcesCallback <$>+         syncCallback1 ThrowWouldBlock+           (\ sources ->+              fromJSValUnchecked sources >>= \ sources' -> callback sources'))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrackSourcesCallback Mozilla MediaStreamTrackSourcesCallback documentation> +newMediaStreamTrackSourcesCallbackSync ::+                                       (MonadIO m) =>+                                         ([Maybe SourceInfo] -> IO ()) ->+                                           m MediaStreamTrackSourcesCallback+newMediaStreamTrackSourcesCallbackSync callback+  = liftIO+      (MediaStreamTrackSourcesCallback <$>+         syncCallback1 ContinueAsync+           (\ sources ->+              fromJSValUnchecked sources >>= \ sources' -> callback sources'))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrackSourcesCallback Mozilla MediaStreamTrackSourcesCallback documentation> +newMediaStreamTrackSourcesCallbackAsync ::+                                        (MonadIO m) =>+                                          ([Maybe SourceInfo] -> IO ()) ->+                                            m MediaStreamTrackSourcesCallback+newMediaStreamTrackSourcesCallbackAsync callback+  = liftIO+      (MediaStreamTrackSourcesCallback <$>+         asyncCallback1+           (\ sources ->+              fromJSValUnchecked sources >>= \ sources' -> callback sources'))
+ src/GHCJS/DOM/JSFFI/Generated/MediaTrackConstraints.hs view
@@ -0,0 +1,40 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.MediaTrackConstraints+       (js_getMandatory, getMandatory, js_getOptional, getOptional,+        MediaTrackConstraints, castToMediaTrackConstraints,+        gTypeMediaTrackConstraints)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"mandatory\"]"+        js_getMandatory :: MediaTrackConstraints -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaTrackConstraints.mandatory Mozilla MediaTrackConstraints.mandatory documentation> +getMandatory ::+             (MonadIO m) =>+               MediaTrackConstraints -> m (Maybe MediaTrackConstraintSet)+getMandatory self+  = liftIO ((js_getMandatory (self)) >>= fromJSValUnchecked)+ +foreign import javascript unsafe "$1[\"optional\"]" js_getOptional+        :: MediaTrackConstraints -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaTrackConstraints.optional Mozilla MediaTrackConstraints.optional documentation> +getOptional ::+            (MonadIO m) =>+              MediaTrackConstraints -> m (Maybe [Maybe MediaTrackConstraint])+getOptional self+  = liftIO ((js_getOptional (self)) >>= fromJSValUnchecked)
+ src/GHCJS/DOM/JSFFI/Generated/MemoryInfo.hs view
@@ -0,0 +1,33 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.MemoryInfo+       (js_getUsedJSHeapSize, getUsedJSHeapSize, js_getTotalJSHeapSize,+        getTotalJSHeapSize, MemoryInfo, castToMemoryInfo, gTypeMemoryInfo)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"usedJSHeapSize\"]"+        js_getUsedJSHeapSize :: MemoryInfo -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MemoryInfo.usedJSHeapSize Mozilla MemoryInfo.usedJSHeapSize documentation> +getUsedJSHeapSize :: (MonadIO m) => MemoryInfo -> m Word+getUsedJSHeapSize self = liftIO (js_getUsedJSHeapSize (self))+ +foreign import javascript unsafe "$1[\"totalJSHeapSize\"]"+        js_getTotalJSHeapSize :: MemoryInfo -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MemoryInfo.totalJSHeapSize Mozilla MemoryInfo.totalJSHeapSize documentation> +getTotalJSHeapSize :: (MonadIO m) => MemoryInfo -> m Word+getTotalJSHeapSize self = liftIO (js_getTotalJSHeapSize (self))
+ src/GHCJS/DOM/JSFFI/Generated/MessageChannel.hs view
@@ -0,0 +1,41 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.MessageChannel+       (js_newMessageChannel, newMessageChannel, js_getPort1, getPort1,+        js_getPort2, getPort2, MessageChannel, castToMessageChannel,+        gTypeMessageChannel)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "new window[\"MessageChannel\"]()"+        js_newMessageChannel :: IO MessageChannel++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MessageChannel Mozilla MessageChannel documentation> +newMessageChannel :: (MonadIO m) => m MessageChannel+newMessageChannel = liftIO (js_newMessageChannel)+ +foreign import javascript unsafe "$1[\"port1\"]" js_getPort1 ::+        MessageChannel -> IO (Nullable MessagePort)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MessageChannel.port1 Mozilla MessageChannel.port1 documentation> +getPort1 :: (MonadIO m) => MessageChannel -> m (Maybe MessagePort)+getPort1 self = liftIO (nullableToMaybe <$> (js_getPort1 (self)))+ +foreign import javascript unsafe "$1[\"port2\"]" js_getPort2 ::+        MessageChannel -> IO (Nullable MessagePort)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MessageChannel.port2 Mozilla MessageChannel.port2 documentation> +getPort2 :: (MonadIO m) => MessageChannel -> m (Maybe MessagePort)+getPort2 self = liftIO (nullableToMaybe <$> (js_getPort2 (self)))
+ src/GHCJS/DOM/JSFFI/Generated/MessageEvent.hs view
@@ -0,0 +1,125 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.MessageEvent+       (js_initMessageEvent, initMessageEvent, js_webkitInitMessageEvent,+        webkitInitMessageEvent, js_getOrigin, getOrigin, js_getLastEventId,+        getLastEventId, js_getSource, getSource, js_getData, getData,+        js_getPorts, getPorts, MessageEvent, castToMessageEvent,+        gTypeMessageEvent)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe+        "$1[\"initMessageEvent\"]($2, $3,\n$4, $5, $6, $7, $8, $9)"+        js_initMessageEvent ::+        MessageEvent ->+          JSString ->+            Bool ->+              Bool ->+                JSVal ->+                  JSString -> JSString -> Nullable Window -> Nullable Array -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MessageEvent.initMessageEvent Mozilla MessageEvent.initMessageEvent documentation> +initMessageEvent ::+                 (MonadIO m, ToJSString typeArg, ToJSString originArg,+                  ToJSString lastEventIdArg, IsArray messagePorts) =>+                   MessageEvent ->+                     typeArg ->+                       Bool ->+                         Bool ->+                           JSVal ->+                             originArg ->+                               lastEventIdArg -> Maybe Window -> Maybe messagePorts -> m ()+initMessageEvent self typeArg canBubbleArg cancelableArg dataArg+  originArg lastEventIdArg sourceArg messagePorts+  = liftIO+      (js_initMessageEvent (self) (toJSString typeArg) canBubbleArg+         cancelableArg+         dataArg+         (toJSString originArg)+         (toJSString lastEventIdArg)+         (maybeToNullable sourceArg)+         (maybeToNullable (fmap toArray messagePorts)))+ +foreign import javascript unsafe+        "$1[\"webkitInitMessageEvent\"]($2,\n$3, $4, $5, $6, $7, $8, $9)"+        js_webkitInitMessageEvent ::+        MessageEvent ->+          JSString ->+            Bool ->+              Bool ->+                JSVal ->+                  JSString -> JSString -> Nullable Window -> Nullable Array -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MessageEvent.webkitInitMessageEvent Mozilla MessageEvent.webkitInitMessageEvent documentation> +webkitInitMessageEvent ::+                       (MonadIO m, ToJSString typeArg, ToJSString originArg,+                        ToJSString lastEventIdArg, IsArray transferables) =>+                         MessageEvent ->+                           typeArg ->+                             Bool ->+                               Bool ->+                                 JSVal ->+                                   originArg ->+                                     lastEventIdArg -> Maybe Window -> Maybe transferables -> m ()+webkitInitMessageEvent self typeArg canBubbleArg cancelableArg+  dataArg originArg lastEventIdArg sourceArg transferables+  = liftIO+      (js_webkitInitMessageEvent (self) (toJSString typeArg) canBubbleArg+         cancelableArg+         dataArg+         (toJSString originArg)+         (toJSString lastEventIdArg)+         (maybeToNullable sourceArg)+         (maybeToNullable (fmap toArray transferables)))+ +foreign import javascript unsafe "$1[\"origin\"]" js_getOrigin ::+        MessageEvent -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MessageEvent.origin Mozilla MessageEvent.origin documentation> +getOrigin ::+          (MonadIO m, FromJSString result) => MessageEvent -> m result+getOrigin self = liftIO (fromJSString <$> (js_getOrigin (self)))+ +foreign import javascript unsafe "$1[\"lastEventId\"]"+        js_getLastEventId :: MessageEvent -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MessageEvent.lastEventId Mozilla MessageEvent.lastEventId documentation> +getLastEventId ::+               (MonadIO m, FromJSString result) => MessageEvent -> m result+getLastEventId self+  = liftIO (fromJSString <$> (js_getLastEventId (self)))+ +foreign import javascript unsafe "$1[\"source\"]" js_getSource ::+        MessageEvent -> IO (Nullable EventTarget)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MessageEvent.source Mozilla MessageEvent.source documentation> +getSource :: (MonadIO m) => MessageEvent -> m (Maybe EventTarget)+getSource self = liftIO (nullableToMaybe <$> (js_getSource (self)))+ +foreign import javascript unsafe "$1[\"data\"]" js_getData ::+        MessageEvent -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MessageEvent.data Mozilla MessageEvent.data documentation> +getData :: (MonadIO m) => MessageEvent -> m JSVal+getData self = liftIO (js_getData (self))+ +foreign import javascript unsafe "$1[\"ports\"]" js_getPorts ::+        MessageEvent -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MessageEvent.ports Mozilla MessageEvent.ports documentation> +getPorts :: (MonadIO m) => MessageEvent -> m [Maybe MessagePort]+getPorts self+  = liftIO ((js_getPorts (self)) >>= fromJSValUnchecked)
+ src/GHCJS/DOM/JSFFI/Generated/MessagePort.hs view
@@ -0,0 +1,49 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.MessagePort+       (js_postMessage, postMessage, js_start, start, js_close, close,+        message, MessagePort, castToMessagePort, gTypeMessagePort)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"postMessage\"]($2, $3)"+        js_postMessage :: MessagePort -> JSVal -> Nullable Array -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MessagePort.postMessage Mozilla MessagePort.postMessage documentation> +postMessage ::+            (MonadIO m, IsArray messagePorts) =>+              MessagePort -> JSVal -> Maybe messagePorts -> m ()+postMessage self message messagePorts+  = liftIO+      (js_postMessage (self) message+         (maybeToNullable (fmap toArray messagePorts)))+ +foreign import javascript unsafe "$1[\"start\"]()" js_start ::+        MessagePort -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MessagePort.start Mozilla MessagePort.start documentation> +start :: (MonadIO m) => MessagePort -> m ()+start self = liftIO (js_start (self))+ +foreign import javascript unsafe "$1[\"close\"]()" js_close ::+        MessagePort -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MessagePort.close Mozilla MessagePort.close documentation> +close :: (MonadIO m) => MessagePort -> m ()+close self = liftIO (js_close (self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MessagePort.onmessage Mozilla MessagePort.onmessage documentation> +message :: EventName MessagePort MessageEvent+message = unsafeEventName (toJSString "message")
+ src/GHCJS/DOM/JSFFI/Generated/MimeType.hs view
@@ -0,0 +1,53 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.MimeType+       (js_getType, getType, js_getSuffixes, getSuffixes,+        js_getDescription, getDescription, js_getEnabledPlugin,+        getEnabledPlugin, MimeType, castToMimeType, gTypeMimeType)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"type\"]" js_getType ::+        MimeType -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MimeType.type Mozilla MimeType.type documentation> +getType :: (MonadIO m, FromJSString result) => MimeType -> m result+getType self = liftIO (fromJSString <$> (js_getType (self)))+ +foreign import javascript unsafe "$1[\"suffixes\"]" js_getSuffixes+        :: MimeType -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MimeType.suffixes Mozilla MimeType.suffixes documentation> +getSuffixes ::+            (MonadIO m, FromJSString result) => MimeType -> m result+getSuffixes self+  = liftIO (fromJSString <$> (js_getSuffixes (self)))+ +foreign import javascript unsafe "$1[\"description\"]"+        js_getDescription :: MimeType -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MimeType.description Mozilla MimeType.description documentation> +getDescription ::+               (MonadIO m, FromJSString result) => MimeType -> m result+getDescription self+  = liftIO (fromJSString <$> (js_getDescription (self)))+ +foreign import javascript unsafe "$1[\"enabledPlugin\"]"+        js_getEnabledPlugin :: MimeType -> IO (Nullable Plugin)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MimeType.enabledPlugin Mozilla MimeType.enabledPlugin documentation> +getEnabledPlugin :: (MonadIO m) => MimeType -> m (Maybe Plugin)+getEnabledPlugin self+  = liftIO (nullableToMaybe <$> (js_getEnabledPlugin (self)))
+ src/GHCJS/DOM/JSFFI/Generated/MimeTypeArray.hs view
@@ -0,0 +1,45 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.MimeTypeArray+       (js_item, item, js_namedItem, namedItem, js_getLength, getLength,+        MimeTypeArray, castToMimeTypeArray, gTypeMimeTypeArray)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"item\"]($2)" js_item ::+        MimeTypeArray -> Word -> IO (Nullable MimeType)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MimeTypeArray.item Mozilla MimeTypeArray.item documentation> +item :: (MonadIO m) => MimeTypeArray -> Word -> m (Maybe MimeType)+item self index+  = liftIO (nullableToMaybe <$> (js_item (self) index))+ +foreign import javascript unsafe "$1[\"namedItem\"]($2)"+        js_namedItem :: MimeTypeArray -> JSString -> IO (Nullable MimeType)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MimeTypeArray.namedItem Mozilla MimeTypeArray.namedItem documentation> +namedItem ::+          (MonadIO m, ToJSString name) =>+            MimeTypeArray -> name -> m (Maybe MimeType)+namedItem self name+  = liftIO+      (nullableToMaybe <$> (js_namedItem (self) (toJSString name)))+ +foreign import javascript unsafe "$1[\"length\"]" js_getLength ::+        MimeTypeArray -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MimeTypeArray.length Mozilla MimeTypeArray.length documentation> +getLength :: (MonadIO m) => MimeTypeArray -> m Word+getLength self = liftIO (js_getLength (self))
+ src/GHCJS/DOM/JSFFI/Generated/MouseEvent.hs view
@@ -0,0 +1,223 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.MouseEvent+       (js_initMouseEvent, initMouseEvent, js_getScreenX, getScreenX,+        js_getScreenY, getScreenY, js_getClientX, getClientX,+        js_getClientY, getClientY, js_getCtrlKey, getCtrlKey,+        js_getShiftKey, getShiftKey, js_getAltKey, getAltKey,+        js_getMetaKey, getMetaKey, js_getButton, getButton,+        js_getRelatedTarget, getRelatedTarget, js_getMovementX,+        getMovementX, js_getMovementY, getMovementY, js_getOffsetX,+        getOffsetX, js_getOffsetY, getOffsetY, js_getX, getX, js_getY,+        getY, js_getFromElement, getFromElement, js_getToElement,+        getToElement, js_getDataTransfer, getDataTransfer, MouseEvent,+        castToMouseEvent, gTypeMouseEvent, IsMouseEvent, toMouseEvent)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe+        "$1[\"initMouseEvent\"]($2, $3, $4,\n$5, $6, $7, $8, $9, $10, $11,\n$12, $13, $14, $15, $16)"+        js_initMouseEvent ::+        MouseEvent ->+          JSString ->+            Bool ->+              Bool ->+                Nullable Window ->+                  Int ->+                    Int ->+                      Int ->+                        Int ->+                          Int ->+                            Bool ->+                              Bool -> Bool -> Bool -> Word -> Nullable EventTarget -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.initMouseEvent Mozilla MouseEvent.initMouseEvent documentation> +initMouseEvent ::+               (MonadIO m, IsMouseEvent self, ToJSString type',+                IsEventTarget relatedTarget) =>+                 self ->+                   type' ->+                     Bool ->+                       Bool ->+                         Maybe Window ->+                           Int ->+                             Int ->+                               Int ->+                                 Int ->+                                   Int ->+                                     Bool ->+                                       Bool -> Bool -> Bool -> Word -> Maybe relatedTarget -> m ()+initMouseEvent self type' canBubble cancelable view detail screenX+  screenY clientX clientY ctrlKey altKey shiftKey metaKey button+  relatedTarget+  = liftIO+      (js_initMouseEvent (toMouseEvent self) (toJSString type') canBubble+         cancelable+         (maybeToNullable view)+         detail+         screenX+         screenY+         clientX+         clientY+         ctrlKey+         altKey+         shiftKey+         metaKey+         button+         (maybeToNullable (fmap toEventTarget relatedTarget)))+ +foreign import javascript unsafe "$1[\"screenX\"]" js_getScreenX ::+        MouseEvent -> IO Int++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.screenX Mozilla MouseEvent.screenX documentation> +getScreenX :: (MonadIO m, IsMouseEvent self) => self -> m Int+getScreenX self = liftIO (js_getScreenX (toMouseEvent self))+ +foreign import javascript unsafe "$1[\"screenY\"]" js_getScreenY ::+        MouseEvent -> IO Int++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.screenY Mozilla MouseEvent.screenY documentation> +getScreenY :: (MonadIO m, IsMouseEvent self) => self -> m Int+getScreenY self = liftIO (js_getScreenY (toMouseEvent self))+ +foreign import javascript unsafe "$1[\"clientX\"]" js_getClientX ::+        MouseEvent -> IO Int++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.clientX Mozilla MouseEvent.clientX documentation> +getClientX :: (MonadIO m, IsMouseEvent self) => self -> m Int+getClientX self = liftIO (js_getClientX (toMouseEvent self))+ +foreign import javascript unsafe "$1[\"clientY\"]" js_getClientY ::+        MouseEvent -> IO Int++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.clientY Mozilla MouseEvent.clientY documentation> +getClientY :: (MonadIO m, IsMouseEvent self) => self -> m Int+getClientY self = liftIO (js_getClientY (toMouseEvent self))+ +foreign import javascript unsafe "($1[\"ctrlKey\"] ? 1 : 0)"+        js_getCtrlKey :: MouseEvent -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.ctrlKey Mozilla MouseEvent.ctrlKey documentation> +getCtrlKey :: (MonadIO m, IsMouseEvent self) => self -> m Bool+getCtrlKey self = liftIO (js_getCtrlKey (toMouseEvent self))+ +foreign import javascript unsafe "($1[\"shiftKey\"] ? 1 : 0)"+        js_getShiftKey :: MouseEvent -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.shiftKey Mozilla MouseEvent.shiftKey documentation> +getShiftKey :: (MonadIO m, IsMouseEvent self) => self -> m Bool+getShiftKey self = liftIO (js_getShiftKey (toMouseEvent self))+ +foreign import javascript unsafe "($1[\"altKey\"] ? 1 : 0)"+        js_getAltKey :: MouseEvent -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.altKey Mozilla MouseEvent.altKey documentation> +getAltKey :: (MonadIO m, IsMouseEvent self) => self -> m Bool+getAltKey self = liftIO (js_getAltKey (toMouseEvent self))+ +foreign import javascript unsafe "($1[\"metaKey\"] ? 1 : 0)"+        js_getMetaKey :: MouseEvent -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.metaKey Mozilla MouseEvent.metaKey documentation> +getMetaKey :: (MonadIO m, IsMouseEvent self) => self -> m Bool+getMetaKey self = liftIO (js_getMetaKey (toMouseEvent self))+ +foreign import javascript unsafe "$1[\"button\"]" js_getButton ::+        MouseEvent -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.button Mozilla MouseEvent.button documentation> +getButton :: (MonadIO m, IsMouseEvent self) => self -> m Word+getButton self = liftIO (js_getButton (toMouseEvent self))+ +foreign import javascript unsafe "$1[\"relatedTarget\"]"+        js_getRelatedTarget :: MouseEvent -> IO (Nullable EventTarget)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.relatedTarget Mozilla MouseEvent.relatedTarget documentation> +getRelatedTarget ::+                 (MonadIO m, IsMouseEvent self) => self -> m (Maybe EventTarget)+getRelatedTarget self+  = liftIO+      (nullableToMaybe <$> (js_getRelatedTarget (toMouseEvent self)))+ +foreign import javascript unsafe "$1[\"movementX\"]"+        js_getMovementX :: MouseEvent -> IO Int++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.movementX Mozilla MouseEvent.movementX documentation> +getMovementX :: (MonadIO m, IsMouseEvent self) => self -> m Int+getMovementX self = liftIO (js_getMovementX (toMouseEvent self))+ +foreign import javascript unsafe "$1[\"movementY\"]"+        js_getMovementY :: MouseEvent -> IO Int++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.movementY Mozilla MouseEvent.movementY documentation> +getMovementY :: (MonadIO m, IsMouseEvent self) => self -> m Int+getMovementY self = liftIO (js_getMovementY (toMouseEvent self))+ +foreign import javascript unsafe "$1[\"offsetX\"]" js_getOffsetX ::+        MouseEvent -> IO Int++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.offsetX Mozilla MouseEvent.offsetX documentation> +getOffsetX :: (MonadIO m, IsMouseEvent self) => self -> m Int+getOffsetX self = liftIO (js_getOffsetX (toMouseEvent self))+ +foreign import javascript unsafe "$1[\"offsetY\"]" js_getOffsetY ::+        MouseEvent -> IO Int++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.offsetY Mozilla MouseEvent.offsetY documentation> +getOffsetY :: (MonadIO m, IsMouseEvent self) => self -> m Int+getOffsetY self = liftIO (js_getOffsetY (toMouseEvent self))+ +foreign import javascript unsafe "$1[\"x\"]" js_getX ::+        MouseEvent -> IO Int++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.x Mozilla MouseEvent.x documentation> +getX :: (MonadIO m, IsMouseEvent self) => self -> m Int+getX self = liftIO (js_getX (toMouseEvent self))+ +foreign import javascript unsafe "$1[\"y\"]" js_getY ::+        MouseEvent -> IO Int++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.y Mozilla MouseEvent.y documentation> +getY :: (MonadIO m, IsMouseEvent self) => self -> m Int+getY self = liftIO (js_getY (toMouseEvent self))+ +foreign import javascript unsafe "$1[\"fromElement\"]"+        js_getFromElement :: MouseEvent -> IO (Nullable Node)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.fromElement Mozilla MouseEvent.fromElement documentation> +getFromElement ::+               (MonadIO m, IsMouseEvent self) => self -> m (Maybe Node)+getFromElement self+  = liftIO+      (nullableToMaybe <$> (js_getFromElement (toMouseEvent self)))+ +foreign import javascript unsafe "$1[\"toElement\"]"+        js_getToElement :: MouseEvent -> IO (Nullable Node)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.toElement Mozilla MouseEvent.toElement documentation> +getToElement ::+             (MonadIO m, IsMouseEvent self) => self -> m (Maybe Node)+getToElement self+  = liftIO+      (nullableToMaybe <$> (js_getToElement (toMouseEvent self)))+ +foreign import javascript unsafe "$1[\"dataTransfer\"]"+        js_getDataTransfer :: MouseEvent -> IO (Nullable DataTransfer)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.dataTransfer Mozilla MouseEvent.dataTransfer documentation> +getDataTransfer ::+                (MonadIO m, IsMouseEvent self) => self -> m (Maybe DataTransfer)+getDataTransfer self+  = liftIO+      (nullableToMaybe <$> (js_getDataTransfer (toMouseEvent self)))
+ src/GHCJS/DOM/JSFFI/Generated/MutationEvent.hs view
@@ -0,0 +1,98 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.MutationEvent+       (js_initMutationEvent, initMutationEvent, pattern MODIFICATION,+        pattern ADDITION, pattern REMOVAL, js_getRelatedNode,+        getRelatedNode, js_getPrevValue, getPrevValue, js_getNewValue,+        getNewValue, js_getAttrName, getAttrName, js_getAttrChange,+        getAttrChange, MutationEvent, castToMutationEvent,+        gTypeMutationEvent)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe+        "$1[\"initMutationEvent\"]($2, $3,\n$4, $5, $6, $7, $8, $9)"+        js_initMutationEvent ::+        MutationEvent ->+          JSString ->+            Bool ->+              Bool ->+                Nullable Node -> JSString -> JSString -> JSString -> Word -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationEvent.initMutationEvent Mozilla MutationEvent.initMutationEvent documentation> +initMutationEvent ::+                  (MonadIO m, ToJSString type', IsNode relatedNode,+                   ToJSString prevValue, ToJSString newValue, ToJSString attrName) =>+                    MutationEvent ->+                      type' ->+                        Bool ->+                          Bool ->+                            Maybe relatedNode ->+                              prevValue -> newValue -> attrName -> Word -> m ()+initMutationEvent self type' canBubble cancelable relatedNode+  prevValue newValue attrName attrChange+  = liftIO+      (js_initMutationEvent (self) (toJSString type') canBubble+         cancelable+         (maybeToNullable (fmap toNode relatedNode))+         (toJSString prevValue)+         (toJSString newValue)+         (toJSString attrName)+         attrChange)+pattern MODIFICATION = 1+pattern ADDITION = 2+pattern REMOVAL = 3+ +foreign import javascript unsafe "$1[\"relatedNode\"]"+        js_getRelatedNode :: MutationEvent -> IO (Nullable Node)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationEvent.relatedNode Mozilla MutationEvent.relatedNode documentation> +getRelatedNode :: (MonadIO m) => MutationEvent -> m (Maybe Node)+getRelatedNode self+  = liftIO (nullableToMaybe <$> (js_getRelatedNode (self)))+ +foreign import javascript unsafe "$1[\"prevValue\"]"+        js_getPrevValue :: MutationEvent -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationEvent.prevValue Mozilla MutationEvent.prevValue documentation> +getPrevValue ::+             (MonadIO m, FromJSString result) => MutationEvent -> m result+getPrevValue self+  = liftIO (fromJSString <$> (js_getPrevValue (self)))+ +foreign import javascript unsafe "$1[\"newValue\"]" js_getNewValue+        :: MutationEvent -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationEvent.newValue Mozilla MutationEvent.newValue documentation> +getNewValue ::+            (MonadIO m, FromJSString result) => MutationEvent -> m result+getNewValue self+  = liftIO (fromJSString <$> (js_getNewValue (self)))+ +foreign import javascript unsafe "$1[\"attrName\"]" js_getAttrName+        :: MutationEvent -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationEvent.attrName Mozilla MutationEvent.attrName documentation> +getAttrName ::+            (MonadIO m, FromJSString result) => MutationEvent -> m result+getAttrName self+  = liftIO (fromJSString <$> (js_getAttrName (self)))+ +foreign import javascript unsafe "$1[\"attrChange\"]"+        js_getAttrChange :: MutationEvent -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationEvent.attrChange Mozilla MutationEvent.attrChange documentation> +getAttrChange :: (MonadIO m) => MutationEvent -> m Word+getAttrChange self = liftIO (js_getAttrChange (self))
+ src/GHCJS/DOM/JSFFI/Generated/MutationObserver.hs view
@@ -0,0 +1,62 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.MutationObserver+       (js_newMutationObserver, newMutationObserver, js_observe, observe,+        js_takeRecords, takeRecords, js_disconnect, disconnect,+        MutationObserver, castToMutationObserver, gTypeMutationObserver)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe+        "new window[\"MutationObserver\"]($1)" js_newMutationObserver ::+        Nullable MutationCallback -> IO MutationObserver++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationObserver Mozilla MutationObserver documentation> +newMutationObserver ::+                    (MonadIO m, IsMutationCallback callback) =>+                      Maybe callback -> m MutationObserver+newMutationObserver callback+  = liftIO+      (js_newMutationObserver+         (maybeToNullable (fmap toMutationCallback callback)))+ +foreign import javascript unsafe "$1[\"observe\"]($2, $3)"+        js_observe ::+        MutationObserver -> Nullable Node -> Nullable Dictionary -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationObserver.observe Mozilla MutationObserver.observe documentation> +observe ::+        (MonadIO m, IsNode target, IsDictionary options) =>+          MutationObserver -> Maybe target -> Maybe options -> m ()+observe self target options+  = liftIO+      (js_observe (self) (maybeToNullable (fmap toNode target))+         (maybeToNullable (fmap toDictionary options)))+ +foreign import javascript unsafe "$1[\"takeRecords\"]()"+        js_takeRecords :: MutationObserver -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationObserver.takeRecords Mozilla MutationObserver.takeRecords documentation> +takeRecords ::+            (MonadIO m) => MutationObserver -> m [Maybe MutationRecord]+takeRecords self+  = liftIO ((js_takeRecords (self)) >>= fromJSValUnchecked)+ +foreign import javascript unsafe "$1[\"disconnect\"]()"+        js_disconnect :: MutationObserver -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationObserver.disconnect Mozilla MutationObserver.disconnect documentation> +disconnect :: (MonadIO m) => MutationObserver -> m ()+disconnect self = liftIO (js_disconnect (self))
+ src/GHCJS/DOM/JSFFI/Generated/MutationRecord.hs view
@@ -0,0 +1,105 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.MutationRecord+       (js_getType, getType, js_getTarget, getTarget, js_getAddedNodes,+        getAddedNodes, js_getRemovedNodes, getRemovedNodes,+        js_getPreviousSibling, getPreviousSibling, js_getNextSibling,+        getNextSibling, js_getAttributeName, getAttributeName,+        js_getAttributeNamespace, getAttributeNamespace, js_getOldValue,+        getOldValue, MutationRecord, castToMutationRecord,+        gTypeMutationRecord)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"type\"]" js_getType ::+        MutationRecord -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationRecord.type Mozilla MutationRecord.type documentation> +getType ::+        (MonadIO m, FromJSString result) => MutationRecord -> m result+getType self = liftIO (fromJSString <$> (js_getType (self)))+ +foreign import javascript unsafe "$1[\"target\"]" js_getTarget ::+        MutationRecord -> IO (Nullable Node)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationRecord.target Mozilla MutationRecord.target documentation> +getTarget :: (MonadIO m) => MutationRecord -> m (Maybe Node)+getTarget self = liftIO (nullableToMaybe <$> (js_getTarget (self)))+ +foreign import javascript unsafe "$1[\"addedNodes\"]"+        js_getAddedNodes :: MutationRecord -> IO (Nullable NodeList)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationRecord.addedNodes Mozilla MutationRecord.addedNodes documentation> +getAddedNodes ::+              (MonadIO m) => MutationRecord -> m (Maybe NodeList)+getAddedNodes self+  = liftIO (nullableToMaybe <$> (js_getAddedNodes (self)))+ +foreign import javascript unsafe "$1[\"removedNodes\"]"+        js_getRemovedNodes :: MutationRecord -> IO (Nullable NodeList)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationRecord.removedNodes Mozilla MutationRecord.removedNodes documentation> +getRemovedNodes ::+                (MonadIO m) => MutationRecord -> m (Maybe NodeList)+getRemovedNodes self+  = liftIO (nullableToMaybe <$> (js_getRemovedNodes (self)))+ +foreign import javascript unsafe "$1[\"previousSibling\"]"+        js_getPreviousSibling :: MutationRecord -> IO (Nullable Node)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationRecord.previousSibling Mozilla MutationRecord.previousSibling documentation> +getPreviousSibling ::+                   (MonadIO m) => MutationRecord -> m (Maybe Node)+getPreviousSibling self+  = liftIO (nullableToMaybe <$> (js_getPreviousSibling (self)))+ +foreign import javascript unsafe "$1[\"nextSibling\"]"+        js_getNextSibling :: MutationRecord -> IO (Nullable Node)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationRecord.nextSibling Mozilla MutationRecord.nextSibling documentation> +getNextSibling :: (MonadIO m) => MutationRecord -> m (Maybe Node)+getNextSibling self+  = liftIO (nullableToMaybe <$> (js_getNextSibling (self)))+ +foreign import javascript unsafe "$1[\"attributeName\"]"+        js_getAttributeName :: MutationRecord -> IO (Nullable JSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationRecord.attributeName Mozilla MutationRecord.attributeName documentation> +getAttributeName ::+                 (MonadIO m, FromJSString result) =>+                   MutationRecord -> m (Maybe result)+getAttributeName self+  = liftIO (fromMaybeJSString <$> (js_getAttributeName (self)))+ +foreign import javascript unsafe "$1[\"attributeNamespace\"]"+        js_getAttributeNamespace ::+        MutationRecord -> IO (Nullable JSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationRecord.attributeNamespace Mozilla MutationRecord.attributeNamespace documentation> +getAttributeNamespace ::+                      (MonadIO m, FromJSString result) =>+                        MutationRecord -> m (Maybe result)+getAttributeNamespace self+  = liftIO (fromMaybeJSString <$> (js_getAttributeNamespace (self)))+ +foreign import javascript unsafe "$1[\"oldValue\"]" js_getOldValue+        :: MutationRecord -> IO (Nullable JSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationRecord.oldValue Mozilla MutationRecord.oldValue documentation> +getOldValue ::+            (MonadIO m, FromJSString result) =>+              MutationRecord -> m (Maybe result)+getOldValue self+  = liftIO (fromMaybeJSString <$> (js_getOldValue (self)))
+ src/GHCJS/DOM/JSFFI/Generated/NamedNodeMap.hs view
@@ -0,0 +1,115 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.NamedNodeMap+       (js_getNamedItem, getNamedItem, js_setNamedItem, setNamedItem,+        js_removeNamedItem, removeNamedItem, js_item, item,+        js_getNamedItemNS, getNamedItemNS, js_setNamedItemNS,+        setNamedItemNS, js_removeNamedItemNS, removeNamedItemNS,+        js_getLength, getLength, NamedNodeMap, castToNamedNodeMap,+        gTypeNamedNodeMap)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"getNamedItem\"]($2)"+        js_getNamedItem :: NamedNodeMap -> JSString -> IO (Nullable Node)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NamedNodeMap.getNamedItem Mozilla NamedNodeMap.getNamedItem documentation> +getNamedItem ::+             (MonadIO m, ToJSString name) =>+               NamedNodeMap -> name -> m (Maybe Node)+getNamedItem self name+  = liftIO+      (nullableToMaybe <$> (js_getNamedItem (self) (toJSString name)))+ +foreign import javascript unsafe "$1[\"setNamedItem\"]($2)"+        js_setNamedItem ::+        NamedNodeMap -> Nullable Node -> IO (Nullable Node)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NamedNodeMap.setNamedItem Mozilla NamedNodeMap.setNamedItem documentation> +setNamedItem ::+             (MonadIO m, IsNode node) =>+               NamedNodeMap -> Maybe node -> m (Maybe Node)+setNamedItem self node+  = liftIO+      (nullableToMaybe <$>+         (js_setNamedItem (self) (maybeToNullable (fmap toNode node))))+ +foreign import javascript unsafe "$1[\"removeNamedItem\"]($2)"+        js_removeNamedItem ::+        NamedNodeMap -> JSString -> IO (Nullable Node)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NamedNodeMap.removeNamedItem Mozilla NamedNodeMap.removeNamedItem documentation> +removeNamedItem ::+                (MonadIO m, ToJSString name) =>+                  NamedNodeMap -> name -> m (Maybe Node)+removeNamedItem self name+  = liftIO+      (nullableToMaybe <$> (js_removeNamedItem (self) (toJSString name)))+ +foreign import javascript unsafe "$1[\"item\"]($2)" js_item ::+        NamedNodeMap -> Word -> IO (Nullable Node)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NamedNodeMap.item Mozilla NamedNodeMap.item documentation> +item :: (MonadIO m) => NamedNodeMap -> Word -> m (Maybe Node)+item self index+  = liftIO (nullableToMaybe <$> (js_item (self) index))+ +foreign import javascript unsafe "$1[\"getNamedItemNS\"]($2, $3)"+        js_getNamedItemNS ::+        NamedNodeMap -> Nullable JSString -> JSString -> IO (Nullable Node)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NamedNodeMap.getNamedItemNS Mozilla NamedNodeMap.getNamedItemNS documentation> +getNamedItemNS ::+               (MonadIO m, ToJSString namespaceURI, ToJSString localName) =>+                 NamedNodeMap -> Maybe namespaceURI -> localName -> m (Maybe Node)+getNamedItemNS self namespaceURI localName+  = liftIO+      (nullableToMaybe <$>+         (js_getNamedItemNS (self) (toMaybeJSString namespaceURI)+            (toJSString localName)))+ +foreign import javascript unsafe "$1[\"setNamedItemNS\"]($2)"+        js_setNamedItemNS ::+        NamedNodeMap -> Nullable Node -> IO (Nullable Node)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NamedNodeMap.setNamedItemNS Mozilla NamedNodeMap.setNamedItemNS documentation> +setNamedItemNS ::+               (MonadIO m, IsNode node) =>+                 NamedNodeMap -> Maybe node -> m (Maybe Node)+setNamedItemNS self node+  = liftIO+      (nullableToMaybe <$>+         (js_setNamedItemNS (self) (maybeToNullable (fmap toNode node))))+ +foreign import javascript unsafe+        "$1[\"removeNamedItemNS\"]($2, $3)" js_removeNamedItemNS ::+        NamedNodeMap -> Nullable JSString -> JSString -> IO (Nullable Node)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NamedNodeMap.removeNamedItemNS Mozilla NamedNodeMap.removeNamedItemNS documentation> +removeNamedItemNS ::+                  (MonadIO m, ToJSString namespaceURI, ToJSString localName) =>+                    NamedNodeMap -> Maybe namespaceURI -> localName -> m (Maybe Node)+removeNamedItemNS self namespaceURI localName+  = liftIO+      (nullableToMaybe <$>+         (js_removeNamedItemNS (self) (toMaybeJSString namespaceURI)+            (toJSString localName)))+ +foreign import javascript unsafe "$1[\"length\"]" js_getLength ::+        NamedNodeMap -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NamedNodeMap.length Mozilla NamedNodeMap.length documentation> +getLength :: (MonadIO m) => NamedNodeMap -> m Word+getLength self = liftIO (js_getLength (self))
+ src/GHCJS/DOM/JSFFI/Generated/Navigator.hs view
@@ -0,0 +1,305 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.Navigator+       (js_getGamepads, getGamepads, js_webkitGetUserMedia,+        webkitGetUserMedia, js_registerProtocolHandler,+        registerProtocolHandler, js_isProtocolHandlerRegistered,+        isProtocolHandlerRegistered, js_unregisterProtocolHandler,+        unregisterProtocolHandler, js_vibratePattern, vibratePattern,+        js_vibrate, vibrate, js_javaEnabled, javaEnabled,+        js_getStorageUpdates, getStorageUpdates, js_getWebkitBattery,+        getWebkitBattery, js_getGeolocation, getGeolocation,+        js_getWebkitTemporaryStorage, getWebkitTemporaryStorage,+        js_getWebkitPersistentStorage, getWebkitPersistentStorage,+        js_getAppCodeName, getAppCodeName, js_getAppName, getAppName,+        js_getAppVersion, getAppVersion, js_getLanguage, getLanguage,+        js_getUserAgent, getUserAgent, js_getPlatform, getPlatform,+        js_getPlugins, getPlugins, js_getMimeTypes, getMimeTypes,+        js_getProduct, getProduct, js_getProductSub, getProductSub,+        js_getVendor, getVendor, js_getVendorSub, getVendorSub,+        js_getCookieEnabled, getCookieEnabled, js_getOnLine, getOnLine,+        js_getHardwareConcurrency, getHardwareConcurrency, Navigator,+        castToNavigator, gTypeNavigator)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"getGamepads\"]()"+        js_getGamepads :: Navigator -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.getGamepads Mozilla Navigator.getGamepads documentation> +getGamepads :: (MonadIO m) => Navigator -> m [Maybe Gamepad]+getGamepads self+  = liftIO ((js_getGamepads (self)) >>= fromJSValUnchecked)+ +foreign import javascript unsafe+        "$1[\"webkitGetUserMedia\"]($2, $3,\n$4)" js_webkitGetUserMedia ::+        Navigator ->+          Nullable Dictionary ->+            Nullable NavigatorUserMediaSuccessCallback ->+              Nullable NavigatorUserMediaErrorCallback -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.webkitGetUserMedia Mozilla Navigator.webkitGetUserMedia documentation> +webkitGetUserMedia ::+                   (MonadIO m, IsDictionary options) =>+                     Navigator ->+                       Maybe options ->+                         Maybe NavigatorUserMediaSuccessCallback ->+                           Maybe NavigatorUserMediaErrorCallback -> m ()+webkitGetUserMedia self options successCallback errorCallback+  = liftIO+      (js_webkitGetUserMedia (self)+         (maybeToNullable (fmap toDictionary options))+         (maybeToNullable successCallback)+         (maybeToNullable errorCallback))+ +foreign import javascript unsafe+        "$1[\"registerProtocolHandler\"]($2,\n$3, $4)"+        js_registerProtocolHandler ::+        Navigator -> JSString -> JSString -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.registerProtocolHandler Mozilla Navigator.registerProtocolHandler documentation> +registerProtocolHandler ::+                        (MonadIO m, ToJSString scheme, ToJSString url, ToJSString title) =>+                          Navigator -> scheme -> url -> title -> m ()+registerProtocolHandler self scheme url title+  = liftIO+      (js_registerProtocolHandler (self) (toJSString scheme)+         (toJSString url)+         (toJSString title))+ +foreign import javascript unsafe+        "$1[\"isProtocolHandlerRegistered\"]($2,\n$3)"+        js_isProtocolHandlerRegistered ::+        Navigator -> JSString -> JSString -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.isProtocolHandlerRegistered Mozilla Navigator.isProtocolHandlerRegistered documentation> +isProtocolHandlerRegistered ::+                            (MonadIO m, ToJSString scheme, ToJSString url,+                             FromJSString result) =>+                              Navigator -> scheme -> url -> m result+isProtocolHandlerRegistered self scheme url+  = liftIO+      (fromJSString <$>+         (js_isProtocolHandlerRegistered (self) (toJSString scheme)+            (toJSString url)))+ +foreign import javascript unsafe+        "$1[\"unregisterProtocolHandler\"]($2,\n$3)"+        js_unregisterProtocolHandler ::+        Navigator -> JSString -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.unregisterProtocolHandler Mozilla Navigator.unregisterProtocolHandler documentation> +unregisterProtocolHandler ::+                          (MonadIO m, ToJSString scheme, ToJSString url) =>+                            Navigator -> scheme -> url -> m ()+unregisterProtocolHandler self scheme url+  = liftIO+      (js_unregisterProtocolHandler (self) (toJSString scheme)+         (toJSString url))+ +foreign import javascript unsafe "($1[\"vibrate\"]($2) ? 1 : 0)"+        js_vibratePattern :: Navigator -> JSVal -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.vibrate Mozilla Navigator.vibrate documentation> +vibratePattern :: (MonadIO m) => Navigator -> [Word] -> m Bool+vibratePattern self pattern'+  = liftIO+      (toJSVal pattern' >>=+         \ pattern'' -> js_vibratePattern (self) pattern'')+ +foreign import javascript unsafe "($1[\"vibrate\"]($2) ? 1 : 0)"+        js_vibrate :: Navigator -> Word -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.vibrate Mozilla Navigator.vibrate documentation> +vibrate :: (MonadIO m) => Navigator -> Word -> m Bool+vibrate self time = liftIO (js_vibrate (self) time)+ +foreign import javascript unsafe "($1[\"javaEnabled\"]() ? 1 : 0)"+        js_javaEnabled :: Navigator -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.javaEnabled Mozilla Navigator.javaEnabled documentation> +javaEnabled :: (MonadIO m) => Navigator -> m Bool+javaEnabled self = liftIO (js_javaEnabled (self))+ +foreign import javascript unsafe "$1[\"getStorageUpdates\"]()"+        js_getStorageUpdates :: Navigator -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.getStorageUpdates Mozilla Navigator.getStorageUpdates documentation> +getStorageUpdates :: (MonadIO m) => Navigator -> m ()+getStorageUpdates self = liftIO (js_getStorageUpdates (self))+ +foreign import javascript unsafe "$1[\"webkitBattery\"]"+        js_getWebkitBattery :: Navigator -> IO (Nullable BatteryManager)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.webkitBattery Mozilla Navigator.webkitBattery documentation> +getWebkitBattery ::+                 (MonadIO m) => Navigator -> m (Maybe BatteryManager)+getWebkitBattery self+  = liftIO (nullableToMaybe <$> (js_getWebkitBattery (self)))+ +foreign import javascript unsafe "$1[\"geolocation\"]"+        js_getGeolocation :: Navigator -> IO (Nullable Geolocation)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.geolocation Mozilla Navigator.geolocation documentation> +getGeolocation :: (MonadIO m) => Navigator -> m (Maybe Geolocation)+getGeolocation self+  = liftIO (nullableToMaybe <$> (js_getGeolocation (self)))+ +foreign import javascript unsafe "$1[\"webkitTemporaryStorage\"]"+        js_getWebkitTemporaryStorage ::+        Navigator -> IO (Nullable StorageQuota)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.webkitTemporaryStorage Mozilla Navigator.webkitTemporaryStorage documentation> +getWebkitTemporaryStorage ::+                          (MonadIO m) => Navigator -> m (Maybe StorageQuota)+getWebkitTemporaryStorage self+  = liftIO+      (nullableToMaybe <$> (js_getWebkitTemporaryStorage (self)))+ +foreign import javascript unsafe "$1[\"webkitPersistentStorage\"]"+        js_getWebkitPersistentStorage ::+        Navigator -> IO (Nullable StorageQuota)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.webkitPersistentStorage Mozilla Navigator.webkitPersistentStorage documentation> +getWebkitPersistentStorage ::+                           (MonadIO m) => Navigator -> m (Maybe StorageQuota)+getWebkitPersistentStorage self+  = liftIO+      (nullableToMaybe <$> (js_getWebkitPersistentStorage (self)))+ +foreign import javascript unsafe "$1[\"appCodeName\"]"+        js_getAppCodeName :: Navigator -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.appCodeName Mozilla Navigator.appCodeName documentation> +getAppCodeName ::+               (MonadIO m, FromJSString result) => Navigator -> m result+getAppCodeName self+  = liftIO (fromJSString <$> (js_getAppCodeName (self)))+ +foreign import javascript unsafe "$1[\"appName\"]" js_getAppName ::+        Navigator -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.appName Mozilla Navigator.appName documentation> +getAppName ::+           (MonadIO m, FromJSString result) => Navigator -> m result+getAppName self = liftIO (fromJSString <$> (js_getAppName (self)))+ +foreign import javascript unsafe "$1[\"appVersion\"]"+        js_getAppVersion :: Navigator -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.appVersion Mozilla Navigator.appVersion documentation> +getAppVersion ::+              (MonadIO m, FromJSString result) => Navigator -> m result+getAppVersion self+  = liftIO (fromJSString <$> (js_getAppVersion (self)))+ +foreign import javascript unsafe "$1[\"language\"]" js_getLanguage+        :: Navigator -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.language Mozilla Navigator.language documentation> +getLanguage ::+            (MonadIO m, FromJSString result) => Navigator -> m result+getLanguage self+  = liftIO (fromJSString <$> (js_getLanguage (self)))+ +foreign import javascript unsafe "$1[\"userAgent\"]"+        js_getUserAgent :: Navigator -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.userAgent Mozilla Navigator.userAgent documentation> +getUserAgent ::+             (MonadIO m, FromJSString result) => Navigator -> m result+getUserAgent self+  = liftIO (fromJSString <$> (js_getUserAgent (self)))+ +foreign import javascript unsafe "$1[\"platform\"]" js_getPlatform+        :: Navigator -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.platform Mozilla Navigator.platform documentation> +getPlatform ::+            (MonadIO m, FromJSString result) => Navigator -> m result+getPlatform self+  = liftIO (fromJSString <$> (js_getPlatform (self)))+ +foreign import javascript unsafe "$1[\"plugins\"]" js_getPlugins ::+        Navigator -> IO (Nullable PluginArray)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.plugins Mozilla Navigator.plugins documentation> +getPlugins :: (MonadIO m) => Navigator -> m (Maybe PluginArray)+getPlugins self+  = liftIO (nullableToMaybe <$> (js_getPlugins (self)))+ +foreign import javascript unsafe "$1[\"mimeTypes\"]"+        js_getMimeTypes :: Navigator -> IO (Nullable MimeTypeArray)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.mimeTypes Mozilla Navigator.mimeTypes documentation> +getMimeTypes :: (MonadIO m) => Navigator -> m (Maybe MimeTypeArray)+getMimeTypes self+  = liftIO (nullableToMaybe <$> (js_getMimeTypes (self)))+ +foreign import javascript unsafe "$1[\"product\"]" js_getProduct ::+        Navigator -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.product Mozilla Navigator.product documentation> +getProduct ::+           (MonadIO m, FromJSString result) => Navigator -> m result+getProduct self = liftIO (fromJSString <$> (js_getProduct (self)))+ +foreign import javascript unsafe "$1[\"productSub\"]"+        js_getProductSub :: Navigator -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.productSub Mozilla Navigator.productSub documentation> +getProductSub ::+              (MonadIO m, FromJSString result) => Navigator -> m result+getProductSub self+  = liftIO (fromJSString <$> (js_getProductSub (self)))+ +foreign import javascript unsafe "$1[\"vendor\"]" js_getVendor ::+        Navigator -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.vendor Mozilla Navigator.vendor documentation> +getVendor ::+          (MonadIO m, FromJSString result) => Navigator -> m result+getVendor self = liftIO (fromJSString <$> (js_getVendor (self)))+ +foreign import javascript unsafe "$1[\"vendorSub\"]"+        js_getVendorSub :: Navigator -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.vendorSub Mozilla Navigator.vendorSub documentation> +getVendorSub ::+             (MonadIO m, FromJSString result) => Navigator -> m result+getVendorSub self+  = liftIO (fromJSString <$> (js_getVendorSub (self)))+ +foreign import javascript unsafe "($1[\"cookieEnabled\"] ? 1 : 0)"+        js_getCookieEnabled :: Navigator -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.cookieEnabled Mozilla Navigator.cookieEnabled documentation> +getCookieEnabled :: (MonadIO m) => Navigator -> m Bool+getCookieEnabled self = liftIO (js_getCookieEnabled (self))+ +foreign import javascript unsafe "($1[\"onLine\"] ? 1 : 0)"+        js_getOnLine :: Navigator -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.onLine Mozilla Navigator.onLine documentation> +getOnLine :: (MonadIO m) => Navigator -> m Bool+getOnLine self = liftIO (js_getOnLine (self))+ +foreign import javascript unsafe "$1[\"hardwareConcurrency\"]"+        js_getHardwareConcurrency :: Navigator -> IO Int++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.hardwareConcurrency Mozilla Navigator.hardwareConcurrency documentation> +getHardwareConcurrency :: (MonadIO m) => Navigator -> m Int+getHardwareConcurrency self+  = liftIO (js_getHardwareConcurrency (self))
+ src/GHCJS/DOM/JSFFI/Generated/NavigatorUserMediaError.hs view
@@ -0,0 +1,29 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.NavigatorUserMediaError+       (js_getConstraintName, getConstraintName, NavigatorUserMediaError,+        castToNavigatorUserMediaError, gTypeNavigatorUserMediaError)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"constraintName\"]"+        js_getConstraintName :: NavigatorUserMediaError -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NavigatorUserMediaError.constraintName Mozilla NavigatorUserMediaError.constraintName documentation> +getConstraintName ::+                  (MonadIO m, FromJSString result) =>+                    NavigatorUserMediaError -> m result+getConstraintName self+  = liftIO (fromJSString <$> (js_getConstraintName (self)))
+ src/GHCJS/DOM/JSFFI/Generated/NavigatorUserMediaErrorCallback.hs view
@@ -0,0 +1,57 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.NavigatorUserMediaErrorCallback+       (newNavigatorUserMediaErrorCallback,+        newNavigatorUserMediaErrorCallbackSync,+        newNavigatorUserMediaErrorCallbackAsync,+        NavigatorUserMediaErrorCallback)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NavigatorUserMediaErrorCallback Mozilla NavigatorUserMediaErrorCallback documentation> +newNavigatorUserMediaErrorCallback ::+                                   (MonadIO m) =>+                                     (Maybe NavigatorUserMediaError -> IO ()) ->+                                       m NavigatorUserMediaErrorCallback+newNavigatorUserMediaErrorCallback callback+  = liftIO+      (NavigatorUserMediaErrorCallback <$>+         syncCallback1 ThrowWouldBlock+           (\ error ->+              fromJSValUnchecked error >>= \ error' -> callback error'))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NavigatorUserMediaErrorCallback Mozilla NavigatorUserMediaErrorCallback documentation> +newNavigatorUserMediaErrorCallbackSync ::+                                       (MonadIO m) =>+                                         (Maybe NavigatorUserMediaError -> IO ()) ->+                                           m NavigatorUserMediaErrorCallback+newNavigatorUserMediaErrorCallbackSync callback+  = liftIO+      (NavigatorUserMediaErrorCallback <$>+         syncCallback1 ContinueAsync+           (\ error ->+              fromJSValUnchecked error >>= \ error' -> callback error'))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NavigatorUserMediaErrorCallback Mozilla NavigatorUserMediaErrorCallback documentation> +newNavigatorUserMediaErrorCallbackAsync ::+                                        (MonadIO m) =>+                                          (Maybe NavigatorUserMediaError -> IO ()) ->+                                            m NavigatorUserMediaErrorCallback+newNavigatorUserMediaErrorCallbackAsync callback+  = liftIO+      (NavigatorUserMediaErrorCallback <$>+         asyncCallback1+           (\ error ->+              fromJSValUnchecked error >>= \ error' -> callback error'))
+ src/GHCJS/DOM/JSFFI/Generated/NavigatorUserMediaSuccessCallback.hs view
@@ -0,0 +1,57 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.NavigatorUserMediaSuccessCallback+       (newNavigatorUserMediaSuccessCallback,+        newNavigatorUserMediaSuccessCallbackSync,+        newNavigatorUserMediaSuccessCallbackAsync,+        NavigatorUserMediaSuccessCallback)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NavigatorUserMediaSuccessCallback Mozilla NavigatorUserMediaSuccessCallback documentation> +newNavigatorUserMediaSuccessCallback ::+                                     (MonadIO m) =>+                                       (Maybe MediaStream -> IO ()) ->+                                         m NavigatorUserMediaSuccessCallback+newNavigatorUserMediaSuccessCallback callback+  = liftIO+      (NavigatorUserMediaSuccessCallback <$>+         syncCallback1 ThrowWouldBlock+           (\ stream ->+              fromJSValUnchecked stream >>= \ stream' -> callback stream'))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NavigatorUserMediaSuccessCallback Mozilla NavigatorUserMediaSuccessCallback documentation> +newNavigatorUserMediaSuccessCallbackSync ::+                                         (MonadIO m) =>+                                           (Maybe MediaStream -> IO ()) ->+                                             m NavigatorUserMediaSuccessCallback+newNavigatorUserMediaSuccessCallbackSync callback+  = liftIO+      (NavigatorUserMediaSuccessCallback <$>+         syncCallback1 ContinueAsync+           (\ stream ->+              fromJSValUnchecked stream >>= \ stream' -> callback stream'))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NavigatorUserMediaSuccessCallback Mozilla NavigatorUserMediaSuccessCallback documentation> +newNavigatorUserMediaSuccessCallbackAsync ::+                                          (MonadIO m) =>+                                            (Maybe MediaStream -> IO ()) ->+                                              m NavigatorUserMediaSuccessCallback+newNavigatorUserMediaSuccessCallbackAsync callback+  = liftIO+      (NavigatorUserMediaSuccessCallback <$>+         asyncCallback1+           (\ stream ->+              fromJSValUnchecked stream >>= \ stream' -> callback stream'))
+ src/GHCJS/DOM/JSFFI/Generated/Node.hs view
@@ -0,0 +1,424 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.Node+       (js_insertBefore, insertBefore, js_replaceChild, replaceChild,+        js_removeChild, removeChild, js_appendChild, appendChild,+        js_hasChildNodes, hasChildNodes, js_cloneNode, cloneNode,+        js_normalize, normalize, js_isSupported, isSupported,+        js_isSameNode, isSameNode, js_isEqualNode, isEqualNode,+        js_lookupPrefix, lookupPrefix, js_isDefaultNamespace,+        isDefaultNamespace, js_lookupNamespaceURI, lookupNamespaceURI,+        js_compareDocumentPosition, compareDocumentPosition, js_contains,+        contains, pattern ELEMENT_NODE, pattern ATTRIBUTE_NODE,+        pattern TEXT_NODE, pattern CDATA_SECTION_NODE,+        pattern ENTITY_REFERENCE_NODE, pattern ENTITY_NODE,+        pattern PROCESSING_INSTRUCTION_NODE, pattern COMMENT_NODE,+        pattern DOCUMENT_NODE, pattern DOCUMENT_TYPE_NODE,+        pattern DOCUMENT_FRAGMENT_NODE, pattern NOTATION_NODE,+        pattern DOCUMENT_POSITION_DISCONNECTED,+        pattern DOCUMENT_POSITION_PRECEDING,+        pattern DOCUMENT_POSITION_FOLLOWING,+        pattern DOCUMENT_POSITION_CONTAINS,+        pattern DOCUMENT_POSITION_CONTAINED_BY,+        pattern DOCUMENT_POSITION_IMPLEMENTATION_SPECIFIC, js_getNodeName,+        getNodeName, js_setNodeValue, setNodeValue, js_getNodeValue,+        getNodeValue, js_getNodeType, getNodeType, js_getParentNode,+        getParentNode, js_getChildNodes, getChildNodes, js_getFirstChild,+        getFirstChild, js_getLastChild, getLastChild,+        js_getPreviousSibling, getPreviousSibling, js_getNextSibling,+        getNextSibling, js_getOwnerDocument, getOwnerDocument,+        js_getNamespaceURI, getNamespaceURI, js_setPrefix, setPrefix,+        js_getPrefix, getPrefix, js_getLocalName, getLocalName,+        js_getBaseURI, getBaseURI, js_setTextContent, setTextContent,+        js_getTextContent, getTextContent, js_getParentElement,+        getParentElement, Node, castToNode, gTypeNode, IsNode, toNode)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"insertBefore\"]($2, $3)"+        js_insertBefore ::+        Node -> Nullable Node -> Nullable Node -> IO (Nullable Node)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.insertBefore Mozilla Node.insertBefore documentation> +insertBefore ::+             (MonadIO m, IsNode self, IsNode newChild, IsNode refChild) =>+               self -> Maybe newChild -> Maybe refChild -> m (Maybe Node)+insertBefore self newChild refChild+  = liftIO+      (nullableToMaybe <$>+         (js_insertBefore (toNode self)+            (maybeToNullable (fmap toNode newChild))+            (maybeToNullable (fmap toNode refChild))))+ +foreign import javascript unsafe "$1[\"replaceChild\"]($2, $3)"+        js_replaceChild ::+        Node -> Nullable Node -> Nullable Node -> IO (Nullable Node)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.replaceChild Mozilla Node.replaceChild documentation> +replaceChild ::+             (MonadIO m, IsNode self, IsNode newChild, IsNode oldChild) =>+               self -> Maybe newChild -> Maybe oldChild -> m (Maybe Node)+replaceChild self newChild oldChild+  = liftIO+      (nullableToMaybe <$>+         (js_replaceChild (toNode self)+            (maybeToNullable (fmap toNode newChild))+            (maybeToNullable (fmap toNode oldChild))))+ +foreign import javascript unsafe "$1[\"removeChild\"]($2)"+        js_removeChild :: Node -> Nullable Node -> IO (Nullable Node)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.removeChild Mozilla Node.removeChild documentation> +removeChild ::+            (MonadIO m, IsNode self, IsNode oldChild) =>+              self -> Maybe oldChild -> m (Maybe Node)+removeChild self oldChild+  = liftIO+      (nullableToMaybe <$>+         (js_removeChild (toNode self)+            (maybeToNullable (fmap toNode oldChild))))+ +foreign import javascript unsafe "$1[\"appendChild\"]($2)"+        js_appendChild :: Node -> Nullable Node -> IO (Nullable Node)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.appendChild Mozilla Node.appendChild documentation> +appendChild ::+            (MonadIO m, IsNode self, IsNode newChild) =>+              self -> Maybe newChild -> m (Maybe Node)+appendChild self newChild+  = liftIO+      (nullableToMaybe <$>+         (js_appendChild (toNode self)+            (maybeToNullable (fmap toNode newChild))))+ +foreign import javascript unsafe+        "($1[\"hasChildNodes\"]() ? 1 : 0)" js_hasChildNodes ::+        Node -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.hasChildNodes Mozilla Node.hasChildNodes documentation> +hasChildNodes :: (MonadIO m, IsNode self) => self -> m Bool+hasChildNodes self = liftIO (js_hasChildNodes (toNode self))+ +foreign import javascript unsafe "$1[\"cloneNode\"]($2)"+        js_cloneNode :: Node -> Bool -> IO (Nullable Node)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.cloneNode Mozilla Node.cloneNode documentation> +cloneNode ::+          (MonadIO m, IsNode self) => self -> Bool -> m (Maybe Node)+cloneNode self deep+  = liftIO (nullableToMaybe <$> (js_cloneNode (toNode self) deep))+ +foreign import javascript unsafe "$1[\"normalize\"]()" js_normalize+        :: Node -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.normalize Mozilla Node.normalize documentation> +normalize :: (MonadIO m, IsNode self) => self -> m ()+normalize self = liftIO (js_normalize (toNode self))+ +foreign import javascript unsafe+        "($1[\"isSupported\"]($2,\n$3) ? 1 : 0)" js_isSupported ::+        Node -> JSString -> Nullable JSString -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.isSupported Mozilla Node.isSupported documentation> +isSupported ::+            (MonadIO m, IsNode self, ToJSString feature, ToJSString version) =>+              self -> feature -> Maybe version -> m Bool+isSupported self feature version+  = liftIO+      (js_isSupported (toNode self) (toJSString feature)+         (toMaybeJSString version))+ +foreign import javascript unsafe "($1[\"isSameNode\"]($2) ? 1 : 0)"+        js_isSameNode :: Node -> Nullable Node -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.isSameNode Mozilla Node.isSameNode documentation> +isSameNode ::+           (MonadIO m, IsNode self, IsNode other) =>+             self -> Maybe other -> m Bool+isSameNode self other+  = liftIO+      (js_isSameNode (toNode self) (maybeToNullable (fmap toNode other)))+ +foreign import javascript unsafe+        "($1[\"isEqualNode\"]($2) ? 1 : 0)" js_isEqualNode ::+        Node -> Nullable Node -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.isEqualNode Mozilla Node.isEqualNode documentation> +isEqualNode ::+            (MonadIO m, IsNode self, IsNode other) =>+              self -> Maybe other -> m Bool+isEqualNode self other+  = liftIO+      (js_isEqualNode (toNode self)+         (maybeToNullable (fmap toNode other)))+ +foreign import javascript unsafe "$1[\"lookupPrefix\"]($2)"+        js_lookupPrefix ::+        Node -> Nullable JSString -> IO (Nullable JSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.lookupPrefix Mozilla Node.lookupPrefix documentation> +lookupPrefix ::+             (MonadIO m, IsNode self, ToJSString namespaceURI,+              FromJSString result) =>+               self -> Maybe namespaceURI -> m (Maybe result)+lookupPrefix self namespaceURI+  = liftIO+      (fromMaybeJSString <$>+         (js_lookupPrefix (toNode self) (toMaybeJSString namespaceURI)))+ +foreign import javascript unsafe+        "($1[\"isDefaultNamespace\"]($2) ? 1 : 0)" js_isDefaultNamespace ::+        Node -> Nullable JSString -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.isDefaultNamespace Mozilla Node.isDefaultNamespace documentation> +isDefaultNamespace ::+                   (MonadIO m, IsNode self, ToJSString namespaceURI) =>+                     self -> Maybe namespaceURI -> m Bool+isDefaultNamespace self namespaceURI+  = liftIO+      (js_isDefaultNamespace (toNode self)+         (toMaybeJSString namespaceURI))+ +foreign import javascript unsafe "$1[\"lookupNamespaceURI\"]($2)"+        js_lookupNamespaceURI ::+        Node -> Nullable JSString -> IO (Nullable JSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.lookupNamespaceURI Mozilla Node.lookupNamespaceURI documentation> +lookupNamespaceURI ::+                   (MonadIO m, IsNode self, ToJSString prefix, FromJSString result) =>+                     self -> Maybe prefix -> m (Maybe result)+lookupNamespaceURI self prefix+  = liftIO+      (fromMaybeJSString <$>+         (js_lookupNamespaceURI (toNode self) (toMaybeJSString prefix)))+ +foreign import javascript unsafe+        "$1[\"compareDocumentPosition\"]($2)" js_compareDocumentPosition ::+        Node -> Nullable Node -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.compareDocumentPosition Mozilla Node.compareDocumentPosition documentation> +compareDocumentPosition ::+                        (MonadIO m, IsNode self, IsNode other) =>+                          self -> Maybe other -> m Word+compareDocumentPosition self other+  = liftIO+      (js_compareDocumentPosition (toNode self)+         (maybeToNullable (fmap toNode other)))+ +foreign import javascript unsafe "($1[\"contains\"]($2) ? 1 : 0)"+        js_contains :: Node -> Nullable Node -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.contains Mozilla Node.contains documentation> +contains ::+         (MonadIO m, IsNode self, IsNode other) =>+           self -> Maybe other -> m Bool+contains self other+  = liftIO+      (js_contains (toNode self) (maybeToNullable (fmap toNode other)))+pattern ELEMENT_NODE = 1+pattern ATTRIBUTE_NODE = 2+pattern TEXT_NODE = 3+pattern CDATA_SECTION_NODE = 4+pattern ENTITY_REFERENCE_NODE = 5+pattern ENTITY_NODE = 6+pattern PROCESSING_INSTRUCTION_NODE = 7+pattern COMMENT_NODE = 8+pattern DOCUMENT_NODE = 9+pattern DOCUMENT_TYPE_NODE = 10+pattern DOCUMENT_FRAGMENT_NODE = 11+pattern NOTATION_NODE = 12+pattern DOCUMENT_POSITION_DISCONNECTED = 1+pattern DOCUMENT_POSITION_PRECEDING = 2+pattern DOCUMENT_POSITION_FOLLOWING = 4+pattern DOCUMENT_POSITION_CONTAINS = 8+pattern DOCUMENT_POSITION_CONTAINED_BY = 16+pattern DOCUMENT_POSITION_IMPLEMENTATION_SPECIFIC = 32+ +foreign import javascript unsafe "$1[\"nodeName\"]" js_getNodeName+        :: Node -> IO (Nullable JSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.nodeName Mozilla Node.nodeName documentation> +getNodeName ::+            (MonadIO m, IsNode self, FromJSString result) =>+              self -> m (Maybe result)+getNodeName self+  = liftIO (fromMaybeJSString <$> (js_getNodeName (toNode self)))+ +foreign import javascript unsafe "$1[\"nodeValue\"] = $2;"+        js_setNodeValue :: Node -> Nullable JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.nodeValue Mozilla Node.nodeValue documentation> +setNodeValue ::+             (MonadIO m, IsNode self, ToJSString val) =>+               self -> Maybe val -> m ()+setNodeValue self val+  = liftIO (js_setNodeValue (toNode self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"nodeValue\"]"+        js_getNodeValue :: Node -> IO (Nullable JSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.nodeValue Mozilla Node.nodeValue documentation> +getNodeValue ::+             (MonadIO m, IsNode self, FromJSString result) =>+               self -> m (Maybe result)+getNodeValue self+  = liftIO (fromMaybeJSString <$> (js_getNodeValue (toNode self)))+ +foreign import javascript unsafe "$1[\"nodeType\"]" js_getNodeType+        :: Node -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.nodeType Mozilla Node.nodeType documentation> +getNodeType :: (MonadIO m, IsNode self) => self -> m Word+getNodeType self = liftIO (js_getNodeType (toNode self))+ +foreign import javascript unsafe "$1[\"parentNode\"]"+        js_getParentNode :: Node -> IO (Nullable Node)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.parentNode Mozilla Node.parentNode documentation> +getParentNode :: (MonadIO m, IsNode self) => self -> m (Maybe Node)+getParentNode self+  = liftIO (nullableToMaybe <$> (js_getParentNode (toNode self)))+ +foreign import javascript unsafe "$1[\"childNodes\"]"+        js_getChildNodes :: Node -> IO (Nullable NodeList)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.childNodes Mozilla Node.childNodes documentation> +getChildNodes ::+              (MonadIO m, IsNode self) => self -> m (Maybe NodeList)+getChildNodes self+  = liftIO (nullableToMaybe <$> (js_getChildNodes (toNode self)))+ +foreign import javascript unsafe "$1[\"firstChild\"]"+        js_getFirstChild :: Node -> IO (Nullable Node)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.firstChild Mozilla Node.firstChild documentation> +getFirstChild :: (MonadIO m, IsNode self) => self -> m (Maybe Node)+getFirstChild self+  = liftIO (nullableToMaybe <$> (js_getFirstChild (toNode self)))+ +foreign import javascript unsafe "$1[\"lastChild\"]"+        js_getLastChild :: Node -> IO (Nullable Node)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.lastChild Mozilla Node.lastChild documentation> +getLastChild :: (MonadIO m, IsNode self) => self -> m (Maybe Node)+getLastChild self+  = liftIO (nullableToMaybe <$> (js_getLastChild (toNode self)))+ +foreign import javascript unsafe "$1[\"previousSibling\"]"+        js_getPreviousSibling :: Node -> IO (Nullable Node)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.previousSibling Mozilla Node.previousSibling documentation> +getPreviousSibling ::+                   (MonadIO m, IsNode self) => self -> m (Maybe Node)+getPreviousSibling self+  = liftIO+      (nullableToMaybe <$> (js_getPreviousSibling (toNode self)))+ +foreign import javascript unsafe "$1[\"nextSibling\"]"+        js_getNextSibling :: Node -> IO (Nullable Node)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.nextSibling Mozilla Node.nextSibling documentation> +getNextSibling ::+               (MonadIO m, IsNode self) => self -> m (Maybe Node)+getNextSibling self+  = liftIO (nullableToMaybe <$> (js_getNextSibling (toNode self)))+ +foreign import javascript unsafe "$1[\"ownerDocument\"]"+        js_getOwnerDocument :: Node -> IO (Nullable Document)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.ownerDocument Mozilla Node.ownerDocument documentation> +getOwnerDocument ::+                 (MonadIO m, IsNode self) => self -> m (Maybe Document)+getOwnerDocument self+  = liftIO (nullableToMaybe <$> (js_getOwnerDocument (toNode self)))+ +foreign import javascript unsafe "$1[\"namespaceURI\"]"+        js_getNamespaceURI :: Node -> IO (Nullable JSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.namespaceURI Mozilla Node.namespaceURI documentation> +getNamespaceURI ::+                (MonadIO m, IsNode self, FromJSString result) =>+                  self -> m (Maybe result)+getNamespaceURI self+  = liftIO (fromMaybeJSString <$> (js_getNamespaceURI (toNode self)))+ +foreign import javascript unsafe "$1[\"prefix\"] = $2;"+        js_setPrefix :: Node -> Nullable JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.prefix Mozilla Node.prefix documentation> +setPrefix ::+          (MonadIO m, IsNode self, ToJSString val) =>+            self -> Maybe val -> m ()+setPrefix self val+  = liftIO (js_setPrefix (toNode self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"prefix\"]" js_getPrefix ::+        Node -> IO (Nullable JSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.prefix Mozilla Node.prefix documentation> +getPrefix ::+          (MonadIO m, IsNode self, FromJSString result) =>+            self -> m (Maybe result)+getPrefix self+  = liftIO (fromMaybeJSString <$> (js_getPrefix (toNode self)))+ +foreign import javascript unsafe "$1[\"localName\"]"+        js_getLocalName :: Node -> IO (Nullable JSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.localName Mozilla Node.localName documentation> +getLocalName ::+             (MonadIO m, IsNode self, FromJSString result) =>+               self -> m (Maybe result)+getLocalName self+  = liftIO (fromMaybeJSString <$> (js_getLocalName (toNode self)))+ +foreign import javascript unsafe "$1[\"baseURI\"]" js_getBaseURI ::+        Node -> IO (Nullable JSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.baseURI Mozilla Node.baseURI documentation> +getBaseURI ::+           (MonadIO m, IsNode self, FromJSString result) =>+             self -> m (Maybe result)+getBaseURI self+  = liftIO (fromMaybeJSString <$> (js_getBaseURI (toNode self)))+ +foreign import javascript unsafe "$1[\"textContent\"] = $2;"+        js_setTextContent :: Node -> Nullable JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.textContent Mozilla Node.textContent documentation> +setTextContent ::+               (MonadIO m, IsNode self, ToJSString val) =>+                 self -> Maybe val -> m ()+setTextContent self val+  = liftIO (js_setTextContent (toNode self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"textContent\"]"+        js_getTextContent :: Node -> IO (Nullable JSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.textContent Mozilla Node.textContent documentation> +getTextContent ::+               (MonadIO m, IsNode self, FromJSString result) =>+                 self -> m (Maybe result)+getTextContent self+  = liftIO (fromMaybeJSString <$> (js_getTextContent (toNode self)))+ +foreign import javascript unsafe "$1[\"parentElement\"]"+        js_getParentElement :: Node -> IO (Nullable Element)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.parentElement Mozilla Node.parentElement documentation> +getParentElement ::+                 (MonadIO m, IsNode self) => self -> m (Maybe Element)+getParentElement self+  = liftIO (nullableToMaybe <$> (js_getParentElement (toNode self)))
+ src/GHCJS/DOM/JSFFI/Generated/NodeFilter.hs view
@@ -0,0 +1,51 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.NodeFilter+       (js_acceptNode, acceptNode, pattern FILTER_ACCEPT,+        pattern FILTER_REJECT, pattern FILTER_SKIP, pattern SHOW_ALL,+        pattern SHOW_ELEMENT, pattern SHOW_ATTRIBUTE, pattern SHOW_TEXT,+        pattern SHOW_CDATA_SECTION, pattern SHOW_ENTITY_REFERENCE,+        pattern SHOW_ENTITY, pattern SHOW_PROCESSING_INSTRUCTION,+        pattern SHOW_COMMENT, pattern SHOW_DOCUMENT,+        pattern SHOW_DOCUMENT_TYPE, pattern SHOW_DOCUMENT_FRAGMENT,+        pattern SHOW_NOTATION, NodeFilter, castToNodeFilter,+        gTypeNodeFilter)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"acceptNode\"]($2)"+        js_acceptNode :: NodeFilter -> Nullable Node -> IO Int++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NodeFilter.acceptNode Mozilla NodeFilter.acceptNode documentation> +acceptNode ::+           (MonadIO m, IsNode n) => NodeFilter -> Maybe n -> m Int+acceptNode self n+  = liftIO (js_acceptNode (self) (maybeToNullable (fmap toNode n)))+pattern FILTER_ACCEPT = 1+pattern FILTER_REJECT = 2+pattern FILTER_SKIP = 3+pattern SHOW_ALL = 4294967295+pattern SHOW_ELEMENT = 1+pattern SHOW_ATTRIBUTE = 2+pattern SHOW_TEXT = 4+pattern SHOW_CDATA_SECTION = 8+pattern SHOW_ENTITY_REFERENCE = 16+pattern SHOW_ENTITY = 32+pattern SHOW_PROCESSING_INSTRUCTION = 64+pattern SHOW_COMMENT = 128+pattern SHOW_DOCUMENT = 256+pattern SHOW_DOCUMENT_TYPE = 512+pattern SHOW_DOCUMENT_FRAGMENT = 1024+pattern SHOW_NOTATION = 2048
+ src/GHCJS/DOM/JSFFI/Generated/NodeIterator.hs view
@@ -0,0 +1,93 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.NodeIterator+       (js_nextNode, nextNode, js_previousNode, previousNode, js_detach,+        detach, js_getRoot, getRoot, js_getWhatToShow, getWhatToShow,+        js_getFilter, getFilter, js_getExpandEntityReferences,+        getExpandEntityReferences, js_getReferenceNode, getReferenceNode,+        js_getPointerBeforeReferenceNode, getPointerBeforeReferenceNode,+        NodeIterator, castToNodeIterator, gTypeNodeIterator)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"nextNode\"]()" js_nextNode+        :: NodeIterator -> IO (Nullable Node)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NodeIterator.nextNode Mozilla NodeIterator.nextNode documentation> +nextNode :: (MonadIO m) => NodeIterator -> m (Maybe Node)+nextNode self = liftIO (nullableToMaybe <$> (js_nextNode (self)))+ +foreign import javascript unsafe "$1[\"previousNode\"]()"+        js_previousNode :: NodeIterator -> IO (Nullable Node)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NodeIterator.previousNode Mozilla NodeIterator.previousNode documentation> +previousNode :: (MonadIO m) => NodeIterator -> m (Maybe Node)+previousNode self+  = liftIO (nullableToMaybe <$> (js_previousNode (self)))+ +foreign import javascript unsafe "$1[\"detach\"]()" js_detach ::+        NodeIterator -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NodeIterator.detach Mozilla NodeIterator.detach documentation> +detach :: (MonadIO m) => NodeIterator -> m ()+detach self = liftIO (js_detach (self))+ +foreign import javascript unsafe "$1[\"root\"]" js_getRoot ::+        NodeIterator -> IO (Nullable Node)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NodeIterator.root Mozilla NodeIterator.root documentation> +getRoot :: (MonadIO m) => NodeIterator -> m (Maybe Node)+getRoot self = liftIO (nullableToMaybe <$> (js_getRoot (self)))+ +foreign import javascript unsafe "$1[\"whatToShow\"]"+        js_getWhatToShow :: NodeIterator -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NodeIterator.whatToShow Mozilla NodeIterator.whatToShow documentation> +getWhatToShow :: (MonadIO m) => NodeIterator -> m Word+getWhatToShow self = liftIO (js_getWhatToShow (self))+ +foreign import javascript unsafe "$1[\"filter\"]" js_getFilter ::+        NodeIterator -> IO (Nullable NodeFilter)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NodeIterator.filter Mozilla NodeIterator.filter documentation> +getFilter :: (MonadIO m) => NodeIterator -> m (Maybe NodeFilter)+getFilter self = liftIO (nullableToMaybe <$> (js_getFilter (self)))+ +foreign import javascript unsafe+        "($1[\"expandEntityReferences\"] ? 1 : 0)"+        js_getExpandEntityReferences :: NodeIterator -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NodeIterator.expandEntityReferences Mozilla NodeIterator.expandEntityReferences documentation> +getExpandEntityReferences :: (MonadIO m) => NodeIterator -> m Bool+getExpandEntityReferences self+  = liftIO (js_getExpandEntityReferences (self))+ +foreign import javascript unsafe "$1[\"referenceNode\"]"+        js_getReferenceNode :: NodeIterator -> IO (Nullable Node)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NodeIterator.referenceNode Mozilla NodeIterator.referenceNode documentation> +getReferenceNode :: (MonadIO m) => NodeIterator -> m (Maybe Node)+getReferenceNode self+  = liftIO (nullableToMaybe <$> (js_getReferenceNode (self)))+ +foreign import javascript unsafe+        "($1[\"pointerBeforeReferenceNode\"] ? 1 : 0)"+        js_getPointerBeforeReferenceNode :: NodeIterator -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NodeIterator.pointerBeforeReferenceNode Mozilla NodeIterator.pointerBeforeReferenceNode documentation> +getPointerBeforeReferenceNode ::+                              (MonadIO m) => NodeIterator -> m Bool+getPointerBeforeReferenceNode self+  = liftIO (js_getPointerBeforeReferenceNode (self))
+ src/GHCJS/DOM/JSFFI/Generated/NodeList.hs view
@@ -0,0 +1,35 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.NodeList+       (js_item, item, js_getLength, getLength, NodeList, castToNodeList,+        gTypeNodeList, IsNodeList, toNodeList)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"item\"]($2)" js_item ::+        NodeList -> Word -> IO (Nullable Node)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NodeList.item Mozilla NodeList.item documentation> +item ::+     (MonadIO m, IsNodeList self) => self -> Word -> m (Maybe Node)+item self index+  = liftIO (nullableToMaybe <$> (js_item (toNodeList self) index))+ +foreign import javascript unsafe "$1[\"length\"]" js_getLength ::+        NodeList -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NodeList.length Mozilla NodeList.length documentation> +getLength :: (MonadIO m, IsNodeList self) => self -> m Word+getLength self = liftIO (js_getLength (toNodeList self))
+ src/GHCJS/DOM/JSFFI/Generated/Notification.hs view
@@ -0,0 +1,42 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.Notification+       (js_show, show, showEvent, error, close, click, Notification,+        castToNotification, gTypeNotification)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"show\"]()" js_show ::+        Notification -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Notification.show Mozilla Notification.show documentation> +show :: (MonadIO m) => Notification -> m ()+show self = liftIO (js_show (self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Notification.onshow Mozilla Notification.onshow documentation> +showEvent :: EventName Notification MouseEvent+showEvent = unsafeEventName (toJSString "show")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Notification.onerror Mozilla Notification.onerror documentation> +error :: EventName Notification UIEvent+error = unsafeEventName (toJSString "error")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Notification.onclose Mozilla Notification.onclose documentation> +close :: EventName Notification CloseEvent+close = unsafeEventName (toJSString "close")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Notification.onclick Mozilla Notification.onclick documentation> +click :: EventName Notification MouseEvent+click = unsafeEventName (toJSString "click")
+ src/GHCJS/DOM/JSFFI/Generated/NotificationCenter.hs view
@@ -0,0 +1,56 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.NotificationCenter+       (js_createNotification, createNotification, js_checkPermission,+        checkPermission, js_requestPermission, requestPermission,+        NotificationCenter, castToNotificationCenter,+        gTypeNotificationCenter)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe+        "$1[\"createNotification\"]($2, $3,\n$4)" js_createNotification ::+        NotificationCenter ->+          JSString -> JSString -> JSString -> IO (Nullable Notification)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NotificationCenter.createNotification Mozilla NotificationCenter.createNotification documentation> +createNotification ::+                   (MonadIO m, ToJSString iconUrl, ToJSString title,+                    ToJSString body) =>+                     NotificationCenter ->+                       iconUrl -> title -> body -> m (Maybe Notification)+createNotification self iconUrl title body+  = liftIO+      (nullableToMaybe <$>+         (js_createNotification (self) (toJSString iconUrl)+            (toJSString title)+            (toJSString body)))+ +foreign import javascript unsafe "$1[\"checkPermission\"]()"+        js_checkPermission :: NotificationCenter -> IO Int++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NotificationCenter.checkPermission Mozilla NotificationCenter.checkPermission documentation> +checkPermission :: (MonadIO m) => NotificationCenter -> m Int+checkPermission self = liftIO (js_checkPermission (self))+ +foreign import javascript unsafe "$1[\"requestPermission\"]($2)"+        js_requestPermission ::+        NotificationCenter -> Nullable VoidCallback -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NotificationCenter.requestPermission Mozilla NotificationCenter.requestPermission documentation> +requestPermission ::+                  (MonadIO m) => NotificationCenter -> Maybe VoidCallback -> m ()+requestPermission self callback+  = liftIO (js_requestPermission (self) (maybeToNullable callback))
+ src/GHCJS/DOM/JSFFI/Generated/NotificationPermissionCallback.hs view
@@ -0,0 +1,60 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.NotificationPermissionCallback+       (newNotificationPermissionCallback,+        newNotificationPermissionCallbackSync,+        newNotificationPermissionCallbackAsync,+        NotificationPermissionCallback)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NotificationPermissionCallback Mozilla NotificationPermissionCallback documentation> +newNotificationPermissionCallback ::+                                  (MonadIO m, FromJSString permission) =>+                                    (permission -> IO ()) ->+                                      m (NotificationPermissionCallback permission)+newNotificationPermissionCallback callback+  = liftIO+      (NotificationPermissionCallback <$>+         syncCallback1 ThrowWouldBlock+           (\ permission ->+              fromJSValUnchecked permission >>=+                \ permission' -> callback permission'))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NotificationPermissionCallback Mozilla NotificationPermissionCallback documentation> +newNotificationPermissionCallbackSync ::+                                      (MonadIO m, FromJSString permission) =>+                                        (permission -> IO ()) ->+                                          m (NotificationPermissionCallback permission)+newNotificationPermissionCallbackSync callback+  = liftIO+      (NotificationPermissionCallback <$>+         syncCallback1 ContinueAsync+           (\ permission ->+              fromJSValUnchecked permission >>=+                \ permission' -> callback permission'))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NotificationPermissionCallback Mozilla NotificationPermissionCallback documentation> +newNotificationPermissionCallbackAsync ::+                                       (MonadIO m, FromJSString permission) =>+                                         (permission -> IO ()) ->+                                           m (NotificationPermissionCallback permission)+newNotificationPermissionCallbackAsync callback+  = liftIO+      (NotificationPermissionCallback <$>+         asyncCallback1+           (\ permission ->+              fromJSValUnchecked permission >>=+                \ permission' -> callback permission'))
+ src/GHCJS/DOM/JSFFI/Generated/OESStandardDerivatives.hs view
@@ -0,0 +1,21 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.OESStandardDerivatives+       (pattern FRAGMENT_SHADER_DERIVATIVE_HINT_OES,+        OESStandardDerivatives, castToOESStandardDerivatives,+        gTypeOESStandardDerivatives)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+pattern FRAGMENT_SHADER_DERIVATIVE_HINT_OES = 35723
+ src/GHCJS/DOM/JSFFI/Generated/OESTextureHalfFloat.hs view
@@ -0,0 +1,20 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.OESTextureHalfFloat+       (pattern HALF_FLOAT_OES, OESTextureHalfFloat,+        castToOESTextureHalfFloat, gTypeOESTextureHalfFloat)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+pattern HALF_FLOAT_OES = 36193
+ src/GHCJS/DOM/JSFFI/Generated/OESVertexArrayObject.hs view
@@ -0,0 +1,70 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.OESVertexArrayObject+       (js_createVertexArrayOES, createVertexArrayOES,+        js_deleteVertexArrayOES, deleteVertexArrayOES, js_isVertexArrayOES,+        isVertexArrayOES, js_bindVertexArrayOES, bindVertexArrayOES,+        pattern VERTEX_ARRAY_BINDING_OES, OESVertexArrayObject,+        castToOESVertexArrayObject, gTypeOESVertexArrayObject)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"createVertexArrayOES\"]()"+        js_createVertexArrayOES ::+        OESVertexArrayObject -> IO (Nullable WebGLVertexArrayObjectOES)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/OESVertexArrayObject.createVertexArrayOES Mozilla OESVertexArrayObject.createVertexArrayOES documentation> +createVertexArrayOES ::+                     (MonadIO m) =>+                       OESVertexArrayObject -> m (Maybe WebGLVertexArrayObjectOES)+createVertexArrayOES self+  = liftIO (nullableToMaybe <$> (js_createVertexArrayOES (self)))+ +foreign import javascript unsafe "$1[\"deleteVertexArrayOES\"]($2)"+        js_deleteVertexArrayOES ::+        OESVertexArrayObject -> Nullable WebGLVertexArrayObjectOES -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/OESVertexArrayObject.deleteVertexArrayOES Mozilla OESVertexArrayObject.deleteVertexArrayOES documentation> +deleteVertexArrayOES ::+                     (MonadIO m) =>+                       OESVertexArrayObject -> Maybe WebGLVertexArrayObjectOES -> m ()+deleteVertexArrayOES self arrayObject+  = liftIO+      (js_deleteVertexArrayOES (self) (maybeToNullable arrayObject))+ +foreign import javascript unsafe+        "($1[\"isVertexArrayOES\"]($2) ? 1 : 0)" js_isVertexArrayOES ::+        OESVertexArrayObject ->+          Nullable WebGLVertexArrayObjectOES -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/OESVertexArrayObject.isVertexArrayOES Mozilla OESVertexArrayObject.isVertexArrayOES documentation> +isVertexArrayOES ::+                 (MonadIO m) =>+                   OESVertexArrayObject -> Maybe WebGLVertexArrayObjectOES -> m Bool+isVertexArrayOES self arrayObject+  = liftIO (js_isVertexArrayOES (self) (maybeToNullable arrayObject))+ +foreign import javascript unsafe "$1[\"bindVertexArrayOES\"]($2)"+        js_bindVertexArrayOES ::+        OESVertexArrayObject -> Nullable WebGLVertexArrayObjectOES -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/OESVertexArrayObject.bindVertexArrayOES Mozilla OESVertexArrayObject.bindVertexArrayOES documentation> +bindVertexArrayOES ::+                   (MonadIO m) =>+                     OESVertexArrayObject -> Maybe WebGLVertexArrayObjectOES -> m ()+bindVertexArrayOES self arrayObject+  = liftIO+      (js_bindVertexArrayOES (self) (maybeToNullable arrayObject))+pattern VERTEX_ARRAY_BINDING_OES = 34229
+ src/GHCJS/DOM/JSFFI/Generated/OfflineAudioCompletionEvent.hs view
@@ -0,0 +1,30 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.OfflineAudioCompletionEvent+       (js_getRenderedBuffer, getRenderedBuffer,+        OfflineAudioCompletionEvent, castToOfflineAudioCompletionEvent,+        gTypeOfflineAudioCompletionEvent)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"renderedBuffer\"]"+        js_getRenderedBuffer ::+        OfflineAudioCompletionEvent -> IO (Nullable AudioBuffer)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/OfflineAudioCompletionEvent.renderedBuffer Mozilla OfflineAudioCompletionEvent.renderedBuffer documentation> +getRenderedBuffer ::+                  (MonadIO m) => OfflineAudioCompletionEvent -> m (Maybe AudioBuffer)+getRenderedBuffer self+  = liftIO (nullableToMaybe <$> (js_getRenderedBuffer (self)))
+ src/GHCJS/DOM/JSFFI/Generated/OfflineAudioContext.hs view
@@ -0,0 +1,33 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.OfflineAudioContext+       (js_newOfflineAudioContext, newOfflineAudioContext,+        OfflineAudioContext, castToOfflineAudioContext,+        gTypeOfflineAudioContext)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe+        "new window[\"OfflineAudioContext\"]($1,\n$2, $3)"+        js_newOfflineAudioContext ::+        Word -> Word -> Float -> IO OfflineAudioContext++-- | <https://developer.mozilla.org/en-US/docs/Web/API/OfflineAudioContext Mozilla OfflineAudioContext documentation> +newOfflineAudioContext ::+                       (MonadIO m) => Word -> Word -> Float -> m OfflineAudioContext+newOfflineAudioContext numberOfChannels numberOfFrames sampleRate+  = liftIO+      (js_newOfflineAudioContext numberOfChannels numberOfFrames+         sampleRate)
+ src/GHCJS/DOM/JSFFI/Generated/OscillatorNode.hs view
@@ -0,0 +1,115 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.OscillatorNode+       (js_start, start, js_stop, stop, js_noteOn, noteOn, js_noteOff,+        noteOff, js_setPeriodicWave, setPeriodicWave, pattern SINE,+        pattern SQUARE, pattern SAWTOOTH, pattern TRIANGLE, pattern CUSTOM,+        pattern UNSCHEDULED_STATE, pattern SCHEDULED_STATE,+        pattern PLAYING_STATE, pattern FINISHED_STATE, js_setType, setType,+        js_getType, getType, js_getPlaybackState, getPlaybackState,+        js_getFrequency, getFrequency, js_getDetune, getDetune, ended,+        OscillatorNode, castToOscillatorNode, gTypeOscillatorNode)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"start\"]($2)" js_start ::+        OscillatorNode -> Double -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/OscillatorNode.start Mozilla OscillatorNode.start documentation> +start :: (MonadIO m) => OscillatorNode -> Double -> m ()+start self when = liftIO (js_start (self) when)+ +foreign import javascript unsafe "$1[\"stop\"]($2)" js_stop ::+        OscillatorNode -> Double -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/OscillatorNode.stop Mozilla OscillatorNode.stop documentation> +stop :: (MonadIO m) => OscillatorNode -> Double -> m ()+stop self when = liftIO (js_stop (self) when)+ +foreign import javascript unsafe "$1[\"noteOn\"]($2)" js_noteOn ::+        OscillatorNode -> Double -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/OscillatorNode.noteOn Mozilla OscillatorNode.noteOn documentation> +noteOn :: (MonadIO m) => OscillatorNode -> Double -> m ()+noteOn self when = liftIO (js_noteOn (self) when)+ +foreign import javascript unsafe "$1[\"noteOff\"]($2)" js_noteOff+        :: OscillatorNode -> Double -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/OscillatorNode.noteOff Mozilla OscillatorNode.noteOff documentation> +noteOff :: (MonadIO m) => OscillatorNode -> Double -> m ()+noteOff self when = liftIO (js_noteOff (self) when)+ +foreign import javascript unsafe "$1[\"setPeriodicWave\"]($2)"+        js_setPeriodicWave ::+        OscillatorNode -> Nullable PeriodicWave -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/OscillatorNode.setPeriodicWave Mozilla OscillatorNode.setPeriodicWave documentation> +setPeriodicWave ::+                (MonadIO m) => OscillatorNode -> Maybe PeriodicWave -> m ()+setPeriodicWave self wave+  = liftIO (js_setPeriodicWave (self) (maybeToNullable wave))+pattern SINE = 0+pattern SQUARE = 1+pattern SAWTOOTH = 2+pattern TRIANGLE = 3+pattern CUSTOM = 4+pattern UNSCHEDULED_STATE = 0+pattern SCHEDULED_STATE = 1+pattern PLAYING_STATE = 2+pattern FINISHED_STATE = 3+ +foreign import javascript unsafe "$1[\"type\"] = $2;" js_setType ::+        OscillatorNode -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/OscillatorNode.type Mozilla OscillatorNode.type documentation> +setType ::+        (MonadIO m, ToJSString val) => OscillatorNode -> val -> m ()+setType self val = liftIO (js_setType (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"type\"]" js_getType ::+        OscillatorNode -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/OscillatorNode.type Mozilla OscillatorNode.type documentation> +getType ::+        (MonadIO m, FromJSString result) => OscillatorNode -> m result+getType self = liftIO (fromJSString <$> (js_getType (self)))+ +foreign import javascript unsafe "$1[\"playbackState\"]"+        js_getPlaybackState :: OscillatorNode -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/OscillatorNode.playbackState Mozilla OscillatorNode.playbackState documentation> +getPlaybackState :: (MonadIO m) => OscillatorNode -> m Word+getPlaybackState self = liftIO (js_getPlaybackState (self))+ +foreign import javascript unsafe "$1[\"frequency\"]"+        js_getFrequency :: OscillatorNode -> IO (Nullable AudioParam)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/OscillatorNode.frequency Mozilla OscillatorNode.frequency documentation> +getFrequency ::+             (MonadIO m) => OscillatorNode -> m (Maybe AudioParam)+getFrequency self+  = liftIO (nullableToMaybe <$> (js_getFrequency (self)))+ +foreign import javascript unsafe "$1[\"detune\"]" js_getDetune ::+        OscillatorNode -> IO (Nullable AudioParam)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/OscillatorNode.detune Mozilla OscillatorNode.detune documentation> +getDetune :: (MonadIO m) => OscillatorNode -> m (Maybe AudioParam)+getDetune self = liftIO (nullableToMaybe <$> (js_getDetune (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/OscillatorNode.onended Mozilla OscillatorNode.onended documentation> +ended :: EventName OscillatorNode Event+ended = unsafeEventName (toJSString "ended")
+ src/GHCJS/DOM/JSFFI/Generated/OverflowEvent.hs view
@@ -0,0 +1,48 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.OverflowEvent+       (pattern HORIZONTAL, pattern VERTICAL, pattern BOTH, js_getOrient,+        getOrient, js_getHorizontalOverflow, getHorizontalOverflow,+        js_getVerticalOverflow, getVerticalOverflow, OverflowEvent,+        castToOverflowEvent, gTypeOverflowEvent)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+pattern HORIZONTAL = 0+pattern VERTICAL = 1+pattern BOTH = 2+ +foreign import javascript unsafe "$1[\"orient\"]" js_getOrient ::+        OverflowEvent -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/OverflowEvent.orient Mozilla OverflowEvent.orient documentation> +getOrient :: (MonadIO m) => OverflowEvent -> m Word+getOrient self = liftIO (js_getOrient (self))+ +foreign import javascript unsafe+        "($1[\"horizontalOverflow\"] ? 1 : 0)" js_getHorizontalOverflow ::+        OverflowEvent -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/OverflowEvent.horizontalOverflow Mozilla OverflowEvent.horizontalOverflow documentation> +getHorizontalOverflow :: (MonadIO m) => OverflowEvent -> m Bool+getHorizontalOverflow self+  = liftIO (js_getHorizontalOverflow (self))+ +foreign import javascript unsafe+        "($1[\"verticalOverflow\"] ? 1 : 0)" js_getVerticalOverflow ::+        OverflowEvent -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/OverflowEvent.verticalOverflow Mozilla OverflowEvent.verticalOverflow documentation> +getVerticalOverflow :: (MonadIO m) => OverflowEvent -> m Bool+getVerticalOverflow self = liftIO (js_getVerticalOverflow (self))
+ src/GHCJS/DOM/JSFFI/Generated/PageTransitionEvent.hs view
@@ -0,0 +1,26 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.PageTransitionEvent+       (js_getPersisted, getPersisted, PageTransitionEvent,+        castToPageTransitionEvent, gTypePageTransitionEvent)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "($1[\"persisted\"] ? 1 : 0)"+        js_getPersisted :: PageTransitionEvent -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PageTransitionEvent.persisted Mozilla PageTransitionEvent.persisted documentation> +getPersisted :: (MonadIO m) => PageTransitionEvent -> m Bool+getPersisted self = liftIO (js_getPersisted (self))
+ src/GHCJS/DOM/JSFFI/Generated/PannerNode.hs view
@@ -0,0 +1,186 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.PannerNode+       (js_setPosition, setPosition, js_setOrientation, setOrientation,+        js_setVelocity, setVelocity, pattern EQUALPOWER, pattern HRTF,+        pattern SOUNDFIELD, pattern LINEAR_DISTANCE,+        pattern INVERSE_DISTANCE, pattern EXPONENTIAL_DISTANCE,+        js_setPanningModel, setPanningModel, js_getPanningModel,+        getPanningModel, js_setDistanceModel, setDistanceModel,+        js_getDistanceModel, getDistanceModel, js_setRefDistance,+        setRefDistance, js_getRefDistance, getRefDistance,+        js_setMaxDistance, setMaxDistance, js_getMaxDistance,+        getMaxDistance, js_setRolloffFactor, setRolloffFactor,+        js_getRolloffFactor, getRolloffFactor, js_setConeInnerAngle,+        setConeInnerAngle, js_getConeInnerAngle, getConeInnerAngle,+        js_setConeOuterAngle, setConeOuterAngle, js_getConeOuterAngle,+        getConeOuterAngle, js_setConeOuterGain, setConeOuterGain,+        js_getConeOuterGain, getConeOuterGain, PannerNode,+        castToPannerNode, gTypePannerNode)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"setPosition\"]($2, $3, $4)"+        js_setPosition :: PannerNode -> Float -> Float -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitAudioPannerNode.setPosition Mozilla webkitAudioPannerNode.setPosition documentation> +setPosition ::+            (MonadIO m) => PannerNode -> Float -> Float -> Float -> m ()+setPosition self x y z = liftIO (js_setPosition (self) x y z)+ +foreign import javascript unsafe+        "$1[\"setOrientation\"]($2, $3, $4)" js_setOrientation ::+        PannerNode -> Float -> Float -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitAudioPannerNode.setOrientation Mozilla webkitAudioPannerNode.setOrientation documentation> +setOrientation ::+               (MonadIO m) => PannerNode -> Float -> Float -> Float -> m ()+setOrientation self x y z = liftIO (js_setOrientation (self) x y z)+ +foreign import javascript unsafe "$1[\"setVelocity\"]($2, $3, $4)"+        js_setVelocity :: PannerNode -> Float -> Float -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitAudioPannerNode.setVelocity Mozilla webkitAudioPannerNode.setVelocity documentation> +setVelocity ::+            (MonadIO m) => PannerNode -> Float -> Float -> Float -> m ()+setVelocity self x y z = liftIO (js_setVelocity (self) x y z)+pattern EQUALPOWER = 0+pattern HRTF = 1+pattern SOUNDFIELD = 2+pattern LINEAR_DISTANCE = 0+pattern INVERSE_DISTANCE = 1+pattern EXPONENTIAL_DISTANCE = 2+ +foreign import javascript unsafe "$1[\"panningModel\"] = $2;"+        js_setPanningModel :: PannerNode -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitAudioPannerNode.panningModel Mozilla webkitAudioPannerNode.panningModel documentation> +setPanningModel ::+                (MonadIO m, ToJSString val) => PannerNode -> val -> m ()+setPanningModel self val+  = liftIO (js_setPanningModel (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"panningModel\"]"+        js_getPanningModel :: PannerNode -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitAudioPannerNode.panningModel Mozilla webkitAudioPannerNode.panningModel documentation> +getPanningModel ::+                (MonadIO m, FromJSString result) => PannerNode -> m result+getPanningModel self+  = liftIO (fromJSString <$> (js_getPanningModel (self)))+ +foreign import javascript unsafe "$1[\"distanceModel\"] = $2;"+        js_setDistanceModel :: PannerNode -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitAudioPannerNode.distanceModel Mozilla webkitAudioPannerNode.distanceModel documentation> +setDistanceModel ::+                 (MonadIO m, ToJSString val) => PannerNode -> val -> m ()+setDistanceModel self val+  = liftIO (js_setDistanceModel (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"distanceModel\"]"+        js_getDistanceModel :: PannerNode -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitAudioPannerNode.distanceModel Mozilla webkitAudioPannerNode.distanceModel documentation> +getDistanceModel ::+                 (MonadIO m, FromJSString result) => PannerNode -> m result+getDistanceModel self+  = liftIO (fromJSString <$> (js_getDistanceModel (self)))+ +foreign import javascript unsafe "$1[\"refDistance\"] = $2;"+        js_setRefDistance :: PannerNode -> Double -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitAudioPannerNode.refDistance Mozilla webkitAudioPannerNode.refDistance documentation> +setRefDistance :: (MonadIO m) => PannerNode -> Double -> m ()+setRefDistance self val = liftIO (js_setRefDistance (self) val)+ +foreign import javascript unsafe "$1[\"refDistance\"]"+        js_getRefDistance :: PannerNode -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitAudioPannerNode.refDistance Mozilla webkitAudioPannerNode.refDistance documentation> +getRefDistance :: (MonadIO m) => PannerNode -> m Double+getRefDistance self = liftIO (js_getRefDistance (self))+ +foreign import javascript unsafe "$1[\"maxDistance\"] = $2;"+        js_setMaxDistance :: PannerNode -> Double -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitAudioPannerNode.maxDistance Mozilla webkitAudioPannerNode.maxDistance documentation> +setMaxDistance :: (MonadIO m) => PannerNode -> Double -> m ()+setMaxDistance self val = liftIO (js_setMaxDistance (self) val)+ +foreign import javascript unsafe "$1[\"maxDistance\"]"+        js_getMaxDistance :: PannerNode -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitAudioPannerNode.maxDistance Mozilla webkitAudioPannerNode.maxDistance documentation> +getMaxDistance :: (MonadIO m) => PannerNode -> m Double+getMaxDistance self = liftIO (js_getMaxDistance (self))+ +foreign import javascript unsafe "$1[\"rolloffFactor\"] = $2;"+        js_setRolloffFactor :: PannerNode -> Double -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitAudioPannerNode.rolloffFactor Mozilla webkitAudioPannerNode.rolloffFactor documentation> +setRolloffFactor :: (MonadIO m) => PannerNode -> Double -> m ()+setRolloffFactor self val = liftIO (js_setRolloffFactor (self) val)+ +foreign import javascript unsafe "$1[\"rolloffFactor\"]"+        js_getRolloffFactor :: PannerNode -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitAudioPannerNode.rolloffFactor Mozilla webkitAudioPannerNode.rolloffFactor documentation> +getRolloffFactor :: (MonadIO m) => PannerNode -> m Double+getRolloffFactor self = liftIO (js_getRolloffFactor (self))+ +foreign import javascript unsafe "$1[\"coneInnerAngle\"] = $2;"+        js_setConeInnerAngle :: PannerNode -> Double -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitAudioPannerNode.coneInnerAngle Mozilla webkitAudioPannerNode.coneInnerAngle documentation> +setConeInnerAngle :: (MonadIO m) => PannerNode -> Double -> m ()+setConeInnerAngle self val+  = liftIO (js_setConeInnerAngle (self) val)+ +foreign import javascript unsafe "$1[\"coneInnerAngle\"]"+        js_getConeInnerAngle :: PannerNode -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitAudioPannerNode.coneInnerAngle Mozilla webkitAudioPannerNode.coneInnerAngle documentation> +getConeInnerAngle :: (MonadIO m) => PannerNode -> m Double+getConeInnerAngle self = liftIO (js_getConeInnerAngle (self))+ +foreign import javascript unsafe "$1[\"coneOuterAngle\"] = $2;"+        js_setConeOuterAngle :: PannerNode -> Double -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitAudioPannerNode.coneOuterAngle Mozilla webkitAudioPannerNode.coneOuterAngle documentation> +setConeOuterAngle :: (MonadIO m) => PannerNode -> Double -> m ()+setConeOuterAngle self val+  = liftIO (js_setConeOuterAngle (self) val)+ +foreign import javascript unsafe "$1[\"coneOuterAngle\"]"+        js_getConeOuterAngle :: PannerNode -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitAudioPannerNode.coneOuterAngle Mozilla webkitAudioPannerNode.coneOuterAngle documentation> +getConeOuterAngle :: (MonadIO m) => PannerNode -> m Double+getConeOuterAngle self = liftIO (js_getConeOuterAngle (self))+ +foreign import javascript unsafe "$1[\"coneOuterGain\"] = $2;"+        js_setConeOuterGain :: PannerNode -> Double -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitAudioPannerNode.coneOuterGain Mozilla webkitAudioPannerNode.coneOuterGain documentation> +setConeOuterGain :: (MonadIO m) => PannerNode -> Double -> m ()+setConeOuterGain self val = liftIO (js_setConeOuterGain (self) val)+ +foreign import javascript unsafe "$1[\"coneOuterGain\"]"+        js_getConeOuterGain :: PannerNode -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitAudioPannerNode.coneOuterGain Mozilla webkitAudioPannerNode.coneOuterGain documentation> +getConeOuterGain :: (MonadIO m) => PannerNode -> m Double+getConeOuterGain self = liftIO (js_getConeOuterGain (self))
+ src/GHCJS/DOM/JSFFI/Generated/Path2D.hs view
@@ -0,0 +1,134 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.Path2D+       (js_newPath2D, newPath2D, js_newPath2D', newPath2D',+        js_newPath2D'', newPath2D'', js_addPath, addPath, js_closePath,+        closePath, js_moveTo, moveTo, js_lineTo, lineTo,+        js_quadraticCurveTo, quadraticCurveTo, js_bezierCurveTo,+        bezierCurveTo, js_arcTo, arcTo, js_rect, rect, js_arc, arc, Path2D,+        castToPath2D, gTypePath2D)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "new window[\"Path2D\"]()"+        js_newPath2D :: IO Path2D++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Path2D Mozilla Path2D documentation> +newPath2D :: (MonadIO m) => m Path2D+newPath2D = liftIO (js_newPath2D)+ +foreign import javascript unsafe "new window[\"Path2D\"]($1)"+        js_newPath2D' :: Nullable Path2D -> IO Path2D++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Path2D Mozilla Path2D documentation> +newPath2D' :: (MonadIO m) => Maybe Path2D -> m Path2D+newPath2D' path = liftIO (js_newPath2D' (maybeToNullable path))+ +foreign import javascript unsafe "new window[\"Path2D\"]($1)"+        js_newPath2D'' :: JSString -> IO Path2D++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Path2D Mozilla Path2D documentation> +newPath2D'' :: (MonadIO m, ToJSString text) => text -> m Path2D+newPath2D'' text = liftIO (js_newPath2D'' (toJSString text))+ +foreign import javascript unsafe "$1[\"addPath\"]($2, $3)"+        js_addPath ::+        Path2D -> Nullable Path2D -> Nullable SVGMatrix -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Path2D.addPath Mozilla Path2D.addPath documentation> +addPath ::+        (MonadIO m) => Path2D -> Maybe Path2D -> Maybe SVGMatrix -> m ()+addPath self path transform+  = liftIO+      (js_addPath (self) (maybeToNullable path)+         (maybeToNullable transform))+ +foreign import javascript unsafe "$1[\"closePath\"]()" js_closePath+        :: Path2D -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Path2D.closePath Mozilla Path2D.closePath documentation> +closePath :: (MonadIO m) => Path2D -> m ()+closePath self = liftIO (js_closePath (self))+ +foreign import javascript unsafe "$1[\"moveTo\"]($2, $3)" js_moveTo+        :: Path2D -> Float -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Path2D.moveTo Mozilla Path2D.moveTo documentation> +moveTo :: (MonadIO m) => Path2D -> Float -> Float -> m ()+moveTo self x y = liftIO (js_moveTo (self) x y)+ +foreign import javascript unsafe "$1[\"lineTo\"]($2, $3)" js_lineTo+        :: Path2D -> Float -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Path2D.lineTo Mozilla Path2D.lineTo documentation> +lineTo :: (MonadIO m) => Path2D -> Float -> Float -> m ()+lineTo self x y = liftIO (js_lineTo (self) x y)+ +foreign import javascript unsafe+        "$1[\"quadraticCurveTo\"]($2, $3,\n$4, $5)" js_quadraticCurveTo ::+        Path2D -> Float -> Float -> Float -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Path2D.quadraticCurveTo Mozilla Path2D.quadraticCurveTo documentation> +quadraticCurveTo ::+                 (MonadIO m) => Path2D -> Float -> Float -> Float -> Float -> m ()+quadraticCurveTo self cpx cpy x y+  = liftIO (js_quadraticCurveTo (self) cpx cpy x y)+ +foreign import javascript unsafe+        "$1[\"bezierCurveTo\"]($2, $3, $4,\n$5, $6, $7)" js_bezierCurveTo+        ::+        Path2D ->+          Float -> Float -> Float -> Float -> Float -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Path2D.bezierCurveTo Mozilla Path2D.bezierCurveTo documentation> +bezierCurveTo ::+              (MonadIO m) =>+                Path2D ->+                  Float -> Float -> Float -> Float -> Float -> Float -> m ()+bezierCurveTo self cp1x cp1y cp2x cp2y x y+  = liftIO (js_bezierCurveTo (self) cp1x cp1y cp2x cp2y x y)+ +foreign import javascript unsafe+        "$1[\"arcTo\"]($2, $3, $4, $5, $6)" js_arcTo ::+        Path2D -> Float -> Float -> Float -> Float -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Path2D.arcTo Mozilla Path2D.arcTo documentation> +arcTo ::+      (MonadIO m) =>+        Path2D -> Float -> Float -> Float -> Float -> Float -> m ()+arcTo self x1 y1 x2 y2 radius+  = liftIO (js_arcTo (self) x1 y1 x2 y2 radius)+ +foreign import javascript unsafe "$1[\"rect\"]($2, $3, $4, $5)"+        js_rect :: Path2D -> Float -> Float -> Float -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Path2D.rect Mozilla Path2D.rect documentation> +rect ::+     (MonadIO m) => Path2D -> Float -> Float -> Float -> Float -> m ()+rect self x y width height+  = liftIO (js_rect (self) x y width height)+ +foreign import javascript unsafe+        "$1[\"arc\"]($2, $3, $4, $5, $6,\n$7)" js_arc ::+        Path2D ->+          Float -> Float -> Float -> Float -> Float -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Path2D.arc Mozilla Path2D.arc documentation> +arc ::+    (MonadIO m) =>+      Path2D -> Float -> Float -> Float -> Float -> Float -> Bool -> m ()+arc self x y radius startAngle endAngle anticlockwise+  = liftIO+      (js_arc (self) x y radius startAngle endAngle anticlockwise)
+ src/GHCJS/DOM/JSFFI/Generated/Performance.hs view
@@ -0,0 +1,159 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.Performance+       (js_webkitGetEntries, webkitGetEntries, js_webkitGetEntriesByType,+        webkitGetEntriesByType, js_webkitGetEntriesByName,+        webkitGetEntriesByName, js_webkitClearResourceTimings,+        webkitClearResourceTimings, js_webkitSetResourceTimingBufferSize,+        webkitSetResourceTimingBufferSize, js_webkitMark, webkitMark,+        js_webkitClearMarks, webkitClearMarks, js_webkitMeasure,+        webkitMeasure, js_webkitClearMeasures, webkitClearMeasures, js_now,+        now, js_getNavigation, getNavigation, js_getTiming, getTiming,+        webKitResourceTimingBufferFull, Performance, castToPerformance,+        gTypePerformance)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"webkitGetEntries\"]()"+        js_webkitGetEntries ::+        Performance -> IO (Nullable PerformanceEntryList)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.webkitGetEntries Mozilla Performance.webkitGetEntries documentation> +webkitGetEntries ::+                 (MonadIO m) => Performance -> m (Maybe PerformanceEntryList)+webkitGetEntries self+  = liftIO (nullableToMaybe <$> (js_webkitGetEntries (self)))+ +foreign import javascript unsafe+        "$1[\"webkitGetEntriesByType\"]($2)" js_webkitGetEntriesByType ::+        Performance -> JSString -> IO (Nullable PerformanceEntryList)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.webkitGetEntriesByType Mozilla Performance.webkitGetEntriesByType documentation> +webkitGetEntriesByType ::+                       (MonadIO m, ToJSString entryType) =>+                         Performance -> entryType -> m (Maybe PerformanceEntryList)+webkitGetEntriesByType self entryType+  = liftIO+      (nullableToMaybe <$>+         (js_webkitGetEntriesByType (self) (toJSString entryType)))+ +foreign import javascript unsafe+        "$1[\"webkitGetEntriesByName\"]($2,\n$3)" js_webkitGetEntriesByName+        ::+        Performance ->+          JSString -> JSString -> IO (Nullable PerformanceEntryList)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.webkitGetEntriesByName Mozilla Performance.webkitGetEntriesByName documentation> +webkitGetEntriesByName ::+                       (MonadIO m, ToJSString name, ToJSString entryType) =>+                         Performance -> name -> entryType -> m (Maybe PerformanceEntryList)+webkitGetEntriesByName self name entryType+  = liftIO+      (nullableToMaybe <$>+         (js_webkitGetEntriesByName (self) (toJSString name)+            (toJSString entryType)))+ +foreign import javascript unsafe+        "$1[\"webkitClearResourceTimings\"]()"+        js_webkitClearResourceTimings :: Performance -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.webkitClearResourceTimings Mozilla Performance.webkitClearResourceTimings documentation> +webkitClearResourceTimings :: (MonadIO m) => Performance -> m ()+webkitClearResourceTimings self+  = liftIO (js_webkitClearResourceTimings (self))+ +foreign import javascript unsafe+        "$1[\"webkitSetResourceTimingBufferSize\"]($2)"+        js_webkitSetResourceTimingBufferSize ::+        Performance -> Word -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.webkitSetResourceTimingBufferSize Mozilla Performance.webkitSetResourceTimingBufferSize documentation> +webkitSetResourceTimingBufferSize ::+                                  (MonadIO m) => Performance -> Word -> m ()+webkitSetResourceTimingBufferSize self maxSize+  = liftIO (js_webkitSetResourceTimingBufferSize (self) maxSize)+ +foreign import javascript unsafe "$1[\"webkitMark\"]($2)"+        js_webkitMark :: Performance -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.webkitMark Mozilla Performance.webkitMark documentation> +webkitMark ::+           (MonadIO m, ToJSString markName) => Performance -> markName -> m ()+webkitMark self markName+  = liftIO (js_webkitMark (self) (toJSString markName))+ +foreign import javascript unsafe "$1[\"webkitClearMarks\"]($2)"+        js_webkitClearMarks :: Performance -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.webkitClearMarks Mozilla Performance.webkitClearMarks documentation> +webkitClearMarks ::+                 (MonadIO m, ToJSString markName) => Performance -> markName -> m ()+webkitClearMarks self markName+  = liftIO (js_webkitClearMarks (self) (toJSString markName))+ +foreign import javascript unsafe+        "$1[\"webkitMeasure\"]($2, $3, $4)" js_webkitMeasure ::+        Performance -> JSString -> JSString -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.webkitMeasure Mozilla Performance.webkitMeasure documentation> +webkitMeasure ::+              (MonadIO m, ToJSString measureName, ToJSString startMark,+               ToJSString endMark) =>+                Performance -> measureName -> startMark -> endMark -> m ()+webkitMeasure self measureName startMark endMark+  = liftIO+      (js_webkitMeasure (self) (toJSString measureName)+         (toJSString startMark)+         (toJSString endMark))+ +foreign import javascript unsafe "$1[\"webkitClearMeasures\"]($2)"+        js_webkitClearMeasures :: Performance -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.webkitClearMeasures Mozilla Performance.webkitClearMeasures documentation> +webkitClearMeasures ::+                    (MonadIO m, ToJSString measureName) =>+                      Performance -> measureName -> m ()+webkitClearMeasures self measureName+  = liftIO (js_webkitClearMeasures (self) (toJSString measureName))+ +foreign import javascript unsafe "$1[\"now\"]()" js_now ::+        Performance -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.now Mozilla Performance.now documentation> +now :: (MonadIO m) => Performance -> m Double+now self = liftIO (js_now (self))+ +foreign import javascript unsafe "$1[\"navigation\"]"+        js_getNavigation ::+        Performance -> IO (Nullable PerformanceNavigation)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.navigation Mozilla Performance.navigation documentation> +getNavigation ::+              (MonadIO m) => Performance -> m (Maybe PerformanceNavigation)+getNavigation self+  = liftIO (nullableToMaybe <$> (js_getNavigation (self)))+ +foreign import javascript unsafe "$1[\"timing\"]" js_getTiming ::+        Performance -> IO (Nullable PerformanceTiming)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.timing Mozilla Performance.timing documentation> +getTiming ::+          (MonadIO m) => Performance -> m (Maybe PerformanceTiming)+getTiming self = liftIO (nullableToMaybe <$> (js_getTiming (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.onwebkitresourcetimingbufferfull Mozilla Performance.onwebkitresourcetimingbufferfull documentation> +webKitResourceTimingBufferFull :: EventName Performance Event+webKitResourceTimingBufferFull+  = unsafeEventName (toJSString "webkitresourcetimingbufferfull")
+ src/GHCJS/DOM/JSFFI/Generated/PerformanceEntry.hs view
@@ -0,0 +1,60 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.PerformanceEntry+       (js_getName, getName, js_getEntryType, getEntryType,+        js_getStartTime, getStartTime, js_getDuration, getDuration,+        PerformanceEntry, castToPerformanceEntry, gTypePerformanceEntry,+        IsPerformanceEntry, toPerformanceEntry)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"name\"]" js_getName ::+        PerformanceEntry -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceEntry.name Mozilla PerformanceEntry.name documentation> +getName ::+        (MonadIO m, IsPerformanceEntry self, FromJSString result) =>+          self -> m result+getName self+  = liftIO (fromJSString <$> (js_getName (toPerformanceEntry self)))+ +foreign import javascript unsafe "$1[\"entryType\"]"+        js_getEntryType :: PerformanceEntry -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceEntry.entryType Mozilla PerformanceEntry.entryType documentation> +getEntryType ::+             (MonadIO m, IsPerformanceEntry self, FromJSString result) =>+               self -> m result+getEntryType self+  = liftIO+      (fromJSString <$> (js_getEntryType (toPerformanceEntry self)))+ +foreign import javascript unsafe "$1[\"startTime\"]"+        js_getStartTime :: PerformanceEntry -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceEntry.startTime Mozilla PerformanceEntry.startTime documentation> +getStartTime ::+             (MonadIO m, IsPerformanceEntry self) => self -> m Double+getStartTime self+  = liftIO (js_getStartTime (toPerformanceEntry self))+ +foreign import javascript unsafe "$1[\"duration\"]" js_getDuration+        :: PerformanceEntry -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceEntry.duration Mozilla PerformanceEntry.duration documentation> +getDuration ::+            (MonadIO m, IsPerformanceEntry self) => self -> m Double+getDuration self+  = liftIO (js_getDuration (toPerformanceEntry self))
+ src/GHCJS/DOM/JSFFI/Generated/PerformanceEntryList.hs view
@@ -0,0 +1,36 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.PerformanceEntryList+       (js_item, item, js_getLength, getLength, PerformanceEntryList,+        castToPerformanceEntryList, gTypePerformanceEntryList)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"item\"]($2)" js_item ::+        PerformanceEntryList -> Word -> IO (Nullable PerformanceEntry)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceEntryList.item Mozilla PerformanceEntryList.item documentation> +item ::+     (MonadIO m) =>+       PerformanceEntryList -> Word -> m (Maybe PerformanceEntry)+item self index+  = liftIO (nullableToMaybe <$> (js_item (self) index))+ +foreign import javascript unsafe "$1[\"length\"]" js_getLength ::+        PerformanceEntryList -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceEntryList.length Mozilla PerformanceEntryList.length documentation> +getLength :: (MonadIO m) => PerformanceEntryList -> m Word+getLength self = liftIO (js_getLength (self))
+ src/GHCJS/DOM/JSFFI/Generated/PerformanceNavigation.hs view
@@ -0,0 +1,40 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.PerformanceNavigation+       (pattern TYPE_NAVIGATE, pattern TYPE_RELOAD,+        pattern TYPE_BACK_FORWARD, pattern TYPE_RESERVED, js_getType,+        getType, js_getRedirectCount, getRedirectCount,+        PerformanceNavigation, castToPerformanceNavigation,+        gTypePerformanceNavigation)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+pattern TYPE_NAVIGATE = 0+pattern TYPE_RELOAD = 1+pattern TYPE_BACK_FORWARD = 2+pattern TYPE_RESERVED = 255+ +foreign import javascript unsafe "$1[\"type\"]" js_getType ::+        PerformanceNavigation -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceNavigation.type Mozilla PerformanceNavigation.type documentation> +getType :: (MonadIO m) => PerformanceNavigation -> m Word+getType self = liftIO (js_getType (self))+ +foreign import javascript unsafe "$1[\"redirectCount\"]"+        js_getRedirectCount :: PerformanceNavigation -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceNavigation.redirectCount Mozilla PerformanceNavigation.redirectCount documentation> +getRedirectCount :: (MonadIO m) => PerformanceNavigation -> m Word+getRedirectCount self = liftIO (js_getRedirectCount (self))
+ src/GHCJS/DOM/JSFFI/Generated/PerformanceResourceTiming.hs view
@@ -0,0 +1,118 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.PerformanceResourceTiming+       (js_getInitiatorType, getInitiatorType, js_getRedirectStart,+        getRedirectStart, js_getRedirectEnd, getRedirectEnd,+        js_getFetchStart, getFetchStart, js_getDomainLookupStart,+        getDomainLookupStart, js_getDomainLookupEnd, getDomainLookupEnd,+        js_getConnectStart, getConnectStart, js_getConnectEnd,+        getConnectEnd, js_getSecureConnectionStart,+        getSecureConnectionStart, js_getRequestStart, getRequestStart,+        js_getResponseEnd, getResponseEnd, PerformanceResourceTiming,+        castToPerformanceResourceTiming, gTypePerformanceResourceTiming)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"initiatorType\"]"+        js_getInitiatorType :: PerformanceResourceTiming -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceResourceTiming.initiatorType Mozilla PerformanceResourceTiming.initiatorType documentation> +getInitiatorType ::+                 (MonadIO m, FromJSString result) =>+                   PerformanceResourceTiming -> m result+getInitiatorType self+  = liftIO (fromJSString <$> (js_getInitiatorType (self)))+ +foreign import javascript unsafe "$1[\"redirectStart\"]"+        js_getRedirectStart :: PerformanceResourceTiming -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceResourceTiming.redirectStart Mozilla PerformanceResourceTiming.redirectStart documentation> +getRedirectStart ::+                 (MonadIO m) => PerformanceResourceTiming -> m Double+getRedirectStart self = liftIO (js_getRedirectStart (self))+ +foreign import javascript unsafe "$1[\"redirectEnd\"]"+        js_getRedirectEnd :: PerformanceResourceTiming -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceResourceTiming.redirectEnd Mozilla PerformanceResourceTiming.redirectEnd documentation> +getRedirectEnd ::+               (MonadIO m) => PerformanceResourceTiming -> m Double+getRedirectEnd self = liftIO (js_getRedirectEnd (self))+ +foreign import javascript unsafe "$1[\"fetchStart\"]"+        js_getFetchStart :: PerformanceResourceTiming -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceResourceTiming.fetchStart Mozilla PerformanceResourceTiming.fetchStart documentation> +getFetchStart ::+              (MonadIO m) => PerformanceResourceTiming -> m Double+getFetchStart self = liftIO (js_getFetchStart (self))+ +foreign import javascript unsafe "$1[\"domainLookupStart\"]"+        js_getDomainLookupStart :: PerformanceResourceTiming -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceResourceTiming.domainLookupStart Mozilla PerformanceResourceTiming.domainLookupStart documentation> +getDomainLookupStart ::+                     (MonadIO m) => PerformanceResourceTiming -> m Double+getDomainLookupStart self = liftIO (js_getDomainLookupStart (self))+ +foreign import javascript unsafe "$1[\"domainLookupEnd\"]"+        js_getDomainLookupEnd :: PerformanceResourceTiming -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceResourceTiming.domainLookupEnd Mozilla PerformanceResourceTiming.domainLookupEnd documentation> +getDomainLookupEnd ::+                   (MonadIO m) => PerformanceResourceTiming -> m Double+getDomainLookupEnd self = liftIO (js_getDomainLookupEnd (self))+ +foreign import javascript unsafe "$1[\"connectStart\"]"+        js_getConnectStart :: PerformanceResourceTiming -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceResourceTiming.connectStart Mozilla PerformanceResourceTiming.connectStart documentation> +getConnectStart ::+                (MonadIO m) => PerformanceResourceTiming -> m Double+getConnectStart self = liftIO (js_getConnectStart (self))+ +foreign import javascript unsafe "$1[\"connectEnd\"]"+        js_getConnectEnd :: PerformanceResourceTiming -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceResourceTiming.connectEnd Mozilla PerformanceResourceTiming.connectEnd documentation> +getConnectEnd ::+              (MonadIO m) => PerformanceResourceTiming -> m Double+getConnectEnd self = liftIO (js_getConnectEnd (self))+ +foreign import javascript unsafe "$1[\"secureConnectionStart\"]"+        js_getSecureConnectionStart ::+        PerformanceResourceTiming -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceResourceTiming.secureConnectionStart Mozilla PerformanceResourceTiming.secureConnectionStart documentation> +getSecureConnectionStart ::+                         (MonadIO m) => PerformanceResourceTiming -> m Double+getSecureConnectionStart self+  = liftIO (js_getSecureConnectionStart (self))+ +foreign import javascript unsafe "$1[\"requestStart\"]"+        js_getRequestStart :: PerformanceResourceTiming -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceResourceTiming.requestStart Mozilla PerformanceResourceTiming.requestStart documentation> +getRequestStart ::+                (MonadIO m) => PerformanceResourceTiming -> m Double+getRequestStart self = liftIO (js_getRequestStart (self))+ +foreign import javascript unsafe "$1[\"responseEnd\"]"+        js_getResponseEnd :: PerformanceResourceTiming -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceResourceTiming.responseEnd Mozilla PerformanceResourceTiming.responseEnd documentation> +getResponseEnd ::+               (MonadIO m) => PerformanceResourceTiming -> m Double+getResponseEnd self = liftIO (js_getResponseEnd (self))
+ src/GHCJS/DOM/JSFFI/Generated/PerformanceTiming.hs view
@@ -0,0 +1,201 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.PerformanceTiming+       (js_getNavigationStart, getNavigationStart, js_getUnloadEventStart,+        getUnloadEventStart, js_getUnloadEventEnd, getUnloadEventEnd,+        js_getRedirectStart, getRedirectStart, js_getRedirectEnd,+        getRedirectEnd, js_getFetchStart, getFetchStart,+        js_getDomainLookupStart, getDomainLookupStart,+        js_getDomainLookupEnd, getDomainLookupEnd, js_getConnectStart,+        getConnectStart, js_getConnectEnd, getConnectEnd,+        js_getSecureConnectionStart, getSecureConnectionStart,+        js_getRequestStart, getRequestStart, js_getResponseStart,+        getResponseStart, js_getResponseEnd, getResponseEnd,+        js_getDomLoading, getDomLoading, js_getDomInteractive,+        getDomInteractive, js_getDomContentLoadedEventStart,+        getDomContentLoadedEventStart, js_getDomContentLoadedEventEnd,+        getDomContentLoadedEventEnd, js_getDomComplete, getDomComplete,+        js_getLoadEventStart, getLoadEventStart, js_getLoadEventEnd,+        getLoadEventEnd, PerformanceTiming, castToPerformanceTiming,+        gTypePerformanceTiming)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"navigationStart\"]"+        js_getNavigationStart :: PerformanceTiming -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceTiming.navigationStart Mozilla PerformanceTiming.navigationStart documentation> +getNavigationStart :: (MonadIO m) => PerformanceTiming -> m Word64+getNavigationStart self+  = liftIO (round <$> (js_getNavigationStart (self)))+ +foreign import javascript unsafe "$1[\"unloadEventStart\"]"+        js_getUnloadEventStart :: PerformanceTiming -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceTiming.unloadEventStart Mozilla PerformanceTiming.unloadEventStart documentation> +getUnloadEventStart :: (MonadIO m) => PerformanceTiming -> m Word64+getUnloadEventStart self+  = liftIO (round <$> (js_getUnloadEventStart (self)))+ +foreign import javascript unsafe "$1[\"unloadEventEnd\"]"+        js_getUnloadEventEnd :: PerformanceTiming -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceTiming.unloadEventEnd Mozilla PerformanceTiming.unloadEventEnd documentation> +getUnloadEventEnd :: (MonadIO m) => PerformanceTiming -> m Word64+getUnloadEventEnd self+  = liftIO (round <$> (js_getUnloadEventEnd (self)))+ +foreign import javascript unsafe "$1[\"redirectStart\"]"+        js_getRedirectStart :: PerformanceTiming -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceTiming.redirectStart Mozilla PerformanceTiming.redirectStart documentation> +getRedirectStart :: (MonadIO m) => PerformanceTiming -> m Word64+getRedirectStart self+  = liftIO (round <$> (js_getRedirectStart (self)))+ +foreign import javascript unsafe "$1[\"redirectEnd\"]"+        js_getRedirectEnd :: PerformanceTiming -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceTiming.redirectEnd Mozilla PerformanceTiming.redirectEnd documentation> +getRedirectEnd :: (MonadIO m) => PerformanceTiming -> m Word64+getRedirectEnd self = liftIO (round <$> (js_getRedirectEnd (self)))+ +foreign import javascript unsafe "$1[\"fetchStart\"]"+        js_getFetchStart :: PerformanceTiming -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceTiming.fetchStart Mozilla PerformanceTiming.fetchStart documentation> +getFetchStart :: (MonadIO m) => PerformanceTiming -> m Word64+getFetchStart self = liftIO (round <$> (js_getFetchStart (self)))+ +foreign import javascript unsafe "$1[\"domainLookupStart\"]"+        js_getDomainLookupStart :: PerformanceTiming -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceTiming.domainLookupStart Mozilla PerformanceTiming.domainLookupStart documentation> +getDomainLookupStart ::+                     (MonadIO m) => PerformanceTiming -> m Word64+getDomainLookupStart self+  = liftIO (round <$> (js_getDomainLookupStart (self)))+ +foreign import javascript unsafe "$1[\"domainLookupEnd\"]"+        js_getDomainLookupEnd :: PerformanceTiming -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceTiming.domainLookupEnd Mozilla PerformanceTiming.domainLookupEnd documentation> +getDomainLookupEnd :: (MonadIO m) => PerformanceTiming -> m Word64+getDomainLookupEnd self+  = liftIO (round <$> (js_getDomainLookupEnd (self)))+ +foreign import javascript unsafe "$1[\"connectStart\"]"+        js_getConnectStart :: PerformanceTiming -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceTiming.connectStart Mozilla PerformanceTiming.connectStart documentation> +getConnectStart :: (MonadIO m) => PerformanceTiming -> m Word64+getConnectStart self+  = liftIO (round <$> (js_getConnectStart (self)))+ +foreign import javascript unsafe "$1[\"connectEnd\"]"+        js_getConnectEnd :: PerformanceTiming -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceTiming.connectEnd Mozilla PerformanceTiming.connectEnd documentation> +getConnectEnd :: (MonadIO m) => PerformanceTiming -> m Word64+getConnectEnd self = liftIO (round <$> (js_getConnectEnd (self)))+ +foreign import javascript unsafe "$1[\"secureConnectionStart\"]"+        js_getSecureConnectionStart :: PerformanceTiming -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceTiming.secureConnectionStart Mozilla PerformanceTiming.secureConnectionStart documentation> +getSecureConnectionStart ::+                         (MonadIO m) => PerformanceTiming -> m Word64+getSecureConnectionStart self+  = liftIO (round <$> (js_getSecureConnectionStart (self)))+ +foreign import javascript unsafe "$1[\"requestStart\"]"+        js_getRequestStart :: PerformanceTiming -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceTiming.requestStart Mozilla PerformanceTiming.requestStart documentation> +getRequestStart :: (MonadIO m) => PerformanceTiming -> m Word64+getRequestStart self+  = liftIO (round <$> (js_getRequestStart (self)))+ +foreign import javascript unsafe "$1[\"responseStart\"]"+        js_getResponseStart :: PerformanceTiming -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceTiming.responseStart Mozilla PerformanceTiming.responseStart documentation> +getResponseStart :: (MonadIO m) => PerformanceTiming -> m Word64+getResponseStart self+  = liftIO (round <$> (js_getResponseStart (self)))+ +foreign import javascript unsafe "$1[\"responseEnd\"]"+        js_getResponseEnd :: PerformanceTiming -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceTiming.responseEnd Mozilla PerformanceTiming.responseEnd documentation> +getResponseEnd :: (MonadIO m) => PerformanceTiming -> m Word64+getResponseEnd self = liftIO (round <$> (js_getResponseEnd (self)))+ +foreign import javascript unsafe "$1[\"domLoading\"]"+        js_getDomLoading :: PerformanceTiming -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceTiming.domLoading Mozilla PerformanceTiming.domLoading documentation> +getDomLoading :: (MonadIO m) => PerformanceTiming -> m Word64+getDomLoading self = liftIO (round <$> (js_getDomLoading (self)))+ +foreign import javascript unsafe "$1[\"domInteractive\"]"+        js_getDomInteractive :: PerformanceTiming -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceTiming.domInteractive Mozilla PerformanceTiming.domInteractive documentation> +getDomInteractive :: (MonadIO m) => PerformanceTiming -> m Word64+getDomInteractive self+  = liftIO (round <$> (js_getDomInteractive (self)))+ +foreign import javascript unsafe+        "$1[\"domContentLoadedEventStart\"]"+        js_getDomContentLoadedEventStart :: PerformanceTiming -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceTiming.domContentLoadedEventStart Mozilla PerformanceTiming.domContentLoadedEventStart documentation> +getDomContentLoadedEventStart ::+                              (MonadIO m) => PerformanceTiming -> m Word64+getDomContentLoadedEventStart self+  = liftIO (round <$> (js_getDomContentLoadedEventStart (self)))+ +foreign import javascript unsafe "$1[\"domContentLoadedEventEnd\"]"+        js_getDomContentLoadedEventEnd :: PerformanceTiming -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceTiming.domContentLoadedEventEnd Mozilla PerformanceTiming.domContentLoadedEventEnd documentation> +getDomContentLoadedEventEnd ::+                            (MonadIO m) => PerformanceTiming -> m Word64+getDomContentLoadedEventEnd self+  = liftIO (round <$> (js_getDomContentLoadedEventEnd (self)))+ +foreign import javascript unsafe "$1[\"domComplete\"]"+        js_getDomComplete :: PerformanceTiming -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceTiming.domComplete Mozilla PerformanceTiming.domComplete documentation> +getDomComplete :: (MonadIO m) => PerformanceTiming -> m Word64+getDomComplete self = liftIO (round <$> (js_getDomComplete (self)))+ +foreign import javascript unsafe "$1[\"loadEventStart\"]"+        js_getLoadEventStart :: PerformanceTiming -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceTiming.loadEventStart Mozilla PerformanceTiming.loadEventStart documentation> +getLoadEventStart :: (MonadIO m) => PerformanceTiming -> m Word64+getLoadEventStart self+  = liftIO (round <$> (js_getLoadEventStart (self)))+ +foreign import javascript unsafe "$1[\"loadEventEnd\"]"+        js_getLoadEventEnd :: PerformanceTiming -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceTiming.loadEventEnd Mozilla PerformanceTiming.loadEventEnd documentation> +getLoadEventEnd :: (MonadIO m) => PerformanceTiming -> m Word64+getLoadEventEnd self+  = liftIO (round <$> (js_getLoadEventEnd (self)))
+ src/GHCJS/DOM/JSFFI/Generated/Plugin.hs view
@@ -0,0 +1,71 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.Plugin+       (js_item, item, js_namedItem, namedItem, js_getName, getName,+        js_getFilename, getFilename, js_getDescription, getDescription,+        js_getLength, getLength, Plugin, castToPlugin, gTypePlugin)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"item\"]($2)" js_item ::+        Plugin -> Word -> IO (Nullable MimeType)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Plugin.item Mozilla Plugin.item documentation> +item :: (MonadIO m) => Plugin -> Word -> m (Maybe MimeType)+item self index+  = liftIO (nullableToMaybe <$> (js_item (self) index))+ +foreign import javascript unsafe "$1[\"namedItem\"]($2)"+        js_namedItem :: Plugin -> JSString -> IO (Nullable MimeType)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Plugin.namedItem Mozilla Plugin.namedItem documentation> +namedItem ::+          (MonadIO m, ToJSString name) =>+            Plugin -> name -> m (Maybe MimeType)+namedItem self name+  = liftIO+      (nullableToMaybe <$> (js_namedItem (self) (toJSString name)))+ +foreign import javascript unsafe "$1[\"name\"]" js_getName ::+        Plugin -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Plugin.name Mozilla Plugin.name documentation> +getName :: (MonadIO m, FromJSString result) => Plugin -> m result+getName self = liftIO (fromJSString <$> (js_getName (self)))+ +foreign import javascript unsafe "$1[\"filename\"]" js_getFilename+        :: Plugin -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Plugin.filename Mozilla Plugin.filename documentation> +getFilename ::+            (MonadIO m, FromJSString result) => Plugin -> m result+getFilename self+  = liftIO (fromJSString <$> (js_getFilename (self)))+ +foreign import javascript unsafe "$1[\"description\"]"+        js_getDescription :: Plugin -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Plugin.description Mozilla Plugin.description documentation> +getDescription ::+               (MonadIO m, FromJSString result) => Plugin -> m result+getDescription self+  = liftIO (fromJSString <$> (js_getDescription (self)))+ +foreign import javascript unsafe "$1[\"length\"]" js_getLength ::+        Plugin -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Plugin.length Mozilla Plugin.length documentation> +getLength :: (MonadIO m) => Plugin -> m Word+getLength self = liftIO (js_getLength (self))
+ src/GHCJS/DOM/JSFFI/Generated/PluginArray.hs view
@@ -0,0 +1,53 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.PluginArray+       (js_item, item, js_namedItem, namedItem, js_refresh, refresh,+        js_getLength, getLength, PluginArray, castToPluginArray,+        gTypePluginArray)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"item\"]($2)" js_item ::+        PluginArray -> Word -> IO (Nullable Plugin)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PluginArray.item Mozilla PluginArray.item documentation> +item :: (MonadIO m) => PluginArray -> Word -> m (Maybe Plugin)+item self index+  = liftIO (nullableToMaybe <$> (js_item (self) index))+ +foreign import javascript unsafe "$1[\"namedItem\"]($2)"+        js_namedItem :: PluginArray -> JSString -> IO (Nullable Plugin)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PluginArray.namedItem Mozilla PluginArray.namedItem documentation> +namedItem ::+          (MonadIO m, ToJSString name) =>+            PluginArray -> name -> m (Maybe Plugin)+namedItem self name+  = liftIO+      (nullableToMaybe <$> (js_namedItem (self) (toJSString name)))+ +foreign import javascript unsafe "$1[\"refresh\"]($2)" js_refresh+        :: PluginArray -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PluginArray.refresh Mozilla PluginArray.refresh documentation> +refresh :: (MonadIO m) => PluginArray -> Bool -> m ()+refresh self reload = liftIO (js_refresh (self) reload)+ +foreign import javascript unsafe "$1[\"length\"]" js_getLength ::+        PluginArray -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PluginArray.length Mozilla PluginArray.length documentation> +getLength :: (MonadIO m) => PluginArray -> m Word+getLength self = liftIO (js_getLength (self))
+ src/GHCJS/DOM/JSFFI/Generated/PopStateEvent.hs view
@@ -0,0 +1,26 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.PopStateEvent+       (js_getState, getState, PopStateEvent, castToPopStateEvent,+        gTypePopStateEvent)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"state\"]" js_getState ::+        PopStateEvent -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PopStateEvent.state Mozilla PopStateEvent.state documentation> +getState :: (MonadIO m) => PopStateEvent -> m JSVal+getState self = liftIO (js_getState (self))
+ src/GHCJS/DOM/JSFFI/Generated/PositionCallback.hs view
@@ -0,0 +1,49 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.PositionCallback+       (newPositionCallback, newPositionCallbackSync,+        newPositionCallbackAsync, PositionCallback)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PositionCallback Mozilla PositionCallback documentation> +newPositionCallback ::+                    (MonadIO m) => (Maybe Geoposition -> IO ()) -> m PositionCallback+newPositionCallback callback+  = liftIO+      (PositionCallback <$>+         syncCallback1 ThrowWouldBlock+           (\ position ->+              fromJSValUnchecked position >>= \ position' -> callback position'))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PositionCallback Mozilla PositionCallback documentation> +newPositionCallbackSync ::+                        (MonadIO m) => (Maybe Geoposition -> IO ()) -> m PositionCallback+newPositionCallbackSync callback+  = liftIO+      (PositionCallback <$>+         syncCallback1 ContinueAsync+           (\ position ->+              fromJSValUnchecked position >>= \ position' -> callback position'))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PositionCallback Mozilla PositionCallback documentation> +newPositionCallbackAsync ::+                         (MonadIO m) => (Maybe Geoposition -> IO ()) -> m PositionCallback+newPositionCallbackAsync callback+  = liftIO+      (PositionCallback <$>+         asyncCallback1+           (\ position ->+              fromJSValUnchecked position >>= \ position' -> callback position'))
+ src/GHCJS/DOM/JSFFI/Generated/PositionError.hs view
@@ -0,0 +1,38 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.PositionError+       (pattern PERMISSION_DENIED, pattern POSITION_UNAVAILABLE,+        pattern TIMEOUT, js_getCode, getCode, js_getMessage, getMessage,+        PositionError, castToPositionError, gTypePositionError)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+pattern PERMISSION_DENIED = 1+pattern POSITION_UNAVAILABLE = 2+pattern TIMEOUT = 3+ +foreign import javascript unsafe "$1[\"code\"]" js_getCode ::+        PositionError -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PositionError.code Mozilla PositionError.code documentation> +getCode :: (MonadIO m) => PositionError -> m Word+getCode self = liftIO (js_getCode (self))+ +foreign import javascript unsafe "$1[\"message\"]" js_getMessage ::+        PositionError -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PositionError.message Mozilla PositionError.message documentation> +getMessage ::+           (MonadIO m, FromJSString result) => PositionError -> m result+getMessage self = liftIO (fromJSString <$> (js_getMessage (self)))
+ src/GHCJS/DOM/JSFFI/Generated/PositionErrorCallback.hs view
@@ -0,0 +1,52 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.PositionErrorCallback+       (newPositionErrorCallback, newPositionErrorCallbackSync,+        newPositionErrorCallbackAsync, PositionErrorCallback)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PositionErrorCallback Mozilla PositionErrorCallback documentation> +newPositionErrorCallback ::+                         (MonadIO m) =>+                           (Maybe PositionError -> IO ()) -> m PositionErrorCallback+newPositionErrorCallback callback+  = liftIO+      (PositionErrorCallback <$>+         syncCallback1 ThrowWouldBlock+           (\ error ->+              fromJSValUnchecked error >>= \ error' -> callback error'))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PositionErrorCallback Mozilla PositionErrorCallback documentation> +newPositionErrorCallbackSync ::+                             (MonadIO m) =>+                               (Maybe PositionError -> IO ()) -> m PositionErrorCallback+newPositionErrorCallbackSync callback+  = liftIO+      (PositionErrorCallback <$>+         syncCallback1 ContinueAsync+           (\ error ->+              fromJSValUnchecked error >>= \ error' -> callback error'))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PositionErrorCallback Mozilla PositionErrorCallback documentation> +newPositionErrorCallbackAsync ::+                              (MonadIO m) =>+                                (Maybe PositionError -> IO ()) -> m PositionErrorCallback+newPositionErrorCallbackAsync callback+  = liftIO+      (PositionErrorCallback <$>+         asyncCallback1+           (\ error ->+              fromJSValUnchecked error >>= \ error' -> callback error'))
+ src/GHCJS/DOM/JSFFI/Generated/ProcessingInstruction.hs view
@@ -0,0 +1,38 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.ProcessingInstruction+       (js_getTarget, getTarget, js_getSheet, getSheet,+        ProcessingInstruction, castToProcessingInstruction,+        gTypeProcessingInstruction)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"target\"]" js_getTarget ::+        ProcessingInstruction -> IO (Nullable JSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ProcessingInstruction.target Mozilla ProcessingInstruction.target documentation> +getTarget ::+          (MonadIO m, FromJSString result) =>+            ProcessingInstruction -> m (Maybe result)+getTarget self+  = liftIO (fromMaybeJSString <$> (js_getTarget (self)))+ +foreign import javascript unsafe "$1[\"sheet\"]" js_getSheet ::+        ProcessingInstruction -> IO (Nullable StyleSheet)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ProcessingInstruction.sheet Mozilla ProcessingInstruction.sheet documentation> +getSheet ::+         (MonadIO m) => ProcessingInstruction -> m (Maybe StyleSheet)+getSheet self = liftIO (nullableToMaybe <$> (js_getSheet (self)))
+ src/GHCJS/DOM/JSFFI/Generated/ProgressEvent.hs view
@@ -0,0 +1,47 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.ProgressEvent+       (js_getLengthComputable, getLengthComputable, js_getLoaded,+        getLoaded, js_getTotal, getTotal, ProgressEvent,+        castToProgressEvent, gTypeProgressEvent, IsProgressEvent,+        toProgressEvent)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe+        "($1[\"lengthComputable\"] ? 1 : 0)" js_getLengthComputable ::+        ProgressEvent -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ProgressEvent.lengthComputable Mozilla ProgressEvent.lengthComputable documentation> +getLengthComputable ::+                    (MonadIO m, IsProgressEvent self) => self -> m Bool+getLengthComputable self+  = liftIO (js_getLengthComputable (toProgressEvent self))+ +foreign import javascript unsafe "$1[\"loaded\"]" js_getLoaded ::+        ProgressEvent -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ProgressEvent.loaded Mozilla ProgressEvent.loaded documentation> +getLoaded :: (MonadIO m, IsProgressEvent self) => self -> m Word64+getLoaded self+  = liftIO (round <$> (js_getLoaded (toProgressEvent self)))+ +foreign import javascript unsafe "$1[\"total\"]" js_getTotal ::+        ProgressEvent -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ProgressEvent.total Mozilla ProgressEvent.total documentation> +getTotal :: (MonadIO m, IsProgressEvent self) => self -> m Word64+getTotal self+  = liftIO (round <$> (js_getTotal (toProgressEvent self)))
+ src/GHCJS/DOM/JSFFI/Generated/QuickTimePluginReplacement.hs view
@@ -0,0 +1,63 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.QuickTimePluginReplacement+       (js_postEvent, postEvent, js_getMovieSize, getMovieSize,+        js_getTimedMetaData, getTimedMetaData, js_getAccessLog,+        getAccessLog, js_getErrorLog, getErrorLog,+        QuickTimePluginReplacement, castToQuickTimePluginReplacement,+        gTypeQuickTimePluginReplacement)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"postEvent\"]($2)"+        js_postEvent :: QuickTimePluginReplacement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/QuickTimePluginReplacement.postEvent Mozilla QuickTimePluginReplacement.postEvent documentation> +postEvent ::+          (MonadIO m, ToJSString eventName) =>+            QuickTimePluginReplacement -> eventName -> m ()+postEvent self eventName+  = liftIO (js_postEvent (self) (toJSString eventName))+ +foreign import javascript unsafe "$1[\"movieSize\"]"+        js_getMovieSize :: QuickTimePluginReplacement -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/QuickTimePluginReplacement.movieSize Mozilla QuickTimePluginReplacement.movieSize documentation> +getMovieSize ::+             (MonadIO m) => QuickTimePluginReplacement -> m Word64+getMovieSize self = liftIO (round <$> (js_getMovieSize (self)))+ +foreign import javascript unsafe "$1[\"timedMetaData\"]"+        js_getTimedMetaData :: QuickTimePluginReplacement -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/QuickTimePluginReplacement.timedMetaData Mozilla QuickTimePluginReplacement.timedMetaData documentation> +getTimedMetaData ::+                 (MonadIO m) => QuickTimePluginReplacement -> m JSVal+getTimedMetaData self = liftIO (js_getTimedMetaData (self))+ +foreign import javascript unsafe "$1[\"accessLog\"]"+        js_getAccessLog :: QuickTimePluginReplacement -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/QuickTimePluginReplacement.accessLog Mozilla QuickTimePluginReplacement.accessLog documentation> +getAccessLog ::+             (MonadIO m) => QuickTimePluginReplacement -> m JSVal+getAccessLog self = liftIO (js_getAccessLog (self))+ +foreign import javascript unsafe "$1[\"errorLog\"]" js_getErrorLog+        :: QuickTimePluginReplacement -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/QuickTimePluginReplacement.errorLog Mozilla QuickTimePluginReplacement.errorLog documentation> +getErrorLog :: (MonadIO m) => QuickTimePluginReplacement -> m JSVal+getErrorLog self = liftIO (js_getErrorLog (self))
+ src/GHCJS/DOM/JSFFI/Generated/RGBColor.hs view
@@ -0,0 +1,40 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.RGBColor+       (js_getRed, getRed, js_getGreen, getGreen, js_getBlue, getBlue,+        RGBColor, castToRGBColor, gTypeRGBColor)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"red\"]" js_getRed ::+        RGBColor -> IO (Nullable CSSPrimitiveValue)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RGBColor.red Mozilla RGBColor.red documentation> +getRed :: (MonadIO m) => RGBColor -> m (Maybe CSSPrimitiveValue)+getRed self = liftIO (nullableToMaybe <$> (js_getRed (self)))+ +foreign import javascript unsafe "$1[\"green\"]" js_getGreen ::+        RGBColor -> IO (Nullable CSSPrimitiveValue)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RGBColor.green Mozilla RGBColor.green documentation> +getGreen :: (MonadIO m) => RGBColor -> m (Maybe CSSPrimitiveValue)+getGreen self = liftIO (nullableToMaybe <$> (js_getGreen (self)))+ +foreign import javascript unsafe "$1[\"blue\"]" js_getBlue ::+        RGBColor -> IO (Nullable CSSPrimitiveValue)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RGBColor.blue Mozilla RGBColor.blue documentation> +getBlue :: (MonadIO m) => RGBColor -> m (Maybe CSSPrimitiveValue)+getBlue self = liftIO (nullableToMaybe <$> (js_getBlue (self)))
+ src/GHCJS/DOM/JSFFI/Generated/RTCConfiguration.hs view
@@ -0,0 +1,47 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.RTCConfiguration+       (js_getIceServers, getIceServers, js_getIceTransports,+        getIceTransports, js_getRequestIdentity, getRequestIdentity,+        RTCConfiguration, castToRTCConfiguration, gTypeRTCConfiguration)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"iceServers\"]"+        js_getIceServers :: RTCConfiguration -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCConfiguration.iceServers Mozilla RTCConfiguration.iceServers documentation> +getIceServers ::+              (MonadIO m) => RTCConfiguration -> m [Maybe RTCIceServer]+getIceServers self+  = liftIO ((js_getIceServers (self)) >>= fromJSValUnchecked)+ +foreign import javascript unsafe "$1[\"iceTransports\"]"+        js_getIceTransports :: RTCConfiguration -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCConfiguration.iceTransports Mozilla RTCConfiguration.iceTransports documentation> +getIceTransports ::+                 (MonadIO m) => RTCConfiguration -> m RTCIceTransportsEnum+getIceTransports self+  = liftIO ((js_getIceTransports (self)) >>= fromJSValUnchecked)+ +foreign import javascript unsafe "$1[\"requestIdentity\"]"+        js_getRequestIdentity :: RTCConfiguration -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCConfiguration.requestIdentity Mozilla RTCConfiguration.requestIdentity documentation> +getRequestIdentity ::+                   (MonadIO m) => RTCConfiguration -> m RTCIdentityOptionEnum+getRequestIdentity self+  = liftIO ((js_getRequestIdentity (self)) >>= fromJSValUnchecked)
+ src/GHCJS/DOM/JSFFI/Generated/RTCDTMFSender.hs view
@@ -0,0 +1,74 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.RTCDTMFSender+       (js_insertDTMF, insertDTMF, js_getCanInsertDTMF, getCanInsertDTMF,+        js_getTrack, getTrack, js_getToneBuffer, getToneBuffer,+        js_getDuration, getDuration, js_getInterToneGap, getInterToneGap,+        toneChange, RTCDTMFSender, castToRTCDTMFSender, gTypeRTCDTMFSender)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"insertDTMF\"]($2, $3, $4)"+        js_insertDTMF :: RTCDTMFSender -> JSString -> Int -> Int -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDTMFSender.insertDTMF Mozilla RTCDTMFSender.insertDTMF documentation> +insertDTMF ::+           (MonadIO m, ToJSString tones) =>+             RTCDTMFSender -> tones -> Int -> Int -> m ()+insertDTMF self tones duration interToneGap+  = liftIO+      (js_insertDTMF (self) (toJSString tones) duration interToneGap)+ +foreign import javascript unsafe "($1[\"canInsertDTMF\"] ? 1 : 0)"+        js_getCanInsertDTMF :: RTCDTMFSender -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDTMFSender.canInsertDTMF Mozilla RTCDTMFSender.canInsertDTMF documentation> +getCanInsertDTMF :: (MonadIO m) => RTCDTMFSender -> m Bool+getCanInsertDTMF self = liftIO (js_getCanInsertDTMF (self))+ +foreign import javascript unsafe "$1[\"track\"]" js_getTrack ::+        RTCDTMFSender -> IO (Nullable MediaStreamTrack)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDTMFSender.track Mozilla RTCDTMFSender.track documentation> +getTrack ::+         (MonadIO m) => RTCDTMFSender -> m (Maybe MediaStreamTrack)+getTrack self = liftIO (nullableToMaybe <$> (js_getTrack (self)))+ +foreign import javascript unsafe "$1[\"toneBuffer\"]"+        js_getToneBuffer :: RTCDTMFSender -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDTMFSender.toneBuffer Mozilla RTCDTMFSender.toneBuffer documentation> +getToneBuffer ::+              (MonadIO m, FromJSString result) => RTCDTMFSender -> m result+getToneBuffer self+  = liftIO (fromJSString <$> (js_getToneBuffer (self)))+ +foreign import javascript unsafe "$1[\"duration\"]" js_getDuration+        :: RTCDTMFSender -> IO Int++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDTMFSender.duration Mozilla RTCDTMFSender.duration documentation> +getDuration :: (MonadIO m) => RTCDTMFSender -> m Int+getDuration self = liftIO (js_getDuration (self))+ +foreign import javascript unsafe "$1[\"interToneGap\"]"+        js_getInterToneGap :: RTCDTMFSender -> IO Int++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDTMFSender.interToneGap Mozilla RTCDTMFSender.interToneGap documentation> +getInterToneGap :: (MonadIO m) => RTCDTMFSender -> m Int+getInterToneGap self = liftIO (js_getInterToneGap (self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDTMFSender.ontonechange Mozilla RTCDTMFSender.ontonechange documentation> +toneChange :: EventName RTCDTMFSender Event+toneChange = unsafeEventName (toJSString "tonechange")
+ src/GHCJS/DOM/JSFFI/Generated/RTCDTMFToneChangeEvent.hs view
@@ -0,0 +1,28 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.RTCDTMFToneChangeEvent+       (js_getTone, getTone, RTCDTMFToneChangeEvent,+        castToRTCDTMFToneChangeEvent, gTypeRTCDTMFToneChangeEvent)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"tone\"]" js_getTone ::+        RTCDTMFToneChangeEvent -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDTMFToneChangeEvent.tone Mozilla RTCDTMFToneChangeEvent.tone documentation> +getTone ::+        (MonadIO m, FromJSString result) =>+          RTCDTMFToneChangeEvent -> m result+getTone self = liftIO (fromJSString <$> (js_getTone (self)))
+ src/GHCJS/DOM/JSFFI/Generated/RTCDataChannel.hs view
@@ -0,0 +1,177 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.RTCDataChannel+       (js_send, send, js_sendView, sendView, js_sendBlob, sendBlob,+        js_sendString, sendString, js_close, close, js_getLabel, getLabel,+        js_getOrdered, getOrdered, js_getMaxRetransmitTime,+        getMaxRetransmitTime, js_getMaxRetransmits, getMaxRetransmits,+        js_getProtocol, getProtocol, js_getNegotiated, getNegotiated,+        js_getId, getId, js_getReadyState, getReadyState,+        js_getBufferedAmount, getBufferedAmount, js_setBinaryType,+        setBinaryType, js_getBinaryType, getBinaryType, open, error,+        closeEvent, message, RTCDataChannel, castToRTCDataChannel,+        gTypeRTCDataChannel)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"send\"]($2)" js_send ::+        RTCDataChannel -> Nullable ArrayBuffer -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDataChannel.send Mozilla RTCDataChannel.send documentation> +send ::+     (MonadIO m, IsArrayBuffer data') =>+       RTCDataChannel -> Maybe data' -> m ()+send self data'+  = liftIO+      (js_send (self) (maybeToNullable (fmap toArrayBuffer data')))+ +foreign import javascript unsafe "$1[\"send\"]($2)" js_sendView ::+        RTCDataChannel -> Nullable ArrayBufferView -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDataChannel.send Mozilla RTCDataChannel.send documentation> +sendView ::+         (MonadIO m, IsArrayBufferView data') =>+           RTCDataChannel -> Maybe data' -> m ()+sendView self data'+  = liftIO+      (js_sendView (self)+         (maybeToNullable (fmap toArrayBufferView data')))+ +foreign import javascript unsafe "$1[\"send\"]($2)" js_sendBlob ::+        RTCDataChannel -> Nullable Blob -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDataChannel.send Mozilla RTCDataChannel.send documentation> +sendBlob ::+         (MonadIO m, IsBlob data') => RTCDataChannel -> Maybe data' -> m ()+sendBlob self data'+  = liftIO (js_sendBlob (self) (maybeToNullable (fmap toBlob data')))+ +foreign import javascript unsafe "$1[\"send\"]($2)" js_sendString+        :: RTCDataChannel -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDataChannel.send Mozilla RTCDataChannel.send documentation> +sendString ::+           (MonadIO m, ToJSString data') => RTCDataChannel -> data' -> m ()+sendString self data'+  = liftIO (js_sendString (self) (toJSString data'))+ +foreign import javascript unsafe "$1[\"close\"]()" js_close ::+        RTCDataChannel -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDataChannel.close Mozilla RTCDataChannel.close documentation> +close :: (MonadIO m) => RTCDataChannel -> m ()+close self = liftIO (js_close (self))+ +foreign import javascript unsafe "$1[\"label\"]" js_getLabel ::+        RTCDataChannel -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDataChannel.label Mozilla RTCDataChannel.label documentation> +getLabel ::+         (MonadIO m, FromJSString result) => RTCDataChannel -> m result+getLabel self = liftIO (fromJSString <$> (js_getLabel (self)))+ +foreign import javascript unsafe "($1[\"ordered\"] ? 1 : 0)"+        js_getOrdered :: RTCDataChannel -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDataChannel.ordered Mozilla RTCDataChannel.ordered documentation> +getOrdered :: (MonadIO m) => RTCDataChannel -> m Bool+getOrdered self = liftIO (js_getOrdered (self))+ +foreign import javascript unsafe "$1[\"maxRetransmitTime\"]"+        js_getMaxRetransmitTime :: RTCDataChannel -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDataChannel.maxRetransmitTime Mozilla RTCDataChannel.maxRetransmitTime documentation> +getMaxRetransmitTime :: (MonadIO m) => RTCDataChannel -> m Word+getMaxRetransmitTime self = liftIO (js_getMaxRetransmitTime (self))+ +foreign import javascript unsafe "$1[\"maxRetransmits\"]"+        js_getMaxRetransmits :: RTCDataChannel -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDataChannel.maxRetransmits Mozilla RTCDataChannel.maxRetransmits documentation> +getMaxRetransmits :: (MonadIO m) => RTCDataChannel -> m Word+getMaxRetransmits self = liftIO (js_getMaxRetransmits (self))+ +foreign import javascript unsafe "$1[\"protocol\"]" js_getProtocol+        :: RTCDataChannel -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDataChannel.protocol Mozilla RTCDataChannel.protocol documentation> +getProtocol ::+            (MonadIO m, FromJSString result) => RTCDataChannel -> m result+getProtocol self+  = liftIO (fromJSString <$> (js_getProtocol (self)))+ +foreign import javascript unsafe "($1[\"negotiated\"] ? 1 : 0)"+        js_getNegotiated :: RTCDataChannel -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDataChannel.negotiated Mozilla RTCDataChannel.negotiated documentation> +getNegotiated :: (MonadIO m) => RTCDataChannel -> m Bool+getNegotiated self = liftIO (js_getNegotiated (self))+ +foreign import javascript unsafe "$1[\"id\"]" js_getId ::+        RTCDataChannel -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDataChannel.id Mozilla RTCDataChannel.id documentation> +getId :: (MonadIO m) => RTCDataChannel -> m Word+getId self = liftIO (js_getId (self))+ +foreign import javascript unsafe "$1[\"readyState\"]"+        js_getReadyState :: RTCDataChannel -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDataChannel.readyState Mozilla RTCDataChannel.readyState documentation> +getReadyState ::+              (MonadIO m, FromJSString result) => RTCDataChannel -> m result+getReadyState self+  = liftIO (fromJSString <$> (js_getReadyState (self)))+ +foreign import javascript unsafe "$1[\"bufferedAmount\"]"+        js_getBufferedAmount :: RTCDataChannel -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDataChannel.bufferedAmount Mozilla RTCDataChannel.bufferedAmount documentation> +getBufferedAmount :: (MonadIO m) => RTCDataChannel -> m Word+getBufferedAmount self = liftIO (js_getBufferedAmount (self))+ +foreign import javascript unsafe "$1[\"binaryType\"] = $2;"+        js_setBinaryType :: RTCDataChannel -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDataChannel.binaryType Mozilla RTCDataChannel.binaryType documentation> +setBinaryType ::+              (MonadIO m, ToJSString val) => RTCDataChannel -> val -> m ()+setBinaryType self val+  = liftIO (js_setBinaryType (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"binaryType\"]"+        js_getBinaryType :: RTCDataChannel -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDataChannel.binaryType Mozilla RTCDataChannel.binaryType documentation> +getBinaryType ::+              (MonadIO m, FromJSString result) => RTCDataChannel -> m result+getBinaryType self+  = liftIO (fromJSString <$> (js_getBinaryType (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDataChannel.onopen Mozilla RTCDataChannel.onopen documentation> +open :: EventName RTCDataChannel Event+open = unsafeEventName (toJSString "open")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDataChannel.onerror Mozilla RTCDataChannel.onerror documentation> +error :: EventName RTCDataChannel UIEvent+error = unsafeEventName (toJSString "error")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDataChannel.onclose Mozilla RTCDataChannel.onclose documentation> +closeEvent :: EventName RTCDataChannel CloseEvent+closeEvent = unsafeEventName (toJSString "close")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDataChannel.onmessage Mozilla RTCDataChannel.onmessage documentation> +message :: EventName RTCDataChannel MessageEvent+message = unsafeEventName (toJSString "message")
+ src/GHCJS/DOM/JSFFI/Generated/RTCDataChannelEvent.hs view
@@ -0,0 +1,28 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.RTCDataChannelEvent+       (js_getChannel, getChannel, RTCDataChannelEvent,+        castToRTCDataChannelEvent, gTypeRTCDataChannelEvent)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"channel\"]" js_getChannel ::+        RTCDataChannelEvent -> IO (Nullable RTCDataChannel)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDataChannelEvent.channel Mozilla RTCDataChannelEvent.channel documentation> +getChannel ::+           (MonadIO m) => RTCDataChannelEvent -> m (Maybe RTCDataChannel)+getChannel self+  = liftIO (nullableToMaybe <$> (js_getChannel (self)))
+ src/GHCJS/DOM/JSFFI/Generated/RTCIceCandidate.hs view
@@ -0,0 +1,58 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.RTCIceCandidate+       (js_newRTCIceCandidate, newRTCIceCandidate, js_getCandidate,+        getCandidate, js_getSdpMid, getSdpMid, js_getSdpMLineIndex,+        getSdpMLineIndex, RTCIceCandidate, castToRTCIceCandidate,+        gTypeRTCIceCandidate)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe+        "new window[\"RTCIceCandidate\"]($1)" js_newRTCIceCandidate ::+        Nullable Dictionary -> IO RTCIceCandidate++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCIceCandidate Mozilla RTCIceCandidate documentation> +newRTCIceCandidate ::+                   (MonadIO m, IsDictionary dictionary) =>+                     Maybe dictionary -> m RTCIceCandidate+newRTCIceCandidate dictionary+  = liftIO+      (js_newRTCIceCandidate+         (maybeToNullable (fmap toDictionary dictionary)))+ +foreign import javascript unsafe "$1[\"candidate\"]"+        js_getCandidate :: RTCIceCandidate -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCIceCandidate.candidate Mozilla RTCIceCandidate.candidate documentation> +getCandidate ::+             (MonadIO m, FromJSString result) => RTCIceCandidate -> m result+getCandidate self+  = liftIO (fromJSString <$> (js_getCandidate (self)))+ +foreign import javascript unsafe "$1[\"sdpMid\"]" js_getSdpMid ::+        RTCIceCandidate -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCIceCandidate.sdpMid Mozilla RTCIceCandidate.sdpMid documentation> +getSdpMid ::+          (MonadIO m, FromJSString result) => RTCIceCandidate -> m result+getSdpMid self = liftIO (fromJSString <$> (js_getSdpMid (self)))+ +foreign import javascript unsafe "$1[\"sdpMLineIndex\"]"+        js_getSdpMLineIndex :: RTCIceCandidate -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCIceCandidate.sdpMLineIndex Mozilla RTCIceCandidate.sdpMLineIndex documentation> +getSdpMLineIndex :: (MonadIO m) => RTCIceCandidate -> m Word+getSdpMLineIndex self = liftIO (js_getSdpMLineIndex (self))
+ src/GHCJS/DOM/JSFFI/Generated/RTCIceCandidateEvent.hs view
@@ -0,0 +1,29 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.RTCIceCandidateEvent+       (js_getCandidate, getCandidate, RTCIceCandidateEvent,+        castToRTCIceCandidateEvent, gTypeRTCIceCandidateEvent)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"candidate\"]"+        js_getCandidate ::+        RTCIceCandidateEvent -> IO (Nullable RTCIceCandidate)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCIceCandidateEvent.candidate Mozilla RTCIceCandidateEvent.candidate documentation> +getCandidate ::+             (MonadIO m) => RTCIceCandidateEvent -> m (Maybe RTCIceCandidate)+getCandidate self+  = liftIO (nullableToMaybe <$> (js_getCandidate (self)))
+ src/GHCJS/DOM/JSFFI/Generated/RTCIceServer.hs view
@@ -0,0 +1,46 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.RTCIceServer+       (js_getUrls, getUrls, js_getUsername, getUsername,+        js_getCredential, getCredential, RTCIceServer, castToRTCIceServer,+        gTypeRTCIceServer)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"urls\"]" js_getUrls ::+        RTCIceServer -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCIceServer.urls Mozilla RTCIceServer.urls documentation> +getUrls ::+        (MonadIO m, FromJSString result) => RTCIceServer -> m [result]+getUrls self = liftIO ((js_getUrls (self)) >>= fromJSValUnchecked)+ +foreign import javascript unsafe "$1[\"username\"]" js_getUsername+        :: RTCIceServer -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCIceServer.username Mozilla RTCIceServer.username documentation> +getUsername ::+            (MonadIO m, FromJSString result) => RTCIceServer -> m result+getUsername self+  = liftIO (fromJSString <$> (js_getUsername (self)))+ +foreign import javascript unsafe "$1[\"credential\"]"+        js_getCredential :: RTCIceServer -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCIceServer.credential Mozilla RTCIceServer.credential documentation> +getCredential ::+              (MonadIO m, FromJSString result) => RTCIceServer -> m result+getCredential self+  = liftIO (fromJSString <$> (js_getCredential (self)))
+ src/GHCJS/DOM/JSFFI/Generated/RTCPeerConnection.hs view
@@ -0,0 +1,355 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.RTCPeerConnection+       (js_newRTCPeerConnection, newRTCPeerConnection, js_createOffer,+        createOffer, js_createAnswer, createAnswer, js_setLocalDescription,+        setLocalDescription, js_setRemoteDescription, setRemoteDescription,+        js_updateIce, updateIce, js_addIceCandidate, addIceCandidate,+        js_getLocalStreams, getLocalStreams, js_getRemoteStreams,+        getRemoteStreams, js_getStreamById, getStreamById,+        js_getConfiguration, getConfiguration, js_addStream, addStream,+        js_removeStream, removeStream, js_getStats, getStats,+        js_createDataChannel, createDataChannel, js_createDTMFSender,+        createDTMFSender, js_close, close, js_getLocalDescription,+        getLocalDescription, js_getRemoteDescription, getRemoteDescription,+        js_getSignalingState, getSignalingState, js_getIceGatheringState,+        getIceGatheringState, js_getIceConnectionState,+        getIceConnectionState, negotiationNeeded, iceCandidate,+        signalingStateChange, addStreamEvent, removeStreamEvent,+        iceConnectionStateChange, dataChannel, RTCPeerConnection,+        castToRTCPeerConnection, gTypeRTCPeerConnection)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe+        "new window[\"webkitRTCPeerConnection\"]($1)"+        js_newRTCPeerConnection ::+        Nullable Dictionary -> IO RTCPeerConnection++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection Mozilla webkitRTCPeerConnection documentation> +newRTCPeerConnection ::+                     (MonadIO m, IsDictionary rtcConfiguration) =>+                       Maybe rtcConfiguration -> m RTCPeerConnection+newRTCPeerConnection rtcConfiguration+  = liftIO+      (js_newRTCPeerConnection+         (maybeToNullable (fmap toDictionary rtcConfiguration)))+ +foreign import javascript unsafe "$1[\"createOffer\"]($2, $3, $4)"+        js_createOffer ::+        RTCPeerConnection ->+          Nullable RTCSessionDescriptionCallback ->+            Nullable RTCPeerConnectionErrorCallback ->+              Nullable Dictionary -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.createOffer Mozilla webkitRTCPeerConnection.createOffer documentation> +createOffer ::+            (MonadIO m, IsDictionary offerOptions) =>+              RTCPeerConnection ->+                Maybe RTCSessionDescriptionCallback ->+                  Maybe RTCPeerConnectionErrorCallback -> Maybe offerOptions -> m ()+createOffer self successCallback failureCallback offerOptions+  = liftIO+      (js_createOffer (self) (maybeToNullable successCallback)+         (maybeToNullable failureCallback)+         (maybeToNullable (fmap toDictionary offerOptions)))+ +foreign import javascript unsafe "$1[\"createAnswer\"]($2, $3, $4)"+        js_createAnswer ::+        RTCPeerConnection ->+          Nullable RTCSessionDescriptionCallback ->+            Nullable RTCPeerConnectionErrorCallback ->+              Nullable Dictionary -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.createAnswer Mozilla webkitRTCPeerConnection.createAnswer documentation> +createAnswer ::+             (MonadIO m, IsDictionary answerOptions) =>+               RTCPeerConnection ->+                 Maybe RTCSessionDescriptionCallback ->+                   Maybe RTCPeerConnectionErrorCallback -> Maybe answerOptions -> m ()+createAnswer self successCallback failureCallback answerOptions+  = liftIO+      (js_createAnswer (self) (maybeToNullable successCallback)+         (maybeToNullable failureCallback)+         (maybeToNullable (fmap toDictionary answerOptions)))+ +foreign import javascript unsafe+        "$1[\"setLocalDescription\"]($2,\n$3, $4)" js_setLocalDescription+        ::+        RTCPeerConnection ->+          Nullable RTCSessionDescription ->+            Nullable VoidCallback ->+              Nullable RTCPeerConnectionErrorCallback -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.setLocalDescription Mozilla webkitRTCPeerConnection.setLocalDescription documentation> +setLocalDescription ::+                    (MonadIO m) =>+                      RTCPeerConnection ->+                        Maybe RTCSessionDescription ->+                          Maybe VoidCallback -> Maybe RTCPeerConnectionErrorCallback -> m ()+setLocalDescription self description successCallback+  failureCallback+  = liftIO+      (js_setLocalDescription (self) (maybeToNullable description)+         (maybeToNullable successCallback)+         (maybeToNullable failureCallback))+ +foreign import javascript unsafe+        "$1[\"setRemoteDescription\"]($2,\n$3, $4)" js_setRemoteDescription+        ::+        RTCPeerConnection ->+          Nullable RTCSessionDescription ->+            Nullable VoidCallback ->+              Nullable RTCPeerConnectionErrorCallback -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.setRemoteDescription Mozilla webkitRTCPeerConnection.setRemoteDescription documentation> +setRemoteDescription ::+                     (MonadIO m) =>+                       RTCPeerConnection ->+                         Maybe RTCSessionDescription ->+                           Maybe VoidCallback -> Maybe RTCPeerConnectionErrorCallback -> m ()+setRemoteDescription self description successCallback+  failureCallback+  = liftIO+      (js_setRemoteDescription (self) (maybeToNullable description)+         (maybeToNullable successCallback)+         (maybeToNullable failureCallback))+ +foreign import javascript unsafe "$1[\"updateIce\"]($2)"+        js_updateIce :: RTCPeerConnection -> Nullable Dictionary -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.updateIce Mozilla webkitRTCPeerConnection.updateIce documentation> +updateIce ::+          (MonadIO m, IsDictionary configuration) =>+            RTCPeerConnection -> Maybe configuration -> m ()+updateIce self configuration+  = liftIO+      (js_updateIce (self)+         (maybeToNullable (fmap toDictionary configuration)))+ +foreign import javascript unsafe+        "$1[\"addIceCandidate\"]($2, $3,\n$4)" js_addIceCandidate ::+        RTCPeerConnection ->+          Nullable RTCIceCandidate ->+            Nullable VoidCallback ->+              Nullable RTCPeerConnectionErrorCallback -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.addIceCandidate Mozilla webkitRTCPeerConnection.addIceCandidate documentation> +addIceCandidate ::+                (MonadIO m) =>+                  RTCPeerConnection ->+                    Maybe RTCIceCandidate ->+                      Maybe VoidCallback -> Maybe RTCPeerConnectionErrorCallback -> m ()+addIceCandidate self candidate successCallback failureCallback+  = liftIO+      (js_addIceCandidate (self) (maybeToNullable candidate)+         (maybeToNullable successCallback)+         (maybeToNullable failureCallback))+ +foreign import javascript unsafe "$1[\"getLocalStreams\"]()"+        js_getLocalStreams :: RTCPeerConnection -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.getLocalStreams Mozilla webkitRTCPeerConnection.getLocalStreams documentation> +getLocalStreams ::+                (MonadIO m) => RTCPeerConnection -> m [Maybe MediaStream]+getLocalStreams self+  = liftIO ((js_getLocalStreams (self)) >>= fromJSValUnchecked)+ +foreign import javascript unsafe "$1[\"getRemoteStreams\"]()"+        js_getRemoteStreams :: RTCPeerConnection -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.getRemoteStreams Mozilla webkitRTCPeerConnection.getRemoteStreams documentation> +getRemoteStreams ::+                 (MonadIO m) => RTCPeerConnection -> m [Maybe MediaStream]+getRemoteStreams self+  = liftIO ((js_getRemoteStreams (self)) >>= fromJSValUnchecked)+ +foreign import javascript unsafe "$1[\"getStreamById\"]($2)"+        js_getStreamById ::+        RTCPeerConnection -> JSString -> IO (Nullable MediaStream)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.getStreamById Mozilla webkitRTCPeerConnection.getStreamById documentation> +getStreamById ::+              (MonadIO m, ToJSString streamId) =>+                RTCPeerConnection -> streamId -> m (Maybe MediaStream)+getStreamById self streamId+  = liftIO+      (nullableToMaybe <$>+         (js_getStreamById (self) (toJSString streamId)))+ +foreign import javascript unsafe "$1[\"getConfiguration\"]()"+        js_getConfiguration ::+        RTCPeerConnection -> IO (Nullable RTCConfiguration)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.getConfiguration Mozilla webkitRTCPeerConnection.getConfiguration documentation> +getConfiguration ::+                 (MonadIO m) => RTCPeerConnection -> m (Maybe RTCConfiguration)+getConfiguration self+  = liftIO (nullableToMaybe <$> (js_getConfiguration (self)))+ +foreign import javascript unsafe "$1[\"addStream\"]($2)"+        js_addStream :: RTCPeerConnection -> Nullable MediaStream -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.addStream Mozilla webkitRTCPeerConnection.addStream documentation> +addStream ::+          (MonadIO m) => RTCPeerConnection -> Maybe MediaStream -> m ()+addStream self stream+  = liftIO (js_addStream (self) (maybeToNullable stream))+ +foreign import javascript unsafe "$1[\"removeStream\"]($2)"+        js_removeStream ::+        RTCPeerConnection -> Nullable MediaStream -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.removeStream Mozilla webkitRTCPeerConnection.removeStream documentation> +removeStream ::+             (MonadIO m) => RTCPeerConnection -> Maybe MediaStream -> m ()+removeStream self stream+  = liftIO (js_removeStream (self) (maybeToNullable stream))+ +foreign import javascript unsafe "$1[\"getStats\"]($2, $3, $4)"+        js_getStats ::+        RTCPeerConnection ->+          Nullable RTCStatsCallback ->+            Nullable RTCPeerConnectionErrorCallback ->+              Nullable MediaStreamTrack -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.getStats Mozilla webkitRTCPeerConnection.getStats documentation> +getStats ::+         (MonadIO m, IsMediaStreamTrack selector) =>+           RTCPeerConnection ->+             Maybe RTCStatsCallback ->+               Maybe RTCPeerConnectionErrorCallback -> Maybe selector -> m ()+getStats self successCallback failureCallback selector+  = liftIO+      (js_getStats (self) (maybeToNullable successCallback)+         (maybeToNullable failureCallback)+         (maybeToNullable (fmap toMediaStreamTrack selector)))+ +foreign import javascript unsafe+        "$1[\"createDataChannel\"]($2, $3)" js_createDataChannel ::+        RTCPeerConnection ->+          Nullable JSString ->+            Nullable Dictionary -> IO (Nullable RTCDataChannel)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.createDataChannel Mozilla webkitRTCPeerConnection.createDataChannel documentation> +createDataChannel ::+                  (MonadIO m, ToJSString label, IsDictionary options) =>+                    RTCPeerConnection ->+                      Maybe label -> Maybe options -> m (Maybe RTCDataChannel)+createDataChannel self label options+  = liftIO+      (nullableToMaybe <$>+         (js_createDataChannel (self) (toMaybeJSString label)+            (maybeToNullable (fmap toDictionary options))))+ +foreign import javascript unsafe "$1[\"createDTMFSender\"]($2)"+        js_createDTMFSender ::+        RTCPeerConnection ->+          Nullable MediaStreamTrack -> IO (Nullable RTCDTMFSender)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.createDTMFSender Mozilla webkitRTCPeerConnection.createDTMFSender documentation> +createDTMFSender ::+                 (MonadIO m, IsMediaStreamTrack track) =>+                   RTCPeerConnection -> Maybe track -> m (Maybe RTCDTMFSender)+createDTMFSender self track+  = liftIO+      (nullableToMaybe <$>+         (js_createDTMFSender (self)+            (maybeToNullable (fmap toMediaStreamTrack track))))+ +foreign import javascript unsafe "$1[\"close\"]()" js_close ::+        RTCPeerConnection -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.close Mozilla webkitRTCPeerConnection.close documentation> +close :: (MonadIO m) => RTCPeerConnection -> m ()+close self = liftIO (js_close (self))+ +foreign import javascript unsafe "$1[\"localDescription\"]"+        js_getLocalDescription ::+        RTCPeerConnection -> IO (Nullable RTCSessionDescription)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.localDescription Mozilla webkitRTCPeerConnection.localDescription documentation> +getLocalDescription ::+                    (MonadIO m) => RTCPeerConnection -> m (Maybe RTCSessionDescription)+getLocalDescription self+  = liftIO (nullableToMaybe <$> (js_getLocalDescription (self)))+ +foreign import javascript unsafe "$1[\"remoteDescription\"]"+        js_getRemoteDescription ::+        RTCPeerConnection -> IO (Nullable RTCSessionDescription)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.remoteDescription Mozilla webkitRTCPeerConnection.remoteDescription documentation> +getRemoteDescription ::+                     (MonadIO m) => RTCPeerConnection -> m (Maybe RTCSessionDescription)+getRemoteDescription self+  = liftIO (nullableToMaybe <$> (js_getRemoteDescription (self)))+ +foreign import javascript unsafe "$1[\"signalingState\"]"+        js_getSignalingState :: RTCPeerConnection -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.signalingState Mozilla webkitRTCPeerConnection.signalingState documentation> +getSignalingState ::+                  (MonadIO m, FromJSString result) => RTCPeerConnection -> m result+getSignalingState self+  = liftIO (fromJSString <$> (js_getSignalingState (self)))+ +foreign import javascript unsafe "$1[\"iceGatheringState\"]"+        js_getIceGatheringState :: RTCPeerConnection -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.iceGatheringState Mozilla webkitRTCPeerConnection.iceGatheringState documentation> +getIceGatheringState ::+                     (MonadIO m, FromJSString result) => RTCPeerConnection -> m result+getIceGatheringState self+  = liftIO (fromJSString <$> (js_getIceGatheringState (self)))+ +foreign import javascript unsafe "$1[\"iceConnectionState\"]"+        js_getIceConnectionState :: RTCPeerConnection -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.iceConnectionState Mozilla webkitRTCPeerConnection.iceConnectionState documentation> +getIceConnectionState ::+                      (MonadIO m, FromJSString result) => RTCPeerConnection -> m result+getIceConnectionState self+  = liftIO (fromJSString <$> (js_getIceConnectionState (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.onnegotiationneeded Mozilla webkitRTCPeerConnection.onnegotiationneeded documentation> +negotiationNeeded :: EventName RTCPeerConnection Event+negotiationNeeded+  = unsafeEventName (toJSString "negotiationneeded")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.onicecandidate Mozilla webkitRTCPeerConnection.onicecandidate documentation> +iceCandidate :: EventName RTCPeerConnection RTCIceCandidateEvent+iceCandidate = unsafeEventName (toJSString "icecandidate")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.onsignalingstatechange Mozilla webkitRTCPeerConnection.onsignalingstatechange documentation> +signalingStateChange :: EventName RTCPeerConnection Event+signalingStateChange+  = unsafeEventName (toJSString "signalingstatechange")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.onaddstream Mozilla webkitRTCPeerConnection.onaddstream documentation> +addStreamEvent :: EventName RTCPeerConnection Event+addStreamEvent = unsafeEventName (toJSString "addstream")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.onremovestream Mozilla webkitRTCPeerConnection.onremovestream documentation> +removeStreamEvent :: EventName RTCPeerConnection Event+removeStreamEvent = unsafeEventName (toJSString "removestream")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.oniceconnectionstatechange Mozilla webkitRTCPeerConnection.oniceconnectionstatechange documentation> +iceConnectionStateChange :: EventName RTCPeerConnection Event+iceConnectionStateChange+  = unsafeEventName (toJSString "iceconnectionstatechange")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.ondatachannel Mozilla webkitRTCPeerConnection.ondatachannel documentation> +dataChannel :: EventName RTCPeerConnection Event+dataChannel = unsafeEventName (toJSString "datachannel")
+ src/GHCJS/DOM/JSFFI/Generated/RTCPeerConnectionErrorCallback.hs view
@@ -0,0 +1,56 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.RTCPeerConnectionErrorCallback+       (newRTCPeerConnectionErrorCallback,+        newRTCPeerConnectionErrorCallbackSync,+        newRTCPeerConnectionErrorCallbackAsync,+        RTCPeerConnectionErrorCallback)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCPeerConnectionErrorCallback Mozilla RTCPeerConnectionErrorCallback documentation> +newRTCPeerConnectionErrorCallback ::+                                  (MonadIO m) =>+                                    (Maybe DOMError -> IO ()) -> m RTCPeerConnectionErrorCallback+newRTCPeerConnectionErrorCallback callback+  = liftIO+      (RTCPeerConnectionErrorCallback <$>+         syncCallback1 ThrowWouldBlock+           (\ error ->+              fromJSValUnchecked error >>= \ error' -> callback error'))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCPeerConnectionErrorCallback Mozilla RTCPeerConnectionErrorCallback documentation> +newRTCPeerConnectionErrorCallbackSync ::+                                      (MonadIO m) =>+                                        (Maybe DOMError -> IO ()) ->+                                          m RTCPeerConnectionErrorCallback+newRTCPeerConnectionErrorCallbackSync callback+  = liftIO+      (RTCPeerConnectionErrorCallback <$>+         syncCallback1 ContinueAsync+           (\ error ->+              fromJSValUnchecked error >>= \ error' -> callback error'))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCPeerConnectionErrorCallback Mozilla RTCPeerConnectionErrorCallback documentation> +newRTCPeerConnectionErrorCallbackAsync ::+                                       (MonadIO m) =>+                                         (Maybe DOMError -> IO ()) ->+                                           m RTCPeerConnectionErrorCallback+newRTCPeerConnectionErrorCallbackAsync callback+  = liftIO+      (RTCPeerConnectionErrorCallback <$>+         asyncCallback1+           (\ error ->+              fromJSValUnchecked error >>= \ error' -> callback error'))
+ src/GHCJS/DOM/JSFFI/Generated/RTCSessionDescription.hs view
@@ -0,0 +1,69 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.RTCSessionDescription+       (js_newRTCSessionDescription, newRTCSessionDescription, js_setType,+        setType, js_getType, getType, js_setSdp, setSdp, js_getSdp, getSdp,+        RTCSessionDescription, castToRTCSessionDescription,+        gTypeRTCSessionDescription)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe+        "new window[\"RTCSessionDescription\"]($1)"+        js_newRTCSessionDescription ::+        Nullable Dictionary -> IO RTCSessionDescription++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCSessionDescription Mozilla RTCSessionDescription documentation> +newRTCSessionDescription ::+                         (MonadIO m, IsDictionary dictionary) =>+                           Maybe dictionary -> m RTCSessionDescription+newRTCSessionDescription dictionary+  = liftIO+      (js_newRTCSessionDescription+         (maybeToNullable (fmap toDictionary dictionary)))+ +foreign import javascript unsafe "$1[\"type\"] = $2;" js_setType ::+        RTCSessionDescription -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCSessionDescription.type Mozilla RTCSessionDescription.type documentation> +setType ::+        (MonadIO m, ToJSString val) => RTCSessionDescription -> val -> m ()+setType self val = liftIO (js_setType (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"type\"]" js_getType ::+        RTCSessionDescription -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCSessionDescription.type Mozilla RTCSessionDescription.type documentation> +getType ::+        (MonadIO m, FromJSString result) =>+          RTCSessionDescription -> m result+getType self = liftIO (fromJSString <$> (js_getType (self)))+ +foreign import javascript unsafe "$1[\"sdp\"] = $2;" js_setSdp ::+        RTCSessionDescription -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCSessionDescription.sdp Mozilla RTCSessionDescription.sdp documentation> +setSdp ::+       (MonadIO m, ToJSString val) => RTCSessionDescription -> val -> m ()+setSdp self val = liftIO (js_setSdp (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"sdp\"]" js_getSdp ::+        RTCSessionDescription -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCSessionDescription.sdp Mozilla RTCSessionDescription.sdp documentation> +getSdp ::+       (MonadIO m, FromJSString result) =>+         RTCSessionDescription -> m result+getSdp self = liftIO (fromJSString <$> (js_getSdp (self)))
+ src/GHCJS/DOM/JSFFI/Generated/RTCSessionDescriptionCallback.hs view
@@ -0,0 +1,54 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.RTCSessionDescriptionCallback+       (newRTCSessionDescriptionCallback,+        newRTCSessionDescriptionCallbackSync,+        newRTCSessionDescriptionCallbackAsync,+        RTCSessionDescriptionCallback)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCSessionDescriptionCallback Mozilla RTCSessionDescriptionCallback documentation> +newRTCSessionDescriptionCallback ::+                                 (MonadIO m) =>+                                   (Maybe RTCSessionDescription -> IO ()) ->+                                     m RTCSessionDescriptionCallback+newRTCSessionDescriptionCallback callback+  = liftIO+      (RTCSessionDescriptionCallback <$>+         syncCallback1 ThrowWouldBlock+           (\ sdp -> fromJSValUnchecked sdp >>= \ sdp' -> callback sdp'))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCSessionDescriptionCallback Mozilla RTCSessionDescriptionCallback documentation> +newRTCSessionDescriptionCallbackSync ::+                                     (MonadIO m) =>+                                       (Maybe RTCSessionDescription -> IO ()) ->+                                         m RTCSessionDescriptionCallback+newRTCSessionDescriptionCallbackSync callback+  = liftIO+      (RTCSessionDescriptionCallback <$>+         syncCallback1 ContinueAsync+           (\ sdp -> fromJSValUnchecked sdp >>= \ sdp' -> callback sdp'))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCSessionDescriptionCallback Mozilla RTCSessionDescriptionCallback documentation> +newRTCSessionDescriptionCallbackAsync ::+                                      (MonadIO m) =>+                                        (Maybe RTCSessionDescription -> IO ()) ->+                                          m RTCSessionDescriptionCallback+newRTCSessionDescriptionCallbackAsync callback+  = liftIO+      (RTCSessionDescriptionCallback <$>+         asyncCallback1+           (\ sdp -> fromJSValUnchecked sdp >>= \ sdp' -> callback sdp'))
+ src/GHCJS/DOM/JSFFI/Generated/RTCStatsCallback.hs view
@@ -0,0 +1,52 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.RTCStatsCallback+       (newRTCStatsCallback, newRTCStatsCallbackSync,+        newRTCStatsCallbackAsync, RTCStatsCallback)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCStatsCallback Mozilla RTCStatsCallback documentation> +newRTCStatsCallback ::+                    (MonadIO m) =>+                      (Maybe RTCStatsResponse -> IO ()) -> m RTCStatsCallback+newRTCStatsCallback callback+  = liftIO+      (RTCStatsCallback <$>+         syncCallback1 ThrowWouldBlock+           (\ response ->+              fromJSValUnchecked response >>= \ response' -> callback response'))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCStatsCallback Mozilla RTCStatsCallback documentation> +newRTCStatsCallbackSync ::+                        (MonadIO m) =>+                          (Maybe RTCStatsResponse -> IO ()) -> m RTCStatsCallback+newRTCStatsCallbackSync callback+  = liftIO+      (RTCStatsCallback <$>+         syncCallback1 ContinueAsync+           (\ response ->+              fromJSValUnchecked response >>= \ response' -> callback response'))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCStatsCallback Mozilla RTCStatsCallback documentation> +newRTCStatsCallbackAsync ::+                         (MonadIO m) =>+                           (Maybe RTCStatsResponse -> IO ()) -> m RTCStatsCallback+newRTCStatsCallbackAsync callback+  = liftIO+      (RTCStatsCallback <$>+         asyncCallback1+           (\ response ->+              fromJSValUnchecked response >>= \ response' -> callback response'))
+ src/GHCJS/DOM/JSFFI/Generated/RTCStatsReport.hs view
@@ -0,0 +1,79 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.RTCStatsReport+       (js_stat, stat, js_names, names, js_getTimestamp, getTimestamp,+        js_getId, getId, js_getType, getType, js_getLocal, getLocal,+        js_getRemote, getRemote, RTCStatsReport, castToRTCStatsReport,+        gTypeRTCStatsReport)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"stat\"]($2)" js_stat ::+        RTCStatsReport -> JSString -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCStatsReport.stat Mozilla RTCStatsReport.stat documentation> +stat ::+     (MonadIO m, ToJSString name, FromJSString result) =>+       RTCStatsReport -> name -> m result+stat self name+  = liftIO (fromJSString <$> (js_stat (self) (toJSString name)))+ +foreign import javascript unsafe "$1[\"names\"]()" js_names ::+        RTCStatsReport -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCStatsReport.names Mozilla RTCStatsReport.names documentation> +names ::+      (MonadIO m, FromJSString result) => RTCStatsReport -> m [result]+names self = liftIO ((js_names (self)) >>= fromJSValUnchecked)+ +foreign import javascript unsafe "$1[\"timestamp\"]"+        js_getTimestamp :: RTCStatsReport -> IO (Nullable Date)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCStatsReport.timestamp Mozilla RTCStatsReport.timestamp documentation> +getTimestamp :: (MonadIO m) => RTCStatsReport -> m (Maybe Date)+getTimestamp self+  = liftIO (nullableToMaybe <$> (js_getTimestamp (self)))+ +foreign import javascript unsafe "$1[\"id\"]" js_getId ::+        RTCStatsReport -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCStatsReport.id Mozilla RTCStatsReport.id documentation> +getId ::+      (MonadIO m, FromJSString result) => RTCStatsReport -> m result+getId self = liftIO (fromJSString <$> (js_getId (self)))+ +foreign import javascript unsafe "$1[\"type\"]" js_getType ::+        RTCStatsReport -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCStatsReport.type Mozilla RTCStatsReport.type documentation> +getType ::+        (MonadIO m, FromJSString result) => RTCStatsReport -> m result+getType self = liftIO (fromJSString <$> (js_getType (self)))+ +foreign import javascript unsafe "$1[\"local\"]" js_getLocal ::+        RTCStatsReport -> IO (Nullable RTCStatsReport)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCStatsReport.local Mozilla RTCStatsReport.local documentation> +getLocal ::+         (MonadIO m) => RTCStatsReport -> m (Maybe RTCStatsReport)+getLocal self = liftIO (nullableToMaybe <$> (js_getLocal (self)))+ +foreign import javascript unsafe "$1[\"remote\"]" js_getRemote ::+        RTCStatsReport -> IO (Nullable RTCStatsReport)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCStatsReport.remote Mozilla RTCStatsReport.remote documentation> +getRemote ::+          (MonadIO m) => RTCStatsReport -> m (Maybe RTCStatsReport)+getRemote self = liftIO (nullableToMaybe <$> (js_getRemote (self)))
+ src/GHCJS/DOM/JSFFI/Generated/RTCStatsResponse.hs view
@@ -0,0 +1,39 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.RTCStatsResponse+       (js_result, result, js_namedItem, namedItem, RTCStatsResponse,+        castToRTCStatsResponse, gTypeRTCStatsResponse)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"result\"]()" js_result ::+        RTCStatsResponse -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCStatsResponse.result Mozilla RTCStatsResponse.result documentation> +result ::+       (MonadIO m) => RTCStatsResponse -> m [Maybe RTCStatsReport]+result self = liftIO ((js_result (self)) >>= fromJSValUnchecked)+ +foreign import javascript unsafe "$1[\"namedItem\"]($2)"+        js_namedItem ::+        RTCStatsResponse -> JSString -> IO (Nullable RTCStatsReport)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCStatsResponse.namedItem Mozilla RTCStatsResponse.namedItem documentation> +namedItem ::+          (MonadIO m, ToJSString name) =>+            RTCStatsResponse -> name -> m (Maybe RTCStatsReport)+namedItem self name+  = liftIO+      (nullableToMaybe <$> (js_namedItem (self) (toJSString name)))
+ src/GHCJS/DOM/JSFFI/Generated/RadioNodeList.hs view
@@ -0,0 +1,43 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.RadioNodeList+       (js__get, _get, js_setValue, setValue, js_getValue, getValue,+        RadioNodeList, castToRadioNodeList, gTypeRadioNodeList)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"_get\"]($2)" js__get ::+        RadioNodeList -> Word -> IO (Nullable Node)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RadioNodeList._get Mozilla RadioNodeList._get documentation> +_get :: (MonadIO m) => RadioNodeList -> Word -> m (Maybe Node)+_get self index+  = liftIO (nullableToMaybe <$> (js__get (self) index))+ +foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue+        :: RadioNodeList -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RadioNodeList.value Mozilla RadioNodeList.value documentation> +setValue ::+         (MonadIO m, ToJSString val) => RadioNodeList -> val -> m ()+setValue self val = liftIO (js_setValue (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"value\"]" js_getValue ::+        RadioNodeList -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RadioNodeList.value Mozilla RadioNodeList.value documentation> +getValue ::+         (MonadIO m, FromJSString result) => RadioNodeList -> m result+getValue self = liftIO (fromJSString <$> (js_getValue (self)))
+ src/GHCJS/DOM/JSFFI/Generated/Range.hs view
@@ -0,0 +1,352 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.Range+       (js_newRange, newRange, js_setStart, setStart, js_setEnd, setEnd,+        js_setStartBefore, setStartBefore, js_setStartAfter, setStartAfter,+        js_setEndBefore, setEndBefore, js_setEndAfter, setEndAfter,+        js_collapse, collapse, js_selectNode, selectNode,+        js_selectNodeContents, selectNodeContents,+        js_compareBoundaryPoints, compareBoundaryPoints, js_deleteContents,+        deleteContents, js_extractContents, extractContents,+        js_cloneContents, cloneContents, js_insertNode, insertNode,+        js_surroundContents, surroundContents, js_cloneRange, cloneRange,+        js_toString, toString, js_detach, detach, js_getClientRects,+        getClientRects, js_getBoundingClientRect, getBoundingClientRect,+        js_createContextualFragment, createContextualFragment,+        js_intersectsNode, intersectsNode, js_compareNode, compareNode,+        js_comparePoint, comparePoint, js_isPointInRange, isPointInRange,+        js_expand, expand, pattern START_TO_START, pattern START_TO_END,+        pattern END_TO_END, pattern END_TO_START, pattern NODE_BEFORE,+        pattern NODE_AFTER, pattern NODE_BEFORE_AND_AFTER,+        pattern NODE_INSIDE, js_getStartContainer, getStartContainer,+        js_getStartOffset, getStartOffset, js_getEndContainer,+        getEndContainer, js_getEndOffset, getEndOffset, js_getCollapsed,+        getCollapsed, js_getCommonAncestorContainer,+        getCommonAncestorContainer, Range, castToRange, gTypeRange)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "new window[\"Range\"]()"+        js_newRange :: IO Range++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range Mozilla Range documentation> +newRange :: (MonadIO m) => m Range+newRange = liftIO (js_newRange)+ +foreign import javascript unsafe "$1[\"setStart\"]($2, $3)"+        js_setStart :: Range -> Nullable Node -> Int -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.setStart Mozilla Range.setStart documentation> +setStart ::+         (MonadIO m, IsNode refNode) =>+           Range -> Maybe refNode -> Int -> m ()+setStart self refNode offset+  = liftIO+      (js_setStart (self) (maybeToNullable (fmap toNode refNode)) offset)+ +foreign import javascript unsafe "$1[\"setEnd\"]($2, $3)" js_setEnd+        :: Range -> Nullable Node -> Int -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.setEnd Mozilla Range.setEnd documentation> +setEnd ::+       (MonadIO m, IsNode refNode) =>+         Range -> Maybe refNode -> Int -> m ()+setEnd self refNode offset+  = liftIO+      (js_setEnd (self) (maybeToNullable (fmap toNode refNode)) offset)+ +foreign import javascript unsafe "$1[\"setStartBefore\"]($2)"+        js_setStartBefore :: Range -> Nullable Node -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.setStartBefore Mozilla Range.setStartBefore documentation> +setStartBefore ::+               (MonadIO m, IsNode refNode) => Range -> Maybe refNode -> m ()+setStartBefore self refNode+  = liftIO+      (js_setStartBefore (self) (maybeToNullable (fmap toNode refNode)))+ +foreign import javascript unsafe "$1[\"setStartAfter\"]($2)"+        js_setStartAfter :: Range -> Nullable Node -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.setStartAfter Mozilla Range.setStartAfter documentation> +setStartAfter ::+              (MonadIO m, IsNode refNode) => Range -> Maybe refNode -> m ()+setStartAfter self refNode+  = liftIO+      (js_setStartAfter (self) (maybeToNullable (fmap toNode refNode)))+ +foreign import javascript unsafe "$1[\"setEndBefore\"]($2)"+        js_setEndBefore :: Range -> Nullable Node -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.setEndBefore Mozilla Range.setEndBefore documentation> +setEndBefore ::+             (MonadIO m, IsNode refNode) => Range -> Maybe refNode -> m ()+setEndBefore self refNode+  = liftIO+      (js_setEndBefore (self) (maybeToNullable (fmap toNode refNode)))+ +foreign import javascript unsafe "$1[\"setEndAfter\"]($2)"+        js_setEndAfter :: Range -> Nullable Node -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.setEndAfter Mozilla Range.setEndAfter documentation> +setEndAfter ::+            (MonadIO m, IsNode refNode) => Range -> Maybe refNode -> m ()+setEndAfter self refNode+  = liftIO+      (js_setEndAfter (self) (maybeToNullable (fmap toNode refNode)))+ +foreign import javascript unsafe "$1[\"collapse\"]($2)" js_collapse+        :: Range -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.collapse Mozilla Range.collapse documentation> +collapse :: (MonadIO m) => Range -> Bool -> m ()+collapse self toStart = liftIO (js_collapse (self) toStart)+ +foreign import javascript unsafe "$1[\"selectNode\"]($2)"+        js_selectNode :: Range -> Nullable Node -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.selectNode Mozilla Range.selectNode documentation> +selectNode ::+           (MonadIO m, IsNode refNode) => Range -> Maybe refNode -> m ()+selectNode self refNode+  = liftIO+      (js_selectNode (self) (maybeToNullable (fmap toNode refNode)))+ +foreign import javascript unsafe "$1[\"selectNodeContents\"]($2)"+        js_selectNodeContents :: Range -> Nullable Node -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.selectNodeContents Mozilla Range.selectNodeContents documentation> +selectNodeContents ::+                   (MonadIO m, IsNode refNode) => Range -> Maybe refNode -> m ()+selectNodeContents self refNode+  = liftIO+      (js_selectNodeContents (self)+         (maybeToNullable (fmap toNode refNode)))+ +foreign import javascript unsafe+        "$1[\"compareBoundaryPoints\"]($2,\n$3)" js_compareBoundaryPoints+        :: Range -> Word -> Nullable Range -> IO Int++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.compareBoundaryPoints Mozilla Range.compareBoundaryPoints documentation> +compareBoundaryPoints ::+                      (MonadIO m) => Range -> Word -> Maybe Range -> m Int+compareBoundaryPoints self how sourceRange+  = liftIO+      (js_compareBoundaryPoints (self) how (maybeToNullable sourceRange))+ +foreign import javascript unsafe "$1[\"deleteContents\"]()"+        js_deleteContents :: Range -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.deleteContents Mozilla Range.deleteContents documentation> +deleteContents :: (MonadIO m) => Range -> m ()+deleteContents self = liftIO (js_deleteContents (self))+ +foreign import javascript unsafe "$1[\"extractContents\"]()"+        js_extractContents :: Range -> IO (Nullable DocumentFragment)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.extractContents Mozilla Range.extractContents documentation> +extractContents ::+                (MonadIO m) => Range -> m (Maybe DocumentFragment)+extractContents self+  = liftIO (nullableToMaybe <$> (js_extractContents (self)))+ +foreign import javascript unsafe "$1[\"cloneContents\"]()"+        js_cloneContents :: Range -> IO (Nullable DocumentFragment)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.cloneContents Mozilla Range.cloneContents documentation> +cloneContents :: (MonadIO m) => Range -> m (Maybe DocumentFragment)+cloneContents self+  = liftIO (nullableToMaybe <$> (js_cloneContents (self)))+ +foreign import javascript unsafe "$1[\"insertNode\"]($2)"+        js_insertNode :: Range -> Nullable Node -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.insertNode Mozilla Range.insertNode documentation> +insertNode ::+           (MonadIO m, IsNode newNode) => Range -> Maybe newNode -> m ()+insertNode self newNode+  = liftIO+      (js_insertNode (self) (maybeToNullable (fmap toNode newNode)))+ +foreign import javascript unsafe "$1[\"surroundContents\"]($2)"+        js_surroundContents :: Range -> Nullable Node -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.surroundContents Mozilla Range.surroundContents documentation> +surroundContents ::+                 (MonadIO m, IsNode newParent) => Range -> Maybe newParent -> m ()+surroundContents self newParent+  = liftIO+      (js_surroundContents (self)+         (maybeToNullable (fmap toNode newParent)))+ +foreign import javascript unsafe "$1[\"cloneRange\"]()"+        js_cloneRange :: Range -> IO (Nullable Range)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.cloneRange Mozilla Range.cloneRange documentation> +cloneRange :: (MonadIO m) => Range -> m (Maybe Range)+cloneRange self+  = liftIO (nullableToMaybe <$> (js_cloneRange (self)))+ +foreign import javascript unsafe "$1[\"toString\"]()" js_toString+        :: Range -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.toString Mozilla Range.toString documentation> +toString :: (MonadIO m, FromJSString result) => Range -> m result+toString self = liftIO (fromJSString <$> (js_toString (self)))+ +foreign import javascript unsafe "$1[\"detach\"]()" js_detach ::+        Range -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.detach Mozilla Range.detach documentation> +detach :: (MonadIO m) => Range -> m ()+detach self = liftIO (js_detach (self))+ +foreign import javascript unsafe "$1[\"getClientRects\"]()"+        js_getClientRects :: Range -> IO (Nullable ClientRectList)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.getClientRects Mozilla Range.getClientRects documentation> +getClientRects :: (MonadIO m) => Range -> m (Maybe ClientRectList)+getClientRects self+  = liftIO (nullableToMaybe <$> (js_getClientRects (self)))+ +foreign import javascript unsafe "$1[\"getBoundingClientRect\"]()"+        js_getBoundingClientRect :: Range -> IO (Nullable ClientRect)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.getBoundingClientRect Mozilla Range.getBoundingClientRect documentation> +getBoundingClientRect ::+                      (MonadIO m) => Range -> m (Maybe ClientRect)+getBoundingClientRect self+  = liftIO (nullableToMaybe <$> (js_getBoundingClientRect (self)))+ +foreign import javascript unsafe+        "$1[\"createContextualFragment\"]($2)" js_createContextualFragment+        :: Range -> JSString -> IO (Nullable DocumentFragment)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.createContextualFragment Mozilla Range.createContextualFragment documentation> +createContextualFragment ::+                         (MonadIO m, ToJSString html) =>+                           Range -> html -> m (Maybe DocumentFragment)+createContextualFragment self html+  = liftIO+      (nullableToMaybe <$>+         (js_createContextualFragment (self) (toJSString html)))+ +foreign import javascript unsafe+        "($1[\"intersectsNode\"]($2) ? 1 : 0)" js_intersectsNode ::+        Range -> Nullable Node -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.intersectsNode Mozilla Range.intersectsNode documentation> +intersectsNode ::+               (MonadIO m, IsNode refNode) => Range -> Maybe refNode -> m Bool+intersectsNode self refNode+  = liftIO+      (js_intersectsNode (self) (maybeToNullable (fmap toNode refNode)))+ +foreign import javascript unsafe "$1[\"compareNode\"]($2)"+        js_compareNode :: Range -> Nullable Node -> IO Int++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.compareNode Mozilla Range.compareNode documentation> +compareNode ::+            (MonadIO m, IsNode refNode) => Range -> Maybe refNode -> m Int+compareNode self refNode+  = liftIO+      (js_compareNode (self) (maybeToNullable (fmap toNode refNode)))+ +foreign import javascript unsafe "$1[\"comparePoint\"]($2, $3)"+        js_comparePoint :: Range -> Nullable Node -> Int -> IO Int++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.comparePoint Mozilla Range.comparePoint documentation> +comparePoint ::+             (MonadIO m, IsNode refNode) =>+               Range -> Maybe refNode -> Int -> m Int+comparePoint self refNode offset+  = liftIO+      (js_comparePoint (self) (maybeToNullable (fmap toNode refNode))+         offset)+ +foreign import javascript unsafe+        "($1[\"isPointInRange\"]($2,\n$3) ? 1 : 0)" js_isPointInRange ::+        Range -> Nullable Node -> Int -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.isPointInRange Mozilla Range.isPointInRange documentation> +isPointInRange ::+               (MonadIO m, IsNode refNode) =>+                 Range -> Maybe refNode -> Int -> m Bool+isPointInRange self refNode offset+  = liftIO+      (js_isPointInRange (self) (maybeToNullable (fmap toNode refNode))+         offset)+ +foreign import javascript unsafe "$1[\"expand\"]($2)" js_expand ::+        Range -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.expand Mozilla Range.expand documentation> +expand :: (MonadIO m, ToJSString unit) => Range -> unit -> m ()+expand self unit = liftIO (js_expand (self) (toJSString unit))+pattern START_TO_START = 0+pattern START_TO_END = 1+pattern END_TO_END = 2+pattern END_TO_START = 3+pattern NODE_BEFORE = 0+pattern NODE_AFTER = 1+pattern NODE_BEFORE_AND_AFTER = 2+pattern NODE_INSIDE = 3+ +foreign import javascript unsafe "$1[\"startContainer\"]"+        js_getStartContainer :: Range -> IO (Nullable Node)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.startContainer Mozilla Range.startContainer documentation> +getStartContainer :: (MonadIO m) => Range -> m (Maybe Node)+getStartContainer self+  = liftIO (nullableToMaybe <$> (js_getStartContainer (self)))+ +foreign import javascript unsafe "$1[\"startOffset\"]"+        js_getStartOffset :: Range -> IO Int++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.startOffset Mozilla Range.startOffset documentation> +getStartOffset :: (MonadIO m) => Range -> m Int+getStartOffset self = liftIO (js_getStartOffset (self))+ +foreign import javascript unsafe "$1[\"endContainer\"]"+        js_getEndContainer :: Range -> IO (Nullable Node)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.endContainer Mozilla Range.endContainer documentation> +getEndContainer :: (MonadIO m) => Range -> m (Maybe Node)+getEndContainer self+  = liftIO (nullableToMaybe <$> (js_getEndContainer (self)))+ +foreign import javascript unsafe "$1[\"endOffset\"]"+        js_getEndOffset :: Range -> IO Int++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.endOffset Mozilla Range.endOffset documentation> +getEndOffset :: (MonadIO m) => Range -> m Int+getEndOffset self = liftIO (js_getEndOffset (self))+ +foreign import javascript unsafe "($1[\"collapsed\"] ? 1 : 0)"+        js_getCollapsed :: Range -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.collapsed Mozilla Range.collapsed documentation> +getCollapsed :: (MonadIO m) => Range -> m Bool+getCollapsed self = liftIO (js_getCollapsed (self))+ +foreign import javascript unsafe "$1[\"commonAncestorContainer\"]"+        js_getCommonAncestorContainer :: Range -> IO (Nullable Node)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.commonAncestorContainer Mozilla Range.commonAncestorContainer documentation> +getCommonAncestorContainer ::+                           (MonadIO m) => Range -> m (Maybe Node)+getCommonAncestorContainer self+  = liftIO+      (nullableToMaybe <$> (js_getCommonAncestorContainer (self)))
+ src/GHCJS/DOM/JSFFI/Generated/ReadableStream.hs view
@@ -0,0 +1,93 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.ReadableStream+       (js_newReadableStream, newReadableStream, js_read, read, js_cancel,+        cancel, js_pipeTo, pipeTo, js_pipeThrough, pipeThrough,+        js_getState, getState, js_getClosed, getClosed, js_getReady,+        getReady, ReadableStream, castToReadableStream,+        gTypeReadableStream)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe+        "new window[\"ReadableStream\"]($1)" js_newReadableStream ::+        JSVal -> IO ReadableStream++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableStream Mozilla ReadableStream documentation> +newReadableStream :: (MonadIO m) => JSVal -> m ReadableStream+newReadableStream properties+  = liftIO (js_newReadableStream properties)+ +foreign import javascript unsafe "$1[\"read\"]()" js_read ::+        ReadableStream -> IO (Nullable GObject)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableStream.read Mozilla ReadableStream.read documentation> +read :: (MonadIO m) => ReadableStream -> m (Maybe GObject)+read self = liftIO (nullableToMaybe <$> (js_read (self)))+ +foreign import javascript unsafe "$1[\"cancel\"]($2)" js_cancel ::+        ReadableStream -> JSString -> IO (Nullable Promise)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableStream.cancel Mozilla ReadableStream.cancel documentation> +cancel ::+       (MonadIO m, ToJSString reason) =>+         ReadableStream -> reason -> m (Maybe Promise)+cancel self reason+  = liftIO+      (nullableToMaybe <$> (js_cancel (self) (toJSString reason)))+ +foreign import javascript unsafe "$1[\"pipeTo\"]($2, $3)" js_pipeTo+        :: ReadableStream -> JSVal -> JSVal -> IO (Nullable Promise)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableStream.pipeTo Mozilla ReadableStream.pipeTo documentation> +pipeTo ::+       (MonadIO m) =>+         ReadableStream -> JSVal -> JSVal -> m (Maybe Promise)+pipeTo self streams options+  = liftIO (nullableToMaybe <$> (js_pipeTo (self) streams options))+ +foreign import javascript unsafe "$1[\"pipeThrough\"]($2, $3)"+        js_pipeThrough ::+        ReadableStream -> JSVal -> JSVal -> IO (Nullable GObject)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableStream.pipeThrough Mozilla ReadableStream.pipeThrough documentation> +pipeThrough ::+            (MonadIO m) =>+              ReadableStream -> JSVal -> JSVal -> m (Maybe GObject)+pipeThrough self dest options+  = liftIO (nullableToMaybe <$> (js_pipeThrough (self) dest options))+ +foreign import javascript unsafe "$1[\"state\"]" js_getState ::+        ReadableStream -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableStream.state Mozilla ReadableStream.state documentation> +getState ::+         (MonadIO m) => ReadableStream -> m ReadableStreamStateType+getState self+  = liftIO ((js_getState (self)) >>= fromJSValUnchecked)+ +foreign import javascript unsafe "$1[\"closed\"]" js_getClosed ::+        ReadableStream -> IO (Nullable Promise)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableStream.closed Mozilla ReadableStream.closed documentation> +getClosed :: (MonadIO m) => ReadableStream -> m (Maybe Promise)+getClosed self = liftIO (nullableToMaybe <$> (js_getClosed (self)))+ +foreign import javascript unsafe "$1[\"ready\"]" js_getReady ::+        ReadableStream -> IO (Nullable Promise)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableStream.ready Mozilla ReadableStream.ready documentation> +getReady :: (MonadIO m) => ReadableStream -> m (Maybe Promise)+getReady self = liftIO (nullableToMaybe <$> (js_getReady (self)))
+ src/GHCJS/DOM/JSFFI/Generated/Rect.hs view
@@ -0,0 +1,47 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.Rect+       (js_getTop, getTop, js_getRight, getRight, js_getBottom, getBottom,+        js_getLeft, getLeft, Rect, castToRect, gTypeRect)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"top\"]" js_getTop ::+        Rect -> IO (Nullable CSSPrimitiveValue)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Rect.top Mozilla Rect.top documentation> +getTop :: (MonadIO m) => Rect -> m (Maybe CSSPrimitiveValue)+getTop self = liftIO (nullableToMaybe <$> (js_getTop (self)))+ +foreign import javascript unsafe "$1[\"right\"]" js_getRight ::+        Rect -> IO (Nullable CSSPrimitiveValue)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Rect.right Mozilla Rect.right documentation> +getRight :: (MonadIO m) => Rect -> m (Maybe CSSPrimitiveValue)+getRight self = liftIO (nullableToMaybe <$> (js_getRight (self)))+ +foreign import javascript unsafe "$1[\"bottom\"]" js_getBottom ::+        Rect -> IO (Nullable CSSPrimitiveValue)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Rect.bottom Mozilla Rect.bottom documentation> +getBottom :: (MonadIO m) => Rect -> m (Maybe CSSPrimitiveValue)+getBottom self = liftIO (nullableToMaybe <$> (js_getBottom (self)))+ +foreign import javascript unsafe "$1[\"left\"]" js_getLeft ::+        Rect -> IO (Nullable CSSPrimitiveValue)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Rect.left Mozilla Rect.left documentation> +getLeft :: (MonadIO m) => Rect -> m (Maybe CSSPrimitiveValue)+getLeft self = liftIO (nullableToMaybe <$> (js_getLeft (self)))
+ src/GHCJS/DOM/JSFFI/Generated/RequestAnimationFrameCallback.hs view
@@ -0,0 +1,56 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.RequestAnimationFrameCallback+       (newRequestAnimationFrameCallback,+        newRequestAnimationFrameCallbackSync,+        newRequestAnimationFrameCallbackAsync,+        RequestAnimationFrameCallback)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RequestAnimationFrameCallback Mozilla RequestAnimationFrameCallback documentation> +newRequestAnimationFrameCallback ::+                                 (MonadIO m) => (Double -> IO ()) -> m RequestAnimationFrameCallback+newRequestAnimationFrameCallback callback+  = liftIO+      (RequestAnimationFrameCallback <$>+         syncCallback1 ThrowWouldBlock+           (\ highResTime ->+              fromJSValUnchecked highResTime >>=+                \ highResTime' -> callback highResTime'))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RequestAnimationFrameCallback Mozilla RequestAnimationFrameCallback documentation> +newRequestAnimationFrameCallbackSync ::+                                     (MonadIO m) =>+                                       (Double -> IO ()) -> m RequestAnimationFrameCallback+newRequestAnimationFrameCallbackSync callback+  = liftIO+      (RequestAnimationFrameCallback <$>+         syncCallback1 ContinueAsync+           (\ highResTime ->+              fromJSValUnchecked highResTime >>=+                \ highResTime' -> callback highResTime'))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RequestAnimationFrameCallback Mozilla RequestAnimationFrameCallback documentation> +newRequestAnimationFrameCallbackAsync ::+                                      (MonadIO m) =>+                                        (Double -> IO ()) -> m RequestAnimationFrameCallback+newRequestAnimationFrameCallbackAsync callback+  = liftIO+      (RequestAnimationFrameCallback <$>+         asyncCallback1+           (\ highResTime ->+              fromJSValUnchecked highResTime >>=+                \ highResTime' -> callback highResTime'))
+ src/GHCJS/DOM/JSFFI/Generated/SQLError.hs view
@@ -0,0 +1,44 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.SQLError+       (pattern UNKNOWN_ERR, pattern DATABASE_ERR, pattern VERSION_ERR,+        pattern TOO_LARGE_ERR, pattern QUOTA_ERR, pattern SYNTAX_ERR,+        pattern CONSTRAINT_ERR, pattern TIMEOUT_ERR, js_getCode, getCode,+        js_getMessage, getMessage, SQLError, castToSQLError, gTypeSQLError)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+pattern UNKNOWN_ERR = 0+pattern DATABASE_ERR = 1+pattern VERSION_ERR = 2+pattern TOO_LARGE_ERR = 3+pattern QUOTA_ERR = 4+pattern SYNTAX_ERR = 5+pattern CONSTRAINT_ERR = 6+pattern TIMEOUT_ERR = 7+ +foreign import javascript unsafe "$1[\"code\"]" js_getCode ::+        SQLError -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLError.code Mozilla SQLError.code documentation> +getCode :: (MonadIO m) => SQLError -> m Word+getCode self = liftIO (js_getCode (self))+ +foreign import javascript unsafe "$1[\"message\"]" js_getMessage ::+        SQLError -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLError.message Mozilla SQLError.message documentation> +getMessage ::+           (MonadIO m, FromJSString result) => SQLError -> m result+getMessage self = liftIO (fromJSString <$> (js_getMessage (self)))
+ src/GHCJS/DOM/JSFFI/Generated/SQLResultSet.hs view
@@ -0,0 +1,42 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.SQLResultSet+       (js_getRows, getRows, js_getInsertId, getInsertId,+        js_getRowsAffected, getRowsAffected, SQLResultSet,+        castToSQLResultSet, gTypeSQLResultSet)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"rows\"]" js_getRows ::+        SQLResultSet -> IO (Nullable SQLResultSetRowList)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLResultSet.rows Mozilla SQLResultSet.rows documentation> +getRows ::+        (MonadIO m) => SQLResultSet -> m (Maybe SQLResultSetRowList)+getRows self = liftIO (nullableToMaybe <$> (js_getRows (self)))+ +foreign import javascript unsafe "$1[\"insertId\"]" js_getInsertId+        :: SQLResultSet -> IO Int++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLResultSet.insertId Mozilla SQLResultSet.insertId documentation> +getInsertId :: (MonadIO m) => SQLResultSet -> m Int+getInsertId self = liftIO (js_getInsertId (self))+ +foreign import javascript unsafe "$1[\"rowsAffected\"]"+        js_getRowsAffected :: SQLResultSet -> IO Int++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLResultSet.rowsAffected Mozilla SQLResultSet.rowsAffected documentation> +getRowsAffected :: (MonadIO m) => SQLResultSet -> m Int+getRowsAffected self = liftIO (js_getRowsAffected (self))
+ src/GHCJS/DOM/JSFFI/Generated/SQLResultSetRowList.hs view
@@ -0,0 +1,33 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.SQLResultSetRowList+       (js_item, item, js_getLength, getLength, SQLResultSetRowList,+        castToSQLResultSetRowList, gTypeSQLResultSetRowList)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"item\"]($2)" js_item ::+        SQLResultSetRowList -> Word -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLResultSetRowList.item Mozilla SQLResultSetRowList.item documentation> +item :: (MonadIO m) => SQLResultSetRowList -> Word -> m JSVal+item self index = liftIO (js_item (self) index)+ +foreign import javascript unsafe "$1[\"length\"]" js_getLength ::+        SQLResultSetRowList -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLResultSetRowList.length Mozilla SQLResultSetRowList.length documentation> +getLength :: (MonadIO m) => SQLResultSetRowList -> m Word+getLength self = liftIO (js_getLength (self))
+ src/GHCJS/DOM/JSFFI/Generated/SQLStatementCallback.hs view
@@ -0,0 +1,67 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.SQLStatementCallback+       (newSQLStatementCallback, newSQLStatementCallbackSync,+        newSQLStatementCallbackAsync, SQLStatementCallback)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLStatementCallback Mozilla SQLStatementCallback documentation> +newSQLStatementCallback ::+                        (MonadIO m) =>+                          (Maybe SQLTransaction -> Maybe SQLResultSet -> IO ()) ->+                            m SQLStatementCallback+newSQLStatementCallback callback+  = liftIO+      (SQLStatementCallback <$>+         syncCallback2 ThrowWouldBlock+           (\ transaction resultSet ->+              fromJSValUnchecked resultSet >>=+                \ resultSet' ->+                  fromJSValUnchecked transaction >>=+                    \ transaction' -> callback transaction'+                    resultSet'))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLStatementCallback Mozilla SQLStatementCallback documentation> +newSQLStatementCallbackSync ::+                            (MonadIO m) =>+                              (Maybe SQLTransaction -> Maybe SQLResultSet -> IO ()) ->+                                m SQLStatementCallback+newSQLStatementCallbackSync callback+  = liftIO+      (SQLStatementCallback <$>+         syncCallback2 ContinueAsync+           (\ transaction resultSet ->+              fromJSValUnchecked resultSet >>=+                \ resultSet' ->+                  fromJSValUnchecked transaction >>=+                    \ transaction' -> callback transaction'+                    resultSet'))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLStatementCallback Mozilla SQLStatementCallback documentation> +newSQLStatementCallbackAsync ::+                             (MonadIO m) =>+                               (Maybe SQLTransaction -> Maybe SQLResultSet -> IO ()) ->+                                 m SQLStatementCallback+newSQLStatementCallbackAsync callback+  = liftIO+      (SQLStatementCallback <$>+         asyncCallback2+           (\ transaction resultSet ->+              fromJSValUnchecked resultSet >>=+                \ resultSet' ->+                  fromJSValUnchecked transaction >>=+                    \ transaction' -> callback transaction'+                    resultSet'))
+ src/GHCJS/DOM/JSFFI/Generated/SQLStatementErrorCallback.hs view
@@ -0,0 +1,67 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.SQLStatementErrorCallback+       (newSQLStatementErrorCallback, newSQLStatementErrorCallbackSync,+        newSQLStatementErrorCallbackAsync, SQLStatementErrorCallback)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLStatementErrorCallback Mozilla SQLStatementErrorCallback documentation> +newSQLStatementErrorCallback ::+                             (MonadIO m) =>+                               (Maybe SQLTransaction -> Maybe SQLError -> IO ()) ->+                                 m SQLStatementErrorCallback+newSQLStatementErrorCallback callback+  = liftIO+      (SQLStatementErrorCallback <$>+         syncCallback2 ThrowWouldBlock+           (\ transaction error ->+              fromJSValUnchecked error >>=+                \ error' ->+                  fromJSValUnchecked transaction >>=+                    \ transaction' -> callback transaction'+                    error'))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLStatementErrorCallback Mozilla SQLStatementErrorCallback documentation> +newSQLStatementErrorCallbackSync ::+                                 (MonadIO m) =>+                                   (Maybe SQLTransaction -> Maybe SQLError -> IO ()) ->+                                     m SQLStatementErrorCallback+newSQLStatementErrorCallbackSync callback+  = liftIO+      (SQLStatementErrorCallback <$>+         syncCallback2 ContinueAsync+           (\ transaction error ->+              fromJSValUnchecked error >>=+                \ error' ->+                  fromJSValUnchecked transaction >>=+                    \ transaction' -> callback transaction'+                    error'))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLStatementErrorCallback Mozilla SQLStatementErrorCallback documentation> +newSQLStatementErrorCallbackAsync ::+                                  (MonadIO m) =>+                                    (Maybe SQLTransaction -> Maybe SQLError -> IO ()) ->+                                      m SQLStatementErrorCallback+newSQLStatementErrorCallbackAsync callback+  = liftIO+      (SQLStatementErrorCallback <$>+         asyncCallback2+           (\ transaction error ->+              fromJSValUnchecked error >>=+                \ error' ->+                  fromJSValUnchecked transaction >>=+                    \ transaction' -> callback transaction'+                    error'))
+ src/GHCJS/DOM/JSFFI/Generated/SQLTransaction.hs view
@@ -0,0 +1,42 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.SQLTransaction+       (js_executeSql, executeSql, SQLTransaction, castToSQLTransaction,+        gTypeSQLTransaction)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe+        "$1[\"executeSql\"]($2, $3, $4, $5)" js_executeSql ::+        SQLTransaction ->+          JSString ->+            Nullable ObjectArray ->+              Nullable SQLStatementCallback ->+                Nullable SQLStatementErrorCallback -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLTransaction.executeSql Mozilla SQLTransaction.executeSql documentation> +executeSql ::+           (MonadIO m, ToJSString sqlStatement, IsObjectArray arguments) =>+             SQLTransaction ->+               sqlStatement ->+                 Maybe arguments ->+                   Maybe SQLStatementCallback ->+                     Maybe SQLStatementErrorCallback -> m ()+executeSql self sqlStatement arguments callback errorCallback+  = liftIO+      (js_executeSql (self) (toJSString sqlStatement)+         (maybeToNullable (fmap toObjectArray arguments))+         (maybeToNullable callback)+         (maybeToNullable errorCallback))
+ src/GHCJS/DOM/JSFFI/Generated/SQLTransactionCallback.hs view
@@ -0,0 +1,55 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.SQLTransactionCallback+       (newSQLTransactionCallback, newSQLTransactionCallbackSync,+        newSQLTransactionCallbackAsync, SQLTransactionCallback)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLTransactionCallback Mozilla SQLTransactionCallback documentation> +newSQLTransactionCallback ::+                          (MonadIO m) =>+                            (Maybe SQLTransaction -> IO ()) -> m SQLTransactionCallback+newSQLTransactionCallback callback+  = liftIO+      (SQLTransactionCallback <$>+         syncCallback1 ThrowWouldBlock+           (\ transaction ->+              fromJSValUnchecked transaction >>=+                \ transaction' -> callback transaction'))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLTransactionCallback Mozilla SQLTransactionCallback documentation> +newSQLTransactionCallbackSync ::+                              (MonadIO m) =>+                                (Maybe SQLTransaction -> IO ()) -> m SQLTransactionCallback+newSQLTransactionCallbackSync callback+  = liftIO+      (SQLTransactionCallback <$>+         syncCallback1 ContinueAsync+           (\ transaction ->+              fromJSValUnchecked transaction >>=+                \ transaction' -> callback transaction'))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLTransactionCallback Mozilla SQLTransactionCallback documentation> +newSQLTransactionCallbackAsync ::+                               (MonadIO m) =>+                                 (Maybe SQLTransaction -> IO ()) -> m SQLTransactionCallback+newSQLTransactionCallbackAsync callback+  = liftIO+      (SQLTransactionCallback <$>+         asyncCallback1+           (\ transaction ->+              fromJSValUnchecked transaction >>=+                \ transaction' -> callback transaction'))
+ src/GHCJS/DOM/JSFFI/Generated/SQLTransactionErrorCallback.hs view
@@ -0,0 +1,53 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.SQLTransactionErrorCallback+       (newSQLTransactionErrorCallback,+        newSQLTransactionErrorCallbackSync,+        newSQLTransactionErrorCallbackAsync, SQLTransactionErrorCallback)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import Data.Typeable (Typeable)+import GHCJS.Types (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLTransactionErrorCallback Mozilla SQLTransactionErrorCallback documentation> +newSQLTransactionErrorCallback ::+                               (MonadIO m) =>+                                 (Maybe SQLError -> IO ()) -> m SQLTransactionErrorCallback+newSQLTransactionErrorCallback callback+  = liftIO+      (SQLTransactionErrorCallback <$>+         syncCallback1 ThrowWouldBlock+           (\ error ->+              fromJSValUnchecked error >>= \ error' -> callback error'))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLTransactionErrorCallback Mozilla SQLTransactionErrorCallback documentation> +newSQLTransactionErrorCallbackSync ::+                                   (MonadIO m) =>+                                     (Maybe SQLError -> IO ()) -> m SQLTransactionErrorCallback+newSQLTransactionErrorCallbackSync callback+  = liftIO+      (SQLTransactionErrorCallback <$>+         syncCallback1 ContinueAsync+           (\ error ->+              fromJSValUnchecked error >>= \ error' -> callback error'))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLTransactionErrorCallback Mozilla SQLTransactionErrorCallback documentation> +newSQLTransactionErrorCallbackAsync ::+                                    (MonadIO m) =>+                                      (Maybe SQLError -> IO ()) -> m SQLTransactionErrorCallback+newSQLTransactionErrorCallbackAsync callback+  = liftIO+      (SQLTransactionErrorCallback <$>+         asyncCallback1+           (\ error ->+              fromJSValUnchecked error >>= \ error' -> callback error'))
+ src/GHCJS/DOM/JSFFI/Generated/SVGAElement.hs view
@@ -0,0 +1,27 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.SVGAElement+       (js_getTarget, getTarget, SVGAElement, castToSVGAElement,+        gTypeSVGAElement)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"target\"]" js_getTarget ::+        SVGAElement -> IO (Nullable SVGAnimatedString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAElement.target Mozilla SVGAElement.target documentation> +getTarget ::+          (MonadIO m) => SVGAElement -> m (Maybe SVGAnimatedString)+getTarget self = liftIO (nullableToMaybe <$> (js_getTarget (self)))
+ src/GHCJS/DOM/JSFFI/Generated/SVGAltGlyphElement.hs view
@@ -0,0 +1,55 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.SVGAltGlyphElement+       (js_setGlyphRef, setGlyphRef, js_getGlyphRef, getGlyphRef,+        js_setFormat, setFormat, js_getFormat, getFormat,+        SVGAltGlyphElement, castToSVGAltGlyphElement,+        gTypeSVGAltGlyphElement)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"glyphRef\"] = $2;"+        js_setGlyphRef :: SVGAltGlyphElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAltGlyphElement.glyphRef Mozilla SVGAltGlyphElement.glyphRef documentation> +setGlyphRef ::+            (MonadIO m, ToJSString val) => SVGAltGlyphElement -> val -> m ()+setGlyphRef self val+  = liftIO (js_setGlyphRef (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"glyphRef\"]" js_getGlyphRef+        :: SVGAltGlyphElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAltGlyphElement.glyphRef Mozilla SVGAltGlyphElement.glyphRef documentation> +getGlyphRef ::+            (MonadIO m, FromJSString result) => SVGAltGlyphElement -> m result+getGlyphRef self+  = liftIO (fromJSString <$> (js_getGlyphRef (self)))+ +foreign import javascript unsafe "$1[\"format\"] = $2;"+        js_setFormat :: SVGAltGlyphElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAltGlyphElement.format Mozilla SVGAltGlyphElement.format documentation> +setFormat ::+          (MonadIO m, ToJSString val) => SVGAltGlyphElement -> val -> m ()+setFormat self val = liftIO (js_setFormat (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"format\"]" js_getFormat ::+        SVGAltGlyphElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAltGlyphElement.format Mozilla SVGAltGlyphElement.format documentation> +getFormat ::+          (MonadIO m, FromJSString result) => SVGAltGlyphElement -> m result+getFormat self = liftIO (fromJSString <$> (js_getFormat (self)))
+ src/GHCJS/DOM/JSFFI/Generated/SVGAngle.hs view
@@ -0,0 +1,109 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.SVGAngle+       (js_newValueSpecifiedUnits, newValueSpecifiedUnits,+        js_convertToSpecifiedUnits, convertToSpecifiedUnits,+        pattern SVG_ANGLETYPE_UNKNOWN, pattern SVG_ANGLETYPE_UNSPECIFIED,+        pattern SVG_ANGLETYPE_DEG, pattern SVG_ANGLETYPE_RAD,+        pattern SVG_ANGLETYPE_GRAD, js_getUnitType, getUnitType,+        js_setValue, setValue, js_getValue, getValue,+        js_setValueInSpecifiedUnits, setValueInSpecifiedUnits,+        js_getValueInSpecifiedUnits, getValueInSpecifiedUnits,+        js_setValueAsString, setValueAsString, js_getValueAsString,+        getValueAsString, SVGAngle, castToSVGAngle, gTypeSVGAngle)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe+        "$1[\"newValueSpecifiedUnits\"]($2,\n$3)" js_newValueSpecifiedUnits+        :: SVGAngle -> Word -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAngle.newValueSpecifiedUnits Mozilla SVGAngle.newValueSpecifiedUnits documentation> +newValueSpecifiedUnits ::+                       (MonadIO m) => SVGAngle -> Word -> Float -> m ()+newValueSpecifiedUnits self unitType valueInSpecifiedUnits+  = liftIO+      (js_newValueSpecifiedUnits (self) unitType valueInSpecifiedUnits)+ +foreign import javascript unsafe+        "$1[\"convertToSpecifiedUnits\"]($2)" js_convertToSpecifiedUnits ::+        SVGAngle -> Word -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAngle.convertToSpecifiedUnits Mozilla SVGAngle.convertToSpecifiedUnits documentation> +convertToSpecifiedUnits :: (MonadIO m) => SVGAngle -> Word -> m ()+convertToSpecifiedUnits self unitType+  = liftIO (js_convertToSpecifiedUnits (self) unitType)+pattern SVG_ANGLETYPE_UNKNOWN = 0+pattern SVG_ANGLETYPE_UNSPECIFIED = 1+pattern SVG_ANGLETYPE_DEG = 2+pattern SVG_ANGLETYPE_RAD = 3+pattern SVG_ANGLETYPE_GRAD = 4+ +foreign import javascript unsafe "$1[\"unitType\"]" js_getUnitType+        :: SVGAngle -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAngle.unitType Mozilla SVGAngle.unitType documentation> +getUnitType :: (MonadIO m) => SVGAngle -> m Word+getUnitType self = liftIO (js_getUnitType (self))+ +foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue+        :: SVGAngle -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAngle.value Mozilla SVGAngle.value documentation> +setValue :: (MonadIO m) => SVGAngle -> Float -> m ()+setValue self val = liftIO (js_setValue (self) val)+ +foreign import javascript unsafe "$1[\"value\"]" js_getValue ::+        SVGAngle -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAngle.value Mozilla SVGAngle.value documentation> +getValue :: (MonadIO m) => SVGAngle -> m Float+getValue self = liftIO (js_getValue (self))+ +foreign import javascript unsafe+        "$1[\"valueInSpecifiedUnits\"] = $2;" js_setValueInSpecifiedUnits+        :: SVGAngle -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAngle.valueInSpecifiedUnits Mozilla SVGAngle.valueInSpecifiedUnits documentation> +setValueInSpecifiedUnits ::+                         (MonadIO m) => SVGAngle -> Float -> m ()+setValueInSpecifiedUnits self val+  = liftIO (js_setValueInSpecifiedUnits (self) val)+ +foreign import javascript unsafe "$1[\"valueInSpecifiedUnits\"]"+        js_getValueInSpecifiedUnits :: SVGAngle -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAngle.valueInSpecifiedUnits Mozilla SVGAngle.valueInSpecifiedUnits documentation> +getValueInSpecifiedUnits :: (MonadIO m) => SVGAngle -> m Float+getValueInSpecifiedUnits self+  = liftIO (js_getValueInSpecifiedUnits (self))+ +foreign import javascript unsafe "$1[\"valueAsString\"] = $2;"+        js_setValueAsString :: SVGAngle -> Nullable JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAngle.valueAsString Mozilla SVGAngle.valueAsString documentation> +setValueAsString ::+                 (MonadIO m, ToJSString val) => SVGAngle -> Maybe val -> m ()+setValueAsString self val+  = liftIO (js_setValueAsString (self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"valueAsString\"]"+        js_getValueAsString :: SVGAngle -> IO (Nullable JSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAngle.valueAsString Mozilla SVGAngle.valueAsString documentation> +getValueAsString ::+                 (MonadIO m, FromJSString result) => SVGAngle -> m (Maybe result)+getValueAsString self+  = liftIO (fromMaybeJSString <$> (js_getValueAsString (self)))
+ src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedAngle.hs view
@@ -0,0 +1,35 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.SVGAnimatedAngle+       (js_getBaseVal, getBaseVal, js_getAnimVal, getAnimVal,+        SVGAnimatedAngle, castToSVGAnimatedAngle, gTypeSVGAnimatedAngle)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"baseVal\"]" js_getBaseVal ::+        SVGAnimatedAngle -> IO (Nullable SVGAngle)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedAngle.baseVal Mozilla SVGAnimatedAngle.baseVal documentation> +getBaseVal :: (MonadIO m) => SVGAnimatedAngle -> m (Maybe SVGAngle)+getBaseVal self+  = liftIO (nullableToMaybe <$> (js_getBaseVal (self)))+ +foreign import javascript unsafe "$1[\"animVal\"]" js_getAnimVal ::+        SVGAnimatedAngle -> IO (Nullable SVGAngle)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedAngle.animVal Mozilla SVGAnimatedAngle.animVal documentation> +getAnimVal :: (MonadIO m) => SVGAnimatedAngle -> m (Maybe SVGAngle)+getAnimVal self+  = liftIO (nullableToMaybe <$> (js_getAnimVal (self)))
+ src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedBoolean.hs view
@@ -0,0 +1,41 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.SVGAnimatedBoolean+       (js_setBaseVal, setBaseVal, js_getBaseVal, getBaseVal,+        js_getAnimVal, getAnimVal, SVGAnimatedBoolean,+        castToSVGAnimatedBoolean, gTypeSVGAnimatedBoolean)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"baseVal\"] = $2;"+        js_setBaseVal :: SVGAnimatedBoolean -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedBoolean.baseVal Mozilla SVGAnimatedBoolean.baseVal documentation> +setBaseVal :: (MonadIO m) => SVGAnimatedBoolean -> Bool -> m ()+setBaseVal self val = liftIO (js_setBaseVal (self) val)+ +foreign import javascript unsafe "($1[\"baseVal\"] ? 1 : 0)"+        js_getBaseVal :: SVGAnimatedBoolean -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedBoolean.baseVal Mozilla SVGAnimatedBoolean.baseVal documentation> +getBaseVal :: (MonadIO m) => SVGAnimatedBoolean -> m Bool+getBaseVal self = liftIO (js_getBaseVal (self))+ +foreign import javascript unsafe "($1[\"animVal\"] ? 1 : 0)"+        js_getAnimVal :: SVGAnimatedBoolean -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedBoolean.animVal Mozilla SVGAnimatedBoolean.animVal documentation> +getAnimVal :: (MonadIO m) => SVGAnimatedBoolean -> m Bool+getAnimVal self = liftIO (js_getAnimVal (self))
+ src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedEnumeration.hs view
@@ -0,0 +1,41 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.SVGAnimatedEnumeration+       (js_setBaseVal, setBaseVal, js_getBaseVal, getBaseVal,+        js_getAnimVal, getAnimVal, SVGAnimatedEnumeration,+        castToSVGAnimatedEnumeration, gTypeSVGAnimatedEnumeration)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"baseVal\"] = $2;"+        js_setBaseVal :: SVGAnimatedEnumeration -> Word -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedEnumeration.baseVal Mozilla SVGAnimatedEnumeration.baseVal documentation> +setBaseVal :: (MonadIO m) => SVGAnimatedEnumeration -> Word -> m ()+setBaseVal self val = liftIO (js_setBaseVal (self) val)+ +foreign import javascript unsafe "$1[\"baseVal\"]" js_getBaseVal ::+        SVGAnimatedEnumeration -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedEnumeration.baseVal Mozilla SVGAnimatedEnumeration.baseVal documentation> +getBaseVal :: (MonadIO m) => SVGAnimatedEnumeration -> m Word+getBaseVal self = liftIO (js_getBaseVal (self))+ +foreign import javascript unsafe "$1[\"animVal\"]" js_getAnimVal ::+        SVGAnimatedEnumeration -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedEnumeration.animVal Mozilla SVGAnimatedEnumeration.animVal documentation> +getAnimVal :: (MonadIO m) => SVGAnimatedEnumeration -> m Word+getAnimVal self = liftIO (js_getAnimVal (self))
+ src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedInteger.hs view
@@ -0,0 +1,41 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.SVGAnimatedInteger+       (js_setBaseVal, setBaseVal, js_getBaseVal, getBaseVal,+        js_getAnimVal, getAnimVal, SVGAnimatedInteger,+        castToSVGAnimatedInteger, gTypeSVGAnimatedInteger)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"baseVal\"] = $2;"+        js_setBaseVal :: SVGAnimatedInteger -> Int -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedInteger.baseVal Mozilla SVGAnimatedInteger.baseVal documentation> +setBaseVal :: (MonadIO m) => SVGAnimatedInteger -> Int -> m ()+setBaseVal self val = liftIO (js_setBaseVal (self) val)+ +foreign import javascript unsafe "$1[\"baseVal\"]" js_getBaseVal ::+        SVGAnimatedInteger -> IO Int++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedInteger.baseVal Mozilla SVGAnimatedInteger.baseVal documentation> +getBaseVal :: (MonadIO m) => SVGAnimatedInteger -> m Int+getBaseVal self = liftIO (js_getBaseVal (self))+ +foreign import javascript unsafe "$1[\"animVal\"]" js_getAnimVal ::+        SVGAnimatedInteger -> IO Int++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedInteger.animVal Mozilla SVGAnimatedInteger.animVal documentation> +getAnimVal :: (MonadIO m) => SVGAnimatedInteger -> m Int+getAnimVal self = liftIO (js_getAnimVal (self))
+ src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedLength.hs view
@@ -0,0 +1,37 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.SVGAnimatedLength+       (js_getBaseVal, getBaseVal, js_getAnimVal, getAnimVal,+        SVGAnimatedLength, castToSVGAnimatedLength, gTypeSVGAnimatedLength)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"baseVal\"]" js_getBaseVal ::+        SVGAnimatedLength -> IO (Nullable SVGLength)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedLength.baseVal Mozilla SVGAnimatedLength.baseVal documentation> +getBaseVal ::+           (MonadIO m) => SVGAnimatedLength -> m (Maybe SVGLength)+getBaseVal self+  = liftIO (nullableToMaybe <$> (js_getBaseVal (self)))+ +foreign import javascript unsafe "$1[\"animVal\"]" js_getAnimVal ::+        SVGAnimatedLength -> IO (Nullable SVGLength)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedLength.animVal Mozilla SVGAnimatedLength.animVal documentation> +getAnimVal ::+           (MonadIO m) => SVGAnimatedLength -> m (Maybe SVGLength)+getAnimVal self+  = liftIO (nullableToMaybe <$> (js_getAnimVal (self)))
+ src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedLengthList.hs view
@@ -0,0 +1,38 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.SVGAnimatedLengthList+       (js_getBaseVal, getBaseVal, js_getAnimVal, getAnimVal,+        SVGAnimatedLengthList, castToSVGAnimatedLengthList,+        gTypeSVGAnimatedLengthList)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"baseVal\"]" js_getBaseVal ::+        SVGAnimatedLengthList -> IO (Nullable SVGLengthList)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedLengthList.baseVal Mozilla SVGAnimatedLengthList.baseVal documentation> +getBaseVal ::+           (MonadIO m) => SVGAnimatedLengthList -> m (Maybe SVGLengthList)+getBaseVal self+  = liftIO (nullableToMaybe <$> (js_getBaseVal (self)))+ +foreign import javascript unsafe "$1[\"animVal\"]" js_getAnimVal ::+        SVGAnimatedLengthList -> IO (Nullable SVGLengthList)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedLengthList.animVal Mozilla SVGAnimatedLengthList.animVal documentation> +getAnimVal ::+           (MonadIO m) => SVGAnimatedLengthList -> m (Maybe SVGLengthList)+getAnimVal self+  = liftIO (nullableToMaybe <$> (js_getAnimVal (self)))
+ src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedNumber.hs view
@@ -0,0 +1,41 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.SVGAnimatedNumber+       (js_setBaseVal, setBaseVal, js_getBaseVal, getBaseVal,+        js_getAnimVal, getAnimVal, SVGAnimatedNumber,+        castToSVGAnimatedNumber, gTypeSVGAnimatedNumber)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"baseVal\"] = $2;"+        js_setBaseVal :: SVGAnimatedNumber -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedNumber.baseVal Mozilla SVGAnimatedNumber.baseVal documentation> +setBaseVal :: (MonadIO m) => SVGAnimatedNumber -> Float -> m ()+setBaseVal self val = liftIO (js_setBaseVal (self) val)+ +foreign import javascript unsafe "$1[\"baseVal\"]" js_getBaseVal ::+        SVGAnimatedNumber -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedNumber.baseVal Mozilla SVGAnimatedNumber.baseVal documentation> +getBaseVal :: (MonadIO m) => SVGAnimatedNumber -> m Float+getBaseVal self = liftIO (js_getBaseVal (self))+ +foreign import javascript unsafe "$1[\"animVal\"]" js_getAnimVal ::+        SVGAnimatedNumber -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedNumber.animVal Mozilla SVGAnimatedNumber.animVal documentation> +getAnimVal :: (MonadIO m) => SVGAnimatedNumber -> m Float+getAnimVal self = liftIO (js_getAnimVal (self))
+ src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedNumberList.hs view
@@ -0,0 +1,38 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.SVGAnimatedNumberList+       (js_getBaseVal, getBaseVal, js_getAnimVal, getAnimVal,+        SVGAnimatedNumberList, castToSVGAnimatedNumberList,+        gTypeSVGAnimatedNumberList)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"baseVal\"]" js_getBaseVal ::+        SVGAnimatedNumberList -> IO (Nullable SVGNumberList)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedNumberList.baseVal Mozilla SVGAnimatedNumberList.baseVal documentation> +getBaseVal ::+           (MonadIO m) => SVGAnimatedNumberList -> m (Maybe SVGNumberList)+getBaseVal self+  = liftIO (nullableToMaybe <$> (js_getBaseVal (self)))+ +foreign import javascript unsafe "$1[\"animVal\"]" js_getAnimVal ::+        SVGAnimatedNumberList -> IO (Nullable SVGNumberList)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedNumberList.animVal Mozilla SVGAnimatedNumberList.animVal documentation> +getAnimVal ::+           (MonadIO m) => SVGAnimatedNumberList -> m (Maybe SVGNumberList)+getAnimVal self+  = liftIO (nullableToMaybe <$> (js_getAnimVal (self)))
+ src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedPreserveAspectRatio.hs view
@@ -0,0 +1,43 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.SVGAnimatedPreserveAspectRatio+       (js_getBaseVal, getBaseVal, js_getAnimVal, getAnimVal,+        SVGAnimatedPreserveAspectRatio,+        castToSVGAnimatedPreserveAspectRatio,+        gTypeSVGAnimatedPreserveAspectRatio)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"baseVal\"]" js_getBaseVal ::+        SVGAnimatedPreserveAspectRatio ->+          IO (Nullable SVGPreserveAspectRatio)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedPreserveAspectRatio.baseVal Mozilla SVGAnimatedPreserveAspectRatio.baseVal documentation> +getBaseVal ::+           (MonadIO m) =>+             SVGAnimatedPreserveAspectRatio -> m (Maybe SVGPreserveAspectRatio)+getBaseVal self+  = liftIO (nullableToMaybe <$> (js_getBaseVal (self)))+ +foreign import javascript unsafe "$1[\"animVal\"]" js_getAnimVal ::+        SVGAnimatedPreserveAspectRatio ->+          IO (Nullable SVGPreserveAspectRatio)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedPreserveAspectRatio.animVal Mozilla SVGAnimatedPreserveAspectRatio.animVal documentation> +getAnimVal ::+           (MonadIO m) =>+             SVGAnimatedPreserveAspectRatio -> m (Maybe SVGPreserveAspectRatio)+getAnimVal self+  = liftIO (nullableToMaybe <$> (js_getAnimVal (self)))
+ src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedRect.hs view
@@ -0,0 +1,35 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.SVGAnimatedRect+       (js_getBaseVal, getBaseVal, js_getAnimVal, getAnimVal,+        SVGAnimatedRect, castToSVGAnimatedRect, gTypeSVGAnimatedRect)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"baseVal\"]" js_getBaseVal ::+        SVGAnimatedRect -> IO (Nullable SVGRect)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedRect.baseVal Mozilla SVGAnimatedRect.baseVal documentation> +getBaseVal :: (MonadIO m) => SVGAnimatedRect -> m (Maybe SVGRect)+getBaseVal self+  = liftIO (nullableToMaybe <$> (js_getBaseVal (self)))+ +foreign import javascript unsafe "$1[\"animVal\"]" js_getAnimVal ::+        SVGAnimatedRect -> IO (Nullable SVGRect)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedRect.animVal Mozilla SVGAnimatedRect.animVal documentation> +getAnimVal :: (MonadIO m) => SVGAnimatedRect -> m (Maybe SVGRect)+getAnimVal self+  = liftIO (nullableToMaybe <$> (js_getAnimVal (self)))
+ src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedString.hs view
@@ -0,0 +1,45 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.SVGAnimatedString+       (js_setBaseVal, setBaseVal, js_getBaseVal, getBaseVal,+        js_getAnimVal, getAnimVal, SVGAnimatedString,+        castToSVGAnimatedString, gTypeSVGAnimatedString)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"baseVal\"] = $2;"+        js_setBaseVal :: SVGAnimatedString -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedString.baseVal Mozilla SVGAnimatedString.baseVal documentation> +setBaseVal ::+           (MonadIO m, ToJSString val) => SVGAnimatedString -> val -> m ()+setBaseVal self val+  = liftIO (js_setBaseVal (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"baseVal\"]" js_getBaseVal ::+        SVGAnimatedString -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedString.baseVal Mozilla SVGAnimatedString.baseVal documentation> +getBaseVal ::+           (MonadIO m, FromJSString result) => SVGAnimatedString -> m result+getBaseVal self = liftIO (fromJSString <$> (js_getBaseVal (self)))+ +foreign import javascript unsafe "$1[\"animVal\"]" js_getAnimVal ::+        SVGAnimatedString -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedString.animVal Mozilla SVGAnimatedString.animVal documentation> +getAnimVal ::+           (MonadIO m, FromJSString result) => SVGAnimatedString -> m result+getAnimVal self = liftIO (fromJSString <$> (js_getAnimVal (self)))
+ src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedTransformList.hs view
@@ -0,0 +1,40 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.SVGAnimatedTransformList+       (js_getBaseVal, getBaseVal, js_getAnimVal, getAnimVal,+        SVGAnimatedTransformList, castToSVGAnimatedTransformList,+        gTypeSVGAnimatedTransformList)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"baseVal\"]" js_getBaseVal ::+        SVGAnimatedTransformList -> IO (Nullable SVGTransformList)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedTransformList.baseVal Mozilla SVGAnimatedTransformList.baseVal documentation> +getBaseVal ::+           (MonadIO m) =>+             SVGAnimatedTransformList -> m (Maybe SVGTransformList)+getBaseVal self+  = liftIO (nullableToMaybe <$> (js_getBaseVal (self)))+ +foreign import javascript unsafe "$1[\"animVal\"]" js_getAnimVal ::+        SVGAnimatedTransformList -> IO (Nullable SVGTransformList)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedTransformList.animVal Mozilla SVGAnimatedTransformList.animVal documentation> +getAnimVal ::+           (MonadIO m) =>+             SVGAnimatedTransformList -> m (Maybe SVGTransformList)+getAnimVal self+  = liftIO (nullableToMaybe <$> (js_getAnimVal (self)))
+ src/GHCJS/DOM/JSFFI/Generated/SVGAnimationElement.hs view
@@ -0,0 +1,100 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.SVGAnimationElement+       (js_getStartTime, getStartTime, js_getCurrentTime, getCurrentTime,+        js_getSimpleDuration, getSimpleDuration, js_beginElement,+        beginElement, js_beginElementAt, beginElementAt, js_endElement,+        endElement, js_endElementAt, endElementAt, js_getTargetElement,+        getTargetElement, SVGAnimationElement, castToSVGAnimationElement,+        gTypeSVGAnimationElement, IsSVGAnimationElement,+        toSVGAnimationElement)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"getStartTime\"]()"+        js_getStartTime :: SVGAnimationElement -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimationElement.getStartTime Mozilla SVGAnimationElement.getStartTime documentation> +getStartTime ::+             (MonadIO m, IsSVGAnimationElement self) => self -> m Float+getStartTime self+  = liftIO (js_getStartTime (toSVGAnimationElement self))+ +foreign import javascript unsafe "$1[\"getCurrentTime\"]()"+        js_getCurrentTime :: SVGAnimationElement -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimationElement.getCurrentTime Mozilla SVGAnimationElement.getCurrentTime documentation> +getCurrentTime ::+               (MonadIO m, IsSVGAnimationElement self) => self -> m Float+getCurrentTime self+  = liftIO (js_getCurrentTime (toSVGAnimationElement self))+ +foreign import javascript unsafe "$1[\"getSimpleDuration\"]()"+        js_getSimpleDuration :: SVGAnimationElement -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimationElement.getSimpleDuration Mozilla SVGAnimationElement.getSimpleDuration documentation> +getSimpleDuration ::+                  (MonadIO m, IsSVGAnimationElement self) => self -> m Float+getSimpleDuration self+  = liftIO (js_getSimpleDuration (toSVGAnimationElement self))+ +foreign import javascript unsafe "$1[\"beginElement\"]()"+        js_beginElement :: SVGAnimationElement -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimationElement.beginElement Mozilla SVGAnimationElement.beginElement documentation> +beginElement ::+             (MonadIO m, IsSVGAnimationElement self) => self -> m ()+beginElement self+  = liftIO (js_beginElement (toSVGAnimationElement self))+ +foreign import javascript unsafe "$1[\"beginElementAt\"]($2)"+        js_beginElementAt :: SVGAnimationElement -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimationElement.beginElementAt Mozilla SVGAnimationElement.beginElementAt documentation> +beginElementAt ::+               (MonadIO m, IsSVGAnimationElement self) => self -> Float -> m ()+beginElementAt self offset+  = liftIO (js_beginElementAt (toSVGAnimationElement self) offset)+ +foreign import javascript unsafe "$1[\"endElement\"]()"+        js_endElement :: SVGAnimationElement -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimationElement.endElement Mozilla SVGAnimationElement.endElement documentation> +endElement ::+           (MonadIO m, IsSVGAnimationElement self) => self -> m ()+endElement self+  = liftIO (js_endElement (toSVGAnimationElement self))+ +foreign import javascript unsafe "$1[\"endElementAt\"]($2)"+        js_endElementAt :: SVGAnimationElement -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimationElement.endElementAt Mozilla SVGAnimationElement.endElementAt documentation> +endElementAt ::+             (MonadIO m, IsSVGAnimationElement self) => self -> Float -> m ()+endElementAt self offset+  = liftIO (js_endElementAt (toSVGAnimationElement self) offset)+ +foreign import javascript unsafe "$1[\"targetElement\"]"+        js_getTargetElement ::+        SVGAnimationElement -> IO (Nullable SVGElement)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimationElement.targetElement Mozilla SVGAnimationElement.targetElement documentation> +getTargetElement ::+                 (MonadIO m, IsSVGAnimationElement self) =>+                   self -> m (Maybe SVGElement)+getTargetElement self+  = liftIO+      (nullableToMaybe <$>+         (js_getTargetElement (toSVGAnimationElement self)))
+ src/GHCJS/DOM/JSFFI/Generated/SVGCircleElement.hs view
@@ -0,0 +1,43 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.SVGCircleElement+       (js_getCx, getCx, js_getCy, getCy, js_getR, getR, SVGCircleElement,+        castToSVGCircleElement, gTypeSVGCircleElement)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"cx\"]" js_getCx ::+        SVGCircleElement -> IO (Nullable SVGAnimatedLength)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGCircleElement.cx Mozilla SVGCircleElement.cx documentation> +getCx ::+      (MonadIO m) => SVGCircleElement -> m (Maybe SVGAnimatedLength)+getCx self = liftIO (nullableToMaybe <$> (js_getCx (self)))+ +foreign import javascript unsafe "$1[\"cy\"]" js_getCy ::+        SVGCircleElement -> IO (Nullable SVGAnimatedLength)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGCircleElement.cy Mozilla SVGCircleElement.cy documentation> +getCy ::+      (MonadIO m) => SVGCircleElement -> m (Maybe SVGAnimatedLength)+getCy self = liftIO (nullableToMaybe <$> (js_getCy (self)))+ +foreign import javascript unsafe "$1[\"r\"]" js_getR ::+        SVGCircleElement -> IO (Nullable SVGAnimatedLength)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGCircleElement.r Mozilla SVGCircleElement.r documentation> +getR ::+     (MonadIO m) => SVGCircleElement -> m (Maybe SVGAnimatedLength)+getR self = liftIO (nullableToMaybe <$> (js_getR (self)))
+ src/GHCJS/DOM/JSFFI/Generated/SVGClipPathElement.hs view
@@ -0,0 +1,30 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.SVGClipPathElement+       (js_getClipPathUnits, getClipPathUnits, SVGClipPathElement,+        castToSVGClipPathElement, gTypeSVGClipPathElement)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"clipPathUnits\"]"+        js_getClipPathUnits ::+        SVGClipPathElement -> IO (Nullable SVGAnimatedEnumeration)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGClipPathElement.clipPathUnits Mozilla SVGClipPathElement.clipPathUnits documentation> +getClipPathUnits ::+                 (MonadIO m) =>+                   SVGClipPathElement -> m (Maybe SVGAnimatedEnumeration)+getClipPathUnits self+  = liftIO (nullableToMaybe <$> (js_getClipPathUnits (self)))
+ src/GHCJS/DOM/JSFFI/Generated/SVGColor.hs view
@@ -0,0 +1,81 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.SVGColor+       (js_setRGBColor, setRGBColor, js_setRGBColorICCColor,+        setRGBColorICCColor, js_setColor, setColor,+        pattern SVG_COLORTYPE_UNKNOWN, pattern SVG_COLORTYPE_RGBCOLOR,+        pattern SVG_COLORTYPE_RGBCOLOR_ICCCOLOR,+        pattern SVG_COLORTYPE_CURRENTCOLOR, js_getColorType, getColorType,+        js_getRgbColor, getRgbColor, SVGColor, castToSVGColor,+        gTypeSVGColor, IsSVGColor, toSVGColor)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"setRGBColor\"]($2)"+        js_setRGBColor :: SVGColor -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGColor.setRGBColor Mozilla SVGColor.setRGBColor documentation> +setRGBColor ::+            (MonadIO m, IsSVGColor self, ToJSString rgbColor) =>+              self -> rgbColor -> m ()+setRGBColor self rgbColor+  = liftIO (js_setRGBColor (toSVGColor self) (toJSString rgbColor))+ +foreign import javascript unsafe+        "$1[\"setRGBColorICCColor\"]($2,\n$3)" js_setRGBColorICCColor ::+        SVGColor -> JSString -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGColor.setRGBColorICCColor Mozilla SVGColor.setRGBColorICCColor documentation> +setRGBColorICCColor ::+                    (MonadIO m, IsSVGColor self, ToJSString rgbColor,+                     ToJSString iccColor) =>+                      self -> rgbColor -> iccColor -> m ()+setRGBColorICCColor self rgbColor iccColor+  = liftIO+      (js_setRGBColorICCColor (toSVGColor self) (toJSString rgbColor)+         (toJSString iccColor))+ +foreign import javascript unsafe "$1[\"setColor\"]($2, $3, $4)"+        js_setColor :: SVGColor -> Word -> JSString -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGColor.setColor Mozilla SVGColor.setColor documentation> +setColor ::+         (MonadIO m, IsSVGColor self, ToJSString rgbColor,+          ToJSString iccColor) =>+           self -> Word -> rgbColor -> iccColor -> m ()+setColor self colorType rgbColor iccColor+  = liftIO+      (js_setColor (toSVGColor self) colorType (toJSString rgbColor)+         (toJSString iccColor))+pattern SVG_COLORTYPE_UNKNOWN = 0+pattern SVG_COLORTYPE_RGBCOLOR = 1+pattern SVG_COLORTYPE_RGBCOLOR_ICCCOLOR = 2+pattern SVG_COLORTYPE_CURRENTCOLOR = 3+ +foreign import javascript unsafe "$1[\"colorType\"]"+        js_getColorType :: SVGColor -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGColor.colorType Mozilla SVGColor.colorType documentation> +getColorType :: (MonadIO m, IsSVGColor self) => self -> m Word+getColorType self = liftIO (js_getColorType (toSVGColor self))+ +foreign import javascript unsafe "$1[\"rgbColor\"]" js_getRgbColor+        :: SVGColor -> IO (Nullable RGBColor)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGColor.rgbColor Mozilla SVGColor.rgbColor documentation> +getRgbColor ::+            (MonadIO m, IsSVGColor self) => self -> m (Maybe RGBColor)+getRgbColor self+  = liftIO (nullableToMaybe <$> (js_getRgbColor (toSVGColor self)))
+ src/GHCJS/DOM/JSFFI/Generated/SVGComponentTransferFunctionElement.hs view
@@ -0,0 +1,132 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.SVGComponentTransferFunctionElement+       (pattern SVG_FECOMPONENTTRANSFER_TYPE_UNKNOWN,+        pattern SVG_FECOMPONENTTRANSFER_TYPE_IDENTITY,+        pattern SVG_FECOMPONENTTRANSFER_TYPE_TABLE,+        pattern SVG_FECOMPONENTTRANSFER_TYPE_DISCRETE,+        pattern SVG_FECOMPONENTTRANSFER_TYPE_LINEAR,+        pattern SVG_FECOMPONENTTRANSFER_TYPE_GAMMA, js_getType, getType,+        js_getTableValues, getTableValues, js_getSlope, getSlope,+        js_getIntercept, getIntercept, js_getAmplitude, getAmplitude,+        js_getExponent, getExponent, js_getOffset, getOffset,+        SVGComponentTransferFunctionElement,+        castToSVGComponentTransferFunctionElement,+        gTypeSVGComponentTransferFunctionElement,+        IsSVGComponentTransferFunctionElement,+        toSVGComponentTransferFunctionElement)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+pattern SVG_FECOMPONENTTRANSFER_TYPE_UNKNOWN = 0+pattern SVG_FECOMPONENTTRANSFER_TYPE_IDENTITY = 1+pattern SVG_FECOMPONENTTRANSFER_TYPE_TABLE = 2+pattern SVG_FECOMPONENTTRANSFER_TYPE_DISCRETE = 3+pattern SVG_FECOMPONENTTRANSFER_TYPE_LINEAR = 4+pattern SVG_FECOMPONENTTRANSFER_TYPE_GAMMA = 5+ +foreign import javascript unsafe "$1[\"type\"]" js_getType ::+        SVGComponentTransferFunctionElement ->+          IO (Nullable SVGAnimatedEnumeration)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGComponentTransferFunctionElement.type Mozilla SVGComponentTransferFunctionElement.type documentation> +getType ::+        (MonadIO m, IsSVGComponentTransferFunctionElement self) =>+          self -> m (Maybe SVGAnimatedEnumeration)+getType self+  = liftIO+      (nullableToMaybe <$>+         (js_getType (toSVGComponentTransferFunctionElement self)))+ +foreign import javascript unsafe "$1[\"tableValues\"]"+        js_getTableValues ::+        SVGComponentTransferFunctionElement ->+          IO (Nullable SVGAnimatedNumberList)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGComponentTransferFunctionElement.tableValues Mozilla SVGComponentTransferFunctionElement.tableValues documentation> +getTableValues ::+               (MonadIO m, IsSVGComponentTransferFunctionElement self) =>+                 self -> m (Maybe SVGAnimatedNumberList)+getTableValues self+  = liftIO+      (nullableToMaybe <$>+         (js_getTableValues (toSVGComponentTransferFunctionElement self)))+ +foreign import javascript unsafe "$1[\"slope\"]" js_getSlope ::+        SVGComponentTransferFunctionElement ->+          IO (Nullable SVGAnimatedNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGComponentTransferFunctionElement.slope Mozilla SVGComponentTransferFunctionElement.slope documentation> +getSlope ::+         (MonadIO m, IsSVGComponentTransferFunctionElement self) =>+           self -> m (Maybe SVGAnimatedNumber)+getSlope self+  = liftIO+      (nullableToMaybe <$>+         (js_getSlope (toSVGComponentTransferFunctionElement self)))+ +foreign import javascript unsafe "$1[\"intercept\"]"+        js_getIntercept ::+        SVGComponentTransferFunctionElement ->+          IO (Nullable SVGAnimatedNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGComponentTransferFunctionElement.intercept Mozilla SVGComponentTransferFunctionElement.intercept documentation> +getIntercept ::+             (MonadIO m, IsSVGComponentTransferFunctionElement self) =>+               self -> m (Maybe SVGAnimatedNumber)+getIntercept self+  = liftIO+      (nullableToMaybe <$>+         (js_getIntercept (toSVGComponentTransferFunctionElement self)))+ +foreign import javascript unsafe "$1[\"amplitude\"]"+        js_getAmplitude ::+        SVGComponentTransferFunctionElement ->+          IO (Nullable SVGAnimatedNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGComponentTransferFunctionElement.amplitude Mozilla SVGComponentTransferFunctionElement.amplitude documentation> +getAmplitude ::+             (MonadIO m, IsSVGComponentTransferFunctionElement self) =>+               self -> m (Maybe SVGAnimatedNumber)+getAmplitude self+  = liftIO+      (nullableToMaybe <$>+         (js_getAmplitude (toSVGComponentTransferFunctionElement self)))+ +foreign import javascript unsafe "$1[\"exponent\"]" js_getExponent+        ::+        SVGComponentTransferFunctionElement ->+          IO (Nullable SVGAnimatedNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGComponentTransferFunctionElement.exponent Mozilla SVGComponentTransferFunctionElement.exponent documentation> +getExponent ::+            (MonadIO m, IsSVGComponentTransferFunctionElement self) =>+              self -> m (Maybe SVGAnimatedNumber)+getExponent self+  = liftIO+      (nullableToMaybe <$>+         (js_getExponent (toSVGComponentTransferFunctionElement self)))+ +foreign import javascript unsafe "$1[\"offset\"]" js_getOffset ::+        SVGComponentTransferFunctionElement ->+          IO (Nullable SVGAnimatedNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGComponentTransferFunctionElement.offset Mozilla SVGComponentTransferFunctionElement.offset documentation> +getOffset ::+          (MonadIO m, IsSVGComponentTransferFunctionElement self) =>+            self -> m (Maybe SVGAnimatedNumber)+getOffset self+  = liftIO+      (nullableToMaybe <$>+         (js_getOffset (toSVGComponentTransferFunctionElement self)))
+ src/GHCJS/DOM/JSFFI/Generated/SVGCursorElement.hs view
@@ -0,0 +1,35 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.SVGCursorElement+       (js_getX, getX, js_getY, getY, SVGCursorElement,+        castToSVGCursorElement, gTypeSVGCursorElement)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"x\"]" js_getX ::+        SVGCursorElement -> IO (Nullable SVGAnimatedLength)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGCursorElement.x Mozilla SVGCursorElement.x documentation> +getX ::+     (MonadIO m) => SVGCursorElement -> m (Maybe SVGAnimatedLength)+getX self = liftIO (nullableToMaybe <$> (js_getX (self)))+ +foreign import javascript unsafe "$1[\"y\"]" js_getY ::+        SVGCursorElement -> IO (Nullable SVGAnimatedLength)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGCursorElement.y Mozilla SVGCursorElement.y documentation> +getY ::+     (MonadIO m) => SVGCursorElement -> m (Maybe SVGAnimatedLength)+getY self = liftIO (nullableToMaybe <$> (js_getY (self)))
+ src/GHCJS/DOM/JSFFI/Generated/SVGDocument.hs view
@@ -0,0 +1,40 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.SVGDocument+       (js_createEvent, createEvent, js_getRootElement, getRootElement,+        SVGDocument, castToSVGDocument, gTypeSVGDocument)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"createEvent\"]($2)"+        js_createEvent :: SVGDocument -> JSString -> IO (Nullable Event)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGDocument.createEvent Mozilla SVGDocument.createEvent documentation> +createEvent ::+            (MonadIO m, ToJSString eventType) =>+              SVGDocument -> eventType -> m (Maybe Event)+createEvent self eventType+  = liftIO+      (nullableToMaybe <$>+         (js_createEvent (self) (toJSString eventType)))+ +foreign import javascript unsafe "$1[\"rootElement\"]"+        js_getRootElement :: SVGDocument -> IO (Nullable SVGSVGElement)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGDocument.rootElement Mozilla SVGDocument.rootElement documentation> +getRootElement ::+               (MonadIO m) => SVGDocument -> m (Maybe SVGSVGElement)+getRootElement self+  = liftIO (nullableToMaybe <$> (js_getRootElement (self)))
+ src/GHCJS/DOM/JSFFI/Generated/SVGElement.hs view
@@ -0,0 +1,158 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.SVGElement+       (js_getPresentationAttribute, getPresentationAttribute,+        js_setXmlbase, setXmlbase, js_getXmlbase, getXmlbase,+        js_getOwnerSVGElement, getOwnerSVGElement, js_getViewportElement,+        getViewportElement, js_setXmllang, setXmllang, js_getXmllang,+        getXmllang, js_setXmlspace, setXmlspace, js_getXmlspace,+        getXmlspace, js_getClassName, getClassName, js_getStyle, getStyle,+        js_setTabIndex, setTabIndex, js_getTabIndex, getTabIndex,+        SVGElement, castToSVGElement, gTypeSVGElement, IsSVGElement,+        toSVGElement)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe+        "$1[\"getPresentationAttribute\"]($2)" js_getPresentationAttribute+        :: SVGElement -> JSString -> IO (Nullable CSSValue)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGElement.getPresentationAttribute Mozilla SVGElement.getPresentationAttribute documentation> +getPresentationAttribute ::+                         (MonadIO m, IsSVGElement self, ToJSString name) =>+                           self -> name -> m (Maybe CSSValue)+getPresentationAttribute self name+  = liftIO+      (nullableToMaybe <$>+         (js_getPresentationAttribute (toSVGElement self)+            (toJSString name)))+ +foreign import javascript unsafe "$1[\"xmlbase\"] = $2;"+        js_setXmlbase :: SVGElement -> Nullable JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGElement.xmlbase Mozilla SVGElement.xmlbase documentation> +setXmlbase ::+           (MonadIO m, IsSVGElement self, ToJSString val) =>+             self -> Maybe val -> m ()+setXmlbase self val+  = liftIO (js_setXmlbase (toSVGElement self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"xmlbase\"]" js_getXmlbase ::+        SVGElement -> IO (Nullable JSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGElement.xmlbase Mozilla SVGElement.xmlbase documentation> +getXmlbase ::+           (MonadIO m, IsSVGElement self, FromJSString result) =>+             self -> m (Maybe result)+getXmlbase self+  = liftIO+      (fromMaybeJSString <$> (js_getXmlbase (toSVGElement self)))+ +foreign import javascript unsafe "$1[\"ownerSVGElement\"]"+        js_getOwnerSVGElement :: SVGElement -> IO (Nullable SVGSVGElement)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGElement.ownerSVGElement Mozilla SVGElement.ownerSVGElement documentation> +getOwnerSVGElement ::+                   (MonadIO m, IsSVGElement self) => self -> m (Maybe SVGSVGElement)+getOwnerSVGElement self+  = liftIO+      (nullableToMaybe <$> (js_getOwnerSVGElement (toSVGElement self)))+ +foreign import javascript unsafe "$1[\"viewportElement\"]"+        js_getViewportElement :: SVGElement -> IO (Nullable SVGElement)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGElement.viewportElement Mozilla SVGElement.viewportElement documentation> +getViewportElement ::+                   (MonadIO m, IsSVGElement self) => self -> m (Maybe SVGElement)+getViewportElement self+  = liftIO+      (nullableToMaybe <$> (js_getViewportElement (toSVGElement self)))+ +foreign import javascript unsafe "$1[\"xmllang\"] = $2;"+        js_setXmllang :: SVGElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGElement.xmllang Mozilla SVGElement.xmllang documentation> +setXmllang ::+           (MonadIO m, IsSVGElement self, ToJSString val) =>+             self -> val -> m ()+setXmllang self val+  = liftIO (js_setXmllang (toSVGElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"xmllang\"]" js_getXmllang ::+        SVGElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGElement.xmllang Mozilla SVGElement.xmllang documentation> +getXmllang ::+           (MonadIO m, IsSVGElement self, FromJSString result) =>+             self -> m result+getXmllang self+  = liftIO (fromJSString <$> (js_getXmllang (toSVGElement self)))+ +foreign import javascript unsafe "$1[\"xmlspace\"] = $2;"+        js_setXmlspace :: SVGElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGElement.xmlspace Mozilla SVGElement.xmlspace documentation> +setXmlspace ::+            (MonadIO m, IsSVGElement self, ToJSString val) =>+              self -> val -> m ()+setXmlspace self val+  = liftIO (js_setXmlspace (toSVGElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"xmlspace\"]" js_getXmlspace+        :: SVGElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGElement.xmlspace Mozilla SVGElement.xmlspace documentation> +getXmlspace ::+            (MonadIO m, IsSVGElement self, FromJSString result) =>+              self -> m result+getXmlspace self+  = liftIO (fromJSString <$> (js_getXmlspace (toSVGElement self)))+ +foreign import javascript unsafe "$1[\"className\"]"+        js_getClassName :: SVGElement -> IO (Nullable SVGAnimatedString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGElement.className Mozilla SVGElement.className documentation> +getClassName ::+             (MonadIO m, IsSVGElement self) =>+               self -> m (Maybe SVGAnimatedString)+getClassName self+  = liftIO+      (nullableToMaybe <$> (js_getClassName (toSVGElement self)))+ +foreign import javascript unsafe "$1[\"style\"]" js_getStyle ::+        SVGElement -> IO (Nullable CSSStyleDeclaration)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGElement.style Mozilla SVGElement.style documentation> +getStyle ::+         (MonadIO m, IsSVGElement self) =>+           self -> m (Maybe CSSStyleDeclaration)+getStyle self+  = liftIO (nullableToMaybe <$> (js_getStyle (toSVGElement self)))+ +foreign import javascript unsafe "$1[\"tabIndex\"] = $2;"+        js_setTabIndex :: SVGElement -> Int -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGElement.tabIndex Mozilla SVGElement.tabIndex documentation> +setTabIndex ::+            (MonadIO m, IsSVGElement self) => self -> Int -> m ()+setTabIndex self val+  = liftIO (js_setTabIndex (toSVGElement self) val)+ +foreign import javascript unsafe "$1[\"tabIndex\"]" js_getTabIndex+        :: SVGElement -> IO Int++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGElement.tabIndex Mozilla SVGElement.tabIndex documentation> +getTabIndex :: (MonadIO m, IsSVGElement self) => self -> m Int+getTabIndex self = liftIO (js_getTabIndex (toSVGElement self))
+ src/GHCJS/DOM/JSFFI/Generated/SVGEllipseElement.hs view
@@ -0,0 +1,52 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.SVGEllipseElement+       (js_getCx, getCx, js_getCy, getCy, js_getRx, getRx, js_getRy,+        getRy, SVGEllipseElement, castToSVGEllipseElement,+        gTypeSVGEllipseElement)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"cx\"]" js_getCx ::+        SVGEllipseElement -> IO (Nullable SVGAnimatedLength)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGEllipseElement.cx Mozilla SVGEllipseElement.cx documentation> +getCx ::+      (MonadIO m) => SVGEllipseElement -> m (Maybe SVGAnimatedLength)+getCx self = liftIO (nullableToMaybe <$> (js_getCx (self)))+ +foreign import javascript unsafe "$1[\"cy\"]" js_getCy ::+        SVGEllipseElement -> IO (Nullable SVGAnimatedLength)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGEllipseElement.cy Mozilla SVGEllipseElement.cy documentation> +getCy ::+      (MonadIO m) => SVGEllipseElement -> m (Maybe SVGAnimatedLength)+getCy self = liftIO (nullableToMaybe <$> (js_getCy (self)))+ +foreign import javascript unsafe "$1[\"rx\"]" js_getRx ::+        SVGEllipseElement -> IO (Nullable SVGAnimatedLength)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGEllipseElement.rx Mozilla SVGEllipseElement.rx documentation> +getRx ::+      (MonadIO m) => SVGEllipseElement -> m (Maybe SVGAnimatedLength)+getRx self = liftIO (nullableToMaybe <$> (js_getRx (self)))+ +foreign import javascript unsafe "$1[\"ry\"]" js_getRy ::+        SVGEllipseElement -> IO (Nullable SVGAnimatedLength)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGEllipseElement.ry Mozilla SVGEllipseElement.ry documentation> +getRy ::+      (MonadIO m) => SVGEllipseElement -> m (Maybe SVGAnimatedLength)+getRy self = liftIO (nullableToMaybe <$> (js_getRy (self)))
+ src/GHCJS/DOM/JSFFI/Generated/SVGExternalResourcesRequired.hs view
@@ -0,0 +1,32 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.SVGExternalResourcesRequired+       (js_getExternalResourcesRequired, getExternalResourcesRequired,+        SVGExternalResourcesRequired, castToSVGExternalResourcesRequired,+        gTypeSVGExternalResourcesRequired)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe+        "$1[\"externalResourcesRequired\"]" js_getExternalResourcesRequired+        :: SVGExternalResourcesRequired -> IO (Nullable SVGAnimatedBoolean)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGExternalResourcesRequired.externalResourcesRequired Mozilla SVGExternalResourcesRequired.externalResourcesRequired documentation> +getExternalResourcesRequired ::+                             (MonadIO m) =>+                               SVGExternalResourcesRequired -> m (Maybe SVGAnimatedBoolean)+getExternalResourcesRequired self+  = liftIO+      (nullableToMaybe <$> (js_getExternalResourcesRequired (self)))
+ src/GHCJS/DOM/JSFFI/Generated/SVGFEBlendElement.hs view
@@ -0,0 +1,53 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.SVGFEBlendElement+       (pattern SVG_FEBLEND_MODE_UNKNOWN, pattern SVG_FEBLEND_MODE_NORMAL,+        pattern SVG_FEBLEND_MODE_MULTIPLY, pattern SVG_FEBLEND_MODE_SCREEN,+        pattern SVG_FEBLEND_MODE_DARKEN, pattern SVG_FEBLEND_MODE_LIGHTEN,+        js_getIn1, getIn1, js_getIn2, getIn2, js_getMode, getMode,+        SVGFEBlendElement, castToSVGFEBlendElement, gTypeSVGFEBlendElement)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+pattern SVG_FEBLEND_MODE_UNKNOWN = 0+pattern SVG_FEBLEND_MODE_NORMAL = 1+pattern SVG_FEBLEND_MODE_MULTIPLY = 2+pattern SVG_FEBLEND_MODE_SCREEN = 3+pattern SVG_FEBLEND_MODE_DARKEN = 4+pattern SVG_FEBLEND_MODE_LIGHTEN = 5+ +foreign import javascript unsafe "$1[\"in1\"]" js_getIn1 ::+        SVGFEBlendElement -> IO (Nullable SVGAnimatedString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEBlendElement.in1 Mozilla SVGFEBlendElement.in1 documentation> +getIn1 ::+       (MonadIO m) => SVGFEBlendElement -> m (Maybe SVGAnimatedString)+getIn1 self = liftIO (nullableToMaybe <$> (js_getIn1 (self)))+ +foreign import javascript unsafe "$1[\"in2\"]" js_getIn2 ::+        SVGFEBlendElement -> IO (Nullable SVGAnimatedString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEBlendElement.in2 Mozilla SVGFEBlendElement.in2 documentation> +getIn2 ::+       (MonadIO m) => SVGFEBlendElement -> m (Maybe SVGAnimatedString)+getIn2 self = liftIO (nullableToMaybe <$> (js_getIn2 (self)))+ +foreign import javascript unsafe "$1[\"mode\"]" js_getMode ::+        SVGFEBlendElement -> IO (Nullable SVGAnimatedEnumeration)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEBlendElement.mode Mozilla SVGFEBlendElement.mode documentation> +getMode ::+        (MonadIO m) =>+          SVGFEBlendElement -> m (Maybe SVGAnimatedEnumeration)+getMode self = liftIO (nullableToMaybe <$> (js_getMode (self)))
+ src/GHCJS/DOM/JSFFI/Generated/SVGFEColorMatrixElement.hs view
@@ -0,0 +1,57 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.SVGFEColorMatrixElement+       (pattern SVG_FECOLORMATRIX_TYPE_UNKNOWN,+        pattern SVG_FECOLORMATRIX_TYPE_MATRIX,+        pattern SVG_FECOLORMATRIX_TYPE_SATURATE,+        pattern SVG_FECOLORMATRIX_TYPE_HUEROTATE,+        pattern SVG_FECOLORMATRIX_TYPE_LUMINANCETOALPHA, js_getIn1, getIn1,+        js_getType, getType, js_getValues, getValues,+        SVGFEColorMatrixElement, castToSVGFEColorMatrixElement,+        gTypeSVGFEColorMatrixElement)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+pattern SVG_FECOLORMATRIX_TYPE_UNKNOWN = 0+pattern SVG_FECOLORMATRIX_TYPE_MATRIX = 1+pattern SVG_FECOLORMATRIX_TYPE_SATURATE = 2+pattern SVG_FECOLORMATRIX_TYPE_HUEROTATE = 3+pattern SVG_FECOLORMATRIX_TYPE_LUMINANCETOALPHA = 4+ +foreign import javascript unsafe "$1[\"in1\"]" js_getIn1 ::+        SVGFEColorMatrixElement -> IO (Nullable SVGAnimatedString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEColorMatrixElement.in1 Mozilla SVGFEColorMatrixElement.in1 documentation> +getIn1 ::+       (MonadIO m) =>+         SVGFEColorMatrixElement -> m (Maybe SVGAnimatedString)+getIn1 self = liftIO (nullableToMaybe <$> (js_getIn1 (self)))+ +foreign import javascript unsafe "$1[\"type\"]" js_getType ::+        SVGFEColorMatrixElement -> IO (Nullable SVGAnimatedEnumeration)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEColorMatrixElement.type Mozilla SVGFEColorMatrixElement.type documentation> +getType ::+        (MonadIO m) =>+          SVGFEColorMatrixElement -> m (Maybe SVGAnimatedEnumeration)+getType self = liftIO (nullableToMaybe <$> (js_getType (self)))+ +foreign import javascript unsafe "$1[\"values\"]" js_getValues ::+        SVGFEColorMatrixElement -> IO (Nullable SVGAnimatedNumberList)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEColorMatrixElement.values Mozilla SVGFEColorMatrixElement.values documentation> +getValues ::+          (MonadIO m) =>+            SVGFEColorMatrixElement -> m (Maybe SVGAnimatedNumberList)+getValues self = liftIO (nullableToMaybe <$> (js_getValues (self)))
+ src/GHCJS/DOM/JSFFI/Generated/SVGFEComponentTransferElement.hs view
@@ -0,0 +1,29 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.SVGFEComponentTransferElement+       (js_getIn1, getIn1, SVGFEComponentTransferElement,+        castToSVGFEComponentTransferElement,+        gTypeSVGFEComponentTransferElement)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"in1\"]" js_getIn1 ::+        SVGFEComponentTransferElement -> IO (Nullable SVGAnimatedString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEComponentTransferElement.in1 Mozilla SVGFEComponentTransferElement.in1 documentation> +getIn1 ::+       (MonadIO m) =>+         SVGFEComponentTransferElement -> m (Maybe SVGAnimatedString)+getIn1 self = liftIO (nullableToMaybe <$> (js_getIn1 (self)))
+ src/GHCJS/DOM/JSFFI/Generated/SVGFECompositeElement.hs view
@@ -0,0 +1,93 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.SVGFECompositeElement+       (pattern SVG_FECOMPOSITE_OPERATOR_UNKNOWN,+        pattern SVG_FECOMPOSITE_OPERATOR_OVER,+        pattern SVG_FECOMPOSITE_OPERATOR_IN,+        pattern SVG_FECOMPOSITE_OPERATOR_OUT,+        pattern SVG_FECOMPOSITE_OPERATOR_ATOP,+        pattern SVG_FECOMPOSITE_OPERATOR_XOR,+        pattern SVG_FECOMPOSITE_OPERATOR_ARITHMETIC, js_getIn1, getIn1,+        js_getIn2, getIn2, js_getOperator, getOperator, js_getK1, getK1,+        js_getK2, getK2, js_getK3, getK3, js_getK4, getK4,+        SVGFECompositeElement, castToSVGFECompositeElement,+        gTypeSVGFECompositeElement)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+pattern SVG_FECOMPOSITE_OPERATOR_UNKNOWN = 0+pattern SVG_FECOMPOSITE_OPERATOR_OVER = 1+pattern SVG_FECOMPOSITE_OPERATOR_IN = 2+pattern SVG_FECOMPOSITE_OPERATOR_OUT = 3+pattern SVG_FECOMPOSITE_OPERATOR_ATOP = 4+pattern SVG_FECOMPOSITE_OPERATOR_XOR = 5+pattern SVG_FECOMPOSITE_OPERATOR_ARITHMETIC = 6+ +foreign import javascript unsafe "$1[\"in1\"]" js_getIn1 ::+        SVGFECompositeElement -> IO (Nullable SVGAnimatedString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFECompositeElement.in1 Mozilla SVGFECompositeElement.in1 documentation> +getIn1 ::+       (MonadIO m) => SVGFECompositeElement -> m (Maybe SVGAnimatedString)+getIn1 self = liftIO (nullableToMaybe <$> (js_getIn1 (self)))+ +foreign import javascript unsafe "$1[\"in2\"]" js_getIn2 ::+        SVGFECompositeElement -> IO (Nullable SVGAnimatedString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFECompositeElement.in2 Mozilla SVGFECompositeElement.in2 documentation> +getIn2 ::+       (MonadIO m) => SVGFECompositeElement -> m (Maybe SVGAnimatedString)+getIn2 self = liftIO (nullableToMaybe <$> (js_getIn2 (self)))+ +foreign import javascript unsafe "$1[\"operator\"]" js_getOperator+        :: SVGFECompositeElement -> IO (Nullable SVGAnimatedEnumeration)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFECompositeElement.operator Mozilla SVGFECompositeElement.operator documentation> +getOperator ::+            (MonadIO m) =>+              SVGFECompositeElement -> m (Maybe SVGAnimatedEnumeration)+getOperator self+  = liftIO (nullableToMaybe <$> (js_getOperator (self)))+ +foreign import javascript unsafe "$1[\"k1\"]" js_getK1 ::+        SVGFECompositeElement -> IO (Nullable SVGAnimatedNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFECompositeElement.k1 Mozilla SVGFECompositeElement.k1 documentation> +getK1 ::+      (MonadIO m) => SVGFECompositeElement -> m (Maybe SVGAnimatedNumber)+getK1 self = liftIO (nullableToMaybe <$> (js_getK1 (self)))+ +foreign import javascript unsafe "$1[\"k2\"]" js_getK2 ::+        SVGFECompositeElement -> IO (Nullable SVGAnimatedNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFECompositeElement.k2 Mozilla SVGFECompositeElement.k2 documentation> +getK2 ::+      (MonadIO m) => SVGFECompositeElement -> m (Maybe SVGAnimatedNumber)+getK2 self = liftIO (nullableToMaybe <$> (js_getK2 (self)))+ +foreign import javascript unsafe "$1[\"k3\"]" js_getK3 ::+        SVGFECompositeElement -> IO (Nullable SVGAnimatedNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFECompositeElement.k3 Mozilla SVGFECompositeElement.k3 documentation> +getK3 ::+      (MonadIO m) => SVGFECompositeElement -> m (Maybe SVGAnimatedNumber)+getK3 self = liftIO (nullableToMaybe <$> (js_getK3 (self)))+ +foreign import javascript unsafe "$1[\"k4\"]" js_getK4 ::+        SVGFECompositeElement -> IO (Nullable SVGAnimatedNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFECompositeElement.k4 Mozilla SVGFECompositeElement.k4 documentation> +getK4 ::+      (MonadIO m) => SVGFECompositeElement -> m (Maybe SVGAnimatedNumber)+getK4 self = liftIO (nullableToMaybe <$> (js_getK4 (self)))
+ src/GHCJS/DOM/JSFFI/Generated/SVGFEConvolveMatrixElement.hs view
@@ -0,0 +1,152 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.SVGFEConvolveMatrixElement+       (pattern SVG_EDGEMODE_UNKNOWN, pattern SVG_EDGEMODE_DUPLICATE,+        pattern SVG_EDGEMODE_WRAP, pattern SVG_EDGEMODE_NONE, js_getIn1,+        getIn1, js_getOrderX, getOrderX, js_getOrderY, getOrderY,+        js_getKernelMatrix, getKernelMatrix, js_getDivisor, getDivisor,+        js_getBias, getBias, js_getTargetX, getTargetX, js_getTargetY,+        getTargetY, js_getEdgeMode, getEdgeMode, js_getKernelUnitLengthX,+        getKernelUnitLengthX, js_getKernelUnitLengthY,+        getKernelUnitLengthY, js_getPreserveAlpha, getPreserveAlpha,+        SVGFEConvolveMatrixElement, castToSVGFEConvolveMatrixElement,+        gTypeSVGFEConvolveMatrixElement)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+pattern SVG_EDGEMODE_UNKNOWN = 0+pattern SVG_EDGEMODE_DUPLICATE = 1+pattern SVG_EDGEMODE_WRAP = 2+pattern SVG_EDGEMODE_NONE = 3+ +foreign import javascript unsafe "$1[\"in1\"]" js_getIn1 ::+        SVGFEConvolveMatrixElement -> IO (Nullable SVGAnimatedString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEConvolveMatrixElement.in1 Mozilla SVGFEConvolveMatrixElement.in1 documentation> +getIn1 ::+       (MonadIO m) =>+         SVGFEConvolveMatrixElement -> m (Maybe SVGAnimatedString)+getIn1 self = liftIO (nullableToMaybe <$> (js_getIn1 (self)))+ +foreign import javascript unsafe "$1[\"orderX\"]" js_getOrderX ::+        SVGFEConvolveMatrixElement -> IO (Nullable SVGAnimatedInteger)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEConvolveMatrixElement.orderX Mozilla SVGFEConvolveMatrixElement.orderX documentation> +getOrderX ::+          (MonadIO m) =>+            SVGFEConvolveMatrixElement -> m (Maybe SVGAnimatedInteger)+getOrderX self = liftIO (nullableToMaybe <$> (js_getOrderX (self)))+ +foreign import javascript unsafe "$1[\"orderY\"]" js_getOrderY ::+        SVGFEConvolveMatrixElement -> IO (Nullable SVGAnimatedInteger)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEConvolveMatrixElement.orderY Mozilla SVGFEConvolveMatrixElement.orderY documentation> +getOrderY ::+          (MonadIO m) =>+            SVGFEConvolveMatrixElement -> m (Maybe SVGAnimatedInteger)+getOrderY self = liftIO (nullableToMaybe <$> (js_getOrderY (self)))+ +foreign import javascript unsafe "$1[\"kernelMatrix\"]"+        js_getKernelMatrix ::+        SVGFEConvolveMatrixElement -> IO (Nullable SVGAnimatedNumberList)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEConvolveMatrixElement.kernelMatrix Mozilla SVGFEConvolveMatrixElement.kernelMatrix documentation> +getKernelMatrix ::+                (MonadIO m) =>+                  SVGFEConvolveMatrixElement -> m (Maybe SVGAnimatedNumberList)+getKernelMatrix self+  = liftIO (nullableToMaybe <$> (js_getKernelMatrix (self)))+ +foreign import javascript unsafe "$1[\"divisor\"]" js_getDivisor ::+        SVGFEConvolveMatrixElement -> IO (Nullable SVGAnimatedNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEConvolveMatrixElement.divisor Mozilla SVGFEConvolveMatrixElement.divisor documentation> +getDivisor ::+           (MonadIO m) =>+             SVGFEConvolveMatrixElement -> m (Maybe SVGAnimatedNumber)+getDivisor self+  = liftIO (nullableToMaybe <$> (js_getDivisor (self)))+ +foreign import javascript unsafe "$1[\"bias\"]" js_getBias ::+        SVGFEConvolveMatrixElement -> IO (Nullable SVGAnimatedNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEConvolveMatrixElement.bias Mozilla SVGFEConvolveMatrixElement.bias documentation> +getBias ::+        (MonadIO m) =>+          SVGFEConvolveMatrixElement -> m (Maybe SVGAnimatedNumber)+getBias self = liftIO (nullableToMaybe <$> (js_getBias (self)))+ +foreign import javascript unsafe "$1[\"targetX\"]" js_getTargetX ::+        SVGFEConvolveMatrixElement -> IO (Nullable SVGAnimatedInteger)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEConvolveMatrixElement.targetX Mozilla SVGFEConvolveMatrixElement.targetX documentation> +getTargetX ::+           (MonadIO m) =>+             SVGFEConvolveMatrixElement -> m (Maybe SVGAnimatedInteger)+getTargetX self+  = liftIO (nullableToMaybe <$> (js_getTargetX (self)))+ +foreign import javascript unsafe "$1[\"targetY\"]" js_getTargetY ::+        SVGFEConvolveMatrixElement -> IO (Nullable SVGAnimatedInteger)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEConvolveMatrixElement.targetY Mozilla SVGFEConvolveMatrixElement.targetY documentation> +getTargetY ::+           (MonadIO m) =>+             SVGFEConvolveMatrixElement -> m (Maybe SVGAnimatedInteger)+getTargetY self+  = liftIO (nullableToMaybe <$> (js_getTargetY (self)))+ +foreign import javascript unsafe "$1[\"edgeMode\"]" js_getEdgeMode+        ::+        SVGFEConvolveMatrixElement -> IO (Nullable SVGAnimatedEnumeration)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEConvolveMatrixElement.edgeMode Mozilla SVGFEConvolveMatrixElement.edgeMode documentation> +getEdgeMode ::+            (MonadIO m) =>+              SVGFEConvolveMatrixElement -> m (Maybe SVGAnimatedEnumeration)+getEdgeMode self+  = liftIO (nullableToMaybe <$> (js_getEdgeMode (self)))+ +foreign import javascript unsafe "$1[\"kernelUnitLengthX\"]"+        js_getKernelUnitLengthX ::+        SVGFEConvolveMatrixElement -> IO (Nullable SVGAnimatedNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEConvolveMatrixElement.kernelUnitLengthX Mozilla SVGFEConvolveMatrixElement.kernelUnitLengthX documentation> +getKernelUnitLengthX ::+                     (MonadIO m) =>+                       SVGFEConvolveMatrixElement -> m (Maybe SVGAnimatedNumber)+getKernelUnitLengthX self+  = liftIO (nullableToMaybe <$> (js_getKernelUnitLengthX (self)))+ +foreign import javascript unsafe "$1[\"kernelUnitLengthY\"]"+        js_getKernelUnitLengthY ::+        SVGFEConvolveMatrixElement -> IO (Nullable SVGAnimatedNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEConvolveMatrixElement.kernelUnitLengthY Mozilla SVGFEConvolveMatrixElement.kernelUnitLengthY documentation> +getKernelUnitLengthY ::+                     (MonadIO m) =>+                       SVGFEConvolveMatrixElement -> m (Maybe SVGAnimatedNumber)+getKernelUnitLengthY self+  = liftIO (nullableToMaybe <$> (js_getKernelUnitLengthY (self)))+ +foreign import javascript unsafe "$1[\"preserveAlpha\"]"+        js_getPreserveAlpha ::+        SVGFEConvolveMatrixElement -> IO (Nullable SVGAnimatedBoolean)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEConvolveMatrixElement.preserveAlpha Mozilla SVGFEConvolveMatrixElement.preserveAlpha documentation> +getPreserveAlpha ::+                 (MonadIO m) =>+                   SVGFEConvolveMatrixElement -> m (Maybe SVGAnimatedBoolean)+getPreserveAlpha self+  = liftIO (nullableToMaybe <$> (js_getPreserveAlpha (self)))
+ src/GHCJS/DOM/JSFFI/Generated/SVGFEDiffuseLightingElement.hs view
@@ -0,0 +1,76 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.SVGFEDiffuseLightingElement+       (js_getIn1, getIn1, js_getSurfaceScale, getSurfaceScale,+        js_getDiffuseConstant, getDiffuseConstant, js_getKernelUnitLengthX,+        getKernelUnitLengthX, js_getKernelUnitLengthY,+        getKernelUnitLengthY, SVGFEDiffuseLightingElement,+        castToSVGFEDiffuseLightingElement,+        gTypeSVGFEDiffuseLightingElement)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"in1\"]" js_getIn1 ::+        SVGFEDiffuseLightingElement -> IO (Nullable SVGAnimatedString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDiffuseLightingElement.in1 Mozilla SVGFEDiffuseLightingElement.in1 documentation> +getIn1 ::+       (MonadIO m) =>+         SVGFEDiffuseLightingElement -> m (Maybe SVGAnimatedString)+getIn1 self = liftIO (nullableToMaybe <$> (js_getIn1 (self)))+ +foreign import javascript unsafe "$1[\"surfaceScale\"]"+        js_getSurfaceScale ::+        SVGFEDiffuseLightingElement -> IO (Nullable SVGAnimatedNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDiffuseLightingElement.surfaceScale Mozilla SVGFEDiffuseLightingElement.surfaceScale documentation> +getSurfaceScale ::+                (MonadIO m) =>+                  SVGFEDiffuseLightingElement -> m (Maybe SVGAnimatedNumber)+getSurfaceScale self+  = liftIO (nullableToMaybe <$> (js_getSurfaceScale (self)))+ +foreign import javascript unsafe "$1[\"diffuseConstant\"]"+        js_getDiffuseConstant ::+        SVGFEDiffuseLightingElement -> IO (Nullable SVGAnimatedNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDiffuseLightingElement.diffuseConstant Mozilla SVGFEDiffuseLightingElement.diffuseConstant documentation> +getDiffuseConstant ::+                   (MonadIO m) =>+                     SVGFEDiffuseLightingElement -> m (Maybe SVGAnimatedNumber)+getDiffuseConstant self+  = liftIO (nullableToMaybe <$> (js_getDiffuseConstant (self)))+ +foreign import javascript unsafe "$1[\"kernelUnitLengthX\"]"+        js_getKernelUnitLengthX ::+        SVGFEDiffuseLightingElement -> IO (Nullable SVGAnimatedNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDiffuseLightingElement.kernelUnitLengthX Mozilla SVGFEDiffuseLightingElement.kernelUnitLengthX documentation> +getKernelUnitLengthX ::+                     (MonadIO m) =>+                       SVGFEDiffuseLightingElement -> m (Maybe SVGAnimatedNumber)+getKernelUnitLengthX self+  = liftIO (nullableToMaybe <$> (js_getKernelUnitLengthX (self)))+ +foreign import javascript unsafe "$1[\"kernelUnitLengthY\"]"+        js_getKernelUnitLengthY ::+        SVGFEDiffuseLightingElement -> IO (Nullable SVGAnimatedNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDiffuseLightingElement.kernelUnitLengthY Mozilla SVGFEDiffuseLightingElement.kernelUnitLengthY documentation> +getKernelUnitLengthY ::+                     (MonadIO m) =>+                       SVGFEDiffuseLightingElement -> m (Maybe SVGAnimatedNumber)+getKernelUnitLengthY self+  = liftIO (nullableToMaybe <$> (js_getKernelUnitLengthY (self)))
+ src/GHCJS/DOM/JSFFI/Generated/SVGFEDisplacementMapElement.hs view
@@ -0,0 +1,78 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.SVGFEDisplacementMapElement+       (pattern SVG_CHANNEL_UNKNOWN, pattern SVG_CHANNEL_R,+        pattern SVG_CHANNEL_G, pattern SVG_CHANNEL_B,+        pattern SVG_CHANNEL_A, js_getIn1, getIn1, js_getIn2, getIn2,+        js_getScale, getScale, js_getXChannelSelector, getXChannelSelector,+        js_getYChannelSelector, getYChannelSelector,+        SVGFEDisplacementMapElement, castToSVGFEDisplacementMapElement,+        gTypeSVGFEDisplacementMapElement)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+pattern SVG_CHANNEL_UNKNOWN = 0+pattern SVG_CHANNEL_R = 1+pattern SVG_CHANNEL_G = 2+pattern SVG_CHANNEL_B = 3+pattern SVG_CHANNEL_A = 4+ +foreign import javascript unsafe "$1[\"in1\"]" js_getIn1 ::+        SVGFEDisplacementMapElement -> IO (Nullable SVGAnimatedString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDisplacementMapElement.in1 Mozilla SVGFEDisplacementMapElement.in1 documentation> +getIn1 ::+       (MonadIO m) =>+         SVGFEDisplacementMapElement -> m (Maybe SVGAnimatedString)+getIn1 self = liftIO (nullableToMaybe <$> (js_getIn1 (self)))+ +foreign import javascript unsafe "$1[\"in2\"]" js_getIn2 ::+        SVGFEDisplacementMapElement -> IO (Nullable SVGAnimatedString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDisplacementMapElement.in2 Mozilla SVGFEDisplacementMapElement.in2 documentation> +getIn2 ::+       (MonadIO m) =>+         SVGFEDisplacementMapElement -> m (Maybe SVGAnimatedString)+getIn2 self = liftIO (nullableToMaybe <$> (js_getIn2 (self)))+ +foreign import javascript unsafe "$1[\"scale\"]" js_getScale ::+        SVGFEDisplacementMapElement -> IO (Nullable SVGAnimatedNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDisplacementMapElement.scale Mozilla SVGFEDisplacementMapElement.scale documentation> +getScale ::+         (MonadIO m) =>+           SVGFEDisplacementMapElement -> m (Maybe SVGAnimatedNumber)+getScale self = liftIO (nullableToMaybe <$> (js_getScale (self)))+ +foreign import javascript unsafe "$1[\"xChannelSelector\"]"+        js_getXChannelSelector ::+        SVGFEDisplacementMapElement -> IO (Nullable SVGAnimatedEnumeration)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDisplacementMapElement.xChannelSelector Mozilla SVGFEDisplacementMapElement.xChannelSelector documentation> +getXChannelSelector ::+                    (MonadIO m) =>+                      SVGFEDisplacementMapElement -> m (Maybe SVGAnimatedEnumeration)+getXChannelSelector self+  = liftIO (nullableToMaybe <$> (js_getXChannelSelector (self)))+ +foreign import javascript unsafe "$1[\"yChannelSelector\"]"+        js_getYChannelSelector ::+        SVGFEDisplacementMapElement -> IO (Nullable SVGAnimatedEnumeration)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDisplacementMapElement.yChannelSelector Mozilla SVGFEDisplacementMapElement.yChannelSelector documentation> +getYChannelSelector ::+                    (MonadIO m) =>+                      SVGFEDisplacementMapElement -> m (Maybe SVGAnimatedEnumeration)+getYChannelSelector self+  = liftIO (nullableToMaybe <$> (js_getYChannelSelector (self)))
+ src/GHCJS/DOM/JSFFI/Generated/SVGFEDistantLightElement.hs view
@@ -0,0 +1,41 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.SVGFEDistantLightElement+       (js_getAzimuth, getAzimuth, js_getElevation, getElevation,+        SVGFEDistantLightElement, castToSVGFEDistantLightElement,+        gTypeSVGFEDistantLightElement)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"azimuth\"]" js_getAzimuth ::+        SVGFEDistantLightElement -> IO (Nullable SVGAnimatedNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDistantLightElement.azimuth Mozilla SVGFEDistantLightElement.azimuth documentation> +getAzimuth ::+           (MonadIO m) =>+             SVGFEDistantLightElement -> m (Maybe SVGAnimatedNumber)+getAzimuth self+  = liftIO (nullableToMaybe <$> (js_getAzimuth (self)))+ +foreign import javascript unsafe "$1[\"elevation\"]"+        js_getElevation ::+        SVGFEDistantLightElement -> IO (Nullable SVGAnimatedNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDistantLightElement.elevation Mozilla SVGFEDistantLightElement.elevation documentation> +getElevation ::+             (MonadIO m) =>+               SVGFEDistantLightElement -> m (Maybe SVGAnimatedNumber)+getElevation self+  = liftIO (nullableToMaybe <$> (js_getElevation (self)))
+ src/GHCJS/DOM/JSFFI/Generated/SVGFEDropShadowElement.hs view
@@ -0,0 +1,80 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.SVGFEDropShadowElement+       (js_setStdDeviation, setStdDeviation, js_getIn1, getIn1, js_getDx,+        getDx, js_getDy, getDy, js_getStdDeviationX, getStdDeviationX,+        js_getStdDeviationY, getStdDeviationY, SVGFEDropShadowElement,+        castToSVGFEDropShadowElement, gTypeSVGFEDropShadowElement)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"setStdDeviation\"]($2, $3)"+        js_setStdDeviation ::+        SVGFEDropShadowElement -> Float -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDropShadowElement.setStdDeviation Mozilla SVGFEDropShadowElement.setStdDeviation documentation> +setStdDeviation ::+                (MonadIO m) => SVGFEDropShadowElement -> Float -> Float -> m ()+setStdDeviation self stdDeviationX stdDeviationY+  = liftIO (js_setStdDeviation (self) stdDeviationX stdDeviationY)+ +foreign import javascript unsafe "$1[\"in1\"]" js_getIn1 ::+        SVGFEDropShadowElement -> IO (Nullable SVGAnimatedString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDropShadowElement.in1 Mozilla SVGFEDropShadowElement.in1 documentation> +getIn1 ::+       (MonadIO m) =>+         SVGFEDropShadowElement -> m (Maybe SVGAnimatedString)+getIn1 self = liftIO (nullableToMaybe <$> (js_getIn1 (self)))+ +foreign import javascript unsafe "$1[\"dx\"]" js_getDx ::+        SVGFEDropShadowElement -> IO (Nullable SVGAnimatedNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDropShadowElement.dx Mozilla SVGFEDropShadowElement.dx documentation> +getDx ::+      (MonadIO m) =>+        SVGFEDropShadowElement -> m (Maybe SVGAnimatedNumber)+getDx self = liftIO (nullableToMaybe <$> (js_getDx (self)))+ +foreign import javascript unsafe "$1[\"dy\"]" js_getDy ::+        SVGFEDropShadowElement -> IO (Nullable SVGAnimatedNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDropShadowElement.dy Mozilla SVGFEDropShadowElement.dy documentation> +getDy ::+      (MonadIO m) =>+        SVGFEDropShadowElement -> m (Maybe SVGAnimatedNumber)+getDy self = liftIO (nullableToMaybe <$> (js_getDy (self)))+ +foreign import javascript unsafe "$1[\"stdDeviationX\"]"+        js_getStdDeviationX ::+        SVGFEDropShadowElement -> IO (Nullable SVGAnimatedNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDropShadowElement.stdDeviationX Mozilla SVGFEDropShadowElement.stdDeviationX documentation> +getStdDeviationX ::+                 (MonadIO m) =>+                   SVGFEDropShadowElement -> m (Maybe SVGAnimatedNumber)+getStdDeviationX self+  = liftIO (nullableToMaybe <$> (js_getStdDeviationX (self)))+ +foreign import javascript unsafe "$1[\"stdDeviationY\"]"+        js_getStdDeviationY ::+        SVGFEDropShadowElement -> IO (Nullable SVGAnimatedNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDropShadowElement.stdDeviationY Mozilla SVGFEDropShadowElement.stdDeviationY documentation> +getStdDeviationY ::+                 (MonadIO m) =>+                   SVGFEDropShadowElement -> m (Maybe SVGAnimatedNumber)+getStdDeviationY self+  = liftIO (nullableToMaybe <$> (js_getStdDeviationY (self)))
+ src/GHCJS/DOM/JSFFI/Generated/SVGFEGaussianBlurElement.hs view
@@ -0,0 +1,78 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.SVGFEGaussianBlurElement+       (js_setStdDeviation, setStdDeviation, pattern SVG_EDGEMODE_UNKNOWN,+        pattern SVG_EDGEMODE_DUPLICATE, pattern SVG_EDGEMODE_WRAP,+        pattern SVG_EDGEMODE_NONE, js_getIn1, getIn1, js_getStdDeviationX,+        getStdDeviationX, js_getStdDeviationY, getStdDeviationY,+        js_getEdgeMode, getEdgeMode, SVGFEGaussianBlurElement,+        castToSVGFEGaussianBlurElement, gTypeSVGFEGaussianBlurElement)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"setStdDeviation\"]($2, $3)"+        js_setStdDeviation ::+        SVGFEGaussianBlurElement -> Float -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEGaussianBlurElement.setStdDeviation Mozilla SVGFEGaussianBlurElement.setStdDeviation documentation> +setStdDeviation ::+                (MonadIO m) => SVGFEGaussianBlurElement -> Float -> Float -> m ()+setStdDeviation self stdDeviationX stdDeviationY+  = liftIO (js_setStdDeviation (self) stdDeviationX stdDeviationY)+pattern SVG_EDGEMODE_UNKNOWN = 0+pattern SVG_EDGEMODE_DUPLICATE = 1+pattern SVG_EDGEMODE_WRAP = 2+pattern SVG_EDGEMODE_NONE = 3+ +foreign import javascript unsafe "$1[\"in1\"]" js_getIn1 ::+        SVGFEGaussianBlurElement -> IO (Nullable SVGAnimatedString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEGaussianBlurElement.in1 Mozilla SVGFEGaussianBlurElement.in1 documentation> +getIn1 ::+       (MonadIO m) =>+         SVGFEGaussianBlurElement -> m (Maybe SVGAnimatedString)+getIn1 self = liftIO (nullableToMaybe <$> (js_getIn1 (self)))+ +foreign import javascript unsafe "$1[\"stdDeviationX\"]"+        js_getStdDeviationX ::+        SVGFEGaussianBlurElement -> IO (Nullable SVGAnimatedNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEGaussianBlurElement.stdDeviationX Mozilla SVGFEGaussianBlurElement.stdDeviationX documentation> +getStdDeviationX ::+                 (MonadIO m) =>+                   SVGFEGaussianBlurElement -> m (Maybe SVGAnimatedNumber)+getStdDeviationX self+  = liftIO (nullableToMaybe <$> (js_getStdDeviationX (self)))+ +foreign import javascript unsafe "$1[\"stdDeviationY\"]"+        js_getStdDeviationY ::+        SVGFEGaussianBlurElement -> IO (Nullable SVGAnimatedNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEGaussianBlurElement.stdDeviationY Mozilla SVGFEGaussianBlurElement.stdDeviationY documentation> +getStdDeviationY ::+                 (MonadIO m) =>+                   SVGFEGaussianBlurElement -> m (Maybe SVGAnimatedNumber)+getStdDeviationY self+  = liftIO (nullableToMaybe <$> (js_getStdDeviationY (self)))+ +foreign import javascript unsafe "$1[\"edgeMode\"]" js_getEdgeMode+        :: SVGFEGaussianBlurElement -> IO (Nullable SVGAnimatedEnumeration)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEGaussianBlurElement.edgeMode Mozilla SVGFEGaussianBlurElement.edgeMode documentation> +getEdgeMode ::+            (MonadIO m) =>+              SVGFEGaussianBlurElement -> m (Maybe SVGAnimatedEnumeration)+getEdgeMode self+  = liftIO (nullableToMaybe <$> (js_getEdgeMode (self)))
+ src/GHCJS/DOM/JSFFI/Generated/SVGFEImageElement.hs view
@@ -0,0 +1,30 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.SVGFEImageElement+       (js_getPreserveAspectRatio, getPreserveAspectRatio,+        SVGFEImageElement, castToSVGFEImageElement, gTypeSVGFEImageElement)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"preserveAspectRatio\"]"+        js_getPreserveAspectRatio ::+        SVGFEImageElement -> IO (Nullable SVGAnimatedPreserveAspectRatio)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEImageElement.preserveAspectRatio Mozilla SVGFEImageElement.preserveAspectRatio documentation> +getPreserveAspectRatio ::+                       (MonadIO m) =>+                         SVGFEImageElement -> m (Maybe SVGAnimatedPreserveAspectRatio)+getPreserveAspectRatio self+  = liftIO (nullableToMaybe <$> (js_getPreserveAspectRatio (self)))
+ src/GHCJS/DOM/JSFFI/Generated/SVGFEMergeNodeElement.hs view
@@ -0,0 +1,27 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.SVGFEMergeNodeElement+       (js_getIn1, getIn1, SVGFEMergeNodeElement,+        castToSVGFEMergeNodeElement, gTypeSVGFEMergeNodeElement)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"in1\"]" js_getIn1 ::+        SVGFEMergeNodeElement -> IO (Nullable SVGAnimatedString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEMergeNodeElement.in1 Mozilla SVGFEMergeNodeElement.in1 documentation> +getIn1 ::+       (MonadIO m) => SVGFEMergeNodeElement -> m (Maybe SVGAnimatedString)+getIn1 self = liftIO (nullableToMaybe <$> (js_getIn1 (self)))
+ src/GHCJS/DOM/JSFFI/Generated/SVGFEMorphologyElement.hs view
@@ -0,0 +1,74 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.SVGFEMorphologyElement+       (js_setRadius, setRadius, pattern SVG_MORPHOLOGY_OPERATOR_UNKNOWN,+        pattern SVG_MORPHOLOGY_OPERATOR_ERODE,+        pattern SVG_MORPHOLOGY_OPERATOR_DILATE, js_getIn1, getIn1,+        js_getOperator, getOperator, js_getRadiusX, getRadiusX,+        js_getRadiusY, getRadiusY, SVGFEMorphologyElement,+        castToSVGFEMorphologyElement, gTypeSVGFEMorphologyElement)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"setRadius\"]($2, $3)"+        js_setRadius :: SVGFEMorphologyElement -> Float -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEMorphologyElement.setRadius Mozilla SVGFEMorphologyElement.setRadius documentation> +setRadius ::+          (MonadIO m) => SVGFEMorphologyElement -> Float -> Float -> m ()+setRadius self radiusX radiusY+  = liftIO (js_setRadius (self) radiusX radiusY)+pattern SVG_MORPHOLOGY_OPERATOR_UNKNOWN = 0+pattern SVG_MORPHOLOGY_OPERATOR_ERODE = 1+pattern SVG_MORPHOLOGY_OPERATOR_DILATE = 2+ +foreign import javascript unsafe "$1[\"in1\"]" js_getIn1 ::+        SVGFEMorphologyElement -> IO (Nullable SVGAnimatedString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEMorphologyElement.in1 Mozilla SVGFEMorphologyElement.in1 documentation> +getIn1 ::+       (MonadIO m) =>+         SVGFEMorphologyElement -> m (Maybe SVGAnimatedString)+getIn1 self = liftIO (nullableToMaybe <$> (js_getIn1 (self)))+ +foreign import javascript unsafe "$1[\"operator\"]" js_getOperator+        :: SVGFEMorphologyElement -> IO (Nullable SVGAnimatedEnumeration)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEMorphologyElement.operator Mozilla SVGFEMorphologyElement.operator documentation> +getOperator ::+            (MonadIO m) =>+              SVGFEMorphologyElement -> m (Maybe SVGAnimatedEnumeration)+getOperator self+  = liftIO (nullableToMaybe <$> (js_getOperator (self)))+ +foreign import javascript unsafe "$1[\"radiusX\"]" js_getRadiusX ::+        SVGFEMorphologyElement -> IO (Nullable SVGAnimatedNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEMorphologyElement.radiusX Mozilla SVGFEMorphologyElement.radiusX documentation> +getRadiusX ::+           (MonadIO m) =>+             SVGFEMorphologyElement -> m (Maybe SVGAnimatedNumber)+getRadiusX self+  = liftIO (nullableToMaybe <$> (js_getRadiusX (self)))+ +foreign import javascript unsafe "$1[\"radiusY\"]" js_getRadiusY ::+        SVGFEMorphologyElement -> IO (Nullable SVGAnimatedNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEMorphologyElement.radiusY Mozilla SVGFEMorphologyElement.radiusY documentation> +getRadiusY ::+           (MonadIO m) =>+             SVGFEMorphologyElement -> m (Maybe SVGAnimatedNumber)+getRadiusY self+  = liftIO (nullableToMaybe <$> (js_getRadiusY (self)))
+ src/GHCJS/DOM/JSFFI/Generated/SVGFEOffsetElement.hs view
@@ -0,0 +1,44 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.SVGFEOffsetElement+       (js_getIn1, getIn1, js_getDx, getDx, js_getDy, getDy,+        SVGFEOffsetElement, castToSVGFEOffsetElement,+        gTypeSVGFEOffsetElement)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"in1\"]" js_getIn1 ::+        SVGFEOffsetElement -> IO (Nullable SVGAnimatedString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEOffsetElement.in1 Mozilla SVGFEOffsetElement.in1 documentation> +getIn1 ::+       (MonadIO m) => SVGFEOffsetElement -> m (Maybe SVGAnimatedString)+getIn1 self = liftIO (nullableToMaybe <$> (js_getIn1 (self)))+ +foreign import javascript unsafe "$1[\"dx\"]" js_getDx ::+        SVGFEOffsetElement -> IO (Nullable SVGAnimatedNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEOffsetElement.dx Mozilla SVGFEOffsetElement.dx documentation> +getDx ::+      (MonadIO m) => SVGFEOffsetElement -> m (Maybe SVGAnimatedNumber)+getDx self = liftIO (nullableToMaybe <$> (js_getDx (self)))+ +foreign import javascript unsafe "$1[\"dy\"]" js_getDy ::+        SVGFEOffsetElement -> IO (Nullable SVGAnimatedNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEOffsetElement.dy Mozilla SVGFEOffsetElement.dy documentation> +getDy ::+      (MonadIO m) => SVGFEOffsetElement -> m (Maybe SVGAnimatedNumber)+getDy self = liftIO (nullableToMaybe <$> (js_getDy (self)))
+ src/GHCJS/DOM/JSFFI/Generated/SVGFEPointLightElement.hs view
@@ -0,0 +1,47 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.SVGFEPointLightElement+       (js_getX, getX, js_getY, getY, js_getZ, getZ,+        SVGFEPointLightElement, castToSVGFEPointLightElement,+        gTypeSVGFEPointLightElement)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"x\"]" js_getX ::+        SVGFEPointLightElement -> IO (Nullable SVGAnimatedNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEPointLightElement.x Mozilla SVGFEPointLightElement.x documentation> +getX ::+     (MonadIO m) =>+       SVGFEPointLightElement -> m (Maybe SVGAnimatedNumber)+getX self = liftIO (nullableToMaybe <$> (js_getX (self)))+ +foreign import javascript unsafe "$1[\"y\"]" js_getY ::+        SVGFEPointLightElement -> IO (Nullable SVGAnimatedNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEPointLightElement.y Mozilla SVGFEPointLightElement.y documentation> +getY ::+     (MonadIO m) =>+       SVGFEPointLightElement -> m (Maybe SVGAnimatedNumber)+getY self = liftIO (nullableToMaybe <$> (js_getY (self)))+ +foreign import javascript unsafe "$1[\"z\"]" js_getZ ::+        SVGFEPointLightElement -> IO (Nullable SVGAnimatedNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEPointLightElement.z Mozilla SVGFEPointLightElement.z documentation> +getZ ::+     (MonadIO m) =>+       SVGFEPointLightElement -> m (Maybe SVGAnimatedNumber)+getZ self = liftIO (nullableToMaybe <$> (js_getZ (self)))
+ src/GHCJS/DOM/JSFFI/Generated/SVGFESpecularLightingElement.hs view
@@ -0,0 +1,64 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.SVGFESpecularLightingElement+       (js_getIn1, getIn1, js_getSurfaceScale, getSurfaceScale,+        js_getSpecularConstant, getSpecularConstant,+        js_getSpecularExponent, getSpecularExponent,+        SVGFESpecularLightingElement, castToSVGFESpecularLightingElement,+        gTypeSVGFESpecularLightingElement)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"in1\"]" js_getIn1 ::+        SVGFESpecularLightingElement -> IO (Nullable SVGAnimatedString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFESpecularLightingElement.in1 Mozilla SVGFESpecularLightingElement.in1 documentation> +getIn1 ::+       (MonadIO m) =>+         SVGFESpecularLightingElement -> m (Maybe SVGAnimatedString)+getIn1 self = liftIO (nullableToMaybe <$> (js_getIn1 (self)))+ +foreign import javascript unsafe "$1[\"surfaceScale\"]"+        js_getSurfaceScale ::+        SVGFESpecularLightingElement -> IO (Nullable SVGAnimatedNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFESpecularLightingElement.surfaceScale Mozilla SVGFESpecularLightingElement.surfaceScale documentation> +getSurfaceScale ::+                (MonadIO m) =>+                  SVGFESpecularLightingElement -> m (Maybe SVGAnimatedNumber)+getSurfaceScale self+  = liftIO (nullableToMaybe <$> (js_getSurfaceScale (self)))+ +foreign import javascript unsafe "$1[\"specularConstant\"]"+        js_getSpecularConstant ::+        SVGFESpecularLightingElement -> IO (Nullable SVGAnimatedNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFESpecularLightingElement.specularConstant Mozilla SVGFESpecularLightingElement.specularConstant documentation> +getSpecularConstant ::+                    (MonadIO m) =>+                      SVGFESpecularLightingElement -> m (Maybe SVGAnimatedNumber)+getSpecularConstant self+  = liftIO (nullableToMaybe <$> (js_getSpecularConstant (self)))+ +foreign import javascript unsafe "$1[\"specularExponent\"]"+        js_getSpecularExponent ::+        SVGFESpecularLightingElement -> IO (Nullable SVGAnimatedNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFESpecularLightingElement.specularExponent Mozilla SVGFESpecularLightingElement.specularExponent documentation> +getSpecularExponent ::+                    (MonadIO m) =>+                      SVGFESpecularLightingElement -> m (Maybe SVGAnimatedNumber)+getSpecularExponent self+  = liftIO (nullableToMaybe <$> (js_getSpecularExponent (self)))
+ src/GHCJS/DOM/JSFFI/Generated/SVGFESpotLightElement.hs view
@@ -0,0 +1,97 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.SVGFESpotLightElement+       (js_getX, getX, js_getY, getY, js_getZ, getZ, js_getPointsAtX,+        getPointsAtX, js_getPointsAtY, getPointsAtY, js_getPointsAtZ,+        getPointsAtZ, js_getSpecularExponent, getSpecularExponent,+        js_getLimitingConeAngle, getLimitingConeAngle,+        SVGFESpotLightElement, castToSVGFESpotLightElement,+        gTypeSVGFESpotLightElement)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"x\"]" js_getX ::+        SVGFESpotLightElement -> IO (Nullable SVGAnimatedNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFESpotLightElement.x Mozilla SVGFESpotLightElement.x documentation> +getX ::+     (MonadIO m) => SVGFESpotLightElement -> m (Maybe SVGAnimatedNumber)+getX self = liftIO (nullableToMaybe <$> (js_getX (self)))+ +foreign import javascript unsafe "$1[\"y\"]" js_getY ::+        SVGFESpotLightElement -> IO (Nullable SVGAnimatedNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFESpotLightElement.y Mozilla SVGFESpotLightElement.y documentation> +getY ::+     (MonadIO m) => SVGFESpotLightElement -> m (Maybe SVGAnimatedNumber)+getY self = liftIO (nullableToMaybe <$> (js_getY (self)))+ +foreign import javascript unsafe "$1[\"z\"]" js_getZ ::+        SVGFESpotLightElement -> IO (Nullable SVGAnimatedNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFESpotLightElement.z Mozilla SVGFESpotLightElement.z documentation> +getZ ::+     (MonadIO m) => SVGFESpotLightElement -> m (Maybe SVGAnimatedNumber)+getZ self = liftIO (nullableToMaybe <$> (js_getZ (self)))+ +foreign import javascript unsafe "$1[\"pointsAtX\"]"+        js_getPointsAtX ::+        SVGFESpotLightElement -> IO (Nullable SVGAnimatedNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFESpotLightElement.pointsAtX Mozilla SVGFESpotLightElement.pointsAtX documentation> +getPointsAtX ::+             (MonadIO m) => SVGFESpotLightElement -> m (Maybe SVGAnimatedNumber)+getPointsAtX self+  = liftIO (nullableToMaybe <$> (js_getPointsAtX (self)))+ +foreign import javascript unsafe "$1[\"pointsAtY\"]"+        js_getPointsAtY ::+        SVGFESpotLightElement -> IO (Nullable SVGAnimatedNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFESpotLightElement.pointsAtY Mozilla SVGFESpotLightElement.pointsAtY documentation> +getPointsAtY ::+             (MonadIO m) => SVGFESpotLightElement -> m (Maybe SVGAnimatedNumber)+getPointsAtY self+  = liftIO (nullableToMaybe <$> (js_getPointsAtY (self)))+ +foreign import javascript unsafe "$1[\"pointsAtZ\"]"+        js_getPointsAtZ ::+        SVGFESpotLightElement -> IO (Nullable SVGAnimatedNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFESpotLightElement.pointsAtZ Mozilla SVGFESpotLightElement.pointsAtZ documentation> +getPointsAtZ ::+             (MonadIO m) => SVGFESpotLightElement -> m (Maybe SVGAnimatedNumber)+getPointsAtZ self+  = liftIO (nullableToMaybe <$> (js_getPointsAtZ (self)))+ +foreign import javascript unsafe "$1[\"specularExponent\"]"+        js_getSpecularExponent ::+        SVGFESpotLightElement -> IO (Nullable SVGAnimatedNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFESpotLightElement.specularExponent Mozilla SVGFESpotLightElement.specularExponent documentation> +getSpecularExponent ::+                    (MonadIO m) => SVGFESpotLightElement -> m (Maybe SVGAnimatedNumber)+getSpecularExponent self+  = liftIO (nullableToMaybe <$> (js_getSpecularExponent (self)))+ +foreign import javascript unsafe "$1[\"limitingConeAngle\"]"+        js_getLimitingConeAngle ::+        SVGFESpotLightElement -> IO (Nullable SVGAnimatedNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFESpotLightElement.limitingConeAngle Mozilla SVGFESpotLightElement.limitingConeAngle documentation> +getLimitingConeAngle ::+                     (MonadIO m) => SVGFESpotLightElement -> m (Maybe SVGAnimatedNumber)+getLimitingConeAngle self+  = liftIO (nullableToMaybe <$> (js_getLimitingConeAngle (self)))
+ src/GHCJS/DOM/JSFFI/Generated/SVGFETileElement.hs view
@@ -0,0 +1,27 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.SVGFETileElement+       (js_getIn1, getIn1, SVGFETileElement, castToSVGFETileElement,+        gTypeSVGFETileElement)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"in1\"]" js_getIn1 ::+        SVGFETileElement -> IO (Nullable SVGAnimatedString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFETileElement.in1 Mozilla SVGFETileElement.in1 documentation> +getIn1 ::+       (MonadIO m) => SVGFETileElement -> m (Maybe SVGAnimatedString)+getIn1 self = liftIO (nullableToMaybe <$> (js_getIn1 (self)))
+ src/GHCJS/DOM/JSFFI/Generated/SVGFETurbulenceElement.hs view
@@ -0,0 +1,95 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.SVGFETurbulenceElement+       (pattern SVG_TURBULENCE_TYPE_UNKNOWN,+        pattern SVG_TURBULENCE_TYPE_FRACTALNOISE,+        pattern SVG_TURBULENCE_TYPE_TURBULENCE,+        pattern SVG_STITCHTYPE_UNKNOWN, pattern SVG_STITCHTYPE_STITCH,+        pattern SVG_STITCHTYPE_NOSTITCH, js_getBaseFrequencyX,+        getBaseFrequencyX, js_getBaseFrequencyY, getBaseFrequencyY,+        js_getNumOctaves, getNumOctaves, js_getSeed, getSeed,+        js_getStitchTiles, getStitchTiles, js_getType, getType,+        SVGFETurbulenceElement, castToSVGFETurbulenceElement,+        gTypeSVGFETurbulenceElement)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+pattern SVG_TURBULENCE_TYPE_UNKNOWN = 0+pattern SVG_TURBULENCE_TYPE_FRACTALNOISE = 1+pattern SVG_TURBULENCE_TYPE_TURBULENCE = 2+pattern SVG_STITCHTYPE_UNKNOWN = 0+pattern SVG_STITCHTYPE_STITCH = 1+pattern SVG_STITCHTYPE_NOSTITCH = 2+ +foreign import javascript unsafe "$1[\"baseFrequencyX\"]"+        js_getBaseFrequencyX ::+        SVGFETurbulenceElement -> IO (Nullable SVGAnimatedNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFETurbulenceElement.baseFrequencyX Mozilla SVGFETurbulenceElement.baseFrequencyX documentation> +getBaseFrequencyX ::+                  (MonadIO m) =>+                    SVGFETurbulenceElement -> m (Maybe SVGAnimatedNumber)+getBaseFrequencyX self+  = liftIO (nullableToMaybe <$> (js_getBaseFrequencyX (self)))+ +foreign import javascript unsafe "$1[\"baseFrequencyY\"]"+        js_getBaseFrequencyY ::+        SVGFETurbulenceElement -> IO (Nullable SVGAnimatedNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFETurbulenceElement.baseFrequencyY Mozilla SVGFETurbulenceElement.baseFrequencyY documentation> +getBaseFrequencyY ::+                  (MonadIO m) =>+                    SVGFETurbulenceElement -> m (Maybe SVGAnimatedNumber)+getBaseFrequencyY self+  = liftIO (nullableToMaybe <$> (js_getBaseFrequencyY (self)))+ +foreign import javascript unsafe "$1[\"numOctaves\"]"+        js_getNumOctaves ::+        SVGFETurbulenceElement -> IO (Nullable SVGAnimatedInteger)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFETurbulenceElement.numOctaves Mozilla SVGFETurbulenceElement.numOctaves documentation> +getNumOctaves ::+              (MonadIO m) =>+                SVGFETurbulenceElement -> m (Maybe SVGAnimatedInteger)+getNumOctaves self+  = liftIO (nullableToMaybe <$> (js_getNumOctaves (self)))+ +foreign import javascript unsafe "$1[\"seed\"]" js_getSeed ::+        SVGFETurbulenceElement -> IO (Nullable SVGAnimatedNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFETurbulenceElement.seed Mozilla SVGFETurbulenceElement.seed documentation> +getSeed ::+        (MonadIO m) =>+          SVGFETurbulenceElement -> m (Maybe SVGAnimatedNumber)+getSeed self = liftIO (nullableToMaybe <$> (js_getSeed (self)))+ +foreign import javascript unsafe "$1[\"stitchTiles\"]"+        js_getStitchTiles ::+        SVGFETurbulenceElement -> IO (Nullable SVGAnimatedEnumeration)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFETurbulenceElement.stitchTiles Mozilla SVGFETurbulenceElement.stitchTiles documentation> +getStitchTiles ::+               (MonadIO m) =>+                 SVGFETurbulenceElement -> m (Maybe SVGAnimatedEnumeration)+getStitchTiles self+  = liftIO (nullableToMaybe <$> (js_getStitchTiles (self)))+ +foreign import javascript unsafe "$1[\"type\"]" js_getType ::+        SVGFETurbulenceElement -> IO (Nullable SVGAnimatedEnumeration)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFETurbulenceElement.type Mozilla SVGFETurbulenceElement.type documentation> +getType ::+        (MonadIO m) =>+          SVGFETurbulenceElement -> m (Maybe SVGAnimatedEnumeration)+getType self = liftIO (nullableToMaybe <$> (js_getType (self)))
+ src/GHCJS/DOM/JSFFI/Generated/SVGFilterElement.hs view
@@ -0,0 +1,103 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.SVGFilterElement+       (js_setFilterRes, setFilterRes, js_getFilterUnits, getFilterUnits,+        js_getPrimitiveUnits, getPrimitiveUnits, js_getX, getX, js_getY,+        getY, js_getWidth, getWidth, js_getHeight, getHeight,+        js_getFilterResX, getFilterResX, js_getFilterResY, getFilterResY,+        SVGFilterElement, castToSVGFilterElement, gTypeSVGFilterElement)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"setFilterRes\"]($2, $3)"+        js_setFilterRes :: SVGFilterElement -> Word -> Word -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterElement.setFilterRes Mozilla SVGFilterElement.setFilterRes documentation> +setFilterRes ::+             (MonadIO m) => SVGFilterElement -> Word -> Word -> m ()+setFilterRes self filterResX filterResY+  = liftIO (js_setFilterRes (self) filterResX filterResY)+ +foreign import javascript unsafe "$1[\"filterUnits\"]"+        js_getFilterUnits ::+        SVGFilterElement -> IO (Nullable SVGAnimatedEnumeration)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterElement.filterUnits Mozilla SVGFilterElement.filterUnits documentation> +getFilterUnits ::+               (MonadIO m) => SVGFilterElement -> m (Maybe SVGAnimatedEnumeration)+getFilterUnits self+  = liftIO (nullableToMaybe <$> (js_getFilterUnits (self)))+ +foreign import javascript unsafe "$1[\"primitiveUnits\"]"+        js_getPrimitiveUnits ::+        SVGFilterElement -> IO (Nullable SVGAnimatedEnumeration)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterElement.primitiveUnits Mozilla SVGFilterElement.primitiveUnits documentation> +getPrimitiveUnits ::+                  (MonadIO m) => SVGFilterElement -> m (Maybe SVGAnimatedEnumeration)+getPrimitiveUnits self+  = liftIO (nullableToMaybe <$> (js_getPrimitiveUnits (self)))+ +foreign import javascript unsafe "$1[\"x\"]" js_getX ::+        SVGFilterElement -> IO (Nullable SVGAnimatedLength)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterElement.x Mozilla SVGFilterElement.x documentation> +getX ::+     (MonadIO m) => SVGFilterElement -> m (Maybe SVGAnimatedLength)+getX self = liftIO (nullableToMaybe <$> (js_getX (self)))+ +foreign import javascript unsafe "$1[\"y\"]" js_getY ::+        SVGFilterElement -> IO (Nullable SVGAnimatedLength)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterElement.y Mozilla SVGFilterElement.y documentation> +getY ::+     (MonadIO m) => SVGFilterElement -> m (Maybe SVGAnimatedLength)+getY self = liftIO (nullableToMaybe <$> (js_getY (self)))+ +foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::+        SVGFilterElement -> IO (Nullable SVGAnimatedLength)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterElement.width Mozilla SVGFilterElement.width documentation> +getWidth ::+         (MonadIO m) => SVGFilterElement -> m (Maybe SVGAnimatedLength)+getWidth self = liftIO (nullableToMaybe <$> (js_getWidth (self)))+ +foreign import javascript unsafe "$1[\"height\"]" js_getHeight ::+        SVGFilterElement -> IO (Nullable SVGAnimatedLength)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterElement.height Mozilla SVGFilterElement.height documentation> +getHeight ::+          (MonadIO m) => SVGFilterElement -> m (Maybe SVGAnimatedLength)+getHeight self = liftIO (nullableToMaybe <$> (js_getHeight (self)))+ +foreign import javascript unsafe "$1[\"filterResX\"]"+        js_getFilterResX ::+        SVGFilterElement -> IO (Nullable SVGAnimatedInteger)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterElement.filterResX Mozilla SVGFilterElement.filterResX documentation> +getFilterResX ::+              (MonadIO m) => SVGFilterElement -> m (Maybe SVGAnimatedInteger)+getFilterResX self+  = liftIO (nullableToMaybe <$> (js_getFilterResX (self)))+ +foreign import javascript unsafe "$1[\"filterResY\"]"+        js_getFilterResY ::+        SVGFilterElement -> IO (Nullable SVGAnimatedInteger)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterElement.filterResY Mozilla SVGFilterElement.filterResY documentation> +getFilterResY ::+              (MonadIO m) => SVGFilterElement -> m (Maybe SVGAnimatedInteger)+getFilterResY self+  = liftIO (nullableToMaybe <$> (js_getFilterResY (self)))
+ src/GHCJS/DOM/JSFFI/Generated/SVGFilterPrimitiveStandardAttributes.hs view
@@ -0,0 +1,72 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.SVGFilterPrimitiveStandardAttributes+       (js_getX, getX, js_getY, getY, js_getWidth, getWidth, js_getHeight,+        getHeight, js_getResult, getResult,+        SVGFilterPrimitiveStandardAttributes,+        castToSVGFilterPrimitiveStandardAttributes,+        gTypeSVGFilterPrimitiveStandardAttributes)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"x\"]" js_getX ::+        SVGFilterPrimitiveStandardAttributes ->+          IO (Nullable SVGAnimatedLength)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterPrimitiveStandardAttributes.x Mozilla SVGFilterPrimitiveStandardAttributes.x documentation> +getX ::+     (MonadIO m) =>+       SVGFilterPrimitiveStandardAttributes -> m (Maybe SVGAnimatedLength)+getX self = liftIO (nullableToMaybe <$> (js_getX (self)))+ +foreign import javascript unsafe "$1[\"y\"]" js_getY ::+        SVGFilterPrimitiveStandardAttributes ->+          IO (Nullable SVGAnimatedLength)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterPrimitiveStandardAttributes.y Mozilla SVGFilterPrimitiveStandardAttributes.y documentation> +getY ::+     (MonadIO m) =>+       SVGFilterPrimitiveStandardAttributes -> m (Maybe SVGAnimatedLength)+getY self = liftIO (nullableToMaybe <$> (js_getY (self)))+ +foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::+        SVGFilterPrimitiveStandardAttributes ->+          IO (Nullable SVGAnimatedLength)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterPrimitiveStandardAttributes.width Mozilla SVGFilterPrimitiveStandardAttributes.width documentation> +getWidth ::+         (MonadIO m) =>+           SVGFilterPrimitiveStandardAttributes -> m (Maybe SVGAnimatedLength)+getWidth self = liftIO (nullableToMaybe <$> (js_getWidth (self)))+ +foreign import javascript unsafe "$1[\"height\"]" js_getHeight ::+        SVGFilterPrimitiveStandardAttributes ->+          IO (Nullable SVGAnimatedLength)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterPrimitiveStandardAttributes.height Mozilla SVGFilterPrimitiveStandardAttributes.height documentation> +getHeight ::+          (MonadIO m) =>+            SVGFilterPrimitiveStandardAttributes -> m (Maybe SVGAnimatedLength)+getHeight self = liftIO (nullableToMaybe <$> (js_getHeight (self)))+ +foreign import javascript unsafe "$1[\"result\"]" js_getResult ::+        SVGFilterPrimitiveStandardAttributes ->+          IO (Nullable SVGAnimatedString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterPrimitiveStandardAttributes.result Mozilla SVGFilterPrimitiveStandardAttributes.result documentation> +getResult ::+          (MonadIO m) =>+            SVGFilterPrimitiveStandardAttributes -> m (Maybe SVGAnimatedString)+getResult self = liftIO (nullableToMaybe <$> (js_getResult (self)))
+ src/GHCJS/DOM/JSFFI/Generated/SVGFitToViewBox.hs view
@@ -0,0 +1,40 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.SVGFitToViewBox+       (js_getViewBox, getViewBox, js_getPreserveAspectRatio,+        getPreserveAspectRatio, SVGFitToViewBox, castToSVGFitToViewBox,+        gTypeSVGFitToViewBox)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"viewBox\"]" js_getViewBox ::+        SVGFitToViewBox -> IO (Nullable SVGAnimatedRect)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFitToViewBox.viewBox Mozilla SVGFitToViewBox.viewBox documentation> +getViewBox ::+           (MonadIO m) => SVGFitToViewBox -> m (Maybe SVGAnimatedRect)+getViewBox self+  = liftIO (nullableToMaybe <$> (js_getViewBox (self)))+ +foreign import javascript unsafe "$1[\"preserveAspectRatio\"]"+        js_getPreserveAspectRatio ::+        SVGFitToViewBox -> IO (Nullable SVGAnimatedPreserveAspectRatio)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFitToViewBox.preserveAspectRatio Mozilla SVGFitToViewBox.preserveAspectRatio documentation> +getPreserveAspectRatio ::+                       (MonadIO m) =>+                         SVGFitToViewBox -> m (Maybe SVGAnimatedPreserveAspectRatio)+getPreserveAspectRatio self+  = liftIO (nullableToMaybe <$> (js_getPreserveAspectRatio (self)))
+ src/GHCJS/DOM/JSFFI/Generated/SVGForeignObjectElement.hs view
@@ -0,0 +1,56 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.SVGForeignObjectElement+       (js_getX, getX, js_getY, getY, js_getWidth, getWidth, js_getHeight,+        getHeight, SVGForeignObjectElement, castToSVGForeignObjectElement,+        gTypeSVGForeignObjectElement)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"x\"]" js_getX ::+        SVGForeignObjectElement -> IO (Nullable SVGAnimatedLength)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGForeignObjectElement.x Mozilla SVGForeignObjectElement.x documentation> +getX ::+     (MonadIO m) =>+       SVGForeignObjectElement -> m (Maybe SVGAnimatedLength)+getX self = liftIO (nullableToMaybe <$> (js_getX (self)))+ +foreign import javascript unsafe "$1[\"y\"]" js_getY ::+        SVGForeignObjectElement -> IO (Nullable SVGAnimatedLength)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGForeignObjectElement.y Mozilla SVGForeignObjectElement.y documentation> +getY ::+     (MonadIO m) =>+       SVGForeignObjectElement -> m (Maybe SVGAnimatedLength)+getY self = liftIO (nullableToMaybe <$> (js_getY (self)))+ +foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::+        SVGForeignObjectElement -> IO (Nullable SVGAnimatedLength)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGForeignObjectElement.width Mozilla SVGForeignObjectElement.width documentation> +getWidth ::+         (MonadIO m) =>+           SVGForeignObjectElement -> m (Maybe SVGAnimatedLength)+getWidth self = liftIO (nullableToMaybe <$> (js_getWidth (self)))+ +foreign import javascript unsafe "$1[\"height\"]" js_getHeight ::+        SVGForeignObjectElement -> IO (Nullable SVGAnimatedLength)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGForeignObjectElement.height Mozilla SVGForeignObjectElement.height documentation> +getHeight ::+          (MonadIO m) =>+            SVGForeignObjectElement -> m (Maybe SVGAnimatedLength)+getHeight self = liftIO (nullableToMaybe <$> (js_getHeight (self)))
+ src/GHCJS/DOM/JSFFI/Generated/SVGGlyphRefElement.hs view
@@ -0,0 +1,113 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.SVGGlyphRefElement+       (js_setGlyphRef, setGlyphRef, js_getGlyphRef, getGlyphRef,+        js_setFormat, setFormat, js_getFormat, getFormat, js_setX, setX,+        js_getX, getX, js_setY, setY, js_getY, getY, js_setDx, setDx,+        js_getDx, getDx, js_setDy, setDy, js_getDy, getDy,+        SVGGlyphRefElement, castToSVGGlyphRefElement,+        gTypeSVGGlyphRefElement)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"glyphRef\"] = $2;"+        js_setGlyphRef :: SVGGlyphRefElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGlyphRefElement.glyphRef Mozilla SVGGlyphRefElement.glyphRef documentation> +setGlyphRef ::+            (MonadIO m, ToJSString val) => SVGGlyphRefElement -> val -> m ()+setGlyphRef self val+  = liftIO (js_setGlyphRef (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"glyphRef\"]" js_getGlyphRef+        :: SVGGlyphRefElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGlyphRefElement.glyphRef Mozilla SVGGlyphRefElement.glyphRef documentation> +getGlyphRef ::+            (MonadIO m, FromJSString result) => SVGGlyphRefElement -> m result+getGlyphRef self+  = liftIO (fromJSString <$> (js_getGlyphRef (self)))+ +foreign import javascript unsafe "$1[\"format\"] = $2;"+        js_setFormat :: SVGGlyphRefElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGlyphRefElement.format Mozilla SVGGlyphRefElement.format documentation> +setFormat ::+          (MonadIO m, ToJSString val) => SVGGlyphRefElement -> val -> m ()+setFormat self val = liftIO (js_setFormat (self) (toJSString val))+ +foreign import javascript unsafe "$1[\"format\"]" js_getFormat ::+        SVGGlyphRefElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGlyphRefElement.format Mozilla SVGGlyphRefElement.format documentation> +getFormat ::+          (MonadIO m, FromJSString result) => SVGGlyphRefElement -> m result+getFormat self = liftIO (fromJSString <$> (js_getFormat (self)))+ +foreign import javascript unsafe "$1[\"x\"] = $2;" js_setX ::+        SVGGlyphRefElement -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGlyphRefElement.x Mozilla SVGGlyphRefElement.x documentation> +setX :: (MonadIO m) => SVGGlyphRefElement -> Float -> m ()+setX self val = liftIO (js_setX (self) val)+ +foreign import javascript unsafe "$1[\"x\"]" js_getX ::+        SVGGlyphRefElement -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGlyphRefElement.x Mozilla SVGGlyphRefElement.x documentation> +getX :: (MonadIO m) => SVGGlyphRefElement -> m Float+getX self = liftIO (js_getX (self))+ +foreign import javascript unsafe "$1[\"y\"] = $2;" js_setY ::+        SVGGlyphRefElement -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGlyphRefElement.y Mozilla SVGGlyphRefElement.y documentation> +setY :: (MonadIO m) => SVGGlyphRefElement -> Float -> m ()+setY self val = liftIO (js_setY (self) val)+ +foreign import javascript unsafe "$1[\"y\"]" js_getY ::+        SVGGlyphRefElement -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGlyphRefElement.y Mozilla SVGGlyphRefElement.y documentation> +getY :: (MonadIO m) => SVGGlyphRefElement -> m Float+getY self = liftIO (js_getY (self))+ +foreign import javascript unsafe "$1[\"dx\"] = $2;" js_setDx ::+        SVGGlyphRefElement -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGlyphRefElement.dx Mozilla SVGGlyphRefElement.dx documentation> +setDx :: (MonadIO m) => SVGGlyphRefElement -> Float -> m ()+setDx self val = liftIO (js_setDx (self) val)+ +foreign import javascript unsafe "$1[\"dx\"]" js_getDx ::+        SVGGlyphRefElement -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGlyphRefElement.dx Mozilla SVGGlyphRefElement.dx documentation> +getDx :: (MonadIO m) => SVGGlyphRefElement -> m Float+getDx self = liftIO (js_getDx (self))+ +foreign import javascript unsafe "$1[\"dy\"] = $2;" js_setDy ::+        SVGGlyphRefElement -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGlyphRefElement.dy Mozilla SVGGlyphRefElement.dy documentation> +setDy :: (MonadIO m) => SVGGlyphRefElement -> Float -> m ()+setDy self val = liftIO (js_setDy (self) val)+ +foreign import javascript unsafe "$1[\"dy\"]" js_getDy ::+        SVGGlyphRefElement -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGlyphRefElement.dy Mozilla SVGGlyphRefElement.dy documentation> +getDy :: (MonadIO m) => SVGGlyphRefElement -> m Float+getDy self = liftIO (js_getDy (self))
+ src/GHCJS/DOM/JSFFI/Generated/SVGGradientElement.hs view
@@ -0,0 +1,67 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.SVGGradientElement+       (pattern SVG_SPREADMETHOD_UNKNOWN, pattern SVG_SPREADMETHOD_PAD,+        pattern SVG_SPREADMETHOD_REFLECT, pattern SVG_SPREADMETHOD_REPEAT,+        js_getGradientUnits, getGradientUnits, js_getGradientTransform,+        getGradientTransform, js_getSpreadMethod, getSpreadMethod,+        SVGGradientElement, castToSVGGradientElement,+        gTypeSVGGradientElement, IsSVGGradientElement,+        toSVGGradientElement)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+pattern SVG_SPREADMETHOD_UNKNOWN = 0+pattern SVG_SPREADMETHOD_PAD = 1+pattern SVG_SPREADMETHOD_REFLECT = 2+pattern SVG_SPREADMETHOD_REPEAT = 3+ +foreign import javascript unsafe "$1[\"gradientUnits\"]"+        js_getGradientUnits ::+        SVGGradientElement -> IO (Nullable SVGAnimatedEnumeration)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGradientElement.gradientUnits Mozilla SVGGradientElement.gradientUnits documentation> +getGradientUnits ::+                 (MonadIO m, IsSVGGradientElement self) =>+                   self -> m (Maybe SVGAnimatedEnumeration)+getGradientUnits self+  = liftIO+      (nullableToMaybe <$>+         (js_getGradientUnits (toSVGGradientElement self)))+ +foreign import javascript unsafe "$1[\"gradientTransform\"]"+        js_getGradientTransform ::+        SVGGradientElement -> IO (Nullable SVGAnimatedTransformList)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGradientElement.gradientTransform Mozilla SVGGradientElement.gradientTransform documentation> +getGradientTransform ::+                     (MonadIO m, IsSVGGradientElement self) =>+                       self -> m (Maybe SVGAnimatedTransformList)+getGradientTransform self+  = liftIO+      (nullableToMaybe <$>+         (js_getGradientTransform (toSVGGradientElement self)))+ +foreign import javascript unsafe "$1[\"spreadMethod\"]"+        js_getSpreadMethod ::+        SVGGradientElement -> IO (Nullable SVGAnimatedEnumeration)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGradientElement.spreadMethod Mozilla SVGGradientElement.spreadMethod documentation> +getSpreadMethod ::+                (MonadIO m, IsSVGGradientElement self) =>+                  self -> m (Maybe SVGAnimatedEnumeration)+getSpreadMethod self+  = liftIO+      (nullableToMaybe <$>+         (js_getSpreadMethod (toSVGGradientElement self)))
+ src/GHCJS/DOM/JSFFI/Generated/SVGGraphicsElement.hs view
@@ -0,0 +1,109 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.SVGGraphicsElement+       (js_getBBox, getBBox, js_getCTM, getCTM, js_getScreenCTM,+        getScreenCTM, js_getTransformToElement, getTransformToElement,+        js_getTransform, getTransform, js_getNearestViewportElement,+        getNearestViewportElement, js_getFarthestViewportElement,+        getFarthestViewportElement, SVGGraphicsElement,+        castToSVGGraphicsElement, gTypeSVGGraphicsElement,+        IsSVGGraphicsElement, toSVGGraphicsElement)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"getBBox\"]()" js_getBBox ::+        SVGGraphicsElement -> IO (Nullable SVGRect)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGraphicsElement.getBBox Mozilla SVGGraphicsElement.getBBox documentation> +getBBox ::+        (MonadIO m, IsSVGGraphicsElement self) => self -> m (Maybe SVGRect)+getBBox self+  = liftIO+      (nullableToMaybe <$> (js_getBBox (toSVGGraphicsElement self)))+ +foreign import javascript unsafe "$1[\"getCTM\"]()" js_getCTM ::+        SVGGraphicsElement -> IO (Nullable SVGMatrix)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGraphicsElement.getCTM Mozilla SVGGraphicsElement.getCTM documentation> +getCTM ::+       (MonadIO m, IsSVGGraphicsElement self) =>+         self -> m (Maybe SVGMatrix)+getCTM self+  = liftIO+      (nullableToMaybe <$> (js_getCTM (toSVGGraphicsElement self)))+ +foreign import javascript unsafe "$1[\"getScreenCTM\"]()"+        js_getScreenCTM :: SVGGraphicsElement -> IO (Nullable SVGMatrix)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGraphicsElement.getScreenCTM Mozilla SVGGraphicsElement.getScreenCTM documentation> +getScreenCTM ::+             (MonadIO m, IsSVGGraphicsElement self) =>+               self -> m (Maybe SVGMatrix)+getScreenCTM self+  = liftIO+      (nullableToMaybe <$> (js_getScreenCTM (toSVGGraphicsElement self)))+ +foreign import javascript unsafe+        "$1[\"getTransformToElement\"]($2)" js_getTransformToElement ::+        SVGGraphicsElement ->+          Nullable SVGElement -> IO (Nullable SVGMatrix)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGraphicsElement.getTransformToElement Mozilla SVGGraphicsElement.getTransformToElement documentation> +getTransformToElement ::+                      (MonadIO m, IsSVGGraphicsElement self, IsSVGElement element) =>+                        self -> Maybe element -> m (Maybe SVGMatrix)+getTransformToElement self element+  = liftIO+      (nullableToMaybe <$>+         (js_getTransformToElement (toSVGGraphicsElement self)+            (maybeToNullable (fmap toSVGElement element))))+ +foreign import javascript unsafe "$1[\"transform\"]"+        js_getTransform ::+        SVGGraphicsElement -> IO (Nullable SVGAnimatedTransformList)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGraphicsElement.transform Mozilla SVGGraphicsElement.transform documentation> +getTransform ::+             (MonadIO m, IsSVGGraphicsElement self) =>+               self -> m (Maybe SVGAnimatedTransformList)+getTransform self+  = liftIO+      (nullableToMaybe <$> (js_getTransform (toSVGGraphicsElement self)))+ +foreign import javascript unsafe "$1[\"nearestViewportElement\"]"+        js_getNearestViewportElement ::+        SVGGraphicsElement -> IO (Nullable SVGElement)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGraphicsElement.nearestViewportElement Mozilla SVGGraphicsElement.nearestViewportElement documentation> +getNearestViewportElement ::+                          (MonadIO m, IsSVGGraphicsElement self) =>+                            self -> m (Maybe SVGElement)+getNearestViewportElement self+  = liftIO+      (nullableToMaybe <$>+         (js_getNearestViewportElement (toSVGGraphicsElement self)))+ +foreign import javascript unsafe "$1[\"farthestViewportElement\"]"+        js_getFarthestViewportElement ::+        SVGGraphicsElement -> IO (Nullable SVGElement)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGraphicsElement.farthestViewportElement Mozilla SVGGraphicsElement.farthestViewportElement documentation> +getFarthestViewportElement ::+                           (MonadIO m, IsSVGGraphicsElement self) =>+                             self -> m (Maybe SVGElement)+getFarthestViewportElement self+  = liftIO+      (nullableToMaybe <$>+         (js_getFarthestViewportElement (toSVGGraphicsElement self)))
+ src/GHCJS/DOM/JSFFI/Generated/SVGImageElement.hs view
@@ -0,0 +1,63 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.SVGImageElement+       (js_getX, getX, js_getY, getY, js_getWidth, getWidth, js_getHeight,+        getHeight, js_getPreserveAspectRatio, getPreserveAspectRatio,+        SVGImageElement, castToSVGImageElement, gTypeSVGImageElement)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"x\"]" js_getX ::+        SVGImageElement -> IO (Nullable SVGAnimatedLength)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGImageElement.x Mozilla SVGImageElement.x documentation> +getX ::+     (MonadIO m) => SVGImageElement -> m (Maybe SVGAnimatedLength)+getX self = liftIO (nullableToMaybe <$> (js_getX (self)))+ +foreign import javascript unsafe "$1[\"y\"]" js_getY ::+        SVGImageElement -> IO (Nullable SVGAnimatedLength)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGImageElement.y Mozilla SVGImageElement.y documentation> +getY ::+     (MonadIO m) => SVGImageElement -> m (Maybe SVGAnimatedLength)+getY self = liftIO (nullableToMaybe <$> (js_getY (self)))+ +foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::+        SVGImageElement -> IO (Nullable SVGAnimatedLength)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGImageElement.width Mozilla SVGImageElement.width documentation> +getWidth ::+         (MonadIO m) => SVGImageElement -> m (Maybe SVGAnimatedLength)+getWidth self = liftIO (nullableToMaybe <$> (js_getWidth (self)))+ +foreign import javascript unsafe "$1[\"height\"]" js_getHeight ::+        SVGImageElement -> IO (Nullable SVGAnimatedLength)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGImageElement.height Mozilla SVGImageElement.height documentation> +getHeight ::+          (MonadIO m) => SVGImageElement -> m (Maybe SVGAnimatedLength)+getHeight self = liftIO (nullableToMaybe <$> (js_getHeight (self)))+ +foreign import javascript unsafe "$1[\"preserveAspectRatio\"]"+        js_getPreserveAspectRatio ::+        SVGImageElement -> IO (Nullable SVGAnimatedPreserveAspectRatio)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGImageElement.preserveAspectRatio Mozilla SVGImageElement.preserveAspectRatio documentation> +getPreserveAspectRatio ::+                       (MonadIO m) =>+                         SVGImageElement -> m (Maybe SVGAnimatedPreserveAspectRatio)+getPreserveAspectRatio self+  = liftIO (nullableToMaybe <$> (js_getPreserveAspectRatio (self)))
+ src/GHCJS/DOM/JSFFI/Generated/SVGLength.hs view
@@ -0,0 +1,118 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.SVGLength+       (js_newValueSpecifiedUnits, newValueSpecifiedUnits,+        js_convertToSpecifiedUnits, convertToSpecifiedUnits,+        pattern SVG_LENGTHTYPE_UNKNOWN, pattern SVG_LENGTHTYPE_NUMBER,+        pattern SVG_LENGTHTYPE_PERCENTAGE, pattern SVG_LENGTHTYPE_EMS,+        pattern SVG_LENGTHTYPE_EXS, pattern SVG_LENGTHTYPE_PX,+        pattern SVG_LENGTHTYPE_CM, pattern SVG_LENGTHTYPE_MM,+        pattern SVG_LENGTHTYPE_IN, pattern SVG_LENGTHTYPE_PT,+        pattern SVG_LENGTHTYPE_PC, js_getUnitType, getUnitType,+        js_setValue, setValue, js_getValue, getValue,+        js_setValueInSpecifiedUnits, setValueInSpecifiedUnits,+        js_getValueInSpecifiedUnits, getValueInSpecifiedUnits,+        js_setValueAsString, setValueAsString, js_getValueAsString,+        getValueAsString, SVGLength, castToSVGLength, gTypeSVGLength)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe+        "$1[\"newValueSpecifiedUnits\"]($2,\n$3)" js_newValueSpecifiedUnits+        :: SVGLength -> Word -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLength.newValueSpecifiedUnits Mozilla SVGLength.newValueSpecifiedUnits documentation> +newValueSpecifiedUnits ::+                       (MonadIO m) => SVGLength -> Word -> Float -> m ()+newValueSpecifiedUnits self unitType valueInSpecifiedUnits+  = liftIO+      (js_newValueSpecifiedUnits (self) unitType valueInSpecifiedUnits)+ +foreign import javascript unsafe+        "$1[\"convertToSpecifiedUnits\"]($2)" js_convertToSpecifiedUnits ::+        SVGLength -> Word -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLength.convertToSpecifiedUnits Mozilla SVGLength.convertToSpecifiedUnits documentation> +convertToSpecifiedUnits :: (MonadIO m) => SVGLength -> Word -> m ()+convertToSpecifiedUnits self unitType+  = liftIO (js_convertToSpecifiedUnits (self) unitType)+pattern SVG_LENGTHTYPE_UNKNOWN = 0+pattern SVG_LENGTHTYPE_NUMBER = 1+pattern SVG_LENGTHTYPE_PERCENTAGE = 2+pattern SVG_LENGTHTYPE_EMS = 3+pattern SVG_LENGTHTYPE_EXS = 4+pattern SVG_LENGTHTYPE_PX = 5+pattern SVG_LENGTHTYPE_CM = 6+pattern SVG_LENGTHTYPE_MM = 7+pattern SVG_LENGTHTYPE_IN = 8+pattern SVG_LENGTHTYPE_PT = 9+pattern SVG_LENGTHTYPE_PC = 10+ +foreign import javascript unsafe "$1[\"unitType\"]" js_getUnitType+        :: SVGLength -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLength.unitType Mozilla SVGLength.unitType documentation> +getUnitType :: (MonadIO m) => SVGLength -> m Word+getUnitType self = liftIO (js_getUnitType (self))+ +foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue+        :: SVGLength -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLength.value Mozilla SVGLength.value documentation> +setValue :: (MonadIO m) => SVGLength -> Float -> m ()+setValue self val = liftIO (js_setValue (self) val)+ +foreign import javascript unsafe "$1[\"value\"]" js_getValue ::+        SVGLength -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLength.value Mozilla SVGLength.value documentation> +getValue :: (MonadIO m) => SVGLength -> m Float+getValue self = liftIO (js_getValue (self))+ +foreign import javascript unsafe+        "$1[\"valueInSpecifiedUnits\"] = $2;" js_setValueInSpecifiedUnits+        :: SVGLength -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLength.valueInSpecifiedUnits Mozilla SVGLength.valueInSpecifiedUnits documentation> +setValueInSpecifiedUnits ::+                         (MonadIO m) => SVGLength -> Float -> m ()+setValueInSpecifiedUnits self val+  = liftIO (js_setValueInSpecifiedUnits (self) val)+ +foreign import javascript unsafe "$1[\"valueInSpecifiedUnits\"]"+        js_getValueInSpecifiedUnits :: SVGLength -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLength.valueInSpecifiedUnits Mozilla SVGLength.valueInSpecifiedUnits documentation> +getValueInSpecifiedUnits :: (MonadIO m) => SVGLength -> m Float+getValueInSpecifiedUnits self+  = liftIO (js_getValueInSpecifiedUnits (self))+ +foreign import javascript unsafe "$1[\"valueAsString\"] = $2;"+        js_setValueAsString :: SVGLength -> Nullable JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLength.valueAsString Mozilla SVGLength.valueAsString documentation> +setValueAsString ::+                 (MonadIO m, ToJSString val) => SVGLength -> Maybe val -> m ()+setValueAsString self val+  = liftIO (js_setValueAsString (self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"valueAsString\"]"+        js_getValueAsString :: SVGLength -> IO (Nullable JSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLength.valueAsString Mozilla SVGLength.valueAsString documentation> +getValueAsString ::+                 (MonadIO m, FromJSString result) => SVGLength -> m (Maybe result)+getValueAsString self+  = liftIO (fromMaybeJSString <$> (js_getValueAsString (self)))
+ src/GHCJS/DOM/JSFFI/Generated/SVGLengthList.hs view
@@ -0,0 +1,106 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.SVGLengthList+       (js_clear, clear, js_initialize, initialize, js_getItem, getItem,+        js_insertItemBefore, insertItemBefore, js_replaceItem, replaceItem,+        js_removeItem, removeItem, js_appendItem, appendItem,+        js_getNumberOfItems, getNumberOfItems, SVGLengthList,+        castToSVGLengthList, gTypeSVGLengthList)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"clear\"]()" js_clear ::+        SVGLengthList -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLengthList.clear Mozilla SVGLengthList.clear documentation> +clear :: (MonadIO m) => SVGLengthList -> m ()+clear self = liftIO (js_clear (self))+ +foreign import javascript unsafe "$1[\"initialize\"]($2)"+        js_initialize ::+        SVGLengthList -> Nullable SVGLength -> IO (Nullable SVGLength)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLengthList.initialize Mozilla SVGLengthList.initialize documentation> +initialize ::+           (MonadIO m) =>+             SVGLengthList -> Maybe SVGLength -> m (Maybe SVGLength)+initialize self item+  = liftIO+      (nullableToMaybe <$> (js_initialize (self) (maybeToNullable item)))+ +foreign import javascript unsafe "$1[\"getItem\"]($2)" js_getItem+        :: SVGLengthList -> Word -> IO (Nullable SVGLength)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLengthList.getItem Mozilla SVGLengthList.getItem documentation> +getItem ::+        (MonadIO m) => SVGLengthList -> Word -> m (Maybe SVGLength)+getItem self index+  = liftIO (nullableToMaybe <$> (js_getItem (self) index))+ +foreign import javascript unsafe "$1[\"insertItemBefore\"]($2, $3)"+        js_insertItemBefore ::+        SVGLengthList ->+          Nullable SVGLength -> Word -> IO (Nullable SVGLength)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLengthList.insertItemBefore Mozilla SVGLengthList.insertItemBefore documentation> +insertItemBefore ::+                 (MonadIO m) =>+                   SVGLengthList -> Maybe SVGLength -> Word -> m (Maybe SVGLength)+insertItemBefore self item index+  = liftIO+      (nullableToMaybe <$>+         (js_insertItemBefore (self) (maybeToNullable item) index))+ +foreign import javascript unsafe "$1[\"replaceItem\"]($2, $3)"+        js_replaceItem ::+        SVGLengthList ->+          Nullable SVGLength -> Word -> IO (Nullable SVGLength)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLengthList.replaceItem Mozilla SVGLengthList.replaceItem documentation> +replaceItem ::+            (MonadIO m) =>+              SVGLengthList -> Maybe SVGLength -> Word -> m (Maybe SVGLength)+replaceItem self item index+  = liftIO+      (nullableToMaybe <$>+         (js_replaceItem (self) (maybeToNullable item) index))+ +foreign import javascript unsafe "$1[\"removeItem\"]($2)"+        js_removeItem :: SVGLengthList -> Word -> IO (Nullable SVGLength)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLengthList.removeItem Mozilla SVGLengthList.removeItem documentation> +removeItem ::+           (MonadIO m) => SVGLengthList -> Word -> m (Maybe SVGLength)+removeItem self index+  = liftIO (nullableToMaybe <$> (js_removeItem (self) index))+ +foreign import javascript unsafe "$1[\"appendItem\"]($2)"+        js_appendItem ::+        SVGLengthList -> Nullable SVGLength -> IO (Nullable SVGLength)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLengthList.appendItem Mozilla SVGLengthList.appendItem documentation> +appendItem ::+           (MonadIO m) =>+             SVGLengthList -> Maybe SVGLength -> m (Maybe SVGLength)+appendItem self item+  = liftIO+      (nullableToMaybe <$> (js_appendItem (self) (maybeToNullable item)))+ +foreign import javascript unsafe "$1[\"numberOfItems\"]"+        js_getNumberOfItems :: SVGLengthList -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLengthList.numberOfItems Mozilla SVGLengthList.numberOfItems documentation> +getNumberOfItems :: (MonadIO m) => SVGLengthList -> m Word+getNumberOfItems self = liftIO (js_getNumberOfItems (self))
+ src/GHCJS/DOM/JSFFI/Generated/SVGLineElement.hs view
@@ -0,0 +1,51 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.SVGLineElement+       (js_getX1, getX1, js_getY1, getY1, js_getX2, getX2, js_getY2,+        getY2, SVGLineElement, castToSVGLineElement, gTypeSVGLineElement)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"x1\"]" js_getX1 ::+        SVGLineElement -> IO (Nullable SVGAnimatedLength)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLineElement.x1 Mozilla SVGLineElement.x1 documentation> +getX1 ::+      (MonadIO m) => SVGLineElement -> m (Maybe SVGAnimatedLength)+getX1 self = liftIO (nullableToMaybe <$> (js_getX1 (self)))+ +foreign import javascript unsafe "$1[\"y1\"]" js_getY1 ::+        SVGLineElement -> IO (Nullable SVGAnimatedLength)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLineElement.y1 Mozilla SVGLineElement.y1 documentation> +getY1 ::+      (MonadIO m) => SVGLineElement -> m (Maybe SVGAnimatedLength)+getY1 self = liftIO (nullableToMaybe <$> (js_getY1 (self)))+ +foreign import javascript unsafe "$1[\"x2\"]" js_getX2 ::+        SVGLineElement -> IO (Nullable SVGAnimatedLength)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLineElement.x2 Mozilla SVGLineElement.x2 documentation> +getX2 ::+      (MonadIO m) => SVGLineElement -> m (Maybe SVGAnimatedLength)+getX2 self = liftIO (nullableToMaybe <$> (js_getX2 (self)))+ +foreign import javascript unsafe "$1[\"y2\"]" js_getY2 ::+        SVGLineElement -> IO (Nullable SVGAnimatedLength)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLineElement.y2 Mozilla SVGLineElement.y2 documentation> +getY2 ::+      (MonadIO m) => SVGLineElement -> m (Maybe SVGAnimatedLength)+getY2 self = liftIO (nullableToMaybe <$> (js_getY2 (self)))
+ src/GHCJS/DOM/JSFFI/Generated/SVGLinearGradientElement.hs view
@@ -0,0 +1,56 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.SVGLinearGradientElement+       (js_getX1, getX1, js_getY1, getY1, js_getX2, getX2, js_getY2,+        getY2, SVGLinearGradientElement, castToSVGLinearGradientElement,+        gTypeSVGLinearGradientElement)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"x1\"]" js_getX1 ::+        SVGLinearGradientElement -> IO (Nullable SVGAnimatedLength)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLinearGradientElement.x1 Mozilla SVGLinearGradientElement.x1 documentation> +getX1 ::+      (MonadIO m) =>+        SVGLinearGradientElement -> m (Maybe SVGAnimatedLength)+getX1 self = liftIO (nullableToMaybe <$> (js_getX1 (self)))+ +foreign import javascript unsafe "$1[\"y1\"]" js_getY1 ::+        SVGLinearGradientElement -> IO (Nullable SVGAnimatedLength)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLinearGradientElement.y1 Mozilla SVGLinearGradientElement.y1 documentation> +getY1 ::+      (MonadIO m) =>+        SVGLinearGradientElement -> m (Maybe SVGAnimatedLength)+getY1 self = liftIO (nullableToMaybe <$> (js_getY1 (self)))+ +foreign import javascript unsafe "$1[\"x2\"]" js_getX2 ::+        SVGLinearGradientElement -> IO (Nullable SVGAnimatedLength)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLinearGradientElement.x2 Mozilla SVGLinearGradientElement.x2 documentation> +getX2 ::+      (MonadIO m) =>+        SVGLinearGradientElement -> m (Maybe SVGAnimatedLength)+getX2 self = liftIO (nullableToMaybe <$> (js_getX2 (self)))+ +foreign import javascript unsafe "$1[\"y2\"]" js_getY2 ::+        SVGLinearGradientElement -> IO (Nullable SVGAnimatedLength)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLinearGradientElement.y2 Mozilla SVGLinearGradientElement.y2 documentation> +getY2 ::+      (MonadIO m) =>+        SVGLinearGradientElement -> m (Maybe SVGAnimatedLength)+getY2 self = liftIO (nullableToMaybe <$> (js_getY2 (self)))
+ src/GHCJS/DOM/JSFFI/Generated/SVGMarkerElement.hs view
@@ -0,0 +1,116 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.SVGMarkerElement+       (js_setOrientToAuto, setOrientToAuto, js_setOrientToAngle,+        setOrientToAngle, pattern SVG_MARKERUNITS_UNKNOWN,+        pattern SVG_MARKERUNITS_USERSPACEONUSE,+        pattern SVG_MARKERUNITS_STROKEWIDTH,+        pattern SVG_MARKER_ORIENT_UNKNOWN, pattern SVG_MARKER_ORIENT_AUTO,+        pattern SVG_MARKER_ORIENT_ANGLE, js_getRefX, getRefX, js_getRefY,+        getRefY, js_getMarkerUnits, getMarkerUnits, js_getMarkerWidth,+        getMarkerWidth, js_getMarkerHeight, getMarkerHeight,+        js_getOrientType, getOrientType, js_getOrientAngle, getOrientAngle,+        SVGMarkerElement, castToSVGMarkerElement, gTypeSVGMarkerElement)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"setOrientToAuto\"]()"+        js_setOrientToAuto :: SVGMarkerElement -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMarkerElement.setOrientToAuto Mozilla SVGMarkerElement.setOrientToAuto documentation> +setOrientToAuto :: (MonadIO m) => SVGMarkerElement -> m ()+setOrientToAuto self = liftIO (js_setOrientToAuto (self))+ +foreign import javascript unsafe "$1[\"setOrientToAngle\"]($2)"+        js_setOrientToAngle ::+        SVGMarkerElement -> Nullable SVGAngle -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMarkerElement.setOrientToAngle Mozilla SVGMarkerElement.setOrientToAngle documentation> +setOrientToAngle ::+                 (MonadIO m) => SVGMarkerElement -> Maybe SVGAngle -> m ()+setOrientToAngle self angle+  = liftIO (js_setOrientToAngle (self) (maybeToNullable angle))+pattern SVG_MARKERUNITS_UNKNOWN = 0+pattern SVG_MARKERUNITS_USERSPACEONUSE = 1+pattern SVG_MARKERUNITS_STROKEWIDTH = 2+pattern SVG_MARKER_ORIENT_UNKNOWN = 0+pattern SVG_MARKER_ORIENT_AUTO = 1+pattern SVG_MARKER_ORIENT_ANGLE = 2+ +foreign import javascript unsafe "$1[\"refX\"]" js_getRefX ::+        SVGMarkerElement -> IO (Nullable SVGAnimatedLength)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMarkerElement.refX Mozilla SVGMarkerElement.refX documentation> +getRefX ::+        (MonadIO m) => SVGMarkerElement -> m (Maybe SVGAnimatedLength)+getRefX self = liftIO (nullableToMaybe <$> (js_getRefX (self)))+ +foreign import javascript unsafe "$1[\"refY\"]" js_getRefY ::+        SVGMarkerElement -> IO (Nullable SVGAnimatedLength)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMarkerElement.refY Mozilla SVGMarkerElement.refY documentation> +getRefY ::+        (MonadIO m) => SVGMarkerElement -> m (Maybe SVGAnimatedLength)+getRefY self = liftIO (nullableToMaybe <$> (js_getRefY (self)))+ +foreign import javascript unsafe "$1[\"markerUnits\"]"+        js_getMarkerUnits ::+        SVGMarkerElement -> IO (Nullable SVGAnimatedEnumeration)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMarkerElement.markerUnits Mozilla SVGMarkerElement.markerUnits documentation> +getMarkerUnits ::+               (MonadIO m) => SVGMarkerElement -> m (Maybe SVGAnimatedEnumeration)+getMarkerUnits self+  = liftIO (nullableToMaybe <$> (js_getMarkerUnits (self)))+ +foreign import javascript unsafe "$1[\"markerWidth\"]"+        js_getMarkerWidth ::+        SVGMarkerElement -> IO (Nullable SVGAnimatedLength)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMarkerElement.markerWidth Mozilla SVGMarkerElement.markerWidth documentation> +getMarkerWidth ::+               (MonadIO m) => SVGMarkerElement -> m (Maybe SVGAnimatedLength)+getMarkerWidth self+  = liftIO (nullableToMaybe <$> (js_getMarkerWidth (self)))+ +foreign import javascript unsafe "$1[\"markerHeight\"]"+        js_getMarkerHeight ::+        SVGMarkerElement -> IO (Nullable SVGAnimatedLength)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMarkerElement.markerHeight Mozilla SVGMarkerElement.markerHeight documentation> +getMarkerHeight ::+                (MonadIO m) => SVGMarkerElement -> m (Maybe SVGAnimatedLength)+getMarkerHeight self+  = liftIO (nullableToMaybe <$> (js_getMarkerHeight (self)))+ +foreign import javascript unsafe "$1[\"orientType\"]"+        js_getOrientType ::+        SVGMarkerElement -> IO (Nullable SVGAnimatedEnumeration)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMarkerElement.orientType Mozilla SVGMarkerElement.orientType documentation> +getOrientType ::+              (MonadIO m) => SVGMarkerElement -> m (Maybe SVGAnimatedEnumeration)+getOrientType self+  = liftIO (nullableToMaybe <$> (js_getOrientType (self)))+ +foreign import javascript unsafe "$1[\"orientAngle\"]"+        js_getOrientAngle ::+        SVGMarkerElement -> IO (Nullable SVGAnimatedAngle)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMarkerElement.orientAngle Mozilla SVGMarkerElement.orientAngle documentation> +getOrientAngle ::+               (MonadIO m) => SVGMarkerElement -> m (Maybe SVGAnimatedAngle)+getOrientAngle self+  = liftIO (nullableToMaybe <$> (js_getOrientAngle (self)))
+ src/GHCJS/DOM/JSFFI/Generated/SVGMaskElement.hs view
@@ -0,0 +1,73 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.SVGMaskElement+       (js_getMaskUnits, getMaskUnits, js_getMaskContentUnits,+        getMaskContentUnits, js_getX, getX, js_getY, getY, js_getWidth,+        getWidth, js_getHeight, getHeight, SVGMaskElement,+        castToSVGMaskElement, gTypeSVGMaskElement)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"maskUnits\"]"+        js_getMaskUnits ::+        SVGMaskElement -> IO (Nullable SVGAnimatedEnumeration)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMaskElement.maskUnits Mozilla SVGMaskElement.maskUnits documentation> +getMaskUnits ::+             (MonadIO m) => SVGMaskElement -> m (Maybe SVGAnimatedEnumeration)+getMaskUnits self+  = liftIO (nullableToMaybe <$> (js_getMaskUnits (self)))+ +foreign import javascript unsafe "$1[\"maskContentUnits\"]"+        js_getMaskContentUnits ::+        SVGMaskElement -> IO (Nullable SVGAnimatedEnumeration)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMaskElement.maskContentUnits Mozilla SVGMaskElement.maskContentUnits documentation> +getMaskContentUnits ::+                    (MonadIO m) => SVGMaskElement -> m (Maybe SVGAnimatedEnumeration)+getMaskContentUnits self+  = liftIO (nullableToMaybe <$> (js_getMaskContentUnits (self)))+ +foreign import javascript unsafe "$1[\"x\"]" js_getX ::+        SVGMaskElement -> IO (Nullable SVGAnimatedLength)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMaskElement.x Mozilla SVGMaskElement.x documentation> +getX ::+     (MonadIO m) => SVGMaskElement -> m (Maybe SVGAnimatedLength)+getX self = liftIO (nullableToMaybe <$> (js_getX (self)))+ +foreign import javascript unsafe "$1[\"y\"]" js_getY ::+        SVGMaskElement -> IO (Nullable SVGAnimatedLength)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMaskElement.y Mozilla SVGMaskElement.y documentation> +getY ::+     (MonadIO m) => SVGMaskElement -> m (Maybe SVGAnimatedLength)+getY self = liftIO (nullableToMaybe <$> (js_getY (self)))+ +foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::+        SVGMaskElement -> IO (Nullable SVGAnimatedLength)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMaskElement.width Mozilla SVGMaskElement.width documentation> +getWidth ::+         (MonadIO m) => SVGMaskElement -> m (Maybe SVGAnimatedLength)+getWidth self = liftIO (nullableToMaybe <$> (js_getWidth (self)))+ +foreign import javascript unsafe "$1[\"height\"]" js_getHeight ::+        SVGMaskElement -> IO (Nullable SVGAnimatedLength)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMaskElement.height Mozilla SVGMaskElement.height documentation> +getHeight ::+          (MonadIO m) => SVGMaskElement -> m (Maybe SVGAnimatedLength)+getHeight self = liftIO (nullableToMaybe <$> (js_getHeight (self)))
+ src/GHCJS/DOM/JSFFI/Generated/SVGMatrix.hs view
@@ -0,0 +1,205 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.SVGMatrix+       (js_multiply, multiply, js_inverse, inverse, js_translate,+        translate, js_scale, scale, js_scaleNonUniform, scaleNonUniform,+        js_rotate, rotate, js_rotateFromVector, rotateFromVector, js_flipX,+        flipX, js_flipY, flipY, js_skewX, skewX, js_skewY, skewY, js_setA,+        setA, js_getA, getA, js_setB, setB, js_getB, getB, js_setC, setC,+        js_getC, getC, js_setD, setD, js_getD, getD, js_setE, setE,+        js_getE, getE, js_setF, setF, js_getF, getF, SVGMatrix,+        castToSVGMatrix, gTypeSVGMatrix)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"multiply\"]($2)" js_multiply+        :: SVGMatrix -> Nullable SVGMatrix -> IO (Nullable SVGMatrix)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.multiply Mozilla SVGMatrix.multiply documentation> +multiply ::+         (MonadIO m) => SVGMatrix -> Maybe SVGMatrix -> m (Maybe SVGMatrix)+multiply self secondMatrix+  = liftIO+      (nullableToMaybe <$>+         (js_multiply (self) (maybeToNullable secondMatrix)))+ +foreign import javascript unsafe "$1[\"inverse\"]()" js_inverse ::+        SVGMatrix -> IO (Nullable SVGMatrix)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.inverse Mozilla SVGMatrix.inverse documentation> +inverse :: (MonadIO m) => SVGMatrix -> m (Maybe SVGMatrix)+inverse self = liftIO (nullableToMaybe <$> (js_inverse (self)))+ +foreign import javascript unsafe "$1[\"translate\"]($2, $3)"+        js_translate ::+        SVGMatrix -> Float -> Float -> IO (Nullable SVGMatrix)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.translate Mozilla SVGMatrix.translate documentation> +translate ::+          (MonadIO m) => SVGMatrix -> Float -> Float -> m (Maybe SVGMatrix)+translate self x y+  = liftIO (nullableToMaybe <$> (js_translate (self) x y))+ +foreign import javascript unsafe "$1[\"scale\"]($2)" js_scale ::+        SVGMatrix -> Float -> IO (Nullable SVGMatrix)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.scale Mozilla SVGMatrix.scale documentation> +scale :: (MonadIO m) => SVGMatrix -> Float -> m (Maybe SVGMatrix)+scale self scaleFactor+  = liftIO (nullableToMaybe <$> (js_scale (self) scaleFactor))+ +foreign import javascript unsafe "$1[\"scaleNonUniform\"]($2, $3)"+        js_scaleNonUniform ::+        SVGMatrix -> Float -> Float -> IO (Nullable SVGMatrix)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.scaleNonUniform Mozilla SVGMatrix.scaleNonUniform documentation> +scaleNonUniform ::+                (MonadIO m) => SVGMatrix -> Float -> Float -> m (Maybe SVGMatrix)+scaleNonUniform self scaleFactorX scaleFactorY+  = liftIO+      (nullableToMaybe <$>+         (js_scaleNonUniform (self) scaleFactorX scaleFactorY))+ +foreign import javascript unsafe "$1[\"rotate\"]($2)" js_rotate ::+        SVGMatrix -> Float -> IO (Nullable SVGMatrix)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.rotate Mozilla SVGMatrix.rotate documentation> +rotate :: (MonadIO m) => SVGMatrix -> Float -> m (Maybe SVGMatrix)+rotate self angle+  = liftIO (nullableToMaybe <$> (js_rotate (self) angle))+ +foreign import javascript unsafe "$1[\"rotateFromVector\"]($2, $3)"+        js_rotateFromVector ::+        SVGMatrix -> Float -> Float -> IO (Nullable SVGMatrix)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.rotateFromVector Mozilla SVGMatrix.rotateFromVector documentation> +rotateFromVector ::+                 (MonadIO m) => SVGMatrix -> Float -> Float -> m (Maybe SVGMatrix)+rotateFromVector self x y+  = liftIO (nullableToMaybe <$> (js_rotateFromVector (self) x y))+ +foreign import javascript unsafe "$1[\"flipX\"]()" js_flipX ::+        SVGMatrix -> IO (Nullable SVGMatrix)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.flipX Mozilla SVGMatrix.flipX documentation> +flipX :: (MonadIO m) => SVGMatrix -> m (Maybe SVGMatrix)+flipX self = liftIO (nullableToMaybe <$> (js_flipX (self)))+ +foreign import javascript unsafe "$1[\"flipY\"]()" js_flipY ::+        SVGMatrix -> IO (Nullable SVGMatrix)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.flipY Mozilla SVGMatrix.flipY documentation> +flipY :: (MonadIO m) => SVGMatrix -> m (Maybe SVGMatrix)+flipY self = liftIO (nullableToMaybe <$> (js_flipY (self)))+ +foreign import javascript unsafe "$1[\"skewX\"]($2)" js_skewX ::+        SVGMatrix -> Float -> IO (Nullable SVGMatrix)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.skewX Mozilla SVGMatrix.skewX documentation> +skewX :: (MonadIO m) => SVGMatrix -> Float -> m (Maybe SVGMatrix)+skewX self angle+  = liftIO (nullableToMaybe <$> (js_skewX (self) angle))+ +foreign import javascript unsafe "$1[\"skewY\"]($2)" js_skewY ::+        SVGMatrix -> Float -> IO (Nullable SVGMatrix)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.skewY Mozilla SVGMatrix.skewY documentation> +skewY :: (MonadIO m) => SVGMatrix -> Float -> m (Maybe SVGMatrix)+skewY self angle+  = liftIO (nullableToMaybe <$> (js_skewY (self) angle))+ +foreign import javascript unsafe "$1[\"a\"] = $2;" js_setA ::+        SVGMatrix -> Double -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.a Mozilla SVGMatrix.a documentation> +setA :: (MonadIO m) => SVGMatrix -> Double -> m ()+setA self val = liftIO (js_setA (self) val)+ +foreign import javascript unsafe "$1[\"a\"]" js_getA ::+        SVGMatrix -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.a Mozilla SVGMatrix.a documentation> +getA :: (MonadIO m) => SVGMatrix -> m Double+getA self = liftIO (js_getA (self))+ +foreign import javascript unsafe "$1[\"b\"] = $2;" js_setB ::+        SVGMatrix -> Double -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.b Mozilla SVGMatrix.b documentation> +setB :: (MonadIO m) => SVGMatrix -> Double -> m ()+setB self val = liftIO (js_setB (self) val)+ +foreign import javascript unsafe "$1[\"b\"]" js_getB ::+        SVGMatrix -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.b Mozilla SVGMatrix.b documentation> +getB :: (MonadIO m) => SVGMatrix -> m Double+getB self = liftIO (js_getB (self))+ +foreign import javascript unsafe "$1[\"c\"] = $2;" js_setC ::+        SVGMatrix -> Double -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.c Mozilla SVGMatrix.c documentation> +setC :: (MonadIO m) => SVGMatrix -> Double -> m ()+setC self val = liftIO (js_setC (self) val)+ +foreign import javascript unsafe "$1[\"c\"]" js_getC ::+        SVGMatrix -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.c Mozilla SVGMatrix.c documentation> +getC :: (MonadIO m) => SVGMatrix -> m Double+getC self = liftIO (js_getC (self))+ +foreign import javascript unsafe "$1[\"d\"] = $2;" js_setD ::+        SVGMatrix -> Double -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.d Mozilla SVGMatrix.d documentation> +setD :: (MonadIO m) => SVGMatrix -> Double -> m ()+setD self val = liftIO (js_setD (self) val)+ +foreign import javascript unsafe "$1[\"d\"]" js_getD ::+        SVGMatrix -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.d Mozilla SVGMatrix.d documentation> +getD :: (MonadIO m) => SVGMatrix -> m Double+getD self = liftIO (js_getD (self))+ +foreign import javascript unsafe "$1[\"e\"] = $2;" js_setE ::+        SVGMatrix -> Double -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.e Mozilla SVGMatrix.e documentation> +setE :: (MonadIO m) => SVGMatrix -> Double -> m ()+setE self val = liftIO (js_setE (self) val)+ +foreign import javascript unsafe "$1[\"e\"]" js_getE ::+        SVGMatrix -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.e Mozilla SVGMatrix.e documentation> +getE :: (MonadIO m) => SVGMatrix -> m Double+getE self = liftIO (js_getE (self))+ +foreign import javascript unsafe "$1[\"f\"] = $2;" js_setF ::+        SVGMatrix -> Double -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.f Mozilla SVGMatrix.f documentation> +setF :: (MonadIO m) => SVGMatrix -> Double -> m ()+setF self val = liftIO (js_setF (self) val)+ +foreign import javascript unsafe "$1[\"f\"]" js_getF ::+        SVGMatrix -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.f Mozilla SVGMatrix.f documentation> +getF :: (MonadIO m) => SVGMatrix -> m Double+getF self = liftIO (js_getF (self))
+ src/GHCJS/DOM/JSFFI/Generated/SVGNumber.hs view
@@ -0,0 +1,33 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.SVGNumber+       (js_setValue, setValue, js_getValue, getValue, SVGNumber,+        castToSVGNumber, gTypeSVGNumber)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue+        :: SVGNumber -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGNumber.value Mozilla SVGNumber.value documentation> +setValue :: (MonadIO m) => SVGNumber -> Float -> m ()+setValue self val = liftIO (js_setValue (self) val)+ +foreign import javascript unsafe "$1[\"value\"]" js_getValue ::+        SVGNumber -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGNumber.value Mozilla SVGNumber.value documentation> +getValue :: (MonadIO m) => SVGNumber -> m Float+getValue self = liftIO (js_getValue (self))
+ src/GHCJS/DOM/JSFFI/Generated/SVGNumberList.hs view
@@ -0,0 +1,106 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.SVGNumberList+       (js_clear, clear, js_initialize, initialize, js_getItem, getItem,+        js_insertItemBefore, insertItemBefore, js_replaceItem, replaceItem,+        js_removeItem, removeItem, js_appendItem, appendItem,+        js_getNumberOfItems, getNumberOfItems, SVGNumberList,+        castToSVGNumberList, gTypeSVGNumberList)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"clear\"]()" js_clear ::+        SVGNumberList -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGNumberList.clear Mozilla SVGNumberList.clear documentation> +clear :: (MonadIO m) => SVGNumberList -> m ()+clear self = liftIO (js_clear (self))+ +foreign import javascript unsafe "$1[\"initialize\"]($2)"+        js_initialize ::+        SVGNumberList -> Nullable SVGNumber -> IO (Nullable SVGNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGNumberList.initialize Mozilla SVGNumberList.initialize documentation> +initialize ::+           (MonadIO m) =>+             SVGNumberList -> Maybe SVGNumber -> m (Maybe SVGNumber)+initialize self item+  = liftIO+      (nullableToMaybe <$> (js_initialize (self) (maybeToNullable item)))+ +foreign import javascript unsafe "$1[\"getItem\"]($2)" js_getItem+        :: SVGNumberList -> Word -> IO (Nullable SVGNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGNumberList.getItem Mozilla SVGNumberList.getItem documentation> +getItem ::+        (MonadIO m) => SVGNumberList -> Word -> m (Maybe SVGNumber)+getItem self index+  = liftIO (nullableToMaybe <$> (js_getItem (self) index))+ +foreign import javascript unsafe "$1[\"insertItemBefore\"]($2, $3)"+        js_insertItemBefore ::+        SVGNumberList ->+          Nullable SVGNumber -> Word -> IO (Nullable SVGNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGNumberList.insertItemBefore Mozilla SVGNumberList.insertItemBefore documentation> +insertItemBefore ::+                 (MonadIO m) =>+                   SVGNumberList -> Maybe SVGNumber -> Word -> m (Maybe SVGNumber)+insertItemBefore self item index+  = liftIO+      (nullableToMaybe <$>+         (js_insertItemBefore (self) (maybeToNullable item) index))+ +foreign import javascript unsafe "$1[\"replaceItem\"]($2, $3)"+        js_replaceItem ::+        SVGNumberList ->+          Nullable SVGNumber -> Word -> IO (Nullable SVGNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGNumberList.replaceItem Mozilla SVGNumberList.replaceItem documentation> +replaceItem ::+            (MonadIO m) =>+              SVGNumberList -> Maybe SVGNumber -> Word -> m (Maybe SVGNumber)+replaceItem self item index+  = liftIO+      (nullableToMaybe <$>+         (js_replaceItem (self) (maybeToNullable item) index))+ +foreign import javascript unsafe "$1[\"removeItem\"]($2)"+        js_removeItem :: SVGNumberList -> Word -> IO (Nullable SVGNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGNumberList.removeItem Mozilla SVGNumberList.removeItem documentation> +removeItem ::+           (MonadIO m) => SVGNumberList -> Word -> m (Maybe SVGNumber)+removeItem self index+  = liftIO (nullableToMaybe <$> (js_removeItem (self) index))+ +foreign import javascript unsafe "$1[\"appendItem\"]($2)"+        js_appendItem ::+        SVGNumberList -> Nullable SVGNumber -> IO (Nullable SVGNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGNumberList.appendItem Mozilla SVGNumberList.appendItem documentation> +appendItem ::+           (MonadIO m) =>+             SVGNumberList -> Maybe SVGNumber -> m (Maybe SVGNumber)+appendItem self item+  = liftIO+      (nullableToMaybe <$> (js_appendItem (self) (maybeToNullable item)))+ +foreign import javascript unsafe "$1[\"numberOfItems\"]"+        js_getNumberOfItems :: SVGNumberList -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGNumberList.numberOfItems Mozilla SVGNumberList.numberOfItems documentation> +getNumberOfItems :: (MonadIO m) => SVGNumberList -> m Word+getNumberOfItems self = liftIO (js_getNumberOfItems (self))
+ src/GHCJS/DOM/JSFFI/Generated/SVGPaint.hs view
@@ -0,0 +1,73 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.SVGPaint+       (js_setUri, setUri, js_setPaint, setPaint,+        pattern SVG_PAINTTYPE_UNKNOWN, pattern SVG_PAINTTYPE_RGBCOLOR,+        pattern SVG_PAINTTYPE_RGBCOLOR_ICCCOLOR,+        pattern SVG_PAINTTYPE_NONE, pattern SVG_PAINTTYPE_CURRENTCOLOR,+        pattern SVG_PAINTTYPE_URI_NONE,+        pattern SVG_PAINTTYPE_URI_CURRENTCOLOR,+        pattern SVG_PAINTTYPE_URI_RGBCOLOR,+        pattern SVG_PAINTTYPE_URI_RGBCOLOR_ICCCOLOR,+        pattern SVG_PAINTTYPE_URI, js_getPaintType, getPaintType,+        js_getUri, getUri, SVGPaint, castToSVGPaint, gTypeSVGPaint)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"setUri\"]($2)" js_setUri ::+        SVGPaint -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPaint.setUri Mozilla SVGPaint.setUri documentation> +setUri :: (MonadIO m, ToJSString uri) => SVGPaint -> uri -> m ()+setUri self uri = liftIO (js_setUri (self) (toJSString uri))+ +foreign import javascript unsafe "$1[\"setPaint\"]($2, $3, $4, $5)"+        js_setPaint ::+        SVGPaint -> Word -> JSString -> JSString -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPaint.setPaint Mozilla SVGPaint.setPaint documentation> +setPaint ::+         (MonadIO m, ToJSString uri, ToJSString rgbColor,+          ToJSString iccColor) =>+           SVGPaint -> Word -> uri -> rgbColor -> iccColor -> m ()+setPaint self paintType uri rgbColor iccColor+  = liftIO+      (js_setPaint (self) paintType (toJSString uri)+         (toJSString rgbColor)+         (toJSString iccColor))+pattern SVG_PAINTTYPE_UNKNOWN = 0+pattern SVG_PAINTTYPE_RGBCOLOR = 1+pattern SVG_PAINTTYPE_RGBCOLOR_ICCCOLOR = 2+pattern SVG_PAINTTYPE_NONE = 101+pattern SVG_PAINTTYPE_CURRENTCOLOR = 102+pattern SVG_PAINTTYPE_URI_NONE = 103+pattern SVG_PAINTTYPE_URI_CURRENTCOLOR = 104+pattern SVG_PAINTTYPE_URI_RGBCOLOR = 105+pattern SVG_PAINTTYPE_URI_RGBCOLOR_ICCCOLOR = 106+pattern SVG_PAINTTYPE_URI = 107+ +foreign import javascript unsafe "$1[\"paintType\"]"+        js_getPaintType :: SVGPaint -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPaint.paintType Mozilla SVGPaint.paintType documentation> +getPaintType :: (MonadIO m) => SVGPaint -> m Word+getPaintType self = liftIO (js_getPaintType (self))+ +foreign import javascript unsafe "$1[\"uri\"]" js_getUri ::+        SVGPaint -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPaint.uri Mozilla SVGPaint.uri documentation> +getUri :: (MonadIO m, FromJSString result) => SVGPaint -> m result+getUri self = liftIO (fromJSString <$> (js_getUri (self)))
+ src/GHCJS/DOM/JSFFI/Generated/SVGPathElement.hs view
@@ -0,0 +1,474 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.SVGPathElement+       (js_getTotalLength, getTotalLength, js_getPointAtLength,+        getPointAtLength, js_getPathSegAtLength, getPathSegAtLength,+        js_createSVGPathSegClosePath, createSVGPathSegClosePath,+        js_createSVGPathSegMovetoAbs, createSVGPathSegMovetoAbs,+        js_createSVGPathSegMovetoRel, createSVGPathSegMovetoRel,+        js_createSVGPathSegLinetoAbs, createSVGPathSegLinetoAbs,+        js_createSVGPathSegLinetoRel, createSVGPathSegLinetoRel,+        js_createSVGPathSegCurvetoCubicAbs,+        createSVGPathSegCurvetoCubicAbs,+        js_createSVGPathSegCurvetoCubicRel,+        createSVGPathSegCurvetoCubicRel,+        js_createSVGPathSegCurvetoQuadraticAbs,+        createSVGPathSegCurvetoQuadraticAbs,+        js_createSVGPathSegCurvetoQuadraticRel,+        createSVGPathSegCurvetoQuadraticRel, js_createSVGPathSegArcAbs,+        createSVGPathSegArcAbs, js_createSVGPathSegArcRel,+        createSVGPathSegArcRel, js_createSVGPathSegLinetoHorizontalAbs,+        createSVGPathSegLinetoHorizontalAbs,+        js_createSVGPathSegLinetoHorizontalRel,+        createSVGPathSegLinetoHorizontalRel,+        js_createSVGPathSegLinetoVerticalAbs,+        createSVGPathSegLinetoVerticalAbs,+        js_createSVGPathSegLinetoVerticalRel,+        createSVGPathSegLinetoVerticalRel,+        js_createSVGPathSegCurvetoCubicSmoothAbs,+        createSVGPathSegCurvetoCubicSmoothAbs,+        js_createSVGPathSegCurvetoCubicSmoothRel,+        createSVGPathSegCurvetoCubicSmoothRel,+        js_createSVGPathSegCurvetoQuadraticSmoothAbs,+        createSVGPathSegCurvetoQuadraticSmoothAbs,+        js_createSVGPathSegCurvetoQuadraticSmoothRel,+        createSVGPathSegCurvetoQuadraticSmoothRel, js_getPathLength,+        getPathLength, js_getPathSegList, getPathSegList,+        js_getNormalizedPathSegList, getNormalizedPathSegList,+        js_getAnimatedPathSegList, getAnimatedPathSegList,+        js_getAnimatedNormalizedPathSegList,+        getAnimatedNormalizedPathSegList, SVGPathElement,+        castToSVGPathElement, gTypeSVGPathElement)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"getTotalLength\"]()"+        js_getTotalLength :: SVGPathElement -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.getTotalLength Mozilla SVGPathElement.getTotalLength documentation> +getTotalLength :: (MonadIO m) => SVGPathElement -> m Float+getTotalLength self = liftIO (js_getTotalLength (self))+ +foreign import javascript unsafe "$1[\"getPointAtLength\"]($2)"+        js_getPointAtLength ::+        SVGPathElement -> Float -> IO (Nullable SVGPoint)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.getPointAtLength Mozilla SVGPathElement.getPointAtLength documentation> +getPointAtLength ::+                 (MonadIO m) => SVGPathElement -> Float -> m (Maybe SVGPoint)+getPointAtLength self distance+  = liftIO+      (nullableToMaybe <$> (js_getPointAtLength (self) distance))+ +foreign import javascript unsafe "$1[\"getPathSegAtLength\"]($2)"+        js_getPathSegAtLength :: SVGPathElement -> Float -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.getPathSegAtLength Mozilla SVGPathElement.getPathSegAtLength documentation> +getPathSegAtLength ::+                   (MonadIO m) => SVGPathElement -> Float -> m Word+getPathSegAtLength self distance+  = liftIO (js_getPathSegAtLength (self) distance)+ +foreign import javascript unsafe+        "$1[\"createSVGPathSegClosePath\"]()" js_createSVGPathSegClosePath+        :: SVGPathElement -> IO (Nullable SVGPathSegClosePath)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegClosePath Mozilla SVGPathElement.createSVGPathSegClosePath documentation> +createSVGPathSegClosePath ::+                          (MonadIO m) => SVGPathElement -> m (Maybe SVGPathSegClosePath)+createSVGPathSegClosePath self+  = liftIO+      (nullableToMaybe <$> (js_createSVGPathSegClosePath (self)))+ +foreign import javascript unsafe+        "$1[\"createSVGPathSegMovetoAbs\"]($2,\n$3)"+        js_createSVGPathSegMovetoAbs ::+        SVGPathElement ->+          Float -> Float -> IO (Nullable SVGPathSegMovetoAbs)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegMovetoAbs Mozilla SVGPathElement.createSVGPathSegMovetoAbs documentation> +createSVGPathSegMovetoAbs ::+                          (MonadIO m) =>+                            SVGPathElement -> Float -> Float -> m (Maybe SVGPathSegMovetoAbs)+createSVGPathSegMovetoAbs self x y+  = liftIO+      (nullableToMaybe <$> (js_createSVGPathSegMovetoAbs (self) x y))+ +foreign import javascript unsafe+        "$1[\"createSVGPathSegMovetoRel\"]($2,\n$3)"+        js_createSVGPathSegMovetoRel ::+        SVGPathElement ->+          Float -> Float -> IO (Nullable SVGPathSegMovetoRel)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegMovetoRel Mozilla SVGPathElement.createSVGPathSegMovetoRel documentation> +createSVGPathSegMovetoRel ::+                          (MonadIO m) =>+                            SVGPathElement -> Float -> Float -> m (Maybe SVGPathSegMovetoRel)+createSVGPathSegMovetoRel self x y+  = liftIO+      (nullableToMaybe <$> (js_createSVGPathSegMovetoRel (self) x y))+ +foreign import javascript unsafe+        "$1[\"createSVGPathSegLinetoAbs\"]($2,\n$3)"+        js_createSVGPathSegLinetoAbs ::+        SVGPathElement ->+          Float -> Float -> IO (Nullable SVGPathSegLinetoAbs)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegLinetoAbs Mozilla SVGPathElement.createSVGPathSegLinetoAbs documentation> +createSVGPathSegLinetoAbs ::+                          (MonadIO m) =>+                            SVGPathElement -> Float -> Float -> m (Maybe SVGPathSegLinetoAbs)+createSVGPathSegLinetoAbs self x y+  = liftIO+      (nullableToMaybe <$> (js_createSVGPathSegLinetoAbs (self) x y))+ +foreign import javascript unsafe+        "$1[\"createSVGPathSegLinetoRel\"]($2,\n$3)"+        js_createSVGPathSegLinetoRel ::+        SVGPathElement ->+          Float -> Float -> IO (Nullable SVGPathSegLinetoRel)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegLinetoRel Mozilla SVGPathElement.createSVGPathSegLinetoRel documentation> +createSVGPathSegLinetoRel ::+                          (MonadIO m) =>+                            SVGPathElement -> Float -> Float -> m (Maybe SVGPathSegLinetoRel)+createSVGPathSegLinetoRel self x y+  = liftIO+      (nullableToMaybe <$> (js_createSVGPathSegLinetoRel (self) x y))+ +foreign import javascript unsafe+        "$1[\"createSVGPathSegCurvetoCubicAbs\"]($2,\n$3, $4, $5, $6, $7)"+        js_createSVGPathSegCurvetoCubicAbs ::+        SVGPathElement ->+          Float ->+            Float ->+              Float ->+                Float -> Float -> Float -> IO (Nullable SVGPathSegCurvetoCubicAbs)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegCurvetoCubicAbs Mozilla SVGPathElement.createSVGPathSegCurvetoCubicAbs documentation> +createSVGPathSegCurvetoCubicAbs ::+                                (MonadIO m) =>+                                  SVGPathElement ->+                                    Float ->+                                      Float ->+                                        Float ->+                                          Float ->+                                            Float -> Float -> m (Maybe SVGPathSegCurvetoCubicAbs)+createSVGPathSegCurvetoCubicAbs self x y x1 y1 x2 y2+  = liftIO+      (nullableToMaybe <$>+         (js_createSVGPathSegCurvetoCubicAbs (self) x y x1 y1 x2 y2))+ +foreign import javascript unsafe+        "$1[\"createSVGPathSegCurvetoCubicRel\"]($2,\n$3, $4, $5, $6, $7)"+        js_createSVGPathSegCurvetoCubicRel ::+        SVGPathElement ->+          Float ->+            Float ->+              Float ->+                Float -> Float -> Float -> IO (Nullable SVGPathSegCurvetoCubicRel)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegCurvetoCubicRel Mozilla SVGPathElement.createSVGPathSegCurvetoCubicRel documentation> +createSVGPathSegCurvetoCubicRel ::+                                (MonadIO m) =>+                                  SVGPathElement ->+                                    Float ->+                                      Float ->+                                        Float ->+                                          Float ->+                                            Float -> Float -> m (Maybe SVGPathSegCurvetoCubicRel)+createSVGPathSegCurvetoCubicRel self x y x1 y1 x2 y2+  = liftIO+      (nullableToMaybe <$>+         (js_createSVGPathSegCurvetoCubicRel (self) x y x1 y1 x2 y2))+ +foreign import javascript unsafe+        "$1[\"createSVGPathSegCurvetoQuadraticAbs\"]($2,\n$3, $4, $5)"+        js_createSVGPathSegCurvetoQuadraticAbs ::+        SVGPathElement ->+          Float ->+            Float ->+              Float -> Float -> IO (Nullable SVGPathSegCurvetoQuadraticAbs)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegCurvetoQuadraticAbs Mozilla SVGPathElement.createSVGPathSegCurvetoQuadraticAbs documentation> +createSVGPathSegCurvetoQuadraticAbs ::+                                    (MonadIO m) =>+                                      SVGPathElement ->+                                        Float ->+                                          Float ->+                                            Float ->+                                              Float -> m (Maybe SVGPathSegCurvetoQuadraticAbs)+createSVGPathSegCurvetoQuadraticAbs self x y x1 y1+  = liftIO+      (nullableToMaybe <$>+         (js_createSVGPathSegCurvetoQuadraticAbs (self) x y x1 y1))+ +foreign import javascript unsafe+        "$1[\"createSVGPathSegCurvetoQuadraticRel\"]($2,\n$3, $4, $5)"+        js_createSVGPathSegCurvetoQuadraticRel ::+        SVGPathElement ->+          Float ->+            Float ->+              Float -> Float -> IO (Nullable SVGPathSegCurvetoQuadraticRel)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegCurvetoQuadraticRel Mozilla SVGPathElement.createSVGPathSegCurvetoQuadraticRel documentation> +createSVGPathSegCurvetoQuadraticRel ::+                                    (MonadIO m) =>+                                      SVGPathElement ->+                                        Float ->+                                          Float ->+                                            Float ->+                                              Float -> m (Maybe SVGPathSegCurvetoQuadraticRel)+createSVGPathSegCurvetoQuadraticRel self x y x1 y1+  = liftIO+      (nullableToMaybe <$>+         (js_createSVGPathSegCurvetoQuadraticRel (self) x y x1 y1))+ +foreign import javascript unsafe+        "$1[\"createSVGPathSegArcAbs\"]($2,\n$3, $4, $5, $6, $7, $8)"+        js_createSVGPathSegArcAbs ::+        SVGPathElement ->+          Float ->+            Float ->+              Float ->+                Float -> Float -> Bool -> Bool -> IO (Nullable SVGPathSegArcAbs)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegArcAbs Mozilla SVGPathElement.createSVGPathSegArcAbs documentation> +createSVGPathSegArcAbs ::+                       (MonadIO m) =>+                         SVGPathElement ->+                           Float ->+                             Float ->+                               Float ->+                                 Float -> Float -> Bool -> Bool -> m (Maybe SVGPathSegArcAbs)+createSVGPathSegArcAbs self x y r1 r2 angle largeArcFlag sweepFlag+  = liftIO+      (nullableToMaybe <$>+         (js_createSVGPathSegArcAbs (self) x y r1 r2 angle largeArcFlag+            sweepFlag))+ +foreign import javascript unsafe+        "$1[\"createSVGPathSegArcRel\"]($2,\n$3, $4, $5, $6, $7, $8)"+        js_createSVGPathSegArcRel ::+        SVGPathElement ->+          Float ->+            Float ->+              Float ->+                Float -> Float -> Bool -> Bool -> IO (Nullable SVGPathSegArcRel)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegArcRel Mozilla SVGPathElement.createSVGPathSegArcRel documentation> +createSVGPathSegArcRel ::+                       (MonadIO m) =>+                         SVGPathElement ->+                           Float ->+                             Float ->+                               Float ->+                                 Float -> Float -> Bool -> Bool -> m (Maybe SVGPathSegArcRel)+createSVGPathSegArcRel self x y r1 r2 angle largeArcFlag sweepFlag+  = liftIO+      (nullableToMaybe <$>+         (js_createSVGPathSegArcRel (self) x y r1 r2 angle largeArcFlag+            sweepFlag))+ +foreign import javascript unsafe+        "$1[\"createSVGPathSegLinetoHorizontalAbs\"]($2)"+        js_createSVGPathSegLinetoHorizontalAbs ::+        SVGPathElement ->+          Float -> IO (Nullable SVGPathSegLinetoHorizontalAbs)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegLinetoHorizontalAbs Mozilla SVGPathElement.createSVGPathSegLinetoHorizontalAbs documentation> +createSVGPathSegLinetoHorizontalAbs ::+                                    (MonadIO m) =>+                                      SVGPathElement ->+                                        Float -> m (Maybe SVGPathSegLinetoHorizontalAbs)+createSVGPathSegLinetoHorizontalAbs self x+  = liftIO+      (nullableToMaybe <$>+         (js_createSVGPathSegLinetoHorizontalAbs (self) x))+ +foreign import javascript unsafe+        "$1[\"createSVGPathSegLinetoHorizontalRel\"]($2)"+        js_createSVGPathSegLinetoHorizontalRel ::+        SVGPathElement ->+          Float -> IO (Nullable SVGPathSegLinetoHorizontalRel)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegLinetoHorizontalRel Mozilla SVGPathElement.createSVGPathSegLinetoHorizontalRel documentation> +createSVGPathSegLinetoHorizontalRel ::+                                    (MonadIO m) =>+                                      SVGPathElement ->+                                        Float -> m (Maybe SVGPathSegLinetoHorizontalRel)+createSVGPathSegLinetoHorizontalRel self x+  = liftIO+      (nullableToMaybe <$>+         (js_createSVGPathSegLinetoHorizontalRel (self) x))+ +foreign import javascript unsafe+        "$1[\"createSVGPathSegLinetoVerticalAbs\"]($2)"+        js_createSVGPathSegLinetoVerticalAbs ::+        SVGPathElement ->+          Float -> IO (Nullable SVGPathSegLinetoVerticalAbs)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegLinetoVerticalAbs Mozilla SVGPathElement.createSVGPathSegLinetoVerticalAbs documentation> +createSVGPathSegLinetoVerticalAbs ::+                                  (MonadIO m) =>+                                    SVGPathElement -> Float -> m (Maybe SVGPathSegLinetoVerticalAbs)+createSVGPathSegLinetoVerticalAbs self y+  = liftIO+      (nullableToMaybe <$>+         (js_createSVGPathSegLinetoVerticalAbs (self) y))+ +foreign import javascript unsafe+        "$1[\"createSVGPathSegLinetoVerticalRel\"]($2)"+        js_createSVGPathSegLinetoVerticalRel ::+        SVGPathElement ->+          Float -> IO (Nullable SVGPathSegLinetoVerticalRel)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegLinetoVerticalRel Mozilla SVGPathElement.createSVGPathSegLinetoVerticalRel documentation> +createSVGPathSegLinetoVerticalRel ::+                                  (MonadIO m) =>+                                    SVGPathElement -> Float -> m (Maybe SVGPathSegLinetoVerticalRel)+createSVGPathSegLinetoVerticalRel self y+  = liftIO+      (nullableToMaybe <$>+         (js_createSVGPathSegLinetoVerticalRel (self) y))+ +foreign import javascript unsafe+        "$1[\"createSVGPathSegCurvetoCubicSmoothAbs\"]($2,\n$3, $4, $5)"+        js_createSVGPathSegCurvetoCubicSmoothAbs ::+        SVGPathElement ->+          Float ->+            Float ->+              Float -> Float -> IO (Nullable SVGPathSegCurvetoCubicSmoothAbs)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegCurvetoCubicSmoothAbs Mozilla SVGPathElement.createSVGPathSegCurvetoCubicSmoothAbs documentation> +createSVGPathSegCurvetoCubicSmoothAbs ::+                                      (MonadIO m) =>+                                        SVGPathElement ->+                                          Float ->+                                            Float ->+                                              Float ->+                                                Float -> m (Maybe SVGPathSegCurvetoCubicSmoothAbs)+createSVGPathSegCurvetoCubicSmoothAbs self x y x2 y2+  = liftIO+      (nullableToMaybe <$>+         (js_createSVGPathSegCurvetoCubicSmoothAbs (self) x y x2 y2))+ +foreign import javascript unsafe+        "$1[\"createSVGPathSegCurvetoCubicSmoothRel\"]($2,\n$3, $4, $5)"+        js_createSVGPathSegCurvetoCubicSmoothRel ::+        SVGPathElement ->+          Float ->+            Float ->+              Float -> Float -> IO (Nullable SVGPathSegCurvetoCubicSmoothRel)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegCurvetoCubicSmoothRel Mozilla SVGPathElement.createSVGPathSegCurvetoCubicSmoothRel documentation> +createSVGPathSegCurvetoCubicSmoothRel ::+                                      (MonadIO m) =>+                                        SVGPathElement ->+                                          Float ->+                                            Float ->+                                              Float ->+                                                Float -> m (Maybe SVGPathSegCurvetoCubicSmoothRel)+createSVGPathSegCurvetoCubicSmoothRel self x y x2 y2+  = liftIO+      (nullableToMaybe <$>+         (js_createSVGPathSegCurvetoCubicSmoothRel (self) x y x2 y2))+ +foreign import javascript unsafe+        "$1[\"createSVGPathSegCurvetoQuadraticSmoothAbs\"]($2,\n$3)"+        js_createSVGPathSegCurvetoQuadraticSmoothAbs ::+        SVGPathElement ->+          Float -> Float -> IO (Nullable SVGPathSegCurvetoQuadraticSmoothAbs)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegCurvetoQuadraticSmoothAbs Mozilla SVGPathElement.createSVGPathSegCurvetoQuadraticSmoothAbs documentation> +createSVGPathSegCurvetoQuadraticSmoothAbs ::+                                          (MonadIO m) =>+                                            SVGPathElement ->+                                              Float ->+                                                Float ->+                                                  m (Maybe SVGPathSegCurvetoQuadraticSmoothAbs)+createSVGPathSegCurvetoQuadraticSmoothAbs self x y+  = liftIO+      (nullableToMaybe <$>+         (js_createSVGPathSegCurvetoQuadraticSmoothAbs (self) x y))+ +foreign import javascript unsafe+        "$1[\"createSVGPathSegCurvetoQuadraticSmoothRel\"]($2,\n$3)"+        js_createSVGPathSegCurvetoQuadraticSmoothRel ::+        SVGPathElement ->+          Float -> Float -> IO (Nullable SVGPathSegCurvetoQuadraticSmoothRel)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegCurvetoQuadraticSmoothRel Mozilla SVGPathElement.createSVGPathSegCurvetoQuadraticSmoothRel documentation> +createSVGPathSegCurvetoQuadraticSmoothRel ::+                                          (MonadIO m) =>+                                            SVGPathElement ->+                                              Float ->+                                                Float ->+                                                  m (Maybe SVGPathSegCurvetoQuadraticSmoothRel)+createSVGPathSegCurvetoQuadraticSmoothRel self x y+  = liftIO+      (nullableToMaybe <$>+         (js_createSVGPathSegCurvetoQuadraticSmoothRel (self) x y))+ +foreign import javascript unsafe "$1[\"pathLength\"]"+        js_getPathLength ::+        SVGPathElement -> IO (Nullable SVGAnimatedNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.pathLength Mozilla SVGPathElement.pathLength documentation> +getPathLength ::+              (MonadIO m) => SVGPathElement -> m (Maybe SVGAnimatedNumber)+getPathLength self+  = liftIO (nullableToMaybe <$> (js_getPathLength (self)))+ +foreign import javascript unsafe "$1[\"pathSegList\"]"+        js_getPathSegList :: SVGPathElement -> IO (Nullable SVGPathSegList)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.pathSegList Mozilla SVGPathElement.pathSegList documentation> +getPathSegList ::+               (MonadIO m) => SVGPathElement -> m (Maybe SVGPathSegList)+getPathSegList self+  = liftIO (nullableToMaybe <$> (js_getPathSegList (self)))+ +foreign import javascript unsafe "$1[\"normalizedPathSegList\"]"+        js_getNormalizedPathSegList ::+        SVGPathElement -> IO (Nullable SVGPathSegList)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.normalizedPathSegList Mozilla SVGPathElement.normalizedPathSegList documentation> +getNormalizedPathSegList ::+                         (MonadIO m) => SVGPathElement -> m (Maybe SVGPathSegList)+getNormalizedPathSegList self+  = liftIO (nullableToMaybe <$> (js_getNormalizedPathSegList (self)))+ +foreign import javascript unsafe "$1[\"animatedPathSegList\"]"+        js_getAnimatedPathSegList ::+        SVGPathElement -> IO (Nullable SVGPathSegList)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.animatedPathSegList Mozilla SVGPathElement.animatedPathSegList documentation> +getAnimatedPathSegList ::+                       (MonadIO m) => SVGPathElement -> m (Maybe SVGPathSegList)+getAnimatedPathSegList self+  = liftIO (nullableToMaybe <$> (js_getAnimatedPathSegList (self)))+ +foreign import javascript unsafe+        "$1[\"animatedNormalizedPathSegList\"]"+        js_getAnimatedNormalizedPathSegList ::+        SVGPathElement -> IO (Nullable SVGPathSegList)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.animatedNormalizedPathSegList Mozilla SVGPathElement.animatedNormalizedPathSegList documentation> +getAnimatedNormalizedPathSegList ::+                                 (MonadIO m) => SVGPathElement -> m (Maybe SVGPathSegList)+getAnimatedNormalizedPathSegList self+  = liftIO+      (nullableToMaybe <$> (js_getAnimatedNormalizedPathSegList (self)))
+ src/GHCJS/DOM/JSFFI/Generated/SVGPathSeg.hs view
@@ -0,0 +1,74 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.SVGPathSeg+       (pattern PATHSEG_UNKNOWN, pattern PATHSEG_CLOSEPATH,+        pattern PATHSEG_MOVETO_ABS, pattern PATHSEG_MOVETO_REL,+        pattern PATHSEG_LINETO_ABS, pattern PATHSEG_LINETO_REL,+        pattern PATHSEG_CURVETO_CUBIC_ABS,+        pattern PATHSEG_CURVETO_CUBIC_REL,+        pattern PATHSEG_CURVETO_QUADRATIC_ABS,+        pattern PATHSEG_CURVETO_QUADRATIC_REL, pattern PATHSEG_ARC_ABS,+        pattern PATHSEG_ARC_REL, pattern PATHSEG_LINETO_HORIZONTAL_ABS,+        pattern PATHSEG_LINETO_HORIZONTAL_REL,+        pattern PATHSEG_LINETO_VERTICAL_ABS,+        pattern PATHSEG_LINETO_VERTICAL_REL,+        pattern PATHSEG_CURVETO_CUBIC_SMOOTH_ABS,+        pattern PATHSEG_CURVETO_CUBIC_SMOOTH_REL,+        pattern PATHSEG_CURVETO_QUADRATIC_SMOOTH_ABS,+        pattern PATHSEG_CURVETO_QUADRATIC_SMOOTH_REL, js_getPathSegType,+        getPathSegType, js_getPathSegTypeAsLetter, getPathSegTypeAsLetter,+        SVGPathSeg, castToSVGPathSeg, gTypeSVGPathSeg, IsSVGPathSeg,+        toSVGPathSeg)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+pattern PATHSEG_UNKNOWN = 0+pattern PATHSEG_CLOSEPATH = 1+pattern PATHSEG_MOVETO_ABS = 2+pattern PATHSEG_MOVETO_REL = 3+pattern PATHSEG_LINETO_ABS = 4+pattern PATHSEG_LINETO_REL = 5+pattern PATHSEG_CURVETO_CUBIC_ABS = 6+pattern PATHSEG_CURVETO_CUBIC_REL = 7+pattern PATHSEG_CURVETO_QUADRATIC_ABS = 8+pattern PATHSEG_CURVETO_QUADRATIC_REL = 9+pattern PATHSEG_ARC_ABS = 10+pattern PATHSEG_ARC_REL = 11+pattern PATHSEG_LINETO_HORIZONTAL_ABS = 12+pattern PATHSEG_LINETO_HORIZONTAL_REL = 13+pattern PATHSEG_LINETO_VERTICAL_ABS = 14+pattern PATHSEG_LINETO_VERTICAL_REL = 15+pattern PATHSEG_CURVETO_CUBIC_SMOOTH_ABS = 16+pattern PATHSEG_CURVETO_CUBIC_SMOOTH_REL = 17+pattern PATHSEG_CURVETO_QUADRATIC_SMOOTH_ABS = 18+pattern PATHSEG_CURVETO_QUADRATIC_SMOOTH_REL = 19+ +foreign import javascript unsafe "$1[\"pathSegType\"]"+        js_getPathSegType :: SVGPathSeg -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSeg.pathSegType Mozilla SVGPathSeg.pathSegType documentation> +getPathSegType :: (MonadIO m, IsSVGPathSeg self) => self -> m Word+getPathSegType self+  = liftIO (js_getPathSegType (toSVGPathSeg self))+ +foreign import javascript unsafe "$1[\"pathSegTypeAsLetter\"]"+        js_getPathSegTypeAsLetter :: SVGPathSeg -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSeg.pathSegTypeAsLetter Mozilla SVGPathSeg.pathSegTypeAsLetter documentation> +getPathSegTypeAsLetter ::+                       (MonadIO m, IsSVGPathSeg self, FromJSString result) =>+                         self -> m result+getPathSegTypeAsLetter self+  = liftIO+      (fromJSString <$> (js_getPathSegTypeAsLetter (toSVGPathSeg self)))
+ src/GHCJS/DOM/JSFFI/Generated/SVGPathSegArcAbs.hs view
@@ -0,0 +1,121 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.SVGPathSegArcAbs+       (js_setX, setX, js_getX, getX, js_setY, setY, js_getY, getY,+        js_setR1, setR1, js_getR1, getR1, js_setR2, setR2, js_getR2, getR2,+        js_setAngle, setAngle, js_getAngle, getAngle, js_setLargeArcFlag,+        setLargeArcFlag, js_getLargeArcFlag, getLargeArcFlag,+        js_setSweepFlag, setSweepFlag, js_getSweepFlag, getSweepFlag,+        SVGPathSegArcAbs, castToSVGPathSegArcAbs, gTypeSVGPathSegArcAbs)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"x\"] = $2;" js_setX ::+        SVGPathSegArcAbs -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcAbs.x Mozilla SVGPathSegArcAbs.x documentation> +setX :: (MonadIO m) => SVGPathSegArcAbs -> Float -> m ()+setX self val = liftIO (js_setX (self) val)+ +foreign import javascript unsafe "$1[\"x\"]" js_getX ::+        SVGPathSegArcAbs -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcAbs.x Mozilla SVGPathSegArcAbs.x documentation> +getX :: (MonadIO m) => SVGPathSegArcAbs -> m Float+getX self = liftIO (js_getX (self))+ +foreign import javascript unsafe "$1[\"y\"] = $2;" js_setY ::+        SVGPathSegArcAbs -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcAbs.y Mozilla SVGPathSegArcAbs.y documentation> +setY :: (MonadIO m) => SVGPathSegArcAbs -> Float -> m ()+setY self val = liftIO (js_setY (self) val)+ +foreign import javascript unsafe "$1[\"y\"]" js_getY ::+        SVGPathSegArcAbs -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcAbs.y Mozilla SVGPathSegArcAbs.y documentation> +getY :: (MonadIO m) => SVGPathSegArcAbs -> m Float+getY self = liftIO (js_getY (self))+ +foreign import javascript unsafe "$1[\"r1\"] = $2;" js_setR1 ::+        SVGPathSegArcAbs -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcAbs.r1 Mozilla SVGPathSegArcAbs.r1 documentation> +setR1 :: (MonadIO m) => SVGPathSegArcAbs -> Float -> m ()+setR1 self val = liftIO (js_setR1 (self) val)+ +foreign import javascript unsafe "$1[\"r1\"]" js_getR1 ::+        SVGPathSegArcAbs -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcAbs.r1 Mozilla SVGPathSegArcAbs.r1 documentation> +getR1 :: (MonadIO m) => SVGPathSegArcAbs -> m Float+getR1 self = liftIO (js_getR1 (self))+ +foreign import javascript unsafe "$1[\"r2\"] = $2;" js_setR2 ::+        SVGPathSegArcAbs -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcAbs.r2 Mozilla SVGPathSegArcAbs.r2 documentation> +setR2 :: (MonadIO m) => SVGPathSegArcAbs -> Float -> m ()+setR2 self val = liftIO (js_setR2 (self) val)+ +foreign import javascript unsafe "$1[\"r2\"]" js_getR2 ::+        SVGPathSegArcAbs -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcAbs.r2 Mozilla SVGPathSegArcAbs.r2 documentation> +getR2 :: (MonadIO m) => SVGPathSegArcAbs -> m Float+getR2 self = liftIO (js_getR2 (self))+ +foreign import javascript unsafe "$1[\"angle\"] = $2;" js_setAngle+        :: SVGPathSegArcAbs -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcAbs.angle Mozilla SVGPathSegArcAbs.angle documentation> +setAngle :: (MonadIO m) => SVGPathSegArcAbs -> Float -> m ()+setAngle self val = liftIO (js_setAngle (self) val)+ +foreign import javascript unsafe "$1[\"angle\"]" js_getAngle ::+        SVGPathSegArcAbs -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcAbs.angle Mozilla SVGPathSegArcAbs.angle documentation> +getAngle :: (MonadIO m) => SVGPathSegArcAbs -> m Float+getAngle self = liftIO (js_getAngle (self))+ +foreign import javascript unsafe "$1[\"largeArcFlag\"] = $2;"+        js_setLargeArcFlag :: SVGPathSegArcAbs -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcAbs.largeArcFlag Mozilla SVGPathSegArcAbs.largeArcFlag documentation> +setLargeArcFlag :: (MonadIO m) => SVGPathSegArcAbs -> Bool -> m ()+setLargeArcFlag self val = liftIO (js_setLargeArcFlag (self) val)+ +foreign import javascript unsafe "($1[\"largeArcFlag\"] ? 1 : 0)"+        js_getLargeArcFlag :: SVGPathSegArcAbs -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcAbs.largeArcFlag Mozilla SVGPathSegArcAbs.largeArcFlag documentation> +getLargeArcFlag :: (MonadIO m) => SVGPathSegArcAbs -> m Bool+getLargeArcFlag self = liftIO (js_getLargeArcFlag (self))+ +foreign import javascript unsafe "$1[\"sweepFlag\"] = $2;"+        js_setSweepFlag :: SVGPathSegArcAbs -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcAbs.sweepFlag Mozilla SVGPathSegArcAbs.sweepFlag documentation> +setSweepFlag :: (MonadIO m) => SVGPathSegArcAbs -> Bool -> m ()+setSweepFlag self val = liftIO (js_setSweepFlag (self) val)+ +foreign import javascript unsafe "($1[\"sweepFlag\"] ? 1 : 0)"+        js_getSweepFlag :: SVGPathSegArcAbs -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcAbs.sweepFlag Mozilla SVGPathSegArcAbs.sweepFlag documentation> +getSweepFlag :: (MonadIO m) => SVGPathSegArcAbs -> m Bool+getSweepFlag self = liftIO (js_getSweepFlag (self))
+ src/GHCJS/DOM/JSFFI/Generated/SVGPathSegArcRel.hs view
@@ -0,0 +1,121 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.SVGPathSegArcRel+       (js_setX, setX, js_getX, getX, js_setY, setY, js_getY, getY,+        js_setR1, setR1, js_getR1, getR1, js_setR2, setR2, js_getR2, getR2,+        js_setAngle, setAngle, js_getAngle, getAngle, js_setLargeArcFlag,+        setLargeArcFlag, js_getLargeArcFlag, getLargeArcFlag,+        js_setSweepFlag, setSweepFlag, js_getSweepFlag, getSweepFlag,+        SVGPathSegArcRel, castToSVGPathSegArcRel, gTypeSVGPathSegArcRel)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"x\"] = $2;" js_setX ::+        SVGPathSegArcRel -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcRel.x Mozilla SVGPathSegArcRel.x documentation> +setX :: (MonadIO m) => SVGPathSegArcRel -> Float -> m ()+setX self val = liftIO (js_setX (self) val)+ +foreign import javascript unsafe "$1[\"x\"]" js_getX ::+        SVGPathSegArcRel -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcRel.x Mozilla SVGPathSegArcRel.x documentation> +getX :: (MonadIO m) => SVGPathSegArcRel -> m Float+getX self = liftIO (js_getX (self))+ +foreign import javascript unsafe "$1[\"y\"] = $2;" js_setY ::+        SVGPathSegArcRel -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcRel.y Mozilla SVGPathSegArcRel.y documentation> +setY :: (MonadIO m) => SVGPathSegArcRel -> Float -> m ()+setY self val = liftIO (js_setY (self) val)+ +foreign import javascript unsafe "$1[\"y\"]" js_getY ::+        SVGPathSegArcRel -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcRel.y Mozilla SVGPathSegArcRel.y documentation> +getY :: (MonadIO m) => SVGPathSegArcRel -> m Float+getY self = liftIO (js_getY (self))+ +foreign import javascript unsafe "$1[\"r1\"] = $2;" js_setR1 ::+        SVGPathSegArcRel -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcRel.r1 Mozilla SVGPathSegArcRel.r1 documentation> +setR1 :: (MonadIO m) => SVGPathSegArcRel -> Float -> m ()+setR1 self val = liftIO (js_setR1 (self) val)+ +foreign import javascript unsafe "$1[\"r1\"]" js_getR1 ::+        SVGPathSegArcRel -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcRel.r1 Mozilla SVGPathSegArcRel.r1 documentation> +getR1 :: (MonadIO m) => SVGPathSegArcRel -> m Float+getR1 self = liftIO (js_getR1 (self))+ +foreign import javascript unsafe "$1[\"r2\"] = $2;" js_setR2 ::+        SVGPathSegArcRel -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcRel.r2 Mozilla SVGPathSegArcRel.r2 documentation> +setR2 :: (MonadIO m) => SVGPathSegArcRel -> Float -> m ()+setR2 self val = liftIO (js_setR2 (self) val)+ +foreign import javascript unsafe "$1[\"r2\"]" js_getR2 ::+        SVGPathSegArcRel -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcRel.r2 Mozilla SVGPathSegArcRel.r2 documentation> +getR2 :: (MonadIO m) => SVGPathSegArcRel -> m Float+getR2 self = liftIO (js_getR2 (self))+ +foreign import javascript unsafe "$1[\"angle\"] = $2;" js_setAngle+        :: SVGPathSegArcRel -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcRel.angle Mozilla SVGPathSegArcRel.angle documentation> +setAngle :: (MonadIO m) => SVGPathSegArcRel -> Float -> m ()+setAngle self val = liftIO (js_setAngle (self) val)+ +foreign import javascript unsafe "$1[\"angle\"]" js_getAngle ::+        SVGPathSegArcRel -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcRel.angle Mozilla SVGPathSegArcRel.angle documentation> +getAngle :: (MonadIO m) => SVGPathSegArcRel -> m Float+getAngle self = liftIO (js_getAngle (self))+ +foreign import javascript unsafe "$1[\"largeArcFlag\"] = $2;"+        js_setLargeArcFlag :: SVGPathSegArcRel -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcRel.largeArcFlag Mozilla SVGPathSegArcRel.largeArcFlag documentation> +setLargeArcFlag :: (MonadIO m) => SVGPathSegArcRel -> Bool -> m ()+setLargeArcFlag self val = liftIO (js_setLargeArcFlag (self) val)+ +foreign import javascript unsafe "($1[\"largeArcFlag\"] ? 1 : 0)"+        js_getLargeArcFlag :: SVGPathSegArcRel -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcRel.largeArcFlag Mozilla SVGPathSegArcRel.largeArcFlag documentation> +getLargeArcFlag :: (MonadIO m) => SVGPathSegArcRel -> m Bool+getLargeArcFlag self = liftIO (js_getLargeArcFlag (self))+ +foreign import javascript unsafe "$1[\"sweepFlag\"] = $2;"+        js_setSweepFlag :: SVGPathSegArcRel -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcRel.sweepFlag Mozilla SVGPathSegArcRel.sweepFlag documentation> +setSweepFlag :: (MonadIO m) => SVGPathSegArcRel -> Bool -> m ()+setSweepFlag self val = liftIO (js_setSweepFlag (self) val)+ +foreign import javascript unsafe "($1[\"sweepFlag\"] ? 1 : 0)"+        js_getSweepFlag :: SVGPathSegArcRel -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcRel.sweepFlag Mozilla SVGPathSegArcRel.sweepFlag documentation> +getSweepFlag :: (MonadIO m) => SVGPathSegArcRel -> m Bool+getSweepFlag self = liftIO (js_getSweepFlag (self))
+ src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoCubicAbs.hs view
@@ -0,0 +1,106 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.SVGPathSegCurvetoCubicAbs+       (js_setX, setX, js_getX, getX, js_setY, setY, js_getY, getY,+        js_setX1, setX1, js_getX1, getX1, js_setY1, setY1, js_getY1, getY1,+        js_setX2, setX2, js_getX2, getX2, js_setY2, setY2, js_getY2, getY2,+        SVGPathSegCurvetoCubicAbs, castToSVGPathSegCurvetoCubicAbs,+        gTypeSVGPathSegCurvetoCubicAbs)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"x\"] = $2;" js_setX ::+        SVGPathSegCurvetoCubicAbs -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicAbs.x Mozilla SVGPathSegCurvetoCubicAbs.x documentation> +setX :: (MonadIO m) => SVGPathSegCurvetoCubicAbs -> Float -> m ()+setX self val = liftIO (js_setX (self) val)+ +foreign import javascript unsafe "$1[\"x\"]" js_getX ::+        SVGPathSegCurvetoCubicAbs -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicAbs.x Mozilla SVGPathSegCurvetoCubicAbs.x documentation> +getX :: (MonadIO m) => SVGPathSegCurvetoCubicAbs -> m Float+getX self = liftIO (js_getX (self))+ +foreign import javascript unsafe "$1[\"y\"] = $2;" js_setY ::+        SVGPathSegCurvetoCubicAbs -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicAbs.y Mozilla SVGPathSegCurvetoCubicAbs.y documentation> +setY :: (MonadIO m) => SVGPathSegCurvetoCubicAbs -> Float -> m ()+setY self val = liftIO (js_setY (self) val)+ +foreign import javascript unsafe "$1[\"y\"]" js_getY ::+        SVGPathSegCurvetoCubicAbs -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicAbs.y Mozilla SVGPathSegCurvetoCubicAbs.y documentation> +getY :: (MonadIO m) => SVGPathSegCurvetoCubicAbs -> m Float+getY self = liftIO (js_getY (self))+ +foreign import javascript unsafe "$1[\"x1\"] = $2;" js_setX1 ::+        SVGPathSegCurvetoCubicAbs -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicAbs.x1 Mozilla SVGPathSegCurvetoCubicAbs.x1 documentation> +setX1 :: (MonadIO m) => SVGPathSegCurvetoCubicAbs -> Float -> m ()+setX1 self val = liftIO (js_setX1 (self) val)+ +foreign import javascript unsafe "$1[\"x1\"]" js_getX1 ::+        SVGPathSegCurvetoCubicAbs -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicAbs.x1 Mozilla SVGPathSegCurvetoCubicAbs.x1 documentation> +getX1 :: (MonadIO m) => SVGPathSegCurvetoCubicAbs -> m Float+getX1 self = liftIO (js_getX1 (self))+ +foreign import javascript unsafe "$1[\"y1\"] = $2;" js_setY1 ::+        SVGPathSegCurvetoCubicAbs -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicAbs.y1 Mozilla SVGPathSegCurvetoCubicAbs.y1 documentation> +setY1 :: (MonadIO m) => SVGPathSegCurvetoCubicAbs -> Float -> m ()+setY1 self val = liftIO (js_setY1 (self) val)+ +foreign import javascript unsafe "$1[\"y1\"]" js_getY1 ::+        SVGPathSegCurvetoCubicAbs -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicAbs.y1 Mozilla SVGPathSegCurvetoCubicAbs.y1 documentation> +getY1 :: (MonadIO m) => SVGPathSegCurvetoCubicAbs -> m Float+getY1 self = liftIO (js_getY1 (self))+ +foreign import javascript unsafe "$1[\"x2\"] = $2;" js_setX2 ::+        SVGPathSegCurvetoCubicAbs -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicAbs.x2 Mozilla SVGPathSegCurvetoCubicAbs.x2 documentation> +setX2 :: (MonadIO m) => SVGPathSegCurvetoCubicAbs -> Float -> m ()+setX2 self val = liftIO (js_setX2 (self) val)+ +foreign import javascript unsafe "$1[\"x2\"]" js_getX2 ::+        SVGPathSegCurvetoCubicAbs -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicAbs.x2 Mozilla SVGPathSegCurvetoCubicAbs.x2 documentation> +getX2 :: (MonadIO m) => SVGPathSegCurvetoCubicAbs -> m Float+getX2 self = liftIO (js_getX2 (self))+ +foreign import javascript unsafe "$1[\"y2\"] = $2;" js_setY2 ::+        SVGPathSegCurvetoCubicAbs -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicAbs.y2 Mozilla SVGPathSegCurvetoCubicAbs.y2 documentation> +setY2 :: (MonadIO m) => SVGPathSegCurvetoCubicAbs -> Float -> m ()+setY2 self val = liftIO (js_setY2 (self) val)+ +foreign import javascript unsafe "$1[\"y2\"]" js_getY2 ::+        SVGPathSegCurvetoCubicAbs -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicAbs.y2 Mozilla SVGPathSegCurvetoCubicAbs.y2 documentation> +getY2 :: (MonadIO m) => SVGPathSegCurvetoCubicAbs -> m Float+getY2 self = liftIO (js_getY2 (self))
+ src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoCubicRel.hs view
@@ -0,0 +1,106 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.SVGPathSegCurvetoCubicRel+       (js_setX, setX, js_getX, getX, js_setY, setY, js_getY, getY,+        js_setX1, setX1, js_getX1, getX1, js_setY1, setY1, js_getY1, getY1,+        js_setX2, setX2, js_getX2, getX2, js_setY2, setY2, js_getY2, getY2,+        SVGPathSegCurvetoCubicRel, castToSVGPathSegCurvetoCubicRel,+        gTypeSVGPathSegCurvetoCubicRel)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"x\"] = $2;" js_setX ::+        SVGPathSegCurvetoCubicRel -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicRel.x Mozilla SVGPathSegCurvetoCubicRel.x documentation> +setX :: (MonadIO m) => SVGPathSegCurvetoCubicRel -> Float -> m ()+setX self val = liftIO (js_setX (self) val)+ +foreign import javascript unsafe "$1[\"x\"]" js_getX ::+        SVGPathSegCurvetoCubicRel -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicRel.x Mozilla SVGPathSegCurvetoCubicRel.x documentation> +getX :: (MonadIO m) => SVGPathSegCurvetoCubicRel -> m Float+getX self = liftIO (js_getX (self))+ +foreign import javascript unsafe "$1[\"y\"] = $2;" js_setY ::+        SVGPathSegCurvetoCubicRel -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicRel.y Mozilla SVGPathSegCurvetoCubicRel.y documentation> +setY :: (MonadIO m) => SVGPathSegCurvetoCubicRel -> Float -> m ()+setY self val = liftIO (js_setY (self) val)+ +foreign import javascript unsafe "$1[\"y\"]" js_getY ::+        SVGPathSegCurvetoCubicRel -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicRel.y Mozilla SVGPathSegCurvetoCubicRel.y documentation> +getY :: (MonadIO m) => SVGPathSegCurvetoCubicRel -> m Float+getY self = liftIO (js_getY (self))+ +foreign import javascript unsafe "$1[\"x1\"] = $2;" js_setX1 ::+        SVGPathSegCurvetoCubicRel -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicRel.x1 Mozilla SVGPathSegCurvetoCubicRel.x1 documentation> +setX1 :: (MonadIO m) => SVGPathSegCurvetoCubicRel -> Float -> m ()+setX1 self val = liftIO (js_setX1 (self) val)+ +foreign import javascript unsafe "$1[\"x1\"]" js_getX1 ::+        SVGPathSegCurvetoCubicRel -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicRel.x1 Mozilla SVGPathSegCurvetoCubicRel.x1 documentation> +getX1 :: (MonadIO m) => SVGPathSegCurvetoCubicRel -> m Float+getX1 self = liftIO (js_getX1 (self))+ +foreign import javascript unsafe "$1[\"y1\"] = $2;" js_setY1 ::+        SVGPathSegCurvetoCubicRel -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicRel.y1 Mozilla SVGPathSegCurvetoCubicRel.y1 documentation> +setY1 :: (MonadIO m) => SVGPathSegCurvetoCubicRel -> Float -> m ()+setY1 self val = liftIO (js_setY1 (self) val)+ +foreign import javascript unsafe "$1[\"y1\"]" js_getY1 ::+        SVGPathSegCurvetoCubicRel -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicRel.y1 Mozilla SVGPathSegCurvetoCubicRel.y1 documentation> +getY1 :: (MonadIO m) => SVGPathSegCurvetoCubicRel -> m Float+getY1 self = liftIO (js_getY1 (self))+ +foreign import javascript unsafe "$1[\"x2\"] = $2;" js_setX2 ::+        SVGPathSegCurvetoCubicRel -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicRel.x2 Mozilla SVGPathSegCurvetoCubicRel.x2 documentation> +setX2 :: (MonadIO m) => SVGPathSegCurvetoCubicRel -> Float -> m ()+setX2 self val = liftIO (js_setX2 (self) val)+ +foreign import javascript unsafe "$1[\"x2\"]" js_getX2 ::+        SVGPathSegCurvetoCubicRel -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicRel.x2 Mozilla SVGPathSegCurvetoCubicRel.x2 documentation> +getX2 :: (MonadIO m) => SVGPathSegCurvetoCubicRel -> m Float+getX2 self = liftIO (js_getX2 (self))+ +foreign import javascript unsafe "$1[\"y2\"] = $2;" js_setY2 ::+        SVGPathSegCurvetoCubicRel -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicRel.y2 Mozilla SVGPathSegCurvetoCubicRel.y2 documentation> +setY2 :: (MonadIO m) => SVGPathSegCurvetoCubicRel -> Float -> m ()+setY2 self val = liftIO (js_setY2 (self) val)+ +foreign import javascript unsafe "$1[\"y2\"]" js_getY2 ::+        SVGPathSegCurvetoCubicRel -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicRel.y2 Mozilla SVGPathSegCurvetoCubicRel.y2 documentation> +getY2 :: (MonadIO m) => SVGPathSegCurvetoCubicRel -> m Float+getY2 self = liftIO (js_getY2 (self))
+ src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoCubicSmoothAbs.hs view
@@ -0,0 +1,82 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.SVGPathSegCurvetoCubicSmoothAbs+       (js_setX, setX, js_getX, getX, js_setY, setY, js_getY, getY,+        js_setX2, setX2, js_getX2, getX2, js_setY2, setY2, js_getY2, getY2,+        SVGPathSegCurvetoCubicSmoothAbs,+        castToSVGPathSegCurvetoCubicSmoothAbs,+        gTypeSVGPathSegCurvetoCubicSmoothAbs)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"x\"] = $2;" js_setX ::+        SVGPathSegCurvetoCubicSmoothAbs -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicSmoothAbs.x Mozilla SVGPathSegCurvetoCubicSmoothAbs.x documentation> +setX ::+     (MonadIO m) => SVGPathSegCurvetoCubicSmoothAbs -> Float -> m ()+setX self val = liftIO (js_setX (self) val)+ +foreign import javascript unsafe "$1[\"x\"]" js_getX ::+        SVGPathSegCurvetoCubicSmoothAbs -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicSmoothAbs.x Mozilla SVGPathSegCurvetoCubicSmoothAbs.x documentation> +getX :: (MonadIO m) => SVGPathSegCurvetoCubicSmoothAbs -> m Float+getX self = liftIO (js_getX (self))+ +foreign import javascript unsafe "$1[\"y\"] = $2;" js_setY ::+        SVGPathSegCurvetoCubicSmoothAbs -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicSmoothAbs.y Mozilla SVGPathSegCurvetoCubicSmoothAbs.y documentation> +setY ::+     (MonadIO m) => SVGPathSegCurvetoCubicSmoothAbs -> Float -> m ()+setY self val = liftIO (js_setY (self) val)+ +foreign import javascript unsafe "$1[\"y\"]" js_getY ::+        SVGPathSegCurvetoCubicSmoothAbs -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicSmoothAbs.y Mozilla SVGPathSegCurvetoCubicSmoothAbs.y documentation> +getY :: (MonadIO m) => SVGPathSegCurvetoCubicSmoothAbs -> m Float+getY self = liftIO (js_getY (self))+ +foreign import javascript unsafe "$1[\"x2\"] = $2;" js_setX2 ::+        SVGPathSegCurvetoCubicSmoothAbs -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicSmoothAbs.x2 Mozilla SVGPathSegCurvetoCubicSmoothAbs.x2 documentation> +setX2 ::+      (MonadIO m) => SVGPathSegCurvetoCubicSmoothAbs -> Float -> m ()+setX2 self val = liftIO (js_setX2 (self) val)+ +foreign import javascript unsafe "$1[\"x2\"]" js_getX2 ::+        SVGPathSegCurvetoCubicSmoothAbs -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicSmoothAbs.x2 Mozilla SVGPathSegCurvetoCubicSmoothAbs.x2 documentation> +getX2 :: (MonadIO m) => SVGPathSegCurvetoCubicSmoothAbs -> m Float+getX2 self = liftIO (js_getX2 (self))+ +foreign import javascript unsafe "$1[\"y2\"] = $2;" js_setY2 ::+        SVGPathSegCurvetoCubicSmoothAbs -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicSmoothAbs.y2 Mozilla SVGPathSegCurvetoCubicSmoothAbs.y2 documentation> +setY2 ::+      (MonadIO m) => SVGPathSegCurvetoCubicSmoothAbs -> Float -> m ()+setY2 self val = liftIO (js_setY2 (self) val)+ +foreign import javascript unsafe "$1[\"y2\"]" js_getY2 ::+        SVGPathSegCurvetoCubicSmoothAbs -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicSmoothAbs.y2 Mozilla SVGPathSegCurvetoCubicSmoothAbs.y2 documentation> +getY2 :: (MonadIO m) => SVGPathSegCurvetoCubicSmoothAbs -> m Float+getY2 self = liftIO (js_getY2 (self))
+ src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoCubicSmoothRel.hs view
@@ -0,0 +1,82 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.SVGPathSegCurvetoCubicSmoothRel+       (js_setX, setX, js_getX, getX, js_setY, setY, js_getY, getY,+        js_setX2, setX2, js_getX2, getX2, js_setY2, setY2, js_getY2, getY2,+        SVGPathSegCurvetoCubicSmoothRel,+        castToSVGPathSegCurvetoCubicSmoothRel,+        gTypeSVGPathSegCurvetoCubicSmoothRel)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"x\"] = $2;" js_setX ::+        SVGPathSegCurvetoCubicSmoothRel -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicSmoothRel.x Mozilla SVGPathSegCurvetoCubicSmoothRel.x documentation> +setX ::+     (MonadIO m) => SVGPathSegCurvetoCubicSmoothRel -> Float -> m ()+setX self val = liftIO (js_setX (self) val)+ +foreign import javascript unsafe "$1[\"x\"]" js_getX ::+        SVGPathSegCurvetoCubicSmoothRel -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicSmoothRel.x Mozilla SVGPathSegCurvetoCubicSmoothRel.x documentation> +getX :: (MonadIO m) => SVGPathSegCurvetoCubicSmoothRel -> m Float+getX self = liftIO (js_getX (self))+ +foreign import javascript unsafe "$1[\"y\"] = $2;" js_setY ::+        SVGPathSegCurvetoCubicSmoothRel -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicSmoothRel.y Mozilla SVGPathSegCurvetoCubicSmoothRel.y documentation> +setY ::+     (MonadIO m) => SVGPathSegCurvetoCubicSmoothRel -> Float -> m ()+setY self val = liftIO (js_setY (self) val)+ +foreign import javascript unsafe "$1[\"y\"]" js_getY ::+        SVGPathSegCurvetoCubicSmoothRel -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicSmoothRel.y Mozilla SVGPathSegCurvetoCubicSmoothRel.y documentation> +getY :: (MonadIO m) => SVGPathSegCurvetoCubicSmoothRel -> m Float+getY self = liftIO (js_getY (self))+ +foreign import javascript unsafe "$1[\"x2\"] = $2;" js_setX2 ::+        SVGPathSegCurvetoCubicSmoothRel -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicSmoothRel.x2 Mozilla SVGPathSegCurvetoCubicSmoothRel.x2 documentation> +setX2 ::+      (MonadIO m) => SVGPathSegCurvetoCubicSmoothRel -> Float -> m ()+setX2 self val = liftIO (js_setX2 (self) val)+ +foreign import javascript unsafe "$1[\"x2\"]" js_getX2 ::+        SVGPathSegCurvetoCubicSmoothRel -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicSmoothRel.x2 Mozilla SVGPathSegCurvetoCubicSmoothRel.x2 documentation> +getX2 :: (MonadIO m) => SVGPathSegCurvetoCubicSmoothRel -> m Float+getX2 self = liftIO (js_getX2 (self))+ +foreign import javascript unsafe "$1[\"y2\"] = $2;" js_setY2 ::+        SVGPathSegCurvetoCubicSmoothRel -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicSmoothRel.y2 Mozilla SVGPathSegCurvetoCubicSmoothRel.y2 documentation> +setY2 ::+      (MonadIO m) => SVGPathSegCurvetoCubicSmoothRel -> Float -> m ()+setY2 self val = liftIO (js_setY2 (self) val)+ +foreign import javascript unsafe "$1[\"y2\"]" js_getY2 ::+        SVGPathSegCurvetoCubicSmoothRel -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicSmoothRel.y2 Mozilla SVGPathSegCurvetoCubicSmoothRel.y2 documentation> +getY2 :: (MonadIO m) => SVGPathSegCurvetoCubicSmoothRel -> m Float+getY2 self = liftIO (js_getY2 (self))
+ src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoQuadraticAbs.hs view
@@ -0,0 +1,81 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.SVGPathSegCurvetoQuadraticAbs+       (js_setX, setX, js_getX, getX, js_setY, setY, js_getY, getY,+        js_setX1, setX1, js_getX1, getX1, js_setY1, setY1, js_getY1, getY1,+        SVGPathSegCurvetoQuadraticAbs, castToSVGPathSegCurvetoQuadraticAbs,+        gTypeSVGPathSegCurvetoQuadraticAbs)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"x\"] = $2;" js_setX ::+        SVGPathSegCurvetoQuadraticAbs -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticAbs.x Mozilla SVGPathSegCurvetoQuadraticAbs.x documentation> +setX ::+     (MonadIO m) => SVGPathSegCurvetoQuadraticAbs -> Float -> m ()+setX self val = liftIO (js_setX (self) val)+ +foreign import javascript unsafe "$1[\"x\"]" js_getX ::+        SVGPathSegCurvetoQuadraticAbs -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticAbs.x Mozilla SVGPathSegCurvetoQuadraticAbs.x documentation> +getX :: (MonadIO m) => SVGPathSegCurvetoQuadraticAbs -> m Float+getX self = liftIO (js_getX (self))+ +foreign import javascript unsafe "$1[\"y\"] = $2;" js_setY ::+        SVGPathSegCurvetoQuadraticAbs -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticAbs.y Mozilla SVGPathSegCurvetoQuadraticAbs.y documentation> +setY ::+     (MonadIO m) => SVGPathSegCurvetoQuadraticAbs -> Float -> m ()+setY self val = liftIO (js_setY (self) val)+ +foreign import javascript unsafe "$1[\"y\"]" js_getY ::+        SVGPathSegCurvetoQuadraticAbs -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticAbs.y Mozilla SVGPathSegCurvetoQuadraticAbs.y documentation> +getY :: (MonadIO m) => SVGPathSegCurvetoQuadraticAbs -> m Float+getY self = liftIO (js_getY (self))+ +foreign import javascript unsafe "$1[\"x1\"] = $2;" js_setX1 ::+        SVGPathSegCurvetoQuadraticAbs -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticAbs.x1 Mozilla SVGPathSegCurvetoQuadraticAbs.x1 documentation> +setX1 ::+      (MonadIO m) => SVGPathSegCurvetoQuadraticAbs -> Float -> m ()+setX1 self val = liftIO (js_setX1 (self) val)+ +foreign import javascript unsafe "$1[\"x1\"]" js_getX1 ::+        SVGPathSegCurvetoQuadraticAbs -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticAbs.x1 Mozilla SVGPathSegCurvetoQuadraticAbs.x1 documentation> +getX1 :: (MonadIO m) => SVGPathSegCurvetoQuadraticAbs -> m Float+getX1 self = liftIO (js_getX1 (self))+ +foreign import javascript unsafe "$1[\"y1\"] = $2;" js_setY1 ::+        SVGPathSegCurvetoQuadraticAbs -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticAbs.y1 Mozilla SVGPathSegCurvetoQuadraticAbs.y1 documentation> +setY1 ::+      (MonadIO m) => SVGPathSegCurvetoQuadraticAbs -> Float -> m ()+setY1 self val = liftIO (js_setY1 (self) val)+ +foreign import javascript unsafe "$1[\"y1\"]" js_getY1 ::+        SVGPathSegCurvetoQuadraticAbs -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticAbs.y1 Mozilla SVGPathSegCurvetoQuadraticAbs.y1 documentation> +getY1 :: (MonadIO m) => SVGPathSegCurvetoQuadraticAbs -> m Float+getY1 self = liftIO (js_getY1 (self))
+ src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoQuadraticRel.hs view
@@ -0,0 +1,81 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.SVGPathSegCurvetoQuadraticRel+       (js_setX, setX, js_getX, getX, js_setY, setY, js_getY, getY,+        js_setX1, setX1, js_getX1, getX1, js_setY1, setY1, js_getY1, getY1,+        SVGPathSegCurvetoQuadraticRel, castToSVGPathSegCurvetoQuadraticRel,+        gTypeSVGPathSegCurvetoQuadraticRel)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"x\"] = $2;" js_setX ::+        SVGPathSegCurvetoQuadraticRel -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticRel.x Mozilla SVGPathSegCurvetoQuadraticRel.x documentation> +setX ::+     (MonadIO m) => SVGPathSegCurvetoQuadraticRel -> Float -> m ()+setX self val = liftIO (js_setX (self) val)+ +foreign import javascript unsafe "$1[\"x\"]" js_getX ::+        SVGPathSegCurvetoQuadraticRel -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticRel.x Mozilla SVGPathSegCurvetoQuadraticRel.x documentation> +getX :: (MonadIO m) => SVGPathSegCurvetoQuadraticRel -> m Float+getX self = liftIO (js_getX (self))+ +foreign import javascript unsafe "$1[\"y\"] = $2;" js_setY ::+        SVGPathSegCurvetoQuadraticRel -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticRel.y Mozilla SVGPathSegCurvetoQuadraticRel.y documentation> +setY ::+     (MonadIO m) => SVGPathSegCurvetoQuadraticRel -> Float -> m ()+setY self val = liftIO (js_setY (self) val)+ +foreign import javascript unsafe "$1[\"y\"]" js_getY ::+        SVGPathSegCurvetoQuadraticRel -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticRel.y Mozilla SVGPathSegCurvetoQuadraticRel.y documentation> +getY :: (MonadIO m) => SVGPathSegCurvetoQuadraticRel -> m Float+getY self = liftIO (js_getY (self))+ +foreign import javascript unsafe "$1[\"x1\"] = $2;" js_setX1 ::+        SVGPathSegCurvetoQuadraticRel -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticRel.x1 Mozilla SVGPathSegCurvetoQuadraticRel.x1 documentation> +setX1 ::+      (MonadIO m) => SVGPathSegCurvetoQuadraticRel -> Float -> m ()+setX1 self val = liftIO (js_setX1 (self) val)+ +foreign import javascript unsafe "$1[\"x1\"]" js_getX1 ::+        SVGPathSegCurvetoQuadraticRel -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticRel.x1 Mozilla SVGPathSegCurvetoQuadraticRel.x1 documentation> +getX1 :: (MonadIO m) => SVGPathSegCurvetoQuadraticRel -> m Float+getX1 self = liftIO (js_getX1 (self))+ +foreign import javascript unsafe "$1[\"y1\"] = $2;" js_setY1 ::+        SVGPathSegCurvetoQuadraticRel -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticRel.y1 Mozilla SVGPathSegCurvetoQuadraticRel.y1 documentation> +setY1 ::+      (MonadIO m) => SVGPathSegCurvetoQuadraticRel -> Float -> m ()+setY1 self val = liftIO (js_setY1 (self) val)+ +foreign import javascript unsafe "$1[\"y1\"]" js_getY1 ::+        SVGPathSegCurvetoQuadraticRel -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticRel.y1 Mozilla SVGPathSegCurvetoQuadraticRel.y1 documentation> +getY1 :: (MonadIO m) => SVGPathSegCurvetoQuadraticRel -> m Float+getY1 self = liftIO (js_getY1 (self))
+ src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoQuadraticSmoothAbs.hs view
@@ -0,0 +1,53 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.SVGPathSegCurvetoQuadraticSmoothAbs+       (js_setX, setX, js_getX, getX, js_setY, setY, js_getY, getY,+        SVGPathSegCurvetoQuadraticSmoothAbs,+        castToSVGPathSegCurvetoQuadraticSmoothAbs,+        gTypeSVGPathSegCurvetoQuadraticSmoothAbs)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"x\"] = $2;" js_setX ::+        SVGPathSegCurvetoQuadraticSmoothAbs -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticSmoothAbs.x Mozilla SVGPathSegCurvetoQuadraticSmoothAbs.x documentation> +setX ::+     (MonadIO m) => SVGPathSegCurvetoQuadraticSmoothAbs -> Float -> m ()+setX self val = liftIO (js_setX (self) val)+ +foreign import javascript unsafe "$1[\"x\"]" js_getX ::+        SVGPathSegCurvetoQuadraticSmoothAbs -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticSmoothAbs.x Mozilla SVGPathSegCurvetoQuadraticSmoothAbs.x documentation> +getX ::+     (MonadIO m) => SVGPathSegCurvetoQuadraticSmoothAbs -> m Float+getX self = liftIO (js_getX (self))+ +foreign import javascript unsafe "$1[\"y\"] = $2;" js_setY ::+        SVGPathSegCurvetoQuadraticSmoothAbs -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticSmoothAbs.y Mozilla SVGPathSegCurvetoQuadraticSmoothAbs.y documentation> +setY ::+     (MonadIO m) => SVGPathSegCurvetoQuadraticSmoothAbs -> Float -> m ()+setY self val = liftIO (js_setY (self) val)+ +foreign import javascript unsafe "$1[\"y\"]" js_getY ::+        SVGPathSegCurvetoQuadraticSmoothAbs -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticSmoothAbs.y Mozilla SVGPathSegCurvetoQuadraticSmoothAbs.y documentation> +getY ::+     (MonadIO m) => SVGPathSegCurvetoQuadraticSmoothAbs -> m Float+getY self = liftIO (js_getY (self))
+ src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoQuadraticSmoothRel.hs view
@@ -0,0 +1,53 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.SVGPathSegCurvetoQuadraticSmoothRel+       (js_setX, setX, js_getX, getX, js_setY, setY, js_getY, getY,+        SVGPathSegCurvetoQuadraticSmoothRel,+        castToSVGPathSegCurvetoQuadraticSmoothRel,+        gTypeSVGPathSegCurvetoQuadraticSmoothRel)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"x\"] = $2;" js_setX ::+        SVGPathSegCurvetoQuadraticSmoothRel -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticSmoothRel.x Mozilla SVGPathSegCurvetoQuadraticSmoothRel.x documentation> +setX ::+     (MonadIO m) => SVGPathSegCurvetoQuadraticSmoothRel -> Float -> m ()+setX self val = liftIO (js_setX (self) val)+ +foreign import javascript unsafe "$1[\"x\"]" js_getX ::+        SVGPathSegCurvetoQuadraticSmoothRel -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticSmoothRel.x Mozilla SVGPathSegCurvetoQuadraticSmoothRel.x documentation> +getX ::+     (MonadIO m) => SVGPathSegCurvetoQuadraticSmoothRel -> m Float+getX self = liftIO (js_getX (self))+ +foreign import javascript unsafe "$1[\"y\"] = $2;" js_setY ::+        SVGPathSegCurvetoQuadraticSmoothRel -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticSmoothRel.y Mozilla SVGPathSegCurvetoQuadraticSmoothRel.y documentation> +setY ::+     (MonadIO m) => SVGPathSegCurvetoQuadraticSmoothRel -> Float -> m ()+setY self val = liftIO (js_setY (self) val)+ +foreign import javascript unsafe "$1[\"y\"]" js_getY ::+        SVGPathSegCurvetoQuadraticSmoothRel -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticSmoothRel.y Mozilla SVGPathSegCurvetoQuadraticSmoothRel.y documentation> +getY ::+     (MonadIO m) => SVGPathSegCurvetoQuadraticSmoothRel -> m Float+getY self = liftIO (js_getY (self))
+ src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoAbs.hs view
@@ -0,0 +1,48 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.SVGPathSegLinetoAbs+       (js_setX, setX, js_getX, getX, js_setY, setY, js_getY, getY,+        SVGPathSegLinetoAbs, castToSVGPathSegLinetoAbs,+        gTypeSVGPathSegLinetoAbs)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"x\"] = $2;" js_setX ::+        SVGPathSegLinetoAbs -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegLinetoAbs.x Mozilla SVGPathSegLinetoAbs.x documentation> +setX :: (MonadIO m) => SVGPathSegLinetoAbs -> Float -> m ()+setX self val = liftIO (js_setX (self) val)+ +foreign import javascript unsafe "$1[\"x\"]" js_getX ::+        SVGPathSegLinetoAbs -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegLinetoAbs.x Mozilla SVGPathSegLinetoAbs.x documentation> +getX :: (MonadIO m) => SVGPathSegLinetoAbs -> m Float+getX self = liftIO (js_getX (self))+ +foreign import javascript unsafe "$1[\"y\"] = $2;" js_setY ::+        SVGPathSegLinetoAbs -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegLinetoAbs.y Mozilla SVGPathSegLinetoAbs.y documentation> +setY :: (MonadIO m) => SVGPathSegLinetoAbs -> Float -> m ()+setY self val = liftIO (js_setY (self) val)+ +foreign import javascript unsafe "$1[\"y\"]" js_getY ::+        SVGPathSegLinetoAbs -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegLinetoAbs.y Mozilla SVGPathSegLinetoAbs.y documentation> +getY :: (MonadIO m) => SVGPathSegLinetoAbs -> m Float+getY self = liftIO (js_getY (self))
+ src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoHorizontalAbs.hs view
@@ -0,0 +1,35 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.SVGPathSegLinetoHorizontalAbs+       (js_setX, setX, js_getX, getX, SVGPathSegLinetoHorizontalAbs,+        castToSVGPathSegLinetoHorizontalAbs,+        gTypeSVGPathSegLinetoHorizontalAbs)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"x\"] = $2;" js_setX ::+        SVGPathSegLinetoHorizontalAbs -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegLinetoHorizontalAbs.x Mozilla SVGPathSegLinetoHorizontalAbs.x documentation> +setX ::+     (MonadIO m) => SVGPathSegLinetoHorizontalAbs -> Float -> m ()+setX self val = liftIO (js_setX (self) val)+ +foreign import javascript unsafe "$1[\"x\"]" js_getX ::+        SVGPathSegLinetoHorizontalAbs -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegLinetoHorizontalAbs.x Mozilla SVGPathSegLinetoHorizontalAbs.x documentation> +getX :: (MonadIO m) => SVGPathSegLinetoHorizontalAbs -> m Float+getX self = liftIO (js_getX (self))
+ src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoHorizontalRel.hs view
@@ -0,0 +1,35 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.SVGPathSegLinetoHorizontalRel+       (js_setX, setX, js_getX, getX, SVGPathSegLinetoHorizontalRel,+        castToSVGPathSegLinetoHorizontalRel,+        gTypeSVGPathSegLinetoHorizontalRel)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"x\"] = $2;" js_setX ::+        SVGPathSegLinetoHorizontalRel -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegLinetoHorizontalRel.x Mozilla SVGPathSegLinetoHorizontalRel.x documentation> +setX ::+     (MonadIO m) => SVGPathSegLinetoHorizontalRel -> Float -> m ()+setX self val = liftIO (js_setX (self) val)+ +foreign import javascript unsafe "$1[\"x\"]" js_getX ::+        SVGPathSegLinetoHorizontalRel -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegLinetoHorizontalRel.x Mozilla SVGPathSegLinetoHorizontalRel.x documentation> +getX :: (MonadIO m) => SVGPathSegLinetoHorizontalRel -> m Float+getX self = liftIO (js_getX (self))
+ src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoRel.hs view
@@ -0,0 +1,48 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.SVGPathSegLinetoRel+       (js_setX, setX, js_getX, getX, js_setY, setY, js_getY, getY,+        SVGPathSegLinetoRel, castToSVGPathSegLinetoRel,+        gTypeSVGPathSegLinetoRel)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"x\"] = $2;" js_setX ::+        SVGPathSegLinetoRel -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegLinetoRel.x Mozilla SVGPathSegLinetoRel.x documentation> +setX :: (MonadIO m) => SVGPathSegLinetoRel -> Float -> m ()+setX self val = liftIO (js_setX (self) val)+ +foreign import javascript unsafe "$1[\"x\"]" js_getX ::+        SVGPathSegLinetoRel -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegLinetoRel.x Mozilla SVGPathSegLinetoRel.x documentation> +getX :: (MonadIO m) => SVGPathSegLinetoRel -> m Float+getX self = liftIO (js_getX (self))+ +foreign import javascript unsafe "$1[\"y\"] = $2;" js_setY ::+        SVGPathSegLinetoRel -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegLinetoRel.y Mozilla SVGPathSegLinetoRel.y documentation> +setY :: (MonadIO m) => SVGPathSegLinetoRel -> Float -> m ()+setY self val = liftIO (js_setY (self) val)+ +foreign import javascript unsafe "$1[\"y\"]" js_getY ::+        SVGPathSegLinetoRel -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegLinetoRel.y Mozilla SVGPathSegLinetoRel.y documentation> +getY :: (MonadIO m) => SVGPathSegLinetoRel -> m Float+getY self = liftIO (js_getY (self))
+ src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoVerticalAbs.hs view
@@ -0,0 +1,34 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.SVGPathSegLinetoVerticalAbs+       (js_setY, setY, js_getY, getY, SVGPathSegLinetoVerticalAbs,+        castToSVGPathSegLinetoVerticalAbs,+        gTypeSVGPathSegLinetoVerticalAbs)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"y\"] = $2;" js_setY ::+        SVGPathSegLinetoVerticalAbs -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegLinetoVerticalAbs.y Mozilla SVGPathSegLinetoVerticalAbs.y documentation> +setY :: (MonadIO m) => SVGPathSegLinetoVerticalAbs -> Float -> m ()+setY self val = liftIO (js_setY (self) val)+ +foreign import javascript unsafe "$1[\"y\"]" js_getY ::+        SVGPathSegLinetoVerticalAbs -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegLinetoVerticalAbs.y Mozilla SVGPathSegLinetoVerticalAbs.y documentation> +getY :: (MonadIO m) => SVGPathSegLinetoVerticalAbs -> m Float+getY self = liftIO (js_getY (self))
+ src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoVerticalRel.hs view
@@ -0,0 +1,34 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.SVGPathSegLinetoVerticalRel+       (js_setY, setY, js_getY, getY, SVGPathSegLinetoVerticalRel,+        castToSVGPathSegLinetoVerticalRel,+        gTypeSVGPathSegLinetoVerticalRel)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"y\"] = $2;" js_setY ::+        SVGPathSegLinetoVerticalRel -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegLinetoVerticalRel.y Mozilla SVGPathSegLinetoVerticalRel.y documentation> +setY :: (MonadIO m) => SVGPathSegLinetoVerticalRel -> Float -> m ()+setY self val = liftIO (js_setY (self) val)+ +foreign import javascript unsafe "$1[\"y\"]" js_getY ::+        SVGPathSegLinetoVerticalRel -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegLinetoVerticalRel.y Mozilla SVGPathSegLinetoVerticalRel.y documentation> +getY :: (MonadIO m) => SVGPathSegLinetoVerticalRel -> m Float+getY self = liftIO (js_getY (self))
+ src/GHCJS/DOM/JSFFI/Generated/SVGPathSegList.hs view
@@ -0,0 +1,114 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.SVGPathSegList+       (js_clear, clear, js_initialize, initialize, js_getItem, getItem,+        js_insertItemBefore, insertItemBefore, js_replaceItem, replaceItem,+        js_removeItem, removeItem, js_appendItem, appendItem,+        js_getNumberOfItems, getNumberOfItems, SVGPathSegList,+        castToSVGPathSegList, gTypeSVGPathSegList)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"clear\"]()" js_clear ::+        SVGPathSegList -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegList.clear Mozilla SVGPathSegList.clear documentation> +clear :: (MonadIO m) => SVGPathSegList -> m ()+clear self = liftIO (js_clear (self))+ +foreign import javascript unsafe "$1[\"initialize\"]($2)"+        js_initialize ::+        SVGPathSegList -> Nullable SVGPathSeg -> IO (Nullable SVGPathSeg)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegList.initialize Mozilla SVGPathSegList.initialize documentation> +initialize ::+           (MonadIO m, IsSVGPathSeg newItem) =>+             SVGPathSegList -> Maybe newItem -> m (Maybe SVGPathSeg)+initialize self newItem+  = liftIO+      (nullableToMaybe <$>+         (js_initialize (self)+            (maybeToNullable (fmap toSVGPathSeg newItem))))+ +foreign import javascript unsafe "$1[\"getItem\"]($2)" js_getItem+        :: SVGPathSegList -> Word -> IO (Nullable SVGPathSeg)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegList.getItem Mozilla SVGPathSegList.getItem documentation> +getItem ::+        (MonadIO m) => SVGPathSegList -> Word -> m (Maybe SVGPathSeg)+getItem self index+  = liftIO (nullableToMaybe <$> (js_getItem (self) index))+ +foreign import javascript unsafe "$1[\"insertItemBefore\"]($2, $3)"+        js_insertItemBefore ::+        SVGPathSegList ->+          Nullable SVGPathSeg -> Word -> IO (Nullable SVGPathSeg)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegList.insertItemBefore Mozilla SVGPathSegList.insertItemBefore documentation> +insertItemBefore ::+                 (MonadIO m, IsSVGPathSeg newItem) =>+                   SVGPathSegList -> Maybe newItem -> Word -> m (Maybe SVGPathSeg)+insertItemBefore self newItem index+  = liftIO+      (nullableToMaybe <$>+         (js_insertItemBefore (self)+            (maybeToNullable (fmap toSVGPathSeg newItem))+            index))+ +foreign import javascript unsafe "$1[\"replaceItem\"]($2, $3)"+        js_replaceItem ::+        SVGPathSegList ->+          Nullable SVGPathSeg -> Word -> IO (Nullable SVGPathSeg)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegList.replaceItem Mozilla SVGPathSegList.replaceItem documentation> +replaceItem ::+            (MonadIO m, IsSVGPathSeg newItem) =>+              SVGPathSegList -> Maybe newItem -> Word -> m (Maybe SVGPathSeg)+replaceItem self newItem index+  = liftIO+      (nullableToMaybe <$>+         (js_replaceItem (self)+            (maybeToNullable (fmap toSVGPathSeg newItem))+            index))+ +foreign import javascript unsafe "$1[\"removeItem\"]($2)"+        js_removeItem :: SVGPathSegList -> Word -> IO (Nullable SVGPathSeg)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegList.removeItem Mozilla SVGPathSegList.removeItem documentation> +removeItem ::+           (MonadIO m) => SVGPathSegList -> Word -> m (Maybe SVGPathSeg)+removeItem self index+  = liftIO (nullableToMaybe <$> (js_removeItem (self) index))+ +foreign import javascript unsafe "$1[\"appendItem\"]($2)"+        js_appendItem ::+        SVGPathSegList -> Nullable SVGPathSeg -> IO (Nullable SVGPathSeg)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegList.appendItem Mozilla SVGPathSegList.appendItem documentation> +appendItem ::+           (MonadIO m, IsSVGPathSeg newItem) =>+             SVGPathSegList -> Maybe newItem -> m (Maybe SVGPathSeg)+appendItem self newItem+  = liftIO+      (nullableToMaybe <$>+         (js_appendItem (self)+            (maybeToNullable (fmap toSVGPathSeg newItem))))+ +foreign import javascript unsafe "$1[\"numberOfItems\"]"+        js_getNumberOfItems :: SVGPathSegList -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegList.numberOfItems Mozilla SVGPathSegList.numberOfItems documentation> +getNumberOfItems :: (MonadIO m) => SVGPathSegList -> m Word+getNumberOfItems self = liftIO (js_getNumberOfItems (self))
+ src/GHCJS/DOM/JSFFI/Generated/SVGPathSegMovetoAbs.hs view
@@ -0,0 +1,48 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.SVGPathSegMovetoAbs+       (js_setX, setX, js_getX, getX, js_setY, setY, js_getY, getY,+        SVGPathSegMovetoAbs, castToSVGPathSegMovetoAbs,+        gTypeSVGPathSegMovetoAbs)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"x\"] = $2;" js_setX ::+        SVGPathSegMovetoAbs -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegMovetoAbs.x Mozilla SVGPathSegMovetoAbs.x documentation> +setX :: (MonadIO m) => SVGPathSegMovetoAbs -> Float -> m ()+setX self val = liftIO (js_setX (self) val)+ +foreign import javascript unsafe "$1[\"x\"]" js_getX ::+        SVGPathSegMovetoAbs -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegMovetoAbs.x Mozilla SVGPathSegMovetoAbs.x documentation> +getX :: (MonadIO m) => SVGPathSegMovetoAbs -> m Float+getX self = liftIO (js_getX (self))+ +foreign import javascript unsafe "$1[\"y\"] = $2;" js_setY ::+        SVGPathSegMovetoAbs -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegMovetoAbs.y Mozilla SVGPathSegMovetoAbs.y documentation> +setY :: (MonadIO m) => SVGPathSegMovetoAbs -> Float -> m ()+setY self val = liftIO (js_setY (self) val)+ +foreign import javascript unsafe "$1[\"y\"]" js_getY ::+        SVGPathSegMovetoAbs -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegMovetoAbs.y Mozilla SVGPathSegMovetoAbs.y documentation> +getY :: (MonadIO m) => SVGPathSegMovetoAbs -> m Float+getY self = liftIO (js_getY (self))
+ src/GHCJS/DOM/JSFFI/Generated/SVGPathSegMovetoRel.hs view
@@ -0,0 +1,48 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.SVGPathSegMovetoRel+       (js_setX, setX, js_getX, getX, js_setY, setY, js_getY, getY,+        SVGPathSegMovetoRel, castToSVGPathSegMovetoRel,+        gTypeSVGPathSegMovetoRel)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"x\"] = $2;" js_setX ::+        SVGPathSegMovetoRel -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegMovetoRel.x Mozilla SVGPathSegMovetoRel.x documentation> +setX :: (MonadIO m) => SVGPathSegMovetoRel -> Float -> m ()+setX self val = liftIO (js_setX (self) val)+ +foreign import javascript unsafe "$1[\"x\"]" js_getX ::+        SVGPathSegMovetoRel -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegMovetoRel.x Mozilla SVGPathSegMovetoRel.x documentation> +getX :: (MonadIO m) => SVGPathSegMovetoRel -> m Float+getX self = liftIO (js_getX (self))+ +foreign import javascript unsafe "$1[\"y\"] = $2;" js_setY ::+        SVGPathSegMovetoRel -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegMovetoRel.y Mozilla SVGPathSegMovetoRel.y documentation> +setY :: (MonadIO m) => SVGPathSegMovetoRel -> Float -> m ()+setY self val = liftIO (js_setY (self) val)+ +foreign import javascript unsafe "$1[\"y\"]" js_getY ::+        SVGPathSegMovetoRel -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegMovetoRel.y Mozilla SVGPathSegMovetoRel.y documentation> +getY :: (MonadIO m) => SVGPathSegMovetoRel -> m Float+getY self = liftIO (js_getY (self))
+ src/GHCJS/DOM/JSFFI/Generated/SVGPatternElement.hs view
@@ -0,0 +1,87 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.SVGPatternElement+       (js_getPatternUnits, getPatternUnits, js_getPatternContentUnits,+        getPatternContentUnits, js_getPatternTransform,+        getPatternTransform, js_getX, getX, js_getY, getY, js_getWidth,+        getWidth, js_getHeight, getHeight, SVGPatternElement,+        castToSVGPatternElement, gTypeSVGPatternElement)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"patternUnits\"]"+        js_getPatternUnits ::+        SVGPatternElement -> IO (Nullable SVGAnimatedEnumeration)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPatternElement.patternUnits Mozilla SVGPatternElement.patternUnits documentation> +getPatternUnits ::+                (MonadIO m) =>+                  SVGPatternElement -> m (Maybe SVGAnimatedEnumeration)+getPatternUnits self+  = liftIO (nullableToMaybe <$> (js_getPatternUnits (self)))+ +foreign import javascript unsafe "$1[\"patternContentUnits\"]"+        js_getPatternContentUnits ::+        SVGPatternElement -> IO (Nullable SVGAnimatedEnumeration)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPatternElement.patternContentUnits Mozilla SVGPatternElement.patternContentUnits documentation> +getPatternContentUnits ::+                       (MonadIO m) =>+                         SVGPatternElement -> m (Maybe SVGAnimatedEnumeration)+getPatternContentUnits self+  = liftIO (nullableToMaybe <$> (js_getPatternContentUnits (self)))+ +foreign import javascript unsafe "$1[\"patternTransform\"]"+        js_getPatternTransform ::+        SVGPatternElement -> IO (Nullable SVGAnimatedTransformList)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPatternElement.patternTransform Mozilla SVGPatternElement.patternTransform documentation> +getPatternTransform ::+                    (MonadIO m) =>+                      SVGPatternElement -> m (Maybe SVGAnimatedTransformList)+getPatternTransform self+  = liftIO (nullableToMaybe <$> (js_getPatternTransform (self)))+ +foreign import javascript unsafe "$1[\"x\"]" js_getX ::+        SVGPatternElement -> IO (Nullable SVGAnimatedLength)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPatternElement.x Mozilla SVGPatternElement.x documentation> +getX ::+     (MonadIO m) => SVGPatternElement -> m (Maybe SVGAnimatedLength)+getX self = liftIO (nullableToMaybe <$> (js_getX (self)))+ +foreign import javascript unsafe "$1[\"y\"]" js_getY ::+        SVGPatternElement -> IO (Nullable SVGAnimatedLength)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPatternElement.y Mozilla SVGPatternElement.y documentation> +getY ::+     (MonadIO m) => SVGPatternElement -> m (Maybe SVGAnimatedLength)+getY self = liftIO (nullableToMaybe <$> (js_getY (self)))+ +foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::+        SVGPatternElement -> IO (Nullable SVGAnimatedLength)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPatternElement.width Mozilla SVGPatternElement.width documentation> +getWidth ::+         (MonadIO m) => SVGPatternElement -> m (Maybe SVGAnimatedLength)+getWidth self = liftIO (nullableToMaybe <$> (js_getWidth (self)))+ +foreign import javascript unsafe "$1[\"height\"]" js_getHeight ::+        SVGPatternElement -> IO (Nullable SVGAnimatedLength)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPatternElement.height Mozilla SVGPatternElement.height documentation> +getHeight ::+          (MonadIO m) => SVGPatternElement -> m (Maybe SVGAnimatedLength)+getHeight self = liftIO (nullableToMaybe <$> (js_getHeight (self)))
+ src/GHCJS/DOM/JSFFI/Generated/SVGPoint.hs view
@@ -0,0 +1,60 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.SVGPoint+       (js_matrixTransform, matrixTransform, js_setX, setX, js_getX, getX,+        js_setY, setY, js_getY, getY, SVGPoint, castToSVGPoint,+        gTypeSVGPoint)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"matrixTransform\"]($2)"+        js_matrixTransform ::+        SVGPoint -> Nullable SVGMatrix -> IO (Nullable SVGPoint)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPoint.matrixTransform Mozilla SVGPoint.matrixTransform documentation> +matrixTransform ::+                (MonadIO m) => SVGPoint -> Maybe SVGMatrix -> m (Maybe SVGPoint)+matrixTransform self matrix+  = liftIO+      (nullableToMaybe <$>+         (js_matrixTransform (self) (maybeToNullable matrix)))+ +foreign import javascript unsafe "$1[\"x\"] = $2;" js_setX ::+        SVGPoint -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPoint.x Mozilla SVGPoint.x documentation> +setX :: (MonadIO m) => SVGPoint -> Float -> m ()+setX self val = liftIO (js_setX (self) val)+ +foreign import javascript unsafe "$1[\"x\"]" js_getX ::+        SVGPoint -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPoint.x Mozilla SVGPoint.x documentation> +getX :: (MonadIO m) => SVGPoint -> m Float+getX self = liftIO (js_getX (self))+ +foreign import javascript unsafe "$1[\"y\"] = $2;" js_setY ::+        SVGPoint -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPoint.y Mozilla SVGPoint.y documentation> +setY :: (MonadIO m) => SVGPoint -> Float -> m ()+setY self val = liftIO (js_setY (self) val)+ +foreign import javascript unsafe "$1[\"y\"]" js_getY ::+        SVGPoint -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPoint.y Mozilla SVGPoint.y documentation> +getY :: (MonadIO m) => SVGPoint -> m Float+getY self = liftIO (js_getY (self))
+ src/GHCJS/DOM/JSFFI/Generated/SVGPointList.hs view
@@ -0,0 +1,102 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.SVGPointList+       (js_clear, clear, js_initialize, initialize, js_getItem, getItem,+        js_insertItemBefore, insertItemBefore, js_replaceItem, replaceItem,+        js_removeItem, removeItem, js_appendItem, appendItem,+        js_getNumberOfItems, getNumberOfItems, SVGPointList,+        castToSVGPointList, gTypeSVGPointList)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"clear\"]()" js_clear ::+        SVGPointList -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPointList.clear Mozilla SVGPointList.clear documentation> +clear :: (MonadIO m) => SVGPointList -> m ()+clear self = liftIO (js_clear (self))+ +foreign import javascript unsafe "$1[\"initialize\"]($2)"+        js_initialize ::+        SVGPointList -> Nullable SVGPoint -> IO (Nullable SVGPoint)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPointList.initialize Mozilla SVGPointList.initialize documentation> +initialize ::+           (MonadIO m) => SVGPointList -> Maybe SVGPoint -> m (Maybe SVGPoint)+initialize self item+  = liftIO+      (nullableToMaybe <$> (js_initialize (self) (maybeToNullable item)))+ +foreign import javascript unsafe "$1[\"getItem\"]($2)" js_getItem+        :: SVGPointList -> Word -> IO (Nullable SVGPoint)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPointList.getItem Mozilla SVGPointList.getItem documentation> +getItem ::+        (MonadIO m) => SVGPointList -> Word -> m (Maybe SVGPoint)+getItem self index+  = liftIO (nullableToMaybe <$> (js_getItem (self) index))+ +foreign import javascript unsafe "$1[\"insertItemBefore\"]($2, $3)"+        js_insertItemBefore ::+        SVGPointList -> Nullable SVGPoint -> Word -> IO (Nullable SVGPoint)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPointList.insertItemBefore Mozilla SVGPointList.insertItemBefore documentation> +insertItemBefore ::+                 (MonadIO m) =>+                   SVGPointList -> Maybe SVGPoint -> Word -> m (Maybe SVGPoint)+insertItemBefore self item index+  = liftIO+      (nullableToMaybe <$>+         (js_insertItemBefore (self) (maybeToNullable item) index))+ +foreign import javascript unsafe "$1[\"replaceItem\"]($2, $3)"+        js_replaceItem ::+        SVGPointList -> Nullable SVGPoint -> Word -> IO (Nullable SVGPoint)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPointList.replaceItem Mozilla SVGPointList.replaceItem documentation> +replaceItem ::+            (MonadIO m) =>+              SVGPointList -> Maybe SVGPoint -> Word -> m (Maybe SVGPoint)+replaceItem self item index+  = liftIO+      (nullableToMaybe <$>+         (js_replaceItem (self) (maybeToNullable item) index))+ +foreign import javascript unsafe "$1[\"removeItem\"]($2)"+        js_removeItem :: SVGPointList -> Word -> IO (Nullable SVGPoint)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPointList.removeItem Mozilla SVGPointList.removeItem documentation> +removeItem ::+           (MonadIO m) => SVGPointList -> Word -> m (Maybe SVGPoint)+removeItem self index+  = liftIO (nullableToMaybe <$> (js_removeItem (self) index))+ +foreign import javascript unsafe "$1[\"appendItem\"]($2)"+        js_appendItem ::+        SVGPointList -> Nullable SVGPoint -> IO (Nullable SVGPoint)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPointList.appendItem Mozilla SVGPointList.appendItem documentation> +appendItem ::+           (MonadIO m) => SVGPointList -> Maybe SVGPoint -> m (Maybe SVGPoint)+appendItem self item+  = liftIO+      (nullableToMaybe <$> (js_appendItem (self) (maybeToNullable item)))+ +foreign import javascript unsafe "$1[\"numberOfItems\"]"+        js_getNumberOfItems :: SVGPointList -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPointList.numberOfItems Mozilla SVGPointList.numberOfItems documentation> +getNumberOfItems :: (MonadIO m) => SVGPointList -> m Word+getNumberOfItems self = liftIO (js_getNumberOfItems (self))
+ src/GHCJS/DOM/JSFFI/Generated/SVGPolygonElement.hs view
@@ -0,0 +1,37 @@+{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+module GHCJS.DOM.JSFFI.Generated.SVGPolygonElement+       (js_getPoints, getPoints, js_getAnimatedPoints, getAnimatedPoints,+        SVGPolygonElement, castToSVGPolygonElement, gTypeSVGPolygonElement)+       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 (JSVal(..), JSString)+import GHCJS.Foreign (jsNull)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+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.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"points\"]" js_getPoints ::+        SVGPolygonElement -> IO (Nullable SVGPointList)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPolygonElement.points Mozilla SVGPolygonElement.points documentation> +getPoints ::+          (MonadIO m) => SVGPolygonElement -> m (Maybe SVGPointList)+getPoints self = liftIO (nullableToMaybe <$> (js_getPoints (self)))+ +foreign import javascript unsafe "$1[\"animatedPoints\"]"+        js_getAnimatedPoints ::+        SVGPolygonElement -> IO (Nullable SVGPointList)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPolygonElement.animatedPoints Mozilla SVGPolygonElement.animatedPoints documentation> +getAnimatedPoints ::+                  (MonadIO m) => SVGPolygonElement -> m (Maybe SVGPointList)+getAnimatedPoints self+  = liftIO (nullableToMaybe <$> (js_getAnimatedPoints (self)))
+ 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/Types.hs view

file too large to diff