packages feed

ghcjs-dom-jsffi 0.7.1.0 → 0.8.0.0

raw patch · 608 files changed

+63161/−68355 lines, 608 files

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

Files

ghcjs-dom-jsffi.cabal view
@@ -1,5 +1,5 @@ name: ghcjs-dom-jsffi-version: 0.7.1.0+version: 0.8.0.0 cabal-version: >=1.24 build-type: Simple license: MIT@@ -47,25 +47,29 @@           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 +          -- (cd ghcjs-dom-jsffi/src/GHCJS/DOM/JSFFI/Generated && ls | sed 's|\(^.*\)\.hs|          GHCJS.DOM.JSFFI.Generated.\1|' | pbcopy)           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.Animatable+          GHCJS.DOM.JSFFI.Generated.Animation           GHCJS.DOM.JSFFI.Generated.AnimationEvent+          GHCJS.DOM.JSFFI.Generated.ApplePayPaymentAuthorizedEvent+          GHCJS.DOM.JSFFI.Generated.ApplePayPaymentMethodSelectedEvent+          GHCJS.DOM.JSFFI.Generated.ApplePaySession+          GHCJS.DOM.JSFFI.Generated.ApplePayShippingContactSelectedEvent+          GHCJS.DOM.JSFFI.Generated.ApplePayShippingMethodSelectedEvent+          GHCJS.DOM.JSFFI.Generated.ApplePayValidateMerchantEvent+          GHCJS.DOM.JSFFI.Generated.ApplicationCache           GHCJS.DOM.JSFFI.Generated.Attr           GHCJS.DOM.JSFFI.Generated.AudioBuffer           GHCJS.DOM.JSFFI.Generated.AudioBufferCallback@@ -76,23 +80,24 @@           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.Body+          GHCJS.DOM.JSFFI.Generated.ByteLengthQueuingStrategy+          GHCJS.DOM.JSFFI.Generated.CSS           GHCJS.DOM.JSFFI.Generated.CSSFontFaceLoadEvent           GHCJS.DOM.JSFFI.Generated.CSSFontFaceRule           GHCJS.DOM.JSFFI.Generated.CSSImportRule           GHCJS.DOM.JSFFI.Generated.CSSKeyframeRule           GHCJS.DOM.JSFFI.Generated.CSSKeyframesRule           GHCJS.DOM.JSFFI.Generated.CSSMediaRule+          GHCJS.DOM.JSFFI.Generated.CSSNamespaceRule           GHCJS.DOM.JSFFI.Generated.CSSPageRule           GHCJS.DOM.JSFFI.Generated.CSSPrimitiveValue           GHCJS.DOM.JSFFI.Generated.CSSRule@@ -104,43 +109,37 @@           GHCJS.DOM.JSFFI.Generated.CSSValue           GHCJS.DOM.JSFFI.Generated.CSSValueList           GHCJS.DOM.JSFFI.Generated.CanvasGradient-          GHCJS.DOM.JSFFI.Generated.CanvasRenderingContext+          GHCJS.DOM.JSFFI.Generated.CanvasPath           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.ClipboardEvent           GHCJS.DOM.JSFFI.Generated.CloseEvent           GHCJS.DOM.JSFFI.Generated.CommandLineAPIHost           GHCJS.DOM.JSFFI.Generated.Comment           GHCJS.DOM.JSFFI.Generated.CompositionEvent           GHCJS.DOM.JSFFI.Generated.ConvolverNode           GHCJS.DOM.JSFFI.Generated.Coordinates+          GHCJS.DOM.JSFFI.Generated.CountQueuingStrategy           GHCJS.DOM.JSFFI.Generated.Counter           GHCJS.DOM.JSFFI.Generated.Crypto           GHCJS.DOM.JSFFI.Generated.CryptoKey-          GHCJS.DOM.JSFFI.Generated.CryptoKeyPair+          GHCJS.DOM.JSFFI.Generated.CustomElementRegistry           GHCJS.DOM.JSFFI.Generated.CustomEvent-          GHCJS.DOM.JSFFI.Generated.ApplicationCache           GHCJS.DOM.JSFFI.Generated.DOMError-          GHCJS.DOM.JSFFI.Generated.FormData+          GHCJS.DOM.JSFFI.Generated.DOMException           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.DOMPoint+          GHCJS.DOM.JSFFI.Generated.DOMPointReadOnly+          GHCJS.DOM.JSFFI.Generated.DOMRect+          GHCJS.DOM.JSFFI.Generated.DOMRectReadOnly           GHCJS.DOM.JSFFI.Generated.DOMStringList+          GHCJS.DOM.JSFFI.Generated.DOMStringMap           GHCJS.DOM.JSFFI.Generated.DOMTokenList-          GHCJS.DOM.JSFFI.Generated.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@@ -154,13 +153,14 @@           GHCJS.DOM.JSFFI.Generated.DeviceProximityEvent           GHCJS.DOM.JSFFI.Generated.Document           GHCJS.DOM.JSFFI.Generated.DocumentFragment+          GHCJS.DOM.JSFFI.Generated.DocumentOrShadowRoot+          GHCJS.DOM.JSFFI.Generated.DocumentTimeline           GHCJS.DOM.JSFFI.Generated.DocumentType           GHCJS.DOM.JSFFI.Generated.DynamicsCompressorNode           GHCJS.DOM.JSFFI.Generated.EXTBlendMinMax-          GHCJS.DOM.JSFFI.Generated.EXTsRGB           GHCJS.DOM.JSFFI.Generated.EXTTextureFilterAnisotropic+          GHCJS.DOM.JSFFI.Generated.EXTsRGB           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@@ -169,29 +169,36 @@           GHCJS.DOM.JSFFI.Generated.EventTarget           GHCJS.DOM.JSFFI.Generated.File           GHCJS.DOM.JSFFI.Generated.FileError+          GHCJS.DOM.JSFFI.Generated.FileException           GHCJS.DOM.JSFFI.Generated.FileList           GHCJS.DOM.JSFFI.Generated.FileReader           GHCJS.DOM.JSFFI.Generated.FileReaderSync           GHCJS.DOM.JSFFI.Generated.FocusEvent-          GHCJS.DOM.JSFFI.Generated.FontLoader+          GHCJS.DOM.JSFFI.Generated.FontFace+          GHCJS.DOM.JSFFI.Generated.FontFaceSet+          GHCJS.DOM.JSFFI.Generated.FormData           GHCJS.DOM.JSFFI.Generated.GainNode           GHCJS.DOM.JSFFI.Generated.Gamepad           GHCJS.DOM.JSFFI.Generated.GamepadButton           GHCJS.DOM.JSFFI.Generated.GamepadEvent           GHCJS.DOM.JSFFI.Generated.Geolocation           GHCJS.DOM.JSFFI.Generated.Geoposition+          GHCJS.DOM.JSFFI.Generated.GlobalCrypto+          GHCJS.DOM.JSFFI.Generated.GlobalEventHandlers+          GHCJS.DOM.JSFFI.Generated.GlobalPerformance           GHCJS.DOM.JSFFI.Generated.HTMLAllCollection           GHCJS.DOM.JSFFI.Generated.HTMLAnchorElement           GHCJS.DOM.JSFFI.Generated.HTMLAppletElement           GHCJS.DOM.JSFFI.Generated.HTMLAreaElement+          GHCJS.DOM.JSFFI.Generated.HTMLAttachmentElement           GHCJS.DOM.JSFFI.Generated.HTMLBRElement           GHCJS.DOM.JSFFI.Generated.HTMLBaseElement-          GHCJS.DOM.JSFFI.Generated.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.HTMLDataElement           GHCJS.DOM.JSFFI.Generated.HTMLDataListElement           GHCJS.DOM.JSFFI.Generated.HTMLDetailsElement           GHCJS.DOM.JSFFI.Generated.HTMLDirectoryElement@@ -209,6 +216,7 @@           GHCJS.DOM.JSFFI.Generated.HTMLHeadElement           GHCJS.DOM.JSFFI.Generated.HTMLHeadingElement           GHCJS.DOM.JSFFI.Generated.HTMLHtmlElement+          GHCJS.DOM.JSFFI.Generated.HTMLHyperlinkElementUtils           GHCJS.DOM.JSFFI.Generated.HTMLIFrameElement           GHCJS.DOM.JSFFI.Generated.HTMLImageElement           GHCJS.DOM.JSFFI.Generated.HTMLInputElement@@ -237,6 +245,7 @@           GHCJS.DOM.JSFFI.Generated.HTMLQuoteElement           GHCJS.DOM.JSFFI.Generated.HTMLScriptElement           GHCJS.DOM.JSFFI.Generated.HTMLSelectElement+          GHCJS.DOM.JSFFI.Generated.HTMLSlotElement           GHCJS.DOM.JSFFI.Generated.HTMLSourceElement           GHCJS.DOM.JSFFI.Generated.HTMLStyleElement           GHCJS.DOM.JSFFI.Generated.HTMLTableCaptionElement@@ -247,11 +256,13 @@           GHCJS.DOM.JSFFI.Generated.HTMLTableSectionElement           GHCJS.DOM.JSFFI.Generated.HTMLTemplateElement           GHCJS.DOM.JSFFI.Generated.HTMLTextAreaElement+          GHCJS.DOM.JSFFI.Generated.HTMLTimeElement           GHCJS.DOM.JSFFI.Generated.HTMLTitleElement           GHCJS.DOM.JSFFI.Generated.HTMLTrackElement           GHCJS.DOM.JSFFI.Generated.HTMLUListElement           GHCJS.DOM.JSFFI.Generated.HTMLVideoElement           GHCJS.DOM.JSFFI.Generated.HashChangeEvent+          GHCJS.DOM.JSFFI.Generated.Headers           GHCJS.DOM.JSFFI.Generated.History           GHCJS.DOM.JSFFI.Generated.IDBCursor           GHCJS.DOM.JSFFI.Generated.IDBCursorWithValue@@ -265,45 +276,53 @@           GHCJS.DOM.JSFFI.Generated.IDBTransaction           GHCJS.DOM.JSFFI.Generated.IDBVersionChangeEvent           GHCJS.DOM.JSFFI.Generated.ImageData+          GHCJS.DOM.JSFFI.Generated.InputEvent           GHCJS.DOM.JSFFI.Generated.InspectorFrontendHost-          GHCJS.DOM.JSFFI.Generated.InternalSettings-          GHCJS.DOM.JSFFI.Generated.Internals+          GHCJS.DOM.JSFFI.Generated.IntersectionObserver+          GHCJS.DOM.JSFFI.Generated.IntersectionObserverCallback+          GHCJS.DOM.JSFFI.Generated.IntersectionObserverEntry           GHCJS.DOM.JSFFI.Generated.KeyboardEvent+          GHCJS.DOM.JSFFI.Generated.KeyframeEffect           GHCJS.DOM.JSFFI.Generated.Location-          GHCJS.DOM.JSFFI.Generated.MallocStatistics           GHCJS.DOM.JSFFI.Generated.MediaController           GHCJS.DOM.JSFFI.Generated.MediaControlsHost+          GHCJS.DOM.JSFFI.Generated.MediaDeviceInfo+          GHCJS.DOM.JSFFI.Generated.MediaDevices           GHCJS.DOM.JSFFI.Generated.MediaElementAudioSourceNode+          GHCJS.DOM.JSFFI.Generated.MediaEncryptedEvent           GHCJS.DOM.JSFFI.Generated.MediaError-          GHCJS.DOM.JSFFI.Generated.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.MediaKeyStatusMap+          GHCJS.DOM.JSFFI.Generated.MediaKeySystemAccess           GHCJS.DOM.JSFFI.Generated.MediaKeys           GHCJS.DOM.JSFFI.Generated.MediaList           GHCJS.DOM.JSFFI.Generated.MediaQueryList           GHCJS.DOM.JSFFI.Generated.MediaQueryListListener+          GHCJS.DOM.JSFFI.Generated.MediaRemoteControls+          GHCJS.DOM.JSFFI.Generated.MediaSession           GHCJS.DOM.JSFFI.Generated.MediaSource-          GHCJS.DOM.JSFFI.Generated.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.MimeType+          GHCJS.DOM.JSFFI.Generated.MimeTypeArray           GHCJS.DOM.JSFFI.Generated.MouseEvent           GHCJS.DOM.JSFFI.Generated.MutationEvent           GHCJS.DOM.JSFFI.Generated.MutationObserver           GHCJS.DOM.JSFFI.Generated.MutationRecord           GHCJS.DOM.JSFFI.Generated.NamedNodeMap           GHCJS.DOM.JSFFI.Generated.Navigator+          GHCJS.DOM.JSFFI.Generated.NavigatorConcurrentHardware+          GHCJS.DOM.JSFFI.Generated.NavigatorID+          GHCJS.DOM.JSFFI.Generated.NavigatorLanguage+          GHCJS.DOM.JSFFI.Generated.NavigatorOnLine           GHCJS.DOM.JSFFI.Generated.NavigatorUserMediaError           GHCJS.DOM.JSFFI.Generated.NavigatorUserMediaErrorCallback           GHCJS.DOM.JSFFI.Generated.NavigatorUserMediaSuccessCallback@@ -311,6 +330,8 @@           GHCJS.DOM.JSFFI.Generated.NodeFilter           GHCJS.DOM.JSFFI.Generated.NodeIterator           GHCJS.DOM.JSFFI.Generated.NodeList+          GHCJS.DOM.JSFFI.Generated.NonDocumentTypeChildNode+          GHCJS.DOM.JSFFI.Generated.NonElementParentNode           GHCJS.DOM.JSFFI.Generated.Notification           GHCJS.DOM.JSFFI.Generated.NotificationCenter           GHCJS.DOM.JSFFI.Generated.NotificationPermissionCallback@@ -320,15 +341,23 @@           GHCJS.DOM.JSFFI.Generated.OfflineAudioCompletionEvent           GHCJS.DOM.JSFFI.Generated.OfflineAudioContext           GHCJS.DOM.JSFFI.Generated.OscillatorNode+          GHCJS.DOM.JSFFI.Generated.OverconstrainedError+          GHCJS.DOM.JSFFI.Generated.OverconstrainedErrorEvent           GHCJS.DOM.JSFFI.Generated.OverflowEvent           GHCJS.DOM.JSFFI.Generated.PageTransitionEvent           GHCJS.DOM.JSFFI.Generated.PannerNode+          GHCJS.DOM.JSFFI.Generated.ParentNode+          GHCJS.DOM.JSFFI.Generated.Path2D           GHCJS.DOM.JSFFI.Generated.Performance           GHCJS.DOM.JSFFI.Generated.PerformanceEntry-          GHCJS.DOM.JSFFI.Generated.PerformanceEntryList           GHCJS.DOM.JSFFI.Generated.PerformanceNavigation+          GHCJS.DOM.JSFFI.Generated.PerformanceObserver+          GHCJS.DOM.JSFFI.Generated.PerformanceObserverCallback+          GHCJS.DOM.JSFFI.Generated.PerformanceObserverEntryList           GHCJS.DOM.JSFFI.Generated.PerformanceResourceTiming           GHCJS.DOM.JSFFI.Generated.PerformanceTiming+          GHCJS.DOM.JSFFI.Generated.Plugin+          GHCJS.DOM.JSFFI.Generated.PluginArray           GHCJS.DOM.JSFFI.Generated.PopStateEvent           GHCJS.DOM.JSFFI.Generated.PositionCallback           GHCJS.DOM.JSFFI.Generated.PositionError@@ -337,27 +366,31 @@           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.RTCRtpReceiver+          GHCJS.DOM.JSFFI.Generated.RTCRtpSender+          GHCJS.DOM.JSFFI.Generated.RTCRtpTransceiver           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.RTCTrackEvent           GHCJS.DOM.JSFFI.Generated.RadioNodeList           GHCJS.DOM.JSFFI.Generated.Range+          GHCJS.DOM.JSFFI.Generated.ReadableByteStreamController           GHCJS.DOM.JSFFI.Generated.ReadableStream+          GHCJS.DOM.JSFFI.Generated.ReadableStreamDefaultController+          GHCJS.DOM.JSFFI.Generated.ReadableStreamDefaultReader+          GHCJS.DOM.JSFFI.Generated.ReadableStreamSource           GHCJS.DOM.JSFFI.Generated.Rect+          GHCJS.DOM.JSFFI.Generated.Request           GHCJS.DOM.JSFFI.Generated.RequestAnimationFrameCallback+          GHCJS.DOM.JSFFI.Generated.Response           GHCJS.DOM.JSFFI.Generated.SQLError+          GHCJS.DOM.JSFFI.Generated.SQLException           GHCJS.DOM.JSFFI.Generated.SQLResultSet           GHCJS.DOM.JSFFI.Generated.SQLResultSetRowList           GHCJS.DOM.JSFFI.Generated.SQLStatementCallback@@ -383,12 +416,11 @@           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.SVGException           GHCJS.DOM.JSFFI.Generated.SVGExternalResourcesRequired           GHCJS.DOM.JSFFI.Generated.SVGFEBlendElement           GHCJS.DOM.JSFFI.Generated.SVGFEColorMatrixElement@@ -426,7 +458,6 @@           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@@ -458,8 +489,8 @@           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.SVGScriptElement           GHCJS.DOM.JSFFI.Generated.SVGStopElement           GHCJS.DOM.JSFFI.Generated.SVGStringList           GHCJS.DOM.JSFFI.Generated.SVGStyleElement@@ -478,16 +509,17 @@           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.Selection+          GHCJS.DOM.JSFFI.Generated.ShadowRoot+          GHCJS.DOM.JSFFI.Generated.Slotable           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.StaticRange           GHCJS.DOM.JSFFI.Generated.Storage           GHCJS.DOM.JSFFI.Generated.StorageErrorCallback           GHCJS.DOM.JSFFI.Generated.StorageEvent@@ -501,6 +533,8 @@           GHCJS.DOM.JSFFI.Generated.StyleSheetList           GHCJS.DOM.JSFFI.Generated.SubtleCrypto           GHCJS.DOM.JSFFI.Generated.Text+          GHCJS.DOM.JSFFI.Generated.TextDecoder+          GHCJS.DOM.JSFFI.Generated.TextEncoder           GHCJS.DOM.JSFFI.Generated.TextEvent           GHCJS.DOM.JSFFI.Generated.TextMetrics           GHCJS.DOM.JSFFI.Generated.TextTrack@@ -514,17 +548,15 @@           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.URL+          GHCJS.DOM.JSFFI.Generated.URLSearchParams           GHCJS.DOM.JSFFI.Generated.UserMessageHandler           GHCJS.DOM.JSFFI.Generated.VTTCue           GHCJS.DOM.JSFFI.Generated.VTTRegion           GHCJS.DOM.JSFFI.Generated.VTTRegionList           GHCJS.DOM.JSFFI.Generated.ValidityState           GHCJS.DOM.JSFFI.Generated.VideoPlaybackQuality-          GHCJS.DOM.JSFFI.Generated.VideoStreamTrack           GHCJS.DOM.JSFFI.Generated.VideoTrack           GHCJS.DOM.JSFFI.Generated.VideoTrackList           GHCJS.DOM.JSFFI.Generated.VoidCallback@@ -534,7 +566,6 @@           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@@ -544,29 +575,36 @@           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.WebKitMediaKeyError+          GHCJS.DOM.JSFFI.Generated.WebKitMediaKeyMessageEvent+          GHCJS.DOM.JSFFI.Generated.WebKitMediaKeyNeededEvent+          GHCJS.DOM.JSFFI.Generated.WebKitMediaKeySession+          GHCJS.DOM.JSFFI.Generated.WebKitMediaKeys           GHCJS.DOM.JSFFI.Generated.WebKitNamedFlow           GHCJS.DOM.JSFFI.Generated.WebKitNamespace           GHCJS.DOM.JSFFI.Generated.WebKitPlaybackTargetAvailabilityEvent           GHCJS.DOM.JSFFI.Generated.WebKitPoint+          GHCJS.DOM.JSFFI.Generated.WebKitSubtleCrypto           GHCJS.DOM.JSFFI.Generated.WebKitTransitionEvent           GHCJS.DOM.JSFFI.Generated.WebSocket           GHCJS.DOM.JSFFI.Generated.WheelEvent-          GHCJS.DOM.JSFFI.Generated.WindowBase64-          GHCJS.DOM.JSFFI.Generated.WindowTimers+          GHCJS.DOM.JSFFI.Generated.Window+          GHCJS.DOM.JSFFI.Generated.WindowEventHandlers+          GHCJS.DOM.JSFFI.Generated.WindowOrWorkerGlobalScope           GHCJS.DOM.JSFFI.Generated.Worker           GHCJS.DOM.JSFFI.Generated.WorkerGlobalScope           GHCJS.DOM.JSFFI.Generated.WorkerLocation           GHCJS.DOM.JSFFI.Generated.WorkerNavigator+          GHCJS.DOM.JSFFI.Generated.WritableStream           GHCJS.DOM.JSFFI.Generated.XMLHttpRequest+          GHCJS.DOM.JSFFI.Generated.XMLHttpRequestEventTarget           GHCJS.DOM.JSFFI.Generated.XMLHttpRequestProgressEvent-          GHCJS.DOM.JSFFI.Generated.XMLHttpRequestUpload           GHCJS.DOM.JSFFI.Generated.XMLSerializer           GHCJS.DOM.JSFFI.Generated.XPathEvaluator+          GHCJS.DOM.JSFFI.Generated.XPathException           GHCJS.DOM.JSFFI.Generated.XPathExpression           GHCJS.DOM.JSFFI.Generated.XPathNSResolver           GHCJS.DOM.JSFFI.Generated.XPathResult@@ -575,12 +613,17 @@     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.Animatable as GHCJS.DOM.Animatable+          , GHCJS.DOM.JSFFI.Generated.Animation as GHCJS.DOM.Animation           , GHCJS.DOM.JSFFI.Generated.AnimationEvent as GHCJS.DOM.AnimationEvent+          , GHCJS.DOM.JSFFI.Generated.ApplePayPaymentAuthorizedEvent as GHCJS.DOM.ApplePayPaymentAuthorizedEvent+          , GHCJS.DOM.JSFFI.Generated.ApplePayPaymentMethodSelectedEvent as GHCJS.DOM.ApplePayPaymentMethodSelectedEvent+          , GHCJS.DOM.JSFFI.Generated.ApplePaySession as GHCJS.DOM.ApplePaySession+          , GHCJS.DOM.JSFFI.Generated.ApplePayShippingContactSelectedEvent as GHCJS.DOM.ApplePayShippingContactSelectedEvent+          , GHCJS.DOM.JSFFI.Generated.ApplePayShippingMethodSelectedEvent as GHCJS.DOM.ApplePayShippingMethodSelectedEvent+          , GHCJS.DOM.JSFFI.Generated.ApplePayValidateMerchantEvent as GHCJS.DOM.ApplePayValidateMerchantEvent           , GHCJS.DOM.JSFFI.Generated.ApplicationCache as GHCJS.DOM.ApplicationCache           , GHCJS.DOM.JSFFI.Generated.Attr as GHCJS.DOM.Attr           , GHCJS.DOM.JSFFI.Generated.AudioBuffer as GHCJS.DOM.AudioBuffer@@ -592,24 +635,24 @@           , 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.Body as GHCJS.DOM.Body+          , GHCJS.DOM.JSFFI.Generated.ByteLengthQueuingStrategy as GHCJS.DOM.ByteLengthQueuingStrategy           , GHCJS.DOM.JSFFI.Generated.CSS as GHCJS.DOM.CSS-          , GHCJS.DOM.JSFFI.Generated.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.CSSNamespaceRule as GHCJS.DOM.CSSNamespaceRule           , GHCJS.DOM.JSFFI.Generated.CSSPageRule as GHCJS.DOM.CSSPageRule           , GHCJS.DOM.JSFFI.Generated.CSSPrimitiveValue as GHCJS.DOM.CSSPrimitiveValue           , GHCJS.DOM.JSFFI.Generated.CSSRule as GHCJS.DOM.CSSRule@@ -621,30 +664,36 @@           , 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.CanvasPath as GHCJS.DOM.CanvasPath           , 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.ClipboardEvent as GHCJS.DOM.ClipboardEvent           , GHCJS.DOM.JSFFI.Generated.CloseEvent as GHCJS.DOM.CloseEvent           , GHCJS.DOM.JSFFI.Generated.CommandLineAPIHost as GHCJS.DOM.CommandLineAPIHost           , GHCJS.DOM.JSFFI.Generated.Comment as GHCJS.DOM.Comment           , GHCJS.DOM.JSFFI.Generated.CompositionEvent as GHCJS.DOM.CompositionEvent           , GHCJS.DOM.JSFFI.Generated.ConvolverNode as GHCJS.DOM.ConvolverNode           , GHCJS.DOM.JSFFI.Generated.Coordinates as GHCJS.DOM.Coordinates+          , GHCJS.DOM.JSFFI.Generated.CountQueuingStrategy as GHCJS.DOM.CountQueuingStrategy           , GHCJS.DOM.JSFFI.Generated.Counter as GHCJS.DOM.Counter           , GHCJS.DOM.JSFFI.Generated.Crypto as GHCJS.DOM.Crypto           , GHCJS.DOM.JSFFI.Generated.CryptoKey as GHCJS.DOM.CryptoKey-          , GHCJS.DOM.JSFFI.Generated.CryptoKeyPair as GHCJS.DOM.CryptoKeyPair+          , GHCJS.DOM.JSFFI.Generated.CustomElementRegistry as GHCJS.DOM.CustomElementRegistry           , GHCJS.DOM.JSFFI.Generated.CustomEvent as GHCJS.DOM.CustomEvent           , GHCJS.DOM.JSFFI.DOMError as GHCJS.DOM.DOMError+          , GHCJS.DOM.JSFFI.Generated.DOMException as GHCJS.DOM.DOMException           , GHCJS.DOM.JSFFI.Generated.DOMImplementation as GHCJS.DOM.DOMImplementation           , GHCJS.DOM.JSFFI.Generated.DOMNamedFlowCollection as GHCJS.DOM.DOMNamedFlowCollection           , GHCJS.DOM.JSFFI.Generated.DOMParser as GHCJS.DOM.DOMParser-          , GHCJS.DOM.JSFFI.Generated.DOMSettableTokenList as GHCJS.DOM.DOMSettableTokenList+          , GHCJS.DOM.JSFFI.Generated.DOMPoint as GHCJS.DOM.DOMPoint+          , GHCJS.DOM.JSFFI.Generated.DOMPointReadOnly as GHCJS.DOM.DOMPointReadOnly+          , GHCJS.DOM.JSFFI.Generated.DOMRect as GHCJS.DOM.DOMRect+          , GHCJS.DOM.JSFFI.Generated.DOMRectReadOnly as GHCJS.DOM.DOMRectReadOnly           , GHCJS.DOM.JSFFI.Generated.DOMStringList as GHCJS.DOM.DOMStringList+          , GHCJS.DOM.JSFFI.Generated.DOMStringMap as GHCJS.DOM.DOMStringMap           , GHCJS.DOM.JSFFI.Generated.DOMTokenList as GHCJS.DOM.DOMTokenList           , GHCJS.DOM.JSFFI.Generated.DataCue as GHCJS.DOM.DataCue           , GHCJS.DOM.JSFFI.Generated.DataTransfer as GHCJS.DOM.DataTransfer@@ -659,13 +708,14 @@           , 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.DocumentOrShadowRoot as GHCJS.DOM.DocumentOrShadowRoot+          , GHCJS.DOM.JSFFI.Generated.DocumentTimeline as GHCJS.DOM.DocumentTimeline           , GHCJS.DOM.JSFFI.Generated.DocumentType as GHCJS.DOM.DocumentType           , GHCJS.DOM.JSFFI.Generated.DynamicsCompressorNode as GHCJS.DOM.DynamicsCompressorNode           , GHCJS.DOM.JSFFI.Generated.EXTBlendMinMax as GHCJS.DOM.EXTBlendMinMax           , GHCJS.DOM.JSFFI.Generated.EXTTextureFilterAnisotropic as GHCJS.DOM.EXTTextureFilterAnisotropic           , GHCJS.DOM.JSFFI.Generated.EXTsRGB as GHCJS.DOM.EXTsRGB           , GHCJS.DOM.JSFFI.Generated.Element as GHCJS.DOM.Element-          , GHCJS.DOM.JSFFI.Generated.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@@ -674,30 +724,36 @@           , GHCJS.DOM.JSFFI.Generated.EventTarget as GHCJS.DOM.EventTarget           , GHCJS.DOM.JSFFI.Generated.File as GHCJS.DOM.File           , GHCJS.DOM.JSFFI.Generated.FileError as GHCJS.DOM.FileError+          , GHCJS.DOM.JSFFI.Generated.FileException as GHCJS.DOM.FileException           , GHCJS.DOM.JSFFI.Generated.FileList as GHCJS.DOM.FileList           , GHCJS.DOM.JSFFI.Generated.FileReader as GHCJS.DOM.FileReader           , GHCJS.DOM.JSFFI.Generated.FileReaderSync as GHCJS.DOM.FileReaderSync           , GHCJS.DOM.JSFFI.Generated.FocusEvent as GHCJS.DOM.FocusEvent-          , GHCJS.DOM.JSFFI.Generated.FontLoader as GHCJS.DOM.FontLoader-          , GHCJS.DOM.JSFFI.FormData as GHCJS.DOM.FormData+          , GHCJS.DOM.JSFFI.Generated.FontFace as GHCJS.DOM.FontFace+          , GHCJS.DOM.JSFFI.Generated.FontFaceSet as GHCJS.DOM.FontFaceSet+          , GHCJS.DOM.JSFFI.Generated.FormData as GHCJS.DOM.FormData           , GHCJS.DOM.JSFFI.Generated.GainNode as GHCJS.DOM.GainNode           , GHCJS.DOM.JSFFI.Generated.Gamepad as GHCJS.DOM.Gamepad           , GHCJS.DOM.JSFFI.Generated.GamepadButton as GHCJS.DOM.GamepadButton           , GHCJS.DOM.JSFFI.Generated.GamepadEvent as GHCJS.DOM.GamepadEvent           , GHCJS.DOM.JSFFI.Geolocation as GHCJS.DOM.Geolocation           , GHCJS.DOM.JSFFI.Generated.Geoposition as GHCJS.DOM.Geoposition+          , GHCJS.DOM.JSFFI.Generated.GlobalCrypto as GHCJS.DOM.GlobalCrypto+          , GHCJS.DOM.JSFFI.Generated.GlobalEventHandlers as GHCJS.DOM.GlobalEventHandlers+          , GHCJS.DOM.JSFFI.Generated.GlobalPerformance as GHCJS.DOM.GlobalPerformance           , GHCJS.DOM.JSFFI.Generated.HTMLAllCollection as GHCJS.DOM.HTMLAllCollection           , GHCJS.DOM.JSFFI.Generated.HTMLAnchorElement as GHCJS.DOM.HTMLAnchorElement           , GHCJS.DOM.JSFFI.Generated.HTMLAppletElement as GHCJS.DOM.HTMLAppletElement           , GHCJS.DOM.JSFFI.Generated.HTMLAreaElement as GHCJS.DOM.HTMLAreaElement+          , GHCJS.DOM.JSFFI.Generated.HTMLAttachmentElement as GHCJS.DOM.HTMLAttachmentElement           , GHCJS.DOM.JSFFI.Generated.HTMLBRElement as GHCJS.DOM.HTMLBRElement           , GHCJS.DOM.JSFFI.Generated.HTMLBaseElement as GHCJS.DOM.HTMLBaseElement-          , GHCJS.DOM.JSFFI.Generated.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.HTMLDataElement as GHCJS.DOM.HTMLDataElement           , GHCJS.DOM.JSFFI.Generated.HTMLDataListElement as GHCJS.DOM.HTMLDataListElement           , GHCJS.DOM.JSFFI.Generated.HTMLDetailsElement as GHCJS.DOM.HTMLDetailsElement           , GHCJS.DOM.JSFFI.Generated.HTMLDirectoryElement as GHCJS.DOM.HTMLDirectoryElement@@ -715,6 +771,7 @@           , GHCJS.DOM.JSFFI.Generated.HTMLHeadElement as GHCJS.DOM.HTMLHeadElement           , GHCJS.DOM.JSFFI.Generated.HTMLHeadingElement as GHCJS.DOM.HTMLHeadingElement           , GHCJS.DOM.JSFFI.Generated.HTMLHtmlElement as GHCJS.DOM.HTMLHtmlElement+          , GHCJS.DOM.JSFFI.Generated.HTMLHyperlinkElementUtils as GHCJS.DOM.HTMLHyperlinkElementUtils           , GHCJS.DOM.JSFFI.Generated.HTMLIFrameElement as GHCJS.DOM.HTMLIFrameElement           , GHCJS.DOM.JSFFI.Generated.HTMLImageElement as GHCJS.DOM.HTMLImageElement           , GHCJS.DOM.JSFFI.Generated.HTMLInputElement as GHCJS.DOM.HTMLInputElement@@ -743,6 +800,7 @@           , GHCJS.DOM.JSFFI.Generated.HTMLQuoteElement as GHCJS.DOM.HTMLQuoteElement           , GHCJS.DOM.JSFFI.Generated.HTMLScriptElement as GHCJS.DOM.HTMLScriptElement           , GHCJS.DOM.JSFFI.Generated.HTMLSelectElement as GHCJS.DOM.HTMLSelectElement+          , GHCJS.DOM.JSFFI.Generated.HTMLSlotElement as GHCJS.DOM.HTMLSlotElement           , GHCJS.DOM.JSFFI.Generated.HTMLSourceElement as GHCJS.DOM.HTMLSourceElement           , GHCJS.DOM.JSFFI.Generated.HTMLStyleElement as GHCJS.DOM.HTMLStyleElement           , GHCJS.DOM.JSFFI.Generated.HTMLTableCaptionElement as GHCJS.DOM.HTMLTableCaptionElement@@ -753,11 +811,13 @@           , GHCJS.DOM.JSFFI.Generated.HTMLTableSectionElement as GHCJS.DOM.HTMLTableSectionElement           , GHCJS.DOM.JSFFI.Generated.HTMLTemplateElement as GHCJS.DOM.HTMLTemplateElement           , GHCJS.DOM.JSFFI.Generated.HTMLTextAreaElement as GHCJS.DOM.HTMLTextAreaElement+          , GHCJS.DOM.JSFFI.Generated.HTMLTimeElement as GHCJS.DOM.HTMLTimeElement           , GHCJS.DOM.JSFFI.Generated.HTMLTitleElement as GHCJS.DOM.HTMLTitleElement           , GHCJS.DOM.JSFFI.Generated.HTMLTrackElement as GHCJS.DOM.HTMLTrackElement           , GHCJS.DOM.JSFFI.Generated.HTMLUListElement as GHCJS.DOM.HTMLUListElement           , GHCJS.DOM.JSFFI.Generated.HTMLVideoElement as GHCJS.DOM.HTMLVideoElement           , GHCJS.DOM.JSFFI.Generated.HashChangeEvent as GHCJS.DOM.HashChangeEvent+          , GHCJS.DOM.JSFFI.Generated.Headers as GHCJS.DOM.Headers           , GHCJS.DOM.JSFFI.Generated.History as GHCJS.DOM.History           , GHCJS.DOM.JSFFI.Generated.IDBCursor as GHCJS.DOM.IDBCursor           , GHCJS.DOM.JSFFI.Generated.IDBCursorWithValue as GHCJS.DOM.IDBCursorWithValue@@ -771,36 +831,38 @@           , GHCJS.DOM.JSFFI.Generated.IDBTransaction as GHCJS.DOM.IDBTransaction           , GHCJS.DOM.JSFFI.Generated.IDBVersionChangeEvent as GHCJS.DOM.IDBVersionChangeEvent           , GHCJS.DOM.JSFFI.Generated.ImageData as GHCJS.DOM.ImageData+          , GHCJS.DOM.JSFFI.Generated.InputEvent as GHCJS.DOM.InputEvent           , GHCJS.DOM.JSFFI.Generated.InspectorFrontendHost as GHCJS.DOM.InspectorFrontendHost-          , GHCJS.DOM.JSFFI.Generated.InternalSettings as GHCJS.DOM.InternalSettings-          , GHCJS.DOM.JSFFI.Generated.Internals as GHCJS.DOM.Internals+          , GHCJS.DOM.JSFFI.Generated.IntersectionObserver as GHCJS.DOM.IntersectionObserver+          , GHCJS.DOM.JSFFI.Generated.IntersectionObserverCallback as GHCJS.DOM.IntersectionObserverCallback+          , GHCJS.DOM.JSFFI.Generated.IntersectionObserverEntry as GHCJS.DOM.IntersectionObserverEntry           , GHCJS.DOM.JSFFI.Generated.KeyboardEvent as GHCJS.DOM.KeyboardEvent+          , GHCJS.DOM.JSFFI.Generated.KeyframeEffect as GHCJS.DOM.KeyframeEffect           , GHCJS.DOM.JSFFI.Generated.Location as GHCJS.DOM.Location-          , GHCJS.DOM.JSFFI.Generated.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.MediaDeviceInfo as GHCJS.DOM.MediaDeviceInfo+          , GHCJS.DOM.JSFFI.Generated.MediaDevices as GHCJS.DOM.MediaDevices           , GHCJS.DOM.JSFFI.Generated.MediaElementAudioSourceNode as GHCJS.DOM.MediaElementAudioSourceNode+          , GHCJS.DOM.JSFFI.Generated.MediaEncryptedEvent as GHCJS.DOM.MediaEncryptedEvent           , GHCJS.DOM.JSFFI.Generated.MediaError as GHCJS.DOM.MediaError-          , GHCJS.DOM.JSFFI.Generated.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.MediaKeyStatusMap as GHCJS.DOM.MediaKeyStatusMap+          , GHCJS.DOM.JSFFI.Generated.MediaKeySystemAccess as GHCJS.DOM.MediaKeySystemAccess           , GHCJS.DOM.JSFFI.Generated.MediaKeys as GHCJS.DOM.MediaKeys           , GHCJS.DOM.JSFFI.Generated.MediaList as GHCJS.DOM.MediaList           , GHCJS.DOM.JSFFI.Generated.MediaQueryList as GHCJS.DOM.MediaQueryList           , GHCJS.DOM.JSFFI.Generated.MediaQueryListListener as GHCJS.DOM.MediaQueryListListener+          , GHCJS.DOM.JSFFI.Generated.MediaRemoteControls as GHCJS.DOM.MediaRemoteControls+          , GHCJS.DOM.JSFFI.Generated.MediaSession as GHCJS.DOM.MediaSession           , GHCJS.DOM.JSFFI.Generated.MediaSource as GHCJS.DOM.MediaSource-          , GHCJS.DOM.JSFFI.Generated.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.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@@ -812,6 +874,10 @@           , GHCJS.DOM.JSFFI.Generated.MutationRecord as GHCJS.DOM.MutationRecord           , GHCJS.DOM.JSFFI.Generated.NamedNodeMap as GHCJS.DOM.NamedNodeMap           , GHCJS.DOM.JSFFI.Navigator as GHCJS.DOM.Navigator+          , GHCJS.DOM.JSFFI.Generated.NavigatorConcurrentHardware as GHCJS.DOM.NavigatorConcurrentHardware+          , GHCJS.DOM.JSFFI.Generated.NavigatorID as GHCJS.DOM.NavigatorID+          , GHCJS.DOM.JSFFI.Generated.NavigatorLanguage as GHCJS.DOM.NavigatorLanguage+          , GHCJS.DOM.JSFFI.Generated.NavigatorOnLine as GHCJS.DOM.NavigatorOnLine           , GHCJS.DOM.JSFFI.NavigatorUserMediaError as GHCJS.DOM.NavigatorUserMediaError           , GHCJS.DOM.JSFFI.Generated.NavigatorUserMediaErrorCallback as GHCJS.DOM.NavigatorUserMediaErrorCallback           , GHCJS.DOM.JSFFI.Generated.NavigatorUserMediaSuccessCallback as GHCJS.DOM.NavigatorUserMediaSuccessCallback@@ -819,6 +885,8 @@           , GHCJS.DOM.JSFFI.Generated.NodeFilter as GHCJS.DOM.NodeFilter           , GHCJS.DOM.JSFFI.Generated.NodeIterator as GHCJS.DOM.NodeIterator           , GHCJS.DOM.JSFFI.Generated.NodeList as GHCJS.DOM.NodeList+          , GHCJS.DOM.JSFFI.Generated.NonDocumentTypeChildNode as GHCJS.DOM.NonDocumentTypeChildNode+          , GHCJS.DOM.JSFFI.Generated.NonElementParentNode as GHCJS.DOM.NonElementParentNode           , GHCJS.DOM.JSFFI.Generated.Notification as GHCJS.DOM.Notification           , GHCJS.DOM.JSFFI.Generated.NotificationCenter as GHCJS.DOM.NotificationCenter           , GHCJS.DOM.JSFFI.Generated.NotificationPermissionCallback as GHCJS.DOM.NotificationPermissionCallback@@ -828,14 +896,19 @@           , GHCJS.DOM.JSFFI.Generated.OfflineAudioCompletionEvent as GHCJS.DOM.OfflineAudioCompletionEvent           , GHCJS.DOM.JSFFI.Generated.OfflineAudioContext as GHCJS.DOM.OfflineAudioContext           , GHCJS.DOM.JSFFI.Generated.OscillatorNode as GHCJS.DOM.OscillatorNode+          , GHCJS.DOM.JSFFI.Generated.OverconstrainedError as GHCJS.DOM.OverconstrainedError+          , GHCJS.DOM.JSFFI.Generated.OverconstrainedErrorEvent as GHCJS.DOM.OverconstrainedErrorEvent           , GHCJS.DOM.JSFFI.Generated.OverflowEvent as GHCJS.DOM.OverflowEvent           , GHCJS.DOM.JSFFI.Generated.PageTransitionEvent as GHCJS.DOM.PageTransitionEvent           , GHCJS.DOM.JSFFI.Generated.PannerNode as GHCJS.DOM.PannerNode+          , GHCJS.DOM.JSFFI.Generated.ParentNode as GHCJS.DOM.ParentNode           , GHCJS.DOM.JSFFI.Generated.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.PerformanceObserver as GHCJS.DOM.PerformanceObserver+          , GHCJS.DOM.JSFFI.Generated.PerformanceObserverCallback as GHCJS.DOM.PerformanceObserverCallback+          , GHCJS.DOM.JSFFI.Generated.PerformanceObserverEntryList as GHCJS.DOM.PerformanceObserverEntryList           , GHCJS.DOM.JSFFI.Generated.PerformanceResourceTiming as GHCJS.DOM.PerformanceResourceTiming           , GHCJS.DOM.JSFFI.Generated.PerformanceTiming as GHCJS.DOM.PerformanceTiming           , GHCJS.DOM.JSFFI.Generated.Plugin as GHCJS.DOM.Plugin@@ -848,27 +921,31 @@           , 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.RTCPeerConnection as GHCJS.DOM.RTCPeerConnection+          , GHCJS.DOM.JSFFI.Generated.RTCRtpReceiver as GHCJS.DOM.RTCRtpReceiver+          , GHCJS.DOM.JSFFI.Generated.RTCRtpSender as GHCJS.DOM.RTCRtpSender+          , GHCJS.DOM.JSFFI.Generated.RTCRtpTransceiver as GHCJS.DOM.RTCRtpTransceiver           , GHCJS.DOM.JSFFI.Generated.RTCSessionDescription as GHCJS.DOM.RTCSessionDescription-          , GHCJS.DOM.JSFFI.Generated.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.RTCTrackEvent as GHCJS.DOM.RTCTrackEvent           , GHCJS.DOM.JSFFI.Generated.RadioNodeList as GHCJS.DOM.RadioNodeList           , GHCJS.DOM.JSFFI.Generated.Range as GHCJS.DOM.Range+          , GHCJS.DOM.JSFFI.Generated.ReadableByteStreamController as GHCJS.DOM.ReadableByteStreamController           , GHCJS.DOM.JSFFI.Generated.ReadableStream as GHCJS.DOM.ReadableStream+          , GHCJS.DOM.JSFFI.Generated.ReadableStreamDefaultController as GHCJS.DOM.ReadableStreamDefaultController+          , GHCJS.DOM.JSFFI.Generated.ReadableStreamDefaultReader as GHCJS.DOM.ReadableStreamDefaultReader+          , GHCJS.DOM.JSFFI.Generated.ReadableStreamSource as GHCJS.DOM.ReadableStreamSource           , GHCJS.DOM.JSFFI.Generated.Rect as GHCJS.DOM.Rect+          , GHCJS.DOM.JSFFI.Generated.Request as GHCJS.DOM.Request           , GHCJS.DOM.JSFFI.Generated.RequestAnimationFrameCallback as GHCJS.DOM.RequestAnimationFrameCallback+          , GHCJS.DOM.JSFFI.Generated.Response as GHCJS.DOM.Response           , GHCJS.DOM.JSFFI.SQLError as GHCJS.DOM.SQLError+          , GHCJS.DOM.JSFFI.Generated.SQLException as GHCJS.DOM.SQLException           , GHCJS.DOM.JSFFI.Generated.SQLResultSet as GHCJS.DOM.SQLResultSet           , GHCJS.DOM.JSFFI.Generated.SQLResultSetRowList as GHCJS.DOM.SQLResultSetRowList           , GHCJS.DOM.JSFFI.Generated.SQLStatementCallback as GHCJS.DOM.SQLStatementCallback@@ -894,12 +971,11 @@           , 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.SVGException as GHCJS.DOM.SVGException           , GHCJS.DOM.JSFFI.Generated.SVGExternalResourcesRequired as GHCJS.DOM.SVGExternalResourcesRequired           , GHCJS.DOM.JSFFI.Generated.SVGFEBlendElement as GHCJS.DOM.SVGFEBlendElement           , GHCJS.DOM.JSFFI.Generated.SVGFEColorMatrixElement as GHCJS.DOM.SVGFEColorMatrixElement@@ -937,7 +1013,6 @@           , 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@@ -989,18 +1064,17 @@           , 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.ShadowRoot as GHCJS.DOM.ShadowRoot+          , GHCJS.DOM.JSFFI.Generated.Slotable as GHCJS.DOM.Slotable           , GHCJS.DOM.JSFFI.Generated.SourceBuffer as GHCJS.DOM.SourceBuffer           , GHCJS.DOM.JSFFI.Generated.SourceBufferList as GHCJS.DOM.SourceBufferList-          , GHCJS.DOM.JSFFI.Generated.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.StaticRange as GHCJS.DOM.StaticRange           , GHCJS.DOM.JSFFI.Generated.Storage as GHCJS.DOM.Storage           , GHCJS.DOM.JSFFI.Generated.StorageErrorCallback as GHCJS.DOM.StorageErrorCallback           , GHCJS.DOM.JSFFI.Generated.StorageEvent as GHCJS.DOM.StorageEvent@@ -1014,6 +1088,8 @@           , GHCJS.DOM.JSFFI.Generated.StyleSheetList as GHCJS.DOM.StyleSheetList           , GHCJS.DOM.JSFFI.Generated.SubtleCrypto as GHCJS.DOM.SubtleCrypto           , GHCJS.DOM.JSFFI.Generated.Text as GHCJS.DOM.Text+          , GHCJS.DOM.JSFFI.Generated.TextDecoder as GHCJS.DOM.TextDecoder+          , GHCJS.DOM.JSFFI.Generated.TextEncoder as GHCJS.DOM.TextEncoder           , GHCJS.DOM.JSFFI.Generated.TextEvent as GHCJS.DOM.TextEvent           , GHCJS.DOM.JSFFI.Generated.TextMetrics as GHCJS.DOM.TextMetrics           , GHCJS.DOM.JSFFI.Generated.TextTrack as GHCJS.DOM.TextTrack@@ -1027,18 +1103,15 @@           , 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.URLSearchParams as GHCJS.DOM.URLSearchParams           , GHCJS.DOM.JSFFI.Generated.UserMessageHandler as GHCJS.DOM.UserMessageHandler           , GHCJS.DOM.JSFFI.Generated.VTTCue as GHCJS.DOM.VTTCue           , GHCJS.DOM.JSFFI.Generated.VTTRegion as GHCJS.DOM.VTTRegion           , GHCJS.DOM.JSFFI.Generated.VTTRegionList as GHCJS.DOM.VTTRegionList           , GHCJS.DOM.JSFFI.Generated.ValidityState as GHCJS.DOM.ValidityState           , GHCJS.DOM.JSFFI.Generated.VideoPlaybackQuality as GHCJS.DOM.VideoPlaybackQuality-          , GHCJS.DOM.JSFFI.Generated.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@@ -1048,7 +1121,6 @@           , 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@@ -1058,30 +1130,36 @@           , 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.WebKitMediaKeyError as GHCJS.DOM.WebKitMediaKeyError+          , GHCJS.DOM.JSFFI.Generated.WebKitMediaKeyMessageEvent as GHCJS.DOM.WebKitMediaKeyMessageEvent+          , GHCJS.DOM.JSFFI.Generated.WebKitMediaKeyNeededEvent as GHCJS.DOM.WebKitMediaKeyNeededEvent+          , GHCJS.DOM.JSFFI.Generated.WebKitMediaKeySession as GHCJS.DOM.WebKitMediaKeySession+          , GHCJS.DOM.JSFFI.Generated.WebKitMediaKeys as GHCJS.DOM.WebKitMediaKeys           , GHCJS.DOM.JSFFI.Generated.WebKitNamedFlow as GHCJS.DOM.WebKitNamedFlow           , GHCJS.DOM.JSFFI.Generated.WebKitNamespace as GHCJS.DOM.WebKitNamespace           , GHCJS.DOM.JSFFI.Generated.WebKitPlaybackTargetAvailabilityEvent as GHCJS.DOM.WebKitPlaybackTargetAvailabilityEvent           , GHCJS.DOM.JSFFI.Generated.WebKitPoint as GHCJS.DOM.WebKitPoint+          , GHCJS.DOM.JSFFI.Generated.WebKitSubtleCrypto as GHCJS.DOM.WebKitSubtleCrypto           , GHCJS.DOM.JSFFI.Generated.WebKitTransitionEvent as GHCJS.DOM.WebKitTransitionEvent           , GHCJS.DOM.JSFFI.Generated.WebSocket as GHCJS.DOM.WebSocket           , GHCJS.DOM.JSFFI.Generated.WheelEvent as GHCJS.DOM.WheelEvent           , GHCJS.DOM.JSFFI.Window as GHCJS.DOM.Window-          , GHCJS.DOM.JSFFI.Generated.WindowBase64 as GHCJS.DOM.WindowBase64-          , GHCJS.DOM.JSFFI.Generated.WindowTimers as GHCJS.DOM.WindowTimers+          , GHCJS.DOM.JSFFI.Generated.WindowEventHandlers as GHCJS.DOM.WindowEventHandlers+          , GHCJS.DOM.JSFFI.Generated.WindowOrWorkerGlobalScope as GHCJS.DOM.WindowOrWorkerGlobalScope           , GHCJS.DOM.JSFFI.Generated.Worker as GHCJS.DOM.Worker           , GHCJS.DOM.JSFFI.Generated.WorkerGlobalScope as GHCJS.DOM.WorkerGlobalScope           , GHCJS.DOM.JSFFI.Generated.WorkerLocation as GHCJS.DOM.WorkerLocation           , GHCJS.DOM.JSFFI.Generated.WorkerNavigator as GHCJS.DOM.WorkerNavigator+          , GHCJS.DOM.JSFFI.Generated.WritableStream as GHCJS.DOM.WritableStream           , GHCJS.DOM.JSFFI.XMLHttpRequest as GHCJS.DOM.XMLHttpRequest+          , GHCJS.DOM.JSFFI.Generated.XMLHttpRequestEventTarget as GHCJS.DOM.XMLHttpRequestEventTarget           , GHCJS.DOM.JSFFI.Generated.XMLHttpRequestProgressEvent as GHCJS.DOM.XMLHttpRequestProgressEvent-          , GHCJS.DOM.JSFFI.Generated.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.XPathException as GHCJS.DOM.XPathException           , GHCJS.DOM.JSFFI.Generated.XPathExpression as GHCJS.DOM.XPathExpression           , GHCJS.DOM.JSFFI.Generated.XPathNSResolver as GHCJS.DOM.XPathNSResolver           , GHCJS.DOM.JSFFI.Generated.XPathResult as GHCJS.DOM.XPathResult
src/GHCJS/DOM/EventM.hs view
@@ -79,6 +79,7 @@ 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.KeyboardEvent as KeyboardEvent import qualified GHCJS.DOM.JSFFI.Generated.MouseEvent as MouseEvent import           GHCJS.DOM.JSFFI.Generated.EventTarget import           GHCJS.DOM.EventTargetClosures@@ -154,13 +155,13 @@ event :: EventM t e e event = ask -eventTarget :: IsEvent e => EventM t e (Maybe EventTarget)+eventTarget :: IsEvent e => EventM t e EventTarget eventTarget = event >>= Event.getTarget  target :: (IsEvent e, IsGObject t) => EventM t e (Maybe t)-target = eventTarget >>= mapM (liftJSM . fromJSValUnchecked . coerce)+target = eventTarget >>= liftJSM . fromJSValUnchecked . coerce -eventCurrentTarget :: IsEvent e => EventM t e (Maybe EventTarget)+eventCurrentTarget :: IsEvent e => EventM t e EventTarget eventCurrentTarget = event >>= Event.getCurrentTarget  eventPhase :: IsEvent e => EventM t e Word@@ -187,7 +188,7 @@ stopImmediatePropagation :: IsEvent e => EventM t e () stopImmediatePropagation = event >>= Event.stopImmediatePropagation -srcElement :: IsEvent e => EventM t e (Maybe EventTarget)+srcElement :: IsEvent e => EventM t e EventTarget srcElement = event >>= Event.getSrcElement  getCancelBubble :: IsEvent e => EventM t e Bool@@ -202,17 +203,17 @@ returnValue :: IsEvent e => Bool -> EventM t e () returnValue f = event >>= flip Event.setReturnValue f -uiView :: IsUIEvent e => EventM t e (Maybe Window)+uiView :: IsUIEvent e => EventM t e 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+uiKeyCode :: EventM t KeyboardEvent Word+uiKeyCode = event >>= KeyboardEvent.getKeyCode -uiCharCode :: IsUIEvent e => EventM t e Int-uiCharCode = event >>= UIEvent.getCharCode+uiCharCode :: EventM t KeyboardEvent Word+uiCharCode = event >>= KeyboardEvent.getCharCode  uiLayerX :: IsUIEvent e => EventM t e Int uiLayerX = event >>= UIEvent.getLayerX
src/GHCJS/DOM/JSFFI/Database.hs view
@@ -30,7 +30,7 @@ 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)+withSQLTransactionCallback f = bracket (newSQLTransactionCallbackSync f) (\(SQLTransactionCallback c) -> releaseCallback c)  foreign import javascript interruptible         "$1[\"changeVersion\"]($2, $3, $4, $c, function() { $c(null); });"
− src/GHCJS/DOM/JSFFI/FormData.hs 
@@ -1,55 +0,0 @@-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.JSFFI.FormData (-    module Generated-  , js_newFormData0-  , js_newFormData1-  , newFormData-  , js_append-  , js_append3-  , append-  , appendBlob-) where--import Control.Monad.IO.Class (MonadIO(..))--import GHCJS.Types (JSVal, JSString)-import GHCJS.Marshal.Pure (PToJSVal(..))-import GHCJS.DOM.Types--import GHCJS.DOM.JSFFI.Generated.FormData as Generated hiding (js_append, append, newFormData)---foreign import javascript unsafe "new window[\"FormData\"]()"-        js_newFormData0 :: IO FormData--foreign import javascript unsafe "new window[\"FormData\"]($1)"-        js_newFormData1 :: HTMLFormElement -> IO FormData---- | <https://developer.mozilla.org/en-US/docs/Web/API/FormData Mozilla FormData documentation>-newFormData :: (MonadIO m) => Maybe HTMLFormElement -> m FormData-newFormData = liftIO . maybe js_newFormData0 js_newFormData1---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
@@ -14,7 +14,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -23,6 +23,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -39,7 +40,7 @@                            ANGLEInstancedArrays -> Word -> Int -> Int -> Int -> m () drawArraysInstancedANGLE self mode first count primcount   = liftIO-      (js_drawArraysInstancedANGLE (self) mode first count primcount)+      (js_drawArraysInstancedANGLE self mode first count primcount)   foreign import javascript unsafe         "$1[\"drawElementsInstancedANGLE\"]($2,\n$3, $4, $5, $6)"@@ -53,7 +54,7 @@                              ANGLEInstancedArrays -> Word -> Int -> Word -> Int64 -> Int -> m () drawElementsInstancedANGLE self mode count type' offset primcount   = liftIO-      (js_drawElementsInstancedANGLE (self) mode count type'+      (js_drawElementsInstancedANGLE self mode count type'          (fromIntegral offset)          primcount)  @@ -66,5 +67,5 @@ vertexAttribDivisorANGLE ::                          (MonadIO m) => ANGLEInstancedArrays -> Word -> Word -> m () vertexAttribDivisorANGLE self index divisor-  = liftIO (js_vertexAttribDivisorANGLE (self) index divisor)+  = liftIO (js_vertexAttribDivisorANGLE self index divisor) pattern VERTEX_ATTRIB_ARRAY_DIVISOR_ANGLE = 35070
− src/GHCJS/DOM/JSFFI/Generated/AbstractView.hs 
@@ -1,72 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility-{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}-module GHCJS.DOM.JSFFI.Generated.AbstractView-       (js_getDocument, getDocument, getDocumentUnsafe,-        getDocumentUnchecked, js_getStyleMedia, getStyleMedia,-        getStyleMediaUnsafe, getStyleMediaUnchecked, AbstractView(..),-        gTypeAbstractView)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)-import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))-import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AbstractView.document Mozilla AbstractView.document documentation> -getDocumentUnsafe ::-                  (MonadIO m, HasCallStack) => AbstractView -> m Document-getDocumentUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getDocument (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AbstractView.document Mozilla AbstractView.document documentation> -getDocumentUnchecked :: (MonadIO m) => AbstractView -> m Document-getDocumentUnchecked self-  = liftIO (fromJust . 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AbstractView.styleMedia Mozilla AbstractView.styleMedia documentation> -getStyleMediaUnsafe ::-                    (MonadIO m, HasCallStack) => AbstractView -> m StyleMedia-getStyleMediaUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getStyleMedia (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AbstractView.styleMedia Mozilla AbstractView.styleMedia documentation> -getStyleMediaUnchecked ::-                       (MonadIO m) => AbstractView -> m StyleMedia-getStyleMediaUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getStyleMedia (self)))
src/GHCJS/DOM/JSFFI/Generated/AbstractWorker.hs view
@@ -4,12 +4,14 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.AbstractWorker-       (error, AbstractWorker(..), gTypeAbstractWorker) where+       (error, AbstractWorker(..), gTypeAbstractWorker, IsAbstractWorker,+        toAbstractWorker)+       where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -18,11 +20,14 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) 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 ::+      (IsAbstractWorker self, IsEventTarget self) =>+        EventName self UIEvent error = unsafeEventName (toJSString "error")
− src/GHCJS/DOM/JSFFI/Generated/AllAudioCapabilities.hs 
@@ -1,60 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility-{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}-module GHCJS.DOM.JSFFI.Generated.AllAudioCapabilities-       (js_getSourceId, getSourceId, js_getVolume, getVolume,-        getVolumeUnsafe, getVolumeUnchecked, AllAudioCapabilities(..),-        gTypeAllAudioCapabilities)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)-import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))-import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AllAudioCapabilities.volume Mozilla AllAudioCapabilities.volume documentation> -getVolumeUnsafe ::-                (MonadIO m, HasCallStack) =>-                  AllAudioCapabilities -> m CapabilityRange-getVolumeUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getVolume (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AllAudioCapabilities.volume Mozilla AllAudioCapabilities.volume documentation> -getVolumeUnchecked ::-                   (MonadIO m) => AllAudioCapabilities -> m CapabilityRange-getVolumeUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getVolume (self)))
− src/GHCJS/DOM/JSFFI/Generated/AllVideoCapabilities.hs 
@@ -1,158 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility-{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}-module GHCJS.DOM.JSFFI.Generated.AllVideoCapabilities-       (js_getSourceType, getSourceType, js_getSourceId, getSourceId,-        js_getWidth, getWidth, getWidthUnsafe, getWidthUnchecked,-        js_getHeight, getHeight, getHeightUnsafe, getHeightUnchecked,-        js_getFrameRate, getFrameRate, getFrameRateUnsafe,-        getFrameRateUnchecked, js_getAspectRatio, getAspectRatio,-        getAspectRatioUnsafe, getAspectRatioUnchecked, js_getFacingMode,-        getFacingMode, AllVideoCapabilities(..), gTypeAllVideoCapabilities)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)-import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))-import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AllVideoCapabilities.width Mozilla AllVideoCapabilities.width documentation> -getWidthUnsafe ::-               (MonadIO m, HasCallStack) =>-                 AllVideoCapabilities -> m CapabilityRange-getWidthUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getWidth (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AllVideoCapabilities.width Mozilla AllVideoCapabilities.width documentation> -getWidthUnchecked ::-                  (MonadIO m) => AllVideoCapabilities -> m CapabilityRange-getWidthUnchecked self-  = liftIO (fromJust . 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AllVideoCapabilities.height Mozilla AllVideoCapabilities.height documentation> -getHeightUnsafe ::-                (MonadIO m, HasCallStack) =>-                  AllVideoCapabilities -> m CapabilityRange-getHeightUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getHeight (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AllVideoCapabilities.height Mozilla AllVideoCapabilities.height documentation> -getHeightUnchecked ::-                   (MonadIO m) => AllVideoCapabilities -> m CapabilityRange-getHeightUnchecked self-  = liftIO (fromJust . 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AllVideoCapabilities.frameRate Mozilla AllVideoCapabilities.frameRate documentation> -getFrameRateUnsafe ::-                   (MonadIO m, HasCallStack) =>-                     AllVideoCapabilities -> m CapabilityRange-getFrameRateUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getFrameRate (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AllVideoCapabilities.frameRate Mozilla AllVideoCapabilities.frameRate documentation> -getFrameRateUnchecked ::-                      (MonadIO m) => AllVideoCapabilities -> m CapabilityRange-getFrameRateUnchecked self-  = liftIO (fromJust . 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AllVideoCapabilities.aspectRatio Mozilla AllVideoCapabilities.aspectRatio documentation> -getAspectRatioUnsafe ::-                     (MonadIO m, HasCallStack) =>-                       AllVideoCapabilities -> m CapabilityRange-getAspectRatioUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getAspectRatio (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AllVideoCapabilities.aspectRatio Mozilla AllVideoCapabilities.aspectRatio documentation> -getAspectRatioUnchecked ::-                        (MonadIO m) => AllVideoCapabilities -> m CapabilityRange-getAspectRatioUnchecked self-  = liftIO-      (fromJust . 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
@@ -19,7 +19,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -28,6 +28,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -35,7 +36,7 @@   foreign import javascript unsafe         "$1[\"getFloatFrequencyData\"]($2)" js_getFloatFrequencyData ::-        AnalyserNode -> Nullable Float32Array -> IO ()+        AnalyserNode -> Optional Float32Array -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AnalyserNode.getFloatFrequencyData Mozilla AnalyserNode.getFloatFrequencyData documentation>  getFloatFrequencyData ::@@ -43,12 +44,12 @@                         AnalyserNode -> Maybe array -> m () getFloatFrequencyData self array   = liftIO-      (js_getFloatFrequencyData (self)-         (maybeToNullable (fmap toFloat32Array array)))+      (js_getFloatFrequencyData self+         (maybeToOptional (fmap toFloat32Array array)))   foreign import javascript unsafe "$1[\"getByteFrequencyData\"]($2)"         js_getByteFrequencyData ::-        AnalyserNode -> Nullable Uint8Array -> IO ()+        AnalyserNode -> Optional Uint8Array -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AnalyserNode.getByteFrequencyData Mozilla AnalyserNode.getByteFrequencyData documentation>  getByteFrequencyData ::@@ -56,12 +57,12 @@                        AnalyserNode -> Maybe array -> m () getByteFrequencyData self array   = liftIO-      (js_getByteFrequencyData (self)-         (maybeToNullable (fmap toUint8Array array)))+      (js_getByteFrequencyData self+         (maybeToOptional (fmap toUint8Array array)))   foreign import javascript unsafe         "$1[\"getByteTimeDomainData\"]($2)" js_getByteTimeDomainData ::-        AnalyserNode -> Nullable Uint8Array -> IO ()+        AnalyserNode -> Optional Uint8Array -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AnalyserNode.getByteTimeDomainData Mozilla AnalyserNode.getByteTimeDomainData documentation>  getByteTimeDomainData ::@@ -69,57 +70,57 @@                         AnalyserNode -> Maybe array -> m () getByteTimeDomainData self array   = liftIO-      (js_getByteTimeDomainData (self)-         (maybeToNullable (fmap toUint8Array array)))+      (js_getByteTimeDomainData self+         (maybeToOptional (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)+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))+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))+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)+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))+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)+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))+getMaxDecibels self = liftIO (js_getMaxDecibels self)   foreign import javascript unsafe         "$1[\"smoothingTimeConstant\"] = $2;" js_setSmoothingTimeConstant@@ -129,7 +130,7 @@ setSmoothingTimeConstant ::                          (MonadIO m) => AnalyserNode -> Double -> m () setSmoothingTimeConstant self val-  = liftIO (js_setSmoothingTimeConstant (self) val)+  = liftIO (js_setSmoothingTimeConstant self val)   foreign import javascript unsafe "$1[\"smoothingTimeConstant\"]"         js_getSmoothingTimeConstant :: AnalyserNode -> IO Double@@ -137,4 +138,4 @@ -- | <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))+  = liftIO (js_getSmoothingTimeConstant self)
+ src/GHCJS/DOM/JSFFI/Generated/Animatable.hs view
@@ -0,0 +1,42 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+module GHCJS.DOM.JSFFI.Generated.Animatable+       (js_getAnimations, getAnimations, getAnimations_, Animatable(..),+        gTypeAnimatable, IsAnimatable, toAnimatable)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error)+import Data.Typeable (Typeable)+import GHCJS.Types (JSVal(..), JSString)+import GHCJS.Foreign (jsNull, jsUndefined)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Control.Monad (void)+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import Data.Maybe (fromJust)+import Data.Traversable (mapM)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"getAnimations\"]()"+        js_getAnimations :: Animatable -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Animatable.getAnimations Mozilla Animatable.getAnimations documentation> +getAnimations ::+              (MonadIO m, IsAnimatable self) => self -> m [Animation]+getAnimations self+  = liftIO+      ((js_getAnimations (toAnimatable self)) >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Animatable.getAnimations Mozilla Animatable.getAnimations documentation> +getAnimations_ :: (MonadIO m, IsAnimatable self) => self -> m ()+getAnimations_ self+  = liftIO (void (js_getAnimations (toAnimatable self)))
+ src/GHCJS/DOM/JSFFI/Generated/Animation.hs view
@@ -0,0 +1,87 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+module GHCJS.DOM.JSFFI.Generated.Animation+       (js_newAnimation, newAnimation, js_getEffect, getEffect,+        getEffectUnsafe, getEffectUnchecked, js_getTimeline, getTimeline,+        getTimelineUnsafe, getTimelineUnchecked, Animation(..),+        gTypeAnimation)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error)+import Data.Typeable (Typeable)+import GHCJS.Types (JSVal(..), JSString)+import GHCJS.Foreign (jsNull, jsUndefined)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Control.Monad (void)+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import Data.Maybe (fromJust)+import Data.Traversable (mapM)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.JSFFI.Generated.Enums+ +foreign import javascript unsafe+        "new window[\"Animation\"]($1, $2)" js_newAnimation ::+        Optional AnimationEffect ->+          Optional AnimationTimeline -> IO Animation++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Animation Mozilla Animation documentation> +newAnimation ::+             (MonadIO m, IsAnimationEffect effect,+              IsAnimationTimeline timeline) =>+               Maybe effect -> Maybe timeline -> m Animation+newAnimation effect timeline+  = liftIO+      (js_newAnimation (maybeToOptional (fmap toAnimationEffect effect))+         (maybeToOptional (fmap toAnimationTimeline timeline)))+ +foreign import javascript unsafe "$1[\"effect\"]" js_getEffect ::+        Animation -> IO (Nullable AnimationEffect)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Animation.effect Mozilla Animation.effect documentation> +getEffect :: (MonadIO m) => Animation -> m (Maybe AnimationEffect)+getEffect self = liftIO (nullableToMaybe <$> (js_getEffect self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Animation.effect Mozilla Animation.effect documentation> +getEffectUnsafe ::+                (MonadIO m, HasCallStack) => Animation -> m AnimationEffect+getEffectUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getEffect self)) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Animation.effect Mozilla Animation.effect documentation> +getEffectUnchecked :: (MonadIO m) => Animation -> m AnimationEffect+getEffectUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getEffect self))+ +foreign import javascript unsafe "$1[\"timeline\"]" js_getTimeline+        :: Animation -> IO (Nullable AnimationTimeline)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Animation.timeline Mozilla Animation.timeline documentation> +getTimeline ::+            (MonadIO m) => Animation -> m (Maybe AnimationTimeline)+getTimeline self+  = liftIO (nullableToMaybe <$> (js_getTimeline self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Animation.timeline Mozilla Animation.timeline documentation> +getTimelineUnsafe ::+                  (MonadIO m, HasCallStack) => Animation -> m AnimationTimeline+getTimelineUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getTimeline self)) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Animation.timeline Mozilla Animation.timeline documentation> +getTimelineUnchecked ::+                     (MonadIO m) => Animation -> m AnimationTimeline+getTimelineUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getTimeline self))
src/GHCJS/DOM/JSFFI/Generated/AnimationEvent.hs view
@@ -4,14 +4,15 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.AnimationEvent-       (js_getAnimationName, getAnimationName, js_getElapsedTime,-        getElapsedTime, AnimationEvent(..), gTypeAnimationEvent)+       (js_newAnimationEvent, newAnimationEvent, js_getAnimationName,+        getAnimationName, js_getElapsedTime, getElapsedTime,+        AnimationEvent(..), gTypeAnimationEvent)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -20,11 +21,25 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums  +foreign import javascript unsafe+        "new window[\"AnimationEvent\"]($1,\n$2)" js_newAnimationEvent ::+        JSString -> Optional AnimationEventInit -> IO AnimationEvent++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AnimationEvent Mozilla AnimationEvent documentation> +newAnimationEvent ::+                  (MonadIO m, ToJSString type') =>+                    type' -> Maybe AnimationEventInit -> m AnimationEvent+newAnimationEvent type' animationEventInitDict+  = liftIO+      (js_newAnimationEvent (toJSString type')+         (maybeToOptional animationEventInitDict))+  foreign import javascript unsafe "$1[\"animationName\"]"         js_getAnimationName :: AnimationEvent -> IO JSString @@ -32,11 +47,11 @@ getAnimationName ::                  (MonadIO m, FromJSString result) => AnimationEvent -> m result getAnimationName self-  = liftIO (fromJSString <$> (js_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))+getElapsedTime self = liftIO (js_getElapsedTime self)
+ src/GHCJS/DOM/JSFFI/Generated/ApplePayPaymentAuthorizedEvent.hs view
@@ -0,0 +1,35 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+module GHCJS.DOM.JSFFI.Generated.ApplePayPaymentAuthorizedEvent+       (js_getPayment, getPayment, ApplePayPaymentAuthorizedEvent(..),+        gTypeApplePayPaymentAuthorizedEvent)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error)+import Data.Typeable (Typeable)+import GHCJS.Types (JSVal(..), JSString)+import GHCJS.Foreign (jsNull, jsUndefined)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Control.Monad (void)+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import Data.Maybe (fromJust)+import Data.Traversable (mapM)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"payment\"]" js_getPayment ::+        ApplePayPaymentAuthorizedEvent -> IO ApplePayPayment++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePayPaymentAuthorizedEvent.payment Mozilla ApplePayPaymentAuthorizedEvent.payment documentation> +getPayment ::+           (MonadIO m) => ApplePayPaymentAuthorizedEvent -> m ApplePayPayment+getPayment self = liftIO (js_getPayment self)
+ src/GHCJS/DOM/JSFFI/Generated/ApplePayPaymentMethodSelectedEvent.hs view
@@ -0,0 +1,38 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+module GHCJS.DOM.JSFFI.Generated.ApplePayPaymentMethodSelectedEvent+       (js_getPaymentMethod, getPaymentMethod,+        ApplePayPaymentMethodSelectedEvent(..),+        gTypeApplePayPaymentMethodSelectedEvent)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error)+import Data.Typeable (Typeable)+import GHCJS.Types (JSVal(..), JSString)+import GHCJS.Foreign (jsNull, jsUndefined)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Control.Monad (void)+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import Data.Maybe (fromJust)+import Data.Traversable (mapM)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"paymentMethod\"]"+        js_getPaymentMethod ::+        ApplePayPaymentMethodSelectedEvent -> IO ApplePayPaymentMethod++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePayPaymentMethodSelectedEvent.paymentMethod Mozilla ApplePayPaymentMethodSelectedEvent.paymentMethod documentation> +getPaymentMethod ::+                 (MonadIO m) =>+                   ApplePayPaymentMethodSelectedEvent -> m ApplePayPaymentMethod+getPaymentMethod self = liftIO (js_getPaymentMethod self)
+ src/GHCJS/DOM/JSFFI/Generated/ApplePaySession.hs view
@@ -0,0 +1,257 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+module GHCJS.DOM.JSFFI.Generated.ApplePaySession+       (js_newApplePaySession, newApplePaySession, js_supportsVersion,+        supportsVersion, supportsVersion_, js_canMakePayments,+        canMakePayments, canMakePayments_,+        js_canMakePaymentsWithActiveCard, canMakePaymentsWithActiveCard,+        canMakePaymentsWithActiveCard_, js_openPaymentSetup,+        openPaymentSetup, openPaymentSetup_, js_begin, begin, js_abort,+        abort, js_completeMerchantValidation, completeMerchantValidation,+        js_completeShippingMethodSelection,+        completeShippingMethodSelection,+        js_completeShippingContactSelection,+        completeShippingContactSelection,+        js_completePaymentMethodSelection, completePaymentMethodSelection,+        js_completePayment, completePayment, pattern STATUS_SUCCESS,+        pattern STATUS_FAILURE,+        pattern STATUS_INVALID_BILLING_POSTAL_ADDRESS,+        pattern STATUS_INVALID_SHIPPING_POSTAL_ADDRESS,+        pattern STATUS_INVALID_SHIPPING_CONTACT,+        pattern STATUS_PIN_REQUIRED, pattern STATUS_PIN_INCORRECT,+        pattern STATUS_PIN_LOCKOUT, validatemerchant,+        paymentmethodselected, paymentauthorized, shippingmethodselected,+        shippingcontactselected, cancel, ApplePaySession(..),+        gTypeApplePaySession)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error)+import Data.Typeable (Typeable)+import GHCJS.Types (JSVal(..), JSString)+import GHCJS.Foreign (jsNull, jsUndefined)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Control.Monad (void)+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import Data.Maybe (fromJust)+import Data.Traversable (mapM)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.JSFFI.Generated.Enums+ +foreign import javascript unsafe+        "new window[\"ApplePaySession\"]($1,\n$2)" js_newApplePaySession ::+        Word -> ApplePayPaymentRequest -> IO ApplePaySession++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePaySession Mozilla ApplePaySession documentation> +newApplePaySession ::+                   (MonadIO m) => Word -> ApplePayPaymentRequest -> m ApplePaySession+newApplePaySession version paymentRequest+  = liftIO (js_newApplePaySession version paymentRequest)+ +foreign import javascript unsafe+        "($1[\"supportsVersion\"]($2) ? 1 : 0)" js_supportsVersion ::+        ApplePaySession -> Word -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePaySession.supportsVersion Mozilla ApplePaySession.supportsVersion documentation> +supportsVersion :: (MonadIO m) => ApplePaySession -> Word -> m Bool+supportsVersion self version+  = liftIO (js_supportsVersion self version)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePaySession.supportsVersion Mozilla ApplePaySession.supportsVersion documentation> +supportsVersion_ :: (MonadIO m) => ApplePaySession -> Word -> m ()+supportsVersion_ self version+  = liftIO (void (js_supportsVersion self version))+ +foreign import javascript unsafe+        "($1[\"canMakePayments\"]() ? 1 : 0)" js_canMakePayments ::+        ApplePaySession -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePaySession.canMakePayments Mozilla ApplePaySession.canMakePayments documentation> +canMakePayments :: (MonadIO m) => ApplePaySession -> m Bool+canMakePayments self = liftIO (js_canMakePayments self)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePaySession.canMakePayments Mozilla ApplePaySession.canMakePayments documentation> +canMakePayments_ :: (MonadIO m) => ApplePaySession -> m ()+canMakePayments_ self = liftIO (void (js_canMakePayments self))+ +foreign import javascript interruptible+        "$1[\"canMakePaymentsWithActiveCard\"]($2).\nthen($c);"+        js_canMakePaymentsWithActiveCard ::+        ApplePaySession -> JSString -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePaySession.canMakePaymentsWithActiveCard Mozilla ApplePaySession.canMakePaymentsWithActiveCard documentation> +canMakePaymentsWithActiveCard ::+                              (MonadIO m, ToJSString merchantIdentifier) =>+                                ApplePaySession -> merchantIdentifier -> m Bool+canMakePaymentsWithActiveCard self merchantIdentifier+  = liftIO+      (js_canMakePaymentsWithActiveCard self+         (toJSString merchantIdentifier))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePaySession.canMakePaymentsWithActiveCard Mozilla ApplePaySession.canMakePaymentsWithActiveCard documentation> +canMakePaymentsWithActiveCard_ ::+                               (MonadIO m, ToJSString merchantIdentifier) =>+                                 ApplePaySession -> merchantIdentifier -> m ()+canMakePaymentsWithActiveCard_ self merchantIdentifier+  = liftIO+      (void+         (js_canMakePaymentsWithActiveCard self+            (toJSString merchantIdentifier)))+ +foreign import javascript interruptible+        "$1[\"openPaymentSetup\"]($2).\nthen($c);" js_openPaymentSetup ::+        ApplePaySession -> JSString -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePaySession.openPaymentSetup Mozilla ApplePaySession.openPaymentSetup documentation> +openPaymentSetup ::+                 (MonadIO m, ToJSString merchantIdentifier) =>+                   ApplePaySession -> merchantIdentifier -> m Bool+openPaymentSetup self merchantIdentifier+  = liftIO (js_openPaymentSetup self (toJSString merchantIdentifier))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePaySession.openPaymentSetup Mozilla ApplePaySession.openPaymentSetup documentation> +openPaymentSetup_ ::+                  (MonadIO m, ToJSString merchantIdentifier) =>+                    ApplePaySession -> merchantIdentifier -> m ()+openPaymentSetup_ self merchantIdentifier+  = liftIO+      (void (js_openPaymentSetup self (toJSString merchantIdentifier)))+ +foreign import javascript unsafe "$1[\"begin\"]()" js_begin ::+        ApplePaySession -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePaySession.begin Mozilla ApplePaySession.begin documentation> +begin :: (MonadIO m) => ApplePaySession -> m ()+begin self = liftIO (js_begin self)+ +foreign import javascript unsafe "$1[\"abort\"]()" js_abort ::+        ApplePaySession -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePaySession.abort Mozilla ApplePaySession.abort documentation> +abort :: (MonadIO m) => ApplePaySession -> m ()+abort self = liftIO (js_abort self)+ +foreign import javascript unsafe+        "$1[\"completeMerchantValidation\"]($2)"+        js_completeMerchantValidation :: ApplePaySession -> JSVal -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePaySession.completeMerchantValidation Mozilla ApplePaySession.completeMerchantValidation documentation> +completeMerchantValidation ::+                           (MonadIO m, ToJSVal merchantSession) =>+                             ApplePaySession -> merchantSession -> m ()+completeMerchantValidation self merchantSession+  = liftIO+      (toJSVal merchantSession >>=+         \ merchantSession' ->+           js_completeMerchantValidation self merchantSession')+ +foreign import javascript unsafe+        "$1[\"completeShippingMethodSelection\"]($2,\n$3, $4)"+        js_completeShippingMethodSelection ::+        ApplePaySession -> Word -> ApplePayLineItem -> JSVal -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePaySession.completeShippingMethodSelection Mozilla ApplePaySession.completeShippingMethodSelection documentation> +completeShippingMethodSelection ::+                                (MonadIO m) =>+                                  ApplePaySession ->+                                    Word -> ApplePayLineItem -> [ApplePayLineItem] -> m ()+completeShippingMethodSelection self status newTotal newLineItems+  = liftIO+      (toJSVal newLineItems >>=+         \ newLineItems' ->+           js_completeShippingMethodSelection self status newTotal+             newLineItems')+ +foreign import javascript unsafe+        "$1[\"completeShippingContactSelection\"]($2,\n$3, $4, $5)"+        js_completeShippingContactSelection ::+        ApplePaySession ->+          Word -> JSVal -> ApplePayLineItem -> JSVal -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePaySession.completeShippingContactSelection Mozilla ApplePaySession.completeShippingContactSelection documentation> +completeShippingContactSelection ::+                                 (MonadIO m) =>+                                   ApplePaySession ->+                                     Word ->+                                       [ApplePayShippingMethod] ->+                                         ApplePayLineItem -> [ApplePayLineItem] -> m ()+completeShippingContactSelection self status newShippingMethods+  newTotal newLineItems+  = liftIO+      (toJSVal newLineItems >>=+         \ newLineItems' ->+           toJSVal newShippingMethods >>=+             \ newShippingMethods' ->+               js_completeShippingContactSelection self status newShippingMethods'+             newTotal+             newLineItems')+ +foreign import javascript unsafe+        "$1[\"completePaymentMethodSelection\"]($2,\n$3)"+        js_completePaymentMethodSelection ::+        ApplePaySession -> ApplePayLineItem -> JSVal -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePaySession.completePaymentMethodSelection Mozilla ApplePaySession.completePaymentMethodSelection documentation> +completePaymentMethodSelection ::+                               (MonadIO m) =>+                                 ApplePaySession -> ApplePayLineItem -> [ApplePayLineItem] -> m ()+completePaymentMethodSelection self newTotal newLineItems+  = liftIO+      (toJSVal newLineItems >>=+         \ newLineItems' ->+           js_completePaymentMethodSelection self newTotal newLineItems')+ +foreign import javascript unsafe "$1[\"completePayment\"]($2)"+        js_completePayment :: ApplePaySession -> Word -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePaySession.completePayment Mozilla ApplePaySession.completePayment documentation> +completePayment :: (MonadIO m) => ApplePaySession -> Word -> m ()+completePayment self status+  = liftIO (js_completePayment self status)+pattern STATUS_SUCCESS = 0+pattern STATUS_FAILURE = 1+pattern STATUS_INVALID_BILLING_POSTAL_ADDRESS = 2+pattern STATUS_INVALID_SHIPPING_POSTAL_ADDRESS = 3+pattern STATUS_INVALID_SHIPPING_CONTACT = 4+pattern STATUS_PIN_REQUIRED = 5+pattern STATUS_PIN_INCORRECT = 6+pattern STATUS_PIN_LOCKOUT = 7++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePaySession.onvalidatemerchant Mozilla ApplePaySession.onvalidatemerchant documentation> +validatemerchant :: EventName ApplePaySession onvalidatemerchant+validatemerchant = unsafeEventName (toJSString "validatemerchant")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePaySession.onpaymentmethodselected Mozilla ApplePaySession.onpaymentmethodselected documentation> +paymentmethodselected ::+                        EventName ApplePaySession onpaymentmethodselected+paymentmethodselected+  = unsafeEventName (toJSString "paymentmethodselected")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePaySession.onpaymentauthorized Mozilla ApplePaySession.onpaymentauthorized documentation> +paymentauthorized :: EventName ApplePaySession onpaymentauthorized+paymentauthorized+  = unsafeEventName (toJSString "paymentauthorized")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePaySession.onshippingmethodselected Mozilla ApplePaySession.onshippingmethodselected documentation> +shippingmethodselected ::+                         EventName ApplePaySession onshippingmethodselected+shippingmethodselected+  = unsafeEventName (toJSString "shippingmethodselected")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePaySession.onshippingcontactselected Mozilla ApplePaySession.onshippingcontactselected documentation> +shippingcontactselected ::+                          EventName ApplePaySession onshippingcontactselected+shippingcontactselected+  = unsafeEventName (toJSString "shippingcontactselected")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePaySession.oncancel Mozilla ApplePaySession.oncancel documentation> +cancel :: EventName ApplePaySession oncancel+cancel = unsafeEventName (toJSString "cancel")
+ src/GHCJS/DOM/JSFFI/Generated/ApplePayShippingContactSelectedEvent.hs view
@@ -0,0 +1,38 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+module GHCJS.DOM.JSFFI.Generated.ApplePayShippingContactSelectedEvent+       (js_getShippingContact, getShippingContact,+        ApplePayShippingContactSelectedEvent(..),+        gTypeApplePayShippingContactSelectedEvent)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error)+import Data.Typeable (Typeable)+import GHCJS.Types (JSVal(..), JSString)+import GHCJS.Foreign (jsNull, jsUndefined)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Control.Monad (void)+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import Data.Maybe (fromJust)+import Data.Traversable (mapM)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"shippingContact\"]"+        js_getShippingContact ::+        ApplePayShippingContactSelectedEvent -> IO ApplePayPaymentContact++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePayShippingContactSelectedEvent.shippingContact Mozilla ApplePayShippingContactSelectedEvent.shippingContact documentation> +getShippingContact ::+                   (MonadIO m) =>+                     ApplePayShippingContactSelectedEvent -> m ApplePayPaymentContact+getShippingContact self = liftIO (js_getShippingContact self)
+ src/GHCJS/DOM/JSFFI/Generated/ApplePayShippingMethodSelectedEvent.hs view
@@ -0,0 +1,38 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+module GHCJS.DOM.JSFFI.Generated.ApplePayShippingMethodSelectedEvent+       (js_getShippingMethod, getShippingMethod,+        ApplePayShippingMethodSelectedEvent(..),+        gTypeApplePayShippingMethodSelectedEvent)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error)+import Data.Typeable (Typeable)+import GHCJS.Types (JSVal(..), JSString)+import GHCJS.Foreign (jsNull, jsUndefined)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Control.Monad (void)+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import Data.Maybe (fromJust)+import Data.Traversable (mapM)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"shippingMethod\"]"+        js_getShippingMethod ::+        ApplePayShippingMethodSelectedEvent -> IO ApplePayShippingMethod++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePayShippingMethodSelectedEvent.shippingMethod Mozilla ApplePayShippingMethodSelectedEvent.shippingMethod documentation> +getShippingMethod ::+                  (MonadIO m) =>+                    ApplePayShippingMethodSelectedEvent -> m ApplePayShippingMethod+getShippingMethod self = liftIO (js_getShippingMethod self)
+ src/GHCJS/DOM/JSFFI/Generated/ApplePayValidateMerchantEvent.hs view
@@ -0,0 +1,38 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+module GHCJS.DOM.JSFFI.Generated.ApplePayValidateMerchantEvent+       (js_getValidationURL, getValidationURL,+        ApplePayValidateMerchantEvent(..),+        gTypeApplePayValidateMerchantEvent)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error)+import Data.Typeable (Typeable)+import GHCJS.Types (JSVal(..), JSString)+import GHCJS.Foreign (jsNull, jsUndefined)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Control.Monad (void)+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import Data.Maybe (fromJust)+import Data.Traversable (mapM)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"validationURL\"]"+        js_getValidationURL :: ApplePayValidateMerchantEvent -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePayValidateMerchantEvent.validationURL Mozilla ApplePayValidateMerchantEvent.validationURL documentation> +getValidationURL ::+                 (MonadIO m, FromJSString result) =>+                   ApplePayValidateMerchantEvent -> m result+getValidationURL self+  = liftIO (fromJSString <$> (js_getValidationURL self))
src/GHCJS/DOM/JSFFI/Generated/ApplicationCache.hs view
@@ -15,7 +15,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -24,6 +24,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -34,21 +35,21 @@  -- | <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))+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))+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))+abort self = liftIO (js_abort self) pattern UNCACHED = 0 pattern IDLE = 1 pattern CHECKING = 2@@ -61,7 +62,7 @@  -- | <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))+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
src/GHCJS/DOM/JSFFI/Generated/Attr.hs view
@@ -6,15 +6,16 @@ module GHCJS.DOM.JSFFI.Generated.Attr        (js_getName, getName, getNameUnsafe, getNameUnchecked,         js_getSpecified, getSpecified, js_setValue, setValue, js_getValue,-        getValue, getValueUnsafe, getValueUnchecked, js_getOwnerElement,-        getOwnerElement, getOwnerElementUnsafe, getOwnerElementUnchecked,-        js_getIsId, getIsId, Attr(..), gTypeAttr)+        getValue, js_getOwnerElement, getOwnerElement, js_getNamespaceURI,+        getNamespaceURI, getNamespaceURIUnsafe, getNamespaceURIUnchecked,+        js_getPrefix, getPrefix, getPrefixUnsafe, getPrefixUnchecked,+        js_getLocalName, getLocalName, Attr(..), gTypeAttr)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -23,6 +24,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -34,85 +36,101 @@ -- | <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)))+getName self = liftIO (fromMaybeJSString <$> (js_getName self))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Attr.name Mozilla Attr.name documentation>  getNameUnsafe ::               (MonadIO m, HasCallStack, FromJSString result) => Attr -> m result getNameUnsafe self   = liftIO-      ((fromMaybeJSString <$> (js_getName (self))) >>=+      ((fromMaybeJSString <$> (js_getName self)) >>=          maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Attr.name Mozilla Attr.name documentation>  getNameUnchecked ::                  (MonadIO m, FromJSString result) => Attr -> m result getNameUnchecked self-  = liftIO (fromJust . fromMaybeJSString <$> (js_getName (self)))+  = liftIO (fromJust . 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))+getSpecified self = liftIO (js_getSpecified self)   foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue-        :: Attr -> Nullable JSString -> IO ()+        :: Attr -> 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))+setValue :: (MonadIO m, ToJSString val) => Attr -> val -> m ()+setValue self val = liftIO (js_setValue self (toJSString val))   foreign import javascript unsafe "$1[\"value\"]" js_getValue ::-        Attr -> IO (Nullable JSString)+        Attr -> IO 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)))+getValue :: (MonadIO m, FromJSString result) => Attr -> m result+getValue self = liftIO (fromJSString <$> (js_getValue self))+ +foreign import javascript unsafe "$1[\"ownerElement\"]"+        js_getOwnerElement :: Attr -> IO Element --- | <https://developer.mozilla.org/en-US/docs/Web/API/Attr.value Mozilla Attr.value documentation> -getValueUnsafe ::-               (MonadIO m, HasCallStack, FromJSString result) => Attr -> m result-getValueUnsafe self+-- | <https://developer.mozilla.org/en-US/docs/Web/API/Attr.ownerElement Mozilla Attr.ownerElement documentation> +getOwnerElement :: (MonadIO m) => Attr -> m Element+getOwnerElement self = liftIO (js_getOwnerElement self)+ +foreign import javascript unsafe "$1[\"namespaceURI\"]"+        js_getNamespaceURI :: Attr -> IO (Nullable JSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Attr.namespaceURI Mozilla Attr.namespaceURI documentation> +getNamespaceURI ::+                (MonadIO m, FromJSString result) => Attr -> m (Maybe result)+getNamespaceURI self+  = liftIO (fromMaybeJSString <$> (js_getNamespaceURI self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Attr.namespaceURI Mozilla Attr.namespaceURI documentation> +getNamespaceURIUnsafe ::+                      (MonadIO m, HasCallStack, FromJSString result) => Attr -> m result+getNamespaceURIUnsafe self   = liftIO-      ((fromMaybeJSString <$> (js_getValue (self))) >>=+      ((fromMaybeJSString <$> (js_getNamespaceURI self)) >>=          maybe (Prelude.error "Nothing to return") return) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Attr.value Mozilla Attr.value documentation> -getValueUnchecked ::-                  (MonadIO m, FromJSString result) => Attr -> m result-getValueUnchecked self-  = liftIO (fromJust . fromMaybeJSString <$> (js_getValue (self)))+-- | <https://developer.mozilla.org/en-US/docs/Web/API/Attr.namespaceURI Mozilla Attr.namespaceURI documentation> +getNamespaceURIUnchecked ::+                         (MonadIO m, FromJSString result) => Attr -> m result+getNamespaceURIUnchecked self+  = liftIO+      (fromJust . fromMaybeJSString <$> (js_getNamespaceURI self))  -foreign import javascript unsafe "$1[\"ownerElement\"]"-        js_getOwnerElement :: Attr -> IO (Nullable Element)+foreign import javascript unsafe "$1[\"prefix\"]" js_getPrefix ::+        Attr -> IO (Nullable JSString) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Attr.ownerElement Mozilla Attr.ownerElement documentation> -getOwnerElement :: (MonadIO m) => Attr -> m (Maybe Element)-getOwnerElement self-  = liftIO (nullableToMaybe <$> (js_getOwnerElement (self)))+-- | <https://developer.mozilla.org/en-US/docs/Web/API/Attr.prefix Mozilla Attr.prefix documentation> +getPrefix ::+          (MonadIO m, FromJSString result) => Attr -> m (Maybe result)+getPrefix self = liftIO (fromMaybeJSString <$> (js_getPrefix self)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Attr.ownerElement Mozilla Attr.ownerElement documentation> -getOwnerElementUnsafe ::-                      (MonadIO m, HasCallStack) => Attr -> m Element-getOwnerElementUnsafe self+-- | <https://developer.mozilla.org/en-US/docs/Web/API/Attr.prefix Mozilla Attr.prefix documentation> +getPrefixUnsafe ::+                (MonadIO m, HasCallStack, FromJSString result) => Attr -> m result+getPrefixUnsafe self   = liftIO-      ((nullableToMaybe <$> (js_getOwnerElement (self))) >>=+      ((fromMaybeJSString <$> (js_getPrefix self)) >>=          maybe (Prelude.error "Nothing to return") return) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Attr.ownerElement Mozilla Attr.ownerElement documentation> -getOwnerElementUnchecked :: (MonadIO m) => Attr -> m Element-getOwnerElementUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$> (js_getOwnerElement (self)))+-- | <https://developer.mozilla.org/en-US/docs/Web/API/Attr.prefix Mozilla Attr.prefix documentation> +getPrefixUnchecked ::+                   (MonadIO m, FromJSString result) => Attr -> m result+getPrefixUnchecked self+  = liftIO (fromJust . fromMaybeJSString <$> (js_getPrefix self))  -foreign import javascript unsafe "($1[\"isId\"] ? 1 : 0)"-        js_getIsId :: Attr -> IO Bool+foreign import javascript unsafe "$1[\"localName\"]"+        js_getLocalName :: Attr -> IO JSString --- | <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))+-- | <https://developer.mozilla.org/en-US/docs/Web/API/Attr.localName Mozilla Attr.localName documentation> +getLocalName ::+             (MonadIO m, FromJSString result) => Attr -> m result+getLocalName self+  = liftIO (fromJSString <$> (js_getLocalName self))
src/GHCJS/DOM/JSFFI/Generated/AudioBuffer.hs view
@@ -4,8 +4,7 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.AudioBuffer-       (js_getChannelData, getChannelData, getChannelData_,-        getChannelDataUnsafe, getChannelDataUnchecked, js_getLength,+       (js_getChannelData, getChannelData, getChannelData_, js_getLength,         getLength, js_getDuration, getDuration, js_getSampleRate,         getSampleRate, js_setGain, setGain, js_getGain, getGain,         js_getNumberOfChannels, getNumberOfChannels, AudioBuffer(..),@@ -15,7 +14,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -24,81 +23,64 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums   foreign import javascript unsafe "$1[\"getChannelData\"]($2)"-        js_getChannelData ::-        AudioBuffer -> Word -> IO (Nullable Float32Array)+        js_getChannelData :: AudioBuffer -> Word -> IO Float32Array  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBuffer.getChannelData Mozilla AudioBuffer.getChannelData documentation>  getChannelData ::-               (MonadIO m) => AudioBuffer -> Word -> m (Maybe Float32Array)+               (MonadIO m) => AudioBuffer -> Word -> m Float32Array getChannelData self channelIndex-  = liftIO-      (nullableToMaybe <$> (js_getChannelData (self) channelIndex))+  = liftIO (js_getChannelData self channelIndex)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBuffer.getChannelData Mozilla AudioBuffer.getChannelData documentation>  getChannelData_ :: (MonadIO m) => AudioBuffer -> Word -> m () getChannelData_ self channelIndex-  = liftIO (void (js_getChannelData (self) channelIndex))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBuffer.getChannelData Mozilla AudioBuffer.getChannelData documentation> -getChannelDataUnsafe ::-                     (MonadIO m, HasCallStack) => AudioBuffer -> Word -> m Float32Array-getChannelDataUnsafe self channelIndex-  = liftIO-      ((nullableToMaybe <$> (js_getChannelData (self) channelIndex)) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBuffer.getChannelData Mozilla AudioBuffer.getChannelData documentation> -getChannelDataUnchecked ::-                        (MonadIO m) => AudioBuffer -> Word -> m Float32Array-getChannelDataUnchecked self channelIndex-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_getChannelData (self) channelIndex))+  = liftIO (void (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))+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))+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))+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)+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))+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))+getNumberOfChannels self = liftIO (js_getNumberOfChannels self)
src/GHCJS/DOM/JSFFI/Generated/AudioBufferCallback.hs view
@@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -20,6 +20,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -27,8 +28,7 @@  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferCallback Mozilla AudioBufferCallback documentation>  newAudioBufferCallback ::-                       (MonadIO m) =>-                         (Maybe AudioBuffer -> IO ()) -> m AudioBufferCallback+                       (MonadIO m) => (AudioBuffer -> IO ()) -> m AudioBufferCallback newAudioBufferCallback callback   = liftIO       (AudioBufferCallback <$>@@ -39,8 +39,7 @@  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferCallback Mozilla AudioBufferCallback documentation>  newAudioBufferCallbackSync ::-                           (MonadIO m) =>-                             (Maybe AudioBuffer -> IO ()) -> m AudioBufferCallback+                           (MonadIO m) => (AudioBuffer -> IO ()) -> m AudioBufferCallback newAudioBufferCallbackSync callback   = liftIO       (AudioBufferCallback <$>@@ -51,8 +50,7 @@  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferCallback Mozilla AudioBufferCallback documentation>  newAudioBufferCallbackAsync ::-                            (MonadIO m) =>-                              (Maybe AudioBuffer -> IO ()) -> m AudioBufferCallback+                            (MonadIO m) => (AudioBuffer -> IO ()) -> m AudioBufferCallback newAudioBufferCallbackAsync callback   = liftIO       (AudioBufferCallback <$>
src/GHCJS/DOM/JSFFI/Generated/AudioBufferSourceNode.hs view
@@ -4,25 +4,22 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.AudioBufferSourceNode-       (js_start, start, js_stop, stop, js_noteOn, noteOn, js_noteGrainOn,-        noteGrainOn, js_noteOff, noteOff, pattern UNSCHEDULED_STATE,+       (js_start, start, js_stop, stop, pattern UNSCHEDULED_STATE,         pattern SCHEDULED_STATE, pattern PLAYING_STATE,         pattern FINISHED_STATE, js_setBuffer, setBuffer, js_getBuffer,         getBuffer, getBufferUnsafe, getBufferUnchecked,         js_getPlaybackState, getPlaybackState, js_getGain, getGain,-        getGainUnsafe, getGainUnchecked, js_getPlaybackRate,-        getPlaybackRate, getPlaybackRateUnsafe, getPlaybackRateUnchecked,-        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(..),+        js_getPlaybackRate, getPlaybackRate, js_setLoop, setLoop,+        js_getLoop, getLoop, js_setLoopStart, setLoopStart,+        js_getLoopStart, getLoopStart, js_setLoopEnd, setLoopEnd,+        js_getLoopEnd, getLoopEnd, ended, AudioBufferSourceNode(..),         gTypeAudioBufferSourceNode)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -31,6 +28,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -38,46 +36,26 @@   foreign import javascript unsafe "$1[\"start\"]($2, $3, $4)"         js_start ::-        AudioBufferSourceNode -> Double -> Double -> Double -> IO ()+        AudioBufferSourceNode ->+          Optional Double -> Optional Double -> Optional Double -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.start Mozilla AudioBufferSourceNode.start documentation>  start ::       (MonadIO m) =>-        AudioBufferSourceNode -> Double -> Double -> Double -> m ()+        AudioBufferSourceNode ->+          Maybe Double -> Maybe Double -> Maybe Double -> m () start self when grainOffset grainDuration-  = liftIO (js_start (self) when grainOffset grainDuration)+  = liftIO+      (js_start self (maybeToOptional when) (maybeToOptional grainOffset)+         (maybeToOptional grainDuration))   foreign import javascript unsafe "$1[\"stop\"]($2)" js_stop ::-        AudioBufferSourceNode -> Double -> IO ()+        AudioBufferSourceNode -> Optional 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)+stop ::+     (MonadIO m) => AudioBufferSourceNode -> Maybe Double -> m ()+stop self when = liftIO (js_stop self (maybeToOptional when)) pattern UNSCHEDULED_STATE = 0 pattern SCHEDULED_STATE = 1 pattern PLAYING_STATE = 2@@ -85,13 +63,13 @@   foreign import javascript unsafe "$1[\"buffer\"] = $2;"         js_setBuffer ::-        AudioBufferSourceNode -> Nullable AudioBuffer -> IO ()+        AudioBufferSourceNode -> Optional 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))+  = liftIO (js_setBuffer self (maybeToOptional val))   foreign import javascript unsafe "$1[\"buffer\"]" js_getBuffer ::         AudioBufferSourceNode -> IO (Nullable AudioBuffer)@@ -99,89 +77,57 @@ -- | <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)))+getBuffer self = liftIO (nullableToMaybe <$> (js_getBuffer self))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.buffer Mozilla AudioBufferSourceNode.buffer documentation>  getBufferUnsafe ::                 (MonadIO m, HasCallStack) => AudioBufferSourceNode -> m AudioBuffer getBufferUnsafe self   = liftIO-      ((nullableToMaybe <$> (js_getBuffer (self))) >>=+      ((nullableToMaybe <$> (js_getBuffer self)) >>=          maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.buffer Mozilla AudioBufferSourceNode.buffer documentation>  getBufferUnchecked ::                    (MonadIO m) => AudioBufferSourceNode -> m AudioBuffer getBufferUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getBuffer (self)))+  = liftIO (fromJust . 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))+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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.gain Mozilla AudioBufferSourceNode.gain documentation> -getGainUnsafe ::-              (MonadIO m, HasCallStack) => AudioBufferSourceNode -> m AudioParam-getGainUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getGain (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        AudioBufferSourceNode -> IO AudioParam  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.gain Mozilla AudioBufferSourceNode.gain documentation> -getGainUnchecked ::-                 (MonadIO m) => AudioBufferSourceNode -> m AudioParam-getGainUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getGain (self)))+getGain :: (MonadIO m) => AudioBufferSourceNode -> m AudioParam+getGain self = liftIO (js_getGain self)   foreign import javascript unsafe "$1[\"playbackRate\"]"-        js_getPlaybackRate ::-        AudioBufferSourceNode -> IO (Nullable AudioParam)+        js_getPlaybackRate :: AudioBufferSourceNode -> IO 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.playbackRate Mozilla AudioBufferSourceNode.playbackRate documentation> -getPlaybackRateUnsafe ::-                      (MonadIO m, HasCallStack) => AudioBufferSourceNode -> m AudioParam-getPlaybackRateUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getPlaybackRate (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.playbackRate Mozilla AudioBufferSourceNode.playbackRate documentation> -getPlaybackRateUnchecked ::-                         (MonadIO m) => AudioBufferSourceNode -> m AudioParam-getPlaybackRateUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$> (js_getPlaybackRate (self)))+                (MonadIO m) => AudioBufferSourceNode -> m AudioParam+getPlaybackRate self = liftIO (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)+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))+getLoop self = liftIO (js_getLoop self)   foreign import javascript unsafe "$1[\"loopStart\"] = $2;"         js_setLoopStart :: AudioBufferSourceNode -> Double -> IO ()@@ -189,14 +135,14 @@ -- | <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)+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))+getLoopStart self = liftIO (js_getLoopStart self)   foreign import javascript unsafe "$1[\"loopEnd\"] = $2;"         js_setLoopEnd :: AudioBufferSourceNode -> Double -> IO ()@@ -204,28 +150,14 @@ -- | <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)+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))+getLoopEnd self = liftIO (js_getLoopEnd self)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.onended Mozilla AudioBufferSourceNode.onended documentation>  ended :: EventName AudioBufferSourceNode Event
src/GHCJS/DOM/JSFFI/Generated/AudioContext.hs view
@@ -4,67 +4,42 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.AudioContext-       (js_newAudioContext, newAudioContext, js_createBuffer,-        createBuffer, createBuffer_, createBufferUnsafe,-        createBufferUnchecked, js_createBufferFromArrayBuffer,+       (js_newAudioContext, newAudioContext, js_suspend, suspend,+        js_resume, resume, js_close, close, js_createBuffer, createBuffer,+        createBuffer_, js_createBufferFromArrayBuffer,         createBufferFromArrayBuffer, createBufferFromArrayBuffer_,-        createBufferFromArrayBufferUnsafe,-        createBufferFromArrayBufferUnchecked, js_decodeAudioData,-        decodeAudioData, js_createBufferSource, createBufferSource,-        createBufferSource_, createBufferSourceUnsafe,-        createBufferSourceUnchecked, js_createMediaElementSource,-        createMediaElementSource, createMediaElementSource_,-        createMediaElementSourceUnsafe, createMediaElementSourceUnchecked,-        js_createMediaStreamSource, createMediaStreamSource,-        createMediaStreamSource_, createMediaStreamSourceUnsafe,-        createMediaStreamSourceUnchecked, js_createMediaStreamDestination,-        createMediaStreamDestination, createMediaStreamDestination_,-        createMediaStreamDestinationUnsafe,-        createMediaStreamDestinationUnchecked, js_createGain, createGain,-        createGain_, createGainUnsafe, createGainUnchecked, js_createDelay,-        createDelay, createDelay_, createDelayUnsafe, createDelayUnchecked,+        js_decodeAudioData, decodeAudioData, js_createBufferSource,+        createBufferSource, createBufferSource_,+        js_createMediaElementSource, createMediaElementSource,+        createMediaElementSource_, js_createMediaStreamSource,+        createMediaStreamSource, createMediaStreamSource_,+        js_createMediaStreamDestination, createMediaStreamDestination,+        createMediaStreamDestination_, js_createGain, createGain,+        createGain_, js_createDelay, createDelay, createDelay_,         js_createBiquadFilter, createBiquadFilter, createBiquadFilter_,-        createBiquadFilterUnsafe, createBiquadFilterUnchecked,         js_createWaveShaper, createWaveShaper, createWaveShaper_,-        createWaveShaperUnsafe, createWaveShaperUnchecked, js_createPanner,-        createPanner, createPanner_, createPannerUnsafe,-        createPannerUnchecked, js_createConvolver, createConvolver,-        createConvolver_, createConvolverUnsafe, createConvolverUnchecked,-        js_createDynamicsCompressor, createDynamicsCompressor,-        createDynamicsCompressor_, createDynamicsCompressorUnsafe,-        createDynamicsCompressorUnchecked, js_createAnalyser,-        createAnalyser, createAnalyser_, createAnalyserUnsafe,-        createAnalyserUnchecked, js_createScriptProcessor,-        createScriptProcessor, createScriptProcessor_,-        createScriptProcessorUnsafe, createScriptProcessorUnchecked,-        js_createOscillator, createOscillator, createOscillator_,-        createOscillatorUnsafe, createOscillatorUnchecked,-        js_createPeriodicWave, createPeriodicWave, createPeriodicWave_,-        createPeriodicWaveUnsafe, createPeriodicWaveUnchecked,-        js_createChannelSplitter, createChannelSplitter,-        createChannelSplitter_, createChannelSplitterUnsafe,-        createChannelSplitterUnchecked, js_createChannelMerger,-        createChannelMerger, createChannelMerger_,-        createChannelMergerUnsafe, createChannelMergerUnchecked,-        js_startRendering, startRendering, js_createGainNode,-        createGainNode, createGainNode_, createGainNodeUnsafe,-        createGainNodeUnchecked, js_createDelayNode, createDelayNode,-        createDelayNode_, createDelayNodeUnsafe, createDelayNodeUnchecked,-        js_createJavaScriptNode, createJavaScriptNode,-        createJavaScriptNode_, createJavaScriptNodeUnsafe,-        createJavaScriptNodeUnchecked, js_getDestination, getDestination,-        getDestinationUnsafe, getDestinationUnchecked, js_getCurrentTime,-        getCurrentTime, js_getSampleRate, getSampleRate, js_getListener,-        getListener, getListenerUnsafe, getListenerUnchecked,-        js_getActiveSourceCount, getActiveSourceCount, complete,-        AudioContext(..), gTypeAudioContext, IsAudioContext,-        toAudioContext)+        js_createPanner, createPanner, createPanner_, js_createConvolver,+        createConvolver, createConvolver_, js_createDynamicsCompressor,+        createDynamicsCompressor, createDynamicsCompressor_,+        js_createAnalyser, createAnalyser, createAnalyser_,+        js_createScriptProcessor, createScriptProcessor,+        createScriptProcessor_, js_createOscillator, createOscillator,+        createOscillator_, js_createPeriodicWave, createPeriodicWave,+        createPeriodicWave_, js_createChannelSplitter,+        createChannelSplitter, createChannelSplitter_,+        js_createChannelMerger, createChannelMerger, createChannelMerger_,+        js_startRendering, startRendering, js_getDestination,+        getDestination, js_getCurrentTime, getCurrentTime,+        js_getSampleRate, getSampleRate, js_getListener, getListener,+        js_getState, getState, statechange, js_getActiveSourceCount,+        getActiveSourceCount, complete, AudioContext(..),+        gTypeAudioContext, IsAudioContext, toAudioContext)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -73,6 +48,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -86,20 +62,40 @@ newAudioContext :: (MonadIO m) => m AudioContext newAudioContext = liftIO (js_newAudioContext)  +foreign import javascript interruptible+        "$1[\"suspend\"]().then($c);" js_suspend :: AudioContext -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.suspend Mozilla AudioContext.suspend documentation> +suspend :: (MonadIO m, IsAudioContext self) => self -> m ()+suspend self = liftIO (js_suspend (toAudioContext self))+ +foreign import javascript interruptible+        "$1[\"resume\"]().then($c);" js_resume :: AudioContext -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.resume Mozilla AudioContext.resume documentation> +resume :: (MonadIO m, IsAudioContext self) => self -> m ()+resume self = liftIO (js_resume (toAudioContext self))+ +foreign import javascript interruptible+        "$1[\"close\"]().then($c);" js_close :: AudioContext -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.close Mozilla AudioContext.close documentation> +close :: (MonadIO m, IsAudioContext self) => self -> m ()+close self = liftIO (js_close (toAudioContext self))+  foreign import javascript unsafe "$1[\"createBuffer\"]($2, $3, $4)"         js_createBuffer ::-        AudioContext -> Word -> Word -> Float -> IO (Nullable AudioBuffer)+        AudioContext -> Word -> Word -> Float -> IO AudioBuffer  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createBuffer Mozilla AudioContext.createBuffer documentation>  createBuffer ::              (MonadIO m, IsAudioContext self) =>-               self -> Word -> Word -> Float -> m (Maybe AudioBuffer)+               self -> Word -> Word -> Float -> m AudioBuffer createBuffer self numberOfChannels numberOfFrames sampleRate   = liftIO-      (nullableToMaybe <$>-         (js_createBuffer (toAudioContext self) numberOfChannels-            numberOfFrames-            sampleRate))+      (js_createBuffer (toAudioContext self) numberOfChannels+         numberOfFrames+         sampleRate)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createBuffer Mozilla AudioContext.createBuffer documentation>  createBuffer_ ::@@ -111,249 +107,123 @@          (js_createBuffer (toAudioContext self) numberOfChannels             numberOfFrames             sampleRate))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createBuffer Mozilla AudioContext.createBuffer documentation> -createBufferUnsafe ::-                   (MonadIO m, IsAudioContext self, HasCallStack) =>-                     self -> Word -> Word -> Float -> m AudioBuffer-createBufferUnsafe self numberOfChannels numberOfFrames sampleRate-  = liftIO-      ((nullableToMaybe <$>-          (js_createBuffer (toAudioContext self) numberOfChannels-             numberOfFrames-             sampleRate))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createBuffer Mozilla AudioContext.createBuffer documentation> -createBufferUnchecked ::-                      (MonadIO m, IsAudioContext self) =>-                        self -> Word -> Word -> Float -> m AudioBuffer-createBufferUnchecked self numberOfChannels numberOfFrames-  sampleRate-  = liftIO-      (fromJust . 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)+        AudioContext -> ArrayBuffer -> Bool -> IO AudioBuffer  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createBuffer Mozilla AudioContext.createBuffer documentation>  createBufferFromArrayBuffer ::                             (MonadIO m, IsAudioContext self, IsArrayBuffer buffer) =>-                              self -> Maybe buffer -> Bool -> m (Maybe AudioBuffer)+                              self -> buffer -> Bool -> m AudioBuffer createBufferFromArrayBuffer self buffer mixToMono   = liftIO-      (nullableToMaybe <$>-         (js_createBufferFromArrayBuffer (toAudioContext self)-            (maybeToNullable (fmap toArrayBuffer buffer))-            mixToMono))+      (js_createBufferFromArrayBuffer (toAudioContext self)+         (toArrayBuffer buffer)+         mixToMono)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createBuffer Mozilla AudioContext.createBuffer documentation>  createBufferFromArrayBuffer_ ::                              (MonadIO m, IsAudioContext self, IsArrayBuffer buffer) =>-                               self -> Maybe buffer -> Bool -> m ()+                               self -> buffer -> Bool -> m () createBufferFromArrayBuffer_ self buffer mixToMono   = liftIO       (void          (js_createBufferFromArrayBuffer (toAudioContext self)-            (maybeToNullable (fmap toArrayBuffer buffer))-            mixToMono))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createBuffer Mozilla AudioContext.createBuffer documentation> -createBufferFromArrayBufferUnsafe ::-                                  (MonadIO m, IsAudioContext self, IsArrayBuffer buffer,-                                   HasCallStack) =>-                                    self -> Maybe buffer -> Bool -> m AudioBuffer-createBufferFromArrayBufferUnsafe self buffer mixToMono-  = liftIO-      ((nullableToMaybe <$>-          (js_createBufferFromArrayBuffer (toAudioContext self)-             (maybeToNullable (fmap toArrayBuffer buffer))-             mixToMono))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createBuffer Mozilla AudioContext.createBuffer documentation> -createBufferFromArrayBufferUnchecked ::-                                     (MonadIO m, IsAudioContext self, IsArrayBuffer buffer) =>-                                       self -> Maybe buffer -> Bool -> m AudioBuffer-createBufferFromArrayBufferUnchecked self buffer mixToMono-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_createBufferFromArrayBuffer (toAudioContext self)-            (maybeToNullable (fmap toArrayBuffer buffer))+            (toArrayBuffer buffer)             mixToMono))   foreign import javascript unsafe         "$1[\"decodeAudioData\"]($2, $3,\n$4)" js_decodeAudioData ::         AudioContext ->-          Nullable ArrayBuffer ->-            Nullable AudioBufferCallback ->-              Nullable AudioBufferCallback -> IO ()+          ArrayBuffer ->+            Optional AudioBufferCallback ->+              Optional AudioBufferCallback -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.decodeAudioData Mozilla AudioContext.decodeAudioData documentation>  decodeAudioData ::                 (MonadIO m, IsAudioContext self, IsArrayBuffer audioData) =>                   self ->-                    Maybe audioData ->+                    audioData ->                       Maybe AudioBufferCallback -> Maybe AudioBufferCallback -> m () decodeAudioData self audioData successCallback errorCallback   = liftIO-      (js_decodeAudioData (toAudioContext self)-         (maybeToNullable (fmap toArrayBuffer audioData))-         (maybeToNullable successCallback)-         (maybeToNullable errorCallback))+      (js_decodeAudioData (toAudioContext self) (toArrayBuffer audioData)+         (maybeToOptional successCallback)+         (maybeToOptional errorCallback))   foreign import javascript unsafe "$1[\"createBufferSource\"]()"-        js_createBufferSource ::-        AudioContext -> IO (Nullable AudioBufferSourceNode)+        js_createBufferSource :: AudioContext -> IO AudioBufferSourceNode  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createBufferSource Mozilla AudioContext.createBufferSource documentation>  createBufferSource ::-                   (MonadIO m, IsAudioContext self) =>-                     self -> m (Maybe AudioBufferSourceNode)+                   (MonadIO m, IsAudioContext self) => self -> m AudioBufferSourceNode createBufferSource self-  = liftIO-      (nullableToMaybe <$> (js_createBufferSource (toAudioContext self)))+  = liftIO (js_createBufferSource (toAudioContext self))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createBufferSource Mozilla AudioContext.createBufferSource documentation>  createBufferSource_ ::                     (MonadIO m, IsAudioContext self) => self -> m () createBufferSource_ self   = liftIO (void (js_createBufferSource (toAudioContext self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createBufferSource Mozilla AudioContext.createBufferSource documentation> -createBufferSourceUnsafe ::-                         (MonadIO m, IsAudioContext self, HasCallStack) =>-                           self -> m AudioBufferSourceNode-createBufferSourceUnsafe self-  = liftIO-      ((nullableToMaybe <$>-          (js_createBufferSource (toAudioContext self)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createBufferSource Mozilla AudioContext.createBufferSource documentation> -createBufferSourceUnchecked ::-                            (MonadIO m, IsAudioContext self) => self -> m AudioBufferSourceNode-createBufferSourceUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_createBufferSource (toAudioContext self)))   foreign import javascript unsafe         "$1[\"createMediaElementSource\"]($2)" js_createMediaElementSource         ::-        AudioContext ->-          Nullable HTMLMediaElement ->-            IO (Nullable MediaElementAudioSourceNode)+        AudioContext -> HTMLMediaElement -> IO MediaElementAudioSourceNode  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createMediaElementSource Mozilla AudioContext.createMediaElementSource documentation>  createMediaElementSource ::                          (MonadIO m, IsAudioContext self,                           IsHTMLMediaElement mediaElement) =>-                           self -> Maybe mediaElement -> m (Maybe MediaElementAudioSourceNode)+                           self -> mediaElement -> m MediaElementAudioSourceNode createMediaElementSource self mediaElement   = liftIO-      (nullableToMaybe <$>-         (js_createMediaElementSource (toAudioContext self)-            (maybeToNullable (fmap toHTMLMediaElement mediaElement))))+      (js_createMediaElementSource (toAudioContext self)+         (toHTMLMediaElement mediaElement))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createMediaElementSource Mozilla AudioContext.createMediaElementSource documentation>  createMediaElementSource_ ::                           (MonadIO m, IsAudioContext self,                            IsHTMLMediaElement mediaElement) =>-                            self -> Maybe mediaElement -> m ()+                            self -> mediaElement -> m () createMediaElementSource_ self mediaElement   = liftIO       (void          (js_createMediaElementSource (toAudioContext self)-            (maybeToNullable (fmap toHTMLMediaElement mediaElement))))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createMediaElementSource Mozilla AudioContext.createMediaElementSource documentation> -createMediaElementSourceUnsafe ::-                               (MonadIO m, IsAudioContext self, IsHTMLMediaElement mediaElement,-                                HasCallStack) =>-                                 self -> Maybe mediaElement -> m MediaElementAudioSourceNode-createMediaElementSourceUnsafe self mediaElement-  = liftIO-      ((nullableToMaybe <$>-          (js_createMediaElementSource (toAudioContext self)-             (maybeToNullable (fmap toHTMLMediaElement mediaElement))))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createMediaElementSource Mozilla AudioContext.createMediaElementSource documentation> -createMediaElementSourceUnchecked ::-                                  (MonadIO m, IsAudioContext self,-                                   IsHTMLMediaElement mediaElement) =>-                                    self -> Maybe mediaElement -> m MediaElementAudioSourceNode-createMediaElementSourceUnchecked self mediaElement-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_createMediaElementSource (toAudioContext self)-            (maybeToNullable (fmap toHTMLMediaElement mediaElement))))+            (toHTMLMediaElement mediaElement)))   foreign import javascript unsafe         "$1[\"createMediaStreamSource\"]($2)" js_createMediaStreamSource ::-        AudioContext ->-          Nullable MediaStream -> IO (Nullable MediaStreamAudioSourceNode)+        AudioContext -> MediaStream -> IO MediaStreamAudioSourceNode  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createMediaStreamSource Mozilla AudioContext.createMediaStreamSource documentation>  createMediaStreamSource ::                         (MonadIO m, IsAudioContext self) =>-                          self -> Maybe MediaStream -> m (Maybe MediaStreamAudioSourceNode)+                          self -> MediaStream -> m MediaStreamAudioSourceNode createMediaStreamSource self mediaStream   = liftIO-      (nullableToMaybe <$>-         (js_createMediaStreamSource (toAudioContext self)-            (maybeToNullable mediaStream)))+      (js_createMediaStreamSource (toAudioContext self) mediaStream)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createMediaStreamSource Mozilla AudioContext.createMediaStreamSource documentation>  createMediaStreamSource_ ::-                         (MonadIO m, IsAudioContext self) =>-                           self -> Maybe MediaStream -> m ()+                         (MonadIO m, IsAudioContext self) => self -> MediaStream -> m () createMediaStreamSource_ self mediaStream   = liftIO       (void-         (js_createMediaStreamSource (toAudioContext self)-            (maybeToNullable mediaStream)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createMediaStreamSource Mozilla AudioContext.createMediaStreamSource documentation> -createMediaStreamSourceUnsafe ::-                              (MonadIO m, IsAudioContext self, HasCallStack) =>-                                self -> Maybe MediaStream -> m MediaStreamAudioSourceNode-createMediaStreamSourceUnsafe self mediaStream-  = liftIO-      ((nullableToMaybe <$>-          (js_createMediaStreamSource (toAudioContext self)-             (maybeToNullable mediaStream)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createMediaStreamSource Mozilla AudioContext.createMediaStreamSource documentation> -createMediaStreamSourceUnchecked ::-                                 (MonadIO m, IsAudioContext self) =>-                                   self -> Maybe MediaStream -> m MediaStreamAudioSourceNode-createMediaStreamSourceUnchecked self mediaStream-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_createMediaStreamSource (toAudioContext self)-            (maybeToNullable mediaStream)))+         (js_createMediaStreamSource (toAudioContext self) mediaStream))   foreign import javascript unsafe         "$1[\"createMediaStreamDestination\"]()"         js_createMediaStreamDestination ::-        AudioContext -> IO (Nullable MediaStreamAudioDestinationNode)+        AudioContext -> IO MediaStreamAudioDestinationNode  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createMediaStreamDestination Mozilla AudioContext.createMediaStreamDestination documentation>  createMediaStreamDestination ::                              (MonadIO m, IsAudioContext self) =>-                               self -> m (Maybe MediaStreamAudioDestinationNode)+                               self -> m MediaStreamAudioDestinationNode createMediaStreamDestination self-  = liftIO-      (nullableToMaybe <$>-         (js_createMediaStreamDestination (toAudioContext self)))+  = liftIO (js_createMediaStreamDestination (toAudioContext self))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createMediaStreamDestination Mozilla AudioContext.createMediaStreamDestination documentation>  createMediaStreamDestination_ ::@@ -361,522 +231,242 @@ createMediaStreamDestination_ self   = liftIO       (void (js_createMediaStreamDestination (toAudioContext self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createMediaStreamDestination Mozilla AudioContext.createMediaStreamDestination documentation> -createMediaStreamDestinationUnsafe ::-                                   (MonadIO m, IsAudioContext self, HasCallStack) =>-                                     self -> m MediaStreamAudioDestinationNode-createMediaStreamDestinationUnsafe self-  = liftIO-      ((nullableToMaybe <$>-          (js_createMediaStreamDestination (toAudioContext self)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createMediaStreamDestination Mozilla AudioContext.createMediaStreamDestination documentation> -createMediaStreamDestinationUnchecked ::-                                      (MonadIO m, IsAudioContext self) =>-                                        self -> m MediaStreamAudioDestinationNode-createMediaStreamDestinationUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_createMediaStreamDestination (toAudioContext self)))   foreign import javascript unsafe "$1[\"createGain\"]()"-        js_createGain :: AudioContext -> IO (Nullable GainNode)+        js_createGain :: AudioContext -> IO GainNode  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createGain Mozilla AudioContext.createGain documentation>  createGain ::-           (MonadIO m, IsAudioContext self) => self -> m (Maybe GainNode)-createGain self-  = liftIO-      (nullableToMaybe <$> (js_createGain (toAudioContext self)))+           (MonadIO m, IsAudioContext self) => self -> m GainNode+createGain self = liftIO (js_createGain (toAudioContext self))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createGain Mozilla AudioContext.createGain documentation>  createGain_ :: (MonadIO m, IsAudioContext self) => self -> m () createGain_ self   = liftIO (void (js_createGain (toAudioContext self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createGain Mozilla AudioContext.createGain documentation> -createGainUnsafe ::-                 (MonadIO m, IsAudioContext self, HasCallStack) =>-                   self -> m GainNode-createGainUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_createGain (toAudioContext self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createGain Mozilla AudioContext.createGain documentation> -createGainUnchecked ::-                    (MonadIO m, IsAudioContext self) => self -> m GainNode-createGainUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_createGain (toAudioContext self)))   foreign import javascript unsafe "$1[\"createDelay\"]($2)"-        js_createDelay :: AudioContext -> Double -> IO (Nullable DelayNode)+        js_createDelay :: AudioContext -> Optional Double -> IO DelayNode  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createDelay Mozilla AudioContext.createDelay documentation>  createDelay ::             (MonadIO m, IsAudioContext self) =>-              self -> Double -> m (Maybe DelayNode)+              self -> Maybe Double -> m DelayNode createDelay self maxDelayTime   = liftIO-      (nullableToMaybe <$>-         (js_createDelay (toAudioContext self) maxDelayTime))+      (js_createDelay (toAudioContext self)+         (maybeToOptional maxDelayTime))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createDelay Mozilla AudioContext.createDelay documentation>  createDelay_ ::-             (MonadIO m, IsAudioContext self) => self -> Double -> m ()+             (MonadIO m, IsAudioContext self) => self -> Maybe Double -> m () createDelay_ self maxDelayTime-  = liftIO (void (js_createDelay (toAudioContext self) maxDelayTime))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createDelay Mozilla AudioContext.createDelay documentation> -createDelayUnsafe ::-                  (MonadIO m, IsAudioContext self, HasCallStack) =>-                    self -> Double -> m DelayNode-createDelayUnsafe self maxDelayTime   = liftIO-      ((nullableToMaybe <$>-          (js_createDelay (toAudioContext self) maxDelayTime))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createDelay Mozilla AudioContext.createDelay documentation> -createDelayUnchecked ::-                     (MonadIO m, IsAudioContext self) => self -> Double -> m DelayNode-createDelayUnchecked self maxDelayTime-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_createDelay (toAudioContext self) maxDelayTime))+      (void+         (js_createDelay (toAudioContext self)+            (maybeToOptional maxDelayTime)))   foreign import javascript unsafe "$1[\"createBiquadFilter\"]()"-        js_createBiquadFilter ::-        AudioContext -> IO (Nullable BiquadFilterNode)+        js_createBiquadFilter :: AudioContext -> IO BiquadFilterNode  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createBiquadFilter Mozilla AudioContext.createBiquadFilter documentation>  createBiquadFilter ::-                   (MonadIO m, IsAudioContext self) =>-                     self -> m (Maybe BiquadFilterNode)+                   (MonadIO m, IsAudioContext self) => self -> m BiquadFilterNode createBiquadFilter self-  = liftIO-      (nullableToMaybe <$> (js_createBiquadFilter (toAudioContext self)))+  = liftIO (js_createBiquadFilter (toAudioContext self))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createBiquadFilter Mozilla AudioContext.createBiquadFilter documentation>  createBiquadFilter_ ::                     (MonadIO m, IsAudioContext self) => self -> m () createBiquadFilter_ self   = liftIO (void (js_createBiquadFilter (toAudioContext self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createBiquadFilter Mozilla AudioContext.createBiquadFilter documentation> -createBiquadFilterUnsafe ::-                         (MonadIO m, IsAudioContext self, HasCallStack) =>-                           self -> m BiquadFilterNode-createBiquadFilterUnsafe self-  = liftIO-      ((nullableToMaybe <$>-          (js_createBiquadFilter (toAudioContext self)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createBiquadFilter Mozilla AudioContext.createBiquadFilter documentation> -createBiquadFilterUnchecked ::-                            (MonadIO m, IsAudioContext self) => self -> m BiquadFilterNode-createBiquadFilterUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_createBiquadFilter (toAudioContext self)))   foreign import javascript unsafe "$1[\"createWaveShaper\"]()"-        js_createWaveShaper :: AudioContext -> IO (Nullable WaveShaperNode)+        js_createWaveShaper :: AudioContext -> IO WaveShaperNode  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createWaveShaper Mozilla AudioContext.createWaveShaper documentation>  createWaveShaper ::-                 (MonadIO m, IsAudioContext self) =>-                   self -> m (Maybe WaveShaperNode)+                 (MonadIO m, IsAudioContext self) => self -> m WaveShaperNode createWaveShaper self-  = liftIO-      (nullableToMaybe <$> (js_createWaveShaper (toAudioContext self)))+  = liftIO (js_createWaveShaper (toAudioContext self))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createWaveShaper Mozilla AudioContext.createWaveShaper documentation>  createWaveShaper_ ::                   (MonadIO m, IsAudioContext self) => self -> m () createWaveShaper_ self   = liftIO (void (js_createWaveShaper (toAudioContext self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createWaveShaper Mozilla AudioContext.createWaveShaper documentation> -createWaveShaperUnsafe ::-                       (MonadIO m, IsAudioContext self, HasCallStack) =>-                         self -> m WaveShaperNode-createWaveShaperUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_createWaveShaper (toAudioContext self)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createWaveShaper Mozilla AudioContext.createWaveShaper documentation> -createWaveShaperUnchecked ::-                          (MonadIO m, IsAudioContext self) => self -> m WaveShaperNode-createWaveShaperUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_createWaveShaper (toAudioContext self)))   foreign import javascript unsafe "$1[\"createPanner\"]()"-        js_createPanner :: AudioContext -> IO (Nullable PannerNode)+        js_createPanner :: AudioContext -> IO PannerNode  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createPanner Mozilla AudioContext.createPanner documentation>  createPanner ::-             (MonadIO m, IsAudioContext self) => self -> m (Maybe PannerNode)-createPanner self-  = liftIO-      (nullableToMaybe <$> (js_createPanner (toAudioContext self)))+             (MonadIO m, IsAudioContext self) => self -> m PannerNode+createPanner self = liftIO (js_createPanner (toAudioContext self))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createPanner Mozilla AudioContext.createPanner documentation>  createPanner_ :: (MonadIO m, IsAudioContext self) => self -> m () createPanner_ self   = liftIO (void (js_createPanner (toAudioContext self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createPanner Mozilla AudioContext.createPanner documentation> -createPannerUnsafe ::-                   (MonadIO m, IsAudioContext self, HasCallStack) =>-                     self -> m PannerNode-createPannerUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_createPanner (toAudioContext self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createPanner Mozilla AudioContext.createPanner documentation> -createPannerUnchecked ::-                      (MonadIO m, IsAudioContext self) => self -> m PannerNode-createPannerUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_createPanner (toAudioContext self)))   foreign import javascript unsafe "$1[\"createConvolver\"]()"-        js_createConvolver :: AudioContext -> IO (Nullable ConvolverNode)+        js_createConvolver :: AudioContext -> IO ConvolverNode  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createConvolver Mozilla AudioContext.createConvolver documentation>  createConvolver ::-                (MonadIO m, IsAudioContext self) => self -> m (Maybe ConvolverNode)+                (MonadIO m, IsAudioContext self) => self -> m ConvolverNode createConvolver self-  = liftIO-      (nullableToMaybe <$> (js_createConvolver (toAudioContext self)))+  = liftIO (js_createConvolver (toAudioContext self))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createConvolver Mozilla AudioContext.createConvolver documentation>  createConvolver_ ::                  (MonadIO m, IsAudioContext self) => self -> m () createConvolver_ self   = liftIO (void (js_createConvolver (toAudioContext self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createConvolver Mozilla AudioContext.createConvolver documentation> -createConvolverUnsafe ::-                      (MonadIO m, IsAudioContext self, HasCallStack) =>-                        self -> m ConvolverNode-createConvolverUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_createConvolver (toAudioContext self)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createConvolver Mozilla AudioContext.createConvolver documentation> -createConvolverUnchecked ::-                         (MonadIO m, IsAudioContext self) => self -> m ConvolverNode-createConvolverUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_createConvolver (toAudioContext self)))   foreign import javascript unsafe         "$1[\"createDynamicsCompressor\"]()" js_createDynamicsCompressor ::-        AudioContext -> IO (Nullable DynamicsCompressorNode)+        AudioContext -> IO DynamicsCompressorNode  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createDynamicsCompressor Mozilla AudioContext.createDynamicsCompressor documentation>  createDynamicsCompressor ::                          (MonadIO m, IsAudioContext self) =>-                           self -> m (Maybe DynamicsCompressorNode)+                           self -> m DynamicsCompressorNode createDynamicsCompressor self-  = liftIO-      (nullableToMaybe <$>-         (js_createDynamicsCompressor (toAudioContext self)))+  = liftIO (js_createDynamicsCompressor (toAudioContext self))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createDynamicsCompressor Mozilla AudioContext.createDynamicsCompressor documentation>  createDynamicsCompressor_ ::                           (MonadIO m, IsAudioContext self) => self -> m () createDynamicsCompressor_ self   = liftIO (void (js_createDynamicsCompressor (toAudioContext self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createDynamicsCompressor Mozilla AudioContext.createDynamicsCompressor documentation> -createDynamicsCompressorUnsafe ::-                               (MonadIO m, IsAudioContext self, HasCallStack) =>-                                 self -> m DynamicsCompressorNode-createDynamicsCompressorUnsafe self-  = liftIO-      ((nullableToMaybe <$>-          (js_createDynamicsCompressor (toAudioContext self)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createDynamicsCompressor Mozilla AudioContext.createDynamicsCompressor documentation> -createDynamicsCompressorUnchecked ::-                                  (MonadIO m, IsAudioContext self) =>-                                    self -> m DynamicsCompressorNode-createDynamicsCompressorUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_createDynamicsCompressor (toAudioContext self)))   foreign import javascript unsafe "$1[\"createAnalyser\"]()"-        js_createAnalyser :: AudioContext -> IO (Nullable AnalyserNode)+        js_createAnalyser :: AudioContext -> IO AnalyserNode  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createAnalyser Mozilla AudioContext.createAnalyser documentation>  createAnalyser ::-               (MonadIO m, IsAudioContext self) => self -> m (Maybe AnalyserNode)+               (MonadIO m, IsAudioContext self) => self -> m AnalyserNode createAnalyser self-  = liftIO-      (nullableToMaybe <$> (js_createAnalyser (toAudioContext self)))+  = liftIO (js_createAnalyser (toAudioContext self))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createAnalyser Mozilla AudioContext.createAnalyser documentation>  createAnalyser_ :: (MonadIO m, IsAudioContext self) => self -> m () createAnalyser_ self   = liftIO (void (js_createAnalyser (toAudioContext self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createAnalyser Mozilla AudioContext.createAnalyser documentation> -createAnalyserUnsafe ::-                     (MonadIO m, IsAudioContext self, HasCallStack) =>-                       self -> m AnalyserNode-createAnalyserUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_createAnalyser (toAudioContext self)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createAnalyser Mozilla AudioContext.createAnalyser documentation> -createAnalyserUnchecked ::-                        (MonadIO m, IsAudioContext self) => self -> m AnalyserNode-createAnalyserUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_createAnalyser (toAudioContext self)))   foreign import javascript unsafe         "$1[\"createScriptProcessor\"]($2,\n$3, $4)"         js_createScriptProcessor ::         AudioContext ->-          Word -> Word -> Word -> IO (Nullable ScriptProcessorNode)+          Word -> Optional Word -> Optional Word -> IO ScriptProcessorNode  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createScriptProcessor Mozilla AudioContext.createScriptProcessor documentation>  createScriptProcessor ::                       (MonadIO m, IsAudioContext self) =>-                        self -> Word -> Word -> Word -> m (Maybe ScriptProcessorNode)+                        self -> Word -> Maybe Word -> Maybe Word -> m ScriptProcessorNode createScriptProcessor self bufferSize numberOfInputChannels   numberOfOutputChannels   = liftIO-      (nullableToMaybe <$>-         (js_createScriptProcessor (toAudioContext self) bufferSize-            numberOfInputChannels-            numberOfOutputChannels))+      (js_createScriptProcessor (toAudioContext self) bufferSize+         (maybeToOptional numberOfInputChannels)+         (maybeToOptional numberOfOutputChannels))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createScriptProcessor Mozilla AudioContext.createScriptProcessor documentation>  createScriptProcessor_ ::                        (MonadIO m, IsAudioContext self) =>-                         self -> Word -> Word -> Word -> m ()+                         self -> Word -> Maybe Word -> Maybe Word -> m () createScriptProcessor_ self bufferSize numberOfInputChannels   numberOfOutputChannels   = liftIO       (void          (js_createScriptProcessor (toAudioContext self) bufferSize-            numberOfInputChannels-            numberOfOutputChannels))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createScriptProcessor Mozilla AudioContext.createScriptProcessor documentation> -createScriptProcessorUnsafe ::-                            (MonadIO m, IsAudioContext self, HasCallStack) =>-                              self -> Word -> Word -> Word -> m ScriptProcessorNode-createScriptProcessorUnsafe self bufferSize numberOfInputChannels-  numberOfOutputChannels-  = liftIO-      ((nullableToMaybe <$>-          (js_createScriptProcessor (toAudioContext self) bufferSize-             numberOfInputChannels-             numberOfOutputChannels))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createScriptProcessor Mozilla AudioContext.createScriptProcessor documentation> -createScriptProcessorUnchecked ::-                               (MonadIO m, IsAudioContext self) =>-                                 self -> Word -> Word -> Word -> m ScriptProcessorNode-createScriptProcessorUnchecked self bufferSize-  numberOfInputChannels numberOfOutputChannels-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_createScriptProcessor (toAudioContext self) bufferSize-            numberOfInputChannels-            numberOfOutputChannels))+            (maybeToOptional numberOfInputChannels)+            (maybeToOptional numberOfOutputChannels)))   foreign import javascript unsafe "$1[\"createOscillator\"]()"-        js_createOscillator :: AudioContext -> IO (Nullable OscillatorNode)+        js_createOscillator :: AudioContext -> IO OscillatorNode  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createOscillator Mozilla AudioContext.createOscillator documentation>  createOscillator ::-                 (MonadIO m, IsAudioContext self) =>-                   self -> m (Maybe OscillatorNode)+                 (MonadIO m, IsAudioContext self) => self -> m OscillatorNode createOscillator self-  = liftIO-      (nullableToMaybe <$> (js_createOscillator (toAudioContext self)))+  = liftIO (js_createOscillator (toAudioContext self))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createOscillator Mozilla AudioContext.createOscillator documentation>  createOscillator_ ::                   (MonadIO m, IsAudioContext self) => self -> m () createOscillator_ self   = liftIO (void (js_createOscillator (toAudioContext self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createOscillator Mozilla AudioContext.createOscillator documentation> -createOscillatorUnsafe ::-                       (MonadIO m, IsAudioContext self, HasCallStack) =>-                         self -> m OscillatorNode-createOscillatorUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_createOscillator (toAudioContext self)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createOscillator Mozilla AudioContext.createOscillator documentation> -createOscillatorUnchecked ::-                          (MonadIO m, IsAudioContext self) => self -> m OscillatorNode-createOscillatorUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_createOscillator (toAudioContext self)))   foreign import javascript unsafe         "$1[\"createPeriodicWave\"]($2, $3)" js_createPeriodicWave ::-        AudioContext ->-          Nullable Float32Array ->-            Nullable Float32Array -> IO (Nullable PeriodicWave)+        AudioContext -> Float32Array -> Float32Array -> IO PeriodicWave  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createPeriodicWave Mozilla AudioContext.createPeriodicWave documentation>  createPeriodicWave ::                    (MonadIO m, IsAudioContext self, IsFloat32Array real,                     IsFloat32Array imag) =>-                     self -> Maybe real -> Maybe imag -> m (Maybe PeriodicWave)+                     self -> real -> imag -> m PeriodicWave createPeriodicWave self real imag   = liftIO-      (nullableToMaybe <$>-         (js_createPeriodicWave (toAudioContext self)-            (maybeToNullable (fmap toFloat32Array real))-            (maybeToNullable (fmap toFloat32Array imag))))+      (js_createPeriodicWave (toAudioContext self) (toFloat32Array real)+         (toFloat32Array imag))  -- | <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 ()+                      self -> real -> imag -> m () createPeriodicWave_ self real imag   = liftIO       (void-         (js_createPeriodicWave (toAudioContext self)-            (maybeToNullable (fmap toFloat32Array real))-            (maybeToNullable (fmap toFloat32Array imag))))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createPeriodicWave Mozilla AudioContext.createPeriodicWave documentation> -createPeriodicWaveUnsafe ::-                         (MonadIO m, IsAudioContext self, IsFloat32Array real,-                          IsFloat32Array imag, HasCallStack) =>-                           self -> Maybe real -> Maybe imag -> m PeriodicWave-createPeriodicWaveUnsafe self real imag-  = liftIO-      ((nullableToMaybe <$>-          (js_createPeriodicWave (toAudioContext self)-             (maybeToNullable (fmap toFloat32Array real))-             (maybeToNullable (fmap toFloat32Array imag))))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createPeriodicWave Mozilla AudioContext.createPeriodicWave documentation> -createPeriodicWaveUnchecked ::-                            (MonadIO m, IsAudioContext self, IsFloat32Array real,-                             IsFloat32Array imag) =>-                              self -> Maybe real -> Maybe imag -> m PeriodicWave-createPeriodicWaveUnchecked self real imag-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_createPeriodicWave (toAudioContext self)-            (maybeToNullable (fmap toFloat32Array real))-            (maybeToNullable (fmap toFloat32Array imag))))+         (js_createPeriodicWave (toAudioContext self) (toFloat32Array real)+            (toFloat32Array imag)))   foreign import javascript unsafe         "$1[\"createChannelSplitter\"]($2)" js_createChannelSplitter ::-        AudioContext -> Word -> IO (Nullable ChannelSplitterNode)+        AudioContext -> Optional Word -> IO 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)+                        self -> Maybe Word -> m ChannelSplitterNode createChannelSplitter self numberOfOutputs   = liftIO-      (nullableToMaybe <$>-         (js_createChannelSplitter (toAudioContext self) numberOfOutputs))+      (js_createChannelSplitter (toAudioContext self)+         (maybeToOptional numberOfOutputs))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createChannelSplitter Mozilla AudioContext.createChannelSplitter documentation>  createChannelSplitter_ ::-                       (MonadIO m, IsAudioContext self) => self -> Word -> m ()+                       (MonadIO m, IsAudioContext self) => self -> Maybe Word -> m () createChannelSplitter_ self numberOfOutputs   = liftIO       (void-         (js_createChannelSplitter (toAudioContext self) numberOfOutputs))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createChannelSplitter Mozilla AudioContext.createChannelSplitter documentation> -createChannelSplitterUnsafe ::-                            (MonadIO m, IsAudioContext self, HasCallStack) =>-                              self -> Word -> m ChannelSplitterNode-createChannelSplitterUnsafe self numberOfOutputs-  = liftIO-      ((nullableToMaybe <$>-          (js_createChannelSplitter (toAudioContext self) numberOfOutputs))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createChannelSplitter Mozilla AudioContext.createChannelSplitter documentation> -createChannelSplitterUnchecked ::-                               (MonadIO m, IsAudioContext self) =>-                                 self -> Word -> m ChannelSplitterNode-createChannelSplitterUnchecked self numberOfOutputs-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_createChannelSplitter (toAudioContext self) numberOfOutputs))+         (js_createChannelSplitter (toAudioContext self)+            (maybeToOptional numberOfOutputs)))   foreign import javascript unsafe "$1[\"createChannelMerger\"]($2)"         js_createChannelMerger ::-        AudioContext -> Word -> IO (Nullable ChannelMergerNode)+        AudioContext -> Optional Word -> IO 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)+                      self -> Maybe Word -> m ChannelMergerNode createChannelMerger self numberOfInputs   = liftIO-      (nullableToMaybe <$>-         (js_createChannelMerger (toAudioContext self) numberOfInputs))+      (js_createChannelMerger (toAudioContext self)+         (maybeToOptional numberOfInputs))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createChannelMerger Mozilla AudioContext.createChannelMerger documentation>  createChannelMerger_ ::-                     (MonadIO m, IsAudioContext self) => self -> Word -> m ()+                     (MonadIO m, IsAudioContext self) => self -> Maybe Word -> m () createChannelMerger_ self numberOfInputs   = liftIO       (void-         (js_createChannelMerger (toAudioContext self) numberOfInputs))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createChannelMerger Mozilla AudioContext.createChannelMerger documentation> -createChannelMergerUnsafe ::-                          (MonadIO m, IsAudioContext self, HasCallStack) =>-                            self -> Word -> m ChannelMergerNode-createChannelMergerUnsafe self numberOfInputs-  = liftIO-      ((nullableToMaybe <$>-          (js_createChannelMerger (toAudioContext self) numberOfInputs))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createChannelMerger Mozilla AudioContext.createChannelMerger documentation> -createChannelMergerUnchecked ::-                             (MonadIO m, IsAudioContext self) =>-                               self -> Word -> m ChannelMergerNode-createChannelMergerUnchecked self numberOfInputs-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_createChannelMerger (toAudioContext self) numberOfInputs))+         (js_createChannelMerger (toAudioContext self)+            (maybeToOptional numberOfInputs)))   foreign import javascript unsafe "$1[\"startRendering\"]()"         js_startRendering :: AudioContext -> IO ()@@ -886,159 +476,14 @@ 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createGainNode Mozilla AudioContext.createGainNode documentation> -createGainNode_ :: (MonadIO m, IsAudioContext self) => self -> m ()-createGainNode_ self-  = liftIO (void (js_createGainNode (toAudioContext self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createGainNode Mozilla AudioContext.createGainNode documentation> -createGainNodeUnsafe ::-                     (MonadIO m, IsAudioContext self, HasCallStack) =>-                       self -> m GainNode-createGainNodeUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_createGainNode (toAudioContext self)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createGainNode Mozilla AudioContext.createGainNode documentation> -createGainNodeUnchecked ::-                        (MonadIO m, IsAudioContext self) => self -> m GainNode-createGainNodeUnchecked self-  = liftIO-      (fromJust . 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))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createDelayNode Mozilla AudioContext.createDelayNode documentation> -createDelayNode_ ::-                 (MonadIO m, IsAudioContext self) => self -> Double -> m ()-createDelayNode_ self maxDelayTime-  = liftIO-      (void (js_createDelayNode (toAudioContext self) maxDelayTime))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createDelayNode Mozilla AudioContext.createDelayNode documentation> -createDelayNodeUnsafe ::-                      (MonadIO m, IsAudioContext self, HasCallStack) =>-                        self -> Double -> m DelayNode-createDelayNodeUnsafe self maxDelayTime-  = liftIO-      ((nullableToMaybe <$>-          (js_createDelayNode (toAudioContext self) maxDelayTime))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createDelayNode Mozilla AudioContext.createDelayNode documentation> -createDelayNodeUnchecked ::-                         (MonadIO m, IsAudioContext self) => self -> Double -> m DelayNode-createDelayNodeUnchecked self maxDelayTime-  = liftIO-      (fromJust . 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))---- | <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 ()-createJavaScriptNode_ self bufferSize numberOfInputChannels-  numberOfOutputChannels-  = liftIO-      (void-         (js_createJavaScriptNode (toAudioContext self) bufferSize-            numberOfInputChannels-            numberOfOutputChannels))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createJavaScriptNode Mozilla AudioContext.createJavaScriptNode documentation> -createJavaScriptNodeUnsafe ::-                           (MonadIO m, IsAudioContext self, HasCallStack) =>-                             self -> Word -> Word -> Word -> m ScriptProcessorNode-createJavaScriptNodeUnsafe self bufferSize numberOfInputChannels-  numberOfOutputChannels-  = liftIO-      ((nullableToMaybe <$>-          (js_createJavaScriptNode (toAudioContext self) bufferSize-             numberOfInputChannels-             numberOfOutputChannels))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createJavaScriptNode Mozilla AudioContext.createJavaScriptNode documentation> -createJavaScriptNodeUnchecked ::-                              (MonadIO m, IsAudioContext self) =>-                                self -> Word -> Word -> Word -> m ScriptProcessorNode-createJavaScriptNodeUnchecked self bufferSize numberOfInputChannels-  numberOfOutputChannels-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_createJavaScriptNode (toAudioContext self) bufferSize-            numberOfInputChannels-            numberOfOutputChannels))-  foreign import javascript unsafe "$1[\"destination\"]"-        js_getDestination ::-        AudioContext -> IO (Nullable AudioDestinationNode)+        js_getDestination :: AudioContext -> IO 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)+               (MonadIO m, IsAudioContext self) => self -> m AudioDestinationNode getDestination self-  = liftIO-      (nullableToMaybe <$> (js_getDestination (toAudioContext self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.destination Mozilla AudioContext.destination documentation> -getDestinationUnsafe ::-                     (MonadIO m, IsAudioContext self, HasCallStack) =>-                       self -> m AudioDestinationNode-getDestinationUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getDestination (toAudioContext self)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.destination Mozilla AudioContext.destination documentation> -getDestinationUnchecked ::-                        (MonadIO m, IsAudioContext self) => self -> m AudioDestinationNode-getDestinationUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_getDestination (toAudioContext self)))+  = liftIO (js_getDestination (toAudioContext self))   foreign import javascript unsafe "$1[\"currentTime\"]"         js_getCurrentTime :: AudioContext -> IO Double@@ -1059,31 +504,28 @@   = liftIO (js_getSampleRate (toAudioContext self))   foreign import javascript unsafe "$1[\"listener\"]" js_getListener-        :: AudioContext -> IO (Nullable AudioListener)+        :: AudioContext -> IO 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)))+            (MonadIO m, IsAudioContext self) => self -> m AudioListener+getListener self = liftIO (js_getListener (toAudioContext self))+ +foreign import javascript unsafe "$1[\"state\"]" js_getState ::+        AudioContext -> IO JSVal --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.listener Mozilla AudioContext.listener documentation> -getListenerUnsafe ::-                  (MonadIO m, IsAudioContext self, HasCallStack) =>-                    self -> m AudioListener-getListenerUnsafe self+-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.state Mozilla AudioContext.state documentation> +getState ::+         (MonadIO m, IsAudioContext self) => self -> m AudioContextState+getState self   = liftIO-      ((nullableToMaybe <$> (js_getListener (toAudioContext self))) >>=-         maybe (Prelude.error "Nothing to return") return)+      ((js_getState (toAudioContext self)) >>= fromJSValUnchecked) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.listener Mozilla AudioContext.listener documentation> -getListenerUnchecked ::-                     (MonadIO m, IsAudioContext self) => self -> m AudioListener-getListenerUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_getListener (toAudioContext self)))+-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.onstatechange Mozilla AudioContext.onstatechange documentation> +statechange ::+            (IsAudioContext self, IsEventTarget self) =>+              EventName self onstatechange+statechange = unsafeEventName (toJSString "statechange")   foreign import javascript unsafe "$1[\"activeSourceCount\"]"         js_getActiveSourceCount :: AudioContext -> IO Word
src/GHCJS/DOM/JSFFI/Generated/AudioDestinationNode.hs view
@@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -20,6 +20,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -30,4 +31,4 @@  -- | <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))+getMaxChannelCount self = liftIO (js_getMaxChannelCount self)
src/GHCJS/DOM/JSFFI/Generated/AudioListener.hs view
@@ -14,7 +14,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -23,6 +23,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -34,7 +35,7 @@ -- | <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)+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@@ -48,7 +49,7 @@                  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)+  = 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 ()@@ -56,32 +57,32 @@ -- | <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)+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)+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))+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)+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))+getSpeedOfSound self = liftIO (js_getSpeedOfSound self)
src/GHCJS/DOM/JSFFI/Generated/AudioNode.hs view
@@ -5,11 +5,10 @@ {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.AudioNode        (js_connect, connect, js_connectParam, connectParam, js_disconnect,-        disconnect, js_getContext, getContext, getContextUnsafe,-        getContextUnchecked, js_getNumberOfInputs, getNumberOfInputs,-        js_getNumberOfOutputs, getNumberOfOutputs, js_setChannelCount,-        setChannelCount, js_getChannelCount, getChannelCount,-        js_setChannelCountMode, setChannelCountMode,+        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,@@ -19,7 +18,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -28,6 +27,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -35,64 +35,48 @@   foreign import javascript unsafe "$1[\"connect\"]($2, $3, $4)"         js_connect ::-        AudioNode -> Nullable AudioNode -> Word -> Word -> IO ()+        AudioNode -> AudioNode -> Optional Word -> Optional 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 ()+          self -> destination -> Maybe Word -> Maybe Word -> m () connect self destination output input   = liftIO-      (js_connect (toAudioNode self)-         (maybeToNullable (fmap toAudioNode destination))-         output-         input)+      (js_connect (toAudioNode self) (toAudioNode destination)+         (maybeToOptional output)+         (maybeToOptional input))   foreign import javascript unsafe "$1[\"connect\"]($2, $3)"         js_connectParam ::-        AudioNode -> Nullable AudioParam -> Word -> IO ()+        AudioNode -> AudioParam -> Optional 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 ()+               self -> AudioParam -> Maybe Word -> m () connectParam self destination output   = liftIO-      (js_connectParam (toAudioNode self) (maybeToNullable destination)-         output)+      (js_connectParam (toAudioNode self) destination+         (maybeToOptional output))   foreign import javascript unsafe "$1[\"disconnect\"]($2)"-        js_disconnect :: AudioNode -> Word -> IO ()+        js_disconnect :: AudioNode -> Optional 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 ::+           (MonadIO m, IsAudioNode self) => self -> Maybe Word -> m () disconnect self output-  = liftIO (js_disconnect (toAudioNode self) output)+  = liftIO+      (js_disconnect (toAudioNode self) (maybeToOptional output))   foreign import javascript unsafe "$1[\"context\"]" js_getContext ::-        AudioNode -> IO (Nullable AudioContext)+        AudioNode -> IO 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioNode.context Mozilla AudioNode.context documentation> -getContextUnsafe ::-                 (MonadIO m, IsAudioNode self, HasCallStack) =>-                   self -> m AudioContext-getContextUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getContext (toAudioNode self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioNode.context Mozilla AudioNode.context documentation> -getContextUnchecked ::-                    (MonadIO m, IsAudioNode self) => self -> m AudioContext-getContextUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$> (js_getContext (toAudioNode self)))+           (MonadIO m, IsAudioNode self) => self -> m AudioContext+getContext self = liftIO (js_getContext (toAudioNode self))   foreign import javascript unsafe "$1[\"numberOfInputs\"]"         js_getNumberOfInputs :: AudioNode -> IO Word
src/GHCJS/DOM/JSFFI/Generated/AudioParam.hs view
@@ -8,8 +8,7 @@         linearRampToValueAtTime, js_exponentialRampToValueAtTime,         exponentialRampToValueAtTime, js_setTargetAtTime, setTargetAtTime,         js_setValueCurveAtTime, setValueCurveAtTime,-        js_cancelScheduledValues, cancelScheduledValues,-        js_setTargetValueAtTime, setTargetValueAtTime, js_setValue,+        js_cancelScheduledValues, cancelScheduledValues, js_setValue,         setValue, js_getValue, getValue, js_getMinValue, getMinValue,         js_getMaxValue, getMaxValue, js_getDefaultValue, getDefaultValue,         js_getName, getName, js_getUnits, getUnits, AudioParam(..),@@ -19,7 +18,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -28,6 +27,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -40,7 +40,7 @@ setValueAtTime ::                (MonadIO m) => AudioParam -> Float -> Float -> m () setValueAtTime self value time-  = liftIO (js_setValueAtTime (self) value time)+  = liftIO (js_setValueAtTime self value time)   foreign import javascript unsafe         "$1[\"linearRampToValueAtTime\"]($2,\n$3)"@@ -50,7 +50,7 @@ linearRampToValueAtTime ::                         (MonadIO m) => AudioParam -> Float -> Float -> m () linearRampToValueAtTime self value time-  = liftIO (js_linearRampToValueAtTime (self) value time)+  = liftIO (js_linearRampToValueAtTime self value time)   foreign import javascript unsafe         "$1[\"exponentialRampToValueAtTime\"]($2,\n$3)"@@ -61,7 +61,7 @@ exponentialRampToValueAtTime ::                              (MonadIO m) => AudioParam -> Float -> Float -> m () exponentialRampToValueAtTime self value time-  = liftIO (js_exponentialRampToValueAtTime (self) value time)+  = liftIO (js_exponentialRampToValueAtTime self value time)   foreign import javascript unsafe         "$1[\"setTargetAtTime\"]($2, $3,\n$4)" js_setTargetAtTime ::@@ -71,11 +71,11 @@ setTargetAtTime ::                 (MonadIO m) => AudioParam -> Float -> Float -> Float -> m () setTargetAtTime self target time timeConstant-  = liftIO (js_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 ()+        :: AudioParam -> Optional Float32Array -> Float -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioParam.setValueCurveAtTime Mozilla AudioParam.setValueCurveAtTime documentation>  setValueCurveAtTime ::@@ -83,8 +83,8 @@                       AudioParam -> Maybe values -> Float -> Float -> m () setValueCurveAtTime self values time duration   = liftIO-      (js_setValueCurveAtTime (self)-         (maybeToNullable (fmap toFloat32Array values))+      (js_setValueCurveAtTime self+         (maybeToOptional (fmap toFloat32Array values))          time          duration)  @@ -95,53 +95,42 @@ -- | <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)+  = liftIO (js_cancelScheduledValues self startTime)   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)+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))+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))+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))+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))+getDefaultValue self = liftIO (js_getDefaultValue self)   foreign import javascript unsafe "$1[\"name\"]" js_getName ::         AudioParam -> IO JSString@@ -149,11 +138,11 @@ -- | <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)))+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))+getUnits self = liftIO (js_getUnits self)
src/GHCJS/DOM/JSFFI/Generated/AudioProcessingEvent.hs view
@@ -5,16 +5,14 @@ {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.AudioProcessingEvent        (js_getPlaybackTime, getPlaybackTime, js_getInputBuffer,-        getInputBuffer, getInputBufferUnsafe, getInputBufferUnchecked,-        js_getOutputBuffer, getOutputBuffer, getOutputBufferUnsafe,-        getOutputBufferUnchecked, AudioProcessingEvent(..),-        gTypeAudioProcessingEvent)+        getInputBuffer, js_getOutputBuffer, getOutputBuffer,+        AudioProcessingEvent(..), gTypeAudioProcessingEvent)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -23,6 +21,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -33,54 +32,20 @@  -- | <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))+getPlaybackTime self = liftIO (js_getPlaybackTime self)   foreign import javascript unsafe "$1[\"inputBuffer\"]"-        js_getInputBuffer ::-        AudioProcessingEvent -> IO (Nullable AudioBuffer)+        js_getInputBuffer :: AudioProcessingEvent -> IO 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioProcessingEvent.inputBuffer Mozilla AudioProcessingEvent.inputBuffer documentation> -getInputBufferUnsafe ::-                     (MonadIO m, HasCallStack) => AudioProcessingEvent -> m AudioBuffer-getInputBufferUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getInputBuffer (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioProcessingEvent.inputBuffer Mozilla AudioProcessingEvent.inputBuffer documentation> -getInputBufferUnchecked ::-                        (MonadIO m) => AudioProcessingEvent -> m AudioBuffer-getInputBufferUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$> (js_getInputBuffer (self)))+               (MonadIO m) => AudioProcessingEvent -> m AudioBuffer+getInputBuffer self = liftIO (js_getInputBuffer self)   foreign import javascript unsafe "$1[\"outputBuffer\"]"-        js_getOutputBuffer ::-        AudioProcessingEvent -> IO (Nullable AudioBuffer)+        js_getOutputBuffer :: AudioProcessingEvent -> IO AudioBuffer  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioProcessingEvent.outputBuffer Mozilla AudioProcessingEvent.outputBuffer documentation>  getOutputBuffer ::-                (MonadIO m) => AudioProcessingEvent -> m (Maybe AudioBuffer)-getOutputBuffer self-  = liftIO (nullableToMaybe <$> (js_getOutputBuffer (self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioProcessingEvent.outputBuffer Mozilla AudioProcessingEvent.outputBuffer documentation> -getOutputBufferUnsafe ::-                      (MonadIO m, HasCallStack) => AudioProcessingEvent -> m AudioBuffer-getOutputBufferUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getOutputBuffer (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioProcessingEvent.outputBuffer Mozilla AudioProcessingEvent.outputBuffer documentation> -getOutputBufferUnchecked ::-                         (MonadIO m) => AudioProcessingEvent -> m AudioBuffer-getOutputBufferUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$> (js_getOutputBuffer (self)))+                (MonadIO m) => AudioProcessingEvent -> m AudioBuffer+getOutputBuffer self = liftIO (js_getOutputBuffer self)
− src/GHCJS/DOM/JSFFI/Generated/AudioStreamTrack.hs 
@@ -1,39 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility-{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}-module GHCJS.DOM.JSFFI.Generated.AudioStreamTrack-       (js_newAudioStreamTrack, newAudioStreamTrack, AudioStreamTrack(..),-        gTypeAudioStreamTrack)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)-import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))-import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import 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
@@ -7,14 +7,14 @@        (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, getSourceBufferUnsafe,-        getSourceBufferUnchecked, AudioTrack(..), gTypeAudioTrack)+        js_getSourceBuffer, getSourceBuffer, AudioTrack(..),+        gTypeAudioTrack)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -23,6 +23,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -33,14 +34,14 @@  -- | <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)))+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))+setKind self val = liftIO (js_setKind self (toJSString val))   foreign import javascript unsafe "$1[\"kind\"]" js_getKind ::         AudioTrack -> IO JSString@@ -48,7 +49,7 @@ -- | <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)))+getKind self = liftIO (fromJSString <$> (js_getKind self))   foreign import javascript unsafe "$1[\"label\"]" js_getLabel ::         AudioTrack -> IO JSString@@ -56,7 +57,7 @@ -- | <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)))+getLabel self = liftIO (fromJSString <$> (js_getLabel self))   foreign import javascript unsafe "$1[\"language\"] = $2;"         js_setLanguage :: AudioTrack -> JSString -> IO ()@@ -65,7 +66,7 @@ setLanguage ::             (MonadIO m, ToJSString val) => AudioTrack -> val -> m () setLanguage self val-  = liftIO (js_setLanguage (self) (toJSString val))+  = liftIO (js_setLanguage self (toJSString val))   foreign import javascript unsafe "$1[\"language\"]" js_getLanguage         :: AudioTrack -> IO JSString@@ -73,43 +74,25 @@ -- | <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)))+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)+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))+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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrack.sourceBuffer Mozilla AudioTrack.sourceBuffer documentation> -getSourceBufferUnsafe ::-                      (MonadIO m, HasCallStack) => AudioTrack -> m SourceBuffer-getSourceBufferUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getSourceBuffer (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        js_getSourceBuffer :: AudioTrack -> IO SourceBuffer  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrack.sourceBuffer Mozilla AudioTrack.sourceBuffer documentation> -getSourceBufferUnchecked ::-                         (MonadIO m) => AudioTrack -> m SourceBuffer-getSourceBufferUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$> (js_getSourceBuffer (self)))+getSourceBuffer :: (MonadIO m) => AudioTrack -> m SourceBuffer+getSourceBuffer self = liftIO (js_getSourceBuffer self)
src/GHCJS/DOM/JSFFI/Generated/AudioTrackList.hs view
@@ -4,16 +4,15 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.AudioTrackList-       (js_item, item, item_, itemUnsafe, itemUnchecked, js_getTrackById,-        getTrackById, getTrackById_, getTrackByIdUnsafe,-        getTrackByIdUnchecked, js_getLength, getLength, change, addTrack,+       (js_item, item, item_, js_getTrackById, getTrackById,+        getTrackById_, js_getLength, getLength, change, addTrack,         removeTrack, AudioTrackList(..), gTypeAudioTrackList)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -22,79 +21,44 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums  -foreign import javascript unsafe "$1[\"item\"]($2)" js_item ::-        AudioTrackList -> Word -> IO (Nullable AudioTrack)+foreign import javascript unsafe "$1[$2]" js_item ::+        AudioTrackList -> Word -> IO AudioTrack  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrackList.item Mozilla AudioTrackList.item documentation> -item ::-     (MonadIO m) => AudioTrackList -> Word -> m (Maybe AudioTrack)-item self index-  = liftIO (nullableToMaybe <$> (js_item (self) index))+item :: (MonadIO m) => AudioTrackList -> Word -> m AudioTrack+item self index = liftIO (js_item self index)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrackList.item Mozilla AudioTrackList.item documentation>  item_ :: (MonadIO m) => AudioTrackList -> Word -> m ()-item_ self index = liftIO (void (js_item (self) index))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrackList.item Mozilla AudioTrackList.item documentation> -itemUnsafe ::-           (MonadIO m, HasCallStack) => AudioTrackList -> Word -> m AudioTrack-itemUnsafe self index-  = liftIO-      ((nullableToMaybe <$> (js_item (self) index)) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrackList.item Mozilla AudioTrackList.item documentation> -itemUnchecked ::-              (MonadIO m) => AudioTrackList -> Word -> m AudioTrack-itemUnchecked self index-  = liftIO (fromJust . nullableToMaybe <$> (js_item (self) index))+item_ self index = liftIO (void (js_item self index))   foreign import javascript unsafe "$1[\"getTrackById\"]($2)"-        js_getTrackById ::-        AudioTrackList -> JSString -> IO (Nullable AudioTrack)+        js_getTrackById :: AudioTrackList -> JSString -> IO 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)+             (MonadIO m, ToJSString id) => AudioTrackList -> id -> m AudioTrack getTrackById self id-  = liftIO-      (nullableToMaybe <$> (js_getTrackById (self) (toJSString id)))+  = liftIO (js_getTrackById self (toJSString id))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrackList.getTrackById Mozilla AudioTrackList.getTrackById documentation>  getTrackById_ ::               (MonadIO m, ToJSString id) => AudioTrackList -> id -> m () getTrackById_ self id-  = liftIO (void (js_getTrackById (self) (toJSString id)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrackList.getTrackById Mozilla AudioTrackList.getTrackById documentation> -getTrackByIdUnsafe ::-                   (MonadIO m, ToJSString id, HasCallStack) =>-                     AudioTrackList -> id -> m AudioTrack-getTrackByIdUnsafe self id-  = liftIO-      ((nullableToMaybe <$> (js_getTrackById (self) (toJSString id))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrackList.getTrackById Mozilla AudioTrackList.getTrackById documentation> -getTrackByIdUnchecked ::-                      (MonadIO m, ToJSString id) => AudioTrackList -> id -> m AudioTrack-getTrackByIdUnchecked self id-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_getTrackById (self) (toJSString id)))+  = liftIO (void (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))+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
src/GHCJS/DOM/JSFFI/Generated/AutocompleteErrorEvent.hs view
@@ -4,14 +4,15 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.AutocompleteErrorEvent-       (js_getReason, getReason, AutocompleteErrorEvent(..),+       (js_newAutocompleteErrorEvent, newAutocompleteErrorEvent,+        js_getReason, getReason, AutocompleteErrorEvent(..),         gTypeAutocompleteErrorEvent)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -20,11 +21,28 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums  +foreign import javascript unsafe+        "new window[\"AutocompleteErrorEvent\"]($1,\n$2)"+        js_newAutocompleteErrorEvent ::+        JSString ->+          Optional AutocompleteErrorEventInit -> IO AutocompleteErrorEvent++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AutocompleteErrorEvent Mozilla AutocompleteErrorEvent documentation> +newAutocompleteErrorEvent ::+                          (MonadIO m, ToJSString type') =>+                            type' ->+                              Maybe AutocompleteErrorEventInit -> m AutocompleteErrorEvent+newAutocompleteErrorEvent type' eventInitDict+  = liftIO+      (js_newAutocompleteErrorEvent (toJSString type')+         (maybeToOptional eventInitDict))+  foreign import javascript unsafe "$1[\"reason\"]" js_getReason ::         AutocompleteErrorEvent -> IO JSString @@ -32,4 +50,4 @@ getReason ::           (MonadIO m, FromJSString result) =>             AutocompleteErrorEvent -> m result-getReason self = liftIO (fromJSString <$> (js_getReason (self)))+getReason self = liftIO (fromJSString <$> (js_getReason self))
src/GHCJS/DOM/JSFFI/Generated/BarProp.hs view
@@ -9,7 +9,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -18,6 +18,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -28,4 +29,4 @@  -- | <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))+getVisible self = liftIO (js_getVisible self)
− src/GHCJS/DOM/JSFFI/Generated/BatteryManager.hs 
@@ -1,74 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility-{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}-module GHCJS.DOM.JSFFI.Generated.BatteryManager-       (js_getCharging, getCharging, js_getChargingTime, getChargingTime,-        js_getDischargingTime, getDischargingTime, js_getLevel, getLevel,-        chargingChange, chargingTimeChange, dischargingTimeChange,-        levelChange, BatteryManager(..), gTypeBatteryManager)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)-import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))-import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import 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
@@ -4,13 +4,14 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.BeforeLoadEvent-       (js_getUrl, getUrl, BeforeLoadEvent(..), gTypeBeforeLoadEvent)+       (js_newBeforeLoadEvent, newBeforeLoadEvent, js_getUrl, getUrl,+        BeforeLoadEvent(..), gTypeBeforeLoadEvent)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -19,15 +20,29 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums  +foreign import javascript unsafe+        "new window[\"BeforeLoadEvent\"]($1,\n$2)" js_newBeforeLoadEvent ::+        JSString -> Optional BeforeLoadEventInit -> IO BeforeLoadEvent++-- | <https://developer.mozilla.org/en-US/docs/Web/API/BeforeLoadEvent Mozilla BeforeLoadEvent documentation> +newBeforeLoadEvent ::+                   (MonadIO m, ToJSString type') =>+                     type' -> Maybe BeforeLoadEventInit -> m BeforeLoadEvent+newBeforeLoadEvent type' eventInitDict+  = liftIO+      (js_newBeforeLoadEvent (toJSString type')+         (maybeToOptional eventInitDict))+  foreign import javascript unsafe "$1[\"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)))+getUrl self = liftIO (fromJSString <$> (js_getUrl self))
src/GHCJS/DOM/JSFFI/Generated/BeforeUnloadEvent.hs view
@@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -20,6 +20,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -32,7 +33,7 @@ setReturnValue ::                (MonadIO m, ToJSString val) => BeforeUnloadEvent -> val -> m () setReturnValue self val-  = liftIO (js_setReturnValue (self) (toJSString val))+  = liftIO (js_setReturnValue self (toJSString val))   foreign import javascript unsafe "$1[\"returnValue\"]"         js_getReturnValue :: BeforeUnloadEvent -> IO JSString@@ -41,4 +42,4 @@ getReturnValue ::                (MonadIO m, FromJSString result) => BeforeUnloadEvent -> m result getReturnValue self-  = liftIO (fromJSString <$> (js_getReturnValue (self)))+  = liftIO (fromJSString <$> (js_getReturnValue self))
src/GHCJS/DOM/JSFFI/Generated/BiquadFilterNode.hs view
@@ -4,21 +4,16 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} 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, getFrequencyUnsafe, getFrequencyUnchecked,-        js_getDetune, getDetune, getDetuneUnsafe, getDetuneUnchecked,-        js_getQ, getQ, getQUnsafe, getQUnchecked, js_getGain, getGain,-        getGainUnsafe, getGainUnchecked, BiquadFilterNode(..),-        gTypeBiquadFilterNode)+       (js_getFrequencyResponse, getFrequencyResponse, js_setType,+        setType, js_getType, getType, js_getFrequency, getFrequency,+        js_getDetune, getDetune, js_getQ, getQ, js_getGain, getGain,+        BiquadFilterNode(..), gTypeBiquadFilterNode)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -27,6 +22,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -36,8 +32,8 @@         "$1[\"getFrequencyResponse\"]($2,\n$3, $4)" js_getFrequencyResponse         ::         BiquadFilterNode ->-          Nullable Float32Array ->-            Nullable Float32Array -> Nullable Float32Array -> IO ()+          Optional Float32Array ->+            Optional Float32Array -> Optional Float32Array -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/BiquadFilterNode.getFrequencyResponse Mozilla BiquadFilterNode.getFrequencyResponse documentation>  getFrequencyResponse ::@@ -48,116 +44,50 @@                            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+      (js_getFrequencyResponse self+         (maybeToOptional (fmap toFloat32Array frequencyHz))+         (maybeToOptional (fmap toFloat32Array magResponse))+         (maybeToOptional (fmap toFloat32Array phaseResponse)))   foreign import javascript unsafe "$1[\"type\"] = $2;" js_setType ::-        BiquadFilterNode -> JSString -> IO ()+        BiquadFilterNode -> JSVal -> 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))+        (MonadIO m) => BiquadFilterNode -> BiquadFilterType -> m ()+setType self val = liftIO (js_setType self (pToJSVal val))   foreign import javascript unsafe "$1[\"type\"]" js_getType ::-        BiquadFilterNode -> IO JSString+        BiquadFilterNode -> IO JSVal  -- | <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)))+getType :: (MonadIO m) => BiquadFilterNode -> m BiquadFilterType+getType self = liftIO ((js_getType self) >>= fromJSValUnchecked)   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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/BiquadFilterNode.frequency Mozilla BiquadFilterNode.frequency documentation> -getFrequencyUnsafe ::-                   (MonadIO m, HasCallStack) => BiquadFilterNode -> m AudioParam-getFrequencyUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getFrequency (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        js_getFrequency :: BiquadFilterNode -> IO AudioParam  -- | <https://developer.mozilla.org/en-US/docs/Web/API/BiquadFilterNode.frequency Mozilla BiquadFilterNode.frequency documentation> -getFrequencyUnchecked ::-                      (MonadIO m) => BiquadFilterNode -> m AudioParam-getFrequencyUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getFrequency (self)))+getFrequency :: (MonadIO m) => BiquadFilterNode -> m AudioParam+getFrequency self = liftIO (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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/BiquadFilterNode.detune Mozilla BiquadFilterNode.detune documentation> -getDetuneUnsafe ::-                (MonadIO m, HasCallStack) => BiquadFilterNode -> m AudioParam-getDetuneUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getDetune (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        BiquadFilterNode -> IO AudioParam  -- | <https://developer.mozilla.org/en-US/docs/Web/API/BiquadFilterNode.detune Mozilla BiquadFilterNode.detune documentation> -getDetuneUnchecked ::-                   (MonadIO m) => BiquadFilterNode -> m AudioParam-getDetuneUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getDetune (self)))+getDetune :: (MonadIO m) => BiquadFilterNode -> m AudioParam+getDetune self = liftIO (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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/BiquadFilterNode.Q Mozilla BiquadFilterNode.Q documentation> -getQUnsafe ::-           (MonadIO m, HasCallStack) => BiquadFilterNode -> m AudioParam-getQUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getQ (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        BiquadFilterNode -> IO AudioParam  -- | <https://developer.mozilla.org/en-US/docs/Web/API/BiquadFilterNode.Q Mozilla BiquadFilterNode.Q documentation> -getQUnchecked :: (MonadIO m) => BiquadFilterNode -> m AudioParam-getQUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getQ (self)))+getQ :: (MonadIO m) => BiquadFilterNode -> m AudioParam+getQ self = liftIO (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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/BiquadFilterNode.gain Mozilla BiquadFilterNode.gain documentation> -getGainUnsafe ::-              (MonadIO m, HasCallStack) => BiquadFilterNode -> m AudioParam-getGainUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getGain (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        BiquadFilterNode -> IO AudioParam  -- | <https://developer.mozilla.org/en-US/docs/Web/API/BiquadFilterNode.gain Mozilla BiquadFilterNode.gain documentation> -getGainUnchecked :: (MonadIO m) => BiquadFilterNode -> m AudioParam-getGainUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getGain (self)))+getGain :: (MonadIO m) => BiquadFilterNode -> m AudioParam+getGain self = liftIO (js_getGain self)
src/GHCJS/DOM/JSFFI/Generated/Blob.hs view
@@ -4,15 +4,14 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.Blob-       (js_newBlob, newBlob, js_newBlob', newBlob', js_slice, slice,-        slice_, sliceUnsafe, sliceUnchecked, js_getSize, getSize,+       (js_newBlob, newBlob, js_slice, slice, slice_, js_getSize, getSize,         js_getType, getType, Blob(..), gTypeBlob, IsBlob, toBlob)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -21,74 +20,49 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) 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+        js_newBlob :: JSVal -> Optional 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+newBlob ::+        (MonadIO m, IsBlobPart blobParts, IsBlobPropertyBag options) =>+          [blobParts] -> Maybe options -> m Blob+newBlob blobParts options   = liftIO-      (toJSVal blobParts >>= \ blobParts' -> js_newBlob' blobParts'-         (maybeToNullable (fmap toBlobPropertyBag options)))+      (toJSVal blobParts >>= \ blobParts' -> js_newBlob blobParts'+         (maybeToOptional (fmap toBlobPropertyBag options)))   foreign import javascript unsafe "$1[\"slice\"]($2, $3, $4)"         js_slice ::-        Blob -> Double -> Double -> Nullable JSString -> IO (Nullable Blob)+        Blob ->+          Optional Double -> Optional Double -> Optional JSString -> IO 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)+        self -> Maybe Int64 -> Maybe Int64 -> Maybe contentType -> m Blob slice self start end contentType   = liftIO-      (nullableToMaybe <$>-         (js_slice (toBlob self) (fromIntegral start) (fromIntegral end)-            (toMaybeJSString contentType)))+      (js_slice (toBlob self) (maybeToOptional (fmap fromIntegral start))+         (maybeToOptional (fmap fromIntegral end))+         (toOptionalJSString contentType))  -- | <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 ()+         self -> Maybe Int64 -> Maybe Int64 -> Maybe contentType -> m () slice_ self start end contentType   = liftIO       (void-         (js_slice (toBlob self) (fromIntegral start) (fromIntegral end)-            (toMaybeJSString contentType)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Blob.slice Mozilla Blob.slice documentation> -sliceUnsafe ::-            (MonadIO m, IsBlob self, ToJSString contentType, HasCallStack) =>-              self -> Int64 -> Int64 -> Maybe contentType -> m Blob-sliceUnsafe self start end contentType-  = liftIO-      ((nullableToMaybe <$>-          (js_slice (toBlob self) (fromIntegral start) (fromIntegral end)-             (toMaybeJSString contentType)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Blob.slice Mozilla Blob.slice documentation> -sliceUnchecked ::-               (MonadIO m, IsBlob self, ToJSString contentType) =>-                 self -> Int64 -> Int64 -> Maybe contentType -> m Blob-sliceUnchecked self start end contentType-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_slice (toBlob self) (fromIntegral start) (fromIntegral end)-            (toMaybeJSString contentType)))+         (js_slice (toBlob self) (maybeToOptional (fmap fromIntegral start))+            (maybeToOptional (fmap fromIntegral end))+            (toOptionalJSString contentType)))   foreign import javascript unsafe "$1[\"size\"]" js_getSize ::         Blob -> IO Double
+ src/GHCJS/DOM/JSFFI/Generated/Body.hs view
@@ -0,0 +1,81 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+module GHCJS.DOM.JSFFI.Generated.Body+       (js_arrayBuffer, arrayBuffer, arrayBuffer_, js_blob, blob, blob_,+        js_json, json, json_, js_text, text, text_, js_getBodyUsed,+        getBodyUsed, Body(..), gTypeBody, IsBody, toBody)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error)+import Data.Typeable (Typeable)+import GHCJS.Types (JSVal(..), JSString)+import GHCJS.Foreign (jsNull, jsUndefined)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Control.Monad (void)+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import Data.Maybe (fromJust)+import Data.Traversable (mapM)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.JSFFI.Generated.Enums+ +foreign import javascript interruptible+        "$1[\"arrayBuffer\"]().then($c);" js_arrayBuffer ::+        Body -> IO ArrayBuffer++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Body.arrayBuffer Mozilla Body.arrayBuffer documentation> +arrayBuffer :: (MonadIO m, IsBody self) => self -> m ArrayBuffer+arrayBuffer self = liftIO (js_arrayBuffer (toBody self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Body.arrayBuffer Mozilla Body.arrayBuffer documentation> +arrayBuffer_ :: (MonadIO m, IsBody self) => self -> m ()+arrayBuffer_ self = liftIO (void (js_arrayBuffer (toBody self)))+ +foreign import javascript interruptible+        "$1[\"blob\"]().then($c);" js_blob :: Body -> IO Blob++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Body.blob Mozilla Body.blob documentation> +blob :: (MonadIO m, IsBody self) => self -> m Blob+blob self = liftIO (js_blob (toBody self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Body.blob Mozilla Body.blob documentation> +blob_ :: (MonadIO m, IsBody self) => self -> m ()+blob_ self = liftIO (void (js_blob (toBody self)))+ +foreign import javascript interruptible+        "$1[\"json\"]().then($c);" js_json :: Body -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Body.json Mozilla Body.json documentation> +json :: (MonadIO m, IsBody self) => self -> m JSVal+json self = liftIO (js_json (toBody self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Body.json Mozilla Body.json documentation> +json_ :: (MonadIO m, IsBody self) => self -> m ()+json_ self = liftIO (void (js_json (toBody self)))+ +foreign import javascript interruptible+        "$1[\"text\"]().then($c);" js_text :: Body -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Body.text Mozilla Body.text documentation> +text ::+     (MonadIO m, IsBody self, FromJSString result) => self -> m result+text self = liftIO (fromJSString <$> (js_text (toBody self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Body.text Mozilla Body.text documentation> +text_ :: (MonadIO m, IsBody self) => self -> m ()+text_ self = liftIO (void (js_text (toBody self)))+ +foreign import javascript unsafe "($1[\"bodyUsed\"] ? 1 : 0)"+        js_getBodyUsed :: Body -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Body.bodyUsed Mozilla Body.bodyUsed documentation> +getBodyUsed :: (MonadIO m, IsBody self) => self -> m Bool+getBodyUsed self = liftIO (js_getBodyUsed (toBody self))
+ src/GHCJS/DOM/JSFFI/Generated/ByteLengthQueuingStrategy.hs view
@@ -0,0 +1,49 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+module GHCJS.DOM.JSFFI.Generated.ByteLengthQueuingStrategy+       (js_newByteLengthQueuingStrategy, newByteLengthQueuingStrategy,+        js_size, size, size_, ByteLengthQueuingStrategy(..),+        gTypeByteLengthQueuingStrategy)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error)+import Data.Typeable (Typeable)+import GHCJS.Types (JSVal(..), JSString)+import GHCJS.Foreign (jsNull, jsUndefined)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Control.Monad (void)+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import Data.Maybe (fromJust)+import Data.Traversable (mapM)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.JSFFI.Generated.Enums+ +foreign import javascript unsafe+        "new window[\"ByteLengthQueuingStrategy\"]()"+        js_newByteLengthQueuingStrategy :: IO ByteLengthQueuingStrategy++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ByteLengthQueuingStrategy Mozilla ByteLengthQueuingStrategy documentation> +newByteLengthQueuingStrategy ::+                             (MonadIO m) => m ByteLengthQueuingStrategy+newByteLengthQueuingStrategy+  = liftIO (js_newByteLengthQueuingStrategy)+ +foreign import javascript unsafe "$1[\"size\"]()" js_size ::+        ByteLengthQueuingStrategy -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ByteLengthQueuingStrategy.size Mozilla ByteLengthQueuingStrategy.size documentation> +size :: (MonadIO m) => ByteLengthQueuingStrategy -> m Double+size self = liftIO (js_size self)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ByteLengthQueuingStrategy.size Mozilla ByteLengthQueuingStrategy.size documentation> +size_ :: (MonadIO m) => ByteLengthQueuingStrategy -> m ()+size_ self = liftIO (void (js_size self))
src/GHCJS/DOM/JSFFI/Generated/CSS.hs view
@@ -5,13 +5,13 @@ {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.CSS        (js_supports2, supports2, supports2_, js_supports, supports,-        supports_, CSS(..), gTypeCSS)+        supports_, js_escape, escape, escape_, CSS(..), gTypeCSS)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -20,6 +20,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -35,7 +36,7 @@             CSS -> property -> value -> m Bool supports2 self property value   = liftIO-      (js_supports2 (self) (toJSString property) (toJSString value))+      (js_supports2 self (toJSString property) (toJSString value))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSS.supports Mozilla CSS.supports documentation>  supports2_ ::@@ -43,8 +44,7 @@              CSS -> property -> value -> m () supports2_ self property value   = liftIO-      (void-         (js_supports2 (self) (toJSString property) (toJSString value)))+      (void (js_supports2 self (toJSString property) (toJSString value)))   foreign import javascript unsafe "($1[\"supports\"]($2) ? 1 : 0)"         js_supports :: CSS -> JSString -> IO Bool@@ -54,11 +54,26 @@          (MonadIO m, ToJSString conditionText) =>            CSS -> conditionText -> m Bool supports self conditionText-  = liftIO (js_supports (self) (toJSString conditionText))+  = liftIO (js_supports self (toJSString conditionText))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSS.supports Mozilla CSS.supports documentation>  supports_ ::           (MonadIO m, ToJSString conditionText) =>             CSS -> conditionText -> m () supports_ self conditionText-  = liftIO (void (js_supports (self) (toJSString conditionText)))+  = liftIO (void (js_supports self (toJSString conditionText)))+ +foreign import javascript unsafe "$1[\"escape\"]($2)" js_escape ::+        CSS -> JSString -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSS.escape Mozilla CSS.escape documentation> +escape ::+       (MonadIO m, ToJSString ident, FromJSString result) =>+         CSS -> ident -> m result+escape self ident+  = liftIO (fromJSString <$> (js_escape self (toJSString ident)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSS.escape Mozilla CSS.escape documentation> +escape_ :: (MonadIO m, ToJSString ident) => CSS -> ident -> m ()+escape_ self ident+  = liftIO (void (js_escape self (toJSString ident)))
− src/GHCJS/DOM/JSFFI/Generated/CSSCharsetRule.hs 
@@ -1,61 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility-{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}-module GHCJS.DOM.JSFFI.Generated.CSSCharsetRule-       (js_setEncoding, setEncoding, js_getEncoding, getEncoding,-        getEncodingUnsafe, getEncodingUnchecked, CSSCharsetRule(..),-        gTypeCSSCharsetRule)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)-import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))-import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSCharsetRule.encoding Mozilla CSSCharsetRule.encoding documentation> -getEncodingUnsafe ::-                  (MonadIO m, HasCallStack, FromJSString result) =>-                    CSSCharsetRule -> m result-getEncodingUnsafe self-  = liftIO-      ((fromMaybeJSString <$> (js_getEncoding (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSCharsetRule.encoding Mozilla CSSCharsetRule.encoding documentation> -getEncodingUnchecked ::-                     (MonadIO m, FromJSString result) => CSSCharsetRule -> m result-getEncodingUnchecked self-  = liftIO (fromJust . fromMaybeJSString <$> (js_getEncoding (self)))
src/GHCJS/DOM/JSFFI/Generated/CSSFontFaceLoadEvent.hs view
@@ -4,7 +4,8 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.CSSFontFaceLoadEvent-       (js_getFontface, getFontface, getFontfaceUnsafe,+       (js_newCSSFontFaceLoadEvent, newCSSFontFaceLoadEvent,+        js_getFontface, getFontface, getFontfaceUnsafe,         getFontfaceUnchecked, js_getError, getError, getErrorUnsafe,         getErrorUnchecked, CSSFontFaceLoadEvent(..),         gTypeCSSFontFaceLoadEvent)@@ -13,7 +14,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -22,11 +23,27 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums  +foreign import javascript unsafe+        "new window[\"CSSFontFaceLoadEvent\"]($1,\n$2)"+        js_newCSSFontFaceLoadEvent ::+        JSString ->+          Optional CSSFontFaceLoadEventInit -> IO CSSFontFaceLoadEvent++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSFontFaceLoadEvent Mozilla CSSFontFaceLoadEvent documentation> +newCSSFontFaceLoadEvent ::+                        (MonadIO m, ToJSString type') =>+                          type' -> Maybe CSSFontFaceLoadEventInit -> m CSSFontFaceLoadEvent+newCSSFontFaceLoadEvent type' eventInit+  = liftIO+      (js_newCSSFontFaceLoadEvent (toJSString type')+         (maybeToOptional eventInit))+  foreign import javascript unsafe "$1[\"fontface\"]" js_getFontface         :: CSSFontFaceLoadEvent -> IO (Nullable CSSFontFaceRule) @@ -34,7 +51,7 @@ getFontface ::             (MonadIO m) => CSSFontFaceLoadEvent -> m (Maybe CSSFontFaceRule) getFontface self-  = liftIO (nullableToMaybe <$> (js_getFontface (self)))+  = liftIO (nullableToMaybe <$> (js_getFontface self))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSFontFaceLoadEvent.fontface Mozilla CSSFontFaceLoadEvent.fontface documentation>  getFontfaceUnsafe ::@@ -42,14 +59,14 @@                     CSSFontFaceLoadEvent -> m CSSFontFaceRule getFontfaceUnsafe self   = liftIO-      ((nullableToMaybe <$> (js_getFontface (self))) >>=+      ((nullableToMaybe <$> (js_getFontface self)) >>=          maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSFontFaceLoadEvent.fontface Mozilla CSSFontFaceLoadEvent.fontface documentation>  getFontfaceUnchecked ::                      (MonadIO m) => CSSFontFaceLoadEvent -> m CSSFontFaceRule getFontfaceUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getFontface (self)))+  = liftIO (fromJust . nullableToMaybe <$> (js_getFontface self))   foreign import javascript unsafe "$1[\"error\"]" js_getError ::         CSSFontFaceLoadEvent -> IO (Nullable DOMError)@@ -57,18 +74,18 @@ -- | <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)))+getError self = liftIO (nullableToMaybe <$> (js_getError self))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSFontFaceLoadEvent.error Mozilla CSSFontFaceLoadEvent.error documentation>  getErrorUnsafe ::                (MonadIO m, HasCallStack) => CSSFontFaceLoadEvent -> m DOMError getErrorUnsafe self   = liftIO-      ((nullableToMaybe <$> (js_getError (self))) >>=+      ((nullableToMaybe <$> (js_getError self)) >>=          maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSFontFaceLoadEvent.error Mozilla CSSFontFaceLoadEvent.error documentation>  getErrorUnchecked ::                   (MonadIO m) => CSSFontFaceLoadEvent -> m DOMError getErrorUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getError (self)))+  = liftIO (fromJust . nullableToMaybe <$> (js_getError self))
src/GHCJS/DOM/JSFFI/Generated/CSSFontFaceRule.hs view
@@ -4,14 +4,13 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.CSSFontFaceRule-       (js_getStyle, getStyle, getStyleUnsafe, getStyleUnchecked,-        CSSFontFaceRule(..), gTypeCSSFontFaceRule)+       (js_getStyle, getStyle, CSSFontFaceRule(..), gTypeCSSFontFaceRule)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -20,30 +19,15 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSFontFaceRule.style Mozilla CSSFontFaceRule.style documentation> -getStyleUnsafe ::-               (MonadIO m, HasCallStack) =>-                 CSSFontFaceRule -> m CSSStyleDeclaration-getStyleUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getStyle (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        CSSFontFaceRule -> IO CSSStyleDeclaration  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSFontFaceRule.style Mozilla CSSFontFaceRule.style documentation> -getStyleUnchecked ::-                  (MonadIO m) => CSSFontFaceRule -> m CSSStyleDeclaration-getStyleUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getStyle (self)))+getStyle :: (MonadIO m) => CSSFontFaceRule -> m CSSStyleDeclaration+getStyle self = liftIO (js_getStyle self)
src/GHCJS/DOM/JSFFI/Generated/CSSImportRule.hs view
@@ -5,15 +5,14 @@ {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.CSSImportRule        (js_getHref, getHref, getHrefUnsafe, getHrefUnchecked, js_getMedia,-        getMedia, getMediaUnsafe, getMediaUnchecked, js_getStyleSheet,-        getStyleSheet, getStyleSheetUnsafe, getStyleSheetUnchecked,-        CSSImportRule(..), gTypeCSSImportRule)+        getMedia, js_getStyleSheet, getStyleSheet, CSSImportRule(..),+        gTypeCSSImportRule)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -22,6 +21,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -34,7 +34,7 @@ getHref ::         (MonadIO m, FromJSString result) =>           CSSImportRule -> m (Maybe result)-getHref self = liftIO (fromMaybeJSString <$> (js_getHref (self)))+getHref self = liftIO (fromMaybeJSString <$> (js_getHref self))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSImportRule.href Mozilla CSSImportRule.href documentation>  getHrefUnsafe ::@@ -42,54 +42,25 @@                 CSSImportRule -> m result getHrefUnsafe self   = liftIO-      ((fromMaybeJSString <$> (js_getHref (self))) >>=+      ((fromMaybeJSString <$> (js_getHref self)) >>=          maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSImportRule.href Mozilla CSSImportRule.href documentation>  getHrefUnchecked ::                  (MonadIO m, FromJSString result) => CSSImportRule -> m result getHrefUnchecked self-  = liftIO (fromJust . fromMaybeJSString <$> (js_getHref (self)))+  = liftIO (fromJust . 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSImportRule.media Mozilla CSSImportRule.media documentation> -getMediaUnsafe ::-               (MonadIO m, HasCallStack) => CSSImportRule -> m MediaList-getMediaUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getMedia (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        CSSImportRule -> IO MediaList  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSImportRule.media Mozilla CSSImportRule.media documentation> -getMediaUnchecked :: (MonadIO m) => CSSImportRule -> m MediaList-getMediaUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getMedia (self)))+getMedia :: (MonadIO m) => CSSImportRule -> m MediaList+getMedia self = liftIO (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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSImportRule.styleSheet Mozilla CSSImportRule.styleSheet documentation> -getStyleSheetUnsafe ::-                    (MonadIO m, HasCallStack) => CSSImportRule -> m CSSStyleSheet-getStyleSheetUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getStyleSheet (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        js_getStyleSheet :: CSSImportRule -> IO CSSStyleSheet  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSImportRule.styleSheet Mozilla CSSImportRule.styleSheet documentation> -getStyleSheetUnchecked ::-                       (MonadIO m) => CSSImportRule -> m CSSStyleSheet-getStyleSheetUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getStyleSheet (self)))+getStyleSheet :: (MonadIO m) => CSSImportRule -> m CSSStyleSheet+getStyleSheet self = liftIO (js_getStyleSheet self)
src/GHCJS/DOM/JSFFI/Generated/CSSKeyframeRule.hs view
@@ -5,14 +5,13 @@ {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.CSSKeyframeRule        (js_setKeyText, setKeyText, js_getKeyText, getKeyText, js_getStyle,-        getStyle, getStyleUnsafe, getStyleUnchecked, CSSKeyframeRule(..),-        gTypeCSSKeyframeRule)+        getStyle, CSSKeyframeRule(..), gTypeCSSKeyframeRule)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -21,6 +20,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -32,8 +32,7 @@ -- | <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))+setKeyText self val = liftIO (js_setKeyText self (toJSString val))   foreign import javascript unsafe "$1[\"keyText\"]" js_getKeyText ::         CSSKeyframeRule -> IO JSString@@ -41,27 +40,11 @@ -- | <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)))+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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframeRule.style Mozilla CSSKeyframeRule.style documentation> -getStyleUnsafe ::-               (MonadIO m, HasCallStack) =>-                 CSSKeyframeRule -> m CSSStyleDeclaration-getStyleUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getStyle (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        CSSKeyframeRule -> IO CSSStyleDeclaration  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframeRule.style Mozilla CSSKeyframeRule.style documentation> -getStyleUnchecked ::-                  (MonadIO m) => CSSKeyframeRule -> m CSSStyleDeclaration-getStyleUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getStyle (self)))+getStyle :: (MonadIO m) => CSSKeyframeRule -> m CSSStyleDeclaration+getStyle self = liftIO (js_getStyle self)
src/GHCJS/DOM/JSFFI/Generated/CSSKeyframesRule.hs view
@@ -6,17 +6,15 @@ module GHCJS.DOM.JSFFI.Generated.CSSKeyframesRule        (js_insertRule, insertRule, js_appendRule, appendRule,         js_deleteRule, deleteRule, js_findRule, findRule, findRule_,-        findRuleUnsafe, findRuleUnchecked, js__get, _get, _get_,-        _getUnsafe, _getUnchecked, js_setName, setName, js_getName,-        getName, getNameUnsafe, getNameUnchecked, js_getCssRules,-        getCssRules, getCssRulesUnsafe, getCssRulesUnchecked,+        findRuleUnsafe, findRuleUnchecked, js_get, get, get_, js_setName,+        setName, js_getName, getName, js_getCssRules, getCssRules,         CSSKeyframesRule(..), gTypeCSSKeyframesRule)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -25,6 +23,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -37,7 +36,7 @@ insertRule ::            (MonadIO m, ToJSString rule) => CSSKeyframesRule -> rule -> m () insertRule self rule-  = liftIO (js_insertRule (self) (toJSString rule))+  = liftIO (js_insertRule self (toJSString rule))   foreign import javascript unsafe "$1[\"appendRule\"]($2)"         js_appendRule :: CSSKeyframesRule -> JSString -> IO ()@@ -46,7 +45,7 @@ appendRule ::            (MonadIO m, ToJSString rule) => CSSKeyframesRule -> rule -> m () appendRule self rule-  = liftIO (js_appendRule (self) (toJSString rule))+  = liftIO (js_appendRule self (toJSString rule))   foreign import javascript unsafe "$1[\"deleteRule\"]($2)"         js_deleteRule :: CSSKeyframesRule -> JSString -> IO ()@@ -54,8 +53,7 @@ -- | <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))+deleteRule self key = liftIO (js_deleteRule self (toJSString key))   foreign import javascript unsafe "$1[\"findRule\"]($2)" js_findRule         :: CSSKeyframesRule -> JSString -> IO (Nullable CSSKeyframeRule)@@ -65,14 +63,13 @@          (MonadIO m, ToJSString key) =>            CSSKeyframesRule -> key -> m (Maybe CSSKeyframeRule) findRule self key-  = liftIO-      (nullableToMaybe <$> (js_findRule (self) (toJSString key)))+  = liftIO (nullableToMaybe <$> (js_findRule self (toJSString key)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframesRule.findRule Mozilla CSSKeyframesRule.findRule documentation>  findRule_ ::           (MonadIO m, ToJSString key) => CSSKeyframesRule -> key -> m () findRule_ self key-  = liftIO (void (js_findRule (self) (toJSString key)))+  = liftIO (void (js_findRule self (toJSString key)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframesRule.findRule Mozilla CSSKeyframesRule.findRule documentation>  findRuleUnsafe ::@@ -80,7 +77,7 @@                  CSSKeyframesRule -> key -> m CSSKeyframeRule findRuleUnsafe self key   = liftIO-      ((nullableToMaybe <$> (js_findRule (self) (toJSString key))) >>=+      ((nullableToMaybe <$> (js_findRule self (toJSString key))) >>=          maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframesRule.findRule Mozilla CSSKeyframesRule.findRule documentation> @@ -90,89 +87,38 @@ findRuleUnchecked self key   = liftIO       (fromJust . nullableToMaybe <$>-         (js_findRule (self) (toJSString key)))+         (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))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframesRule._get Mozilla CSSKeyframesRule._get documentation> -_get_ :: (MonadIO m) => CSSKeyframesRule -> Word -> m ()-_get_ self index = liftIO (void (js__get (self) index))+foreign import javascript unsafe "$1[$2]" js_get ::+        CSSKeyframesRule -> Word -> IO CSSKeyframeRule --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframesRule._get Mozilla CSSKeyframesRule._get documentation> -_getUnsafe ::-           (MonadIO m, HasCallStack) =>-             CSSKeyframesRule -> Word -> m CSSKeyframeRule-_getUnsafe self index-  = liftIO-      ((nullableToMaybe <$> (js__get (self) index)) >>=-         maybe (Prelude.error "Nothing to return") return)+-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframesRule.get Mozilla CSSKeyframesRule.get documentation> +get :: (MonadIO m) => CSSKeyframesRule -> Word -> m CSSKeyframeRule+get self index = liftIO (js_get self index) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframesRule._get Mozilla CSSKeyframesRule._get documentation> -_getUnchecked ::-              (MonadIO m) => CSSKeyframesRule -> Word -> m CSSKeyframeRule-_getUnchecked self index-  = liftIO (fromJust . nullableToMaybe <$> (js__get (self) index))+-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframesRule.get Mozilla CSSKeyframesRule.get documentation> +get_ :: (MonadIO m) => CSSKeyframesRule -> Word -> m ()+get_ self index = liftIO (void (js_get self index))   foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName ::-        CSSKeyframesRule -> Nullable JSString -> IO ()+        CSSKeyframesRule -> 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))+        (MonadIO m, ToJSString val) => CSSKeyframesRule -> val -> m ()+setName self val = liftIO (js_setName self (toJSString val))   foreign import javascript unsafe "$1[\"name\"]" js_getName ::-        CSSKeyframesRule -> IO (Nullable JSString)+        CSSKeyframesRule -> IO 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframesRule.name Mozilla CSSKeyframesRule.name documentation> -getNameUnsafe ::-              (MonadIO m, HasCallStack, FromJSString result) =>-                CSSKeyframesRule -> m result-getNameUnsafe self-  = liftIO-      ((fromMaybeJSString <$> (js_getName (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframesRule.name Mozilla CSSKeyframesRule.name documentation> -getNameUnchecked ::-                 (MonadIO m, FromJSString result) => CSSKeyframesRule -> m result-getNameUnchecked self-  = liftIO (fromJust . fromMaybeJSString <$> (js_getName (self)))+        (MonadIO m, FromJSString result) => CSSKeyframesRule -> m result+getName self = liftIO (fromJSString <$> (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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframesRule.cssRules Mozilla CSSKeyframesRule.cssRules documentation> -getCssRulesUnsafe ::-                  (MonadIO m, HasCallStack) => CSSKeyframesRule -> m CSSRuleList-getCssRulesUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getCssRules (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        :: CSSKeyframesRule -> IO CSSRuleList  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframesRule.cssRules Mozilla CSSKeyframesRule.cssRules documentation> -getCssRulesUnchecked ::-                     (MonadIO m) => CSSKeyframesRule -> m CSSRuleList-getCssRulesUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getCssRules (self)))+getCssRules :: (MonadIO m) => CSSKeyframesRule -> m CSSRuleList+getCssRules self = liftIO (js_getCssRules self)
src/GHCJS/DOM/JSFFI/Generated/CSSMediaRule.hs view
@@ -5,15 +5,14 @@ {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.CSSMediaRule        (js_insertRule, insertRule, insertRule_, js_deleteRule, deleteRule,-        js_getMedia, getMedia, getMediaUnsafe, getMediaUnchecked,-        js_getCssRules, getCssRules, getCssRulesUnsafe,-        getCssRulesUnchecked, CSSMediaRule(..), gTypeCSSMediaRule)+        js_getMedia, getMedia, js_getCssRules, getCssRules,+        CSSMediaRule(..), gTypeCSSMediaRule)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -22,73 +21,53 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums   foreign import javascript unsafe "$1[\"insertRule\"]($2, $3)"-        js_insertRule :: CSSMediaRule -> JSString -> Word -> IO Word+        js_insertRule ::+        CSSMediaRule -> Optional JSString -> Optional Word -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSMediaRule.insertRule Mozilla CSSMediaRule.insertRule documentation>  insertRule ::            (MonadIO m, ToJSString rule) =>-             CSSMediaRule -> rule -> Word -> m Word+             CSSMediaRule -> Maybe rule -> Maybe Word -> m Word insertRule self rule index-  = liftIO (js_insertRule (self) (toJSString rule) index)+  = liftIO+      (js_insertRule self (toOptionalJSString rule)+         (maybeToOptional index))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSMediaRule.insertRule Mozilla CSSMediaRule.insertRule documentation>  insertRule_ ::             (MonadIO m, ToJSString rule) =>-              CSSMediaRule -> rule -> Word -> m ()+              CSSMediaRule -> Maybe rule -> Maybe Word -> m () insertRule_ self rule index-  = liftIO (void (js_insertRule (self) (toJSString rule) index))+  = liftIO+      (void+         (js_insertRule self (toOptionalJSString rule)+            (maybeToOptional index)))   foreign import javascript unsafe "$1[\"deleteRule\"]($2)"-        js_deleteRule :: CSSMediaRule -> Word -> IO ()+        js_deleteRule :: CSSMediaRule -> Optional Word -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSMediaRule.deleteRule Mozilla CSSMediaRule.deleteRule documentation> -deleteRule :: (MonadIO m) => CSSMediaRule -> Word -> m ()-deleteRule self index = liftIO (js_deleteRule (self) index)+deleteRule :: (MonadIO m) => CSSMediaRule -> Maybe Word -> m ()+deleteRule self index+  = liftIO (js_deleteRule self (maybeToOptional 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSMediaRule.media Mozilla CSSMediaRule.media documentation> -getMediaUnsafe ::-               (MonadIO m, HasCallStack) => CSSMediaRule -> m MediaList-getMediaUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getMedia (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        CSSMediaRule -> IO MediaList  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSMediaRule.media Mozilla CSSMediaRule.media documentation> -getMediaUnchecked :: (MonadIO m) => CSSMediaRule -> m MediaList-getMediaUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getMedia (self)))+getMedia :: (MonadIO m) => CSSMediaRule -> m MediaList+getMedia self = liftIO (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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSMediaRule.cssRules Mozilla CSSMediaRule.cssRules documentation> -getCssRulesUnsafe ::-                  (MonadIO m, HasCallStack) => CSSMediaRule -> m CSSRuleList-getCssRulesUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getCssRules (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        :: CSSMediaRule -> IO CSSRuleList  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSMediaRule.cssRules Mozilla CSSMediaRule.cssRules documentation> -getCssRulesUnchecked ::-                     (MonadIO m) => CSSMediaRule -> m CSSRuleList-getCssRulesUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getCssRules (self)))+getCssRules :: (MonadIO m) => CSSMediaRule -> m CSSRuleList+getCssRules self = liftIO (js_getCssRules self)
+ src/GHCJS/DOM/JSFFI/Generated/CSSNamespaceRule.hs view
@@ -0,0 +1,44 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+module GHCJS.DOM.JSFFI.Generated.CSSNamespaceRule+       (js_getNamespaceURI, getNamespaceURI, js_getPrefix, getPrefix,+        CSSNamespaceRule(..), gTypeCSSNamespaceRule)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error)+import Data.Typeable (Typeable)+import GHCJS.Types (JSVal(..), JSString)+import GHCJS.Foreign (jsNull, jsUndefined)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Control.Monad (void)+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import Data.Maybe (fromJust)+import Data.Traversable (mapM)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"namespaceURI\"]"+        js_getNamespaceURI :: CSSNamespaceRule -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSNamespaceRule.namespaceURI Mozilla CSSNamespaceRule.namespaceURI documentation> +getNamespaceURI ::+                (MonadIO m, FromJSString result) => CSSNamespaceRule -> m result+getNamespaceURI self+  = liftIO (fromJSString <$> (js_getNamespaceURI self))+ +foreign import javascript unsafe "$1[\"prefix\"]" js_getPrefix ::+        CSSNamespaceRule -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSNamespaceRule.prefix Mozilla CSSNamespaceRule.prefix documentation> +getPrefix ::+          (MonadIO m, FromJSString result) => CSSNamespaceRule -> m result+getPrefix self = liftIO (fromJSString <$> (js_getPrefix self))
src/GHCJS/DOM/JSFFI/Generated/CSSPageRule.hs view
@@ -6,14 +6,13 @@ module GHCJS.DOM.JSFFI.Generated.CSSPageRule        (js_setSelectorText, setSelectorText, js_getSelectorText,         getSelectorText, getSelectorTextUnsafe, getSelectorTextUnchecked,-        js_getStyle, getStyle, getStyleUnsafe, getStyleUnchecked,-        CSSPageRule(..), gTypeCSSPageRule)+        js_getStyle, getStyle, CSSPageRule(..), gTypeCSSPageRule)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -22,19 +21,20 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums   foreign import javascript unsafe "$1[\"selectorText\"] = $2;"-        js_setSelectorText :: CSSPageRule -> Nullable JSString -> IO ()+        js_setSelectorText :: CSSPageRule -> Optional JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPageRule.selectorText Mozilla CSSPageRule.selectorText documentation>  setSelectorText ::                 (MonadIO m, ToJSString val) => CSSPageRule -> Maybe val -> m () setSelectorText self val-  = liftIO (js_setSelectorText (self) (toMaybeJSString val))+  = liftIO (js_setSelectorText self (toOptionalJSString val))   foreign import javascript unsafe "$1[\"selectorText\"]"         js_getSelectorText :: CSSPageRule -> IO (Nullable JSString)@@ -43,7 +43,7 @@ getSelectorText ::                 (MonadIO m, FromJSString result) => CSSPageRule -> m (Maybe result) getSelectorText self-  = liftIO (fromMaybeJSString <$> (js_getSelectorText (self)))+  = liftIO (fromMaybeJSString <$> (js_getSelectorText self))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPageRule.selectorText Mozilla CSSPageRule.selectorText documentation>  getSelectorTextUnsafe ::@@ -51,7 +51,7 @@                         CSSPageRule -> m result getSelectorTextUnsafe self   = liftIO-      ((fromMaybeJSString <$> (js_getSelectorText (self))) >>=+      ((fromMaybeJSString <$> (js_getSelectorText self)) >>=          maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPageRule.selectorText Mozilla CSSPageRule.selectorText documentation> @@ -59,26 +59,11 @@                          (MonadIO m, FromJSString result) => CSSPageRule -> m result getSelectorTextUnchecked self   = liftIO-      (fromJust . fromMaybeJSString <$> (js_getSelectorText (self)))+      (fromJust . 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPageRule.style Mozilla CSSPageRule.style documentation> -getStyleUnsafe ::-               (MonadIO m, HasCallStack) => CSSPageRule -> m CSSStyleDeclaration-getStyleUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getStyle (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        CSSPageRule -> IO CSSStyleDeclaration  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPageRule.style Mozilla CSSPageRule.style documentation> -getStyleUnchecked ::-                  (MonadIO m) => CSSPageRule -> m CSSStyleDeclaration-getStyleUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getStyle (self)))+getStyle :: (MonadIO m) => CSSPageRule -> m CSSStyleDeclaration+getStyle self = liftIO (js_getStyle self)
src/GHCJS/DOM/JSFFI/Generated/CSSPrimitiveValue.hs view
@@ -8,27 +8,24 @@         getFloatValue_, js_setStringValue, setStringValue,         js_getStringValue, getStringValue, getStringValue_,         js_getCounterValue, getCounterValue, getCounterValue_,-        getCounterValueUnsafe, getCounterValueUnchecked, js_getRectValue,-        getRectValue, getRectValue_, getRectValueUnsafe,-        getRectValueUnchecked, js_getRGBColorValue, getRGBColorValue,-        getRGBColorValue_, getRGBColorValueUnsafe,-        getRGBColorValueUnchecked, pattern CSS_UNKNOWN, pattern CSS_NUMBER,-        pattern CSS_PERCENTAGE, pattern CSS_EMS, pattern CSS_EXS,-        pattern CSS_PX, pattern CSS_CM, pattern CSS_MM, pattern CSS_IN,-        pattern CSS_PT, pattern CSS_PC, pattern CSS_DEG, pattern CSS_RAD,-        pattern CSS_GRAD, pattern CSS_MS, pattern CSS_S, pattern CSS_HZ,-        pattern CSS_KHZ, pattern CSS_DIMENSION, pattern CSS_STRING,-        pattern CSS_URI, pattern CSS_IDENT, pattern CSS_ATTR,-        pattern CSS_COUNTER, pattern CSS_RECT, pattern CSS_RGBCOLOR,-        pattern CSS_VW, pattern CSS_VH, pattern CSS_VMIN, pattern CSS_VMAX,-        js_getPrimitiveType, getPrimitiveType, CSSPrimitiveValue(..),-        gTypeCSSPrimitiveValue)+        js_getRectValue, getRectValue, getRectValue_, js_getRGBColorValue,+        getRGBColorValue, getRGBColorValue_, pattern CSS_UNKNOWN,+        pattern CSS_NUMBER, pattern CSS_PERCENTAGE, pattern CSS_EMS,+        pattern CSS_EXS, pattern CSS_PX, pattern CSS_CM, pattern CSS_MM,+        pattern CSS_IN, pattern CSS_PT, pattern CSS_PC, pattern CSS_DEG,+        pattern CSS_RAD, pattern CSS_GRAD, pattern CSS_MS, pattern CSS_S,+        pattern CSS_HZ, pattern CSS_KHZ, pattern CSS_DIMENSION,+        pattern CSS_STRING, pattern CSS_URI, pattern CSS_IDENT,+        pattern CSS_ATTR, pattern CSS_COUNTER, pattern CSS_RECT,+        pattern CSS_RGBCOLOR, pattern CSS_VW, pattern CSS_VH,+        pattern CSS_VMIN, pattern CSS_VMAX, js_getPrimitiveType,+        getPrimitiveType, CSSPrimitiveValue(..), gTypeCSSPrimitiveValue)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -37,44 +34,52 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums   foreign import javascript unsafe "$1[\"setFloatValue\"]($2, $3)"-        js_setFloatValue :: CSSPrimitiveValue -> Word -> Float -> IO ()+        js_setFloatValue ::+        CSSPrimitiveValue -> Optional Word -> Optional Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPrimitiveValue.setFloatValue Mozilla CSSPrimitiveValue.setFloatValue documentation>  setFloatValue ::-              (MonadIO m) => CSSPrimitiveValue -> Word -> Float -> m ()+              (MonadIO m) =>+                CSSPrimitiveValue -> Maybe Word -> Maybe Float -> m () setFloatValue self unitType floatValue-  = liftIO (js_setFloatValue (self) unitType floatValue)+  = liftIO+      (js_setFloatValue self (maybeToOptional unitType)+         (maybeToOptional floatValue))   foreign import javascript unsafe "$1[\"getFloatValue\"]($2)"-        js_getFloatValue :: CSSPrimitiveValue -> Word -> IO Float+        js_getFloatValue :: CSSPrimitiveValue -> Optional Word -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPrimitiveValue.getFloatValue Mozilla CSSPrimitiveValue.getFloatValue documentation>  getFloatValue ::-              (MonadIO m) => CSSPrimitiveValue -> Word -> m Float+              (MonadIO m) => CSSPrimitiveValue -> Maybe Word -> m Float getFloatValue self unitType-  = liftIO (js_getFloatValue (self) unitType)+  = liftIO (js_getFloatValue self (maybeToOptional unitType))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPrimitiveValue.getFloatValue Mozilla CSSPrimitiveValue.getFloatValue documentation> -getFloatValue_ :: (MonadIO m) => CSSPrimitiveValue -> Word -> m ()+getFloatValue_ ::+               (MonadIO m) => CSSPrimitiveValue -> Maybe Word -> m () getFloatValue_ self unitType-  = liftIO (void (js_getFloatValue (self) unitType))+  = liftIO (void (js_getFloatValue self (maybeToOptional unitType)))   foreign import javascript unsafe "$1[\"setStringValue\"]($2, $3)"-        js_setStringValue :: CSSPrimitiveValue -> Word -> JSString -> IO ()+        js_setStringValue ::+        CSSPrimitiveValue -> Optional Word -> Optional JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPrimitiveValue.setStringValue Mozilla CSSPrimitiveValue.setStringValue documentation>  setStringValue ::                (MonadIO m, ToJSString stringValue) =>-                 CSSPrimitiveValue -> Word -> stringValue -> m ()+                 CSSPrimitiveValue -> Maybe Word -> Maybe stringValue -> m () setStringValue self stringType stringValue   = liftIO-      (js_setStringValue (self) stringType (toJSString stringValue))+      (js_setStringValue self (maybeToOptional stringType)+         (toOptionalJSString stringValue))   foreign import javascript unsafe "$1[\"getStringValue\"]()"         js_getStringValue :: CSSPrimitiveValue -> IO JSString@@ -83,92 +88,44 @@ getStringValue ::                (MonadIO m, FromJSString result) => CSSPrimitiveValue -> m result getStringValue self-  = liftIO (fromJSString <$> (js_getStringValue (self)))+  = liftIO (fromJSString <$> (js_getStringValue self))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPrimitiveValue.getStringValue Mozilla CSSPrimitiveValue.getStringValue documentation>  getStringValue_ :: (MonadIO m) => CSSPrimitiveValue -> m ()-getStringValue_ self = liftIO (void (js_getStringValue (self)))+getStringValue_ self = liftIO (void (js_getStringValue self))   foreign import javascript unsafe "$1[\"getCounterValue\"]()"-        js_getCounterValue :: CSSPrimitiveValue -> IO (Nullable Counter)+        js_getCounterValue :: CSSPrimitiveValue -> IO Counter  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPrimitiveValue.getCounterValue Mozilla CSSPrimitiveValue.getCounterValue documentation> -getCounterValue ::-                (MonadIO m) => CSSPrimitiveValue -> m (Maybe Counter)-getCounterValue self-  = liftIO (nullableToMaybe <$> (js_getCounterValue (self)))+getCounterValue :: (MonadIO m) => CSSPrimitiveValue -> m Counter+getCounterValue self = liftIO (js_getCounterValue self)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPrimitiveValue.getCounterValue Mozilla CSSPrimitiveValue.getCounterValue documentation>  getCounterValue_ :: (MonadIO m) => CSSPrimitiveValue -> m ()-getCounterValue_ self = liftIO (void (js_getCounterValue (self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPrimitiveValue.getCounterValue Mozilla CSSPrimitiveValue.getCounterValue documentation> -getCounterValueUnsafe ::-                      (MonadIO m, HasCallStack) => CSSPrimitiveValue -> m Counter-getCounterValueUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getCounterValue (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPrimitiveValue.getCounterValue Mozilla CSSPrimitiveValue.getCounterValue documentation> -getCounterValueUnchecked ::-                         (MonadIO m) => CSSPrimitiveValue -> m Counter-getCounterValueUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$> (js_getCounterValue (self)))+getCounterValue_ self = liftIO (void (js_getCounterValue self))   foreign import javascript unsafe "$1[\"getRectValue\"]()"-        js_getRectValue :: CSSPrimitiveValue -> IO (Nullable Rect)+        js_getRectValue :: CSSPrimitiveValue -> IO Rect  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPrimitiveValue.getRectValue Mozilla CSSPrimitiveValue.getRectValue documentation> -getRectValue :: (MonadIO m) => CSSPrimitiveValue -> m (Maybe Rect)-getRectValue self-  = liftIO (nullableToMaybe <$> (js_getRectValue (self)))+getRectValue :: (MonadIO m) => CSSPrimitiveValue -> m Rect+getRectValue self = liftIO (js_getRectValue self)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPrimitiveValue.getRectValue Mozilla CSSPrimitiveValue.getRectValue documentation>  getRectValue_ :: (MonadIO m) => CSSPrimitiveValue -> m ()-getRectValue_ self = liftIO (void (js_getRectValue (self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPrimitiveValue.getRectValue Mozilla CSSPrimitiveValue.getRectValue documentation> -getRectValueUnsafe ::-                   (MonadIO m, HasCallStack) => CSSPrimitiveValue -> m Rect-getRectValueUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getRectValue (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPrimitiveValue.getRectValue Mozilla CSSPrimitiveValue.getRectValue documentation> -getRectValueUnchecked :: (MonadIO m) => CSSPrimitiveValue -> m Rect-getRectValueUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getRectValue (self)))+getRectValue_ self = liftIO (void (js_getRectValue self))   foreign import javascript unsafe "$1[\"getRGBColorValue\"]()"-        js_getRGBColorValue :: CSSPrimitiveValue -> IO (Nullable RGBColor)+        js_getRGBColorValue :: CSSPrimitiveValue -> IO RGBColor  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPrimitiveValue.getRGBColorValue Mozilla CSSPrimitiveValue.getRGBColorValue documentation> -getRGBColorValue ::-                 (MonadIO m) => CSSPrimitiveValue -> m (Maybe RGBColor)-getRGBColorValue self-  = liftIO (nullableToMaybe <$> (js_getRGBColorValue (self)))+getRGBColorValue :: (MonadIO m) => CSSPrimitiveValue -> m RGBColor+getRGBColorValue self = liftIO (js_getRGBColorValue self)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPrimitiveValue.getRGBColorValue Mozilla CSSPrimitiveValue.getRGBColorValue documentation>  getRGBColorValue_ :: (MonadIO m) => CSSPrimitiveValue -> m ()-getRGBColorValue_ self = liftIO (void (js_getRGBColorValue (self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPrimitiveValue.getRGBColorValue Mozilla CSSPrimitiveValue.getRGBColorValue documentation> -getRGBColorValueUnsafe ::-                       (MonadIO m, HasCallStack) => CSSPrimitiveValue -> m RGBColor-getRGBColorValueUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getRGBColorValue (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPrimitiveValue.getRGBColorValue Mozilla CSSPrimitiveValue.getRGBColorValue documentation> -getRGBColorValueUnchecked ::-                          (MonadIO m) => CSSPrimitiveValue -> m RGBColor-getRGBColorValueUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$> (js_getRGBColorValue (self)))+getRGBColorValue_ self = liftIO (void (js_getRGBColorValue self)) pattern CSS_UNKNOWN = 0 pattern CSS_NUMBER = 1 pattern CSS_PERCENTAGE = 2@@ -205,4 +162,4 @@  -- | <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))+getPrimitiveType self = liftIO (js_getPrimitiveType self)
src/GHCJS/DOM/JSFFI/Generated/CSSRule.hs view
@@ -7,11 +7,12 @@        (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, getCssTextUnsafe,-        getCssTextUnchecked, js_getParentStyleSheet, getParentStyleSheet,+        pattern NAMESPACE_RULE, pattern SUPPORTS_RULE,+        pattern WEBKIT_VIEWPORT_RULE, pattern WEBKIT_REGION_RULE,+        pattern WEBKIT_KEYFRAMES_RULE, pattern WEBKIT_KEYFRAME_RULE,+        js_getType, getType, js_setCssText, setCssText, js_getCssText,+        getCssText, getCssTextUnsafe, getCssTextUnchecked,+        js_getParentStyleSheet, getParentStyleSheet,         getParentStyleSheetUnsafe, getParentStyleSheetUnchecked,         js_getParentRule, getParentRule, getParentRuleUnsafe,         getParentRuleUnchecked, CSSRule(..), gTypeCSSRule, IsCSSRule,@@ -21,7 +22,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -30,6 +31,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -43,6 +45,7 @@ pattern PAGE_RULE = 6 pattern KEYFRAMES_RULE = 7 pattern KEYFRAME_RULE = 8+pattern NAMESPACE_RULE = 10 pattern SUPPORTS_RULE = 12 pattern WEBKIT_VIEWPORT_RULE = 15 pattern WEBKIT_REGION_RULE = 16@@ -57,14 +60,14 @@ getType self = liftIO (js_getType (toCSSRule self))   foreign import javascript unsafe "$1[\"cssText\"] = $2;"-        js_setCssText :: CSSRule -> Nullable JSString -> IO ()+        js_setCssText :: CSSRule -> Optional 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))+  = liftIO (js_setCssText (toCSSRule self) (toOptionalJSString val))   foreign import javascript unsafe "$1[\"cssText\"]" js_getCssText ::         CSSRule -> IO (Nullable JSString)
src/GHCJS/DOM/JSFFI/Generated/CSSRuleList.hs view
@@ -4,14 +4,14 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.CSSRuleList-       (js_item, item, item_, itemUnsafe, itemUnchecked, js_getLength,-        getLength, CSSRuleList(..), gTypeCSSRuleList)+       (js_item, item, item_, js_getLength, getLength, CSSRuleList(..),+        gTypeCSSRuleList)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -20,39 +20,26 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums  -foreign import javascript unsafe "$1[\"item\"]($2)" js_item ::-        CSSRuleList -> Word -> IO (Nullable CSSRule)+foreign import javascript unsafe "$1[$2]" js_item ::+        CSSRuleList -> Word -> IO CSSRule  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSRuleList.item Mozilla CSSRuleList.item documentation> -item :: (MonadIO m) => CSSRuleList -> Word -> m (Maybe CSSRule)-item self index-  = liftIO (nullableToMaybe <$> (js_item (self) index))+item :: (MonadIO m) => CSSRuleList -> Word -> m CSSRule+item self index = liftIO (js_item self index)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSRuleList.item Mozilla CSSRuleList.item documentation>  item_ :: (MonadIO m) => CSSRuleList -> Word -> m ()-item_ self index = liftIO (void (js_item (self) index))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSRuleList.item Mozilla CSSRuleList.item documentation> -itemUnsafe ::-           (MonadIO m, HasCallStack) => CSSRuleList -> Word -> m CSSRule-itemUnsafe self index-  = liftIO-      ((nullableToMaybe <$> (js_item (self) index)) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSRuleList.item Mozilla CSSRuleList.item documentation> -itemUnchecked :: (MonadIO m) => CSSRuleList -> Word -> m CSSRule-itemUnchecked self index-  = liftIO (fromJust . nullableToMaybe <$> (js_item (self) index))+item_ self index = liftIO (void (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))+getLength self = liftIO (js_getLength self)
src/GHCJS/DOM/JSFFI/Generated/CSSStyleDeclaration.hs view
@@ -5,11 +5,9 @@ {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.CSSStyleDeclaration        (js_getPropertyValue, getPropertyValue, getPropertyValue_,-        getPropertyValueUnsafe, getPropertyValueUnchecked,         js_getPropertyCSSValue, getPropertyCSSValue, getPropertyCSSValue_,         getPropertyCSSValueUnsafe, getPropertyCSSValueUnchecked,         js_removeProperty, removeProperty, removeProperty_,-        removePropertyUnsafe, removePropertyUnchecked,         js_getPropertyPriority, getPropertyPriority, getPropertyPriority_,         getPropertyPriorityUnsafe, getPropertyPriorityUnchecked,         js_setProperty, setProperty, js_item, item, item_,@@ -17,16 +15,16 @@         getPropertyShorthand_, getPropertyShorthandUnsafe,         getPropertyShorthandUnchecked, js_isPropertyImplicit,         isPropertyImplicit, isPropertyImplicit_, js_setCssText, setCssText,-        js_getCssText, getCssText, getCssTextUnsafe, getCssTextUnchecked,-        js_getLength, getLength, js_getParentRule, getParentRule,-        getParentRuleUnsafe, getParentRuleUnchecked,-        CSSStyleDeclaration(..), gTypeCSSStyleDeclaration)+        js_getCssText, getCssText, js_getLength, getLength,+        js_getParentRule, getParentRule, getParentRuleUnsafe,+        getParentRuleUnchecked, CSSStyleDeclaration(..),+        gTypeCSSStyleDeclaration)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -35,6 +33,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -42,16 +41,16 @@   foreign import javascript unsafe "$1[\"getPropertyValue\"]($2)"         js_getPropertyValue ::-        CSSStyleDeclaration -> JSString -> IO (Nullable JSString)+        CSSStyleDeclaration -> JSString -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.getPropertyValue Mozilla CSSStyleDeclaration.getPropertyValue documentation>  getPropertyValue ::                  (MonadIO m, ToJSString propertyName, FromJSString result) =>-                   CSSStyleDeclaration -> propertyName -> m (Maybe result)+                   CSSStyleDeclaration -> propertyName -> m result getPropertyValue self propertyName   = liftIO-      (fromMaybeJSString <$>-         (js_getPropertyValue (self) (toJSString propertyName)))+      (fromJSString <$>+         (js_getPropertyValue self (toJSString propertyName)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.getPropertyValue Mozilla CSSStyleDeclaration.getPropertyValue documentation>  getPropertyValue_ ::@@ -59,27 +58,7 @@                     CSSStyleDeclaration -> propertyName -> m () getPropertyValue_ self propertyName   = liftIO-      (void (js_getPropertyValue (self) (toJSString propertyName)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.getPropertyValue Mozilla CSSStyleDeclaration.getPropertyValue documentation> -getPropertyValueUnsafe ::-                       (MonadIO m, ToJSString propertyName, HasCallStack,-                        FromJSString result) =>-                         CSSStyleDeclaration -> propertyName -> m result-getPropertyValueUnsafe self propertyName-  = liftIO-      ((fromMaybeJSString <$>-          (js_getPropertyValue (self) (toJSString propertyName)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.getPropertyValue Mozilla CSSStyleDeclaration.getPropertyValue documentation> -getPropertyValueUnchecked ::-                          (MonadIO m, ToJSString propertyName, FromJSString result) =>-                            CSSStyleDeclaration -> propertyName -> m result-getPropertyValueUnchecked self propertyName-  = liftIO-      (fromJust . fromMaybeJSString <$>-         (js_getPropertyValue (self) (toJSString propertyName)))+      (void (js_getPropertyValue self (toJSString propertyName)))   foreign import javascript unsafe "$1[\"getPropertyCSSValue\"]($2)"         js_getPropertyCSSValue ::@@ -92,7 +71,7 @@ getPropertyCSSValue self propertyName   = liftIO       (nullableToMaybe <$>-         (js_getPropertyCSSValue (self) (toJSString propertyName)))+         (js_getPropertyCSSValue self (toJSString propertyName)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.getPropertyCSSValue Mozilla CSSStyleDeclaration.getPropertyCSSValue documentation>  getPropertyCSSValue_ ::@@ -100,7 +79,7 @@                        CSSStyleDeclaration -> propertyName -> m () getPropertyCSSValue_ self propertyName   = liftIO-      (void (js_getPropertyCSSValue (self) (toJSString propertyName)))+      (void (js_getPropertyCSSValue self (toJSString propertyName)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.getPropertyCSSValue Mozilla CSSStyleDeclaration.getPropertyCSSValue documentation>  getPropertyCSSValueUnsafe ::@@ -109,7 +88,7 @@ getPropertyCSSValueUnsafe self propertyName   = liftIO       ((nullableToMaybe <$>-          (js_getPropertyCSSValue (self) (toJSString propertyName)))+          (js_getPropertyCSSValue self (toJSString propertyName)))          >>= maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.getPropertyCSSValue Mozilla CSSStyleDeclaration.getPropertyCSSValue documentation> @@ -119,48 +98,26 @@ getPropertyCSSValueUnchecked self propertyName   = liftIO       (fromJust . nullableToMaybe <$>-         (js_getPropertyCSSValue (self) (toJSString propertyName)))+         (js_getPropertyCSSValue self (toJSString propertyName)))   foreign import javascript unsafe "$1[\"removeProperty\"]($2)"-        js_removeProperty ::-        CSSStyleDeclaration -> JSString -> IO (Nullable JSString)+        js_removeProperty :: CSSStyleDeclaration -> JSString -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.removeProperty Mozilla CSSStyleDeclaration.removeProperty documentation>  removeProperty ::                (MonadIO m, ToJSString propertyName, FromJSString result) =>-                 CSSStyleDeclaration -> propertyName -> m (Maybe result)+                 CSSStyleDeclaration -> propertyName -> m result removeProperty self propertyName   = liftIO-      (fromMaybeJSString <$>-         (js_removeProperty (self) (toJSString propertyName)))+      (fromJSString <$>+         (js_removeProperty self (toJSString propertyName)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.removeProperty Mozilla CSSStyleDeclaration.removeProperty documentation>  removeProperty_ ::                 (MonadIO m, ToJSString propertyName) =>                   CSSStyleDeclaration -> propertyName -> m () removeProperty_ self propertyName-  = liftIO-      (void (js_removeProperty (self) (toJSString propertyName)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.removeProperty Mozilla CSSStyleDeclaration.removeProperty documentation> -removePropertyUnsafe ::-                     (MonadIO m, ToJSString propertyName, HasCallStack,-                      FromJSString result) =>-                       CSSStyleDeclaration -> propertyName -> m result-removePropertyUnsafe self propertyName-  = liftIO-      ((fromMaybeJSString <$>-          (js_removeProperty (self) (toJSString propertyName)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.removeProperty Mozilla CSSStyleDeclaration.removeProperty documentation> -removePropertyUnchecked ::-                        (MonadIO m, ToJSString propertyName, FromJSString result) =>-                          CSSStyleDeclaration -> propertyName -> m result-removePropertyUnchecked self propertyName-  = liftIO-      (fromJust . fromMaybeJSString <$>-         (js_removeProperty (self) (toJSString propertyName)))+  = liftIO (void (js_removeProperty self (toJSString propertyName)))   foreign import javascript unsafe "$1[\"getPropertyPriority\"]($2)"         js_getPropertyPriority ::@@ -173,7 +130,7 @@ getPropertyPriority self propertyName   = liftIO       (fromMaybeJSString <$>-         (js_getPropertyPriority (self) (toJSString propertyName)))+         (js_getPropertyPriority self (toJSString propertyName)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.getPropertyPriority Mozilla CSSStyleDeclaration.getPropertyPriority documentation>  getPropertyPriority_ ::@@ -181,7 +138,7 @@                        CSSStyleDeclaration -> propertyName -> m () getPropertyPriority_ self propertyName   = liftIO-      (void (js_getPropertyPriority (self) (toJSString propertyName)))+      (void (js_getPropertyPriority self (toJSString propertyName)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.getPropertyPriority Mozilla CSSStyleDeclaration.getPropertyPriority documentation>  getPropertyPriorityUnsafe ::@@ -191,7 +148,7 @@ getPropertyPriorityUnsafe self propertyName   = liftIO       ((fromMaybeJSString <$>-          (js_getPropertyPriority (self) (toJSString propertyName)))+          (js_getPropertyPriority self (toJSString propertyName)))          >>= maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.getPropertyPriority Mozilla CSSStyleDeclaration.getPropertyPriority documentation> @@ -201,139 +158,123 @@ getPropertyPriorityUnchecked self propertyName   = liftIO       (fromJust . fromMaybeJSString <$>-         (js_getPropertyPriority (self) (toJSString propertyName)))+         (js_getPropertyPriority self (toJSString propertyName)))   foreign import javascript unsafe "$1[\"setProperty\"]($2, $3, $4)"         js_setProperty ::         CSSStyleDeclaration ->-          JSString -> Nullable JSString -> JSString -> IO ()+          JSString -> Optional JSString -> Optional JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.setProperty Mozilla CSSStyleDeclaration.setProperty documentation>  setProperty ::             (MonadIO m, ToJSString propertyName, ToJSString value,              ToJSString priority) =>               CSSStyleDeclaration ->-                propertyName -> Maybe value -> priority -> m ()+                propertyName -> Maybe value -> Maybe priority -> m () setProperty self propertyName value priority   = liftIO-      (js_setProperty (self) (toJSString propertyName)-         (toMaybeJSString value)-         (toJSString priority))+      (js_setProperty self (toJSString propertyName)+         (toOptionalJSString value)+         (toOptionalJSString priority))  -foreign import javascript unsafe "$1[\"item\"]($2)" js_item ::+foreign import javascript unsafe "$1[$2]" js_item ::         CSSStyleDeclaration -> Word -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.item Mozilla CSSStyleDeclaration.item documentation>  item ::      (MonadIO m, FromJSString result) =>        CSSStyleDeclaration -> Word -> m result-item self index = liftIO (fromJSString <$> (js_item (self) index))+item self index = liftIO (fromJSString <$> (js_item self index))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.item Mozilla CSSStyleDeclaration.item documentation>  item_ :: (MonadIO m) => CSSStyleDeclaration -> Word -> m ()-item_ self index = liftIO (void (js_item (self) index))+item_ self index = liftIO (void (js_item self index))   foreign import javascript unsafe "$1[\"getPropertyShorthand\"]($2)"         js_getPropertyShorthand ::-        CSSStyleDeclaration -> JSString -> IO (Nullable JSString)+        CSSStyleDeclaration -> Optional JSString -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.getPropertyShorthand Mozilla CSSStyleDeclaration.getPropertyShorthand documentation>  getPropertyShorthand ::                      (MonadIO m, ToJSString propertyName, FromJSString result) =>-                       CSSStyleDeclaration -> propertyName -> m (Maybe result)+                       CSSStyleDeclaration -> Maybe propertyName -> m (Maybe result) getPropertyShorthand self propertyName   = liftIO       (fromMaybeJSString <$>-         (js_getPropertyShorthand (self) (toJSString propertyName)))+         (js_getPropertyShorthand self (toOptionalJSString propertyName)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.getPropertyShorthand Mozilla CSSStyleDeclaration.getPropertyShorthand documentation>  getPropertyShorthand_ ::                       (MonadIO m, ToJSString propertyName) =>-                        CSSStyleDeclaration -> propertyName -> m ()+                        CSSStyleDeclaration -> Maybe propertyName -> m () getPropertyShorthand_ self propertyName   = liftIO-      (void (js_getPropertyShorthand (self) (toJSString propertyName)))+      (void+         (js_getPropertyShorthand self (toOptionalJSString propertyName)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.getPropertyShorthand Mozilla CSSStyleDeclaration.getPropertyShorthand documentation>  getPropertyShorthandUnsafe ::                            (MonadIO m, ToJSString propertyName, HasCallStack,                             FromJSString result) =>-                             CSSStyleDeclaration -> propertyName -> m result+                             CSSStyleDeclaration -> Maybe propertyName -> m result getPropertyShorthandUnsafe self propertyName   = liftIO       ((fromMaybeJSString <$>-          (js_getPropertyShorthand (self) (toJSString propertyName)))+          (js_getPropertyShorthand self (toOptionalJSString propertyName)))          >>= maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.getPropertyShorthand Mozilla CSSStyleDeclaration.getPropertyShorthand documentation>  getPropertyShorthandUnchecked ::                               (MonadIO m, ToJSString propertyName, FromJSString result) =>-                                CSSStyleDeclaration -> propertyName -> m result+                                CSSStyleDeclaration -> Maybe propertyName -> m result getPropertyShorthandUnchecked self propertyName   = liftIO       (fromJust . fromMaybeJSString <$>-         (js_getPropertyShorthand (self) (toJSString propertyName)))+         (js_getPropertyShorthand self (toOptionalJSString propertyName)))   foreign import javascript unsafe         "($1[\"isPropertyImplicit\"]($2) ? 1 : 0)" js_isPropertyImplicit ::-        CSSStyleDeclaration -> JSString -> IO Bool+        CSSStyleDeclaration -> Optional JSString -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.isPropertyImplicit Mozilla CSSStyleDeclaration.isPropertyImplicit documentation>  isPropertyImplicit ::                    (MonadIO m, ToJSString propertyName) =>-                     CSSStyleDeclaration -> propertyName -> m Bool+                     CSSStyleDeclaration -> Maybe propertyName -> m Bool isPropertyImplicit self propertyName-  = liftIO (js_isPropertyImplicit (self) (toJSString propertyName))+  = liftIO+      (js_isPropertyImplicit self (toOptionalJSString propertyName))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.isPropertyImplicit Mozilla CSSStyleDeclaration.isPropertyImplicit documentation>  isPropertyImplicit_ ::                     (MonadIO m, ToJSString propertyName) =>-                      CSSStyleDeclaration -> propertyName -> m ()+                      CSSStyleDeclaration -> Maybe propertyName -> m () isPropertyImplicit_ self propertyName   = liftIO-      (void (js_isPropertyImplicit (self) (toJSString propertyName)))+      (void+         (js_isPropertyImplicit self (toOptionalJSString propertyName)))   foreign import javascript unsafe "$1[\"cssText\"] = $2;"-        js_setCssText :: CSSStyleDeclaration -> Nullable JSString -> IO ()+        js_setCssText :: CSSStyleDeclaration -> 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))+           (MonadIO m, ToJSString val) => CSSStyleDeclaration -> val -> m ()+setCssText self val = liftIO (js_setCssText self (toJSString val))   foreign import javascript unsafe "$1[\"cssText\"]" js_getCssText ::-        CSSStyleDeclaration -> IO (Nullable JSString)+        CSSStyleDeclaration -> IO 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.cssText Mozilla CSSStyleDeclaration.cssText documentation> -getCssTextUnsafe ::-                 (MonadIO m, HasCallStack, FromJSString result) =>-                   CSSStyleDeclaration -> m result-getCssTextUnsafe self-  = liftIO-      ((fromMaybeJSString <$> (js_getCssText (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.cssText Mozilla CSSStyleDeclaration.cssText documentation> -getCssTextUnchecked ::-                    (MonadIO m, FromJSString result) => CSSStyleDeclaration -> m result-getCssTextUnchecked self-  = liftIO (fromJust . fromMaybeJSString <$> (js_getCssText (self)))+           (MonadIO m, FromJSString result) => CSSStyleDeclaration -> m result+getCssText self = liftIO (fromJSString <$> (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))+getLength self = liftIO (js_getLength self)   foreign import javascript unsafe "$1[\"parentRule\"]"         js_getParentRule :: CSSStyleDeclaration -> IO (Nullable CSSRule)@@ -342,18 +283,18 @@ getParentRule ::               (MonadIO m) => CSSStyleDeclaration -> m (Maybe CSSRule) getParentRule self-  = liftIO (nullableToMaybe <$> (js_getParentRule (self)))+  = liftIO (nullableToMaybe <$> (js_getParentRule self))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.parentRule Mozilla CSSStyleDeclaration.parentRule documentation>  getParentRuleUnsafe ::                     (MonadIO m, HasCallStack) => CSSStyleDeclaration -> m CSSRule getParentRuleUnsafe self   = liftIO-      ((nullableToMaybe <$> (js_getParentRule (self))) >>=+      ((nullableToMaybe <$> (js_getParentRule self)) >>=          maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.parentRule Mozilla CSSStyleDeclaration.parentRule documentation>  getParentRuleUnchecked ::                        (MonadIO m) => CSSStyleDeclaration -> m CSSRule getParentRuleUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getParentRule (self)))+  = liftIO (fromJust . nullableToMaybe <$> (js_getParentRule self))
src/GHCJS/DOM/JSFFI/Generated/CSSStyleRule.hs view
@@ -6,14 +6,13 @@ module GHCJS.DOM.JSFFI.Generated.CSSStyleRule        (js_setSelectorText, setSelectorText, js_getSelectorText,         getSelectorText, getSelectorTextUnsafe, getSelectorTextUnchecked,-        js_getStyle, getStyle, getStyleUnsafe, getStyleUnchecked,-        CSSStyleRule(..), gTypeCSSStyleRule)+        js_getStyle, getStyle, CSSStyleRule(..), gTypeCSSStyleRule)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -22,19 +21,20 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums   foreign import javascript unsafe "$1[\"selectorText\"] = $2;"-        js_setSelectorText :: CSSStyleRule -> Nullable JSString -> IO ()+        js_setSelectorText :: CSSStyleRule -> Optional JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleRule.selectorText Mozilla CSSStyleRule.selectorText documentation>  setSelectorText ::                 (MonadIO m, ToJSString val) => CSSStyleRule -> Maybe val -> m () setSelectorText self val-  = liftIO (js_setSelectorText (self) (toMaybeJSString val))+  = liftIO (js_setSelectorText self (toOptionalJSString val))   foreign import javascript unsafe "$1[\"selectorText\"]"         js_getSelectorText :: CSSStyleRule -> IO (Nullable JSString)@@ -44,7 +44,7 @@                 (MonadIO m, FromJSString result) =>                   CSSStyleRule -> m (Maybe result) getSelectorText self-  = liftIO (fromMaybeJSString <$> (js_getSelectorText (self)))+  = liftIO (fromMaybeJSString <$> (js_getSelectorText self))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleRule.selectorText Mozilla CSSStyleRule.selectorText documentation>  getSelectorTextUnsafe ::@@ -52,7 +52,7 @@                         CSSStyleRule -> m result getSelectorTextUnsafe self   = liftIO-      ((fromMaybeJSString <$> (js_getSelectorText (self))) >>=+      ((fromMaybeJSString <$> (js_getSelectorText self)) >>=          maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleRule.selectorText Mozilla CSSStyleRule.selectorText documentation> @@ -60,26 +60,11 @@                          (MonadIO m, FromJSString result) => CSSStyleRule -> m result getSelectorTextUnchecked self   = liftIO-      (fromJust . fromMaybeJSString <$> (js_getSelectorText (self)))+      (fromJust . 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleRule.style Mozilla CSSStyleRule.style documentation> -getStyleUnsafe ::-               (MonadIO m, HasCallStack) => CSSStyleRule -> m CSSStyleDeclaration-getStyleUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getStyle (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        CSSStyleRule -> IO CSSStyleDeclaration  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleRule.style Mozilla CSSStyleRule.style documentation> -getStyleUnchecked ::-                  (MonadIO m) => CSSStyleRule -> m CSSStyleDeclaration-getStyleUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getStyle (self)))+getStyle :: (MonadIO m) => CSSStyleRule -> m CSSStyleDeclaration+getStyle self = liftIO (js_getStyle self)
src/GHCJS/DOM/JSFFI/Generated/CSSStyleSheet.hs view
@@ -4,19 +4,18 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.CSSStyleSheet-       (js_insertRule, insertRule, insertRule_, js_deleteRule, deleteRule,-        js_addRule, addRule, addRule_, js_removeRule, removeRule,-        js_getOwnerRule, getOwnerRule, getOwnerRuleUnsafe,-        getOwnerRuleUnchecked, js_getCssRules, getCssRules,-        getCssRulesUnsafe, getCssRulesUnchecked, js_getRules, getRules,-        getRulesUnsafe, getRulesUnchecked, CSSStyleSheet(..),-        gTypeCSSStyleSheet)+       (js_insertRuleDeprecated, insertRuleDeprecated,+        insertRuleDeprecated_, js_insertRule, insertRule, insertRule_,+        js_deleteRule, deleteRule, js_addRule, addRule, addRule_,+        js_removeRule, removeRule, js_getOwnerRule, getOwnerRule,+        js_getCssRules, getCssRules, js_getRules, getRules,+        CSSStyleSheet(..), gTypeCSSStyleSheet)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -25,123 +24,106 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums   foreign import javascript unsafe "$1[\"insertRule\"]($2, $3)"-        js_insertRule :: CSSStyleSheet -> JSString -> Word -> IO Word+        js_insertRuleDeprecated ::+        CSSStyleSheet -> JSString -> Word -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleSheet.insertRule Mozilla CSSStyleSheet.insertRule documentation> +insertRuleDeprecated ::+                     (MonadIO m, ToJSString rule) =>+                       CSSStyleSheet -> rule -> Word -> m Word+insertRuleDeprecated self rule index+  = liftIO (js_insertRuleDeprecated self (toJSString rule) index)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleSheet.insertRule Mozilla CSSStyleSheet.insertRule documentation> +insertRuleDeprecated_ ::+                      (MonadIO m, ToJSString rule) =>+                        CSSStyleSheet -> rule -> Word -> m ()+insertRuleDeprecated_ self rule index+  = liftIO+      (void (js_insertRuleDeprecated self (toJSString rule) index))+ +foreign import javascript unsafe "$1[\"insertRule\"]($2)"+        js_insertRule :: CSSStyleSheet -> JSString -> 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)+           (MonadIO m, ToJSString rule) => CSSStyleSheet -> rule -> m Word+insertRule self rule+  = liftIO (js_insertRule self (toJSString rule))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleSheet.insertRule Mozilla CSSStyleSheet.insertRule documentation>  insertRule_ ::-            (MonadIO m, ToJSString rule) =>-              CSSStyleSheet -> rule -> Word -> m ()-insertRule_ self rule index-  = liftIO (void (js_insertRule (self) (toJSString rule) index))+            (MonadIO m, ToJSString rule) => CSSStyleSheet -> rule -> m ()+insertRule_ self rule+  = liftIO (void (js_insertRule self (toJSString rule)))   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)+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+        CSSStyleSheet ->+          Optional JSString -> Optional JSString -> Optional 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+          CSSStyleSheet ->+            Maybe selector -> Maybe style -> Maybe Word -> m Int addRule self selector style index   = liftIO-      (js_addRule (self) (toJSString selector) (toJSString style) index)+      (js_addRule self (toOptionalJSString selector)+         (toOptionalJSString style)+         (maybeToOptional index))  -- | <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 ()+           CSSStyleSheet ->+             Maybe selector -> Maybe style -> Maybe Word -> m () addRule_ self selector style index   = liftIO       (void-         (js_addRule (self) (toJSString selector) (toJSString style) index))+         (js_addRule self (toOptionalJSString selector)+            (toOptionalJSString style)+            (maybeToOptional index)))   foreign import javascript unsafe "$1[\"removeRule\"]($2)"-        js_removeRule :: CSSStyleSheet -> Word -> IO ()+        js_removeRule :: CSSStyleSheet -> Optional 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)+removeRule :: (MonadIO m) => CSSStyleSheet -> Maybe Word -> m ()+removeRule self index+  = liftIO (js_removeRule self (maybeToOptional 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleSheet.ownerRule Mozilla CSSStyleSheet.ownerRule documentation> -getOwnerRuleUnsafe ::-                   (MonadIO m, HasCallStack) => CSSStyleSheet -> m CSSRule-getOwnerRuleUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getOwnerRule (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        js_getOwnerRule :: CSSStyleSheet -> IO CSSRule  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleSheet.ownerRule Mozilla CSSStyleSheet.ownerRule documentation> -getOwnerRuleUnchecked :: (MonadIO m) => CSSStyleSheet -> m CSSRule-getOwnerRuleUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getOwnerRule (self)))+getOwnerRule :: (MonadIO m) => CSSStyleSheet -> m CSSRule+getOwnerRule self = liftIO (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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleSheet.cssRules Mozilla CSSStyleSheet.cssRules documentation> -getCssRulesUnsafe ::-                  (MonadIO m, HasCallStack) => CSSStyleSheet -> m CSSRuleList-getCssRulesUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getCssRules (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        :: CSSStyleSheet -> IO CSSRuleList  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleSheet.cssRules Mozilla CSSStyleSheet.cssRules documentation> -getCssRulesUnchecked ::-                     (MonadIO m) => CSSStyleSheet -> m CSSRuleList-getCssRulesUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getCssRules (self)))+getCssRules :: (MonadIO m) => CSSStyleSheet -> m CSSRuleList+getCssRules self = liftIO (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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleSheet.rules Mozilla CSSStyleSheet.rules documentation> -getRulesUnsafe ::-               (MonadIO m, HasCallStack) => CSSStyleSheet -> m CSSRuleList-getRulesUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getRules (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        CSSStyleSheet -> IO CSSRuleList  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleSheet.rules Mozilla CSSStyleSheet.rules documentation> -getRulesUnchecked :: (MonadIO m) => CSSStyleSheet -> m CSSRuleList-getRulesUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getRules (self)))+getRules :: (MonadIO m) => CSSStyleSheet -> m CSSRuleList+getRules self = liftIO (js_getRules self)
src/GHCJS/DOM/JSFFI/Generated/CSSSupportsRule.hs view
@@ -5,15 +5,14 @@ {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.CSSSupportsRule        (js_insertRule, insertRule, insertRule_, js_deleteRule, deleteRule,-        js_getCssRules, getCssRules, getCssRulesUnsafe,-        getCssRulesUnchecked, js_getConditionText, getConditionText,+        js_getCssRules, getCssRules, js_getConditionText, getConditionText,         CSSSupportsRule(..), gTypeCSSSupportsRule)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -22,6 +21,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -35,44 +35,28 @@            (MonadIO m, ToJSString rule) =>              CSSSupportsRule -> rule -> Word -> m Word insertRule self rule index-  = liftIO (js_insertRule (self) (toJSString rule) index)+  = liftIO (js_insertRule self (toJSString rule) index)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSSupportsRule.insertRule Mozilla CSSSupportsRule.insertRule documentation>  insertRule_ ::             (MonadIO m, ToJSString rule) =>               CSSSupportsRule -> rule -> Word -> m () insertRule_ self rule index-  = liftIO (void (js_insertRule (self) (toJSString rule) index))+  = liftIO (void (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)+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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSSupportsRule.cssRules Mozilla CSSSupportsRule.cssRules documentation> -getCssRulesUnsafe ::-                  (MonadIO m, HasCallStack) => CSSSupportsRule -> m CSSRuleList-getCssRulesUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getCssRules (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        :: CSSSupportsRule -> IO CSSRuleList  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSSupportsRule.cssRules Mozilla CSSSupportsRule.cssRules documentation> -getCssRulesUnchecked ::-                     (MonadIO m) => CSSSupportsRule -> m CSSRuleList-getCssRulesUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getCssRules (self)))+getCssRules :: (MonadIO m) => CSSSupportsRule -> m CSSRuleList+getCssRules self = liftIO (js_getCssRules self)   foreign import javascript unsafe "$1[\"conditionText\"]"         js_getConditionText :: CSSSupportsRule -> IO JSString@@ -81,4 +65,4 @@ getConditionText ::                  (MonadIO m, FromJSString result) => CSSSupportsRule -> m result getConditionText self-  = liftIO (fromJSString <$> (js_getConditionText (self)))+  = liftIO (fromJSString <$> (js_getConditionText self))
src/GHCJS/DOM/JSFFI/Generated/CSSValue.hs view
@@ -14,7 +14,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -23,6 +23,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -33,14 +34,14 @@ pattern CSS_CUSTOM = 3   foreign import javascript unsafe "$1[\"cssText\"] = $2;"-        js_setCssText :: CSSValue -> Nullable JSString -> IO ()+        js_setCssText :: CSSValue -> Optional JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSValue.cssText Mozilla CSSValue.cssText documentation>  setCssText ::            (MonadIO m, IsCSSValue self, ToJSString val) =>              self -> Maybe val -> m () setCssText self val-  = liftIO (js_setCssText (toCSSValue self) (toMaybeJSString val))+  = liftIO (js_setCssText (toCSSValue self) (toOptionalJSString val))   foreign import javascript unsafe "$1[\"cssText\"]" js_getCssText ::         CSSValue -> IO (Nullable JSString)
src/GHCJS/DOM/JSFFI/Generated/CSSValueList.hs view
@@ -4,15 +4,14 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.CSSValueList-       (js_item, item, item_, itemUnsafe, itemUnchecked, js_getLength,-        getLength, CSSValueList(..), gTypeCSSValueList, IsCSSValueList,-        toCSSValueList)+       (js_item, item, item_, js_getLength, getLength, CSSValueList(..),+        gTypeCSSValueList)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -21,47 +20,26 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) 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))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSValueList.item Mozilla CSSValueList.item documentation> -item_ :: (MonadIO m, IsCSSValueList self) => self -> Word -> m ()-item_ self index-  = liftIO (void (js_item (toCSSValueList self) index))+foreign import javascript unsafe "$1[$2]" js_item ::+        CSSValueList -> Word -> IO CSSValue  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSValueList.item Mozilla CSSValueList.item documentation> -itemUnsafe ::-           (MonadIO m, IsCSSValueList self, HasCallStack) =>-             self -> Word -> m CSSValue-itemUnsafe self index-  = liftIO-      ((nullableToMaybe <$> (js_item (toCSSValueList self) index)) >>=-         maybe (Prelude.error "Nothing to return") return)+item :: (MonadIO m) => CSSValueList -> Word -> m CSSValue+item self index = liftIO (js_item self index)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSValueList.item Mozilla CSSValueList.item documentation> -itemUnchecked ::-              (MonadIO m, IsCSSValueList self) => self -> Word -> m CSSValue-itemUnchecked self index-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_item (toCSSValueList self) index))+item_ :: (MonadIO m) => CSSValueList -> Word -> m ()+item_ self index = liftIO (void (js_item 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))+getLength :: (MonadIO m) => CSSValueList -> m Word+getLength self = liftIO (js_getLength self)
src/GHCJS/DOM/JSFFI/Generated/CanvasGradient.hs view
@@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -20,6 +20,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -33,4 +34,4 @@              (MonadIO m, ToJSString color) =>                CanvasGradient -> Float -> color -> m () addColorStop self offset color-  = liftIO (js_addColorStop (self) offset (toJSString color))+  = liftIO (js_addColorStop self offset (toJSString color))
+ src/GHCJS/DOM/JSFFI/Generated/CanvasPath.hs view
@@ -0,0 +1,138 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+module GHCJS.DOM.JSFFI.Generated.CanvasPath+       (js_closePath, closePath, js_moveTo, moveTo, js_lineTo, lineTo,+        js_quadraticCurveTo, quadraticCurveTo, js_bezierCurveTo,+        bezierCurveTo, js_arcTo, arcTo, js_rect, rect, js_arc, arc,+        js_ellipse, ellipse, CanvasPath(..), gTypeCanvasPath, IsCanvasPath,+        toCanvasPath)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error)+import Data.Typeable (Typeable)+import GHCJS.Types (JSVal(..), JSString)+import GHCJS.Foreign (jsNull, jsUndefined)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Control.Monad (void)+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import Data.Maybe (fromJust)+import Data.Traversable (mapM)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"closePath\"]()" js_closePath+        :: CanvasPath -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasPath.closePath Mozilla CanvasPath.closePath documentation> +closePath :: (MonadIO m, IsCanvasPath self) => self -> m ()+closePath self = liftIO (js_closePath (toCanvasPath self))+ +foreign import javascript unsafe "$1[\"moveTo\"]($2, $3)" js_moveTo+        :: CanvasPath -> Double -> Double -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasPath.moveTo Mozilla CanvasPath.moveTo documentation> +moveTo ::+       (MonadIO m, IsCanvasPath self) => self -> Double -> Double -> m ()+moveTo self x y = liftIO (js_moveTo (toCanvasPath self) x y)+ +foreign import javascript unsafe "$1[\"lineTo\"]($2, $3)" js_lineTo+        :: CanvasPath -> Double -> Double -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasPath.lineTo Mozilla CanvasPath.lineTo documentation> +lineTo ::+       (MonadIO m, IsCanvasPath self) => self -> Double -> Double -> m ()+lineTo self x y = liftIO (js_lineTo (toCanvasPath self) x y)+ +foreign import javascript unsafe+        "$1[\"quadraticCurveTo\"]($2, $3,\n$4, $5)" js_quadraticCurveTo ::+        CanvasPath -> Double -> Double -> Double -> Double -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasPath.quadraticCurveTo Mozilla CanvasPath.quadraticCurveTo documentation> +quadraticCurveTo ::+                 (MonadIO m, IsCanvasPath self) =>+                   self -> Double -> Double -> Double -> Double -> m ()+quadraticCurveTo self cpx cpy x y+  = liftIO (js_quadraticCurveTo (toCanvasPath self) cpx cpy x y)+ +foreign import javascript unsafe+        "$1[\"bezierCurveTo\"]($2, $3, $4,\n$5, $6, $7)" js_bezierCurveTo+        ::+        CanvasPath ->+          Double -> Double -> Double -> Double -> Double -> Double -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasPath.bezierCurveTo Mozilla CanvasPath.bezierCurveTo documentation> +bezierCurveTo ::+              (MonadIO m, IsCanvasPath self) =>+                self ->+                  Double -> Double -> Double -> Double -> Double -> Double -> m ()+bezierCurveTo self cp1x cp1y cp2x cp2y x y+  = liftIO+      (js_bezierCurveTo (toCanvasPath self) cp1x cp1y cp2x cp2y x y)+ +foreign import javascript unsafe+        "$1[\"arcTo\"]($2, $3, $4, $5, $6)" js_arcTo ::+        CanvasPath ->+          Double -> Double -> Double -> Double -> Double -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasPath.arcTo Mozilla CanvasPath.arcTo documentation> +arcTo ::+      (MonadIO m, IsCanvasPath self) =>+        self -> Double -> Double -> Double -> Double -> Double -> m ()+arcTo self x1 y1 x2 y2 radius+  = liftIO (js_arcTo (toCanvasPath self) x1 y1 x2 y2 radius)+ +foreign import javascript unsafe "$1[\"rect\"]($2, $3, $4, $5)"+        js_rect ::+        CanvasPath -> Double -> Double -> Double -> Double -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasPath.rect Mozilla CanvasPath.rect documentation> +rect ::+     (MonadIO m, IsCanvasPath self) =>+       self -> Double -> Double -> Double -> Double -> m ()+rect self x y w h = liftIO (js_rect (toCanvasPath self) x y w h)+ +foreign import javascript unsafe+        "$1[\"arc\"]($2, $3, $4, $5, $6,\n$7)" js_arc ::+        CanvasPath ->+          Double -> Double -> Double -> Double -> Double -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasPath.arc Mozilla CanvasPath.arc documentation> +arc ::+    (MonadIO m, IsCanvasPath self) =>+      self ->+        Double -> Double -> Double -> Double -> Double -> Bool -> m ()+arc self x y radius startAngle endAngle anticlockwise+  = liftIO+      (js_arc (toCanvasPath self) x y radius startAngle endAngle+         anticlockwise)+ +foreign import javascript unsafe+        "$1[\"ellipse\"]($2, $3, $4, $5,\n$6, $7, $8, $9)" js_ellipse ::+        CanvasPath ->+          Double ->+            Double ->+              Double -> Double -> Double -> Double -> Double -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasPath.ellipse Mozilla CanvasPath.ellipse documentation> +ellipse ::+        (MonadIO m, IsCanvasPath self) =>+          self ->+            Double ->+              Double ->+                Double -> Double -> Double -> Double -> Double -> Bool -> m ()+ellipse self x y radiusX radiusY rotation startAngle endAngle+  anticlockwise+  = liftIO+      (js_ellipse (toCanvasPath self) x y radiusX radiusY rotation+         startAngle+         endAngle+         anticlockwise)
− src/GHCJS/DOM/JSFFI/Generated/CanvasRenderingContext.hs 
@@ -1,58 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility-{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}-module GHCJS.DOM.JSFFI.Generated.CanvasRenderingContext-       (js_getCanvas, getCanvas, getCanvasUnsafe, getCanvasUnchecked,-        CanvasRenderingContext(..), gTypeCanvasRenderingContext,-        IsCanvasRenderingContext, toCanvasRenderingContext)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)-import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))-import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext.canvas Mozilla CanvasRenderingContext.canvas documentation> -getCanvasUnsafe ::-                (MonadIO m, IsCanvasRenderingContext self, HasCallStack) =>-                  self -> m HTMLCanvasElement-getCanvasUnsafe self-  = liftIO-      ((nullableToMaybe <$>-          (js_getCanvas (toCanvasRenderingContext self)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext.canvas Mozilla CanvasRenderingContext.canvas documentation> -getCanvasUnchecked ::-                   (MonadIO m, IsCanvasRenderingContext self) =>-                     self -> m HTMLCanvasElement-getCanvasUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_getCanvas (toCanvasRenderingContext self)))
src/GHCJS/DOM/JSFFI/Generated/CanvasRenderingContext2D.hs view
@@ -4,1923 +4,1432 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} 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, createLinearGradient_,-        createLinearGradientUnsafe, createLinearGradientUnchecked,-        js_createRadialGradient, createRadialGradient,-        createRadialGradient_, createRadialGradientUnsafe,-        createRadialGradientUnchecked, js_setLineDash, setLineDash,-        js_getLineDash, 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, isPointInPathPath_,-        js_isPointInStrokePath, isPointInStrokePath, isPointInStrokePath_,-        js_isPointInPath, isPointInPath, isPointInPath_,-        js_isPointInStroke, isPointInStroke, isPointInStroke_,-        js_measureText, measureText, measureText_, measureTextUnsafe,-        measureTextUnchecked, 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, createPatternFromCanvas_,-        createPatternFromCanvasUnsafe, createPatternFromCanvasUnchecked,-        js_createPattern, createPattern, createPattern_,-        createPatternUnsafe, createPatternUnchecked, js_createImageData,-        createImageData, createImageData_, createImageDataUnsafe,-        createImageDataUnchecked, js_createImageDataSize,-        createImageDataSize, createImageDataSize_,-        createImageDataSizeUnsafe, createImageDataSizeUnchecked,-        js_getImageData, getImageData, getImageData_, getImageDataUnsafe,-        getImageDataUnchecked, js_webkitGetImageDataHD,-        webkitGetImageDataHD, webkitGetImageDataHD_,-        webkitGetImageDataHDUnsafe, webkitGetImageDataHDUnchecked,-        js_drawFocusIfNeeded, drawFocusIfNeeded, js_drawFocusIfNeededPath,-        drawFocusIfNeededPath, js_setGlobalAlpha, setGlobalAlpha,-        js_getGlobalAlpha, getGlobalAlpha, js_setGlobalCompositeOperation,-        setGlobalCompositeOperation, js_getGlobalCompositeOperation,-        getGlobalCompositeOperation, getGlobalCompositeOperationUnsafe,-        getGlobalCompositeOperationUnchecked, js_setLineWidth,-        setLineWidth, js_getLineWidth, getLineWidth, js_setLineCap,-        setLineCap, js_getLineCap, getLineCap, getLineCapUnsafe,-        getLineCapUnchecked, js_setLineJoin, setLineJoin, js_getLineJoin,-        getLineJoin, getLineJoinUnsafe, getLineJoinUnchecked,-        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,-        getShadowColorUnsafe, getShadowColorUnchecked,-        js_setLineDashOffset, setLineDashOffset, js_getLineDashOffset,-        getLineDashOffset, js_setWebkitLineDash, setWebkitLineDash,-        js_getWebkitLineDash, getWebkitLineDash, getWebkitLineDashUnsafe,-        getWebkitLineDashUnchecked, 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, getStrokeStyleUnsafe, getStrokeStyleUnchecked,-        js_setFillStyle, setFillStyle, js_getFillStyle, getFillStyle,-        getFillStyleUnsafe, getFillStyleUnchecked,-        js_getWebkitBackingStorePixelRatio,-        getWebkitBackingStorePixelRatio, js_setWebkitImageSmoothingEnabled,-        setWebkitImageSmoothingEnabled, js_getWebkitImageSmoothingEnabled,-        getWebkitImageSmoothingEnabled, CanvasRenderingContext2D(..),-        gTypeCanvasRenderingContext2D)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)-import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))-import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import 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))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createLinearGradient Mozilla CanvasRenderingContext2D.createLinearGradient documentation> -createLinearGradient_ ::-                      (MonadIO m) =>-                        CanvasRenderingContext2D ->-                          Float -> Float -> Float -> Float -> m ()-createLinearGradient_ self x0 y0 x1 y1-  = liftIO (void (js_createLinearGradient (self) x0 y0 x1 y1))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createLinearGradient Mozilla CanvasRenderingContext2D.createLinearGradient documentation> -createLinearGradientUnsafe ::-                           (MonadIO m, HasCallStack) =>-                             CanvasRenderingContext2D ->-                               Float -> Float -> Float -> Float -> m CanvasGradient-createLinearGradientUnsafe self x0 y0 x1 y1-  = liftIO-      ((nullableToMaybe <$> (js_createLinearGradient (self) x0 y0 x1 y1))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createLinearGradient Mozilla CanvasRenderingContext2D.createLinearGradient documentation> -createLinearGradientUnchecked ::-                              (MonadIO m) =>-                                CanvasRenderingContext2D ->-                                  Float -> Float -> Float -> Float -> m CanvasGradient-createLinearGradientUnchecked self x0 y0 x1 y1-  = liftIO-      (fromJust . 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))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createRadialGradient Mozilla CanvasRenderingContext2D.createRadialGradient documentation> -createRadialGradient_ ::-                      (MonadIO m) =>-                        CanvasRenderingContext2D ->-                          Float -> Float -> Float -> Float -> Float -> Float -> m ()-createRadialGradient_ self x0 y0 r0 x1 y1 r1-  = liftIO (void (js_createRadialGradient (self) x0 y0 r0 x1 y1 r1))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createRadialGradient Mozilla CanvasRenderingContext2D.createRadialGradient documentation> -createRadialGradientUnsafe ::-                           (MonadIO m, HasCallStack) =>-                             CanvasRenderingContext2D ->-                               Float ->-                                 Float -> Float -> Float -> Float -> Float -> m CanvasGradient-createRadialGradientUnsafe self x0 y0 r0 x1 y1 r1-  = liftIO-      ((nullableToMaybe <$>-          (js_createRadialGradient (self) x0 y0 r0 x1 y1 r1))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createRadialGradient Mozilla CanvasRenderingContext2D.createRadialGradient documentation> -createRadialGradientUnchecked ::-                              (MonadIO m) =>-                                CanvasRenderingContext2D ->-                                  Float ->-                                    Float -> Float -> Float -> Float -> Float -> m CanvasGradient-createRadialGradientUnchecked self x0 y0 r0 x1 y1 r1-  = liftIO-      (fromJust . 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)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.getLineDash Mozilla CanvasRenderingContext2D.getLineDash documentation> -getLineDash_ :: (MonadIO m) => CanvasRenderingContext2D -> m ()-getLineDash_ self = liftIO (void (js_getLineDash (self)))- -foreign import javascript unsafe-        "$1[\"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))---- | <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 ()-isPointInPathPath_ self path x y winding-  = liftIO-      (void-         (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)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.isPointInStroke Mozilla CanvasRenderingContext2D.isPointInStroke documentation> -isPointInStrokePath_ ::-                     (MonadIO m) =>-                       CanvasRenderingContext2D -> Maybe Path2D -> Float -> Float -> m ()-isPointInStrokePath_ self path x y-  = liftIO-      (void (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))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.isPointInPath Mozilla CanvasRenderingContext2D.isPointInPath documentation> -isPointInPath_ ::-               (MonadIO m) =>-                 CanvasRenderingContext2D ->-                   Float -> Float -> CanvasWindingRule -> m ()-isPointInPath_ self x y winding-  = liftIO (void (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)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.isPointInStroke Mozilla CanvasRenderingContext2D.isPointInStroke documentation> -isPointInStroke_ ::-                 (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> m ()-isPointInStroke_ self x y-  = liftIO (void (js_isPointInStroke (self) x y))- -foreign import javascript unsafe "$1[\"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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.measureText Mozilla CanvasRenderingContext2D.measureText documentation> -measureText_ ::-             (MonadIO m, ToJSString text) =>-               CanvasRenderingContext2D -> text -> m ()-measureText_ self text-  = liftIO (void (js_measureText (self) (toJSString text)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.measureText Mozilla CanvasRenderingContext2D.measureText documentation> -measureTextUnsafe ::-                  (MonadIO m, ToJSString text, HasCallStack) =>-                    CanvasRenderingContext2D -> text -> m TextMetrics-measureTextUnsafe self text-  = liftIO-      ((nullableToMaybe <$> (js_measureText (self) (toJSString text)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.measureText Mozilla CanvasRenderingContext2D.measureText documentation> -measureTextUnchecked ::-                     (MonadIO m, ToJSString text) =>-                       CanvasRenderingContext2D -> text -> m TextMetrics-measureTextUnchecked self text-  = liftIO-      (fromJust . 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)))---- | <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 ()-createPatternFromCanvas_ self canvas repetitionType-  = liftIO-      (void-         (js_createPatternFromCanvas (self) (maybeToNullable canvas)-            (toMaybeJSString repetitionType)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createPattern Mozilla CanvasRenderingContext2D.createPattern documentation> -createPatternFromCanvasUnsafe ::-                              (MonadIO m, ToJSString repetitionType, HasCallStack) =>-                                CanvasRenderingContext2D ->-                                  Maybe HTMLCanvasElement -> Maybe repetitionType -> m CanvasPattern-createPatternFromCanvasUnsafe self canvas repetitionType-  = liftIO-      ((nullableToMaybe <$>-          (js_createPatternFromCanvas (self) (maybeToNullable canvas)-             (toMaybeJSString repetitionType)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createPattern Mozilla CanvasRenderingContext2D.createPattern documentation> -createPatternFromCanvasUnchecked ::-                                 (MonadIO m, ToJSString repetitionType) =>-                                   CanvasRenderingContext2D ->-                                     Maybe HTMLCanvasElement ->-                                       Maybe repetitionType -> m CanvasPattern-createPatternFromCanvasUnchecked self canvas repetitionType-  = liftIO-      (fromJust . 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)))---- | <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 ()-createPattern_ self image repetitionType-  = liftIO-      (void-         (js_createPattern (self) (maybeToNullable image)-            (toMaybeJSString repetitionType)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createPattern Mozilla CanvasRenderingContext2D.createPattern documentation> -createPatternUnsafe ::-                    (MonadIO m, ToJSString repetitionType, HasCallStack) =>-                      CanvasRenderingContext2D ->-                        Maybe HTMLImageElement -> Maybe repetitionType -> m CanvasPattern-createPatternUnsafe self image repetitionType-  = liftIO-      ((nullableToMaybe <$>-          (js_createPattern (self) (maybeToNullable image)-             (toMaybeJSString repetitionType)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createPattern Mozilla CanvasRenderingContext2D.createPattern documentation> -createPatternUnchecked ::-                       (MonadIO m, ToJSString repetitionType) =>-                         CanvasRenderingContext2D ->-                           Maybe HTMLImageElement -> Maybe repetitionType -> m CanvasPattern-createPatternUnchecked self image repetitionType-  = liftIO-      (fromJust . 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createImageData Mozilla CanvasRenderingContext2D.createImageData documentation> -createImageData_ ::-                 (MonadIO m) => CanvasRenderingContext2D -> Maybe ImageData -> m ()-createImageData_ self imagedata-  = liftIO-      (void (js_createImageData (self) (maybeToNullable imagedata)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createImageData Mozilla CanvasRenderingContext2D.createImageData documentation> -createImageDataUnsafe ::-                      (MonadIO m, HasCallStack) =>-                        CanvasRenderingContext2D -> Maybe ImageData -> m ImageData-createImageDataUnsafe self imagedata-  = liftIO-      ((nullableToMaybe <$>-          (js_createImageData (self) (maybeToNullable imagedata)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createImageData Mozilla CanvasRenderingContext2D.createImageData documentation> -createImageDataUnchecked ::-                         (MonadIO m) =>-                           CanvasRenderingContext2D -> Maybe ImageData -> m ImageData-createImageDataUnchecked self imagedata-  = liftIO-      (fromJust . 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))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createImageData Mozilla CanvasRenderingContext2D.createImageData documentation> -createImageDataSize_ ::-                     (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> m ()-createImageDataSize_ self sw sh-  = liftIO (void (js_createImageDataSize (self) sw sh))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createImageData Mozilla CanvasRenderingContext2D.createImageData documentation> -createImageDataSizeUnsafe ::-                          (MonadIO m, HasCallStack) =>-                            CanvasRenderingContext2D -> Float -> Float -> m ImageData-createImageDataSizeUnsafe self sw sh-  = liftIO-      ((nullableToMaybe <$> (js_createImageDataSize (self) sw sh)) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createImageData Mozilla CanvasRenderingContext2D.createImageData documentation> -createImageDataSizeUnchecked ::-                             (MonadIO m) =>-                               CanvasRenderingContext2D -> Float -> Float -> m ImageData-createImageDataSizeUnchecked self sw sh-  = liftIO-      (fromJust . 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))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.getImageData Mozilla CanvasRenderingContext2D.getImageData documentation> -getImageData_ ::-              (MonadIO m) =>-                CanvasRenderingContext2D ->-                  Float -> Float -> Float -> Float -> m ()-getImageData_ self sx sy sw sh-  = liftIO (void (js_getImageData (self) sx sy sw sh))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.getImageData Mozilla CanvasRenderingContext2D.getImageData documentation> -getImageDataUnsafe ::-                   (MonadIO m, HasCallStack) =>-                     CanvasRenderingContext2D ->-                       Float -> Float -> Float -> Float -> m ImageData-getImageDataUnsafe self sx sy sw sh-  = liftIO-      ((nullableToMaybe <$> (js_getImageData (self) sx sy sw sh)) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.getImageData Mozilla CanvasRenderingContext2D.getImageData documentation> -getImageDataUnchecked ::-                      (MonadIO m) =>-                        CanvasRenderingContext2D ->-                          Float -> Float -> Float -> Float -> m ImageData-getImageDataUnchecked self sx sy sw sh-  = liftIO-      (fromJust . 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))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.webkitGetImageDataHD Mozilla CanvasRenderingContext2D.webkitGetImageDataHD documentation> -webkitGetImageDataHD_ ::-                      (MonadIO m) =>-                        CanvasRenderingContext2D ->-                          Float -> Float -> Float -> Float -> m ()-webkitGetImageDataHD_ self sx sy sw sh-  = liftIO (void (js_webkitGetImageDataHD (self) sx sy sw sh))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.webkitGetImageDataHD Mozilla CanvasRenderingContext2D.webkitGetImageDataHD documentation> -webkitGetImageDataHDUnsafe ::-                           (MonadIO m, HasCallStack) =>-                             CanvasRenderingContext2D ->-                               Float -> Float -> Float -> Float -> m ImageData-webkitGetImageDataHDUnsafe self sx sy sw sh-  = liftIO-      ((nullableToMaybe <$> (js_webkitGetImageDataHD (self) sx sy sw sh))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.webkitGetImageDataHD Mozilla CanvasRenderingContext2D.webkitGetImageDataHD documentation> -webkitGetImageDataHDUnchecked ::-                              (MonadIO m) =>-                                CanvasRenderingContext2D ->-                                  Float -> Float -> Float -> Float -> m ImageData-webkitGetImageDataHDUnchecked self sx sy sw sh-  = liftIO-      (fromJust . 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.globalCompositeOperation Mozilla CanvasRenderingContext2D.globalCompositeOperation documentation> -getGlobalCompositeOperationUnsafe ::-                                  (MonadIO m, HasCallStack, FromJSString result) =>-                                    CanvasRenderingContext2D -> m result-getGlobalCompositeOperationUnsafe self-  = liftIO-      ((fromMaybeJSString <$> (js_getGlobalCompositeOperation (self)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.globalCompositeOperation Mozilla CanvasRenderingContext2D.globalCompositeOperation documentation> -getGlobalCompositeOperationUnchecked ::-                                     (MonadIO m, FromJSString result) =>-                                       CanvasRenderingContext2D -> m result-getGlobalCompositeOperationUnchecked self-  = liftIO-      (fromJust . 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.lineCap Mozilla CanvasRenderingContext2D.lineCap documentation> -getLineCapUnsafe ::-                 (MonadIO m, HasCallStack, FromJSString result) =>-                   CanvasRenderingContext2D -> m result-getLineCapUnsafe self-  = liftIO-      ((fromMaybeJSString <$> (js_getLineCap (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.lineCap Mozilla CanvasRenderingContext2D.lineCap documentation> -getLineCapUnchecked ::-                    (MonadIO m, FromJSString result) =>-                      CanvasRenderingContext2D -> m result-getLineCapUnchecked self-  = liftIO (fromJust . 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.lineJoin Mozilla CanvasRenderingContext2D.lineJoin documentation> -getLineJoinUnsafe ::-                  (MonadIO m, HasCallStack, FromJSString result) =>-                    CanvasRenderingContext2D -> m result-getLineJoinUnsafe self-  = liftIO-      ((fromMaybeJSString <$> (js_getLineJoin (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.lineJoin Mozilla CanvasRenderingContext2D.lineJoin documentation> -getLineJoinUnchecked ::-                     (MonadIO m, FromJSString result) =>-                       CanvasRenderingContext2D -> m result-getLineJoinUnchecked self-  = liftIO (fromJust . 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.shadowColor Mozilla CanvasRenderingContext2D.shadowColor documentation> -getShadowColorUnsafe ::-                     (MonadIO m, HasCallStack, FromJSString result) =>-                       CanvasRenderingContext2D -> m result-getShadowColorUnsafe self-  = liftIO-      ((fromMaybeJSString <$> (js_getShadowColor (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.shadowColor Mozilla CanvasRenderingContext2D.shadowColor documentation> -getShadowColorUnchecked ::-                        (MonadIO m, FromJSString result) =>-                          CanvasRenderingContext2D -> m result-getShadowColorUnchecked self-  = liftIO-      (fromJust . 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.webkitLineDash Mozilla CanvasRenderingContext2D.webkitLineDash documentation> -getWebkitLineDashUnsafe ::-                        (MonadIO m, HasCallStack) => CanvasRenderingContext2D -> m Array-getWebkitLineDashUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getWebkitLineDash (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.webkitLineDash Mozilla CanvasRenderingContext2D.webkitLineDash documentation> -getWebkitLineDashUnchecked ::-                           (MonadIO m) => CanvasRenderingContext2D -> m Array-getWebkitLineDashUnchecked self-  = liftIO-      (fromJust . 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.strokeStyle Mozilla CanvasRenderingContext2D.strokeStyle documentation> -getStrokeStyleUnsafe ::-                     (MonadIO m, HasCallStack) =>-                       CanvasRenderingContext2D -> m CanvasStyle-getStrokeStyleUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getStrokeStyle (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.strokeStyle Mozilla CanvasRenderingContext2D.strokeStyle documentation> -getStrokeStyleUnchecked ::-                        (MonadIO m) => CanvasRenderingContext2D -> m CanvasStyle-getStrokeStyleUnchecked self-  = liftIO-      (fromJust . 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.fillStyle Mozilla CanvasRenderingContext2D.fillStyle documentation> -getFillStyleUnsafe ::-                   (MonadIO m, HasCallStack) =>-                     CanvasRenderingContext2D -> m CanvasStyle-getFillStyleUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getFillStyle (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.fillStyle Mozilla CanvasRenderingContext2D.fillStyle documentation> -getFillStyleUnchecked ::-                      (MonadIO m) => CanvasRenderingContext2D -> m CanvasStyle-getFillStyleUnchecked self-  = liftIO (fromJust . 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))+       (js_save, save, js_restore, restore, js_commit, commit, js_scale,+        scale, js_rotate, rotate, js_translate, translate, js_transform,+        transform, js_setTransform, setTransform, js_resetTransform,+        resetTransform, js_setLineDash, setLineDash, js_getLineDash,+        getLineDash, getLineDash_, js_clearRect, clearRect, js_fillRect,+        fillRect, js_beginPath, beginPath, js_fillPath, fillPath,+        js_strokePath, strokePath, js_clipPath, clipPath, js_fill, fill,+        js_stroke, stroke, js_clip, clip, js_isPointInPathPath,+        isPointInPathPath, isPointInPathPath_, js_isPointInStrokePath,+        isPointInStrokePath, isPointInStrokePath_, js_isPointInPath,+        isPointInPath, isPointInPath_, js_isPointInStroke, isPointInStroke,+        isPointInStroke_, js_measureText, measureText, measureText_,+        js_setAlpha, setAlpha, js_setCompositeOperation,+        setCompositeOperation, js_setLineWidthFunction,+        setLineWidthFunction, js_setLineCapFunction, setLineCapFunction,+        js_setLineJoinFunction, setLineJoinFunction,+        js_setMiterLimitFunction, setMiterLimitFunction, js_clearShadow,+        clearShadow, js_fillText, fillText, js_strokeText, strokeText,+        js_setStrokeColor, setStrokeColor, js_setStrokeColorGray,+        setStrokeColorGray, js_setStrokeColorRGB, setStrokeColorRGB,+        js_setStrokeColorCYMK, setStrokeColorCYMK, js_setFillColor,+        setFillColor, js_setFillColorGray, setFillColorGray,+        js_setFillColorRGB, setFillColorRGB, js_setFillColorCYMK,+        setFillColorCYMK, js_strokeRect, strokeRect, js_drawImage,+        drawImage, js_drawImageScaled, drawImageScaled, js_drawImagePart,+        drawImagePart, js_drawImageFromRect, drawImageFromRect,+        js_setShadow, setShadow, js_setShadowGray, setShadowGray,+        js_setShadowRGB, setShadowRGB, js_setShadowCYMK, setShadowCYMK,+        js_putImageData, putImageData, js_putImageDataDirty,+        putImageDataDirty, js_webkitPutImageDataHD, webkitPutImageDataHD,+        js_webkitPutImageDataHDDirty, webkitPutImageDataHDDirty,+        js_createImageData, createImageData, createImageData_,+        js_createImageDataSize, createImageDataSize, createImageDataSize_,+        js_createLinearGradient, createLinearGradient,+        createLinearGradient_, js_createRadialGradient,+        createRadialGradient, createRadialGradient_, js_createPattern,+        createPattern, createPattern_, createPatternUnsafe,+        createPatternUnchecked, js_getImageData, getImageData,+        getImageData_, js_webkitGetImageDataHD, webkitGetImageDataHD,+        webkitGetImageDataHD_, js_drawFocusIfNeeded, drawFocusIfNeeded,+        js_drawFocusIfNeededPath, drawFocusIfNeededPath, js_getCanvas,+        getCanvas, js_setGlobalAlpha, setGlobalAlpha, js_getGlobalAlpha,+        getGlobalAlpha, js_setGlobalCompositeOperation,+        setGlobalCompositeOperation, js_getGlobalCompositeOperation,+        getGlobalCompositeOperation, js_setLineWidth, setLineWidth,+        js_getLineWidth, getLineWidth, js_setLineCap, setLineCap,+        js_getLineCap, getLineCap, js_setLineJoin, setLineJoin,+        js_getLineJoin, getLineJoin, js_setMiterLimit, setMiterLimit,+        js_getMiterLimit, getMiterLimit, js_setShadowOffsetX,+        setShadowOffsetX, js_getShadowOffsetX, getShadowOffsetX,+        js_setShadowOffsetY, setShadowOffsetY, js_getShadowOffsetY,+        getShadowOffsetY, js_setShadowBlur, setShadowBlur,+        js_getShadowBlur, getShadowBlur, js_setShadowColor, setShadowColor,+        js_getShadowColor, getShadowColor, js_setLineDashOffset,+        setLineDashOffset, js_getLineDashOffset, getLineDashOffset,+        js_setWebkitLineDash, setWebkitLineDash, js_getWebkitLineDash,+        getWebkitLineDash, js_setWebkitLineDashOffset,+        setWebkitLineDashOffset, js_getWebkitLineDashOffset,+        getWebkitLineDashOffset, js_setFont, setFont, js_getFont, getFont,+        js_setTextAlign, setTextAlign, js_getTextAlign, getTextAlign,+        js_setTextBaseline, setTextBaseline, js_getTextBaseline,+        getTextBaseline, js_setDirection, setDirection, js_getDirection,+        getDirection, js_setStrokeStyle, setStrokeStyle, js_getStrokeStyle,+        getStrokeStyle, js_setFillStyle, setFillStyle, js_getFillStyle,+        getFillStyle, js_getWebkitBackingStorePixelRatio,+        getWebkitBackingStorePixelRatio, js_setImageSmoothingEnabled,+        setImageSmoothingEnabled, js_getImageSmoothingEnabled,+        getImageSmoothingEnabled, js_setWebkitImageSmoothingEnabled,+        setWebkitImageSmoothingEnabled, js_getWebkitImageSmoothingEnabled,+        getWebkitImageSmoothingEnabled, js_setImageSmoothingQuality,+        setImageSmoothingQuality, js_getImageSmoothingQuality,+        getImageSmoothingQuality, CanvasRenderingContext2D(..),+        gTypeCanvasRenderingContext2D)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error)+import Data.Typeable (Typeable)+import GHCJS.Types (JSVal(..), JSString)+import GHCJS.Foreign (jsNull, jsUndefined)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Control.Monad (void)+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import Data.Maybe (fromJust)+import Data.Traversable (mapM)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+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[\"commit\"]()" js_commit ::+        CanvasRenderingContext2D -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.commit Mozilla CanvasRenderingContext2D.commit documentation> +commit :: (MonadIO m) => CanvasRenderingContext2D -> m ()+commit self = liftIO (js_commit self)+ +foreign import javascript unsafe "$1[\"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[\"resetTransform\"]()"+        js_resetTransform :: CanvasRenderingContext2D -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.resetTransform Mozilla CanvasRenderingContext2D.resetTransform documentation> +resetTransform :: (MonadIO m) => CanvasRenderingContext2D -> m ()+resetTransform self = liftIO (js_resetTransform self)+ +foreign import javascript unsafe "$1[\"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)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.getLineDash Mozilla CanvasRenderingContext2D.getLineDash documentation> +getLineDash_ :: (MonadIO m) => CanvasRenderingContext2D -> m ()+getLineDash_ self = liftIO (void (js_getLineDash self))+ +foreign import javascript unsafe+        "$1[\"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[\"fill\"]($2, $3)" js_fillPath+        ::+        CanvasRenderingContext2D ->+          Path2D -> Optional CanvasWindingRule -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.fill Mozilla CanvasRenderingContext2D.fill documentation> +fillPath ::+         (MonadIO m) =>+           CanvasRenderingContext2D ->+             Path2D -> Maybe CanvasWindingRule -> m ()+fillPath self path winding+  = liftIO (js_fillPath self path (maybeToOptional winding))+ +foreign import javascript unsafe "$1[\"stroke\"]($2)" js_strokePath+        :: CanvasRenderingContext2D -> Path2D -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.stroke Mozilla CanvasRenderingContext2D.stroke documentation> +strokePath ::+           (MonadIO m) => CanvasRenderingContext2D -> Path2D -> m ()+strokePath self path = liftIO (js_strokePath self path)+ +foreign import javascript unsafe "$1[\"clip\"]($2, $3)" js_clipPath+        ::+        CanvasRenderingContext2D ->+          Path2D -> Optional CanvasWindingRule -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.clip Mozilla CanvasRenderingContext2D.clip documentation> +clipPath ::+         (MonadIO m) =>+           CanvasRenderingContext2D ->+             Path2D -> Maybe CanvasWindingRule -> m ()+clipPath self path winding+  = liftIO (js_clipPath self path (maybeToOptional winding))+ +foreign import javascript unsafe "$1[\"fill\"]($2)" js_fill ::+        CanvasRenderingContext2D -> Optional CanvasWindingRule -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.fill Mozilla CanvasRenderingContext2D.fill documentation> +fill ::+     (MonadIO m) =>+       CanvasRenderingContext2D -> Maybe CanvasWindingRule -> m ()+fill self winding = liftIO (js_fill self (maybeToOptional winding))+ +foreign import javascript unsafe "$1[\"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 -> Optional CanvasWindingRule -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.clip Mozilla CanvasRenderingContext2D.clip documentation> +clip ::+     (MonadIO m) =>+       CanvasRenderingContext2D -> Maybe CanvasWindingRule -> m ()+clip self winding = liftIO (js_clip self (maybeToOptional winding))+ +foreign import javascript unsafe+        "($1[\"isPointInPath\"]($2, $3, $4,\n$5) ? 1 : 0)"+        js_isPointInPathPath ::+        CanvasRenderingContext2D ->+          Path2D -> Float -> Float -> Optional CanvasWindingRule -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.isPointInPath Mozilla CanvasRenderingContext2D.isPointInPath documentation> +isPointInPathPath ::+                  (MonadIO m) =>+                    CanvasRenderingContext2D ->+                      Path2D -> Float -> Float -> Maybe CanvasWindingRule -> m Bool+isPointInPathPath self path x y winding+  = liftIO+      (js_isPointInPathPath self path x y (maybeToOptional winding))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.isPointInPath Mozilla CanvasRenderingContext2D.isPointInPath documentation> +isPointInPathPath_ ::+                   (MonadIO m) =>+                     CanvasRenderingContext2D ->+                       Path2D -> Float -> Float -> Maybe CanvasWindingRule -> m ()+isPointInPathPath_ self path x y winding+  = liftIO+      (void+         (js_isPointInPathPath self path x y (maybeToOptional winding)))+ +foreign import javascript unsafe+        "($1[\"isPointInStroke\"]($2, $3,\n$4) ? 1 : 0)"+        js_isPointInStrokePath ::+        CanvasRenderingContext2D -> Path2D -> Float -> Float -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.isPointInStroke Mozilla CanvasRenderingContext2D.isPointInStroke documentation> +isPointInStrokePath ::+                    (MonadIO m) =>+                      CanvasRenderingContext2D -> Path2D -> Float -> Float -> m Bool+isPointInStrokePath self path x y+  = liftIO (js_isPointInStrokePath self path x y)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.isPointInStroke Mozilla CanvasRenderingContext2D.isPointInStroke documentation> +isPointInStrokePath_ ::+                     (MonadIO m) =>+                       CanvasRenderingContext2D -> Path2D -> Float -> Float -> m ()+isPointInStrokePath_ self path x y+  = liftIO (void (js_isPointInStrokePath self path x y))+ +foreign import javascript unsafe+        "($1[\"isPointInPath\"]($2, $3,\n$4) ? 1 : 0)" js_isPointInPath ::+        CanvasRenderingContext2D ->+          Float -> Float -> Optional CanvasWindingRule -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.isPointInPath Mozilla CanvasRenderingContext2D.isPointInPath documentation> +isPointInPath ::+              (MonadIO m) =>+                CanvasRenderingContext2D ->+                  Float -> Float -> Maybe CanvasWindingRule -> m Bool+isPointInPath self x y winding+  = liftIO (js_isPointInPath self x y (maybeToOptional winding))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.isPointInPath Mozilla CanvasRenderingContext2D.isPointInPath documentation> +isPointInPath_ ::+               (MonadIO m) =>+                 CanvasRenderingContext2D ->+                   Float -> Float -> Maybe CanvasWindingRule -> m ()+isPointInPath_ self x y winding+  = liftIO+      (void (js_isPointInPath self x y (maybeToOptional winding)))+ +foreign import javascript unsafe+        "($1[\"isPointInStroke\"]($2,\n$3) ? 1 : 0)" js_isPointInStroke ::+        CanvasRenderingContext2D -> Float -> Float -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.isPointInStroke Mozilla CanvasRenderingContext2D.isPointInStroke documentation> +isPointInStroke ::+                (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> m Bool+isPointInStroke self x y = liftIO (js_isPointInStroke self x y)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.isPointInStroke Mozilla CanvasRenderingContext2D.isPointInStroke documentation> +isPointInStroke_ ::+                 (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> m ()+isPointInStroke_ self x y+  = liftIO (void (js_isPointInStroke self x y))+ +foreign import javascript unsafe "$1[\"measureText\"]($2)"+        js_measureText ::+        CanvasRenderingContext2D -> JSString -> IO TextMetrics++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.measureText Mozilla CanvasRenderingContext2D.measureText documentation> +measureText ::+            (MonadIO m, ToJSString text) =>+              CanvasRenderingContext2D -> text -> m TextMetrics+measureText self text+  = liftIO (js_measureText self (toJSString text))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.measureText Mozilla CanvasRenderingContext2D.measureText documentation> +measureText_ ::+             (MonadIO m, ToJSString text) =>+               CanvasRenderingContext2D -> text -> m ()+measureText_ self text+  = liftIO (void (js_measureText self (toJSString text)))+ +foreign import javascript unsafe "$1[\"setAlpha\"]($2)" js_setAlpha+        :: CanvasRenderingContext2D -> Optional Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setAlpha Mozilla CanvasRenderingContext2D.setAlpha documentation> +setAlpha ::+         (MonadIO m) => CanvasRenderingContext2D -> Maybe Float -> m ()+setAlpha self alpha+  = liftIO (js_setAlpha self (maybeToOptional alpha))+ +foreign import javascript unsafe+        "$1[\"setCompositeOperation\"]($2)" js_setCompositeOperation ::+        CanvasRenderingContext2D -> Optional JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setCompositeOperation Mozilla CanvasRenderingContext2D.setCompositeOperation documentation> +setCompositeOperation ::+                      (MonadIO m, ToJSString compositeOperation) =>+                        CanvasRenderingContext2D -> Maybe compositeOperation -> m ()+setCompositeOperation self compositeOperation+  = liftIO+      (js_setCompositeOperation self+         (toOptionalJSString compositeOperation))+ +foreign import javascript unsafe "$1[\"setLineWidth\"]($2)"+        js_setLineWidthFunction ::+        CanvasRenderingContext2D -> Optional Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setLineWidth Mozilla CanvasRenderingContext2D.setLineWidth documentation> +setLineWidthFunction ::+                     (MonadIO m) => CanvasRenderingContext2D -> Maybe Float -> m ()+setLineWidthFunction self width+  = liftIO (js_setLineWidthFunction self (maybeToOptional width))+ +foreign import javascript unsafe "$1[\"setLineCap\"]($2)"+        js_setLineCapFunction ::+        CanvasRenderingContext2D -> Optional JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setLineCap Mozilla CanvasRenderingContext2D.setLineCap documentation> +setLineCapFunction ::+                   (MonadIO m, ToJSString cap) =>+                     CanvasRenderingContext2D -> Maybe cap -> m ()+setLineCapFunction self cap+  = liftIO (js_setLineCapFunction self (toOptionalJSString cap))+ +foreign import javascript unsafe "$1[\"setLineJoin\"]($2)"+        js_setLineJoinFunction ::+        CanvasRenderingContext2D -> Optional JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setLineJoin Mozilla CanvasRenderingContext2D.setLineJoin documentation> +setLineJoinFunction ::+                    (MonadIO m, ToJSString join) =>+                      CanvasRenderingContext2D -> Maybe join -> m ()+setLineJoinFunction self join+  = liftIO (js_setLineJoinFunction self (toOptionalJSString join))+ +foreign import javascript unsafe "$1[\"setMiterLimit\"]($2)"+        js_setMiterLimitFunction ::+        CanvasRenderingContext2D -> Optional Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setMiterLimit Mozilla CanvasRenderingContext2D.setMiterLimit documentation> +setMiterLimitFunction ::+                      (MonadIO m) => CanvasRenderingContext2D -> Maybe Float -> m ()+setMiterLimitFunction self limit+  = liftIO (js_setMiterLimitFunction self (maybeToOptional limit))+ +foreign import javascript unsafe "$1[\"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 -> Optional Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.fillText Mozilla CanvasRenderingContext2D.fillText documentation> +fillText ::+         (MonadIO m, ToJSString text) =>+           CanvasRenderingContext2D ->+             text -> Float -> Float -> Maybe Float -> m ()+fillText self text x y maxWidth+  = liftIO+      (js_fillText self (toJSString text) x y (maybeToOptional maxWidth))+ +foreign import javascript unsafe+        "$1[\"strokeText\"]($2, $3, $4, $5)" js_strokeText ::+        CanvasRenderingContext2D ->+          JSString -> Float -> Float -> Optional Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.strokeText Mozilla CanvasRenderingContext2D.strokeText documentation> +strokeText ::+           (MonadIO m, ToJSString text) =>+             CanvasRenderingContext2D ->+               text -> Float -> Float -> Maybe Float -> m ()+strokeText self text x y maxWidth+  = liftIO+      (js_strokeText self (toJSString text) x y+         (maybeToOptional maxWidth))+ +foreign import javascript unsafe "$1[\"setStrokeColor\"]($2, $3)"+        js_setStrokeColor ::+        CanvasRenderingContext2D -> JSString -> Optional Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setStrokeColor Mozilla CanvasRenderingContext2D.setStrokeColor documentation> +setStrokeColor ::+               (MonadIO m, ToJSString color) =>+                 CanvasRenderingContext2D -> color -> Maybe Float -> m ()+setStrokeColor self color alpha+  = liftIO+      (js_setStrokeColor self (toJSString color) (maybeToOptional alpha))+ +foreign import javascript unsafe "$1[\"setStrokeColor\"]($2, $3)"+        js_setStrokeColorGray ::+        CanvasRenderingContext2D -> Float -> Optional Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setStrokeColor Mozilla CanvasRenderingContext2D.setStrokeColor documentation> +setStrokeColorGray ::+                   (MonadIO m) =>+                     CanvasRenderingContext2D -> Float -> Maybe Float -> m ()+setStrokeColorGray self grayLevel alpha+  = liftIO+      (js_setStrokeColorGray self grayLevel (maybeToOptional alpha))+ +foreign import javascript unsafe+        "$1[\"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 -> Optional Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setFillColor Mozilla CanvasRenderingContext2D.setFillColor documentation> +setFillColor ::+             (MonadIO m, ToJSString color) =>+               CanvasRenderingContext2D -> color -> Maybe Float -> m ()+setFillColor self color alpha+  = liftIO+      (js_setFillColor self (toJSString color) (maybeToOptional alpha))+ +foreign import javascript unsafe "$1[\"setFillColor\"]($2, $3)"+        js_setFillColorGray ::+        CanvasRenderingContext2D -> Float -> Optional Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setFillColor Mozilla CanvasRenderingContext2D.setFillColor documentation> +setFillColorGray ::+                 (MonadIO m) =>+                   CanvasRenderingContext2D -> Float -> Maybe Float -> m ()+setFillColorGray self grayLevel alpha+  = liftIO+      (js_setFillColorGray self grayLevel (maybeToOptional alpha))+ +foreign import javascript unsafe+        "$1[\"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 ->+          CanvasImageSource -> Float -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.drawImage Mozilla CanvasRenderingContext2D.drawImage documentation> +drawImage ::+          (MonadIO m, IsCanvasImageSource image) =>+            CanvasRenderingContext2D -> image -> Float -> Float -> m ()+drawImage self image x y+  = liftIO (js_drawImage self (toCanvasImageSource image) x y)+ +foreign import javascript unsafe+        "$1[\"drawImage\"]($2, $3, $4, $5,\n$6)" js_drawImageScaled ::+        CanvasRenderingContext2D ->+          CanvasImageSource -> Float -> Float -> Float -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.drawImage Mozilla CanvasRenderingContext2D.drawImage documentation> +drawImageScaled ::+                (MonadIO m, IsCanvasImageSource image) =>+                  CanvasRenderingContext2D ->+                    image -> Float -> Float -> Float -> Float -> m ()+drawImageScaled self image x y width height+  = liftIO+      (js_drawImageScaled self (toCanvasImageSource image) x y width+         height)+ +foreign import javascript unsafe+        "$1[\"drawImage\"]($2, $3, $4, $5,\n$6, $7, $8, $9, $10)"+        js_drawImagePart ::+        CanvasRenderingContext2D ->+          CanvasImageSource ->+            Float ->+              Float ->+                Float -> Float -> Float -> Float -> Float -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.drawImage Mozilla CanvasRenderingContext2D.drawImage documentation> +drawImagePart ::+              (MonadIO m, IsCanvasImageSource image) =>+                CanvasRenderingContext2D ->+                  image ->+                    Float ->+                      Float -> Float -> Float -> Float -> Float -> Float -> Float -> m ()+drawImagePart self image sx sy sw sh dx dy dw dh+  = liftIO+      (js_drawImagePart self (toCanvasImageSource image) sx sy sw sh dx+         dy+         dw+         dh)+ +foreign import javascript unsafe+        "$1[\"drawImageFromRect\"]($2, $3,\n$4, $5, $6, $7, $8, $9, $10,\n$11)"+        js_drawImageFromRect ::+        CanvasRenderingContext2D ->+          HTMLImageElement ->+            Optional Float ->+              Optional Float ->+                Optional Float ->+                  Optional Float ->+                    Optional Float ->+                      Optional Float ->+                        Optional Float -> Optional Float -> Optional JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.drawImageFromRect Mozilla CanvasRenderingContext2D.drawImageFromRect documentation> +drawImageFromRect ::+                  (MonadIO m, ToJSString compositeOperation) =>+                    CanvasRenderingContext2D ->+                      HTMLImageElement ->+                        Maybe Float ->+                          Maybe Float ->+                            Maybe Float ->+                              Maybe Float ->+                                Maybe Float ->+                                  Maybe Float ->+                                    Maybe Float -> Maybe Float -> Maybe compositeOperation -> m ()+drawImageFromRect self image sx sy sw sh dx dy dw dh+  compositeOperation+  = liftIO+      (js_drawImageFromRect self image (maybeToOptional sx)+         (maybeToOptional sy)+         (maybeToOptional sw)+         (maybeToOptional sh)+         (maybeToOptional dx)+         (maybeToOptional dy)+         (maybeToOptional dw)+         (maybeToOptional dh)+         (toOptionalJSString compositeOperation))+ +foreign import javascript unsafe+        "$1[\"setShadow\"]($2, $3, $4, $5,\n$6)" js_setShadow ::+        CanvasRenderingContext2D ->+          Float ->+            Float -> Float -> Optional JSString -> Optional Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setShadow Mozilla CanvasRenderingContext2D.setShadow documentation> +setShadow ::+          (MonadIO m, ToJSString color) =>+            CanvasRenderingContext2D ->+              Float -> Float -> Float -> Maybe color -> Maybe Float -> m ()+setShadow self width height blur color alpha+  = liftIO+      (js_setShadow self width height blur (toOptionalJSString color)+         (maybeToOptional alpha))+ +foreign import javascript unsafe+        "$1[\"setShadow\"]($2, $3, $4, $5,\n$6)" js_setShadowGray ::+        CanvasRenderingContext2D ->+          Float -> Float -> Float -> Float -> Optional Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setShadow Mozilla CanvasRenderingContext2D.setShadow documentation> +setShadowGray ::+              (MonadIO m) =>+                CanvasRenderingContext2D ->+                  Float -> Float -> Float -> Float -> Maybe Float -> m ()+setShadowGray self width height blur grayLevel alpha+  = liftIO+      (js_setShadowGray self width height blur grayLevel+         (maybeToOptional alpha))+ +foreign import javascript unsafe+        "$1[\"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 -> ImageData -> Float -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.putImageData Mozilla CanvasRenderingContext2D.putImageData documentation> +putImageData ::+             (MonadIO m) =>+               CanvasRenderingContext2D -> ImageData -> Float -> Float -> m ()+putImageData self imagedata dx dy+  = liftIO (js_putImageData self imagedata dx dy)+ +foreign import javascript unsafe+        "$1[\"putImageData\"]($2, $3, $4,\n$5, $6, $7, $8)"+        js_putImageDataDirty ::+        CanvasRenderingContext2D ->+          ImageData ->+            Float -> Float -> Float -> Float -> Float -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.putImageData Mozilla CanvasRenderingContext2D.putImageData documentation> +putImageDataDirty ::+                  (MonadIO m) =>+                    CanvasRenderingContext2D ->+                      ImageData ->+                        Float -> Float -> Float -> Float -> Float -> Float -> m ()+putImageDataDirty self imagedata dx dy dirtyX dirtyY dirtyWidth+  dirtyHeight+  = liftIO+      (js_putImageDataDirty self imagedata dx dy dirtyX dirtyY dirtyWidth+         dirtyHeight)+ +foreign import javascript unsafe+        "$1[\"webkitPutImageDataHD\"]($2,\n$3, $4)" js_webkitPutImageDataHD+        :: CanvasRenderingContext2D -> ImageData -> Float -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.webkitPutImageDataHD Mozilla CanvasRenderingContext2D.webkitPutImageDataHD documentation> +webkitPutImageDataHD ::+                     (MonadIO m) =>+                       CanvasRenderingContext2D -> ImageData -> Float -> Float -> m ()+webkitPutImageDataHD self imagedata dx dy+  = liftIO (js_webkitPutImageDataHD self imagedata dx dy)+ +foreign import javascript unsafe+        "$1[\"webkitPutImageDataHD\"]($2,\n$3, $4, $5, $6, $7, $8)"+        js_webkitPutImageDataHDDirty ::+        CanvasRenderingContext2D ->+          ImageData ->+            Float -> Float -> Float -> Float -> Float -> Float -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.webkitPutImageDataHD Mozilla CanvasRenderingContext2D.webkitPutImageDataHD documentation> +webkitPutImageDataHDDirty ::+                          (MonadIO m) =>+                            CanvasRenderingContext2D ->+                              ImageData ->+                                Float -> Float -> Float -> Float -> Float -> Float -> m ()+webkitPutImageDataHDDirty self imagedata dx dy dirtyX dirtyY+  dirtyWidth dirtyHeight+  = liftIO+      (js_webkitPutImageDataHDDirty self imagedata dx dy dirtyX dirtyY+         dirtyWidth+         dirtyHeight)+ +foreign import javascript unsafe "$1[\"createImageData\"]($2)"+        js_createImageData ::+        CanvasRenderingContext2D -> Optional ImageData -> IO ImageData++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createImageData Mozilla CanvasRenderingContext2D.createImageData documentation> +createImageData ::+                (MonadIO m) =>+                  CanvasRenderingContext2D -> Maybe ImageData -> m ImageData+createImageData self imagedata+  = liftIO (js_createImageData self (maybeToOptional imagedata))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createImageData Mozilla CanvasRenderingContext2D.createImageData documentation> +createImageData_ ::+                 (MonadIO m) => CanvasRenderingContext2D -> Maybe ImageData -> m ()+createImageData_ self imagedata+  = liftIO+      (void (js_createImageData self (maybeToOptional imagedata)))+ +foreign import javascript unsafe "$1[\"createImageData\"]($2, $3)"+        js_createImageDataSize ::+        CanvasRenderingContext2D -> Float -> Float -> IO ImageData++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createImageData Mozilla CanvasRenderingContext2D.createImageData documentation> +createImageDataSize ::+                    (MonadIO m) =>+                      CanvasRenderingContext2D -> Float -> Float -> m ImageData+createImageDataSize self sw sh+  = liftIO (js_createImageDataSize self sw sh)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createImageData Mozilla CanvasRenderingContext2D.createImageData documentation> +createImageDataSize_ ::+                     (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> m ()+createImageDataSize_ self sw sh+  = liftIO (void (js_createImageDataSize self sw sh))+ +foreign import javascript unsafe+        "$1[\"createLinearGradient\"]($2,\n$3, $4, $5)"+        js_createLinearGradient ::+        CanvasRenderingContext2D ->+          Float -> Float -> Float -> Float -> IO CanvasGradient++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createLinearGradient Mozilla CanvasRenderingContext2D.createLinearGradient documentation> +createLinearGradient ::+                     (MonadIO m) =>+                       CanvasRenderingContext2D ->+                         Float -> Float -> Float -> Float -> m CanvasGradient+createLinearGradient self x0 y0 x1 y1+  = liftIO (js_createLinearGradient self x0 y0 x1 y1)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createLinearGradient Mozilla CanvasRenderingContext2D.createLinearGradient documentation> +createLinearGradient_ ::+                      (MonadIO m) =>+                        CanvasRenderingContext2D ->+                          Float -> Float -> Float -> Float -> m ()+createLinearGradient_ self x0 y0 x1 y1+  = liftIO (void (js_createLinearGradient self x0 y0 x1 y1))+ +foreign import javascript unsafe+        "$1[\"createRadialGradient\"]($2,\n$3, $4, $5, $6, $7)"+        js_createRadialGradient ::+        CanvasRenderingContext2D ->+          Float ->+            Float -> Float -> Float -> Float -> Float -> IO CanvasGradient++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createRadialGradient Mozilla CanvasRenderingContext2D.createRadialGradient documentation> +createRadialGradient ::+                     (MonadIO m) =>+                       CanvasRenderingContext2D ->+                         Float ->+                           Float -> Float -> Float -> Float -> Float -> m CanvasGradient+createRadialGradient self x0 y0 r0 x1 y1 r1+  = liftIO (js_createRadialGradient self x0 y0 r0 x1 y1 r1)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createRadialGradient Mozilla CanvasRenderingContext2D.createRadialGradient documentation> +createRadialGradient_ ::+                      (MonadIO m) =>+                        CanvasRenderingContext2D ->+                          Float -> Float -> Float -> Float -> Float -> Float -> m ()+createRadialGradient_ self x0 y0 r0 x1 y1 r1+  = liftIO (void (js_createRadialGradient self x0 y0 r0 x1 y1 r1))+ +foreign import javascript unsafe "$1[\"createPattern\"]($2, $3)"+        js_createPattern ::+        CanvasRenderingContext2D ->+          CanvasImageSource ->+            Optional JSString -> IO (Nullable CanvasPattern)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createPattern Mozilla CanvasRenderingContext2D.createPattern documentation> +createPattern ::+              (MonadIO m, IsCanvasImageSource image, ToJSString repetition) =>+                CanvasRenderingContext2D ->+                  image -> Maybe repetition -> m (Maybe CanvasPattern)+createPattern self image repetition+  = liftIO+      (nullableToMaybe <$>+         (js_createPattern self (toCanvasImageSource image)+            (toOptionalJSString repetition)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createPattern Mozilla CanvasRenderingContext2D.createPattern documentation> +createPattern_ ::+               (MonadIO m, IsCanvasImageSource image, ToJSString repetition) =>+                 CanvasRenderingContext2D -> image -> Maybe repetition -> m ()+createPattern_ self image repetition+  = liftIO+      (void+         (js_createPattern self (toCanvasImageSource image)+            (toOptionalJSString repetition)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createPattern Mozilla CanvasRenderingContext2D.createPattern documentation> +createPatternUnsafe ::+                    (MonadIO m, IsCanvasImageSource image, ToJSString repetition,+                     HasCallStack) =>+                      CanvasRenderingContext2D ->+                        image -> Maybe repetition -> m CanvasPattern+createPatternUnsafe self image repetition+  = liftIO+      ((nullableToMaybe <$>+          (js_createPattern self (toCanvasImageSource image)+             (toOptionalJSString repetition)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createPattern Mozilla CanvasRenderingContext2D.createPattern documentation> +createPatternUnchecked ::+                       (MonadIO m, IsCanvasImageSource image, ToJSString repetition) =>+                         CanvasRenderingContext2D ->+                           image -> Maybe repetition -> m CanvasPattern+createPatternUnchecked self image repetition+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_createPattern self (toCanvasImageSource image)+            (toOptionalJSString repetition)))+ +foreign import javascript unsafe+        "$1[\"getImageData\"]($2, $3, $4,\n$5)" js_getImageData ::+        CanvasRenderingContext2D ->+          Float -> Float -> Float -> Float -> IO ImageData++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.getImageData Mozilla CanvasRenderingContext2D.getImageData documentation> +getImageData ::+             (MonadIO m) =>+               CanvasRenderingContext2D ->+                 Float -> Float -> Float -> Float -> m ImageData+getImageData self sx sy sw sh+  = liftIO (js_getImageData self sx sy sw sh)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.getImageData Mozilla CanvasRenderingContext2D.getImageData documentation> +getImageData_ ::+              (MonadIO m) =>+                CanvasRenderingContext2D ->+                  Float -> Float -> Float -> Float -> m ()+getImageData_ self sx sy sw sh+  = liftIO (void (js_getImageData self sx sy sw sh))+ +foreign import javascript unsafe+        "$1[\"webkitGetImageDataHD\"]($2,\n$3, $4, $5)"+        js_webkitGetImageDataHD ::+        CanvasRenderingContext2D ->+          Float -> Float -> Float -> Float -> IO ImageData++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.webkitGetImageDataHD Mozilla CanvasRenderingContext2D.webkitGetImageDataHD documentation> +webkitGetImageDataHD ::+                     (MonadIO m) =>+                       CanvasRenderingContext2D ->+                         Float -> Float -> Float -> Float -> m ImageData+webkitGetImageDataHD self sx sy sw sh+  = liftIO (js_webkitGetImageDataHD self sx sy sw sh)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.webkitGetImageDataHD Mozilla CanvasRenderingContext2D.webkitGetImageDataHD documentation> +webkitGetImageDataHD_ ::+                      (MonadIO m) =>+                        CanvasRenderingContext2D ->+                          Float -> Float -> Float -> Float -> m ()+webkitGetImageDataHD_ self sx sy sw sh+  = liftIO (void (js_webkitGetImageDataHD self sx sy sw sh))+ +foreign import javascript unsafe "$1[\"drawFocusIfNeeded\"]($2)"+        js_drawFocusIfNeeded ::+        CanvasRenderingContext2D -> Element -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.drawFocusIfNeeded Mozilla CanvasRenderingContext2D.drawFocusIfNeeded documentation> +drawFocusIfNeeded ::+                  (MonadIO m, IsElement element) =>+                    CanvasRenderingContext2D -> element -> m ()+drawFocusIfNeeded self element+  = liftIO (js_drawFocusIfNeeded self (toElement element))+ +foreign import javascript unsafe+        "$1[\"drawFocusIfNeeded\"]($2, $3)" js_drawFocusIfNeededPath ::+        CanvasRenderingContext2D -> Path2D -> Element -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.drawFocusIfNeeded Mozilla CanvasRenderingContext2D.drawFocusIfNeeded documentation> +drawFocusIfNeededPath ::+                      (MonadIO m, IsElement element) =>+                        CanvasRenderingContext2D -> Path2D -> element -> m ()+drawFocusIfNeededPath self path element+  = liftIO (js_drawFocusIfNeededPath self path (toElement element))+ +foreign import javascript unsafe "$1[\"canvas\"]" js_getCanvas ::+        CanvasRenderingContext2D -> IO HTMLCanvasElement++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.canvas Mozilla CanvasRenderingContext2D.canvas documentation> +getCanvas ::+          (MonadIO m) => CanvasRenderingContext2D -> m HTMLCanvasElement+getCanvas self = liftIO (js_getCanvas self)+ +foreign import javascript unsafe "$1[\"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 -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.globalCompositeOperation Mozilla CanvasRenderingContext2D.globalCompositeOperation documentation> +setGlobalCompositeOperation ::+                            (MonadIO m, ToJSString val) =>+                              CanvasRenderingContext2D -> val -> m ()+setGlobalCompositeOperation self val+  = liftIO (js_setGlobalCompositeOperation self (toJSString val))+ +foreign import javascript unsafe "$1[\"globalCompositeOperation\"]"+        js_getGlobalCompositeOperation ::+        CanvasRenderingContext2D -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.globalCompositeOperation Mozilla CanvasRenderingContext2D.globalCompositeOperation documentation> +getGlobalCompositeOperation ::+                            (MonadIO m, FromJSString result) =>+                              CanvasRenderingContext2D -> m result+getGlobalCompositeOperation self+  = liftIO (fromJSString <$> (js_getGlobalCompositeOperation self))+ +foreign import javascript unsafe "$1[\"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 -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.lineCap Mozilla CanvasRenderingContext2D.lineCap documentation> +setLineCap ::+           (MonadIO m, ToJSString val) =>+             CanvasRenderingContext2D -> val -> m ()+setLineCap self val = liftIO (js_setLineCap self (toJSString val))+ +foreign import javascript unsafe "$1[\"lineCap\"]" js_getLineCap ::+        CanvasRenderingContext2D -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.lineCap Mozilla CanvasRenderingContext2D.lineCap documentation> +getLineCap ::+           (MonadIO m, FromJSString result) =>+             CanvasRenderingContext2D -> m result+getLineCap self = liftIO (fromJSString <$> (js_getLineCap self))+ +foreign import javascript unsafe "$1[\"lineJoin\"] = $2;"+        js_setLineJoin :: CanvasRenderingContext2D -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.lineJoin Mozilla CanvasRenderingContext2D.lineJoin documentation> +setLineJoin ::+            (MonadIO m, ToJSString val) =>+              CanvasRenderingContext2D -> val -> m ()+setLineJoin self val+  = liftIO (js_setLineJoin self (toJSString val))+ +foreign import javascript unsafe "$1[\"lineJoin\"]" js_getLineJoin+        :: CanvasRenderingContext2D -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.lineJoin Mozilla CanvasRenderingContext2D.lineJoin documentation> +getLineJoin ::+            (MonadIO m, FromJSString result) =>+              CanvasRenderingContext2D -> m result+getLineJoin self = liftIO (fromJSString <$> (js_getLineJoin self))+ +foreign import javascript unsafe "$1[\"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 -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.shadowColor Mozilla CanvasRenderingContext2D.shadowColor documentation> +setShadowColor ::+               (MonadIO m, ToJSString val) =>+                 CanvasRenderingContext2D -> val -> m ()+setShadowColor self val+  = liftIO (js_setShadowColor self (toJSString val))+ +foreign import javascript unsafe "$1[\"shadowColor\"]"+        js_getShadowColor :: CanvasRenderingContext2D -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.shadowColor Mozilla CanvasRenderingContext2D.shadowColor documentation> +getShadowColor ::+               (MonadIO m, FromJSString result) =>+                 CanvasRenderingContext2D -> m result+getShadowColor self+  = liftIO (fromJSString <$> (js_getShadowColor self))+ +foreign import javascript unsafe "$1[\"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 -> JSVal -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.webkitLineDash Mozilla CanvasRenderingContext2D.webkitLineDash documentation> +setWebkitLineDash ::+                  (MonadIO m) => CanvasRenderingContext2D -> [Float] -> m ()+setWebkitLineDash self val+  = liftIO (toJSVal val >>= \ val' -> js_setWebkitLineDash self val')+ +foreign import javascript unsafe "$1[\"webkitLineDash\"]"+        js_getWebkitLineDash :: CanvasRenderingContext2D -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.webkitLineDash Mozilla CanvasRenderingContext2D.webkitLineDash documentation> +getWebkitLineDash ::+                  (MonadIO m) => CanvasRenderingContext2D -> m [Float]+getWebkitLineDash self+  = liftIO ((js_getWebkitLineDash self) >>= fromJSValUnchecked)+ +foreign import javascript unsafe+        "$1[\"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 -> CanvasStyle -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.strokeStyle Mozilla CanvasRenderingContext2D.strokeStyle documentation> +setStrokeStyle ::+               (MonadIO m, IsCanvasStyle val) =>+                 CanvasRenderingContext2D -> val -> m ()+setStrokeStyle self val+  = liftIO+      (toJSVal val >>=+         \ val' -> js_setStrokeStyle self (CanvasStyle val'))+ +foreign import javascript unsafe "$1[\"strokeStyle\"]"+        js_getStrokeStyle :: CanvasRenderingContext2D -> IO CanvasStyle++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.strokeStyle Mozilla CanvasRenderingContext2D.strokeStyle documentation> +getStrokeStyle ::+               (MonadIO m) => CanvasRenderingContext2D -> m CanvasStyle+getStrokeStyle self = liftIO (js_getStrokeStyle self)+ +foreign import javascript unsafe "$1[\"fillStyle\"] = $2;"+        js_setFillStyle :: CanvasRenderingContext2D -> CanvasStyle -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.fillStyle Mozilla CanvasRenderingContext2D.fillStyle documentation> +setFillStyle ::+             (MonadIO m, IsCanvasStyle val) =>+               CanvasRenderingContext2D -> val -> m ()+setFillStyle self val+  = liftIO+      (toJSVal val >>= \ val' -> js_setFillStyle self (CanvasStyle val'))+ +foreign import javascript unsafe "$1[\"fillStyle\"]"+        js_getFillStyle :: CanvasRenderingContext2D -> IO CanvasStyle++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.fillStyle Mozilla CanvasRenderingContext2D.fillStyle documentation> +getFillStyle ::+             (MonadIO m) => CanvasRenderingContext2D -> m CanvasStyle+getFillStyle self = liftIO (js_getFillStyle self)+ +foreign import javascript unsafe+        "$1[\"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[\"imageSmoothingEnabled\"] = $2;" js_setImageSmoothingEnabled+        :: CanvasRenderingContext2D -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.imageSmoothingEnabled Mozilla CanvasRenderingContext2D.imageSmoothingEnabled documentation> +setImageSmoothingEnabled ::+                         (MonadIO m) => CanvasRenderingContext2D -> Bool -> m ()+setImageSmoothingEnabled self val+  = liftIO (js_setImageSmoothingEnabled self val)+ +foreign import javascript unsafe+        "($1[\"imageSmoothingEnabled\"] ? 1 : 0)"+        js_getImageSmoothingEnabled :: CanvasRenderingContext2D -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.imageSmoothingEnabled Mozilla CanvasRenderingContext2D.imageSmoothingEnabled documentation> +getImageSmoothingEnabled ::+                         (MonadIO m) => CanvasRenderingContext2D -> m Bool+getImageSmoothingEnabled self+  = liftIO (js_getImageSmoothingEnabled self)+ +foreign import javascript unsafe+        "$1[\"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)+ +foreign import javascript unsafe+        "$1[\"imageSmoothingQuality\"] = $2;" js_setImageSmoothingQuality+        :: CanvasRenderingContext2D -> JSVal -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.imageSmoothingQuality Mozilla CanvasRenderingContext2D.imageSmoothingQuality documentation> +setImageSmoothingQuality ::+                         (MonadIO m) =>+                           CanvasRenderingContext2D -> ImageSmoothingQuality -> m ()+setImageSmoothingQuality self val+  = liftIO (js_setImageSmoothingQuality self (pToJSVal val))+ +foreign import javascript unsafe "$1[\"imageSmoothingQuality\"]"+        js_getImageSmoothingQuality :: CanvasRenderingContext2D -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.imageSmoothingQuality Mozilla CanvasRenderingContext2D.imageSmoothingQuality documentation> +getImageSmoothingQuality ::+                         (MonadIO m) => CanvasRenderingContext2D -> m ImageSmoothingQuality+getImageSmoothingQuality self+  = liftIO+      ((js_getImageSmoothingQuality self) >>= fromJSValUnchecked)
− src/GHCJS/DOM/JSFFI/Generated/CapabilityRange.hs 
@@ -1,47 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility-{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}-module GHCJS.DOM.JSFFI.Generated.CapabilityRange-       (js_getMax, getMax, js_getMin, getMin, js_getSupported,-        getSupported, CapabilityRange(..), gTypeCapabilityRange)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)-import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))-import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import 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
@@ -16,7 +16,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -25,6 +25,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -114,14 +115,15 @@          (toJSString data'))   foreign import javascript unsafe "$1[\"data\"] = $2;" js_setData ::-        CharacterData -> Nullable JSString -> IO ()+        CharacterData -> Optional 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))+  = liftIO+      (js_setData (toCharacterData self) (toOptionalJSString val))   foreign import javascript unsafe "$1[\"data\"]" js_getData ::         CharacterData -> IO (Nullable JSString)
src/GHCJS/DOM/JSFFI/Generated/ChildNode.hs view
@@ -4,12 +4,15 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.ChildNode-       (js_remove, remove, ChildNode(..), gTypeChildNode) where+       (js_before, before, js_after, after, js_replaceWith, replaceWith,+        js_remove, remove, ChildNode(..), gTypeChildNode, IsChildNode,+        toChildNode)+       where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -18,14 +21,49 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums  +foreign import javascript unsafe "$1[\"before\"]($2)" js_before ::+        ChildNode -> JSVal -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ChildNode.before Mozilla ChildNode.before documentation> +before ::+       (MonadIO m, IsChildNode self, IsNodeOrString nodes) =>+         self -> [nodes] -> m ()+before self nodes+  = liftIO+      (toJSVal nodes >>= \ nodes' -> js_before (toChildNode self) nodes')+ +foreign import javascript unsafe "$1[\"after\"]($2)" js_after ::+        ChildNode -> JSVal -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ChildNode.after Mozilla ChildNode.after documentation> +after ::+      (MonadIO m, IsChildNode self, IsNodeOrString nodes) =>+        self -> [nodes] -> m ()+after self nodes+  = liftIO+      (toJSVal nodes >>= \ nodes' -> js_after (toChildNode self) nodes')+ +foreign import javascript unsafe "$1[\"replaceWith\"]($2)"+        js_replaceWith :: ChildNode -> JSVal -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ChildNode.replaceWith Mozilla ChildNode.replaceWith documentation> +replaceWith ::+            (MonadIO m, IsChildNode self, IsNodeOrString nodes) =>+              self -> [nodes] -> m ()+replaceWith self nodes+  = liftIO+      (toJSVal nodes >>=+         \ nodes' -> js_replaceWith (toChildNode self) nodes')+  foreign import javascript 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))+remove :: (MonadIO m, IsChildNode self) => self -> m ()+remove self = liftIO (js_remove (toChildNode self))
src/GHCJS/DOM/JSFFI/Generated/ClientRect.hs view
@@ -12,7 +12,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -21,6 +21,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -31,39 +32,39 @@  -- | <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))+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))+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))+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))+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))+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))+getHeight self = liftIO (js_getHeight self)
src/GHCJS/DOM/JSFFI/Generated/ClientRectList.hs view
@@ -4,14 +4,14 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.ClientRectList-       (js_item, item, item_, itemUnsafe, itemUnchecked, js_getLength,-        getLength, ClientRectList(..), gTypeClientRectList)+       (js_item, item, item_, js_getLength, getLength, ClientRectList(..),+        gTypeClientRectList)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -20,41 +20,26 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums  -foreign import javascript unsafe "$1[\"item\"]($2)" js_item ::-        ClientRectList -> Word -> IO (Nullable ClientRect)+foreign import javascript unsafe "$1[$2]" js_item ::+        ClientRectList -> Word -> IO 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))+item :: (MonadIO m) => ClientRectList -> Word -> m ClientRect+item self index = liftIO (js_item self index)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/ClientRectList.item Mozilla ClientRectList.item documentation>  item_ :: (MonadIO m) => ClientRectList -> Word -> m ()-item_ self index = liftIO (void (js_item (self) index))---- | <https://developer.mozilla.org/en-US/docs/Web/API/ClientRectList.item Mozilla ClientRectList.item documentation> -itemUnsafe ::-           (MonadIO m, HasCallStack) => ClientRectList -> Word -> m ClientRect-itemUnsafe self index-  = liftIO-      ((nullableToMaybe <$> (js_item (self) index)) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/ClientRectList.item Mozilla ClientRectList.item documentation> -itemUnchecked ::-              (MonadIO m) => ClientRectList -> Word -> m ClientRect-itemUnchecked self index-  = liftIO (fromJust . nullableToMaybe <$> (js_item (self) index))+item_ self index = liftIO (void (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))+getLength self = liftIO (js_getLength self)
+ src/GHCJS/DOM/JSFFI/Generated/ClipboardEvent.hs view
@@ -0,0 +1,65 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+module GHCJS.DOM.JSFFI.Generated.ClipboardEvent+       (js_newClipboardEvent, newClipboardEvent, js_getClipboardData,+        getClipboardData, getClipboardDataUnsafe,+        getClipboardDataUnchecked, ClipboardEvent(..), gTypeClipboardEvent)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error)+import Data.Typeable (Typeable)+import GHCJS.Types (JSVal(..), JSString)+import GHCJS.Foreign (jsNull, jsUndefined)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Control.Monad (void)+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import Data.Maybe (fromJust)+import Data.Traversable (mapM)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.JSFFI.Generated.Enums+ +foreign import javascript unsafe+        "new window[\"ClipboardEvent\"]($1,\n$2)" js_newClipboardEvent ::+        JSString -> Optional ClipboardEventInit -> IO ClipboardEvent++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ClipboardEvent Mozilla ClipboardEvent documentation> +newClipboardEvent ::+                  (MonadIO m, ToJSString type') =>+                    type' -> Maybe ClipboardEventInit -> m ClipboardEvent+newClipboardEvent type' eventInitDict+  = liftIO+      (js_newClipboardEvent (toJSString type')+         (maybeToOptional eventInitDict))+ +foreign import javascript unsafe "$1[\"clipboardData\"]"+        js_getClipboardData :: ClipboardEvent -> IO (Nullable DataTransfer)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ClipboardEvent.clipboardData Mozilla ClipboardEvent.clipboardData documentation> +getClipboardData ::+                 (MonadIO m) => ClipboardEvent -> m (Maybe DataTransfer)+getClipboardData self+  = liftIO (nullableToMaybe <$> (js_getClipboardData self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ClipboardEvent.clipboardData Mozilla ClipboardEvent.clipboardData documentation> +getClipboardDataUnsafe ::+                       (MonadIO m, HasCallStack) => ClipboardEvent -> m DataTransfer+getClipboardDataUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getClipboardData self)) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ClipboardEvent.clipboardData Mozilla ClipboardEvent.clipboardData documentation> +getClipboardDataUnchecked ::+                          (MonadIO m) => ClipboardEvent -> m DataTransfer+getClipboardDataUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getClipboardData self))
src/GHCJS/DOM/JSFFI/Generated/CloseEvent.hs view
@@ -4,14 +4,15 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.CloseEvent-       (js_getWasClean, getWasClean, js_getCode, getCode, js_getReason,-        getReason, CloseEvent(..), gTypeCloseEvent)+       (js_newCloseEvent, newCloseEvent, js_getWasClean, getWasClean,+        js_getCode, getCode, js_getReason, getReason, CloseEvent(..),+        gTypeCloseEvent)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -20,24 +21,38 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums  +foreign import javascript unsafe+        "new window[\"CloseEvent\"]($1, $2)" js_newCloseEvent ::+        JSString -> Optional CloseEventInit -> IO CloseEvent++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CloseEvent Mozilla CloseEvent documentation> +newCloseEvent ::+              (MonadIO m, ToJSString type') =>+                type' -> Maybe CloseEventInit -> m CloseEvent+newCloseEvent type' eventInitDict+  = liftIO+      (js_newCloseEvent (toJSString type')+         (maybeToOptional eventInitDict))+  foreign import javascript unsafe "($1[\"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))+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))+getCode self = liftIO (js_getCode self)   foreign import javascript unsafe "$1[\"reason\"]" js_getReason ::         CloseEvent -> IO JSString@@ -45,4 +60,4 @@ -- | <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)))+getReason self = liftIO (fromJSString <$> (js_getReason self))
src/GHCJS/DOM/JSFFI/Generated/CommandLineAPIHost.hs view
@@ -7,8 +7,7 @@        (js_clearConsoleMessages, clearConsoleMessages, js_copyText,         copyText, js_inspect, inspect, js_inspectedObject, inspectedObject,         inspectedObject_, js_getEventListeners, getEventListeners,-        getEventListeners_, getEventListenersUnsafe,-        getEventListenersUnchecked, js_databaseId, databaseId, databaseId_,+        getEventListeners_, js_databaseId, databaseId, databaseId_,         js_storageId, storageId, storageId_, CommandLineAPIHost(..),         gTypeCommandLineAPIHost)        where@@ -16,7 +15,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -25,6 +24,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -35,7 +35,7 @@  -- | <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))+clearConsoleMessages self = liftIO (js_clearConsoleMessages self)   foreign import javascript unsafe "$1[\"copyText\"]($2)" js_copyText         :: CommandLineAPIHost -> JSString -> IO ()@@ -43,98 +43,86 @@ -- | <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))+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 ()+        (MonadIO m, ToJSVal objectId, ToJSVal hints) =>+          CommandLineAPIHost -> objectId -> hints -> m () inspect self objectId hints-  = liftIO (js_inspect (self) objectId hints)+  = liftIO+      (toJSVal hints >>=+         \ hints' ->+           toJSVal objectId >>= \ objectId' -> js_inspect self objectId'+             hints')  -foreign import javascript unsafe "$1[\"inspectedObject\"]($2)"-        js_inspectedObject :: CommandLineAPIHost -> Int -> IO JSVal+foreign import javascript unsafe "$1[\"inspectedObject\"]()"+        js_inspectedObject :: CommandLineAPIHost -> IO JSVal  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CommandLineAPIHost.inspectedObject Mozilla CommandLineAPIHost.inspectedObject documentation> -inspectedObject ::-                (MonadIO m) => CommandLineAPIHost -> Int -> m JSVal-inspectedObject self num = liftIO (js_inspectedObject (self) num)+inspectedObject :: (MonadIO m) => CommandLineAPIHost -> m JSVal+inspectedObject self = liftIO (js_inspectedObject self)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CommandLineAPIHost.inspectedObject Mozilla CommandLineAPIHost.inspectedObject documentation> -inspectedObject_ ::-                 (MonadIO m) => CommandLineAPIHost -> Int -> m ()-inspectedObject_ self num-  = liftIO (void (js_inspectedObject (self) num))+inspectedObject_ :: (MonadIO m) => CommandLineAPIHost -> m ()+inspectedObject_ self = liftIO (void (js_inspectedObject self))   foreign import javascript unsafe "$1[\"getEventListeners\"]($2)"-        js_getEventListeners ::-        CommandLineAPIHost -> Nullable Node -> IO (Nullable Array)+        js_getEventListeners :: CommandLineAPIHost -> Node -> IO Array  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CommandLineAPIHost.getEventListeners Mozilla CommandLineAPIHost.getEventListeners documentation>  getEventListeners ::-                  (MonadIO m, IsNode node) =>-                    CommandLineAPIHost -> Maybe node -> m (Maybe Array)+                  (MonadIO m, IsNode node) => CommandLineAPIHost -> node -> m Array getEventListeners self node-  = liftIO-      (nullableToMaybe <$>-         (js_getEventListeners (self) (maybeToNullable (fmap toNode node))))+  = liftIO (js_getEventListeners self (toNode node))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CommandLineAPIHost.getEventListeners Mozilla CommandLineAPIHost.getEventListeners documentation>  getEventListeners_ ::-                   (MonadIO m, IsNode node) =>-                     CommandLineAPIHost -> Maybe node -> m ()+                   (MonadIO m, IsNode node) => CommandLineAPIHost -> node -> m () getEventListeners_ self node-  = liftIO-      (void-         (js_getEventListeners (self) (maybeToNullable (fmap toNode node))))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CommandLineAPIHost.getEventListeners Mozilla CommandLineAPIHost.getEventListeners documentation> -getEventListenersUnsafe ::-                        (MonadIO m, IsNode node, HasCallStack) =>-                          CommandLineAPIHost -> Maybe node -> m Array-getEventListenersUnsafe self node-  = liftIO-      ((nullableToMaybe <$>-          (js_getEventListeners (self) (maybeToNullable (fmap toNode node))))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CommandLineAPIHost.getEventListeners Mozilla CommandLineAPIHost.getEventListeners documentation> -getEventListenersUnchecked ::-                           (MonadIO m, IsNode node) =>-                             CommandLineAPIHost -> Maybe node -> m Array-getEventListenersUnchecked self node-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_getEventListeners (self) (maybeToNullable (fmap toNode node))))+  = liftIO (void (js_getEventListeners self (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+           (MonadIO m, ToJSVal database, FromJSString result) =>+             CommandLineAPIHost -> database -> m result databaseId self database-  = liftIO (fromJSString <$> (js_databaseId (self) database))+  = liftIO+      (fromJSString <$>+         (toJSVal database >>= \ database' -> js_databaseId self database'))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CommandLineAPIHost.databaseId Mozilla CommandLineAPIHost.databaseId documentation> -databaseId_ :: (MonadIO m) => CommandLineAPIHost -> JSVal -> m ()+databaseId_ ::+            (MonadIO m, ToJSVal database) =>+              CommandLineAPIHost -> database -> m () databaseId_ self database-  = liftIO (void (js_databaseId (self) database))+  = liftIO+      (void+         (toJSVal database >>= \ database' -> 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+          (MonadIO m, ToJSVal storage, FromJSString result) =>+            CommandLineAPIHost -> storage -> m result storageId self storage-  = liftIO (fromJSString <$> (js_storageId (self) storage))+  = liftIO+      (fromJSString <$>+         (toJSVal storage >>= \ storage' -> js_storageId self storage'))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CommandLineAPIHost.storageId Mozilla CommandLineAPIHost.storageId documentation> -storageId_ :: (MonadIO m) => CommandLineAPIHost -> JSVal -> m ()+storageId_ ::+           (MonadIO m, ToJSVal storage) =>+             CommandLineAPIHost -> storage -> m () storageId_ self storage-  = liftIO (void (js_storageId (self) storage))+  = liftIO+      (void+         (toJSVal storage >>= \ storage' -> js_storageId self storage'))
src/GHCJS/DOM/JSFFI/Generated/Comment.hs view
@@ -9,7 +9,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -18,14 +18,17 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums   foreign import javascript unsafe "new window[\"Comment\"]($1)"-        js_newComment :: JSString -> IO Comment+        js_newComment :: Optional 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'))+newComment ::+           (MonadIO m, ToJSString data') => Maybe data' -> m Comment+newComment data'+  = liftIO (js_newComment (toOptionalJSString data'))
src/GHCJS/DOM/JSFFI/Generated/CompositionEvent.hs view
@@ -4,14 +4,15 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.CompositionEvent-       (js_initCompositionEvent, initCompositionEvent, js_getData,-        getData, CompositionEvent(..), gTypeCompositionEvent)+       (js_newCompositionEvent, newCompositionEvent,+        js_initCompositionEvent, initCompositionEvent, js_getData, getData,+        CompositionEvent(..), gTypeCompositionEvent)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -20,29 +21,46 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums   foreign import javascript unsafe+        "new window[\"CompositionEvent\"]($1,\n$2)" js_newCompositionEvent+        :: JSString -> Optional CompositionEventInit -> IO CompositionEvent++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CompositionEvent Mozilla CompositionEvent documentation> +newCompositionEvent ::+                    (MonadIO m, ToJSString type') =>+                      type' -> Maybe CompositionEventInit -> m CompositionEvent+newCompositionEvent type' eventInitDict+  = liftIO+      (js_newCompositionEvent (toJSString type')+         (maybeToOptional eventInitDict))+ +foreign import javascript unsafe         "$1[\"initCompositionEvent\"]($2,\n$3, $4, $5, $6)"         js_initCompositionEvent ::         CompositionEvent ->-          JSString -> Bool -> Bool -> Nullable Window -> JSString -> IO ()+          Optional JSString ->+            Bool -> Bool -> Optional Window -> Optional 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 ()+                         Maybe typeArg ->+                           Bool -> Bool -> Maybe Window -> Maybe dataArg -> m () initCompositionEvent self typeArg canBubbleArg cancelableArg   viewArg dataArg   = liftIO-      (js_initCompositionEvent (self) (toJSString typeArg) canBubbleArg+      (js_initCompositionEvent self (toOptionalJSString typeArg)+         canBubbleArg          cancelableArg-         (maybeToNullable viewArg)-         (toJSString dataArg))+         (maybeToOptional viewArg)+         (toOptionalJSString dataArg))   foreign import javascript unsafe "$1[\"data\"]" js_getData ::         CompositionEvent -> IO JSString@@ -50,4 +68,4 @@ -- | <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)))+getData self = liftIO (fromJSString <$> (js_getData self))
src/GHCJS/DOM/JSFFI/Generated/ConvolverNode.hs view
@@ -12,7 +12,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -21,50 +21,51 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums   foreign import javascript unsafe "$1[\"buffer\"] = $2;"-        js_setBuffer :: ConvolverNode -> Nullable AudioBuffer -> IO ()+        js_setBuffer :: ConvolverNode -> Optional AudioBuffer -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/ConvolverNode.buffer Mozilla ConvolverNode.buffer documentation>  setBuffer ::           (MonadIO m) => ConvolverNode -> Maybe AudioBuffer -> m () setBuffer self val-  = liftIO (js_setBuffer (self) (maybeToNullable val))+  = liftIO (js_setBuffer self (maybeToOptional 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)))+getBuffer self = liftIO (nullableToMaybe <$> (js_getBuffer self))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/ConvolverNode.buffer Mozilla ConvolverNode.buffer documentation>  getBufferUnsafe ::                 (MonadIO m, HasCallStack) => ConvolverNode -> m AudioBuffer getBufferUnsafe self   = liftIO-      ((nullableToMaybe <$> (js_getBuffer (self))) >>=+      ((nullableToMaybe <$> (js_getBuffer self)) >>=          maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/ConvolverNode.buffer Mozilla ConvolverNode.buffer documentation>  getBufferUnchecked :: (MonadIO m) => ConvolverNode -> m AudioBuffer getBufferUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getBuffer (self)))+  = liftIO (fromJust . 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)+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))+getNormalize self = liftIO (js_getNormalize self)
src/GHCJS/DOM/JSFFI/Generated/Coordinates.hs view
@@ -17,7 +17,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -26,6 +26,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -36,104 +37,103 @@  -- | <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))+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))+getLongitude self = liftIO (js_getLongitude self)   foreign import javascript unsafe "$1[\"altitude\"]" js_getAltitude-        :: Coordinates -> IO JSVal+        :: Coordinates -> IO (Nullable Double)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Coordinates.altitude Mozilla Coordinates.altitude documentation>  getAltitude :: (MonadIO m) => Coordinates -> m (Maybe Double) getAltitude self-  = liftIO ((js_getAltitude (self)) >>= fromJSValUnchecked)+  = liftIO (nullableToMaybe <$> (js_getAltitude self))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Coordinates.altitude Mozilla Coordinates.altitude documentation>  getAltitudeUnsafe ::                   (MonadIO m, HasCallStack) => Coordinates -> m Double getAltitudeUnsafe self   = liftIO-      (((js_getAltitude (self)) >>= fromJSValUnchecked) >>=+      ((nullableToMaybe <$> (js_getAltitude self)) >>=          maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Coordinates.altitude Mozilla Coordinates.altitude documentation>  getAltitudeUnchecked :: (MonadIO m) => Coordinates -> m Double getAltitudeUnchecked self-  = liftIO ((js_getAltitude (self)) >>= fromJSValUnchecked)+  = liftIO (fromJust . nullableToMaybe <$> (js_getAltitude self))   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))+getAccuracy self = liftIO (js_getAccuracy self)   foreign import javascript unsafe "$1[\"altitudeAccuracy\"]"-        js_getAltitudeAccuracy :: Coordinates -> IO JSVal+        js_getAltitudeAccuracy :: Coordinates -> IO (Nullable Double)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Coordinates.altitudeAccuracy Mozilla Coordinates.altitudeAccuracy documentation>  getAltitudeAccuracy ::                     (MonadIO m) => Coordinates -> m (Maybe Double) getAltitudeAccuracy self-  = liftIO ((js_getAltitudeAccuracy (self)) >>= fromJSValUnchecked)+  = liftIO (nullableToMaybe <$> (js_getAltitudeAccuracy self))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Coordinates.altitudeAccuracy Mozilla Coordinates.altitudeAccuracy documentation>  getAltitudeAccuracyUnsafe ::                           (MonadIO m, HasCallStack) => Coordinates -> m Double getAltitudeAccuracyUnsafe self   = liftIO-      (((js_getAltitudeAccuracy (self)) >>= fromJSValUnchecked) >>=+      ((nullableToMaybe <$> (js_getAltitudeAccuracy self)) >>=          maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Coordinates.altitudeAccuracy Mozilla Coordinates.altitudeAccuracy documentation>  getAltitudeAccuracyUnchecked ::                              (MonadIO m) => Coordinates -> m Double getAltitudeAccuracyUnchecked self-  = liftIO ((js_getAltitudeAccuracy (self)) >>= fromJSValUnchecked)+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getAltitudeAccuracy self))   foreign import javascript unsafe "$1[\"heading\"]" js_getHeading ::-        Coordinates -> IO JSVal+        Coordinates -> IO (Nullable Double)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Coordinates.heading Mozilla Coordinates.heading documentation>  getHeading :: (MonadIO m) => Coordinates -> m (Maybe Double)-getHeading self-  = liftIO ((js_getHeading (self)) >>= fromJSValUnchecked)+getHeading self = liftIO (nullableToMaybe <$> (js_getHeading self))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Coordinates.heading Mozilla Coordinates.heading documentation>  getHeadingUnsafe ::                  (MonadIO m, HasCallStack) => Coordinates -> m Double getHeadingUnsafe self   = liftIO-      (((js_getHeading (self)) >>= fromJSValUnchecked) >>=+      ((nullableToMaybe <$> (js_getHeading self)) >>=          maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Coordinates.heading Mozilla Coordinates.heading documentation>  getHeadingUnchecked :: (MonadIO m) => Coordinates -> m Double getHeadingUnchecked self-  = liftIO ((js_getHeading (self)) >>= fromJSValUnchecked)+  = liftIO (fromJust . nullableToMaybe <$> (js_getHeading self))   foreign import javascript unsafe "$1[\"speed\"]" js_getSpeed ::-        Coordinates -> IO JSVal+        Coordinates -> IO (Nullable Double)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Coordinates.speed Mozilla Coordinates.speed documentation>  getSpeed :: (MonadIO m) => Coordinates -> m (Maybe Double)-getSpeed self-  = liftIO ((js_getSpeed (self)) >>= fromJSValUnchecked)+getSpeed self = liftIO (nullableToMaybe <$> (js_getSpeed self))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Coordinates.speed Mozilla Coordinates.speed documentation>  getSpeedUnsafe ::                (MonadIO m, HasCallStack) => Coordinates -> m Double getSpeedUnsafe self   = liftIO-      (((js_getSpeed (self)) >>= fromJSValUnchecked) >>=+      ((nullableToMaybe <$> (js_getSpeed self)) >>=          maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Coordinates.speed Mozilla Coordinates.speed documentation>  getSpeedUnchecked :: (MonadIO m) => Coordinates -> m Double getSpeedUnchecked self-  = liftIO ((js_getSpeed (self)) >>= fromJSValUnchecked)+  = liftIO (fromJust . nullableToMaybe <$> (js_getSpeed self))
+ src/GHCJS/DOM/JSFFI/Generated/CountQueuingStrategy.hs view
@@ -0,0 +1,46 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+module GHCJS.DOM.JSFFI.Generated.CountQueuingStrategy+       (js_newCountQueuingStrategy, newCountQueuingStrategy, js_size,+        size, size_, CountQueuingStrategy(..), gTypeCountQueuingStrategy)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error)+import Data.Typeable (Typeable)+import GHCJS.Types (JSVal(..), JSString)+import GHCJS.Foreign (jsNull, jsUndefined)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Control.Monad (void)+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import Data.Maybe (fromJust)+import Data.Traversable (mapM)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.JSFFI.Generated.Enums+ +foreign import javascript unsafe+        "new window[\"CountQueuingStrategy\"]()" js_newCountQueuingStrategy+        :: IO CountQueuingStrategy++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CountQueuingStrategy Mozilla CountQueuingStrategy documentation> +newCountQueuingStrategy :: (MonadIO m) => m CountQueuingStrategy+newCountQueuingStrategy = liftIO (js_newCountQueuingStrategy)+ +foreign import javascript unsafe "$1[\"size\"]()" js_size ::+        CountQueuingStrategy -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CountQueuingStrategy.size Mozilla CountQueuingStrategy.size documentation> +size :: (MonadIO m) => CountQueuingStrategy -> m Double+size self = liftIO (js_size self)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CountQueuingStrategy.size Mozilla CountQueuingStrategy.size documentation> +size_ :: (MonadIO m) => CountQueuingStrategy -> m ()+size_ self = liftIO (void (js_size self))
src/GHCJS/DOM/JSFFI/Generated/Counter.hs view
@@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -20,6 +20,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -32,7 +33,7 @@ getIdentifier ::               (MonadIO m, FromJSString result) => Counter -> m result getIdentifier self-  = liftIO (fromJSString <$> (js_getIdentifier (self)))+  = liftIO (fromJSString <$> (js_getIdentifier self))   foreign import javascript unsafe "$1[\"listStyle\"]"         js_getListStyle :: Counter -> IO JSString@@ -41,7 +42,7 @@ getListStyle ::              (MonadIO m, FromJSString result) => Counter -> m result getListStyle self-  = liftIO (fromJSString <$> (js_getListStyle (self)))+  = liftIO (fromJSString <$> (js_getListStyle self))   foreign import javascript unsafe "$1[\"separator\"]"         js_getSeparator :: Counter -> IO JSString@@ -50,4 +51,4 @@ getSeparator ::              (MonadIO m, FromJSString result) => Counter -> m result getSeparator self-  = liftIO (fromJSString <$> (js_getSeparator (self)))+  = liftIO (fromJSString <$> (js_getSeparator self))
src/GHCJS/DOM/JSFFI/Generated/Crypto.hs view
@@ -5,15 +5,14 @@ {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.Crypto        (js_getRandomValues, getRandomValues, getRandomValues_,-        getRandomValuesUnsafe, getRandomValuesUnchecked,-        js_getWebkitSubtle, getWebkitSubtle, getWebkitSubtleUnsafe,-        getWebkitSubtleUnchecked, Crypto(..), gTypeCrypto)+        js_getSubtle, getSubtle, js_getWebkitSubtle, getWebkitSubtle,+        Crypto(..), gTypeCrypto)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -22,6 +21,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -29,67 +29,31 @@   foreign import javascript unsafe "$1[\"getRandomValues\"]($2)"         js_getRandomValues ::-        Crypto -> Nullable ArrayBufferView -> IO (Nullable ArrayBufferView)+        Crypto -> ArrayBufferView -> IO 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)+                  Crypto -> array -> m ArrayBufferView getRandomValues self array-  = liftIO-      (nullableToMaybe <$>-         (js_getRandomValues (self)-            (maybeToNullable (fmap toArrayBufferView array))))+  = liftIO (js_getRandomValues self (toArrayBufferView array))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Crypto.getRandomValues Mozilla Crypto.getRandomValues documentation>  getRandomValues_ ::-                 (MonadIO m, IsArrayBufferView array) =>-                   Crypto -> Maybe array -> m ()+                 (MonadIO m, IsArrayBufferView array) => Crypto -> array -> m () getRandomValues_ self array-  = liftIO-      (void-         (js_getRandomValues (self)-            (maybeToNullable (fmap toArrayBufferView array))))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Crypto.getRandomValues Mozilla Crypto.getRandomValues documentation> -getRandomValuesUnsafe ::-                      (MonadIO m, IsArrayBufferView array, HasCallStack) =>-                        Crypto -> Maybe array -> m ArrayBufferView-getRandomValuesUnsafe self array-  = liftIO-      ((nullableToMaybe <$>-          (js_getRandomValues (self)-             (maybeToNullable (fmap toArrayBufferView array))))-         >>= maybe (Prelude.error "Nothing to return") return)+  = liftIO (void (js_getRandomValues self (toArrayBufferView array)))+ +foreign import javascript unsafe "$1[\"subtle\"]" js_getSubtle ::+        Crypto -> IO SubtleCrypto --- | <https://developer.mozilla.org/en-US/docs/Web/API/Crypto.getRandomValues Mozilla Crypto.getRandomValues documentation> -getRandomValuesUnchecked ::-                         (MonadIO m, IsArrayBufferView array) =>-                           Crypto -> Maybe array -> m ArrayBufferView-getRandomValuesUnchecked self array-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_getRandomValues (self)-            (maybeToNullable (fmap toArrayBufferView array))))+-- | <https://developer.mozilla.org/en-US/docs/Web/API/Crypto.subtle Mozilla Crypto.subtle documentation> +getSubtle :: (MonadIO m) => Crypto -> m SubtleCrypto+getSubtle self = liftIO (js_getSubtle self)   foreign import javascript 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Crypto.webkitSubtle Mozilla Crypto.webkitSubtle documentation> -getWebkitSubtleUnsafe ::-                      (MonadIO m, HasCallStack) => Crypto -> m SubtleCrypto-getWebkitSubtleUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getWebkitSubtle (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        js_getWebkitSubtle :: Crypto -> IO WebKitSubtleCrypto  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Crypto.webkitSubtle Mozilla Crypto.webkitSubtle documentation> -getWebkitSubtleUnchecked :: (MonadIO m) => Crypto -> m SubtleCrypto-getWebkitSubtleUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$> (js_getWebkitSubtle (self)))+getWebkitSubtle :: (MonadIO m) => Crypto -> m WebKitSubtleCrypto+getWebkitSubtle self = liftIO (js_getWebkitSubtle self)
src/GHCJS/DOM/JSFFI/Generated/CryptoKey.hs view
@@ -5,15 +5,14 @@ {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.CryptoKey        (js_getType, getType, js_getExtractable, getExtractable,-        js_getAlgorithm, getAlgorithm, getAlgorithmUnsafe,-        getAlgorithmUnchecked, js_getUsages, getUsages, CryptoKey(..),-        gTypeCryptoKey)+        js_getAlgorithm, getAlgorithm, js_getUsages, getUsages,+        CryptoKey(..), gTypeCryptoKey)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -22,6 +21,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -32,40 +32,26 @@  -- | <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)+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))+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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CryptoKey.algorithm Mozilla CryptoKey.algorithm documentation> -getAlgorithmUnsafe ::-                   (MonadIO m, HasCallStack) => CryptoKey -> m Algorithm-getAlgorithmUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getAlgorithm (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        js_getAlgorithm :: CryptoKey -> IO GObject  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CryptoKey.algorithm Mozilla CryptoKey.algorithm documentation> -getAlgorithmUnchecked :: (MonadIO m) => CryptoKey -> m Algorithm-getAlgorithmUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getAlgorithm (self)))+getAlgorithm :: (MonadIO m) => CryptoKey -> m GObject+getAlgorithm self = liftIO (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 :: (MonadIO m) => CryptoKey -> m [CryptoKeyUsage] getUsages self-  = liftIO ((js_getUsages (self)) >>= fromJSValUnchecked)+  = liftIO ((js_getUsages self) >>= fromJSValUnchecked)
− src/GHCJS/DOM/JSFFI/Generated/CryptoKeyPair.hs 
@@ -1,73 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility-{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}-module GHCJS.DOM.JSFFI.Generated.CryptoKeyPair-       (js_getPublicKey, getPublicKey, getPublicKeyUnsafe,-        getPublicKeyUnchecked, js_getPrivateKey, getPrivateKey,-        getPrivateKeyUnsafe, getPrivateKeyUnchecked, CryptoKeyPair(..),-        gTypeCryptoKeyPair)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)-import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))-import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CryptoKeyPair.publicKey Mozilla CryptoKeyPair.publicKey documentation> -getPublicKeyUnsafe ::-                   (MonadIO m, HasCallStack) => CryptoKeyPair -> m CryptoKey-getPublicKeyUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getPublicKey (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CryptoKeyPair.publicKey Mozilla CryptoKeyPair.publicKey documentation> -getPublicKeyUnchecked ::-                      (MonadIO m) => CryptoKeyPair -> m CryptoKey-getPublicKeyUnchecked self-  = liftIO (fromJust . 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CryptoKeyPair.privateKey Mozilla CryptoKeyPair.privateKey documentation> -getPrivateKeyUnsafe ::-                    (MonadIO m, HasCallStack) => CryptoKeyPair -> m CryptoKey-getPrivateKeyUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getPrivateKey (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CryptoKeyPair.privateKey Mozilla CryptoKeyPair.privateKey documentation> -getPrivateKeyUnchecked ::-                       (MonadIO m) => CryptoKeyPair -> m CryptoKey-getPrivateKeyUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getPrivateKey (self)))
+ src/GHCJS/DOM/JSFFI/Generated/CustomElementRegistry.hs view
@@ -0,0 +1,64 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+module GHCJS.DOM.JSFFI.Generated.CustomElementRegistry+       (js_define, define, js_get, get, get_, js_whenDefined, whenDefined,+        CustomElementRegistry(..), gTypeCustomElementRegistry)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error)+import Data.Typeable (Typeable)+import GHCJS.Types (JSVal(..), JSString)+import GHCJS.Foreign (jsNull, jsUndefined)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Control.Monad (void)+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import Data.Maybe (fromJust)+import Data.Traversable (mapM)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"define\"]($2, $3)" js_define+        :: CustomElementRegistry -> JSString -> Function -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CustomElementRegistry.define Mozilla CustomElementRegistry.define documentation> +define ::+       (MonadIO m, ToJSString name, IsFunction constructor) =>+         CustomElementRegistry -> name -> constructor -> m ()+define self name constructor+  = liftIO+      (js_define self (toJSString name) (toFunction constructor))+ +foreign import javascript unsafe "$1[\"get\"]($2)" js_get ::+        CustomElementRegistry -> JSString -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CustomElementRegistry.get Mozilla CustomElementRegistry.get documentation> +get ::+    (MonadIO m, ToJSString name) =>+      CustomElementRegistry -> name -> m JSVal+get self name = liftIO (js_get self (toJSString name))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CustomElementRegistry.get Mozilla CustomElementRegistry.get documentation> +get_ ::+     (MonadIO m, ToJSString name) =>+       CustomElementRegistry -> name -> m ()+get_ self name = liftIO (void (js_get self (toJSString name)))+ +foreign import javascript interruptible+        "$1[\"whenDefined\"]($2).then($c);" js_whenDefined ::+        CustomElementRegistry -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CustomElementRegistry.whenDefined Mozilla CustomElementRegistry.whenDefined documentation> +whenDefined ::+            (MonadIO m, ToJSString name) =>+              CustomElementRegistry -> name -> m ()+whenDefined self name+  = liftIO (js_whenDefined self (toJSString name))
src/GHCJS/DOM/JSFFI/Generated/CustomEvent.hs view
@@ -4,14 +4,15 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.CustomEvent-       (js_initCustomEvent, initCustomEvent, js_getDetail, getDetail,-        CustomEvent(..), gTypeCustomEvent)+       (js_newCustomEvent, newCustomEvent, js_initCustomEvent,+        initCustomEvent, js_getDetail, getDetail, CustomEvent(..),+        gTypeCustomEvent)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -20,28 +21,43 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums   foreign import javascript unsafe+        "new window[\"CustomEvent\"]($1,\n$2)" js_newCustomEvent ::+        JSString -> Optional CustomEventInit -> IO CustomEvent++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CustomEvent Mozilla CustomEvent documentation> +newCustomEvent ::+               (MonadIO m, ToJSString type') =>+                 type' -> Maybe CustomEventInit -> m CustomEvent+newCustomEvent type' eventInitDict+  = liftIO+      (js_newCustomEvent (toJSString type')+         (maybeToOptional eventInitDict))+ +foreign import javascript unsafe         "$1[\"initCustomEvent\"]($2, $3,\n$4, $5)" js_initCustomEvent ::-        CustomEvent -> JSString -> Bool -> Bool -> JSVal -> IO ()+        CustomEvent -> JSString -> Bool -> Bool -> Optional 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+                (MonadIO m, ToJSString type', ToJSVal detail) =>+                  CustomEvent -> type' -> Bool -> Bool -> Maybe detail -> m ()+initCustomEvent self type' bubbles cancelable detail   = liftIO-      (js_initCustomEvent (self) (toJSString typeArg) canBubbleArg-         cancelableArg-         detailArg)+      (mapM toJSVal detail >>=+         \ detail' ->+           js_initCustomEvent self (toJSString type') bubbles cancelable+             (maybeToOptional detail'))   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))+getDetail self = liftIO (js_getDetail self)
src/GHCJS/DOM/JSFFI/Generated/DOMError.hs view
@@ -4,14 +4,14 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.DOMError-       (js_getName, getName, DOMError(..), gTypeDOMError, IsDOMError,-        toDOMError)+       (js_getName, getName, js_getMessage, getMessage, DOMError(..),+        gTypeDOMError, IsDOMError, toDOMError)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -20,6 +20,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -34,3 +35,13 @@           self -> m result getName self   = liftIO (fromJSString <$> (js_getName (toDOMError self)))+ +foreign import javascript unsafe "$1[\"message\"]" js_getMessage ::+        DOMError -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMError.message Mozilla DOMError.message documentation> +getMessage ::+           (MonadIO m, IsDOMError self, FromJSString result) =>+             self -> m result+getMessage self+  = liftIO (fromJSString <$> (js_getMessage (toDOMError self)))
+ src/GHCJS/DOM/JSFFI/Generated/DOMException.hs view
@@ -0,0 +1,113 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+module GHCJS.DOM.JSFFI.Generated.DOMException+       (js_newDOMException, newDOMException, js_toString, toString,+        toString_, pattern INDEX_SIZE_ERR, pattern DOMSTRING_SIZE_ERR,+        pattern HIERARCHY_REQUEST_ERR, pattern WRONG_DOCUMENT_ERR,+        pattern INVALID_CHARACTER_ERR, pattern NO_DATA_ALLOWED_ERR,+        pattern NO_MODIFICATION_ALLOWED_ERR, pattern NOT_FOUND_ERR,+        pattern NOT_SUPPORTED_ERR, pattern INUSE_ATTRIBUTE_ERR,+        pattern INVALID_STATE_ERR, pattern SYNTAX_ERR,+        pattern INVALID_MODIFICATION_ERR, pattern NAMESPACE_ERR,+        pattern INVALID_ACCESS_ERR, pattern VALIDATION_ERR,+        pattern TYPE_MISMATCH_ERR, pattern SECURITY_ERR,+        pattern NETWORK_ERR, pattern ABORT_ERR, pattern URL_MISMATCH_ERR,+        pattern QUOTA_EXCEEDED_ERR, pattern TIMEOUT_ERR,+        pattern INVALID_NODE_TYPE_ERR, pattern DATA_CLONE_ERR, js_getCode,+        getCode, js_getName, getName, js_getMessage, getMessage,+        DOMException(..), gTypeDOMException)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error)+import Data.Typeable (Typeable)+import GHCJS.Types (JSVal(..), JSString)+import GHCJS.Foreign (jsNull, jsUndefined)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Control.Monad (void)+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import Data.Maybe (fromJust)+import Data.Traversable (mapM)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.JSFFI.Generated.Enums+ +foreign import javascript unsafe+        "new window[\"DOMException\"]($1,\n$2)" js_newDOMException ::+        Optional JSString -> Optional JSString -> IO DOMException++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMException Mozilla DOMException documentation> +newDOMException ::+                (MonadIO m, ToJSString message, ToJSString name) =>+                  Maybe message -> Maybe name -> m DOMException+newDOMException message name+  = liftIO+      (js_newDOMException (toOptionalJSString message)+         (toOptionalJSString name))+ +foreign import javascript unsafe "$1[\"toString\"]()" js_toString+        :: DOMException -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMException.toString Mozilla DOMException.toString documentation> +toString ::+         (MonadIO m, FromJSString result) => DOMException -> m result+toString self = liftIO (fromJSString <$> (js_toString self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMException.toString Mozilla DOMException.toString documentation> +toString_ :: (MonadIO m) => DOMException -> m ()+toString_ self = liftIO (void (js_toString self))+pattern INDEX_SIZE_ERR = 1+pattern DOMSTRING_SIZE_ERR = 2+pattern HIERARCHY_REQUEST_ERR = 3+pattern WRONG_DOCUMENT_ERR = 4+pattern INVALID_CHARACTER_ERR = 5+pattern NO_DATA_ALLOWED_ERR = 6+pattern NO_MODIFICATION_ALLOWED_ERR = 7+pattern NOT_FOUND_ERR = 8+pattern NOT_SUPPORTED_ERR = 9+pattern INUSE_ATTRIBUTE_ERR = 10+pattern INVALID_STATE_ERR = 11+pattern SYNTAX_ERR = 12+pattern INVALID_MODIFICATION_ERR = 13+pattern NAMESPACE_ERR = 14+pattern INVALID_ACCESS_ERR = 15+pattern VALIDATION_ERR = 16+pattern TYPE_MISMATCH_ERR = 17+pattern SECURITY_ERR = 18+pattern NETWORK_ERR = 19+pattern ABORT_ERR = 20+pattern URL_MISMATCH_ERR = 21+pattern QUOTA_EXCEEDED_ERR = 22+pattern TIMEOUT_ERR = 23+pattern INVALID_NODE_TYPE_ERR = 24+pattern DATA_CLONE_ERR = 25+ +foreign import javascript unsafe "$1[\"code\"]" js_getCode ::+        DOMException -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMException.code Mozilla DOMException.code documentation> +getCode :: (MonadIO m) => DOMException -> m Word+getCode self = liftIO (js_getCode self)+ +foreign import javascript unsafe "$1[\"name\"]" js_getName ::+        DOMException -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMException.name Mozilla DOMException.name documentation> +getName ::+        (MonadIO m, FromJSString result) => DOMException -> m result+getName self = liftIO (fromJSString <$> (js_getName self))+ +foreign import javascript unsafe "$1[\"message\"]" js_getMessage ::+        DOMException -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMException.message Mozilla DOMException.message documentation> +getMessage ::+           (MonadIO m, FromJSString result) => DOMException -> m result+getMessage self = liftIO (fromJSString <$> (js_getMessage self))
src/GHCJS/DOM/JSFFI/Generated/DOMImplementation.hs view
@@ -4,21 +4,18 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.DOMImplementation-       (js_hasFeature, hasFeature, hasFeature_, js_createDocumentType,-        createDocumentType, createDocumentType_, createDocumentTypeUnsafe,-        createDocumentTypeUnchecked, js_createDocument, createDocument,-        createDocument_, createDocumentUnsafe, createDocumentUnchecked,-        js_createCSSStyleSheet, createCSSStyleSheet, createCSSStyleSheet_,-        createCSSStyleSheetUnsafe, createCSSStyleSheetUnchecked,+       (js_createDocumentType, createDocumentType, createDocumentType_,+        js_createDocument, createDocument, createDocument_,         js_createHTMLDocument, createHTMLDocument, createHTMLDocument_,-        createHTMLDocumentUnsafe, createHTMLDocumentUnchecked,-        DOMImplementation(..), gTypeDOMImplementation)+        js_hasFeature, hasFeature, hasFeature_, js_createCSSStyleSheet,+        createCSSStyleSheet, createCSSStyleSheet_, DOMImplementation(..),+        gTypeDOMImplementation)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -27,116 +24,58 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) 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))---- | <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 ()-hasFeature_ self feature version-  = liftIO-      (void-         (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)+          JSString -> JSString -> JSString -> IO DocumentType  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMImplementation.createDocumentType Mozilla DOMImplementation.createDocumentType documentation>  createDocumentType ::                    (MonadIO m, ToJSString qualifiedName, ToJSString publicId,                     ToJSString systemId) =>                      DOMImplementation ->-                       Maybe qualifiedName ->-                         Maybe publicId -> Maybe systemId -> m (Maybe DocumentType)+                       qualifiedName -> publicId -> systemId -> m DocumentType createDocumentType self qualifiedName publicId systemId   = liftIO-      (nullableToMaybe <$>-         (js_createDocumentType (self) (toMaybeJSString qualifiedName)-            (toMaybeJSString publicId)-            (toMaybeJSString systemId)))+      (js_createDocumentType self (toJSString qualifiedName)+         (toJSString publicId)+         (toJSString systemId))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMImplementation.createDocumentType Mozilla DOMImplementation.createDocumentType documentation>  createDocumentType_ ::                     (MonadIO m, ToJSString qualifiedName, ToJSString publicId,                      ToJSString systemId) =>-                      DOMImplementation ->-                        Maybe qualifiedName -> Maybe publicId -> Maybe systemId -> m ()+                      DOMImplementation -> qualifiedName -> publicId -> systemId -> m () createDocumentType_ self qualifiedName publicId systemId   = liftIO       (void-         (js_createDocumentType (self) (toMaybeJSString qualifiedName)-            (toMaybeJSString publicId)-            (toMaybeJSString systemId)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMImplementation.createDocumentType Mozilla DOMImplementation.createDocumentType documentation> -createDocumentTypeUnsafe ::-                         (MonadIO m, ToJSString qualifiedName, ToJSString publicId,-                          ToJSString systemId, HasCallStack) =>-                           DOMImplementation ->-                             Maybe qualifiedName ->-                               Maybe publicId -> Maybe systemId -> m DocumentType-createDocumentTypeUnsafe self qualifiedName publicId systemId-  = liftIO-      ((nullableToMaybe <$>-          (js_createDocumentType (self) (toMaybeJSString qualifiedName)-             (toMaybeJSString publicId)-             (toMaybeJSString systemId)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMImplementation.createDocumentType Mozilla DOMImplementation.createDocumentType documentation> -createDocumentTypeUnchecked ::-                            (MonadIO m, ToJSString qualifiedName, ToJSString publicId,-                             ToJSString systemId) =>-                              DOMImplementation ->-                                Maybe qualifiedName ->-                                  Maybe publicId -> Maybe systemId -> m DocumentType-createDocumentTypeUnchecked self qualifiedName publicId systemId-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_createDocumentType (self) (toMaybeJSString qualifiedName)-            (toMaybeJSString publicId)-            (toMaybeJSString systemId)))+         (js_createDocumentType self (toJSString qualifiedName)+            (toJSString publicId)+            (toJSString systemId)))   foreign import javascript unsafe         "$1[\"createDocument\"]($2, $3, $4)" js_createDocument ::         DOMImplementation ->-          Nullable JSString ->-            Nullable JSString ->-              Nullable DocumentType -> IO (Nullable Document)+          Optional JSString ->+            Optional JSString -> Optional DocumentType -> IO XMLDocument  -- | <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)+                     Maybe qualifiedName -> Maybe DocumentType -> m XMLDocument createDocument self namespaceURI qualifiedName doctype   = liftIO-      (nullableToMaybe <$>-         (js_createDocument (self) (toMaybeJSString namespaceURI)-            (toMaybeJSString qualifiedName)-            (maybeToNullable doctype)))+      (js_createDocument self (toOptionalJSString namespaceURI)+         (toOptionalJSString qualifiedName)+         (maybeToOptional doctype))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMImplementation.createDocument Mozilla DOMImplementation.createDocument documentation>  createDocument_ ::@@ -147,118 +86,60 @@ createDocument_ self namespaceURI qualifiedName doctype   = liftIO       (void-         (js_createDocument (self) (toMaybeJSString namespaceURI)-            (toMaybeJSString qualifiedName)-            (maybeToNullable doctype)))+         (js_createDocument self (toOptionalJSString namespaceURI)+            (toOptionalJSString qualifiedName)+            (maybeToOptional doctype)))+ +foreign import javascript unsafe "$1[\"createHTMLDocument\"]($2)"+        js_createHTMLDocument ::+        DOMImplementation -> Optional JSString -> IO HTMLDocument --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMImplementation.createDocument Mozilla DOMImplementation.createDocument documentation> -createDocumentUnsafe ::-                     (MonadIO m, ToJSString namespaceURI, ToJSString qualifiedName,-                      HasCallStack) =>-                       DOMImplementation ->-                         Maybe namespaceURI ->-                           Maybe qualifiedName -> Maybe DocumentType -> m Document-createDocumentUnsafe self namespaceURI qualifiedName doctype-  = liftIO-      ((nullableToMaybe <$>-          (js_createDocument (self) (toMaybeJSString namespaceURI)-             (toMaybeJSString qualifiedName)-             (maybeToNullable doctype)))-         >>= maybe (Prelude.error "Nothing to return") return)+-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMImplementation.createHTMLDocument Mozilla DOMImplementation.createHTMLDocument documentation> +createHTMLDocument ::+                   (MonadIO m, ToJSString title) =>+                     DOMImplementation -> Maybe title -> m HTMLDocument+createHTMLDocument self title+  = liftIO (js_createHTMLDocument self (toOptionalJSString title)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMImplementation.createDocument Mozilla DOMImplementation.createDocument documentation> -createDocumentUnchecked ::-                        (MonadIO m, ToJSString namespaceURI, ToJSString qualifiedName) =>-                          DOMImplementation ->-                            Maybe namespaceURI ->-                              Maybe qualifiedName -> Maybe DocumentType -> m Document-createDocumentUnchecked self namespaceURI qualifiedName doctype+-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMImplementation.createHTMLDocument Mozilla DOMImplementation.createHTMLDocument documentation> +createHTMLDocument_ ::+                    (MonadIO m, ToJSString title) =>+                      DOMImplementation -> Maybe title -> m ()+createHTMLDocument_ self title   = liftIO-      (fromJust . nullableToMaybe <$>-         (js_createDocument (self) (toMaybeJSString namespaceURI)-            (toMaybeJSString qualifiedName)-            (maybeToNullable doctype)))+      (void (js_createHTMLDocument self (toOptionalJSString title)))  +foreign import javascript unsafe "($1[\"hasFeature\"]() ? 1 : 0)"+        js_hasFeature :: DOMImplementation -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMImplementation.hasFeature Mozilla DOMImplementation.hasFeature documentation> +hasFeature :: (MonadIO m) => DOMImplementation -> m Bool+hasFeature self = liftIO (js_hasFeature self)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMImplementation.hasFeature Mozilla DOMImplementation.hasFeature documentation> +hasFeature_ :: (MonadIO m) => DOMImplementation -> m ()+hasFeature_ self = liftIO (void (js_hasFeature self))+  foreign import javascript unsafe         "$1[\"createCSSStyleSheet\"]($2,\n$3)" js_createCSSStyleSheet ::         DOMImplementation ->-          JSString -> JSString -> IO (Nullable CSSStyleSheet)+          Optional JSString -> Optional JSString -> IO 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)+                      DOMImplementation -> Maybe title -> Maybe media -> m CSSStyleSheet createCSSStyleSheet self title media   = liftIO-      (nullableToMaybe <$>-         (js_createCSSStyleSheet (self) (toJSString title)-            (toJSString media)))+      (js_createCSSStyleSheet self (toOptionalJSString title)+         (toOptionalJSString media))  -- | <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 ()+                       DOMImplementation -> Maybe title -> Maybe media -> m () createCSSStyleSheet_ self title media   = liftIO       (void-         (js_createCSSStyleSheet (self) (toJSString title)-            (toJSString media)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMImplementation.createCSSStyleSheet Mozilla DOMImplementation.createCSSStyleSheet documentation> -createCSSStyleSheetUnsafe ::-                          (MonadIO m, ToJSString title, ToJSString media, HasCallStack) =>-                            DOMImplementation -> title -> media -> m CSSStyleSheet-createCSSStyleSheetUnsafe self title media-  = liftIO-      ((nullableToMaybe <$>-          (js_createCSSStyleSheet (self) (toJSString title)-             (toJSString media)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMImplementation.createCSSStyleSheet Mozilla DOMImplementation.createCSSStyleSheet documentation> -createCSSStyleSheetUnchecked ::-                             (MonadIO m, ToJSString title, ToJSString media) =>-                               DOMImplementation -> title -> media -> m CSSStyleSheet-createCSSStyleSheetUnchecked self title media-  = liftIO-      (fromJust . 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMImplementation.createHTMLDocument Mozilla DOMImplementation.createHTMLDocument documentation> -createHTMLDocument_ ::-                    (MonadIO m, ToJSString title) => DOMImplementation -> title -> m ()-createHTMLDocument_ self title-  = liftIO (void (js_createHTMLDocument (self) (toJSString title)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMImplementation.createHTMLDocument Mozilla DOMImplementation.createHTMLDocument documentation> -createHTMLDocumentUnsafe ::-                         (MonadIO m, ToJSString title, HasCallStack) =>-                           DOMImplementation -> title -> m HTMLDocument-createHTMLDocumentUnsafe self title-  = liftIO-      ((nullableToMaybe <$>-          (js_createHTMLDocument (self) (toJSString title)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMImplementation.createHTMLDocument Mozilla DOMImplementation.createHTMLDocument documentation> -createHTMLDocumentUnchecked ::-                            (MonadIO m, ToJSString title) =>-                              DOMImplementation -> title -> m HTMLDocument-createHTMLDocumentUnchecked self title-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_createHTMLDocument (self) (toJSString title)))+         (js_createCSSStyleSheet self (toOptionalJSString title)+            (toOptionalJSString media)))
src/GHCJS/DOM/JSFFI/Generated/DOMNamedFlowCollection.hs view
@@ -13,7 +13,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -22,24 +22,24 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums  -foreign import javascript unsafe "$1[\"item\"]($2)" js_item ::+foreign import javascript unsafe "$1[$2]" js_item ::         DOMNamedFlowCollection -> Word -> IO (Nullable WebKitNamedFlow)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitNamedFlowCollection.item Mozilla WebKitNamedFlowCollection.item documentation>  item ::      (MonadIO m) =>        DOMNamedFlowCollection -> Word -> m (Maybe WebKitNamedFlow)-item self index-  = liftIO (nullableToMaybe <$> (js_item (self) index))+item self index = liftIO (nullableToMaybe <$> (js_item self index))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitNamedFlowCollection.item Mozilla WebKitNamedFlowCollection.item documentation>  item_ :: (MonadIO m) => DOMNamedFlowCollection -> Word -> m ()-item_ self index = liftIO (void (js_item (self) index))+item_ self index = liftIO (void (js_item self index))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitNamedFlowCollection.item Mozilla WebKitNamedFlowCollection.item documentation>  itemUnsafe ::@@ -47,17 +47,16 @@              DOMNamedFlowCollection -> Word -> m WebKitNamedFlow itemUnsafe self index   = liftIO-      ((nullableToMaybe <$> (js_item (self) index)) >>=+      ((nullableToMaybe <$> (js_item self index)) >>=          maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitNamedFlowCollection.item Mozilla WebKitNamedFlowCollection.item documentation>  itemUnchecked ::               (MonadIO m) => DOMNamedFlowCollection -> Word -> m WebKitNamedFlow itemUnchecked self index-  = liftIO (fromJust . nullableToMaybe <$> (js_item (self) index))+  = liftIO (fromJust . nullableToMaybe <$> (js_item self index))  -foreign import javascript unsafe "$1[\"namedItem\"]($2)"-        js_namedItem ::+foreign import javascript unsafe "$1[$2]" js_namedItem ::         DOMNamedFlowCollection -> JSString -> IO (Nullable WebKitNamedFlow)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitNamedFlowCollection.namedItem Mozilla WebKitNamedFlowCollection.namedItem documentation> @@ -66,14 +65,14 @@             DOMNamedFlowCollection -> name -> m (Maybe WebKitNamedFlow) namedItem self name   = liftIO-      (nullableToMaybe <$> (js_namedItem (self) (toJSString name)))+      (nullableToMaybe <$> (js_namedItem self (toJSString name)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitNamedFlowCollection.namedItem Mozilla WebKitNamedFlowCollection.namedItem documentation>  namedItem_ ::            (MonadIO m, ToJSString name) =>              DOMNamedFlowCollection -> name -> m () namedItem_ self name-  = liftIO (void (js_namedItem (self) (toJSString name)))+  = liftIO (void (js_namedItem self (toJSString name)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitNamedFlowCollection.namedItem Mozilla WebKitNamedFlowCollection.namedItem documentation>  namedItemUnsafe ::@@ -81,7 +80,7 @@                   DOMNamedFlowCollection -> name -> m WebKitNamedFlow namedItemUnsafe self name   = liftIO-      ((nullableToMaybe <$> (js_namedItem (self) (toJSString name))) >>=+      ((nullableToMaybe <$> (js_namedItem self (toJSString name))) >>=          maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitNamedFlowCollection.namedItem Mozilla WebKitNamedFlowCollection.namedItem documentation> @@ -91,11 +90,11 @@ namedItemUnchecked self name   = liftIO       (fromJust . nullableToMaybe <$>-         (js_namedItem (self) (toJSString name)))+         (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))+getLength self = liftIO (js_getLength self)
src/GHCJS/DOM/JSFFI/Generated/DOMParser.hs view
@@ -5,14 +5,13 @@ {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.DOMParser        (js_newDOMParser, newDOMParser, js_parseFromString,-        parseFromString, parseFromString_, parseFromStringUnsafe,-        parseFromStringUnchecked, DOMParser(..), gTypeDOMParser)+        parseFromString, parseFromString_, DOMParser(..), gTypeDOMParser)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -21,6 +20,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -35,46 +35,23 @@   foreign import javascript unsafe "$1[\"parseFromString\"]($2, $3)"         js_parseFromString ::-        DOMParser -> JSString -> JSString -> IO (Nullable Document)+        DOMParser -> JSString -> JSString -> IO 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+                (MonadIO m, ToJSString string, ToJSString contentType) =>+                  DOMParser -> string -> contentType -> m Document+parseFromString self string contentType   = liftIO-      (nullableToMaybe <$>-         (js_parseFromString (self) (toJSString str)-            (toJSString contentType)))+      (js_parseFromString self (toJSString string)+         (toJSString contentType))  -- | <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 ()-parseFromString_ self str contentType+                 (MonadIO m, ToJSString string, ToJSString contentType) =>+                   DOMParser -> string -> contentType -> m ()+parseFromString_ self string contentType   = liftIO       (void-         (js_parseFromString (self) (toJSString str)-            (toJSString contentType)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMParser.parseFromString Mozilla DOMParser.parseFromString documentation> -parseFromStringUnsafe ::-                      (MonadIO m, ToJSString str, ToJSString contentType,-                       HasCallStack) =>-                        DOMParser -> str -> contentType -> m Document-parseFromStringUnsafe self str contentType-  = liftIO-      ((nullableToMaybe <$>-          (js_parseFromString (self) (toJSString str)-             (toJSString contentType)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMParser.parseFromString Mozilla DOMParser.parseFromString documentation> -parseFromStringUnchecked ::-                         (MonadIO m, ToJSString str, ToJSString contentType) =>-                           DOMParser -> str -> contentType -> m Document-parseFromStringUnchecked self str contentType-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_parseFromString (self) (toJSString str)+         (js_parseFromString self (toJSString string)             (toJSString contentType)))
+ src/GHCJS/DOM/JSFFI/Generated/DOMPoint.hs view
@@ -0,0 +1,123 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+module GHCJS.DOM.JSFFI.Generated.DOMPoint+       (js_newDOMPoint, newDOMPoint, js_newDOMPoint', newDOMPoint',+        js_fromPoint, fromPoint, fromPoint_, js_setX, setX, js_getX, getX,+        js_setY, setY, js_getY, getY, js_setZ, setZ, js_getZ, getZ,+        js_setW, setW, js_getW, getW, DOMPoint(..), gTypeDOMPoint)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error)+import Data.Typeable (Typeable)+import GHCJS.Types (JSVal(..), JSString)+import GHCJS.Foreign (jsNull, jsUndefined)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Control.Monad (void)+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import Data.Maybe (fromJust)+import Data.Traversable (mapM)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.JSFFI.Generated.Enums+ +foreign import javascript unsafe "new window[\"DOMPoint\"]($1)"+        js_newDOMPoint :: DOMPointInit -> IO DOMPoint++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMPoint Mozilla DOMPoint documentation> +newDOMPoint :: (MonadIO m) => DOMPointInit -> m DOMPoint+newDOMPoint point = liftIO (js_newDOMPoint point)+ +foreign import javascript unsafe+        "new window[\"DOMPoint\"]($1, $2,\n$3, $4)" js_newDOMPoint' ::+        Optional Double ->+          Optional Double ->+            Optional Double -> Optional Double -> IO DOMPoint++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMPoint Mozilla DOMPoint documentation> +newDOMPoint' ::+             (MonadIO m) =>+               Maybe Double ->+                 Maybe Double -> Maybe Double -> Maybe Double -> m DOMPoint+newDOMPoint' x y z w+  = liftIO+      (js_newDOMPoint' (maybeToOptional x) (maybeToOptional y)+         (maybeToOptional z)+         (maybeToOptional w))+ +foreign import javascript unsafe "$1[\"fromPoint\"]($2)"+        js_fromPoint :: DOMPoint -> Optional DOMPointInit -> IO DOMPoint++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMPoint.fromPoint Mozilla DOMPoint.fromPoint documentation> +fromPoint ::+          (MonadIO m) => DOMPoint -> Maybe DOMPointInit -> m DOMPoint+fromPoint self other+  = liftIO (js_fromPoint self (maybeToOptional other))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMPoint.fromPoint Mozilla DOMPoint.fromPoint documentation> +fromPoint_ :: (MonadIO m) => DOMPoint -> Maybe DOMPointInit -> m ()+fromPoint_ self other+  = liftIO (void (js_fromPoint self (maybeToOptional other)))+ +foreign import javascript unsafe "$1[\"x\"] = $2;" js_setX ::+        DOMPoint -> Double -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMPoint.x Mozilla DOMPoint.x documentation> +setX :: (MonadIO m) => DOMPoint -> Double -> m ()+setX self val = liftIO (js_setX self val)+ +foreign import javascript unsafe "$1[\"x\"]" js_getX ::+        DOMPoint -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMPoint.x Mozilla DOMPoint.x documentation> +getX :: (MonadIO m) => DOMPoint -> m Double+getX self = liftIO (js_getX self)+ +foreign import javascript unsafe "$1[\"y\"] = $2;" js_setY ::+        DOMPoint -> Double -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMPoint.y Mozilla DOMPoint.y documentation> +setY :: (MonadIO m) => DOMPoint -> Double -> m ()+setY self val = liftIO (js_setY self val)+ +foreign import javascript unsafe "$1[\"y\"]" js_getY ::+        DOMPoint -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMPoint.y Mozilla DOMPoint.y documentation> +getY :: (MonadIO m) => DOMPoint -> m Double+getY self = liftIO (js_getY self)+ +foreign import javascript unsafe "$1[\"z\"] = $2;" js_setZ ::+        DOMPoint -> Double -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMPoint.z Mozilla DOMPoint.z documentation> +setZ :: (MonadIO m) => DOMPoint -> Double -> m ()+setZ self val = liftIO (js_setZ self val)+ +foreign import javascript unsafe "$1[\"z\"]" js_getZ ::+        DOMPoint -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMPoint.z Mozilla DOMPoint.z documentation> +getZ :: (MonadIO m) => DOMPoint -> m Double+getZ self = liftIO (js_getZ self)+ +foreign import javascript unsafe "$1[\"w\"] = $2;" js_setW ::+        DOMPoint -> Double -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMPoint.w Mozilla DOMPoint.w documentation> +setW :: (MonadIO m) => DOMPoint -> Double -> m ()+setW self val = liftIO (js_setW self val)+ +foreign import javascript unsafe "$1[\"w\"]" js_getW ::+        DOMPoint -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMPoint.w Mozilla DOMPoint.w documentation> +getW :: (MonadIO m) => DOMPoint -> m Double+getW self = liftIO (js_getW self)
+ src/GHCJS/DOM/JSFFI/Generated/DOMPointReadOnly.hs view
@@ -0,0 +1,106 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+module GHCJS.DOM.JSFFI.Generated.DOMPointReadOnly+       (js_newDOMPointReadOnly, newDOMPointReadOnly,+        js_newDOMPointReadOnly', newDOMPointReadOnly', js_fromPoint,+        fromPoint, fromPoint_, js_getX, getX, js_getY, getY, js_getZ, getZ,+        js_getW, getW, DOMPointReadOnly(..), gTypeDOMPointReadOnly,+        IsDOMPointReadOnly, toDOMPointReadOnly)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error)+import Data.Typeable (Typeable)+import GHCJS.Types (JSVal(..), JSString)+import GHCJS.Foreign (jsNull, jsUndefined)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Control.Monad (void)+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import Data.Maybe (fromJust)+import Data.Traversable (mapM)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.JSFFI.Generated.Enums+ +foreign import javascript unsafe+        "new window[\"DOMPointReadOnly\"]($1)" js_newDOMPointReadOnly ::+        DOMPointInit -> IO DOMPointReadOnly++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMPointReadOnly Mozilla DOMPointReadOnly documentation> +newDOMPointReadOnly ::+                    (MonadIO m) => DOMPointInit -> m DOMPointReadOnly+newDOMPointReadOnly point = liftIO (js_newDOMPointReadOnly point)+ +foreign import javascript unsafe+        "new window[\"DOMPointReadOnly\"]($1,\n$2, $3, $4)"+        js_newDOMPointReadOnly' ::+        Optional Double ->+          Optional Double ->+            Optional Double -> Optional Double -> IO DOMPointReadOnly++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMPointReadOnly Mozilla DOMPointReadOnly documentation> +newDOMPointReadOnly' ::+                     (MonadIO m) =>+                       Maybe Double ->+                         Maybe Double -> Maybe Double -> Maybe Double -> m DOMPointReadOnly+newDOMPointReadOnly' x y z w+  = liftIO+      (js_newDOMPointReadOnly' (maybeToOptional x) (maybeToOptional y)+         (maybeToOptional z)+         (maybeToOptional w))+ +foreign import javascript unsafe "$1[\"fromPoint\"]($2)"+        js_fromPoint ::+        DOMPointReadOnly -> Optional DOMPointInit -> IO DOMPointReadOnly++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMPointReadOnly.fromPoint Mozilla DOMPointReadOnly.fromPoint documentation> +fromPoint ::+          (MonadIO m, IsDOMPointReadOnly self) =>+            self -> Maybe DOMPointInit -> m DOMPointReadOnly+fromPoint self other+  = liftIO+      (js_fromPoint (toDOMPointReadOnly self) (maybeToOptional other))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMPointReadOnly.fromPoint Mozilla DOMPointReadOnly.fromPoint documentation> +fromPoint_ ::+           (MonadIO m, IsDOMPointReadOnly self) =>+             self -> Maybe DOMPointInit -> m ()+fromPoint_ self other+  = liftIO+      (void+         (js_fromPoint (toDOMPointReadOnly self) (maybeToOptional other)))+ +foreign import javascript unsafe "$1[\"x\"]" js_getX ::+        DOMPointReadOnly -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMPointReadOnly.x Mozilla DOMPointReadOnly.x documentation> +getX :: (MonadIO m, IsDOMPointReadOnly self) => self -> m Double+getX self = liftIO (js_getX (toDOMPointReadOnly self))+ +foreign import javascript unsafe "$1[\"y\"]" js_getY ::+        DOMPointReadOnly -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMPointReadOnly.y Mozilla DOMPointReadOnly.y documentation> +getY :: (MonadIO m, IsDOMPointReadOnly self) => self -> m Double+getY self = liftIO (js_getY (toDOMPointReadOnly self))+ +foreign import javascript unsafe "$1[\"z\"]" js_getZ ::+        DOMPointReadOnly -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMPointReadOnly.z Mozilla DOMPointReadOnly.z documentation> +getZ :: (MonadIO m, IsDOMPointReadOnly self) => self -> m Double+getZ self = liftIO (js_getZ (toDOMPointReadOnly self))+ +foreign import javascript unsafe "$1[\"w\"]" js_getW ::+        DOMPointReadOnly -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMPointReadOnly.w Mozilla DOMPointReadOnly.w documentation> +getW :: (MonadIO m, IsDOMPointReadOnly self) => self -> m Double+getW self = liftIO (js_getW (toDOMPointReadOnly self))
+ src/GHCJS/DOM/JSFFI/Generated/DOMRect.hs view
@@ -0,0 +1,115 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+module GHCJS.DOM.JSFFI.Generated.DOMRect+       (js_newDOMRect, newDOMRect, js_fromRect, fromRect, fromRect_,+        js_setX, setX, js_getX, getX, js_setY, setY, js_getY, getY,+        js_setWidth, setWidth, js_getWidth, getWidth, js_setHeight,+        setHeight, js_getHeight, getHeight, DOMRect(..), gTypeDOMRect)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error)+import Data.Typeable (Typeable)+import GHCJS.Types (JSVal(..), JSString)+import GHCJS.Foreign (jsNull, jsUndefined)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Control.Monad (void)+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import Data.Maybe (fromJust)+import Data.Traversable (mapM)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.JSFFI.Generated.Enums+ +foreign import javascript unsafe+        "new window[\"DOMRect\"]($1, $2,\n$3, $4)" js_newDOMRect ::+        Optional Double ->+          Optional Double -> Optional Double -> Optional Double -> IO DOMRect++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMRect Mozilla DOMRect documentation> +newDOMRect ::+           (MonadIO m) =>+             Maybe Double ->+               Maybe Double -> Maybe Double -> Maybe Double -> m DOMRect+newDOMRect x y width height+  = liftIO+      (js_newDOMRect (maybeToOptional x) (maybeToOptional y)+         (maybeToOptional width)+         (maybeToOptional height))+ +foreign import javascript unsafe "$1[\"fromRect\"]($2)" js_fromRect+        :: DOMRect -> Optional DOMRectInit -> IO DOMRect++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMRect.fromRect Mozilla DOMRect.fromRect documentation> +fromRect ::+         (MonadIO m) => DOMRect -> Maybe DOMRectInit -> m DOMRect+fromRect self other+  = liftIO (js_fromRect self (maybeToOptional other))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMRect.fromRect Mozilla DOMRect.fromRect documentation> +fromRect_ :: (MonadIO m) => DOMRect -> Maybe DOMRectInit -> m ()+fromRect_ self other+  = liftIO (void (js_fromRect self (maybeToOptional other)))+ +foreign import javascript unsafe "$1[\"x\"] = $2;" js_setX ::+        DOMRect -> Double -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMRect.x Mozilla DOMRect.x documentation> +setX :: (MonadIO m) => DOMRect -> Double -> m ()+setX self val = liftIO (js_setX self val)+ +foreign import javascript unsafe "$1[\"x\"]" js_getX ::+        DOMRect -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMRect.x Mozilla DOMRect.x documentation> +getX :: (MonadIO m) => DOMRect -> m Double+getX self = liftIO (js_getX self)+ +foreign import javascript unsafe "$1[\"y\"] = $2;" js_setY ::+        DOMRect -> Double -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMRect.y Mozilla DOMRect.y documentation> +setY :: (MonadIO m) => DOMRect -> Double -> m ()+setY self val = liftIO (js_setY self val)+ +foreign import javascript unsafe "$1[\"y\"]" js_getY ::+        DOMRect -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMRect.y Mozilla DOMRect.y documentation> +getY :: (MonadIO m) => DOMRect -> m Double+getY self = liftIO (js_getY self)+ +foreign import javascript unsafe "$1[\"width\"] = $2;" js_setWidth+        :: DOMRect -> Double -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMRect.width Mozilla DOMRect.width documentation> +setWidth :: (MonadIO m) => DOMRect -> Double -> m ()+setWidth self val = liftIO (js_setWidth self val)+ +foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::+        DOMRect -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMRect.width Mozilla DOMRect.width documentation> +getWidth :: (MonadIO m) => DOMRect -> m Double+getWidth self = liftIO (js_getWidth self)+ +foreign import javascript unsafe "$1[\"height\"] = $2;"+        js_setHeight :: DOMRect -> Double -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMRect.height Mozilla DOMRect.height documentation> +setHeight :: (MonadIO m) => DOMRect -> Double -> m ()+setHeight self val = liftIO (js_setHeight self val)+ +foreign import javascript unsafe "$1[\"height\"]" js_getHeight ::+        DOMRect -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMRect.height Mozilla DOMRect.height documentation> +getHeight :: (MonadIO m) => DOMRect -> m Double+getHeight self = liftIO (js_getHeight self)
+ src/GHCJS/DOM/JSFFI/Generated/DOMRectReadOnly.hs view
@@ -0,0 +1,126 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+module GHCJS.DOM.JSFFI.Generated.DOMRectReadOnly+       (js_newDOMRectReadOnly, newDOMRectReadOnly, js_fromRect, fromRect,+        fromRect_, js_getX, getX, js_getY, getY, js_getWidth, getWidth,+        js_getHeight, getHeight, js_getTop, getTop, js_getRight, getRight,+        js_getBottom, getBottom, js_getLeft, getLeft, DOMRectReadOnly(..),+        gTypeDOMRectReadOnly, IsDOMRectReadOnly, toDOMRectReadOnly)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error)+import Data.Typeable (Typeable)+import GHCJS.Types (JSVal(..), JSString)+import GHCJS.Foreign (jsNull, jsUndefined)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Control.Monad (void)+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import Data.Maybe (fromJust)+import Data.Traversable (mapM)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.JSFFI.Generated.Enums+ +foreign import javascript unsafe+        "new window[\"DOMRectReadOnly\"]($1,\n$2, $3, $4)"+        js_newDOMRectReadOnly ::+        Optional Double ->+          Optional Double ->+            Optional Double -> Optional Double -> IO DOMRectReadOnly++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMRectReadOnly Mozilla DOMRectReadOnly documentation> +newDOMRectReadOnly ::+                   (MonadIO m) =>+                     Maybe Double ->+                       Maybe Double -> Maybe Double -> Maybe Double -> m DOMRectReadOnly+newDOMRectReadOnly x y width height+  = liftIO+      (js_newDOMRectReadOnly (maybeToOptional x) (maybeToOptional y)+         (maybeToOptional width)+         (maybeToOptional height))+ +foreign import javascript unsafe "$1[\"fromRect\"]($2)" js_fromRect+        :: DOMRectReadOnly -> Optional DOMRectInit -> IO DOMRectReadOnly++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMRectReadOnly.fromRect Mozilla DOMRectReadOnly.fromRect documentation> +fromRect ::+         (MonadIO m, IsDOMRectReadOnly self) =>+           self -> Maybe DOMRectInit -> m DOMRectReadOnly+fromRect self other+  = liftIO+      (js_fromRect (toDOMRectReadOnly self) (maybeToOptional other))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMRectReadOnly.fromRect Mozilla DOMRectReadOnly.fromRect documentation> +fromRect_ ::+          (MonadIO m, IsDOMRectReadOnly self) =>+            self -> Maybe DOMRectInit -> m ()+fromRect_ self other+  = liftIO+      (void+         (js_fromRect (toDOMRectReadOnly self) (maybeToOptional other)))+ +foreign import javascript unsafe "$1[\"x\"]" js_getX ::+        DOMRectReadOnly -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMRectReadOnly.x Mozilla DOMRectReadOnly.x documentation> +getX :: (MonadIO m, IsDOMRectReadOnly self) => self -> m Double+getX self = liftIO (js_getX (toDOMRectReadOnly self))+ +foreign import javascript unsafe "$1[\"y\"]" js_getY ::+        DOMRectReadOnly -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMRectReadOnly.y Mozilla DOMRectReadOnly.y documentation> +getY :: (MonadIO m, IsDOMRectReadOnly self) => self -> m Double+getY self = liftIO (js_getY (toDOMRectReadOnly self))+ +foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::+        DOMRectReadOnly -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMRectReadOnly.width Mozilla DOMRectReadOnly.width documentation> +getWidth :: (MonadIO m, IsDOMRectReadOnly self) => self -> m Double+getWidth self = liftIO (js_getWidth (toDOMRectReadOnly self))+ +foreign import javascript unsafe "$1[\"height\"]" js_getHeight ::+        DOMRectReadOnly -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMRectReadOnly.height Mozilla DOMRectReadOnly.height documentation> +getHeight ::+          (MonadIO m, IsDOMRectReadOnly self) => self -> m Double+getHeight self = liftIO (js_getHeight (toDOMRectReadOnly self))+ +foreign import javascript unsafe "$1[\"top\"]" js_getTop ::+        DOMRectReadOnly -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMRectReadOnly.top Mozilla DOMRectReadOnly.top documentation> +getTop :: (MonadIO m, IsDOMRectReadOnly self) => self -> m Double+getTop self = liftIO (js_getTop (toDOMRectReadOnly self))+ +foreign import javascript unsafe "$1[\"right\"]" js_getRight ::+        DOMRectReadOnly -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMRectReadOnly.right Mozilla DOMRectReadOnly.right documentation> +getRight :: (MonadIO m, IsDOMRectReadOnly self) => self -> m Double+getRight self = liftIO (js_getRight (toDOMRectReadOnly self))+ +foreign import javascript unsafe "$1[\"bottom\"]" js_getBottom ::+        DOMRectReadOnly -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMRectReadOnly.bottom Mozilla DOMRectReadOnly.bottom documentation> +getBottom ::+          (MonadIO m, IsDOMRectReadOnly self) => self -> m Double+getBottom self = liftIO (js_getBottom (toDOMRectReadOnly self))+ +foreign import javascript unsafe "$1[\"left\"]" js_getLeft ::+        DOMRectReadOnly -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMRectReadOnly.left Mozilla DOMRectReadOnly.left documentation> +getLeft :: (MonadIO m, IsDOMRectReadOnly self) => self -> m Double+getLeft self = liftIO (js_getLeft (toDOMRectReadOnly self))
− src/GHCJS/DOM/JSFFI/Generated/DOMSettableTokenList.hs 
@@ -1,74 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility-{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}-module GHCJS.DOM.JSFFI.Generated.DOMSettableTokenList-       (js__get, _get, _get_, _getUnsafe, _getUnchecked, js_setValue,-        setValue, js_getValue, getValue, DOMSettableTokenList(..),-        gTypeDOMSettableTokenList)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)-import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))-import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import 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))---- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMSettableTokenList._get Mozilla DOMSettableTokenList._get documentation> -_get_ :: (MonadIO m) => DOMSettableTokenList -> Word -> m ()-_get_ self index = liftIO (void (js__get (self) index))---- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMSettableTokenList._get Mozilla DOMSettableTokenList._get documentation> -_getUnsafe ::-           (MonadIO m, HasCallStack, FromJSString result) =>-             DOMSettableTokenList -> Word -> m result-_getUnsafe self index-  = liftIO-      ((fromMaybeJSString <$> (js__get (self) index)) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMSettableTokenList._get Mozilla DOMSettableTokenList._get documentation> -_getUnchecked ::-              (MonadIO m, FromJSString result) =>-                DOMSettableTokenList -> Word -> m result-_getUnchecked self index-  = liftIO (fromJust . 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
@@ -12,7 +12,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -21,12 +21,13 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums  -foreign import javascript unsafe "$1[\"item\"]($2)" js_item ::+foreign import javascript unsafe "$1[$2]" js_item ::         DOMStringList -> Word -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMStringList.item Mozilla DOMStringList.item documentation> @@ -34,11 +35,11 @@      (MonadIO m, FromJSString result) =>        DOMStringList -> Word -> m (Maybe result) item self index-  = liftIO (fromMaybeJSString <$> (js_item (self) index))+  = liftIO (fromMaybeJSString <$> (js_item self index))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMStringList.item Mozilla DOMStringList.item documentation>  item_ :: (MonadIO m) => DOMStringList -> Word -> m ()-item_ self index = liftIO (void (js_item (self) index))+item_ self index = liftIO (void (js_item self index))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMStringList.item Mozilla DOMStringList.item documentation>  itemUnsafe ::@@ -46,7 +47,7 @@              DOMStringList -> Word -> m result itemUnsafe self index   = liftIO-      ((fromMaybeJSString <$> (js_item (self) index)) >>=+      ((fromMaybeJSString <$> (js_item self index)) >>=          maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMStringList.item Mozilla DOMStringList.item documentation> @@ -54,7 +55,7 @@               (MonadIO m, FromJSString result) =>                 DOMStringList -> Word -> m result itemUnchecked self index-  = liftIO (fromJust . fromMaybeJSString <$> (js_item (self) index))+  = liftIO (fromJust . fromMaybeJSString <$> (js_item self index))   foreign import javascript unsafe "($1[\"contains\"]($2) ? 1 : 0)"         js_contains :: DOMStringList -> JSString -> IO Bool@@ -63,17 +64,17 @@ contains ::          (MonadIO m, ToJSString string) => DOMStringList -> string -> m Bool contains self string-  = liftIO (js_contains (self) (toJSString string))+  = liftIO (js_contains self (toJSString string))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMStringList.contains Mozilla DOMStringList.contains documentation>  contains_ ::           (MonadIO m, ToJSString string) => DOMStringList -> string -> m () contains_ self string-  = liftIO (void (js_contains (self) (toJSString string)))+  = liftIO (void (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))+getLength self = liftIO (js_getLength self)
+ src/GHCJS/DOM/JSFFI/Generated/DOMStringMap.hs view
@@ -0,0 +1,40 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+module GHCJS.DOM.JSFFI.Generated.DOMStringMap+       (js_get, get, get_, DOMStringMap(..), gTypeDOMStringMap) where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error)+import Data.Typeable (Typeable)+import GHCJS.Types (JSVal(..), JSString)+import GHCJS.Foreign (jsNull, jsUndefined)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Control.Monad (void)+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import Data.Maybe (fromJust)+import Data.Traversable (mapM)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[$2]" js_get ::+        DOMStringMap -> JSString -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMStringMap.get Mozilla DOMStringMap.get documentation> +get ::+    (MonadIO m, ToJSString name, FromJSString result) =>+      DOMStringMap -> name -> m result+get self name+  = liftIO (fromJSString <$> (js_get self (toJSString name)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMStringMap.get Mozilla DOMStringMap.get documentation> +get_ ::+     (MonadIO m, ToJSString name) => DOMStringMap -> name -> m ()+get_ self name = liftIO (void (js_get self (toJSString name)))
src/GHCJS/DOM/JSFFI/Generated/DOMTokenList.hs view
@@ -6,15 +6,15 @@ module GHCJS.DOM.JSFFI.Generated.DOMTokenList        (js_item, item, item_, itemUnsafe, itemUnchecked, js_contains,         contains, contains_, js_add, add, js_remove, remove, js_toggle,-        toggle, toggle_, js_toString, toString, toString_, js_getLength,-        getLength, DOMTokenList(..), gTypeDOMTokenList, IsDOMTokenList,-        toDOMTokenList)+        toggle, toggle_, js_replace, replace, js_supports, supports,+        supports_, js_getLength, getLength, js_setValue, setValue,+        js_getValue, getValue, DOMTokenList(..), gTypeDOMTokenList)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -23,125 +23,134 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums  -foreign import javascript unsafe "$1[\"item\"]($2)" js_item ::+foreign import javascript unsafe "$1[$2]" js_item ::         DOMTokenList -> Word -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMTokenList.item Mozilla DOMTokenList.item documentation>  item ::-     (MonadIO m, IsDOMTokenList self, FromJSString result) =>-       self -> Word -> m (Maybe result)+     (MonadIO m, FromJSString result) =>+       DOMTokenList -> Word -> m (Maybe result) item self index-  = liftIO-      (fromMaybeJSString <$> (js_item (toDOMTokenList self) index))+  = liftIO (fromMaybeJSString <$> (js_item self index))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMTokenList.item Mozilla DOMTokenList.item documentation> -item_ :: (MonadIO m, IsDOMTokenList self) => self -> Word -> m ()-item_ self index-  = liftIO (void (js_item (toDOMTokenList self) index))+item_ :: (MonadIO m) => DOMTokenList -> Word -> m ()+item_ self index = liftIO (void (js_item self index))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMTokenList.item Mozilla DOMTokenList.item documentation>  itemUnsafe ::-           (MonadIO m, IsDOMTokenList self, HasCallStack,-            FromJSString result) =>-             self -> Word -> m result+           (MonadIO m, HasCallStack, FromJSString result) =>+             DOMTokenList -> Word -> m result itemUnsafe self index   = liftIO-      ((fromMaybeJSString <$> (js_item (toDOMTokenList self) index)) >>=+      ((fromMaybeJSString <$> (js_item self index)) >>=          maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMTokenList.item Mozilla DOMTokenList.item documentation>  itemUnchecked ::-              (MonadIO m, IsDOMTokenList self, FromJSString result) =>-                self -> Word -> m result+              (MonadIO m, FromJSString result) =>+                DOMTokenList -> Word -> m result itemUnchecked self index-  = liftIO-      (fromJust . fromMaybeJSString <$>-         (js_item (toDOMTokenList self) index))+  = liftIO (fromJust . fromMaybeJSString <$> (js_item 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))+         (MonadIO m, ToJSString token) => DOMTokenList -> token -> m Bool+contains self token = liftIO (js_contains self (toJSString token))  -- | <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 ()+          (MonadIO m, ToJSString token) => DOMTokenList -> token -> m () contains_ self token-  = liftIO-      (void (js_contains (toDOMTokenList self) (toJSString token)))+  = liftIO (void (js_contains self (toJSString token)))  -foreign import javascript unsafe "$1[\"add\"].apply($1, $2)" js_add-        :: DOMTokenList -> JSVal -> IO ()+foreign import javascript unsafe "$1[\"add\"]($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 ()+    (MonadIO m, ToJSString tokens) => DOMTokenList -> [tokens] -> m () add self tokens-  = liftIO-      (toJSVal tokens >>=-         \ tokens' -> js_add (toDOMTokenList self) tokens')+  = liftIO (toJSVal tokens >>= \ tokens' -> js_add self tokens')  -foreign import javascript unsafe "$1[\"remove\"].apply($1, $2)"-        js_remove :: DOMTokenList -> JSVal -> IO ()+foreign import javascript unsafe "$1[\"remove\"]($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 ()+       (MonadIO m, ToJSString tokens) => DOMTokenList -> [tokens] -> m () remove self tokens-  = liftIO-      (toJSVal tokens >>=-         \ tokens' -> js_remove (toDOMTokenList self) tokens')+  = liftIO (toJSVal tokens >>= \ tokens' -> js_remove 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+       (MonadIO m, ToJSString token) =>+         DOMTokenList -> token -> Bool -> m Bool toggle self token force-  = liftIO (js_toggle (toDOMTokenList self) (toJSString token) force)+  = liftIO (js_toggle self (toJSString token) force)  -- | <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 ()+        (MonadIO m, ToJSString token) =>+          DOMTokenList -> token -> Bool -> m () toggle_ self token force-  = liftIO-      (void (js_toggle (toDOMTokenList self) (toJSString token) force))+  = liftIO (void (js_toggle self (toJSString token) force))  -foreign import javascript unsafe "$1[\"toString\"]()" js_toString-        :: DOMTokenList -> IO JSString+foreign import javascript unsafe "$1[\"replace\"]($2, $3)"+        js_replace :: DOMTokenList -> JSString -> JSString -> IO () --- | <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)))+-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMTokenList.replace Mozilla DOMTokenList.replace documentation> +replace ::+        (MonadIO m, ToJSString token, ToJSString newToken) =>+          DOMTokenList -> token -> newToken -> m ()+replace self token newToken+  = liftIO (js_replace self (toJSString token) (toJSString newToken))+ +foreign import javascript unsafe "($1[\"supports\"]($2) ? 1 : 0)"+        js_supports :: DOMTokenList -> JSString -> IO Bool --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMTokenList.toString Mozilla DOMTokenList.toString documentation> -toString_ :: (MonadIO m, IsDOMTokenList self) => self -> m ()-toString_ self = liftIO (void (js_toString (toDOMTokenList self)))+-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMTokenList.supports Mozilla DOMTokenList.supports documentation> +supports ::+         (MonadIO m, ToJSString token) => DOMTokenList -> token -> m Bool+supports self token = liftIO (js_supports self (toJSString token))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMTokenList.supports Mozilla DOMTokenList.supports documentation> +supports_ ::+          (MonadIO m, ToJSString token) => DOMTokenList -> token -> m ()+supports_ self token+  = liftIO (void (js_supports self (toJSString token)))   foreign import javascript unsafe "$1[\"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))+getLength :: (MonadIO m) => DOMTokenList -> m Word+getLength self = liftIO (js_getLength self)+ +foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue+        :: DOMTokenList -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMTokenList.value Mozilla DOMTokenList.value documentation> +setValue ::+         (MonadIO m, ToJSString val) => DOMTokenList -> val -> m ()+setValue self val = liftIO (js_setValue self (toJSString val))+ +foreign import javascript unsafe "$1[\"value\"]" js_getValue ::+        DOMTokenList -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMTokenList.value Mozilla DOMTokenList.value documentation> +getValue ::+         (MonadIO m, FromJSString result) => DOMTokenList -> m result+getValue self = liftIO (fromJSString <$> (js_getValue self))
src/GHCJS/DOM/JSFFI/Generated/DataCue.hs view
@@ -5,15 +5,15 @@ {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.DataCue        (js_newDataCue, newDataCue, js_newDataCue', newDataCue',-        js_setData, setData, js_getData, getData, getDataUnsafe,-        getDataUnchecked, js_setValue, setValue, js_getValue, getValue,-        js_getType, getType, DataCue(..), gTypeDataCue)+        js_setData, setData, js_getData, getData, js_setValue, setValue,+        js_getValue, getValue, js_getType, getType, DataCue(..),+        gTypeDataCue)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -22,77 +22,69 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums  -foreign import javascript unsafe "new window[\"WebKitDataCue\"]()"-        js_newDataCue :: IO DataCue+foreign import javascript unsafe+        "new window[\"WebKitDataCue\"]($1,\n$2, $3)" js_newDataCue ::+        Double -> Double -> ArrayBuffer -> IO DataCue  -- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitDataCue Mozilla WebKitDataCue documentation> -newDataCue :: (MonadIO m) => m DataCue-newDataCue = liftIO (js_newDataCue)+newDataCue ::+           (MonadIO m, IsArrayBuffer data') =>+             Double -> Double -> data' -> m DataCue+newDataCue startTime endTime data'+  = liftIO (js_newDataCue startTime endTime (toArrayBuffer data'))   foreign import javascript unsafe         "new window[\"WebKitDataCue\"]($1,\n$2, $3, $4)" js_newDataCue' ::-        Double -> Double -> JSVal -> JSString -> IO DataCue+        Double -> Double -> JSVal -> Optional 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+            (MonadIO m, ToJSVal value, ToJSString type') =>+              Double -> Double -> value -> Maybe type' -> m DataCue newDataCue' startTime endTime value type'   = liftIO-      (js_newDataCue' startTime endTime value (toJSString type'))+      (toJSVal value >>=+         \ value' -> js_newDataCue' startTime endTime value'+         (toOptionalJSString type'))   foreign import javascript unsafe "$1[\"data\"] = $2;" js_setData ::-        DataCue -> Nullable ArrayBuffer -> IO ()+        DataCue -> 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)))+setData :: (MonadIO m, IsArrayBuffer val) => DataCue -> val -> m ()+setData self val = liftIO (js_setData self (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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitDataCue.data Mozilla WebKitDataCue.data documentation> -getDataUnsafe ::-              (MonadIO m, HasCallStack) => DataCue -> m ArrayBuffer-getDataUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getData (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        DataCue -> IO ArrayBuffer  -- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitDataCue.data Mozilla WebKitDataCue.data documentation> -getDataUnchecked :: (MonadIO m) => DataCue -> m ArrayBuffer-getDataUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getData (self)))+getData :: (MonadIO m) => DataCue -> m ArrayBuffer+getData self = liftIO (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)+setValue :: (MonadIO m, ToJSVal val) => DataCue -> val -> m ()+setValue self val+  = liftIO (toJSVal val >>= \ val' -> 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))+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)))+getType self = liftIO (fromJSString <$> (js_getType self))
src/GHCJS/DOM/JSFFI/Generated/DataTransfer.hs view
@@ -4,20 +4,18 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.DataTransfer-       (js_clearData, clearData, js_getData, getData, getData_,-        js_setData, setData, js_setDragImage, setDragImage,-        js_setDropEffect, setDropEffect, js_getDropEffect, getDropEffect,+       (js_setDragImage, setDragImage, js_getData, getData, getData_,+        js_setData, setData, js_clearData, clearData, js_setDropEffect,+        setDropEffect, js_getDropEffect, getDropEffect,         js_setEffectAllowed, setEffectAllowed, js_getEffectAllowed,-        getEffectAllowed, js_getTypes, getTypes, getTypesUnsafe,-        getTypesUnchecked, js_getFiles, getFiles, getFilesUnsafe,-        getFilesUnchecked, js_getItems, getItems, getItemsUnsafe,-        getItemsUnchecked, DataTransfer(..), gTypeDataTransfer)+        getEffectAllowed, js_getItems, getItems, js_getTypes, getTypes,+        js_getFiles, getFiles, DataTransfer(..), gTypeDataTransfer)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -26,58 +24,59 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums  -foreign import javascript unsafe "$1[\"clearData\"]($2)"-        js_clearData :: DataTransfer -> JSString -> IO ()+foreign import javascript unsafe "$1[\"setDragImage\"]($2, $3, $4)"+        js_setDragImage ::+        DataTransfer -> Optional Element -> Int -> Int -> 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'))+-- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer.setDragImage Mozilla DataTransfer.setDragImage documentation> +setDragImage ::+             (MonadIO m, IsElement image) =>+               DataTransfer -> Maybe image -> Int -> Int -> m ()+setDragImage self image x y+  = liftIO+      (js_setDragImage self (maybeToOptional (fmap toElement image)) x y)   foreign import javascript unsafe "$1[\"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')))+        (MonadIO m, ToJSString format, FromJSString result) =>+          DataTransfer -> format -> m result+getData self format+  = liftIO (fromJSString <$> (js_getData self (toJSString format)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer.getData Mozilla DataTransfer.getData documentation>  getData_ ::-         (MonadIO m, ToJSString type') => DataTransfer -> type' -> m ()-getData_ self type'-  = liftIO (void (js_getData (self) (toJSString type')))+         (MonadIO m, ToJSString format) => DataTransfer -> format -> m ()+getData_ self format+  = liftIO (void (js_getData self (toJSString format)))   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'))+        (MonadIO m, ToJSString format, ToJSString data') =>+          DataTransfer -> format -> data' -> m ()+setData self format data'+  = liftIO (js_setData self (toJSString format) (toJSString data'))  -foreign import javascript unsafe "$1[\"setDragImage\"]($2, $3, $4)"-        js_setDragImage ::-        DataTransfer -> Nullable Element -> Int -> Int -> IO ()+foreign import javascript unsafe "$1[\"clearData\"]($2)"+        js_clearData :: DataTransfer -> Optional JSString -> 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)+-- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer.clearData Mozilla DataTransfer.clearData documentation> +clearData ::+          (MonadIO m, ToJSString format) =>+            DataTransfer -> Maybe format -> m ()+clearData self format+  = liftIO (js_clearData self (toOptionalJSString format))   foreign import javascript unsafe "$1[\"dropEffect\"] = $2;"         js_setDropEffect :: DataTransfer -> JSString -> IO ()@@ -86,7 +85,7 @@ setDropEffect ::               (MonadIO m, ToJSString val) => DataTransfer -> val -> m () setDropEffect self val-  = liftIO (js_setDropEffect (self) (toJSString val))+  = liftIO (js_setDropEffect self (toJSString val))   foreign import javascript unsafe "$1[\"dropEffect\"]"         js_getDropEffect :: DataTransfer -> IO JSString@@ -95,7 +94,7 @@ getDropEffect ::               (MonadIO m, FromJSString result) => DataTransfer -> m result getDropEffect self-  = liftIO (fromJSString <$> (js_getDropEffect (self)))+  = liftIO (fromJSString <$> (js_getDropEffect self))   foreign import javascript unsafe "$1[\"effectAllowed\"] = $2;"         js_setEffectAllowed :: DataTransfer -> JSString -> IO ()@@ -104,7 +103,7 @@ setEffectAllowed ::                  (MonadIO m, ToJSString val) => DataTransfer -> val -> m () setEffectAllowed self val-  = liftIO (js_setEffectAllowed (self) (toJSString val))+  = liftIO (js_setEffectAllowed self (toJSString val))   foreign import javascript unsafe "$1[\"effectAllowed\"]"         js_getEffectAllowed :: DataTransfer -> IO JSString@@ -113,66 +112,26 @@ getEffectAllowed ::                  (MonadIO m, FromJSString result) => DataTransfer -> m result getEffectAllowed self-  = liftIO (fromJSString <$> (js_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[\"items\"]" js_getItems ::+        DataTransfer -> IO DataTransferItemList --- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer.types Mozilla DataTransfer.types documentation> -getTypesUnsafe ::-               (MonadIO m, HasCallStack) => DataTransfer -> m Array-getTypesUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getTypes (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+-- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer.items Mozilla DataTransfer.items documentation> +getItems :: (MonadIO m) => DataTransfer -> m DataTransferItemList+getItems self = liftIO (js_getItems self)+ +foreign import javascript unsafe "$1[\"types\"]" js_getTypes ::+        DataTransfer -> IO JSVal  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer.types Mozilla DataTransfer.types documentation> -getTypesUnchecked :: (MonadIO m) => DataTransfer -> m Array-getTypesUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getTypes (self)))+getTypes ::+         (MonadIO m, FromJSString result) => DataTransfer -> m [result]+getTypes self = liftIO ((js_getTypes self) >>= fromJSValUnchecked)   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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer.files Mozilla DataTransfer.files documentation> -getFilesUnsafe ::-               (MonadIO m, HasCallStack) => DataTransfer -> m FileList-getFilesUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getFiles (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        DataTransfer -> IO FileList  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer.files Mozilla DataTransfer.files documentation> -getFilesUnchecked :: (MonadIO m) => DataTransfer -> m FileList-getFilesUnchecked self-  = liftIO (fromJust . 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer.items Mozilla DataTransfer.items documentation> -getItemsUnsafe ::-               (MonadIO m, HasCallStack) => DataTransfer -> m DataTransferItemList-getItemsUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getItems (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer.items Mozilla DataTransfer.items documentation> -getItemsUnchecked ::-                  (MonadIO m) => DataTransfer -> m DataTransferItemList-getItemsUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getItems (self)))+getFiles :: (MonadIO m) => DataTransfer -> m FileList+getFiles self = liftIO (js_getFiles self)
src/GHCJS/DOM/JSFFI/Generated/DataTransferItem.hs view
@@ -12,7 +12,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -21,6 +21,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -28,38 +29,38 @@   foreign import javascript unsafe "$1[\"getAsString\"]($2)"         js_getAsString ::-        DataTransferItem -> Nullable (StringCallback callback) -> IO ()+        DataTransferItem -> Optional (StringCallback callback) -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransferItem.getAsString Mozilla DataTransferItem.getAsString documentation>  getAsString ::             (MonadIO m, ToJSString callback) =>               DataTransferItem -> Maybe (StringCallback callback) -> m () getAsString self callback-  = liftIO (js_getAsString (self) (maybeToNullable callback))+  = liftIO (js_getAsString self (maybeToOptional 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)))+getAsFile self = liftIO (nullableToMaybe <$> (js_getAsFile self))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransferItem.getAsFile Mozilla DataTransferItem.getAsFile documentation>  getAsFile_ :: (MonadIO m) => DataTransferItem -> m ()-getAsFile_ self = liftIO (void (js_getAsFile (self)))+getAsFile_ self = liftIO (void (js_getAsFile self))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransferItem.getAsFile Mozilla DataTransferItem.getAsFile documentation>  getAsFileUnsafe ::                 (MonadIO m, HasCallStack) => DataTransferItem -> m Blob getAsFileUnsafe self   = liftIO-      ((nullableToMaybe <$> (js_getAsFile (self))) >>=+      ((nullableToMaybe <$> (js_getAsFile self)) >>=          maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransferItem.getAsFile Mozilla DataTransferItem.getAsFile documentation>  getAsFileUnchecked :: (MonadIO m) => DataTransferItem -> m Blob getAsFileUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getAsFile (self)))+  = liftIO (fromJust . nullableToMaybe <$> (js_getAsFile self))   foreign import javascript unsafe "$1[\"kind\"]" js_getKind ::         DataTransferItem -> IO JSString@@ -67,7 +68,7 @@ -- | <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)))+getKind self = liftIO (fromJSString <$> (js_getKind self))   foreign import javascript unsafe "$1[\"type\"]" js_getType ::         DataTransferItem -> IO JSString@@ -75,4 +76,4 @@ -- | <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)))+getType self = liftIO (fromJSString <$> (js_getType self))
src/GHCJS/DOM/JSFFI/Generated/DataTransferItemList.hs view
@@ -4,15 +4,15 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.DataTransferItemList-       (js_item, item, item_, itemUnsafe, itemUnchecked, js_clear, clear,-        js_addFile, addFile, js_add, add, js_getLength, getLength,-        DataTransferItemList(..), gTypeDataTransferItemList)+       (js_item, item, item_, js_clear, clear, js_addFile, addFile,+        js_add, add, js_getLength, getLength, DataTransferItemList(..),+        gTypeDataTransferItemList)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -21,69 +21,54 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums  -foreign import javascript unsafe "$1[\"item\"]($2)" js_item ::-        DataTransferItemList -> Word -> IO (Nullable DataTransferItem)+foreign import javascript unsafe "$1[$2]" js_item ::+        DataTransferItemList -> Word -> IO DataTransferItem  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransferItemList.item Mozilla DataTransferItemList.item documentation>  item ::-     (MonadIO m) =>-       DataTransferItemList -> Word -> m (Maybe DataTransferItem)-item self index-  = liftIO (nullableToMaybe <$> (js_item (self) index))+     (MonadIO m) => DataTransferItemList -> Word -> m DataTransferItem+item self index = liftIO (js_item self index)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransferItemList.item Mozilla DataTransferItemList.item documentation>  item_ :: (MonadIO m) => DataTransferItemList -> Word -> m ()-item_ self index = liftIO (void (js_item (self) index))---- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransferItemList.item Mozilla DataTransferItemList.item documentation> -itemUnsafe ::-           (MonadIO m, HasCallStack) =>-             DataTransferItemList -> Word -> m DataTransferItem-itemUnsafe self index-  = liftIO-      ((nullableToMaybe <$> (js_item (self) index)) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransferItemList.item Mozilla DataTransferItemList.item documentation> -itemUnchecked ::-              (MonadIO m) => DataTransferItemList -> Word -> m DataTransferItem-itemUnchecked self index-  = liftIO (fromJust . nullableToMaybe <$> (js_item (self) index))+item_ self index = liftIO (void (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))+clear self = liftIO (js_clear self)   foreign import javascript unsafe "$1[\"add\"]($2)" js_addFile ::-        DataTransferItemList -> Nullable File -> IO ()+        DataTransferItemList -> Optional 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))+addFile self file = liftIO (js_addFile self (maybeToOptional file))   foreign import javascript unsafe "$1[\"add\"]($2, $3)" js_add ::-        DataTransferItemList -> JSString -> JSString -> IO ()+        DataTransferItemList ->+          Optional JSString -> Optional 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 ()+      DataTransferItemList -> Maybe data' -> Maybe type' -> m () add self data' type'-  = liftIO (js_add (self) (toJSString data') (toJSString type'))+  = liftIO+      (js_add self (toOptionalJSString data') (toOptionalJSString 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))+getLength self = liftIO (js_getLength self)
src/GHCJS/DOM/JSFFI/Generated/Database.hs view
@@ -12,7 +12,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -21,6 +21,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -31,9 +32,9 @@         Database ->           JSString ->             JSString ->-              Nullable SQLTransactionCallback ->-                Nullable SQLTransactionErrorCallback ->-                  Nullable VoidCallback -> IO ()+              Optional SQLTransactionCallback ->+                Optional SQLTransactionErrorCallback ->+                  Optional VoidCallback -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Database.changeVersion Mozilla Database.changeVersion documentation>  changeVersion ::@@ -46,49 +47,47 @@ changeVersion self oldVersion newVersion callback errorCallback   successCallback   = liftIO-      (js_changeVersion (self) (toJSString oldVersion)+      (js_changeVersion self (toJSString oldVersion)          (toJSString newVersion)-         (maybeToNullable callback)-         (maybeToNullable errorCallback)-         (maybeToNullable successCallback))+         (maybeToOptional callback)+         (maybeToOptional errorCallback)+         (maybeToOptional successCallback))   foreign import javascript unsafe "$1[\"transaction\"]($2, $3, $4)"         js_transaction ::         Database ->-          Nullable SQLTransactionCallback ->-            Nullable SQLTransactionErrorCallback ->-              Nullable VoidCallback -> IO ()+          SQLTransactionCallback ->+            Optional SQLTransactionErrorCallback ->+              Optional VoidCallback -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Database.transaction Mozilla Database.transaction documentation>  transaction ::             (MonadIO m) =>               Database ->-                Maybe SQLTransactionCallback ->+                SQLTransactionCallback ->                   Maybe SQLTransactionErrorCallback -> Maybe VoidCallback -> m () transaction self callback errorCallback successCallback   = liftIO-      (js_transaction (self) (maybeToNullable callback)-         (maybeToNullable errorCallback)-         (maybeToNullable successCallback))+      (js_transaction self callback (maybeToOptional errorCallback)+         (maybeToOptional successCallback))   foreign import javascript unsafe         "$1[\"readTransaction\"]($2, $3,\n$4)" js_readTransaction ::         Database ->-          Nullable SQLTransactionCallback ->-            Nullable SQLTransactionErrorCallback ->-              Nullable VoidCallback -> IO ()+          SQLTransactionCallback ->+            Optional SQLTransactionErrorCallback ->+              Optional VoidCallback -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Database.readTransaction Mozilla Database.readTransaction documentation>  readTransaction ::                 (MonadIO m) =>                   Database ->-                    Maybe SQLTransactionCallback ->+                    SQLTransactionCallback ->                       Maybe SQLTransactionErrorCallback -> Maybe VoidCallback -> m () readTransaction self callback errorCallback successCallback   = liftIO-      (js_readTransaction (self) (maybeToNullable callback)-         (maybeToNullable errorCallback)-         (maybeToNullable successCallback))+      (js_readTransaction self callback (maybeToOptional errorCallback)+         (maybeToOptional successCallback))   foreign import javascript unsafe "$1[\"version\"]" js_getVersion ::         Database -> IO JSString@@ -96,4 +95,4 @@ -- | <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)))+getVersion self = liftIO (fromJSString <$> (js_getVersion self))
src/GHCJS/DOM/JSFFI/Generated/DatabaseCallback.hs view
@@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -20,6 +20,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -27,7 +28,7 @@  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DatabaseCallback Mozilla DatabaseCallback documentation>  newDatabaseCallback ::-                    (MonadIO m) => (Maybe Database -> IO ()) -> m DatabaseCallback+                    (MonadIO m) => (Database -> IO ()) -> m DatabaseCallback newDatabaseCallback callback   = liftIO       (DatabaseCallback <$>@@ -37,7 +38,7 @@  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DatabaseCallback Mozilla DatabaseCallback documentation>  newDatabaseCallbackSync ::-                        (MonadIO m) => (Maybe Database -> IO ()) -> m DatabaseCallback+                        (MonadIO m) => (Database -> IO ()) -> m DatabaseCallback newDatabaseCallbackSync callback   = liftIO       (DatabaseCallback <$>@@ -47,7 +48,7 @@  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DatabaseCallback Mozilla DatabaseCallback documentation>  newDatabaseCallbackAsync ::-                         (MonadIO m) => (Maybe Database -> IO ()) -> m DatabaseCallback+                         (MonadIO m) => (Database -> IO ()) -> m DatabaseCallback newDatabaseCallbackAsync callback   = liftIO       (DatabaseCallback <$>
src/GHCJS/DOM/JSFFI/Generated/DedicatedWorkerGlobalScope.hs view
@@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -20,6 +20,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -27,16 +28,18 @@   foreign import javascript unsafe "$1[\"postMessage\"]($2, $3)"         js_postMessage ::-        DedicatedWorkerGlobalScope -> JSVal -> Nullable Array -> IO ()+        DedicatedWorkerGlobalScope -> JSVal -> JSVal -> 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+            (MonadIO m, ToJSVal message, IsGObject transfer) =>+              DedicatedWorkerGlobalScope -> message -> [transfer] -> m ()+postMessage self message transfer   = liftIO-      (js_postMessage (self) message-         (maybeToNullable (fmap toArray messagePorts)))+      (toJSVal transfer >>=+         \ transfer' ->+           toJSVal message >>= \ message' -> js_postMessage self message'+             transfer')  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DedicatedWorkerGlobalScope.onmessage Mozilla DedicatedWorkerGlobalScope.onmessage documentation>  message :: EventName DedicatedWorkerGlobalScope MessageEvent
src/GHCJS/DOM/JSFFI/Generated/DelayNode.hs view
@@ -4,14 +4,13 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.DelayNode-       (js_getDelayTime, getDelayTime, getDelayTimeUnsafe,-        getDelayTimeUnchecked, DelayNode(..), gTypeDelayNode)+       (js_getDelayTime, getDelayTime, DelayNode(..), gTypeDelayNode)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -20,28 +19,15 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/DelayNode.delayTime Mozilla DelayNode.delayTime documentation> -getDelayTimeUnsafe ::-                   (MonadIO m, HasCallStack) => DelayNode -> m AudioParam-getDelayTimeUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getDelayTime (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        js_getDelayTime :: DelayNode -> IO AudioParam  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DelayNode.delayTime Mozilla DelayNode.delayTime documentation> -getDelayTimeUnchecked :: (MonadIO m) => DelayNode -> m AudioParam-getDelayTimeUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getDelayTime (self)))+getDelayTime :: (MonadIO m) => DelayNode -> m AudioParam+getDelayTime self = liftIO (js_getDelayTime self)
src/GHCJS/DOM/JSFFI/Generated/DeviceMotionEvent.hs view
@@ -11,14 +11,15 @@         getAccelerationIncludingGravityUnsafe,         getAccelerationIncludingGravityUnchecked, js_getRotationRate,         getRotationRate, getRotationRateUnsafe, getRotationRateUnchecked,-        js_getInterval, getInterval, DeviceMotionEvent(..),+        js_getInterval, getInterval, getIntervalUnsafe,+        getIntervalUnchecked, DeviceMotionEvent(..),         gTypeDeviceMotionEvent)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -27,6 +28,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -36,34 +38,31 @@         "$1[\"initDeviceMotionEvent\"]($2,\n$3, $4, $5, $6, $7, $8)"         js_initDeviceMotionEvent ::         DeviceMotionEvent ->-          JSString ->+          Optional JSString ->             Bool ->               Bool ->-                Nullable Acceleration ->-                  Nullable Acceleration -> Nullable RotationRate -> Double -> IO ()+                Optional Acceleration ->+                  Optional Acceleration ->+                    Optional RotationRate -> Optional Double -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceMotionEvent.initDeviceMotionEvent Mozilla DeviceMotionEvent.initDeviceMotionEvent documentation>  initDeviceMotionEvent ::-                      (MonadIO m, ToJSString type', IsAcceleration acceleration,-                       IsAcceleration accelerationIncludingGravity,-                       IsRotationRate rotationRate) =>+                      (MonadIO m, ToJSString type') =>                         DeviceMotionEvent ->-                          type' ->+                          Maybe type' ->                             Bool ->                               Bool ->-                                Maybe acceleration ->-                                  Maybe accelerationIncludingGravity ->-                                    Maybe rotationRate -> Double -> m ()+                                Maybe Acceleration ->+                                  Maybe Acceleration -> Maybe RotationRate -> Maybe Double -> m () initDeviceMotionEvent self type' bubbles cancelable acceleration   accelerationIncludingGravity rotationRate interval   = liftIO-      (js_initDeviceMotionEvent (self) (toJSString type') bubbles+      (js_initDeviceMotionEvent self (toOptionalJSString type') bubbles          cancelable-         (maybeToNullable (fmap toAcceleration acceleration))-         (maybeToNullable-            (fmap toAcceleration accelerationIncludingGravity))-         (maybeToNullable (fmap toRotationRate rotationRate))-         interval)+         (maybeToOptional acceleration)+         (maybeToOptional accelerationIncludingGravity)+         (maybeToOptional rotationRate)+         (maybeToOptional interval))   foreign import javascript unsafe "$1[\"acceleration\"]"         js_getAcceleration ::@@ -73,22 +72,21 @@ getAcceleration ::                 (MonadIO m) => DeviceMotionEvent -> m (Maybe Acceleration) getAcceleration self-  = liftIO (nullableToMaybe <$> (js_getAcceleration (self)))+  = liftIO (nullableToMaybe <$> (js_getAcceleration self))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceMotionEvent.acceleration Mozilla DeviceMotionEvent.acceleration documentation>  getAccelerationUnsafe ::                       (MonadIO m, HasCallStack) => DeviceMotionEvent -> m Acceleration getAccelerationUnsafe self   = liftIO-      ((nullableToMaybe <$> (js_getAcceleration (self))) >>=+      ((nullableToMaybe <$> (js_getAcceleration self)) >>=          maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceMotionEvent.acceleration Mozilla DeviceMotionEvent.acceleration documentation>  getAccelerationUnchecked ::                          (MonadIO m) => DeviceMotionEvent -> m Acceleration getAccelerationUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$> (js_getAcceleration (self)))+  = liftIO (fromJust . nullableToMaybe <$> (js_getAcceleration self))   foreign import javascript unsafe         "$1[\"accelerationIncludingGravity\"]"@@ -100,7 +98,7 @@                                 (MonadIO m) => DeviceMotionEvent -> m (Maybe Acceleration) getAccelerationIncludingGravity self   = liftIO-      (nullableToMaybe <$> (js_getAccelerationIncludingGravity (self)))+      (nullableToMaybe <$> (js_getAccelerationIncludingGravity self))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceMotionEvent.accelerationIncludingGravity Mozilla DeviceMotionEvent.accelerationIncludingGravity documentation>  getAccelerationIncludingGravityUnsafe ::@@ -108,7 +106,7 @@                                         DeviceMotionEvent -> m Acceleration getAccelerationIncludingGravityUnsafe self   = liftIO-      ((nullableToMaybe <$> (js_getAccelerationIncludingGravity (self)))+      ((nullableToMaybe <$> (js_getAccelerationIncludingGravity self))          >>= maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceMotionEvent.accelerationIncludingGravity Mozilla DeviceMotionEvent.accelerationIncludingGravity documentation> @@ -117,7 +115,7 @@ getAccelerationIncludingGravityUnchecked self   = liftIO       (fromJust . nullableToMaybe <$>-         (js_getAccelerationIncludingGravity (self)))+         (js_getAccelerationIncludingGravity self))   foreign import javascript unsafe "$1[\"rotationRate\"]"         js_getRotationRate ::@@ -127,26 +125,40 @@ getRotationRate ::                 (MonadIO m) => DeviceMotionEvent -> m (Maybe RotationRate) getRotationRate self-  = liftIO (nullableToMaybe <$> (js_getRotationRate (self)))+  = liftIO (nullableToMaybe <$> (js_getRotationRate self))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceMotionEvent.rotationRate Mozilla DeviceMotionEvent.rotationRate documentation>  getRotationRateUnsafe ::                       (MonadIO m, HasCallStack) => DeviceMotionEvent -> m RotationRate getRotationRateUnsafe self   = liftIO-      ((nullableToMaybe <$> (js_getRotationRate (self))) >>=+      ((nullableToMaybe <$> (js_getRotationRate self)) >>=          maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceMotionEvent.rotationRate Mozilla DeviceMotionEvent.rotationRate documentation>  getRotationRateUnchecked ::                          (MonadIO m) => DeviceMotionEvent -> m RotationRate getRotationRateUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$> (js_getRotationRate (self)))+  = liftIO (fromJust . nullableToMaybe <$> (js_getRotationRate self))   foreign import javascript unsafe "$1[\"interval\"]" js_getInterval-        :: DeviceMotionEvent -> IO Double+        :: DeviceMotionEvent -> IO (Nullable 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))+getInterval :: (MonadIO m) => DeviceMotionEvent -> m (Maybe Double)+getInterval self+  = liftIO (nullableToMaybe <$> (js_getInterval self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceMotionEvent.interval Mozilla DeviceMotionEvent.interval documentation> +getIntervalUnsafe ::+                  (MonadIO m, HasCallStack) => DeviceMotionEvent -> m Double+getIntervalUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getInterval self)) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceMotionEvent.interval Mozilla DeviceMotionEvent.interval documentation> +getIntervalUnchecked ::+                     (MonadIO m) => DeviceMotionEvent -> m Double+getIntervalUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getInterval self))
src/GHCJS/DOM/JSFFI/Generated/DeviceOrientationEvent.hs view
@@ -5,15 +5,17 @@ {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.DeviceOrientationEvent        (js_initDeviceOrientationEvent, initDeviceOrientationEvent,-        js_getAlpha, getAlpha, js_getBeta, getBeta, js_getGamma, getGamma,-        js_getAbsolute, getAbsolute, DeviceOrientationEvent(..),-        gTypeDeviceOrientationEvent)+        js_getAlpha, getAlpha, getAlphaUnsafe, getAlphaUnchecked,+        js_getBeta, getBeta, getBetaUnsafe, getBetaUnchecked, js_getGamma,+        getGamma, getGammaUnsafe, getGammaUnchecked, js_getAbsolute,+        getAbsolute, getAbsoluteUnsafe, getAbsoluteUnchecked,+        DeviceOrientationEvent(..), gTypeDeviceOrientationEvent)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -22,6 +24,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -31,48 +34,117 @@         "$1[\"initDeviceOrientationEvent\"]($2,\n$3, $4, $5, $6, $7, $8)"         js_initDeviceOrientationEvent ::         DeviceOrientationEvent ->-          JSString ->-            Bool -> Bool -> Double -> Double -> Double -> Bool -> IO ()+          Optional JSString ->+            Bool ->+              Bool ->+                Optional Double ->+                  Optional Double -> Optional Double -> Optional Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceOrientationEvent.initDeviceOrientationEvent Mozilla DeviceOrientationEvent.initDeviceOrientationEvent documentation>  initDeviceOrientationEvent ::                            (MonadIO m, ToJSString type') =>                              DeviceOrientationEvent ->-                               type' -> Bool -> Bool -> Double -> Double -> Double -> Bool -> m ()+                               Maybe type' ->+                                 Bool ->+                                   Bool ->+                                     Maybe Double ->+                                       Maybe Double -> Maybe Double -> Maybe Bool -> m () initDeviceOrientationEvent self type' bubbles cancelable alpha beta   gamma absolute   = liftIO-      (js_initDeviceOrientationEvent (self) (toJSString type') bubbles+      (js_initDeviceOrientationEvent self (toOptionalJSString type')+         bubbles          cancelable-         alpha-         beta-         gamma-         absolute)+         (maybeToOptional alpha)+         (maybeToOptional beta)+         (maybeToOptional gamma)+         (maybeToOptional absolute))   foreign import javascript unsafe "$1[\"alpha\"]" js_getAlpha ::-        DeviceOrientationEvent -> IO Double+        DeviceOrientationEvent -> IO (Nullable 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))+getAlpha ::+         (MonadIO m) => DeviceOrientationEvent -> m (Maybe Double)+getAlpha self = liftIO (nullableToMaybe <$> (js_getAlpha self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceOrientationEvent.alpha Mozilla DeviceOrientationEvent.alpha documentation> +getAlphaUnsafe ::+               (MonadIO m, HasCallStack) => DeviceOrientationEvent -> m Double+getAlphaUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getAlpha self)) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceOrientationEvent.alpha Mozilla DeviceOrientationEvent.alpha documentation> +getAlphaUnchecked ::+                  (MonadIO m) => DeviceOrientationEvent -> m Double+getAlphaUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getAlpha self))   foreign import javascript unsafe "$1[\"beta\"]" js_getBeta ::-        DeviceOrientationEvent -> IO Double+        DeviceOrientationEvent -> IO (Nullable 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))+getBeta ::+        (MonadIO m) => DeviceOrientationEvent -> m (Maybe Double)+getBeta self = liftIO (nullableToMaybe <$> (js_getBeta self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceOrientationEvent.beta Mozilla DeviceOrientationEvent.beta documentation> +getBetaUnsafe ::+              (MonadIO m, HasCallStack) => DeviceOrientationEvent -> m Double+getBetaUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getBeta self)) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceOrientationEvent.beta Mozilla DeviceOrientationEvent.beta documentation> +getBetaUnchecked ::+                 (MonadIO m) => DeviceOrientationEvent -> m Double+getBetaUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getBeta self))   foreign import javascript unsafe "$1[\"gamma\"]" js_getGamma ::-        DeviceOrientationEvent -> IO Double+        DeviceOrientationEvent -> IO (Nullable 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))+getGamma ::+         (MonadIO m) => DeviceOrientationEvent -> m (Maybe Double)+getGamma self = liftIO (nullableToMaybe <$> (js_getGamma self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceOrientationEvent.gamma Mozilla DeviceOrientationEvent.gamma documentation> +getGammaUnsafe ::+               (MonadIO m, HasCallStack) => DeviceOrientationEvent -> m Double+getGammaUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getGamma self)) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceOrientationEvent.gamma Mozilla DeviceOrientationEvent.gamma documentation> +getGammaUnchecked ::+                  (MonadIO m) => DeviceOrientationEvent -> m Double+getGammaUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getGamma self))  -foreign import javascript unsafe "($1[\"absolute\"] ? 1 : 0)"-        js_getAbsolute :: DeviceOrientationEvent -> IO Bool+foreign import javascript unsafe "$1[\"absolute\"]" js_getAbsolute+        :: DeviceOrientationEvent -> IO (Nullable 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))+getAbsolute ::+            (MonadIO m) => DeviceOrientationEvent -> m (Maybe Bool)+getAbsolute self+  = liftIO (nullableToMaybe <$> (js_getAbsolute self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceOrientationEvent.absolute Mozilla DeviceOrientationEvent.absolute documentation> +getAbsoluteUnsafe ::+                  (MonadIO m, HasCallStack) => DeviceOrientationEvent -> m Bool+getAbsoluteUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getAbsolute self)) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceOrientationEvent.absolute Mozilla DeviceOrientationEvent.absolute documentation> +getAbsoluteUnchecked ::+                     (MonadIO m) => DeviceOrientationEvent -> m Bool+getAbsoluteUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getAbsolute self))
src/GHCJS/DOM/JSFFI/Generated/DeviceProximityEvent.hs view
@@ -4,14 +4,15 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.DeviceProximityEvent-       (js_getValue, getValue, js_getMin, getMin, js_getMax, getMax,+       (js_newDeviceProximityEvent, newDeviceProximityEvent, js_getValue,+        getValue, js_getMin, getMin, js_getMax, getMax,         DeviceProximityEvent(..), gTypeDeviceProximityEvent)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -20,28 +21,44 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums  +foreign import javascript unsafe+        "new window[\"DeviceProximityEvent\"]($1,\n$2)"+        js_newDeviceProximityEvent ::+        JSString ->+          Optional DeviceProximityEventInit -> IO DeviceProximityEvent++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceProximityEvent Mozilla DeviceProximityEvent documentation> +newDeviceProximityEvent ::+                        (MonadIO m, ToJSString type') =>+                          type' -> Maybe DeviceProximityEventInit -> m DeviceProximityEvent+newDeviceProximityEvent type' eventInitDict+  = liftIO+      (js_newDeviceProximityEvent (toJSString type')+         (maybeToOptional eventInitDict))+  foreign import javascript unsafe "$1[\"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))+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))+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))+getMax self = liftIO (js_getMax self)
src/GHCJS/DOM/JSFFI/Generated/Document.hs view
@@ -4,3342 +4,1848 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.Document-       (js_newDocument, newDocument, js_createElement, createElement,-        createElement_, createElementUnsafe, createElementUnchecked,-        js_createDocumentFragment, createDocumentFragment,-        createDocumentFragment_, createDocumentFragmentUnsafe,-        createDocumentFragmentUnchecked, js_createTextNode, createTextNode,-        createTextNode_, createTextNodeUnsafe, createTextNodeUnchecked,-        js_createComment, createComment, createComment_,-        createCommentUnsafe, createCommentUnchecked, js_createCDATASection,-        createCDATASection, createCDATASection_, createCDATASectionUnsafe,-        createCDATASectionUnchecked, js_createProcessingInstruction,-        createProcessingInstruction, createProcessingInstruction_,-        createProcessingInstructionUnsafe,-        createProcessingInstructionUnchecked, js_createAttribute,-        createAttribute, createAttribute_, createAttributeUnsafe,-        createAttributeUnchecked, js_createEntityReference,-        createEntityReference, createEntityReference_,-        createEntityReferenceUnsafe, createEntityReferenceUnchecked,-        js_getElementsByTagName, getElementsByTagName,-        getElementsByTagName_, getElementsByTagNameUnsafe,-        getElementsByTagNameUnchecked, js_importNode, importNode,-        importNode_, importNodeUnsafe, importNodeUnchecked,-        js_createElementNS, createElementNS, createElementNS_,-        createElementNSUnsafe, createElementNSUnchecked,-        js_createAttributeNS, createAttributeNS, createAttributeNS_,-        createAttributeNSUnsafe, createAttributeNSUnchecked,-        js_getElementsByTagNameNS, getElementsByTagNameNS,-        getElementsByTagNameNS_, getElementsByTagNameNSUnsafe,-        getElementsByTagNameNSUnchecked, js_getElementById, getElementById,-        getElementById_, getElementByIdUnsafe, getElementByIdUnchecked,-        js_adoptNode, adoptNode, adoptNode_, adoptNodeUnsafe,-        adoptNodeUnchecked, js_createEvent, createEvent, createEvent_,-        createEventUnsafe, createEventUnchecked, js_createRange,-        createRange, createRange_, createRangeUnsafe, createRangeUnchecked,-        js_createNodeIterator, createNodeIterator, createNodeIterator_,-        createNodeIteratorUnsafe, createNodeIteratorUnchecked,-        js_createTreeWalker, createTreeWalker, createTreeWalker_,-        createTreeWalkerUnsafe, createTreeWalkerUnchecked,-        js_getOverrideStyle, getOverrideStyle, getOverrideStyle_,-        getOverrideStyleUnsafe, getOverrideStyleUnchecked,-        js_createExpression, createExpression, createExpression_,-        createExpressionUnsafe, createExpressionUnchecked,-        js_createNSResolver, createNSResolver, createNSResolver_,-        createNSResolverUnsafe, createNSResolverUnchecked, js_evaluate,-        evaluate, evaluate_, evaluateUnsafe, evaluateUnchecked,-        js_execCommand, execCommand, execCommand_, js_queryCommandEnabled,-        queryCommandEnabled, queryCommandEnabled_, js_queryCommandIndeterm,-        queryCommandIndeterm, queryCommandIndeterm_, js_queryCommandState,-        queryCommandState, queryCommandState_, js_queryCommandSupported,-        queryCommandSupported, queryCommandSupported_,-        js_queryCommandValue, queryCommandValue, queryCommandValue_,-        js_getElementsByName, getElementsByName, getElementsByName_,-        getElementsByNameUnsafe, getElementsByNameUnchecked,-        js_elementFromPoint, elementFromPoint, elementFromPoint_,-        elementFromPointUnsafe, elementFromPointUnchecked,-        js_caretRangeFromPoint, caretRangeFromPoint, caretRangeFromPoint_,-        caretRangeFromPointUnsafe, caretRangeFromPointUnchecked,-        js_getSelection, getSelection, getSelection_, getSelectionUnsafe,-        getSelectionUnchecked, js_getCSSCanvasContext, getCSSCanvasContext,-        getCSSCanvasContext_, getCSSCanvasContextUnsafe,-        getCSSCanvasContextUnchecked, js_getElementsByClassName,-        getElementsByClassName, getElementsByClassName_,-        getElementsByClassNameUnsafe, getElementsByClassNameUnchecked,-        js_hasFocus, hasFocus, hasFocus_, js_querySelector, querySelector,-        querySelector_, querySelectorUnsafe, querySelectorUnchecked,-        js_querySelectorAll, querySelectorAll, querySelectorAll_,-        querySelectorAllUnsafe, querySelectorAllUnchecked,-        js_webkitCancelFullScreen, webkitCancelFullScreen,-        js_webkitExitFullscreen, webkitExitFullscreen, js_exitPointerLock,-        exitPointerLock, js_webkitGetNamedFlows, webkitGetNamedFlows,-        webkitGetNamedFlows_, webkitGetNamedFlowsUnsafe,-        webkitGetNamedFlowsUnchecked, js_createTouch, createTouch,-        createTouch_, createTouchUnsafe, createTouchUnchecked,-        js_createTouchList, createTouchList, createTouchList_,-        createTouchListUnsafe, createTouchListUnchecked, js_getDoctype,-        getDoctype, getDoctypeUnsafe, getDoctypeUnchecked,-        js_getImplementation, getImplementation, getImplementationUnsafe,-        getImplementationUnchecked, js_getDocumentElement,-        getDocumentElement, getDocumentElementUnsafe,-        getDocumentElementUnchecked, js_getInputEncoding, getInputEncoding,-        getInputEncodingUnsafe, getInputEncodingUnchecked,-        js_getXmlEncoding, getXmlEncoding, getXmlEncodingUnsafe,-        getXmlEncodingUnchecked, js_setXmlVersion, setXmlVersion,-        js_getXmlVersion, getXmlVersion, getXmlVersionUnsafe,-        getXmlVersionUnchecked, js_setXmlStandalone, setXmlStandalone,-        js_getXmlStandalone, getXmlStandalone, js_getDocumentURI,-        getDocumentURI, getDocumentURIUnsafe, getDocumentURIUnchecked,-        js_getDefaultView, getDefaultView, getDefaultViewUnsafe,-        getDefaultViewUnchecked, js_getStyleSheets, getStyleSheets,-        getStyleSheetsUnsafe, getStyleSheetsUnchecked, js_getContentType,-        getContentType, js_setTitle, setTitle, js_getTitle, getTitle,-        getTitleUnsafe, getTitleUnchecked, js_getReferrer, getReferrer,-        js_setDomain, setDomain, js_getDomain, getDomain, getDomainUnsafe,-        getDomainUnchecked, js_getURL, getURL, js_setCookie, setCookie,-        js_getCookie, getCookie, getCookieUnsafe, getCookieUnchecked,-        js_setBody, setBody, js_getBody, getBody, getBodyUnsafe,-        getBodyUnchecked, js_getHead, getHead, getHeadUnsafe,-        getHeadUnchecked, js_getImages, getImages, getImagesUnsafe,-        getImagesUnchecked, js_getApplets, getApplets, getAppletsUnsafe,-        getAppletsUnchecked, js_getLinks, getLinks, getLinksUnsafe,-        getLinksUnchecked, js_getForms, getForms, getFormsUnsafe,-        getFormsUnchecked, js_getAnchors, getAnchors, getAnchorsUnsafe,-        getAnchorsUnchecked, js_getLastModified, getLastModified,-        js_setLocation, setLocation, js_getLocation, getLocation,-        getLocationUnsafe, getLocationUnchecked, js_setCharset, setCharset,-        js_getCharset, getCharset, getCharsetUnsafe, getCharsetUnchecked,-        js_getDefaultCharset, getDefaultCharset, getDefaultCharsetUnsafe,-        getDefaultCharsetUnchecked, js_getReadyState, getReadyState,-        getReadyStateUnsafe, getReadyStateUnchecked, js_getCharacterSet,-        getCharacterSet, getCharacterSetUnsafe, getCharacterSetUnchecked,-        js_getPreferredStylesheetSet, getPreferredStylesheetSet,-        getPreferredStylesheetSetUnsafe,-        getPreferredStylesheetSetUnchecked, js_setSelectedStylesheetSet,-        setSelectedStylesheetSet, js_getSelectedStylesheetSet,-        getSelectedStylesheetSet, getSelectedStylesheetSetUnsafe,-        getSelectedStylesheetSetUnchecked, js_getActiveElement,-        getActiveElement, getActiveElementUnsafe,-        getActiveElementUnchecked, js_getCompatMode, getCompatMode,-        js_getWebkitIsFullScreen, getWebkitIsFullScreen,-        js_getWebkitFullScreenKeyboardInputAllowed,-        getWebkitFullScreenKeyboardInputAllowed,-        js_getWebkitCurrentFullScreenElement,-        getWebkitCurrentFullScreenElement,-        getWebkitCurrentFullScreenElementUnsafe,-        getWebkitCurrentFullScreenElementUnchecked,-        js_getWebkitFullscreenEnabled, getWebkitFullscreenEnabled,-        js_getWebkitFullscreenElement, getWebkitFullscreenElement,-        getWebkitFullscreenElementUnsafe,-        getWebkitFullscreenElementUnchecked, js_getPointerLockElement,-        getPointerLockElement, getPointerLockElementUnsafe,-        getPointerLockElementUnchecked, js_getFonts, getFonts,-        getFontsUnsafe, getFontsUnchecked, 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, getSecurityPolicyUnsafe,-        getSecurityPolicyUnchecked, js_getCurrentScript, getCurrentScript,-        getCurrentScriptUnsafe, getCurrentScriptUnchecked, js_getOrigin,-        getOrigin, Document(..), gTypeDocument, IsDocument, toDocument)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)-import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))-import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import 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)))---- | <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 ()-createElement_ self tagName-  = liftIO-      (void-         (js_createElement (toDocument self) (toMaybeJSString tagName)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createElement Mozilla Document.createElement documentation> -createElementUnsafe ::-                    (MonadIO m, IsDocument self, ToJSString tagName, HasCallStack) =>-                      self -> Maybe tagName -> m Element-createElementUnsafe self tagName-  = liftIO-      ((nullableToMaybe <$>-          (js_createElement (toDocument self) (toMaybeJSString tagName)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createElement Mozilla Document.createElement documentation> -createElementUnchecked ::-                       (MonadIO m, IsDocument self, ToJSString tagName) =>-                         self -> Maybe tagName -> m Element-createElementUnchecked self tagName-  = liftIO-      (fromJust . 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createDocumentFragment Mozilla Document.createDocumentFragment documentation> -createDocumentFragment_ ::-                        (MonadIO m, IsDocument self) => self -> m ()-createDocumentFragment_ self-  = liftIO (void (js_createDocumentFragment (toDocument self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createDocumentFragment Mozilla Document.createDocumentFragment documentation> -createDocumentFragmentUnsafe ::-                             (MonadIO m, IsDocument self, HasCallStack) =>-                               self -> m DocumentFragment-createDocumentFragmentUnsafe self-  = liftIO-      ((nullableToMaybe <$>-          (js_createDocumentFragment (toDocument self)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createDocumentFragment Mozilla Document.createDocumentFragment documentation> -createDocumentFragmentUnchecked ::-                                (MonadIO m, IsDocument self) => self -> m DocumentFragment-createDocumentFragmentUnchecked self-  = liftIO-      (fromJust . 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')))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createTextNode Mozilla Document.createTextNode documentation> -createTextNode_ ::-                (MonadIO m, IsDocument self, ToJSString data') =>-                  self -> data' -> m ()-createTextNode_ self data'-  = liftIO-      (void (js_createTextNode (toDocument self) (toJSString data')))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createTextNode Mozilla Document.createTextNode documentation> -createTextNodeUnsafe ::-                     (MonadIO m, IsDocument self, ToJSString data', HasCallStack) =>-                       self -> data' -> m Text-createTextNodeUnsafe self data'-  = liftIO-      ((nullableToMaybe <$>-          (js_createTextNode (toDocument self) (toJSString data')))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createTextNode Mozilla Document.createTextNode documentation> -createTextNodeUnchecked ::-                        (MonadIO m, IsDocument self, ToJSString data') =>-                          self -> data' -> m Text-createTextNodeUnchecked self data'-  = liftIO-      (fromJust . 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')))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createComment Mozilla Document.createComment documentation> -createComment_ ::-               (MonadIO m, IsDocument self, ToJSString data') =>-                 self -> data' -> m ()-createComment_ self data'-  = liftIO-      (void (js_createComment (toDocument self) (toJSString data')))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createComment Mozilla Document.createComment documentation> -createCommentUnsafe ::-                    (MonadIO m, IsDocument self, ToJSString data', HasCallStack) =>-                      self -> data' -> m Comment-createCommentUnsafe self data'-  = liftIO-      ((nullableToMaybe <$>-          (js_createComment (toDocument self) (toJSString data')))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createComment Mozilla Document.createComment documentation> -createCommentUnchecked ::-                       (MonadIO m, IsDocument self, ToJSString data') =>-                         self -> data' -> m Comment-createCommentUnchecked self data'-  = liftIO-      (fromJust . 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')))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createCDATASection Mozilla Document.createCDATASection documentation> -createCDATASection_ ::-                    (MonadIO m, IsDocument self, ToJSString data') =>-                      self -> data' -> m ()-createCDATASection_ self data'-  = liftIO-      (void (js_createCDATASection (toDocument self) (toJSString data')))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createCDATASection Mozilla Document.createCDATASection documentation> -createCDATASectionUnsafe ::-                         (MonadIO m, IsDocument self, ToJSString data', HasCallStack) =>-                           self -> data' -> m CDATASection-createCDATASectionUnsafe self data'-  = liftIO-      ((nullableToMaybe <$>-          (js_createCDATASection (toDocument self) (toJSString data')))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createCDATASection Mozilla Document.createCDATASection documentation> -createCDATASectionUnchecked ::-                            (MonadIO m, IsDocument self, ToJSString data') =>-                              self -> data' -> m CDATASection-createCDATASectionUnchecked self data'-  = liftIO-      (fromJust . 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')))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createProcessingInstruction Mozilla Document.createProcessingInstruction documentation> -createProcessingInstruction_ ::-                             (MonadIO m, IsDocument self, ToJSString target,-                              ToJSString data') =>-                               self -> target -> data' -> m ()-createProcessingInstruction_ self target data'-  = liftIO-      (void-         (js_createProcessingInstruction (toDocument self)-            (toJSString target)-            (toJSString data')))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createProcessingInstruction Mozilla Document.createProcessingInstruction documentation> -createProcessingInstructionUnsafe ::-                                  (MonadIO m, IsDocument self, ToJSString target, ToJSString data',-                                   HasCallStack) =>-                                    self -> target -> data' -> m ProcessingInstruction-createProcessingInstructionUnsafe self target data'-  = liftIO-      ((nullableToMaybe <$>-          (js_createProcessingInstruction (toDocument self)-             (toJSString target)-             (toJSString data')))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createProcessingInstruction Mozilla Document.createProcessingInstruction documentation> -createProcessingInstructionUnchecked ::-                                     (MonadIO m, IsDocument self, ToJSString target,-                                      ToJSString data') =>-                                       self -> target -> data' -> m ProcessingInstruction-createProcessingInstructionUnchecked self target data'-  = liftIO-      (fromJust . 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)))---- | <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 ()-createAttribute_ self name-  = liftIO-      (void (js_createAttribute (toDocument self) (toJSString name)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createAttribute Mozilla Document.createAttribute documentation> -createAttributeUnsafe ::-                      (MonadIO m, IsDocument self, ToJSString name, HasCallStack) =>-                        self -> name -> m Attr-createAttributeUnsafe self name-  = liftIO-      ((nullableToMaybe <$>-          (js_createAttribute (toDocument self) (toJSString name)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createAttribute Mozilla Document.createAttribute documentation> -createAttributeUnchecked ::-                         (MonadIO m, IsDocument self, ToJSString name) =>-                           self -> name -> m Attr-createAttributeUnchecked self name-  = liftIO-      (fromJust . 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)))---- | <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 ()-createEntityReference_ self name-  = liftIO-      (void-         (js_createEntityReference (toDocument self) (toJSString name)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createEntityReference Mozilla Document.createEntityReference documentation> -createEntityReferenceUnsafe ::-                            (MonadIO m, IsDocument self, ToJSString name, HasCallStack) =>-                              self -> name -> m EntityReference-createEntityReferenceUnsafe self name-  = liftIO-      ((nullableToMaybe <$>-          (js_createEntityReference (toDocument self) (toJSString name)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createEntityReference Mozilla Document.createEntityReference documentation> -createEntityReferenceUnchecked ::-                               (MonadIO m, IsDocument self, ToJSString name) =>-                                 self -> name -> m EntityReference-createEntityReferenceUnchecked self name-  = liftIO-      (fromJust . 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)))---- | <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 ()-getElementsByTagName_ self tagname-  = liftIO-      (void-         (js_getElementsByTagName (toDocument self) (toJSString tagname)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getElementsByTagName Mozilla Document.getElementsByTagName documentation> -getElementsByTagNameUnsafe ::-                           (MonadIO m, IsDocument self, ToJSString tagname, HasCallStack) =>-                             self -> tagname -> m NodeList-getElementsByTagNameUnsafe self tagname-  = liftIO-      ((nullableToMaybe <$>-          (js_getElementsByTagName (toDocument self) (toJSString tagname)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getElementsByTagName Mozilla Document.getElementsByTagName documentation> -getElementsByTagNameUnchecked ::-                              (MonadIO m, IsDocument self, ToJSString tagname) =>-                                self -> tagname -> m NodeList-getElementsByTagNameUnchecked self tagname-  = liftIO-      (fromJust . 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))---- | <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 ()-importNode_ self importedNode deep-  = liftIO-      (void-         (js_importNode (toDocument self)-            (maybeToNullable (fmap toNode importedNode))-            deep))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.importNode Mozilla Document.importNode documentation> -importNodeUnsafe ::-                 (MonadIO m, IsDocument self, IsNode importedNode, HasCallStack) =>-                   self -> Maybe importedNode -> Bool -> m Node-importNodeUnsafe self importedNode deep-  = liftIO-      ((nullableToMaybe <$>-          (js_importNode (toDocument self)-             (maybeToNullable (fmap toNode importedNode))-             deep))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.importNode Mozilla Document.importNode documentation> -importNodeUnchecked ::-                    (MonadIO m, IsDocument self, IsNode importedNode) =>-                      self -> Maybe importedNode -> Bool -> m Node-importNodeUnchecked self importedNode deep-  = liftIO-      (fromJust . 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)))---- | <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 ()-createElementNS_ self namespaceURI qualifiedName-  = liftIO-      (void-         (js_createElementNS (toDocument self)-            (toMaybeJSString namespaceURI)-            (toMaybeJSString qualifiedName)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createElementNS Mozilla Document.createElementNS documentation> -createElementNSUnsafe ::-                      (MonadIO m, IsDocument self, ToJSString namespaceURI,-                       ToJSString qualifiedName, HasCallStack) =>-                        self -> Maybe namespaceURI -> Maybe qualifiedName -> m Element-createElementNSUnsafe self namespaceURI qualifiedName-  = liftIO-      ((nullableToMaybe <$>-          (js_createElementNS (toDocument self)-             (toMaybeJSString namespaceURI)-             (toMaybeJSString qualifiedName)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createElementNS Mozilla Document.createElementNS documentation> -createElementNSUnchecked ::-                         (MonadIO m, IsDocument self, ToJSString namespaceURI,-                          ToJSString qualifiedName) =>-                           self -> Maybe namespaceURI -> Maybe qualifiedName -> m Element-createElementNSUnchecked self namespaceURI qualifiedName-  = liftIO-      (fromJust . 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)))---- | <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 ()-createAttributeNS_ self namespaceURI qualifiedName-  = liftIO-      (void-         (js_createAttributeNS (toDocument self)-            (toMaybeJSString namespaceURI)-            (toMaybeJSString qualifiedName)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createAttributeNS Mozilla Document.createAttributeNS documentation> -createAttributeNSUnsafe ::-                        (MonadIO m, IsDocument self, ToJSString namespaceURI,-                         ToJSString qualifiedName, HasCallStack) =>-                          self -> Maybe namespaceURI -> Maybe qualifiedName -> m Attr-createAttributeNSUnsafe self namespaceURI qualifiedName-  = liftIO-      ((nullableToMaybe <$>-          (js_createAttributeNS (toDocument self)-             (toMaybeJSString namespaceURI)-             (toMaybeJSString qualifiedName)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createAttributeNS Mozilla Document.createAttributeNS documentation> -createAttributeNSUnchecked ::-                           (MonadIO m, IsDocument self, ToJSString namespaceURI,-                            ToJSString qualifiedName) =>-                             self -> Maybe namespaceURI -> Maybe qualifiedName -> m Attr-createAttributeNSUnchecked self namespaceURI qualifiedName-  = liftIO-      (fromJust . 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getElementsByTagNameNS Mozilla Document.getElementsByTagNameNS documentation> -getElementsByTagNameNS_ ::-                        (MonadIO m, IsDocument self, ToJSString namespaceURI,-                         ToJSString localName) =>-                          self -> Maybe namespaceURI -> localName -> m ()-getElementsByTagNameNS_ self namespaceURI localName-  = liftIO-      (void-         (js_getElementsByTagNameNS (toDocument self)-            (toMaybeJSString namespaceURI)-            (toJSString localName)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getElementsByTagNameNS Mozilla Document.getElementsByTagNameNS documentation> -getElementsByTagNameNSUnsafe ::-                             (MonadIO m, IsDocument self, ToJSString namespaceURI,-                              ToJSString localName, HasCallStack) =>-                               self -> Maybe namespaceURI -> localName -> m NodeList-getElementsByTagNameNSUnsafe self namespaceURI localName-  = liftIO-      ((nullableToMaybe <$>-          (js_getElementsByTagNameNS (toDocument self)-             (toMaybeJSString namespaceURI)-             (toJSString localName)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getElementsByTagNameNS Mozilla Document.getElementsByTagNameNS documentation> -getElementsByTagNameNSUnchecked ::-                                (MonadIO m, IsDocument self, ToJSString namespaceURI,-                                 ToJSString localName) =>-                                  self -> Maybe namespaceURI -> localName -> m NodeList-getElementsByTagNameNSUnchecked self namespaceURI localName-  = liftIO-      (fromJust . 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)))---- | <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 ()-getElementById_ self elementId-  = liftIO-      (void (js_getElementById (toDocument self) (toJSString elementId)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getElementById Mozilla Document.getElementById documentation> -getElementByIdUnsafe ::-                     (MonadIO m, IsDocument self, ToJSString elementId, HasCallStack) =>-                       self -> elementId -> m Element-getElementByIdUnsafe self elementId-  = liftIO-      ((nullableToMaybe <$>-          (js_getElementById (toDocument self) (toJSString elementId)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getElementById Mozilla Document.getElementById documentation> -getElementByIdUnchecked ::-                        (MonadIO m, IsDocument self, ToJSString elementId) =>-                          self -> elementId -> m Element-getElementByIdUnchecked self elementId-  = liftIO-      (fromJust . 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))))---- | <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 ()-adoptNode_ self source-  = liftIO-      (void-         (js_adoptNode (toDocument self)-            (maybeToNullable (fmap toNode source))))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.adoptNode Mozilla Document.adoptNode documentation> -adoptNodeUnsafe ::-                (MonadIO m, IsDocument self, IsNode source, HasCallStack) =>-                  self -> Maybe source -> m Node-adoptNodeUnsafe self source-  = liftIO-      ((nullableToMaybe <$>-          (js_adoptNode (toDocument self)-             (maybeToNullable (fmap toNode source))))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.adoptNode Mozilla Document.adoptNode documentation> -adoptNodeUnchecked ::-                   (MonadIO m, IsDocument self, IsNode source) =>-                     self -> Maybe source -> m Node-adoptNodeUnchecked self source-  = liftIO-      (fromJust . 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)))---- | <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 ()-createEvent_ self eventType-  = liftIO-      (void (js_createEvent (toDocument self) (toJSString eventType)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createEvent Mozilla Document.createEvent documentation> -createEventUnsafe ::-                  (MonadIO m, IsDocument self, ToJSString eventType, HasCallStack) =>-                    self -> eventType -> m Event-createEventUnsafe self eventType-  = liftIO-      ((nullableToMaybe <$>-          (js_createEvent (toDocument self) (toJSString eventType)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createEvent Mozilla Document.createEvent documentation> -createEventUnchecked ::-                     (MonadIO m, IsDocument self, ToJSString eventType) =>-                       self -> eventType -> m Event-createEventUnchecked self eventType-  = liftIO-      (fromJust . 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createRange Mozilla Document.createRange documentation> -createRange_ :: (MonadIO m, IsDocument self) => self -> m ()-createRange_ self-  = liftIO (void (js_createRange (toDocument self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createRange Mozilla Document.createRange documentation> -createRangeUnsafe ::-                  (MonadIO m, IsDocument self, HasCallStack) => self -> m Range-createRangeUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_createRange (toDocument self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createRange Mozilla Document.createRange documentation> -createRangeUnchecked ::-                     (MonadIO m, IsDocument self) => self -> m Range-createRangeUnchecked self-  = liftIO-      (fromJust . 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))---- | <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 ()-createNodeIterator_ self root whatToShow filter-  expandEntityReferences-  = liftIO-      (void-         (js_createNodeIterator (toDocument self)-            (maybeToNullable (fmap toNode root))-            whatToShow-            (maybeToNullable filter)-            expandEntityReferences))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createNodeIterator Mozilla Document.createNodeIterator documentation> -createNodeIteratorUnsafe ::-                         (MonadIO m, IsDocument self, IsNode root, HasCallStack) =>-                           self ->-                             Maybe root -> Word -> Maybe NodeFilter -> Bool -> m NodeIterator-createNodeIteratorUnsafe self root whatToShow filter-  expandEntityReferences-  = liftIO-      ((nullableToMaybe <$>-          (js_createNodeIterator (toDocument self)-             (maybeToNullable (fmap toNode root))-             whatToShow-             (maybeToNullable filter)-             expandEntityReferences))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createNodeIterator Mozilla Document.createNodeIterator documentation> -createNodeIteratorUnchecked ::-                            (MonadIO m, IsDocument self, IsNode root) =>-                              self ->-                                Maybe root -> Word -> Maybe NodeFilter -> Bool -> m NodeIterator-createNodeIteratorUnchecked self root whatToShow filter-  expandEntityReferences-  = liftIO-      (fromJust . 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))---- | <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 ()-createTreeWalker_ self root whatToShow filter-  expandEntityReferences-  = liftIO-      (void-         (js_createTreeWalker (toDocument self)-            (maybeToNullable (fmap toNode root))-            whatToShow-            (maybeToNullable filter)-            expandEntityReferences))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createTreeWalker Mozilla Document.createTreeWalker documentation> -createTreeWalkerUnsafe ::-                       (MonadIO m, IsDocument self, IsNode root, HasCallStack) =>-                         self ->-                           Maybe root -> Word -> Maybe NodeFilter -> Bool -> m TreeWalker-createTreeWalkerUnsafe self root whatToShow filter-  expandEntityReferences-  = liftIO-      ((nullableToMaybe <$>-          (js_createTreeWalker (toDocument self)-             (maybeToNullable (fmap toNode root))-             whatToShow-             (maybeToNullable filter)-             expandEntityReferences))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createTreeWalker Mozilla Document.createTreeWalker documentation> -createTreeWalkerUnchecked ::-                          (MonadIO m, IsDocument self, IsNode root) =>-                            self ->-                              Maybe root -> Word -> Maybe NodeFilter -> Bool -> m TreeWalker-createTreeWalkerUnchecked self root whatToShow filter-  expandEntityReferences-  = liftIO-      (fromJust . 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)))---- | <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 ()-getOverrideStyle_ self element pseudoElement-  = liftIO-      (void-         (js_getOverrideStyle (toDocument self)-            (maybeToNullable (fmap toElement element))-            (toJSString pseudoElement)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getOverrideStyle Mozilla Document.getOverrideStyle documentation> -getOverrideStyleUnsafe ::-                       (MonadIO m, IsDocument self, IsElement element,-                        ToJSString pseudoElement, HasCallStack) =>-                         self -> Maybe element -> pseudoElement -> m CSSStyleDeclaration-getOverrideStyleUnsafe self element pseudoElement-  = liftIO-      ((nullableToMaybe <$>-          (js_getOverrideStyle (toDocument self)-             (maybeToNullable (fmap toElement element))-             (toJSString pseudoElement)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getOverrideStyle Mozilla Document.getOverrideStyle documentation> -getOverrideStyleUnchecked ::-                          (MonadIO m, IsDocument self, IsElement element,-                           ToJSString pseudoElement) =>-                            self -> Maybe element -> pseudoElement -> m CSSStyleDeclaration-getOverrideStyleUnchecked self element pseudoElement-  = liftIO-      (fromJust . 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)))---- | <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 ()-createExpression_ self expression resolver-  = liftIO-      (void-         (js_createExpression (toDocument self) (toJSString expression)-            (maybeToNullable resolver)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createExpression Mozilla Document.createExpression documentation> -createExpressionUnsafe ::-                       (MonadIO m, IsDocument self, ToJSString expression,-                        HasCallStack) =>-                         self -> expression -> Maybe XPathNSResolver -> m XPathExpression-createExpressionUnsafe self expression resolver-  = liftIO-      ((nullableToMaybe <$>-          (js_createExpression (toDocument self) (toJSString expression)-             (maybeToNullable resolver)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createExpression Mozilla Document.createExpression documentation> -createExpressionUnchecked ::-                          (MonadIO m, IsDocument self, ToJSString expression) =>-                            self -> expression -> Maybe XPathNSResolver -> m XPathExpression-createExpressionUnchecked self expression resolver-  = liftIO-      (fromJust . 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))))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createNSResolver Mozilla Document.createNSResolver documentation> -createNSResolver_ ::-                  (MonadIO m, IsDocument self, IsNode nodeResolver) =>-                    self -> Maybe nodeResolver -> m ()-createNSResolver_ self nodeResolver-  = liftIO-      (void-         (js_createNSResolver (toDocument self)-            (maybeToNullable (fmap toNode nodeResolver))))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createNSResolver Mozilla Document.createNSResolver documentation> -createNSResolverUnsafe ::-                       (MonadIO m, IsDocument self, IsNode nodeResolver, HasCallStack) =>-                         self -> Maybe nodeResolver -> m XPathNSResolver-createNSResolverUnsafe self nodeResolver-  = liftIO-      ((nullableToMaybe <$>-          (js_createNSResolver (toDocument self)-             (maybeToNullable (fmap toNode nodeResolver))))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createNSResolver Mozilla Document.createNSResolver documentation> -createNSResolverUnchecked ::-                          (MonadIO m, IsDocument self, IsNode nodeResolver) =>-                            self -> Maybe nodeResolver -> m XPathNSResolver-createNSResolverUnchecked self nodeResolver-  = liftIO-      (fromJust . 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)))---- | <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 ()-evaluate_ self expression contextNode resolver type' inResult-  = liftIO-      (void-         (js_evaluate (toDocument self) (toJSString expression)-            (maybeToNullable (fmap toNode contextNode))-            (maybeToNullable resolver)-            type'-            (maybeToNullable inResult)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.evaluate Mozilla Document.evaluate documentation> -evaluateUnsafe ::-               (MonadIO m, IsDocument self, ToJSString expression,-                IsNode contextNode, HasCallStack) =>-                 self ->-                   expression ->-                     Maybe contextNode ->-                       Maybe XPathNSResolver -> Word -> Maybe XPathResult -> m XPathResult-evaluateUnsafe self expression contextNode resolver type' inResult-  = liftIO-      ((nullableToMaybe <$>-          (js_evaluate (toDocument self) (toJSString expression)-             (maybeToNullable (fmap toNode contextNode))-             (maybeToNullable resolver)-             type'-             (maybeToNullable inResult)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.evaluate Mozilla Document.evaluate documentation> -evaluateUnchecked ::-                  (MonadIO m, IsDocument self, ToJSString expression,-                   IsNode contextNode) =>-                    self ->-                      expression ->-                        Maybe contextNode ->-                          Maybe XPathNSResolver -> Word -> Maybe XPathResult -> m XPathResult-evaluateUnchecked self expression contextNode resolver type'-  inResult-  = liftIO-      (fromJust . 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))---- | <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 ()-execCommand_ self command userInterface value-  = liftIO-      (void-         (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))---- | <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 ()-queryCommandEnabled_ self command-  = liftIO-      (void-         (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))---- | <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 ()-queryCommandIndeterm_ self command-  = liftIO-      (void-         (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))---- | <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 ()-queryCommandState_ self command-  = liftIO-      (void-         (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))---- | <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 ()-queryCommandSupported_ self command-  = liftIO-      (void-         (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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.queryCommandValue Mozilla Document.queryCommandValue documentation> -queryCommandValue_ ::-                   (MonadIO m, IsDocument self, ToJSString command) =>-                     self -> command -> m ()-queryCommandValue_ self command-  = liftIO-      (void-         (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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getElementsByName Mozilla Document.getElementsByName documentation> -getElementsByName_ ::-                   (MonadIO m, IsDocument self, ToJSString elementName) =>-                     self -> elementName -> m ()-getElementsByName_ self elementName-  = liftIO-      (void-         (js_getElementsByName (toDocument self) (toJSString elementName)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getElementsByName Mozilla Document.getElementsByName documentation> -getElementsByNameUnsafe ::-                        (MonadIO m, IsDocument self, ToJSString elementName,-                         HasCallStack) =>-                          self -> elementName -> m NodeList-getElementsByNameUnsafe self elementName-  = liftIO-      ((nullableToMaybe <$>-          (js_getElementsByName (toDocument self) (toJSString elementName)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getElementsByName Mozilla Document.getElementsByName documentation> -getElementsByNameUnchecked ::-                           (MonadIO m, IsDocument self, ToJSString elementName) =>-                             self -> elementName -> m NodeList-getElementsByNameUnchecked self elementName-  = liftIO-      (fromJust . 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))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.elementFromPoint Mozilla Document.elementFromPoint documentation> -elementFromPoint_ ::-                  (MonadIO m, IsDocument self) => self -> Int -> Int -> m ()-elementFromPoint_ self x y-  = liftIO (void (js_elementFromPoint (toDocument self) x y))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.elementFromPoint Mozilla Document.elementFromPoint documentation> -elementFromPointUnsafe ::-                       (MonadIO m, IsDocument self, HasCallStack) =>-                         self -> Int -> Int -> m Element-elementFromPointUnsafe self x y-  = liftIO-      ((nullableToMaybe <$> (js_elementFromPoint (toDocument self) x y))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.elementFromPoint Mozilla Document.elementFromPoint documentation> -elementFromPointUnchecked ::-                          (MonadIO m, IsDocument self) => self -> Int -> Int -> m Element-elementFromPointUnchecked self x y-  = liftIO-      (fromJust . 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))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.caretRangeFromPoint Mozilla Document.caretRangeFromPoint documentation> -caretRangeFromPoint_ ::-                     (MonadIO m, IsDocument self) => self -> Int -> Int -> m ()-caretRangeFromPoint_ self x y-  = liftIO (void (js_caretRangeFromPoint (toDocument self) x y))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.caretRangeFromPoint Mozilla Document.caretRangeFromPoint documentation> -caretRangeFromPointUnsafe ::-                          (MonadIO m, IsDocument self, HasCallStack) =>-                            self -> Int -> Int -> m Range-caretRangeFromPointUnsafe self x y-  = liftIO-      ((nullableToMaybe <$>-          (js_caretRangeFromPoint (toDocument self) x y))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.caretRangeFromPoint Mozilla Document.caretRangeFromPoint documentation> -caretRangeFromPointUnchecked ::-                             (MonadIO m, IsDocument self) => self -> Int -> Int -> m Range-caretRangeFromPointUnchecked self x y-  = liftIO-      (fromJust . 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getSelection Mozilla Document.getSelection documentation> -getSelection_ :: (MonadIO m, IsDocument self) => self -> m ()-getSelection_ self-  = liftIO (void (js_getSelection (toDocument self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getSelection Mozilla Document.getSelection documentation> -getSelectionUnsafe ::-                   (MonadIO m, IsDocument self, HasCallStack) => self -> m Selection-getSelectionUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getSelection (toDocument self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getSelection Mozilla Document.getSelection documentation> -getSelectionUnchecked ::-                      (MonadIO m, IsDocument self) => self -> m Selection-getSelectionUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_getSelection (toDocument self)))- -foreign import javascript 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))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getCSSCanvasContext Mozilla Document.getCSSCanvasContext documentation> -getCSSCanvasContext_ ::-                     (MonadIO m, IsDocument self, ToJSString contextId,-                      ToJSString name) =>-                       self -> contextId -> name -> Int -> Int -> m ()-getCSSCanvasContext_ self contextId name width height-  = liftIO-      (void-         (js_getCSSCanvasContext (toDocument self) (toJSString contextId)-            (toJSString name)-            width-            height))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getCSSCanvasContext Mozilla Document.getCSSCanvasContext documentation> -getCSSCanvasContextUnsafe ::-                          (MonadIO m, IsDocument self, ToJSString contextId, ToJSString name,-                           HasCallStack) =>-                            self -> contextId -> name -> Int -> Int -> m CanvasRenderingContext-getCSSCanvasContextUnsafe self contextId name width height-  = liftIO-      ((nullableToMaybe <$>-          (js_getCSSCanvasContext (toDocument self) (toJSString contextId)-             (toJSString name)-             width-             height))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getCSSCanvasContext Mozilla Document.getCSSCanvasContext documentation> -getCSSCanvasContextUnchecked ::-                             (MonadIO m, IsDocument self, ToJSString contextId,-                              ToJSString name) =>-                               self -> contextId -> name -> Int -> Int -> m CanvasRenderingContext-getCSSCanvasContextUnchecked self contextId name width height-  = liftIO-      (fromJust . 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)))---- | <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 ()-getElementsByClassName_ self tagname-  = liftIO-      (void-         (js_getElementsByClassName (toDocument self) (toJSString tagname)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getElementsByClassName Mozilla Document.getElementsByClassName documentation> -getElementsByClassNameUnsafe ::-                             (MonadIO m, IsDocument self, ToJSString tagname, HasCallStack) =>-                               self -> tagname -> m NodeList-getElementsByClassNameUnsafe self tagname-  = liftIO-      ((nullableToMaybe <$>-          (js_getElementsByClassName (toDocument self) (toJSString tagname)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getElementsByClassName Mozilla Document.getElementsByClassName documentation> -getElementsByClassNameUnchecked ::-                                (MonadIO m, IsDocument self, ToJSString tagname) =>-                                  self -> tagname -> m NodeList-getElementsByClassNameUnchecked self tagname-  = liftIO-      (fromJust . 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))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.hasFocus Mozilla Document.hasFocus documentation> -hasFocus_ :: (MonadIO m, IsDocument self) => self -> m ()-hasFocus_ self = liftIO (void (js_hasFocus (toDocument self)))- -foreign import javascript unsafe "$1[\"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)))---- | <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 ()-querySelector_ self selectors-  = liftIO-      (void (js_querySelector (toDocument self) (toJSString selectors)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.querySelector Mozilla Document.querySelector documentation> -querySelectorUnsafe ::-                    (MonadIO m, IsDocument self, ToJSString selectors, HasCallStack) =>-                      self -> selectors -> m Element-querySelectorUnsafe self selectors-  = liftIO-      ((nullableToMaybe <$>-          (js_querySelector (toDocument self) (toJSString selectors)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.querySelector Mozilla Document.querySelector documentation> -querySelectorUnchecked ::-                       (MonadIO m, IsDocument self, ToJSString selectors) =>-                         self -> selectors -> m Element-querySelectorUnchecked self selectors-  = liftIO-      (fromJust . 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)))---- | <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 ()-querySelectorAll_ self selectors-  = liftIO-      (void-         (js_querySelectorAll (toDocument self) (toJSString selectors)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.querySelectorAll Mozilla Document.querySelectorAll documentation> -querySelectorAllUnsafe ::-                       (MonadIO m, IsDocument self, ToJSString selectors, HasCallStack) =>-                         self -> selectors -> m NodeList-querySelectorAllUnsafe self selectors-  = liftIO-      ((nullableToMaybe <$>-          (js_querySelectorAll (toDocument self) (toJSString selectors)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.querySelectorAll Mozilla Document.querySelectorAll documentation> -querySelectorAllUnchecked ::-                          (MonadIO m, IsDocument self, ToJSString selectors) =>-                            self -> selectors -> m NodeList-querySelectorAllUnchecked self selectors-  = liftIO-      (fromJust . 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.webkitGetNamedFlows Mozilla Document.webkitGetNamedFlows documentation> -webkitGetNamedFlows_ ::-                     (MonadIO m, IsDocument self) => self -> m ()-webkitGetNamedFlows_ self-  = liftIO (void (js_webkitGetNamedFlows (toDocument self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.webkitGetNamedFlows Mozilla Document.webkitGetNamedFlows documentation> -webkitGetNamedFlowsUnsafe ::-                          (MonadIO m, IsDocument self, HasCallStack) =>-                            self -> m DOMNamedFlowCollection-webkitGetNamedFlowsUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_webkitGetNamedFlows (toDocument self)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.webkitGetNamedFlows Mozilla Document.webkitGetNamedFlows documentation> -webkitGetNamedFlowsUnchecked ::-                             (MonadIO m, IsDocument self) => self -> m DOMNamedFlowCollection-webkitGetNamedFlowsUnchecked self-  = liftIO-      (fromJust . 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))---- | <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 ()-createTouch_ self window target identifier pageX pageY screenX-  screenY webkitRadiusX webkitRadiusY webkitRotationAngle webkitForce-  = liftIO-      (void-         (js_createTouch (toDocument self) (maybeToNullable window)-            (maybeToNullable (fmap toEventTarget target))-            identifier-            pageX-            pageY-            screenX-            screenY-            webkitRadiusX-            webkitRadiusY-            webkitRotationAngle-            webkitForce))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createTouch Mozilla Document.createTouch documentation> -createTouchUnsafe ::-                  (MonadIO m, IsDocument self, IsEventTarget target, HasCallStack) =>-                    self ->-                      Maybe Window ->-                        Maybe target ->-                          Int ->-                            Int -> Int -> Int -> Int -> Int -> Int -> Float -> Float -> m Touch-createTouchUnsafe 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))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createTouch Mozilla Document.createTouch documentation> -createTouchUnchecked ::-                     (MonadIO m, IsDocument self, IsEventTarget target) =>-                       self ->-                         Maybe Window ->-                           Maybe target ->-                             Int ->-                               Int -> Int -> Int -> Int -> Int -> Int -> Float -> Float -> m Touch-createTouchUnchecked self window target identifier pageX pageY-  screenX screenY webkitRadiusX webkitRadiusY webkitRotationAngle-  webkitForce-  = liftIO-      (fromJust . 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createTouchList Mozilla Document.createTouchList documentation> -createTouchList_ :: (MonadIO m, IsDocument self) => self -> m ()-createTouchList_ self-  = liftIO (void (js_createTouchList (toDocument self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createTouchList Mozilla Document.createTouchList documentation> -createTouchListUnsafe ::-                      (MonadIO m, IsDocument self, HasCallStack) => self -> m TouchList-createTouchListUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_createTouchList (toDocument self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createTouchList Mozilla Document.createTouchList documentation> -createTouchListUnchecked ::-                         (MonadIO m, IsDocument self) => self -> m TouchList-createTouchListUnchecked self-  = liftIO-      (fromJust . 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.doctype Mozilla Document.doctype documentation> -getDoctypeUnsafe ::-                 (MonadIO m, IsDocument self, HasCallStack) =>-                   self -> m DocumentType-getDoctypeUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getDoctype (toDocument self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.doctype Mozilla Document.doctype documentation> -getDoctypeUnchecked ::-                    (MonadIO m, IsDocument self) => self -> m DocumentType-getDoctypeUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$> (js_getDoctype (toDocument self)))- -foreign import javascript unsafe "$1[\"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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.implementation Mozilla Document.implementation documentation> -getImplementationUnsafe ::-                        (MonadIO m, IsDocument self, HasCallStack) =>-                          self -> m DOMImplementation-getImplementationUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getImplementation (toDocument self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.implementation Mozilla Document.implementation documentation> -getImplementationUnchecked ::-                           (MonadIO m, IsDocument self) => self -> m DOMImplementation-getImplementationUnchecked self-  = liftIO-      (fromJust . 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.documentElement Mozilla Document.documentElement documentation> -getDocumentElementUnsafe ::-                         (MonadIO m, IsDocument self, HasCallStack) => self -> m Element-getDocumentElementUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getDocumentElement (toDocument self)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.documentElement Mozilla Document.documentElement documentation> -getDocumentElementUnchecked ::-                            (MonadIO m, IsDocument self) => self -> m Element-getDocumentElementUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_getDocumentElement (toDocument self)))- -foreign import javascript unsafe "$1[\"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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.inputEncoding Mozilla Document.inputEncoding documentation> -getInputEncodingUnsafe ::-                       (MonadIO m, IsDocument self, HasCallStack, FromJSString result) =>-                         self -> m result-getInputEncodingUnsafe self-  = liftIO-      ((fromMaybeJSString <$> (js_getInputEncoding (toDocument self)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.inputEncoding Mozilla Document.inputEncoding documentation> -getInputEncodingUnchecked ::-                          (MonadIO m, IsDocument self, FromJSString result) =>-                            self -> m result-getInputEncodingUnchecked self-  = liftIO-      (fromJust . 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.xmlEncoding Mozilla Document.xmlEncoding documentation> -getXmlEncodingUnsafe ::-                     (MonadIO m, IsDocument self, HasCallStack, FromJSString result) =>-                       self -> m result-getXmlEncodingUnsafe self-  = liftIO-      ((fromMaybeJSString <$> (js_getXmlEncoding (toDocument self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.xmlEncoding Mozilla Document.xmlEncoding documentation> -getXmlEncodingUnchecked ::-                        (MonadIO m, IsDocument self, FromJSString result) =>-                          self -> m result-getXmlEncodingUnchecked self-  = liftIO-      (fromJust . fromMaybeJSString <$>-         (js_getXmlEncoding (toDocument self)))- -foreign import javascript 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.xmlVersion Mozilla Document.xmlVersion documentation> -getXmlVersionUnsafe ::-                    (MonadIO m, IsDocument self, HasCallStack, FromJSString result) =>-                      self -> m result-getXmlVersionUnsafe self-  = liftIO-      ((fromMaybeJSString <$> (js_getXmlVersion (toDocument self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.xmlVersion Mozilla Document.xmlVersion documentation> -getXmlVersionUnchecked ::-                       (MonadIO m, IsDocument self, FromJSString result) =>-                         self -> m result-getXmlVersionUnchecked self-  = liftIO-      (fromJust . fromMaybeJSString <$>-         (js_getXmlVersion (toDocument self)))- -foreign import javascript unsafe "$1[\"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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.documentURI Mozilla Document.documentURI documentation> -getDocumentURIUnsafe ::-                     (MonadIO m, IsDocument self, HasCallStack, FromJSString result) =>-                       self -> m result-getDocumentURIUnsafe self-  = liftIO-      ((fromMaybeJSString <$> (js_getDocumentURI (toDocument self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.documentURI Mozilla Document.documentURI documentation> -getDocumentURIUnchecked ::-                        (MonadIO m, IsDocument self, FromJSString result) =>-                          self -> m result-getDocumentURIUnchecked self-  = liftIO-      (fromJust . 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.defaultView Mozilla Document.defaultView documentation> -getDefaultViewUnsafe ::-                     (MonadIO m, IsDocument self, HasCallStack) => self -> m Window-getDefaultViewUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getDefaultView (toDocument self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.defaultView Mozilla Document.defaultView documentation> -getDefaultViewUnchecked ::-                        (MonadIO m, IsDocument self) => self -> m Window-getDefaultViewUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_getDefaultView (toDocument self)))- -foreign import javascript unsafe "$1[\"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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.styleSheets Mozilla Document.styleSheets documentation> -getStyleSheetsUnsafe ::-                     (MonadIO m, IsDocument self, HasCallStack) =>-                       self -> m StyleSheetList-getStyleSheetsUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getStyleSheets (toDocument self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.styleSheets Mozilla Document.styleSheets documentation> -getStyleSheetsUnchecked ::-                        (MonadIO m, IsDocument self) => self -> m StyleSheetList-getStyleSheetsUnchecked self-  = liftIO-      (fromJust . 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.title Mozilla Document.title documentation> -getTitleUnsafe ::-               (MonadIO m, IsDocument self, HasCallStack, FromJSString result) =>-                 self -> m result-getTitleUnsafe self-  = liftIO-      ((fromMaybeJSString <$> (js_getTitle (toDocument self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.title Mozilla Document.title documentation> -getTitleUnchecked ::-                  (MonadIO m, IsDocument self, FromJSString result) =>-                    self -> m result-getTitleUnchecked self-  = liftIO-      (fromJust . 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.domain Mozilla Document.domain documentation> -getDomainUnsafe ::-                (MonadIO m, IsDocument self, HasCallStack, FromJSString result) =>-                  self -> m result-getDomainUnsafe self-  = liftIO-      ((fromMaybeJSString <$> (js_getDomain (toDocument self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.domain Mozilla Document.domain documentation> -getDomainUnchecked ::-                   (MonadIO m, IsDocument self, FromJSString result) =>-                     self -> m result-getDomainUnchecked self-  = liftIO-      (fromJust . 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.cookie Mozilla Document.cookie documentation> -getCookieUnsafe ::-                (MonadIO m, IsDocument self, HasCallStack, FromJSString result) =>-                  self -> m result-getCookieUnsafe self-  = liftIO-      ((fromMaybeJSString <$> (js_getCookie (toDocument self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.cookie Mozilla Document.cookie documentation> -getCookieUnchecked ::-                   (MonadIO m, IsDocument self, FromJSString result) =>-                     self -> m result-getCookieUnchecked self-  = liftIO-      (fromJust . 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.body Mozilla Document.body documentation> -getBodyUnsafe ::-              (MonadIO m, IsDocument self, HasCallStack) => self -> m HTMLElement-getBodyUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getBody (toDocument self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.body Mozilla Document.body documentation> -getBodyUnchecked ::-                 (MonadIO m, IsDocument self) => self -> m HTMLElement-getBodyUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$> (js_getBody (toDocument self)))- -foreign import javascript unsafe "$1[\"head\"]" js_getHead ::-        Document -> IO (Nullable HTMLHeadElement)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.head Mozilla Document.head documentation> -getHead ::-        (MonadIO m, IsDocument self) => self -> m (Maybe HTMLHeadElement)-getHead self-  = liftIO (nullableToMaybe <$> (js_getHead (toDocument self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.head Mozilla Document.head documentation> -getHeadUnsafe ::-              (MonadIO m, IsDocument self, HasCallStack) =>-                self -> m HTMLHeadElement-getHeadUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getHead (toDocument self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.head Mozilla Document.head documentation> -getHeadUnchecked ::-                 (MonadIO m, IsDocument self) => self -> m HTMLHeadElement-getHeadUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$> (js_getHead (toDocument self)))- -foreign import javascript unsafe "$1[\"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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.images Mozilla Document.images documentation> -getImagesUnsafe ::-                (MonadIO m, IsDocument self, HasCallStack) =>-                  self -> m HTMLCollection-getImagesUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getImages (toDocument self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.images Mozilla Document.images documentation> -getImagesUnchecked ::-                   (MonadIO m, IsDocument self) => self -> m HTMLCollection-getImagesUnchecked self-  = liftIO-      (fromJust . 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.applets Mozilla Document.applets documentation> -getAppletsUnsafe ::-                 (MonadIO m, IsDocument self, HasCallStack) =>-                   self -> m HTMLCollection-getAppletsUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getApplets (toDocument self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.applets Mozilla Document.applets documentation> -getAppletsUnchecked ::-                    (MonadIO m, IsDocument self) => self -> m HTMLCollection-getAppletsUnchecked self-  = liftIO-      (fromJust . 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.links Mozilla Document.links documentation> -getLinksUnsafe ::-               (MonadIO m, IsDocument self, HasCallStack) =>-                 self -> m HTMLCollection-getLinksUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getLinks (toDocument self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.links Mozilla Document.links documentation> -getLinksUnchecked ::-                  (MonadIO m, IsDocument self) => self -> m HTMLCollection-getLinksUnchecked self-  = liftIO-      (fromJust . 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.forms Mozilla Document.forms documentation> -getFormsUnsafe ::-               (MonadIO m, IsDocument self, HasCallStack) =>-                 self -> m HTMLCollection-getFormsUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getForms (toDocument self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.forms Mozilla Document.forms documentation> -getFormsUnchecked ::-                  (MonadIO m, IsDocument self) => self -> m HTMLCollection-getFormsUnchecked self-  = liftIO-      (fromJust . 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.anchors Mozilla Document.anchors documentation> -getAnchorsUnsafe ::-                 (MonadIO m, IsDocument self, HasCallStack) =>-                   self -> m HTMLCollection-getAnchorsUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getAnchors (toDocument self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.anchors Mozilla Document.anchors documentation> -getAnchorsUnchecked ::-                    (MonadIO m, IsDocument self) => self -> m HTMLCollection-getAnchorsUnchecked self-  = liftIO-      (fromJust . 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.location Mozilla Document.location documentation> -getLocationUnsafe ::-                  (MonadIO m, IsDocument self, HasCallStack) => self -> m Location-getLocationUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getLocation (toDocument self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.location Mozilla Document.location documentation> -getLocationUnchecked ::-                     (MonadIO m, IsDocument self) => self -> m Location-getLocationUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$> (js_getLocation (toDocument self)))- -foreign import javascript 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.charset Mozilla Document.charset documentation> -getCharsetUnsafe ::-                 (MonadIO m, IsDocument self, HasCallStack, FromJSString result) =>-                   self -> m result-getCharsetUnsafe self-  = liftIO-      ((fromMaybeJSString <$> (js_getCharset (toDocument self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.charset Mozilla Document.charset documentation> -getCharsetUnchecked ::-                    (MonadIO m, IsDocument self, FromJSString result) =>-                      self -> m result-getCharsetUnchecked self-  = liftIO-      (fromJust . 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.defaultCharset Mozilla Document.defaultCharset documentation> -getDefaultCharsetUnsafe ::-                        (MonadIO m, IsDocument self, HasCallStack, FromJSString result) =>-                          self -> m result-getDefaultCharsetUnsafe self-  = liftIO-      ((fromMaybeJSString <$> (js_getDefaultCharset (toDocument self)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.defaultCharset Mozilla Document.defaultCharset documentation> -getDefaultCharsetUnchecked ::-                           (MonadIO m, IsDocument self, FromJSString result) =>-                             self -> m result-getDefaultCharsetUnchecked self-  = liftIO-      (fromJust . 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.readyState Mozilla Document.readyState documentation> -getReadyStateUnsafe ::-                    (MonadIO m, IsDocument self, HasCallStack, FromJSString result) =>-                      self -> m result-getReadyStateUnsafe self-  = liftIO-      ((fromMaybeJSString <$> (js_getReadyState (toDocument self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.readyState Mozilla Document.readyState documentation> -getReadyStateUnchecked ::-                       (MonadIO m, IsDocument self, FromJSString result) =>-                         self -> m result-getReadyStateUnchecked self-  = liftIO-      (fromJust . 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.characterSet Mozilla Document.characterSet documentation> -getCharacterSetUnsafe ::-                      (MonadIO m, IsDocument self, HasCallStack, FromJSString result) =>-                        self -> m result-getCharacterSetUnsafe self-  = liftIO-      ((fromMaybeJSString <$> (js_getCharacterSet (toDocument self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.characterSet Mozilla Document.characterSet documentation> -getCharacterSetUnchecked ::-                         (MonadIO m, IsDocument self, FromJSString result) =>-                           self -> m result-getCharacterSetUnchecked self-  = liftIO-      (fromJust . 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.preferredStylesheetSet Mozilla Document.preferredStylesheetSet documentation> -getPreferredStylesheetSetUnsafe ::-                                (MonadIO m, IsDocument self, HasCallStack, FromJSString result) =>-                                  self -> m result-getPreferredStylesheetSetUnsafe self-  = liftIO-      ((fromMaybeJSString <$>-          (js_getPreferredStylesheetSet (toDocument self)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.preferredStylesheetSet Mozilla Document.preferredStylesheetSet documentation> -getPreferredStylesheetSetUnchecked ::-                                   (MonadIO m, IsDocument self, FromJSString result) =>-                                     self -> m result-getPreferredStylesheetSetUnchecked self-  = liftIO-      (fromJust . fromMaybeJSString <$>-         (js_getPreferredStylesheetSet (toDocument self)))- -foreign import javascript unsafe-        "$1[\"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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.selectedStylesheetSet Mozilla Document.selectedStylesheetSet documentation> -getSelectedStylesheetSetUnsafe ::-                               (MonadIO m, IsDocument self, HasCallStack, FromJSString result) =>-                                 self -> m result-getSelectedStylesheetSetUnsafe self-  = liftIO-      ((fromMaybeJSString <$>-          (js_getSelectedStylesheetSet (toDocument self)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.selectedStylesheetSet Mozilla Document.selectedStylesheetSet documentation> -getSelectedStylesheetSetUnchecked ::-                                  (MonadIO m, IsDocument self, FromJSString result) =>-                                    self -> m result-getSelectedStylesheetSetUnchecked self-  = liftIO-      (fromJust . fromMaybeJSString <$>-         (js_getSelectedStylesheetSet (toDocument self)))- -foreign import javascript unsafe "$1[\"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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.activeElement Mozilla Document.activeElement documentation> -getActiveElementUnsafe ::-                       (MonadIO m, IsDocument self, HasCallStack) => self -> m Element-getActiveElementUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getActiveElement (toDocument self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.activeElement Mozilla Document.activeElement documentation> -getActiveElementUnchecked ::-                          (MonadIO m, IsDocument self) => self -> m Element-getActiveElementUnchecked self-  = liftIO-      (fromJust . 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.webkitCurrentFullScreenElement Mozilla Document.webkitCurrentFullScreenElement documentation> -getWebkitCurrentFullScreenElementUnsafe ::-                                        (MonadIO m, IsDocument self, HasCallStack) =>-                                          self -> m Element-getWebkitCurrentFullScreenElementUnsafe self-  = liftIO-      ((nullableToMaybe <$>-          (js_getWebkitCurrentFullScreenElement (toDocument self)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.webkitCurrentFullScreenElement Mozilla Document.webkitCurrentFullScreenElement documentation> -getWebkitCurrentFullScreenElementUnchecked ::-                                           (MonadIO m, IsDocument self) => self -> m Element-getWebkitCurrentFullScreenElementUnchecked self-  = liftIO-      (fromJust . 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.webkitFullscreenElement Mozilla Document.webkitFullscreenElement documentation> -getWebkitFullscreenElementUnsafe ::-                                 (MonadIO m, IsDocument self, HasCallStack) => self -> m Element-getWebkitFullscreenElementUnsafe self-  = liftIO-      ((nullableToMaybe <$>-          (js_getWebkitFullscreenElement (toDocument self)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.webkitFullscreenElement Mozilla Document.webkitFullscreenElement documentation> -getWebkitFullscreenElementUnchecked ::-                                    (MonadIO m, IsDocument self) => self -> m Element-getWebkitFullscreenElementUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_getWebkitFullscreenElement (toDocument self)))- -foreign import javascript unsafe "$1[\"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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.pointerLockElement Mozilla Document.pointerLockElement documentation> -getPointerLockElementUnsafe ::-                            (MonadIO m, IsDocument self, HasCallStack) => self -> m Element-getPointerLockElementUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getPointerLockElement (toDocument self)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.pointerLockElement Mozilla Document.pointerLockElement documentation> -getPointerLockElementUnchecked ::-                               (MonadIO m, IsDocument self) => self -> m Element-getPointerLockElementUnchecked self-  = liftIO-      (fromJust . 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.fonts Mozilla Document.fonts documentation> -getFontsUnsafe ::-               (MonadIO m, IsDocument self, HasCallStack) => self -> m FontLoader-getFontsUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getFonts (toDocument self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.fonts Mozilla Document.fonts documentation> -getFontsUnchecked ::-                  (MonadIO m, IsDocument self) => self -> m FontLoader-getFontsUnchecked self-  = liftIO-      (fromJust . 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.securityPolicy Mozilla Document.securityPolicy documentation> -getSecurityPolicyUnsafe ::-                        (MonadIO m, IsDocument self, HasCallStack) =>-                          self -> m SecurityPolicy-getSecurityPolicyUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getSecurityPolicy (toDocument self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.securityPolicy Mozilla Document.securityPolicy documentation> -getSecurityPolicyUnchecked ::-                           (MonadIO m, IsDocument self) => self -> m SecurityPolicy-getSecurityPolicyUnchecked self-  = liftIO-      (fromJust . 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.currentScript Mozilla Document.currentScript documentation> -getCurrentScriptUnsafe ::-                       (MonadIO m, IsDocument self, HasCallStack) =>-                         self -> m HTMLScriptElement-getCurrentScriptUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getCurrentScript (toDocument self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.currentScript Mozilla Document.currentScript documentation> -getCurrentScriptUnchecked ::-                          (MonadIO m, IsDocument self) => self -> m HTMLScriptElement-getCurrentScriptUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_getCurrentScript (toDocument self)))- -foreign import javascript unsafe "$1[\"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)))+       (js_getAnimations, getAnimations, getAnimations_, js_newDocument,+        newDocument, js_createElement, createElement, createElement_,+        js_createDocumentFragment, createDocumentFragment,+        createDocumentFragment_, js_createTextNode, createTextNode,+        createTextNode_, js_createComment, createComment, createComment_,+        js_createCDATASection, createCDATASection, createCDATASection_,+        js_createProcessingInstruction, createProcessingInstruction,+        createProcessingInstruction_, js_createAttribute, createAttribute,+        createAttribute_, js_getElementsByTagName, getElementsByTagName,+        getElementsByTagName_, js_importNode, importNode, importNode_,+        js_createElementNS, createElementNS, createElementNS_,+        js_createAttributeNS, createAttributeNS, createAttributeNS_,+        js_getElementsByTagNameNS, getElementsByTagNameNS,+        getElementsByTagNameNS_, js_adoptNode, adoptNode, adoptNode_,+        js_createEvent, createEvent, createEvent_, js_createRange,+        createRange, createRange_, js_createNodeIterator,+        createNodeIterator, createNodeIterator_, js_createTreeWalker,+        createTreeWalker, createTreeWalker_, js_getOverrideStyle,+        getOverrideStyle, getOverrideStyle_, js_createExpression,+        createExpression, createExpression_, js_createNSResolver,+        createNSResolver, createNSResolver_, js_evaluate, evaluate,+        evaluate_, js_execCommand, execCommand, execCommand_,+        js_queryCommandEnabled, queryCommandEnabled, queryCommandEnabled_,+        js_queryCommandIndeterm, queryCommandIndeterm,+        queryCommandIndeterm_, js_queryCommandState, queryCommandState,+        queryCommandState_, js_queryCommandSupported,+        queryCommandSupported, queryCommandSupported_,+        js_queryCommandValue, queryCommandValue, queryCommandValue_,+        js_getElementsByName, getElementsByName, getElementsByName_,+        js_caretRangeFromPoint, caretRangeFromPoint, caretRangeFromPoint_,+        js_getSelection, getSelection, getSelection_,+        js_getCSSCanvasContext, getCSSCanvasContext, getCSSCanvasContext_,+        js_getElementsByClassName, getElementsByClassName,+        getElementsByClassName_, js_hasFocus, hasFocus, hasFocus_,+        js_webkitCancelFullScreen, webkitCancelFullScreen,+        js_webkitExitFullscreen, webkitExitFullscreen, js_exitPointerLock,+        exitPointerLock, js_webkitGetNamedFlows, webkitGetNamedFlows,+        webkitGetNamedFlows_, js_createTouch, createTouch, createTouch_,+        js_createTouchList, createTouchList, createTouchList_,+        js_getTimeline, getTimeline, js_getDoctype, getDoctype,+        getDoctypeUnsafe, getDoctypeUnchecked, js_getImplementation,+        getImplementation, js_getDocumentElement, getDocumentElement,+        getDocumentElementUnsafe, getDocumentElementUnchecked,+        js_getInputEncoding, getInputEncoding, js_getXmlEncoding,+        getXmlEncoding, getXmlEncodingUnsafe, getXmlEncodingUnchecked,+        js_setXmlVersion, setXmlVersion, js_getXmlVersion, getXmlVersion,+        getXmlVersionUnsafe, getXmlVersionUnchecked, 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_setDir, setDir, js_getDir, getDir,+        js_setDesignMode, setDesignMode, js_getDesignMode, getDesignMode,+        js_getReferrer, getReferrer, js_setDomain, setDomain, js_getDomain,+        getDomain, js_getURL, getURL, js_setCookie, setCookie,+        js_getCookie, getCookie, js_setBody, setBody, js_getBody, getBody,+        getBodyUnsafe, getBodyUnchecked, js_getHead, getHead,+        getHeadUnsafe, getHeadUnchecked, js_getImages, getImages,+        js_getApplets, getApplets, js_getLinks, getLinks, js_getForms,+        getForms, js_getAnchors, getAnchors, js_getEmbeds, getEmbeds,+        js_getPlugins, getPlugins, js_getScripts, getScripts,+        js_getLastModified, getLastModified, js_getLocation, getLocation,+        getLocationUnsafe, getLocationUnchecked, js_getCharset, getCharset,+        js_getReadyState, getReadyState, js_getCharacterSet,+        getCharacterSet, js_getPreferredStylesheetSet,+        getPreferredStylesheetSet, getPreferredStylesheetSetUnsafe,+        getPreferredStylesheetSetUnchecked, js_setSelectedStylesheetSet,+        setSelectedStylesheetSet, js_getSelectedStylesheetSet,+        getSelectedStylesheetSet, getSelectedStylesheetSetUnsafe,+        getSelectedStylesheetSetUnchecked, js_getCompatMode, getCompatMode,+        js_getWebkitIsFullScreen, getWebkitIsFullScreen,+        js_getWebkitFullScreenKeyboardInputAllowed,+        getWebkitFullScreenKeyboardInputAllowed,+        js_getWebkitCurrentFullScreenElement,+        getWebkitCurrentFullScreenElement, js_getWebkitFullscreenEnabled,+        getWebkitFullscreenEnabled, js_getWebkitFullscreenElement,+        getWebkitFullscreenElement, getWebkitFullscreenElementUnsafe,+        getWebkitFullscreenElementUnchecked, js_getFonts, getFonts,+        js_getVisibilityState, getVisibilityState, js_getHidden, getHidden,+        visibilitychange, js_getCurrentScript, getCurrentScript,+        getCurrentScriptUnsafe, getCurrentScriptUnchecked, js_getOrigin,+        getOrigin, js_getScrollingElement, getScrollingElement,+        getScrollingElementUnsafe, getScrollingElementUnchecked,+        beforeCopy, beforeCut, beforeinput, beforePaste, copy, cut, paste,+        selectStart, webKitFullscreenChange, webKitFullscreenError,+        selectionchange, readyStateChange, pointerlockchange,+        pointerlockerror, js_getRootElement, getRootElement,+        getRootElementUnsafe, getRootElementUnchecked, Document(..),+        gTypeDocument, IsDocument, toDocument)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error)+import Data.Typeable (Typeable)+import GHCJS.Types (JSVal(..), JSString)+import GHCJS.Foreign (jsNull, jsUndefined)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Control.Monad (void)+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import Data.Maybe (fromJust)+import Data.Traversable (mapM)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"getAnimations\"]()"+        js_getAnimations :: Document -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getAnimations Mozilla Document.getAnimations documentation> +getAnimations ::+              (MonadIO m, IsDocument self) => self -> m [Animation]+getAnimations self+  = liftIO+      ((js_getAnimations (toDocument self)) >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getAnimations Mozilla Document.getAnimations documentation> +getAnimations_ :: (MonadIO m, IsDocument self) => self -> m ()+getAnimations_ self+  = liftIO (void (js_getAnimations (toDocument self)))+ +foreign import javascript unsafe "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 -> JSString -> IO Element++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createElement Mozilla Document.createElement documentation> +createElement ::+              (MonadIO m, IsDocument self, ToJSString tagName) =>+                self -> tagName -> m Element+createElement self tagName+  = liftIO (js_createElement (toDocument self) (toJSString tagName))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createElement Mozilla Document.createElement documentation> +createElement_ ::+               (MonadIO m, IsDocument self, ToJSString tagName) =>+                 self -> tagName -> m ()+createElement_ self tagName+  = liftIO+      (void (js_createElement (toDocument self) (toJSString tagName)))+ +foreign import javascript unsafe "$1[\"createDocumentFragment\"]()"+        js_createDocumentFragment :: Document -> IO DocumentFragment++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createDocumentFragment Mozilla Document.createDocumentFragment documentation> +createDocumentFragment ::+                       (MonadIO m, IsDocument self) => self -> m DocumentFragment+createDocumentFragment self+  = liftIO (js_createDocumentFragment (toDocument self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createDocumentFragment Mozilla Document.createDocumentFragment documentation> +createDocumentFragment_ ::+                        (MonadIO m, IsDocument self) => self -> m ()+createDocumentFragment_ self+  = liftIO (void (js_createDocumentFragment (toDocument self)))+ +foreign import javascript unsafe "$1[\"createTextNode\"]($2)"+        js_createTextNode :: Document -> JSString -> IO Text++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createTextNode Mozilla Document.createTextNode documentation> +createTextNode ::+               (MonadIO m, IsDocument self, ToJSString data') =>+                 self -> data' -> m Text+createTextNode self data'+  = liftIO (js_createTextNode (toDocument self) (toJSString data'))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createTextNode Mozilla Document.createTextNode documentation> +createTextNode_ ::+                (MonadIO m, IsDocument self, ToJSString data') =>+                  self -> data' -> m ()+createTextNode_ self data'+  = liftIO+      (void (js_createTextNode (toDocument self) (toJSString data')))+ +foreign import javascript unsafe "$1[\"createComment\"]($2)"+        js_createComment :: Document -> JSString -> IO Comment++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createComment Mozilla Document.createComment documentation> +createComment ::+              (MonadIO m, IsDocument self, ToJSString data') =>+                self -> data' -> m Comment+createComment self data'+  = liftIO (js_createComment (toDocument self) (toJSString data'))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createComment Mozilla Document.createComment documentation> +createComment_ ::+               (MonadIO m, IsDocument self, ToJSString data') =>+                 self -> data' -> m ()+createComment_ self data'+  = liftIO+      (void (js_createComment (toDocument self) (toJSString data')))+ +foreign import javascript unsafe "$1[\"createCDATASection\"]($2)"+        js_createCDATASection :: Document -> JSString -> IO CDATASection++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createCDATASection Mozilla Document.createCDATASection documentation> +createCDATASection ::+                   (MonadIO m, IsDocument self, ToJSString data') =>+                     self -> data' -> m CDATASection+createCDATASection self data'+  = liftIO+      (js_createCDATASection (toDocument self) (toJSString data'))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createCDATASection Mozilla Document.createCDATASection documentation> +createCDATASection_ ::+                    (MonadIO m, IsDocument self, ToJSString data') =>+                      self -> data' -> m ()+createCDATASection_ self data'+  = liftIO+      (void (js_createCDATASection (toDocument self) (toJSString data')))+ +foreign import javascript unsafe+        "$1[\"createProcessingInstruction\"]($2,\n$3)"+        js_createProcessingInstruction ::+        Document -> JSString -> JSString -> IO ProcessingInstruction++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createProcessingInstruction Mozilla Document.createProcessingInstruction documentation> +createProcessingInstruction ::+                            (MonadIO m, IsDocument self, ToJSString target,+                             ToJSString data') =>+                              self -> target -> data' -> m ProcessingInstruction+createProcessingInstruction self target data'+  = liftIO+      (js_createProcessingInstruction (toDocument self)+         (toJSString target)+         (toJSString data'))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createProcessingInstruction Mozilla Document.createProcessingInstruction documentation> +createProcessingInstruction_ ::+                             (MonadIO m, IsDocument self, ToJSString target,+                              ToJSString data') =>+                               self -> target -> data' -> m ()+createProcessingInstruction_ self target data'+  = liftIO+      (void+         (js_createProcessingInstruction (toDocument self)+            (toJSString target)+            (toJSString data')))+ +foreign import javascript unsafe "$1[\"createAttribute\"]($2)"+        js_createAttribute :: Document -> JSString -> IO Attr++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createAttribute Mozilla Document.createAttribute documentation> +createAttribute ::+                (MonadIO m, IsDocument self, ToJSString name) =>+                  self -> name -> m Attr+createAttribute self name+  = liftIO (js_createAttribute (toDocument self) (toJSString name))++-- | <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 ()+createAttribute_ self name+  = liftIO+      (void (js_createAttribute (toDocument self) (toJSString name)))+ +foreign import javascript unsafe "$1[\"getElementsByTagName\"]($2)"+        js_getElementsByTagName ::+        Document -> JSString -> IO HTMLCollection++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getElementsByTagName Mozilla Document.getElementsByTagName documentation> +getElementsByTagName ::+                     (MonadIO m, IsDocument self, ToJSString tagname) =>+                       self -> tagname -> m HTMLCollection+getElementsByTagName self tagname+  = liftIO+      (js_getElementsByTagName (toDocument self) (toJSString tagname))++-- | <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 ()+getElementsByTagName_ self tagname+  = liftIO+      (void+         (js_getElementsByTagName (toDocument self) (toJSString tagname)))+ +foreign import javascript unsafe "$1[\"importNode\"]($2, $3)"+        js_importNode :: Document -> Node -> Bool -> IO Node++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.importNode Mozilla Document.importNode documentation> +importNode ::+           (MonadIO m, IsDocument self, IsNode importedNode) =>+             self -> importedNode -> Bool -> m Node+importNode self importedNode deep+  = liftIO+      (js_importNode (toDocument self) (toNode importedNode) deep)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.importNode Mozilla Document.importNode documentation> +importNode_ ::+            (MonadIO m, IsDocument self, IsNode importedNode) =>+              self -> importedNode -> Bool -> m ()+importNode_ self importedNode deep+  = liftIO+      (void (js_importNode (toDocument self) (toNode importedNode) deep))+ +foreign import javascript unsafe "$1[\"createElementNS\"]($2, $3)"+        js_createElementNS ::+        Document -> Optional JSString -> JSString -> IO Element++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createElementNS Mozilla Document.createElementNS documentation> +createElementNS ::+                (MonadIO m, IsDocument self, ToJSString namespaceURI,+                 ToJSString qualifiedName) =>+                  self -> Maybe namespaceURI -> qualifiedName -> m Element+createElementNS self namespaceURI qualifiedName+  = liftIO+      (js_createElementNS (toDocument self)+         (toOptionalJSString namespaceURI)+         (toJSString qualifiedName))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createElementNS Mozilla Document.createElementNS documentation> +createElementNS_ ::+                 (MonadIO m, IsDocument self, ToJSString namespaceURI,+                  ToJSString qualifiedName) =>+                   self -> Maybe namespaceURI -> qualifiedName -> m ()+createElementNS_ self namespaceURI qualifiedName+  = liftIO+      (void+         (js_createElementNS (toDocument self)+            (toOptionalJSString namespaceURI)+            (toJSString qualifiedName)))+ +foreign import javascript unsafe+        "$1[\"createAttributeNS\"]($2, $3)" js_createAttributeNS ::+        Document -> Optional JSString -> JSString -> IO Attr++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createAttributeNS Mozilla Document.createAttributeNS documentation> +createAttributeNS ::+                  (MonadIO m, IsDocument self, ToJSString namespaceURI,+                   ToJSString qualifiedName) =>+                    self -> Maybe namespaceURI -> qualifiedName -> m Attr+createAttributeNS self namespaceURI qualifiedName+  = liftIO+      (js_createAttributeNS (toDocument self)+         (toOptionalJSString namespaceURI)+         (toJSString qualifiedName))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createAttributeNS Mozilla Document.createAttributeNS documentation> +createAttributeNS_ ::+                   (MonadIO m, IsDocument self, ToJSString namespaceURI,+                    ToJSString qualifiedName) =>+                     self -> Maybe namespaceURI -> qualifiedName -> m ()+createAttributeNS_ self namespaceURI qualifiedName+  = liftIO+      (void+         (js_createAttributeNS (toDocument self)+            (toOptionalJSString namespaceURI)+            (toJSString qualifiedName)))+ +foreign import javascript unsafe+        "$1[\"getElementsByTagNameNS\"]($2,\n$3)" js_getElementsByTagNameNS+        :: Document -> Optional JSString -> JSString -> IO HTMLCollection++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getElementsByTagNameNS Mozilla Document.getElementsByTagNameNS documentation> +getElementsByTagNameNS ::+                       (MonadIO m, IsDocument self, ToJSString namespaceURI,+                        ToJSString localName) =>+                         self -> Maybe namespaceURI -> localName -> m HTMLCollection+getElementsByTagNameNS self namespaceURI localName+  = liftIO+      (js_getElementsByTagNameNS (toDocument self)+         (toOptionalJSString namespaceURI)+         (toJSString localName))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getElementsByTagNameNS Mozilla Document.getElementsByTagNameNS documentation> +getElementsByTagNameNS_ ::+                        (MonadIO m, IsDocument self, ToJSString namespaceURI,+                         ToJSString localName) =>+                          self -> Maybe namespaceURI -> localName -> m ()+getElementsByTagNameNS_ self namespaceURI localName+  = liftIO+      (void+         (js_getElementsByTagNameNS (toDocument self)+            (toOptionalJSString namespaceURI)+            (toJSString localName)))+ +foreign import javascript unsafe "$1[\"adoptNode\"]($2)"+        js_adoptNode :: Document -> Node -> IO Node++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.adoptNode Mozilla Document.adoptNode documentation> +adoptNode ::+          (MonadIO m, IsDocument self, IsNode source) =>+            self -> source -> m Node+adoptNode self source+  = liftIO (js_adoptNode (toDocument self) (toNode source))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.adoptNode Mozilla Document.adoptNode documentation> +adoptNode_ ::+           (MonadIO m, IsDocument self, IsNode source) =>+             self -> source -> m ()+adoptNode_ self source+  = liftIO (void (js_adoptNode (toDocument self) (toNode source)))+ +foreign import javascript unsafe "$1[\"createEvent\"]($2)"+        js_createEvent :: Document -> JSString -> IO Event++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createEvent Mozilla Document.createEvent documentation> +createEvent ::+            (MonadIO m, IsDocument self, ToJSString eventType) =>+              self -> eventType -> m Event+createEvent self eventType+  = liftIO (js_createEvent (toDocument self) (toJSString eventType))++-- | <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 ()+createEvent_ self eventType+  = liftIO+      (void (js_createEvent (toDocument self) (toJSString eventType)))+ +foreign import javascript unsafe "$1[\"createRange\"]()"+        js_createRange :: Document -> IO Range++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createRange Mozilla Document.createRange documentation> +createRange :: (MonadIO m, IsDocument self) => self -> m Range+createRange self = liftIO (js_createRange (toDocument self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createRange Mozilla Document.createRange documentation> +createRange_ :: (MonadIO m, IsDocument self) => self -> m ()+createRange_ self+  = liftIO (void (js_createRange (toDocument self)))+ +foreign import javascript unsafe+        "$1[\"createNodeIterator\"]($2, $3,\n$4)" js_createNodeIterator ::+        Document ->+          Node -> Optional Word -> Optional NodeFilter -> IO NodeIterator++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createNodeIterator Mozilla Document.createNodeIterator documentation> +createNodeIterator ::+                   (MonadIO m, IsDocument self, IsNode root) =>+                     self -> root -> Maybe Word -> Maybe NodeFilter -> m NodeIterator+createNodeIterator self root whatToShow filter+  = liftIO+      (js_createNodeIterator (toDocument self) (toNode root)+         (maybeToOptional whatToShow)+         (maybeToOptional filter))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createNodeIterator Mozilla Document.createNodeIterator documentation> +createNodeIterator_ ::+                    (MonadIO m, IsDocument self, IsNode root) =>+                      self -> root -> Maybe Word -> Maybe NodeFilter -> m ()+createNodeIterator_ self root whatToShow filter+  = liftIO+      (void+         (js_createNodeIterator (toDocument self) (toNode root)+            (maybeToOptional whatToShow)+            (maybeToOptional filter)))+ +foreign import javascript unsafe+        "$1[\"createTreeWalker\"]($2, $3,\n$4)" js_createTreeWalker ::+        Document ->+          Node -> Optional Word -> Optional NodeFilter -> IO TreeWalker++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createTreeWalker Mozilla Document.createTreeWalker documentation> +createTreeWalker ::+                 (MonadIO m, IsDocument self, IsNode root) =>+                   self -> root -> Maybe Word -> Maybe NodeFilter -> m TreeWalker+createTreeWalker self root whatToShow filter+  = liftIO+      (js_createTreeWalker (toDocument self) (toNode root)+         (maybeToOptional whatToShow)+         (maybeToOptional filter))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createTreeWalker Mozilla Document.createTreeWalker documentation> +createTreeWalker_ ::+                  (MonadIO m, IsDocument self, IsNode root) =>+                    self -> root -> Maybe Word -> Maybe NodeFilter -> m ()+createTreeWalker_ self root whatToShow filter+  = liftIO+      (void+         (js_createTreeWalker (toDocument self) (toNode root)+            (maybeToOptional whatToShow)+            (maybeToOptional filter)))+ +foreign import javascript unsafe "$1[\"getOverrideStyle\"]($2, $3)"+        js_getOverrideStyle ::+        Document ->+          Optional Element -> Optional JSString -> IO CSSStyleDeclaration++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getOverrideStyle Mozilla Document.getOverrideStyle documentation> +getOverrideStyle ::+                 (MonadIO m, IsDocument self, IsElement element,+                  ToJSString pseudoElement) =>+                   self ->+                     Maybe element -> Maybe pseudoElement -> m CSSStyleDeclaration+getOverrideStyle self element pseudoElement+  = liftIO+      (js_getOverrideStyle (toDocument self)+         (maybeToOptional (fmap toElement element))+         (toOptionalJSString pseudoElement))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getOverrideStyle Mozilla Document.getOverrideStyle documentation> +getOverrideStyle_ ::+                  (MonadIO m, IsDocument self, IsElement element,+                   ToJSString pseudoElement) =>+                    self -> Maybe element -> Maybe pseudoElement -> m ()+getOverrideStyle_ self element pseudoElement+  = liftIO+      (void+         (js_getOverrideStyle (toDocument self)+            (maybeToOptional (fmap toElement element))+            (toOptionalJSString pseudoElement)))+ +foreign import javascript unsafe "$1[\"createExpression\"]($2, $3)"+        js_createExpression ::+        Document ->+          Optional JSString -> Optional XPathNSResolver -> IO XPathExpression++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createExpression Mozilla Document.createExpression documentation> +createExpression ::+                 (MonadIO m, IsDocument self, ToJSString expression) =>+                   self ->+                     Maybe expression -> Maybe XPathNSResolver -> m XPathExpression+createExpression self expression resolver+  = liftIO+      (js_createExpression (toDocument self)+         (toOptionalJSString expression)+         (maybeToOptional resolver))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createExpression Mozilla Document.createExpression documentation> +createExpression_ ::+                  (MonadIO m, IsDocument self, ToJSString expression) =>+                    self -> Maybe expression -> Maybe XPathNSResolver -> m ()+createExpression_ self expression resolver+  = liftIO+      (void+         (js_createExpression (toDocument self)+            (toOptionalJSString expression)+            (maybeToOptional resolver)))+ +foreign import javascript unsafe "$1[\"createNSResolver\"]($2)"+        js_createNSResolver ::+        Document -> Optional Node -> IO XPathNSResolver++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createNSResolver Mozilla Document.createNSResolver documentation> +createNSResolver ::+                 (MonadIO m, IsDocument self, IsNode nodeResolver) =>+                   self -> Maybe nodeResolver -> m XPathNSResolver+createNSResolver self nodeResolver+  = liftIO+      (js_createNSResolver (toDocument self)+         (maybeToOptional (fmap toNode nodeResolver)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createNSResolver Mozilla Document.createNSResolver documentation> +createNSResolver_ ::+                  (MonadIO m, IsDocument self, IsNode nodeResolver) =>+                    self -> Maybe nodeResolver -> m ()+createNSResolver_ self nodeResolver+  = liftIO+      (void+         (js_createNSResolver (toDocument self)+            (maybeToOptional (fmap toNode nodeResolver))))+ +foreign import javascript unsafe+        "$1[\"evaluate\"]($2, $3, $4, $5,\n$6)" js_evaluate ::+        Document ->+          Optional JSString ->+            Optional Node ->+              Optional XPathNSResolver ->+                Optional Word -> Optional XPathResult -> IO XPathResult++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.evaluate Mozilla Document.evaluate documentation> +evaluate ::+         (MonadIO m, IsDocument self, ToJSString expression,+          IsNode contextNode) =>+           self ->+             Maybe expression ->+               Maybe contextNode ->+                 Maybe XPathNSResolver ->+                   Maybe Word -> Maybe XPathResult -> m XPathResult+evaluate self expression contextNode resolver type' inResult+  = liftIO+      (js_evaluate (toDocument self) (toOptionalJSString expression)+         (maybeToOptional (fmap toNode contextNode))+         (maybeToOptional resolver)+         (maybeToOptional type')+         (maybeToOptional inResult))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.evaluate Mozilla Document.evaluate documentation> +evaluate_ ::+          (MonadIO m, IsDocument self, ToJSString expression,+           IsNode contextNode) =>+            self ->+              Maybe expression ->+                Maybe contextNode ->+                  Maybe XPathNSResolver -> Maybe Word -> Maybe XPathResult -> m ()+evaluate_ self expression contextNode resolver type' inResult+  = liftIO+      (void+         (js_evaluate (toDocument self) (toOptionalJSString expression)+            (maybeToOptional (fmap toNode contextNode))+            (maybeToOptional resolver)+            (maybeToOptional type')+            (maybeToOptional inResult)))+ +foreign import javascript unsafe+        "($1[\"execCommand\"]($2, $3,\n$4) ? 1 : 0)" js_execCommand ::+        Document -> JSString -> Bool -> Optional JSString -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.execCommand Mozilla Document.execCommand documentation> +execCommand ::+            (MonadIO m, IsDocument self, ToJSString command,+             ToJSString value) =>+              self -> command -> Bool -> Maybe value -> m Bool+execCommand self command userInterface value+  = liftIO+      (js_execCommand (toDocument self) (toJSString command)+         userInterface+         (toOptionalJSString value))++-- | <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 ()+execCommand_ self command userInterface value+  = liftIO+      (void+         (js_execCommand (toDocument self) (toJSString command)+            userInterface+            (toOptionalJSString 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))++-- | <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 ()+queryCommandEnabled_ self command+  = liftIO+      (void+         (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))++-- | <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 ()+queryCommandIndeterm_ self command+  = liftIO+      (void+         (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))++-- | <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 ()+queryCommandState_ self command+  = liftIO+      (void+         (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))++-- | <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 ()+queryCommandSupported_ self command+  = liftIO+      (void+         (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)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.queryCommandValue Mozilla Document.queryCommandValue documentation> +queryCommandValue_ ::+                   (MonadIO m, IsDocument self, ToJSString command) =>+                     self -> command -> m ()+queryCommandValue_ self command+  = liftIO+      (void+         (js_queryCommandValue (toDocument self) (toJSString command)))+ +foreign import javascript unsafe "$1[\"getElementsByName\"]($2)"+        js_getElementsByName :: Document -> JSString -> IO NodeList++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getElementsByName Mozilla Document.getElementsByName documentation> +getElementsByName ::+                  (MonadIO m, IsDocument self, ToJSString elementName) =>+                    self -> elementName -> m NodeList+getElementsByName self elementName+  = liftIO+      (js_getElementsByName (toDocument self) (toJSString elementName))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getElementsByName Mozilla Document.getElementsByName documentation> +getElementsByName_ ::+                   (MonadIO m, IsDocument self, ToJSString elementName) =>+                     self -> elementName -> m ()+getElementsByName_ self elementName+  = liftIO+      (void+         (js_getElementsByName (toDocument self) (toJSString elementName)))+ +foreign import javascript unsafe+        "$1[\"caretRangeFromPoint\"]($2,\n$3)" js_caretRangeFromPoint ::+        Document -> Optional Int -> Optional Int -> IO Range++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.caretRangeFromPoint Mozilla Document.caretRangeFromPoint documentation> +caretRangeFromPoint ::+                    (MonadIO m, IsDocument self) =>+                      self -> Maybe Int -> Maybe Int -> m Range+caretRangeFromPoint self x y+  = liftIO+      (js_caretRangeFromPoint (toDocument self) (maybeToOptional x)+         (maybeToOptional y))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.caretRangeFromPoint Mozilla Document.caretRangeFromPoint documentation> +caretRangeFromPoint_ ::+                     (MonadIO m, IsDocument self) =>+                       self -> Maybe Int -> Maybe Int -> m ()+caretRangeFromPoint_ self x y+  = liftIO+      (void+         (js_caretRangeFromPoint (toDocument self) (maybeToOptional x)+            (maybeToOptional y)))+ +foreign import javascript unsafe "$1[\"getSelection\"]()"+        js_getSelection :: Document -> IO Selection++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getSelection Mozilla Document.getSelection documentation> +getSelection :: (MonadIO m, IsDocument self) => self -> m Selection+getSelection self = liftIO (js_getSelection (toDocument self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getSelection Mozilla Document.getSelection documentation> +getSelection_ :: (MonadIO m, IsDocument self) => self -> m ()+getSelection_ self+  = liftIO (void (js_getSelection (toDocument self)))+ +foreign import javascript unsafe+        "$1[\"getCSSCanvasContext\"]($2,\n$3, $4, $5)"+        js_getCSSCanvasContext ::+        Document ->+          JSString -> JSString -> Int -> Int -> IO RenderingContext++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getCSSCanvasContext Mozilla Document.getCSSCanvasContext documentation> +getCSSCanvasContext ::+                    (MonadIO m, IsDocument self, ToJSString contextId,+                     ToJSString name) =>+                      self -> contextId -> name -> Int -> Int -> m RenderingContext+getCSSCanvasContext self contextId name width height+  = liftIO+      (js_getCSSCanvasContext (toDocument self) (toJSString contextId)+         (toJSString name)+         width+         height)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getCSSCanvasContext Mozilla Document.getCSSCanvasContext documentation> +getCSSCanvasContext_ ::+                     (MonadIO m, IsDocument self, ToJSString contextId,+                      ToJSString name) =>+                       self -> contextId -> name -> Int -> Int -> m ()+getCSSCanvasContext_ self contextId name width height+  = liftIO+      (void+         (js_getCSSCanvasContext (toDocument self) (toJSString contextId)+            (toJSString name)+            width+            height))+ +foreign import javascript unsafe+        "$1[\"getElementsByClassName\"]($2)" js_getElementsByClassName ::+        Document -> JSString -> IO HTMLCollection++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getElementsByClassName Mozilla Document.getElementsByClassName documentation> +getElementsByClassName ::+                       (MonadIO m, IsDocument self, ToJSString classNames) =>+                         self -> classNames -> m HTMLCollection+getElementsByClassName self classNames+  = liftIO+      (js_getElementsByClassName (toDocument self)+         (toJSString classNames))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getElementsByClassName Mozilla Document.getElementsByClassName documentation> +getElementsByClassName_ ::+                        (MonadIO m, IsDocument self, ToJSString classNames) =>+                          self -> classNames -> m ()+getElementsByClassName_ self classNames+  = liftIO+      (void+         (js_getElementsByClassName (toDocument self)+            (toJSString classNames)))+ +foreign import javascript 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))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.hasFocus Mozilla Document.hasFocus documentation> +hasFocus_ :: (MonadIO m, IsDocument self) => self -> m ()+hasFocus_ self = liftIO (void (js_hasFocus (toDocument self)))+ +foreign import javascript unsafe "$1[\"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 DOMNamedFlowCollection++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.webkitGetNamedFlows Mozilla Document.webkitGetNamedFlows documentation> +webkitGetNamedFlows ::+                    (MonadIO m, IsDocument self) => self -> m DOMNamedFlowCollection+webkitGetNamedFlows self+  = liftIO (js_webkitGetNamedFlows (toDocument self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.webkitGetNamedFlows Mozilla Document.webkitGetNamedFlows documentation> +webkitGetNamedFlows_ ::+                     (MonadIO m, IsDocument self) => self -> m ()+webkitGetNamedFlows_ self+  = liftIO (void (js_webkitGetNamedFlows (toDocument self)))+ +foreign import javascript unsafe+        "$1[\"createTouch\"]($2, $3, $4,\n$5, $6, $7, $8, $9, $10, $11,\n$12)"+        js_createTouch ::+        Document ->+          Optional Window ->+            Optional EventTarget ->+              Optional Int ->+                Optional Int ->+                  Optional Int ->+                    Optional Int ->+                      Optional Int ->+                        Optional Int ->+                          Optional Int -> Optional Float -> Optional Float -> IO Touch++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createTouch Mozilla Document.createTouch documentation> +createTouch ::+            (MonadIO m, IsDocument self, IsEventTarget target) =>+              self ->+                Maybe Window ->+                  Maybe target ->+                    Maybe Int ->+                      Maybe Int ->+                        Maybe Int ->+                          Maybe Int ->+                            Maybe Int ->+                              Maybe Int -> Maybe Int -> Maybe Float -> Maybe Float -> m Touch+createTouch self window target identifier pageX pageY screenX+  screenY webkitRadiusX webkitRadiusY webkitRotationAngle webkitForce+  = liftIO+      (js_createTouch (toDocument self) (maybeToOptional window)+         (maybeToOptional (fmap toEventTarget target))+         (maybeToOptional identifier)+         (maybeToOptional pageX)+         (maybeToOptional pageY)+         (maybeToOptional screenX)+         (maybeToOptional screenY)+         (maybeToOptional webkitRadiusX)+         (maybeToOptional webkitRadiusY)+         (maybeToOptional webkitRotationAngle)+         (maybeToOptional webkitForce))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createTouch Mozilla Document.createTouch documentation> +createTouch_ ::+             (MonadIO m, IsDocument self, IsEventTarget target) =>+               self ->+                 Maybe Window ->+                   Maybe target ->+                     Maybe Int ->+                       Maybe Int ->+                         Maybe Int ->+                           Maybe Int ->+                             Maybe Int ->+                               Maybe Int -> Maybe Int -> Maybe Float -> Maybe Float -> m ()+createTouch_ self window target identifier pageX pageY screenX+  screenY webkitRadiusX webkitRadiusY webkitRotationAngle webkitForce+  = liftIO+      (void+         (js_createTouch (toDocument self) (maybeToOptional window)+            (maybeToOptional (fmap toEventTarget target))+            (maybeToOptional identifier)+            (maybeToOptional pageX)+            (maybeToOptional pageY)+            (maybeToOptional screenX)+            (maybeToOptional screenY)+            (maybeToOptional webkitRadiusX)+            (maybeToOptional webkitRadiusY)+            (maybeToOptional webkitRotationAngle)+            (maybeToOptional webkitForce)))+ +foreign import javascript unsafe "$1[\"createTouchList\"]($2)"+        js_createTouchList :: Document -> JSVal -> IO TouchList++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createTouchList Mozilla Document.createTouchList documentation> +createTouchList ::+                (MonadIO m, IsDocument self) => self -> [Touch] -> m TouchList+createTouchList self touches+  = liftIO+      (toJSVal touches >>=+         \ touches' -> js_createTouchList (toDocument self) touches')++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createTouchList Mozilla Document.createTouchList documentation> +createTouchList_ ::+                 (MonadIO m, IsDocument self) => self -> [Touch] -> m ()+createTouchList_ self touches+  = liftIO+      (void+         (toJSVal touches >>=+            \ touches' -> js_createTouchList (toDocument self) touches'))+ +foreign import javascript unsafe "$1[\"timeline\"]" js_getTimeline+        :: Document -> IO DocumentTimeline++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.timeline Mozilla Document.timeline documentation> +getTimeline ::+            (MonadIO m, IsDocument self) => self -> m DocumentTimeline+getTimeline self = liftIO (js_getTimeline (toDocument self))+ +foreign import javascript unsafe "$1[\"doctype\"]" js_getDoctype ::+        Document -> IO (Nullable DocumentType)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.doctype Mozilla Document.doctype documentation> +getDoctype ::+           (MonadIO m, IsDocument self) => self -> m (Maybe DocumentType)+getDoctype self+  = liftIO (nullableToMaybe <$> (js_getDoctype (toDocument self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.doctype Mozilla Document.doctype documentation> +getDoctypeUnsafe ::+                 (MonadIO m, IsDocument self, HasCallStack) =>+                   self -> m DocumentType+getDoctypeUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getDoctype (toDocument self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.doctype Mozilla Document.doctype documentation> +getDoctypeUnchecked ::+                    (MonadIO m, IsDocument self) => self -> m DocumentType+getDoctypeUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getDoctype (toDocument self)))+ +foreign import javascript unsafe "$1[\"implementation\"]"+        js_getImplementation :: Document -> IO DOMImplementation++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.implementation Mozilla Document.implementation documentation> +getImplementation ::+                  (MonadIO m, IsDocument self) => self -> m DOMImplementation+getImplementation self+  = liftIO (js_getImplementation (toDocument self))+ +foreign import javascript unsafe "$1[\"documentElement\"]"+        js_getDocumentElement :: Document -> IO (Nullable Element)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.documentElement Mozilla Document.documentElement documentation> +getDocumentElement ::+                   (MonadIO m, IsDocument self) => self -> m (Maybe Element)+getDocumentElement self+  = liftIO+      (nullableToMaybe <$> (js_getDocumentElement (toDocument self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.documentElement Mozilla Document.documentElement documentation> +getDocumentElementUnsafe ::+                         (MonadIO m, IsDocument self, HasCallStack) => self -> m Element+getDocumentElementUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getDocumentElement (toDocument self)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.documentElement Mozilla Document.documentElement documentation> +getDocumentElementUnchecked ::+                            (MonadIO m, IsDocument self) => self -> m Element+getDocumentElementUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getDocumentElement (toDocument self)))+ +foreign import javascript unsafe "$1[\"inputEncoding\"]"+        js_getInputEncoding :: Document -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.inputEncoding Mozilla Document.inputEncoding documentation> +getInputEncoding ::+                 (MonadIO m, IsDocument self, FromJSString result) =>+                   self -> m result+getInputEncoding self+  = liftIO (fromJSString <$> (js_getInputEncoding (toDocument self)))+ +foreign import javascript unsafe "$1[\"xmlEncoding\"]"+        js_getXmlEncoding :: Document -> IO (Nullable JSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.xmlEncoding Mozilla Document.xmlEncoding documentation> +getXmlEncoding ::+               (MonadIO m, IsDocument self, FromJSString result) =>+                 self -> m (Maybe result)+getXmlEncoding self+  = liftIO+      (fromMaybeJSString <$> (js_getXmlEncoding (toDocument self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.xmlEncoding Mozilla Document.xmlEncoding documentation> +getXmlEncodingUnsafe ::+                     (MonadIO m, IsDocument self, HasCallStack, FromJSString result) =>+                       self -> m result+getXmlEncodingUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getXmlEncoding (toDocument self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.xmlEncoding Mozilla Document.xmlEncoding documentation> +getXmlEncodingUnchecked ::+                        (MonadIO m, IsDocument self, FromJSString result) =>+                          self -> m result+getXmlEncodingUnchecked self+  = liftIO+      (fromJust . fromMaybeJSString <$>+         (js_getXmlEncoding (toDocument self)))+ +foreign import javascript unsafe "$1[\"xmlVersion\"] = $2;"+        js_setXmlVersion :: Document -> Optional JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.xmlVersion Mozilla Document.xmlVersion documentation> +setXmlVersion ::+              (MonadIO m, IsDocument self, ToJSString val) =>+                self -> Maybe val -> m ()+setXmlVersion self val+  = liftIO+      (js_setXmlVersion (toDocument self) (toOptionalJSString val))+ +foreign import javascript unsafe "$1[\"xmlVersion\"]"+        js_getXmlVersion :: Document -> IO (Nullable JSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.xmlVersion Mozilla Document.xmlVersion documentation> +getXmlVersion ::+              (MonadIO m, IsDocument self, FromJSString result) =>+                self -> m (Maybe result)+getXmlVersion self+  = liftIO+      (fromMaybeJSString <$> (js_getXmlVersion (toDocument self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.xmlVersion Mozilla Document.xmlVersion documentation> +getXmlVersionUnsafe ::+                    (MonadIO m, IsDocument self, HasCallStack, FromJSString result) =>+                      self -> m result+getXmlVersionUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getXmlVersion (toDocument self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.xmlVersion Mozilla Document.xmlVersion documentation> +getXmlVersionUnchecked ::+                       (MonadIO m, IsDocument self, FromJSString result) =>+                         self -> m result+getXmlVersionUnchecked self+  = liftIO+      (fromJust . fromMaybeJSString <$>+         (js_getXmlVersion (toDocument self)))+ +foreign import javascript unsafe "$1[\"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 JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.documentURI Mozilla Document.documentURI documentation> +getDocumentURI ::+               (MonadIO m, IsDocument self, FromJSString result) =>+                 self -> m result+getDocumentURI self+  = liftIO (fromJSString <$> (js_getDocumentURI (toDocument self)))+ +foreign import javascript unsafe "$1[\"defaultView\"]"+        js_getDefaultView :: Document -> IO Window++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.defaultView Mozilla Document.defaultView documentation> +getDefaultView :: (MonadIO m, IsDocument self) => self -> m Window+getDefaultView self = liftIO (js_getDefaultView (toDocument self))+ +foreign import javascript unsafe "$1[\"styleSheets\"]"+        js_getStyleSheets :: Document -> IO StyleSheetList++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.styleSheets Mozilla Document.styleSheets documentation> +getStyleSheets ::+               (MonadIO m, IsDocument self) => self -> m StyleSheetList+getStyleSheets self = liftIO (js_getStyleSheets (toDocument self))+ +foreign import javascript unsafe "$1[\"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 -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.title Mozilla Document.title documentation> +setTitle ::+         (MonadIO m, IsDocument self, ToJSString val) => self -> val -> m ()+setTitle self val+  = liftIO (js_setTitle (toDocument self) (toJSString val))+ +foreign import javascript unsafe "$1[\"title\"]" js_getTitle ::+        Document -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.title Mozilla Document.title documentation> +getTitle ::+         (MonadIO m, IsDocument self, FromJSString result) =>+           self -> m result+getTitle self+  = liftIO (fromJSString <$> (js_getTitle (toDocument self)))+ +foreign import javascript unsafe "$1[\"dir\"] = $2;" js_setDir ::+        Document -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.dir Mozilla Document.dir documentation> +setDir ::+       (MonadIO m, IsDocument self, ToJSString val) => self -> val -> m ()+setDir self val+  = liftIO (js_setDir (toDocument self) (toJSString val))+ +foreign import javascript unsafe "$1[\"dir\"]" js_getDir ::+        Document -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.dir Mozilla Document.dir documentation> +getDir ::+       (MonadIO m, IsDocument self, FromJSString result) =>+         self -> m result+getDir self+  = liftIO (fromJSString <$> (js_getDir (toDocument self)))+ +foreign import javascript unsafe "$1[\"designMode\"] = $2;"+        js_setDesignMode :: Document -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.designMode Mozilla Document.designMode documentation> +setDesignMode ::+              (MonadIO m, IsDocument self, ToJSString val) => self -> val -> m ()+setDesignMode self val+  = liftIO (js_setDesignMode (toDocument self) (toJSString val))+ +foreign import javascript unsafe "$1[\"designMode\"]"+        js_getDesignMode :: Document -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.designMode Mozilla Document.designMode documentation> +getDesignMode ::+              (MonadIO m, IsDocument self, FromJSString result) =>+                self -> m result+getDesignMode self+  = liftIO (fromJSString <$> (js_getDesignMode (toDocument self)))+ +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 -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.domain Mozilla Document.domain documentation> +setDomain ::+          (MonadIO m, IsDocument self, ToJSString val) => self -> val -> m ()+setDomain self val+  = liftIO (js_setDomain (toDocument self) (toJSString val))+ +foreign import javascript unsafe "$1[\"domain\"]" js_getDomain ::+        Document -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.domain Mozilla Document.domain documentation> +getDomain ::+          (MonadIO m, IsDocument self, FromJSString result) =>+            self -> m result+getDomain self+  = liftIO (fromJSString <$> (js_getDomain (toDocument self)))+ +foreign import javascript unsafe "$1[\"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 -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.cookie Mozilla Document.cookie documentation> +setCookie ::+          (MonadIO m, IsDocument self, ToJSString val) => self -> val -> m ()+setCookie self val+  = liftIO (js_setCookie (toDocument self) (toJSString val))+ +foreign import javascript unsafe "$1[\"cookie\"]" js_getCookie ::+        Document -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.cookie Mozilla Document.cookie documentation> +getCookie ::+          (MonadIO m, IsDocument self, FromJSString result) =>+            self -> m result+getCookie self+  = liftIO (fromJSString <$> (js_getCookie (toDocument self)))+ +foreign import javascript unsafe "$1[\"body\"] = $2;" js_setBody ::+        Document -> Optional HTMLElement -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.body Mozilla Document.body documentation> +setBody ::+        (MonadIO m, IsDocument self, IsHTMLElement val) =>+          self -> Maybe val -> m ()+setBody self val+  = liftIO+      (js_setBody (toDocument self)+         (maybeToOptional (fmap toHTMLElement val)))+ +foreign import javascript unsafe "$1[\"body\"]" js_getBody ::+        Document -> IO (Nullable HTMLElement)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.body Mozilla Document.body documentation> +getBody ::+        (MonadIO m, IsDocument self) => self -> m (Maybe HTMLElement)+getBody self+  = liftIO (nullableToMaybe <$> (js_getBody (toDocument self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.body Mozilla Document.body documentation> +getBodyUnsafe ::+              (MonadIO m, IsDocument self, HasCallStack) => self -> m HTMLElement+getBodyUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getBody (toDocument self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.body Mozilla Document.body documentation> +getBodyUnchecked ::+                 (MonadIO m, IsDocument self) => self -> m HTMLElement+getBodyUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getBody (toDocument self)))+ +foreign import javascript unsafe "$1[\"head\"]" js_getHead ::+        Document -> IO (Nullable HTMLHeadElement)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.head Mozilla Document.head documentation> +getHead ::+        (MonadIO m, IsDocument self) => self -> m (Maybe HTMLHeadElement)+getHead self+  = liftIO (nullableToMaybe <$> (js_getHead (toDocument self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.head Mozilla Document.head documentation> +getHeadUnsafe ::+              (MonadIO m, IsDocument self, HasCallStack) =>+                self -> m HTMLHeadElement+getHeadUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getHead (toDocument self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.head Mozilla Document.head documentation> +getHeadUnchecked ::+                 (MonadIO m, IsDocument self) => self -> m HTMLHeadElement+getHeadUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getHead (toDocument self)))+ +foreign import javascript unsafe "$1[\"images\"]" js_getImages ::+        Document -> IO HTMLCollection++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.images Mozilla Document.images documentation> +getImages ::+          (MonadIO m, IsDocument self) => self -> m HTMLCollection+getImages self = liftIO (js_getImages (toDocument self))+ +foreign import javascript unsafe "$1[\"applets\"]" js_getApplets ::+        Document -> IO HTMLCollection++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.applets Mozilla Document.applets documentation> +getApplets ::+           (MonadIO m, IsDocument self) => self -> m HTMLCollection+getApplets self = liftIO (js_getApplets (toDocument self))+ +foreign import javascript unsafe "$1[\"links\"]" js_getLinks ::+        Document -> IO HTMLCollection++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.links Mozilla Document.links documentation> +getLinks ::+         (MonadIO m, IsDocument self) => self -> m HTMLCollection+getLinks self = liftIO (js_getLinks (toDocument self))+ +foreign import javascript unsafe "$1[\"forms\"]" js_getForms ::+        Document -> IO HTMLCollection++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.forms Mozilla Document.forms documentation> +getForms ::+         (MonadIO m, IsDocument self) => self -> m HTMLCollection+getForms self = liftIO (js_getForms (toDocument self))+ +foreign import javascript unsafe "$1[\"anchors\"]" js_getAnchors ::+        Document -> IO HTMLCollection++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.anchors Mozilla Document.anchors documentation> +getAnchors ::+           (MonadIO m, IsDocument self) => self -> m HTMLCollection+getAnchors self = liftIO (js_getAnchors (toDocument self))+ +foreign import javascript unsafe "$1[\"embeds\"]" js_getEmbeds ::+        Document -> IO HTMLCollection++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.embeds Mozilla Document.embeds documentation> +getEmbeds ::+          (MonadIO m, IsDocument self) => self -> m HTMLCollection+getEmbeds self = liftIO (js_getEmbeds (toDocument self))+ +foreign import javascript unsafe "$1[\"plugins\"]" js_getPlugins ::+        Document -> IO HTMLCollection++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.plugins Mozilla Document.plugins documentation> +getPlugins ::+           (MonadIO m, IsDocument self) => self -> m HTMLCollection+getPlugins self = liftIO (js_getPlugins (toDocument self))+ +foreign import javascript unsafe "$1[\"scripts\"]" js_getScripts ::+        Document -> IO HTMLCollection++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.scripts Mozilla Document.scripts documentation> +getScripts ::+           (MonadIO m, IsDocument self) => self -> m HTMLCollection+getScripts self = liftIO (js_getScripts (toDocument self))+ +foreign import javascript unsafe "$1[\"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\"]" js_getLocation+        :: Document -> IO (Nullable Location)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.location Mozilla Document.location documentation> +getLocation ::+            (MonadIO m, IsDocument self) => self -> m (Maybe Location)+getLocation self+  = liftIO (nullableToMaybe <$> (js_getLocation (toDocument self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.location Mozilla Document.location documentation> +getLocationUnsafe ::+                  (MonadIO m, IsDocument self, HasCallStack) => self -> m Location+getLocationUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getLocation (toDocument self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.location Mozilla Document.location documentation> +getLocationUnchecked ::+                     (MonadIO m, IsDocument self) => self -> m Location+getLocationUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getLocation (toDocument self)))+ +foreign import javascript unsafe "$1[\"charset\"]" js_getCharset ::+        Document -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.charset Mozilla Document.charset documentation> +getCharset ::+           (MonadIO m, IsDocument self, FromJSString result) =>+             self -> m result+getCharset self+  = liftIO (fromJSString <$> (js_getCharset (toDocument self)))+ +foreign import javascript unsafe "$1[\"readyState\"]"+        js_getReadyState :: Document -> IO 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 result+getReadyState self+  = liftIO (fromJSString <$> (js_getReadyState (toDocument self)))+ +foreign import javascript unsafe "$1[\"characterSet\"]"+        js_getCharacterSet :: Document -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.characterSet Mozilla Document.characterSet documentation> +getCharacterSet ::+                (MonadIO m, IsDocument self, FromJSString result) =>+                  self -> m result+getCharacterSet self+  = liftIO (fromJSString <$> (js_getCharacterSet (toDocument self)))+ +foreign import javascript unsafe "$1[\"preferredStylesheetSet\"]"+        js_getPreferredStylesheetSet :: Document -> IO (Nullable JSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.preferredStylesheetSet Mozilla Document.preferredStylesheetSet documentation> +getPreferredStylesheetSet ::+                          (MonadIO m, IsDocument self, FromJSString result) =>+                            self -> m (Maybe result)+getPreferredStylesheetSet self+  = liftIO+      (fromMaybeJSString <$>+         (js_getPreferredStylesheetSet (toDocument self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.preferredStylesheetSet Mozilla Document.preferredStylesheetSet documentation> +getPreferredStylesheetSetUnsafe ::+                                (MonadIO m, IsDocument self, HasCallStack, FromJSString result) =>+                                  self -> m result+getPreferredStylesheetSetUnsafe self+  = liftIO+      ((fromMaybeJSString <$>+          (js_getPreferredStylesheetSet (toDocument self)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.preferredStylesheetSet Mozilla Document.preferredStylesheetSet documentation> +getPreferredStylesheetSetUnchecked ::+                                   (MonadIO m, IsDocument self, FromJSString result) =>+                                     self -> m result+getPreferredStylesheetSetUnchecked self+  = liftIO+      (fromJust . fromMaybeJSString <$>+         (js_getPreferredStylesheetSet (toDocument self)))+ +foreign import javascript unsafe+        "$1[\"selectedStylesheetSet\"] = $2;" js_setSelectedStylesheetSet+        :: Document -> Optional JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.selectedStylesheetSet Mozilla Document.selectedStylesheetSet documentation> +setSelectedStylesheetSet ::+                         (MonadIO m, IsDocument self, ToJSString val) =>+                           self -> Maybe val -> m ()+setSelectedStylesheetSet self val+  = liftIO+      (js_setSelectedStylesheetSet (toDocument self)+         (toOptionalJSString val))+ +foreign import javascript unsafe "$1[\"selectedStylesheetSet\"]"+        js_getSelectedStylesheetSet :: Document -> IO (Nullable JSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.selectedStylesheetSet Mozilla Document.selectedStylesheetSet documentation> +getSelectedStylesheetSet ::+                         (MonadIO m, IsDocument self, FromJSString result) =>+                           self -> m (Maybe result)+getSelectedStylesheetSet self+  = liftIO+      (fromMaybeJSString <$>+         (js_getSelectedStylesheetSet (toDocument self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.selectedStylesheetSet Mozilla Document.selectedStylesheetSet documentation> +getSelectedStylesheetSetUnsafe ::+                               (MonadIO m, IsDocument self, HasCallStack, FromJSString result) =>+                                 self -> m result+getSelectedStylesheetSetUnsafe self+  = liftIO+      ((fromMaybeJSString <$>+          (js_getSelectedStylesheetSet (toDocument self)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.selectedStylesheetSet Mozilla Document.selectedStylesheetSet documentation> +getSelectedStylesheetSetUnchecked ::+                                  (MonadIO m, IsDocument self, FromJSString result) =>+                                    self -> m result+getSelectedStylesheetSetUnchecked self+  = liftIO+      (fromJust . fromMaybeJSString <$>+         (js_getSelectedStylesheetSet (toDocument self)))+ +foreign import javascript unsafe "$1[\"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 Element++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.webkitCurrentFullScreenElement Mozilla Document.webkitCurrentFullScreenElement documentation> +getWebkitCurrentFullScreenElement ::+                                  (MonadIO m, IsDocument self) => self -> m Element+getWebkitCurrentFullScreenElement self+  = liftIO (js_getWebkitCurrentFullScreenElement (toDocument self))+ +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)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.webkitFullscreenElement Mozilla Document.webkitFullscreenElement documentation> +getWebkitFullscreenElementUnsafe ::+                                 (MonadIO m, IsDocument self, HasCallStack) => self -> m Element+getWebkitFullscreenElementUnsafe self+  = liftIO+      ((nullableToMaybe <$>+          (js_getWebkitFullscreenElement (toDocument self)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.webkitFullscreenElement Mozilla Document.webkitFullscreenElement documentation> +getWebkitFullscreenElementUnchecked ::+                                    (MonadIO m, IsDocument self) => self -> m Element+getWebkitFullscreenElementUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getWebkitFullscreenElement (toDocument self)))+ +foreign import javascript unsafe "$1[\"fonts\"]" js_getFonts ::+        Document -> IO FontFaceSet++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.fonts Mozilla Document.fonts documentation> +getFonts :: (MonadIO m, IsDocument self) => self -> m FontFaceSet+getFonts self = liftIO (js_getFonts (toDocument self))+ +foreign import javascript unsafe "$1[\"visibilityState\"]"+        js_getVisibilityState :: Document -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.visibilityState Mozilla Document.visibilityState documentation> +getVisibilityState ::+                   (MonadIO m, IsDocument self) => self -> m VisibilityState+getVisibilityState self+  = liftIO+      ((js_getVisibilityState (toDocument self)) >>= fromJSValUnchecked)+ +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))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onvisibilitychange Mozilla Document.onvisibilitychange documentation> +visibilitychange ::+                 (IsDocument self, IsEventTarget self) => EventName self Event+visibilitychange = unsafeEventName (toJSString "visibilitychange")+ +foreign import javascript unsafe "$1[\"currentScript\"]"+        js_getCurrentScript :: Document -> IO (Nullable HTMLScriptElement)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.currentScript Mozilla Document.currentScript documentation> +getCurrentScript ::+                 (MonadIO m, IsDocument self) => self -> m (Maybe HTMLScriptElement)+getCurrentScript self+  = liftIO+      (nullableToMaybe <$> (js_getCurrentScript (toDocument self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.currentScript Mozilla Document.currentScript documentation> +getCurrentScriptUnsafe ::+                       (MonadIO m, IsDocument self, HasCallStack) =>+                         self -> m HTMLScriptElement+getCurrentScriptUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getCurrentScript (toDocument self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.currentScript Mozilla Document.currentScript documentation> +getCurrentScriptUnchecked ::+                          (MonadIO m, IsDocument self) => self -> m HTMLScriptElement+getCurrentScriptUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getCurrentScript (toDocument self)))+ +foreign import javascript unsafe "$1[\"origin\"]" js_getOrigin ::+        Document -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.origin Mozilla Document.origin documentation> +getOrigin ::+          (MonadIO m, IsDocument self, FromJSString result) =>+            self -> m result+getOrigin self+  = liftIO (fromJSString <$> (js_getOrigin (toDocument self)))+ +foreign import javascript unsafe "$1[\"scrollingElement\"]"+        js_getScrollingElement :: Document -> IO (Nullable Element)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.scrollingElement Mozilla Document.scrollingElement documentation> +getScrollingElement ::+                    (MonadIO m, IsDocument self) => self -> m (Maybe Element)+getScrollingElement self+  = liftIO+      (nullableToMaybe <$> (js_getScrollingElement (toDocument self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.scrollingElement Mozilla Document.scrollingElement documentation> +getScrollingElementUnsafe ::+                          (MonadIO m, IsDocument self, HasCallStack) => self -> m Element+getScrollingElementUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getScrollingElement (toDocument self)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.scrollingElement Mozilla Document.scrollingElement documentation> +getScrollingElementUnchecked ::+                             (MonadIO m, IsDocument self) => self -> m Element+getScrollingElementUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getScrollingElement (toDocument self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onbeforecopy Mozilla Document.onbeforecopy documentation> +beforeCopy ::+           (IsDocument self, IsEventTarget self) =>+             EventName self ClipboardEvent+beforeCopy = unsafeEventName (toJSString "beforecopy")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onbeforecut Mozilla Document.onbeforecut documentation> +beforeCut ::+          (IsDocument self, IsEventTarget self) =>+            EventName self ClipboardEvent+beforeCut = unsafeEventName (toJSString "beforecut")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onbeforeinput Mozilla Document.onbeforeinput documentation> +beforeinput ::+            (IsDocument self, IsEventTarget self) =>+              EventName self onbeforeinput+beforeinput = unsafeEventName (toJSString "beforeinput")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onbeforepaste Mozilla Document.onbeforepaste documentation> +beforePaste ::+            (IsDocument self, IsEventTarget self) =>+              EventName self ClipboardEvent+beforePaste = unsafeEventName (toJSString "beforepaste")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.oncopy Mozilla Document.oncopy documentation> +copy ::+     (IsDocument self, IsEventTarget self) =>+       EventName self ClipboardEvent+copy = unsafeEventName (toJSString "copy")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.oncut Mozilla Document.oncut documentation> +cut ::+    (IsDocument self, IsEventTarget self) =>+      EventName self ClipboardEvent+cut = unsafeEventName (toJSString "cut")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onpaste Mozilla Document.onpaste documentation> +paste ::+      (IsDocument self, IsEventTarget self) =>+        EventName self ClipboardEvent+paste = unsafeEventName (toJSString "paste")++-- | <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.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.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.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.onpointerlockchange Mozilla Document.onpointerlockchange documentation> +pointerlockchange ::+                  (IsDocument self, IsEventTarget self) => EventName self Event+pointerlockchange+  = unsafeEventName (toJSString "pointerlockchange")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onpointerlockerror Mozilla Document.onpointerlockerror documentation> +pointerlockerror ::+                 (IsDocument self, IsEventTarget self) => EventName self Event+pointerlockerror = unsafeEventName (toJSString "pointerlockerror")+ +foreign import javascript unsafe "$1[\"rootElement\"]"+        js_getRootElement :: Document -> IO (Nullable SVGSVGElement)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.rootElement Mozilla Document.rootElement documentation> +getRootElement ::+               (MonadIO m, IsDocument self) => self -> m (Maybe SVGSVGElement)+getRootElement self+  = liftIO+      (nullableToMaybe <$> (js_getRootElement (toDocument self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.rootElement Mozilla Document.rootElement documentation> +getRootElementUnsafe ::+                     (MonadIO m, IsDocument self, HasCallStack) =>+                       self -> m SVGSVGElement+getRootElementUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getRootElement (toDocument self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.rootElement Mozilla Document.rootElement documentation> +getRootElementUnchecked ::+                        (MonadIO m, IsDocument self) => self -> m SVGSVGElement+getRootElementUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getRootElement (toDocument self)))
src/GHCJS/DOM/JSFFI/Generated/DocumentFragment.hs view
@@ -4,18 +4,14 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.DocumentFragment-       (js_newDocumentFragment, newDocumentFragment, js_querySelector,-        querySelector, querySelector_, querySelectorUnsafe,-        querySelectorUnchecked, js_querySelectorAll, querySelectorAll,-        querySelectorAll_, querySelectorAllUnsafe,-        querySelectorAllUnchecked, DocumentFragment(..),-        gTypeDocumentFragment)+       (js_newDocumentFragment, newDocumentFragment, DocumentFragment(..),+        gTypeDocumentFragment, IsDocumentFragment, toDocumentFragment)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -24,6 +20,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -36,81 +33,3 @@ -- | <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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentFragment.querySelector Mozilla DocumentFragment.querySelector documentation> -querySelector_ ::-               (MonadIO m, ToJSString selectors) =>-                 DocumentFragment -> selectors -> m ()-querySelector_ self selectors-  = liftIO (void (js_querySelector (self) (toJSString selectors)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentFragment.querySelector Mozilla DocumentFragment.querySelector documentation> -querySelectorUnsafe ::-                    (MonadIO m, ToJSString selectors, HasCallStack) =>-                      DocumentFragment -> selectors -> m Element-querySelectorUnsafe self selectors-  = liftIO-      ((nullableToMaybe <$>-          (js_querySelector (self) (toJSString selectors)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentFragment.querySelector Mozilla DocumentFragment.querySelector documentation> -querySelectorUnchecked ::-                       (MonadIO m, ToJSString selectors) =>-                         DocumentFragment -> selectors -> m Element-querySelectorUnchecked self selectors-  = liftIO-      (fromJust . 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentFragment.querySelectorAll Mozilla DocumentFragment.querySelectorAll documentation> -querySelectorAll_ ::-                  (MonadIO m, ToJSString selectors) =>-                    DocumentFragment -> selectors -> m ()-querySelectorAll_ self selectors-  = liftIO (void (js_querySelectorAll (self) (toJSString selectors)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentFragment.querySelectorAll Mozilla DocumentFragment.querySelectorAll documentation> -querySelectorAllUnsafe ::-                       (MonadIO m, ToJSString selectors, HasCallStack) =>-                         DocumentFragment -> selectors -> m NodeList-querySelectorAllUnsafe self selectors-  = liftIO-      ((nullableToMaybe <$>-          (js_querySelectorAll (self) (toJSString selectors)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentFragment.querySelectorAll Mozilla DocumentFragment.querySelectorAll documentation> -querySelectorAllUnchecked ::-                          (MonadIO m, ToJSString selectors) =>-                            DocumentFragment -> selectors -> m NodeList-querySelectorAllUnchecked self selectors-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_querySelectorAll (self) (toJSString selectors)))
+ src/GHCJS/DOM/JSFFI/Generated/DocumentOrShadowRoot.hs view
@@ -0,0 +1,135 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+module GHCJS.DOM.JSFFI.Generated.DocumentOrShadowRoot+       (js_elementFromPoint, elementFromPoint, elementFromPoint_,+        elementFromPointUnsafe, elementFromPointUnchecked,+        js_getActiveElement, getActiveElement, getActiveElementUnsafe,+        getActiveElementUnchecked, js_getPointerLockElement,+        getPointerLockElement, getPointerLockElementUnsafe,+        getPointerLockElementUnchecked, DocumentOrShadowRoot(..),+        gTypeDocumentOrShadowRoot, IsDocumentOrShadowRoot,+        toDocumentOrShadowRoot)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error)+import Data.Typeable (Typeable)+import GHCJS.Types (JSVal(..), JSString)+import GHCJS.Foreign (jsNull, jsUndefined)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Control.Monad (void)+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import Data.Maybe (fromJust)+import Data.Traversable (mapM)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"elementFromPoint\"]($2, $3)"+        js_elementFromPoint ::+        DocumentOrShadowRoot -> Double -> Double -> IO (Nullable Element)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentOrShadowRoot.elementFromPoint Mozilla DocumentOrShadowRoot.elementFromPoint documentation> +elementFromPoint ::+                 (MonadIO m, IsDocumentOrShadowRoot self) =>+                   self -> Double -> Double -> m (Maybe Element)+elementFromPoint self x y+  = liftIO+      (nullableToMaybe <$>+         (js_elementFromPoint (toDocumentOrShadowRoot self) x y))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentOrShadowRoot.elementFromPoint Mozilla DocumentOrShadowRoot.elementFromPoint documentation> +elementFromPoint_ ::+                  (MonadIO m, IsDocumentOrShadowRoot self) =>+                    self -> Double -> Double -> m ()+elementFromPoint_ self x y+  = liftIO+      (void (js_elementFromPoint (toDocumentOrShadowRoot self) x y))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentOrShadowRoot.elementFromPoint Mozilla DocumentOrShadowRoot.elementFromPoint documentation> +elementFromPointUnsafe ::+                       (MonadIO m, IsDocumentOrShadowRoot self, HasCallStack) =>+                         self -> Double -> Double -> m Element+elementFromPointUnsafe self x y+  = liftIO+      ((nullableToMaybe <$>+          (js_elementFromPoint (toDocumentOrShadowRoot self) x y))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentOrShadowRoot.elementFromPoint Mozilla DocumentOrShadowRoot.elementFromPoint documentation> +elementFromPointUnchecked ::+                          (MonadIO m, IsDocumentOrShadowRoot self) =>+                            self -> Double -> Double -> m Element+elementFromPointUnchecked self x y+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_elementFromPoint (toDocumentOrShadowRoot self) x y))+ +foreign import javascript unsafe "$1[\"activeElement\"]"+        js_getActiveElement ::+        DocumentOrShadowRoot -> IO (Nullable Element)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentOrShadowRoot.activeElement Mozilla DocumentOrShadowRoot.activeElement documentation> +getActiveElement ::+                 (MonadIO m, IsDocumentOrShadowRoot self) =>+                   self -> m (Maybe Element)+getActiveElement self+  = liftIO+      (nullableToMaybe <$>+         (js_getActiveElement (toDocumentOrShadowRoot self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentOrShadowRoot.activeElement Mozilla DocumentOrShadowRoot.activeElement documentation> +getActiveElementUnsafe ::+                       (MonadIO m, IsDocumentOrShadowRoot self, HasCallStack) =>+                         self -> m Element+getActiveElementUnsafe self+  = liftIO+      ((nullableToMaybe <$>+          (js_getActiveElement (toDocumentOrShadowRoot self)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentOrShadowRoot.activeElement Mozilla DocumentOrShadowRoot.activeElement documentation> +getActiveElementUnchecked ::+                          (MonadIO m, IsDocumentOrShadowRoot self) => self -> m Element+getActiveElementUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getActiveElement (toDocumentOrShadowRoot self)))+ +foreign import javascript unsafe "$1[\"pointerLockElement\"]"+        js_getPointerLockElement ::+        DocumentOrShadowRoot -> IO (Nullable Element)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentOrShadowRoot.pointerLockElement Mozilla DocumentOrShadowRoot.pointerLockElement documentation> +getPointerLockElement ::+                      (MonadIO m, IsDocumentOrShadowRoot self) =>+                        self -> m (Maybe Element)+getPointerLockElement self+  = liftIO+      (nullableToMaybe <$>+         (js_getPointerLockElement (toDocumentOrShadowRoot self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentOrShadowRoot.pointerLockElement Mozilla DocumentOrShadowRoot.pointerLockElement documentation> +getPointerLockElementUnsafe ::+                            (MonadIO m, IsDocumentOrShadowRoot self, HasCallStack) =>+                              self -> m Element+getPointerLockElementUnsafe self+  = liftIO+      ((nullableToMaybe <$>+          (js_getPointerLockElement (toDocumentOrShadowRoot self)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentOrShadowRoot.pointerLockElement Mozilla DocumentOrShadowRoot.pointerLockElement documentation> +getPointerLockElementUnchecked ::+                               (MonadIO m, IsDocumentOrShadowRoot self) => self -> m Element+getPointerLockElementUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getPointerLockElement (toDocumentOrShadowRoot self)))
+ src/GHCJS/DOM/JSFFI/Generated/DocumentTimeline.hs view
@@ -0,0 +1,36 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+module GHCJS.DOM.JSFFI.Generated.DocumentTimeline+       (js_newDocumentTimeline, newDocumentTimeline, DocumentTimeline(..),+        gTypeDocumentTimeline)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error)+import Data.Typeable (Typeable)+import GHCJS.Types (JSVal(..), JSString)+import GHCJS.Foreign (jsNull, jsUndefined)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Control.Monad (void)+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import Data.Maybe (fromJust)+import Data.Traversable (mapM)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.JSFFI.Generated.Enums+ +foreign import javascript unsafe+        "new window[\"DocumentTimeline\"]($1)" js_newDocumentTimeline ::+        Double -> IO DocumentTimeline++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentTimeline Mozilla DocumentTimeline documentation> +newDocumentTimeline :: (MonadIO m) => Double -> m DocumentTimeline+newDocumentTimeline originTime+  = liftIO (js_newDocumentTimeline originTime)
src/GHCJS/DOM/JSFFI/Generated/DocumentType.hs view
@@ -4,20 +4,14 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.DocumentType-       (js_getName, getName, js_getEntities, getEntities,-        getEntitiesUnsafe, getEntitiesUnchecked, js_getNotations,-        getNotations, getNotationsUnsafe, getNotationsUnchecked,-        js_getPublicId, getPublicId, getPublicIdUnsafe,-        getPublicIdUnchecked, js_getSystemId, getSystemId,-        getSystemIdUnsafe, getSystemIdUnchecked, js_getInternalSubset,-        getInternalSubset, getInternalSubsetUnsafe,-        getInternalSubsetUnchecked, DocumentType(..), gTypeDocumentType)+       (js_getName, getName, js_getPublicId, getPublicId, js_getSystemId,+        getSystemId, DocumentType(..), gTypeDocumentType)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -26,6 +20,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -37,126 +32,20 @@ -- | <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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentType.entities Mozilla DocumentType.entities documentation> -getEntitiesUnsafe ::-                  (MonadIO m, HasCallStack) => DocumentType -> m NamedNodeMap-getEntitiesUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getEntities (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentType.entities Mozilla DocumentType.entities documentation> -getEntitiesUnchecked ::-                     (MonadIO m) => DocumentType -> m NamedNodeMap-getEntitiesUnchecked self-  = liftIO (fromJust . 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentType.notations Mozilla DocumentType.notations documentation> -getNotationsUnsafe ::-                   (MonadIO m, HasCallStack) => DocumentType -> m NamedNodeMap-getNotationsUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getNotations (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentType.notations Mozilla DocumentType.notations documentation> -getNotationsUnchecked ::-                      (MonadIO m) => DocumentType -> m NamedNodeMap-getNotationsUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getNotations (self)))+getName self = liftIO (fromJSString <$> (js_getName self))   foreign import javascript unsafe "$1[\"publicId\"]" js_getPublicId-        :: DocumentType -> IO (Nullable JSString)+        :: DocumentType -> IO 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentType.publicId Mozilla DocumentType.publicId documentation> -getPublicIdUnsafe ::-                  (MonadIO m, HasCallStack, FromJSString result) =>-                    DocumentType -> m result-getPublicIdUnsafe self-  = liftIO-      ((fromMaybeJSString <$> (js_getPublicId (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentType.publicId Mozilla DocumentType.publicId documentation> -getPublicIdUnchecked ::-                     (MonadIO m, FromJSString result) => DocumentType -> m result-getPublicIdUnchecked self-  = liftIO (fromJust . fromMaybeJSString <$> (js_getPublicId (self)))+            (MonadIO m, FromJSString result) => DocumentType -> m result+getPublicId self = liftIO (fromJSString <$> (js_getPublicId self))   foreign import javascript unsafe "$1[\"systemId\"]" js_getSystemId-        :: DocumentType -> IO (Nullable JSString)+        :: DocumentType -> IO 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentType.systemId Mozilla DocumentType.systemId documentation> -getSystemIdUnsafe ::-                  (MonadIO m, HasCallStack, FromJSString result) =>-                    DocumentType -> m result-getSystemIdUnsafe self-  = liftIO-      ((fromMaybeJSString <$> (js_getSystemId (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentType.systemId Mozilla DocumentType.systemId documentation> -getSystemIdUnchecked ::-                     (MonadIO m, FromJSString result) => DocumentType -> m result-getSystemIdUnchecked self-  = liftIO (fromJust . 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentType.internalSubset Mozilla DocumentType.internalSubset documentation> -getInternalSubsetUnsafe ::-                        (MonadIO m, HasCallStack, FromJSString result) =>-                          DocumentType -> m result-getInternalSubsetUnsafe self-  = liftIO-      ((fromMaybeJSString <$> (js_getInternalSubset (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentType.internalSubset Mozilla DocumentType.internalSubset documentation> -getInternalSubsetUnchecked ::-                           (MonadIO m, FromJSString result) => DocumentType -> m result-getInternalSubsetUnchecked self-  = liftIO-      (fromJust . fromMaybeJSString <$> (js_getInternalSubset (self)))+            (MonadIO m, FromJSString result) => DocumentType -> m result+getSystemId self = liftIO (fromJSString <$> (js_getSystemId self))
src/GHCJS/DOM/JSFFI/Generated/DynamicsCompressorNode.hs view
@@ -4,20 +4,16 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.DynamicsCompressorNode-       (js_getThreshold, getThreshold, getThresholdUnsafe,-        getThresholdUnchecked, js_getKnee, getKnee, getKneeUnsafe,-        getKneeUnchecked, js_getRatio, getRatio, getRatioUnsafe,-        getRatioUnchecked, js_getReduction, getReduction,-        getReductionUnsafe, getReductionUnchecked, js_getAttack, getAttack,-        getAttackUnsafe, getAttackUnchecked, js_getRelease, getRelease,-        getReleaseUnsafe, getReleaseUnchecked, DynamicsCompressorNode(..),+       (js_getThreshold, getThreshold, js_getKnee, getKnee, js_getRatio,+        getRatio, js_getReduction, getReduction, js_getAttack, getAttack,+        js_getRelease, getRelease, DynamicsCompressorNode(..),         gTypeDynamicsCompressorNode)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -26,144 +22,52 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums   foreign import javascript unsafe "$1[\"threshold\"]"-        js_getThreshold ::-        DynamicsCompressorNode -> IO (Nullable AudioParam)+        js_getThreshold :: DynamicsCompressorNode -> IO 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/DynamicsCompressorNode.threshold Mozilla DynamicsCompressorNode.threshold documentation> -getThresholdUnsafe ::-                   (MonadIO m, HasCallStack) => DynamicsCompressorNode -> m AudioParam-getThresholdUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getThreshold (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/DynamicsCompressorNode.threshold Mozilla DynamicsCompressorNode.threshold documentation> -getThresholdUnchecked ::-                      (MonadIO m) => DynamicsCompressorNode -> m AudioParam-getThresholdUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getThreshold (self)))+             (MonadIO m) => DynamicsCompressorNode -> m AudioParam+getThreshold self = liftIO (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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/DynamicsCompressorNode.knee Mozilla DynamicsCompressorNode.knee documentation> -getKneeUnsafe ::-              (MonadIO m, HasCallStack) => DynamicsCompressorNode -> m AudioParam-getKneeUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getKnee (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        DynamicsCompressorNode -> IO AudioParam  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DynamicsCompressorNode.knee Mozilla DynamicsCompressorNode.knee documentation> -getKneeUnchecked ::-                 (MonadIO m) => DynamicsCompressorNode -> m AudioParam-getKneeUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getKnee (self)))+getKnee :: (MonadIO m) => DynamicsCompressorNode -> m AudioParam+getKnee self = liftIO (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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/DynamicsCompressorNode.ratio Mozilla DynamicsCompressorNode.ratio documentation> -getRatioUnsafe ::-               (MonadIO m, HasCallStack) => DynamicsCompressorNode -> m AudioParam-getRatioUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getRatio (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        DynamicsCompressorNode -> IO AudioParam  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DynamicsCompressorNode.ratio Mozilla DynamicsCompressorNode.ratio documentation> -getRatioUnchecked ::-                  (MonadIO m) => DynamicsCompressorNode -> m AudioParam-getRatioUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getRatio (self)))+getRatio :: (MonadIO m) => DynamicsCompressorNode -> m AudioParam+getRatio self = liftIO (js_getRatio self)   foreign import javascript unsafe "$1[\"reduction\"]"-        js_getReduction ::-        DynamicsCompressorNode -> IO (Nullable AudioParam)+        js_getReduction :: DynamicsCompressorNode -> IO AudioParam  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DynamicsCompressorNode.reduction Mozilla DynamicsCompressorNode.reduction documentation>  getReduction ::-             (MonadIO m) => DynamicsCompressorNode -> m (Maybe AudioParam)-getReduction self-  = liftIO (nullableToMaybe <$> (js_getReduction (self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/DynamicsCompressorNode.reduction Mozilla DynamicsCompressorNode.reduction documentation> -getReductionUnsafe ::-                   (MonadIO m, HasCallStack) => DynamicsCompressorNode -> m AudioParam-getReductionUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getReduction (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/DynamicsCompressorNode.reduction Mozilla DynamicsCompressorNode.reduction documentation> -getReductionUnchecked ::-                      (MonadIO m) => DynamicsCompressorNode -> m AudioParam-getReductionUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getReduction (self)))+             (MonadIO m) => DynamicsCompressorNode -> m AudioParam+getReduction self = liftIO (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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/DynamicsCompressorNode.attack Mozilla DynamicsCompressorNode.attack documentation> -getAttackUnsafe ::-                (MonadIO m, HasCallStack) => DynamicsCompressorNode -> m AudioParam-getAttackUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getAttack (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        DynamicsCompressorNode -> IO AudioParam  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DynamicsCompressorNode.attack Mozilla DynamicsCompressorNode.attack documentation> -getAttackUnchecked ::-                   (MonadIO m) => DynamicsCompressorNode -> m AudioParam-getAttackUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getAttack (self)))+getAttack :: (MonadIO m) => DynamicsCompressorNode -> m AudioParam+getAttack self = liftIO (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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/DynamicsCompressorNode.release Mozilla DynamicsCompressorNode.release documentation> -getReleaseUnsafe ::-                 (MonadIO m, HasCallStack) => DynamicsCompressorNode -> m AudioParam-getReleaseUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getRelease (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        DynamicsCompressorNode -> IO AudioParam  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DynamicsCompressorNode.release Mozilla DynamicsCompressorNode.release documentation> -getReleaseUnchecked ::-                    (MonadIO m) => DynamicsCompressorNode -> m AudioParam-getReleaseUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getRelease (self)))+getRelease :: (MonadIO m) => DynamicsCompressorNode -> m AudioParam+getRelease self = liftIO (js_getRelease self)
src/GHCJS/DOM/JSFFI/Generated/EXTBlendMinMax.hs view
@@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -20,6 +20,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)
src/GHCJS/DOM/JSFFI/Generated/EXTTextureFilterAnisotropic.hs view
@@ -12,7 +12,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -21,6 +21,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)
src/GHCJS/DOM/JSFFI/Generated/EXTsRGB.hs view
@@ -13,7 +13,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -22,6 +22,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)
src/GHCJS/DOM/JSFFI/Generated/Element.hs view
@@ -11,1718 +11,1435 @@         getAttributeNodeUnchecked, js_setAttributeNode, setAttributeNode,         setAttributeNode_, setAttributeNodeUnsafe,         setAttributeNodeUnchecked, js_removeAttributeNode,-        removeAttributeNode, removeAttributeNode_,-        removeAttributeNodeUnsafe, removeAttributeNodeUnchecked,-        js_getElementsByTagName, getElementsByTagName,-        getElementsByTagName_, getElementsByTagNameUnsafe,-        getElementsByTagNameUnchecked, js_hasAttributes, hasAttributes,-        hasAttributes_, js_getAttributeNS, getAttributeNS, getAttributeNS_,-        js_setAttributeNS, setAttributeNS, js_removeAttributeNS,-        removeAttributeNS, js_getElementsByTagNameNS,-        getElementsByTagNameNS, getElementsByTagNameNS_,-        getElementsByTagNameNSUnsafe, getElementsByTagNameNSUnchecked,-        js_getAttributeNodeNS, getAttributeNodeNS, getAttributeNodeNS_,-        getAttributeNodeNSUnsafe, getAttributeNodeNSUnchecked,-        js_setAttributeNodeNS, setAttributeNodeNS, setAttributeNodeNS_,-        setAttributeNodeNSUnsafe, setAttributeNodeNSUnchecked,-        js_hasAttribute, hasAttribute, hasAttribute_, js_hasAttributeNS,-        hasAttributeNS, hasAttributeNS_, js_focus, focus, js_blur, blur,-        js_scrollIntoView, scrollIntoView, js_scrollIntoViewIfNeeded,-        scrollIntoViewIfNeeded, js_scrollByLines, scrollByLines,-        js_scrollByPages, scrollByPages, js_getElementsByClassName,-        getElementsByClassName, getElementsByClassName_,-        getElementsByClassNameUnsafe, getElementsByClassNameUnchecked,-        js_querySelector, querySelector, querySelector_,-        querySelectorUnsafe, querySelectorUnchecked, js_querySelectorAll,-        querySelectorAll, querySelectorAll_, querySelectorAllUnsafe,-        querySelectorAllUnchecked, js_matches, matches, matches_,-        js_closest, closest, closest_, closestUnsafe, closestUnchecked,-        js_webkitMatchesSelector, webkitMatchesSelector,-        webkitMatchesSelector_, js_getClientRects, getClientRects,-        getClientRects_, getClientRectsUnsafe, getClientRectsUnchecked,-        js_getBoundingClientRect, getBoundingClientRect,-        getBoundingClientRect_, getBoundingClientRectUnsafe,-        getBoundingClientRectUnchecked, js_webkitRequestFullScreen,-        webkitRequestFullScreen, js_webkitRequestFullscreen,-        webkitRequestFullscreen, js_requestPointerLock, requestPointerLock,-        js_webkitGetRegionFlowRanges, webkitGetRegionFlowRanges,-        webkitGetRegionFlowRanges_, pattern ALLOW_KEYBOARD_INPUT,-        js_getTagName, getTagName, getTagNameUnsafe, getTagNameUnchecked,-        js_getAttributes, getAttributes, getAttributesUnsafe,-        getAttributesUnchecked, js_getStyle, getStyle, getStyleUnsafe,-        getStyleUnchecked, 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, getOffsetParentUnsafe,-        getOffsetParentUnchecked, js_setInnerHTML, setInnerHTML,-        js_getInnerHTML, getInnerHTML, getInnerHTMLUnsafe,-        getInnerHTMLUnchecked, js_setOuterHTML, setOuterHTML,-        js_getOuterHTML, getOuterHTML, getOuterHTMLUnsafe,-        getOuterHTMLUnchecked, js_setClassName, setClassName,-        js_getClassName, getClassName, js_getClassList, getClassList,-        getClassListUnsafe, getClassListUnchecked, js_getDataset,-        getDataset, getDatasetUnsafe, getDatasetUnchecked,-        js_getFirstElementChild, getFirstElementChild,-        getFirstElementChildUnsafe, getFirstElementChildUnchecked,-        js_getLastElementChild, getLastElementChild,-        getLastElementChildUnsafe, getLastElementChildUnchecked,-        js_getPreviousElementSibling, getPreviousElementSibling,-        getPreviousElementSiblingUnsafe,-        getPreviousElementSiblingUnchecked, js_getNextElementSibling,-        getNextElementSibling, getNextElementSiblingUnsafe,-        getNextElementSiblingUnchecked, 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(..), gTypeElement, IsElement, toElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)-import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))-import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getAttribute Mozilla Element.getAttribute documentation> -getAttribute_ ::-              (MonadIO m, IsElement self, ToJSString name) =>-                self -> name -> m ()-getAttribute_ self name-  = liftIO-      (void (js_getAttribute (toElement self) (toJSString name)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getAttribute Mozilla Element.getAttribute documentation> -getAttributeUnsafe ::-                   (MonadIO m, IsElement self, ToJSString name, HasCallStack,-                    FromJSString result) =>-                     self -> name -> m result-getAttributeUnsafe self name-  = liftIO-      ((fromMaybeJSString <$>-          (js_getAttribute (toElement self) (toJSString name)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getAttribute Mozilla Element.getAttribute documentation> -getAttributeUnchecked ::-                      (MonadIO m, IsElement self, ToJSString name,-                       FromJSString result) =>-                        self -> name -> m result-getAttributeUnchecked self name-  = liftIO-      (fromJust . 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)))---- | <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 ()-getAttributeNode_ self name-  = liftIO-      (void (js_getAttributeNode (toElement self) (toJSString name)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getAttributeNode Mozilla Element.getAttributeNode documentation> -getAttributeNodeUnsafe ::-                       (MonadIO m, IsElement self, ToJSString name, HasCallStack) =>-                         self -> name -> m Attr-getAttributeNodeUnsafe self name-  = liftIO-      ((nullableToMaybe <$>-          (js_getAttributeNode (toElement self) (toJSString name)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getAttributeNode Mozilla Element.getAttributeNode documentation> -getAttributeNodeUnchecked ::-                          (MonadIO m, IsElement self, ToJSString name) =>-                            self -> name -> m Attr-getAttributeNodeUnchecked self name-  = liftIO-      (fromJust . 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.setAttributeNode Mozilla Element.setAttributeNode documentation> -setAttributeNode_ ::-                  (MonadIO m, IsElement self) => self -> Maybe Attr -> m ()-setAttributeNode_ self newAttr-  = liftIO-      (void-         (js_setAttributeNode (toElement self) (maybeToNullable newAttr)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.setAttributeNode Mozilla Element.setAttributeNode documentation> -setAttributeNodeUnsafe ::-                       (MonadIO m, IsElement self, HasCallStack) =>-                         self -> Maybe Attr -> m Attr-setAttributeNodeUnsafe self newAttr-  = liftIO-      ((nullableToMaybe <$>-          (js_setAttributeNode (toElement self) (maybeToNullable newAttr)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.setAttributeNode Mozilla Element.setAttributeNode documentation> -setAttributeNodeUnchecked ::-                          (MonadIO m, IsElement self) => self -> Maybe Attr -> m Attr-setAttributeNodeUnchecked self newAttr-  = liftIO-      (fromJust . 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.removeAttributeNode Mozilla Element.removeAttributeNode documentation> -removeAttributeNode_ ::-                     (MonadIO m, IsElement self) => self -> Maybe Attr -> m ()-removeAttributeNode_ self oldAttr-  = liftIO-      (void-         (js_removeAttributeNode (toElement self)-            (maybeToNullable oldAttr)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.removeAttributeNode Mozilla Element.removeAttributeNode documentation> -removeAttributeNodeUnsafe ::-                          (MonadIO m, IsElement self, HasCallStack) =>-                            self -> Maybe Attr -> m Attr-removeAttributeNodeUnsafe self oldAttr-  = liftIO-      ((nullableToMaybe <$>-          (js_removeAttributeNode (toElement self)-             (maybeToNullable oldAttr)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.removeAttributeNode Mozilla Element.removeAttributeNode documentation> -removeAttributeNodeUnchecked ::-                             (MonadIO m, IsElement self) => self -> Maybe Attr -> m Attr-removeAttributeNodeUnchecked self oldAttr-  = liftIO-      (fromJust . 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)))---- | <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 ()-getElementsByTagName_ self name-  = liftIO-      (void (js_getElementsByTagName (toElement self) (toJSString name)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getElementsByTagName Mozilla Element.getElementsByTagName documentation> -getElementsByTagNameUnsafe ::-                           (MonadIO m, IsElement self, ToJSString name, HasCallStack) =>-                             self -> name -> m NodeList-getElementsByTagNameUnsafe self name-  = liftIO-      ((nullableToMaybe <$>-          (js_getElementsByTagName (toElement self) (toJSString name)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getElementsByTagName Mozilla Element.getElementsByTagName documentation> -getElementsByTagNameUnchecked ::-                              (MonadIO m, IsElement self, ToJSString name) =>-                                self -> name -> m NodeList-getElementsByTagNameUnchecked self name-  = liftIO-      (fromJust . 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))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.hasAttributes Mozilla Element.hasAttributes documentation> -hasAttributes_ :: (MonadIO m, IsElement self) => self -> m ()-hasAttributes_ self-  = liftIO (void (js_hasAttributes (toElement self)))- -foreign import javascript unsafe "$1[\"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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getAttributeNS Mozilla Element.getAttributeNS documentation> -getAttributeNS_ ::-                (MonadIO m, IsElement self, ToJSString namespaceURI,-                 ToJSString localName) =>-                  self -> Maybe namespaceURI -> localName -> m ()-getAttributeNS_ self namespaceURI localName-  = liftIO-      (void-         (js_getAttributeNS (toElement self) (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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getElementsByTagNameNS Mozilla Element.getElementsByTagNameNS documentation> -getElementsByTagNameNS_ ::-                        (MonadIO m, IsElement self, ToJSString namespaceURI,-                         ToJSString localName) =>-                          self -> Maybe namespaceURI -> localName -> m ()-getElementsByTagNameNS_ self namespaceURI localName-  = liftIO-      (void-         (js_getElementsByTagNameNS (toElement self)-            (toMaybeJSString namespaceURI)-            (toJSString localName)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getElementsByTagNameNS Mozilla Element.getElementsByTagNameNS documentation> -getElementsByTagNameNSUnsafe ::-                             (MonadIO m, IsElement self, ToJSString namespaceURI,-                              ToJSString localName, HasCallStack) =>-                               self -> Maybe namespaceURI -> localName -> m NodeList-getElementsByTagNameNSUnsafe self namespaceURI localName-  = liftIO-      ((nullableToMaybe <$>-          (js_getElementsByTagNameNS (toElement self)-             (toMaybeJSString namespaceURI)-             (toJSString localName)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getElementsByTagNameNS Mozilla Element.getElementsByTagNameNS documentation> -getElementsByTagNameNSUnchecked ::-                                (MonadIO m, IsElement self, ToJSString namespaceURI,-                                 ToJSString localName) =>-                                  self -> Maybe namespaceURI -> localName -> m NodeList-getElementsByTagNameNSUnchecked self namespaceURI localName-  = liftIO-      (fromJust . 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getAttributeNodeNS Mozilla Element.getAttributeNodeNS documentation> -getAttributeNodeNS_ ::-                    (MonadIO m, IsElement self, ToJSString namespaceURI,-                     ToJSString localName) =>-                      self -> Maybe namespaceURI -> localName -> m ()-getAttributeNodeNS_ self namespaceURI localName-  = liftIO-      (void-         (js_getAttributeNodeNS (toElement self)-            (toMaybeJSString namespaceURI)-            (toJSString localName)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getAttributeNodeNS Mozilla Element.getAttributeNodeNS documentation> -getAttributeNodeNSUnsafe ::-                         (MonadIO m, IsElement self, ToJSString namespaceURI,-                          ToJSString localName, HasCallStack) =>-                           self -> Maybe namespaceURI -> localName -> m Attr-getAttributeNodeNSUnsafe self namespaceURI localName-  = liftIO-      ((nullableToMaybe <$>-          (js_getAttributeNodeNS (toElement self)-             (toMaybeJSString namespaceURI)-             (toJSString localName)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getAttributeNodeNS Mozilla Element.getAttributeNodeNS documentation> -getAttributeNodeNSUnchecked ::-                            (MonadIO m, IsElement self, ToJSString namespaceURI,-                             ToJSString localName) =>-                              self -> Maybe namespaceURI -> localName -> m Attr-getAttributeNodeNSUnchecked self namespaceURI localName-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_getAttributeNodeNS (toElement self)-            (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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.setAttributeNodeNS Mozilla Element.setAttributeNodeNS documentation> -setAttributeNodeNS_ ::-                    (MonadIO m, IsElement self) => self -> Maybe Attr -> m ()-setAttributeNodeNS_ self newAttr-  = liftIO-      (void-         (js_setAttributeNodeNS (toElement self) (maybeToNullable newAttr)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.setAttributeNodeNS Mozilla Element.setAttributeNodeNS documentation> -setAttributeNodeNSUnsafe ::-                         (MonadIO m, IsElement self, HasCallStack) =>-                           self -> Maybe Attr -> m Attr-setAttributeNodeNSUnsafe self newAttr-  = liftIO-      ((nullableToMaybe <$>-          (js_setAttributeNodeNS (toElement self) (maybeToNullable newAttr)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.setAttributeNodeNS Mozilla Element.setAttributeNodeNS documentation> -setAttributeNodeNSUnchecked ::-                            (MonadIO m, IsElement self) => self -> Maybe Attr -> m Attr-setAttributeNodeNSUnchecked self newAttr-  = liftIO-      (fromJust . 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))---- | <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 ()-hasAttribute_ self name-  = liftIO-      (void (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))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.hasAttributeNS Mozilla Element.hasAttributeNS documentation> -hasAttributeNS_ ::-                (MonadIO m, IsElement self, ToJSString namespaceURI,-                 ToJSString localName) =>-                  self -> Maybe namespaceURI -> localName -> m ()-hasAttributeNS_ self namespaceURI localName-  = liftIO-      (void-         (js_hasAttributeNS (toElement self) (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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getElementsByClassName Mozilla Element.getElementsByClassName documentation> -getElementsByClassName_ ::-                        (MonadIO m, IsElement self, ToJSString name) =>-                          self -> name -> m ()-getElementsByClassName_ self name-  = liftIO-      (void-         (js_getElementsByClassName (toElement self) (toJSString name)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getElementsByClassName Mozilla Element.getElementsByClassName documentation> -getElementsByClassNameUnsafe ::-                             (MonadIO m, IsElement self, ToJSString name, HasCallStack) =>-                               self -> name -> m NodeList-getElementsByClassNameUnsafe self name-  = liftIO-      ((nullableToMaybe <$>-          (js_getElementsByClassName (toElement self) (toJSString name)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getElementsByClassName Mozilla Element.getElementsByClassName documentation> -getElementsByClassNameUnchecked ::-                                (MonadIO m, IsElement self, ToJSString name) =>-                                  self -> name -> m NodeList-getElementsByClassNameUnchecked self name-  = liftIO-      (fromJust . 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)))---- | <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 ()-querySelector_ self selectors-  = liftIO-      (void (js_querySelector (toElement self) (toJSString selectors)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.querySelector Mozilla Element.querySelector documentation> -querySelectorUnsafe ::-                    (MonadIO m, IsElement self, ToJSString selectors, HasCallStack) =>-                      self -> selectors -> m Element-querySelectorUnsafe self selectors-  = liftIO-      ((nullableToMaybe <$>-          (js_querySelector (toElement self) (toJSString selectors)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.querySelector Mozilla Element.querySelector documentation> -querySelectorUnchecked ::-                       (MonadIO m, IsElement self, ToJSString selectors) =>-                         self -> selectors -> m Element-querySelectorUnchecked self selectors-  = liftIO-      (fromJust . 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)))---- | <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 ()-querySelectorAll_ self selectors-  = liftIO-      (void-         (js_querySelectorAll (toElement self) (toJSString selectors)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.querySelectorAll Mozilla Element.querySelectorAll documentation> -querySelectorAllUnsafe ::-                       (MonadIO m, IsElement self, ToJSString selectors, HasCallStack) =>-                         self -> selectors -> m NodeList-querySelectorAllUnsafe self selectors-  = liftIO-      ((nullableToMaybe <$>-          (js_querySelectorAll (toElement self) (toJSString selectors)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.querySelectorAll Mozilla Element.querySelectorAll documentation> -querySelectorAllUnchecked ::-                          (MonadIO m, IsElement self, ToJSString selectors) =>-                            self -> selectors -> m NodeList-querySelectorAllUnchecked self selectors-  = liftIO-      (fromJust . 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))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.matches Mozilla Element.matches documentation> -matches_ ::-         (MonadIO m, IsElement self, ToJSString selectors) =>-           self -> selectors -> m ()-matches_ self selectors-  = liftIO-      (void (js_matches (toElement self) (toJSString selectors)))- -foreign import javascript 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.closest Mozilla Element.closest documentation> -closest_ ::-         (MonadIO m, IsElement self, ToJSString selectors) =>-           self -> selectors -> m ()-closest_ self selectors-  = liftIO-      (void (js_closest (toElement self) (toJSString selectors)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.closest Mozilla Element.closest documentation> -closestUnsafe ::-              (MonadIO m, IsElement self, ToJSString selectors, HasCallStack) =>-                self -> selectors -> m Element-closestUnsafe self selectors-  = liftIO-      ((nullableToMaybe <$>-          (js_closest (toElement self) (toJSString selectors)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.closest Mozilla Element.closest documentation> -closestUnchecked ::-                 (MonadIO m, IsElement self, ToJSString selectors) =>-                   self -> selectors -> m Element-closestUnchecked self selectors-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_closest (toElement self) (toJSString selectors)))- -foreign import javascript 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))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.webkitMatchesSelector Mozilla Element.webkitMatchesSelector documentation> -webkitMatchesSelector_ ::-                       (MonadIO m, IsElement self, ToJSString selectors) =>-                         self -> selectors -> m ()-webkitMatchesSelector_ self selectors-  = liftIO-      (void-         (js_webkitMatchesSelector (toElement self) (toJSString selectors)))- -foreign import javascript unsafe "$1[\"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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getClientRects Mozilla Element.getClientRects documentation> -getClientRects_ :: (MonadIO m, IsElement self) => self -> m ()-getClientRects_ self-  = liftIO (void (js_getClientRects (toElement self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getClientRects Mozilla Element.getClientRects documentation> -getClientRectsUnsafe ::-                     (MonadIO m, IsElement self, HasCallStack) =>-                       self -> m ClientRectList-getClientRectsUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getClientRects (toElement self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getClientRects Mozilla Element.getClientRects documentation> -getClientRectsUnchecked ::-                        (MonadIO m, IsElement self) => self -> m ClientRectList-getClientRectsUnchecked self-  = liftIO-      (fromJust . 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getBoundingClientRect Mozilla Element.getBoundingClientRect documentation> -getBoundingClientRect_ ::-                       (MonadIO m, IsElement self) => self -> m ()-getBoundingClientRect_ self-  = liftIO (void (js_getBoundingClientRect (toElement self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getBoundingClientRect Mozilla Element.getBoundingClientRect documentation> -getBoundingClientRectUnsafe ::-                            (MonadIO m, IsElement self, HasCallStack) => self -> m ClientRect-getBoundingClientRectUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getBoundingClientRect (toElement self)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getBoundingClientRect Mozilla Element.getBoundingClientRect documentation> -getBoundingClientRectUnchecked ::-                               (MonadIO m, IsElement self) => self -> m ClientRect-getBoundingClientRectUnchecked self-  = liftIO-      (fromJust . 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)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.webkitGetRegionFlowRanges Mozilla Element.webkitGetRegionFlowRanges documentation> -webkitGetRegionFlowRanges_ ::-                           (MonadIO m, IsElement self) => self -> m ()-webkitGetRegionFlowRanges_ self-  = liftIO (void (js_webkitGetRegionFlowRanges (toElement self)))-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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.tagName Mozilla Element.tagName documentation> -getTagNameUnsafe ::-                 (MonadIO m, IsElement self, HasCallStack, FromJSString result) =>-                   self -> m result-getTagNameUnsafe self-  = liftIO-      ((fromMaybeJSString <$> (js_getTagName (toElement self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.tagName Mozilla Element.tagName documentation> -getTagNameUnchecked ::-                    (MonadIO m, IsElement self, FromJSString result) =>-                      self -> m result-getTagNameUnchecked self-  = liftIO-      (fromJust . 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.attributes Mozilla Element.attributes documentation> -getAttributesUnsafe ::-                    (MonadIO m, IsElement self, HasCallStack) => self -> m NamedNodeMap-getAttributesUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getAttributes (toElement self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.attributes Mozilla Element.attributes documentation> -getAttributesUnchecked ::-                       (MonadIO m, IsElement self) => self -> m NamedNodeMap-getAttributesUnchecked self-  = liftIO-      (fromJust . 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.style Mozilla Element.style documentation> -getStyleUnsafe ::-               (MonadIO m, IsElement self, HasCallStack) =>-                 self -> m CSSStyleDeclaration-getStyleUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getStyle (toElement self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.style Mozilla Element.style documentation> -getStyleUnchecked ::-                  (MonadIO m, IsElement self) => self -> m CSSStyleDeclaration-getStyleUnchecked self-  = liftIO-      (fromJust . 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.offsetParent Mozilla Element.offsetParent documentation> -getOffsetParentUnsafe ::-                      (MonadIO m, IsElement self, HasCallStack) => self -> m Element-getOffsetParentUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getOffsetParent (toElement self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.offsetParent Mozilla Element.offsetParent documentation> -getOffsetParentUnchecked ::-                         (MonadIO m, IsElement self) => self -> m Element-getOffsetParentUnchecked self-  = liftIO-      (fromJust . 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.innerHTML Mozilla Element.innerHTML documentation> -getInnerHTMLUnsafe ::-                   (MonadIO m, IsElement self, HasCallStack, FromJSString result) =>-                     self -> m result-getInnerHTMLUnsafe self-  = liftIO-      ((fromMaybeJSString <$> (js_getInnerHTML (toElement self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.innerHTML Mozilla Element.innerHTML documentation> -getInnerHTMLUnchecked ::-                      (MonadIO m, IsElement self, FromJSString result) =>-                        self -> m result-getInnerHTMLUnchecked self-  = liftIO-      (fromJust . 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.outerHTML Mozilla Element.outerHTML documentation> -getOuterHTMLUnsafe ::-                   (MonadIO m, IsElement self, HasCallStack, FromJSString result) =>-                     self -> m result-getOuterHTMLUnsafe self-  = liftIO-      ((fromMaybeJSString <$> (js_getOuterHTML (toElement self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.outerHTML Mozilla Element.outerHTML documentation> -getOuterHTMLUnchecked ::-                      (MonadIO m, IsElement self, FromJSString result) =>-                        self -> m result-getOuterHTMLUnchecked self-  = liftIO-      (fromJust . 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.classList Mozilla Element.classList documentation> -getClassListUnsafe ::-                   (MonadIO m, IsElement self, HasCallStack) => self -> m DOMTokenList-getClassListUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getClassList (toElement self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.classList Mozilla Element.classList documentation> -getClassListUnchecked ::-                      (MonadIO m, IsElement self) => self -> m DOMTokenList-getClassListUnchecked self-  = liftIO-      (fromJust . 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.dataset Mozilla Element.dataset documentation> -getDatasetUnsafe ::-                 (MonadIO m, IsElement self, HasCallStack) => self -> m DOMStringMap-getDatasetUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getDataset (toElement self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.dataset Mozilla Element.dataset documentation> -getDatasetUnchecked ::-                    (MonadIO m, IsElement self) => self -> m DOMStringMap-getDatasetUnchecked self-  = liftIO-      (fromJust . 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.firstElementChild Mozilla Element.firstElementChild documentation> -getFirstElementChildUnsafe ::-                           (MonadIO m, IsElement self, HasCallStack) => self -> m Element-getFirstElementChildUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getFirstElementChild (toElement self)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.firstElementChild Mozilla Element.firstElementChild documentation> -getFirstElementChildUnchecked ::-                              (MonadIO m, IsElement self) => self -> m Element-getFirstElementChildUnchecked self-  = liftIO-      (fromJust . 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.lastElementChild Mozilla Element.lastElementChild documentation> -getLastElementChildUnsafe ::-                          (MonadIO m, IsElement self, HasCallStack) => self -> m Element-getLastElementChildUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getLastElementChild (toElement self)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.lastElementChild Mozilla Element.lastElementChild documentation> -getLastElementChildUnchecked ::-                             (MonadIO m, IsElement self) => self -> m Element-getLastElementChildUnchecked self-  = liftIO-      (fromJust . 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.previousElementSibling Mozilla Element.previousElementSibling documentation> -getPreviousElementSiblingUnsafe ::-                                (MonadIO m, IsElement self, HasCallStack) => self -> m Element-getPreviousElementSiblingUnsafe self-  = liftIO-      ((nullableToMaybe <$>-          (js_getPreviousElementSibling (toElement self)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.previousElementSibling Mozilla Element.previousElementSibling documentation> -getPreviousElementSiblingUnchecked ::-                                   (MonadIO m, IsElement self) => self -> m Element-getPreviousElementSiblingUnchecked self-  = liftIO-      (fromJust . 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.nextElementSibling Mozilla Element.nextElementSibling documentation> -getNextElementSiblingUnsafe ::-                            (MonadIO m, IsElement self, HasCallStack) => self -> m Element-getNextElementSiblingUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getNextElementSibling (toElement self)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.nextElementSibling Mozilla Element.nextElementSibling documentation> -getNextElementSiblingUnchecked ::-                               (MonadIO m, IsElement self) => self -> m Element-getNextElementSiblingUnchecked self-  = liftIO-      (fromJust . 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")+        removeAttributeNode, removeAttributeNode_, js_getElementsByTagName,+        getElementsByTagName, getElementsByTagName_, js_hasAttributes,+        hasAttributes, hasAttributes_, js_getAttributeNS, getAttributeNS,+        getAttributeNS_, getAttributeNSUnsafe, getAttributeNSUnchecked,+        js_setAttributeNS, setAttributeNS, js_removeAttributeNS,+        removeAttributeNS, js_getElementsByTagNameNS,+        getElementsByTagNameNS, getElementsByTagNameNS_,+        js_getAttributeNodeNS, getAttributeNodeNS, getAttributeNodeNS_,+        getAttributeNodeNSUnsafe, getAttributeNodeNSUnchecked,+        js_setAttributeNodeNS, setAttributeNodeNS, setAttributeNodeNS_,+        setAttributeNodeNSUnsafe, setAttributeNodeNSUnchecked,+        js_hasAttribute, hasAttribute, hasAttribute_, js_hasAttributeNS,+        hasAttributeNS, hasAttributeNS_, js_scrollIntoView, scrollIntoView,+        js_scrollIntoViewIfNeeded, scrollIntoViewIfNeeded, js_scrollOpt,+        scrollOpt, js_scroll, scroll, js_scrollToOpt, scrollToOpt,+        js_scrollTo, scrollTo, js_scrollByOpt, scrollByOpt, js_scrollBy,+        scrollBy, js_scrollByLines, scrollByLines, js_scrollByPages,+        scrollByPages, js_getAttributeNames, getAttributeNames,+        getAttributeNames_, js_getElementsByClassName,+        getElementsByClassName, getElementsByClassName_, js_matches,+        matches, matches_, js_closest, closest, closest_, closestUnsafe,+        closestUnchecked, js_webkitMatchesSelector, webkitMatchesSelector,+        webkitMatchesSelector_, js_getClientRects, getClientRects,+        getClientRects_, js_getBoundingClientRect, getBoundingClientRect,+        getBoundingClientRect_, js_webkitRequestFullScreen,+        webkitRequestFullScreen, js_webkitRequestFullscreen,+        webkitRequestFullscreen, js_insertAdjacentElement,+        insertAdjacentElement, insertAdjacentElement_,+        insertAdjacentElementUnsafe, insertAdjacentElementUnchecked,+        js_insertAdjacentHTML, insertAdjacentHTML, js_insertAdjacentText,+        insertAdjacentText, js_requestPointerLock, requestPointerLock,+        js_webkitGetRegionFlowRanges, webkitGetRegionFlowRanges,+        webkitGetRegionFlowRanges_, js_attachShadow, attachShadow,+        attachShadow_, js_getTagName, getTagName, getTagNameUnsafe,+        getTagNameUnchecked, js_getAttributes, getAttributes, js_getStyle,+        getStyle, js_setId, setId, js_getId, getId, js_getNamespaceURI,+        getNamespaceURI, getNamespaceURIUnsafe, getNamespaceURIUnchecked,+        js_getPrefix, getPrefix, getPrefixUnsafe, getPrefixUnchecked,+        js_getLocalName, getLocalName, 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,+        getInnerHTMLUnsafe, getInnerHTMLUnchecked, js_setOuterHTML,+        setOuterHTML, js_getOuterHTML, getOuterHTML, getOuterHTMLUnsafe,+        getOuterHTMLUnchecked, js_setClassName, setClassName,+        js_getClassName, getClassName, js_getClassList, getClassList,+        js_getWebkitRegionOverset, getWebkitRegionOverset,+        js_getShadowRoot, getShadowRoot, js_setSlot, setSlot, js_getSlot,+        getSlot, beforeCopy, beforeCut, beforeinput, beforePaste, copy,+        cut, paste, selectStart, webKitFullscreenChange,+        webKitFullscreenError, animationEnd, animationIteration,+        animationStart, transitionEnd, webKitAnimationEnd,+        webKitAnimationIteration, webKitAnimationStart,+        webKitTransitionEnd, gestureChange, gestureEnd, gestureStart,+        focusin, focusout, beforeload, webKitNeedKey,+        webKitPresentationModeChanged,+        webKitCurrentPlaybackTargetIsWirelessChanged,+        webKitPlaybackTargetAvailabilityChanged, Element(..), gTypeElement,+        IsElement, toElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error)+import Data.Typeable (Typeable)+import GHCJS.Types (JSVal(..), JSString)+import GHCJS.Foreign (jsNull, jsUndefined)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Control.Monad (void)+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import Data.Maybe (fromJust)+import Data.Traversable (mapM)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+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)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getAttribute Mozilla Element.getAttribute documentation> +getAttribute_ ::+              (MonadIO m, IsElement self, ToJSString name) =>+                self -> name -> m ()+getAttribute_ self name+  = liftIO+      (void (js_getAttribute (toElement self) (toJSString name)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getAttribute Mozilla Element.getAttribute documentation> +getAttributeUnsafe ::+                   (MonadIO m, IsElement self, ToJSString name, HasCallStack,+                    FromJSString result) =>+                     self -> name -> m result+getAttributeUnsafe self name+  = liftIO+      ((fromMaybeJSString <$>+          (js_getAttribute (toElement self) (toJSString name)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getAttribute Mozilla Element.getAttribute documentation> +getAttributeUnchecked ::+                      (MonadIO m, IsElement self, ToJSString name,+                       FromJSString result) =>+                        self -> name -> m result+getAttributeUnchecked self name+  = liftIO+      (fromJust . 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)))++-- | <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 ()+getAttributeNode_ self name+  = liftIO+      (void (js_getAttributeNode (toElement self) (toJSString name)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getAttributeNode Mozilla Element.getAttributeNode documentation> +getAttributeNodeUnsafe ::+                       (MonadIO m, IsElement self, ToJSString name, HasCallStack) =>+                         self -> name -> m Attr+getAttributeNodeUnsafe self name+  = liftIO+      ((nullableToMaybe <$>+          (js_getAttributeNode (toElement self) (toJSString name)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getAttributeNode Mozilla Element.getAttributeNode documentation> +getAttributeNodeUnchecked ::+                          (MonadIO m, IsElement self, ToJSString name) =>+                            self -> name -> m Attr+getAttributeNodeUnchecked self name+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getAttributeNode (toElement self) (toJSString name)))+ +foreign import javascript unsafe "$1[\"setAttributeNode\"]($2)"+        js_setAttributeNode :: Element -> Attr -> IO (Nullable Attr)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.setAttributeNode Mozilla Element.setAttributeNode documentation> +setAttributeNode ::+                 (MonadIO m, IsElement self) => self -> Attr -> m (Maybe Attr)+setAttributeNode self newAttr+  = liftIO+      (nullableToMaybe <$>+         (js_setAttributeNode (toElement self) newAttr))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.setAttributeNode Mozilla Element.setAttributeNode documentation> +setAttributeNode_ ::+                  (MonadIO m, IsElement self) => self -> Attr -> m ()+setAttributeNode_ self newAttr+  = liftIO (void (js_setAttributeNode (toElement self) newAttr))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.setAttributeNode Mozilla Element.setAttributeNode documentation> +setAttributeNodeUnsafe ::+                       (MonadIO m, IsElement self, HasCallStack) => self -> Attr -> m Attr+setAttributeNodeUnsafe self newAttr+  = liftIO+      ((nullableToMaybe <$>+          (js_setAttributeNode (toElement self) newAttr))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.setAttributeNode Mozilla Element.setAttributeNode documentation> +setAttributeNodeUnchecked ::+                          (MonadIO m, IsElement self) => self -> Attr -> m Attr+setAttributeNodeUnchecked self newAttr+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_setAttributeNode (toElement self) newAttr))+ +foreign import javascript unsafe "$1[\"removeAttributeNode\"]($2)"+        js_removeAttributeNode :: Element -> Attr -> IO Attr++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.removeAttributeNode Mozilla Element.removeAttributeNode documentation> +removeAttributeNode ::+                    (MonadIO m, IsElement self) => self -> Attr -> m Attr+removeAttributeNode self oldAttr+  = liftIO (js_removeAttributeNode (toElement self) oldAttr)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.removeAttributeNode Mozilla Element.removeAttributeNode documentation> +removeAttributeNode_ ::+                     (MonadIO m, IsElement self) => self -> Attr -> m ()+removeAttributeNode_ self oldAttr+  = liftIO (void (js_removeAttributeNode (toElement self) oldAttr))+ +foreign import javascript unsafe "$1[\"getElementsByTagName\"]($2)"+        js_getElementsByTagName :: Element -> JSString -> IO HTMLCollection++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getElementsByTagName Mozilla Element.getElementsByTagName documentation> +getElementsByTagName ::+                     (MonadIO m, IsElement self, ToJSString name) =>+                       self -> name -> m HTMLCollection+getElementsByTagName self name+  = liftIO+      (js_getElementsByTagName (toElement self) (toJSString name))++-- | <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 ()+getElementsByTagName_ self name+  = liftIO+      (void (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))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.hasAttributes Mozilla Element.hasAttributes documentation> +hasAttributes_ :: (MonadIO m, IsElement self) => self -> m ()+hasAttributes_ self+  = liftIO (void (js_hasAttributes (toElement self)))+ +foreign import javascript unsafe "$1[\"getAttributeNS\"]($2, $3)"+        js_getAttributeNS ::+        Element -> Optional JSString -> JSString -> IO (Nullable JSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getAttributeNS Mozilla Element.getAttributeNS documentation> +getAttributeNS ::+               (MonadIO m, IsElement self, ToJSString namespaceURI,+                ToJSString localName, FromJSString result) =>+                 self -> Maybe namespaceURI -> localName -> m (Maybe result)+getAttributeNS self namespaceURI localName+  = liftIO+      (fromMaybeJSString <$>+         (js_getAttributeNS (toElement self)+            (toOptionalJSString namespaceURI)+            (toJSString localName)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getAttributeNS Mozilla Element.getAttributeNS documentation> +getAttributeNS_ ::+                (MonadIO m, IsElement self, ToJSString namespaceURI,+                 ToJSString localName) =>+                  self -> Maybe namespaceURI -> localName -> m ()+getAttributeNS_ self namespaceURI localName+  = liftIO+      (void+         (js_getAttributeNS (toElement self)+            (toOptionalJSString namespaceURI)+            (toJSString localName)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getAttributeNS Mozilla Element.getAttributeNS documentation> +getAttributeNSUnsafe ::+                     (MonadIO m, IsElement self, ToJSString namespaceURI,+                      ToJSString localName, HasCallStack, FromJSString result) =>+                       self -> Maybe namespaceURI -> localName -> m result+getAttributeNSUnsafe self namespaceURI localName+  = liftIO+      ((fromMaybeJSString <$>+          (js_getAttributeNS (toElement self)+             (toOptionalJSString namespaceURI)+             (toJSString localName)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getAttributeNS Mozilla Element.getAttributeNS documentation> +getAttributeNSUnchecked ::+                        (MonadIO m, IsElement self, ToJSString namespaceURI,+                         ToJSString localName, FromJSString result) =>+                          self -> Maybe namespaceURI -> localName -> m result+getAttributeNSUnchecked self namespaceURI localName+  = liftIO+      (fromJust . fromMaybeJSString <$>+         (js_getAttributeNS (toElement self)+            (toOptionalJSString namespaceURI)+            (toJSString localName)))+ +foreign import javascript unsafe+        "$1[\"setAttributeNS\"]($2, $3, $4)" js_setAttributeNS ::+        Element -> Optional JSString -> JSString -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.setAttributeNS Mozilla Element.setAttributeNS documentation> +setAttributeNS ::+               (MonadIO m, IsElement self, ToJSString namespaceURI,+                ToJSString qualifiedName, ToJSString value) =>+                 self -> Maybe namespaceURI -> qualifiedName -> value -> m ()+setAttributeNS self namespaceURI qualifiedName value+  = liftIO+      (js_setAttributeNS (toElement self)+         (toOptionalJSString namespaceURI)+         (toJSString qualifiedName)+         (toJSString value))+ +foreign import javascript unsafe+        "$1[\"removeAttributeNS\"]($2, $3)" js_removeAttributeNS ::+        Element -> Optional JSString -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.removeAttributeNS Mozilla Element.removeAttributeNS documentation> +removeAttributeNS ::+                  (MonadIO m, IsElement self, ToJSString namespaceURI,+                   ToJSString localName) =>+                    self -> Maybe namespaceURI -> localName -> m ()+removeAttributeNS self namespaceURI localName+  = liftIO+      (js_removeAttributeNS (toElement self)+         (toOptionalJSString namespaceURI)+         (toJSString localName))+ +foreign import javascript unsafe+        "$1[\"getElementsByTagNameNS\"]($2,\n$3)" js_getElementsByTagNameNS+        :: Element -> Optional JSString -> JSString -> IO HTMLCollection++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getElementsByTagNameNS Mozilla Element.getElementsByTagNameNS documentation> +getElementsByTagNameNS ::+                       (MonadIO m, IsElement self, ToJSString namespaceURI,+                        ToJSString localName) =>+                         self -> Maybe namespaceURI -> localName -> m HTMLCollection+getElementsByTagNameNS self namespaceURI localName+  = liftIO+      (js_getElementsByTagNameNS (toElement self)+         (toOptionalJSString namespaceURI)+         (toJSString localName))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getElementsByTagNameNS Mozilla Element.getElementsByTagNameNS documentation> +getElementsByTagNameNS_ ::+                        (MonadIO m, IsElement self, ToJSString namespaceURI,+                         ToJSString localName) =>+                          self -> Maybe namespaceURI -> localName -> m ()+getElementsByTagNameNS_ self namespaceURI localName+  = liftIO+      (void+         (js_getElementsByTagNameNS (toElement self)+            (toOptionalJSString namespaceURI)+            (toJSString localName)))+ +foreign import javascript unsafe+        "$1[\"getAttributeNodeNS\"]($2, $3)" js_getAttributeNodeNS ::+        Element -> Optional JSString -> JSString -> IO (Nullable Attr)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getAttributeNodeNS Mozilla Element.getAttributeNodeNS documentation> +getAttributeNodeNS ::+                   (MonadIO m, IsElement self, ToJSString namespaceURI,+                    ToJSString localName) =>+                     self -> Maybe namespaceURI -> localName -> m (Maybe Attr)+getAttributeNodeNS self namespaceURI localName+  = liftIO+      (nullableToMaybe <$>+         (js_getAttributeNodeNS (toElement self)+            (toOptionalJSString namespaceURI)+            (toJSString localName)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getAttributeNodeNS Mozilla Element.getAttributeNodeNS documentation> +getAttributeNodeNS_ ::+                    (MonadIO m, IsElement self, ToJSString namespaceURI,+                     ToJSString localName) =>+                      self -> Maybe namespaceURI -> localName -> m ()+getAttributeNodeNS_ self namespaceURI localName+  = liftIO+      (void+         (js_getAttributeNodeNS (toElement self)+            (toOptionalJSString namespaceURI)+            (toJSString localName)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getAttributeNodeNS Mozilla Element.getAttributeNodeNS documentation> +getAttributeNodeNSUnsafe ::+                         (MonadIO m, IsElement self, ToJSString namespaceURI,+                          ToJSString localName, HasCallStack) =>+                           self -> Maybe namespaceURI -> localName -> m Attr+getAttributeNodeNSUnsafe self namespaceURI localName+  = liftIO+      ((nullableToMaybe <$>+          (js_getAttributeNodeNS (toElement self)+             (toOptionalJSString namespaceURI)+             (toJSString localName)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getAttributeNodeNS Mozilla Element.getAttributeNodeNS documentation> +getAttributeNodeNSUnchecked ::+                            (MonadIO m, IsElement self, ToJSString namespaceURI,+                             ToJSString localName) =>+                              self -> Maybe namespaceURI -> localName -> m Attr+getAttributeNodeNSUnchecked self namespaceURI localName+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getAttributeNodeNS (toElement self)+            (toOptionalJSString namespaceURI)+            (toJSString localName)))+ +foreign import javascript unsafe "$1[\"setAttributeNodeNS\"]($2)"+        js_setAttributeNodeNS :: Element -> Attr -> IO (Nullable Attr)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.setAttributeNodeNS Mozilla Element.setAttributeNodeNS documentation> +setAttributeNodeNS ::+                   (MonadIO m, IsElement self) => self -> Attr -> m (Maybe Attr)+setAttributeNodeNS self newAttr+  = liftIO+      (nullableToMaybe <$>+         (js_setAttributeNodeNS (toElement self) newAttr))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.setAttributeNodeNS Mozilla Element.setAttributeNodeNS documentation> +setAttributeNodeNS_ ::+                    (MonadIO m, IsElement self) => self -> Attr -> m ()+setAttributeNodeNS_ self newAttr+  = liftIO (void (js_setAttributeNodeNS (toElement self) newAttr))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.setAttributeNodeNS Mozilla Element.setAttributeNodeNS documentation> +setAttributeNodeNSUnsafe ::+                         (MonadIO m, IsElement self, HasCallStack) => self -> Attr -> m Attr+setAttributeNodeNSUnsafe self newAttr+  = liftIO+      ((nullableToMaybe <$>+          (js_setAttributeNodeNS (toElement self) newAttr))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.setAttributeNodeNS Mozilla Element.setAttributeNodeNS documentation> +setAttributeNodeNSUnchecked ::+                            (MonadIO m, IsElement self) => self -> Attr -> m Attr+setAttributeNodeNSUnchecked self newAttr+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_setAttributeNodeNS (toElement self) 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))++-- | <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 ()+hasAttribute_ self name+  = liftIO+      (void (js_hasAttribute (toElement self) (toJSString name)))+ +foreign import javascript unsafe+        "($1[\"hasAttributeNS\"]($2,\n$3) ? 1 : 0)" js_hasAttributeNS ::+        Element -> Optional JSString -> JSString -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.hasAttributeNS Mozilla Element.hasAttributeNS documentation> +hasAttributeNS ::+               (MonadIO m, IsElement self, ToJSString namespaceURI,+                ToJSString localName) =>+                 self -> Maybe namespaceURI -> localName -> m Bool+hasAttributeNS self namespaceURI localName+  = liftIO+      (js_hasAttributeNS (toElement self)+         (toOptionalJSString namespaceURI)+         (toJSString localName))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.hasAttributeNS Mozilla Element.hasAttributeNS documentation> +hasAttributeNS_ ::+                (MonadIO m, IsElement self, ToJSString namespaceURI,+                 ToJSString localName) =>+                  self -> Maybe namespaceURI -> localName -> m ()+hasAttributeNS_ self namespaceURI localName+  = liftIO+      (void+         (js_hasAttributeNS (toElement self)+            (toOptionalJSString namespaceURI)+            (toJSString localName)))+ +foreign import javascript unsafe "$1[\"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[\"scroll\"]($2)" js_scrollOpt+        :: Element -> Optional ScrollToOptions -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.scroll Mozilla Element.scroll documentation> +scrollOpt ::+          (MonadIO m, IsElement self) =>+            self -> Maybe ScrollToOptions -> m ()+scrollOpt self options+  = liftIO (js_scrollOpt (toElement self) (maybeToOptional options))+ +foreign import javascript unsafe "$1[\"scroll\"]($2, $3)" js_scroll+        :: Element -> Double -> Double -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.scroll Mozilla Element.scroll documentation> +scroll ::+       (MonadIO m, IsElement self) => self -> Double -> Double -> m ()+scroll self x y = liftIO (js_scroll (toElement self) x y)+ +foreign import javascript unsafe "$1[\"scrollTo\"]($2)"+        js_scrollToOpt :: Element -> Optional ScrollToOptions -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.scrollTo Mozilla Element.scrollTo documentation> +scrollToOpt ::+            (MonadIO m, IsElement self) =>+              self -> Maybe ScrollToOptions -> m ()+scrollToOpt self options+  = liftIO+      (js_scrollToOpt (toElement self) (maybeToOptional options))+ +foreign import javascript unsafe "$1[\"scrollTo\"]($2, $3)"+        js_scrollTo :: Element -> Double -> Double -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.scrollTo Mozilla Element.scrollTo documentation> +scrollTo ::+         (MonadIO m, IsElement self) => self -> Double -> Double -> m ()+scrollTo self x y = liftIO (js_scrollTo (toElement self) x y)+ +foreign import javascript unsafe "$1[\"scrollBy\"]($2)"+        js_scrollByOpt :: Element -> Optional ScrollToOptions -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.scrollBy Mozilla Element.scrollBy documentation> +scrollByOpt ::+            (MonadIO m, IsElement self) =>+              self -> Maybe ScrollToOptions -> m ()+scrollByOpt self option+  = liftIO (js_scrollByOpt (toElement self) (maybeToOptional option))+ +foreign import javascript unsafe "$1[\"scrollBy\"]($2, $3)"+        js_scrollBy :: Element -> Double -> Double -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.scrollBy Mozilla Element.scrollBy documentation> +scrollBy ::+         (MonadIO m, IsElement self) => self -> Double -> Double -> m ()+scrollBy self x y = liftIO (js_scrollBy (toElement self) x y)+ +foreign import javascript unsafe "$1[\"scrollByLines\"]($2)"+        js_scrollByLines :: Element -> Optional Int -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.scrollByLines Mozilla Element.scrollByLines documentation> +scrollByLines ::+              (MonadIO m, IsElement self) => self -> Maybe Int -> m ()+scrollByLines self lines+  = liftIO+      (js_scrollByLines (toElement self) (maybeToOptional lines))+ +foreign import javascript unsafe "$1[\"scrollByPages\"]($2)"+        js_scrollByPages :: Element -> Optional Int -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.scrollByPages Mozilla Element.scrollByPages documentation> +scrollByPages ::+              (MonadIO m, IsElement self) => self -> Maybe Int -> m ()+scrollByPages self pages+  = liftIO+      (js_scrollByPages (toElement self) (maybeToOptional pages))+ +foreign import javascript unsafe "$1[\"getAttributeNames\"]()"+        js_getAttributeNames :: Element -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getAttributeNames Mozilla Element.getAttributeNames documentation> +getAttributeNames ::+                  (MonadIO m, IsElement self, FromJSString result) =>+                    self -> m [result]+getAttributeNames self+  = liftIO+      ((js_getAttributeNames (toElement self)) >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getAttributeNames Mozilla Element.getAttributeNames documentation> +getAttributeNames_ :: (MonadIO m, IsElement self) => self -> m ()+getAttributeNames_ self+  = liftIO (void (js_getAttributeNames (toElement self)))+ +foreign import javascript unsafe+        "$1[\"getElementsByClassName\"]($2)" js_getElementsByClassName ::+        Element -> JSString -> IO HTMLCollection++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getElementsByClassName Mozilla Element.getElementsByClassName documentation> +getElementsByClassName ::+                       (MonadIO m, IsElement self, ToJSString name) =>+                         self -> name -> m HTMLCollection+getElementsByClassName self name+  = liftIO+      (js_getElementsByClassName (toElement self) (toJSString name))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getElementsByClassName Mozilla Element.getElementsByClassName documentation> +getElementsByClassName_ ::+                        (MonadIO m, IsElement self, ToJSString name) =>+                          self -> name -> m ()+getElementsByClassName_ self name+  = liftIO+      (void+         (js_getElementsByClassName (toElement self) (toJSString name)))+ +foreign import javascript 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))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.matches Mozilla Element.matches documentation> +matches_ ::+         (MonadIO m, IsElement self, ToJSString selectors) =>+           self -> selectors -> m ()+matches_ self selectors+  = liftIO+      (void (js_matches (toElement self) (toJSString selectors)))+ +foreign import javascript 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)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.closest Mozilla Element.closest documentation> +closest_ ::+         (MonadIO m, IsElement self, ToJSString selectors) =>+           self -> selectors -> m ()+closest_ self selectors+  = liftIO+      (void (js_closest (toElement self) (toJSString selectors)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.closest Mozilla Element.closest documentation> +closestUnsafe ::+              (MonadIO m, IsElement self, ToJSString selectors, HasCallStack) =>+                self -> selectors -> m Element+closestUnsafe self selectors+  = liftIO+      ((nullableToMaybe <$>+          (js_closest (toElement self) (toJSString selectors)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.closest Mozilla Element.closest documentation> +closestUnchecked ::+                 (MonadIO m, IsElement self, ToJSString selectors) =>+                   self -> selectors -> m Element+closestUnchecked self selectors+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_closest (toElement self) (toJSString selectors)))+ +foreign import javascript 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))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.webkitMatchesSelector Mozilla Element.webkitMatchesSelector documentation> +webkitMatchesSelector_ ::+                       (MonadIO m, IsElement self, ToJSString selectors) =>+                         self -> selectors -> m ()+webkitMatchesSelector_ self selectors+  = liftIO+      (void+         (js_webkitMatchesSelector (toElement self) (toJSString selectors)))+ +foreign import javascript unsafe "$1[\"getClientRects\"]()"+        js_getClientRects :: Element -> IO ClientRectList++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getClientRects Mozilla Element.getClientRects documentation> +getClientRects ::+               (MonadIO m, IsElement self) => self -> m ClientRectList+getClientRects self = liftIO (js_getClientRects (toElement self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getClientRects Mozilla Element.getClientRects documentation> +getClientRects_ :: (MonadIO m, IsElement self) => self -> m ()+getClientRects_ self+  = liftIO (void (js_getClientRects (toElement self)))+ +foreign import javascript unsafe "$1[\"getBoundingClientRect\"]()"+        js_getBoundingClientRect :: Element -> IO ClientRect++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getBoundingClientRect Mozilla Element.getBoundingClientRect documentation> +getBoundingClientRect ::+                      (MonadIO m, IsElement self) => self -> m ClientRect+getBoundingClientRect self+  = liftIO (js_getBoundingClientRect (toElement self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getBoundingClientRect Mozilla Element.getBoundingClientRect documentation> +getBoundingClientRect_ ::+                       (MonadIO m, IsElement self) => self -> m ()+getBoundingClientRect_ self+  = liftIO (void (js_getBoundingClientRect (toElement self)))+ +foreign import javascript unsafe+        "$1[\"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[\"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[\"insertAdjacentElement\"]($2,\n$3)" js_insertAdjacentElement+        :: Element -> JSString -> Element -> IO (Nullable Element)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.insertAdjacentElement Mozilla Element.insertAdjacentElement documentation> +insertAdjacentElement ::+                      (MonadIO m, IsElement self, ToJSString where',+                       IsElement element) =>+                        self -> where' -> element -> m (Maybe Element)+insertAdjacentElement self where' element+  = liftIO+      (nullableToMaybe <$>+         (js_insertAdjacentElement (toElement self) (toJSString where')+            (toElement element)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.insertAdjacentElement Mozilla Element.insertAdjacentElement documentation> +insertAdjacentElement_ ::+                       (MonadIO m, IsElement self, ToJSString where',+                        IsElement element) =>+                         self -> where' -> element -> m ()+insertAdjacentElement_ self where' element+  = liftIO+      (void+         (js_insertAdjacentElement (toElement self) (toJSString where')+            (toElement element)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.insertAdjacentElement Mozilla Element.insertAdjacentElement documentation> +insertAdjacentElementUnsafe ::+                            (MonadIO m, IsElement self, ToJSString where', IsElement element,+                             HasCallStack) =>+                              self -> where' -> element -> m Element+insertAdjacentElementUnsafe self where' element+  = liftIO+      ((nullableToMaybe <$>+          (js_insertAdjacentElement (toElement self) (toJSString where')+             (toElement element)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.insertAdjacentElement Mozilla Element.insertAdjacentElement documentation> +insertAdjacentElementUnchecked ::+                               (MonadIO m, IsElement self, ToJSString where',+                                IsElement element) =>+                                 self -> where' -> element -> m Element+insertAdjacentElementUnchecked self where' element+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_insertAdjacentElement (toElement self) (toJSString where')+            (toElement element)))+ +foreign import javascript unsafe+        "$1[\"insertAdjacentHTML\"]($2, $3)" js_insertAdjacentHTML ::+        Element -> JSString -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.insertAdjacentHTML Mozilla Element.insertAdjacentHTML documentation> +insertAdjacentHTML ::+                   (MonadIO m, IsElement self, ToJSString where', ToJSString html) =>+                     self -> where' -> html -> m ()+insertAdjacentHTML self where' html+  = liftIO+      (js_insertAdjacentHTML (toElement self) (toJSString where')+         (toJSString html))+ +foreign import javascript unsafe+        "$1[\"insertAdjacentText\"]($2, $3)" js_insertAdjacentText ::+        Element -> JSString -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.insertAdjacentText Mozilla Element.insertAdjacentText documentation> +insertAdjacentText ::+                   (MonadIO m, IsElement self, ToJSString where', ToJSString text) =>+                     self -> where' -> text -> m ()+insertAdjacentText self where' text+  = liftIO+      (js_insertAdjacentText (toElement self) (toJSString where')+         (toJSString text))+ +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 [Range]+webkitGetRegionFlowRanges self+  = liftIO+      ((js_webkitGetRegionFlowRanges (toElement self)) >>=+         fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.webkitGetRegionFlowRanges Mozilla Element.webkitGetRegionFlowRanges documentation> +webkitGetRegionFlowRanges_ ::+                           (MonadIO m, IsElement self) => self -> m ()+webkitGetRegionFlowRanges_ self+  = liftIO (void (js_webkitGetRegionFlowRanges (toElement self)))+ +foreign import javascript unsafe "$1[\"attachShadow\"]($2)"+        js_attachShadow :: Element -> ShadowRootInit -> IO ShadowRoot++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.attachShadow Mozilla Element.attachShadow documentation> +attachShadow ::+             (MonadIO m, IsElement self) =>+               self -> ShadowRootInit -> m ShadowRoot+attachShadow self init+  = liftIO (js_attachShadow (toElement self) init)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.attachShadow Mozilla Element.attachShadow documentation> +attachShadow_ ::+              (MonadIO m, IsElement self) => self -> ShadowRootInit -> m ()+attachShadow_ self init+  = liftIO (void (js_attachShadow (toElement self) init))+ +foreign import javascript 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)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.tagName Mozilla Element.tagName documentation> +getTagNameUnsafe ::+                 (MonadIO m, IsElement self, HasCallStack, FromJSString result) =>+                   self -> m result+getTagNameUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getTagName (toElement self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.tagName Mozilla Element.tagName documentation> +getTagNameUnchecked ::+                    (MonadIO m, IsElement self, FromJSString result) =>+                      self -> m result+getTagNameUnchecked self+  = liftIO+      (fromJust . fromMaybeJSString <$> (js_getTagName (toElement self)))+ +foreign import javascript unsafe "$1[\"attributes\"]"+        js_getAttributes :: Element -> IO NamedNodeMap++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.attributes Mozilla Element.attributes documentation> +getAttributes ::+              (MonadIO m, IsElement self) => self -> m NamedNodeMap+getAttributes self = liftIO (js_getAttributes (toElement self))+ +foreign import javascript unsafe "$1[\"style\"]" js_getStyle ::+        Element -> IO CSSStyleDeclaration++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.style Mozilla Element.style documentation> +getStyle ::+         (MonadIO m, IsElement self) => self -> m CSSStyleDeclaration+getStyle self = liftIO (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[\"namespaceURI\"]"+        js_getNamespaceURI :: Element -> IO (Nullable JSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.namespaceURI Mozilla Element.namespaceURI documentation> +getNamespaceURI ::+                (MonadIO m, IsElement self, FromJSString result) =>+                  self -> m (Maybe result)+getNamespaceURI self+  = liftIO+      (fromMaybeJSString <$> (js_getNamespaceURI (toElement self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.namespaceURI Mozilla Element.namespaceURI documentation> +getNamespaceURIUnsafe ::+                      (MonadIO m, IsElement self, HasCallStack, FromJSString result) =>+                        self -> m result+getNamespaceURIUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getNamespaceURI (toElement self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.namespaceURI Mozilla Element.namespaceURI documentation> +getNamespaceURIUnchecked ::+                         (MonadIO m, IsElement self, FromJSString result) =>+                           self -> m result+getNamespaceURIUnchecked self+  = liftIO+      (fromJust . fromMaybeJSString <$>+         (js_getNamespaceURI (toElement self)))+ +foreign import javascript unsafe "$1[\"prefix\"]" js_getPrefix ::+        Element -> IO (Nullable JSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.prefix Mozilla Element.prefix documentation> +getPrefix ::+          (MonadIO m, IsElement self, FromJSString result) =>+            self -> m (Maybe result)+getPrefix self+  = liftIO (fromMaybeJSString <$> (js_getPrefix (toElement self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.prefix Mozilla Element.prefix documentation> +getPrefixUnsafe ::+                (MonadIO m, IsElement self, HasCallStack, FromJSString result) =>+                  self -> m result+getPrefixUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getPrefix (toElement self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.prefix Mozilla Element.prefix documentation> +getPrefixUnchecked ::+                   (MonadIO m, IsElement self, FromJSString result) =>+                     self -> m result+getPrefixUnchecked self+  = liftIO+      (fromJust . fromMaybeJSString <$> (js_getPrefix (toElement self)))+ +foreign import javascript unsafe "$1[\"localName\"]"+        js_getLocalName :: Element -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.localName Mozilla Element.localName documentation> +getLocalName ::+             (MonadIO m, IsElement self, FromJSString result) =>+               self -> m result+getLocalName self+  = liftIO (fromJSString <$> (js_getLocalName (toElement self)))+ +foreign import javascript unsafe "$1[\"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 Element++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.offsetParent Mozilla Element.offsetParent documentation> +getOffsetParent :: (MonadIO m, IsElement self) => self -> m Element+getOffsetParent self = liftIO (js_getOffsetParent (toElement self))+ +foreign import javascript unsafe "$1[\"innerHTML\"] = $2;"+        js_setInnerHTML :: Element -> Optional 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) (toOptionalJSString 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)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.innerHTML Mozilla Element.innerHTML documentation> +getInnerHTMLUnsafe ::+                   (MonadIO m, IsElement self, HasCallStack, FromJSString result) =>+                     self -> m result+getInnerHTMLUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getInnerHTML (toElement self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.innerHTML Mozilla Element.innerHTML documentation> +getInnerHTMLUnchecked ::+                      (MonadIO m, IsElement self, FromJSString result) =>+                        self -> m result+getInnerHTMLUnchecked self+  = liftIO+      (fromJust . fromMaybeJSString <$>+         (js_getInnerHTML (toElement self)))+ +foreign import javascript unsafe "$1[\"outerHTML\"] = $2;"+        js_setOuterHTML :: Element -> Optional 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) (toOptionalJSString 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)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.outerHTML Mozilla Element.outerHTML documentation> +getOuterHTMLUnsafe ::+                   (MonadIO m, IsElement self, HasCallStack, FromJSString result) =>+                     self -> m result+getOuterHTMLUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getOuterHTML (toElement self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.outerHTML Mozilla Element.outerHTML documentation> +getOuterHTMLUnchecked ::+                      (MonadIO m, IsElement self, FromJSString result) =>+                        self -> m result+getOuterHTMLUnchecked self+  = liftIO+      (fromJust . 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 DOMTokenList++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.classList Mozilla Element.classList documentation> +getClassList ::+             (MonadIO m, IsElement self) => self -> m DOMTokenList+getClassList self = liftIO (js_getClassList (toElement self))+ +foreign import javascript unsafe "$1[\"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)))+ +foreign import javascript unsafe "$1[\"shadowRoot\"]"+        js_getShadowRoot :: Element -> IO ShadowRoot++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.shadowRoot Mozilla Element.shadowRoot documentation> +getShadowRoot ::+              (MonadIO m, IsElement self) => self -> m ShadowRoot+getShadowRoot self = liftIO (js_getShadowRoot (toElement self))+ +foreign import javascript unsafe "$1[\"slot\"] = $2;" js_setSlot ::+        Element -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.slot Mozilla Element.slot documentation> +setSlot ::+        (MonadIO m, IsElement self, ToJSString val) => self -> val -> m ()+setSlot self val+  = liftIO (js_setSlot (toElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"slot\"]" js_getSlot ::+        Element -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.slot Mozilla Element.slot documentation> +getSlot ::+        (MonadIO m, IsElement self, FromJSString result) =>+          self -> m result+getSlot self+  = liftIO (fromJSString <$> (js_getSlot (toElement self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onbeforecopy Mozilla Element.onbeforecopy documentation> +beforeCopy ::+           (IsElement self, IsEventTarget self) =>+             EventName self ClipboardEvent+beforeCopy = unsafeEventName (toJSString "beforecopy")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onbeforecut Mozilla Element.onbeforecut documentation> +beforeCut ::+          (IsElement self, IsEventTarget self) =>+            EventName self ClipboardEvent+beforeCut = unsafeEventName (toJSString "beforecut")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onbeforeinput Mozilla Element.onbeforeinput documentation> +beforeinput ::+            (IsElement self, IsEventTarget self) =>+              EventName self onbeforeinput+beforeinput = unsafeEventName (toJSString "beforeinput")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onbeforepaste Mozilla Element.onbeforepaste documentation> +beforePaste ::+            (IsElement self, IsEventTarget self) =>+              EventName self ClipboardEvent+beforePaste = unsafeEventName (toJSString "beforepaste")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.oncopy Mozilla Element.oncopy documentation> +copy ::+     (IsElement self, IsEventTarget self) =>+       EventName self ClipboardEvent+copy = unsafeEventName (toJSString "copy")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.oncut Mozilla Element.oncut documentation> +cut ::+    (IsElement self, IsEventTarget self) =>+      EventName self ClipboardEvent+cut = unsafeEventName (toJSString "cut")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onpaste Mozilla Element.onpaste documentation> +paste ::+      (IsElement self, IsEventTarget self) =>+        EventName self ClipboardEvent+paste = unsafeEventName (toJSString "paste")++-- | <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.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.onanimationend Mozilla Element.onanimationend documentation> +animationEnd ::+             (IsElement self, IsEventTarget self) =>+               EventName self AnimationEvent+animationEnd = unsafeEventName (toJSString "animationend")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onanimationiteration Mozilla Element.onanimationiteration documentation> +animationIteration ::+                   (IsElement self, IsEventTarget self) =>+                     EventName self AnimationEvent+animationIteration+  = unsafeEventName (toJSString "animationiteration")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onanimationstart Mozilla Element.onanimationstart documentation> +animationStart ::+               (IsElement self, IsEventTarget self) =>+                 EventName self AnimationEvent+animationStart = unsafeEventName (toJSString "animationstart")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.ontransitionend Mozilla Element.ontransitionend documentation> +transitionEnd ::+              (IsElement self, IsEventTarget self) =>+                EventName self TransitionEvent+transitionEnd = unsafeEventName (toJSString "transitionend")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onwebkitanimationend Mozilla Element.onwebkitanimationend documentation> +webKitAnimationEnd ::+                   (IsElement self, IsEventTarget self) =>+                     EventName self AnimationEvent+webKitAnimationEnd+  = unsafeEventName (toJSString "webkitanimationend")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onwebkitanimationiteration Mozilla Element.onwebkitanimationiteration documentation> +webKitAnimationIteration ::+                         (IsElement self, IsEventTarget self) =>+                           EventName self AnimationEvent+webKitAnimationIteration+  = unsafeEventName (toJSString "webkitanimationiteration")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onwebkitanimationstart Mozilla Element.onwebkitanimationstart documentation> +webKitAnimationStart ::+                     (IsElement self, IsEventTarget self) =>+                       EventName self AnimationEvent+webKitAnimationStart+  = unsafeEventName (toJSString "webkitanimationstart")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onwebkittransitionend Mozilla Element.onwebkittransitionend documentation> +webKitTransitionEnd ::+                    (IsElement self, IsEventTarget self) =>+                      EventName self TransitionEvent+webKitTransitionEnd+  = unsafeEventName (toJSString "webkittransitionend")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.ongesturechange Mozilla Element.ongesturechange documentation> +gestureChange ::+              (IsElement self, IsEventTarget self) => EventName self UIEvent+gestureChange = unsafeEventName (toJSString "gesturechange")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.ongestureend Mozilla Element.ongestureend documentation> +gestureEnd ::+           (IsElement self, IsEventTarget self) => EventName self UIEvent+gestureEnd = unsafeEventName (toJSString "gestureend")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.ongesturestart Mozilla Element.ongesturestart documentation> +gestureStart ::+             (IsElement self, IsEventTarget self) => EventName self UIEvent+gestureStart = unsafeEventName (toJSString "gesturestart")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onfocusin Mozilla Element.onfocusin documentation> +focusin ::+        (IsElement self, IsEventTarget self) => EventName self onfocusin+focusin = unsafeEventName (toJSString "focusin")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onfocusout Mozilla Element.onfocusout documentation> +focusout ::+         (IsElement self, IsEventTarget self) => EventName self onfocusout+focusout = unsafeEventName (toJSString "focusout")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onbeforeload Mozilla Element.onbeforeload documentation> +beforeload ::+           (IsElement self, IsEventTarget self) => EventName self onbeforeload+beforeload = unsafeEventName (toJSString "beforeload")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onwebkitneedkey Mozilla Element.onwebkitneedkey documentation> +webKitNeedKey ::+              (IsElement self, IsEventTarget self) => EventName self Event+webKitNeedKey = unsafeEventName (toJSString "webkitneedkey")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onwebkitpresentationmodechanged Mozilla Element.onwebkitpresentationmodechanged documentation> +webKitPresentationModeChanged ::+                              (IsElement self, IsEventTarget self) => EventName self Event+webKitPresentationModeChanged+  = unsafeEventName (toJSString "webkitpresentationmodechanged")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onwebkitcurrentplaybacktargetiswirelesschanged Mozilla Element.onwebkitcurrentplaybacktargetiswirelesschanged documentation> +webKitCurrentPlaybackTargetIsWirelessChanged ::+                                             (IsElement self, IsEventTarget self) =>+                                               EventName self Event+webKitCurrentPlaybackTargetIsWirelessChanged+  = unsafeEventName+      (toJSString "webkitcurrentplaybacktargetiswirelesschanged")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onwebkitplaybacktargetavailabilitychanged Mozilla Element.onwebkitplaybacktargetavailabilitychanged documentation> +webKitPlaybackTargetAvailabilityChanged ::+                                        (IsElement self, IsEventTarget self) => EventName self Event+webKitPlaybackTargetAvailabilityChanged+  = unsafeEventName+      (toJSString "webkitplaybacktargetavailabilitychanged")
− src/GHCJS/DOM/JSFFI/Generated/Entity.hs 
@@ -1,102 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility-{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}-module GHCJS.DOM.JSFFI.Generated.Entity-       (js_getPublicId, getPublicId, getPublicIdUnsafe,-        getPublicIdUnchecked, js_getSystemId, getSystemId,-        getSystemIdUnsafe, getSystemIdUnchecked, js_getNotationName,-        getNotationName, getNotationNameUnsafe, getNotationNameUnchecked,-        Entity(..), gTypeEntity)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)-import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))-import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Entity.publicId Mozilla Entity.publicId documentation> -getPublicIdUnsafe ::-                  (MonadIO m, HasCallStack, FromJSString result) =>-                    Entity -> m result-getPublicIdUnsafe self-  = liftIO-      ((fromMaybeJSString <$> (js_getPublicId (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Entity.publicId Mozilla Entity.publicId documentation> -getPublicIdUnchecked ::-                     (MonadIO m, FromJSString result) => Entity -> m result-getPublicIdUnchecked self-  = liftIO (fromJust . 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Entity.systemId Mozilla Entity.systemId documentation> -getSystemIdUnsafe ::-                  (MonadIO m, HasCallStack, FromJSString result) =>-                    Entity -> m result-getSystemIdUnsafe self-  = liftIO-      ((fromMaybeJSString <$> (js_getSystemId (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Entity.systemId Mozilla Entity.systemId documentation> -getSystemIdUnchecked ::-                     (MonadIO m, FromJSString result) => Entity -> m result-getSystemIdUnchecked self-  = liftIO (fromJust . 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Entity.notationName Mozilla Entity.notationName documentation> -getNotationNameUnsafe ::-                      (MonadIO m, HasCallStack, FromJSString result) =>-                        Entity -> m result-getNotationNameUnsafe self-  = liftIO-      ((fromMaybeJSString <$> (js_getNotationName (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Entity.notationName Mozilla Entity.notationName documentation> -getNotationNameUnchecked ::-                         (MonadIO m, FromJSString result) => Entity -> m result-getNotationNameUnchecked self-  = liftIO-      (fromJust . fromMaybeJSString <$> (js_getNotationName (self)))
src/GHCJS/DOM/JSFFI/Generated/Enums.hs view
@@ -5,711 +5,2322 @@ {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} 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 qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)-import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))-import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import 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+        js_KeyTypePublic, js_KeyTypePrivate, js_KeyTypeSecret,+        CryptoKeyUsage(..), js_CryptoKeyUsageEncrypt,+        js_CryptoKeyUsageDecrypt, js_CryptoKeyUsageSign,+        js_CryptoKeyUsageVerify, js_CryptoKeyUsageDeriveKey,+        js_CryptoKeyUsageDeriveBits, js_CryptoKeyUsageWrapKey,+        js_CryptoKeyUsageUnwrapKey, KeyFormat(..), js_KeyFormatRaw,+        js_KeyFormatSpki, js_KeyFormatPkcs8, js_KeyFormatJwk,+        FontFaceLoadStatus(..), js_FontFaceLoadStatusUnloaded,+        js_FontFaceLoadStatusLoading, js_FontFaceLoadStatusLoaded,+        js_FontFaceLoadStatusError, FontFaceSetLoadStatus(..),+        js_FontFaceSetLoadStatusLoading, js_FontFaceSetLoadStatusLoaded,+        VisibilityState(..), js_VisibilityStateHidden,+        js_VisibilityStateVisible, js_VisibilityStatePrerender,+        ShadowRootMode(..), js_ShadowRootModeUserAgent,+        js_ShadowRootModeClosed, js_ShadowRootModeOpen,+        BlobLineEndings(..), js_BlobLineEndingsTransparent,+        js_BlobLineEndingsNative, ImageSmoothingQuality(..),+        js_ImageSmoothingQualityLow, js_ImageSmoothingQualityMedium,+        js_ImageSmoothingQualityHigh, CanvasWindingRule(..),+        js_CanvasWindingRuleNonzero, js_CanvasWindingRuleEvenodd,+        WebGLPowerPreference(..), js_WebGLPowerPreferenceDefault,+        js_WebGLPowerPreferenceLowPower,+        js_WebGLPowerPreferenceHighPerformance, VideoPresentationMode(..),+        js_VideoPresentationModeFullscreen,+        js_VideoPresentationModePictureInPicture,+        js_VideoPresentationModeInline, TextTrackMode(..),+        js_TextTrackModeDisabled, js_TextTrackModeHidden,+        js_TextTrackModeShowing, TextTrackKind(..),+        js_TextTrackKindSubtitles, js_TextTrackKindCaptions,+        js_TextTrackKindDescriptions, js_TextTrackKindChapters,+        js_TextTrackKindMetadata, js_TextTrackKindForced,+        ApplePayLineItemType(..), js_ApplePayLineItemTypePending,+        js_ApplePayLineItemTypeFinal, ApplePayPaymentMethodType(..),+        js_ApplePayPaymentMethodTypeDebit,+        js_ApplePayPaymentMethodTypeCredit,+        js_ApplePayPaymentMethodTypePrepaid,+        js_ApplePayPaymentMethodTypeStore,+        ApplePayPaymentPassActivationState(..),+        js_ApplePayPaymentPassActivationStateActivated,+        js_ApplePayPaymentPassActivationStateRequiresActivation,+        js_ApplePayPaymentPassActivationStateActivating,+        js_ApplePayPaymentPassActivationStateSuspended,+        js_ApplePayPaymentPassActivationStateDeactivated,+        ApplePayMerchantCapability(..),+        js_ApplePayMerchantCapabilitySupports3DS,+        js_ApplePayMerchantCapabilitySupportsEMV,+        js_ApplePayMerchantCapabilitySupportsCredit,+        js_ApplePayMerchantCapabilitySupportsDebit,+        ApplePayContactField(..), js_ApplePayContactFieldEmail,+        js_ApplePayContactFieldName, js_ApplePayContactFieldPhone,+        js_ApplePayContactFieldPostalAddress, ApplePayShippingType(..),+        js_ApplePayShippingTypeShipping, js_ApplePayShippingTypeDelivery,+        js_ApplePayShippingTypeStorePickup,+        js_ApplePayShippingTypeServicePickup, MediaKeyMessageType(..),+        js_MediaKeyMessageTypeLicenseRequest,+        js_MediaKeyMessageTypeLicenseRenewal,+        js_MediaKeyMessageTypeLicenseRelease,+        js_MediaKeyMessageTypeIndividualizationRequest,+        MediaKeySessionType(..), js_MediaKeySessionTypeTemporary,+        js_MediaKeySessionTypePersistentUsageRecord,+        js_MediaKeySessionTypePersistentLicense, MediaKeysRequirement(..),+        js_MediaKeysRequirementRequired, js_MediaKeysRequirementOptional,+        js_MediaKeysRequirementNotAllowed, MediaKeyStatus(..),+        js_MediaKeyStatusUsable, js_MediaKeyStatusExpired,+        js_MediaKeyStatusReleased, js_MediaKeyStatusOutputRestricted,+        js_MediaKeyStatusOutputDownscaled, js_MediaKeyStatusStatusPending,+        js_MediaKeyStatusInternalError, RequestType(..), js_RequestType,+        js_RequestTypeAudio, js_RequestTypeFont, js_RequestTypeImage,+        js_RequestTypeScript, js_RequestTypeStyle, js_RequestTypeTrack,+        js_RequestTypeVideo, RequestDestination(..), js_RequestDestination,+        js_RequestDestinationDocument, js_RequestDestinationSharedworker,+        js_RequestDestinationSubresource, js_RequestDestinationUnknown,+        js_RequestDestinationWorker, RequestMode(..),+        js_RequestModeNavigate, js_RequestModeSameOrigin,+        js_RequestModeNoCors, js_RequestModeCors, RequestCredentials(..),+        js_RequestCredentialsOmit, js_RequestCredentialsSameOrigin,+        js_RequestCredentialsInclude, RequestCache(..),+        js_RequestCacheDefault, js_RequestCacheNoStore,+        js_RequestCacheReload, js_RequestCacheNoCache,+        js_RequestCacheForceCache, js_RequestCacheOnlyIfCached,+        RequestRedirect(..), js_RequestRedirectFollow,+        js_RequestRedirectError, js_RequestRedirectManual,+        ReferrerPolicy(..), js_ReferrerPolicy, js_ReferrerPolicyNoReferrer,+        js_ReferrerPolicyNoReferrerWhenDowngrade, js_ReferrerPolicyOrigin,+        js_ReferrerPolicyOriginWhenCrossOrigin, js_ReferrerPolicyUnsafeUrl,+        ResponseType(..), js_ResponseTypeBasic, js_ResponseTypeCors,+        js_ResponseTypeDefault, js_ResponseTypeError,+        js_ResponseTypeOpaque, js_ResponseTypeOpaqueredirect,+        IDBCursorDirection(..), js_IDBCursorDirectionNext,+        js_IDBCursorDirectionNextunique, js_IDBCursorDirectionPrev,+        js_IDBCursorDirectionPrevunique, IDBRequestReadyState(..),+        js_IDBRequestReadyStatePending, js_IDBRequestReadyStateDone,+        IDBTransactionMode(..), js_IDBTransactionModeReadonly,+        js_IDBTransactionModeReadwrite, js_IDBTransactionModeVersionchange,+        DeviceType(..), js_DeviceTypeNone, js_DeviceTypeAirplay,+        js_DeviceTypeTvout, MediaSessionKind(..),+        js_MediaSessionKindContent, js_MediaSessionKindTransient,+        js_MediaSessionKindTransientSolo, js_MediaSessionKindAmbient,+        EndOfStreamError(..), js_EndOfStreamErrorNetwork,+        js_EndOfStreamErrorDecode, AppendMode(..), js_AppendModeSegments,+        js_AppendModeSequence, MediaDeviceKind(..),+        js_MediaDeviceKindAudioinput, js_MediaDeviceKindAudiooutput,+        js_MediaDeviceKindVideoinput, MediaStreamTrackState(..),+        js_MediaStreamTrackStateNew, js_MediaStreamTrackStateLive,+        js_MediaStreamTrackStateEnded, RTCIceTransportPolicy(..),+        js_RTCIceTransportPolicyRelay, js_RTCIceTransportPolicyAll,+        RTCBundlePolicy(..), js_RTCBundlePolicyBalanced,+        js_RTCBundlePolicyMaxCompat, js_RTCBundlePolicyMaxBundle,+        RTCRtpTransceiverDirection(..),+        js_RTCRtpTransceiverDirectionSendrecv,+        js_RTCRtpTransceiverDirectionSendonly,+        js_RTCRtpTransceiverDirectionRecvonly,+        js_RTCRtpTransceiverDirectionInactive, RTCSdpType(..),+        js_RTCSdpTypeOffer, js_RTCSdpTypePranswer, js_RTCSdpTypeAnswer,+        js_RTCSdpTypeRollback, NotificationDirection(..),+        js_NotificationDirectionAuto, js_NotificationDirectionLtr,+        js_NotificationDirectionRtl, AudioContextState(..),+        js_AudioContextStateSuspended, js_AudioContextStateRunning,+        js_AudioContextStateInterrupted, js_AudioContextStateClosed,+        BiquadFilterType(..), js_BiquadFilterTypeLowpass,+        js_BiquadFilterTypeHighpass, js_BiquadFilterTypeBandpass,+        js_BiquadFilterTypeLowshelf, js_BiquadFilterTypeHighshelf,+        js_BiquadFilterTypePeaking, js_BiquadFilterTypeNotch,+        js_BiquadFilterTypeAllpass, OscillatorType(..),+        js_OscillatorTypeSine, js_OscillatorTypeSquare,+        js_OscillatorTypeSawtooth, js_OscillatorTypeTriangle,+        js_OscillatorTypeCustom, PanningModelType(..),+        js_PanningModelTypeEqualpower, js_PanningModelTypeHRTF,+        DistanceModelType(..), js_DistanceModelTypeLinear,+        js_DistanceModelTypeInverse, js_DistanceModelTypeExponential,+        OverSampleType(..), js_OverSampleTypeNone, js_OverSampleType2x,+        js_OverSampleType4x, XMLHttpRequestResponseType(..),+        js_XMLHttpRequestResponseType,+        js_XMLHttpRequestResponseTypeArraybuffer,+        js_XMLHttpRequestResponseTypeBlob,+        js_XMLHttpRequestResponseTypeDocument,+        js_XMLHttpRequestResponseTypeJson,+        js_XMLHttpRequestResponseTypeText)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error)+import Data.Typeable (Typeable)+import GHCJS.Types (JSVal(..), JSString)+import GHCJS.Foreign (jsNull, jsUndefined)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Control.Monad (void)+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import Data.Maybe (fromJust)+import Data.Traversable (mapM)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+ +data KeyType = KeyTypePublic+             | KeyTypePrivate+             | KeyTypeSecret+             deriving (Show, Read, Eq, Ord, Typeable)+ +instance PToJSVal KeyType where+        pToJSVal KeyTypePublic = js_KeyTypePublic+        pToJSVal KeyTypePrivate = js_KeyTypePrivate+        pToJSVal KeyTypeSecret = js_KeyTypeSecret+ +instance ToJSVal KeyType where+        toJSVal = return . pToJSVal+ +instance PFromJSVal KeyType where+        pFromJSVal x | x `js_eq` js_KeyTypePublic = KeyTypePublic+        pFromJSVal x | x `js_eq` js_KeyTypePrivate = KeyTypePrivate+        pFromJSVal x | x `js_eq` js_KeyTypeSecret = KeyTypeSecret+ +instance FromJSVal KeyType where+        fromJSValUnchecked = return . pFromJSVal+        fromJSVal = return . pFromJSVal+ +foreign import javascript unsafe "\"public\"" js_KeyTypePublic ::+        JSVal+ +foreign import javascript unsafe "\"private\"" js_KeyTypePrivate ::+        JSVal+ +foreign import javascript unsafe "\"secret\"" js_KeyTypeSecret ::+        JSVal+ +data CryptoKeyUsage = CryptoKeyUsageEncrypt+                    | CryptoKeyUsageDecrypt+                    | CryptoKeyUsageSign+                    | CryptoKeyUsageVerify+                    | CryptoKeyUsageDeriveKey+                    | CryptoKeyUsageDeriveBits+                    | CryptoKeyUsageWrapKey+                    | CryptoKeyUsageUnwrapKey+                    deriving (Show, Read, Eq, Ord, Typeable)+ +instance PToJSVal CryptoKeyUsage where+        pToJSVal CryptoKeyUsageEncrypt = js_CryptoKeyUsageEncrypt+        pToJSVal CryptoKeyUsageDecrypt = js_CryptoKeyUsageDecrypt+        pToJSVal CryptoKeyUsageSign = js_CryptoKeyUsageSign+        pToJSVal CryptoKeyUsageVerify = js_CryptoKeyUsageVerify+        pToJSVal CryptoKeyUsageDeriveKey = js_CryptoKeyUsageDeriveKey+        pToJSVal CryptoKeyUsageDeriveBits = js_CryptoKeyUsageDeriveBits+        pToJSVal CryptoKeyUsageWrapKey = js_CryptoKeyUsageWrapKey+        pToJSVal CryptoKeyUsageUnwrapKey = js_CryptoKeyUsageUnwrapKey+ +instance ToJSVal CryptoKeyUsage where+        toJSVal = return . pToJSVal+ +instance PFromJSVal CryptoKeyUsage where+        pFromJSVal x+          | x `js_eq` js_CryptoKeyUsageEncrypt = CryptoKeyUsageEncrypt+        pFromJSVal x+          | x `js_eq` js_CryptoKeyUsageDecrypt = CryptoKeyUsageDecrypt+        pFromJSVal x | x `js_eq` js_CryptoKeyUsageSign = CryptoKeyUsageSign+        pFromJSVal x+          | x `js_eq` js_CryptoKeyUsageVerify = CryptoKeyUsageVerify+        pFromJSVal x+          | x `js_eq` js_CryptoKeyUsageDeriveKey = CryptoKeyUsageDeriveKey+        pFromJSVal x+          | x `js_eq` js_CryptoKeyUsageDeriveBits = CryptoKeyUsageDeriveBits+        pFromJSVal x+          | x `js_eq` js_CryptoKeyUsageWrapKey = CryptoKeyUsageWrapKey+        pFromJSVal x+          | x `js_eq` js_CryptoKeyUsageUnwrapKey = CryptoKeyUsageUnwrapKey+ +instance FromJSVal CryptoKeyUsage where+        fromJSValUnchecked = return . pFromJSVal+        fromJSVal = return . pFromJSVal+ +foreign import javascript unsafe "\"encrypt\""+        js_CryptoKeyUsageEncrypt :: JSVal+ +foreign import javascript unsafe "\"decrypt\""+        js_CryptoKeyUsageDecrypt :: JSVal+ +foreign import javascript unsafe "\"sign\"" js_CryptoKeyUsageSign+        :: JSVal+ +foreign import javascript unsafe "\"verify\""+        js_CryptoKeyUsageVerify :: JSVal+ +foreign import javascript unsafe "\"deriveKey\""+        js_CryptoKeyUsageDeriveKey :: JSVal+ +foreign import javascript unsafe "\"deriveBits\""+        js_CryptoKeyUsageDeriveBits :: JSVal+ +foreign import javascript unsafe "\"wrapKey\""+        js_CryptoKeyUsageWrapKey :: JSVal+ +foreign import javascript unsafe "\"unwrapKey\""+        js_CryptoKeyUsageUnwrapKey :: JSVal+ +data KeyFormat = KeyFormatRaw+               | KeyFormatSpki+               | KeyFormatPkcs8+               | KeyFormatJwk+               deriving (Show, Read, Eq, Ord, Typeable)+ +instance PToJSVal KeyFormat where+        pToJSVal KeyFormatRaw = js_KeyFormatRaw+        pToJSVal KeyFormatSpki = js_KeyFormatSpki+        pToJSVal KeyFormatPkcs8 = js_KeyFormatPkcs8+        pToJSVal KeyFormatJwk = js_KeyFormatJwk+ +instance ToJSVal KeyFormat where+        toJSVal = return . pToJSVal+ +instance PFromJSVal KeyFormat where+        pFromJSVal x | x `js_eq` js_KeyFormatRaw = KeyFormatRaw+        pFromJSVal x | x `js_eq` js_KeyFormatSpki = KeyFormatSpki+        pFromJSVal x | x `js_eq` js_KeyFormatPkcs8 = KeyFormatPkcs8+        pFromJSVal x | x `js_eq` js_KeyFormatJwk = KeyFormatJwk+ +instance FromJSVal KeyFormat where+        fromJSValUnchecked = return . pFromJSVal+        fromJSVal = return . pFromJSVal+ +foreign import javascript unsafe "\"raw\"" js_KeyFormatRaw :: JSVal+ +foreign import javascript unsafe "\"spki\"" js_KeyFormatSpki ::+        JSVal+ +foreign import javascript unsafe "\"pkcs8\"" js_KeyFormatPkcs8 ::+        JSVal+ +foreign import javascript unsafe "\"jwk\"" js_KeyFormatJwk :: JSVal+ +data FontFaceLoadStatus = FontFaceLoadStatusUnloaded+                        | FontFaceLoadStatusLoading+                        | FontFaceLoadStatusLoaded+                        | FontFaceLoadStatusError+                        deriving (Show, Read, Eq, Ord, Typeable)+ +instance PToJSVal FontFaceLoadStatus where+        pToJSVal FontFaceLoadStatusUnloaded = js_FontFaceLoadStatusUnloaded+        pToJSVal FontFaceLoadStatusLoading = js_FontFaceLoadStatusLoading+        pToJSVal FontFaceLoadStatusLoaded = js_FontFaceLoadStatusLoaded+        pToJSVal FontFaceLoadStatusError = js_FontFaceLoadStatusError+ +instance ToJSVal FontFaceLoadStatus where+        toJSVal = return . pToJSVal+ +instance PFromJSVal FontFaceLoadStatus where+        pFromJSVal x+          | x `js_eq` js_FontFaceLoadStatusUnloaded =+            FontFaceLoadStatusUnloaded+        pFromJSVal x+          | x `js_eq` js_FontFaceLoadStatusLoading =+            FontFaceLoadStatusLoading+        pFromJSVal x+          | x `js_eq` js_FontFaceLoadStatusLoaded = FontFaceLoadStatusLoaded+        pFromJSVal x+          | x `js_eq` js_FontFaceLoadStatusError = FontFaceLoadStatusError+ +instance FromJSVal FontFaceLoadStatus where+        fromJSValUnchecked = return . pFromJSVal+        fromJSVal = return . pFromJSVal+ +foreign import javascript unsafe "\"unloaded\""+        js_FontFaceLoadStatusUnloaded :: JSVal+ +foreign import javascript unsafe "\"loading\""+        js_FontFaceLoadStatusLoading :: JSVal+ +foreign import javascript unsafe "\"loaded\""+        js_FontFaceLoadStatusLoaded :: JSVal+ +foreign import javascript unsafe "\"error\""+        js_FontFaceLoadStatusError :: JSVal+ +data FontFaceSetLoadStatus = FontFaceSetLoadStatusLoading+                           | FontFaceSetLoadStatusLoaded+                           deriving (Show, Read, Eq, Ord, Typeable)+ +instance PToJSVal FontFaceSetLoadStatus where+        pToJSVal FontFaceSetLoadStatusLoading+          = js_FontFaceSetLoadStatusLoading+        pToJSVal FontFaceSetLoadStatusLoaded+          = js_FontFaceSetLoadStatusLoaded+ +instance ToJSVal FontFaceSetLoadStatus where+        toJSVal = return . pToJSVal+ +instance PFromJSVal FontFaceSetLoadStatus where+        pFromJSVal x+          | x `js_eq` js_FontFaceSetLoadStatusLoading =+            FontFaceSetLoadStatusLoading+        pFromJSVal x+          | x `js_eq` js_FontFaceSetLoadStatusLoaded =+            FontFaceSetLoadStatusLoaded+ +instance FromJSVal FontFaceSetLoadStatus where+        fromJSValUnchecked = return . pFromJSVal+        fromJSVal = return . pFromJSVal+ +foreign import javascript unsafe "\"loading\""+        js_FontFaceSetLoadStatusLoading :: JSVal+ +foreign import javascript unsafe "\"loaded\""+        js_FontFaceSetLoadStatusLoaded :: JSVal+ +data VisibilityState = VisibilityStateHidden+                     | VisibilityStateVisible+                     | VisibilityStatePrerender+                     deriving (Show, Read, Eq, Ord, Typeable)+ +instance PToJSVal VisibilityState where+        pToJSVal VisibilityStateHidden = js_VisibilityStateHidden+        pToJSVal VisibilityStateVisible = js_VisibilityStateVisible+        pToJSVal VisibilityStatePrerender = js_VisibilityStatePrerender+ +instance ToJSVal VisibilityState where+        toJSVal = return . pToJSVal+ +instance PFromJSVal VisibilityState where+        pFromJSVal x+          | x `js_eq` js_VisibilityStateHidden = VisibilityStateHidden+        pFromJSVal x+          | x `js_eq` js_VisibilityStateVisible = VisibilityStateVisible+        pFromJSVal x+          | x `js_eq` js_VisibilityStatePrerender = VisibilityStatePrerender+ +instance FromJSVal VisibilityState where+        fromJSValUnchecked = return . pFromJSVal+        fromJSVal = return . pFromJSVal+ +foreign import javascript unsafe "\"hidden\""+        js_VisibilityStateHidden :: JSVal+ +foreign import javascript unsafe "\"visible\""+        js_VisibilityStateVisible :: JSVal+ +foreign import javascript unsafe "\"prerender\""+        js_VisibilityStatePrerender :: JSVal+ +data ShadowRootMode = ShadowRootModeUserAgent+                    | ShadowRootModeClosed+                    | ShadowRootModeOpen+                    deriving (Show, Read, Eq, Ord, Typeable)+ +instance PToJSVal ShadowRootMode where+        pToJSVal ShadowRootModeUserAgent = js_ShadowRootModeUserAgent+        pToJSVal ShadowRootModeClosed = js_ShadowRootModeClosed+        pToJSVal ShadowRootModeOpen = js_ShadowRootModeOpen+ +instance ToJSVal ShadowRootMode where+        toJSVal = return . pToJSVal+ +instance PFromJSVal ShadowRootMode where+        pFromJSVal x+          | x `js_eq` js_ShadowRootModeUserAgent = ShadowRootModeUserAgent+        pFromJSVal x+          | x `js_eq` js_ShadowRootModeClosed = ShadowRootModeClosed+        pFromJSVal x | x `js_eq` js_ShadowRootModeOpen = ShadowRootModeOpen+ +instance FromJSVal ShadowRootMode where+        fromJSValUnchecked = return . pFromJSVal+        fromJSVal = return . pFromJSVal+ +foreign import javascript unsafe "\"user-agent\""+        js_ShadowRootModeUserAgent :: JSVal+ +foreign import javascript unsafe "\"closed\""+        js_ShadowRootModeClosed :: JSVal+ +foreign import javascript unsafe "\"open\"" js_ShadowRootModeOpen+        :: JSVal+ +data BlobLineEndings = BlobLineEndingsTransparent+                     | BlobLineEndingsNative+                     deriving (Show, Read, Eq, Ord, Typeable)+ +instance PToJSVal BlobLineEndings where+        pToJSVal BlobLineEndingsTransparent = js_BlobLineEndingsTransparent+        pToJSVal BlobLineEndingsNative = js_BlobLineEndingsNative+ +instance ToJSVal BlobLineEndings where+        toJSVal = return . pToJSVal+ +instance PFromJSVal BlobLineEndings where+        pFromJSVal x+          | x `js_eq` js_BlobLineEndingsTransparent =+            BlobLineEndingsTransparent+        pFromJSVal x+          | x `js_eq` js_BlobLineEndingsNative = BlobLineEndingsNative+ +instance FromJSVal BlobLineEndings where+        fromJSValUnchecked = return . pFromJSVal+        fromJSVal = return . pFromJSVal+ +foreign import javascript unsafe "\"transparent\""+        js_BlobLineEndingsTransparent :: JSVal+ +foreign import javascript unsafe "\"native\""+        js_BlobLineEndingsNative :: JSVal+ +data ImageSmoothingQuality = ImageSmoothingQualityLow+                           | ImageSmoothingQualityMedium+                           | ImageSmoothingQualityHigh+                           deriving (Show, Read, Eq, Ord, Typeable)+ +instance PToJSVal ImageSmoothingQuality where+        pToJSVal ImageSmoothingQualityLow = js_ImageSmoothingQualityLow+        pToJSVal ImageSmoothingQualityMedium+          = js_ImageSmoothingQualityMedium+        pToJSVal ImageSmoothingQualityHigh = js_ImageSmoothingQualityHigh+ +instance ToJSVal ImageSmoothingQuality where+        toJSVal = return . pToJSVal+ +instance PFromJSVal ImageSmoothingQuality where+        pFromJSVal x+          | x `js_eq` js_ImageSmoothingQualityLow = ImageSmoothingQualityLow+        pFromJSVal x+          | x `js_eq` js_ImageSmoothingQualityMedium =+            ImageSmoothingQualityMedium+        pFromJSVal x+          | x `js_eq` js_ImageSmoothingQualityHigh =+            ImageSmoothingQualityHigh+ +instance FromJSVal ImageSmoothingQuality where+        fromJSValUnchecked = return . pFromJSVal+        fromJSVal = return . pFromJSVal+ +foreign import javascript unsafe "\"low\""+        js_ImageSmoothingQualityLow :: JSVal+ +foreign import javascript unsafe "\"medium\""+        js_ImageSmoothingQualityMedium :: JSVal+ +foreign import javascript unsafe "\"high\""+        js_ImageSmoothingQualityHigh :: JSVal+ +data CanvasWindingRule = CanvasWindingRuleNonzero+                       | CanvasWindingRuleEvenodd+                       deriving (Show, Read, Eq, Ord, Typeable)+ +instance PToJSVal CanvasWindingRule where+        pToJSVal CanvasWindingRuleNonzero = js_CanvasWindingRuleNonzero+        pToJSVal CanvasWindingRuleEvenodd = js_CanvasWindingRuleEvenodd+ +instance ToJSVal CanvasWindingRule where+        toJSVal = return . pToJSVal+ +instance PFromJSVal CanvasWindingRule where+        pFromJSVal x+          | x `js_eq` js_CanvasWindingRuleNonzero = CanvasWindingRuleNonzero+        pFromJSVal x+          | x `js_eq` js_CanvasWindingRuleEvenodd = CanvasWindingRuleEvenodd+ +instance FromJSVal CanvasWindingRule where+        fromJSValUnchecked = return . pFromJSVal+        fromJSVal = return . pFromJSVal+ +foreign import javascript unsafe "\"nonzero\""+        js_CanvasWindingRuleNonzero :: JSVal+ +foreign import javascript unsafe "\"evenodd\""+        js_CanvasWindingRuleEvenodd :: JSVal+ +data WebGLPowerPreference = WebGLPowerPreferenceDefault+                          | WebGLPowerPreferenceLowPower+                          | WebGLPowerPreferenceHighPerformance+                          deriving (Show, Read, Eq, Ord, Typeable)+ +instance PToJSVal WebGLPowerPreference where+        pToJSVal WebGLPowerPreferenceDefault+          = js_WebGLPowerPreferenceDefault+        pToJSVal WebGLPowerPreferenceLowPower+          = js_WebGLPowerPreferenceLowPower+        pToJSVal WebGLPowerPreferenceHighPerformance+          = js_WebGLPowerPreferenceHighPerformance+ +instance ToJSVal WebGLPowerPreference where+        toJSVal = return . pToJSVal+ +instance PFromJSVal WebGLPowerPreference where+        pFromJSVal x+          | x `js_eq` js_WebGLPowerPreferenceDefault =+            WebGLPowerPreferenceDefault+        pFromJSVal x+          | x `js_eq` js_WebGLPowerPreferenceLowPower =+            WebGLPowerPreferenceLowPower+        pFromJSVal x+          | x `js_eq` js_WebGLPowerPreferenceHighPerformance =+            WebGLPowerPreferenceHighPerformance+ +instance FromJSVal WebGLPowerPreference where+        fromJSValUnchecked = return . pFromJSVal+        fromJSVal = return . pFromJSVal+ +foreign import javascript unsafe "\"default\""+        js_WebGLPowerPreferenceDefault :: JSVal+ +foreign import javascript unsafe "\"low-power\""+        js_WebGLPowerPreferenceLowPower :: JSVal+ +foreign import javascript unsafe "\"high-performance\""+        js_WebGLPowerPreferenceHighPerformance :: JSVal+ +data VideoPresentationMode = VideoPresentationModeFullscreen+                           | VideoPresentationModePictureInPicture+                           | VideoPresentationModeInline+                           deriving (Show, Read, Eq, Ord, Typeable)+ +instance PToJSVal VideoPresentationMode where+        pToJSVal VideoPresentationModeFullscreen+          = js_VideoPresentationModeFullscreen+        pToJSVal VideoPresentationModePictureInPicture+          = js_VideoPresentationModePictureInPicture+        pToJSVal VideoPresentationModeInline+          = js_VideoPresentationModeInline+ +instance ToJSVal VideoPresentationMode where+        toJSVal = return . pToJSVal+ +instance PFromJSVal VideoPresentationMode where+        pFromJSVal x+          | x `js_eq` js_VideoPresentationModeFullscreen =+            VideoPresentationModeFullscreen+        pFromJSVal x+          | x `js_eq` js_VideoPresentationModePictureInPicture =+            VideoPresentationModePictureInPicture+        pFromJSVal x+          | x `js_eq` js_VideoPresentationModeInline =+            VideoPresentationModeInline+ +instance FromJSVal VideoPresentationMode where+        fromJSValUnchecked = return . pFromJSVal+        fromJSVal = return . pFromJSVal+ +foreign import javascript unsafe "\"fullscreen\""+        js_VideoPresentationModeFullscreen :: JSVal+ +foreign import javascript unsafe "\"picture-in-picture\""+        js_VideoPresentationModePictureInPicture :: 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+                   | TextTrackKindForced+                   deriving (Show, Read, Eq, Ord, Typeable)+ +instance PToJSVal TextTrackKind where+        pToJSVal TextTrackKindSubtitles = js_TextTrackKindSubtitles+        pToJSVal TextTrackKindCaptions = js_TextTrackKindCaptions+        pToJSVal TextTrackKindDescriptions = js_TextTrackKindDescriptions+        pToJSVal TextTrackKindChapters = js_TextTrackKindChapters+        pToJSVal TextTrackKindMetadata = js_TextTrackKindMetadata+        pToJSVal TextTrackKindForced = js_TextTrackKindForced+ +instance ToJSVal TextTrackKind where+        toJSVal = return . pToJSVal+ +instance PFromJSVal TextTrackKind where+        pFromJSVal x+          | x `js_eq` js_TextTrackKindSubtitles = TextTrackKindSubtitles+        pFromJSVal x+          | x `js_eq` js_TextTrackKindCaptions = TextTrackKindCaptions+        pFromJSVal x+          | x `js_eq` js_TextTrackKindDescriptions =+            TextTrackKindDescriptions+        pFromJSVal x+          | x `js_eq` js_TextTrackKindChapters = TextTrackKindChapters+        pFromJSVal x+          | x `js_eq` js_TextTrackKindMetadata = TextTrackKindMetadata+        pFromJSVal x+          | x `js_eq` js_TextTrackKindForced = TextTrackKindForced+ +instance FromJSVal TextTrackKind where+        fromJSValUnchecked = return . pFromJSVal+        fromJSVal = return . pFromJSVal+ +foreign import javascript unsafe "\"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+ +foreign import javascript unsafe "\"forced\""+        js_TextTrackKindForced :: JSVal+ +data ApplePayLineItemType = ApplePayLineItemTypePending+                          | ApplePayLineItemTypeFinal+                          deriving (Show, Read, Eq, Ord, Typeable)+ +instance PToJSVal ApplePayLineItemType where+        pToJSVal ApplePayLineItemTypePending+          = js_ApplePayLineItemTypePending+        pToJSVal ApplePayLineItemTypeFinal = js_ApplePayLineItemTypeFinal+ +instance ToJSVal ApplePayLineItemType where+        toJSVal = return . pToJSVal+ +instance PFromJSVal ApplePayLineItemType where+        pFromJSVal x+          | x `js_eq` js_ApplePayLineItemTypePending =+            ApplePayLineItemTypePending+        pFromJSVal x+          | x `js_eq` js_ApplePayLineItemTypeFinal =+            ApplePayLineItemTypeFinal+ +instance FromJSVal ApplePayLineItemType where+        fromJSValUnchecked = return . pFromJSVal+        fromJSVal = return . pFromJSVal+ +foreign import javascript unsafe "\"pending\""+        js_ApplePayLineItemTypePending :: JSVal+ +foreign import javascript unsafe "\"final\""+        js_ApplePayLineItemTypeFinal :: JSVal+ +data ApplePayPaymentMethodType = ApplePayPaymentMethodTypeDebit+                               | ApplePayPaymentMethodTypeCredit+                               | ApplePayPaymentMethodTypePrepaid+                               | ApplePayPaymentMethodTypeStore+                               deriving (Show, Read, Eq, Ord, Typeable)+ +instance PToJSVal ApplePayPaymentMethodType where+        pToJSVal ApplePayPaymentMethodTypeDebit+          = js_ApplePayPaymentMethodTypeDebit+        pToJSVal ApplePayPaymentMethodTypeCredit+          = js_ApplePayPaymentMethodTypeCredit+        pToJSVal ApplePayPaymentMethodTypePrepaid+          = js_ApplePayPaymentMethodTypePrepaid+        pToJSVal ApplePayPaymentMethodTypeStore+          = js_ApplePayPaymentMethodTypeStore+ +instance ToJSVal ApplePayPaymentMethodType where+        toJSVal = return . pToJSVal+ +instance PFromJSVal ApplePayPaymentMethodType where+        pFromJSVal x+          | x `js_eq` js_ApplePayPaymentMethodTypeDebit =+            ApplePayPaymentMethodTypeDebit+        pFromJSVal x+          | x `js_eq` js_ApplePayPaymentMethodTypeCredit =+            ApplePayPaymentMethodTypeCredit+        pFromJSVal x+          | x `js_eq` js_ApplePayPaymentMethodTypePrepaid =+            ApplePayPaymentMethodTypePrepaid+        pFromJSVal x+          | x `js_eq` js_ApplePayPaymentMethodTypeStore =+            ApplePayPaymentMethodTypeStore+ +instance FromJSVal ApplePayPaymentMethodType where+        fromJSValUnchecked = return . pFromJSVal+        fromJSVal = return . pFromJSVal+ +foreign import javascript unsafe "\"debit\""+        js_ApplePayPaymentMethodTypeDebit :: JSVal+ +foreign import javascript unsafe "\"credit\""+        js_ApplePayPaymentMethodTypeCredit :: JSVal+ +foreign import javascript unsafe "\"prepaid\""+        js_ApplePayPaymentMethodTypePrepaid :: JSVal+ +foreign import javascript unsafe "\"store\""+        js_ApplePayPaymentMethodTypeStore :: JSVal+ +data ApplePayPaymentPassActivationState = ApplePayPaymentPassActivationStateActivated+                                        | ApplePayPaymentPassActivationStateRequiresActivation+                                        | ApplePayPaymentPassActivationStateActivating+                                        | ApplePayPaymentPassActivationStateSuspended+                                        | ApplePayPaymentPassActivationStateDeactivated+                                        deriving (Show, Read, Eq, Ord, Typeable)+ +instance PToJSVal ApplePayPaymentPassActivationState where+        pToJSVal ApplePayPaymentPassActivationStateActivated+          = js_ApplePayPaymentPassActivationStateActivated+        pToJSVal ApplePayPaymentPassActivationStateRequiresActivation+          = js_ApplePayPaymentPassActivationStateRequiresActivation+        pToJSVal ApplePayPaymentPassActivationStateActivating+          = js_ApplePayPaymentPassActivationStateActivating+        pToJSVal ApplePayPaymentPassActivationStateSuspended+          = js_ApplePayPaymentPassActivationStateSuspended+        pToJSVal ApplePayPaymentPassActivationStateDeactivated+          = js_ApplePayPaymentPassActivationStateDeactivated+ +instance ToJSVal ApplePayPaymentPassActivationState where+        toJSVal = return . pToJSVal+ +instance PFromJSVal ApplePayPaymentPassActivationState where+        pFromJSVal x+          | x `js_eq` js_ApplePayPaymentPassActivationStateActivated =+            ApplePayPaymentPassActivationStateActivated+        pFromJSVal x+          | x `js_eq` js_ApplePayPaymentPassActivationStateRequiresActivation+            = ApplePayPaymentPassActivationStateRequiresActivation+        pFromJSVal x+          | x `js_eq` js_ApplePayPaymentPassActivationStateActivating =+            ApplePayPaymentPassActivationStateActivating+        pFromJSVal x+          | x `js_eq` js_ApplePayPaymentPassActivationStateSuspended =+            ApplePayPaymentPassActivationStateSuspended+        pFromJSVal x+          | x `js_eq` js_ApplePayPaymentPassActivationStateDeactivated =+            ApplePayPaymentPassActivationStateDeactivated+ +instance FromJSVal ApplePayPaymentPassActivationState where+        fromJSValUnchecked = return . pFromJSVal+        fromJSVal = return . pFromJSVal+ +foreign import javascript unsafe "\"activated\""+        js_ApplePayPaymentPassActivationStateActivated :: JSVal+ +foreign import javascript unsafe "\"requiresActivation\""+        js_ApplePayPaymentPassActivationStateRequiresActivation :: JSVal+ +foreign import javascript unsafe "\"activating\""+        js_ApplePayPaymentPassActivationStateActivating :: JSVal+ +foreign import javascript unsafe "\"suspended\""+        js_ApplePayPaymentPassActivationStateSuspended :: JSVal+ +foreign import javascript unsafe "\"deactivated\""+        js_ApplePayPaymentPassActivationStateDeactivated :: JSVal+ +data ApplePayMerchantCapability = ApplePayMerchantCapabilitySupports3DS+                                | ApplePayMerchantCapabilitySupportsEMV+                                | ApplePayMerchantCapabilitySupportsCredit+                                | ApplePayMerchantCapabilitySupportsDebit+                                deriving (Show, Read, Eq, Ord, Typeable)+ +instance PToJSVal ApplePayMerchantCapability where+        pToJSVal ApplePayMerchantCapabilitySupports3DS+          = js_ApplePayMerchantCapabilitySupports3DS+        pToJSVal ApplePayMerchantCapabilitySupportsEMV+          = js_ApplePayMerchantCapabilitySupportsEMV+        pToJSVal ApplePayMerchantCapabilitySupportsCredit+          = js_ApplePayMerchantCapabilitySupportsCredit+        pToJSVal ApplePayMerchantCapabilitySupportsDebit+          = js_ApplePayMerchantCapabilitySupportsDebit+ +instance ToJSVal ApplePayMerchantCapability where+        toJSVal = return . pToJSVal+ +instance PFromJSVal ApplePayMerchantCapability where+        pFromJSVal x+          | x `js_eq` js_ApplePayMerchantCapabilitySupports3DS =+            ApplePayMerchantCapabilitySupports3DS+        pFromJSVal x+          | x `js_eq` js_ApplePayMerchantCapabilitySupportsEMV =+            ApplePayMerchantCapabilitySupportsEMV+        pFromJSVal x+          | x `js_eq` js_ApplePayMerchantCapabilitySupportsCredit =+            ApplePayMerchantCapabilitySupportsCredit+        pFromJSVal x+          | x `js_eq` js_ApplePayMerchantCapabilitySupportsDebit =+            ApplePayMerchantCapabilitySupportsDebit+ +instance FromJSVal ApplePayMerchantCapability where+        fromJSValUnchecked = return . pFromJSVal+        fromJSVal = return . pFromJSVal+ +foreign import javascript unsafe "\"supports3DS\""+        js_ApplePayMerchantCapabilitySupports3DS :: JSVal+ +foreign import javascript unsafe "\"supportsEMV\""+        js_ApplePayMerchantCapabilitySupportsEMV :: JSVal+ +foreign import javascript unsafe "\"supportsCredit\""+        js_ApplePayMerchantCapabilitySupportsCredit :: JSVal+ +foreign import javascript unsafe "\"supportsDebit\""+        js_ApplePayMerchantCapabilitySupportsDebit :: JSVal+ +data ApplePayContactField = ApplePayContactFieldEmail+                          | ApplePayContactFieldName+                          | ApplePayContactFieldPhone+                          | ApplePayContactFieldPostalAddress+                          deriving (Show, Read, Eq, Ord, Typeable)+ +instance PToJSVal ApplePayContactField where+        pToJSVal ApplePayContactFieldEmail = js_ApplePayContactFieldEmail+        pToJSVal ApplePayContactFieldName = js_ApplePayContactFieldName+        pToJSVal ApplePayContactFieldPhone = js_ApplePayContactFieldPhone+        pToJSVal ApplePayContactFieldPostalAddress+          = js_ApplePayContactFieldPostalAddress+ +instance ToJSVal ApplePayContactField where+        toJSVal = return . pToJSVal+ +instance PFromJSVal ApplePayContactField where+        pFromJSVal x+          | x `js_eq` js_ApplePayContactFieldEmail =+            ApplePayContactFieldEmail+        pFromJSVal x+          | x `js_eq` js_ApplePayContactFieldName = ApplePayContactFieldName+        pFromJSVal x+          | x `js_eq` js_ApplePayContactFieldPhone =+            ApplePayContactFieldPhone+        pFromJSVal x+          | x `js_eq` js_ApplePayContactFieldPostalAddress =+            ApplePayContactFieldPostalAddress+ +instance FromJSVal ApplePayContactField where+        fromJSValUnchecked = return . pFromJSVal+        fromJSVal = return . pFromJSVal+ +foreign import javascript unsafe "\"email\""+        js_ApplePayContactFieldEmail :: JSVal+ +foreign import javascript unsafe "\"name\""+        js_ApplePayContactFieldName :: JSVal+ +foreign import javascript unsafe "\"phone\""+        js_ApplePayContactFieldPhone :: JSVal+ +foreign import javascript unsafe "\"postalAddress\""+        js_ApplePayContactFieldPostalAddress :: JSVal+ +data ApplePayShippingType = ApplePayShippingTypeShipping+                          | ApplePayShippingTypeDelivery+                          | ApplePayShippingTypeStorePickup+                          | ApplePayShippingTypeServicePickup+                          deriving (Show, Read, Eq, Ord, Typeable)+ +instance PToJSVal ApplePayShippingType where+        pToJSVal ApplePayShippingTypeShipping+          = js_ApplePayShippingTypeShipping+        pToJSVal ApplePayShippingTypeDelivery+          = js_ApplePayShippingTypeDelivery+        pToJSVal ApplePayShippingTypeStorePickup+          = js_ApplePayShippingTypeStorePickup+        pToJSVal ApplePayShippingTypeServicePickup+          = js_ApplePayShippingTypeServicePickup+ +instance ToJSVal ApplePayShippingType where+        toJSVal = return . pToJSVal+ +instance PFromJSVal ApplePayShippingType where+        pFromJSVal x+          | x `js_eq` js_ApplePayShippingTypeShipping =+            ApplePayShippingTypeShipping+        pFromJSVal x+          | x `js_eq` js_ApplePayShippingTypeDelivery =+            ApplePayShippingTypeDelivery+        pFromJSVal x+          | x `js_eq` js_ApplePayShippingTypeStorePickup =+            ApplePayShippingTypeStorePickup+        pFromJSVal x+          | x `js_eq` js_ApplePayShippingTypeServicePickup =+            ApplePayShippingTypeServicePickup+ +instance FromJSVal ApplePayShippingType where+        fromJSValUnchecked = return . pFromJSVal+        fromJSVal = return . pFromJSVal+ +foreign import javascript unsafe "\"shipping\""+        js_ApplePayShippingTypeShipping :: JSVal+ +foreign import javascript unsafe "\"delivery\""+        js_ApplePayShippingTypeDelivery :: JSVal+ +foreign import javascript unsafe "\"storePickup\""+        js_ApplePayShippingTypeStorePickup :: JSVal+ +foreign import javascript unsafe "\"servicePickup\""+        js_ApplePayShippingTypeServicePickup :: JSVal+ +data MediaKeyMessageType = MediaKeyMessageTypeLicenseRequest+                         | MediaKeyMessageTypeLicenseRenewal+                         | MediaKeyMessageTypeLicenseRelease+                         | MediaKeyMessageTypeIndividualizationRequest+                         deriving (Show, Read, Eq, Ord, Typeable)+ +instance PToJSVal MediaKeyMessageType where+        pToJSVal MediaKeyMessageTypeLicenseRequest+          = js_MediaKeyMessageTypeLicenseRequest+        pToJSVal MediaKeyMessageTypeLicenseRenewal+          = js_MediaKeyMessageTypeLicenseRenewal+        pToJSVal MediaKeyMessageTypeLicenseRelease+          = js_MediaKeyMessageTypeLicenseRelease+        pToJSVal MediaKeyMessageTypeIndividualizationRequest+          = js_MediaKeyMessageTypeIndividualizationRequest+ +instance ToJSVal MediaKeyMessageType where+        toJSVal = return . pToJSVal+ +instance PFromJSVal MediaKeyMessageType where+        pFromJSVal x+          | x `js_eq` js_MediaKeyMessageTypeLicenseRequest =+            MediaKeyMessageTypeLicenseRequest+        pFromJSVal x+          | x `js_eq` js_MediaKeyMessageTypeLicenseRenewal =+            MediaKeyMessageTypeLicenseRenewal+        pFromJSVal x+          | x `js_eq` js_MediaKeyMessageTypeLicenseRelease =+            MediaKeyMessageTypeLicenseRelease+        pFromJSVal x+          | x `js_eq` js_MediaKeyMessageTypeIndividualizationRequest =+            MediaKeyMessageTypeIndividualizationRequest+ +instance FromJSVal MediaKeyMessageType where+        fromJSValUnchecked = return . pFromJSVal+        fromJSVal = return . pFromJSVal+ +foreign import javascript unsafe "\"license-request\""+        js_MediaKeyMessageTypeLicenseRequest :: JSVal+ +foreign import javascript unsafe "\"license-renewal\""+        js_MediaKeyMessageTypeLicenseRenewal :: JSVal+ +foreign import javascript unsafe "\"license-release\""+        js_MediaKeyMessageTypeLicenseRelease :: JSVal+ +foreign import javascript unsafe "\"individualization-request\""+        js_MediaKeyMessageTypeIndividualizationRequest :: JSVal+ +data MediaKeySessionType = MediaKeySessionTypeTemporary+                         | MediaKeySessionTypePersistentUsageRecord+                         | MediaKeySessionTypePersistentLicense+                         deriving (Show, Read, Eq, Ord, Typeable)+ +instance PToJSVal MediaKeySessionType where+        pToJSVal MediaKeySessionTypeTemporary+          = js_MediaKeySessionTypeTemporary+        pToJSVal MediaKeySessionTypePersistentUsageRecord+          = js_MediaKeySessionTypePersistentUsageRecord+        pToJSVal MediaKeySessionTypePersistentLicense+          = js_MediaKeySessionTypePersistentLicense+ +instance ToJSVal MediaKeySessionType where+        toJSVal = return . pToJSVal+ +instance PFromJSVal MediaKeySessionType where+        pFromJSVal x+          | x `js_eq` js_MediaKeySessionTypeTemporary =+            MediaKeySessionTypeTemporary+        pFromJSVal x+          | x `js_eq` js_MediaKeySessionTypePersistentUsageRecord =+            MediaKeySessionTypePersistentUsageRecord+        pFromJSVal x+          | x `js_eq` js_MediaKeySessionTypePersistentLicense =+            MediaKeySessionTypePersistentLicense+ +instance FromJSVal MediaKeySessionType where+        fromJSValUnchecked = return . pFromJSVal+        fromJSVal = return . pFromJSVal+ +foreign import javascript unsafe "\"temporary\""+        js_MediaKeySessionTypeTemporary :: JSVal+ +foreign import javascript unsafe "\"persistent-usage-record\""+        js_MediaKeySessionTypePersistentUsageRecord :: JSVal+ +foreign import javascript unsafe "\"persistent-license\""+        js_MediaKeySessionTypePersistentLicense :: JSVal+ +data MediaKeysRequirement = MediaKeysRequirementRequired+                          | MediaKeysRequirementOptional+                          | MediaKeysRequirementNotAllowed+                          deriving (Show, Read, Eq, Ord, Typeable)+ +instance PToJSVal MediaKeysRequirement where+        pToJSVal MediaKeysRequirementRequired+          = js_MediaKeysRequirementRequired+        pToJSVal MediaKeysRequirementOptional+          = js_MediaKeysRequirementOptional+        pToJSVal MediaKeysRequirementNotAllowed+          = js_MediaKeysRequirementNotAllowed+ +instance ToJSVal MediaKeysRequirement where+        toJSVal = return . pToJSVal+ +instance PFromJSVal MediaKeysRequirement where+        pFromJSVal x+          | x `js_eq` js_MediaKeysRequirementRequired =+            MediaKeysRequirementRequired+        pFromJSVal x+          | x `js_eq` js_MediaKeysRequirementOptional =+            MediaKeysRequirementOptional+        pFromJSVal x+          | x `js_eq` js_MediaKeysRequirementNotAllowed =+            MediaKeysRequirementNotAllowed+ +instance FromJSVal MediaKeysRequirement where+        fromJSValUnchecked = return . pFromJSVal+        fromJSVal = return . pFromJSVal+ +foreign import javascript unsafe "\"required\""+        js_MediaKeysRequirementRequired :: JSVal+ +foreign import javascript unsafe "\"optional\""+        js_MediaKeysRequirementOptional :: JSVal+ +foreign import javascript unsafe "\"not-allowed\""+        js_MediaKeysRequirementNotAllowed :: JSVal+ +data MediaKeyStatus = MediaKeyStatusUsable+                    | MediaKeyStatusExpired+                    | MediaKeyStatusReleased+                    | MediaKeyStatusOutputRestricted+                    | MediaKeyStatusOutputDownscaled+                    | MediaKeyStatusStatusPending+                    | MediaKeyStatusInternalError+                    deriving (Show, Read, Eq, Ord, Typeable)+ +instance PToJSVal MediaKeyStatus where+        pToJSVal MediaKeyStatusUsable = js_MediaKeyStatusUsable+        pToJSVal MediaKeyStatusExpired = js_MediaKeyStatusExpired+        pToJSVal MediaKeyStatusReleased = js_MediaKeyStatusReleased+        pToJSVal MediaKeyStatusOutputRestricted+          = js_MediaKeyStatusOutputRestricted+        pToJSVal MediaKeyStatusOutputDownscaled+          = js_MediaKeyStatusOutputDownscaled+        pToJSVal MediaKeyStatusStatusPending+          = js_MediaKeyStatusStatusPending+        pToJSVal MediaKeyStatusInternalError+          = js_MediaKeyStatusInternalError+ +instance ToJSVal MediaKeyStatus where+        toJSVal = return . pToJSVal+ +instance PFromJSVal MediaKeyStatus where+        pFromJSVal x+          | x `js_eq` js_MediaKeyStatusUsable = MediaKeyStatusUsable+        pFromJSVal x+          | x `js_eq` js_MediaKeyStatusExpired = MediaKeyStatusExpired+        pFromJSVal x+          | x `js_eq` js_MediaKeyStatusReleased = MediaKeyStatusReleased+        pFromJSVal x+          | x `js_eq` js_MediaKeyStatusOutputRestricted =+            MediaKeyStatusOutputRestricted+        pFromJSVal x+          | x `js_eq` js_MediaKeyStatusOutputDownscaled =+            MediaKeyStatusOutputDownscaled+        pFromJSVal x+          | x `js_eq` js_MediaKeyStatusStatusPending =+            MediaKeyStatusStatusPending+        pFromJSVal x+          | x `js_eq` js_MediaKeyStatusInternalError =+            MediaKeyStatusInternalError+ +instance FromJSVal MediaKeyStatus where+        fromJSValUnchecked = return . pFromJSVal+        fromJSVal = return . pFromJSVal+ +foreign import javascript unsafe "\"usable\""+        js_MediaKeyStatusUsable :: JSVal+ +foreign import javascript unsafe "\"expired\""+        js_MediaKeyStatusExpired :: JSVal+ +foreign import javascript unsafe "\"released\""+        js_MediaKeyStatusReleased :: JSVal+ +foreign import javascript unsafe "\"output-restricted\""+        js_MediaKeyStatusOutputRestricted :: JSVal+ +foreign import javascript unsafe "\"output-downscaled\""+        js_MediaKeyStatusOutputDownscaled :: JSVal+ +foreign import javascript unsafe "\"status-pending\""+        js_MediaKeyStatusStatusPending :: JSVal+ +foreign import javascript unsafe "\"internal-error\""+        js_MediaKeyStatusInternalError :: JSVal+ +data RequestType = RequestType+                 | RequestTypeAudio+                 | RequestTypeFont+                 | RequestTypeImage+                 | RequestTypeScript+                 | RequestTypeStyle+                 | RequestTypeTrack+                 | RequestTypeVideo+                 deriving (Show, Read, Eq, Ord, Typeable)+ +instance PToJSVal RequestType where+        pToJSVal RequestType = js_RequestType+        pToJSVal RequestTypeAudio = js_RequestTypeAudio+        pToJSVal RequestTypeFont = js_RequestTypeFont+        pToJSVal RequestTypeImage = js_RequestTypeImage+        pToJSVal RequestTypeScript = js_RequestTypeScript+        pToJSVal RequestTypeStyle = js_RequestTypeStyle+        pToJSVal RequestTypeTrack = js_RequestTypeTrack+        pToJSVal RequestTypeVideo = js_RequestTypeVideo+ +instance ToJSVal RequestType where+        toJSVal = return . pToJSVal+ +instance PFromJSVal RequestType where+        pFromJSVal x | x `js_eq` js_RequestType = RequestType+        pFromJSVal x | x `js_eq` js_RequestTypeAudio = RequestTypeAudio+        pFromJSVal x | x `js_eq` js_RequestTypeFont = RequestTypeFont+        pFromJSVal x | x `js_eq` js_RequestTypeImage = RequestTypeImage+        pFromJSVal x | x `js_eq` js_RequestTypeScript = RequestTypeScript+        pFromJSVal x | x `js_eq` js_RequestTypeStyle = RequestTypeStyle+        pFromJSVal x | x `js_eq` js_RequestTypeTrack = RequestTypeTrack+        pFromJSVal x | x `js_eq` js_RequestTypeVideo = RequestTypeVideo+ +instance FromJSVal RequestType where+        fromJSValUnchecked = return . pFromJSVal+        fromJSVal = return . pFromJSVal+ +foreign import javascript unsafe "\"\"" js_RequestType :: JSVal+ +foreign import javascript unsafe "\"audio\"" js_RequestTypeAudio ::+        JSVal+ +foreign import javascript unsafe "\"font\"" js_RequestTypeFont ::+        JSVal+ +foreign import javascript unsafe "\"image\"" js_RequestTypeImage ::+        JSVal+ +foreign import javascript unsafe "\"script\"" js_RequestTypeScript+        :: JSVal+ +foreign import javascript unsafe "\"style\"" js_RequestTypeStyle ::+        JSVal+ +foreign import javascript unsafe "\"track\"" js_RequestTypeTrack ::+        JSVal+ +foreign import javascript unsafe "\"video\"" js_RequestTypeVideo ::+        JSVal+ +data RequestDestination = RequestDestination+                        | RequestDestinationDocument+                        | RequestDestinationSharedworker+                        | RequestDestinationSubresource+                        | RequestDestinationUnknown+                        | RequestDestinationWorker+                        deriving (Show, Read, Eq, Ord, Typeable)+ +instance PToJSVal RequestDestination where+        pToJSVal RequestDestination = js_RequestDestination+        pToJSVal RequestDestinationDocument = js_RequestDestinationDocument+        pToJSVal RequestDestinationSharedworker+          = js_RequestDestinationSharedworker+        pToJSVal RequestDestinationSubresource+          = js_RequestDestinationSubresource+        pToJSVal RequestDestinationUnknown = js_RequestDestinationUnknown+        pToJSVal RequestDestinationWorker = js_RequestDestinationWorker+ +instance ToJSVal RequestDestination where+        toJSVal = return . pToJSVal+ +instance PFromJSVal RequestDestination where+        pFromJSVal x | x `js_eq` js_RequestDestination = RequestDestination+        pFromJSVal x+          | x `js_eq` js_RequestDestinationDocument =+            RequestDestinationDocument+        pFromJSVal x+          | x `js_eq` js_RequestDestinationSharedworker =+            RequestDestinationSharedworker+        pFromJSVal x+          | x `js_eq` js_RequestDestinationSubresource =+            RequestDestinationSubresource+        pFromJSVal x+          | x `js_eq` js_RequestDestinationUnknown =+            RequestDestinationUnknown+        pFromJSVal x+          | x `js_eq` js_RequestDestinationWorker = RequestDestinationWorker+ +instance FromJSVal RequestDestination where+        fromJSValUnchecked = return . pFromJSVal+        fromJSVal = return . pFromJSVal+ +foreign import javascript unsafe "\"\"" js_RequestDestination ::+        JSVal+ +foreign import javascript unsafe "\"document\""+        js_RequestDestinationDocument :: JSVal+ +foreign import javascript unsafe "\"sharedworker\""+        js_RequestDestinationSharedworker :: JSVal+ +foreign import javascript unsafe "\"subresource\""+        js_RequestDestinationSubresource :: JSVal+ +foreign import javascript unsafe "\"unknown\""+        js_RequestDestinationUnknown :: JSVal+ +foreign import javascript unsafe "\"worker\""+        js_RequestDestinationWorker :: JSVal+ +data RequestMode = RequestModeNavigate+                 | RequestModeSameOrigin+                 | RequestModeNoCors+                 | RequestModeCors+                 deriving (Show, Read, Eq, Ord, Typeable)+ +instance PToJSVal RequestMode where+        pToJSVal RequestModeNavigate = js_RequestModeNavigate+        pToJSVal RequestModeSameOrigin = js_RequestModeSameOrigin+        pToJSVal RequestModeNoCors = js_RequestModeNoCors+        pToJSVal RequestModeCors = js_RequestModeCors+ +instance ToJSVal RequestMode where+        toJSVal = return . pToJSVal+ +instance PFromJSVal RequestMode where+        pFromJSVal x+          | x `js_eq` js_RequestModeNavigate = RequestModeNavigate+        pFromJSVal x+          | x `js_eq` js_RequestModeSameOrigin = RequestModeSameOrigin+        pFromJSVal x | x `js_eq` js_RequestModeNoCors = RequestModeNoCors+        pFromJSVal x | x `js_eq` js_RequestModeCors = RequestModeCors+ +instance FromJSVal RequestMode where+        fromJSValUnchecked = return . pFromJSVal+        fromJSVal = return . pFromJSVal+ +foreign import javascript unsafe "\"navigate\""+        js_RequestModeNavigate :: JSVal+ +foreign import javascript unsafe "\"same-origin\""+        js_RequestModeSameOrigin :: JSVal+ +foreign import javascript unsafe "\"no-cors\"" js_RequestModeNoCors+        :: JSVal+ +foreign import javascript unsafe "\"cors\"" js_RequestModeCors ::+        JSVal+ +data RequestCredentials = RequestCredentialsOmit+                        | RequestCredentialsSameOrigin+                        | RequestCredentialsInclude+                        deriving (Show, Read, Eq, Ord, Typeable)+ +instance PToJSVal RequestCredentials where+        pToJSVal RequestCredentialsOmit = js_RequestCredentialsOmit+        pToJSVal RequestCredentialsSameOrigin+          = js_RequestCredentialsSameOrigin+        pToJSVal RequestCredentialsInclude = js_RequestCredentialsInclude+ +instance ToJSVal RequestCredentials where+        toJSVal = return . pToJSVal+ +instance PFromJSVal RequestCredentials where+        pFromJSVal x+          | x `js_eq` js_RequestCredentialsOmit = RequestCredentialsOmit+        pFromJSVal x+          | x `js_eq` js_RequestCredentialsSameOrigin =+            RequestCredentialsSameOrigin+        pFromJSVal x+          | x `js_eq` js_RequestCredentialsInclude =+            RequestCredentialsInclude+ +instance FromJSVal RequestCredentials where+        fromJSValUnchecked = return . pFromJSVal+        fromJSVal = return . pFromJSVal+ +foreign import javascript unsafe "\"omit\""+        js_RequestCredentialsOmit :: JSVal+ +foreign import javascript unsafe "\"same-origin\""+        js_RequestCredentialsSameOrigin :: JSVal+ +foreign import javascript unsafe "\"include\""+        js_RequestCredentialsInclude :: JSVal+ +data RequestCache = RequestCacheDefault+                  | RequestCacheNoStore+                  | RequestCacheReload+                  | RequestCacheNoCache+                  | RequestCacheForceCache+                  | RequestCacheOnlyIfCached+                  deriving (Show, Read, Eq, Ord, Typeable)+ +instance PToJSVal RequestCache where+        pToJSVal RequestCacheDefault = js_RequestCacheDefault+        pToJSVal RequestCacheNoStore = js_RequestCacheNoStore+        pToJSVal RequestCacheReload = js_RequestCacheReload+        pToJSVal RequestCacheNoCache = js_RequestCacheNoCache+        pToJSVal RequestCacheForceCache = js_RequestCacheForceCache+        pToJSVal RequestCacheOnlyIfCached = js_RequestCacheOnlyIfCached+ +instance ToJSVal RequestCache where+        toJSVal = return . pToJSVal+ +instance PFromJSVal RequestCache where+        pFromJSVal x+          | x `js_eq` js_RequestCacheDefault = RequestCacheDefault+        pFromJSVal x+          | x `js_eq` js_RequestCacheNoStore = RequestCacheNoStore+        pFromJSVal x | x `js_eq` js_RequestCacheReload = RequestCacheReload+        pFromJSVal x+          | x `js_eq` js_RequestCacheNoCache = RequestCacheNoCache+        pFromJSVal x+          | x `js_eq` js_RequestCacheForceCache = RequestCacheForceCache+        pFromJSVal x+          | x `js_eq` js_RequestCacheOnlyIfCached = RequestCacheOnlyIfCached+ +instance FromJSVal RequestCache where+        fromJSValUnchecked = return . pFromJSVal+        fromJSVal = return . pFromJSVal+ +foreign import javascript unsafe "\"default\""+        js_RequestCacheDefault :: JSVal+ +foreign import javascript unsafe "\"no-store\""+        js_RequestCacheNoStore :: JSVal+ +foreign import javascript unsafe "\"reload\"" js_RequestCacheReload+        :: JSVal+ +foreign import javascript unsafe "\"no-cache\""+        js_RequestCacheNoCache :: JSVal+ +foreign import javascript unsafe "\"force-cache\""+        js_RequestCacheForceCache :: JSVal+ +foreign import javascript unsafe "\"only-if-cached\""+        js_RequestCacheOnlyIfCached :: JSVal+ +data RequestRedirect = RequestRedirectFollow+                     | RequestRedirectError+                     | RequestRedirectManual+                     deriving (Show, Read, Eq, Ord, Typeable)+ +instance PToJSVal RequestRedirect where+        pToJSVal RequestRedirectFollow = js_RequestRedirectFollow+        pToJSVal RequestRedirectError = js_RequestRedirectError+        pToJSVal RequestRedirectManual = js_RequestRedirectManual+ +instance ToJSVal RequestRedirect where+        toJSVal = return . pToJSVal+ +instance PFromJSVal RequestRedirect where+        pFromJSVal x+          | x `js_eq` js_RequestRedirectFollow = RequestRedirectFollow+        pFromJSVal x+          | x `js_eq` js_RequestRedirectError = RequestRedirectError+        pFromJSVal x+          | x `js_eq` js_RequestRedirectManual = RequestRedirectManual+ +instance FromJSVal RequestRedirect where+        fromJSValUnchecked = return . pFromJSVal+        fromJSVal = return . pFromJSVal+ +foreign import javascript unsafe "\"follow\""+        js_RequestRedirectFollow :: JSVal+ +foreign import javascript unsafe "\"error\""+        js_RequestRedirectError :: JSVal+ +foreign import javascript unsafe "\"manual\""+        js_RequestRedirectManual :: JSVal+ +data ReferrerPolicy = ReferrerPolicy+                    | ReferrerPolicyNoReferrer+                    | ReferrerPolicyNoReferrerWhenDowngrade+                    | ReferrerPolicyOrigin+                    | ReferrerPolicyOriginWhenCrossOrigin+                    | ReferrerPolicyUnsafeUrl+                    deriving (Show, Read, Eq, Ord, Typeable)+ +instance PToJSVal ReferrerPolicy where+        pToJSVal ReferrerPolicy = js_ReferrerPolicy+        pToJSVal ReferrerPolicyNoReferrer = js_ReferrerPolicyNoReferrer+        pToJSVal ReferrerPolicyNoReferrerWhenDowngrade+          = js_ReferrerPolicyNoReferrerWhenDowngrade+        pToJSVal ReferrerPolicyOrigin = js_ReferrerPolicyOrigin+        pToJSVal ReferrerPolicyOriginWhenCrossOrigin+          = js_ReferrerPolicyOriginWhenCrossOrigin+        pToJSVal ReferrerPolicyUnsafeUrl = js_ReferrerPolicyUnsafeUrl+ +instance ToJSVal ReferrerPolicy where+        toJSVal = return . pToJSVal+ +instance PFromJSVal ReferrerPolicy where+        pFromJSVal x | x `js_eq` js_ReferrerPolicy = ReferrerPolicy+        pFromJSVal x+          | x `js_eq` js_ReferrerPolicyNoReferrer = ReferrerPolicyNoReferrer+        pFromJSVal x+          | x `js_eq` js_ReferrerPolicyNoReferrerWhenDowngrade =+            ReferrerPolicyNoReferrerWhenDowngrade+        pFromJSVal x+          | x `js_eq` js_ReferrerPolicyOrigin = ReferrerPolicyOrigin+        pFromJSVal x+          | x `js_eq` js_ReferrerPolicyOriginWhenCrossOrigin =+            ReferrerPolicyOriginWhenCrossOrigin+        pFromJSVal x+          | x `js_eq` js_ReferrerPolicyUnsafeUrl = ReferrerPolicyUnsafeUrl+ +instance FromJSVal ReferrerPolicy where+        fromJSValUnchecked = return . pFromJSVal+        fromJSVal = return . pFromJSVal+ +foreign import javascript unsafe "\"\"" js_ReferrerPolicy :: JSVal+ +foreign import javascript unsafe "\"no-referrer\""+        js_ReferrerPolicyNoReferrer :: JSVal+ +foreign import javascript unsafe "\"no-referrer-when-downgrade\""+        js_ReferrerPolicyNoReferrerWhenDowngrade :: JSVal+ +foreign import javascript unsafe "\"origin\""+        js_ReferrerPolicyOrigin :: JSVal+ +foreign import javascript unsafe "\"origin-when-cross-origin\""+        js_ReferrerPolicyOriginWhenCrossOrigin :: JSVal+ +foreign import javascript unsafe "\"unsafe-url\""+        js_ReferrerPolicyUnsafeUrl :: JSVal+ +data ResponseType = ResponseTypeBasic+                  | ResponseTypeCors+                  | ResponseTypeDefault+                  | ResponseTypeError+                  | ResponseTypeOpaque+                  | ResponseTypeOpaqueredirect+                  deriving (Show, Read, Eq, Ord, Typeable)+ +instance PToJSVal ResponseType where+        pToJSVal ResponseTypeBasic = js_ResponseTypeBasic+        pToJSVal ResponseTypeCors = js_ResponseTypeCors+        pToJSVal ResponseTypeDefault = js_ResponseTypeDefault+        pToJSVal ResponseTypeError = js_ResponseTypeError+        pToJSVal ResponseTypeOpaque = js_ResponseTypeOpaque+        pToJSVal ResponseTypeOpaqueredirect = js_ResponseTypeOpaqueredirect+ +instance ToJSVal ResponseType where+        toJSVal = return . pToJSVal+ +instance PFromJSVal ResponseType where+        pFromJSVal x | x `js_eq` js_ResponseTypeBasic = ResponseTypeBasic+        pFromJSVal x | x `js_eq` js_ResponseTypeCors = ResponseTypeCors+        pFromJSVal x+          | x `js_eq` js_ResponseTypeDefault = ResponseTypeDefault+        pFromJSVal x | x `js_eq` js_ResponseTypeError = ResponseTypeError+        pFromJSVal x | x `js_eq` js_ResponseTypeOpaque = ResponseTypeOpaque+        pFromJSVal x+          | x `js_eq` js_ResponseTypeOpaqueredirect =+            ResponseTypeOpaqueredirect+ +instance FromJSVal ResponseType where+        fromJSValUnchecked = return . pFromJSVal+        fromJSVal = return . pFromJSVal+ +foreign import javascript unsafe "\"basic\"" js_ResponseTypeBasic+        :: JSVal+ +foreign import javascript unsafe "\"cors\"" js_ResponseTypeCors ::+        JSVal+ +foreign import javascript unsafe "\"default\""+        js_ResponseTypeDefault :: JSVal+ +foreign import javascript unsafe "\"error\"" js_ResponseTypeError+        :: JSVal+ +foreign import javascript unsafe "\"opaque\"" js_ResponseTypeOpaque+        :: JSVal+ +foreign import javascript unsafe "\"opaqueredirect\""+        js_ResponseTypeOpaqueredirect :: JSVal+ +data IDBCursorDirection = IDBCursorDirectionNext+                        | IDBCursorDirectionNextunique+                        | IDBCursorDirectionPrev+                        | IDBCursorDirectionPrevunique+                        deriving (Show, Read, Eq, Ord, Typeable)+ +instance PToJSVal IDBCursorDirection where+        pToJSVal IDBCursorDirectionNext = js_IDBCursorDirectionNext+        pToJSVal IDBCursorDirectionNextunique+          = js_IDBCursorDirectionNextunique+        pToJSVal IDBCursorDirectionPrev = js_IDBCursorDirectionPrev+        pToJSVal IDBCursorDirectionPrevunique+          = js_IDBCursorDirectionPrevunique+ +instance ToJSVal IDBCursorDirection where+        toJSVal = return . pToJSVal+ +instance PFromJSVal IDBCursorDirection where+        pFromJSVal x+          | x `js_eq` js_IDBCursorDirectionNext = IDBCursorDirectionNext+        pFromJSVal x+          | x `js_eq` js_IDBCursorDirectionNextunique =+            IDBCursorDirectionNextunique+        pFromJSVal x+          | x `js_eq` js_IDBCursorDirectionPrev = IDBCursorDirectionPrev+        pFromJSVal x+          | x `js_eq` js_IDBCursorDirectionPrevunique =+            IDBCursorDirectionPrevunique+ +instance FromJSVal IDBCursorDirection where+        fromJSValUnchecked = return . pFromJSVal+        fromJSVal = return . pFromJSVal+ +foreign import javascript unsafe "\"next\""+        js_IDBCursorDirectionNext :: JSVal+ +foreign import javascript unsafe "\"nextunique\""+        js_IDBCursorDirectionNextunique :: JSVal+ +foreign import javascript unsafe "\"prev\""+        js_IDBCursorDirectionPrev :: JSVal+ +foreign import javascript unsafe "\"prevunique\""+        js_IDBCursorDirectionPrevunique :: JSVal+ +data IDBRequestReadyState = IDBRequestReadyStatePending+                          | IDBRequestReadyStateDone+                          deriving (Show, Read, Eq, Ord, Typeable)+ +instance PToJSVal IDBRequestReadyState where+        pToJSVal IDBRequestReadyStatePending+          = js_IDBRequestReadyStatePending+        pToJSVal IDBRequestReadyStateDone = js_IDBRequestReadyStateDone+ +instance ToJSVal IDBRequestReadyState where+        toJSVal = return . pToJSVal+ +instance PFromJSVal IDBRequestReadyState where+        pFromJSVal x+          | x `js_eq` js_IDBRequestReadyStatePending =+            IDBRequestReadyStatePending+        pFromJSVal x+          | x `js_eq` js_IDBRequestReadyStateDone = IDBRequestReadyStateDone+ +instance FromJSVal IDBRequestReadyState where+        fromJSValUnchecked = return . pFromJSVal+        fromJSVal = return . pFromJSVal+ +foreign import javascript unsafe "\"pending\""+        js_IDBRequestReadyStatePending :: JSVal+ +foreign import javascript unsafe "\"done\""+        js_IDBRequestReadyStateDone :: JSVal+ +data IDBTransactionMode = IDBTransactionModeReadonly+                        | IDBTransactionModeReadwrite+                        | IDBTransactionModeVersionchange+                        deriving (Show, Read, Eq, Ord, Typeable)+ +instance PToJSVal IDBTransactionMode where+        pToJSVal IDBTransactionModeReadonly = js_IDBTransactionModeReadonly+        pToJSVal IDBTransactionModeReadwrite+          = js_IDBTransactionModeReadwrite+        pToJSVal IDBTransactionModeVersionchange+          = js_IDBTransactionModeVersionchange+ +instance ToJSVal IDBTransactionMode where+        toJSVal = return . pToJSVal+ +instance PFromJSVal IDBTransactionMode where+        pFromJSVal x+          | x `js_eq` js_IDBTransactionModeReadonly =+            IDBTransactionModeReadonly+        pFromJSVal x+          | x `js_eq` js_IDBTransactionModeReadwrite =+            IDBTransactionModeReadwrite+        pFromJSVal x+          | x `js_eq` js_IDBTransactionModeVersionchange =+            IDBTransactionModeVersionchange+ +instance FromJSVal IDBTransactionMode where+        fromJSValUnchecked = return . pFromJSVal+        fromJSVal = return . pFromJSVal+ +foreign import javascript unsafe "\"readonly\""+        js_IDBTransactionModeReadonly :: JSVal+ +foreign import javascript unsafe "\"readwrite\""+        js_IDBTransactionModeReadwrite :: JSVal+ +foreign import javascript unsafe "\"versionchange\""+        js_IDBTransactionModeVersionchange :: JSVal+ +data DeviceType = DeviceTypeNone+                | DeviceTypeAirplay+                | DeviceTypeTvout+                deriving (Show, Read, Eq, Ord, Typeable)+ +instance PToJSVal DeviceType where+        pToJSVal DeviceTypeNone = js_DeviceTypeNone+        pToJSVal DeviceTypeAirplay = js_DeviceTypeAirplay+        pToJSVal DeviceTypeTvout = js_DeviceTypeTvout+ +instance ToJSVal DeviceType where+        toJSVal = return . pToJSVal+ +instance PFromJSVal DeviceType where+        pFromJSVal x | x `js_eq` js_DeviceTypeNone = DeviceTypeNone+        pFromJSVal x | x `js_eq` js_DeviceTypeAirplay = DeviceTypeAirplay+        pFromJSVal x | x `js_eq` js_DeviceTypeTvout = DeviceTypeTvout+ +instance FromJSVal DeviceType where+        fromJSValUnchecked = return . pFromJSVal+        fromJSVal = return . pFromJSVal+ +foreign import javascript unsafe "\"none\"" js_DeviceTypeNone ::+        JSVal+ +foreign import javascript unsafe "\"airplay\"" js_DeviceTypeAirplay+        :: JSVal+ +foreign import javascript unsafe "\"tvout\"" js_DeviceTypeTvout ::+        JSVal+ +data MediaSessionKind = MediaSessionKindContent+                      | MediaSessionKindTransient+                      | MediaSessionKindTransientSolo+                      | MediaSessionKindAmbient+                      deriving (Show, Read, Eq, Ord, Typeable)+ +instance PToJSVal MediaSessionKind where+        pToJSVal MediaSessionKindContent = js_MediaSessionKindContent+        pToJSVal MediaSessionKindTransient = js_MediaSessionKindTransient+        pToJSVal MediaSessionKindTransientSolo+          = js_MediaSessionKindTransientSolo+        pToJSVal MediaSessionKindAmbient = js_MediaSessionKindAmbient+ +instance ToJSVal MediaSessionKind where+        toJSVal = return . pToJSVal+ +instance PFromJSVal MediaSessionKind where+        pFromJSVal x+          | x `js_eq` js_MediaSessionKindContent = MediaSessionKindContent+        pFromJSVal x+          | x `js_eq` js_MediaSessionKindTransient =+            MediaSessionKindTransient+        pFromJSVal x+          | x `js_eq` js_MediaSessionKindTransientSolo =+            MediaSessionKindTransientSolo+        pFromJSVal x+          | x `js_eq` js_MediaSessionKindAmbient = MediaSessionKindAmbient+ +instance FromJSVal MediaSessionKind where+        fromJSValUnchecked = return . pFromJSVal+        fromJSVal = return . pFromJSVal+ +foreign import javascript unsafe "\"content\""+        js_MediaSessionKindContent :: JSVal+ +foreign import javascript unsafe "\"transient\""+        js_MediaSessionKindTransient :: JSVal+ +foreign import javascript unsafe "\"transient-solo\""+        js_MediaSessionKindTransientSolo :: JSVal+ +foreign import javascript unsafe "\"ambient\""+        js_MediaSessionKindAmbient :: JSVal+ +data EndOfStreamError = EndOfStreamErrorNetwork+                      | EndOfStreamErrorDecode+                      deriving (Show, Read, Eq, Ord, Typeable)+ +instance PToJSVal EndOfStreamError where+        pToJSVal EndOfStreamErrorNetwork = js_EndOfStreamErrorNetwork+        pToJSVal EndOfStreamErrorDecode = js_EndOfStreamErrorDecode+ +instance ToJSVal EndOfStreamError where+        toJSVal = return . pToJSVal+ +instance PFromJSVal EndOfStreamError where+        pFromJSVal x+          | x `js_eq` js_EndOfStreamErrorNetwork = EndOfStreamErrorNetwork+        pFromJSVal x+          | x `js_eq` js_EndOfStreamErrorDecode = EndOfStreamErrorDecode+ +instance FromJSVal EndOfStreamError where+        fromJSValUnchecked = return . pFromJSVal+        fromJSVal = return . pFromJSVal+ +foreign import javascript unsafe "\"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 MediaDeviceKind = MediaDeviceKindAudioinput+                     | MediaDeviceKindAudiooutput+                     | MediaDeviceKindVideoinput+                     deriving (Show, Read, Eq, Ord, Typeable)+ +instance PToJSVal MediaDeviceKind where+        pToJSVal MediaDeviceKindAudioinput = js_MediaDeviceKindAudioinput+        pToJSVal MediaDeviceKindAudiooutput = js_MediaDeviceKindAudiooutput+        pToJSVal MediaDeviceKindVideoinput = js_MediaDeviceKindVideoinput+ +instance ToJSVal MediaDeviceKind where+        toJSVal = return . pToJSVal+ +instance PFromJSVal MediaDeviceKind where+        pFromJSVal x+          | x `js_eq` js_MediaDeviceKindAudioinput =+            MediaDeviceKindAudioinput+        pFromJSVal x+          | x `js_eq` js_MediaDeviceKindAudiooutput =+            MediaDeviceKindAudiooutput+        pFromJSVal x+          | x `js_eq` js_MediaDeviceKindVideoinput =+            MediaDeviceKindVideoinput+ +instance FromJSVal MediaDeviceKind where+        fromJSValUnchecked = return . pFromJSVal+        fromJSVal = return . pFromJSVal+ +foreign import javascript unsafe "\"audioinput\""+        js_MediaDeviceKindAudioinput :: JSVal+ +foreign import javascript unsafe "\"audiooutput\""+        js_MediaDeviceKindAudiooutput :: JSVal+ +foreign import javascript unsafe "\"videoinput\""+        js_MediaDeviceKindVideoinput :: 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 RTCIceTransportPolicy = RTCIceTransportPolicyRelay+                           | RTCIceTransportPolicyAll+                           deriving (Show, Read, Eq, Ord, Typeable)+ +instance PToJSVal RTCIceTransportPolicy where+        pToJSVal RTCIceTransportPolicyRelay = js_RTCIceTransportPolicyRelay+        pToJSVal RTCIceTransportPolicyAll = js_RTCIceTransportPolicyAll+ +instance ToJSVal RTCIceTransportPolicy where+        toJSVal = return . pToJSVal+ +instance PFromJSVal RTCIceTransportPolicy where+        pFromJSVal x+          | x `js_eq` js_RTCIceTransportPolicyRelay =+            RTCIceTransportPolicyRelay+        pFromJSVal x+          | x `js_eq` js_RTCIceTransportPolicyAll = RTCIceTransportPolicyAll+ +instance FromJSVal RTCIceTransportPolicy where+        fromJSValUnchecked = return . pFromJSVal+        fromJSVal = return . pFromJSVal+ +foreign import javascript unsafe "\"relay\""+        js_RTCIceTransportPolicyRelay :: JSVal+ +foreign import javascript unsafe "\"all\""+        js_RTCIceTransportPolicyAll :: JSVal+ +data RTCBundlePolicy = RTCBundlePolicyBalanced+                     | RTCBundlePolicyMaxCompat+                     | RTCBundlePolicyMaxBundle+                     deriving (Show, Read, Eq, Ord, Typeable)+ +instance PToJSVal RTCBundlePolicy where+        pToJSVal RTCBundlePolicyBalanced = js_RTCBundlePolicyBalanced+        pToJSVal RTCBundlePolicyMaxCompat = js_RTCBundlePolicyMaxCompat+        pToJSVal RTCBundlePolicyMaxBundle = js_RTCBundlePolicyMaxBundle+ +instance ToJSVal RTCBundlePolicy where+        toJSVal = return . pToJSVal+ +instance PFromJSVal RTCBundlePolicy where+        pFromJSVal x+          | x `js_eq` js_RTCBundlePolicyBalanced = RTCBundlePolicyBalanced+        pFromJSVal x+          | x `js_eq` js_RTCBundlePolicyMaxCompat = RTCBundlePolicyMaxCompat+        pFromJSVal x+          | x `js_eq` js_RTCBundlePolicyMaxBundle = RTCBundlePolicyMaxBundle+ +instance FromJSVal RTCBundlePolicy where+        fromJSValUnchecked = return . pFromJSVal+        fromJSVal = return . pFromJSVal+ +foreign import javascript unsafe "\"balanced\""+        js_RTCBundlePolicyBalanced :: JSVal+ +foreign import javascript unsafe "\"max-compat\""+        js_RTCBundlePolicyMaxCompat :: JSVal+ +foreign import javascript unsafe "\"max-bundle\""+        js_RTCBundlePolicyMaxBundle :: JSVal+ +data RTCRtpTransceiverDirection = RTCRtpTransceiverDirectionSendrecv+                                | RTCRtpTransceiverDirectionSendonly+                                | RTCRtpTransceiverDirectionRecvonly+                                | RTCRtpTransceiverDirectionInactive+                                deriving (Show, Read, Eq, Ord, Typeable)+ +instance PToJSVal RTCRtpTransceiverDirection where+        pToJSVal RTCRtpTransceiverDirectionSendrecv+          = js_RTCRtpTransceiverDirectionSendrecv+        pToJSVal RTCRtpTransceiverDirectionSendonly+          = js_RTCRtpTransceiverDirectionSendonly+        pToJSVal RTCRtpTransceiverDirectionRecvonly+          = js_RTCRtpTransceiverDirectionRecvonly+        pToJSVal RTCRtpTransceiverDirectionInactive+          = js_RTCRtpTransceiverDirectionInactive+ +instance ToJSVal RTCRtpTransceiverDirection where+        toJSVal = return . pToJSVal+ +instance PFromJSVal RTCRtpTransceiverDirection where+        pFromJSVal x+          | x `js_eq` js_RTCRtpTransceiverDirectionSendrecv =+            RTCRtpTransceiverDirectionSendrecv+        pFromJSVal x+          | x `js_eq` js_RTCRtpTransceiverDirectionSendonly =+            RTCRtpTransceiverDirectionSendonly+        pFromJSVal x+          | x `js_eq` js_RTCRtpTransceiverDirectionRecvonly =+            RTCRtpTransceiverDirectionRecvonly+        pFromJSVal x+          | x `js_eq` js_RTCRtpTransceiverDirectionInactive =+            RTCRtpTransceiverDirectionInactive+ +instance FromJSVal RTCRtpTransceiverDirection where+        fromJSValUnchecked = return . pFromJSVal+        fromJSVal = return . pFromJSVal+ +foreign import javascript unsafe "\"sendrecv\""+        js_RTCRtpTransceiverDirectionSendrecv :: JSVal+ +foreign import javascript unsafe "\"sendonly\""+        js_RTCRtpTransceiverDirectionSendonly :: JSVal+ +foreign import javascript unsafe "\"recvonly\""+        js_RTCRtpTransceiverDirectionRecvonly :: JSVal+ +foreign import javascript unsafe "\"inactive\""+        js_RTCRtpTransceiverDirectionInactive :: JSVal+ +data RTCSdpType = RTCSdpTypeOffer+                | RTCSdpTypePranswer+                | RTCSdpTypeAnswer+                | RTCSdpTypeRollback+                deriving (Show, Read, Eq, Ord, Typeable)+ +instance PToJSVal RTCSdpType where+        pToJSVal RTCSdpTypeOffer = js_RTCSdpTypeOffer+        pToJSVal RTCSdpTypePranswer = js_RTCSdpTypePranswer+        pToJSVal RTCSdpTypeAnswer = js_RTCSdpTypeAnswer+        pToJSVal RTCSdpTypeRollback = js_RTCSdpTypeRollback+ +instance ToJSVal RTCSdpType where+        toJSVal = return . pToJSVal+ +instance PFromJSVal RTCSdpType where+        pFromJSVal x | x `js_eq` js_RTCSdpTypeOffer = RTCSdpTypeOffer+        pFromJSVal x | x `js_eq` js_RTCSdpTypePranswer = RTCSdpTypePranswer+        pFromJSVal x | x `js_eq` js_RTCSdpTypeAnswer = RTCSdpTypeAnswer+        pFromJSVal x | x `js_eq` js_RTCSdpTypeRollback = RTCSdpTypeRollback+ +instance FromJSVal RTCSdpType where+        fromJSValUnchecked = return . pFromJSVal+        fromJSVal = return . pFromJSVal+ +foreign import javascript unsafe "\"offer\"" js_RTCSdpTypeOffer ::+        JSVal+ +foreign import javascript unsafe "\"pranswer\""+        js_RTCSdpTypePranswer :: JSVal+ +foreign import javascript unsafe "\"answer\"" js_RTCSdpTypeAnswer+        :: JSVal+ +foreign import javascript unsafe "\"rollback\""+        js_RTCSdpTypeRollback :: JSVal+ +data NotificationDirection = NotificationDirectionAuto+                           | NotificationDirectionLtr+                           | NotificationDirectionRtl+                           deriving (Show, Read, Eq, Ord, Typeable)+ +instance PToJSVal NotificationDirection where+        pToJSVal NotificationDirectionAuto = js_NotificationDirectionAuto+        pToJSVal NotificationDirectionLtr = js_NotificationDirectionLtr+        pToJSVal NotificationDirectionRtl = js_NotificationDirectionRtl+ +instance ToJSVal NotificationDirection where+        toJSVal = return . pToJSVal+ +instance PFromJSVal NotificationDirection where+        pFromJSVal x+          | x `js_eq` js_NotificationDirectionAuto =+            NotificationDirectionAuto+        pFromJSVal x+          | x `js_eq` js_NotificationDirectionLtr = NotificationDirectionLtr+        pFromJSVal x+          | x `js_eq` js_NotificationDirectionRtl = NotificationDirectionRtl+ +instance FromJSVal NotificationDirection where+        fromJSValUnchecked = return . pFromJSVal+        fromJSVal = return . pFromJSVal+ +foreign import javascript unsafe "\"auto\""+        js_NotificationDirectionAuto :: JSVal+ +foreign import javascript unsafe "\"ltr\""+        js_NotificationDirectionLtr :: JSVal+ +foreign import javascript unsafe "\"rtl\""+        js_NotificationDirectionRtl :: JSVal+ +data AudioContextState = AudioContextStateSuspended+                       | AudioContextStateRunning+                       | AudioContextStateInterrupted+                       | AudioContextStateClosed+                       deriving (Show, Read, Eq, Ord, Typeable)+ +instance PToJSVal AudioContextState where+        pToJSVal AudioContextStateSuspended = js_AudioContextStateSuspended+        pToJSVal AudioContextStateRunning = js_AudioContextStateRunning+        pToJSVal AudioContextStateInterrupted+          = js_AudioContextStateInterrupted+        pToJSVal AudioContextStateClosed = js_AudioContextStateClosed+ +instance ToJSVal AudioContextState where+        toJSVal = return . pToJSVal+ +instance PFromJSVal AudioContextState where+        pFromJSVal x+          | x `js_eq` js_AudioContextStateSuspended =+            AudioContextStateSuspended+        pFromJSVal x+          | x `js_eq` js_AudioContextStateRunning = AudioContextStateRunning+        pFromJSVal x+          | x `js_eq` js_AudioContextStateInterrupted =+            AudioContextStateInterrupted+        pFromJSVal x+          | x `js_eq` js_AudioContextStateClosed = AudioContextStateClosed+ +instance FromJSVal AudioContextState where+        fromJSValUnchecked = return . pFromJSVal+        fromJSVal = return . pFromJSVal+ +foreign import javascript unsafe "\"suspended\""+        js_AudioContextStateSuspended :: JSVal+ +foreign import javascript unsafe "\"running\""+        js_AudioContextStateRunning :: JSVal+ +foreign import javascript unsafe "\"interrupted\""+        js_AudioContextStateInterrupted :: JSVal+ +foreign import javascript unsafe "\"closed\""+        js_AudioContextStateClosed :: JSVal+ +data BiquadFilterType = BiquadFilterTypeLowpass+                      | BiquadFilterTypeHighpass+                      | BiquadFilterTypeBandpass+                      | BiquadFilterTypeLowshelf+                      | BiquadFilterTypeHighshelf+                      | BiquadFilterTypePeaking+                      | BiquadFilterTypeNotch+                      | BiquadFilterTypeAllpass+                      deriving (Show, Read, Eq, Ord, Typeable)+ +instance PToJSVal BiquadFilterType where+        pToJSVal BiquadFilterTypeLowpass = js_BiquadFilterTypeLowpass+        pToJSVal BiquadFilterTypeHighpass = js_BiquadFilterTypeHighpass+        pToJSVal BiquadFilterTypeBandpass = js_BiquadFilterTypeBandpass+        pToJSVal BiquadFilterTypeLowshelf = js_BiquadFilterTypeLowshelf+        pToJSVal BiquadFilterTypeHighshelf = js_BiquadFilterTypeHighshelf+        pToJSVal BiquadFilterTypePeaking = js_BiquadFilterTypePeaking+        pToJSVal BiquadFilterTypeNotch = js_BiquadFilterTypeNotch+        pToJSVal BiquadFilterTypeAllpass = js_BiquadFilterTypeAllpass+ +instance ToJSVal BiquadFilterType where+        toJSVal = return . pToJSVal+ +instance PFromJSVal BiquadFilterType where+        pFromJSVal x+          | x `js_eq` js_BiquadFilterTypeLowpass = BiquadFilterTypeLowpass+        pFromJSVal x+          | x `js_eq` js_BiquadFilterTypeHighpass = BiquadFilterTypeHighpass+        pFromJSVal x+          | x `js_eq` js_BiquadFilterTypeBandpass = BiquadFilterTypeBandpass+        pFromJSVal x+          | x `js_eq` js_BiquadFilterTypeLowshelf = BiquadFilterTypeLowshelf+        pFromJSVal x+          | x `js_eq` js_BiquadFilterTypeHighshelf =+            BiquadFilterTypeHighshelf+        pFromJSVal x+          | x `js_eq` js_BiquadFilterTypePeaking = BiquadFilterTypePeaking+        pFromJSVal x+          | x `js_eq` js_BiquadFilterTypeNotch = BiquadFilterTypeNotch+        pFromJSVal x+          | x `js_eq` js_BiquadFilterTypeAllpass = BiquadFilterTypeAllpass+ +instance FromJSVal BiquadFilterType where+        fromJSValUnchecked = return . pFromJSVal+        fromJSVal = return . pFromJSVal+ +foreign import javascript unsafe "\"lowpass\""+        js_BiquadFilterTypeLowpass :: JSVal+ +foreign import javascript unsafe "\"highpass\""+        js_BiquadFilterTypeHighpass :: JSVal+ +foreign import javascript unsafe "\"bandpass\""+        js_BiquadFilterTypeBandpass :: JSVal+ +foreign import javascript unsafe "\"lowshelf\""+        js_BiquadFilterTypeLowshelf :: JSVal+ +foreign import javascript unsafe "\"highshelf\""+        js_BiquadFilterTypeHighshelf :: JSVal+ +foreign import javascript unsafe "\"peaking\""+        js_BiquadFilterTypePeaking :: JSVal+ +foreign import javascript unsafe "\"notch\""+        js_BiquadFilterTypeNotch :: JSVal+ +foreign import javascript unsafe "\"allpass\""+        js_BiquadFilterTypeAllpass :: JSVal+ +data OscillatorType = OscillatorTypeSine+                    | OscillatorTypeSquare+                    | OscillatorTypeSawtooth+                    | OscillatorTypeTriangle+                    | OscillatorTypeCustom+                    deriving (Show, Read, Eq, Ord, Typeable)+ +instance PToJSVal OscillatorType where+        pToJSVal OscillatorTypeSine = js_OscillatorTypeSine+        pToJSVal OscillatorTypeSquare = js_OscillatorTypeSquare+        pToJSVal OscillatorTypeSawtooth = js_OscillatorTypeSawtooth+        pToJSVal OscillatorTypeTriangle = js_OscillatorTypeTriangle+        pToJSVal OscillatorTypeCustom = js_OscillatorTypeCustom+ +instance ToJSVal OscillatorType where+        toJSVal = return . pToJSVal+ +instance PFromJSVal OscillatorType where+        pFromJSVal x | x `js_eq` js_OscillatorTypeSine = OscillatorTypeSine+        pFromJSVal x+          | x `js_eq` js_OscillatorTypeSquare = OscillatorTypeSquare+        pFromJSVal x+          | x `js_eq` js_OscillatorTypeSawtooth = OscillatorTypeSawtooth+        pFromJSVal x+          | x `js_eq` js_OscillatorTypeTriangle = OscillatorTypeTriangle+        pFromJSVal x+          | x `js_eq` js_OscillatorTypeCustom = OscillatorTypeCustom+ +instance FromJSVal OscillatorType where+        fromJSValUnchecked = return . pFromJSVal+        fromJSVal = return . pFromJSVal+ +foreign import javascript unsafe "\"sine\"" js_OscillatorTypeSine+        :: JSVal+ +foreign import javascript unsafe "\"square\""+        js_OscillatorTypeSquare :: JSVal+ +foreign import javascript unsafe "\"sawtooth\""+        js_OscillatorTypeSawtooth :: JSVal+ +foreign import javascript unsafe "\"triangle\""+        js_OscillatorTypeTriangle :: JSVal+ +foreign import javascript unsafe "\"custom\""+        js_OscillatorTypeCustom :: JSVal+ +data PanningModelType = PanningModelTypeEqualpower+                      | PanningModelTypeHRTF+                      deriving (Show, Read, Eq, Ord, Typeable)+ +instance PToJSVal PanningModelType where+        pToJSVal PanningModelTypeEqualpower = js_PanningModelTypeEqualpower+        pToJSVal PanningModelTypeHRTF = js_PanningModelTypeHRTF+ +instance ToJSVal PanningModelType where+        toJSVal = return . pToJSVal+ +instance PFromJSVal PanningModelType where+        pFromJSVal x+          | x `js_eq` js_PanningModelTypeEqualpower =+            PanningModelTypeEqualpower+        pFromJSVal x+          | x `js_eq` js_PanningModelTypeHRTF = PanningModelTypeHRTF+ +instance FromJSVal PanningModelType where+        fromJSValUnchecked = return . pFromJSVal+        fromJSVal = return . pFromJSVal+ +foreign import javascript unsafe "\"equalpower\""+        js_PanningModelTypeEqualpower :: JSVal+ +foreign import javascript unsafe "\"HRTF\"" js_PanningModelTypeHRTF+        :: JSVal+ +data DistanceModelType = DistanceModelTypeLinear+                       | DistanceModelTypeInverse+                       | DistanceModelTypeExponential+                       deriving (Show, Read, Eq, Ord, Typeable)+ +instance PToJSVal DistanceModelType where+        pToJSVal DistanceModelTypeLinear = js_DistanceModelTypeLinear+        pToJSVal DistanceModelTypeInverse = js_DistanceModelTypeInverse+        pToJSVal DistanceModelTypeExponential+          = js_DistanceModelTypeExponential+ +instance ToJSVal DistanceModelType where+        toJSVal = return . pToJSVal+ +instance PFromJSVal DistanceModelType where+        pFromJSVal x+          | x `js_eq` js_DistanceModelTypeLinear = DistanceModelTypeLinear+        pFromJSVal x+          | x `js_eq` js_DistanceModelTypeInverse = DistanceModelTypeInverse+        pFromJSVal x+          | x `js_eq` js_DistanceModelTypeExponential =+            DistanceModelTypeExponential+ +instance FromJSVal DistanceModelType where+        fromJSValUnchecked = return . pFromJSVal+        fromJSVal = return . pFromJSVal+ +foreign import javascript unsafe "\"linear\""+        js_DistanceModelTypeLinear :: JSVal+ +foreign import javascript unsafe "\"inverse\""+        js_DistanceModelTypeInverse :: JSVal+ +foreign import javascript unsafe "\"exponential\""+        js_DistanceModelTypeExponential :: JSVal+ +data OverSampleType = OverSampleTypeNone+                    | OverSampleType2x+                    | OverSampleType4x+                    deriving (Show, Read, Eq, Ord, Typeable)+ +instance PToJSVal OverSampleType where+        pToJSVal OverSampleTypeNone = js_OverSampleTypeNone+        pToJSVal OverSampleType2x = js_OverSampleType2x+        pToJSVal OverSampleType4x = js_OverSampleType4x+ +instance ToJSVal OverSampleType where+        toJSVal = return . pToJSVal+ +instance PFromJSVal OverSampleType where+        pFromJSVal x | x `js_eq` js_OverSampleTypeNone = OverSampleTypeNone+        pFromJSVal x | x `js_eq` js_OverSampleType2x = OverSampleType2x+        pFromJSVal x | x `js_eq` js_OverSampleType4x = OverSampleType4x+ +instance FromJSVal OverSampleType where+        fromJSValUnchecked = return . pFromJSVal+        fromJSVal = return . pFromJSVal+ +foreign import javascript unsafe "\"none\"" js_OverSampleTypeNone+        :: JSVal+ +foreign import javascript unsafe "\"2x\"" js_OverSampleType2x ::+        JSVal+ +foreign import javascript unsafe "\"4x\"" js_OverSampleType4x ::+        JSVal   data XMLHttpRequestResponseType = XMLHttpRequestResponseType                                 | XMLHttpRequestResponseTypeArraybuffer
src/GHCJS/DOM/JSFFI/Generated/ErrorEvent.hs view
@@ -4,15 +4,15 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.ErrorEvent-       (js_getMessage, getMessage, js_getFilename, getFilename,-        js_getLineno, getLineno, js_getColno, getColno, ErrorEvent(..),-        gTypeErrorEvent)+       (js_newErrorEvent, newErrorEvent, js_getMessage, getMessage,+        js_getFilename, getFilename, js_getLineno, getLineno, js_getColno,+        getColno, js_getError, getError, ErrorEvent(..), gTypeErrorEvent)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -21,18 +21,32 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums  +foreign import javascript unsafe+        "new window[\"ErrorEvent\"]($1, $2)" js_newErrorEvent ::+        JSString -> Optional ErrorEventInit -> IO ErrorEvent++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ErrorEvent Mozilla ErrorEvent documentation> +newErrorEvent ::+              (MonadIO m, ToJSString type') =>+                type' -> Maybe ErrorEventInit -> m ErrorEvent+newErrorEvent type' eventInitDict+  = liftIO+      (js_newErrorEvent (toJSString type')+         (maybeToOptional eventInitDict))+  foreign import javascript unsafe "$1[\"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)))+getMessage self = liftIO (fromJSString <$> (js_getMessage self))   foreign import javascript unsafe "$1[\"filename\"]" js_getFilename         :: ErrorEvent -> IO JSString@@ -40,19 +54,25 @@ -- | <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)))+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))+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))+getColno self = liftIO (js_getColno self)+ +foreign import javascript unsafe "$1[\"error\"]" js_getError ::+        ErrorEvent -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ErrorEvent.error Mozilla ErrorEvent.error documentation> +getError :: (MonadIO m) => ErrorEvent -> m JSVal+getError self = liftIO (js_getError self)
src/GHCJS/DOM/JSFFI/Generated/Event.hs view
@@ -4,33 +4,27 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.Event-       (js_stopPropagation, stopPropagation, js_preventDefault,-        preventDefault, js_initEvent, initEvent,+       (js_newEvent, newEvent, js_composedPath, composedPath,+        composedPath_, 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, getTargetUnsafe,-        getTargetUnchecked, js_getCurrentTarget, getCurrentTarget,-        getCurrentTargetUnsafe, getCurrentTargetUnchecked,-        js_getEventPhase, getEventPhase, js_getBubbles, getBubbles,-        js_getCancelable, getCancelable, js_getTimeStamp, getTimeStamp,-        js_getDefaultPrevented, getDefaultPrevented, js_getSrcElement,-        getSrcElement, getSrcElementUnsafe, getSrcElementUnchecked,+        pattern BUBBLING_PHASE, js_getType, getType, js_getTarget,+        getTarget, js_getCurrentTarget, getCurrentTarget, js_getEventPhase,+        getEventPhase, js_getBubbles, getBubbles, js_getCancelable,+        getCancelable, js_getComposed, getComposed, js_getTimeStamp,+        getTimeStamp, js_getDefaultPrevented, getDefaultPrevented,+        js_getIsTrusted, getIsTrusted, js_getSrcElement, getSrcElement,         js_setReturnValue, setReturnValue, js_getReturnValue,         getReturnValue, js_setCancelBubble, setCancelBubble,-        js_getCancelBubble, getCancelBubble, js_getClipboardData,-        getClipboardData, getClipboardDataUnsafe,-        getClipboardDataUnchecked, Event(..), gTypeEvent, IsEvent, toEvent)+        js_getCancelBubble, getCancelBubble, Event(..), gTypeEvent,+        IsEvent, toEvent)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -39,10 +33,35 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.JSFFI.Generated.Enums  +foreign import javascript unsafe "new window[\"Event\"]($1, $2)"+        js_newEvent :: JSString -> Optional EventInit -> IO Event++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Event Mozilla Event documentation> +newEvent ::+         (MonadIO m, ToJSString type', IsEventInit eventInitDict) =>+           type' -> Maybe eventInitDict -> m Event+newEvent type' eventInitDict+  = liftIO+      (js_newEvent (toJSString type')+         (maybeToOptional (fmap toEventInit eventInitDict)))+ +foreign import javascript unsafe "$1[\"composedPath\"]()"+        js_composedPath :: Event -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.composedPath Mozilla Event.composedPath documentation> +composedPath :: (MonadIO m, IsEvent self) => self -> m [Node]+composedPath self+  = liftIO ((js_composedPath (toEvent self)) >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.composedPath Mozilla Event.composedPath documentation> +composedPath_ :: (MonadIO m, IsEvent self) => self -> m ()+composedPath_ self = liftIO (void (js_composedPath (toEvent self)))+  foreign import javascript unsafe "$1[\"stopPropagation\"]()"         js_stopPropagation :: Event -> IO () @@ -62,12 +81,11 @@  -- | <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+          (MonadIO m, IsEvent self, ToJSString type') =>+            self -> type' -> Bool -> Bool -> m ()+initEvent self type' bubbles cancelable   = liftIO-      (js_initEvent (toEvent self) (toJSString eventTypeArg) canBubbleArg-         cancelableArg)+      (js_initEvent (toEvent self) (toJSString type') bubbles cancelable)   foreign import javascript unsafe         "$1[\"stopImmediatePropagation\"]()" js_stopImmediatePropagation ::@@ -82,22 +100,6 @@ 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@@ -109,53 +111,19 @@   = 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.target Mozilla Event.target documentation> -getTargetUnsafe ::-                (MonadIO m, IsEvent self, HasCallStack) => self -> m EventTarget-getTargetUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getTarget (toEvent self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        Event -> IO EventTarget  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.target Mozilla Event.target documentation> -getTargetUnchecked ::-                   (MonadIO m, IsEvent self) => self -> m EventTarget-getTargetUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$> (js_getTarget (toEvent self)))+getTarget :: (MonadIO m, IsEvent self) => self -> m EventTarget+getTarget self = liftIO (js_getTarget (toEvent self))   foreign import javascript unsafe "$1[\"currentTarget\"]"-        js_getCurrentTarget :: Event -> IO (Nullable EventTarget)+        js_getCurrentTarget :: Event -> IO 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.currentTarget Mozilla Event.currentTarget documentation> -getCurrentTargetUnsafe ::-                       (MonadIO m, IsEvent self, HasCallStack) => self -> m EventTarget-getCurrentTargetUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getCurrentTarget (toEvent self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.currentTarget Mozilla Event.currentTarget documentation> -getCurrentTargetUnchecked ::-                          (MonadIO m, IsEvent self) => self -> m EventTarget-getCurrentTargetUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_getCurrentTarget (toEvent self)))+                 (MonadIO m, IsEvent self) => self -> m EventTarget+getCurrentTarget self = liftIO (js_getCurrentTarget (toEvent self))   foreign import javascript unsafe "$1[\"eventPhase\"]"         js_getEventPhase :: Event -> IO Word@@ -178,6 +146,13 @@ getCancelable :: (MonadIO m, IsEvent self) => self -> m Bool getCancelable self = liftIO (js_getCancelable (toEvent self))  +foreign import javascript unsafe "($1[\"composed\"] ? 1 : 0)"+        js_getComposed :: Event -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.composed Mozilla Event.composed documentation> +getComposed :: (MonadIO m, IsEvent self) => self -> m Bool+getComposed self = liftIO (js_getComposed (toEvent self))+  foreign import javascript unsafe "$1[\"timeStamp\"]"         js_getTimeStamp :: Event -> IO Word @@ -194,29 +169,19 @@ 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[\"isTrusted\"] ? 1 : 0)"+        js_getIsTrusted :: Event -> IO Bool --- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.srcElement Mozilla Event.srcElement documentation> -getSrcElementUnsafe ::-                    (MonadIO m, IsEvent self, HasCallStack) => self -> m EventTarget-getSrcElementUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getSrcElement (toEvent self))) >>=-         maybe (Prelude.error "Nothing to return") return)+-- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.isTrusted Mozilla Event.isTrusted documentation> +getIsTrusted :: (MonadIO m, IsEvent self) => self -> m Bool+getIsTrusted self = liftIO (js_getIsTrusted (toEvent self))+ +foreign import javascript unsafe "$1[\"srcElement\"]"+        js_getSrcElement :: Event -> IO EventTarget  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.srcElement Mozilla Event.srcElement documentation> -getSrcElementUnchecked ::-                       (MonadIO m, IsEvent self) => self -> m EventTarget-getSrcElementUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$> (js_getSrcElement (toEvent self)))+getSrcElement :: (MonadIO m, IsEvent self) => self -> m EventTarget+getSrcElement self = liftIO (js_getSrcElement (toEvent self))   foreign import javascript unsafe "$1[\"returnValue\"] = $2;"         js_setReturnValue :: Event -> Bool -> IO ()@@ -248,28 +213,3 @@ -- | <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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.clipboardData Mozilla Event.clipboardData documentation> -getClipboardDataUnsafe ::-                       (MonadIO m, IsEvent self, HasCallStack) => self -> m DataTransfer-getClipboardDataUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getClipboardData (toEvent self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.clipboardData Mozilla Event.clipboardData documentation> -getClipboardDataUnchecked ::-                          (MonadIO m, IsEvent self) => self -> m DataTransfer-getClipboardDataUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_getClipboardData (toEvent self)))
src/GHCJS/DOM/JSFFI/Generated/EventListener.hs view
@@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -20,17 +20,17 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums   foreign import javascript unsafe "$1[\"handleEvent\"]($2)"-        js_handleEvent :: EventListener -> Nullable Event -> IO ()+        js_handleEvent :: EventListener -> 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)))+            (MonadIO m, IsEvent event) => EventListener -> event -> m ()+handleEvent self event+  = liftIO (js_handleEvent self (toEvent event))
src/GHCJS/DOM/JSFFI/Generated/EventSource.hs view
@@ -14,7 +14,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -23,6 +23,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -30,23 +31,23 @@   foreign import javascript unsafe         "new window[\"EventSource\"]($1,\n$2)" js_newEventSource ::-        JSString -> Nullable Dictionary -> IO EventSource+        JSString -> Optional EventSourceInit -> 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+               (MonadIO m, ToJSString url) =>+                 url -> Maybe EventSourceInit -> m EventSource+newEventSource url eventSourceInitDict   = liftIO       (js_newEventSource (toJSString url)-         (maybeToNullable (fmap toDictionary eventSourceInit)))+         (maybeToOptional eventSourceInitDict))   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))+close self = liftIO (js_close self) pattern CONNECTING = 0 pattern OPEN = 1 pattern CLOSED = 2@@ -57,7 +58,7 @@ -- | <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)))+getUrl self = liftIO (fromJSString <$> (js_getUrl self))   foreign import javascript unsafe         "($1[\"withCredentials\"] ? 1 : 0)" js_getWithCredentials ::@@ -65,14 +66,14 @@  -- | <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))+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))+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
src/GHCJS/DOM/JSFFI/Generated/EventTarget.hs view
@@ -13,7 +13,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -22,58 +22,65 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.JSFFI.Generated.Enums   foreign import javascript unsafe         "$1[\"addEventListener\"]($2, $3,\n$4)" js_addEventListener ::-        EventTarget -> JSString -> Nullable EventListener -> Bool -> IO ()+        EventTarget ->+          JSString ->+            Optional EventListener -> AddEventListenerOptionsOrBool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/EventTarget.addEventListener Mozilla EventTarget.addEventListener documentation>  addEventListener ::-                 (MonadIO m, IsEventTarget self, ToJSString type') =>-                   self -> type' -> Maybe EventListener -> Bool -> m ()-addEventListener self type' listener useCapture+                 (MonadIO m, IsEventTarget self, ToJSString type',+                  IsAddEventListenerOptionsOrBool options) =>+                   self -> type' -> Maybe EventListener -> options -> m ()+addEventListener self type' callback options   = liftIO-      (js_addEventListener (toEventTarget self) (toJSString type')-         (maybeToNullable listener)-         useCapture)+      (toJSVal options >>=+         \ options' ->+           js_addEventListener (toEventTarget self) (toJSString type')+             (maybeToOptional callback)+             (AddEventListenerOptionsOrBool options'))   foreign import javascript unsafe         "$1[\"removeEventListener\"]($2,\n$3, $4)" js_removeEventListener         ::-        EventTarget -> JSString -> Nullable EventListener -> Bool -> IO ()+        EventTarget ->+          JSString ->+            Optional EventListener -> EventListenerOptionsOrBool -> 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+                    (MonadIO m, IsEventTarget self, ToJSString type',+                     IsEventListenerOptionsOrBool options) =>+                      self -> type' -> Maybe EventListener -> options -> m ()+removeEventListener self type' callback options   = liftIO-      (js_removeEventListener (toEventTarget self) (toJSString type')-         (maybeToNullable listener)-         useCapture)+      (toJSVal options >>=+         \ options' ->+           js_removeEventListener (toEventTarget self) (toJSString type')+             (maybeToOptional callback)+             (EventListenerOptionsOrBool options'))   foreign import javascript unsafe         "($1[\"dispatchEvent\"]($2) ? 1 : 0)" js_dispatchEvent ::-        EventTarget -> Nullable Event -> IO Bool+        EventTarget -> 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+                self -> event -> m Bool dispatchEvent self event-  = liftIO-      (js_dispatchEvent (toEventTarget self)-         (maybeToNullable (fmap toEvent event)))+  = liftIO (js_dispatchEvent (toEventTarget self) (toEvent event))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/EventTarget.dispatchEvent Mozilla EventTarget.dispatchEvent documentation>  dispatchEvent_ ::                (MonadIO m, IsEventTarget self, IsEvent event) =>-                 self -> Maybe event -> m ()+                 self -> event -> m () dispatchEvent_ self event   = liftIO-      (void-         (js_dispatchEvent (toEventTarget self)-            (maybeToNullable (fmap toEvent event))))+      (void (js_dispatchEvent (toEventTarget self) (toEvent event)))
src/GHCJS/DOM/JSFFI/Generated/File.hs view
@@ -4,15 +4,14 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.File-       (js_getName, getName, js_getLastModifiedDate, getLastModifiedDate,-        getLastModifiedDateUnsafe, getLastModifiedDateUnchecked, File(..),-        gTypeFile)+       (js_newFile, newFile, js_getName, getName, js_getLastModified,+        getLastModified, File(..), gTypeFile)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -21,36 +20,36 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums  +foreign import javascript unsafe "new window[\"File\"]($1, $2, $3)"+        js_newFile ::+        JSVal -> JSString -> Optional FilePropertyBag -> IO File++-- | <https://developer.mozilla.org/en-US/docs/Web/API/File Mozilla File documentation> +newFile ::+        (MonadIO m, IsBlobPart fileBits, ToJSString fileName) =>+          [fileBits] -> fileName -> Maybe FilePropertyBag -> m File+newFile fileBits fileName options+  = liftIO+      (toJSVal fileBits >>= \ fileBits' -> js_newFile fileBits'+         (toJSString fileName)+         (maybeToOptional options))+  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)))+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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/File.lastModifiedDate Mozilla File.lastModifiedDate documentation> -getLastModifiedDateUnsafe ::-                          (MonadIO m, HasCallStack) => File -> m Date-getLastModifiedDateUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getLastModifiedDate (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+foreign import javascript unsafe "$1[\"lastModified\"]"+        js_getLastModified :: File -> IO Double --- | <https://developer.mozilla.org/en-US/docs/Web/API/File.lastModifiedDate Mozilla File.lastModifiedDate documentation> -getLastModifiedDateUnchecked :: (MonadIO m) => File -> m Date-getLastModifiedDateUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$> (js_getLastModifiedDate (self)))+-- | <https://developer.mozilla.org/en-US/docs/Web/API/File.lastModified Mozilla File.lastModified documentation> +getLastModified :: (MonadIO m) => File -> m Int64+getLastModified self = liftIO (round <$> (js_getLastModified self))
src/GHCJS/DOM/JSFFI/Generated/FileError.hs view
@@ -16,7 +16,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -25,6 +25,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -47,4 +48,4 @@  -- | <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))+getCode self = liftIO (js_getCode self)
+ src/GHCJS/DOM/JSFFI/Generated/FileException.hs view
@@ -0,0 +1,80 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+module GHCJS.DOM.JSFFI.Generated.FileException+       (js_toString, toString, toString_, 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, js_getName, getName, js_getMessage, getMessage,+        FileException(..), gTypeFileException)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error)+import Data.Typeable (Typeable)+import GHCJS.Types (JSVal(..), JSString)+import GHCJS.Foreign (jsNull, jsUndefined)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Control.Monad (void)+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import Data.Maybe (fromJust)+import Data.Traversable (mapM)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"toString\"]()" js_toString+        :: FileException -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FileException.toString Mozilla FileException.toString documentation> +toString ::+         (MonadIO m, FromJSString result) => FileException -> m result+toString self = liftIO (fromJSString <$> (js_toString self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FileException.toString Mozilla FileException.toString documentation> +toString_ :: (MonadIO m) => FileException -> m ()+toString_ self = liftIO (void (js_toString self))+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 ::+        FileException -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FileException.code Mozilla FileException.code documentation> +getCode :: (MonadIO m) => FileException -> m Word+getCode self = liftIO (js_getCode self)+ +foreign import javascript unsafe "$1[\"name\"]" js_getName ::+        FileException -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FileException.name Mozilla FileException.name documentation> +getName ::+        (MonadIO m, FromJSString result) => FileException -> m result+getName self = liftIO (fromJSString <$> (js_getName self))+ +foreign import javascript unsafe "$1[\"message\"]" js_getMessage ::+        FileException -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FileException.message Mozilla FileException.message documentation> +getMessage ::+           (MonadIO m, FromJSString result) => FileException -> m result+getMessage self = liftIO (fromJSString <$> (js_getMessage self))
src/GHCJS/DOM/JSFFI/Generated/FileList.hs view
@@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -20,39 +20,39 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums  -foreign import javascript unsafe "$1[\"item\"]($2)" js_item ::+foreign import javascript unsafe "$1[$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))+item self index = liftIO (nullableToMaybe <$> (js_item self index))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/FileList.item Mozilla FileList.item documentation>  item_ :: (MonadIO m) => FileList -> Word -> m ()-item_ self index = liftIO (void (js_item (self) index))+item_ self index = liftIO (void (js_item self index))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/FileList.item Mozilla FileList.item documentation>  itemUnsafe ::            (MonadIO m, HasCallStack) => FileList -> Word -> m File itemUnsafe self index   = liftIO-      ((nullableToMaybe <$> (js_item (self) index)) >>=+      ((nullableToMaybe <$> (js_item self index)) >>=          maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/FileList.item Mozilla FileList.item documentation>  itemUnchecked :: (MonadIO m) => FileList -> Word -> m File itemUnchecked self index-  = liftIO (fromJust . nullableToMaybe <$> (js_item (self) index))+  = liftIO (fromJust . 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))+getLength self = liftIO (js_getLength self)
src/GHCJS/DOM/JSFFI/Generated/FileReader.hs view
@@ -9,7 +9,7 @@         js_readAsText, readAsText, js_readAsDataURL, readAsDataURL,         js_abort, abort, pattern EMPTY, pattern LOADING, pattern DONE,         js_getReadyState, getReadyState, js_getResult, getResult,-        js_getError, getError, getErrorUnsafe, getErrorUnchecked,+        getResultUnsafe, getResultUnchecked, js_getError, getError,         loadStart, progress, load, abortEvent, error, loadEnd,         FileReader(..), gTypeFileReader)        where@@ -17,7 +17,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -26,6 +26,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -39,53 +40,54 @@ newFileReader = liftIO (js_newFileReader)   foreign import javascript unsafe "$1[\"readAsArrayBuffer\"]($2)"-        js_readAsArrayBuffer :: FileReader -> Nullable Blob -> IO ()+        js_readAsArrayBuffer :: FileReader -> Optional 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)))+      (js_readAsArrayBuffer self (maybeToOptional (fmap toBlob blob)))   foreign import javascript unsafe "$1[\"readAsBinaryString\"]($2)"-        js_readAsBinaryString :: FileReader -> Nullable Blob -> IO ()+        js_readAsBinaryString :: FileReader -> Optional 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)))+      (js_readAsBinaryString self (maybeToOptional (fmap toBlob blob)))   foreign import javascript unsafe "$1[\"readAsText\"]($2, $3)"-        js_readAsText :: FileReader -> Nullable Blob -> JSString -> IO ()+        js_readAsText ::+        FileReader -> Optional Blob -> Optional 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 ()+             FileReader -> Maybe blob -> Maybe encoding -> m () readAsText self blob encoding   = liftIO-      (js_readAsText (self) (maybeToNullable (fmap toBlob blob))-         (toJSString encoding))+      (js_readAsText self (maybeToOptional (fmap toBlob blob))+         (toOptionalJSString encoding))   foreign import javascript unsafe "$1[\"readAsDataURL\"]($2)"-        js_readAsDataURL :: FileReader -> Nullable Blob -> IO ()+        js_readAsDataURL :: FileReader -> Optional 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)))+      (js_readAsDataURL self (maybeToOptional (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))+abort self = liftIO (js_abort self) pattern EMPTY = 0 pattern LOADING = 1 pattern DONE = 2@@ -95,34 +97,36 @@  -- | <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))+getReadyState self = liftIO (js_getReadyState self)   foreign import javascript unsafe "$1[\"result\"]" js_getResult ::-        FileReader -> IO JSVal+        FileReader -> IO (Nullable StringOrArrayBuffer)  -- | <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)))+getResult ::+          (MonadIO m) => FileReader -> m (Maybe StringOrArrayBuffer)+getResult self = liftIO (nullableToMaybe <$> (js_getResult self)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/FileReader.error Mozilla FileReader.error documentation> -getErrorUnsafe ::-               (MonadIO m, HasCallStack) => FileReader -> m FileError-getErrorUnsafe self+-- | <https://developer.mozilla.org/en-US/docs/Web/API/FileReader.result Mozilla FileReader.result documentation> +getResultUnsafe ::+                (MonadIO m, HasCallStack) => FileReader -> m StringOrArrayBuffer+getResultUnsafe self   = liftIO-      ((nullableToMaybe <$> (js_getError (self))) >>=+      ((nullableToMaybe <$> (js_getResult self)) >>=          maybe (Prelude.error "Nothing to return") return) +-- | <https://developer.mozilla.org/en-US/docs/Web/API/FileReader.result Mozilla FileReader.result documentation> +getResultUnchecked ::+                   (MonadIO m) => FileReader -> m StringOrArrayBuffer+getResultUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getResult self))+ +foreign import javascript unsafe "$1[\"error\"]" js_getError ::+        FileReader -> IO FileError+ -- | <https://developer.mozilla.org/en-US/docs/Web/API/FileReader.error Mozilla FileReader.error documentation> -getErrorUnchecked :: (MonadIO m) => FileReader -> m FileError-getErrorUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getError (self)))+getError :: (MonadIO m) => FileReader -> m FileError+getError self = liftIO (js_getError self)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/FileReader.onloadstart Mozilla FileReader.onloadstart documentation>  loadStart :: EventName FileReader ProgressEvent
src/GHCJS/DOM/JSFFI/Generated/FileReaderSync.hs view
@@ -5,8 +5,7 @@ {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.FileReaderSync        (js_newFileReaderSync, newFileReaderSync, js_readAsArrayBuffer,-        readAsArrayBuffer, readAsArrayBuffer_, readAsArrayBufferUnsafe,-        readAsArrayBufferUnchecked, js_readAsBinaryString,+        readAsArrayBuffer, readAsArrayBuffer_, js_readAsBinaryString,         readAsBinaryString, readAsBinaryString_, js_readAsText, readAsText,         readAsText_, js_readAsDataURL, readAsDataURL, readAsDataURL_,         FileReaderSync(..), gTypeFileReaderSync)@@ -15,7 +14,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -24,6 +23,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -37,109 +37,72 @@ newFileReaderSync = liftIO (js_newFileReaderSync)   foreign import javascript unsafe "$1[\"readAsArrayBuffer\"]($2)"-        js_readAsArrayBuffer ::-        FileReaderSync -> Nullable Blob -> IO (Nullable ArrayBuffer)+        js_readAsArrayBuffer :: FileReaderSync -> Blob -> IO 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)+                  (MonadIO m, IsBlob blob) => FileReaderSync -> blob -> m ArrayBuffer readAsArrayBuffer self blob-  = liftIO-      (nullableToMaybe <$>-         (js_readAsArrayBuffer (self) (maybeToNullable (fmap toBlob blob))))+  = liftIO (js_readAsArrayBuffer self (toBlob blob))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/FileReaderSync.readAsArrayBuffer Mozilla FileReaderSync.readAsArrayBuffer documentation>  readAsArrayBuffer_ ::-                   (MonadIO m, IsBlob blob) => FileReaderSync -> Maybe blob -> m ()+                   (MonadIO m, IsBlob blob) => FileReaderSync -> blob -> m () readAsArrayBuffer_ self blob-  = liftIO-      (void-         (js_readAsArrayBuffer (self) (maybeToNullable (fmap toBlob blob))))---- | <https://developer.mozilla.org/en-US/docs/Web/API/FileReaderSync.readAsArrayBuffer Mozilla FileReaderSync.readAsArrayBuffer documentation> -readAsArrayBufferUnsafe ::-                        (MonadIO m, IsBlob blob, HasCallStack) =>-                          FileReaderSync -> Maybe blob -> m ArrayBuffer-readAsArrayBufferUnsafe self blob-  = liftIO-      ((nullableToMaybe <$>-          (js_readAsArrayBuffer (self) (maybeToNullable (fmap toBlob blob))))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/FileReaderSync.readAsArrayBuffer Mozilla FileReaderSync.readAsArrayBuffer documentation> -readAsArrayBufferUnchecked ::-                           (MonadIO m, IsBlob blob) =>-                             FileReaderSync -> Maybe blob -> m ArrayBuffer-readAsArrayBufferUnchecked self blob-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_readAsArrayBuffer (self) (maybeToNullable (fmap toBlob blob))))+  = liftIO (void (js_readAsArrayBuffer self (toBlob blob)))   foreign import javascript unsafe "$1[\"readAsBinaryString\"]($2)"-        js_readAsBinaryString ::-        FileReaderSync -> Nullable Blob -> IO JSString+        js_readAsBinaryString :: FileReaderSync -> 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+                     FileReaderSync -> blob -> m result readAsBinaryString self blob   = liftIO-      (fromJSString <$>-         (js_readAsBinaryString (self)-            (maybeToNullable (fmap toBlob blob))))+      (fromJSString <$> (js_readAsBinaryString self (toBlob blob)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/FileReaderSync.readAsBinaryString Mozilla FileReaderSync.readAsBinaryString documentation>  readAsBinaryString_ ::-                    (MonadIO m, IsBlob blob) => FileReaderSync -> Maybe blob -> m ()+                    (MonadIO m, IsBlob blob) => FileReaderSync -> blob -> m () readAsBinaryString_ self blob-  = liftIO-      (void-         (js_readAsBinaryString (self)-            (maybeToNullable (fmap toBlob blob))))+  = liftIO (void (js_readAsBinaryString self (toBlob blob)))   foreign import javascript unsafe "$1[\"readAsText\"]($2, $3)"         js_readAsText ::-        FileReaderSync -> Nullable Blob -> JSString -> IO JSString+        FileReaderSync -> Blob -> Optional 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+             FileReaderSync -> blob -> Maybe encoding -> m result readAsText self blob encoding   = liftIO       (fromJSString <$>-         (js_readAsText (self) (maybeToNullable (fmap toBlob blob))-            (toJSString encoding)))+         (js_readAsText self (toBlob blob) (toOptionalJSString encoding)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/FileReaderSync.readAsText Mozilla FileReaderSync.readAsText documentation>  readAsText_ ::             (MonadIO m, IsBlob blob, ToJSString encoding) =>-              FileReaderSync -> Maybe blob -> encoding -> m ()+              FileReaderSync -> blob -> Maybe encoding -> m () readAsText_ self blob encoding   = liftIO       (void-         (js_readAsText (self) (maybeToNullable (fmap toBlob blob))-            (toJSString encoding)))+         (js_readAsText self (toBlob blob) (toOptionalJSString encoding)))   foreign import javascript unsafe "$1[\"readAsDataURL\"]($2)"-        js_readAsDataURL :: FileReaderSync -> Nullable Blob -> IO JSString+        js_readAsDataURL :: FileReaderSync -> 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+                FileReaderSync -> blob -> m result readAsDataURL self blob-  = liftIO-      (fromJSString <$>-         (js_readAsDataURL (self) (maybeToNullable (fmap toBlob blob))))+  = liftIO (fromJSString <$> (js_readAsDataURL self (toBlob blob)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/FileReaderSync.readAsDataURL Mozilla FileReaderSync.readAsDataURL documentation>  readAsDataURL_ ::-               (MonadIO m, IsBlob blob) => FileReaderSync -> Maybe blob -> m ()+               (MonadIO m, IsBlob blob) => FileReaderSync -> blob -> m () readAsDataURL_ self blob-  = liftIO-      (void-         (js_readAsDataURL (self) (maybeToNullable (fmap toBlob blob))))+  = liftIO (void (js_readAsDataURL self (toBlob blob)))
src/GHCJS/DOM/JSFFI/Generated/FocusEvent.hs view
@@ -4,14 +4,15 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.FocusEvent-       (js_getRelatedTarget, getRelatedTarget, getRelatedTargetUnsafe,+       (js_newFocusEvent, newFocusEvent, js_getRelatedTarget,+        getRelatedTarget, getRelatedTargetUnsafe,         getRelatedTargetUnchecked, FocusEvent(..), gTypeFocusEvent)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -20,11 +21,25 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums  +foreign import javascript unsafe+        "new window[\"FocusEvent\"]($1, $2)" js_newFocusEvent ::+        JSString -> Optional FocusEventInit -> IO FocusEvent++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FocusEvent Mozilla FocusEvent documentation> +newFocusEvent ::+              (MonadIO m, ToJSString type') =>+                type' -> Maybe FocusEventInit -> m FocusEvent+newFocusEvent type' eventInitDict+  = liftIO+      (js_newFocusEvent (toJSString type')+         (maybeToOptional eventInitDict))+  foreign import javascript unsafe "$1[\"relatedTarget\"]"         js_getRelatedTarget :: FocusEvent -> IO (Nullable EventTarget) @@ -32,14 +47,14 @@ getRelatedTarget ::                  (MonadIO m) => FocusEvent -> m (Maybe EventTarget) getRelatedTarget self-  = liftIO (nullableToMaybe <$> (js_getRelatedTarget (self)))+  = liftIO (nullableToMaybe <$> (js_getRelatedTarget self))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/FocusEvent.relatedTarget Mozilla FocusEvent.relatedTarget documentation>  getRelatedTargetUnsafe ::                        (MonadIO m, HasCallStack) => FocusEvent -> m EventTarget getRelatedTargetUnsafe self   = liftIO-      ((nullableToMaybe <$> (js_getRelatedTarget (self))) >>=+      ((nullableToMaybe <$> (js_getRelatedTarget self)) >>=          maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/FocusEvent.relatedTarget Mozilla FocusEvent.relatedTarget documentation> @@ -47,4 +62,4 @@                           (MonadIO m) => FocusEvent -> m EventTarget getRelatedTargetUnchecked self   = liftIO-      (fromJust . nullableToMaybe <$> (js_getRelatedTarget (self)))+      (fromJust . nullableToMaybe <$> (js_getRelatedTarget self))
+ src/GHCJS/DOM/JSFFI/Generated/FontFace.hs view
@@ -0,0 +1,189 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+module GHCJS.DOM.JSFFI.Generated.FontFace+       (js_newFontFace, newFontFace, js_load, load, load_, js_setFamily,+        setFamily, js_getFamily, getFamily, js_setStyle, setStyle,+        js_getStyle, getStyle, js_setWeight, setWeight, js_getWeight,+        getWeight, js_setStretch, setStretch, js_getStretch, getStretch,+        js_setUnicodeRange, setUnicodeRange, js_getUnicodeRange,+        getUnicodeRange, js_setVariant, setVariant, js_getVariant,+        getVariant, js_setFeatureSettings, setFeatureSettings,+        js_getFeatureSettings, getFeatureSettings, js_getStatus, getStatus,+        js_getLoaded, getLoaded, FontFace(..), gTypeFontFace)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error)+import Data.Typeable (Typeable)+import GHCJS.Types (JSVal(..), JSString)+import GHCJS.Foreign (jsNull, jsUndefined)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Control.Monad (void)+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import Data.Maybe (fromJust)+import Data.Traversable (mapM)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.JSFFI.Generated.Enums+ +foreign import javascript unsafe+        "new window[\"FontFace\"]($1, $2,\n$3)" js_newFontFace ::+        JSString ->+          StringOrBinaryData -> Optional FontFaceDescriptors -> IO FontFace++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FontFace Mozilla FontFace documentation> +newFontFace ::+            (MonadIO m, ToJSString family', IsStringOrBinaryData source) =>+              family' -> source -> Maybe FontFaceDescriptors -> m FontFace+newFontFace family' source descriptors+  = liftIO+      (toJSVal source >>=+         \ source' ->+           js_newFontFace (toJSString family') (StringOrBinaryData source')+         (maybeToOptional descriptors))+ +foreign import javascript interruptible+        "$1[\"load\"]().then($c);" js_load :: FontFace -> IO FontFace++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FontFace.load Mozilla FontFace.load documentation> +load :: (MonadIO m) => FontFace -> m FontFace+load self = liftIO (js_load self)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FontFace.load Mozilla FontFace.load documentation> +load_ :: (MonadIO m) => FontFace -> m ()+load_ self = liftIO (void (js_load self))+ +foreign import javascript unsafe "$1[\"family\"] = $2;"+        js_setFamily :: FontFace -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FontFace.family Mozilla FontFace.family documentation> +setFamily :: (MonadIO m, ToJSString val) => FontFace -> val -> m ()+setFamily self val = liftIO (js_setFamily self (toJSString val))+ +foreign import javascript unsafe "$1[\"family\"]" js_getFamily ::+        FontFace -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FontFace.family Mozilla FontFace.family documentation> +getFamily ::+          (MonadIO m, FromJSString result) => FontFace -> m result+getFamily self = liftIO (fromJSString <$> (js_getFamily self))+ +foreign import javascript unsafe "$1[\"style\"] = $2;" js_setStyle+        :: FontFace -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FontFace.style Mozilla FontFace.style documentation> +setStyle :: (MonadIO m, ToJSString val) => FontFace -> val -> m ()+setStyle self val = liftIO (js_setStyle self (toJSString val))+ +foreign import javascript unsafe "$1[\"style\"]" js_getStyle ::+        FontFace -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FontFace.style Mozilla FontFace.style documentation> +getStyle ::+         (MonadIO m, FromJSString result) => FontFace -> m result+getStyle self = liftIO (fromJSString <$> (js_getStyle self))+ +foreign import javascript unsafe "$1[\"weight\"] = $2;"+        js_setWeight :: FontFace -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FontFace.weight Mozilla FontFace.weight documentation> +setWeight :: (MonadIO m, ToJSString val) => FontFace -> val -> m ()+setWeight self val = liftIO (js_setWeight self (toJSString val))+ +foreign import javascript unsafe "$1[\"weight\"]" js_getWeight ::+        FontFace -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FontFace.weight Mozilla FontFace.weight documentation> +getWeight ::+          (MonadIO m, FromJSString result) => FontFace -> m result+getWeight self = liftIO (fromJSString <$> (js_getWeight self))+ +foreign import javascript unsafe "$1[\"stretch\"] = $2;"+        js_setStretch :: FontFace -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FontFace.stretch Mozilla FontFace.stretch documentation> +setStretch ::+           (MonadIO m, ToJSString val) => FontFace -> val -> m ()+setStretch self val = liftIO (js_setStretch self (toJSString val))+ +foreign import javascript unsafe "$1[\"stretch\"]" js_getStretch ::+        FontFace -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FontFace.stretch Mozilla FontFace.stretch documentation> +getStretch ::+           (MonadIO m, FromJSString result) => FontFace -> m result+getStretch self = liftIO (fromJSString <$> (js_getStretch self))+ +foreign import javascript unsafe "$1[\"unicodeRange\"] = $2;"+        js_setUnicodeRange :: FontFace -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FontFace.unicodeRange Mozilla FontFace.unicodeRange documentation> +setUnicodeRange ::+                (MonadIO m, ToJSString val) => FontFace -> val -> m ()+setUnicodeRange self val+  = liftIO (js_setUnicodeRange self (toJSString val))+ +foreign import javascript unsafe "$1[\"unicodeRange\"]"+        js_getUnicodeRange :: FontFace -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FontFace.unicodeRange Mozilla FontFace.unicodeRange documentation> +getUnicodeRange ::+                (MonadIO m, FromJSString result) => FontFace -> m result+getUnicodeRange self+  = liftIO (fromJSString <$> (js_getUnicodeRange self))+ +foreign import javascript unsafe "$1[\"variant\"] = $2;"+        js_setVariant :: FontFace -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FontFace.variant Mozilla FontFace.variant documentation> +setVariant ::+           (MonadIO m, ToJSString val) => FontFace -> val -> m ()+setVariant self val = liftIO (js_setVariant self (toJSString val))+ +foreign import javascript unsafe "$1[\"variant\"]" js_getVariant ::+        FontFace -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FontFace.variant Mozilla FontFace.variant documentation> +getVariant ::+           (MonadIO m, FromJSString result) => FontFace -> m result+getVariant self = liftIO (fromJSString <$> (js_getVariant self))+ +foreign import javascript unsafe "$1[\"featureSettings\"] = $2;"+        js_setFeatureSettings :: FontFace -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FontFace.featureSettings Mozilla FontFace.featureSettings documentation> +setFeatureSettings ::+                   (MonadIO m, ToJSString val) => FontFace -> val -> m ()+setFeatureSettings self val+  = liftIO (js_setFeatureSettings self (toJSString val))+ +foreign import javascript unsafe "$1[\"featureSettings\"]"+        js_getFeatureSettings :: FontFace -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FontFace.featureSettings Mozilla FontFace.featureSettings documentation> +getFeatureSettings ::+                   (MonadIO m, FromJSString result) => FontFace -> m result+getFeatureSettings self+  = liftIO (fromJSString <$> (js_getFeatureSettings self))+ +foreign import javascript unsafe "$1[\"status\"]" js_getStatus ::+        FontFace -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FontFace.status Mozilla FontFace.status documentation> +getStatus :: (MonadIO m) => FontFace -> m FontFaceLoadStatus+getStatus self+  = liftIO ((js_getStatus self) >>= fromJSValUnchecked)+ +foreign import javascript interruptible+        "$1[\"loaded\"].then($c);" js_getLoaded :: FontFace -> IO FontFace++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FontFace.loaded Mozilla FontFace.loaded documentation> +getLoaded :: (MonadIO m) => FontFace -> m FontFace+getLoaded self = liftIO (js_getLoaded self)
+ src/GHCJS/DOM/JSFFI/Generated/FontFaceSet.hs view
@@ -0,0 +1,155 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+module GHCJS.DOM.JSFFI.Generated.FontFaceSet+       (js_newFontFaceSet, newFontFaceSet, js_has, has, has_, js_add, add,+        add_, js_delete, delete, delete_, js_clear, clear, js_load, load,+        load_, js_check, check, check_, js_getSize, getSize, loading,+        loadingDone, loadingerror, js_getReady, getReady, js_getStatus,+        getStatus, FontFaceSet(..), gTypeFontFaceSet)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error)+import Data.Typeable (Typeable)+import GHCJS.Types (JSVal(..), JSString)+import GHCJS.Foreign (jsNull, jsUndefined)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Control.Monad (void)+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import Data.Maybe (fromJust)+import Data.Traversable (mapM)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.JSFFI.Generated.Enums+ +foreign import javascript unsafe "new window[\"FontFaceSet\"]($1)"+        js_newFontFaceSet :: JSVal -> IO FontFaceSet++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FontFaceSet Mozilla FontFaceSet documentation> +newFontFaceSet :: (MonadIO m) => [FontFace] -> m FontFaceSet+newFontFaceSet initialFaces+  = liftIO+      (toJSVal initialFaces >>=+         \ initialFaces' -> js_newFontFaceSet initialFaces')+ +foreign import javascript unsafe "($1[\"has\"]($2) ? 1 : 0)" js_has+        :: FontFaceSet -> FontFace -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FontFaceSet.has Mozilla FontFaceSet.has documentation> +has :: (MonadIO m) => FontFaceSet -> FontFace -> m Bool+has self font = liftIO (js_has self font)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FontFaceSet.has Mozilla FontFaceSet.has documentation> +has_ :: (MonadIO m) => FontFaceSet -> FontFace -> m ()+has_ self font = liftIO (void (js_has self font))+ +foreign import javascript unsafe "$1[\"add\"]($2)" js_add ::+        FontFaceSet -> FontFace -> IO FontFaceSet++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FontFaceSet.add Mozilla FontFaceSet.add documentation> +add :: (MonadIO m) => FontFaceSet -> FontFace -> m FontFaceSet+add self font = liftIO (js_add self font)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FontFaceSet.add Mozilla FontFaceSet.add documentation> +add_ :: (MonadIO m) => FontFaceSet -> FontFace -> m ()+add_ self font = liftIO (void (js_add self font))+ +foreign import javascript unsafe "($1[\"delete\"]($2) ? 1 : 0)"+        js_delete :: FontFaceSet -> FontFace -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FontFaceSet.delete Mozilla FontFaceSet.delete documentation> +delete :: (MonadIO m) => FontFaceSet -> FontFace -> m Bool+delete self font = liftIO (js_delete self font)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FontFaceSet.delete Mozilla FontFaceSet.delete documentation> +delete_ :: (MonadIO m) => FontFaceSet -> FontFace -> m ()+delete_ self font = liftIO (void (js_delete self font))+ +foreign import javascript unsafe "$1[\"clear\"]()" js_clear ::+        FontFaceSet -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FontFaceSet.clear Mozilla FontFaceSet.clear documentation> +clear :: (MonadIO m) => FontFaceSet -> m ()+clear self = liftIO (js_clear self)+ +foreign import javascript interruptible+        "$1[\"load\"]($2, $3).then($c);" js_load ::+        FontFaceSet -> JSString -> Optional JSString -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FontFaceSet.load Mozilla FontFaceSet.load documentation> +load ::+     (MonadIO m, ToJSString font, ToJSString text) =>+       FontFaceSet -> font -> Maybe text -> m [FontFace]+load self font text+  = liftIO+      ((js_load self (toJSString font) (toOptionalJSString text)) >>=+         fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FontFaceSet.load Mozilla FontFaceSet.load documentation> +load_ ::+      (MonadIO m, ToJSString font, ToJSString text) =>+        FontFaceSet -> font -> Maybe text -> m ()+load_ self font text+  = liftIO+      (void (js_load self (toJSString font) (toOptionalJSString text)))+ +foreign import javascript unsafe "($1[\"check\"]($2, $3) ? 1 : 0)"+        js_check :: FontFaceSet -> JSString -> Optional JSString -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FontFaceSet.check Mozilla FontFaceSet.check documentation> +check ::+      (MonadIO m, ToJSString font, ToJSString text) =>+        FontFaceSet -> font -> Maybe text -> m Bool+check self font text+  = liftIO+      (js_check self (toJSString font) (toOptionalJSString text))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FontFaceSet.check Mozilla FontFaceSet.check documentation> +check_ ::+       (MonadIO m, ToJSString font, ToJSString text) =>+         FontFaceSet -> font -> Maybe text -> m ()+check_ self font text+  = liftIO+      (void (js_check self (toJSString font) (toOptionalJSString text)))+ +foreign import javascript unsafe "$1[\"size\"]" js_getSize ::+        FontFaceSet -> IO Int++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FontFaceSet.size Mozilla FontFaceSet.size documentation> +getSize :: (MonadIO m) => FontFaceSet -> m Int+getSize self = liftIO (js_getSize self)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FontFaceSet.onloading Mozilla FontFaceSet.onloading documentation> +loading :: EventName FontFaceSet Event+loading = unsafeEventName (toJSString "loading")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FontFaceSet.onloadingdone Mozilla FontFaceSet.onloadingdone documentation> +loadingDone :: EventName FontFaceSet Event+loadingDone = unsafeEventName (toJSString "loadingdone")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FontFaceSet.onloadingerror Mozilla FontFaceSet.onloadingerror documentation> +loadingerror :: EventName FontFaceSet onloadingerror+loadingerror = unsafeEventName (toJSString "loadingerror")+ +foreign import javascript interruptible+        "$1[\"ready\"].then($c);" js_getReady ::+        FontFaceSet -> IO FontFaceSet++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FontFaceSet.ready Mozilla FontFaceSet.ready documentation> +getReady :: (MonadIO m) => FontFaceSet -> m FontFaceSet+getReady self = liftIO (js_getReady self)+ +foreign import javascript unsafe "$1[\"status\"]" js_getStatus ::+        FontFaceSet -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FontFaceSet.status Mozilla FontFaceSet.status documentation> +getStatus :: (MonadIO m) => FontFaceSet -> m FontFaceSetLoadStatus+getStatus self+  = liftIO ((js_getStatus self) >>= fromJSValUnchecked)
− src/GHCJS/DOM/JSFFI/Generated/FontLoader.hs 
@@ -1,96 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility-{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}-module GHCJS.DOM.JSFFI.Generated.FontLoader-       (js_checkFont, checkFont, checkFont_, js_loadFont, loadFont,-        js_notifyWhenFontsReady, notifyWhenFontsReady, loading,-        loadingDone, loadStart, load, error, js_getLoading, getLoading,-        FontLoader(..), gTypeFontLoader)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)-import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))-import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import 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))---- | <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 ()-checkFont_ self font text-  = liftIO-      (void (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
@@ -4,14 +4,14 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.FormData-       (js_newFormData, newFormData, js_append, append, FormData(..),-        gTypeFormData)+       (js_newFormData, newFormData, js_append, append, js_appendBlob,+        appendBlob, FormData(..), gTypeFormData)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -20,27 +20,38 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums   foreign import javascript unsafe "new window[\"FormData\"]($1)"-        js_newFormData :: Nullable HTMLFormElement -> IO FormData+        js_newFormData :: Optional 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))+newFormData form = liftIO (js_newFormData (maybeToOptional form))  -foreign import javascript unsafe "$1[\"append\"]($2, $3, $4)"-        js_append :: FormData -> JSString -> JSString -> JSString -> IO ()+foreign import javascript unsafe "$1[\"append\"]($2, $3)" js_append+        :: FormData -> 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+       (MonadIO m, ToJSString name, ToJSString value) =>+         FormData -> name -> value -> m ()+append self name value+  = liftIO (js_append self (toJSString name) (toJSString value))+ +foreign import javascript unsafe "$1[\"append\"]($2, $3, $4)"+        js_appendBlob ::+        FormData -> JSString -> Blob -> Optional JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FormData.append Mozilla FormData.append documentation> +appendBlob ::+           (MonadIO m, ToJSString name, IsBlob value, ToJSString filename) =>+             FormData -> name -> value -> Maybe filename -> m ()+appendBlob self name value filename   = liftIO-      (js_append (self) (toJSString name) (toJSString value)-         (toJSString filename))+      (js_appendBlob self (toJSString name) (toBlob value)+         (toOptionalJSString filename))
src/GHCJS/DOM/JSFFI/Generated/GainNode.hs view
@@ -4,14 +4,12 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.GainNode-       (js_getGain, getGain, getGainUnsafe, getGainUnchecked,-        GainNode(..), gTypeGainNode)-       where+       (js_getGain, getGain, GainNode(..), gTypeGainNode) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -20,27 +18,15 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/GainNode.gain Mozilla GainNode.gain documentation> -getGainUnsafe ::-              (MonadIO m, HasCallStack) => GainNode -> m AudioParam-getGainUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getGain (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        GainNode -> IO AudioParam  -- | <https://developer.mozilla.org/en-US/docs/Web/API/GainNode.gain Mozilla GainNode.gain documentation> -getGainUnchecked :: (MonadIO m) => GainNode -> m AudioParam-getGainUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getGain (self)))+getGain :: (MonadIO m) => GainNode -> m AudioParam+getGain self = liftIO (js_getGain self)
src/GHCJS/DOM/JSFFI/Generated/Gamepad.hs view
@@ -13,7 +13,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -22,6 +22,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -32,28 +33,28 @@  -- | <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)))+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))+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))+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))+getTimestamp self = liftIO (js_getTimestamp self)   foreign import javascript unsafe "$1[\"mapping\"]" js_getMapping ::         Gamepad -> IO JSString@@ -61,19 +62,19 @@ -- | <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)))+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)+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 :: (MonadIO m) => Gamepad -> m [GamepadButton] getButtons self-  = liftIO ((js_getButtons (self)) >>= fromJSValUnchecked)+  = liftIO ((js_getButtons self) >>= fromJSValUnchecked)
src/GHCJS/DOM/JSFFI/Generated/GamepadButton.hs view
@@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -20,6 +20,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -30,11 +31,11 @@  -- | <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))+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))+getValue self = liftIO (js_getValue self)
src/GHCJS/DOM/JSFFI/Generated/GamepadEvent.hs view
@@ -4,14 +4,15 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.GamepadEvent-       (js_getGamepad, getGamepad, getGamepadUnsafe, getGamepadUnchecked,-        GamepadEvent(..), gTypeGamepadEvent)+       (js_newGamepadEvent, newGamepadEvent, js_getGamepad, getGamepad,+        getGamepadUnsafe, getGamepadUnchecked, GamepadEvent(..),+        gTypeGamepadEvent)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -20,28 +21,39 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums  +foreign import javascript unsafe+        "new window[\"GamepadEvent\"]($1,\n$2)" js_newGamepadEvent ::+        JSString -> GamepadEventInit -> IO GamepadEvent++-- | <https://developer.mozilla.org/en-US/docs/Web/API/GamepadEvent Mozilla GamepadEvent documentation> +newGamepadEvent ::+                (MonadIO m, ToJSString type') =>+                  type' -> GamepadEventInit -> m GamepadEvent+newGamepadEvent type' eventInitDict+  = liftIO (js_newGamepadEvent (toJSString type') eventInitDict)+  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)))+getGamepad self = liftIO (nullableToMaybe <$> (js_getGamepad self))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/GamepadEvent.gamepad Mozilla GamepadEvent.gamepad documentation>  getGamepadUnsafe ::                  (MonadIO m, HasCallStack) => GamepadEvent -> m Gamepad getGamepadUnsafe self   = liftIO-      ((nullableToMaybe <$> (js_getGamepad (self))) >>=+      ((nullableToMaybe <$> (js_getGamepad self)) >>=          maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/GamepadEvent.gamepad Mozilla GamepadEvent.gamepad documentation>  getGamepadUnchecked :: (MonadIO m) => GamepadEvent -> m Gamepad getGamepadUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getGamepad (self)))+  = liftIO (fromJust . nullableToMaybe <$> (js_getGamepad self))
src/GHCJS/DOM/JSFFI/Generated/Geolocation.hs view
@@ -12,7 +12,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -21,6 +21,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -29,56 +30,56 @@ foreign import javascript unsafe         "$1[\"getCurrentPosition\"]($2, $3,\n$4)" js_getCurrentPosition ::         Geolocation ->-          Nullable PositionCallback ->-            Nullable PositionErrorCallback -> Nullable PositionOptions -> IO ()+          PositionCallback ->+            Optional PositionErrorCallback -> Optional PositionOptions -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Geolocation.getCurrentPosition Mozilla Geolocation.getCurrentPosition documentation>  getCurrentPosition ::-                   (MonadIO m, IsPositionOptions options) =>+                   (MonadIO m) =>                      Geolocation ->-                       Maybe PositionCallback ->-                         Maybe PositionErrorCallback -> Maybe options -> m ()+                       PositionCallback ->+                         Maybe PositionErrorCallback -> Maybe PositionOptions -> m () getCurrentPosition self successCallback errorCallback options   = liftIO-      (js_getCurrentPosition (self) (maybeToNullable successCallback)-         (maybeToNullable errorCallback)-         (maybeToNullable (fmap toPositionOptions options)))+      (js_getCurrentPosition self successCallback+         (maybeToOptional errorCallback)+         (maybeToOptional options))   foreign import javascript unsafe         "$1[\"watchPosition\"]($2, $3, $4)" js_watchPosition ::         Geolocation ->-          Nullable PositionCallback ->-            Nullable PositionErrorCallback ->-              Nullable PositionOptions -> IO Int+          PositionCallback ->+            Optional PositionErrorCallback ->+              Optional PositionOptions -> IO Int  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Geolocation.watchPosition Mozilla Geolocation.watchPosition documentation>  watchPosition ::-              (MonadIO m, IsPositionOptions options) =>+              (MonadIO m) =>                 Geolocation ->-                  Maybe PositionCallback ->-                    Maybe PositionErrorCallback -> Maybe options -> m Int+                  PositionCallback ->+                    Maybe PositionErrorCallback -> Maybe PositionOptions -> m Int watchPosition self successCallback errorCallback options   = liftIO-      (js_watchPosition (self) (maybeToNullable successCallback)-         (maybeToNullable errorCallback)-         (maybeToNullable (fmap toPositionOptions options)))+      (js_watchPosition self successCallback+         (maybeToOptional errorCallback)+         (maybeToOptional options))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Geolocation.watchPosition Mozilla Geolocation.watchPosition documentation>  watchPosition_ ::-               (MonadIO m, IsPositionOptions options) =>+               (MonadIO m) =>                  Geolocation ->-                   Maybe PositionCallback ->-                     Maybe PositionErrorCallback -> Maybe options -> m ()+                   PositionCallback ->+                     Maybe PositionErrorCallback -> Maybe PositionOptions -> m () watchPosition_ self successCallback errorCallback options   = liftIO       (void-         (js_watchPosition (self) (maybeToNullable successCallback)-            (maybeToNullable errorCallback)-            (maybeToNullable (fmap toPositionOptions options))))+         (js_watchPosition self successCallback+            (maybeToOptional errorCallback)+            (maybeToOptional 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)+clearWatch self watchId = liftIO (js_clearWatch self watchId)
src/GHCJS/DOM/JSFFI/Generated/Geoposition.hs view
@@ -4,14 +4,14 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.Geoposition-       (js_getCoords, getCoords, getCoordsUnsafe, getCoordsUnchecked,-        js_getTimestamp, getTimestamp, Geoposition(..), gTypeGeoposition)+       (js_getCoords, getCoords, js_getTimestamp, getTimestamp,+        Geoposition(..), gTypeGeoposition)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -20,34 +20,22 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Geoposition.coords Mozilla Geoposition.coords documentation> -getCoordsUnsafe ::-                (MonadIO m, HasCallStack) => Geoposition -> m Coordinates-getCoordsUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getCoords (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        Geoposition -> IO Coordinates  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Geoposition.coords Mozilla Geoposition.coords documentation> -getCoordsUnchecked :: (MonadIO m) => Geoposition -> m Coordinates-getCoordsUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getCoords (self)))+getCoords :: (MonadIO m) => Geoposition -> m Coordinates+getCoords self = liftIO (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))+getTimestamp self = liftIO (js_getTimestamp self)
+ src/GHCJS/DOM/JSFFI/Generated/GlobalCrypto.hs view
@@ -0,0 +1,34 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+module GHCJS.DOM.JSFFI.Generated.GlobalCrypto+       (js_getCrypto, getCrypto, GlobalCrypto(..), gTypeGlobalCrypto,+        IsGlobalCrypto, toGlobalCrypto)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error)+import Data.Typeable (Typeable)+import GHCJS.Types (JSVal(..), JSString)+import GHCJS.Foreign (jsNull, jsUndefined)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Control.Monad (void)+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import Data.Maybe (fromJust)+import Data.Traversable (mapM)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"crypto\"]" js_getCrypto ::+        GlobalCrypto -> IO Crypto++-- | <https://developer.mozilla.org/en-US/docs/Web/API/GlobalCrypto.crypto Mozilla GlobalCrypto.crypto documentation> +getCrypto :: (MonadIO m, IsGlobalCrypto self) => self -> m Crypto+getCrypto self = liftIO (js_getCrypto (toGlobalCrypto self))
+ src/GHCJS/DOM/JSFFI/Generated/GlobalEventHandlers.hs view
@@ -0,0 +1,488 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+module GHCJS.DOM.JSFFI.Generated.GlobalEventHandlers+       (abort, autocomplete, autocompleteerror, blur, canPlay,+        canPlayThrough, change, click, contextMenu, cueChange, dblClick,+        drag, dragEnd, dragEnter, dragLeave, dragOver, dragStart, drop,+        durationChange, emptied, ended, error, focus, input, invalid,+        keyDown, keyPress, keyUp, load, loadedData, loadedMetadata,+        loadStart, mouseDown, mouseEnter, mouseLeave, mouseMove, mouseOut,+        mouseOver, mouseUp, mouseWheel, pause, play, playing, progress,+        rateChange, reset, resize, scroll, seeked, seeking, select,+        stalled, submit, suspend, timeUpdate, toggle, volumeChange,+        waiting, search, wheel, touchCancel, touchEnd, touchMove,+        touchStart, touchForcechange, webKitMouseForcechanged,+        webKitMouseForcedown, webKitMouseForcewillbegin,+        webKitMouseForceup, webKitWillRevealBottom, webKitWillRevealLeft,+        webKitWillRevealRight, webKitWillRevealTop,+        GlobalEventHandlers(..), gTypeGlobalEventHandlers,+        IsGlobalEventHandlers, toGlobalEventHandlers)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error)+import Data.Typeable (Typeable)+import GHCJS.Types (JSVal(..), JSString)+import GHCJS.Foreign (jsNull, jsUndefined)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Control.Monad (void)+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import Data.Maybe (fromJust)+import Data.Traversable (mapM)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.JSFFI.Generated.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/GlobalEventHandlers.onabort Mozilla GlobalEventHandlers.onabort documentation> +abort ::+      (IsGlobalEventHandlers self, IsEventTarget self) =>+        EventName self UIEvent+abort = unsafeEventName (toJSString "abort")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/GlobalEventHandlers.onautocomplete Mozilla GlobalEventHandlers.onautocomplete documentation> +autocomplete ::+             (IsGlobalEventHandlers self, IsEventTarget self) =>+               EventName self onautocomplete+autocomplete = unsafeEventName (toJSString "autocomplete")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/GlobalEventHandlers.onautocompleteerror Mozilla GlobalEventHandlers.onautocompleteerror documentation> +autocompleteerror ::+                  (IsGlobalEventHandlers self, IsEventTarget self) =>+                    EventName self onautocompleteerror+autocompleteerror+  = unsafeEventName (toJSString "autocompleteerror")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/GlobalEventHandlers.onblur Mozilla GlobalEventHandlers.onblur documentation> +blur ::+     (IsGlobalEventHandlers self, IsEventTarget self) =>+       EventName self FocusEvent+blur = unsafeEventName (toJSString "blur")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/GlobalEventHandlers.oncanplay Mozilla GlobalEventHandlers.oncanplay documentation> +canPlay ::+        (IsGlobalEventHandlers self, IsEventTarget self) =>+          EventName self Event+canPlay = unsafeEventName (toJSString "canplay")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/GlobalEventHandlers.oncanplaythrough Mozilla GlobalEventHandlers.oncanplaythrough documentation> +canPlayThrough ::+               (IsGlobalEventHandlers self, IsEventTarget self) =>+                 EventName self Event+canPlayThrough = unsafeEventName (toJSString "canplaythrough")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/GlobalEventHandlers.onchange Mozilla GlobalEventHandlers.onchange documentation> +change ::+       (IsGlobalEventHandlers self, IsEventTarget self) =>+         EventName self Event+change = unsafeEventName (toJSString "change")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/GlobalEventHandlers.onclick Mozilla GlobalEventHandlers.onclick documentation> +click ::+      (IsGlobalEventHandlers self, IsEventTarget self) =>+        EventName self MouseEvent+click = unsafeEventName (toJSString "click")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/GlobalEventHandlers.oncontextmenu Mozilla GlobalEventHandlers.oncontextmenu documentation> +contextMenu ::+            (IsGlobalEventHandlers self, IsEventTarget self) =>+              EventName self MouseEvent+contextMenu = unsafeEventName (toJSString "contextmenu")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/GlobalEventHandlers.oncuechange Mozilla GlobalEventHandlers.oncuechange documentation> +cueChange ::+          (IsGlobalEventHandlers self, IsEventTarget self) =>+            EventName self Event+cueChange = unsafeEventName (toJSString "cuechange")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/GlobalEventHandlers.ondblclick Mozilla GlobalEventHandlers.ondblclick documentation> +dblClick ::+         (IsGlobalEventHandlers self, IsEventTarget self) =>+           EventName self MouseEvent+dblClick = unsafeEventName (toJSString "dblclick")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/GlobalEventHandlers.ondrag Mozilla GlobalEventHandlers.ondrag documentation> +drag ::+     (IsGlobalEventHandlers self, IsEventTarget self) =>+       EventName self MouseEvent+drag = unsafeEventName (toJSString "drag")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/GlobalEventHandlers.ondragend Mozilla GlobalEventHandlers.ondragend documentation> +dragEnd ::+        (IsGlobalEventHandlers self, IsEventTarget self) =>+          EventName self MouseEvent+dragEnd = unsafeEventName (toJSString "dragend")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/GlobalEventHandlers.ondragenter Mozilla GlobalEventHandlers.ondragenter documentation> +dragEnter ::+          (IsGlobalEventHandlers self, IsEventTarget self) =>+            EventName self MouseEvent+dragEnter = unsafeEventName (toJSString "dragenter")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/GlobalEventHandlers.ondragleave Mozilla GlobalEventHandlers.ondragleave documentation> +dragLeave ::+          (IsGlobalEventHandlers self, IsEventTarget self) =>+            EventName self MouseEvent+dragLeave = unsafeEventName (toJSString "dragleave")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/GlobalEventHandlers.ondragover Mozilla GlobalEventHandlers.ondragover documentation> +dragOver ::+         (IsGlobalEventHandlers self, IsEventTarget self) =>+           EventName self MouseEvent+dragOver = unsafeEventName (toJSString "dragover")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/GlobalEventHandlers.ondragstart Mozilla GlobalEventHandlers.ondragstart documentation> +dragStart ::+          (IsGlobalEventHandlers self, IsEventTarget self) =>+            EventName self MouseEvent+dragStart = unsafeEventName (toJSString "dragstart")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/GlobalEventHandlers.ondrop Mozilla GlobalEventHandlers.ondrop documentation> +drop ::+     (IsGlobalEventHandlers self, IsEventTarget self) =>+       EventName self MouseEvent+drop = unsafeEventName (toJSString "drop")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/GlobalEventHandlers.ondurationchange Mozilla GlobalEventHandlers.ondurationchange documentation> +durationChange ::+               (IsGlobalEventHandlers self, IsEventTarget self) =>+                 EventName self Event+durationChange = unsafeEventName (toJSString "durationchange")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/GlobalEventHandlers.onemptied Mozilla GlobalEventHandlers.onemptied documentation> +emptied ::+        (IsGlobalEventHandlers self, IsEventTarget self) =>+          EventName self Event+emptied = unsafeEventName (toJSString "emptied")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/GlobalEventHandlers.onended Mozilla GlobalEventHandlers.onended documentation> +ended ::+      (IsGlobalEventHandlers self, IsEventTarget self) =>+        EventName self Event+ended = unsafeEventName (toJSString "ended")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/GlobalEventHandlers.onerror Mozilla GlobalEventHandlers.onerror documentation> +error ::+      (IsGlobalEventHandlers self, IsEventTarget self) =>+        EventName self UIEvent+error = unsafeEventName (toJSString "error")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/GlobalEventHandlers.onfocus Mozilla GlobalEventHandlers.onfocus documentation> +focus ::+      (IsGlobalEventHandlers self, IsEventTarget self) =>+        EventName self FocusEvent+focus = unsafeEventName (toJSString "focus")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/GlobalEventHandlers.oninput Mozilla GlobalEventHandlers.oninput documentation> +input ::+      (IsGlobalEventHandlers self, IsEventTarget self) =>+        EventName self Event+input = unsafeEventName (toJSString "input")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/GlobalEventHandlers.oninvalid Mozilla GlobalEventHandlers.oninvalid documentation> +invalid ::+        (IsGlobalEventHandlers self, IsEventTarget self) =>+          EventName self Event+invalid = unsafeEventName (toJSString "invalid")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/GlobalEventHandlers.onkeydown Mozilla GlobalEventHandlers.onkeydown documentation> +keyDown ::+        (IsGlobalEventHandlers self, IsEventTarget self) =>+          EventName self KeyboardEvent+keyDown = unsafeEventName (toJSString "keydown")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/GlobalEventHandlers.onkeypress Mozilla GlobalEventHandlers.onkeypress documentation> +keyPress ::+         (IsGlobalEventHandlers self, IsEventTarget self) =>+           EventName self KeyboardEvent+keyPress = unsafeEventName (toJSString "keypress")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/GlobalEventHandlers.onkeyup Mozilla GlobalEventHandlers.onkeyup documentation> +keyUp ::+      (IsGlobalEventHandlers self, IsEventTarget self) =>+        EventName self KeyboardEvent+keyUp = unsafeEventName (toJSString "keyup")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/GlobalEventHandlers.onload Mozilla GlobalEventHandlers.onload documentation> +load ::+     (IsGlobalEventHandlers self, IsEventTarget self) =>+       EventName self UIEvent+load = unsafeEventName (toJSString "load")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/GlobalEventHandlers.onloadeddata Mozilla GlobalEventHandlers.onloadeddata documentation> +loadedData ::+           (IsGlobalEventHandlers self, IsEventTarget self) =>+             EventName self Event+loadedData = unsafeEventName (toJSString "loadeddata")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/GlobalEventHandlers.onloadedmetadata Mozilla GlobalEventHandlers.onloadedmetadata documentation> +loadedMetadata ::+               (IsGlobalEventHandlers self, IsEventTarget self) =>+                 EventName self Event+loadedMetadata = unsafeEventName (toJSString "loadedmetadata")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/GlobalEventHandlers.onloadstart Mozilla GlobalEventHandlers.onloadstart documentation> +loadStart ::+          (IsGlobalEventHandlers self, IsEventTarget self) =>+            EventName self ProgressEvent+loadStart = unsafeEventName (toJSString "loadstart")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/GlobalEventHandlers.onmousedown Mozilla GlobalEventHandlers.onmousedown documentation> +mouseDown ::+          (IsGlobalEventHandlers self, IsEventTarget self) =>+            EventName self MouseEvent+mouseDown = unsafeEventName (toJSString "mousedown")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/GlobalEventHandlers.onmouseenter Mozilla GlobalEventHandlers.onmouseenter documentation> +mouseEnter ::+           (IsGlobalEventHandlers self, IsEventTarget self) =>+             EventName self MouseEvent+mouseEnter = unsafeEventName (toJSString "mouseenter")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/GlobalEventHandlers.onmouseleave Mozilla GlobalEventHandlers.onmouseleave documentation> +mouseLeave ::+           (IsGlobalEventHandlers self, IsEventTarget self) =>+             EventName self MouseEvent+mouseLeave = unsafeEventName (toJSString "mouseleave")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/GlobalEventHandlers.onmousemove Mozilla GlobalEventHandlers.onmousemove documentation> +mouseMove ::+          (IsGlobalEventHandlers self, IsEventTarget self) =>+            EventName self MouseEvent+mouseMove = unsafeEventName (toJSString "mousemove")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/GlobalEventHandlers.onmouseout Mozilla GlobalEventHandlers.onmouseout documentation> +mouseOut ::+         (IsGlobalEventHandlers self, IsEventTarget self) =>+           EventName self MouseEvent+mouseOut = unsafeEventName (toJSString "mouseout")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/GlobalEventHandlers.onmouseover Mozilla GlobalEventHandlers.onmouseover documentation> +mouseOver ::+          (IsGlobalEventHandlers self, IsEventTarget self) =>+            EventName self MouseEvent+mouseOver = unsafeEventName (toJSString "mouseover")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/GlobalEventHandlers.onmouseup Mozilla GlobalEventHandlers.onmouseup documentation> +mouseUp ::+        (IsGlobalEventHandlers self, IsEventTarget self) =>+          EventName self MouseEvent+mouseUp = unsafeEventName (toJSString "mouseup")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/GlobalEventHandlers.onmousewheel Mozilla GlobalEventHandlers.onmousewheel documentation> +mouseWheel ::+           (IsGlobalEventHandlers self, IsEventTarget self) =>+             EventName self MouseEvent+mouseWheel = unsafeEventName (toJSString "mousewheel")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/GlobalEventHandlers.onpause Mozilla GlobalEventHandlers.onpause documentation> +pause ::+      (IsGlobalEventHandlers self, IsEventTarget self) =>+        EventName self Event+pause = unsafeEventName (toJSString "pause")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/GlobalEventHandlers.onplay Mozilla GlobalEventHandlers.onplay documentation> +play ::+     (IsGlobalEventHandlers self, IsEventTarget self) =>+       EventName self Event+play = unsafeEventName (toJSString "play")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/GlobalEventHandlers.onplaying Mozilla GlobalEventHandlers.onplaying documentation> +playing ::+        (IsGlobalEventHandlers self, IsEventTarget self) =>+          EventName self Event+playing = unsafeEventName (toJSString "playing")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/GlobalEventHandlers.onprogress Mozilla GlobalEventHandlers.onprogress documentation> +progress ::+         (IsGlobalEventHandlers self, IsEventTarget self) =>+           EventName self ProgressEvent+progress = unsafeEventName (toJSString "progress")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/GlobalEventHandlers.onratechange Mozilla GlobalEventHandlers.onratechange documentation> +rateChange ::+           (IsGlobalEventHandlers self, IsEventTarget self) =>+             EventName self Event+rateChange = unsafeEventName (toJSString "ratechange")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/GlobalEventHandlers.onreset Mozilla GlobalEventHandlers.onreset documentation> +reset ::+      (IsGlobalEventHandlers self, IsEventTarget self) =>+        EventName self Event+reset = unsafeEventName (toJSString "reset")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/GlobalEventHandlers.onresize Mozilla GlobalEventHandlers.onresize documentation> +resize ::+       (IsGlobalEventHandlers self, IsEventTarget self) =>+         EventName self UIEvent+resize = unsafeEventName (toJSString "resize")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/GlobalEventHandlers.onscroll Mozilla GlobalEventHandlers.onscroll documentation> +scroll ::+       (IsGlobalEventHandlers self, IsEventTarget self) =>+         EventName self UIEvent+scroll = unsafeEventName (toJSString "scroll")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/GlobalEventHandlers.onseeked Mozilla GlobalEventHandlers.onseeked documentation> +seeked ::+       (IsGlobalEventHandlers self, IsEventTarget self) =>+         EventName self Event+seeked = unsafeEventName (toJSString "seeked")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/GlobalEventHandlers.onseeking Mozilla GlobalEventHandlers.onseeking documentation> +seeking ::+        (IsGlobalEventHandlers self, IsEventTarget self) =>+          EventName self Event+seeking = unsafeEventName (toJSString "seeking")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/GlobalEventHandlers.onselect Mozilla GlobalEventHandlers.onselect documentation> +select ::+       (IsGlobalEventHandlers self, IsEventTarget self) =>+         EventName self UIEvent+select = unsafeEventName (toJSString "select")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/GlobalEventHandlers.onstalled Mozilla GlobalEventHandlers.onstalled documentation> +stalled ::+        (IsGlobalEventHandlers self, IsEventTarget self) =>+          EventName self Event+stalled = unsafeEventName (toJSString "stalled")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/GlobalEventHandlers.onsubmit Mozilla GlobalEventHandlers.onsubmit documentation> +submit ::+       (IsGlobalEventHandlers self, IsEventTarget self) =>+         EventName self Event+submit = unsafeEventName (toJSString "submit")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/GlobalEventHandlers.onsuspend Mozilla GlobalEventHandlers.onsuspend documentation> +suspend ::+        (IsGlobalEventHandlers self, IsEventTarget self) =>+          EventName self Event+suspend = unsafeEventName (toJSString "suspend")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/GlobalEventHandlers.ontimeupdate Mozilla GlobalEventHandlers.ontimeupdate documentation> +timeUpdate ::+           (IsGlobalEventHandlers self, IsEventTarget self) =>+             EventName self Event+timeUpdate = unsafeEventName (toJSString "timeupdate")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/GlobalEventHandlers.ontoggle Mozilla GlobalEventHandlers.ontoggle documentation> +toggle ::+       (IsGlobalEventHandlers self, IsEventTarget self) =>+         EventName self ontoggle+toggle = unsafeEventName (toJSString "toggle")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/GlobalEventHandlers.onvolumechange Mozilla GlobalEventHandlers.onvolumechange documentation> +volumeChange ::+             (IsGlobalEventHandlers self, IsEventTarget self) =>+               EventName self Event+volumeChange = unsafeEventName (toJSString "volumechange")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/GlobalEventHandlers.onwaiting Mozilla GlobalEventHandlers.onwaiting documentation> +waiting ::+        (IsGlobalEventHandlers self, IsEventTarget self) =>+          EventName self Event+waiting = unsafeEventName (toJSString "waiting")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/GlobalEventHandlers.onsearch Mozilla GlobalEventHandlers.onsearch documentation> +search ::+       (IsGlobalEventHandlers self, IsEventTarget self) =>+         EventName self Event+search = unsafeEventName (toJSString "search")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/GlobalEventHandlers.onwheel Mozilla GlobalEventHandlers.onwheel documentation> +wheel ::+      (IsGlobalEventHandlers self, IsEventTarget self) =>+        EventName self WheelEvent+wheel = unsafeEventName (toJSString "wheel")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/GlobalEventHandlers.ontouchcancel Mozilla GlobalEventHandlers.ontouchcancel documentation> +touchCancel ::+            (IsGlobalEventHandlers self, IsEventTarget self) =>+              EventName self TouchEvent+touchCancel = unsafeEventName (toJSString "touchcancel")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/GlobalEventHandlers.ontouchend Mozilla GlobalEventHandlers.ontouchend documentation> +touchEnd ::+         (IsGlobalEventHandlers self, IsEventTarget self) =>+           EventName self TouchEvent+touchEnd = unsafeEventName (toJSString "touchend")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/GlobalEventHandlers.ontouchmove Mozilla GlobalEventHandlers.ontouchmove documentation> +touchMove ::+          (IsGlobalEventHandlers self, IsEventTarget self) =>+            EventName self TouchEvent+touchMove = unsafeEventName (toJSString "touchmove")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/GlobalEventHandlers.ontouchstart Mozilla GlobalEventHandlers.ontouchstart documentation> +touchStart ::+           (IsGlobalEventHandlers self, IsEventTarget self) =>+             EventName self TouchEvent+touchStart = unsafeEventName (toJSString "touchstart")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/GlobalEventHandlers.ontouchforcechange Mozilla GlobalEventHandlers.ontouchforcechange documentation> +touchForcechange ::+                 (IsGlobalEventHandlers self, IsEventTarget self) =>+                   EventName self ontouchforcechange+touchForcechange = unsafeEventName (toJSString "touchforcechange")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/GlobalEventHandlers.onwebkitmouseforcechanged Mozilla GlobalEventHandlers.onwebkitmouseforcechanged documentation> +webKitMouseForcechanged ::+                        (IsGlobalEventHandlers self, IsEventTarget self) =>+                          EventName self onwebkitmouseforcechanged+webKitMouseForcechanged+  = unsafeEventName (toJSString "webkitmouseforcechanged")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/GlobalEventHandlers.onwebkitmouseforcedown Mozilla GlobalEventHandlers.onwebkitmouseforcedown documentation> +webKitMouseForcedown ::+                     (IsGlobalEventHandlers self, IsEventTarget self) =>+                       EventName self onwebkitmouseforcedown+webKitMouseForcedown+  = unsafeEventName (toJSString "webkitmouseforcedown")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/GlobalEventHandlers.onwebkitmouseforcewillbegin Mozilla GlobalEventHandlers.onwebkitmouseforcewillbegin documentation> +webKitMouseForcewillbegin ::+                          (IsGlobalEventHandlers self, IsEventTarget self) =>+                            EventName self onwebkitmouseforcewillbegin+webKitMouseForcewillbegin+  = unsafeEventName (toJSString "webkitmouseforcewillbegin")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/GlobalEventHandlers.onwebkitmouseforceup Mozilla GlobalEventHandlers.onwebkitmouseforceup documentation> +webKitMouseForceup ::+                   (IsGlobalEventHandlers self, IsEventTarget self) =>+                     EventName self onwebkitmouseforceup+webKitMouseForceup+  = unsafeEventName (toJSString "webkitmouseforceup")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/GlobalEventHandlers.onwebkitwillrevealbottom Mozilla GlobalEventHandlers.onwebkitwillrevealbottom documentation> +webKitWillRevealBottom ::+                       (IsGlobalEventHandlers self, IsEventTarget self) =>+                         EventName self Event+webKitWillRevealBottom+  = unsafeEventName (toJSString "webkitwillrevealbottom")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/GlobalEventHandlers.onwebkitwillrevealleft Mozilla GlobalEventHandlers.onwebkitwillrevealleft documentation> +webKitWillRevealLeft ::+                     (IsGlobalEventHandlers self, IsEventTarget self) =>+                       EventName self Event+webKitWillRevealLeft+  = unsafeEventName (toJSString "webkitwillrevealleft")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/GlobalEventHandlers.onwebkitwillrevealright Mozilla GlobalEventHandlers.onwebkitwillrevealright documentation> +webKitWillRevealRight ::+                      (IsGlobalEventHandlers self, IsEventTarget self) =>+                        EventName self Event+webKitWillRevealRight+  = unsafeEventName (toJSString "webkitwillrevealright")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/GlobalEventHandlers.onwebkitwillrevealtop Mozilla GlobalEventHandlers.onwebkitwillrevealtop documentation> +webKitWillRevealTop ::+                    (IsGlobalEventHandlers self, IsEventTarget self) =>+                      EventName self Event+webKitWillRevealTop+  = unsafeEventName (toJSString "webkitwillrevealtop")
+ src/GHCJS/DOM/JSFFI/Generated/GlobalPerformance.hs view
@@ -0,0 +1,36 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+module GHCJS.DOM.JSFFI.Generated.GlobalPerformance+       (js_getPerformance, getPerformance, GlobalPerformance(..),+        gTypeGlobalPerformance, IsGlobalPerformance, toGlobalPerformance)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error)+import Data.Typeable (Typeable)+import GHCJS.Types (JSVal(..), JSString)+import GHCJS.Foreign (jsNull, jsUndefined)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Control.Monad (void)+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import Data.Maybe (fromJust)+import Data.Traversable (mapM)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"performance\"]"+        js_getPerformance :: GlobalPerformance -> IO Performance++-- | <https://developer.mozilla.org/en-US/docs/Web/API/GlobalPerformance.performance Mozilla GlobalPerformance.performance documentation> +getPerformance ::+               (MonadIO m, IsGlobalPerformance self) => self -> m Performance+getPerformance self+  = liftIO (js_getPerformance (toGlobalPerformance self))
src/GHCJS/DOM/JSFFI/Generated/HTMLAllCollection.hs view
@@ -6,14 +6,14 @@ module GHCJS.DOM.JSFFI.Generated.HTMLAllCollection        (js_item, item, item_, itemUnsafe, itemUnchecked, js_namedItem,         namedItem, namedItem_, namedItemUnsafe, namedItemUnchecked,-        js_tags, tags, tags_, tagsUnsafe, tagsUnchecked, js_getLength,-        getLength, HTMLAllCollection(..), gTypeHTMLAllCollection)+        js_tags, tags, tags_, js_getLength, getLength,+        HTMLAllCollection(..), gTypeHTMLAllCollection)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -22,105 +22,91 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums  -foreign import javascript unsafe "$1[\"item\"]($2)" js_item ::-        HTMLAllCollection -> Word -> IO (Nullable Node)+foreign import javascript unsafe "$1[$2]" js_item ::+        HTMLAllCollection -> Word -> IO (Nullable Element)  -- | <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))+item ::+     (MonadIO m) => HTMLAllCollection -> Word -> m (Maybe Element)+item self index = liftIO (nullableToMaybe <$> (js_item self index))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAllCollection.item Mozilla HTMLAllCollection.item documentation>  item_ :: (MonadIO m) => HTMLAllCollection -> Word -> m ()-item_ self index = liftIO (void (js_item (self) index))+item_ self index = liftIO (void (js_item self index))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAllCollection.item Mozilla HTMLAllCollection.item documentation>  itemUnsafe ::-           (MonadIO m, HasCallStack) => HTMLAllCollection -> Word -> m Node+           (MonadIO m, HasCallStack) => HTMLAllCollection -> Word -> m Element itemUnsafe self index   = liftIO-      ((nullableToMaybe <$> (js_item (self) index)) >>=+      ((nullableToMaybe <$> (js_item self index)) >>=          maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAllCollection.item Mozilla HTMLAllCollection.item documentation> -itemUnchecked :: (MonadIO m) => HTMLAllCollection -> Word -> m Node+itemUnchecked ::+              (MonadIO m) => HTMLAllCollection -> Word -> m Element itemUnchecked self index-  = liftIO (fromJust . nullableToMaybe <$> (js_item (self) index))+  = liftIO (fromJust . nullableToMaybe <$> (js_item self index))  -foreign import javascript unsafe "$1[\"namedItem\"]($2)"-        js_namedItem :: HTMLAllCollection -> JSString -> IO (Nullable Node)+foreign import javascript unsafe "$1[$2]" js_namedItem ::+        HTMLAllCollection ->+          JSString -> IO (Nullable HTMLCollectionOrElement)  -- | <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)+            HTMLAllCollection -> name -> m (Maybe HTMLCollectionOrElement) namedItem self name   = liftIO-      (nullableToMaybe <$> (js_namedItem (self) (toJSString name)))+      (nullableToMaybe <$> (js_namedItem self (toJSString name)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAllCollection.namedItem Mozilla HTMLAllCollection.namedItem documentation>  namedItem_ ::            (MonadIO m, ToJSString name) => HTMLAllCollection -> name -> m () namedItem_ self name-  = liftIO (void (js_namedItem (self) (toJSString name)))+  = liftIO (void (js_namedItem self (toJSString name)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAllCollection.namedItem Mozilla HTMLAllCollection.namedItem documentation>  namedItemUnsafe ::                 (MonadIO m, ToJSString name, HasCallStack) =>-                  HTMLAllCollection -> name -> m Node+                  HTMLAllCollection -> name -> m HTMLCollectionOrElement namedItemUnsafe self name   = liftIO-      ((nullableToMaybe <$> (js_namedItem (self) (toJSString name))) >>=+      ((nullableToMaybe <$> (js_namedItem self (toJSString name))) >>=          maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAllCollection.namedItem Mozilla HTMLAllCollection.namedItem documentation>  namedItemUnchecked ::-                   (MonadIO m, ToJSString name) => HTMLAllCollection -> name -> m Node+                   (MonadIO m, ToJSString name) =>+                     HTMLAllCollection -> name -> m HTMLCollectionOrElement namedItemUnchecked self name   = liftIO       (fromJust . nullableToMaybe <$>-         (js_namedItem (self) (toJSString name)))+         (js_namedItem self (toJSString name)))   foreign import javascript unsafe "$1[\"tags\"]($2)" js_tags ::-        HTMLAllCollection -> JSString -> IO (Nullable NodeList)+        HTMLAllCollection -> JSString -> IO 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)))+       HTMLAllCollection -> name -> m NodeList+tags self name = liftIO (js_tags self (toJSString name))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAllCollection.tags Mozilla HTMLAllCollection.tags documentation>  tags_ ::       (MonadIO m, ToJSString name) => HTMLAllCollection -> name -> m ()-tags_ self name = liftIO (void (js_tags (self) (toJSString name)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAllCollection.tags Mozilla HTMLAllCollection.tags documentation> -tagsUnsafe ::-           (MonadIO m, ToJSString name, HasCallStack) =>-             HTMLAllCollection -> name -> m NodeList-tagsUnsafe self name-  = liftIO-      ((nullableToMaybe <$> (js_tags (self) (toJSString name))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAllCollection.tags Mozilla HTMLAllCollection.tags documentation> -tagsUnchecked ::-              (MonadIO m, ToJSString name) =>-                HTMLAllCollection -> name -> m NodeList-tagsUnchecked self name-  = liftIO-      (fromJust . nullableToMaybe <$> (js_tags (self) (toJSString name)))+tags_ self name = liftIO (void (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))+getLength self = liftIO (js_getLength self)
src/GHCJS/DOM/JSFFI/Generated/HTMLAnchorElement.hs view
@@ -4,36 +4,23 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLAnchorElement-       (js_toString, 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, getHashUnsafe, getHashUnchecked,-        js_setHost, setHost, js_getHost, getHost, getHostUnsafe,-        getHostUnchecked, js_setHostname, setHostname, js_getHostname,-        getHostname, getHostnameUnsafe, getHostnameUnchecked,-        js_setPathname, setPathname, js_getPathname, getPathname,-        getPathnameUnsafe, getPathnameUnchecked, js_setPort, setPort,-        js_getPort, getPort, getPortUnsafe, getPortUnchecked,-        js_setProtocol, setProtocol, js_getProtocol, getProtocol,-        getProtocolUnsafe, getProtocolUnchecked, js_setSearch, setSearch,-        js_getSearch, getSearch, getSearchUnsafe, getSearchUnchecked,-        js_getOrigin, getOrigin, getOriginUnsafe, getOriginUnchecked,-        js_setText, setText, js_getText, getText, js_getRelList,-        getRelList, getRelListUnsafe, getRelListUnchecked,-        HTMLAnchorElement(..), gTypeHTMLAnchorElement)+       (js_setCharset, setCharset, js_getCharset, getCharset,+        js_setCoords, setCoords, js_getCoords, getCoords, js_setDownload,+        setDownload, js_getDownload, getDownload, 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_setText, setText, js_getText, getText,+        js_getRelList, getRelList, HTMLAnchorElement(..),+        gTypeHTMLAnchorElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -42,31 +29,19 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.toString Mozilla HTMLAnchorElement.toString documentation> -toString_ :: (MonadIO m) => HTMLAnchorElement -> m ()-toString_ self = liftIO (void (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))+setCharset self val = liftIO (js_setCharset self (toJSString val))   foreign import javascript unsafe "$1[\"charset\"]" js_getCharset ::         HTMLAnchorElement -> IO JSString@@ -74,7 +49,7 @@ -- | <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)))+getCharset self = liftIO (fromJSString <$> (js_getCharset self))   foreign import javascript unsafe "$1[\"coords\"] = $2;"         js_setCoords :: HTMLAnchorElement -> JSString -> IO ()@@ -82,7 +57,7 @@ -- | <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))+setCoords self val = liftIO (js_setCoords self (toJSString val))   foreign import javascript unsafe "$1[\"coords\"]" js_getCoords ::         HTMLAnchorElement -> IO JSString@@ -90,7 +65,7 @@ -- | <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)))+getCoords self = liftIO (fromJSString <$> (js_getCoords self))   foreign import javascript unsafe "$1[\"download\"] = $2;"         js_setDownload :: HTMLAnchorElement -> JSString -> IO ()@@ -99,7 +74,7 @@ setDownload ::             (MonadIO m, ToJSString val) => HTMLAnchorElement -> val -> m () setDownload self val-  = liftIO (js_setDownload (self) (toJSString val))+  = liftIO (js_setDownload self (toJSString val))   foreign import javascript unsafe "$1[\"download\"]" js_getDownload         :: HTMLAnchorElement -> IO JSString@@ -107,24 +82,7 @@ -- | <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)))+getDownload self = liftIO (fromJSString <$> (js_getDownload self))   foreign import javascript unsafe "$1[\"hreflang\"] = $2;"         js_setHreflang :: HTMLAnchorElement -> JSString -> IO ()@@ -133,7 +91,7 @@ setHreflang ::             (MonadIO m, ToJSString val) => HTMLAnchorElement -> val -> m () setHreflang self val-  = liftIO (js_setHreflang (self) (toJSString val))+  = liftIO (js_setHreflang self (toJSString val))   foreign import javascript unsafe "$1[\"hreflang\"]" js_getHreflang         :: HTMLAnchorElement -> IO JSString@@ -141,8 +99,7 @@ -- | <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)))+getHreflang self = liftIO (fromJSString <$> (js_getHreflang self))   foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName ::         HTMLAnchorElement -> JSString -> IO ()@@ -150,7 +107,7 @@ -- | <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))+setName self val = liftIO (js_setName self (toJSString val))   foreign import javascript unsafe "$1[\"name\"]" js_getName ::         HTMLAnchorElement -> IO JSString@@ -158,7 +115,7 @@ -- | <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)))+getName self = liftIO (fromJSString <$> (js_getName self))   foreign import javascript unsafe "$1[\"ping\"] = $2;" js_setPing ::         HTMLAnchorElement -> JSString -> IO ()@@ -166,7 +123,7 @@ -- | <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))+setPing self val = liftIO (js_setPing self (toJSString val))   foreign import javascript unsafe "$1[\"ping\"]" js_getPing ::         HTMLAnchorElement -> IO JSString@@ -174,7 +131,7 @@ -- | <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)))+getPing self = liftIO (fromJSString <$> (js_getPing self))   foreign import javascript unsafe "$1[\"rel\"] = $2;" js_setRel ::         HTMLAnchorElement -> JSString -> IO ()@@ -182,7 +139,7 @@ -- | <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))+setRel self val = liftIO (js_setRel self (toJSString val))   foreign import javascript unsafe "$1[\"rel\"]" js_getRel ::         HTMLAnchorElement -> IO JSString@@ -190,7 +147,7 @@ -- | <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)))+getRel self = liftIO (fromJSString <$> (js_getRel self))   foreign import javascript unsafe "$1[\"rev\"] = $2;" js_setRev ::         HTMLAnchorElement -> JSString -> IO ()@@ -198,7 +155,7 @@ -- | <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))+setRev self val = liftIO (js_setRev self (toJSString val))   foreign import javascript unsafe "$1[\"rev\"]" js_getRev ::         HTMLAnchorElement -> IO JSString@@ -206,7 +163,7 @@ -- | <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)))+getRev self = liftIO (fromJSString <$> (js_getRev self))   foreign import javascript unsafe "$1[\"shape\"] = $2;" js_setShape         :: HTMLAnchorElement -> JSString -> IO ()@@ -214,7 +171,7 @@ -- | <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))+setShape self val = liftIO (js_setShape self (toJSString val))   foreign import javascript unsafe "$1[\"shape\"]" js_getShape ::         HTMLAnchorElement -> IO JSString@@ -222,7 +179,7 @@ -- | <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)))+getShape self = liftIO (fromJSString <$> (js_getShape self))   foreign import javascript unsafe "$1[\"target\"] = $2;"         js_setTarget :: HTMLAnchorElement -> JSString -> IO ()@@ -230,7 +187,7 @@ -- | <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))+setTarget self val = liftIO (js_setTarget self (toJSString val))   foreign import javascript unsafe "$1[\"target\"]" js_getTarget ::         HTMLAnchorElement -> IO JSString@@ -238,7 +195,7 @@ -- | <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)))+getTarget self = liftIO (fromJSString <$> (js_getTarget self))   foreign import javascript unsafe "$1[\"type\"] = $2;" js_setType ::         HTMLAnchorElement -> JSString -> IO ()@@ -246,7 +203,7 @@ -- | <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))+setType self val = liftIO (js_setType self (toJSString val))   foreign import javascript unsafe "$1[\"type\"]" js_getType ::         HTMLAnchorElement -> IO JSString@@ -254,271 +211,7 @@ -- | <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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.hash Mozilla HTMLAnchorElement.hash documentation> -getHashUnsafe ::-              (MonadIO m, HasCallStack, FromJSString result) =>-                HTMLAnchorElement -> m result-getHashUnsafe self-  = liftIO-      ((fromMaybeJSString <$> (js_getHash (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.hash Mozilla HTMLAnchorElement.hash documentation> -getHashUnchecked ::-                 (MonadIO m, FromJSString result) => HTMLAnchorElement -> m result-getHashUnchecked self-  = liftIO (fromJust . 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.host Mozilla HTMLAnchorElement.host documentation> -getHostUnsafe ::-              (MonadIO m, HasCallStack, FromJSString result) =>-                HTMLAnchorElement -> m result-getHostUnsafe self-  = liftIO-      ((fromMaybeJSString <$> (js_getHost (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.host Mozilla HTMLAnchorElement.host documentation> -getHostUnchecked ::-                 (MonadIO m, FromJSString result) => HTMLAnchorElement -> m result-getHostUnchecked self-  = liftIO (fromJust . 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.hostname Mozilla HTMLAnchorElement.hostname documentation> -getHostnameUnsafe ::-                  (MonadIO m, HasCallStack, FromJSString result) =>-                    HTMLAnchorElement -> m result-getHostnameUnsafe self-  = liftIO-      ((fromMaybeJSString <$> (js_getHostname (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.hostname Mozilla HTMLAnchorElement.hostname documentation> -getHostnameUnchecked ::-                     (MonadIO m, FromJSString result) => HTMLAnchorElement -> m result-getHostnameUnchecked self-  = liftIO (fromJust . 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.pathname Mozilla HTMLAnchorElement.pathname documentation> -getPathnameUnsafe ::-                  (MonadIO m, HasCallStack, FromJSString result) =>-                    HTMLAnchorElement -> m result-getPathnameUnsafe self-  = liftIO-      ((fromMaybeJSString <$> (js_getPathname (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.pathname Mozilla HTMLAnchorElement.pathname documentation> -getPathnameUnchecked ::-                     (MonadIO m, FromJSString result) => HTMLAnchorElement -> m result-getPathnameUnchecked self-  = liftIO (fromJust . 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.port Mozilla HTMLAnchorElement.port documentation> -getPortUnsafe ::-              (MonadIO m, HasCallStack, FromJSString result) =>-                HTMLAnchorElement -> m result-getPortUnsafe self-  = liftIO-      ((fromMaybeJSString <$> (js_getPort (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.port Mozilla HTMLAnchorElement.port documentation> -getPortUnchecked ::-                 (MonadIO m, FromJSString result) => HTMLAnchorElement -> m result-getPortUnchecked self-  = liftIO (fromJust . 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.protocol Mozilla HTMLAnchorElement.protocol documentation> -getProtocolUnsafe ::-                  (MonadIO m, HasCallStack, FromJSString result) =>-                    HTMLAnchorElement -> m result-getProtocolUnsafe self-  = liftIO-      ((fromMaybeJSString <$> (js_getProtocol (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.protocol Mozilla HTMLAnchorElement.protocol documentation> -getProtocolUnchecked ::-                     (MonadIO m, FromJSString result) => HTMLAnchorElement -> m result-getProtocolUnchecked self-  = liftIO (fromJust . 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.search Mozilla HTMLAnchorElement.search documentation> -getSearchUnsafe ::-                (MonadIO m, HasCallStack, FromJSString result) =>-                  HTMLAnchorElement -> m result-getSearchUnsafe self-  = liftIO-      ((fromMaybeJSString <$> (js_getSearch (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.search Mozilla HTMLAnchorElement.search documentation> -getSearchUnchecked ::-                   (MonadIO m, FromJSString result) => HTMLAnchorElement -> m result-getSearchUnchecked self-  = liftIO (fromJust . 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.origin Mozilla HTMLAnchorElement.origin documentation> -getOriginUnsafe ::-                (MonadIO m, HasCallStack, FromJSString result) =>-                  HTMLAnchorElement -> m result-getOriginUnsafe self-  = liftIO-      ((fromMaybeJSString <$> (js_getOrigin (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.origin Mozilla HTMLAnchorElement.origin documentation> -getOriginUnchecked ::-                   (MonadIO m, FromJSString result) => HTMLAnchorElement -> m result-getOriginUnchecked self-  = liftIO (fromJust . fromMaybeJSString <$> (js_getOrigin (self)))+getType self = liftIO (fromJSString <$> (js_getType self))   foreign import javascript unsafe "$1[\"text\"] = $2;" js_setText ::         HTMLAnchorElement -> JSString -> IO ()@@ -526,7 +219,7 @@ -- | <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))+setText self val = liftIO (js_setText self (toJSString val))   foreign import javascript unsafe "$1[\"text\"]" js_getText ::         HTMLAnchorElement -> IO JSString@@ -534,27 +227,11 @@ -- | <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)))+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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.relList Mozilla HTMLAnchorElement.relList documentation> -getRelListUnsafe ::-                 (MonadIO m, HasCallStack) => HTMLAnchorElement -> m DOMTokenList-getRelListUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getRelList (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        HTMLAnchorElement -> IO DOMTokenList  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.relList Mozilla HTMLAnchorElement.relList documentation> -getRelListUnchecked ::-                    (MonadIO m) => HTMLAnchorElement -> m DOMTokenList-getRelListUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getRelList (self)))+getRelList :: (MonadIO m) => HTMLAnchorElement -> m DOMTokenList+getRelList self = liftIO (js_getRelList self)
src/GHCJS/DOM/JSFFI/Generated/HTMLAppletElement.hs view
@@ -19,7 +19,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -28,6 +28,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -39,7 +40,7 @@ -- | <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))+setAlign self val = liftIO (js_setAlign self (toJSString val))   foreign import javascript unsafe "$1[\"align\"]" js_getAlign ::         HTMLAppletElement -> IO JSString@@ -47,7 +48,7 @@ -- | <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)))+getAlign self = liftIO (fromJSString <$> (js_getAlign self))   foreign import javascript unsafe "$1[\"alt\"] = $2;" js_setAlt ::         HTMLAppletElement -> JSString -> IO ()@@ -55,7 +56,7 @@ -- | <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))+setAlt self val = liftIO (js_setAlt self (toJSString val))   foreign import javascript unsafe "$1[\"alt\"]" js_getAlt ::         HTMLAppletElement -> IO JSString@@ -63,7 +64,7 @@ -- | <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)))+getAlt self = liftIO (fromJSString <$> (js_getAlt self))   foreign import javascript unsafe "$1[\"archive\"] = $2;"         js_setArchive :: HTMLAppletElement -> JSString -> IO ()@@ -71,8 +72,7 @@ -- | <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))+setArchive self val = liftIO (js_setArchive self (toJSString val))   foreign import javascript unsafe "$1[\"archive\"]" js_getArchive ::         HTMLAppletElement -> IO JSString@@ -80,7 +80,7 @@ -- | <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)))+getArchive self = liftIO (fromJSString <$> (js_getArchive self))   foreign import javascript unsafe "$1[\"code\"] = $2;" js_setCode ::         HTMLAppletElement -> JSString -> IO ()@@ -88,7 +88,7 @@ -- | <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))+setCode self val = liftIO (js_setCode self (toJSString val))   foreign import javascript unsafe "$1[\"code\"]" js_getCode ::         HTMLAppletElement -> IO JSString@@ -96,7 +96,7 @@ -- | <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)))+getCode self = liftIO (fromJSString <$> (js_getCode self))   foreign import javascript unsafe "$1[\"codeBase\"] = $2;"         js_setCodeBase :: HTMLAppletElement -> JSString -> IO ()@@ -105,7 +105,7 @@ setCodeBase ::             (MonadIO m, ToJSString val) => HTMLAppletElement -> val -> m () setCodeBase self val-  = liftIO (js_setCodeBase (self) (toJSString val))+  = liftIO (js_setCodeBase self (toJSString val))   foreign import javascript unsafe "$1[\"codeBase\"]" js_getCodeBase         :: HTMLAppletElement -> IO JSString@@ -113,8 +113,7 @@ -- | <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)))+getCodeBase self = liftIO (fromJSString <$> (js_getCodeBase self))   foreign import javascript unsafe "$1[\"height\"] = $2;"         js_setHeight :: HTMLAppletElement -> JSString -> IO ()@@ -122,7 +121,7 @@ -- | <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))+setHeight self val = liftIO (js_setHeight self (toJSString val))   foreign import javascript unsafe "$1[\"height\"]" js_getHeight ::         HTMLAppletElement -> IO JSString@@ -130,23 +129,21 @@ -- | <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)))+getHeight self = liftIO (fromJSString <$> (js_getHeight self))   foreign import javascript unsafe "$1[\"hspace\"] = $2;"-        js_setHspace :: HTMLAppletElement -> JSString -> IO ()+        js_setHspace :: HTMLAppletElement -> Word -> 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))+setHspace :: (MonadIO m) => HTMLAppletElement -> Word -> m ()+setHspace self val = liftIO (js_setHspace self val)   foreign import javascript unsafe "$1[\"hspace\"]" js_getHspace ::-        HTMLAppletElement -> IO JSString+        HTMLAppletElement -> IO Word  -- | <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)))+getHspace :: (MonadIO m) => HTMLAppletElement -> m Word+getHspace self = liftIO (js_getHspace self)   foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName ::         HTMLAppletElement -> JSString -> IO ()@@ -154,7 +151,7 @@ -- | <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))+setName self val = liftIO (js_setName self (toJSString val))   foreign import javascript unsafe "$1[\"name\"]" js_getName ::         HTMLAppletElement -> IO JSString@@ -162,7 +159,7 @@ -- | <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)))+getName self = liftIO (fromJSString <$> (js_getName self))   foreign import javascript unsafe "$1[\"object\"] = $2;"         js_setObject :: HTMLAppletElement -> JSString -> IO ()@@ -170,7 +167,7 @@ -- | <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))+setObject self val = liftIO (js_setObject self (toJSString val))   foreign import javascript unsafe "$1[\"object\"]" js_getObject ::         HTMLAppletElement -> IO JSString@@ -178,23 +175,21 @@ -- | <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)))+getObject self = liftIO (fromJSString <$> (js_getObject self))   foreign import javascript unsafe "$1[\"vspace\"] = $2;"-        js_setVspace :: HTMLAppletElement -> JSString -> IO ()+        js_setVspace :: HTMLAppletElement -> Word -> 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))+setVspace :: (MonadIO m) => HTMLAppletElement -> Word -> m ()+setVspace self val = liftIO (js_setVspace self val)   foreign import javascript unsafe "$1[\"vspace\"]" js_getVspace ::-        HTMLAppletElement -> IO JSString+        HTMLAppletElement -> IO Word  -- | <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)))+getVspace :: (MonadIO m) => HTMLAppletElement -> m Word+getVspace self = liftIO (js_getVspace self)   foreign import javascript unsafe "$1[\"width\"] = $2;" js_setWidth         :: HTMLAppletElement -> JSString -> IO ()@@ -202,7 +197,7 @@ -- | <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))+setWidth self val = liftIO (js_setWidth self (toJSString val))   foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::         HTMLAppletElement -> IO JSString@@ -210,4 +205,4 @@ -- | <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)))+getWidth self = liftIO (fromJSString <$> (js_getWidth self))
src/GHCJS/DOM/JSFFI/Generated/HTMLAreaElement.hs view
@@ -5,22 +5,19 @@ {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} 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,-        getRelListUnsafe, getRelListUnchecked, HTMLAreaElement(..),+        js_getCoords, getCoords, 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_setDownload, setDownload, js_getDownload, getDownload,+        js_getRelList, getRelList, HTMLAreaElement(..),         gTypeHTMLAreaElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -29,6 +26,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -40,7 +38,7 @@ -- | <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))+setAlt self val = liftIO (js_setAlt self (toJSString val))   foreign import javascript unsafe "$1[\"alt\"]" js_getAlt ::         HTMLAreaElement -> IO JSString@@ -48,7 +46,7 @@ -- | <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)))+getAlt self = liftIO (fromJSString <$> (js_getAlt self))   foreign import javascript unsafe "$1[\"coords\"] = $2;"         js_setCoords :: HTMLAreaElement -> JSString -> IO ()@@ -56,7 +54,7 @@ -- | <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))+setCoords self val = liftIO (js_setCoords self (toJSString val))   foreign import javascript unsafe "$1[\"coords\"]" js_getCoords ::         HTMLAreaElement -> IO JSString@@ -64,37 +62,21 @@ -- | <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)))+getCoords self = liftIO (fromJSString <$> (js_getCoords 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)+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))+getNoHref self = liftIO (js_getNoHref self)   foreign import javascript unsafe "$1[\"ping\"] = $2;" js_setPing ::         HTMLAreaElement -> JSString -> IO ()@@ -102,7 +84,7 @@ -- | <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))+setPing self val = liftIO (js_setPing self (toJSString val))   foreign import javascript unsafe "$1[\"ping\"]" js_getPing ::         HTMLAreaElement -> IO JSString@@ -110,7 +92,7 @@ -- | <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)))+getPing self = liftIO (fromJSString <$> (js_getPing self))   foreign import javascript unsafe "$1[\"rel\"] = $2;" js_setRel ::         HTMLAreaElement -> JSString -> IO ()@@ -118,7 +100,7 @@ -- | <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))+setRel self val = liftIO (js_setRel self (toJSString val))   foreign import javascript unsafe "$1[\"rel\"]" js_getRel ::         HTMLAreaElement -> IO JSString@@ -126,7 +108,7 @@ -- | <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)))+getRel self = liftIO (fromJSString <$> (js_getRel self))   foreign import javascript unsafe "$1[\"shape\"] = $2;" js_setShape         :: HTMLAreaElement -> JSString -> IO ()@@ -134,7 +116,7 @@ -- | <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))+setShape self val = liftIO (js_setShape self (toJSString val))   foreign import javascript unsafe "$1[\"shape\"]" js_getShape ::         HTMLAreaElement -> IO JSString@@ -142,7 +124,7 @@ -- | <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)))+getShape self = liftIO (fromJSString <$> (js_getShape self))   foreign import javascript unsafe "$1[\"target\"] = $2;"         js_setTarget :: HTMLAreaElement -> JSString -> IO ()@@ -150,7 +132,7 @@ -- | <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))+setTarget self val = liftIO (js_setTarget self (toJSString val))   foreign import javascript unsafe "$1[\"target\"]" js_getTarget ::         HTMLAreaElement -> IO JSString@@ -158,86 +140,28 @@ -- | <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)))+getTarget self = liftIO (fromJSString <$> (js_getTarget self))  -foreign import javascript unsafe "$1[\"port\"]" js_getPort ::-        HTMLAreaElement -> IO JSString+foreign import javascript unsafe "$1[\"download\"] = $2;"+        js_setDownload :: HTMLAreaElement -> JSString -> IO () --- | <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)))+-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.download Mozilla HTMLAreaElement.download documentation> +setDownload ::+            (MonadIO m, ToJSString val) => HTMLAreaElement -> val -> m ()+setDownload self val+  = liftIO (js_setDownload self (toJSString val))  -foreign import javascript unsafe "$1[\"protocol\"]" js_getProtocol+foreign import javascript unsafe "$1[\"download\"]" js_getDownload         :: HTMLAreaElement -> IO JSString --- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.protocol Mozilla HTMLAreaElement.protocol documentation> -getProtocol ::+-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.download Mozilla HTMLAreaElement.download documentation> +getDownload ::             (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)))+getDownload self = liftIO (fromJSString <$> (js_getDownload 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.relList Mozilla HTMLAreaElement.relList documentation> -getRelListUnsafe ::-                 (MonadIO m, HasCallStack) => HTMLAreaElement -> m DOMTokenList-getRelListUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getRelList (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        HTMLAreaElement -> IO DOMTokenList  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.relList Mozilla HTMLAreaElement.relList documentation> -getRelListUnchecked ::-                    (MonadIO m) => HTMLAreaElement -> m DOMTokenList-getRelListUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getRelList (self)))+getRelList :: (MonadIO m) => HTMLAreaElement -> m DOMTokenList+getRelList self = liftIO (js_getRelList self)
+ src/GHCJS/DOM/JSFFI/Generated/HTMLAttachmentElement.hs view
@@ -0,0 +1,56 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+module GHCJS.DOM.JSFFI.Generated.HTMLAttachmentElement+       (js_setFile, setFile, js_getFile, getFile, getFileUnsafe,+        getFileUnchecked, HTMLAttachmentElement(..),+        gTypeHTMLAttachmentElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error)+import Data.Typeable (Typeable)+import GHCJS.Types (JSVal(..), JSString)+import GHCJS.Foreign (jsNull, jsUndefined)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Control.Monad (void)+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import Data.Maybe (fromJust)+import Data.Traversable (mapM)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"file\"] = $2;" js_setFile ::+        HTMLAttachmentElement -> Optional File -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAttachmentElement.file Mozilla HTMLAttachmentElement.file documentation> +setFile ::+        (MonadIO m) => HTMLAttachmentElement -> Maybe File -> m ()+setFile self val = liftIO (js_setFile self (maybeToOptional val))+ +foreign import javascript unsafe "$1[\"file\"]" js_getFile ::+        HTMLAttachmentElement -> IO (Nullable File)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAttachmentElement.file Mozilla HTMLAttachmentElement.file documentation> +getFile :: (MonadIO m) => HTMLAttachmentElement -> m (Maybe File)+getFile self = liftIO (nullableToMaybe <$> (js_getFile self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAttachmentElement.file Mozilla HTMLAttachmentElement.file documentation> +getFileUnsafe ::+              (MonadIO m, HasCallStack) => HTMLAttachmentElement -> m File+getFileUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getFile self)) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAttachmentElement.file Mozilla HTMLAttachmentElement.file documentation> +getFileUnchecked :: (MonadIO m) => HTMLAttachmentElement -> m File+getFileUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getFile self))
src/GHCJS/DOM/JSFFI/Generated/HTMLBRElement.hs view
@@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -20,6 +20,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -31,7 +32,7 @@ -- | <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))+setClear self val = liftIO (js_setClear self (toJSString val))   foreign import javascript unsafe "$1[\"clear\"]" js_getClear ::         HTMLBRElement -> IO JSString@@ -39,4 +40,4 @@ -- | <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)))+getClear self = liftIO (fromJSString <$> (js_getClear self))
src/GHCJS/DOM/JSFFI/Generated/HTMLBaseElement.hs view
@@ -4,15 +4,14 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLBaseElement-       (js_setHref, setHref, js_getHref, getHref, getHrefUnsafe,-        getHrefUnchecked, js_setTarget, setTarget, js_getTarget, getTarget,-        HTMLBaseElement(..), gTypeHTMLBaseElement)+       (js_setHref, setHref, js_getHref, getHref, js_setTarget, setTarget,+        js_getTarget, getTarget, HTMLBaseElement(..), gTypeHTMLBaseElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -21,42 +20,27 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums   foreign import javascript unsafe "$1[\"href\"] = $2;" js_setHref ::-        HTMLBaseElement -> Nullable JSString -> IO ()+        HTMLBaseElement -> 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))+        (MonadIO m, ToJSString val) => HTMLBaseElement -> val -> m ()+setHref self val = liftIO (js_setHref self (toJSString val))   foreign import javascript unsafe "$1[\"href\"]" js_getHref ::-        HTMLBaseElement -> IO (Nullable JSString)+        HTMLBaseElement -> IO 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBaseElement.href Mozilla HTMLBaseElement.href documentation> -getHrefUnsafe ::-              (MonadIO m, HasCallStack, FromJSString result) =>-                HTMLBaseElement -> m result-getHrefUnsafe self-  = liftIO-      ((fromMaybeJSString <$> (js_getHref (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBaseElement.href Mozilla HTMLBaseElement.href documentation> -getHrefUnchecked ::-                 (MonadIO m, FromJSString result) => HTMLBaseElement -> m result-getHrefUnchecked self-  = liftIO (fromJust . fromMaybeJSString <$> (js_getHref (self)))+        (MonadIO m, FromJSString result) => HTMLBaseElement -> m result+getHref self = liftIO (fromJSString <$> (js_getHref self))   foreign import javascript unsafe "$1[\"target\"] = $2;"         js_setTarget :: HTMLBaseElement -> JSString -> IO ()@@ -64,7 +48,7 @@ -- | <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))+setTarget self val = liftIO (js_setTarget self (toJSString val))   foreign import javascript unsafe "$1[\"target\"]" js_getTarget ::         HTMLBaseElement -> IO JSString@@ -72,4 +56,4 @@ -- | <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)))+getTarget self = liftIO (fromJSString <$> (js_getTarget self))
− src/GHCJS/DOM/JSFFI/Generated/HTMLBaseFontElement.hs 
@@ -1,73 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility-{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}-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(..), gTypeHTMLBaseFontElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)-import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))-import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import 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
@@ -4,20 +4,26 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} 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,+       (js_setALink, setALink, js_getALink, getALink, getALinkUnsafe,+        getALinkUnchecked, js_setBackground, setBackground,+        js_getBackground, getBackground, js_setBgColor, setBgColor,+        js_getBgColor, getBgColor, getBgColorUnsafe, getBgColorUnchecked,+        js_setLink, setLink, js_getLink, getLink, getLinkUnsafe,+        getLinkUnchecked, js_setText, setText, js_getText, getText,+        getTextUnsafe, getTextUnchecked, js_setVLink, setVLink,+        js_getVLink, getVLink, getVLinkUnsafe, getVLinkUnchecked, blur,+        error, focus, focusin, focusout, load, resize, scroll,+        webKitMouseForcechanged, webKitMouseForcedown,+        webKitMouseForcewillbegin, webKitMouseForceup,+        webKitWillRevealBottom, webKitWillRevealLeft,+        webKitWillRevealRight, webKitWillRevealTop, selectionchange,         HTMLBodyElement(..), gTypeHTMLBodyElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -26,26 +32,44 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums   foreign import javascript unsafe "$1[\"aLink\"] = $2;" js_setALink-        :: HTMLBodyElement -> JSString -> IO ()+        :: HTMLBodyElement -> Optional 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))+         (MonadIO m, ToJSString val) => HTMLBodyElement -> Maybe val -> m ()+setALink self val+  = liftIO (js_setALink self (toOptionalJSString val))   foreign import javascript unsafe "$1[\"aLink\"]" js_getALink ::-        HTMLBodyElement -> IO JSString+        HTMLBodyElement -> IO (Nullable 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)))+         (MonadIO m, FromJSString result) =>+           HTMLBodyElement -> m (Maybe result)+getALink self = liftIO (fromMaybeJSString <$> (js_getALink self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement.aLink Mozilla HTMLBodyElement.aLink documentation> +getALinkUnsafe ::+               (MonadIO m, HasCallStack, FromJSString result) =>+                 HTMLBodyElement -> m result+getALinkUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getALink self)) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement.aLink Mozilla HTMLBodyElement.aLink documentation> +getALinkUnchecked ::+                  (MonadIO m, FromJSString result) => HTMLBodyElement -> m result+getALinkUnchecked self+  = liftIO (fromJust . fromMaybeJSString <$> (js_getALink self))   foreign import javascript unsafe "$1[\"background\"] = $2;"         js_setBackground :: HTMLBodyElement -> JSString -> IO ()@@ -54,7 +78,7 @@ setBackground ::               (MonadIO m, ToJSString val) => HTMLBodyElement -> val -> m () setBackground self val-  = liftIO (js_setBackground (self) (toJSString val))+  = liftIO (js_setBackground self (toJSString val))   foreign import javascript unsafe "$1[\"background\"]"         js_getBackground :: HTMLBodyElement -> IO JSString@@ -63,113 +87,140 @@ getBackground ::               (MonadIO m, FromJSString result) => HTMLBodyElement -> m result getBackground self-  = liftIO (fromJSString <$> (js_getBackground (self)))+  = liftIO (fromJSString <$> (js_getBackground self))   foreign import javascript unsafe "$1[\"bgColor\"] = $2;"-        js_setBgColor :: HTMLBodyElement -> JSString -> IO ()+        js_setBgColor :: HTMLBodyElement -> Optional 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 ()+           (MonadIO m, ToJSString val) => HTMLBodyElement -> Maybe val -> m () setBgColor self val-  = liftIO (js_setBgColor (self) (toJSString val))+  = liftIO (js_setBgColor self (toOptionalJSString val))   foreign import javascript unsafe "$1[\"bgColor\"]" js_getBgColor ::-        HTMLBodyElement -> IO JSString+        HTMLBodyElement -> IO (Nullable 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)))+           (MonadIO m, FromJSString result) =>+             HTMLBodyElement -> m (Maybe result)+getBgColor self+  = liftIO (fromMaybeJSString <$> (js_getBgColor self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement.bgColor Mozilla HTMLBodyElement.bgColor documentation> +getBgColorUnsafe ::+                 (MonadIO m, HasCallStack, FromJSString result) =>+                   HTMLBodyElement -> m result+getBgColorUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getBgColor self)) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement.bgColor Mozilla HTMLBodyElement.bgColor documentation> +getBgColorUnchecked ::+                    (MonadIO m, FromJSString result) => HTMLBodyElement -> m result+getBgColorUnchecked self+  = liftIO (fromJust . fromMaybeJSString <$> (js_getBgColor self))   foreign import javascript unsafe "$1[\"link\"] = $2;" js_setLink ::-        HTMLBodyElement -> JSString -> IO ()+        HTMLBodyElement -> Optional 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))+        (MonadIO m, ToJSString val) => HTMLBodyElement -> Maybe val -> m ()+setLink self val+  = liftIO (js_setLink self (toOptionalJSString val))   foreign import javascript unsafe "$1[\"link\"]" js_getLink ::-        HTMLBodyElement -> IO JSString+        HTMLBodyElement -> IO (Nullable 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)))+        (MonadIO m, FromJSString result) =>+          HTMLBodyElement -> m (Maybe result)+getLink self = liftIO (fromMaybeJSString <$> (js_getLink self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement.link Mozilla HTMLBodyElement.link documentation> +getLinkUnsafe ::+              (MonadIO m, HasCallStack, FromJSString result) =>+                HTMLBodyElement -> m result+getLinkUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getLink self)) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement.link Mozilla HTMLBodyElement.link documentation> +getLinkUnchecked ::+                 (MonadIO m, FromJSString result) => HTMLBodyElement -> m result+getLinkUnchecked self+  = liftIO (fromJust . fromMaybeJSString <$> (js_getLink self))   foreign import javascript unsafe "$1[\"text\"] = $2;" js_setText ::-        HTMLBodyElement -> JSString -> IO ()+        HTMLBodyElement -> Optional 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))+        (MonadIO m, ToJSString val) => HTMLBodyElement -> Maybe val -> m ()+setText self val+  = liftIO (js_setText self (toOptionalJSString val))   foreign import javascript unsafe "$1[\"text\"]" js_getText ::-        HTMLBodyElement -> IO JSString+        HTMLBodyElement -> IO (Nullable 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)))+        (MonadIO m, FromJSString result) =>+          HTMLBodyElement -> m (Maybe result)+getText self = liftIO (fromMaybeJSString <$> (js_getText self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement.text Mozilla HTMLBodyElement.text documentation> +getTextUnsafe ::+              (MonadIO m, HasCallStack, FromJSString result) =>+                HTMLBodyElement -> m result+getTextUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getText self)) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement.text Mozilla HTMLBodyElement.text documentation> +getTextUnchecked ::+                 (MonadIO m, FromJSString result) => HTMLBodyElement -> m result+getTextUnchecked self+  = liftIO (fromJust . fromMaybeJSString <$> (js_getText self))   foreign import javascript unsafe "$1[\"vLink\"] = $2;" js_setVLink-        :: HTMLBodyElement -> JSString -> IO ()+        :: HTMLBodyElement -> Optional 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))+         (MonadIO m, ToJSString val) => HTMLBodyElement -> Maybe val -> m ()+setVLink self val+  = liftIO (js_setVLink self (toOptionalJSString val))   foreign import javascript unsafe "$1[\"vLink\"]" js_getVLink ::-        HTMLBodyElement -> IO JSString+        HTMLBodyElement -> IO (Nullable 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")+         (MonadIO m, FromJSString result) =>+           HTMLBodyElement -> m (Maybe result)+getVLink self = liftIO (fromMaybeJSString <$> (js_getVLink self)) --- | <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.vLink Mozilla HTMLBodyElement.vLink documentation> +getVLinkUnsafe ::+               (MonadIO m, HasCallStack, FromJSString result) =>+                 HTMLBodyElement -> m result+getVLinkUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getVLink self)) >>=+         maybe (Prelude.error "Nothing to return") return) --- | <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.vLink Mozilla HTMLBodyElement.vLink documentation> +getVLinkUnchecked ::+                  (MonadIO m, FromJSString result) => HTMLBodyElement -> m result+getVLinkUnchecked self+  = liftIO (fromJust . fromMaybeJSString <$> (js_getVLink self))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement.onblur Mozilla HTMLBodyElement.onblur documentation>  blur :: EventName HTMLBodyElement FocusEvent@@ -183,6 +234,70 @@ focus :: EventName HTMLBodyElement FocusEvent focus = unsafeEventName (toJSString "focus") +-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement.onfocusin Mozilla HTMLBodyElement.onfocusin documentation> +focusin :: EventName HTMLBodyElement onfocusin+focusin = unsafeEventName (toJSString "focusin")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement.onfocusout Mozilla HTMLBodyElement.onfocusout documentation> +focusout :: EventName HTMLBodyElement onfocusout+focusout = unsafeEventName (toJSString "focusout")+ -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement.onload Mozilla HTMLBodyElement.onload documentation>  load :: EventName HTMLBodyElement UIEvent load = unsafeEventName (toJSString "load")++-- | <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.onscroll Mozilla HTMLBodyElement.onscroll documentation> +scroll :: EventName HTMLBodyElement UIEvent+scroll = unsafeEventName (toJSString "scroll")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement.onwebkitmouseforcechanged Mozilla HTMLBodyElement.onwebkitmouseforcechanged documentation> +webKitMouseForcechanged ::+                          EventName HTMLBodyElement onwebkitmouseforcechanged+webKitMouseForcechanged+  = unsafeEventName (toJSString "webkitmouseforcechanged")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement.onwebkitmouseforcedown Mozilla HTMLBodyElement.onwebkitmouseforcedown documentation> +webKitMouseForcedown ::+                       EventName HTMLBodyElement onwebkitmouseforcedown+webKitMouseForcedown+  = unsafeEventName (toJSString "webkitmouseforcedown")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement.onwebkitmouseforcewillbegin Mozilla HTMLBodyElement.onwebkitmouseforcewillbegin documentation> +webKitMouseForcewillbegin ::+                            EventName HTMLBodyElement onwebkitmouseforcewillbegin+webKitMouseForcewillbegin+  = unsafeEventName (toJSString "webkitmouseforcewillbegin")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement.onwebkitmouseforceup Mozilla HTMLBodyElement.onwebkitmouseforceup documentation> +webKitMouseForceup ::+                     EventName HTMLBodyElement onwebkitmouseforceup+webKitMouseForceup+  = unsafeEventName (toJSString "webkitmouseforceup")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement.onwebkitwillrevealbottom Mozilla HTMLBodyElement.onwebkitwillrevealbottom documentation> +webKitWillRevealBottom :: EventName HTMLBodyElement Event+webKitWillRevealBottom+  = unsafeEventName (toJSString "webkitwillrevealbottom")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement.onwebkitwillrevealleft Mozilla HTMLBodyElement.onwebkitwillrevealleft documentation> +webKitWillRevealLeft :: EventName HTMLBodyElement Event+webKitWillRevealLeft+  = unsafeEventName (toJSString "webkitwillrevealleft")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement.onwebkitwillrevealright Mozilla HTMLBodyElement.onwebkitwillrevealright documentation> +webKitWillRevealRight :: EventName HTMLBodyElement Event+webKitWillRevealRight+  = unsafeEventName (toJSString "webkitwillrevealright")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement.onwebkitwillrevealtop Mozilla HTMLBodyElement.onwebkitwillrevealtop documentation> +webKitWillRevealTop :: EventName HTMLBodyElement Event+webKitWillRevealTop+  = unsafeEventName (toJSString "webkitwillrevealtop")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement.onselectionchange Mozilla HTMLBodyElement.onselectionchange documentation> +selectionchange :: EventName HTMLBodyElement onselectionchange+selectionchange = unsafeEventName (toJSString "selectionchange")
src/GHCJS/DOM/JSFFI/Generated/HTMLButtonElement.hs view
@@ -5,30 +5,27 @@ {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLButtonElement        (js_checkValidity, checkValidity, checkValidity_,+        js_reportValidity, reportValidity, reportValidity_,         js_setCustomValidity, setCustomValidity, js_setAutofocus,         setAutofocus, js_getAutofocus, getAutofocus, js_setDisabled,         setDisabled, js_getDisabled, getDisabled, js_getForm, getForm,-        getFormUnsafe, getFormUnchecked, js_setFormAction, setFormAction,-        js_getFormAction, getFormAction, js_setFormEnctype, setFormEnctype,-        js_getFormEnctype, getFormEnctype, getFormEnctypeUnsafe,-        getFormEnctypeUnchecked, js_setFormMethod, setFormMethod,-        js_getFormMethod, getFormMethod, getFormMethodUnsafe,-        getFormMethodUnchecked, js_setFormNoValidate, setFormNoValidate,-        js_getFormNoValidate, getFormNoValidate, js_setFormTarget,-        setFormTarget, js_getFormTarget, getFormTarget, js_setName,-        setName, js_getName, getName, js_setType, setType, js_getType,-        getType, getTypeUnsafe, getTypeUnchecked, js_setValue, setValue,-        js_getValue, getValue, js_getWillValidate, getWillValidate,-        js_getValidity, getValidity, getValidityUnsafe,-        getValidityUnchecked, js_getValidationMessage,-        getValidationMessage, js_getLabels, getLabels, getLabelsUnsafe,-        getLabelsUnchecked, HTMLButtonElement(..), gTypeHTMLButtonElement)+        js_setFormAction, setFormAction, js_getFormAction, getFormAction,+        js_setFormEnctype, setFormEnctype, js_getFormEnctype,+        getFormEnctype, js_setFormMethod, setFormMethod, js_getFormMethod,+        getFormMethod, js_setType, setType, js_getType, getType,+        js_setFormNoValidate, setFormNoValidate, js_getFormNoValidate,+        getFormNoValidate, js_setFormTarget, setFormTarget,+        js_getFormTarget, getFormTarget, js_setName, setName, js_getName,+        getName, js_setValue, setValue, js_getValue, getValue,+        js_getWillValidate, getWillValidate, js_getValidity, getValidity,+        js_getValidationMessage, getValidationMessage, js_getLabels,+        getLabels, HTMLButtonElement(..), gTypeHTMLButtonElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -37,6 +34,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -48,72 +46,67 @@  -- | <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))+checkValidity self = liftIO (js_checkValidity self)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.checkValidity Mozilla HTMLButtonElement.checkValidity documentation>  checkValidity_ :: (MonadIO m) => HTMLButtonElement -> m ()-checkValidity_ self = liftIO (void (js_checkValidity (self)))+checkValidity_ self = liftIO (void (js_checkValidity self))  +foreign import javascript unsafe+        "($1[\"reportValidity\"]() ? 1 : 0)" js_reportValidity ::+        HTMLButtonElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.reportValidity Mozilla HTMLButtonElement.reportValidity documentation> +reportValidity :: (MonadIO m) => HTMLButtonElement -> m Bool+reportValidity self = liftIO (js_reportValidity self)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.reportValidity Mozilla HTMLButtonElement.reportValidity documentation> +reportValidity_ :: (MonadIO m) => HTMLButtonElement -> m ()+reportValidity_ self = liftIO (void (js_reportValidity self))+  foreign import javascript unsafe "$1[\"setCustomValidity\"]($2)"-        js_setCustomValidity ::-        HTMLButtonElement -> Nullable JSString -> IO ()+        js_setCustomValidity :: HTMLButtonElement -> 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 ()+                  (MonadIO m, ToJSString error) => HTMLButtonElement -> error -> m () setCustomValidity self error-  = liftIO (js_setCustomValidity (self) (toMaybeJSString error))+  = liftIO (js_setCustomValidity self (toJSString 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)+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))+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)+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))+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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.form Mozilla HTMLButtonElement.form documentation> -getFormUnsafe ::-              (MonadIO m, HasCallStack) => HTMLButtonElement -> m HTMLFormElement-getFormUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getForm (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        HTMLButtonElement -> IO HTMLFormElement  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.form Mozilla HTMLButtonElement.form documentation> -getFormUnchecked ::-                 (MonadIO m) => HTMLButtonElement -> m HTMLFormElement-getFormUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getForm (self)))+getForm :: (MonadIO m) => HTMLButtonElement -> m HTMLFormElement+getForm self = liftIO (js_getForm self)   foreign import javascript unsafe "$1[\"formAction\"] = $2;"         js_setFormAction :: HTMLButtonElement -> JSString -> IO ()@@ -122,7 +115,7 @@ setFormAction ::               (MonadIO m, ToJSString val) => HTMLButtonElement -> val -> m () setFormAction self val-  = liftIO (js_setFormAction (self) (toJSString val))+  = liftIO (js_setFormAction self (toJSString val))   foreign import javascript unsafe "$1[\"formAction\"]"         js_getFormAction :: HTMLButtonElement -> IO JSString@@ -131,80 +124,59 @@ getFormAction ::               (MonadIO m, FromJSString result) => HTMLButtonElement -> m result getFormAction self-  = liftIO (fromJSString <$> (js_getFormAction (self)))+  = liftIO (fromJSString <$> (js_getFormAction self))   foreign import javascript unsafe "$1[\"formEnctype\"] = $2;"-        js_setFormEnctype ::-        HTMLButtonElement -> Nullable JSString -> IO ()+        js_setFormEnctype :: HTMLButtonElement -> 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 ()+               (MonadIO m, ToJSString val) => HTMLButtonElement -> val -> m () setFormEnctype self val-  = liftIO (js_setFormEnctype (self) (toMaybeJSString val))+  = liftIO (js_setFormEnctype self (toJSString val))   foreign import javascript unsafe "$1[\"formEnctype\"]"-        js_getFormEnctype :: HTMLButtonElement -> IO (Nullable JSString)+        js_getFormEnctype :: HTMLButtonElement -> IO 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)+               (MonadIO m, FromJSString result) => HTMLButtonElement -> m result getFormEnctype self-  = liftIO (fromMaybeJSString <$> (js_getFormEnctype (self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.formEnctype Mozilla HTMLButtonElement.formEnctype documentation> -getFormEnctypeUnsafe ::-                     (MonadIO m, HasCallStack, FromJSString result) =>-                       HTMLButtonElement -> m result-getFormEnctypeUnsafe self-  = liftIO-      ((fromMaybeJSString <$> (js_getFormEnctype (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.formEnctype Mozilla HTMLButtonElement.formEnctype documentation> -getFormEnctypeUnchecked ::-                        (MonadIO m, FromJSString result) => HTMLButtonElement -> m result-getFormEnctypeUnchecked self-  = liftIO-      (fromJust . fromMaybeJSString <$> (js_getFormEnctype (self)))+  = liftIO (fromJSString <$> (js_getFormEnctype self))   foreign import javascript unsafe "$1[\"formMethod\"] = $2;"-        js_setFormMethod :: HTMLButtonElement -> Nullable JSString -> IO ()+        js_setFormMethod :: HTMLButtonElement -> 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 ()+              (MonadIO m, ToJSString val) => HTMLButtonElement -> val -> m () setFormMethod self val-  = liftIO (js_setFormMethod (self) (toMaybeJSString val))+  = liftIO (js_setFormMethod self (toJSString val))   foreign import javascript unsafe "$1[\"formMethod\"]"-        js_getFormMethod :: HTMLButtonElement -> IO (Nullable JSString)+        js_getFormMethod :: HTMLButtonElement -> IO 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)+              (MonadIO m, FromJSString result) => HTMLButtonElement -> m result getFormMethod self-  = liftIO (fromMaybeJSString <$> (js_getFormMethod (self)))+  = liftIO (fromJSString <$> (js_getFormMethod self))+ +foreign import javascript unsafe "$1[\"type\"] = $2;" js_setType ::+        HTMLButtonElement -> JSString -> IO () --- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.formMethod Mozilla HTMLButtonElement.formMethod documentation> -getFormMethodUnsafe ::-                    (MonadIO m, HasCallStack, FromJSString result) =>-                      HTMLButtonElement -> m result-getFormMethodUnsafe self-  = liftIO-      ((fromMaybeJSString <$> (js_getFormMethod (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.type Mozilla HTMLButtonElement.type documentation> +setType ::+        (MonadIO m, ToJSString val) => HTMLButtonElement -> val -> m ()+setType self val = liftIO (js_setType self (toJSString val))+ +foreign import javascript unsafe "$1[\"type\"]" js_getType ::+        HTMLButtonElement -> IO JSString --- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.formMethod Mozilla HTMLButtonElement.formMethod documentation> -getFormMethodUnchecked ::-                       (MonadIO m, FromJSString result) => HTMLButtonElement -> m result-getFormMethodUnchecked self-  = liftIO-      (fromJust . fromMaybeJSString <$> (js_getFormMethod (self)))+-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.type Mozilla HTMLButtonElement.type documentation> +getType ::+        (MonadIO m, FromJSString result) => HTMLButtonElement -> m result+getType self = liftIO (fromJSString <$> (js_getType self))   foreign import javascript unsafe "$1[\"formNoValidate\"] = $2;"         js_setFormNoValidate :: HTMLButtonElement -> Bool -> IO ()@@ -212,15 +184,14 @@ -- | <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)+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))+getFormNoValidate self = liftIO (js_getFormNoValidate self)   foreign import javascript unsafe "$1[\"formTarget\"] = $2;"         js_setFormTarget :: HTMLButtonElement -> JSString -> IO ()@@ -229,7 +200,7 @@ setFormTarget ::               (MonadIO m, ToJSString val) => HTMLButtonElement -> val -> m () setFormTarget self val-  = liftIO (js_setFormTarget (self) (toJSString val))+  = liftIO (js_setFormTarget self (toJSString val))   foreign import javascript unsafe "$1[\"formTarget\"]"         js_getFormTarget :: HTMLButtonElement -> IO JSString@@ -238,7 +209,7 @@ getFormTarget ::               (MonadIO m, FromJSString result) => HTMLButtonElement -> m result getFormTarget self-  = liftIO (fromJSString <$> (js_getFormTarget (self)))+  = liftIO (fromJSString <$> (js_getFormTarget self))   foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName ::         HTMLButtonElement -> JSString -> IO ()@@ -246,7 +217,7 @@ -- | <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))+setName self val = liftIO (js_setName self (toJSString val))   foreign import javascript unsafe "$1[\"name\"]" js_getName ::         HTMLButtonElement -> IO JSString@@ -254,40 +225,7 @@ -- | <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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.type Mozilla HTMLButtonElement.type documentation> -getTypeUnsafe ::-              (MonadIO m, HasCallStack, FromJSString result) =>-                HTMLButtonElement -> m result-getTypeUnsafe self-  = liftIO-      ((fromMaybeJSString <$> (js_getType (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.type Mozilla HTMLButtonElement.type documentation> -getTypeUnchecked ::-                 (MonadIO m, FromJSString result) => HTMLButtonElement -> m result-getTypeUnchecked self-  = liftIO (fromJust . fromMaybeJSString <$> (js_getType (self)))+getName self = liftIO (fromJSString <$> (js_getName self))   foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue         :: HTMLButtonElement -> JSString -> IO ()@@ -295,7 +233,7 @@ -- | <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))+setValue self val = liftIO (js_setValue self (toJSString val))   foreign import javascript unsafe "$1[\"value\"]" js_getValue ::         HTMLButtonElement -> IO JSString@@ -303,37 +241,21 @@ -- | <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)))+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))+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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.validity Mozilla HTMLButtonElement.validity documentation> -getValidityUnsafe ::-                  (MonadIO m, HasCallStack) => HTMLButtonElement -> m ValidityState-getValidityUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getValidity (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        :: HTMLButtonElement -> IO ValidityState  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.validity Mozilla HTMLButtonElement.validity documentation> -getValidityUnchecked ::-                     (MonadIO m) => HTMLButtonElement -> m ValidityState-getValidityUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getValidity (self)))+getValidity :: (MonadIO m) => HTMLButtonElement -> m ValidityState+getValidity self = liftIO (js_getValidity self)   foreign import javascript unsafe "$1[\"validationMessage\"]"         js_getValidationMessage :: HTMLButtonElement -> IO JSString@@ -342,25 +264,11 @@ getValidationMessage ::                      (MonadIO m, FromJSString result) => HTMLButtonElement -> m result getValidationMessage self-  = liftIO (fromJSString <$> (js_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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.labels Mozilla HTMLButtonElement.labels documentation> -getLabelsUnsafe ::-                (MonadIO m, HasCallStack) => HTMLButtonElement -> m NodeList-getLabelsUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getLabels (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        HTMLButtonElement -> IO NodeList  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.labels Mozilla HTMLButtonElement.labels documentation> -getLabelsUnchecked ::-                   (MonadIO m) => HTMLButtonElement -> m NodeList-getLabelsUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getLabels (self)))+getLabels :: (MonadIO m) => HTMLButtonElement -> m NodeList+getLabels self = liftIO (js_getLabels self)
src/GHCJS/DOM/JSFFI/Generated/HTMLCanvasElement.hs view
@@ -4,17 +4,17 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLCanvasElement-       (js_toDataURL, toDataURL, toDataURL_, js_getContext, getContext,-        getContext_, js_probablySupportsContext, probablySupportsContext,-        probablySupportsContext_, js_setWidth, setWidth, js_getWidth,-        getWidth, js_setHeight, setHeight, js_getHeight, getHeight,-        HTMLCanvasElement(..), gTypeHTMLCanvasElement)+       (js_getContext, getContext, getContext_, getContextUnsafe,+        getContextUnchecked, js_toDataURL, toDataURL, toDataURL_,+        js_setWidth, setWidth, js_getWidth, getWidth, js_setHeight,+        setHeight, js_getHeight, getHeight, HTMLCanvasElement(..),+        gTypeHTMLCanvasElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -23,14 +23,67 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums  +foreign import javascript unsafe "$1[\"getContext\"]($2, $3)"+        js_getContext ::+        HTMLCanvasElement ->+          JSString -> JSVal -> IO (Nullable RenderingContext)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLCanvasElement.getContext Mozilla HTMLCanvasElement.getContext documentation> +getContext ::+           (MonadIO m, ToJSString contextId, ToJSVal arguments) =>+             HTMLCanvasElement ->+               contextId -> [arguments] -> m (Maybe RenderingContext)+getContext self contextId arguments+  = liftIO+      (nullableToMaybe <$>+         (toJSVal arguments >>=+            \ arguments' ->+              js_getContext self (toJSString contextId) arguments'))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLCanvasElement.getContext Mozilla HTMLCanvasElement.getContext documentation> +getContext_ ::+            (MonadIO m, ToJSString contextId, ToJSVal arguments) =>+              HTMLCanvasElement -> contextId -> [arguments] -> m ()+getContext_ self contextId arguments+  = liftIO+      (void+         (toJSVal arguments >>=+            \ arguments' ->+              js_getContext self (toJSString contextId) arguments'))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLCanvasElement.getContext Mozilla HTMLCanvasElement.getContext documentation> +getContextUnsafe ::+                 (MonadIO m, ToJSString contextId, ToJSVal arguments,+                  HasCallStack) =>+                   HTMLCanvasElement -> contextId -> [arguments] -> m RenderingContext+getContextUnsafe self contextId arguments+  = liftIO+      ((nullableToMaybe <$>+          (toJSVal arguments >>=+             \ arguments' ->+               js_getContext self (toJSString contextId) arguments'))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLCanvasElement.getContext Mozilla HTMLCanvasElement.getContext documentation> +getContextUnchecked ::+                    (MonadIO m, ToJSString contextId, ToJSVal arguments) =>+                      HTMLCanvasElement -> contextId -> [arguments] -> m RenderingContext+getContextUnchecked self contextId arguments+  = liftIO+      (fromJust . nullableToMaybe <$>+         (toJSVal arguments >>=+            \ arguments' ->+              js_getContext self (toJSString contextId) arguments'))+  foreign import javascript unsafe "$1[\"toDataURL\"]($2)"         js_toDataURL ::-        HTMLCanvasElement -> Nullable JSString -> IO JSString+        HTMLCanvasElement -> Optional JSString -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLCanvasElement.toDataURL Mozilla HTMLCanvasElement.toDataURL documentation>  toDataURL ::@@ -38,75 +91,39 @@             HTMLCanvasElement -> Maybe type' -> m result toDataURL self type'   = liftIO-      (fromJSString <$> (js_toDataURL (self) (toMaybeJSString type')))+      (fromJSString <$> (js_toDataURL self (toOptionalJSString type')))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLCanvasElement.toDataURL Mozilla HTMLCanvasElement.toDataURL documentation>  toDataURL_ ::            (MonadIO m, ToJSString type') =>              HTMLCanvasElement -> Maybe type' -> m () toDataURL_ self type'-  = liftIO (void (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))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLCanvasElement.getContext Mozilla HTMLCanvasElement.getContext documentation> -getContext_ ::-            (MonadIO m, ToJSString contextId) =>-              HTMLCanvasElement -> contextId -> m ()-getContext_ self contextId-  = liftIO (void (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))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLCanvasElement.probablySupportsContext Mozilla HTMLCanvasElement.probablySupportsContext documentation> -probablySupportsContext_ ::-                         (MonadIO m, ToJSString contextId) =>-                           HTMLCanvasElement -> contextId -> m ()-probablySupportsContext_ self contextId-  = liftIO-      (void (js_probablySupportsContext (self) (toJSString contextId)))+  = liftIO (void (js_toDataURL self (toOptionalJSString type')))   foreign import javascript unsafe "$1[\"width\"] = $2;" js_setWidth-        :: HTMLCanvasElement -> Int -> IO ()+        :: HTMLCanvasElement -> Word -> 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)+setWidth :: (MonadIO m) => HTMLCanvasElement -> Word -> m ()+setWidth self val = liftIO (js_setWidth self val)   foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::-        HTMLCanvasElement -> IO Int+        HTMLCanvasElement -> IO Word  -- | <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))+getWidth :: (MonadIO m) => HTMLCanvasElement -> m Word+getWidth self = liftIO (js_getWidth self)   foreign import javascript unsafe "$1[\"height\"] = $2;"-        js_setHeight :: HTMLCanvasElement -> Int -> IO ()+        js_setHeight :: HTMLCanvasElement -> Word -> 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)+setHeight :: (MonadIO m) => HTMLCanvasElement -> Word -> m ()+setHeight self val = liftIO (js_setHeight self val)   foreign import javascript unsafe "$1[\"height\"]" js_getHeight ::-        HTMLCanvasElement -> IO Int+        HTMLCanvasElement -> IO Word  -- | <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))+getHeight :: (MonadIO m) => HTMLCanvasElement -> m Word+getHeight self = liftIO (js_getHeight self)
src/GHCJS/DOM/JSFFI/Generated/HTMLCollection.hs view
@@ -13,7 +13,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -22,18 +22,19 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums  -foreign import javascript unsafe "$1[\"item\"]($2)" js_item ::-        HTMLCollection -> Word -> IO (Nullable Node)+foreign import javascript unsafe "$1[$2]" js_item ::+        HTMLCollection -> Word -> IO (Nullable Element)  -- | <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)+       self -> Word -> m (Maybe Element) item self index   = liftIO       (nullableToMaybe <$> (js_item (toHTMLCollection self) index))@@ -46,7 +47,7 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLCollection.item Mozilla HTMLCollection.item documentation>  itemUnsafe ::            (MonadIO m, IsHTMLCollection self, HasCallStack) =>-             self -> Word -> m Node+             self -> Word -> m Element itemUnsafe self index   = liftIO       ((nullableToMaybe <$> (js_item (toHTMLCollection self) index)) >>=@@ -54,19 +55,19 @@  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLCollection.item Mozilla HTMLCollection.item documentation>  itemUnchecked ::-              (MonadIO m, IsHTMLCollection self) => self -> Word -> m Node+              (MonadIO m, IsHTMLCollection self) => self -> Word -> m Element itemUnchecked self index   = liftIO       (fromJust . nullableToMaybe <$>          (js_item (toHTMLCollection self) index))  -foreign import javascript unsafe "$1[\"namedItem\"]($2)"-        js_namedItem :: HTMLCollection -> JSString -> IO (Nullable Node)+foreign import javascript unsafe "$1[$2]" js_namedItem ::+        HTMLCollection -> JSString -> IO (Nullable Element)  -- | <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)+            self -> name -> m (Maybe Element) namedItem self name   = liftIO       (nullableToMaybe <$>@@ -84,7 +85,7 @@ namedItemUnsafe ::                 (MonadIO m, IsHTMLCollection self, ToJSString name,                  HasCallStack) =>-                  self -> name -> m Node+                  self -> name -> m Element namedItemUnsafe self name   = liftIO       ((nullableToMaybe <$>@@ -94,7 +95,7 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLCollection.namedItem Mozilla HTMLCollection.namedItem documentation>  namedItemUnchecked ::                    (MonadIO m, IsHTMLCollection self, ToJSString name) =>-                     self -> name -> m Node+                     self -> name -> m Element namedItemUnchecked self name   = liftIO       (fromJust . nullableToMaybe <$>
src/GHCJS/DOM/JSFFI/Generated/HTMLDListElement.hs view
@@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -20,6 +20,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -30,11 +31,11 @@  -- | <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)+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))+getCompact self = liftIO (js_getCompact self)
+ src/GHCJS/DOM/JSFFI/Generated/HTMLDataElement.hs view
@@ -0,0 +1,43 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+module GHCJS.DOM.JSFFI.Generated.HTMLDataElement+       (js_setValue, setValue, js_getValue, getValue, HTMLDataElement(..),+        gTypeHTMLDataElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error)+import Data.Typeable (Typeable)+import GHCJS.Types (JSVal(..), JSString)+import GHCJS.Foreign (jsNull, jsUndefined)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Control.Monad (void)+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import Data.Maybe (fromJust)+import Data.Traversable (mapM)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue+        :: HTMLDataElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDataElement.value Mozilla HTMLDataElement.value documentation> +setValue ::+         (MonadIO m, ToJSString val) => HTMLDataElement -> val -> m ()+setValue self val = liftIO (js_setValue self (toJSString val))+ +foreign import javascript unsafe "$1[\"value\"]" js_getValue ::+        HTMLDataElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDataElement.value Mozilla HTMLDataElement.value documentation> +getValue ::+         (MonadIO m, FromJSString result) => HTMLDataElement -> m result+getValue self = liftIO (fromJSString <$> (js_getValue self))
src/GHCJS/DOM/JSFFI/Generated/HTMLDataListElement.hs view
@@ -4,14 +4,14 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLDataListElement-       (js_getOptions, getOptions, getOptionsUnsafe, getOptionsUnchecked,-        HTMLDataListElement(..), gTypeHTMLDataListElement)+       (js_getOptions, getOptions, HTMLDataListElement(..),+        gTypeHTMLDataListElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -20,31 +20,16 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums   foreign import javascript unsafe "$1[\"options\"]" js_getOptions ::-        HTMLDataListElement -> IO (Nullable HTMLCollection)+        HTMLDataListElement -> IO 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDataListElement.options Mozilla HTMLDataListElement.options documentation> -getOptionsUnsafe ::-                 (MonadIO m, HasCallStack) =>-                   HTMLDataListElement -> m HTMLCollection-getOptionsUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getOptions (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDataListElement.options Mozilla HTMLDataListElement.options documentation> -getOptionsUnchecked ::-                    (MonadIO m) => HTMLDataListElement -> m HTMLCollection-getOptionsUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getOptions (self)))+           (MonadIO m) => HTMLDataListElement -> m HTMLCollection+getOptions self = liftIO (js_getOptions self)
src/GHCJS/DOM/JSFFI/Generated/HTMLDetailsElement.hs view
@@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -20,6 +20,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -30,11 +31,11 @@  -- | <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)+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))+getOpen self = liftIO (js_getOpen self)
src/GHCJS/DOM/JSFFI/Generated/HTMLDirectoryElement.hs view
@@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -20,6 +20,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -30,11 +31,11 @@  -- | <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)+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))+getCompact self = liftIO (js_getCompact self)
src/GHCJS/DOM/JSFFI/Generated/HTMLDivElement.hs view
@@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -20,6 +20,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -31,7 +32,7 @@ -- | <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))+setAlign self val = liftIO (js_setAlign self (toJSString val))   foreign import javascript unsafe "$1[\"align\"]" js_getAlign ::         HTMLDivElement -> IO JSString@@ -39,4 +40,4 @@ -- | <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)))+getAlign self = liftIO (fromJSString <$> (js_getAlign self))
src/GHCJS/DOM/JSFFI/Generated/HTMLDocument.hs view
@@ -6,19 +6,11 @@ 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,-        getEmbedsUnsafe, getEmbedsUnchecked, js_getPlugins, getPlugins,-        getPluginsUnsafe, getPluginsUnchecked, js_getScripts, getScripts,-        getScriptsUnsafe, getScriptsUnchecked, js_getAll, getAll,-        getAllUnsafe, getAllUnchecked, js_getWidth, getWidth, js_getHeight,-        getHeight, js_setDir, setDir, js_getDir, getDir, getDirUnsafe,-        getDirUnchecked, js_setDesignMode, setDesignMode, js_getDesignMode,-        getDesignMode, getDesignModeUnsafe, getDesignModeUnchecked,-        js_getCompatMode, getCompatMode, js_setBgColor, setBgColor,-        js_getBgColor, getBgColor, getBgColorUnsafe, getBgColorUnchecked,-        js_setFgColor, setFgColor, js_getFgColor, getFgColor,-        getFgColorUnsafe, getFgColorUnchecked, js_setAlinkColor,-        setAlinkColor, js_getAlinkColor, getAlinkColor,+        js_releaseEvents, releaseEvents, js_getAll, getAll, js_setBgColor,+        setBgColor, js_getBgColor, getBgColor, getBgColorUnsafe,+        getBgColorUnchecked, js_setFgColor, setFgColor, js_getFgColor,+        getFgColor, getFgColorUnsafe, getFgColorUnchecked,+        js_setAlinkColor, setAlinkColor, js_getAlinkColor, getAlinkColor,         getAlinkColorUnsafe, getAlinkColorUnchecked, js_setLinkColor,         setLinkColor, js_getLinkColor, getLinkColor, getLinkColorUnsafe,         getLinkColorUnchecked, js_setVlinkColor, setVlinkColor,@@ -29,7 +21,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -38,6 +30,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -48,240 +41,68 @@  -- | <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))+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))+close self = liftIO (js_close self)   foreign import javascript unsafe "$1[\"write\"]($2)" js_write ::-        HTMLDocument -> JSString -> IO ()+        HTMLDocument -> Optional 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))+      (MonadIO m, ToJSString text) => HTMLDocument -> Maybe text -> m ()+write self text = liftIO (js_write self (toOptionalJSString text))   foreign import javascript unsafe "$1[\"writeln\"]($2)" js_writeln-        :: HTMLDocument -> JSString -> IO ()+        :: HTMLDocument -> Optional 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))+        (MonadIO m, ToJSString text) => HTMLDocument -> Maybe text -> m ()+writeln self text+  = liftIO (js_writeln self (toOptionalJSString 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))+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))+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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.embeds Mozilla HTMLDocument.embeds documentation> -getEmbedsUnsafe ::-                (MonadIO m, HasCallStack) => HTMLDocument -> m HTMLCollection-getEmbedsUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getEmbeds (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.embeds Mozilla HTMLDocument.embeds documentation> -getEmbedsUnchecked ::-                   (MonadIO m) => HTMLDocument -> m HTMLCollection-getEmbedsUnchecked self-  = liftIO (fromJust . 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.plugins Mozilla HTMLDocument.plugins documentation> -getPluginsUnsafe ::-                 (MonadIO m, HasCallStack) => HTMLDocument -> m HTMLCollection-getPluginsUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getPlugins (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.plugins Mozilla HTMLDocument.plugins documentation> -getPluginsUnchecked ::-                    (MonadIO m) => HTMLDocument -> m HTMLCollection-getPluginsUnchecked self-  = liftIO (fromJust . 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.scripts Mozilla HTMLDocument.scripts documentation> -getScriptsUnsafe ::-                 (MonadIO m, HasCallStack) => HTMLDocument -> m HTMLCollection-getScriptsUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getScripts (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.scripts Mozilla HTMLDocument.scripts documentation> -getScriptsUnchecked ::-                    (MonadIO m) => HTMLDocument -> m HTMLCollection-getScriptsUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getScripts (self)))+releaseEvents self = liftIO (js_releaseEvents 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.all Mozilla HTMLDocument.all documentation> -getAllUnsafe ::-             (MonadIO m, HasCallStack) => HTMLDocument -> m HTMLAllCollection-getAllUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getAll (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        HTMLDocument -> IO HTMLAllCollection  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.all Mozilla HTMLDocument.all documentation> -getAllUnchecked ::-                (MonadIO m) => HTMLDocument -> m HTMLAllCollection-getAllUnchecked self-  = liftIO (fromJust . 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.dir Mozilla HTMLDocument.dir documentation> -getDirUnsafe ::-             (MonadIO m, HasCallStack, FromJSString result) =>-               HTMLDocument -> m result-getDirUnsafe self-  = liftIO-      ((fromMaybeJSString <$> (js_getDir (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.dir Mozilla HTMLDocument.dir documentation> -getDirUnchecked ::-                (MonadIO m, FromJSString result) => HTMLDocument -> m result-getDirUnchecked self-  = liftIO (fromJust . 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.designMode Mozilla HTMLDocument.designMode documentation> -getDesignModeUnsafe ::-                    (MonadIO m, HasCallStack, FromJSString result) =>-                      HTMLDocument -> m result-getDesignModeUnsafe self-  = liftIO-      ((fromMaybeJSString <$> (js_getDesignMode (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.designMode Mozilla HTMLDocument.designMode documentation> -getDesignModeUnchecked ::-                       (MonadIO m, FromJSString result) => HTMLDocument -> m result-getDesignModeUnchecked self-  = liftIO-      (fromJust . 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)))+getAll :: (MonadIO m) => HTMLDocument -> m HTMLAllCollection+getAll self = liftIO (js_getAll self)   foreign import javascript unsafe "$1[\"bgColor\"] = $2;"-        js_setBgColor :: HTMLDocument -> Nullable JSString -> IO ()+        js_setBgColor :: HTMLDocument -> Optional 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))+  = liftIO (js_setBgColor self (toOptionalJSString val))   foreign import javascript unsafe "$1[\"bgColor\"]" js_getBgColor ::         HTMLDocument -> IO (Nullable JSString)@@ -291,7 +112,7 @@            (MonadIO m, FromJSString result) =>              HTMLDocument -> m (Maybe result) getBgColor self-  = liftIO (fromMaybeJSString <$> (js_getBgColor (self)))+  = liftIO (fromMaybeJSString <$> (js_getBgColor self))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.bgColor Mozilla HTMLDocument.bgColor documentation>  getBgColorUnsafe ::@@ -299,23 +120,23 @@                    HTMLDocument -> m result getBgColorUnsafe self   = liftIO-      ((fromMaybeJSString <$> (js_getBgColor (self))) >>=+      ((fromMaybeJSString <$> (js_getBgColor self)) >>=          maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.bgColor Mozilla HTMLDocument.bgColor documentation>  getBgColorUnchecked ::                     (MonadIO m, FromJSString result) => HTMLDocument -> m result getBgColorUnchecked self-  = liftIO (fromJust . fromMaybeJSString <$> (js_getBgColor (self)))+  = liftIO (fromJust . fromMaybeJSString <$> (js_getBgColor self))   foreign import javascript unsafe "$1[\"fgColor\"] = $2;"-        js_setFgColor :: HTMLDocument -> Nullable JSString -> IO ()+        js_setFgColor :: HTMLDocument -> Optional 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))+  = liftIO (js_setFgColor self (toOptionalJSString val))   foreign import javascript unsafe "$1[\"fgColor\"]" js_getFgColor ::         HTMLDocument -> IO (Nullable JSString)@@ -325,7 +146,7 @@            (MonadIO m, FromJSString result) =>              HTMLDocument -> m (Maybe result) getFgColor self-  = liftIO (fromMaybeJSString <$> (js_getFgColor (self)))+  = liftIO (fromMaybeJSString <$> (js_getFgColor self))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.fgColor Mozilla HTMLDocument.fgColor documentation>  getFgColorUnsafe ::@@ -333,23 +154,23 @@                    HTMLDocument -> m result getFgColorUnsafe self   = liftIO-      ((fromMaybeJSString <$> (js_getFgColor (self))) >>=+      ((fromMaybeJSString <$> (js_getFgColor self)) >>=          maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.fgColor Mozilla HTMLDocument.fgColor documentation>  getFgColorUnchecked ::                     (MonadIO m, FromJSString result) => HTMLDocument -> m result getFgColorUnchecked self-  = liftIO (fromJust . fromMaybeJSString <$> (js_getFgColor (self)))+  = liftIO (fromJust . fromMaybeJSString <$> (js_getFgColor self))   foreign import javascript unsafe "$1[\"alinkColor\"] = $2;"-        js_setAlinkColor :: HTMLDocument -> Nullable JSString -> IO ()+        js_setAlinkColor :: HTMLDocument -> Optional 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))+  = liftIO (js_setAlinkColor self (toOptionalJSString val))   foreign import javascript unsafe "$1[\"alinkColor\"]"         js_getAlinkColor :: HTMLDocument -> IO (Nullable JSString)@@ -359,7 +180,7 @@               (MonadIO m, FromJSString result) =>                 HTMLDocument -> m (Maybe result) getAlinkColor self-  = liftIO (fromMaybeJSString <$> (js_getAlinkColor (self)))+  = liftIO (fromMaybeJSString <$> (js_getAlinkColor self))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.alinkColor Mozilla HTMLDocument.alinkColor documentation>  getAlinkColorUnsafe ::@@ -367,24 +188,23 @@                       HTMLDocument -> m result getAlinkColorUnsafe self   = liftIO-      ((fromMaybeJSString <$> (js_getAlinkColor (self))) >>=+      ((fromMaybeJSString <$> (js_getAlinkColor self)) >>=          maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.alinkColor Mozilla HTMLDocument.alinkColor documentation>  getAlinkColorUnchecked ::                        (MonadIO m, FromJSString result) => HTMLDocument -> m result getAlinkColorUnchecked self-  = liftIO-      (fromJust . fromMaybeJSString <$> (js_getAlinkColor (self)))+  = liftIO (fromJust . fromMaybeJSString <$> (js_getAlinkColor self))   foreign import javascript unsafe "$1[\"linkColor\"] = $2;"-        js_setLinkColor :: HTMLDocument -> Nullable JSString -> IO ()+        js_setLinkColor :: HTMLDocument -> Optional 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))+  = liftIO (js_setLinkColor self (toOptionalJSString val))   foreign import javascript unsafe "$1[\"linkColor\"]"         js_getLinkColor :: HTMLDocument -> IO (Nullable JSString)@@ -394,7 +214,7 @@              (MonadIO m, FromJSString result) =>                HTMLDocument -> m (Maybe result) getLinkColor self-  = liftIO (fromMaybeJSString <$> (js_getLinkColor (self)))+  = liftIO (fromMaybeJSString <$> (js_getLinkColor self))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.linkColor Mozilla HTMLDocument.linkColor documentation>  getLinkColorUnsafe ::@@ -402,24 +222,23 @@                      HTMLDocument -> m result getLinkColorUnsafe self   = liftIO-      ((fromMaybeJSString <$> (js_getLinkColor (self))) >>=+      ((fromMaybeJSString <$> (js_getLinkColor self)) >>=          maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.linkColor Mozilla HTMLDocument.linkColor documentation>  getLinkColorUnchecked ::                       (MonadIO m, FromJSString result) => HTMLDocument -> m result getLinkColorUnchecked self-  = liftIO-      (fromJust . fromMaybeJSString <$> (js_getLinkColor (self)))+  = liftIO (fromJust . fromMaybeJSString <$> (js_getLinkColor self))   foreign import javascript unsafe "$1[\"vlinkColor\"] = $2;"-        js_setVlinkColor :: HTMLDocument -> Nullable JSString -> IO ()+        js_setVlinkColor :: HTMLDocument -> Optional 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))+  = liftIO (js_setVlinkColor self (toOptionalJSString val))   foreign import javascript unsafe "$1[\"vlinkColor\"]"         js_getVlinkColor :: HTMLDocument -> IO (Nullable JSString)@@ -429,7 +248,7 @@               (MonadIO m, FromJSString result) =>                 HTMLDocument -> m (Maybe result) getVlinkColor self-  = liftIO (fromMaybeJSString <$> (js_getVlinkColor (self)))+  = liftIO (fromMaybeJSString <$> (js_getVlinkColor self))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.vlinkColor Mozilla HTMLDocument.vlinkColor documentation>  getVlinkColorUnsafe ::@@ -437,12 +256,11 @@                       HTMLDocument -> m result getVlinkColorUnsafe self   = liftIO-      ((fromMaybeJSString <$> (js_getVlinkColor (self))) >>=+      ((fromMaybeJSString <$> (js_getVlinkColor self)) >>=          maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.vlinkColor Mozilla HTMLDocument.vlinkColor documentation>  getVlinkColorUnchecked ::                        (MonadIO m, FromJSString result) => HTMLDocument -> m result getVlinkColorUnchecked self-  = liftIO-      (fromJust . fromMaybeJSString <$> (js_getVlinkColor (self)))+  = liftIO (fromJust . fromMaybeJSString <$> (js_getVlinkColor self))
src/GHCJS/DOM/JSFFI/Generated/HTMLElement.hs view
@@ -4,11 +4,8 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLElement-       (js_insertAdjacentElement, insertAdjacentElement,-        insertAdjacentElement_, insertAdjacentElementUnsafe,-        insertAdjacentElementUnchecked, js_insertAdjacentHTML,-        insertAdjacentHTML, js_insertAdjacentText, insertAdjacentText,-        js_click, click, js_setTitle, setTitle, js_getTitle, getTitle,+       (js_newHTMLElement, newHTMLElement, js_click, click, js_focus,+        focus, js_blur, blur, 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,@@ -20,19 +17,21 @@         js_getInnerText, getInnerText, getInnerTextUnsafe,         getInnerTextUnchecked, js_setOuterText, setOuterText,         js_getOuterText, getOuterText, getOuterTextUnsafe,-        getOuterTextUnchecked, js_getChildren, getChildren,-        getChildrenUnsafe, getChildrenUnchecked, js_setContentEditable,-        setContentEditable, js_getContentEditable, getContentEditable,-        getContentEditableUnsafe, getContentEditableUnchecked,-        js_getIsContentEditable, getIsContentEditable, js_setSpellcheck,-        setSpellcheck, js_getSpellcheck, getSpellcheck, HTMLElement(..),-        gTypeHTMLElement, IsHTMLElement, toHTMLElement)+        getOuterTextUnchecked, js_setContentEditable, setContentEditable,+        js_getContentEditable, getContentEditable, js_getIsContentEditable,+        getIsContentEditable, js_setSpellcheck, setSpellcheck,+        js_getSpellcheck, getSpellcheck, js_setAutocorrect, setAutocorrect,+        js_getAutocorrect, getAutocorrect, js_setAutocapitalize,+        setAutocapitalize, js_getAutocapitalize, getAutocapitalize,+        getAutocapitalizeUnsafe, getAutocapitalizeUnchecked, js_getDataset,+        getDataset, HTMLElement(..), gTypeHTMLElement, IsHTMLElement,+        toHTMLElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -41,89 +40,18 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) 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))))---- | <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 ()-insertAdjacentElement_ self where' element-  = liftIO-      (void-         (js_insertAdjacentElement (toHTMLElement self) (toJSString where')-            (maybeToNullable (fmap toElement element))))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.insertAdjacentElement Mozilla HTMLElement.insertAdjacentElement documentation> -insertAdjacentElementUnsafe ::-                            (MonadIO m, IsHTMLElement self, ToJSString where',-                             IsElement element, HasCallStack) =>-                              self -> where' -> Maybe element -> m Element-insertAdjacentElementUnsafe self where' element-  = liftIO-      ((nullableToMaybe <$>-          (js_insertAdjacentElement (toHTMLElement self) (toJSString where')-             (maybeToNullable (fmap toElement element))))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.insertAdjacentElement Mozilla HTMLElement.insertAdjacentElement documentation> -insertAdjacentElementUnchecked ::-                               (MonadIO m, IsHTMLElement self, ToJSString where',-                                IsElement element) =>-                                 self -> where' -> Maybe element -> m Element-insertAdjacentElementUnchecked self where' element-  = liftIO-      (fromJust . 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 ()+foreign import javascript unsafe "new window[\"HTMLElement\"]()"+        js_newHTMLElement :: IO HTMLElement --- | <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))+-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement Mozilla HTMLElement documentation> +newHTMLElement :: (MonadIO m) => m HTMLElement+newHTMLElement = liftIO (js_newHTMLElement)   foreign import javascript unsafe "$1[\"click\"]()" js_click ::         HTMLElement -> IO ()@@ -132,6 +60,20 @@ click :: (MonadIO m, IsHTMLElement self) => self -> m () click self = liftIO (js_click (toHTMLElement self))  +foreign import javascript unsafe "$1[\"focus\"]()" js_focus ::+        HTMLElement -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.focus Mozilla HTMLElement.focus documentation> +focus :: (MonadIO m, IsHTMLElement self) => self -> m ()+focus self = liftIO (js_focus (toHTMLElement self))+ +foreign import javascript unsafe "$1[\"blur\"]()" js_blur ::+        HTMLElement -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.blur Mozilla HTMLElement.blur documentation> +blur :: (MonadIO m, IsHTMLElement self) => self -> m ()+blur self = liftIO (js_blur (toHTMLElement self))+  foreign import javascript unsafe "$1[\"title\"] = $2;" js_setTitle         :: HTMLElement -> JSString -> IO () @@ -298,7 +240,7 @@   = liftIO (fromJSString <$> (js_getAccessKey (toHTMLElement self)))   foreign import javascript unsafe "$1[\"innerText\"] = $2;"-        js_setInnerText :: HTMLElement -> Nullable JSString -> IO ()+        js_setInnerText :: HTMLElement -> Optional JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.innerText Mozilla HTMLElement.innerText documentation>  setInnerText ::@@ -306,7 +248,7 @@                self -> Maybe val -> m () setInnerText self val   = liftIO-      (js_setInnerText (toHTMLElement self) (toMaybeJSString val))+      (js_setInnerText (toHTMLElement self) (toOptionalJSString val))   foreign import javascript unsafe "$1[\"innerText\"]"         js_getInnerText :: HTMLElement -> IO (Nullable JSString)@@ -339,7 +281,7 @@          (js_getInnerText (toHTMLElement self)))   foreign import javascript unsafe "$1[\"outerText\"] = $2;"-        js_setOuterText :: HTMLElement -> Nullable JSString -> IO ()+        js_setOuterText :: HTMLElement -> Optional JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.outerText Mozilla HTMLElement.outerText documentation>  setOuterText ::@@ -347,7 +289,7 @@                self -> Maybe val -> m () setOuterText self val   = liftIO-      (js_setOuterText (toHTMLElement self) (toMaybeJSString val))+      (js_setOuterText (toHTMLElement self) (toOptionalJSString val))   foreign import javascript unsafe "$1[\"outerText\"]"         js_getOuterText :: HTMLElement -> IO (Nullable JSString)@@ -379,75 +321,27 @@       (fromJust . 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.children Mozilla HTMLElement.children documentation> -getChildrenUnsafe ::-                  (MonadIO m, IsHTMLElement self, HasCallStack) =>-                    self -> m HTMLCollection-getChildrenUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getChildren (toHTMLElement self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.children Mozilla HTMLElement.children documentation> -getChildrenUnchecked ::-                     (MonadIO m, IsHTMLElement self) => self -> m HTMLCollection-getChildrenUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_getChildren (toHTMLElement self)))-  foreign import javascript unsafe "$1[\"contentEditable\"] = $2;"-        js_setContentEditable :: HTMLElement -> Nullable JSString -> IO ()+        js_setContentEditable :: HTMLElement -> 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 ()+                     self -> val -> m () setContentEditable self val   = liftIO-      (js_setContentEditable (toHTMLElement self) (toMaybeJSString val))+      (js_setContentEditable (toHTMLElement self) (toJSString val))   foreign import javascript unsafe "$1[\"contentEditable\"]"-        js_getContentEditable :: HTMLElement -> IO (Nullable JSString)+        js_getContentEditable :: HTMLElement -> IO 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)+                     self -> m result getContentEditable self   = liftIO-      (fromMaybeJSString <$>-         (js_getContentEditable (toHTMLElement self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.contentEditable Mozilla HTMLElement.contentEditable documentation> -getContentEditableUnsafe ::-                         (MonadIO m, IsHTMLElement self, HasCallStack,-                          FromJSString result) =>-                           self -> m result-getContentEditableUnsafe self-  = liftIO-      ((fromMaybeJSString <$>-          (js_getContentEditable (toHTMLElement self)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.contentEditable Mozilla HTMLElement.contentEditable documentation> -getContentEditableUnchecked ::-                            (MonadIO m, IsHTMLElement self, FromJSString result) =>-                              self -> m result-getContentEditableUnchecked self-  = liftIO-      (fromJust . fromMaybeJSString <$>-         (js_getContentEditable (toHTMLElement self)))+      (fromJSString <$> (js_getContentEditable (toHTMLElement self)))   foreign import javascript unsafe         "($1[\"isContentEditable\"] ? 1 : 0)" js_getIsContentEditable ::@@ -474,3 +368,71 @@ -- | <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))+ +foreign import javascript unsafe "$1[\"autocorrect\"] = $2;"+        js_setAutocorrect :: HTMLElement -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.autocorrect Mozilla HTMLElement.autocorrect documentation> +setAutocorrect ::+               (MonadIO m, IsHTMLElement self) => self -> Bool -> m ()+setAutocorrect self val+  = liftIO (js_setAutocorrect (toHTMLElement self) val)+ +foreign import javascript unsafe "($1[\"autocorrect\"] ? 1 : 0)"+        js_getAutocorrect :: HTMLElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.autocorrect Mozilla HTMLElement.autocorrect documentation> +getAutocorrect :: (MonadIO m, IsHTMLElement self) => self -> m Bool+getAutocorrect self+  = liftIO (js_getAutocorrect (toHTMLElement self))+ +foreign import javascript unsafe "$1[\"autocapitalize\"] = $2;"+        js_setAutocapitalize :: HTMLElement -> Optional JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.autocapitalize Mozilla HTMLElement.autocapitalize documentation> +setAutocapitalize ::+                  (MonadIO m, IsHTMLElement self, ToJSString val) =>+                    self -> Maybe val -> m ()+setAutocapitalize self val+  = liftIO+      (js_setAutocapitalize (toHTMLElement self)+         (toOptionalJSString val))+ +foreign import javascript unsafe "$1[\"autocapitalize\"]"+        js_getAutocapitalize :: HTMLElement -> IO (Nullable JSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.autocapitalize Mozilla HTMLElement.autocapitalize documentation> +getAutocapitalize ::+                  (MonadIO m, IsHTMLElement self, FromJSString result) =>+                    self -> m (Maybe result)+getAutocapitalize self+  = liftIO+      (fromMaybeJSString <$> (js_getAutocapitalize (toHTMLElement self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.autocapitalize Mozilla HTMLElement.autocapitalize documentation> +getAutocapitalizeUnsafe ::+                        (MonadIO m, IsHTMLElement self, HasCallStack,+                         FromJSString result) =>+                          self -> m result+getAutocapitalizeUnsafe self+  = liftIO+      ((fromMaybeJSString <$>+          (js_getAutocapitalize (toHTMLElement self)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.autocapitalize Mozilla HTMLElement.autocapitalize documentation> +getAutocapitalizeUnchecked ::+                           (MonadIO m, IsHTMLElement self, FromJSString result) =>+                             self -> m result+getAutocapitalizeUnchecked self+  = liftIO+      (fromJust . fromMaybeJSString <$>+         (js_getAutocapitalize (toHTMLElement self)))+ +foreign import javascript unsafe "$1[\"dataset\"]" js_getDataset ::+        HTMLElement -> IO DOMStringMap++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.dataset Mozilla HTMLElement.dataset documentation> +getDataset ::+           (MonadIO m, IsHTMLElement self) => self -> m DOMStringMap+getDataset self = liftIO (js_getDataset (toHTMLElement self))
src/GHCJS/DOM/JSFFI/Generated/HTMLEmbedElement.hs view
@@ -4,8 +4,7 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLEmbedElement-       (js_getSVGDocument, getSVGDocument, getSVGDocument_,-        getSVGDocumentUnsafe, getSVGDocumentUnchecked, js_setAlign,+       (js_getSVGDocument, 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,@@ -16,7 +15,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -25,38 +24,22 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums   foreign import javascript unsafe "$1[\"getSVGDocument\"]()"-        js_getSVGDocument :: HTMLEmbedElement -> IO (Nullable SVGDocument)+        js_getSVGDocument :: HTMLEmbedElement -> IO Document  -- | <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)))+getSVGDocument :: (MonadIO m) => HTMLEmbedElement -> m Document+getSVGDocument self = liftIO (js_getSVGDocument self)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLEmbedElement.getSVGDocument Mozilla HTMLEmbedElement.getSVGDocument documentation>  getSVGDocument_ :: (MonadIO m) => HTMLEmbedElement -> m ()-getSVGDocument_ self = liftIO (void (js_getSVGDocument (self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLEmbedElement.getSVGDocument Mozilla HTMLEmbedElement.getSVGDocument documentation> -getSVGDocumentUnsafe ::-                     (MonadIO m, HasCallStack) => HTMLEmbedElement -> m SVGDocument-getSVGDocumentUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getSVGDocument (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLEmbedElement.getSVGDocument Mozilla HTMLEmbedElement.getSVGDocument documentation> -getSVGDocumentUnchecked ::-                        (MonadIO m) => HTMLEmbedElement -> m SVGDocument-getSVGDocumentUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$> (js_getSVGDocument (self)))+getSVGDocument_ self = liftIO (void (js_getSVGDocument self))   foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign         :: HTMLEmbedElement -> JSString -> IO ()@@ -64,7 +47,7 @@ -- | <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))+setAlign self val = liftIO (js_setAlign self (toJSString val))   foreign import javascript unsafe "$1[\"align\"]" js_getAlign ::         HTMLEmbedElement -> IO JSString@@ -72,7 +55,7 @@ -- | <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)))+getAlign self = liftIO (fromJSString <$> (js_getAlign self))   foreign import javascript unsafe "$1[\"height\"] = $2;"         js_setHeight :: HTMLEmbedElement -> JSString -> IO ()@@ -80,7 +63,7 @@ -- | <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))+setHeight self val = liftIO (js_setHeight self (toJSString val))   foreign import javascript unsafe "$1[\"height\"]" js_getHeight ::         HTMLEmbedElement -> IO JSString@@ -88,7 +71,7 @@ -- | <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)))+getHeight self = liftIO (fromJSString <$> (js_getHeight self))   foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName ::         HTMLEmbedElement -> JSString -> IO ()@@ -96,7 +79,7 @@ -- | <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))+setName self val = liftIO (js_setName self (toJSString val))   foreign import javascript unsafe "$1[\"name\"]" js_getName ::         HTMLEmbedElement -> IO JSString@@ -104,7 +87,7 @@ -- | <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)))+getName self = liftIO (fromJSString <$> (js_getName self))   foreign import javascript unsafe "$1[\"src\"] = $2;" js_setSrc ::         HTMLEmbedElement -> JSString -> IO ()@@ -112,7 +95,7 @@ -- | <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))+setSrc self val = liftIO (js_setSrc self (toJSString val))   foreign import javascript unsafe "$1[\"src\"]" js_getSrc ::         HTMLEmbedElement -> IO JSString@@ -120,7 +103,7 @@ -- | <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)))+getSrc self = liftIO (fromJSString <$> (js_getSrc self))   foreign import javascript unsafe "$1[\"type\"] = $2;" js_setType ::         HTMLEmbedElement -> JSString -> IO ()@@ -128,7 +111,7 @@ -- | <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))+setType self val = liftIO (js_setType self (toJSString val))   foreign import javascript unsafe "$1[\"type\"]" js_getType ::         HTMLEmbedElement -> IO JSString@@ -136,7 +119,7 @@ -- | <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)))+getType self = liftIO (fromJSString <$> (js_getType self))   foreign import javascript unsafe "$1[\"width\"] = $2;" js_setWidth         :: HTMLEmbedElement -> JSString -> IO ()@@ -144,7 +127,7 @@ -- | <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))+setWidth self val = liftIO (js_setWidth self (toJSString val))   foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::         HTMLEmbedElement -> IO JSString@@ -152,4 +135,4 @@ -- | <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)))+getWidth self = liftIO (fromJSString <$> (js_getWidth self))
src/GHCJS/DOM/JSFFI/Generated/HTMLFieldSetElement.hs view
@@ -5,13 +5,12 @@ {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLFieldSetElement        (js_checkValidity, checkValidity, checkValidity_,+        js_reportValidity, reportValidity, reportValidity_,         js_setCustomValidity, setCustomValidity, js_setDisabled,         setDisabled, js_getDisabled, getDisabled, js_getForm, getForm,-        getFormUnsafe, getFormUnchecked, js_setName, setName, js_getName,-        getName, js_getType, getType, js_getElements, getElements,-        getElementsUnsafe, getElementsUnchecked, js_getWillValidate,-        getWillValidate, js_getValidity, getValidity, getValidityUnsafe,-        getValidityUnchecked, js_getValidationMessage,+        js_setName, setName, js_getName, getName, js_getType, getType,+        js_getElements, getElements, js_getWillValidate, getWillValidate,+        js_getValidity, getValidity, js_getValidationMessage,         getValidationMessage, HTMLFieldSetElement(..),         gTypeHTMLFieldSetElement)        where@@ -19,7 +18,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -28,6 +27,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -39,59 +39,54 @@  -- | <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))+checkValidity self = liftIO (js_checkValidity self)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFieldSetElement.checkValidity Mozilla HTMLFieldSetElement.checkValidity documentation>  checkValidity_ :: (MonadIO m) => HTMLFieldSetElement -> m ()-checkValidity_ self = liftIO (void (js_checkValidity (self)))+checkValidity_ self = liftIO (void (js_checkValidity self))  +foreign import javascript unsafe+        "($1[\"reportValidity\"]() ? 1 : 0)" js_reportValidity ::+        HTMLFieldSetElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFieldSetElement.reportValidity Mozilla HTMLFieldSetElement.reportValidity documentation> +reportValidity :: (MonadIO m) => HTMLFieldSetElement -> m Bool+reportValidity self = liftIO (js_reportValidity self)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFieldSetElement.reportValidity Mozilla HTMLFieldSetElement.reportValidity documentation> +reportValidity_ :: (MonadIO m) => HTMLFieldSetElement -> m ()+reportValidity_ self = liftIO (void (js_reportValidity self))+  foreign import javascript unsafe "$1[\"setCustomValidity\"]($2)"-        js_setCustomValidity ::-        HTMLFieldSetElement -> Nullable JSString -> IO ()+        js_setCustomValidity :: HTMLFieldSetElement -> 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 ()+                    HTMLFieldSetElement -> error -> m () setCustomValidity self error-  = liftIO (js_setCustomValidity (self) (toMaybeJSString error))+  = liftIO (js_setCustomValidity self (toJSString 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)+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))+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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFieldSetElement.form Mozilla HTMLFieldSetElement.form documentation> -getFormUnsafe ::-              (MonadIO m, HasCallStack) =>-                HTMLFieldSetElement -> m HTMLFormElement-getFormUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getForm (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        HTMLFieldSetElement -> IO HTMLFormElement  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFieldSetElement.form Mozilla HTMLFieldSetElement.form documentation> -getFormUnchecked ::-                 (MonadIO m) => HTMLFieldSetElement -> m HTMLFormElement-getFormUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getForm (self)))+getForm :: (MonadIO m) => HTMLFieldSetElement -> m HTMLFormElement+getForm self = liftIO (js_getForm self)   foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName ::         HTMLFieldSetElement -> JSString -> IO ()@@ -99,7 +94,7 @@ -- | <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))+setName self val = liftIO (js_setName self (toJSString val))   foreign import javascript unsafe "$1[\"name\"]" js_getName ::         HTMLFieldSetElement -> IO JSString@@ -107,7 +102,7 @@ -- | <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)))+getName self = liftIO (fromJSString <$> (js_getName self))   foreign import javascript unsafe "$1[\"type\"]" js_getType ::         HTMLFieldSetElement -> IO JSString@@ -115,61 +110,30 @@ -- | <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)))+getType self = liftIO (fromJSString <$> (js_getType self))   foreign import javascript unsafe "$1[\"elements\"]" js_getElements-        :: HTMLFieldSetElement -> IO (Nullable HTMLCollection)+        :: HTMLFieldSetElement -> IO HTMLFormControlsCollection  -- | <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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFieldSetElement.elements Mozilla HTMLFieldSetElement.elements documentation> -getElementsUnsafe ::-                  (MonadIO m, HasCallStack) =>-                    HTMLFieldSetElement -> m HTMLCollection-getElementsUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getElements (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFieldSetElement.elements Mozilla HTMLFieldSetElement.elements documentation> -getElementsUnchecked ::-                     (MonadIO m) => HTMLFieldSetElement -> m HTMLCollection-getElementsUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getElements (self)))+            (MonadIO m) => HTMLFieldSetElement -> m HTMLFormControlsCollection+getElements self = liftIO (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))+getWillValidate self = liftIO (js_getWillValidate self)   foreign import javascript unsafe "$1[\"validity\"]" js_getValidity-        :: HTMLFieldSetElement -> IO (Nullable ValidityState)+        :: HTMLFieldSetElement -> IO 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFieldSetElement.validity Mozilla HTMLFieldSetElement.validity documentation> -getValidityUnsafe ::-                  (MonadIO m, HasCallStack) => HTMLFieldSetElement -> m ValidityState-getValidityUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getValidity (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFieldSetElement.validity Mozilla HTMLFieldSetElement.validity documentation> -getValidityUnchecked ::-                     (MonadIO m) => HTMLFieldSetElement -> m ValidityState-getValidityUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getValidity (self)))+            (MonadIO m) => HTMLFieldSetElement -> m ValidityState+getValidity self = liftIO (js_getValidity self)   foreign import javascript unsafe "$1[\"validationMessage\"]"         js_getValidationMessage :: HTMLFieldSetElement -> IO JSString@@ -178,4 +142,4 @@ getValidationMessage ::                      (MonadIO m, FromJSString result) => HTMLFieldSetElement -> m result getValidationMessage self-  = liftIO (fromJSString <$> (js_getValidationMessage (self)))+  = liftIO (fromJSString <$> (js_getValidationMessage self))
src/GHCJS/DOM/JSFFI/Generated/HTMLFontElement.hs view
@@ -4,15 +4,16 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} 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(..), gTypeHTMLFontElement)+       (js_setColor, setColor, js_getColor, getColor, getColorUnsafe,+        getColorUnchecked, js_setFace, setFace, js_getFace, getFace,+        js_setSize, setSize, js_getSize, getSize, HTMLFontElement(..),+        gTypeHTMLFontElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -21,26 +22,44 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums   foreign import javascript unsafe "$1[\"color\"] = $2;" js_setColor-        :: HTMLFontElement -> JSString -> IO ()+        :: HTMLFontElement -> Optional 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))+         (MonadIO m, ToJSString val) => HTMLFontElement -> Maybe val -> m ()+setColor self val+  = liftIO (js_setColor self (toOptionalJSString val))   foreign import javascript unsafe "$1[\"color\"]" js_getColor ::-        HTMLFontElement -> IO JSString+        HTMLFontElement -> IO (Nullable 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)))+         (MonadIO m, FromJSString result) =>+           HTMLFontElement -> m (Maybe result)+getColor self = liftIO (fromMaybeJSString <$> (js_getColor self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFontElement.color Mozilla HTMLFontElement.color documentation> +getColorUnsafe ::+               (MonadIO m, HasCallStack, FromJSString result) =>+                 HTMLFontElement -> m result+getColorUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getColor self)) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFontElement.color Mozilla HTMLFontElement.color documentation> +getColorUnchecked ::+                  (MonadIO m, FromJSString result) => HTMLFontElement -> m result+getColorUnchecked self+  = liftIO (fromJust . fromMaybeJSString <$> (js_getColor self))   foreign import javascript unsafe "$1[\"face\"] = $2;" js_setFace ::         HTMLFontElement -> JSString -> IO ()@@ -48,7 +67,7 @@ -- | <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))+setFace self val = liftIO (js_setFace self (toJSString val))   foreign import javascript unsafe "$1[\"face\"]" js_getFace ::         HTMLFontElement -> IO JSString@@ -56,7 +75,7 @@ -- | <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)))+getFace self = liftIO (fromJSString <$> (js_getFace self))   foreign import javascript unsafe "$1[\"size\"] = $2;" js_setSize ::         HTMLFontElement -> JSString -> IO ()@@ -64,7 +83,7 @@ -- | <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))+setSize self val = liftIO (js_setSize self (toJSString val))   foreign import javascript unsafe "$1[\"size\"]" js_getSize ::         HTMLFontElement -> IO JSString@@ -72,4 +91,4 @@ -- | <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)))+getSize self = liftIO (fromJSString <$> (js_getSize self))
src/GHCJS/DOM/JSFFI/Generated/HTMLFormControlsCollection.hs view
@@ -4,7 +4,7 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLFormControlsCollection-       (js__get, _get, _get_, _getUnsafe, _getUnchecked, js_namedItem,+       (js_get, get, get_, getUnsafe, getUnchecked, js_namedItem,         namedItem, namedItem_, namedItemUnsafe, namedItemUnchecked,         HTMLFormControlsCollection(..), gTypeHTMLFormControlsCollection)        where@@ -12,7 +12,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -21,72 +21,74 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums  -foreign import javascript unsafe "$1[\"_get\"]($2)" js__get ::-        HTMLFormControlsCollection -> Word -> IO (Nullable Node)+foreign import javascript unsafe "$1[$2]" js_get ::+        HTMLFormControlsCollection -> Word -> IO (Nullable HTMLElement) --- | <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))+-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormControlsCollection.get Mozilla HTMLFormControlsCollection.get documentation> +get ::+    (MonadIO m) =>+      HTMLFormControlsCollection -> Word -> m (Maybe HTMLElement)+get self index = liftIO (nullableToMaybe <$> (js_get self index)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormControlsCollection._get Mozilla HTMLFormControlsCollection._get documentation> -_get_ :: (MonadIO m) => HTMLFormControlsCollection -> Word -> m ()-_get_ self index = liftIO (void (js__get (self) index))+-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormControlsCollection.get Mozilla HTMLFormControlsCollection.get documentation> +get_ :: (MonadIO m) => HTMLFormControlsCollection -> Word -> m ()+get_ self index = liftIO (void (js_get self index)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormControlsCollection._get Mozilla HTMLFormControlsCollection._get documentation> -_getUnsafe ::-           (MonadIO m, HasCallStack) =>-             HTMLFormControlsCollection -> Word -> m Node-_getUnsafe self index+-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormControlsCollection.get Mozilla HTMLFormControlsCollection.get documentation> +getUnsafe ::+          (MonadIO m, HasCallStack) =>+            HTMLFormControlsCollection -> Word -> m HTMLElement+getUnsafe self index   = liftIO-      ((nullableToMaybe <$> (js__get (self) index)) >>=+      ((nullableToMaybe <$> (js_get self index)) >>=          maybe (Prelude.error "Nothing to return") return) --- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormControlsCollection._get Mozilla HTMLFormControlsCollection._get documentation> -_getUnchecked ::-              (MonadIO m) => HTMLFormControlsCollection -> Word -> m Node-_getUnchecked self index-  = liftIO (fromJust . nullableToMaybe <$> (js__get (self) index))+-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormControlsCollection.get Mozilla HTMLFormControlsCollection.get documentation> +getUnchecked ::+             (MonadIO m) => HTMLFormControlsCollection -> Word -> m HTMLElement+getUnchecked self index+  = liftIO (fromJust . nullableToMaybe <$> (js_get self index))  -foreign import javascript unsafe "$1[\"namedItem\"]($2)"-        js_namedItem ::-        HTMLFormControlsCollection -> JSString -> IO (Nullable Node)+foreign import javascript unsafe "$1[$2]" js_namedItem ::+        HTMLFormControlsCollection ->+          JSString -> IO (Nullable RadioNodeListOrElement)  -- | <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)+            HTMLFormControlsCollection ->+              name -> m (Maybe RadioNodeListOrElement) namedItem self name   = liftIO-      (nullableToMaybe <$> (js_namedItem (self) (toJSString name)))+      (nullableToMaybe <$> (js_namedItem self (toJSString name)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormControlsCollection.namedItem Mozilla HTMLFormControlsCollection.namedItem documentation>  namedItem_ ::            (MonadIO m, ToJSString name) =>              HTMLFormControlsCollection -> name -> m () namedItem_ self name-  = liftIO (void (js_namedItem (self) (toJSString name)))+  = liftIO (void (js_namedItem self (toJSString name)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormControlsCollection.namedItem Mozilla HTMLFormControlsCollection.namedItem documentation>  namedItemUnsafe ::                 (MonadIO m, ToJSString name, HasCallStack) =>-                  HTMLFormControlsCollection -> name -> m Node+                  HTMLFormControlsCollection -> name -> m RadioNodeListOrElement namedItemUnsafe self name   = liftIO-      ((nullableToMaybe <$> (js_namedItem (self) (toJSString name))) >>=+      ((nullableToMaybe <$> (js_namedItem self (toJSString name))) >>=          maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormControlsCollection.namedItem Mozilla HTMLFormControlsCollection.namedItem documentation>  namedItemUnchecked ::                    (MonadIO m, ToJSString name) =>-                     HTMLFormControlsCollection -> name -> m Node+                     HTMLFormControlsCollection -> name -> m RadioNodeListOrElement namedItemUnchecked self name   = liftIO       (fromJust . nullableToMaybe <$>-         (js_namedItem (self) (toJSString name)))+         (js_namedItem self (toJSString name)))
src/GHCJS/DOM/JSFFI/Generated/HTMLFormElement.hs view
@@ -4,32 +4,27 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLFormElement-       (js__get, _get, _get_, _getUnsafe, _getUnchecked, js_submit,-        submit, js_reset, reset, js_checkValidity, 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, getEnctypeUnsafe, getEnctypeUnchecked, js_setEncoding,-        setEncoding, js_getEncoding, getEncoding, getEncodingUnsafe,-        getEncodingUnchecked, js_setMethod, setMethod, js_getMethod,-        getMethod, getMethodUnsafe, getMethodUnchecked, js_setName,-        setName, js_getName, getName, js_setNoValidate, setNoValidate,-        js_getNoValidate, getNoValidate, js_setTarget, setTarget,-        js_getTarget, getTarget, js_getElements, getElements,-        getElementsUnsafe, getElementsUnchecked, js_getLength, getLength,-        js_setAutocorrect, setAutocorrect, js_getAutocorrect,-        getAutocorrect, js_setAutocapitalize, setAutocapitalize,-        js_getAutocapitalize, getAutocapitalize, getAutocapitalizeUnsafe,-        getAutocapitalizeUnchecked, autocomplete, autocompleteerror,-        HTMLFormElement(..), gTypeHTMLFormElement)+       (js_getAt, getAt, getAt_, getAtUnsafe, getAtUnchecked, js_get, get,+        get_, getUnsafe, getUnchecked, js_submit, submit, js_reset, reset,+        js_checkValidity, checkValidity, checkValidity_, js_reportValidity,+        reportValidity, reportValidity_, 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, HTMLFormElement(..),+        gTypeHTMLFormElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -38,50 +33,84 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums  -foreign import javascript unsafe "$1[\"_get\"]($2)" js__get ::+foreign import javascript unsafe "$1[$2]" js_getAt ::         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))+-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.get Mozilla HTMLFormElement.get documentation> +getAt ::+      (MonadIO m) => HTMLFormElement -> Word -> m (Maybe Element)+getAt self index+  = liftIO (nullableToMaybe <$> (js_getAt self index)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement._get Mozilla HTMLFormElement._get documentation> -_get_ :: (MonadIO m) => HTMLFormElement -> Word -> m ()-_get_ self index = liftIO (void (js__get (self) index))+-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.get Mozilla HTMLFormElement.get documentation> +getAt_ :: (MonadIO m) => HTMLFormElement -> Word -> m ()+getAt_ self index = liftIO (void (js_getAt self index)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement._get Mozilla HTMLFormElement._get documentation> -_getUnsafe ::-           (MonadIO m, HasCallStack) => HTMLFormElement -> Word -> m Element-_getUnsafe self index+-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.get Mozilla HTMLFormElement.get documentation> +getAtUnsafe ::+            (MonadIO m, HasCallStack) => HTMLFormElement -> Word -> m Element+getAtUnsafe self index   = liftIO-      ((nullableToMaybe <$> (js__get (self) index)) >>=+      ((nullableToMaybe <$> (js_getAt self index)) >>=          maybe (Prelude.error "Nothing to return") return) --- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement._get Mozilla HTMLFormElement._get documentation> -_getUnchecked ::-              (MonadIO m) => HTMLFormElement -> Word -> m Element-_getUnchecked self index-  = liftIO (fromJust . nullableToMaybe <$> (js__get (self) index))+-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.get Mozilla HTMLFormElement.get documentation> +getAtUnchecked ::+               (MonadIO m) => HTMLFormElement -> Word -> m Element+getAtUnchecked self index+  = liftIO (fromJust . nullableToMaybe <$> (js_getAt self index))  +foreign import javascript unsafe "$1[$2]" js_get ::+        HTMLFormElement -> JSString -> IO (Nullable RadioNodeListOrElement)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.get Mozilla HTMLFormElement.get documentation> +get ::+    (MonadIO m, ToJSString name) =>+      HTMLFormElement -> name -> m (Maybe RadioNodeListOrElement)+get self name+  = liftIO (nullableToMaybe <$> (js_get self (toJSString name)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.get Mozilla HTMLFormElement.get documentation> +get_ ::+     (MonadIO m, ToJSString name) => HTMLFormElement -> name -> m ()+get_ self name = liftIO (void (js_get self (toJSString name)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.get Mozilla HTMLFormElement.get documentation> +getUnsafe ::+          (MonadIO m, ToJSString name, HasCallStack) =>+            HTMLFormElement -> name -> m RadioNodeListOrElement+getUnsafe self name+  = liftIO+      ((nullableToMaybe <$> (js_get self (toJSString name))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.get Mozilla HTMLFormElement.get documentation> +getUnchecked ::+             (MonadIO m, ToJSString name) =>+               HTMLFormElement -> name -> m RadioNodeListOrElement+getUnchecked self name+  = liftIO+      (fromJust . nullableToMaybe <$> (js_get self (toJSString name)))+  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))+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))+reset self = liftIO (js_reset self)   foreign import javascript unsafe         "($1[\"checkValidity\"]() ? 1 : 0)" js_checkValidity ::@@ -89,18 +118,30 @@  -- | <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))+checkValidity self = liftIO (js_checkValidity self)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.checkValidity Mozilla HTMLFormElement.checkValidity documentation>  checkValidity_ :: (MonadIO m) => HTMLFormElement -> m ()-checkValidity_ self = liftIO (void (js_checkValidity (self)))+checkValidity_ self = liftIO (void (js_checkValidity self))  +foreign import javascript unsafe+        "($1[\"reportValidity\"]() ? 1 : 0)" js_reportValidity ::+        HTMLFormElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.reportValidity Mozilla HTMLFormElement.reportValidity documentation> +reportValidity :: (MonadIO m) => HTMLFormElement -> m Bool+reportValidity self = liftIO (js_reportValidity self)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.reportValidity Mozilla HTMLFormElement.reportValidity documentation> +reportValidity_ :: (MonadIO m) => HTMLFormElement -> m ()+reportValidity_ self = liftIO (void (js_reportValidity 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))+requestAutocomplete self = liftIO (js_requestAutocomplete self)   foreign import javascript unsafe "$1[\"acceptCharset\"] = $2;"         js_setAcceptCharset :: HTMLFormElement -> JSString -> IO ()@@ -109,7 +150,7 @@ setAcceptCharset ::                  (MonadIO m, ToJSString val) => HTMLFormElement -> val -> m () setAcceptCharset self val-  = liftIO (js_setAcceptCharset (self) (toJSString val))+  = liftIO (js_setAcceptCharset self (toJSString val))   foreign import javascript unsafe "$1[\"acceptCharset\"]"         js_getAcceptCharset :: HTMLFormElement -> IO JSString@@ -118,7 +159,7 @@ getAcceptCharset ::                  (MonadIO m, FromJSString result) => HTMLFormElement -> m result getAcceptCharset self-  = liftIO (fromJSString <$> (js_getAcceptCharset (self)))+  = liftIO (fromJSString <$> (js_getAcceptCharset self))   foreign import javascript unsafe "$1[\"action\"] = $2;"         js_setAction :: HTMLFormElement -> JSString -> IO ()@@ -126,7 +167,7 @@ -- | <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))+setAction self val = liftIO (js_setAction self (toJSString val))   foreign import javascript unsafe "$1[\"action\"]" js_getAction ::         HTMLFormElement -> IO JSString@@ -134,7 +175,7 @@ -- | <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)))+getAction self = liftIO (fromJSString <$> (js_getAction self))   foreign import javascript unsafe "$1[\"autocomplete\"] = $2;"         js_setAutocomplete :: HTMLFormElement -> JSString -> IO ()@@ -143,7 +184,7 @@ setAutocomplete ::                 (MonadIO m, ToJSString val) => HTMLFormElement -> val -> m () setAutocomplete self val-  = liftIO (js_setAutocomplete (self) (toJSString val))+  = liftIO (js_setAutocomplete self (toJSString val))   foreign import javascript unsafe "$1[\"autocomplete\"]"         js_getAutocomplete :: HTMLFormElement -> IO JSString@@ -152,109 +193,56 @@ getAutocomplete ::                 (MonadIO m, FromJSString result) => HTMLFormElement -> m result getAutocomplete self-  = liftIO (fromJSString <$> (js_getAutocomplete (self)))+  = liftIO (fromJSString <$> (js_getAutocomplete self))   foreign import javascript unsafe "$1[\"enctype\"] = $2;"-        js_setEnctype :: HTMLFormElement -> Nullable JSString -> IO ()+        js_setEnctype :: HTMLFormElement -> 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))+           (MonadIO m, ToJSString val) => HTMLFormElement -> val -> m ()+setEnctype self val = liftIO (js_setEnctype self (toJSString val))   foreign import javascript unsafe "$1[\"enctype\"]" js_getEnctype ::-        HTMLFormElement -> IO (Nullable JSString)+        HTMLFormElement -> IO 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.enctype Mozilla HTMLFormElement.enctype documentation> -getEnctypeUnsafe ::-                 (MonadIO m, HasCallStack, FromJSString result) =>-                   HTMLFormElement -> m result-getEnctypeUnsafe self-  = liftIO-      ((fromMaybeJSString <$> (js_getEnctype (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.enctype Mozilla HTMLFormElement.enctype documentation> -getEnctypeUnchecked ::-                    (MonadIO m, FromJSString result) => HTMLFormElement -> m result-getEnctypeUnchecked self-  = liftIO (fromJust . fromMaybeJSString <$> (js_getEnctype (self)))+           (MonadIO m, FromJSString result) => HTMLFormElement -> m result+getEnctype self = liftIO (fromJSString <$> (js_getEnctype self))   foreign import javascript unsafe "$1[\"encoding\"] = $2;"-        js_setEncoding :: HTMLFormElement -> Nullable JSString -> IO ()+        js_setEncoding :: HTMLFormElement -> 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 ()+            (MonadIO m, ToJSString val) => HTMLFormElement -> val -> m () setEncoding self val-  = liftIO (js_setEncoding (self) (toMaybeJSString val))+  = liftIO (js_setEncoding self (toJSString val))   foreign import javascript unsafe "$1[\"encoding\"]" js_getEncoding-        :: HTMLFormElement -> IO (Nullable JSString)+        :: HTMLFormElement -> IO 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.encoding Mozilla HTMLFormElement.encoding documentation> -getEncodingUnsafe ::-                  (MonadIO m, HasCallStack, FromJSString result) =>-                    HTMLFormElement -> m result-getEncodingUnsafe self-  = liftIO-      ((fromMaybeJSString <$> (js_getEncoding (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.encoding Mozilla HTMLFormElement.encoding documentation> -getEncodingUnchecked ::-                     (MonadIO m, FromJSString result) => HTMLFormElement -> m result-getEncodingUnchecked self-  = liftIO (fromJust . fromMaybeJSString <$> (js_getEncoding (self)))+            (MonadIO m, FromJSString result) => HTMLFormElement -> m result+getEncoding self = liftIO (fromJSString <$> (js_getEncoding self))   foreign import javascript unsafe "$1[\"method\"] = $2;"-        js_setMethod :: HTMLFormElement -> Nullable JSString -> IO ()+        js_setMethod :: HTMLFormElement -> 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))+          (MonadIO m, ToJSString val) => HTMLFormElement -> val -> m ()+setMethod self val = liftIO (js_setMethod self (toJSString val))   foreign import javascript unsafe "$1[\"method\"]" js_getMethod ::-        HTMLFormElement -> IO (Nullable JSString)+        HTMLFormElement -> IO 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.method Mozilla HTMLFormElement.method documentation> -getMethodUnsafe ::-                (MonadIO m, HasCallStack, FromJSString result) =>-                  HTMLFormElement -> m result-getMethodUnsafe self-  = liftIO-      ((fromMaybeJSString <$> (js_getMethod (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.method Mozilla HTMLFormElement.method documentation> -getMethodUnchecked ::-                   (MonadIO m, FromJSString result) => HTMLFormElement -> m result-getMethodUnchecked self-  = liftIO (fromJust . fromMaybeJSString <$> (js_getMethod (self)))+          (MonadIO m, FromJSString result) => HTMLFormElement -> m result+getMethod self = liftIO (fromJSString <$> (js_getMethod self))   foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName ::         HTMLFormElement -> JSString -> IO ()@@ -262,7 +250,7 @@ -- | <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))+setName self val = liftIO (js_setName self (toJSString val))   foreign import javascript unsafe "$1[\"name\"]" js_getName ::         HTMLFormElement -> IO JSString@@ -270,21 +258,21 @@ -- | <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)))+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)+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))+getNoValidate self = liftIO (js_getNoValidate self)   foreign import javascript unsafe "$1[\"target\"] = $2;"         js_setTarget :: HTMLFormElement -> JSString -> IO ()@@ -292,7 +280,7 @@ -- | <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))+setTarget self val = liftIO (js_setTarget self (toJSString val))   foreign import javascript unsafe "$1[\"target\"]" js_getTarget ::         HTMLFormElement -> IO JSString@@ -300,93 +288,19 @@ -- | <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)))+getTarget self = liftIO (fromJSString <$> (js_getTarget self))   foreign import javascript unsafe "$1[\"elements\"]" js_getElements-        :: HTMLFormElement -> IO (Nullable HTMLCollection)+        :: HTMLFormElement -> IO HTMLFormControlsCollection  -- | <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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.elements Mozilla HTMLFormElement.elements documentation> -getElementsUnsafe ::-                  (MonadIO m, HasCallStack) => HTMLFormElement -> m HTMLCollection-getElementsUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getElements (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.elements Mozilla HTMLFormElement.elements documentation> -getElementsUnchecked ::-                     (MonadIO m) => HTMLFormElement -> m HTMLCollection-getElementsUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getElements (self)))+            (MonadIO m) => HTMLFormElement -> m HTMLFormControlsCollection+getElements self = liftIO (js_getElements self)   foreign import javascript unsafe "$1[\"length\"]" js_getLength ::-        HTMLFormElement -> IO Int+        HTMLFormElement -> IO Word  -- | <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.autocapitalize Mozilla HTMLFormElement.autocapitalize documentation> -getAutocapitalizeUnsafe ::-                        (MonadIO m, HasCallStack, FromJSString result) =>-                          HTMLFormElement -> m result-getAutocapitalizeUnsafe self-  = liftIO-      ((fromMaybeJSString <$> (js_getAutocapitalize (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.autocapitalize Mozilla HTMLFormElement.autocapitalize documentation> -getAutocapitalizeUnchecked ::-                           (MonadIO m, FromJSString result) => HTMLFormElement -> m result-getAutocapitalizeUnchecked self-  = liftIO-      (fromJust . 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")+getLength :: (MonadIO m) => HTMLFormElement -> m Word+getLength self = liftIO (js_getLength self)
src/GHCJS/DOM/JSFFI/Generated/HTMLFrameElement.hs view
@@ -4,28 +4,27 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLFrameElement-       (js_getSVGDocument, getSVGDocument, getSVGDocument_,-        getSVGDocumentUnsafe, getSVGDocumentUnchecked, js_setFrameBorder,-        setFrameBorder, js_getFrameBorder, getFrameBorder, js_setLongDesc,-        setLongDesc, js_getLongDesc, getLongDesc, js_setMarginHeight,+       (js_getSVGDocument, getSVGDocument, getSVGDocument_, js_setName,+        setName, js_getName, getName, js_setScrolling, setScrolling,+        js_getScrolling, getScrolling, js_setSrc, setSrc, js_getSrc,+        getSrc, js_setFrameBorder, setFrameBorder, js_getFrameBorder,+        getFrameBorder, js_setLongDesc, setLongDesc, js_getLongDesc,+        getLongDesc, js_setNoResize, setNoResize, js_getNoResize,+        getNoResize, js_getContentDocument, getContentDocument,+        js_getContentWindow, getContentWindow, 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, getContentDocumentUnsafe,-        getContentDocumentUnchecked, js_getContentWindow, getContentWindow,-        getContentWindowUnsafe, getContentWindowUnchecked, js_setLocation,-        setLocation, js_getLocation, getLocation, getLocationUnsafe,-        getLocationUnchecked, js_getWidth, getWidth, js_getHeight,-        getHeight, HTMLFrameElement(..), gTypeHTMLFrameElement)+        getMarginHeightUnsafe, getMarginHeightUnchecked, js_setMarginWidth,+        setMarginWidth, js_getMarginWidth, getMarginWidth,+        getMarginWidthUnsafe, getMarginWidthUnchecked, js_getWidth,+        getWidth, js_getHeight, getHeight, js_setLocation, setLocation,+        js_getLocation, getLocation, getLocationUnsafe,+        getLocationUnchecked, HTMLFrameElement(..), gTypeHTMLFrameElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -34,39 +33,73 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums   foreign import javascript unsafe "$1[\"getSVGDocument\"]()"-        js_getSVGDocument :: HTMLFrameElement -> IO (Nullable SVGDocument)+        js_getSVGDocument :: HTMLFrameElement -> IO Document  -- | <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)))+getSVGDocument :: (MonadIO m) => HTMLFrameElement -> m Document+getSVGDocument self = liftIO (js_getSVGDocument self)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.getSVGDocument Mozilla HTMLFrameElement.getSVGDocument documentation>  getSVGDocument_ :: (MonadIO m) => HTMLFrameElement -> m ()-getSVGDocument_ self = liftIO (void (js_getSVGDocument (self)))+getSVGDocument_ self = liftIO (void (js_getSVGDocument self))+ +foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName ::+        HTMLFrameElement -> JSString -> IO () --- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.getSVGDocument Mozilla HTMLFrameElement.getSVGDocument documentation> -getSVGDocumentUnsafe ::-                     (MonadIO m, HasCallStack) => HTMLFrameElement -> m SVGDocument-getSVGDocumentUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getSVGDocument (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+-- | <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.getSVGDocument Mozilla HTMLFrameElement.getSVGDocument documentation> -getSVGDocumentUnchecked ::-                        (MonadIO m) => HTMLFrameElement -> m SVGDocument-getSVGDocumentUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$> (js_getSVGDocument (self)))+-- | <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[\"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[\"frameBorder\"] = $2;"         js_setFrameBorder :: HTMLFrameElement -> JSString -> IO () @@ -74,7 +107,7 @@ setFrameBorder ::                (MonadIO m, ToJSString val) => HTMLFrameElement -> val -> m () setFrameBorder self val-  = liftIO (js_setFrameBorder (self) (toJSString val))+  = liftIO (js_setFrameBorder self (toJSString val))   foreign import javascript unsafe "$1[\"frameBorder\"]"         js_getFrameBorder :: HTMLFrameElement -> IO JSString@@ -83,7 +116,7 @@ getFrameBorder ::                (MonadIO m, FromJSString result) => HTMLFrameElement -> m result getFrameBorder self-  = liftIO (fromJSString <$> (js_getFrameBorder (self)))+  = liftIO (fromJSString <$> (js_getFrameBorder self))   foreign import javascript unsafe "$1[\"longDesc\"] = $2;"         js_setLongDesc :: HTMLFrameElement -> JSString -> IO ()@@ -92,7 +125,7 @@ setLongDesc ::             (MonadIO m, ToJSString val) => HTMLFrameElement -> val -> m () setLongDesc self val-  = liftIO (js_setLongDesc (self) (toJSString val))+  = liftIO (js_setLongDesc self (toJSString val))   foreign import javascript unsafe "$1[\"longDesc\"]" js_getLongDesc         :: HTMLFrameElement -> IO JSString@@ -100,166 +133,132 @@ -- | <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)))+getLongDesc self = liftIO (fromJSString <$> (js_getLongDesc 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)+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))+getNoResize self = liftIO (js_getNoResize self)  -foreign import javascript unsafe "$1[\"scrolling\"]"-        js_getScrolling :: HTMLFrameElement -> IO JSString+foreign import javascript unsafe "$1[\"contentDocument\"]"+        js_getContentDocument :: HTMLFrameElement -> IO Document --- | <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)))+-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.contentDocument Mozilla HTMLFrameElement.contentDocument documentation> +getContentDocument :: (MonadIO m) => HTMLFrameElement -> m Document+getContentDocument self = liftIO (js_getContentDocument self)  -foreign import javascript unsafe "$1[\"src\"] = $2;" js_setSrc ::-        HTMLFrameElement -> JSString -> IO ()+foreign import javascript unsafe "$1[\"contentWindow\"]"+        js_getContentWindow :: HTMLFrameElement -> IO Window --- | <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))+-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.contentWindow Mozilla HTMLFrameElement.contentWindow documentation> +getContentWindow :: (MonadIO m) => HTMLFrameElement -> m Window+getContentWindow self = liftIO (js_getContentWindow self)  -foreign import javascript unsafe "$1[\"src\"]" js_getSrc ::-        HTMLFrameElement -> IO JSString+foreign import javascript unsafe "$1[\"marginHeight\"] = $2;"+        js_setMarginHeight ::+        HTMLFrameElement -> Optional JSString -> IO () --- | <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)))+-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.marginHeight Mozilla HTMLFrameElement.marginHeight documentation> +setMarginHeight ::+                (MonadIO m, ToJSString val) =>+                  HTMLFrameElement -> Maybe val -> m ()+setMarginHeight self val+  = liftIO (js_setMarginHeight self (toOptionalJSString val))  -foreign import javascript unsafe "$1[\"contentDocument\"]"-        js_getContentDocument :: HTMLFrameElement -> IO (Nullable Document)+foreign import javascript unsafe "$1[\"marginHeight\"]"+        js_getMarginHeight :: HTMLFrameElement -> IO (Nullable JSString) --- | <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)))+-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.marginHeight Mozilla HTMLFrameElement.marginHeight documentation> +getMarginHeight ::+                (MonadIO m, FromJSString result) =>+                  HTMLFrameElement -> m (Maybe result)+getMarginHeight self+  = liftIO (fromMaybeJSString <$> (js_getMarginHeight self)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.contentDocument Mozilla HTMLFrameElement.contentDocument documentation> -getContentDocumentUnsafe ::-                         (MonadIO m, HasCallStack) => HTMLFrameElement -> m Document-getContentDocumentUnsafe self+-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.marginHeight Mozilla HTMLFrameElement.marginHeight documentation> +getMarginHeightUnsafe ::+                      (MonadIO m, HasCallStack, FromJSString result) =>+                        HTMLFrameElement -> m result+getMarginHeightUnsafe self   = liftIO-      ((nullableToMaybe <$> (js_getContentDocument (self))) >>=+      ((fromMaybeJSString <$> (js_getMarginHeight self)) >>=          maybe (Prelude.error "Nothing to return") return) --- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.contentDocument Mozilla HTMLFrameElement.contentDocument documentation> -getContentDocumentUnchecked ::-                            (MonadIO m) => HTMLFrameElement -> m Document-getContentDocumentUnchecked self+-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.marginHeight Mozilla HTMLFrameElement.marginHeight documentation> +getMarginHeightUnchecked ::+                         (MonadIO m, FromJSString result) => HTMLFrameElement -> m result+getMarginHeightUnchecked self   = liftIO-      (fromJust . nullableToMaybe <$> (js_getContentDocument (self)))+      (fromJust . fromMaybeJSString <$> (js_getMarginHeight self))  -foreign import javascript unsafe "$1[\"contentWindow\"]"-        js_getContentWindow :: HTMLFrameElement -> IO (Nullable Window)+foreign import javascript unsafe "$1[\"marginWidth\"] = $2;"+        js_setMarginWidth :: HTMLFrameElement -> Optional JSString -> IO () --- | <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)))+-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.marginWidth Mozilla HTMLFrameElement.marginWidth documentation> +setMarginWidth ::+               (MonadIO m, ToJSString val) =>+                 HTMLFrameElement -> Maybe val -> m ()+setMarginWidth self val+  = liftIO (js_setMarginWidth self (toOptionalJSString val))+ +foreign import javascript unsafe "$1[\"marginWidth\"]"+        js_getMarginWidth :: HTMLFrameElement -> IO (Nullable JSString) --- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.contentWindow Mozilla HTMLFrameElement.contentWindow documentation> -getContentWindowUnsafe ::-                       (MonadIO m, HasCallStack) => HTMLFrameElement -> m Window-getContentWindowUnsafe self+-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.marginWidth Mozilla HTMLFrameElement.marginWidth documentation> +getMarginWidth ::+               (MonadIO m, FromJSString result) =>+                 HTMLFrameElement -> m (Maybe result)+getMarginWidth self+  = liftIO (fromMaybeJSString <$> (js_getMarginWidth self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.marginWidth Mozilla HTMLFrameElement.marginWidth documentation> +getMarginWidthUnsafe ::+                     (MonadIO m, HasCallStack, FromJSString result) =>+                       HTMLFrameElement -> m result+getMarginWidthUnsafe self   = liftIO-      ((nullableToMaybe <$> (js_getContentWindow (self))) >>=+      ((fromMaybeJSString <$> (js_getMarginWidth self)) >>=          maybe (Prelude.error "Nothing to return") return) --- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.contentWindow Mozilla HTMLFrameElement.contentWindow documentation> -getContentWindowUnchecked ::-                          (MonadIO m) => HTMLFrameElement -> m Window-getContentWindowUnchecked self+-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.marginWidth Mozilla HTMLFrameElement.marginWidth documentation> +getMarginWidthUnchecked ::+                        (MonadIO m, FromJSString result) => HTMLFrameElement -> m result+getMarginWidthUnchecked self   = liftIO-      (fromJust . nullableToMaybe <$> (js_getContentWindow (self)))+      (fromJust . fromMaybeJSString <$> (js_getMarginWidth 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)+  foreign import javascript unsafe "$1[\"location\"] = $2;"-        js_setLocation :: HTMLFrameElement -> Nullable JSString -> IO ()+        js_setLocation :: HTMLFrameElement -> Optional 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))+  = liftIO (js_setLocation self (toOptionalJSString val))   foreign import javascript unsafe "$1[\"location\"]" js_getLocation         :: HTMLFrameElement -> IO (Nullable JSString)@@ -269,7 +268,7 @@             (MonadIO m, FromJSString result) =>               HTMLFrameElement -> m (Maybe result) getLocation self-  = liftIO (fromMaybeJSString <$> (js_getLocation (self)))+  = liftIO (fromMaybeJSString <$> (js_getLocation self))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.location Mozilla HTMLFrameElement.location documentation>  getLocationUnsafe ::@@ -277,25 +276,11 @@                     HTMLFrameElement -> m result getLocationUnsafe self   = liftIO-      ((fromMaybeJSString <$> (js_getLocation (self))) >>=+      ((fromMaybeJSString <$> (js_getLocation self)) >>=          maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.location Mozilla HTMLFrameElement.location documentation>  getLocationUnchecked ::                      (MonadIO m, FromJSString result) => HTMLFrameElement -> m result getLocationUnchecked self-  = liftIO (fromJust . 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))+  = liftIO (fromJust . fromMaybeJSString <$> (js_getLocation self))
src/GHCJS/DOM/JSFFI/Generated/HTMLFrameSetElement.hs view
@@ -5,16 +5,16 @@ {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} 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(..),-        gTypeHTMLFrameSetElement)+        js_getRows, getRows, blur, error, focus, focusin, focusout, load,+        resize, scroll, webKitWillRevealBottom, webKitWillRevealLeft,+        webKitWillRevealRight, webKitWillRevealTop,+        HTMLFrameSetElement(..), gTypeHTMLFrameSetElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -23,6 +23,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -34,7 +35,7 @@ -- | <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))+setCols self val = liftIO (js_setCols self (toJSString val))   foreign import javascript unsafe "$1[\"cols\"]" js_getCols ::         HTMLFrameSetElement -> IO JSString@@ -42,7 +43,7 @@ -- | <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)))+getCols self = liftIO (fromJSString <$> (js_getCols self))   foreign import javascript unsafe "$1[\"rows\"] = $2;" js_setRows ::         HTMLFrameSetElement -> JSString -> IO ()@@ -50,7 +51,7 @@ -- | <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))+setRows self val = liftIO (js_setRows self (toJSString val))   foreign import javascript unsafe "$1[\"rows\"]" js_getRows ::         HTMLFrameSetElement -> IO JSString@@ -58,48 +59,7 @@ -- | <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")+getRows self = liftIO (fromJSString <$> (js_getRows self))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameSetElement.onblur Mozilla HTMLFrameSetElement.onblur documentation>  blur :: EventName HTMLFrameSetElement FocusEvent@@ -113,6 +73,42 @@ focus :: EventName HTMLFrameSetElement FocusEvent focus = unsafeEventName (toJSString "focus") +-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameSetElement.onfocusin Mozilla HTMLFrameSetElement.onfocusin documentation> +focusin :: EventName HTMLFrameSetElement onfocusin+focusin = unsafeEventName (toJSString "focusin")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameSetElement.onfocusout Mozilla HTMLFrameSetElement.onfocusout documentation> +focusout :: EventName HTMLFrameSetElement onfocusout+focusout = unsafeEventName (toJSString "focusout")+ -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameSetElement.onload Mozilla HTMLFrameSetElement.onload documentation>  load :: EventName HTMLFrameSetElement UIEvent load = unsafeEventName (toJSString "load")++-- | <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.onscroll Mozilla HTMLFrameSetElement.onscroll documentation> +scroll :: EventName HTMLFrameSetElement UIEvent+scroll = unsafeEventName (toJSString "scroll")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameSetElement.onwebkitwillrevealbottom Mozilla HTMLFrameSetElement.onwebkitwillrevealbottom documentation> +webKitWillRevealBottom :: EventName HTMLFrameSetElement Event+webKitWillRevealBottom+  = unsafeEventName (toJSString "webkitwillrevealbottom")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameSetElement.onwebkitwillrevealleft Mozilla HTMLFrameSetElement.onwebkitwillrevealleft documentation> +webKitWillRevealLeft :: EventName HTMLFrameSetElement Event+webKitWillRevealLeft+  = unsafeEventName (toJSString "webkitwillrevealleft")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameSetElement.onwebkitwillrevealright Mozilla HTMLFrameSetElement.onwebkitwillrevealright documentation> +webKitWillRevealRight :: EventName HTMLFrameSetElement Event+webKitWillRevealRight+  = unsafeEventName (toJSString "webkitwillrevealright")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameSetElement.onwebkitwillrevealtop Mozilla HTMLFrameSetElement.onwebkitwillrevealtop documentation> +webKitWillRevealTop :: EventName HTMLFrameSetElement Event+webKitWillRevealTop+  = unsafeEventName (toJSString "webkitwillrevealtop")
src/GHCJS/DOM/JSFFI/Generated/HTMLHRElement.hs view
@@ -4,16 +4,17 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} 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,+       (js_setAlign, setAlign, js_getAlign, getAlign, js_setColor,+        setColor, js_getColor, getColor, js_setNoShade, setNoShade,+        js_getNoShade, getNoShade, js_setSize, setSize, js_getSize,+        getSize, js_setWidth, setWidth, js_getWidth, getWidth,         HTMLHRElement(..), gTypeHTMLHRElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -22,6 +23,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -33,7 +35,7 @@ -- | <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))+setAlign self val = liftIO (js_setAlign self (toJSString val))   foreign import javascript unsafe "$1[\"align\"]" js_getAlign ::         HTMLHRElement -> IO JSString@@ -41,21 +43,37 @@ -- | <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)))+getAlign self = liftIO (fromJSString <$> (js_getAlign self))  +foreign import javascript unsafe "$1[\"color\"] = $2;" js_setColor+        :: HTMLHRElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHRElement.color Mozilla HTMLHRElement.color documentation> +setColor ::+         (MonadIO m, ToJSString val) => HTMLHRElement -> val -> m ()+setColor self val = liftIO (js_setColor self (toJSString val))+ +foreign import javascript unsafe "$1[\"color\"]" js_getColor ::+        HTMLHRElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHRElement.color Mozilla HTMLHRElement.color documentation> +getColor ::+         (MonadIO m, FromJSString result) => HTMLHRElement -> m result+getColor self = liftIO (fromJSString <$> (js_getColor 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)+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))+getNoShade self = liftIO (js_getNoShade self)   foreign import javascript unsafe "$1[\"size\"] = $2;" js_setSize ::         HTMLHRElement -> JSString -> IO ()@@ -63,7 +81,7 @@ -- | <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))+setSize self val = liftIO (js_setSize self (toJSString val))   foreign import javascript unsafe "$1[\"size\"]" js_getSize ::         HTMLHRElement -> IO JSString@@ -71,7 +89,7 @@ -- | <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)))+getSize self = liftIO (fromJSString <$> (js_getSize self))   foreign import javascript unsafe "$1[\"width\"] = $2;" js_setWidth         :: HTMLHRElement -> JSString -> IO ()@@ -79,7 +97,7 @@ -- | <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))+setWidth self val = liftIO (js_setWidth self (toJSString val))   foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::         HTMLHRElement -> IO JSString@@ -87,4 +105,4 @@ -- | <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)))+getWidth self = liftIO (fromJSString <$> (js_getWidth self))
src/GHCJS/DOM/JSFFI/Generated/HTMLHeadElement.hs view
@@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -20,6 +20,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -31,8 +32,7 @@ -- | <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))+setProfile self val = liftIO (js_setProfile self (toJSString val))   foreign import javascript unsafe "$1[\"profile\"]" js_getProfile ::         HTMLHeadElement -> IO JSString@@ -40,4 +40,4 @@ -- | <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)))+getProfile self = liftIO (fromJSString <$> (js_getProfile self))
src/GHCJS/DOM/JSFFI/Generated/HTMLHeadingElement.hs view
@@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -20,6 +20,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -31,7 +32,7 @@ -- | <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))+setAlign self val = liftIO (js_setAlign self (toJSString val))   foreign import javascript unsafe "$1[\"align\"]" js_getAlign ::         HTMLHeadingElement -> IO JSString@@ -39,4 +40,4 @@ -- | <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)))+getAlign self = liftIO (fromJSString <$> (js_getAlign self))
src/GHCJS/DOM/JSFFI/Generated/HTMLHtmlElement.hs view
@@ -12,7 +12,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -21,6 +21,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -32,8 +33,7 @@ -- | <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))+setVersion self val = liftIO (js_setVersion self (toJSString val))   foreign import javascript unsafe "$1[\"version\"]" js_getVersion ::         HTMLHtmlElement -> IO JSString@@ -41,7 +41,7 @@ -- | <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)))+getVersion self = liftIO (fromJSString <$> (js_getVersion self))   foreign import javascript unsafe "$1[\"manifest\"] = $2;"         js_setManifest :: HTMLHtmlElement -> JSString -> IO ()@@ -50,7 +50,7 @@ setManifest ::             (MonadIO m, ToJSString val) => HTMLHtmlElement -> val -> m () setManifest self val-  = liftIO (js_setManifest (self) (toJSString val))+  = liftIO (js_setManifest self (toJSString val))   foreign import javascript unsafe "$1[\"manifest\"]" js_getManifest         :: HTMLHtmlElement -> IO JSString@@ -58,5 +58,4 @@ -- | <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)))+getManifest self = liftIO (fromJSString <$> (js_getManifest self))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLHyperlinkElementUtils.hs view
@@ -0,0 +1,290 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+module GHCJS.DOM.JSFFI.Generated.HTMLHyperlinkElementUtils+       (js_setHref, setHref, js_getHref, getHref, js_getOrigin, getOrigin,+        js_setProtocol, setProtocol, js_getProtocol, getProtocol,+        js_setUsername, setUsername, js_getUsername, getUsername,+        js_setPassword, setPassword, js_getPassword, getPassword,+        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,+        HTMLHyperlinkElementUtils(..), gTypeHTMLHyperlinkElementUtils,+        IsHTMLHyperlinkElementUtils, toHTMLHyperlinkElementUtils)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error)+import Data.Typeable (Typeable)+import GHCJS.Types (JSVal(..), JSString)+import GHCJS.Foreign (jsNull, jsUndefined)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Control.Monad (void)+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import Data.Maybe (fromJust)+import Data.Traversable (mapM)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"href\"] = $2;" js_setHref ::+        HTMLHyperlinkElementUtils -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHyperlinkElementUtils.href Mozilla HTMLHyperlinkElementUtils.href documentation> +setHref ::+        (MonadIO m, IsHTMLHyperlinkElementUtils self, ToJSString val) =>+          self -> val -> m ()+setHref self val+  = liftIO+      (js_setHref (toHTMLHyperlinkElementUtils self) (toJSString val))+ +foreign import javascript unsafe "$1[\"href\"]" js_getHref ::+        HTMLHyperlinkElementUtils -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHyperlinkElementUtils.href Mozilla HTMLHyperlinkElementUtils.href documentation> +getHref ::+        (MonadIO m, IsHTMLHyperlinkElementUtils self,+         FromJSString result) =>+          self -> m result+getHref self+  = liftIO+      (fromJSString <$> (js_getHref (toHTMLHyperlinkElementUtils self)))+ +foreign import javascript unsafe "$1[\"origin\"]" js_getOrigin ::+        HTMLHyperlinkElementUtils -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHyperlinkElementUtils.origin Mozilla HTMLHyperlinkElementUtils.origin documentation> +getOrigin ::+          (MonadIO m, IsHTMLHyperlinkElementUtils self,+           FromJSString result) =>+            self -> m result+getOrigin self+  = liftIO+      (fromJSString <$>+         (js_getOrigin (toHTMLHyperlinkElementUtils self)))+ +foreign import javascript unsafe "$1[\"protocol\"] = $2;"+        js_setProtocol :: HTMLHyperlinkElementUtils -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHyperlinkElementUtils.protocol Mozilla HTMLHyperlinkElementUtils.protocol documentation> +setProtocol ::+            (MonadIO m, IsHTMLHyperlinkElementUtils self, ToJSString val) =>+              self -> val -> m ()+setProtocol self val+  = liftIO+      (js_setProtocol (toHTMLHyperlinkElementUtils self)+         (toJSString val))+ +foreign import javascript unsafe "$1[\"protocol\"]" js_getProtocol+        :: HTMLHyperlinkElementUtils -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHyperlinkElementUtils.protocol Mozilla HTMLHyperlinkElementUtils.protocol documentation> +getProtocol ::+            (MonadIO m, IsHTMLHyperlinkElementUtils self,+             FromJSString result) =>+              self -> m result+getProtocol self+  = liftIO+      (fromJSString <$>+         (js_getProtocol (toHTMLHyperlinkElementUtils self)))+ +foreign import javascript unsafe "$1[\"username\"] = $2;"+        js_setUsername :: HTMLHyperlinkElementUtils -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHyperlinkElementUtils.username Mozilla HTMLHyperlinkElementUtils.username documentation> +setUsername ::+            (MonadIO m, IsHTMLHyperlinkElementUtils self, ToJSString val) =>+              self -> val -> m ()+setUsername self val+  = liftIO+      (js_setUsername (toHTMLHyperlinkElementUtils self)+         (toJSString val))+ +foreign import javascript unsafe "$1[\"username\"]" js_getUsername+        :: HTMLHyperlinkElementUtils -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHyperlinkElementUtils.username Mozilla HTMLHyperlinkElementUtils.username documentation> +getUsername ::+            (MonadIO m, IsHTMLHyperlinkElementUtils self,+             FromJSString result) =>+              self -> m result+getUsername self+  = liftIO+      (fromJSString <$>+         (js_getUsername (toHTMLHyperlinkElementUtils self)))+ +foreign import javascript unsafe "$1[\"password\"] = $2;"+        js_setPassword :: HTMLHyperlinkElementUtils -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHyperlinkElementUtils.password Mozilla HTMLHyperlinkElementUtils.password documentation> +setPassword ::+            (MonadIO m, IsHTMLHyperlinkElementUtils self, ToJSString val) =>+              self -> val -> m ()+setPassword self val+  = liftIO+      (js_setPassword (toHTMLHyperlinkElementUtils self)+         (toJSString val))+ +foreign import javascript unsafe "$1[\"password\"]" js_getPassword+        :: HTMLHyperlinkElementUtils -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHyperlinkElementUtils.password Mozilla HTMLHyperlinkElementUtils.password documentation> +getPassword ::+            (MonadIO m, IsHTMLHyperlinkElementUtils self,+             FromJSString result) =>+              self -> m result+getPassword self+  = liftIO+      (fromJSString <$>+         (js_getPassword (toHTMLHyperlinkElementUtils self)))+ +foreign import javascript unsafe "$1[\"host\"] = $2;" js_setHost ::+        HTMLHyperlinkElementUtils -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHyperlinkElementUtils.host Mozilla HTMLHyperlinkElementUtils.host documentation> +setHost ::+        (MonadIO m, IsHTMLHyperlinkElementUtils self, ToJSString val) =>+          self -> val -> m ()+setHost self val+  = liftIO+      (js_setHost (toHTMLHyperlinkElementUtils self) (toJSString val))+ +foreign import javascript unsafe "$1[\"host\"]" js_getHost ::+        HTMLHyperlinkElementUtils -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHyperlinkElementUtils.host Mozilla HTMLHyperlinkElementUtils.host documentation> +getHost ::+        (MonadIO m, IsHTMLHyperlinkElementUtils self,+         FromJSString result) =>+          self -> m result+getHost self+  = liftIO+      (fromJSString <$> (js_getHost (toHTMLHyperlinkElementUtils self)))+ +foreign import javascript unsafe "$1[\"hostname\"] = $2;"+        js_setHostname :: HTMLHyperlinkElementUtils -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHyperlinkElementUtils.hostname Mozilla HTMLHyperlinkElementUtils.hostname documentation> +setHostname ::+            (MonadIO m, IsHTMLHyperlinkElementUtils self, ToJSString val) =>+              self -> val -> m ()+setHostname self val+  = liftIO+      (js_setHostname (toHTMLHyperlinkElementUtils self)+         (toJSString val))+ +foreign import javascript unsafe "$1[\"hostname\"]" js_getHostname+        :: HTMLHyperlinkElementUtils -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHyperlinkElementUtils.hostname Mozilla HTMLHyperlinkElementUtils.hostname documentation> +getHostname ::+            (MonadIO m, IsHTMLHyperlinkElementUtils self,+             FromJSString result) =>+              self -> m result+getHostname self+  = liftIO+      (fromJSString <$>+         (js_getHostname (toHTMLHyperlinkElementUtils self)))+ +foreign import javascript unsafe "$1[\"port\"] = $2;" js_setPort ::+        HTMLHyperlinkElementUtils -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHyperlinkElementUtils.port Mozilla HTMLHyperlinkElementUtils.port documentation> +setPort ::+        (MonadIO m, IsHTMLHyperlinkElementUtils self, ToJSString val) =>+          self -> val -> m ()+setPort self val+  = liftIO+      (js_setPort (toHTMLHyperlinkElementUtils self) (toJSString val))+ +foreign import javascript unsafe "$1[\"port\"]" js_getPort ::+        HTMLHyperlinkElementUtils -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHyperlinkElementUtils.port Mozilla HTMLHyperlinkElementUtils.port documentation> +getPort ::+        (MonadIO m, IsHTMLHyperlinkElementUtils self,+         FromJSString result) =>+          self -> m result+getPort self+  = liftIO+      (fromJSString <$> (js_getPort (toHTMLHyperlinkElementUtils self)))+ +foreign import javascript unsafe "$1[\"pathname\"] = $2;"+        js_setPathname :: HTMLHyperlinkElementUtils -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHyperlinkElementUtils.pathname Mozilla HTMLHyperlinkElementUtils.pathname documentation> +setPathname ::+            (MonadIO m, IsHTMLHyperlinkElementUtils self, ToJSString val) =>+              self -> val -> m ()+setPathname self val+  = liftIO+      (js_setPathname (toHTMLHyperlinkElementUtils self)+         (toJSString val))+ +foreign import javascript unsafe "$1[\"pathname\"]" js_getPathname+        :: HTMLHyperlinkElementUtils -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHyperlinkElementUtils.pathname Mozilla HTMLHyperlinkElementUtils.pathname documentation> +getPathname ::+            (MonadIO m, IsHTMLHyperlinkElementUtils self,+             FromJSString result) =>+              self -> m result+getPathname self+  = liftIO+      (fromJSString <$>+         (js_getPathname (toHTMLHyperlinkElementUtils self)))+ +foreign import javascript unsafe "$1[\"search\"] = $2;"+        js_setSearch :: HTMLHyperlinkElementUtils -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHyperlinkElementUtils.search Mozilla HTMLHyperlinkElementUtils.search documentation> +setSearch ::+          (MonadIO m, IsHTMLHyperlinkElementUtils self, ToJSString val) =>+            self -> val -> m ()+setSearch self val+  = liftIO+      (js_setSearch (toHTMLHyperlinkElementUtils self) (toJSString val))+ +foreign import javascript unsafe "$1[\"search\"]" js_getSearch ::+        HTMLHyperlinkElementUtils -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHyperlinkElementUtils.search Mozilla HTMLHyperlinkElementUtils.search documentation> +getSearch ::+          (MonadIO m, IsHTMLHyperlinkElementUtils self,+           FromJSString result) =>+            self -> m result+getSearch self+  = liftIO+      (fromJSString <$>+         (js_getSearch (toHTMLHyperlinkElementUtils self)))+ +foreign import javascript unsafe "$1[\"hash\"] = $2;" js_setHash ::+        HTMLHyperlinkElementUtils -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHyperlinkElementUtils.hash Mozilla HTMLHyperlinkElementUtils.hash documentation> +setHash ::+        (MonadIO m, IsHTMLHyperlinkElementUtils self, ToJSString val) =>+          self -> val -> m ()+setHash self val+  = liftIO+      (js_setHash (toHTMLHyperlinkElementUtils self) (toJSString val))+ +foreign import javascript unsafe "$1[\"hash\"]" js_getHash ::+        HTMLHyperlinkElementUtils -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHyperlinkElementUtils.hash Mozilla HTMLHyperlinkElementUtils.hash documentation> +getHash ::+        (MonadIO m, IsHTMLHyperlinkElementUtils self,+         FromJSString result) =>+          self -> m result+getHash self+  = liftIO+      (fromJSString <$> (js_getHash (toHTMLHyperlinkElementUtils self)))
src/GHCJS/DOM/JSFFI/Generated/HTMLIFrameElement.hs view
@@ -4,30 +4,29 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLIFrameElement-       (js_getSVGDocument, getSVGDocument, getSVGDocument_,-        getSVGDocumentUnsafe, getSVGDocumentUnchecked, js_setAlign,+       (js_getSVGDocument, 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,-        getContentDocumentUnsafe, getContentDocumentUnchecked,-        js_getContentWindow, getContentWindow, getContentWindowUnsafe,-        getContentWindowUnchecked, HTMLIFrameElement(..),+        js_getMarginHeight, getMarginHeight, getMarginHeightUnsafe,+        getMarginHeightUnchecked, js_setMarginWidth, setMarginWidth,+        js_getMarginWidth, getMarginWidth, getMarginWidthUnsafe,+        getMarginWidthUnchecked, js_setName, setName, js_getName, getName,+        js_getSandbox, getSandbox, js_setAllowFullscreen,+        setAllowFullscreen, js_getAllowFullscreen, getAllowFullscreen,+        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(..),         gTypeHTMLIFrameElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -36,38 +35,22 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums   foreign import javascript unsafe "$1[\"getSVGDocument\"]()"-        js_getSVGDocument :: HTMLIFrameElement -> IO (Nullable SVGDocument)+        js_getSVGDocument :: HTMLIFrameElement -> IO Document  -- | <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)))+getSVGDocument :: (MonadIO m) => HTMLIFrameElement -> m Document+getSVGDocument self = liftIO (js_getSVGDocument self)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.getSVGDocument Mozilla HTMLIFrameElement.getSVGDocument documentation>  getSVGDocument_ :: (MonadIO m) => HTMLIFrameElement -> m ()-getSVGDocument_ self = liftIO (void (js_getSVGDocument (self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.getSVGDocument Mozilla HTMLIFrameElement.getSVGDocument documentation> -getSVGDocumentUnsafe ::-                     (MonadIO m, HasCallStack) => HTMLIFrameElement -> m SVGDocument-getSVGDocumentUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getSVGDocument (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.getSVGDocument Mozilla HTMLIFrameElement.getSVGDocument documentation> -getSVGDocumentUnchecked ::-                        (MonadIO m) => HTMLIFrameElement -> m SVGDocument-getSVGDocumentUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$> (js_getSVGDocument (self)))+getSVGDocument_ self = liftIO (void (js_getSVGDocument self))   foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign         :: HTMLIFrameElement -> JSString -> IO ()@@ -75,7 +58,7 @@ -- | <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))+setAlign self val = liftIO (js_setAlign self (toJSString val))   foreign import javascript unsafe "$1[\"align\"]" js_getAlign ::         HTMLIFrameElement -> IO JSString@@ -83,7 +66,7 @@ -- | <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)))+getAlign self = liftIO (fromJSString <$> (js_getAlign self))   foreign import javascript unsafe "$1[\"frameBorder\"] = $2;"         js_setFrameBorder :: HTMLIFrameElement -> JSString -> IO ()@@ -92,7 +75,7 @@ setFrameBorder ::                (MonadIO m, ToJSString val) => HTMLIFrameElement -> val -> m () setFrameBorder self val-  = liftIO (js_setFrameBorder (self) (toJSString val))+  = liftIO (js_setFrameBorder self (toJSString val))   foreign import javascript unsafe "$1[\"frameBorder\"]"         js_getFrameBorder :: HTMLIFrameElement -> IO JSString@@ -101,7 +84,7 @@ getFrameBorder ::                (MonadIO m, FromJSString result) => HTMLIFrameElement -> m result getFrameBorder self-  = liftIO (fromJSString <$> (js_getFrameBorder (self)))+  = liftIO (fromJSString <$> (js_getFrameBorder self))   foreign import javascript unsafe "$1[\"height\"] = $2;"         js_setHeight :: HTMLIFrameElement -> JSString -> IO ()@@ -109,7 +92,7 @@ -- | <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))+setHeight self val = liftIO (js_setHeight self (toJSString val))   foreign import javascript unsafe "$1[\"height\"]" js_getHeight ::         HTMLIFrameElement -> IO JSString@@ -117,7 +100,7 @@ -- | <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)))+getHeight self = liftIO (fromJSString <$> (js_getHeight self))   foreign import javascript unsafe "$1[\"longDesc\"] = $2;"         js_setLongDesc :: HTMLIFrameElement -> JSString -> IO ()@@ -126,7 +109,7 @@ setLongDesc ::             (MonadIO m, ToJSString val) => HTMLIFrameElement -> val -> m () setLongDesc self val-  = liftIO (js_setLongDesc (self) (toJSString val))+  = liftIO (js_setLongDesc self (toJSString val))   foreign import javascript unsafe "$1[\"longDesc\"]" js_getLongDesc         :: HTMLIFrameElement -> IO JSString@@ -134,44 +117,81 @@ -- | <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)))+getLongDesc self = liftIO (fromJSString <$> (js_getLongDesc self))   foreign import javascript unsafe "$1[\"marginHeight\"] = $2;"-        js_setMarginHeight :: HTMLIFrameElement -> JSString -> IO ()+        js_setMarginHeight ::+        HTMLIFrameElement -> Optional 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 ()+                (MonadIO m, ToJSString val) =>+                  HTMLIFrameElement -> Maybe val -> m () setMarginHeight self val-  = liftIO (js_setMarginHeight (self) (toJSString val))+  = liftIO (js_setMarginHeight self (toOptionalJSString val))   foreign import javascript unsafe "$1[\"marginHeight\"]"-        js_getMarginHeight :: HTMLIFrameElement -> IO JSString+        js_getMarginHeight :: HTMLIFrameElement -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.marginHeight Mozilla HTMLIFrameElement.marginHeight documentation>  getMarginHeight ::-                (MonadIO m, FromJSString result) => HTMLIFrameElement -> m result+                (MonadIO m, FromJSString result) =>+                  HTMLIFrameElement -> m (Maybe result) getMarginHeight self-  = liftIO (fromJSString <$> (js_getMarginHeight (self)))+  = liftIO (fromMaybeJSString <$> (js_getMarginHeight self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.marginHeight Mozilla HTMLIFrameElement.marginHeight documentation> +getMarginHeightUnsafe ::+                      (MonadIO m, HasCallStack, FromJSString result) =>+                        HTMLIFrameElement -> m result+getMarginHeightUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getMarginHeight self)) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.marginHeight Mozilla HTMLIFrameElement.marginHeight documentation> +getMarginHeightUnchecked ::+                         (MonadIO m, FromJSString result) => HTMLIFrameElement -> m result+getMarginHeightUnchecked self+  = liftIO+      (fromJust . fromMaybeJSString <$> (js_getMarginHeight self))   foreign import javascript unsafe "$1[\"marginWidth\"] = $2;"-        js_setMarginWidth :: HTMLIFrameElement -> JSString -> IO ()+        js_setMarginWidth ::+        HTMLIFrameElement -> Optional 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 ()+               (MonadIO m, ToJSString val) =>+                 HTMLIFrameElement -> Maybe val -> m () setMarginWidth self val-  = liftIO (js_setMarginWidth (self) (toJSString val))+  = liftIO (js_setMarginWidth self (toOptionalJSString val))   foreign import javascript unsafe "$1[\"marginWidth\"]"-        js_getMarginWidth :: HTMLIFrameElement -> IO JSString+        js_getMarginWidth :: HTMLIFrameElement -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.marginWidth Mozilla HTMLIFrameElement.marginWidth documentation>  getMarginWidth ::-               (MonadIO m, FromJSString result) => HTMLIFrameElement -> m result+               (MonadIO m, FromJSString result) =>+                 HTMLIFrameElement -> m (Maybe result) getMarginWidth self-  = liftIO (fromJSString <$> (js_getMarginWidth (self)))+  = liftIO (fromMaybeJSString <$> (js_getMarginWidth self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.marginWidth Mozilla HTMLIFrameElement.marginWidth documentation> +getMarginWidthUnsafe ::+                     (MonadIO m, HasCallStack, FromJSString result) =>+                       HTMLIFrameElement -> m result+getMarginWidthUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getMarginWidth self)) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.marginWidth Mozilla HTMLIFrameElement.marginWidth documentation> +getMarginWidthUnchecked ::+                        (MonadIO m, FromJSString result) => HTMLIFrameElement -> m result+getMarginWidthUnchecked self+  = liftIO+      (fromJust . fromMaybeJSString <$> (js_getMarginWidth self))   foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName ::         HTMLIFrameElement -> JSString -> IO ()@@ -179,7 +199,7 @@ -- | <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))+setName self val = liftIO (js_setName self (toJSString val))   foreign import javascript unsafe "$1[\"name\"]" js_getName ::         HTMLIFrameElement -> IO JSString@@ -187,25 +207,32 @@ -- | <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)))+getName self = liftIO (fromJSString <$> (js_getName self))  -foreign import javascript unsafe "$1[\"sandbox\"] = $2;"-        js_setSandbox :: HTMLIFrameElement -> JSString -> IO ()+foreign import javascript unsafe "$1[\"sandbox\"]" js_getSandbox ::+        HTMLIFrameElement -> IO DOMTokenList  -- | <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))+getSandbox :: (MonadIO m) => HTMLIFrameElement -> m DOMTokenList+getSandbox self = liftIO (js_getSandbox self)  -foreign import javascript unsafe "$1[\"sandbox\"]" js_getSandbox ::-        HTMLIFrameElement -> IO JSString+foreign import javascript unsafe "$1[\"allowFullscreen\"] = $2;"+        js_setAllowFullscreen :: HTMLIFrameElement -> Bool -> IO () --- | <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)))+-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.allowFullscreen Mozilla HTMLIFrameElement.allowFullscreen documentation> +setAllowFullscreen ::+                   (MonadIO m) => HTMLIFrameElement -> Bool -> m ()+setAllowFullscreen self val+  = liftIO (js_setAllowFullscreen self val)  +foreign import javascript unsafe+        "($1[\"allowFullscreen\"] ? 1 : 0)" js_getAllowFullscreen ::+        HTMLIFrameElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.allowFullscreen Mozilla HTMLIFrameElement.allowFullscreen documentation> +getAllowFullscreen :: (MonadIO m) => HTMLIFrameElement -> m Bool+getAllowFullscreen self = liftIO (js_getAllowFullscreen self)+  foreign import javascript unsafe "$1[\"scrolling\"] = $2;"         js_setScrolling :: HTMLIFrameElement -> JSString -> IO () @@ -213,7 +240,7 @@ setScrolling ::              (MonadIO m, ToJSString val) => HTMLIFrameElement -> val -> m () setScrolling self val-  = liftIO (js_setScrolling (self) (toJSString val))+  = liftIO (js_setScrolling self (toJSString val))   foreign import javascript unsafe "$1[\"scrolling\"]"         js_getScrolling :: HTMLIFrameElement -> IO JSString@@ -222,7 +249,7 @@ getScrolling ::              (MonadIO m, FromJSString result) => HTMLIFrameElement -> m result getScrolling self-  = liftIO (fromJSString <$> (js_getScrolling (self)))+  = liftIO (fromJSString <$> (js_getScrolling self))   foreign import javascript unsafe "$1[\"src\"] = $2;" js_setSrc ::         HTMLIFrameElement -> JSString -> IO ()@@ -230,7 +257,7 @@ -- | <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))+setSrc self val = liftIO (js_setSrc self (toJSString val))   foreign import javascript unsafe "$1[\"src\"]" js_getSrc ::         HTMLIFrameElement -> IO JSString@@ -238,7 +265,7 @@ -- | <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)))+getSrc self = liftIO (fromJSString <$> (js_getSrc self))   foreign import javascript unsafe "$1[\"srcdoc\"] = $2;"         js_setSrcdoc :: HTMLIFrameElement -> JSString -> IO ()@@ -246,7 +273,7 @@ -- | <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))+setSrcdoc self val = liftIO (js_setSrcdoc self (toJSString val))   foreign import javascript unsafe "$1[\"srcdoc\"]" js_getSrcdoc ::         HTMLIFrameElement -> IO JSString@@ -254,7 +281,7 @@ -- | <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)))+getSrcdoc self = liftIO (fromJSString <$> (js_getSrcdoc self))   foreign import javascript unsafe "$1[\"width\"] = $2;" js_setWidth         :: HTMLIFrameElement -> JSString -> IO ()@@ -262,7 +289,7 @@ -- | <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))+setWidth self val = liftIO (js_setWidth self (toJSString val))   foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::         HTMLIFrameElement -> IO JSString@@ -270,53 +297,19 @@ -- | <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)))+getWidth self = liftIO (fromJSString <$> (js_getWidth self))   foreign import javascript unsafe "$1[\"contentDocument\"]"-        js_getContentDocument ::-        HTMLIFrameElement -> IO (Nullable Document)+        js_getContentDocument :: HTMLIFrameElement -> IO 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.contentDocument Mozilla HTMLIFrameElement.contentDocument documentation> -getContentDocumentUnsafe ::-                         (MonadIO m, HasCallStack) => HTMLIFrameElement -> m Document-getContentDocumentUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getContentDocument (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.contentDocument Mozilla HTMLIFrameElement.contentDocument documentation> -getContentDocumentUnchecked ::-                            (MonadIO m) => HTMLIFrameElement -> m Document-getContentDocumentUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$> (js_getContentDocument (self)))+                   (MonadIO m) => HTMLIFrameElement -> m Document+getContentDocument self = liftIO (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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.contentWindow Mozilla HTMLIFrameElement.contentWindow documentation> -getContentWindowUnsafe ::-                       (MonadIO m, HasCallStack) => HTMLIFrameElement -> m Window-getContentWindowUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getContentWindow (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        js_getContentWindow :: HTMLIFrameElement -> IO Window  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.contentWindow Mozilla HTMLIFrameElement.contentWindow documentation> -getContentWindowUnchecked ::-                          (MonadIO m) => HTMLIFrameElement -> m Window-getContentWindowUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$> (js_getContentWindow (self)))+getContentWindow :: (MonadIO m) => HTMLIFrameElement -> m Window+getContentWindow self = liftIO (js_getContentWindow self)
src/GHCJS/DOM/JSFFI/Generated/HTMLImageElement.hs view
@@ -6,26 +6,28 @@ 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(..), gTypeHTMLImageElement)+        js_setBorder, setBorder, js_getBorder, getBorder, getBorderUnsafe,+        getBorderUnchecked, js_setCrossOrigin, setCrossOrigin,+        js_getCrossOrigin, getCrossOrigin, getCrossOriginUnsafe,+        getCrossOriginUnchecked, 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(..), gTypeHTMLImageElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -34,6 +36,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -45,7 +48,7 @@ -- | <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))+setName self val = liftIO (js_setName self (toJSString val))   foreign import javascript unsafe "$1[\"name\"]" js_getName ::         HTMLImageElement -> IO JSString@@ -53,7 +56,7 @@ -- | <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)))+getName self = liftIO (fromJSString <$> (js_getName self))   foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign         :: HTMLImageElement -> JSString -> IO ()@@ -61,7 +64,7 @@ -- | <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))+setAlign self val = liftIO (js_setAlign self (toJSString val))   foreign import javascript unsafe "$1[\"align\"]" js_getAlign ::         HTMLImageElement -> IO JSString@@ -69,7 +72,7 @@ -- | <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)))+getAlign self = liftIO (fromJSString <$> (js_getAlign self))   foreign import javascript unsafe "$1[\"alt\"] = $2;" js_setAlt ::         HTMLImageElement -> JSString -> IO ()@@ -77,7 +80,7 @@ -- | <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))+setAlt self val = liftIO (js_setAlt self (toJSString val))   foreign import javascript unsafe "$1[\"alt\"]" js_getAlt ::         HTMLImageElement -> IO JSString@@ -85,83 +88,119 @@ -- | <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)))+getAlt self = liftIO (fromJSString <$> (js_getAlt self))   foreign import javascript unsafe "$1[\"border\"] = $2;"-        js_setBorder :: HTMLImageElement -> JSString -> IO ()+        js_setBorder :: HTMLImageElement -> Optional 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))+          (MonadIO m, ToJSString val) =>+            HTMLImageElement -> Maybe val -> m ()+setBorder self val+  = liftIO (js_setBorder self (toOptionalJSString val))   foreign import javascript unsafe "$1[\"border\"]" js_getBorder ::-        HTMLImageElement -> IO JSString+        HTMLImageElement -> IO (Nullable 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)))+          (MonadIO m, FromJSString result) =>+            HTMLImageElement -> m (Maybe result)+getBorder self = liftIO (fromMaybeJSString <$> (js_getBorder self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.border Mozilla HTMLImageElement.border documentation> +getBorderUnsafe ::+                (MonadIO m, HasCallStack, FromJSString result) =>+                  HTMLImageElement -> m result+getBorderUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getBorder self)) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.border Mozilla HTMLImageElement.border documentation> +getBorderUnchecked ::+                   (MonadIO m, FromJSString result) => HTMLImageElement -> m result+getBorderUnchecked self+  = liftIO (fromJust . fromMaybeJSString <$> (js_getBorder self))   foreign import javascript unsafe "$1[\"crossOrigin\"] = $2;"-        js_setCrossOrigin :: HTMLImageElement -> JSString -> IO ()+        js_setCrossOrigin :: HTMLImageElement -> Optional 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 ()+               (MonadIO m, ToJSString val) =>+                 HTMLImageElement -> Maybe val -> m () setCrossOrigin self val-  = liftIO (js_setCrossOrigin (self) (toJSString val))+  = liftIO (js_setCrossOrigin self (toOptionalJSString val))   foreign import javascript unsafe "$1[\"crossOrigin\"]"-        js_getCrossOrigin :: HTMLImageElement -> IO JSString+        js_getCrossOrigin :: HTMLImageElement -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.crossOrigin Mozilla HTMLImageElement.crossOrigin documentation>  getCrossOrigin ::-               (MonadIO m, FromJSString result) => HTMLImageElement -> m result+               (MonadIO m, FromJSString result) =>+                 HTMLImageElement -> m (Maybe result) getCrossOrigin self-  = liftIO (fromJSString <$> (js_getCrossOrigin (self)))+  = liftIO (fromMaybeJSString <$> (js_getCrossOrigin self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.crossOrigin Mozilla HTMLImageElement.crossOrigin documentation> +getCrossOriginUnsafe ::+                     (MonadIO m, HasCallStack, FromJSString result) =>+                       HTMLImageElement -> m result+getCrossOriginUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getCrossOrigin self)) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.crossOrigin Mozilla HTMLImageElement.crossOrigin documentation> +getCrossOriginUnchecked ::+                        (MonadIO m, FromJSString result) => HTMLImageElement -> m result+getCrossOriginUnchecked self+  = liftIO+      (fromJust . fromMaybeJSString <$> (js_getCrossOrigin self))   foreign import javascript unsafe "$1[\"height\"] = $2;"-        js_setHeight :: HTMLImageElement -> Int -> IO ()+        js_setHeight :: HTMLImageElement -> Word -> 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)+setHeight :: (MonadIO m) => HTMLImageElement -> Word -> m ()+setHeight self val = liftIO (js_setHeight self val)   foreign import javascript unsafe "$1[\"height\"]" js_getHeight ::-        HTMLImageElement -> IO Int+        HTMLImageElement -> IO Word  -- | <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))+getHeight :: (MonadIO m) => HTMLImageElement -> m Word+getHeight self = liftIO (js_getHeight self)   foreign import javascript unsafe "$1[\"hspace\"] = $2;"-        js_setHspace :: HTMLImageElement -> Int -> IO ()+        js_setHspace :: HTMLImageElement -> Word -> 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)+setHspace :: (MonadIO m) => HTMLImageElement -> Word -> m ()+setHspace self val = liftIO (js_setHspace self val)   foreign import javascript unsafe "$1[\"hspace\"]" js_getHspace ::-        HTMLImageElement -> IO Int+        HTMLImageElement -> IO Word  -- | <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))+getHspace :: (MonadIO m) => HTMLImageElement -> m Word+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)+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))+getIsMap self = liftIO (js_getIsMap self)   foreign import javascript unsafe "$1[\"longDesc\"] = $2;"         js_setLongDesc :: HTMLImageElement -> JSString -> IO ()@@ -170,7 +209,7 @@ setLongDesc ::             (MonadIO m, ToJSString val) => HTMLImageElement -> val -> m () setLongDesc self val-  = liftIO (js_setLongDesc (self) (toJSString val))+  = liftIO (js_setLongDesc self (toJSString val))   foreign import javascript unsafe "$1[\"longDesc\"]" js_getLongDesc         :: HTMLImageElement -> IO JSString@@ -178,8 +217,7 @@ -- | <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)))+getLongDesc self = liftIO (fromJSString <$> (js_getLongDesc self))   foreign import javascript unsafe "$1[\"src\"] = $2;" js_setSrc ::         HTMLImageElement -> JSString -> IO ()@@ -187,7 +225,7 @@ -- | <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))+setSrc self val = liftIO (js_setSrc self (toJSString val))   foreign import javascript unsafe "$1[\"src\"]" js_getSrc ::         HTMLImageElement -> IO JSString@@ -195,7 +233,7 @@ -- | <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)))+getSrc self = liftIO (fromJSString <$> (js_getSrc self))   foreign import javascript unsafe "$1[\"srcset\"] = $2;"         js_setSrcset :: HTMLImageElement -> JSString -> IO ()@@ -203,7 +241,7 @@ -- | <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))+setSrcset self val = liftIO (js_setSrcset self (toJSString val))   foreign import javascript unsafe "$1[\"srcset\"]" js_getSrcset ::         HTMLImageElement -> IO JSString@@ -211,7 +249,7 @@ -- | <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)))+getSrcset self = liftIO (fromJSString <$> (js_getSrcset self))   foreign import javascript unsafe "$1[\"sizes\"] = $2;" js_setSizes         :: HTMLImageElement -> JSString -> IO ()@@ -219,7 +257,7 @@ -- | <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))+setSizes self val = liftIO (js_setSizes self (toJSString val))   foreign import javascript unsafe "$1[\"sizes\"]" js_getSizes ::         HTMLImageElement -> IO JSString@@ -227,7 +265,7 @@ -- | <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)))+getSizes self = liftIO (fromJSString <$> (js_getSizes self))   foreign import javascript unsafe "$1[\"currentSrc\"]"         js_getCurrentSrc :: HTMLImageElement -> IO JSString@@ -236,7 +274,7 @@ getCurrentSrc ::               (MonadIO m, FromJSString result) => HTMLImageElement -> m result getCurrentSrc self-  = liftIO (fromJSString <$> (js_getCurrentSrc (self)))+  = liftIO (fromJSString <$> (js_getCurrentSrc self))   foreign import javascript unsafe "$1[\"useMap\"] = $2;"         js_setUseMap :: HTMLImageElement -> JSString -> IO ()@@ -244,7 +282,7 @@ -- | <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))+setUseMap self val = liftIO (js_setUseMap self (toJSString val))   foreign import javascript unsafe "$1[\"useMap\"]" js_getUseMap ::         HTMLImageElement -> IO JSString@@ -252,42 +290,42 @@ -- | <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)))+getUseMap self = liftIO (fromJSString <$> (js_getUseMap self))   foreign import javascript unsafe "$1[\"vspace\"] = $2;"-        js_setVspace :: HTMLImageElement -> Int -> IO ()+        js_setVspace :: HTMLImageElement -> Word -> 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)+setVspace :: (MonadIO m) => HTMLImageElement -> Word -> m ()+setVspace self val = liftIO (js_setVspace self val)   foreign import javascript unsafe "$1[\"vspace\"]" js_getVspace ::-        HTMLImageElement -> IO Int+        HTMLImageElement -> IO Word  -- | <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))+getVspace :: (MonadIO m) => HTMLImageElement -> m Word+getVspace self = liftIO (js_getVspace self)   foreign import javascript unsafe "$1[\"width\"] = $2;" js_setWidth-        :: HTMLImageElement -> Int -> IO ()+        :: HTMLImageElement -> Word -> 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)+setWidth :: (MonadIO m) => HTMLImageElement -> Word -> m ()+setWidth self val = liftIO (js_setWidth self val)   foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::-        HTMLImageElement -> IO Int+        HTMLImageElement -> IO Word  -- | <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))+getWidth :: (MonadIO m) => HTMLImageElement -> m Word+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))+getComplete self = liftIO (js_getComplete self)   foreign import javascript unsafe "$1[\"lowsrc\"] = $2;"         js_setLowsrc :: HTMLImageElement -> JSString -> IO ()@@ -295,7 +333,7 @@ -- | <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))+setLowsrc self val = liftIO (js_setLowsrc self (toJSString val))   foreign import javascript unsafe "$1[\"lowsrc\"]" js_getLowsrc ::         HTMLImageElement -> IO JSString@@ -303,32 +341,32 @@ -- | <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)))+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))+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))+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))+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))+getY self = liftIO (js_getY self)
src/GHCJS/DOM/JSFFI/Generated/HTMLInputElement.hs view
@@ -5,63 +5,56 @@ {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLInputElement        (js_stepUp, stepUp, js_stepDown, stepDown, js_checkValidity,-        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, getFormUnsafe,-        getFormUnchecked, js_setFiles, setFiles, js_getFiles, getFiles,+        checkValidity, checkValidity_, js_reportValidity, reportValidity,+        reportValidity_, 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,         getFilesUnsafe, getFilesUnchecked, js_setFormAction, setFormAction,         js_getFormAction, getFormAction, js_setFormEnctype, setFormEnctype,-        js_getFormEnctype, getFormEnctype, getFormEnctypeUnsafe,-        getFormEnctypeUnchecked, js_setFormMethod, setFormMethod,-        js_getFormMethod, getFormMethod, getFormMethodUnsafe,-        getFormMethodUnchecked, 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, getListUnsafe, getListUnchecked, 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, getDefaultValueUnsafe,-        getDefaultValueUnchecked, js_setValue, setValue, js_getValue,-        getValue, getValueUnsafe, getValueUnchecked, js_setValueAsDate,+        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_setMinLength, setMinLength, js_getMinLength,+        getMinLength, 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,+        getValueUnsafe, getValueUnchecked, js_setValueAsDate,         setValueAsDate, js_getValueAsDate, getValueAsDate,         getValueAsDateUnsafe, getValueAsDateUnchecked, js_setValueAsNumber,         setValueAsNumber, js_getValueAsNumber, getValueAsNumber,         js_setWidth, setWidth, js_getWidth, getWidth, js_getWillValidate,-        getWillValidate, js_getValidity, getValidity, getValidityUnsafe,-        getValidityUnchecked, js_getValidationMessage,-        getValidationMessage, js_getLabels, getLabels, getLabelsUnsafe,-        getLabelsUnchecked, js_setSelectionStart, setSelectionStart,+        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, getAutocapitalizeUnsafe,-        getAutocapitalizeUnchecked, js_setCapture, setCapture,+        js_getIncremental, getIncremental, js_setCapture, setCapture,         js_getCapture, getCapture, HTMLInputElement(..),         gTypeHTMLInputElement)        where@@ -69,7 +62,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -78,24 +71,25 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums   foreign import javascript unsafe "$1[\"stepUp\"]($2)" js_stepUp ::-        HTMLInputElement -> Int -> IO ()+        HTMLInputElement -> Optional 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)+stepUp :: (MonadIO m) => HTMLInputElement -> Maybe Int -> m ()+stepUp self n = liftIO (js_stepUp self (maybeToOptional n))   foreign import javascript unsafe "$1[\"stepDown\"]($2)" js_stepDown-        :: HTMLInputElement -> Int -> IO ()+        :: HTMLInputElement -> Optional 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)+stepDown :: (MonadIO m) => HTMLInputElement -> Maybe Int -> m ()+stepDown self n = liftIO (js_stepDown self (maybeToOptional n))   foreign import javascript unsafe         "($1[\"checkValidity\"]() ? 1 : 0)" js_checkValidity ::@@ -103,29 +97,39 @@  -- | <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))+checkValidity self = liftIO (js_checkValidity self)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.checkValidity Mozilla HTMLInputElement.checkValidity documentation>  checkValidity_ :: (MonadIO m) => HTMLInputElement -> m ()-checkValidity_ self = liftIO (void (js_checkValidity (self)))+checkValidity_ self = liftIO (void (js_checkValidity self))  +foreign import javascript unsafe+        "($1[\"reportValidity\"]() ? 1 : 0)" js_reportValidity ::+        HTMLInputElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.reportValidity Mozilla HTMLInputElement.reportValidity documentation> +reportValidity :: (MonadIO m) => HTMLInputElement -> m Bool+reportValidity self = liftIO (js_reportValidity self)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.reportValidity Mozilla HTMLInputElement.reportValidity documentation> +reportValidity_ :: (MonadIO m) => HTMLInputElement -> m ()+reportValidity_ self = liftIO (void (js_reportValidity self))+  foreign import javascript unsafe "$1[\"setCustomValidity\"]($2)"-        js_setCustomValidity ::-        HTMLInputElement -> Nullable JSString -> IO ()+        js_setCustomValidity :: HTMLInputElement -> 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 ()+                  (MonadIO m, ToJSString error) => HTMLInputElement -> error -> m () setCustomValidity self error-  = liftIO (js_setCustomValidity (self) (toMaybeJSString error))+  = liftIO (js_setCustomValidity self (toJSString 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))+select self = liftIO (js_select self)   foreign import javascript unsafe "$1[\"setRangeText\"]($2)"         js_setRangeText :: HTMLInputElement -> JSString -> IO ()@@ -135,33 +139,35 @@              (MonadIO m, ToJSString replacement) =>                HTMLInputElement -> replacement -> m () setRangeText self replacement-  = liftIO (js_setRangeText (self) (toJSString 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 ()+        HTMLInputElement ->+          JSString -> Word -> Word -> Optional 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 ()+                  replacement -> Word -> Word -> Maybe selectionMode -> m () setRangeText4 self replacement start end selectionMode   = liftIO-      (js_setRangeText4 (self) (toJSString replacement) start end-         (toJSString selectionMode))+      (js_setRangeText4 self (toJSString replacement) start end+         (toOptionalJSString selectionMode))   foreign import javascript unsafe         "$1[\"setSelectionRange\"]($2, $3,\n$4)" js_setSelectionRange ::-        HTMLInputElement -> Int -> Int -> JSString -> IO ()+        HTMLInputElement -> Int -> Int -> Optional 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 ()+                    HTMLInputElement -> Int -> Int -> Maybe direction -> m () setSelectionRange self start end direction   = liftIO-      (js_setSelectionRange (self) start end (toJSString direction))+      (js_setSelectionRange self start end+         (toOptionalJSString direction))   foreign import javascript unsafe "$1[\"accept\"] = $2;"         js_setAccept :: HTMLInputElement -> JSString -> IO ()@@ -169,7 +175,7 @@ -- | <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))+setAccept self val = liftIO (js_setAccept self (toJSString val))   foreign import javascript unsafe "$1[\"accept\"]" js_getAccept ::         HTMLInputElement -> IO JSString@@ -177,7 +183,7 @@ -- | <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)))+getAccept self = liftIO (fromJSString <$> (js_getAccept self))   foreign import javascript unsafe "$1[\"alt\"] = $2;" js_setAlt ::         HTMLInputElement -> JSString -> IO ()@@ -185,7 +191,7 @@ -- | <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))+setAlt self val = liftIO (js_setAlt self (toJSString val))   foreign import javascript unsafe "$1[\"alt\"]" js_getAlt ::         HTMLInputElement -> IO JSString@@ -193,7 +199,7 @@ -- | <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)))+getAlt self = liftIO (fromJSString <$> (js_getAlt self))   foreign import javascript unsafe "$1[\"autocomplete\"] = $2;"         js_setAutocomplete :: HTMLInputElement -> JSString -> IO ()@@ -202,7 +208,7 @@ setAutocomplete ::                 (MonadIO m, ToJSString val) => HTMLInputElement -> val -> m () setAutocomplete self val-  = liftIO (js_setAutocomplete (self) (toJSString val))+  = liftIO (js_setAutocomplete self (toJSString val))   foreign import javascript unsafe "$1[\"autocomplete\"]"         js_getAutocomplete :: HTMLInputElement -> IO JSString@@ -211,21 +217,21 @@ getAutocomplete ::                 (MonadIO m, FromJSString result) => HTMLInputElement -> m result getAutocomplete self-  = liftIO (fromJSString <$> (js_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)+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))+getAutofocus self = liftIO (js_getAutofocus self)   foreign import javascript unsafe "$1[\"defaultChecked\"] = $2;"         js_setDefaultChecked :: HTMLInputElement -> Bool -> IO ()@@ -233,29 +239,28 @@ -- | <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)+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))+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)+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))+getChecked self = liftIO (js_getChecked self)   foreign import javascript unsafe "$1[\"dirName\"] = $2;"         js_setDirName :: HTMLInputElement -> JSString -> IO ()@@ -263,8 +268,7 @@ -- | <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))+setDirName self val = liftIO (js_setDirName self (toJSString val))   foreign import javascript unsafe "$1[\"dirName\"]" js_getDirName ::         HTMLInputElement -> IO JSString@@ -272,72 +276,56 @@ -- | <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)))+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)+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))+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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.form Mozilla HTMLInputElement.form documentation> -getFormUnsafe ::-              (MonadIO m, HasCallStack) => HTMLInputElement -> m HTMLFormElement-getFormUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getForm (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        HTMLInputElement -> IO HTMLFormElement  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.form Mozilla HTMLInputElement.form documentation> -getFormUnchecked ::-                 (MonadIO m) => HTMLInputElement -> m HTMLFormElement-getFormUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getForm (self)))+getForm :: (MonadIO m) => HTMLInputElement -> m HTMLFormElement+getForm self = liftIO (js_getForm self)   foreign import javascript unsafe "$1[\"files\"] = $2;" js_setFiles-        :: HTMLInputElement -> Nullable FileList -> IO ()+        :: HTMLInputElement -> Optional 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))+setFiles self val = liftIO (js_setFiles self (maybeToOptional 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)))+getFiles self = liftIO (nullableToMaybe <$> (js_getFiles self))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.files Mozilla HTMLInputElement.files documentation>  getFilesUnsafe ::                (MonadIO m, HasCallStack) => HTMLInputElement -> m FileList getFilesUnsafe self   = liftIO-      ((nullableToMaybe <$> (js_getFiles (self))) >>=+      ((nullableToMaybe <$> (js_getFiles self)) >>=          maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.files Mozilla HTMLInputElement.files documentation>  getFilesUnchecked :: (MonadIO m) => HTMLInputElement -> m FileList getFilesUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getFiles (self)))+  = liftIO (fromJust . nullableToMaybe <$> (js_getFiles self))   foreign import javascript unsafe "$1[\"formAction\"] = $2;"         js_setFormAction :: HTMLInputElement -> JSString -> IO ()@@ -346,7 +334,7 @@ setFormAction ::               (MonadIO m, ToJSString val) => HTMLInputElement -> val -> m () setFormAction self val-  = liftIO (js_setFormAction (self) (toJSString val))+  = liftIO (js_setFormAction self (toJSString val))   foreign import javascript unsafe "$1[\"formAction\"]"         js_getFormAction :: HTMLInputElement -> IO JSString@@ -355,79 +343,43 @@ getFormAction ::               (MonadIO m, FromJSString result) => HTMLInputElement -> m result getFormAction self-  = liftIO (fromJSString <$> (js_getFormAction (self)))+  = liftIO (fromJSString <$> (js_getFormAction self))   foreign import javascript unsafe "$1[\"formEnctype\"] = $2;"-        js_setFormEnctype :: HTMLInputElement -> Nullable JSString -> IO ()+        js_setFormEnctype :: HTMLInputElement -> 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 ()+               (MonadIO m, ToJSString val) => HTMLInputElement -> val -> m () setFormEnctype self val-  = liftIO (js_setFormEnctype (self) (toMaybeJSString val))+  = liftIO (js_setFormEnctype self (toJSString val))   foreign import javascript unsafe "$1[\"formEnctype\"]"-        js_getFormEnctype :: HTMLInputElement -> IO (Nullable JSString)+        js_getFormEnctype :: HTMLInputElement -> IO 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)+               (MonadIO m, FromJSString result) => HTMLInputElement -> m result getFormEnctype self-  = liftIO (fromMaybeJSString <$> (js_getFormEnctype (self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.formEnctype Mozilla HTMLInputElement.formEnctype documentation> -getFormEnctypeUnsafe ::-                     (MonadIO m, HasCallStack, FromJSString result) =>-                       HTMLInputElement -> m result-getFormEnctypeUnsafe self-  = liftIO-      ((fromMaybeJSString <$> (js_getFormEnctype (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.formEnctype Mozilla HTMLInputElement.formEnctype documentation> -getFormEnctypeUnchecked ::-                        (MonadIO m, FromJSString result) => HTMLInputElement -> m result-getFormEnctypeUnchecked self-  = liftIO-      (fromJust . fromMaybeJSString <$> (js_getFormEnctype (self)))+  = liftIO (fromJSString <$> (js_getFormEnctype self))   foreign import javascript unsafe "$1[\"formMethod\"] = $2;"-        js_setFormMethod :: HTMLInputElement -> Nullable JSString -> IO ()+        js_setFormMethod :: HTMLInputElement -> 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 ()+              (MonadIO m, ToJSString val) => HTMLInputElement -> val -> m () setFormMethod self val-  = liftIO (js_setFormMethod (self) (toMaybeJSString val))+  = liftIO (js_setFormMethod self (toJSString val))   foreign import javascript unsafe "$1[\"formMethod\"]"-        js_getFormMethod :: HTMLInputElement -> IO (Nullable JSString)+        js_getFormMethod :: HTMLInputElement -> IO 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)+              (MonadIO m, FromJSString result) => HTMLInputElement -> m result getFormMethod self-  = liftIO (fromMaybeJSString <$> (js_getFormMethod (self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.formMethod Mozilla HTMLInputElement.formMethod documentation> -getFormMethodUnsafe ::-                    (MonadIO m, HasCallStack, FromJSString result) =>-                      HTMLInputElement -> m result-getFormMethodUnsafe self-  = liftIO-      ((fromMaybeJSString <$> (js_getFormMethod (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.formMethod Mozilla HTMLInputElement.formMethod documentation> -getFormMethodUnchecked ::-                       (MonadIO m, FromJSString result) => HTMLInputElement -> m result-getFormMethodUnchecked self-  = liftIO-      (fromJust . fromMaybeJSString <$> (js_getFormMethod (self)))+  = liftIO (fromJSString <$> (js_getFormMethod self))   foreign import javascript unsafe "$1[\"formNoValidate\"] = $2;"         js_setFormNoValidate :: HTMLInputElement -> Bool -> IO ()@@ -435,15 +387,14 @@ -- | <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)+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))+getFormNoValidate self = liftIO (js_getFormNoValidate self)   foreign import javascript unsafe "$1[\"formTarget\"] = $2;"         js_setFormTarget :: HTMLInputElement -> JSString -> IO ()@@ -452,7 +403,7 @@ setFormTarget ::               (MonadIO m, ToJSString val) => HTMLInputElement -> val -> m () setFormTarget self val-  = liftIO (js_setFormTarget (self) (toJSString val))+  = liftIO (js_setFormTarget self (toJSString val))   foreign import javascript unsafe "$1[\"formTarget\"]"         js_getFormTarget :: HTMLInputElement -> IO JSString@@ -461,56 +412,42 @@ getFormTarget ::               (MonadIO m, FromJSString result) => HTMLInputElement -> m result getFormTarget self-  = liftIO (fromJSString <$> (js_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)+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))+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)+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))+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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.list Mozilla HTMLInputElement.list documentation> -getListUnsafe ::-              (MonadIO m, HasCallStack) => HTMLInputElement -> m HTMLElement-getListUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getList (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        HTMLInputElement -> IO HTMLElement  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.list Mozilla HTMLInputElement.list documentation> -getListUnchecked ::-                 (MonadIO m) => HTMLInputElement -> m HTMLElement-getListUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getList (self)))+getList :: (MonadIO m) => HTMLInputElement -> m HTMLElement+getList self = liftIO (js_getList self)   foreign import javascript unsafe "$1[\"max\"] = $2;" js_setMax ::         HTMLInputElement -> JSString -> IO ()@@ -518,7 +455,7 @@ -- | <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))+setMax self val = liftIO (js_setMax self (toJSString val))   foreign import javascript unsafe "$1[\"max\"]" js_getMax ::         HTMLInputElement -> IO JSString@@ -526,21 +463,35 @@ -- | <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)))+getMax self = liftIO (fromJSString <$> (js_getMax self))  +foreign import javascript unsafe "$1[\"minLength\"] = $2;"+        js_setMinLength :: HTMLInputElement -> Int -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.minLength Mozilla HTMLInputElement.minLength documentation> +setMinLength :: (MonadIO m) => HTMLInputElement -> Int -> m ()+setMinLength self val = liftIO (js_setMinLength self val)+ +foreign import javascript unsafe "$1[\"minLength\"]"+        js_getMinLength :: HTMLInputElement -> IO Int++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.minLength Mozilla HTMLInputElement.minLength documentation> +getMinLength :: (MonadIO m) => HTMLInputElement -> m Int+getMinLength self = liftIO (js_getMinLength 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)+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))+getMaxLength self = liftIO (js_getMaxLength self)   foreign import javascript unsafe "$1[\"min\"] = $2;" js_setMin ::         HTMLInputElement -> JSString -> IO ()@@ -548,7 +499,7 @@ -- | <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))+setMin self val = liftIO (js_setMin self (toJSString val))   foreign import javascript unsafe "$1[\"min\"]" js_getMin ::         HTMLInputElement -> IO JSString@@ -556,21 +507,21 @@ -- | <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)))+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)+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))+getMultiple self = liftIO (js_getMultiple self)   foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName ::         HTMLInputElement -> JSString -> IO ()@@ -578,7 +529,7 @@ -- | <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))+setName self val = liftIO (js_setName self (toJSString val))   foreign import javascript unsafe "$1[\"name\"]" js_getName ::         HTMLInputElement -> IO JSString@@ -586,7 +537,7 @@ -- | <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)))+getName self = liftIO (fromJSString <$> (js_getName self))   foreign import javascript unsafe "$1[\"pattern\"] = $2;"         js_setPattern :: HTMLInputElement -> JSString -> IO ()@@ -594,8 +545,7 @@ -- | <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))+setPattern self val = liftIO (js_setPattern self (toJSString val))   foreign import javascript unsafe "$1[\"pattern\"]" js_getPattern ::         HTMLInputElement -> IO JSString@@ -603,7 +553,7 @@ -- | <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)))+getPattern self = liftIO (fromJSString <$> (js_getPattern self))   foreign import javascript unsafe "$1[\"placeholder\"] = $2;"         js_setPlaceholder :: HTMLInputElement -> JSString -> IO ()@@ -612,7 +562,7 @@ setPlaceholder ::                (MonadIO m, ToJSString val) => HTMLInputElement -> val -> m () setPlaceholder self val-  = liftIO (js_setPlaceholder (self) (toJSString val))+  = liftIO (js_setPlaceholder self (toJSString val))   foreign import javascript unsafe "$1[\"placeholder\"]"         js_getPlaceholder :: HTMLInputElement -> IO JSString@@ -621,49 +571,49 @@ getPlaceholder ::                (MonadIO m, FromJSString result) => HTMLInputElement -> m result getPlaceholder self-  = liftIO (fromJSString <$> (js_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)+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))+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)+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))+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)+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))+getSize self = liftIO (js_getSize self)   foreign import javascript unsafe "$1[\"src\"] = $2;" js_setSrc ::         HTMLInputElement -> JSString -> IO ()@@ -671,7 +621,7 @@ -- | <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))+setSrc self val = liftIO (js_setSrc self (toJSString val))   foreign import javascript unsafe "$1[\"src\"]" js_getSrc ::         HTMLInputElement -> IO JSString@@ -679,7 +629,7 @@ -- | <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)))+getSrc self = liftIO (fromJSString <$> (js_getSrc self))   foreign import javascript unsafe "$1[\"step\"] = $2;" js_setStep ::         HTMLInputElement -> JSString -> IO ()@@ -687,7 +637,7 @@ -- | <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))+setStep self val = liftIO (js_setStep self (toJSString val))   foreign import javascript unsafe "$1[\"step\"]" js_getStep ::         HTMLInputElement -> IO JSString@@ -695,7 +645,7 @@ -- | <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)))+getStep self = liftIO (fromJSString <$> (js_getStep self))   foreign import javascript unsafe "$1[\"type\"] = $2;" js_setType ::         HTMLInputElement -> JSString -> IO ()@@ -703,7 +653,7 @@ -- | <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))+setType self val = liftIO (js_setType self (toJSString val))   foreign import javascript unsafe "$1[\"type\"]" js_getType ::         HTMLInputElement -> IO JSString@@ -711,54 +661,35 @@ -- | <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)))+getType self = liftIO (fromJSString <$> (js_getType self))   foreign import javascript unsafe "$1[\"defaultValue\"] = $2;"-        js_setDefaultValue ::-        HTMLInputElement -> Nullable JSString -> IO ()+        js_setDefaultValue :: HTMLInputElement -> 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 ()+                (MonadIO m, ToJSString val) => HTMLInputElement -> val -> m () setDefaultValue self val-  = liftIO (js_setDefaultValue (self) (toMaybeJSString val))+  = liftIO (js_setDefaultValue self (toJSString val))   foreign import javascript unsafe "$1[\"defaultValue\"]"-        js_getDefaultValue :: HTMLInputElement -> IO (Nullable JSString)+        js_getDefaultValue :: HTMLInputElement -> IO 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)+                (MonadIO m, FromJSString result) => HTMLInputElement -> m result getDefaultValue self-  = liftIO (fromMaybeJSString <$> (js_getDefaultValue (self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.defaultValue Mozilla HTMLInputElement.defaultValue documentation> -getDefaultValueUnsafe ::-                      (MonadIO m, HasCallStack, FromJSString result) =>-                        HTMLInputElement -> m result-getDefaultValueUnsafe self-  = liftIO-      ((fromMaybeJSString <$> (js_getDefaultValue (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.defaultValue Mozilla HTMLInputElement.defaultValue documentation> -getDefaultValueUnchecked ::-                         (MonadIO m, FromJSString result) => HTMLInputElement -> m result-getDefaultValueUnchecked self-  = liftIO-      (fromJust . fromMaybeJSString <$> (js_getDefaultValue (self)))+  = liftIO (fromJSString <$> (js_getDefaultValue self))   foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue-        :: HTMLInputElement -> Nullable JSString -> IO ()+        :: HTMLInputElement -> Optional 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))+  = liftIO (js_setValue self (toOptionalJSString val))   foreign import javascript unsafe "$1[\"value\"]" js_getValue ::         HTMLInputElement -> IO (Nullable JSString)@@ -767,7 +698,7 @@ getValue ::          (MonadIO m, FromJSString result) =>            HTMLInputElement -> m (Maybe result)-getValue self = liftIO (fromMaybeJSString <$> (js_getValue (self)))+getValue self = liftIO (fromMaybeJSString <$> (js_getValue self))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.value Mozilla HTMLInputElement.value documentation>  getValueUnsafe ::@@ -775,24 +706,24 @@                  HTMLInputElement -> m result getValueUnsafe self   = liftIO-      ((fromMaybeJSString <$> (js_getValue (self))) >>=+      ((fromMaybeJSString <$> (js_getValue self)) >>=          maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.value Mozilla HTMLInputElement.value documentation>  getValueUnchecked ::                   (MonadIO m, FromJSString result) => HTMLInputElement -> m result getValueUnchecked self-  = liftIO (fromJust . fromMaybeJSString <$> (js_getValue (self)))+  = liftIO (fromJust . fromMaybeJSString <$> (js_getValue self))   foreign import javascript unsafe "$1[\"valueAsDate\"] = $2;"-        js_setValueAsDate :: HTMLInputElement -> Nullable Date -> IO ()+        js_setValueAsDate :: HTMLInputElement -> Optional 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)))+      (js_setValueAsDate self (maybeToOptional (fmap toDate val)))   foreign import javascript unsafe "$1[\"valueAsDate\"]"         js_getValueAsDate :: HTMLInputElement -> IO (Nullable Date)@@ -800,22 +731,21 @@ -- | <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)))+  = liftIO (nullableToMaybe <$> (js_getValueAsDate self))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.valueAsDate Mozilla HTMLInputElement.valueAsDate documentation>  getValueAsDateUnsafe ::                      (MonadIO m, HasCallStack) => HTMLInputElement -> m Date getValueAsDateUnsafe self   = liftIO-      ((nullableToMaybe <$> (js_getValueAsDate (self))) >>=+      ((nullableToMaybe <$> (js_getValueAsDate self)) >>=          maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.valueAsDate Mozilla HTMLInputElement.valueAsDate documentation>  getValueAsDateUnchecked ::                         (MonadIO m) => HTMLInputElement -> m Date getValueAsDateUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$> (js_getValueAsDate (self)))+  = liftIO (fromJust . nullableToMaybe <$> (js_getValueAsDate self))   foreign import javascript unsafe "$1[\"valueAsNumber\"] = $2;"         js_setValueAsNumber :: HTMLInputElement -> Double -> IO ()@@ -823,58 +753,42 @@ -- | <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)+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))+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)+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))+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))+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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.validity Mozilla HTMLInputElement.validity documentation> -getValidityUnsafe ::-                  (MonadIO m, HasCallStack) => HTMLInputElement -> m ValidityState-getValidityUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getValidity (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        :: HTMLInputElement -> IO ValidityState  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.validity Mozilla HTMLInputElement.validity documentation> -getValidityUnchecked ::-                     (MonadIO m) => HTMLInputElement -> m ValidityState-getValidityUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getValidity (self)))+getValidity :: (MonadIO m) => HTMLInputElement -> m ValidityState+getValidity self = liftIO (js_getValidity self)   foreign import javascript unsafe "$1[\"validationMessage\"]"         js_getValidationMessage :: HTMLInputElement -> IO JSString@@ -883,56 +797,42 @@ getValidationMessage ::                      (MonadIO m, FromJSString result) => HTMLInputElement -> m result getValidationMessage self-  = liftIO (fromJSString <$> (js_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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.labels Mozilla HTMLInputElement.labels documentation> -getLabelsUnsafe ::-                (MonadIO m, HasCallStack) => HTMLInputElement -> m NodeList-getLabelsUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getLabels (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        HTMLInputElement -> IO NodeList  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.labels Mozilla HTMLInputElement.labels documentation> -getLabelsUnchecked :: (MonadIO m) => HTMLInputElement -> m NodeList-getLabelsUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getLabels (self)))+getLabels :: (MonadIO m) => HTMLInputElement -> m NodeList+getLabels self = liftIO (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)+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))+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)+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))+getSelectionEnd self = liftIO (js_getSelectionEnd self)   foreign import javascript unsafe "$1[\"selectionDirection\"] = $2;"         js_setSelectionDirection :: HTMLInputElement -> JSString -> IO ()@@ -941,7 +841,7 @@ setSelectionDirection ::                       (MonadIO m, ToJSString val) => HTMLInputElement -> val -> m () setSelectionDirection self val-  = liftIO (js_setSelectionDirection (self) (toJSString val))+  = liftIO (js_setSelectionDirection self (toJSString val))   foreign import javascript unsafe "$1[\"selectionDirection\"]"         js_getSelectionDirection :: HTMLInputElement -> IO JSString@@ -950,7 +850,7 @@ getSelectionDirection ::                       (MonadIO m, FromJSString result) => HTMLInputElement -> m result getSelectionDirection self-  = liftIO (fromJSString <$> (js_getSelectionDirection (self)))+  = liftIO (fromJSString <$> (js_getSelectionDirection self))   foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign         :: HTMLInputElement -> JSString -> IO ()@@ -958,7 +858,7 @@ -- | <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))+setAlign self val = liftIO (js_setAlign self (toJSString val))   foreign import javascript unsafe "$1[\"align\"]" js_getAlign ::         HTMLInputElement -> IO JSString@@ -966,7 +866,7 @@ -- | <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)))+getAlign self = liftIO (fromJSString <$> (js_getAlign self))   foreign import javascript unsafe "$1[\"useMap\"] = $2;"         js_setUseMap :: HTMLInputElement -> JSString -> IO ()@@ -974,7 +874,7 @@ -- | <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))+setUseMap self val = liftIO (js_setUseMap self (toJSString val))   foreign import javascript unsafe "$1[\"useMap\"]" js_getUseMap ::         HTMLInputElement -> IO JSString@@ -982,83 +882,34 @@ -- | <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)))+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)+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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.autocapitalize Mozilla HTMLInputElement.autocapitalize documentation> -getAutocapitalizeUnsafe ::-                        (MonadIO m, HasCallStack, FromJSString result) =>-                          HTMLInputElement -> m result-getAutocapitalizeUnsafe self-  = liftIO-      ((fromMaybeJSString <$> (js_getAutocapitalize (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.autocapitalize Mozilla HTMLInputElement.autocapitalize documentation> -getAutocapitalizeUnchecked ::-                           (MonadIO m, FromJSString result) => HTMLInputElement -> m result-getAutocapitalizeUnchecked self-  = liftIO-      (fromJust . fromMaybeJSString <$> (js_getAutocapitalize (self)))+getIncremental self = liftIO (js_getIncremental self)   foreign import javascript unsafe "$1[\"capture\"] = $2;"-        js_setCapture :: HTMLInputElement -> Bool -> IO ()+        js_setCapture :: HTMLInputElement -> JSString -> 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)+setCapture ::+           (MonadIO m, ToJSString val) => HTMLInputElement -> val -> m ()+setCapture self val = liftIO (js_setCapture self (toJSString val))  -foreign import javascript unsafe "($1[\"capture\"] ? 1 : 0)"-        js_getCapture :: HTMLInputElement -> IO Bool+foreign import javascript unsafe "$1[\"capture\"]" js_getCapture ::+        HTMLInputElement -> IO JSString  -- | <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))+getCapture ::+           (MonadIO m, FromJSString result) => HTMLInputElement -> m result+getCapture self = liftIO (fromJSString <$> (js_getCapture self))
src/GHCJS/DOM/JSFFI/Generated/HTMLKeygenElement.hs view
@@ -5,23 +5,22 @@ {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLKeygenElement        (js_checkValidity, checkValidity, checkValidity_,+        js_reportValidity, reportValidity, reportValidity_,         js_setCustomValidity, setCustomValidity, js_setAutofocus,         setAutofocus, js_getAutofocus, getAutofocus, js_setChallenge,         setChallenge, js_getChallenge, getChallenge, js_setDisabled,         setDisabled, js_getDisabled, getDisabled, js_getForm, getForm,-        getFormUnsafe, getFormUnchecked, js_setKeytype, setKeytype,-        js_getKeytype, getKeytype, js_setName, setName, js_getName,-        getName, js_getType, getType, js_getWillValidate, getWillValidate,-        js_getValidity, getValidity, getValidityUnsafe,-        getValidityUnchecked, js_getValidationMessage,-        getValidationMessage, js_getLabels, getLabels, getLabelsUnsafe,-        getLabelsUnchecked, HTMLKeygenElement(..), gTypeHTMLKeygenElement)+        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(..), gTypeHTMLKeygenElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -30,6 +29,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -41,36 +41,46 @@  -- | <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))+checkValidity self = liftIO (js_checkValidity self)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLKeygenElement.checkValidity Mozilla HTMLKeygenElement.checkValidity documentation>  checkValidity_ :: (MonadIO m) => HTMLKeygenElement -> m ()-checkValidity_ self = liftIO (void (js_checkValidity (self)))+checkValidity_ self = liftIO (void (js_checkValidity self))  +foreign import javascript unsafe+        "($1[\"reportValidity\"]() ? 1 : 0)" js_reportValidity ::+        HTMLKeygenElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLKeygenElement.reportValidity Mozilla HTMLKeygenElement.reportValidity documentation> +reportValidity :: (MonadIO m) => HTMLKeygenElement -> m Bool+reportValidity self = liftIO (js_reportValidity self)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLKeygenElement.reportValidity Mozilla HTMLKeygenElement.reportValidity documentation> +reportValidity_ :: (MonadIO m) => HTMLKeygenElement -> m ()+reportValidity_ self = liftIO (void (js_reportValidity self))+  foreign import javascript unsafe "$1[\"setCustomValidity\"]($2)"-        js_setCustomValidity ::-        HTMLKeygenElement -> Nullable JSString -> IO ()+        js_setCustomValidity :: HTMLKeygenElement -> 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 ()+                  (MonadIO m, ToJSString error) => HTMLKeygenElement -> error -> m () setCustomValidity self error-  = liftIO (js_setCustomValidity (self) (toMaybeJSString error))+  = liftIO (js_setCustomValidity self (toJSString 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)+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))+getAutofocus self = liftIO (js_getAutofocus self)   foreign import javascript unsafe "$1[\"challenge\"] = $2;"         js_setChallenge :: HTMLKeygenElement -> JSString -> IO ()@@ -79,7 +89,7 @@ setChallenge ::              (MonadIO m, ToJSString val) => HTMLKeygenElement -> val -> m () setChallenge self val-  = liftIO (js_setChallenge (self) (toJSString val))+  = liftIO (js_setChallenge self (toJSString val))   foreign import javascript unsafe "$1[\"challenge\"]"         js_getChallenge :: HTMLKeygenElement -> IO JSString@@ -88,43 +98,28 @@ getChallenge ::              (MonadIO m, FromJSString result) => HTMLKeygenElement -> m result getChallenge self-  = liftIO (fromJSString <$> (js_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)+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))+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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLKeygenElement.form Mozilla HTMLKeygenElement.form documentation> -getFormUnsafe ::-              (MonadIO m, HasCallStack) => HTMLKeygenElement -> m HTMLFormElement-getFormUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getForm (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        HTMLKeygenElement -> IO HTMLFormElement  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLKeygenElement.form Mozilla HTMLKeygenElement.form documentation> -getFormUnchecked ::-                 (MonadIO m) => HTMLKeygenElement -> m HTMLFormElement-getFormUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getForm (self)))+getForm :: (MonadIO m) => HTMLKeygenElement -> m HTMLFormElement+getForm self = liftIO (js_getForm self)   foreign import javascript unsafe "$1[\"keytype\"] = $2;"         js_setKeytype :: HTMLKeygenElement -> JSString -> IO ()@@ -132,8 +127,7 @@ -- | <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))+setKeytype self val = liftIO (js_setKeytype self (toJSString val))   foreign import javascript unsafe "$1[\"keytype\"]" js_getKeytype ::         HTMLKeygenElement -> IO JSString@@ -141,7 +135,7 @@ -- | <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)))+getKeytype self = liftIO (fromJSString <$> (js_getKeytype self))   foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName ::         HTMLKeygenElement -> JSString -> IO ()@@ -149,7 +143,7 @@ -- | <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))+setName self val = liftIO (js_setName self (toJSString val))   foreign import javascript unsafe "$1[\"name\"]" js_getName ::         HTMLKeygenElement -> IO JSString@@ -157,7 +151,7 @@ -- | <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)))+getName self = liftIO (fromJSString <$> (js_getName self))   foreign import javascript unsafe "$1[\"type\"]" js_getType ::         HTMLKeygenElement -> IO JSString@@ -165,37 +159,21 @@ -- | <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)))+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))+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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLKeygenElement.validity Mozilla HTMLKeygenElement.validity documentation> -getValidityUnsafe ::-                  (MonadIO m, HasCallStack) => HTMLKeygenElement -> m ValidityState-getValidityUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getValidity (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        :: HTMLKeygenElement -> IO ValidityState  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLKeygenElement.validity Mozilla HTMLKeygenElement.validity documentation> -getValidityUnchecked ::-                     (MonadIO m) => HTMLKeygenElement -> m ValidityState-getValidityUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getValidity (self)))+getValidity :: (MonadIO m) => HTMLKeygenElement -> m ValidityState+getValidity self = liftIO (js_getValidity self)   foreign import javascript unsafe "$1[\"validationMessage\"]"         js_getValidationMessage :: HTMLKeygenElement -> IO JSString@@ -204,25 +182,11 @@ getValidationMessage ::                      (MonadIO m, FromJSString result) => HTMLKeygenElement -> m result getValidationMessage self-  = liftIO (fromJSString <$> (js_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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLKeygenElement.labels Mozilla HTMLKeygenElement.labels documentation> -getLabelsUnsafe ::-                (MonadIO m, HasCallStack) => HTMLKeygenElement -> m NodeList-getLabelsUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getLabels (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        HTMLKeygenElement -> IO NodeList  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLKeygenElement.labels Mozilla HTMLKeygenElement.labels documentation> -getLabelsUnchecked ::-                   (MonadIO m) => HTMLKeygenElement -> m NodeList-getLabelsUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getLabels (self)))+getLabels :: (MonadIO m) => HTMLKeygenElement -> m NodeList+getLabels self = liftIO (js_getLabels self)
src/GHCJS/DOM/JSFFI/Generated/HTMLLIElement.hs view
@@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -20,6 +20,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -31,7 +32,7 @@ -- | <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))+setType self val = liftIO (js_setType self (toJSString val))   foreign import javascript unsafe "$1[\"type\"]" js_getType ::         HTMLLIElement -> IO JSString@@ -39,18 +40,18 @@ -- | <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)))+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)+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))+getValue self = liftIO (js_getValue self)
src/GHCJS/DOM/JSFFI/Generated/HTMLLabelElement.hs view
@@ -4,16 +4,15 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLLabelElement-       (js_getForm, getForm, getFormUnsafe, getFormUnchecked,-        js_setHtmlFor, setHtmlFor, js_getHtmlFor, getHtmlFor,-        js_getControl, getControl, getControlUnsafe, getControlUnchecked,-        HTMLLabelElement(..), gTypeHTMLLabelElement)+       (js_getForm, getForm, js_setHtmlFor, setHtmlFor, js_getHtmlFor,+        getHtmlFor, js_getControl, getControl, HTMLLabelElement(..),+        gTypeHTMLLabelElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -22,32 +21,18 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLabelElement.form Mozilla HTMLLabelElement.form documentation> -getFormUnsafe ::-              (MonadIO m, HasCallStack) => HTMLLabelElement -> m HTMLFormElement-getFormUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getForm (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        HTMLLabelElement -> IO HTMLFormElement  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLabelElement.form Mozilla HTMLLabelElement.form documentation> -getFormUnchecked ::-                 (MonadIO m) => HTMLLabelElement -> m HTMLFormElement-getFormUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getForm (self)))+getForm :: (MonadIO m) => HTMLLabelElement -> m HTMLFormElement+getForm self = liftIO (js_getForm self)   foreign import javascript unsafe "$1[\"htmlFor\"] = $2;"         js_setHtmlFor :: HTMLLabelElement -> JSString -> IO ()@@ -55,8 +40,7 @@ -- | <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))+setHtmlFor self val = liftIO (js_setHtmlFor self (toJSString val))   foreign import javascript unsafe "$1[\"htmlFor\"]" js_getHtmlFor ::         HTMLLabelElement -> IO JSString@@ -64,27 +48,11 @@ -- | <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)))+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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLabelElement.control Mozilla HTMLLabelElement.control documentation> -getControlUnsafe ::-                 (MonadIO m, HasCallStack) => HTMLLabelElement -> m HTMLElement-getControlUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getControl (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        HTMLLabelElement -> IO HTMLElement  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLabelElement.control Mozilla HTMLLabelElement.control documentation> -getControlUnchecked ::-                    (MonadIO m) => HTMLLabelElement -> m HTMLElement-getControlUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getControl (self)))+getControl :: (MonadIO m) => HTMLLabelElement -> m HTMLElement+getControl self = liftIO (js_getControl self)
src/GHCJS/DOM/JSFFI/Generated/HTMLLegendElement.hs view
@@ -4,15 +4,14 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLLegendElement-       (js_getForm, getForm, getFormUnsafe, getFormUnchecked, js_setAlign,-        setAlign, js_getAlign, getAlign, HTMLLegendElement(..),-        gTypeHTMLLegendElement)+       (js_getForm, getForm, js_setAlign, setAlign, js_getAlign, getAlign,+        HTMLLegendElement(..), gTypeHTMLLegendElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -21,32 +20,18 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLegendElement.form Mozilla HTMLLegendElement.form documentation> -getFormUnsafe ::-              (MonadIO m, HasCallStack) => HTMLLegendElement -> m HTMLFormElement-getFormUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getForm (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        HTMLLegendElement -> IO HTMLFormElement  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLegendElement.form Mozilla HTMLLegendElement.form documentation> -getFormUnchecked ::-                 (MonadIO m) => HTMLLegendElement -> m HTMLFormElement-getFormUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getForm (self)))+getForm :: (MonadIO m) => HTMLLegendElement -> m HTMLFormElement+getForm self = liftIO (js_getForm self)   foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign         :: HTMLLegendElement -> JSString -> IO ()@@ -54,7 +39,7 @@ -- | <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))+setAlign self val = liftIO (js_setAlign self (toJSString val))   foreign import javascript unsafe "$1[\"align\"]" js_getAlign ::         HTMLLegendElement -> IO JSString@@ -62,4 +47,4 @@ -- | <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)))+getAlign self = liftIO (fromJSString <$> (js_getAlign self))
src/GHCJS/DOM/JSFFI/Generated/HTMLLinkElement.hs view
@@ -9,18 +9,19 @@         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,-        getSizesUnsafe, getSizesUnchecked, js_setTarget, setTarget,+        js_getRev, getRev, js_getSizes, getSizes, js_setTarget, setTarget,         js_getTarget, getTarget, js_setType, setType, js_getType, getType,-        js_getSheet, getSheet, getSheetUnsafe, getSheetUnchecked,-        js_getRelList, getRelList, getRelListUnsafe, getRelListUnchecked,-        HTMLLinkElement(..), gTypeHTMLLinkElement)+        js_setAs, setAs, js_getAs, getAs, js_setCrossOrigin,+        setCrossOrigin, js_getCrossOrigin, getCrossOrigin,+        getCrossOriginUnsafe, getCrossOriginUnchecked, js_getSheet,+        getSheet, js_getRelList, getRelList, js_setNonce, setNonce,+        js_getNonce, getNonce, HTMLLinkElement(..), gTypeHTMLLinkElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -29,6 +30,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -39,14 +41,14 @@  -- | <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)+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))+getDisabled self = liftIO (js_getDisabled self)   foreign import javascript unsafe "$1[\"charset\"] = $2;"         js_setCharset :: HTMLLinkElement -> JSString -> IO ()@@ -54,8 +56,7 @@ -- | <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))+setCharset self val = liftIO (js_setCharset self (toJSString val))   foreign import javascript unsafe "$1[\"charset\"]" js_getCharset ::         HTMLLinkElement -> IO JSString@@ -63,7 +64,7 @@ -- | <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)))+getCharset self = liftIO (fromJSString <$> (js_getCharset self))   foreign import javascript unsafe "$1[\"href\"] = $2;" js_setHref ::         HTMLLinkElement -> JSString -> IO ()@@ -71,7 +72,7 @@ -- | <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))+setHref self val = liftIO (js_setHref self (toJSString val))   foreign import javascript unsafe "$1[\"href\"]" js_getHref ::         HTMLLinkElement -> IO JSString@@ -79,7 +80,7 @@ -- | <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)))+getHref self = liftIO (fromJSString <$> (js_getHref self))   foreign import javascript unsafe "$1[\"hreflang\"] = $2;"         js_setHreflang :: HTMLLinkElement -> JSString -> IO ()@@ -88,7 +89,7 @@ setHreflang ::             (MonadIO m, ToJSString val) => HTMLLinkElement -> val -> m () setHreflang self val-  = liftIO (js_setHreflang (self) (toJSString val))+  = liftIO (js_setHreflang self (toJSString val))   foreign import javascript unsafe "$1[\"hreflang\"]" js_getHreflang         :: HTMLLinkElement -> IO JSString@@ -96,8 +97,7 @@ -- | <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)))+getHreflang self = liftIO (fromJSString <$> (js_getHreflang self))   foreign import javascript unsafe "$1[\"media\"] = $2;" js_setMedia         :: HTMLLinkElement -> JSString -> IO ()@@ -105,7 +105,7 @@ -- | <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))+setMedia self val = liftIO (js_setMedia self (toJSString val))   foreign import javascript unsafe "$1[\"media\"]" js_getMedia ::         HTMLLinkElement -> IO JSString@@ -113,7 +113,7 @@ -- | <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)))+getMedia self = liftIO (fromJSString <$> (js_getMedia self))   foreign import javascript unsafe "$1[\"rel\"] = $2;" js_setRel ::         HTMLLinkElement -> JSString -> IO ()@@ -121,7 +121,7 @@ -- | <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))+setRel self val = liftIO (js_setRel self (toJSString val))   foreign import javascript unsafe "$1[\"rel\"]" js_getRel ::         HTMLLinkElement -> IO JSString@@ -129,7 +129,7 @@ -- | <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)))+getRel self = liftIO (fromJSString <$> (js_getRel self))   foreign import javascript unsafe "$1[\"rev\"] = $2;" js_setRev ::         HTMLLinkElement -> JSString -> IO ()@@ -137,7 +137,7 @@ -- | <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))+setRev self val = liftIO (js_setRev self (toJSString val))   foreign import javascript unsafe "$1[\"rev\"]" js_getRev ::         HTMLLinkElement -> IO JSString@@ -145,40 +145,14 @@ -- | <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))+getRev self = liftIO (fromJSString <$> (js_getRev self))   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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.sizes Mozilla HTMLLinkElement.sizes documentation> -getSizesUnsafe ::-               (MonadIO m, HasCallStack) =>-                 HTMLLinkElement -> m DOMSettableTokenList-getSizesUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getSizes (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        HTMLLinkElement -> IO DOMTokenList  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.sizes Mozilla HTMLLinkElement.sizes documentation> -getSizesUnchecked ::-                  (MonadIO m) => HTMLLinkElement -> m DOMSettableTokenList-getSizesUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getSizes (self)))+getSizes :: (MonadIO m) => HTMLLinkElement -> m DOMTokenList+getSizes self = liftIO (js_getSizes self)   foreign import javascript unsafe "$1[\"target\"] = $2;"         js_setTarget :: HTMLLinkElement -> JSString -> IO ()@@ -186,7 +160,7 @@ -- | <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))+setTarget self val = liftIO (js_setTarget self (toJSString val))   foreign import javascript unsafe "$1[\"target\"]" js_getTarget ::         HTMLLinkElement -> IO JSString@@ -194,7 +168,7 @@ -- | <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)))+getTarget self = liftIO (fromJSString <$> (js_getTarget self))   foreign import javascript unsafe "$1[\"type\"] = $2;" js_setType ::         HTMLLinkElement -> JSString -> IO ()@@ -202,7 +176,7 @@ -- | <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))+setType self val = liftIO (js_setType self (toJSString val))   foreign import javascript unsafe "$1[\"type\"]" js_getType ::         HTMLLinkElement -> IO JSString@@ -210,47 +184,85 @@ -- | <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)))+getType self = liftIO (fromJSString <$> (js_getType self))  -foreign import javascript unsafe "$1[\"sheet\"]" js_getSheet ::-        HTMLLinkElement -> IO (Nullable StyleSheet)+foreign import javascript unsafe "$1[\"as\"] = $2;" js_setAs ::+        HTMLLinkElement -> JSString -> IO () --- | <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)))+-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.as Mozilla HTMLLinkElement.as documentation> +setAs ::+      (MonadIO m, ToJSString val) => HTMLLinkElement -> val -> m ()+setAs self val = liftIO (js_setAs self (toJSString val))+ +foreign import javascript unsafe "$1[\"as\"]" js_getAs ::+        HTMLLinkElement -> IO JSString --- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.sheet Mozilla HTMLLinkElement.sheet documentation> -getSheetUnsafe ::-               (MonadIO m, HasCallStack) => HTMLLinkElement -> m StyleSheet-getSheetUnsafe self+-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.as Mozilla HTMLLinkElement.as documentation> +getAs ::+      (MonadIO m, FromJSString result) => HTMLLinkElement -> m result+getAs self = liftIO (fromJSString <$> (js_getAs self))+ +foreign import javascript unsafe "$1[\"crossOrigin\"] = $2;"+        js_setCrossOrigin :: HTMLLinkElement -> Optional JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.crossOrigin Mozilla HTMLLinkElement.crossOrigin documentation> +setCrossOrigin ::+               (MonadIO m, ToJSString val) => HTMLLinkElement -> Maybe val -> m ()+setCrossOrigin self val+  = liftIO (js_setCrossOrigin self (toOptionalJSString val))+ +foreign import javascript unsafe "$1[\"crossOrigin\"]"+        js_getCrossOrigin :: HTMLLinkElement -> IO (Nullable JSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.crossOrigin Mozilla HTMLLinkElement.crossOrigin documentation> +getCrossOrigin ::+               (MonadIO m, FromJSString result) =>+                 HTMLLinkElement -> m (Maybe result)+getCrossOrigin self+  = liftIO (fromMaybeJSString <$> (js_getCrossOrigin self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.crossOrigin Mozilla HTMLLinkElement.crossOrigin documentation> +getCrossOriginUnsafe ::+                     (MonadIO m, HasCallStack, FromJSString result) =>+                       HTMLLinkElement -> m result+getCrossOriginUnsafe self   = liftIO-      ((nullableToMaybe <$> (js_getSheet (self))) >>=+      ((fromMaybeJSString <$> (js_getCrossOrigin self)) >>=          maybe (Prelude.error "Nothing to return") return) +-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.crossOrigin Mozilla HTMLLinkElement.crossOrigin documentation> +getCrossOriginUnchecked ::+                        (MonadIO m, FromJSString result) => HTMLLinkElement -> m result+getCrossOriginUnchecked self+  = liftIO+      (fromJust . fromMaybeJSString <$> (js_getCrossOrigin self))+ +foreign import javascript unsafe "$1[\"sheet\"]" js_getSheet ::+        HTMLLinkElement -> IO StyleSheet+ -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.sheet Mozilla HTMLLinkElement.sheet documentation> -getSheetUnchecked :: (MonadIO m) => HTMLLinkElement -> m StyleSheet-getSheetUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getSheet (self)))+getSheet :: (MonadIO m) => HTMLLinkElement -> m StyleSheet+getSheet self = liftIO (js_getSheet self)   foreign import javascript unsafe "$1[\"relList\"]" js_getRelList ::-        HTMLLinkElement -> IO (Nullable DOMTokenList)+        HTMLLinkElement -> IO 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)))+getRelList :: (MonadIO m) => HTMLLinkElement -> m DOMTokenList+getRelList self = liftIO (js_getRelList self)+ +foreign import javascript unsafe "$1[\"nonce\"] = $2;" js_setNonce+        :: HTMLLinkElement -> JSString -> IO () --- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.relList Mozilla HTMLLinkElement.relList documentation> -getRelListUnsafe ::-                 (MonadIO m, HasCallStack) => HTMLLinkElement -> m DOMTokenList-getRelListUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getRelList (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.nonce Mozilla HTMLLinkElement.nonce documentation> +setNonce ::+         (MonadIO m, ToJSString val) => HTMLLinkElement -> val -> m ()+setNonce self val = liftIO (js_setNonce self (toJSString val))+ +foreign import javascript unsafe "$1[\"nonce\"]" js_getNonce ::+        HTMLLinkElement -> IO JSString --- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.relList Mozilla HTMLLinkElement.relList documentation> -getRelListUnchecked ::-                    (MonadIO m) => HTMLLinkElement -> m DOMTokenList-getRelListUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getRelList (self)))+-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.nonce Mozilla HTMLLinkElement.nonce documentation> +getNonce ::+         (MonadIO m, FromJSString result) => HTMLLinkElement -> m result+getNonce self = liftIO (fromJSString <$> (js_getNonce self))
src/GHCJS/DOM/JSFFI/Generated/HTMLMapElement.hs view
@@ -4,15 +4,14 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLMapElement-       (js_getAreas, getAreas, getAreasUnsafe, getAreasUnchecked,-        js_setName, setName, js_getName, getName, HTMLMapElement(..),-        gTypeHTMLMapElement)+       (js_getAreas, getAreas, js_setName, setName, js_getName, getName,+        HTMLMapElement(..), gTypeHTMLMapElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -21,32 +20,18 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMapElement.areas Mozilla HTMLMapElement.areas documentation> -getAreasUnsafe ::-               (MonadIO m, HasCallStack) => HTMLMapElement -> m HTMLCollection-getAreasUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getAreas (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        HTMLMapElement -> IO HTMLCollection  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMapElement.areas Mozilla HTMLMapElement.areas documentation> -getAreasUnchecked ::-                  (MonadIO m) => HTMLMapElement -> m HTMLCollection-getAreasUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getAreas (self)))+getAreas :: (MonadIO m) => HTMLMapElement -> m HTMLCollection+getAreas self = liftIO (js_getAreas self)   foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName ::         HTMLMapElement -> JSString -> IO ()@@ -54,7 +39,7 @@ -- | <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))+setName self val = liftIO (js_setName self (toJSString val))   foreign import javascript unsafe "$1[\"name\"]" js_getName ::         HTMLMapElement -> IO JSString@@ -62,4 +47,4 @@ -- | <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)))+getName self = liftIO (fromJSString <$> (js_getName self))
src/GHCJS/DOM/JSFFI/Generated/HTMLMarqueeElement.hs view
@@ -21,7 +21,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -30,6 +30,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -40,14 +41,14 @@  -- | <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))+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))+stop self = liftIO (js_stop self)   foreign import javascript unsafe "$1[\"behavior\"] = $2;"         js_setBehavior :: HTMLMarqueeElement -> JSString -> IO ()@@ -56,7 +57,7 @@ setBehavior ::             (MonadIO m, ToJSString val) => HTMLMarqueeElement -> val -> m () setBehavior self val-  = liftIO (js_setBehavior (self) (toJSString val))+  = liftIO (js_setBehavior self (toJSString val))   foreign import javascript unsafe "$1[\"behavior\"]" js_getBehavior         :: HTMLMarqueeElement -> IO JSString@@ -64,8 +65,7 @@ -- | <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)))+getBehavior self = liftIO (fromJSString <$> (js_getBehavior self))   foreign import javascript unsafe "$1[\"bgColor\"] = $2;"         js_setBgColor :: HTMLMarqueeElement -> JSString -> IO ()@@ -73,8 +73,7 @@ -- | <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))+setBgColor self val = liftIO (js_setBgColor self (toJSString val))   foreign import javascript unsafe "$1[\"bgColor\"]" js_getBgColor ::         HTMLMarqueeElement -> IO JSString@@ -82,7 +81,7 @@ -- | <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)))+getBgColor self = liftIO (fromJSString <$> (js_getBgColor self))   foreign import javascript unsafe "$1[\"direction\"] = $2;"         js_setDirection :: HTMLMarqueeElement -> JSString -> IO ()@@ -91,7 +90,7 @@ setDirection ::              (MonadIO m, ToJSString val) => HTMLMarqueeElement -> val -> m () setDirection self val-  = liftIO (js_setDirection (self) (toJSString val))+  = liftIO (js_setDirection self (toJSString val))   foreign import javascript unsafe "$1[\"direction\"]"         js_getDirection :: HTMLMarqueeElement -> IO JSString@@ -100,7 +99,7 @@ getDirection ::              (MonadIO m, FromJSString result) => HTMLMarqueeElement -> m result getDirection self-  = liftIO (fromJSString <$> (js_getDirection (self)))+  = liftIO (fromJSString <$> (js_getDirection self))   foreign import javascript unsafe "$1[\"height\"] = $2;"         js_setHeight :: HTMLMarqueeElement -> JSString -> IO ()@@ -108,7 +107,7 @@ -- | <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))+setHeight self val = liftIO (js_setHeight self (toJSString val))   foreign import javascript unsafe "$1[\"height\"]" js_getHeight ::         HTMLMarqueeElement -> IO JSString@@ -116,91 +115,92 @@ -- | <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)))+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)+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))+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)+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))+getLoop self = liftIO (js_getLoop self)   foreign import javascript unsafe "$1[\"scrollAmount\"] = $2;"-        js_setScrollAmount :: HTMLMarqueeElement -> Int -> IO ()+        js_setScrollAmount :: HTMLMarqueeElement -> Word -> 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)+setScrollAmount ::+                (MonadIO m) => HTMLMarqueeElement -> Word -> m ()+setScrollAmount self val = liftIO (js_setScrollAmount self val)   foreign import javascript unsafe "$1[\"scrollAmount\"]"-        js_getScrollAmount :: HTMLMarqueeElement -> IO Int+        js_getScrollAmount :: HTMLMarqueeElement -> IO Word  -- | <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))+getScrollAmount :: (MonadIO m) => HTMLMarqueeElement -> m Word+getScrollAmount self = liftIO (js_getScrollAmount self)   foreign import javascript unsafe "$1[\"scrollDelay\"] = $2;"-        js_setScrollDelay :: HTMLMarqueeElement -> Int -> IO ()+        js_setScrollDelay :: HTMLMarqueeElement -> Word -> 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)+setScrollDelay :: (MonadIO m) => HTMLMarqueeElement -> Word -> m ()+setScrollDelay self val = liftIO (js_setScrollDelay self val)   foreign import javascript unsafe "$1[\"scrollDelay\"]"-        js_getScrollDelay :: HTMLMarqueeElement -> IO Int+        js_getScrollDelay :: HTMLMarqueeElement -> IO Word  -- | <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))+getScrollDelay :: (MonadIO m) => HTMLMarqueeElement -> m Word+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)+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))+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)+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))+getVspace self = liftIO (js_getVspace self)   foreign import javascript unsafe "$1[\"width\"] = $2;" js_setWidth         :: HTMLMarqueeElement -> JSString -> IO ()@@ -208,7 +208,7 @@ -- | <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))+setWidth self val = liftIO (js_setWidth self (toJSString val))   foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::         HTMLMarqueeElement -> IO JSString@@ -216,4 +216,4 @@ -- | <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)))+getWidth self = liftIO (fromJSString <$> (js_getWidth self))
src/GHCJS/DOM/JSFFI/Generated/HTMLMediaElement.hs view
@@ -4,42 +4,37 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLMediaElement-       (js_load, load, js_canPlayType, 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, addTextTrack_, addTextTrackUnsafe,-        addTextTrackUnchecked, js_getVideoPlaybackQuality,+       (js_load, load, js_canPlayType, canPlayType, canPlayType_,+        js_getStartDate, getStartDate, getStartDate_, js_play, play,+        js_pause, pause, js_fastSeek, fastSeek, js_webkitSetMediaKeys,+        webkitSetMediaKeys, js_setMediaKeys, setMediaKeys, js_addTextTrack,+        addTextTrack, addTextTrack_, js_getVideoPlaybackQuality,         getVideoPlaybackQuality, getVideoPlaybackQuality_,-        getVideoPlaybackQualityUnsafe, getVideoPlaybackQualityUnchecked,         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, getErrorUnsafe,-        getErrorUnchecked, js_setSrc, setSrc, js_getSrc, getSrc,-        js_getCurrentSrc, getCurrentSrc, js_getNetworkState,-        getNetworkState, js_setPreload, setPreload, js_getPreload,-        getPreload, js_getBuffered, getBuffered, getBufferedUnsafe,-        getBufferedUnchecked, js_getReadyState, getReadyState,+        pattern HAVE_ENOUGH_DATA, js_getError, getError, js_setSrc, setSrc,+        js_getSrc, getSrc, js_setSrcObject, setSrcObject, js_getSrcObject,+        getSrcObject, getSrcObjectUnsafe, getSrcObjectUnchecked,+        js_getCurrentSrc, getCurrentSrc, js_setCrossOrigin, setCrossOrigin,+        js_getCrossOrigin, getCrossOrigin, getCrossOriginUnsafe,+        getCrossOriginUnchecked, 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,-        getPlayedUnsafe, getPlayedUnchecked, js_getSeekable, getSeekable,-        getSeekableUnsafe, getSeekableUnchecked, 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_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,         js_setWebkitPreservesPitch, setWebkitPreservesPitch,         js_getWebkitPreservesPitch, getWebkitPreservesPitch,         js_getWebkitHasClosedCaptions, getWebkitHasClosedCaptions,@@ -47,30 +42,24 @@         js_getWebkitClosedCaptionsVisible, getWebkitClosedCaptionsVisible,         js_getWebkitAudioDecodedByteCount, getWebkitAudioDecodedByteCount,         js_getWebkitVideoDecodedByteCount, getWebkitVideoDecodedByteCount,-        webKitKeyAdded, webKitKeyError, webKitKeyMessage, webKitNeedKey,-        js_getWebkitKeys, getWebkitKeys, getWebkitKeysUnsafe,-        getWebkitKeysUnchecked, js_getAudioTracks, getAudioTracks,-        getAudioTracksUnsafe, getAudioTracksUnchecked, js_getTextTracks,-        getTextTracks, getTextTracksUnsafe, getTextTracksUnchecked,-        js_getVideoTracks, getVideoTracks, getVideoTracksUnsafe,-        getVideoTracksUnchecked, js_setMediaGroup, setMediaGroup,-        js_getMediaGroup, getMediaGroup, getMediaGroupUnsafe,-        getMediaGroupUnchecked, js_setController, setController,-        js_getController, getController, getControllerUnsafe,-        getControllerUnchecked,+        js_getWebkitKeys, getWebkitKeys, js_getMediaKeys, getMediaKeys,+        encrypted, waitingforkey, js_getAudioTracks, getAudioTracks,+        js_getTextTracks, getTextTracks, js_getVideoTracks, getVideoTracks,+        js_setMediaGroup, setMediaGroup, js_getMediaGroup, getMediaGroup,+        js_setController, setController, js_getController, getController,+        getControllerUnsafe, getControllerUnchecked,         js_getWebkitCurrentPlaybackTargetIsWireless,-        getWebkitCurrentPlaybackTargetIsWireless,-        webKitCurrentPlaybackTargetIsWirelessChanged,-        webKitPlaybackTargetAvailabilityChanged, js_setSrcObject,-        setSrcObject, js_getSrcObject, getSrcObject, getSrcObjectUnsafe,-        getSrcObjectUnchecked, HTMLMediaElement(..), gTypeHTMLMediaElement,-        IsHTMLMediaElement, toHTMLMediaElement)+        getWebkitCurrentPlaybackTargetIsWireless, js_setKind, setKind,+        js_getKind, getKind, js_setSession, setSession, js_getSession,+        getSession, getSessionUnsafe, getSessionUnchecked,+        HTMLMediaElement(..), gTypeHTMLMediaElement, IsHTMLMediaElement,+        toHTMLMediaElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -79,6 +68,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -91,35 +81,46 @@ 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+foreign import javascript unsafe "$1[\"canPlayType\"]($2)"+        js_canPlayType :: HTMLMediaElement -> 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+             FromJSString result) =>+              self -> type' -> m result+canPlayType self type'   = liftIO       (fromJSString <$>-         (js_canPlayType (toHTMLMediaElement self) (toJSString type')-            (toMaybeJSString keySystem)))+         (js_canPlayType (toHTMLMediaElement self) (toJSString type')))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.canPlayType Mozilla HTMLMediaElement.canPlayType documentation>  canPlayType_ ::-             (MonadIO m, IsHTMLMediaElement self, ToJSString type',-              ToJSString keySystem) =>-               self -> type' -> Maybe keySystem -> m ()-canPlayType_ self type' keySystem+             (MonadIO m, IsHTMLMediaElement self, ToJSString type') =>+               self -> type' -> m ()+canPlayType_ self type'   = liftIO       (void-         (js_canPlayType (toHTMLMediaElement self) (toJSString type')-            (toMaybeJSString keySystem)))+         (js_canPlayType (toHTMLMediaElement self) (toJSString type')))  -foreign import javascript unsafe "$1[\"play\"]()" js_play ::-        HTMLMediaElement -> IO ()+foreign import javascript unsafe "$1[\"getStartDate\"]()"+        js_getStartDate :: HTMLMediaElement -> IO Date +-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.getStartDate Mozilla HTMLMediaElement.getStartDate documentation> +getStartDate ::+             (MonadIO m, IsHTMLMediaElement self) => self -> m Date+getStartDate self+  = liftIO (js_getStartDate (toHTMLMediaElement self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.getStartDate Mozilla HTMLMediaElement.getStartDate documentation> +getStartDate_ ::+              (MonadIO m, IsHTMLMediaElement self) => self -> m ()+getStartDate_ self+  = liftIO (void (js_getStartDate (toHTMLMediaElement self)))+ +foreign import javascript interruptible+        "$1[\"play\"]().then($c);" 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))@@ -140,137 +141,70 @@ 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 ()+        HTMLMediaElement -> Optional WebKitMediaKeys -> 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 ()+                     self -> Maybe WebKitMediaKeys -> m () webkitSetMediaKeys self mediaKeys   = liftIO       (js_webkitSetMediaKeys (toHTMLMediaElement self)-         (maybeToNullable mediaKeys))+         (maybeToOptional mediaKeys))  +foreign import javascript interruptible+        "$1[\"setMediaKeys\"]($2).then($c);" js_setMediaKeys ::+        HTMLMediaElement -> Optional MediaKeys -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.setMediaKeys Mozilla HTMLMediaElement.setMediaKeys documentation> +setMediaKeys ::+             (MonadIO m, IsHTMLMediaElement self) =>+               self -> Maybe MediaKeys -> m ()+setMediaKeys self mediaKeys+  = liftIO+      (js_setMediaKeys (toHTMLMediaElement self)+         (maybeToOptional mediaKeys))+  foreign import javascript unsafe "$1[\"addTextTrack\"]($2, $3, $4)"         js_addTextTrack ::         HTMLMediaElement ->-          JSString -> JSString -> JSString -> IO (Nullable TextTrack)+          JSString -> Optional JSString -> Optional JSString -> IO 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)+               self -> kind -> Maybe label -> Maybe language -> m TextTrack addTextTrack self kind label language   = liftIO-      (nullableToMaybe <$>-         (js_addTextTrack (toHTMLMediaElement self) (toJSString kind)-            (toJSString label)-            (toJSString language)))+      (js_addTextTrack (toHTMLMediaElement self) (toJSString kind)+         (toOptionalJSString label)+         (toOptionalJSString language))  -- | <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 ()+                self -> kind -> Maybe label -> Maybe language -> m () addTextTrack_ self kind label language   = liftIO       (void          (js_addTextTrack (toHTMLMediaElement self) (toJSString kind)-            (toJSString label)-            (toJSString language)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.addTextTrack Mozilla HTMLMediaElement.addTextTrack documentation> -addTextTrackUnsafe ::-                   (MonadIO m, IsHTMLMediaElement self, ToJSString kind,-                    ToJSString label, ToJSString language, HasCallStack) =>-                     self -> kind -> label -> language -> m TextTrack-addTextTrackUnsafe self kind label language-  = liftIO-      ((nullableToMaybe <$>-          (js_addTextTrack (toHTMLMediaElement self) (toJSString kind)-             (toJSString label)-             (toJSString language)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.addTextTrack Mozilla HTMLMediaElement.addTextTrack documentation> -addTextTrackUnchecked ::-                      (MonadIO m, IsHTMLMediaElement self, ToJSString kind,-                       ToJSString label, ToJSString language) =>-                        self -> kind -> label -> language -> m TextTrack-addTextTrackUnchecked self kind label language-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_addTextTrack (toHTMLMediaElement self) (toJSString kind)-            (toJSString label)-            (toJSString language)))+            (toOptionalJSString label)+            (toOptionalJSString language)))   foreign import javascript unsafe         "$1[\"getVideoPlaybackQuality\"]()" js_getVideoPlaybackQuality ::-        HTMLMediaElement -> IO (Nullable VideoPlaybackQuality)+        HTMLMediaElement -> IO 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)+                          self -> m VideoPlaybackQuality getVideoPlaybackQuality self-  = liftIO-      (nullableToMaybe <$>-         (js_getVideoPlaybackQuality (toHTMLMediaElement self)))+  = liftIO (js_getVideoPlaybackQuality (toHTMLMediaElement self))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.getVideoPlaybackQuality Mozilla HTMLMediaElement.getVideoPlaybackQuality documentation>  getVideoPlaybackQuality_ ::@@ -278,25 +212,6 @@ getVideoPlaybackQuality_ self   = liftIO       (void (js_getVideoPlaybackQuality (toHTMLMediaElement self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.getVideoPlaybackQuality Mozilla HTMLMediaElement.getVideoPlaybackQuality documentation> -getVideoPlaybackQualityUnsafe ::-                              (MonadIO m, IsHTMLMediaElement self, HasCallStack) =>-                                self -> m VideoPlaybackQuality-getVideoPlaybackQualityUnsafe self-  = liftIO-      ((nullableToMaybe <$>-          (js_getVideoPlaybackQuality (toHTMLMediaElement self)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.getVideoPlaybackQuality Mozilla HTMLMediaElement.getVideoPlaybackQuality documentation> -getVideoPlaybackQualityUnchecked ::-                                 (MonadIO m, IsHTMLMediaElement self) =>-                                   self -> m VideoPlaybackQuality-getVideoPlaybackQualityUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_getVideoPlaybackQuality (toHTMLMediaElement self)))   foreign import javascript unsafe         "$1[\"webkitShowPlaybackTargetPicker\"]()"@@ -319,32 +234,12 @@ pattern HAVE_ENOUGH_DATA = 4   foreign import javascript unsafe "$1[\"error\"]" js_getError ::-        HTMLMediaElement -> IO (Nullable MediaError)+        HTMLMediaElement -> IO 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.error Mozilla HTMLMediaElement.error documentation> -getErrorUnsafe ::-               (MonadIO m, IsHTMLMediaElement self, HasCallStack) =>-                 self -> m MediaError-getErrorUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getError (toHTMLMediaElement self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.error Mozilla HTMLMediaElement.error documentation> -getErrorUnchecked ::-                  (MonadIO m, IsHTMLMediaElement self) => self -> m MediaError-getErrorUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_getError (toHTMLMediaElement self)))+         (MonadIO m, IsHTMLMediaElement self) => self -> m MediaError+getError self = liftIO (js_getError (toHTMLMediaElement self))   foreign import javascript unsafe "$1[\"src\"] = $2;" js_setSrc ::         HTMLMediaElement -> JSString -> IO ()@@ -366,6 +261,47 @@ getSrc self   = liftIO (fromJSString <$> (js_getSrc (toHTMLMediaElement self)))  +foreign import javascript unsafe "$1[\"srcObject\"] = $2;"+        js_setSrcObject ::+        HTMLMediaElement -> Optional MediaProvider -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.srcObject Mozilla HTMLMediaElement.srcObject documentation> +setSrcObject ::+             (MonadIO m, IsHTMLMediaElement self, IsMediaProvider val) =>+               self -> Maybe val -> m ()+setSrcObject self val+  = liftIO+      (js_setSrcObject (toHTMLMediaElement self)+         (maybeToOptional (fmap toMediaProvider val)))+ +foreign import javascript unsafe "$1[\"srcObject\"]"+        js_getSrcObject :: HTMLMediaElement -> IO (Nullable MediaProvider)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.srcObject Mozilla HTMLMediaElement.srcObject documentation> +getSrcObject ::+             (MonadIO m, IsHTMLMediaElement self) =>+               self -> m (Maybe MediaProvider)+getSrcObject self+  = liftIO+      (nullableToMaybe <$> (js_getSrcObject (toHTMLMediaElement self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.srcObject Mozilla HTMLMediaElement.srcObject documentation> +getSrcObjectUnsafe ::+                   (MonadIO m, IsHTMLMediaElement self, HasCallStack) =>+                     self -> m MediaProvider+getSrcObjectUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getSrcObject (toHTMLMediaElement self)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.srcObject Mozilla HTMLMediaElement.srcObject documentation> +getSrcObjectUnchecked ::+                      (MonadIO m, IsHTMLMediaElement self) => self -> m MediaProvider+getSrcObjectUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getSrcObject (toHTMLMediaElement self)))+  foreign import javascript unsafe "$1[\"currentSrc\"]"         js_getCurrentSrc :: HTMLMediaElement -> IO JSString @@ -377,6 +313,50 @@   = liftIO       (fromJSString <$> (js_getCurrentSrc (toHTMLMediaElement self)))  +foreign import javascript unsafe "$1[\"crossOrigin\"] = $2;"+        js_setCrossOrigin :: HTMLMediaElement -> Optional JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.crossOrigin Mozilla HTMLMediaElement.crossOrigin documentation> +setCrossOrigin ::+               (MonadIO m, IsHTMLMediaElement self, ToJSString val) =>+                 self -> Maybe val -> m ()+setCrossOrigin self val+  = liftIO+      (js_setCrossOrigin (toHTMLMediaElement self)+         (toOptionalJSString val))+ +foreign import javascript unsafe "$1[\"crossOrigin\"]"+        js_getCrossOrigin :: HTMLMediaElement -> IO (Nullable JSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.crossOrigin Mozilla HTMLMediaElement.crossOrigin documentation> +getCrossOrigin ::+               (MonadIO m, IsHTMLMediaElement self, FromJSString result) =>+                 self -> m (Maybe result)+getCrossOrigin self+  = liftIO+      (fromMaybeJSString <$>+         (js_getCrossOrigin (toHTMLMediaElement self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.crossOrigin Mozilla HTMLMediaElement.crossOrigin documentation> +getCrossOriginUnsafe ::+                     (MonadIO m, IsHTMLMediaElement self, HasCallStack,+                      FromJSString result) =>+                       self -> m result+getCrossOriginUnsafe self+  = liftIO+      ((fromMaybeJSString <$>+          (js_getCrossOrigin (toHTMLMediaElement self)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.crossOrigin Mozilla HTMLMediaElement.crossOrigin documentation> +getCrossOriginUnchecked ::+                        (MonadIO m, IsHTMLMediaElement self, FromJSString result) =>+                          self -> m result+getCrossOriginUnchecked self+  = liftIO+      (fromJust . fromMaybeJSString <$>+         (js_getCrossOrigin (toHTMLMediaElement self)))+  foreign import javascript unsafe "$1[\"networkState\"]"         js_getNetworkState :: HTMLMediaElement -> IO Word @@ -408,32 +388,13 @@       (fromJSString <$> (js_getPreload (toHTMLMediaElement self)))   foreign import javascript unsafe "$1[\"buffered\"]" js_getBuffered-        :: HTMLMediaElement -> IO (Nullable TimeRanges)+        :: HTMLMediaElement -> IO 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)+            (MonadIO m, IsHTMLMediaElement self) => self -> m TimeRanges getBuffered self-  = liftIO-      (nullableToMaybe <$> (js_getBuffered (toHTMLMediaElement self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.buffered Mozilla HTMLMediaElement.buffered documentation> -getBufferedUnsafe ::-                  (MonadIO m, IsHTMLMediaElement self, HasCallStack) =>-                    self -> m TimeRanges-getBufferedUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getBuffered (toHTMLMediaElement self)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.buffered Mozilla HTMLMediaElement.buffered documentation> -getBufferedUnchecked ::-                     (MonadIO m, IsHTMLMediaElement self) => self -> m TimeRanges-getBufferedUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_getBuffered (toHTMLMediaElement self)))+  = liftIO (js_getBuffered (toHTMLMediaElement self))   foreign import javascript unsafe "$1[\"readyState\"]"         js_getReadyState :: HTMLMediaElement -> IO Word@@ -524,60 +485,21 @@   = liftIO (js_getPlaybackRate (toHTMLMediaElement self))   foreign import javascript unsafe "$1[\"played\"]" js_getPlayed ::-        HTMLMediaElement -> IO (Nullable TimeRanges)+        HTMLMediaElement -> IO 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.played Mozilla HTMLMediaElement.played documentation> -getPlayedUnsafe ::-                (MonadIO m, IsHTMLMediaElement self, HasCallStack) =>-                  self -> m TimeRanges-getPlayedUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getPlayed (toHTMLMediaElement self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.played Mozilla HTMLMediaElement.played documentation> -getPlayedUnchecked ::-                   (MonadIO m, IsHTMLMediaElement self) => self -> m TimeRanges-getPlayedUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_getPlayed (toHTMLMediaElement self)))+          (MonadIO m, IsHTMLMediaElement self) => self -> m TimeRanges+getPlayed self = liftIO (js_getPlayed (toHTMLMediaElement self))   foreign import javascript unsafe "$1[\"seekable\"]" js_getSeekable-        :: HTMLMediaElement -> IO (Nullable TimeRanges)+        :: HTMLMediaElement -> IO 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)+            (MonadIO m, IsHTMLMediaElement self) => self -> m TimeRanges getSeekable self-  = liftIO-      (nullableToMaybe <$> (js_getSeekable (toHTMLMediaElement self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.seekable Mozilla HTMLMediaElement.seekable documentation> -getSeekableUnsafe ::-                  (MonadIO m, IsHTMLMediaElement self, HasCallStack) =>-                    self -> m TimeRanges-getSeekableUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getSeekable (toHTMLMediaElement self)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.seekable Mozilla HTMLMediaElement.seekable documentation> -getSeekableUnchecked ::-                     (MonadIO m, IsHTMLMediaElement self) => self -> m TimeRanges-getSeekableUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_getSeekable (toHTMLMediaElement self)))+  = liftIO (js_getSeekable (toHTMLMediaElement self))   foreign import javascript unsafe "($1[\"ended\"] ? 1 : 0)"         js_getEnded :: HTMLMediaElement -> IO Bool@@ -688,90 +610,6 @@                 (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 ::@@ -847,192 +685,89 @@ 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)+        js_getWebkitKeys :: HTMLMediaElement -> IO WebKitMediaKeys  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.webkitKeys Mozilla HTMLMediaElement.webkitKeys documentation>  getWebkitKeys ::-              (MonadIO m, IsHTMLMediaElement self) => self -> m (Maybe MediaKeys)+              (MonadIO m, IsHTMLMediaElement self) => self -> m WebKitMediaKeys getWebkitKeys self-  = liftIO-      (nullableToMaybe <$> (js_getWebkitKeys (toHTMLMediaElement self)))+  = liftIO (js_getWebkitKeys (toHTMLMediaElement self))+ +foreign import javascript unsafe "$1[\"mediaKeys\"]"+        js_getMediaKeys :: HTMLMediaElement -> IO MediaKeys --- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.webkitKeys Mozilla HTMLMediaElement.webkitKeys documentation> -getWebkitKeysUnsafe ::-                    (MonadIO m, IsHTMLMediaElement self, HasCallStack) =>-                      self -> m MediaKeys-getWebkitKeysUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getWebkitKeys (toHTMLMediaElement self)))-         >>= maybe (Prelude.error "Nothing to return") return)+-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.mediaKeys Mozilla HTMLMediaElement.mediaKeys documentation> +getMediaKeys ::+             (MonadIO m, IsHTMLMediaElement self) => self -> m MediaKeys+getMediaKeys self+  = liftIO (js_getMediaKeys (toHTMLMediaElement self)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.webkitKeys Mozilla HTMLMediaElement.webkitKeys documentation> -getWebkitKeysUnchecked ::-                       (MonadIO m, IsHTMLMediaElement self) => self -> m MediaKeys-getWebkitKeysUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_getWebkitKeys (toHTMLMediaElement self)))+-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.onencrypted Mozilla HTMLMediaElement.onencrypted documentation> +encrypted ::+          (IsHTMLMediaElement self, IsEventTarget self) =>+            EventName self onencrypted+encrypted = unsafeEventName (toJSString "encrypted")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.onwaitingforkey Mozilla HTMLMediaElement.onwaitingforkey documentation> +waitingforkey ::+              (IsHTMLMediaElement self, IsEventTarget self) =>+                EventName self onwaitingforkey+waitingforkey = unsafeEventName (toJSString "waitingforkey")   foreign import javascript unsafe "$1[\"audioTracks\"]"-        js_getAudioTracks ::-        HTMLMediaElement -> IO (Nullable AudioTrackList)+        js_getAudioTracks :: HTMLMediaElement -> IO 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)+               (MonadIO m, IsHTMLMediaElement self) => self -> m AudioTrackList getAudioTracks self-  = liftIO-      (nullableToMaybe <$> (js_getAudioTracks (toHTMLMediaElement self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.audioTracks Mozilla HTMLMediaElement.audioTracks documentation> -getAudioTracksUnsafe ::-                     (MonadIO m, IsHTMLMediaElement self, HasCallStack) =>-                       self -> m AudioTrackList-getAudioTracksUnsafe self-  = liftIO-      ((nullableToMaybe <$>-          (js_getAudioTracks (toHTMLMediaElement self)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.audioTracks Mozilla HTMLMediaElement.audioTracks documentation> -getAudioTracksUnchecked ::-                        (MonadIO m, IsHTMLMediaElement self) => self -> m AudioTrackList-getAudioTracksUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_getAudioTracks (toHTMLMediaElement self)))+  = liftIO (js_getAudioTracks (toHTMLMediaElement self))   foreign import javascript unsafe "$1[\"textTracks\"]"-        js_getTextTracks :: HTMLMediaElement -> IO (Nullable TextTrackList)+        js_getTextTracks :: HTMLMediaElement -> IO 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)+              (MonadIO m, IsHTMLMediaElement self) => self -> m TextTrackList getTextTracks self-  = liftIO-      (nullableToMaybe <$> (js_getTextTracks (toHTMLMediaElement self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.textTracks Mozilla HTMLMediaElement.textTracks documentation> -getTextTracksUnsafe ::-                    (MonadIO m, IsHTMLMediaElement self, HasCallStack) =>-                      self -> m TextTrackList-getTextTracksUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getTextTracks (toHTMLMediaElement self)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.textTracks Mozilla HTMLMediaElement.textTracks documentation> -getTextTracksUnchecked ::-                       (MonadIO m, IsHTMLMediaElement self) => self -> m TextTrackList-getTextTracksUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_getTextTracks (toHTMLMediaElement self)))+  = liftIO (js_getTextTracks (toHTMLMediaElement self))   foreign import javascript unsafe "$1[\"videoTracks\"]"-        js_getVideoTracks ::-        HTMLMediaElement -> IO (Nullable VideoTrackList)+        js_getVideoTracks :: HTMLMediaElement -> IO 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)+               (MonadIO m, IsHTMLMediaElement self) => self -> m VideoTrackList getVideoTracks self-  = liftIO-      (nullableToMaybe <$> (js_getVideoTracks (toHTMLMediaElement self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.videoTracks Mozilla HTMLMediaElement.videoTracks documentation> -getVideoTracksUnsafe ::-                     (MonadIO m, IsHTMLMediaElement self, HasCallStack) =>-                       self -> m VideoTrackList-getVideoTracksUnsafe self-  = liftIO-      ((nullableToMaybe <$>-          (js_getVideoTracks (toHTMLMediaElement self)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.videoTracks Mozilla HTMLMediaElement.videoTracks documentation> -getVideoTracksUnchecked ::-                        (MonadIO m, IsHTMLMediaElement self) => self -> m VideoTrackList-getVideoTracksUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_getVideoTracks (toHTMLMediaElement self)))+  = liftIO (js_getVideoTracks (toHTMLMediaElement self))   foreign import javascript unsafe "$1[\"mediaGroup\"] = $2;"-        js_setMediaGroup :: HTMLMediaElement -> Nullable JSString -> IO ()+        js_setMediaGroup :: HTMLMediaElement -> 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 ()+                self -> val -> m () setMediaGroup self val   = liftIO-      (js_setMediaGroup (toHTMLMediaElement self) (toMaybeJSString val))+      (js_setMediaGroup (toHTMLMediaElement self) (toJSString val))   foreign import javascript unsafe "$1[\"mediaGroup\"]"-        js_getMediaGroup :: HTMLMediaElement -> IO (Nullable JSString)+        js_getMediaGroup :: HTMLMediaElement -> IO 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)+                self -> m result getMediaGroup self   = liftIO-      (fromMaybeJSString <$>-         (js_getMediaGroup (toHTMLMediaElement self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.mediaGroup Mozilla HTMLMediaElement.mediaGroup documentation> -getMediaGroupUnsafe ::-                    (MonadIO m, IsHTMLMediaElement self, HasCallStack,-                     FromJSString result) =>-                      self -> m result-getMediaGroupUnsafe self-  = liftIO-      ((fromMaybeJSString <$>-          (js_getMediaGroup (toHTMLMediaElement self)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.mediaGroup Mozilla HTMLMediaElement.mediaGroup documentation> -getMediaGroupUnchecked ::-                       (MonadIO m, IsHTMLMediaElement self, FromJSString result) =>-                         self -> m result-getMediaGroupUnchecked self-  = liftIO-      (fromJust . fromMaybeJSString <$>-         (js_getMediaGroup (toHTMLMediaElement self)))+      (fromJSString <$> (js_getMediaGroup (toHTMLMediaElement self)))   foreign import javascript unsafe "$1[\"controller\"] = $2;"         js_setController ::-        HTMLMediaElement -> Nullable MediaController -> IO ()+        HTMLMediaElement -> Optional MediaController -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.controller Mozilla HTMLMediaElement.controller documentation>  setController ::@@ -1040,7 +775,7 @@                 self -> Maybe MediaController -> m () setController self val   = liftIO-      (js_setController (toHTMLMediaElement self) (maybeToNullable val))+      (js_setController (toHTMLMediaElement self) (maybeToOptional val))   foreign import javascript unsafe "$1[\"controller\"]"         js_getController ::@@ -1083,61 +818,62 @@   = liftIO       (js_getWebkitCurrentPlaybackTargetIsWireless          (toHTMLMediaElement self))+ +foreign import javascript unsafe "$1[\"kind\"] = $2;" js_setKind ::+        HTMLMediaElement -> JSString -> IO () --- | <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.kind Mozilla HTMLMediaElement.kind documentation> +setKind ::+        (MonadIO m, IsHTMLMediaElement self, ToJSString val) =>+          self -> val -> m ()+setKind self val+  = liftIO (js_setKind (toHTMLMediaElement self) (toJSString val))+ +foreign import javascript unsafe "$1[\"kind\"]" js_getKind ::+        HTMLMediaElement -> IO JSString --- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.onwebkitplaybacktargetavailabilitychanged Mozilla HTMLMediaElement.onwebkitplaybacktargetavailabilitychanged documentation> -webKitPlaybackTargetAvailabilityChanged ::-                                        (IsHTMLMediaElement self, IsEventTarget self) =>-                                          EventName self Event-webKitPlaybackTargetAvailabilityChanged-  = unsafeEventName-      (toJSString "webkitplaybacktargetavailabilitychanged")+-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.kind Mozilla HTMLMediaElement.kind documentation> +getKind ::+        (MonadIO m, IsHTMLMediaElement self, FromJSString result) =>+          self -> m result+getKind self+  = liftIO (fromJSString <$> (js_getKind (toHTMLMediaElement self)))  -foreign import javascript unsafe "$1[\"srcObject\"] = $2;"-        js_setSrcObject ::-        HTMLMediaElement -> Nullable MediaStream -> IO ()+foreign import javascript unsafe "$1[\"session\"] = $2;"+        js_setSession :: HTMLMediaElement -> Optional MediaSession -> 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+-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.session Mozilla HTMLMediaElement.session documentation> +setSession ::+           (MonadIO m, IsHTMLMediaElement self) =>+             self -> Maybe MediaSession -> m ()+setSession self val   = liftIO-      (js_setSrcObject (toHTMLMediaElement self) (maybeToNullable val))+      (js_setSession (toHTMLMediaElement self) (maybeToOptional val))  -foreign import javascript unsafe "$1[\"srcObject\"]"-        js_getSrcObject :: HTMLMediaElement -> IO JSVal+foreign import javascript unsafe "$1[\"session\"]" js_getSession ::+        HTMLMediaElement -> IO (Nullable MediaSession) --- | <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+-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.session Mozilla HTMLMediaElement.session documentation> +getSession ::+           (MonadIO m, IsHTMLMediaElement self) =>+             self -> m (Maybe MediaSession)+getSession self   = liftIO-      ((js_getSrcObject (toHTMLMediaElement self)) >>=-         fromJSValUnchecked)+      (nullableToMaybe <$> (js_getSession (toHTMLMediaElement self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.srcObject Mozilla HTMLMediaElement.srcObject documentation> -getSrcObjectUnsafe ::-                   (MonadIO m, IsHTMLMediaElement self, HasCallStack) =>-                     self -> m MediaStream-getSrcObjectUnsafe self+-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.session Mozilla HTMLMediaElement.session documentation> +getSessionUnsafe ::+                 (MonadIO m, IsHTMLMediaElement self, HasCallStack) =>+                   self -> m MediaSession+getSessionUnsafe self   = liftIO-      (((js_getSrcObject (toHTMLMediaElement self)) >>=-          fromJSValUnchecked)+      ((nullableToMaybe <$> (js_getSession (toHTMLMediaElement self)))          >>= maybe (Prelude.error "Nothing to return") return) --- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.srcObject Mozilla HTMLMediaElement.srcObject documentation> -getSrcObjectUnchecked ::-                      (MonadIO m, IsHTMLMediaElement self) => self -> m MediaStream-getSrcObjectUnchecked self+-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.session Mozilla HTMLMediaElement.session documentation> +getSessionUnchecked ::+                    (MonadIO m, IsHTMLMediaElement self) => self -> m MediaSession+getSessionUnchecked self   = liftIO-      ((js_getSrcObject (toHTMLMediaElement self)) >>=-         fromJSValUnchecked)+      (fromJust . nullableToMaybe <$>+         (js_getSession (toHTMLMediaElement self)))
src/GHCJS/DOM/JSFFI/Generated/HTMLMenuElement.hs view
@@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -20,6 +20,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -30,11 +31,11 @@  -- | <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)+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))+getCompact self = liftIO (js_getCompact self)
src/GHCJS/DOM/JSFFI/Generated/HTMLMetaElement.hs view
@@ -13,7 +13,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -22,6 +22,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -33,8 +34,7 @@ -- | <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))+setContent self val = liftIO (js_setContent self (toJSString val))   foreign import javascript unsafe "$1[\"content\"]" js_getContent ::         HTMLMetaElement -> IO JSString@@ -42,7 +42,7 @@ -- | <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)))+getContent self = liftIO (fromJSString <$> (js_getContent self))   foreign import javascript unsafe "$1[\"httpEquiv\"] = $2;"         js_setHttpEquiv :: HTMLMetaElement -> JSString -> IO ()@@ -51,7 +51,7 @@ setHttpEquiv ::              (MonadIO m, ToJSString val) => HTMLMetaElement -> val -> m () setHttpEquiv self val-  = liftIO (js_setHttpEquiv (self) (toJSString val))+  = liftIO (js_setHttpEquiv self (toJSString val))   foreign import javascript unsafe "$1[\"httpEquiv\"]"         js_getHttpEquiv :: HTMLMetaElement -> IO JSString@@ -60,7 +60,7 @@ getHttpEquiv ::              (MonadIO m, FromJSString result) => HTMLMetaElement -> m result getHttpEquiv self-  = liftIO (fromJSString <$> (js_getHttpEquiv (self)))+  = liftIO (fromJSString <$> (js_getHttpEquiv self))   foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName ::         HTMLMetaElement -> JSString -> IO ()@@ -68,7 +68,7 @@ -- | <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))+setName self val = liftIO (js_setName self (toJSString val))   foreign import javascript unsafe "$1[\"name\"]" js_getName ::         HTMLMetaElement -> IO JSString@@ -76,7 +76,7 @@ -- | <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)))+getName self = liftIO (fromJSString <$> (js_getName self))   foreign import javascript unsafe "$1[\"scheme\"] = $2;"         js_setScheme :: HTMLMetaElement -> JSString -> IO ()@@ -84,7 +84,7 @@ -- | <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))+setScheme self val = liftIO (js_setScheme self (toJSString val))   foreign import javascript unsafe "$1[\"scheme\"]" js_getScheme ::         HTMLMetaElement -> IO JSString@@ -92,4 +92,4 @@ -- | <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)))+getScheme self = liftIO (fromJSString <$> (js_getScheme self))
src/GHCJS/DOM/JSFFI/Generated/HTMLMeterElement.hs view
@@ -8,14 +8,14 @@         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, getLabelsUnsafe, getLabelsUnchecked,-        HTMLMeterElement(..), gTypeHTMLMeterElement)+        js_getLabels, getLabels, HTMLMeterElement(..),+        gTypeHTMLMeterElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -24,6 +24,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -34,101 +35,88 @@  -- | <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)+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))+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)+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))+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)+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))+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)+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))+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)+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))+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)+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))+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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMeterElement.labels Mozilla HTMLMeterElement.labels documentation> -getLabelsUnsafe ::-                (MonadIO m, HasCallStack) => HTMLMeterElement -> m NodeList-getLabelsUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getLabels (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        HTMLMeterElement -> IO NodeList  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMeterElement.labels Mozilla HTMLMeterElement.labels documentation> -getLabelsUnchecked :: (MonadIO m) => HTMLMeterElement -> m NodeList-getLabelsUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getLabels (self)))+getLabels :: (MonadIO m) => HTMLMeterElement -> m NodeList+getLabels self = liftIO (js_getLabels self)
src/GHCJS/DOM/JSFFI/Generated/HTMLModElement.hs view
@@ -12,7 +12,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -21,6 +21,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -32,7 +33,7 @@ -- | <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))+setCite self val = liftIO (js_setCite self (toJSString val))   foreign import javascript unsafe "$1[\"cite\"]" js_getCite ::         HTMLModElement -> IO JSString@@ -40,7 +41,7 @@ -- | <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)))+getCite self = liftIO (fromJSString <$> (js_getCite self))   foreign import javascript unsafe "$1[\"dateTime\"] = $2;"         js_setDateTime :: HTMLModElement -> JSString -> IO ()@@ -49,7 +50,7 @@ setDateTime ::             (MonadIO m, ToJSString val) => HTMLModElement -> val -> m () setDateTime self val-  = liftIO (js_setDateTime (self) (toJSString val))+  = liftIO (js_setDateTime self (toJSString val))   foreign import javascript unsafe "$1[\"dateTime\"]" js_getDateTime         :: HTMLModElement -> IO JSString@@ -57,5 +58,4 @@ -- | <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)))+getDateTime self = liftIO (fromJSString <$> (js_getDateTime self))
src/GHCJS/DOM/JSFFI/Generated/HTMLOListElement.hs view
@@ -13,7 +13,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -22,6 +22,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -32,42 +33,42 @@  -- | <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)+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))+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)+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))+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)+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))+getReversed self = liftIO (js_getReversed self)   foreign import javascript unsafe "$1[\"type\"] = $2;" js_setType ::         HTMLOListElement -> JSString -> IO ()@@ -75,7 +76,7 @@ -- | <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))+setType self val = liftIO (js_setType self (toJSString val))   foreign import javascript unsafe "$1[\"type\"]" js_getType ::         HTMLOListElement -> IO JSString@@ -83,4 +84,4 @@ -- | <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)))+getType self = liftIO (fromJSString <$> (js_getType self))
src/GHCJS/DOM/JSFFI/Generated/HTMLObjectElement.hs view
@@ -5,34 +5,32 @@ {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLObjectElement        (js_checkValidity, checkValidity, checkValidity_,+        js_reportValidity, reportValidity, reportValidity_,         js_setCustomValidity, setCustomValidity, js_getSVGDocument,-        getSVGDocument, getSVGDocument_, getSVGDocumentUnsafe,-        getSVGDocumentUnchecked, js_getForm, getForm, getFormUnsafe,-        getFormUnchecked, 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, getValidityUnsafe, getValidityUnchecked,+        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, getBorderUnsafe,+        getBorderUnchecked, 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,-        getContentDocumentUnsafe, getContentDocumentUnchecked,-        HTMLObjectElement(..), gTypeHTMLObjectElement)+        js_getContentDocument, getContentDocument, HTMLObjectElement(..),+        gTypeHTMLObjectElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -41,6 +39,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -52,72 +51,50 @@  -- | <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))+checkValidity self = liftIO (js_checkValidity self)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.checkValidity Mozilla HTMLObjectElement.checkValidity documentation>  checkValidity_ :: (MonadIO m) => HTMLObjectElement -> m ()-checkValidity_ self = liftIO (void (js_checkValidity (self)))+checkValidity_ self = liftIO (void (js_checkValidity self))  +foreign import javascript unsafe+        "($1[\"reportValidity\"]() ? 1 : 0)" js_reportValidity ::+        HTMLObjectElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.reportValidity Mozilla HTMLObjectElement.reportValidity documentation> +reportValidity :: (MonadIO m) => HTMLObjectElement -> m Bool+reportValidity self = liftIO (js_reportValidity self)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.reportValidity Mozilla HTMLObjectElement.reportValidity documentation> +reportValidity_ :: (MonadIO m) => HTMLObjectElement -> m ()+reportValidity_ self = liftIO (void (js_reportValidity self))+  foreign import javascript unsafe "$1[\"setCustomValidity\"]($2)"-        js_setCustomValidity ::-        HTMLObjectElement -> Nullable JSString -> IO ()+        js_setCustomValidity :: HTMLObjectElement -> 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 ()+                  (MonadIO m, ToJSString error) => HTMLObjectElement -> error -> m () setCustomValidity self error-  = liftIO (js_setCustomValidity (self) (toMaybeJSString error))+  = liftIO (js_setCustomValidity self (toJSString error))   foreign import javascript unsafe "$1[\"getSVGDocument\"]()"-        js_getSVGDocument :: HTMLObjectElement -> IO (Nullable SVGDocument)+        js_getSVGDocument :: HTMLObjectElement -> IO Document  -- | <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)))+getSVGDocument :: (MonadIO m) => HTMLObjectElement -> m Document+getSVGDocument self = liftIO (js_getSVGDocument self)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.getSVGDocument Mozilla HTMLObjectElement.getSVGDocument documentation>  getSVGDocument_ :: (MonadIO m) => HTMLObjectElement -> m ()-getSVGDocument_ self = liftIO (void (js_getSVGDocument (self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.getSVGDocument Mozilla HTMLObjectElement.getSVGDocument documentation> -getSVGDocumentUnsafe ::-                     (MonadIO m, HasCallStack) => HTMLObjectElement -> m SVGDocument-getSVGDocumentUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getSVGDocument (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.getSVGDocument Mozilla HTMLObjectElement.getSVGDocument documentation> -getSVGDocumentUnchecked ::-                        (MonadIO m) => HTMLObjectElement -> m SVGDocument-getSVGDocumentUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$> (js_getSVGDocument (self)))+getSVGDocument_ self = liftIO (void (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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.form Mozilla HTMLObjectElement.form documentation> -getFormUnsafe ::-              (MonadIO m, HasCallStack) => HTMLObjectElement -> m HTMLFormElement-getFormUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getForm (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        HTMLObjectElement -> IO HTMLFormElement  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.form Mozilla HTMLObjectElement.form documentation> -getFormUnchecked ::-                 (MonadIO m) => HTMLObjectElement -> m HTMLFormElement-getFormUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getForm (self)))+getForm :: (MonadIO m) => HTMLObjectElement -> m HTMLFormElement+getForm self = liftIO (js_getForm self)   foreign import javascript unsafe "$1[\"code\"] = $2;" js_setCode ::         HTMLObjectElement -> JSString -> IO ()@@ -125,7 +102,7 @@ -- | <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))+setCode self val = liftIO (js_setCode self (toJSString val))   foreign import javascript unsafe "$1[\"code\"]" js_getCode ::         HTMLObjectElement -> IO JSString@@ -133,7 +110,7 @@ -- | <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)))+getCode self = liftIO (fromJSString <$> (js_getCode self))   foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign         :: HTMLObjectElement -> JSString -> IO ()@@ -141,7 +118,7 @@ -- | <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))+setAlign self val = liftIO (js_setAlign self (toJSString val))   foreign import javascript unsafe "$1[\"align\"]" js_getAlign ::         HTMLObjectElement -> IO JSString@@ -149,7 +126,7 @@ -- | <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)))+getAlign self = liftIO (fromJSString <$> (js_getAlign self))   foreign import javascript unsafe "$1[\"archive\"] = $2;"         js_setArchive :: HTMLObjectElement -> JSString -> IO ()@@ -157,8 +134,7 @@ -- | <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))+setArchive self val = liftIO (js_setArchive self (toJSString val))   foreign import javascript unsafe "$1[\"archive\"]" js_getArchive ::         HTMLObjectElement -> IO JSString@@ -166,23 +142,41 @@ -- | <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)))+getArchive self = liftIO (fromJSString <$> (js_getArchive self))   foreign import javascript unsafe "$1[\"border\"] = $2;"-        js_setBorder :: HTMLObjectElement -> JSString -> IO ()+        js_setBorder :: HTMLObjectElement -> Optional 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))+          (MonadIO m, ToJSString val) =>+            HTMLObjectElement -> Maybe val -> m ()+setBorder self val+  = liftIO (js_setBorder self (toOptionalJSString val))   foreign import javascript unsafe "$1[\"border\"]" js_getBorder ::-        HTMLObjectElement -> IO JSString+        HTMLObjectElement -> IO (Nullable 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)))+          (MonadIO m, FromJSString result) =>+            HTMLObjectElement -> m (Maybe result)+getBorder self = liftIO (fromMaybeJSString <$> (js_getBorder self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.border Mozilla HTMLObjectElement.border documentation> +getBorderUnsafe ::+                (MonadIO m, HasCallStack, FromJSString result) =>+                  HTMLObjectElement -> m result+getBorderUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getBorder self)) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.border Mozilla HTMLObjectElement.border documentation> +getBorderUnchecked ::+                   (MonadIO m, FromJSString result) => HTMLObjectElement -> m result+getBorderUnchecked self+  = liftIO (fromJust . fromMaybeJSString <$> (js_getBorder self))   foreign import javascript unsafe "$1[\"codeBase\"] = $2;"         js_setCodeBase :: HTMLObjectElement -> JSString -> IO ()@@ -191,7 +185,7 @@ setCodeBase ::             (MonadIO m, ToJSString val) => HTMLObjectElement -> val -> m () setCodeBase self val-  = liftIO (js_setCodeBase (self) (toJSString val))+  = liftIO (js_setCodeBase self (toJSString val))   foreign import javascript unsafe "$1[\"codeBase\"]" js_getCodeBase         :: HTMLObjectElement -> IO JSString@@ -199,8 +193,7 @@ -- | <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)))+getCodeBase self = liftIO (fromJSString <$> (js_getCodeBase self))   foreign import javascript unsafe "$1[\"codeType\"] = $2;"         js_setCodeType :: HTMLObjectElement -> JSString -> IO ()@@ -209,7 +202,7 @@ setCodeType ::             (MonadIO m, ToJSString val) => HTMLObjectElement -> val -> m () setCodeType self val-  = liftIO (js_setCodeType (self) (toJSString val))+  = liftIO (js_setCodeType self (toJSString val))   foreign import javascript unsafe "$1[\"codeType\"]" js_getCodeType         :: HTMLObjectElement -> IO JSString@@ -217,8 +210,7 @@ -- | <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)))+getCodeType self = liftIO (fromJSString <$> (js_getCodeType self))   foreign import javascript unsafe "$1[\"data\"] = $2;" js_setData ::         HTMLObjectElement -> JSString -> IO ()@@ -226,7 +218,7 @@ -- | <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))+setData self val = liftIO (js_setData self (toJSString val))   foreign import javascript unsafe "$1[\"data\"]" js_getData ::         HTMLObjectElement -> IO JSString@@ -234,21 +226,21 @@ -- | <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)))+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)+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))+getDeclare self = liftIO (js_getDeclare self)   foreign import javascript unsafe "$1[\"height\"] = $2;"         js_setHeight :: HTMLObjectElement -> JSString -> IO ()@@ -256,7 +248,7 @@ -- | <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))+setHeight self val = liftIO (js_setHeight self (toJSString val))   foreign import javascript unsafe "$1[\"height\"]" js_getHeight ::         HTMLObjectElement -> IO JSString@@ -264,21 +256,21 @@ -- | <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)))+getHeight self = liftIO (fromJSString <$> (js_getHeight self))   foreign import javascript unsafe "$1[\"hspace\"] = $2;"-        js_setHspace :: HTMLObjectElement -> Int -> IO ()+        js_setHspace :: HTMLObjectElement -> Word -> 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)+setHspace :: (MonadIO m) => HTMLObjectElement -> Word -> m ()+setHspace self val = liftIO (js_setHspace self val)   foreign import javascript unsafe "$1[\"hspace\"]" js_getHspace ::-        HTMLObjectElement -> IO Int+        HTMLObjectElement -> IO Word  -- | <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))+getHspace :: (MonadIO m) => HTMLObjectElement -> m Word+getHspace self = liftIO (js_getHspace self)   foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName ::         HTMLObjectElement -> JSString -> IO ()@@ -286,7 +278,7 @@ -- | <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))+setName self val = liftIO (js_setName self (toJSString val))   foreign import javascript unsafe "$1[\"name\"]" js_getName ::         HTMLObjectElement -> IO JSString@@ -294,7 +286,7 @@ -- | <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)))+getName self = liftIO (fromJSString <$> (js_getName self))   foreign import javascript unsafe "$1[\"standby\"] = $2;"         js_setStandby :: HTMLObjectElement -> JSString -> IO ()@@ -302,8 +294,7 @@ -- | <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))+setStandby self val = liftIO (js_setStandby self (toJSString val))   foreign import javascript unsafe "$1[\"standby\"]" js_getStandby ::         HTMLObjectElement -> IO JSString@@ -311,7 +302,7 @@ -- | <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)))+getStandby self = liftIO (fromJSString <$> (js_getStandby self))   foreign import javascript unsafe "$1[\"type\"] = $2;" js_setType ::         HTMLObjectElement -> JSString -> IO ()@@ -319,7 +310,7 @@ -- | <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))+setType self val = liftIO (js_setType self (toJSString val))   foreign import javascript unsafe "$1[\"type\"]" js_getType ::         HTMLObjectElement -> IO JSString@@ -327,7 +318,7 @@ -- | <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)))+getType self = liftIO (fromJSString <$> (js_getType self))   foreign import javascript unsafe "$1[\"useMap\"] = $2;"         js_setUseMap :: HTMLObjectElement -> JSString -> IO ()@@ -335,7 +326,7 @@ -- | <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))+setUseMap self val = liftIO (js_setUseMap self (toJSString val))   foreign import javascript unsafe "$1[\"useMap\"]" js_getUseMap ::         HTMLObjectElement -> IO JSString@@ -343,21 +334,21 @@ -- | <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)))+getUseMap self = liftIO (fromJSString <$> (js_getUseMap self))   foreign import javascript unsafe "$1[\"vspace\"] = $2;"-        js_setVspace :: HTMLObjectElement -> Int -> IO ()+        js_setVspace :: HTMLObjectElement -> Word -> 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)+setVspace :: (MonadIO m) => HTMLObjectElement -> Word -> m ()+setVspace self val = liftIO (js_setVspace self val)   foreign import javascript unsafe "$1[\"vspace\"]" js_getVspace ::-        HTMLObjectElement -> IO Int+        HTMLObjectElement -> IO Word  -- | <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))+getVspace :: (MonadIO m) => HTMLObjectElement -> m Word+getVspace self = liftIO (js_getVspace self)   foreign import javascript unsafe "$1[\"width\"] = $2;" js_setWidth         :: HTMLObjectElement -> JSString -> IO ()@@ -365,7 +356,7 @@ -- | <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))+setWidth self val = liftIO (js_setWidth self (toJSString val))   foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::         HTMLObjectElement -> IO JSString@@ -373,37 +364,21 @@ -- | <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)))+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))+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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.validity Mozilla HTMLObjectElement.validity documentation> -getValidityUnsafe ::-                  (MonadIO m, HasCallStack) => HTMLObjectElement -> m ValidityState-getValidityUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getValidity (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        :: HTMLObjectElement -> IO ValidityState  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.validity Mozilla HTMLObjectElement.validity documentation> -getValidityUnchecked ::-                     (MonadIO m) => HTMLObjectElement -> m ValidityState-getValidityUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getValidity (self)))+getValidity :: (MonadIO m) => HTMLObjectElement -> m ValidityState+getValidity self = liftIO (js_getValidity self)   foreign import javascript unsafe "$1[\"validationMessage\"]"         js_getValidationMessage :: HTMLObjectElement -> IO JSString@@ -412,29 +387,12 @@ getValidationMessage ::                      (MonadIO m, FromJSString result) => HTMLObjectElement -> m result getValidationMessage self-  = liftIO (fromJSString <$> (js_getValidationMessage (self)))+  = liftIO (fromJSString <$> (js_getValidationMessage self))   foreign import javascript unsafe "$1[\"contentDocument\"]"-        js_getContentDocument ::-        HTMLObjectElement -> IO (Nullable Document)+        js_getContentDocument :: HTMLObjectElement -> IO 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.contentDocument Mozilla HTMLObjectElement.contentDocument documentation> -getContentDocumentUnsafe ::-                         (MonadIO m, HasCallStack) => HTMLObjectElement -> m Document-getContentDocumentUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getContentDocument (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.contentDocument Mozilla HTMLObjectElement.contentDocument documentation> -getContentDocumentUnchecked ::-                            (MonadIO m) => HTMLObjectElement -> m Document-getContentDocumentUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$> (js_getContentDocument (self)))+                   (MonadIO m) => HTMLObjectElement -> m Document+getContentDocument self = liftIO (js_getContentDocument self)
src/GHCJS/DOM/JSFFI/Generated/HTMLOptGroupElement.hs view
@@ -12,7 +12,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -21,6 +21,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -31,14 +32,14 @@  -- | <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)+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))+getDisabled self = liftIO (js_getDisabled self)   foreign import javascript unsafe "$1[\"label\"] = $2;" js_setLabel         :: HTMLOptGroupElement -> JSString -> IO ()@@ -46,7 +47,7 @@ -- | <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))+setLabel self val = liftIO (js_setLabel self (toJSString val))   foreign import javascript unsafe "$1[\"label\"]" js_getLabel ::         HTMLOptGroupElement -> IO JSString@@ -54,4 +55,4 @@ -- | <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)))+getLabel self = liftIO (fromJSString <$> (js_getLabel self))
src/GHCJS/DOM/JSFFI/Generated/HTMLOptionElement.hs view
@@ -5,19 +5,18 @@ {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLOptionElement        (js_setDisabled, setDisabled, js_getDisabled, getDisabled,-        js_getForm, getForm, getFormUnsafe, getFormUnchecked, 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(..),-        gTypeHTMLOptionElement)+        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(..), gTypeHTMLOptionElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -26,6 +25,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -36,36 +36,21 @@  -- | <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)+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))+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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionElement.form Mozilla HTMLOptionElement.form documentation> -getFormUnsafe ::-              (MonadIO m, HasCallStack) => HTMLOptionElement -> m HTMLFormElement-getFormUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getForm (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        HTMLOptionElement -> IO HTMLFormElement  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionElement.form Mozilla HTMLOptionElement.form documentation> -getFormUnchecked ::-                 (MonadIO m) => HTMLOptionElement -> m HTMLFormElement-getFormUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getForm (self)))+getForm :: (MonadIO m) => HTMLOptionElement -> m HTMLFormElement+getForm self = liftIO (js_getForm self)   foreign import javascript unsafe "$1[\"label\"] = $2;" js_setLabel         :: HTMLOptionElement -> JSString -> IO ()@@ -73,7 +58,7 @@ -- | <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))+setLabel self val = liftIO (js_setLabel self (toJSString val))   foreign import javascript unsafe "$1[\"label\"]" js_getLabel ::         HTMLOptionElement -> IO JSString@@ -81,7 +66,7 @@ -- | <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)))+getLabel self = liftIO (fromJSString <$> (js_getLabel self))   foreign import javascript unsafe "$1[\"defaultSelected\"] = $2;"         js_setDefaultSelected :: HTMLOptionElement -> Bool -> IO ()@@ -90,7 +75,7 @@ setDefaultSelected ::                    (MonadIO m) => HTMLOptionElement -> Bool -> m () setDefaultSelected self val-  = liftIO (js_setDefaultSelected (self) val)+  = liftIO (js_setDefaultSelected self val)   foreign import javascript unsafe         "($1[\"defaultSelected\"] ? 1 : 0)" js_getDefaultSelected ::@@ -98,21 +83,21 @@  -- | <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))+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)+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))+getSelected self = liftIO (js_getSelected self)   foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue         :: HTMLOptionElement -> JSString -> IO ()@@ -120,7 +105,7 @@ -- | <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))+setValue self val = liftIO (js_setValue self (toJSString val))   foreign import javascript unsafe "$1[\"value\"]" js_getValue ::         HTMLOptionElement -> IO JSString@@ -128,7 +113,7 @@ -- | <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)))+getValue self = liftIO (fromJSString <$> (js_getValue self))   foreign import javascript unsafe "$1[\"text\"] = $2;" js_setText ::         HTMLOptionElement -> JSString -> IO ()@@ -136,7 +121,7 @@ -- | <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))+setText self val = liftIO (js_setText self (toJSString val))   foreign import javascript unsafe "$1[\"text\"]" js_getText ::         HTMLOptionElement -> IO JSString@@ -144,11 +129,11 @@ -- | <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)))+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))+getIndex self = liftIO (js_getIndex self)
src/GHCJS/DOM/JSFFI/Generated/HTMLOptionsCollection.hs view
@@ -4,18 +4,19 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLOptionsCollection-       (js_namedItem, namedItem, namedItem_, namedItemUnsafe,-        namedItemUnchecked, js_addBefore, addBefore, js_add, add,-        js_remove, remove, js_setSelectedIndex, setSelectedIndex,-        js_getSelectedIndex, getSelectedIndex, js_setLength, setLength,-        js_getLength, getLength, HTMLOptionsCollection(..),+       (js_addBefore, addBefore, js_remove, remove, js_removeElement,+        removeElement, js_item, item, item_, itemUnsafe, itemUnchecked,+        js_namedItem, namedItem, namedItem_, namedItemUnsafe,+        namedItemUnchecked, js_setLength, setLength, js_getLength,+        getLength, js_setSelectedIndex, setSelectedIndex,+        js_getSelectedIndex, getSelectedIndex, HTMLOptionsCollection(..),         gTypeHTMLOptionsCollection)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -24,80 +25,124 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums  -foreign import javascript unsafe "$1[\"namedItem\"]($2)"-        js_namedItem ::-        HTMLOptionsCollection -> JSString -> IO (Nullable Node)+foreign import javascript unsafe "$1[\"add\"]($2, $3)" js_addBefore+        ::+        HTMLOptionsCollection ->+          HTMLOptionElementOrGroup -> Optional HTMLElementOrLong -> IO () +-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionsCollection.add Mozilla HTMLOptionsCollection.add documentation> +addBefore ::+          (MonadIO m, IsHTMLOptionElementOrGroup element,+           IsHTMLElementOrLong before) =>+            HTMLOptionsCollection -> element -> Maybe before -> m ()+addBefore self element before+  = liftIO+      (mapM toJSVal before >>=+         \ before' ->+           toJSVal element >>=+             \ element' -> js_addBefore self (HTMLOptionElementOrGroup element')+             (maybeToOptional (fmap HTMLElementOrLong before')))+ +foreign import javascript unsafe "$1[\"remove\"]($2)" js_remove ::+        HTMLOptionsCollection -> Int -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionsCollection.remove Mozilla HTMLOptionsCollection.remove documentation> +remove :: (MonadIO m) => HTMLOptionsCollection -> Int -> m ()+remove self index = liftIO (js_remove self index)+ +foreign import javascript unsafe "$1[\"remove\"]($2)"+        js_removeElement ::+        HTMLOptionsCollection -> HTMLOptionElement -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionsCollection.remove Mozilla HTMLOptionsCollection.remove documentation> +removeElement ::+              (MonadIO m) => HTMLOptionsCollection -> HTMLOptionElement -> m ()+removeElement self option = liftIO (js_removeElement self option)+ +foreign import javascript unsafe "$1[$2]" js_item ::+        HTMLOptionsCollection -> Word -> IO (Nullable HTMLOptionElement)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionsCollection.item Mozilla HTMLOptionsCollection.item documentation> +item ::+     (MonadIO m) =>+       HTMLOptionsCollection -> Word -> m (Maybe HTMLOptionElement)+item self index = liftIO (nullableToMaybe <$> (js_item self index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionsCollection.item Mozilla HTMLOptionsCollection.item documentation> +item_ :: (MonadIO m) => HTMLOptionsCollection -> Word -> m ()+item_ self index = liftIO (void (js_item self index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionsCollection.item Mozilla HTMLOptionsCollection.item documentation> +itemUnsafe ::+           (MonadIO m, HasCallStack) =>+             HTMLOptionsCollection -> Word -> m HTMLOptionElement+itemUnsafe self index+  = liftIO+      ((nullableToMaybe <$> (js_item self index)) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionsCollection.item Mozilla HTMLOptionsCollection.item documentation> +itemUnchecked ::+              (MonadIO m) => HTMLOptionsCollection -> Word -> m HTMLOptionElement+itemUnchecked self index+  = liftIO (fromJust . nullableToMaybe <$> (js_item self index))+ +foreign import javascript unsafe "$1[$2]" js_namedItem ::+        HTMLOptionsCollection ->+          JSString -> IO (Nullable HTMLOptionElement)+ -- | <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)+            HTMLOptionsCollection -> name -> m (Maybe HTMLOptionElement) namedItem self name   = liftIO-      (nullableToMaybe <$> (js_namedItem (self) (toJSString name)))+      (nullableToMaybe <$> (js_namedItem self (toJSString name)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionsCollection.namedItem Mozilla HTMLOptionsCollection.namedItem documentation>  namedItem_ ::            (MonadIO m, ToJSString name) =>              HTMLOptionsCollection -> name -> m () namedItem_ self name-  = liftIO (void (js_namedItem (self) (toJSString name)))+  = liftIO (void (js_namedItem self (toJSString name)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionsCollection.namedItem Mozilla HTMLOptionsCollection.namedItem documentation>  namedItemUnsafe ::                 (MonadIO m, ToJSString name, HasCallStack) =>-                  HTMLOptionsCollection -> name -> m Node+                  HTMLOptionsCollection -> name -> m HTMLOptionElement namedItemUnsafe self name   = liftIO-      ((nullableToMaybe <$> (js_namedItem (self) (toJSString name))) >>=+      ((nullableToMaybe <$> (js_namedItem self (toJSString name))) >>=          maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionsCollection.namedItem Mozilla HTMLOptionsCollection.namedItem documentation>  namedItemUnchecked ::                    (MonadIO m, ToJSString name) =>-                     HTMLOptionsCollection -> name -> m Node+                     HTMLOptionsCollection -> name -> m HTMLOptionElement namedItemUnchecked self name   = liftIO       (fromJust . 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)))+         (js_namedItem self (toJSString name)))  -foreign import javascript unsafe "$1[\"add\"]($2, $3)" js_add ::-        HTMLOptionsCollection -> Nullable HTMLElement -> Int -> IO ()+foreign import javascript unsafe "$1[\"length\"] = $2;"+        js_setLength :: HTMLOptionsCollection -> Word -> 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)+-- | <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[\"remove\"]($2)" js_remove ::-        HTMLOptionsCollection -> Word -> IO ()+foreign import javascript unsafe "$1[\"length\"]" js_getLength ::+        HTMLOptionsCollection -> IO Word --- | <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)+-- | <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)   foreign import javascript unsafe "$1[\"selectedIndex\"] = $2;"         js_setSelectedIndex :: HTMLOptionsCollection -> Int -> IO ()@@ -105,25 +150,11 @@ -- | <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)+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))+getSelectedIndex self = liftIO (js_getSelectedIndex self)
src/GHCJS/DOM/JSFFI/Generated/HTMLOutputElement.hs view
@@ -5,23 +5,22 @@ {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLOutputElement        (js_checkValidity, checkValidity, checkValidity_,+        js_reportValidity, reportValidity, reportValidity_,         js_setCustomValidity, setCustomValidity, js_getHtmlFor, getHtmlFor,-        getHtmlForUnsafe, getHtmlForUnchecked, js_getForm, getForm,-        getFormUnsafe, getFormUnchecked, js_setName, setName, js_getName,-        getName, js_getType, getType, js_setDefaultValue, setDefaultValue,+        js_getForm, getForm, js_setName, setName, js_getName, getName,+        js_getType, getType, js_setDefaultValue, setDefaultValue,         js_getDefaultValue, getDefaultValue, getDefaultValueUnsafe,         getDefaultValueUnchecked, js_setValue, setValue, js_getValue,         getValue, getValueUnsafe, getValueUnchecked, js_getWillValidate,-        getWillValidate, js_getValidity, getValidity, getValidityUnsafe,-        getValidityUnchecked, js_getValidationMessage,-        getValidationMessage, js_getLabels, getLabels, getLabelsUnsafe,-        getLabelsUnchecked, HTMLOutputElement(..), gTypeHTMLOutputElement)+        getWillValidate, js_getValidity, getValidity,+        js_getValidationMessage, getValidationMessage, js_getLabels,+        getLabels, HTMLOutputElement(..), gTypeHTMLOutputElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -30,6 +29,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -41,68 +41,46 @@  -- | <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))+checkValidity self = liftIO (js_checkValidity self)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement.checkValidity Mozilla HTMLOutputElement.checkValidity documentation>  checkValidity_ :: (MonadIO m) => HTMLOutputElement -> m ()-checkValidity_ self = liftIO (void (js_checkValidity (self)))+checkValidity_ self = liftIO (void (js_checkValidity self))  +foreign import javascript unsafe+        "($1[\"reportValidity\"]() ? 1 : 0)" js_reportValidity ::+        HTMLOutputElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement.reportValidity Mozilla HTMLOutputElement.reportValidity documentation> +reportValidity :: (MonadIO m) => HTMLOutputElement -> m Bool+reportValidity self = liftIO (js_reportValidity self)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement.reportValidity Mozilla HTMLOutputElement.reportValidity documentation> +reportValidity_ :: (MonadIO m) => HTMLOutputElement -> m ()+reportValidity_ self = liftIO (void (js_reportValidity self))+  foreign import javascript unsafe "$1[\"setCustomValidity\"]($2)"-        js_setCustomValidity ::-        HTMLOutputElement -> Nullable JSString -> IO ()+        js_setCustomValidity :: HTMLOutputElement -> 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 ()+                  (MonadIO m, ToJSString error) => HTMLOutputElement -> error -> m () setCustomValidity self error-  = liftIO (js_setCustomValidity (self) (toMaybeJSString error))+  = liftIO (js_setCustomValidity self (toJSString 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement.htmlFor Mozilla HTMLOutputElement.htmlFor documentation> -getHtmlForUnsafe ::-                 (MonadIO m, HasCallStack) =>-                   HTMLOutputElement -> m DOMSettableTokenList-getHtmlForUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getHtmlFor (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        HTMLOutputElement -> IO DOMTokenList  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement.htmlFor Mozilla HTMLOutputElement.htmlFor documentation> -getHtmlForUnchecked ::-                    (MonadIO m) => HTMLOutputElement -> m DOMSettableTokenList-getHtmlForUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getHtmlFor (self)))+getHtmlFor :: (MonadIO m) => HTMLOutputElement -> m DOMTokenList+getHtmlFor self = liftIO (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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement.form Mozilla HTMLOutputElement.form documentation> -getFormUnsafe ::-              (MonadIO m, HasCallStack) => HTMLOutputElement -> m HTMLFormElement-getFormUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getForm (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        HTMLOutputElement -> IO HTMLFormElement  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement.form Mozilla HTMLOutputElement.form documentation> -getFormUnchecked ::-                 (MonadIO m) => HTMLOutputElement -> m HTMLFormElement-getFormUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getForm (self)))+getForm :: (MonadIO m) => HTMLOutputElement -> m HTMLFormElement+getForm self = liftIO (js_getForm self)   foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName ::         HTMLOutputElement -> JSString -> IO ()@@ -110,7 +88,7 @@ -- | <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))+setName self val = liftIO (js_setName self (toJSString val))   foreign import javascript unsafe "$1[\"name\"]" js_getName ::         HTMLOutputElement -> IO JSString@@ -118,7 +96,7 @@ -- | <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)))+getName self = liftIO (fromJSString <$> (js_getName self))   foreign import javascript unsafe "$1[\"type\"]" js_getType ::         HTMLOutputElement -> IO JSString@@ -126,18 +104,18 @@ -- | <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)))+getType self = liftIO (fromJSString <$> (js_getType self))   foreign import javascript unsafe "$1[\"defaultValue\"] = $2;"         js_setDefaultValue ::-        HTMLOutputElement -> Nullable JSString -> IO ()+        HTMLOutputElement -> Optional 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))+  = liftIO (js_setDefaultValue self (toOptionalJSString val))   foreign import javascript unsafe "$1[\"defaultValue\"]"         js_getDefaultValue :: HTMLOutputElement -> IO (Nullable JSString)@@ -147,7 +125,7 @@                 (MonadIO m, FromJSString result) =>                   HTMLOutputElement -> m (Maybe result) getDefaultValue self-  = liftIO (fromMaybeJSString <$> (js_getDefaultValue (self)))+  = liftIO (fromMaybeJSString <$> (js_getDefaultValue self))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement.defaultValue Mozilla HTMLOutputElement.defaultValue documentation>  getDefaultValueUnsafe ::@@ -155,7 +133,7 @@                         HTMLOutputElement -> m result getDefaultValueUnsafe self   = liftIO-      ((fromMaybeJSString <$> (js_getDefaultValue (self))) >>=+      ((fromMaybeJSString <$> (js_getDefaultValue self)) >>=          maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement.defaultValue Mozilla HTMLOutputElement.defaultValue documentation> @@ -163,17 +141,17 @@                          (MonadIO m, FromJSString result) => HTMLOutputElement -> m result getDefaultValueUnchecked self   = liftIO-      (fromJust . fromMaybeJSString <$> (js_getDefaultValue (self)))+      (fromJust . fromMaybeJSString <$> (js_getDefaultValue self))   foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue-        :: HTMLOutputElement -> Nullable JSString -> IO ()+        :: HTMLOutputElement -> Optional 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))+  = liftIO (js_setValue self (toOptionalJSString val))   foreign import javascript unsafe "$1[\"value\"]" js_getValue ::         HTMLOutputElement -> IO (Nullable JSString)@@ -182,7 +160,7 @@ getValue ::          (MonadIO m, FromJSString result) =>            HTMLOutputElement -> m (Maybe result)-getValue self = liftIO (fromMaybeJSString <$> (js_getValue (self)))+getValue self = liftIO (fromMaybeJSString <$> (js_getValue self))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement.value Mozilla HTMLOutputElement.value documentation>  getValueUnsafe ::@@ -190,44 +168,28 @@                  HTMLOutputElement -> m result getValueUnsafe self   = liftIO-      ((fromMaybeJSString <$> (js_getValue (self))) >>=+      ((fromMaybeJSString <$> (js_getValue self)) >>=          maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement.value Mozilla HTMLOutputElement.value documentation>  getValueUnchecked ::                   (MonadIO m, FromJSString result) => HTMLOutputElement -> m result getValueUnchecked self-  = liftIO (fromJust . fromMaybeJSString <$> (js_getValue (self)))+  = liftIO (fromJust . 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))+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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement.validity Mozilla HTMLOutputElement.validity documentation> -getValidityUnsafe ::-                  (MonadIO m, HasCallStack) => HTMLOutputElement -> m ValidityState-getValidityUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getValidity (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        :: HTMLOutputElement -> IO ValidityState  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement.validity Mozilla HTMLOutputElement.validity documentation> -getValidityUnchecked ::-                     (MonadIO m) => HTMLOutputElement -> m ValidityState-getValidityUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getValidity (self)))+getValidity :: (MonadIO m) => HTMLOutputElement -> m ValidityState+getValidity self = liftIO (js_getValidity self)   foreign import javascript unsafe "$1[\"validationMessage\"]"         js_getValidationMessage :: HTMLOutputElement -> IO JSString@@ -236,25 +198,11 @@ getValidationMessage ::                      (MonadIO m, FromJSString result) => HTMLOutputElement -> m result getValidationMessage self-  = liftIO (fromJSString <$> (js_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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement.labels Mozilla HTMLOutputElement.labels documentation> -getLabelsUnsafe ::-                (MonadIO m, HasCallStack) => HTMLOutputElement -> m NodeList-getLabelsUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getLabels (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        HTMLOutputElement -> IO NodeList  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement.labels Mozilla HTMLOutputElement.labels documentation> -getLabelsUnchecked ::-                   (MonadIO m) => HTMLOutputElement -> m NodeList-getLabelsUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getLabels (self)))+getLabels :: (MonadIO m) => HTMLOutputElement -> m NodeList+getLabels self = liftIO (js_getLabels self)
src/GHCJS/DOM/JSFFI/Generated/HTMLParagraphElement.hs view
@@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -20,6 +20,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -31,7 +32,7 @@ -- | <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))+setAlign self val = liftIO (js_setAlign self (toJSString val))   foreign import javascript unsafe "$1[\"align\"]" js_getAlign ::         HTMLParagraphElement -> IO JSString@@ -40,4 +41,4 @@ getAlign ::          (MonadIO m, FromJSString result) =>            HTMLParagraphElement -> m result-getAlign self = liftIO (fromJSString <$> (js_getAlign (self)))+getAlign self = liftIO (fromJSString <$> (js_getAlign self))
src/GHCJS/DOM/JSFFI/Generated/HTMLParamElement.hs view
@@ -13,7 +13,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -22,6 +22,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -33,7 +34,7 @@ -- | <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))+setName self val = liftIO (js_setName self (toJSString val))   foreign import javascript unsafe "$1[\"name\"]" js_getName ::         HTMLParamElement -> IO JSString@@ -41,7 +42,7 @@ -- | <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)))+getName self = liftIO (fromJSString <$> (js_getName self))   foreign import javascript unsafe "$1[\"type\"] = $2;" js_setType ::         HTMLParamElement -> JSString -> IO ()@@ -49,7 +50,7 @@ -- | <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))+setType self val = liftIO (js_setType self (toJSString val))   foreign import javascript unsafe "$1[\"type\"]" js_getType ::         HTMLParamElement -> IO JSString@@ -57,7 +58,7 @@ -- | <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)))+getType self = liftIO (fromJSString <$> (js_getType self))   foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue         :: HTMLParamElement -> JSString -> IO ()@@ -65,7 +66,7 @@ -- | <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))+setValue self val = liftIO (js_setValue self (toJSString val))   foreign import javascript unsafe "$1[\"value\"]" js_getValue ::         HTMLParamElement -> IO JSString@@ -73,7 +74,7 @@ -- | <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)))+getValue self = liftIO (fromJSString <$> (js_getValue self))   foreign import javascript unsafe "$1[\"valueType\"] = $2;"         js_setValueType :: HTMLParamElement -> JSString -> IO ()@@ -82,7 +83,7 @@ setValueType ::              (MonadIO m, ToJSString val) => HTMLParamElement -> val -> m () setValueType self val-  = liftIO (js_setValueType (self) (toJSString val))+  = liftIO (js_setValueType self (toJSString val))   foreign import javascript unsafe "$1[\"valueType\"]"         js_getValueType :: HTMLParamElement -> IO JSString@@ -91,4 +92,4 @@ getValueType ::              (MonadIO m, FromJSString result) => HTMLParamElement -> m result getValueType self-  = liftIO (fromJSString <$> (js_getValueType (self)))+  = liftIO (fromJSString <$> (js_getValueType self))
src/GHCJS/DOM/JSFFI/Generated/HTMLPreElement.hs view
@@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -20,6 +20,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -30,25 +31,25 @@  -- | <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)+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))+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)+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))+getWrap self = liftIO (js_getWrap self)
src/GHCJS/DOM/JSFFI/Generated/HTMLProgressElement.hs view
@@ -6,14 +6,13 @@ module GHCJS.DOM.JSFFI.Generated.HTMLProgressElement        (js_setValue, setValue, js_getValue, getValue, js_setMax, setMax,         js_getMax, getMax, js_getPosition, getPosition, js_getLabels,-        getLabels, getLabelsUnsafe, getLabelsUnchecked,-        HTMLProgressElement(..), gTypeHTMLProgressElement)+        getLabels, HTMLProgressElement(..), gTypeHTMLProgressElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -22,6 +21,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -32,54 +32,39 @@  -- | <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)+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))+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)+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))+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))+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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLProgressElement.labels Mozilla HTMLProgressElement.labels documentation> -getLabelsUnsafe ::-                (MonadIO m, HasCallStack) => HTMLProgressElement -> m NodeList-getLabelsUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getLabels (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        HTMLProgressElement -> IO NodeList  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLProgressElement.labels Mozilla HTMLProgressElement.labels documentation> -getLabelsUnchecked ::-                   (MonadIO m) => HTMLProgressElement -> m NodeList-getLabelsUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getLabels (self)))+getLabels :: (MonadIO m) => HTMLProgressElement -> m NodeList+getLabels self = liftIO (js_getLabels self)
src/GHCJS/DOM/JSFFI/Generated/HTMLQuoteElement.hs view
@@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -20,6 +20,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -31,7 +32,7 @@ -- | <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))+setCite self val = liftIO (js_setCite self (toJSString val))   foreign import javascript unsafe "$1[\"cite\"]" js_getCite ::         HTMLQuoteElement -> IO JSString@@ -39,4 +40,4 @@ -- | <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)))+getCite self = liftIO (fromJSString <$> (js_getCite self))
src/GHCJS/DOM/JSFFI/Generated/HTMLScriptElement.hs view
@@ -4,22 +4,23 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLScriptElement-       (js_setText, setText, js_getText, getText, getTextUnsafe,-        getTextUnchecked, 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(..),+       (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, getCrossOriginUnsafe, getCrossOriginUnchecked,+        js_setNonce, setNonce, js_getNonce, getNonce, js_setNoModule,+        setNoModule, js_getNoModule, getNoModule, HTMLScriptElement(..),         gTypeHTMLScriptElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -28,43 +29,27 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums   foreign import javascript unsafe "$1[\"text\"] = $2;" js_setText ::-        HTMLScriptElement -> Nullable JSString -> IO ()+        HTMLScriptElement -> 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))+        (MonadIO m, ToJSString val) => HTMLScriptElement -> val -> m ()+setText self val = liftIO (js_setText self (toJSString val))   foreign import javascript unsafe "$1[\"text\"]" js_getText ::-        HTMLScriptElement -> IO (Nullable JSString)+        HTMLScriptElement -> IO 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLScriptElement.text Mozilla HTMLScriptElement.text documentation> -getTextUnsafe ::-              (MonadIO m, HasCallStack, FromJSString result) =>-                HTMLScriptElement -> m result-getTextUnsafe self-  = liftIO-      ((fromMaybeJSString <$> (js_getText (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLScriptElement.text Mozilla HTMLScriptElement.text documentation> -getTextUnchecked ::-                 (MonadIO m, FromJSString result) => HTMLScriptElement -> m result-getTextUnchecked self-  = liftIO (fromJust . fromMaybeJSString <$> (js_getText (self)))+        (MonadIO m, FromJSString result) => HTMLScriptElement -> m result+getText self = liftIO (fromJSString <$> (js_getText self))   foreign import javascript unsafe "$1[\"htmlFor\"] = $2;"         js_setHtmlFor :: HTMLScriptElement -> JSString -> IO ()@@ -72,8 +57,7 @@ -- | <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))+setHtmlFor self val = liftIO (js_setHtmlFor self (toJSString val))   foreign import javascript unsafe "$1[\"htmlFor\"]" js_getHtmlFor ::         HTMLScriptElement -> IO JSString@@ -81,7 +65,7 @@ -- | <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)))+getHtmlFor self = liftIO (fromJSString <$> (js_getHtmlFor self))   foreign import javascript unsafe "$1[\"event\"] = $2;" js_setEvent         :: HTMLScriptElement -> JSString -> IO ()@@ -89,7 +73,7 @@ -- | <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))+setEvent self val = liftIO (js_setEvent self (toJSString val))   foreign import javascript unsafe "$1[\"event\"]" js_getEvent ::         HTMLScriptElement -> IO JSString@@ -97,7 +81,7 @@ -- | <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)))+getEvent self = liftIO (fromJSString <$> (js_getEvent self))   foreign import javascript unsafe "$1[\"charset\"] = $2;"         js_setCharset :: HTMLScriptElement -> JSString -> IO ()@@ -105,8 +89,7 @@ -- | <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))+setCharset self val = liftIO (js_setCharset self (toJSString val))   foreign import javascript unsafe "$1[\"charset\"]" js_getCharset ::         HTMLScriptElement -> IO JSString@@ -114,35 +97,35 @@ -- | <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)))+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)+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))+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)+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))+getDefer self = liftIO (js_getDefer self)   foreign import javascript unsafe "$1[\"src\"] = $2;" js_setSrc ::         HTMLScriptElement -> JSString -> IO ()@@ -150,7 +133,7 @@ -- | <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))+setSrc self val = liftIO (js_setSrc self (toJSString val))   foreign import javascript unsafe "$1[\"src\"]" js_getSrc ::         HTMLScriptElement -> IO JSString@@ -158,7 +141,7 @@ -- | <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)))+getSrc self = liftIO (fromJSString <$> (js_getSrc self))   foreign import javascript unsafe "$1[\"type\"] = $2;" js_setType ::         HTMLScriptElement -> JSString -> IO ()@@ -166,7 +149,7 @@ -- | <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))+setType self val = liftIO (js_setType self (toJSString val))   foreign import javascript unsafe "$1[\"type\"]" js_getType ::         HTMLScriptElement -> IO JSString@@ -174,25 +157,44 @@ -- | <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)))+getType self = liftIO (fromJSString <$> (js_getType self))   foreign import javascript unsafe "$1[\"crossOrigin\"] = $2;"-        js_setCrossOrigin :: HTMLScriptElement -> JSString -> IO ()+        js_setCrossOrigin ::+        HTMLScriptElement -> Optional 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 ()+               (MonadIO m, ToJSString val) =>+                 HTMLScriptElement -> Maybe val -> m () setCrossOrigin self val-  = liftIO (js_setCrossOrigin (self) (toJSString val))+  = liftIO (js_setCrossOrigin self (toOptionalJSString val))   foreign import javascript unsafe "$1[\"crossOrigin\"]"-        js_getCrossOrigin :: HTMLScriptElement -> IO JSString+        js_getCrossOrigin :: HTMLScriptElement -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLScriptElement.crossOrigin Mozilla HTMLScriptElement.crossOrigin documentation>  getCrossOrigin ::-               (MonadIO m, FromJSString result) => HTMLScriptElement -> m result+               (MonadIO m, FromJSString result) =>+                 HTMLScriptElement -> m (Maybe result) getCrossOrigin self-  = liftIO (fromJSString <$> (js_getCrossOrigin (self)))+  = liftIO (fromMaybeJSString <$> (js_getCrossOrigin self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLScriptElement.crossOrigin Mozilla HTMLScriptElement.crossOrigin documentation> +getCrossOriginUnsafe ::+                     (MonadIO m, HasCallStack, FromJSString result) =>+                       HTMLScriptElement -> m result+getCrossOriginUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getCrossOrigin self)) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLScriptElement.crossOrigin Mozilla HTMLScriptElement.crossOrigin documentation> +getCrossOriginUnchecked ::+                        (MonadIO m, FromJSString result) => HTMLScriptElement -> m result+getCrossOriginUnchecked self+  = liftIO+      (fromJust . fromMaybeJSString <$> (js_getCrossOrigin self))   foreign import javascript unsafe "$1[\"nonce\"] = $2;" js_setNonce         :: HTMLScriptElement -> JSString -> IO ()@@ -200,7 +202,7 @@ -- | <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))+setNonce self val = liftIO (js_setNonce self (toJSString val))   foreign import javascript unsafe "$1[\"nonce\"]" js_getNonce ::         HTMLScriptElement -> IO JSString@@ -208,4 +210,18 @@ -- | <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)))+getNonce self = liftIO (fromJSString <$> (js_getNonce self))+ +foreign import javascript unsafe "$1[\"noModule\"] = $2;"+        js_setNoModule :: HTMLScriptElement -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLScriptElement.noModule Mozilla HTMLScriptElement.noModule documentation> +setNoModule :: (MonadIO m) => HTMLScriptElement -> Bool -> m ()+setNoModule self val = liftIO (js_setNoModule self val)+ +foreign import javascript unsafe "($1[\"noModule\"] ? 1 : 0)"+        js_getNoModule :: HTMLScriptElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLScriptElement.noModule Mozilla HTMLScriptElement.noModule documentation> +getNoModule :: (MonadIO m) => HTMLScriptElement -> m Bool+getNoModule self = liftIO (js_getNoModule self)
src/GHCJS/DOM/JSFFI/Generated/HTMLSelectElement.hs view
@@ -6,32 +6,31 @@ module GHCJS.DOM.JSFFI.Generated.HTMLSelectElement        (js_item, item, item_, itemUnsafe, itemUnchecked, js_namedItem,         namedItem, namedItem_, namedItemUnsafe, namedItemUnchecked,-        js_addBefore, addBefore, js_add, add, js_remove, remove,-        js_checkValidity, checkValidity, checkValidity_,-        js_setCustomValidity, setCustomValidity, js_setAutofocus,-        setAutofocus, js_getAutofocus, getAutofocus, js_setDisabled,-        setDisabled, js_getDisabled, getDisabled, js_getForm, getForm,-        getFormUnsafe, getFormUnchecked, 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, getOptionsUnsafe, getOptionsUnchecked,-        js_setLength, setLength, js_getLength, getLength,-        js_getSelectedOptions, getSelectedOptions,-        getSelectedOptionsUnsafe, getSelectedOptionsUnchecked,-        js_setSelectedIndex, setSelectedIndex, js_getSelectedIndex,-        getSelectedIndex, js_setValue, setValue, js_getValue, getValue,-        getValueUnsafe, getValueUnchecked, js_getWillValidate,-        getWillValidate, js_getValidity, getValidity, getValidityUnsafe,-        getValidityUnchecked, js_getValidationMessage,-        getValidationMessage, js_getLabels, getLabels, getLabelsUnsafe,-        getLabelsUnchecked, HTMLSelectElement(..), gTypeHTMLSelectElement)+        js_addBefore, addBefore, js_removeThis, removeThis,+        js_removeElement, removeElement, js_remove, remove,+        js_checkValidity, checkValidity, checkValidity_, js_reportValidity,+        reportValidity, reportValidity_, js_setCustomValidity,+        setCustomValidity, js_setAutofocus, setAutofocus, js_getAutofocus,+        getAutofocus, js_setDisabled, setDisabled, js_getDisabled,+        getDisabled, js_getForm, getForm, getFormUnsafe, getFormUnchecked,+        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, js_setAutocomplete, setAutocomplete, js_getAutocomplete,+        getAutocomplete, HTMLSelectElement(..), gTypeHTMLSelectElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -40,153 +39,176 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums  -foreign import javascript unsafe "$1[\"item\"]($2)" js_item ::-        HTMLSelectElement -> Word -> IO (Nullable Node)+foreign import javascript unsafe "$1[$2]" js_item ::+        HTMLSelectElement -> Word -> IO (Nullable HTMLOptionElement)  -- | <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))+item ::+     (MonadIO m) =>+       HTMLSelectElement -> Word -> m (Maybe HTMLOptionElement)+item self index = liftIO (nullableToMaybe <$> (js_item self index))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.item Mozilla HTMLSelectElement.item documentation>  item_ :: (MonadIO m) => HTMLSelectElement -> Word -> m ()-item_ self index = liftIO (void (js_item (self) index))+item_ self index = liftIO (void (js_item self index))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.item Mozilla HTMLSelectElement.item documentation>  itemUnsafe ::-           (MonadIO m, HasCallStack) => HTMLSelectElement -> Word -> m Node+           (MonadIO m, HasCallStack) =>+             HTMLSelectElement -> Word -> m HTMLOptionElement itemUnsafe self index   = liftIO-      ((nullableToMaybe <$> (js_item (self) index)) >>=+      ((nullableToMaybe <$> (js_item self index)) >>=          maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.item Mozilla HTMLSelectElement.item documentation> -itemUnchecked :: (MonadIO m) => HTMLSelectElement -> Word -> m Node+itemUnchecked ::+              (MonadIO m) => HTMLSelectElement -> Word -> m HTMLOptionElement itemUnchecked self index-  = liftIO (fromJust . nullableToMaybe <$> (js_item (self) index))+  = liftIO (fromJust . nullableToMaybe <$> (js_item self index))   foreign import javascript unsafe "$1[\"namedItem\"]($2)"-        js_namedItem :: HTMLSelectElement -> JSString -> IO (Nullable Node)+        js_namedItem ::+        HTMLSelectElement -> JSString -> IO (Nullable HTMLOptionElement)  -- | <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)+            HTMLSelectElement -> name -> m (Maybe HTMLOptionElement) namedItem self name   = liftIO-      (nullableToMaybe <$> (js_namedItem (self) (toJSString name)))+      (nullableToMaybe <$> (js_namedItem self (toJSString name)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.namedItem Mozilla HTMLSelectElement.namedItem documentation>  namedItem_ ::            (MonadIO m, ToJSString name) => HTMLSelectElement -> name -> m () namedItem_ self name-  = liftIO (void (js_namedItem (self) (toJSString name)))+  = liftIO (void (js_namedItem self (toJSString name)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.namedItem Mozilla HTMLSelectElement.namedItem documentation>  namedItemUnsafe ::                 (MonadIO m, ToJSString name, HasCallStack) =>-                  HTMLSelectElement -> name -> m Node+                  HTMLSelectElement -> name -> m HTMLOptionElement namedItemUnsafe self name   = liftIO-      ((nullableToMaybe <$> (js_namedItem (self) (toJSString name))) >>=+      ((nullableToMaybe <$> (js_namedItem self (toJSString name))) >>=          maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.namedItem Mozilla HTMLSelectElement.namedItem documentation>  namedItemUnchecked ::-                   (MonadIO m, ToJSString name) => HTMLSelectElement -> name -> m Node+                   (MonadIO m, ToJSString name) =>+                     HTMLSelectElement -> name -> m HTMLOptionElement namedItemUnchecked self name   = liftIO       (fromJust . nullableToMaybe <$>-         (js_namedItem (self) (toJSString name)))+         (js_namedItem self (toJSString name)))   foreign import javascript unsafe "$1[\"add\"]($2, $3)" js_addBefore         ::         HTMLSelectElement ->-          Nullable HTMLElement -> Nullable HTMLElement -> IO ()+          HTMLOptionElementOrGroup -> Optional HTMLElementOrLong -> 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 ()+          (MonadIO m, IsHTMLOptionElementOrGroup element,+           IsHTMLElementOrLong before) =>+            HTMLSelectElement -> element -> Maybe before -> m () addBefore self element before   = liftIO-      (js_addBefore (self) (maybeToNullable (fmap toHTMLElement element))-         (maybeToNullable (fmap toHTMLElement before)))+      (mapM toJSVal before >>=+         \ before' ->+           toJSVal element >>=+             \ element' -> js_addBefore self (HTMLOptionElementOrGroup element')+             (maybeToOptional (fmap HTMLElementOrLong before')))  -foreign import javascript unsafe "$1[\"add\"]($2, $3)" js_add ::-        HTMLSelectElement -> Nullable HTMLElement -> Int -> IO ()+foreign import javascript unsafe "$1[\"remove\"]()" js_removeThis+        :: HTMLSelectElement -> 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)+-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.remove Mozilla HTMLSelectElement.remove documentation> +removeThis :: (MonadIO m) => HTMLSelectElement -> m ()+removeThis self = liftIO (js_removeThis self)  -foreign import javascript unsafe "$1[\"remove\"]()" js_remove ::-        HTMLSelectElement -> IO ()+foreign import javascript unsafe "$1[\"remove\"]($2)"+        js_removeElement :: HTMLSelectElement -> HTMLOptionElement -> 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))+removeElement ::+              (MonadIO m) => HTMLSelectElement -> HTMLOptionElement -> m ()+removeElement self option = liftIO (js_removeElement self option)  +foreign import javascript unsafe "$1[\"remove\"]($2)" js_remove ::+        HTMLSelectElement -> Int -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.remove Mozilla HTMLSelectElement.remove documentation> +remove :: (MonadIO m) => HTMLSelectElement -> Int -> m ()+remove self index = liftIO (js_remove self index)+  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))+checkValidity self = liftIO (js_checkValidity self)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.checkValidity Mozilla HTMLSelectElement.checkValidity documentation>  checkValidity_ :: (MonadIO m) => HTMLSelectElement -> m ()-checkValidity_ self = liftIO (void (js_checkValidity (self)))+checkValidity_ self = liftIO (void (js_checkValidity self))  +foreign import javascript unsafe+        "($1[\"reportValidity\"]() ? 1 : 0)" js_reportValidity ::+        HTMLSelectElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.reportValidity Mozilla HTMLSelectElement.reportValidity documentation> +reportValidity :: (MonadIO m) => HTMLSelectElement -> m Bool+reportValidity self = liftIO (js_reportValidity self)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.reportValidity Mozilla HTMLSelectElement.reportValidity documentation> +reportValidity_ :: (MonadIO m) => HTMLSelectElement -> m ()+reportValidity_ self = liftIO (void (js_reportValidity self))+  foreign import javascript unsafe "$1[\"setCustomValidity\"]($2)"-        js_setCustomValidity ::-        HTMLSelectElement -> Nullable JSString -> IO ()+        js_setCustomValidity :: HTMLSelectElement -> 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 ()+                  (MonadIO m, ToJSString error) => HTMLSelectElement -> error -> m () setCustomValidity self error-  = liftIO (js_setCustomValidity (self) (toMaybeJSString error))+  = liftIO (js_setCustomValidity self (toJSString 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)+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))+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)+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))+getDisabled self = liftIO (js_getDisabled self)   foreign import javascript unsafe "$1[\"form\"]" js_getForm ::         HTMLSelectElement -> IO (Nullable HTMLFormElement)@@ -194,35 +216,35 @@ -- | <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)))+getForm self = liftIO (nullableToMaybe <$> (js_getForm self))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.form Mozilla HTMLSelectElement.form documentation>  getFormUnsafe ::               (MonadIO m, HasCallStack) => HTMLSelectElement -> m HTMLFormElement getFormUnsafe self   = liftIO-      ((nullableToMaybe <$> (js_getForm (self))) >>=+      ((nullableToMaybe <$> (js_getForm self)) >>=          maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.form Mozilla HTMLSelectElement.form documentation>  getFormUnchecked ::                  (MonadIO m) => HTMLSelectElement -> m HTMLFormElement getFormUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getForm (self)))+  = liftIO (fromJust . 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)+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))+getMultiple self = liftIO (js_getMultiple self)   foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName ::         HTMLSelectElement -> JSString -> IO ()@@ -230,7 +252,7 @@ -- | <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))+setName self val = liftIO (js_setName self (toJSString val))   foreign import javascript unsafe "$1[\"name\"]" js_getName ::         HTMLSelectElement -> IO JSString@@ -238,35 +260,35 @@ -- | <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)))+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)+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))+getRequired self = liftIO (js_getRequired self)   foreign import javascript unsafe "$1[\"size\"] = $2;" js_setSize ::-        HTMLSelectElement -> Int -> IO ()+        HTMLSelectElement -> Word -> 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)+setSize :: (MonadIO m) => HTMLSelectElement -> Word -> m ()+setSize self val = liftIO (js_setSize self val)   foreign import javascript unsafe "$1[\"size\"]" js_getSize ::-        HTMLSelectElement -> IO Int+        HTMLSelectElement -> IO Word  -- | <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))+getSize :: (MonadIO m) => HTMLSelectElement -> m Word+getSize self = liftIO (js_getSize self)   foreign import javascript unsafe "$1[\"type\"]" js_getType ::         HTMLSelectElement -> IO JSString@@ -274,148 +296,81 @@ -- | <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)))+getType self = liftIO (fromJSString <$> (js_getType self))   foreign import javascript unsafe "$1[\"options\"]" js_getOptions ::-        HTMLSelectElement -> IO (Nullable HTMLOptionsCollection)+        HTMLSelectElement -> IO 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.options Mozilla HTMLSelectElement.options documentation> -getOptionsUnsafe ::-                 (MonadIO m, HasCallStack) =>-                   HTMLSelectElement -> m HTMLOptionsCollection-getOptionsUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getOptions (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.options Mozilla HTMLSelectElement.options documentation> -getOptionsUnchecked ::-                    (MonadIO m) => HTMLSelectElement -> m HTMLOptionsCollection-getOptionsUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getOptions (self)))+           (MonadIO m) => HTMLSelectElement -> m HTMLOptionsCollection+getOptions self = liftIO (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)+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))+getLength self = liftIO (js_getLength self)   foreign import javascript unsafe "$1[\"selectedOptions\"]"-        js_getSelectedOptions ::-        HTMLSelectElement -> IO (Nullable HTMLCollection)+        js_getSelectedOptions :: HTMLSelectElement -> IO 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.selectedOptions Mozilla HTMLSelectElement.selectedOptions documentation> -getSelectedOptionsUnsafe ::-                         (MonadIO m, HasCallStack) => HTMLSelectElement -> m HTMLCollection-getSelectedOptionsUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getSelectedOptions (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.selectedOptions Mozilla HTMLSelectElement.selectedOptions documentation> -getSelectedOptionsUnchecked ::-                            (MonadIO m) => HTMLSelectElement -> m HTMLCollection-getSelectedOptionsUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$> (js_getSelectedOptions (self)))+                   (MonadIO m) => HTMLSelectElement -> m HTMLCollection+getSelectedOptions self = liftIO (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)+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))+getSelectedIndex self = liftIO (js_getSelectedIndex self)   foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue-        :: HTMLSelectElement -> Nullable JSString -> IO ()+        :: HTMLSelectElement -> 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))+         (MonadIO m, ToJSString val) => HTMLSelectElement -> val -> m ()+setValue self val = liftIO (js_setValue self (toJSString val))   foreign import javascript unsafe "$1[\"value\"]" js_getValue ::-        HTMLSelectElement -> IO (Nullable JSString)+        HTMLSelectElement -> IO 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.value Mozilla HTMLSelectElement.value documentation> -getValueUnsafe ::-               (MonadIO m, HasCallStack, FromJSString result) =>-                 HTMLSelectElement -> m result-getValueUnsafe self-  = liftIO-      ((fromMaybeJSString <$> (js_getValue (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.value Mozilla HTMLSelectElement.value documentation> -getValueUnchecked ::-                  (MonadIO m, FromJSString result) => HTMLSelectElement -> m result-getValueUnchecked self-  = liftIO (fromJust . fromMaybeJSString <$> (js_getValue (self)))+         (MonadIO m, FromJSString result) => HTMLSelectElement -> m result+getValue self = liftIO (fromJSString <$> (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))+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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.validity Mozilla HTMLSelectElement.validity documentation> -getValidityUnsafe ::-                  (MonadIO m, HasCallStack) => HTMLSelectElement -> m ValidityState-getValidityUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getValidity (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        :: HTMLSelectElement -> IO ValidityState  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.validity Mozilla HTMLSelectElement.validity documentation> -getValidityUnchecked ::-                     (MonadIO m) => HTMLSelectElement -> m ValidityState-getValidityUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getValidity (self)))+getValidity :: (MonadIO m) => HTMLSelectElement -> m ValidityState+getValidity self = liftIO (js_getValidity self)   foreign import javascript unsafe "$1[\"validationMessage\"]"         js_getValidationMessage :: HTMLSelectElement -> IO JSString@@ -424,25 +379,29 @@ getValidationMessage ::                      (MonadIO m, FromJSString result) => HTMLSelectElement -> m result getValidationMessage self-  = liftIO (fromJSString <$> (js_getValidationMessage (self)))+  = liftIO (fromJSString <$> (js_getValidationMessage self))   foreign import javascript unsafe "$1[\"labels\"]" js_getLabels ::-        HTMLSelectElement -> IO (Nullable NodeList)+        HTMLSelectElement -> IO 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)))+getLabels :: (MonadIO m) => HTMLSelectElement -> m NodeList+getLabels self = liftIO (js_getLabels self)+ +foreign import javascript unsafe "$1[\"autocomplete\"] = $2;"+        js_setAutocomplete :: HTMLSelectElement -> JSString -> IO () --- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.labels Mozilla HTMLSelectElement.labels documentation> -getLabelsUnsafe ::-                (MonadIO m, HasCallStack) => HTMLSelectElement -> m NodeList-getLabelsUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getLabels (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.autocomplete Mozilla HTMLSelectElement.autocomplete documentation> +setAutocomplete ::+                (MonadIO m, ToJSString val) => HTMLSelectElement -> val -> m ()+setAutocomplete self val+  = liftIO (js_setAutocomplete self (toJSString val))+ +foreign import javascript unsafe "$1[\"autocomplete\"]"+        js_getAutocomplete :: HTMLSelectElement -> IO JSString --- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.labels Mozilla HTMLSelectElement.labels documentation> -getLabelsUnchecked ::-                   (MonadIO m) => HTMLSelectElement -> m NodeList-getLabelsUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getLabels (self)))+-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.autocomplete Mozilla HTMLSelectElement.autocomplete documentation> +getAutocomplete ::+                (MonadIO m, FromJSString result) => HTMLSelectElement -> m result+getAutocomplete self+  = liftIO (fromJSString <$> (js_getAutocomplete self))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLSlotElement.hs view
@@ -0,0 +1,64 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+module GHCJS.DOM.JSFFI.Generated.HTMLSlotElement+       (js_assignedNodes, assignedNodes, assignedNodes_, js_setName,+        setName, js_getName, getName, HTMLSlotElement(..),+        gTypeHTMLSlotElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error)+import Data.Typeable (Typeable)+import GHCJS.Types (JSVal(..), JSString)+import GHCJS.Foreign (jsNull, jsUndefined)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Control.Monad (void)+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import Data.Maybe (fromJust)+import Data.Traversable (mapM)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"assignedNodes\"]($2)"+        js_assignedNodes ::+        HTMLSlotElement -> Optional AssignedNodesOptions -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSlotElement.assignedNodes Mozilla HTMLSlotElement.assignedNodes documentation> +assignedNodes ::+              (MonadIO m) =>+                HTMLSlotElement -> Maybe AssignedNodesOptions -> m [Node]+assignedNodes self options+  = liftIO+      ((js_assignedNodes self (maybeToOptional options)) >>=+         fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSlotElement.assignedNodes Mozilla HTMLSlotElement.assignedNodes documentation> +assignedNodes_ ::+               (MonadIO m) =>+                 HTMLSlotElement -> Maybe AssignedNodesOptions -> m ()+assignedNodes_ self options+  = liftIO (void (js_assignedNodes self (maybeToOptional options)))+ +foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName ::+        HTMLSlotElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSlotElement.name Mozilla HTMLSlotElement.name documentation> +setName ::+        (MonadIO m, ToJSString val) => HTMLSlotElement -> val -> m ()+setName self val = liftIO (js_setName self (toJSString val))+ +foreign import javascript unsafe "$1[\"name\"]" js_getName ::+        HTMLSlotElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSlotElement.name Mozilla HTMLSlotElement.name documentation> +getName ::+        (MonadIO m, FromJSString result) => HTMLSlotElement -> m result+getName self = liftIO (fromJSString <$> (js_getName self))
src/GHCJS/DOM/JSFFI/Generated/HTMLSourceElement.hs view
@@ -5,14 +5,16 @@ {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLSourceElement        (js_setSrc, setSrc, js_getSrc, getSrc, js_setType, setType,-        js_getType, getType, js_setMedia, setMedia, js_getMedia, getMedia,+        js_getType, getType, js_setSrcset, setSrcset, js_getSrcset,+        getSrcset, js_setSizes, setSizes, js_getSizes, getSizes,+        js_setMedia, setMedia, js_getMedia, getMedia,         HTMLSourceElement(..), gTypeHTMLSourceElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -21,6 +23,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -32,7 +35,7 @@ -- | <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))+setSrc self val = liftIO (js_setSrc self (toJSString val))   foreign import javascript unsafe "$1[\"src\"]" js_getSrc ::         HTMLSourceElement -> IO JSString@@ -40,7 +43,7 @@ -- | <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)))+getSrc self = liftIO (fromJSString <$> (js_getSrc self))   foreign import javascript unsafe "$1[\"type\"] = $2;" js_setType ::         HTMLSourceElement -> JSString -> IO ()@@ -48,7 +51,7 @@ -- | <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))+setType self val = liftIO (js_setType self (toJSString val))   foreign import javascript unsafe "$1[\"type\"]" js_getType ::         HTMLSourceElement -> IO JSString@@ -56,15 +59,47 @@ -- | <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)))+getType self = liftIO (fromJSString <$> (js_getType self))  +foreign import javascript unsafe "$1[\"srcset\"] = $2;"+        js_setSrcset :: HTMLSourceElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSourceElement.srcset Mozilla HTMLSourceElement.srcset documentation> +setSrcset ::+          (MonadIO m, ToJSString val) => HTMLSourceElement -> val -> m ()+setSrcset self val = liftIO (js_setSrcset self (toJSString val))+ +foreign import javascript unsafe "$1[\"srcset\"]" js_getSrcset ::+        HTMLSourceElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSourceElement.srcset Mozilla HTMLSourceElement.srcset documentation> +getSrcset ::+          (MonadIO m, FromJSString result) => HTMLSourceElement -> m result+getSrcset self = liftIO (fromJSString <$> (js_getSrcset self))+ +foreign import javascript unsafe "$1[\"sizes\"] = $2;" js_setSizes+        :: HTMLSourceElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSourceElement.sizes Mozilla HTMLSourceElement.sizes documentation> +setSizes ::+         (MonadIO m, ToJSString val) => HTMLSourceElement -> val -> m ()+setSizes self val = liftIO (js_setSizes self (toJSString val))+ +foreign import javascript unsafe "$1[\"sizes\"]" js_getSizes ::+        HTMLSourceElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSourceElement.sizes Mozilla HTMLSourceElement.sizes documentation> +getSizes ::+         (MonadIO m, FromJSString result) => HTMLSourceElement -> m result+getSizes self = liftIO (fromJSString <$> (js_getSizes 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))+setMedia self val = liftIO (js_setMedia self (toJSString val))   foreign import javascript unsafe "$1[\"media\"]" js_getMedia ::         HTMLSourceElement -> IO JSString@@ -72,4 +107,4 @@ -- | <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)))+getMedia self = liftIO (fromJSString <$> (js_getMedia self))
src/GHCJS/DOM/JSFFI/Generated/HTMLStyleElement.hs view
@@ -6,14 +6,14 @@ 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, getSheetUnsafe,-        getSheetUnchecked, HTMLStyleElement(..), gTypeHTMLStyleElement)+        js_getType, getType, js_getSheet, getSheet, js_setNonce, setNonce,+        js_getNonce, getNonce, HTMLStyleElement(..), gTypeHTMLStyleElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -22,6 +22,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -32,14 +33,14 @@  -- | <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)+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))+getDisabled self = liftIO (js_getDisabled self)   foreign import javascript unsafe "$1[\"media\"] = $2;" js_setMedia         :: HTMLStyleElement -> JSString -> IO ()@@ -47,7 +48,7 @@ -- | <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))+setMedia self val = liftIO (js_setMedia self (toJSString val))   foreign import javascript unsafe "$1[\"media\"]" js_getMedia ::         HTMLStyleElement -> IO JSString@@ -55,7 +56,7 @@ -- | <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)))+getMedia self = liftIO (fromJSString <$> (js_getMedia self))   foreign import javascript unsafe "$1[\"type\"] = $2;" js_setType ::         HTMLStyleElement -> JSString -> IO ()@@ -63,7 +64,7 @@ -- | <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))+setType self val = liftIO (js_setType self (toJSString val))   foreign import javascript unsafe "$1[\"type\"]" js_getType ::         HTMLStyleElement -> IO JSString@@ -71,25 +72,27 @@ -- | <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)))+getType self = liftIO (fromJSString <$> (js_getType self))   foreign import javascript unsafe "$1[\"sheet\"]" js_getSheet ::-        HTMLStyleElement -> IO (Nullable StyleSheet)+        HTMLStyleElement -> IO 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)))+getSheet :: (MonadIO m) => HTMLStyleElement -> m StyleSheet+getSheet self = liftIO (js_getSheet self)+ +foreign import javascript unsafe "$1[\"nonce\"] = $2;" js_setNonce+        :: HTMLStyleElement -> JSString -> IO () --- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLStyleElement.sheet Mozilla HTMLStyleElement.sheet documentation> -getSheetUnsafe ::-               (MonadIO m, HasCallStack) => HTMLStyleElement -> m StyleSheet-getSheetUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getSheet (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLStyleElement.nonce Mozilla HTMLStyleElement.nonce documentation> +setNonce ::+         (MonadIO m, ToJSString val) => HTMLStyleElement -> val -> m ()+setNonce self val = liftIO (js_setNonce self (toJSString val))+ +foreign import javascript unsafe "$1[\"nonce\"]" js_getNonce ::+        HTMLStyleElement -> IO JSString --- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLStyleElement.sheet Mozilla HTMLStyleElement.sheet documentation> -getSheetUnchecked ::-                  (MonadIO m) => HTMLStyleElement -> m StyleSheet-getSheetUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getSheet (self)))+-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLStyleElement.nonce Mozilla HTMLStyleElement.nonce documentation> +getNonce ::+         (MonadIO m, FromJSString result) => HTMLStyleElement -> m result+getNonce self = liftIO (fromJSString <$> (js_getNonce self))
src/GHCJS/DOM/JSFFI/Generated/HTMLTableCaptionElement.hs view
@@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -20,6 +20,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -32,7 +33,7 @@ setAlign ::          (MonadIO m, ToJSString val) =>            HTMLTableCaptionElement -> val -> m ()-setAlign self val = liftIO (js_setAlign (self) (toJSString val))+setAlign self val = liftIO (js_setAlign self (toJSString val))   foreign import javascript unsafe "$1[\"align\"]" js_getAlign ::         HTMLTableCaptionElement -> IO JSString@@ -41,4 +42,4 @@ getAlign ::          (MonadIO m, FromJSString result) =>            HTMLTableCaptionElement -> m result-getAlign self = liftIO (fromJSString <$> (js_getAlign (self)))+getAlign self = liftIO (fromJSString <$> (js_getAlign self))
src/GHCJS/DOM/JSFFI/Generated/HTMLTableCellElement.hs view
@@ -4,24 +4,25 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} 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_getCellIndex, getCellIndex, js_setAlign, setAlign, js_getAlign,+        getAlign, js_setAxis, setAxis, js_getAxis, getAxis, js_setBgColor,+        setBgColor, js_getBgColor, getBgColor, getBgColorUnsafe,+        getBgColorUnchecked, js_setCh, setCh, js_getCh, getCh, js_setChOff,+        setChOff, js_getChOff, getChOff, js_setColSpan, setColSpan,+        js_getColSpan, getColSpan, js_setRowSpan, setRowSpan,+        js_getRowSpan, getRowSpan, 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(..), gTypeHTMLTableCellElement)+        js_setVAlign, setVAlign, js_getVAlign, getVAlign, js_setWidth,+        setWidth, js_getWidth, getWidth, js_setAbbr, setAbbr, js_getAbbr,+        getAbbr, js_setScope, setScope, js_getScope, getScope,+        HTMLTableCellElement(..), gTypeHTMLTableCellElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -30,6 +31,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -40,24 +42,7 @@  -- | <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)))+getCellIndex self = liftIO (js_getCellIndex self)   foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign         :: HTMLTableCellElement -> JSString -> IO ()@@ -65,7 +50,7 @@ -- | <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))+setAlign self val = liftIO (js_setAlign self (toJSString val))   foreign import javascript unsafe "$1[\"align\"]" js_getAlign ::         HTMLTableCellElement -> IO JSString@@ -74,7 +59,7 @@ getAlign ::          (MonadIO m, FromJSString result) =>            HTMLTableCellElement -> m result-getAlign self = liftIO (fromJSString <$> (js_getAlign (self)))+getAlign self = liftIO (fromJSString <$> (js_getAlign self))   foreign import javascript unsafe "$1[\"axis\"] = $2;" js_setAxis ::         HTMLTableCellElement -> JSString -> IO ()@@ -82,7 +67,7 @@ -- | <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))+setAxis self val = liftIO (js_setAxis self (toJSString val))   foreign import javascript unsafe "$1[\"axis\"]" js_getAxis ::         HTMLTableCellElement -> IO JSString@@ -91,25 +76,43 @@ getAxis ::         (MonadIO m, FromJSString result) =>           HTMLTableCellElement -> m result-getAxis self = liftIO (fromJSString <$> (js_getAxis (self)))+getAxis self = liftIO (fromJSString <$> (js_getAxis self))   foreign import javascript unsafe "$1[\"bgColor\"] = $2;"-        js_setBgColor :: HTMLTableCellElement -> JSString -> IO ()+        js_setBgColor :: HTMLTableCellElement -> Optional 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 ()+           (MonadIO m, ToJSString val) =>+             HTMLTableCellElement -> Maybe val -> m () setBgColor self val-  = liftIO (js_setBgColor (self) (toJSString val))+  = liftIO (js_setBgColor self (toOptionalJSString val))   foreign import javascript unsafe "$1[\"bgColor\"]" js_getBgColor ::-        HTMLTableCellElement -> IO JSString+        HTMLTableCellElement -> IO (Nullable 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)))+             HTMLTableCellElement -> m (Maybe result)+getBgColor self+  = liftIO (fromMaybeJSString <$> (js_getBgColor self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.bgColor Mozilla HTMLTableCellElement.bgColor documentation> +getBgColorUnsafe ::+                 (MonadIO m, HasCallStack, FromJSString result) =>+                   HTMLTableCellElement -> m result+getBgColorUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getBgColor self)) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.bgColor Mozilla HTMLTableCellElement.bgColor documentation> +getBgColorUnchecked ::+                    (MonadIO m, FromJSString result) =>+                      HTMLTableCellElement -> m result+getBgColorUnchecked self+  = liftIO (fromJust . fromMaybeJSString <$> (js_getBgColor self))   foreign import javascript unsafe "$1[\"ch\"] = $2;" js_setCh ::         HTMLTableCellElement -> JSString -> IO ()@@ -117,7 +120,7 @@ -- | <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))+setCh self val = liftIO (js_setCh self (toJSString val))   foreign import javascript unsafe "$1[\"ch\"]" js_getCh ::         HTMLTableCellElement -> IO JSString@@ -126,7 +129,7 @@ getCh ::       (MonadIO m, FromJSString result) =>         HTMLTableCellElement -> m result-getCh self = liftIO (fromJSString <$> (js_getCh (self)))+getCh self = liftIO (fromJSString <$> (js_getCh self))   foreign import javascript unsafe "$1[\"chOff\"] = $2;" js_setChOff         :: HTMLTableCellElement -> JSString -> IO ()@@ -134,7 +137,7 @@ -- | <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))+setChOff self val = liftIO (js_setChOff self (toJSString val))   foreign import javascript unsafe "$1[\"chOff\"]" js_getChOff ::         HTMLTableCellElement -> IO JSString@@ -143,30 +146,43 @@ getChOff ::          (MonadIO m, FromJSString result) =>            HTMLTableCellElement -> m result-getChOff self = liftIO (fromJSString <$> (js_getChOff (self)))+getChOff self = liftIO (fromJSString <$> (js_getChOff self))   foreign import javascript unsafe "$1[\"colSpan\"] = $2;"-        js_setColSpan :: HTMLTableCellElement -> Int -> IO ()+        js_setColSpan :: HTMLTableCellElement -> Word -> 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)+setColSpan :: (MonadIO m) => HTMLTableCellElement -> Word -> m ()+setColSpan self val = liftIO (js_setColSpan self val)   foreign import javascript unsafe "$1[\"colSpan\"]" js_getColSpan ::-        HTMLTableCellElement -> IO Int+        HTMLTableCellElement -> IO Word  -- | <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))+getColSpan :: (MonadIO m) => HTMLTableCellElement -> m Word+getColSpan self = liftIO (js_getColSpan self)  +foreign import javascript unsafe "$1[\"rowSpan\"] = $2;"+        js_setRowSpan :: HTMLTableCellElement -> Word -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.rowSpan Mozilla HTMLTableCellElement.rowSpan documentation> +setRowSpan :: (MonadIO m) => HTMLTableCellElement -> Word -> m ()+setRowSpan self val = liftIO (js_setRowSpan self val)+ +foreign import javascript unsafe "$1[\"rowSpan\"]" js_getRowSpan ::+        HTMLTableCellElement -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.rowSpan Mozilla HTMLTableCellElement.rowSpan documentation> +getRowSpan :: (MonadIO m) => HTMLTableCellElement -> m Word+getRowSpan self = liftIO (js_getRowSpan 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))+setHeaders self val = liftIO (js_setHeaders self (toJSString val))   foreign import javascript unsafe "$1[\"headers\"]" js_getHeaders ::         HTMLTableCellElement -> IO JSString@@ -175,7 +191,7 @@ getHeaders ::            (MonadIO m, FromJSString result) =>              HTMLTableCellElement -> m result-getHeaders self = liftIO (fromJSString <$> (js_getHeaders (self)))+getHeaders self = liftIO (fromJSString <$> (js_getHeaders self))   foreign import javascript unsafe "$1[\"height\"] = $2;"         js_setHeight :: HTMLTableCellElement -> JSString -> IO ()@@ -183,7 +199,7 @@ -- | <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))+setHeight self val = liftIO (js_setHeight self (toJSString val))   foreign import javascript unsafe "$1[\"height\"]" js_getHeight ::         HTMLTableCellElement -> IO JSString@@ -192,52 +208,21 @@ getHeight ::           (MonadIO m, FromJSString result) =>             HTMLTableCellElement -> m result-getHeight self = liftIO (fromJSString <$> (js_getHeight (self)))+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)+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)))+getNoWrap self = liftIO (js_getNoWrap self)   foreign import javascript unsafe "$1[\"vAlign\"] = $2;"         js_setVAlign :: HTMLTableCellElement -> JSString -> IO ()@@ -245,7 +230,7 @@ -- | <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))+setVAlign self val = liftIO (js_setVAlign self (toJSString val))   foreign import javascript unsafe "$1[\"vAlign\"]" js_getVAlign ::         HTMLTableCellElement -> IO JSString@@ -254,7 +239,7 @@ getVAlign ::           (MonadIO m, FromJSString result) =>             HTMLTableCellElement -> m result-getVAlign self = liftIO (fromJSString <$> (js_getVAlign (self)))+getVAlign self = liftIO (fromJSString <$> (js_getVAlign self))   foreign import javascript unsafe "$1[\"width\"] = $2;" js_setWidth         :: HTMLTableCellElement -> JSString -> IO ()@@ -262,7 +247,7 @@ -- | <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))+setWidth self val = liftIO (js_setWidth self (toJSString val))   foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::         HTMLTableCellElement -> IO JSString@@ -271,4 +256,38 @@ getWidth ::          (MonadIO m, FromJSString result) =>            HTMLTableCellElement -> m result-getWidth self = liftIO (fromJSString <$> (js_getWidth (self)))+getWidth self = liftIO (fromJSString <$> (js_getWidth 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[\"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))
src/GHCJS/DOM/JSFFI/Generated/HTMLTableColElement.hs view
@@ -14,7 +14,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -23,6 +23,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -34,7 +35,7 @@ -- | <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))+setAlign self val = liftIO (js_setAlign self (toJSString val))   foreign import javascript unsafe "$1[\"align\"]" js_getAlign ::         HTMLTableColElement -> IO JSString@@ -42,7 +43,7 @@ -- | <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)))+getAlign self = liftIO (fromJSString <$> (js_getAlign self))   foreign import javascript unsafe "$1[\"ch\"] = $2;" js_setCh ::         HTMLTableColElement -> JSString -> IO ()@@ -50,7 +51,7 @@ -- | <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))+setCh self val = liftIO (js_setCh self (toJSString val))   foreign import javascript unsafe "$1[\"ch\"]" js_getCh ::         HTMLTableColElement -> IO JSString@@ -58,7 +59,7 @@ -- | <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)))+getCh self = liftIO (fromJSString <$> (js_getCh self))   foreign import javascript unsafe "$1[\"chOff\"] = $2;" js_setChOff         :: HTMLTableColElement -> JSString -> IO ()@@ -66,7 +67,7 @@ -- | <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))+setChOff self val = liftIO (js_setChOff self (toJSString val))   foreign import javascript unsafe "$1[\"chOff\"]" js_getChOff ::         HTMLTableColElement -> IO JSString@@ -74,21 +75,21 @@ -- | <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)))+getChOff self = liftIO (fromJSString <$> (js_getChOff self))   foreign import javascript unsafe "$1[\"span\"] = $2;" js_setSpan ::-        HTMLTableColElement -> Int -> IO ()+        HTMLTableColElement -> Word -> 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)+setSpan :: (MonadIO m) => HTMLTableColElement -> Word -> m ()+setSpan self val = liftIO (js_setSpan self val)   foreign import javascript unsafe "$1[\"span\"]" js_getSpan ::-        HTMLTableColElement -> IO Int+        HTMLTableColElement -> IO Word  -- | <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))+getSpan :: (MonadIO m) => HTMLTableColElement -> m Word+getSpan self = liftIO (js_getSpan self)   foreign import javascript unsafe "$1[\"vAlign\"] = $2;"         js_setVAlign :: HTMLTableColElement -> JSString -> IO ()@@ -96,7 +97,7 @@ -- | <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))+setVAlign self val = liftIO (js_setVAlign self (toJSString val))   foreign import javascript unsafe "$1[\"vAlign\"]" js_getVAlign ::         HTMLTableColElement -> IO JSString@@ -104,7 +105,7 @@ -- | <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)))+getVAlign self = liftIO (fromJSString <$> (js_getVAlign self))   foreign import javascript unsafe "$1[\"width\"] = $2;" js_setWidth         :: HTMLTableColElement -> JSString -> IO ()@@ -112,7 +113,7 @@ -- | <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))+setWidth self val = liftIO (js_setWidth self (toJSString val))   foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::         HTMLTableColElement -> IO JSString@@ -120,4 +121,4 @@ -- | <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)))+getWidth self = liftIO (fromJSString <$> (js_getWidth self))
src/GHCJS/DOM/JSFFI/Generated/HTMLTableElement.hs view
@@ -4,36 +4,34 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLTableElement-       (js_createTHead, createTHead, createTHead_, createTHeadUnsafe,-        createTHeadUnchecked, js_deleteTHead, deleteTHead, js_createTFoot,-        createTFoot, createTFoot_, createTFootUnsafe, createTFootUnchecked,+       (js_createTHead, createTHead, createTHead_, js_deleteTHead,+        deleteTHead, js_createTFoot, createTFoot, createTFoot_,         js_deleteTFoot, deleteTFoot, js_createTBody, createTBody,-        createTBody_, createTBodyUnsafe, createTBodyUnchecked,-        js_createCaption, createCaption, createCaption_,-        createCaptionUnsafe, createCaptionUnchecked, js_deleteCaption,-        deleteCaption, js_insertRow, insertRow, insertRow_,-        insertRowUnsafe, insertRowUnchecked, js_deleteRow, deleteRow,-        js_setCaption, setCaption, js_getCaption, getCaption,-        getCaptionUnsafe, getCaptionUnchecked, js_setTHead, setTHead,-        js_getTHead, getTHead, getTHeadUnsafe, getTHeadUnchecked,-        js_setTFoot, setTFoot, js_getTFoot, getTFoot, getTFootUnsafe,-        getTFootUnchecked, js_getRows, getRows, getRowsUnsafe,-        getRowsUnchecked, js_getTBodies, getTBodies, getTBodiesUnsafe,-        getTBodiesUnchecked, 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(..), gTypeHTMLTableElement)+        createTBody_, js_createCaption, createCaption, createCaption_,+        js_deleteCaption, deleteCaption, js_insertRow, insertRow,+        insertRow_, js_deleteRow, deleteRow, js_setCaption, setCaption,+        js_getCaption, getCaption, getCaptionUnsafe, getCaptionUnchecked,+        js_setTHead, setTHead, js_getTHead, getTHead, getTHeadUnsafe,+        getTHeadUnchecked, js_setTFoot, setTFoot, js_getTFoot, getTFoot,+        getTFootUnsafe, getTFootUnchecked, js_getRows, getRows,+        js_getTBodies, getTBodies, js_setAlign, setAlign, js_getAlign,+        getAlign, js_setBgColor, setBgColor, js_getBgColor, getBgColor,+        getBgColorUnsafe, getBgColorUnchecked, js_setBorder, setBorder,+        js_getBorder, getBorder, js_setCellPadding, setCellPadding,+        js_getCellPadding, getCellPadding, getCellPaddingUnsafe,+        getCellPaddingUnchecked, js_setCellSpacing, setCellSpacing,+        js_getCellSpacing, getCellSpacing, getCellSpacingUnsafe,+        getCellSpacingUnchecked, 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(..),+        gTypeHTMLTableElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -42,187 +40,108 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums   foreign import javascript unsafe "$1[\"createTHead\"]()"-        js_createTHead :: HTMLTableElement -> IO (Nullable HTMLElement)+        js_createTHead :: HTMLTableElement -> IO 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)))+createTHead :: (MonadIO m) => HTMLTableElement -> m HTMLElement+createTHead self = liftIO (js_createTHead self)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.createTHead Mozilla HTMLTableElement.createTHead documentation>  createTHead_ :: (MonadIO m) => HTMLTableElement -> m ()-createTHead_ self = liftIO (void (js_createTHead (self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.createTHead Mozilla HTMLTableElement.createTHead documentation> -createTHeadUnsafe ::-                  (MonadIO m, HasCallStack) => HTMLTableElement -> m HTMLElement-createTHeadUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_createTHead (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.createTHead Mozilla HTMLTableElement.createTHead documentation> -createTHeadUnchecked ::-                     (MonadIO m) => HTMLTableElement -> m HTMLElement-createTHeadUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_createTHead (self)))+createTHead_ self = liftIO (void (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))+deleteTHead self = liftIO (js_deleteTHead self)   foreign import javascript unsafe "$1[\"createTFoot\"]()"-        js_createTFoot :: HTMLTableElement -> IO (Nullable HTMLElement)+        js_createTFoot :: HTMLTableElement -> IO 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)))+createTFoot :: (MonadIO m) => HTMLTableElement -> m HTMLElement+createTFoot self = liftIO (js_createTFoot self)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.createTFoot Mozilla HTMLTableElement.createTFoot documentation>  createTFoot_ :: (MonadIO m) => HTMLTableElement -> m ()-createTFoot_ self = liftIO (void (js_createTFoot (self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.createTFoot Mozilla HTMLTableElement.createTFoot documentation> -createTFootUnsafe ::-                  (MonadIO m, HasCallStack) => HTMLTableElement -> m HTMLElement-createTFootUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_createTFoot (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.createTFoot Mozilla HTMLTableElement.createTFoot documentation> -createTFootUnchecked ::-                     (MonadIO m) => HTMLTableElement -> m HTMLElement-createTFootUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_createTFoot (self)))+createTFoot_ self = liftIO (void (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))+deleteTFoot self = liftIO (js_deleteTFoot self)   foreign import javascript unsafe "$1[\"createTBody\"]()"-        js_createTBody :: HTMLTableElement -> IO (Nullable HTMLElement)+        js_createTBody :: HTMLTableElement -> IO 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)))+createTBody :: (MonadIO m) => HTMLTableElement -> m HTMLElement+createTBody self = liftIO (js_createTBody self)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.createTBody Mozilla HTMLTableElement.createTBody documentation>  createTBody_ :: (MonadIO m) => HTMLTableElement -> m ()-createTBody_ self = liftIO (void (js_createTBody (self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.createTBody Mozilla HTMLTableElement.createTBody documentation> -createTBodyUnsafe ::-                  (MonadIO m, HasCallStack) => HTMLTableElement -> m HTMLElement-createTBodyUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_createTBody (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.createTBody Mozilla HTMLTableElement.createTBody documentation> -createTBodyUnchecked ::-                     (MonadIO m) => HTMLTableElement -> m HTMLElement-createTBodyUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_createTBody (self)))+createTBody_ self = liftIO (void (js_createTBody self))   foreign import javascript unsafe "$1[\"createCaption\"]()"-        js_createCaption :: HTMLTableElement -> IO (Nullable HTMLElement)+        js_createCaption :: HTMLTableElement -> IO 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)))+createCaption :: (MonadIO m) => HTMLTableElement -> m HTMLElement+createCaption self = liftIO (js_createCaption self)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.createCaption Mozilla HTMLTableElement.createCaption documentation>  createCaption_ :: (MonadIO m) => HTMLTableElement -> m ()-createCaption_ self = liftIO (void (js_createCaption (self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.createCaption Mozilla HTMLTableElement.createCaption documentation> -createCaptionUnsafe ::-                    (MonadIO m, HasCallStack) => HTMLTableElement -> m HTMLElement-createCaptionUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_createCaption (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.createCaption Mozilla HTMLTableElement.createCaption documentation> -createCaptionUnchecked ::-                       (MonadIO m) => HTMLTableElement -> m HTMLElement-createCaptionUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_createCaption (self)))+createCaption_ self = liftIO (void (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))+deleteCaption self = liftIO (js_deleteCaption self)   foreign import javascript unsafe "$1[\"insertRow\"]($2)"-        js_insertRow ::-        HTMLTableElement -> Int -> IO (Nullable HTMLElement)+        js_insertRow :: HTMLTableElement -> Optional Int -> IO HTMLElement  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.insertRow Mozilla HTMLTableElement.insertRow documentation>  insertRow ::-          (MonadIO m) => HTMLTableElement -> Int -> m (Maybe HTMLElement)+          (MonadIO m) => HTMLTableElement -> Maybe Int -> m HTMLElement insertRow self index-  = liftIO (nullableToMaybe <$> (js_insertRow (self) index))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.insertRow Mozilla HTMLTableElement.insertRow documentation> -insertRow_ :: (MonadIO m) => HTMLTableElement -> Int -> m ()-insertRow_ self index = liftIO (void (js_insertRow (self) index))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.insertRow Mozilla HTMLTableElement.insertRow documentation> -insertRowUnsafe ::-                (MonadIO m, HasCallStack) =>-                  HTMLTableElement -> Int -> m HTMLElement-insertRowUnsafe self index-  = liftIO-      ((nullableToMaybe <$> (js_insertRow (self) index)) >>=-         maybe (Prelude.error "Nothing to return") return)+  = liftIO (js_insertRow self (maybeToOptional index))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.insertRow Mozilla HTMLTableElement.insertRow documentation> -insertRowUnchecked ::-                   (MonadIO m) => HTMLTableElement -> Int -> m HTMLElement-insertRowUnchecked self index-  = liftIO-      (fromJust . nullableToMaybe <$> (js_insertRow (self) index))+insertRow_ :: (MonadIO m) => HTMLTableElement -> Maybe Int -> m ()+insertRow_ self index+  = liftIO (void (js_insertRow self (maybeToOptional 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)+deleteRow self index = liftIO (js_deleteRow self index)   foreign import javascript unsafe "$1[\"caption\"] = $2;"         js_setCaption ::-        HTMLTableElement -> Nullable HTMLTableCaptionElement -> IO ()+        HTMLTableElement -> Optional 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))+  = liftIO (js_setCaption self (maybeToOptional val))   foreign import javascript unsafe "$1[\"caption\"]" js_getCaption ::         HTMLTableElement -> IO (Nullable HTMLTableCaptionElement)@@ -231,8 +150,7 @@ getCaption ::            (MonadIO m) =>              HTMLTableElement -> m (Maybe HTMLTableCaptionElement)-getCaption self-  = liftIO (nullableToMaybe <$> (js_getCaption (self)))+getCaption self = liftIO (nullableToMaybe <$> (js_getCaption self))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.caption Mozilla HTMLTableElement.caption documentation>  getCaptionUnsafe ::@@ -240,24 +158,23 @@                    HTMLTableElement -> m HTMLTableCaptionElement getCaptionUnsafe self   = liftIO-      ((nullableToMaybe <$> (js_getCaption (self))) >>=+      ((nullableToMaybe <$> (js_getCaption self)) >>=          maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.caption Mozilla HTMLTableElement.caption documentation>  getCaptionUnchecked ::                     (MonadIO m) => HTMLTableElement -> m HTMLTableCaptionElement getCaptionUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getCaption (self)))+  = liftIO (fromJust . nullableToMaybe <$> (js_getCaption self))   foreign import javascript unsafe "$1[\"tHead\"] = $2;" js_setTHead-        :: HTMLTableElement -> Nullable HTMLTableSectionElement -> IO ()+        :: HTMLTableElement -> Optional 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))+setTHead self val = liftIO (js_setTHead self (maybeToOptional val))   foreign import javascript unsafe "$1[\"tHead\"]" js_getTHead ::         HTMLTableElement -> IO (Nullable HTMLTableSectionElement)@@ -266,7 +183,7 @@ getTHead ::          (MonadIO m) =>            HTMLTableElement -> m (Maybe HTMLTableSectionElement)-getTHead self = liftIO (nullableToMaybe <$> (js_getTHead (self)))+getTHead self = liftIO (nullableToMaybe <$> (js_getTHead self))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.tHead Mozilla HTMLTableElement.tHead documentation>  getTHeadUnsafe ::@@ -274,24 +191,23 @@                  HTMLTableElement -> m HTMLTableSectionElement getTHeadUnsafe self   = liftIO-      ((nullableToMaybe <$> (js_getTHead (self))) >>=+      ((nullableToMaybe <$> (js_getTHead self)) >>=          maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.tHead Mozilla HTMLTableElement.tHead documentation>  getTHeadUnchecked ::                   (MonadIO m) => HTMLTableElement -> m HTMLTableSectionElement getTHeadUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getTHead (self)))+  = liftIO (fromJust . nullableToMaybe <$> (js_getTHead self))   foreign import javascript unsafe "$1[\"tFoot\"] = $2;" js_setTFoot-        :: HTMLTableElement -> Nullable HTMLTableSectionElement -> IO ()+        :: HTMLTableElement -> Optional 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))+setTFoot self val = liftIO (js_setTFoot self (maybeToOptional val))   foreign import javascript unsafe "$1[\"tFoot\"]" js_getTFoot ::         HTMLTableElement -> IO (Nullable HTMLTableSectionElement)@@ -300,7 +216,7 @@ getTFoot ::          (MonadIO m) =>            HTMLTableElement -> m (Maybe HTMLTableSectionElement)-getTFoot self = liftIO (nullableToMaybe <$> (js_getTFoot (self)))+getTFoot self = liftIO (nullableToMaybe <$> (js_getTFoot self))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.tFoot Mozilla HTMLTableElement.tFoot documentation>  getTFootUnsafe ::@@ -308,59 +224,28 @@                  HTMLTableElement -> m HTMLTableSectionElement getTFootUnsafe self   = liftIO-      ((nullableToMaybe <$> (js_getTFoot (self))) >>=+      ((nullableToMaybe <$> (js_getTFoot self)) >>=          maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.tFoot Mozilla HTMLTableElement.tFoot documentation>  getTFootUnchecked ::                   (MonadIO m) => HTMLTableElement -> m HTMLTableSectionElement getTFootUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getTFoot (self)))+  = liftIO (fromJust . 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.rows Mozilla HTMLTableElement.rows documentation> -getRowsUnsafe ::-              (MonadIO m, HasCallStack) => HTMLTableElement -> m HTMLCollection-getRowsUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getRows (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        HTMLTableElement -> IO HTMLCollection  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.rows Mozilla HTMLTableElement.rows documentation> -getRowsUnchecked ::-                 (MonadIO m) => HTMLTableElement -> m HTMLCollection-getRowsUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getRows (self)))+getRows :: (MonadIO m) => HTMLTableElement -> m HTMLCollection+getRows self = liftIO (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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.tBodies Mozilla HTMLTableElement.tBodies documentation> -getTBodiesUnsafe ::-                 (MonadIO m, HasCallStack) => HTMLTableElement -> m HTMLCollection-getTBodiesUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getTBodies (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        HTMLTableElement -> IO HTMLCollection  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.tBodies Mozilla HTMLTableElement.tBodies documentation> -getTBodiesUnchecked ::-                    (MonadIO m) => HTMLTableElement -> m HTMLCollection-getTBodiesUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getTBodies (self)))+getTBodies :: (MonadIO m) => HTMLTableElement -> m HTMLCollection+getTBodies self = liftIO (js_getTBodies self)   foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign         :: HTMLTableElement -> JSString -> IO ()@@ -368,7 +253,7 @@ -- | <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))+setAlign self val = liftIO (js_setAlign self (toJSString val))   foreign import javascript unsafe "$1[\"align\"]" js_getAlign ::         HTMLTableElement -> IO JSString@@ -376,24 +261,42 @@ -- | <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)))+getAlign self = liftIO (fromJSString <$> (js_getAlign self))   foreign import javascript unsafe "$1[\"bgColor\"] = $2;"-        js_setBgColor :: HTMLTableElement -> JSString -> IO ()+        js_setBgColor :: HTMLTableElement -> Optional 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 ()+           (MonadIO m, ToJSString val) =>+             HTMLTableElement -> Maybe val -> m () setBgColor self val-  = liftIO (js_setBgColor (self) (toJSString val))+  = liftIO (js_setBgColor self (toOptionalJSString val))   foreign import javascript unsafe "$1[\"bgColor\"]" js_getBgColor ::-        HTMLTableElement -> IO JSString+        HTMLTableElement -> IO (Nullable 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)))+           (MonadIO m, FromJSString result) =>+             HTMLTableElement -> m (Maybe result)+getBgColor self+  = liftIO (fromMaybeJSString <$> (js_getBgColor self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.bgColor Mozilla HTMLTableElement.bgColor documentation> +getBgColorUnsafe ::+                 (MonadIO m, HasCallStack, FromJSString result) =>+                   HTMLTableElement -> m result+getBgColorUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getBgColor self)) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.bgColor Mozilla HTMLTableElement.bgColor documentation> +getBgColorUnchecked ::+                    (MonadIO m, FromJSString result) => HTMLTableElement -> m result+getBgColorUnchecked self+  = liftIO (fromJust . fromMaybeJSString <$> (js_getBgColor self))   foreign import javascript unsafe "$1[\"border\"] = $2;"         js_setBorder :: HTMLTableElement -> JSString -> IO ()@@ -401,7 +304,7 @@ -- | <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))+setBorder self val = liftIO (js_setBorder self (toJSString val))   foreign import javascript unsafe "$1[\"border\"]" js_getBorder ::         HTMLTableElement -> IO JSString@@ -409,43 +312,79 @@ -- | <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)))+getBorder self = liftIO (fromJSString <$> (js_getBorder self))   foreign import javascript unsafe "$1[\"cellPadding\"] = $2;"-        js_setCellPadding :: HTMLTableElement -> JSString -> IO ()+        js_setCellPadding :: HTMLTableElement -> Optional 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 ()+               (MonadIO m, ToJSString val) =>+                 HTMLTableElement -> Maybe val -> m () setCellPadding self val-  = liftIO (js_setCellPadding (self) (toJSString val))+  = liftIO (js_setCellPadding self (toOptionalJSString val))   foreign import javascript unsafe "$1[\"cellPadding\"]"-        js_getCellPadding :: HTMLTableElement -> IO JSString+        js_getCellPadding :: HTMLTableElement -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.cellPadding Mozilla HTMLTableElement.cellPadding documentation>  getCellPadding ::-               (MonadIO m, FromJSString result) => HTMLTableElement -> m result+               (MonadIO m, FromJSString result) =>+                 HTMLTableElement -> m (Maybe result) getCellPadding self-  = liftIO (fromJSString <$> (js_getCellPadding (self)))+  = liftIO (fromMaybeJSString <$> (js_getCellPadding self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.cellPadding Mozilla HTMLTableElement.cellPadding documentation> +getCellPaddingUnsafe ::+                     (MonadIO m, HasCallStack, FromJSString result) =>+                       HTMLTableElement -> m result+getCellPaddingUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getCellPadding self)) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.cellPadding Mozilla HTMLTableElement.cellPadding documentation> +getCellPaddingUnchecked ::+                        (MonadIO m, FromJSString result) => HTMLTableElement -> m result+getCellPaddingUnchecked self+  = liftIO+      (fromJust . fromMaybeJSString <$> (js_getCellPadding self))   foreign import javascript unsafe "$1[\"cellSpacing\"] = $2;"-        js_setCellSpacing :: HTMLTableElement -> JSString -> IO ()+        js_setCellSpacing :: HTMLTableElement -> Optional 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 ()+               (MonadIO m, ToJSString val) =>+                 HTMLTableElement -> Maybe val -> m () setCellSpacing self val-  = liftIO (js_setCellSpacing (self) (toJSString val))+  = liftIO (js_setCellSpacing self (toOptionalJSString val))   foreign import javascript unsafe "$1[\"cellSpacing\"]"-        js_getCellSpacing :: HTMLTableElement -> IO JSString+        js_getCellSpacing :: HTMLTableElement -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.cellSpacing Mozilla HTMLTableElement.cellSpacing documentation>  getCellSpacing ::-               (MonadIO m, FromJSString result) => HTMLTableElement -> m result+               (MonadIO m, FromJSString result) =>+                 HTMLTableElement -> m (Maybe result) getCellSpacing self-  = liftIO (fromJSString <$> (js_getCellSpacing (self)))+  = liftIO (fromMaybeJSString <$> (js_getCellSpacing self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.cellSpacing Mozilla HTMLTableElement.cellSpacing documentation> +getCellSpacingUnsafe ::+                     (MonadIO m, HasCallStack, FromJSString result) =>+                       HTMLTableElement -> m result+getCellSpacingUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getCellSpacing self)) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.cellSpacing Mozilla HTMLTableElement.cellSpacing documentation> +getCellSpacingUnchecked ::+                        (MonadIO m, FromJSString result) => HTMLTableElement -> m result+getCellSpacingUnchecked self+  = liftIO+      (fromJust . fromMaybeJSString <$> (js_getCellSpacing self))   foreign import javascript unsafe "$1[\"frame\"] = $2;" js_setFrame         :: HTMLTableElement -> JSString -> IO ()@@ -453,7 +392,7 @@ -- | <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))+setFrame self val = liftIO (js_setFrame self (toJSString val))   foreign import javascript unsafe "$1[\"frame\"]" js_getFrame ::         HTMLTableElement -> IO JSString@@ -461,7 +400,7 @@ -- | <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)))+getFrame self = liftIO (fromJSString <$> (js_getFrame self))   foreign import javascript unsafe "$1[\"rules\"] = $2;" js_setRules         :: HTMLTableElement -> JSString -> IO ()@@ -469,7 +408,7 @@ -- | <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))+setRules self val = liftIO (js_setRules self (toJSString val))   foreign import javascript unsafe "$1[\"rules\"]" js_getRules ::         HTMLTableElement -> IO JSString@@ -477,7 +416,7 @@ -- | <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)))+getRules self = liftIO (fromJSString <$> (js_getRules self))   foreign import javascript unsafe "$1[\"summary\"] = $2;"         js_setSummary :: HTMLTableElement -> JSString -> IO ()@@ -485,8 +424,7 @@ -- | <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))+setSummary self val = liftIO (js_setSummary self (toJSString val))   foreign import javascript unsafe "$1[\"summary\"]" js_getSummary ::         HTMLTableElement -> IO JSString@@ -494,7 +432,7 @@ -- | <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)))+getSummary self = liftIO (fromJSString <$> (js_getSummary self))   foreign import javascript unsafe "$1[\"width\"] = $2;" js_setWidth         :: HTMLTableElement -> JSString -> IO ()@@ -502,7 +440,7 @@ -- | <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))+setWidth self val = liftIO (js_setWidth self (toJSString val))   foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::         HTMLTableElement -> IO JSString@@ -510,4 +448,4 @@ -- | <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)))+getWidth self = liftIO (fromJSString <$> (js_getWidth self))
src/GHCJS/DOM/JSFFI/Generated/HTMLTableRowElement.hs view
@@ -4,21 +4,20 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLTableRowElement-       (js_insertCell, insertCell, insertCell_, insertCellUnsafe,-        insertCellUnchecked, js_deleteCell, deleteCell, js_getRowIndex,-        getRowIndex, js_getSectionRowIndex, getSectionRowIndex,-        js_getCells, getCells, getCellsUnsafe, getCellsUnchecked,-        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(..),-        gTypeHTMLTableRowElement)+       (js_insertCell, 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, getBgColorUnsafe, getBgColorUnchecked, js_setCh, setCh,+        js_getCh, getCh, js_setChOff, setChOff, js_getChOff, getChOff,+        js_setVAlign, setVAlign, js_getVAlign, getVAlign,+        HTMLTableRowElement(..), gTypeHTMLTableRowElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -27,6 +26,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -34,77 +34,47 @@   foreign import javascript unsafe "$1[\"insertCell\"]($2)"         js_insertCell ::-        HTMLTableRowElement -> Int -> IO (Nullable HTMLElement)+        HTMLTableRowElement -> Optional Int -> IO HTMLElement  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableRowElement.insertCell Mozilla HTMLTableRowElement.insertCell documentation>  insertCell ::-           (MonadIO m) => HTMLTableRowElement -> Int -> m (Maybe HTMLElement)+           (MonadIO m) => HTMLTableRowElement -> Maybe Int -> m HTMLElement insertCell self index-  = liftIO (nullableToMaybe <$> (js_insertCell (self) index))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableRowElement.insertCell Mozilla HTMLTableRowElement.insertCell documentation> -insertCell_ :: (MonadIO m) => HTMLTableRowElement -> Int -> m ()-insertCell_ self index = liftIO (void (js_insertCell (self) index))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableRowElement.insertCell Mozilla HTMLTableRowElement.insertCell documentation> -insertCellUnsafe ::-                 (MonadIO m, HasCallStack) =>-                   HTMLTableRowElement -> Int -> m HTMLElement-insertCellUnsafe self index-  = liftIO-      ((nullableToMaybe <$> (js_insertCell (self) index)) >>=-         maybe (Prelude.error "Nothing to return") return)+  = liftIO (js_insertCell self (maybeToOptional index))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableRowElement.insertCell Mozilla HTMLTableRowElement.insertCell documentation> -insertCellUnchecked ::-                    (MonadIO m) => HTMLTableRowElement -> Int -> m HTMLElement-insertCellUnchecked self index-  = liftIO-      (fromJust . nullableToMaybe <$> (js_insertCell (self) index))+insertCell_ ::+            (MonadIO m) => HTMLTableRowElement -> Maybe Int -> m ()+insertCell_ self index+  = liftIO (void (js_insertCell self (maybeToOptional 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)+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))+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))+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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableRowElement.cells Mozilla HTMLTableRowElement.cells documentation> -getCellsUnsafe ::-               (MonadIO m, HasCallStack) =>-                 HTMLTableRowElement -> m HTMLCollection-getCellsUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getCells (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        HTMLTableRowElement -> IO HTMLCollection  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableRowElement.cells Mozilla HTMLTableRowElement.cells documentation> -getCellsUnchecked ::-                  (MonadIO m) => HTMLTableRowElement -> m HTMLCollection-getCellsUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getCells (self)))+getCells :: (MonadIO m) => HTMLTableRowElement -> m HTMLCollection+getCells self = liftIO (js_getCells self)   foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign         :: HTMLTableRowElement -> JSString -> IO ()@@ -112,7 +82,7 @@ -- | <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))+setAlign self val = liftIO (js_setAlign self (toJSString val))   foreign import javascript unsafe "$1[\"align\"]" js_getAlign ::         HTMLTableRowElement -> IO JSString@@ -120,24 +90,42 @@ -- | <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)))+getAlign self = liftIO (fromJSString <$> (js_getAlign self))   foreign import javascript unsafe "$1[\"bgColor\"] = $2;"-        js_setBgColor :: HTMLTableRowElement -> JSString -> IO ()+        js_setBgColor :: HTMLTableRowElement -> Optional 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 ()+           (MonadIO m, ToJSString val) =>+             HTMLTableRowElement -> Maybe val -> m () setBgColor self val-  = liftIO (js_setBgColor (self) (toJSString val))+  = liftIO (js_setBgColor self (toOptionalJSString val))   foreign import javascript unsafe "$1[\"bgColor\"]" js_getBgColor ::-        HTMLTableRowElement -> IO JSString+        HTMLTableRowElement -> IO (Nullable 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)))+           (MonadIO m, FromJSString result) =>+             HTMLTableRowElement -> m (Maybe result)+getBgColor self+  = liftIO (fromMaybeJSString <$> (js_getBgColor self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableRowElement.bgColor Mozilla HTMLTableRowElement.bgColor documentation> +getBgColorUnsafe ::+                 (MonadIO m, HasCallStack, FromJSString result) =>+                   HTMLTableRowElement -> m result+getBgColorUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getBgColor self)) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableRowElement.bgColor Mozilla HTMLTableRowElement.bgColor documentation> +getBgColorUnchecked ::+                    (MonadIO m, FromJSString result) => HTMLTableRowElement -> m result+getBgColorUnchecked self+  = liftIO (fromJust . fromMaybeJSString <$> (js_getBgColor self))   foreign import javascript unsafe "$1[\"ch\"] = $2;" js_setCh ::         HTMLTableRowElement -> JSString -> IO ()@@ -145,7 +133,7 @@ -- | <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))+setCh self val = liftIO (js_setCh self (toJSString val))   foreign import javascript unsafe "$1[\"ch\"]" js_getCh ::         HTMLTableRowElement -> IO JSString@@ -153,7 +141,7 @@ -- | <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)))+getCh self = liftIO (fromJSString <$> (js_getCh self))   foreign import javascript unsafe "$1[\"chOff\"] = $2;" js_setChOff         :: HTMLTableRowElement -> JSString -> IO ()@@ -161,7 +149,7 @@ -- | <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))+setChOff self val = liftIO (js_setChOff self (toJSString val))   foreign import javascript unsafe "$1[\"chOff\"]" js_getChOff ::         HTMLTableRowElement -> IO JSString@@ -169,7 +157,7 @@ -- | <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)))+getChOff self = liftIO (fromJSString <$> (js_getChOff self))   foreign import javascript unsafe "$1[\"vAlign\"] = $2;"         js_setVAlign :: HTMLTableRowElement -> JSString -> IO ()@@ -177,7 +165,7 @@ -- | <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))+setVAlign self val = liftIO (js_setVAlign self (toJSString val))   foreign import javascript unsafe "$1[\"vAlign\"]" js_getVAlign ::         HTMLTableRowElement -> IO JSString@@ -185,4 +173,4 @@ -- | <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)))+getVAlign self = liftIO (fromJSString <$> (js_getVAlign self))
src/GHCJS/DOM/JSFFI/Generated/HTMLTableSectionElement.hs view
@@ -4,19 +4,17 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLTableSectionElement-       (js_insertRow, insertRow, insertRow_, insertRowUnsafe,-        insertRowUnchecked, 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,-        getRowsUnsafe, getRowsUnchecked, HTMLTableSectionElement(..),-        gTypeHTMLTableSectionElement)+       (js_insertRow, 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(..), gTypeHTMLTableSectionElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -25,6 +23,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -32,41 +31,27 @@   foreign import javascript unsafe "$1[\"insertRow\"]($2)"         js_insertRow ::-        HTMLTableSectionElement -> Int -> IO (Nullable HTMLElement)+        HTMLTableSectionElement -> Optional Int -> IO HTMLElement  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableSectionElement.insertRow Mozilla HTMLTableSectionElement.insertRow documentation>  insertRow ::           (MonadIO m) =>-            HTMLTableSectionElement -> Int -> m (Maybe HTMLElement)+            HTMLTableSectionElement -> Maybe Int -> m HTMLElement insertRow self index-  = liftIO (nullableToMaybe <$> (js_insertRow (self) index))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableSectionElement.insertRow Mozilla HTMLTableSectionElement.insertRow documentation> -insertRow_ :: (MonadIO m) => HTMLTableSectionElement -> Int -> m ()-insertRow_ self index = liftIO (void (js_insertRow (self) index))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableSectionElement.insertRow Mozilla HTMLTableSectionElement.insertRow documentation> -insertRowUnsafe ::-                (MonadIO m, HasCallStack) =>-                  HTMLTableSectionElement -> Int -> m HTMLElement-insertRowUnsafe self index-  = liftIO-      ((nullableToMaybe <$> (js_insertRow (self) index)) >>=-         maybe (Prelude.error "Nothing to return") return)+  = liftIO (js_insertRow self (maybeToOptional index))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableSectionElement.insertRow Mozilla HTMLTableSectionElement.insertRow documentation> -insertRowUnchecked ::-                   (MonadIO m) => HTMLTableSectionElement -> Int -> m HTMLElement-insertRowUnchecked self index-  = liftIO-      (fromJust . nullableToMaybe <$> (js_insertRow (self) index))+insertRow_ ::+           (MonadIO m) => HTMLTableSectionElement -> Maybe Int -> m ()+insertRow_ self index+  = liftIO (void (js_insertRow self (maybeToOptional 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)+deleteRow self index = liftIO (js_deleteRow self index)   foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign         :: HTMLTableSectionElement -> JSString -> IO ()@@ -75,7 +60,7 @@ setAlign ::          (MonadIO m, ToJSString val) =>            HTMLTableSectionElement -> val -> m ()-setAlign self val = liftIO (js_setAlign (self) (toJSString val))+setAlign self val = liftIO (js_setAlign self (toJSString val))   foreign import javascript unsafe "$1[\"align\"]" js_getAlign ::         HTMLTableSectionElement -> IO JSString@@ -84,7 +69,7 @@ getAlign ::          (MonadIO m, FromJSString result) =>            HTMLTableSectionElement -> m result-getAlign self = liftIO (fromJSString <$> (js_getAlign (self)))+getAlign self = liftIO (fromJSString <$> (js_getAlign self))   foreign import javascript unsafe "$1[\"ch\"] = $2;" js_setCh ::         HTMLTableSectionElement -> JSString -> IO ()@@ -93,7 +78,7 @@ setCh ::       (MonadIO m, ToJSString val) =>         HTMLTableSectionElement -> val -> m ()-setCh self val = liftIO (js_setCh (self) (toJSString val))+setCh self val = liftIO (js_setCh self (toJSString val))   foreign import javascript unsafe "$1[\"ch\"]" js_getCh ::         HTMLTableSectionElement -> IO JSString@@ -102,7 +87,7 @@ getCh ::       (MonadIO m, FromJSString result) =>         HTMLTableSectionElement -> m result-getCh self = liftIO (fromJSString <$> (js_getCh (self)))+getCh self = liftIO (fromJSString <$> (js_getCh self))   foreign import javascript unsafe "$1[\"chOff\"] = $2;" js_setChOff         :: HTMLTableSectionElement -> JSString -> IO ()@@ -111,7 +96,7 @@ setChOff ::          (MonadIO m, ToJSString val) =>            HTMLTableSectionElement -> val -> m ()-setChOff self val = liftIO (js_setChOff (self) (toJSString val))+setChOff self val = liftIO (js_setChOff self (toJSString val))   foreign import javascript unsafe "$1[\"chOff\"]" js_getChOff ::         HTMLTableSectionElement -> IO JSString@@ -120,7 +105,7 @@ getChOff ::          (MonadIO m, FromJSString result) =>            HTMLTableSectionElement -> m result-getChOff self = liftIO (fromJSString <$> (js_getChOff (self)))+getChOff self = liftIO (fromJSString <$> (js_getChOff self))   foreign import javascript unsafe "$1[\"vAlign\"] = $2;"         js_setVAlign :: HTMLTableSectionElement -> JSString -> IO ()@@ -129,7 +114,7 @@ setVAlign ::           (MonadIO m, ToJSString val) =>             HTMLTableSectionElement -> val -> m ()-setVAlign self val = liftIO (js_setVAlign (self) (toJSString val))+setVAlign self val = liftIO (js_setVAlign self (toJSString val))   foreign import javascript unsafe "$1[\"vAlign\"]" js_getVAlign ::         HTMLTableSectionElement -> IO JSString@@ -138,27 +123,12 @@ getVAlign ::           (MonadIO m, FromJSString result) =>             HTMLTableSectionElement -> m result-getVAlign self = liftIO (fromJSString <$> (js_getVAlign (self)))+getVAlign self = liftIO (fromJSString <$> (js_getVAlign self))   foreign import javascript unsafe "$1[\"rows\"]" js_getRows ::-        HTMLTableSectionElement -> IO (Nullable HTMLCollection)+        HTMLTableSectionElement -> IO 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableSectionElement.rows Mozilla HTMLTableSectionElement.rows documentation> -getRowsUnsafe ::-              (MonadIO m, HasCallStack) =>-                HTMLTableSectionElement -> m HTMLCollection-getRowsUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getRows (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableSectionElement.rows Mozilla HTMLTableSectionElement.rows documentation> -getRowsUnchecked ::-                 (MonadIO m) => HTMLTableSectionElement -> m HTMLCollection-getRowsUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getRows (self)))+        (MonadIO m) => HTMLTableSectionElement -> m HTMLCollection+getRows self = liftIO (js_getRows self)
src/GHCJS/DOM/JSFFI/Generated/HTMLTemplateElement.hs view
@@ -4,14 +4,14 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLTemplateElement-       (js_getContent, getContent, getContentUnsafe, getContentUnchecked,-        HTMLTemplateElement(..), gTypeHTMLTemplateElement)+       (js_getContent, getContent, HTMLTemplateElement(..),+        gTypeHTMLTemplateElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -20,31 +20,16 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums   foreign import javascript unsafe "$1[\"content\"]" js_getContent ::-        HTMLTemplateElement -> IO (Nullable DocumentFragment)+        HTMLTemplateElement -> IO 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTemplateElement.content Mozilla HTMLTemplateElement.content documentation> -getContentUnsafe ::-                 (MonadIO m, HasCallStack) =>-                   HTMLTemplateElement -> m DocumentFragment-getContentUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getContent (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTemplateElement.content Mozilla HTMLTemplateElement.content documentation> -getContentUnchecked ::-                    (MonadIO m) => HTMLTemplateElement -> m DocumentFragment-getContentUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getContent (self)))+           (MonadIO m) => HTMLTemplateElement -> m DocumentFragment+getContent self = liftIO (js_getContent self)
src/GHCJS/DOM/JSFFI/Generated/HTMLTextAreaElement.hs view
@@ -5,42 +5,39 @@ {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLTextAreaElement        (js_checkValidity, checkValidity, checkValidity_,+        js_reportValidity, reportValidity, reportValidity_,         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, getFormUnsafe, getFormUnchecked,-        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, getDefaultValueUnsafe,-        getDefaultValueUnchecked, js_setValue, setValue, js_getValue,-        getValue, getValueUnsafe, getValueUnchecked, js_getTextLength,-        getTextLength, js_getWillValidate, getWillValidate, js_getValidity,-        getValidity, getValidityUnsafe, getValidityUnchecked,+        setAutofocus, js_getAutofocus, getAutofocus, js_setDirName,+        setDirName, js_getDirName, getDirName, js_setDisabled, setDisabled,+        js_getDisabled, getDisabled, js_getForm, getForm, js_setMinLength,+        setMinLength, js_getMinLength, getMinLength, 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_setCols, setCols, js_getCols, getCols, js_setWrap,+        setWrap, js_getWrap, getWrap, js_getType, getType,+        js_setDefaultValue, setDefaultValue, js_getDefaultValue,+        getDefaultValue, js_setValue, setValue, js_getValue, getValue,+        getValueUnsafe, getValueUnchecked, js_getTextLength, getTextLength,+        js_getWillValidate, getWillValidate, js_getValidity, getValidity,         js_getValidationMessage, getValidationMessage, js_getLabels,-        getLabels, getLabelsUnsafe, getLabelsUnchecked,-        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,-        getAutocapitalizeUnsafe, getAutocapitalizeUnchecked,-        HTMLTextAreaElement(..), gTypeHTMLTextAreaElement)+        getLabels, js_setSelectionStart, setSelectionStart,+        js_getSelectionStart, getSelectionStart, js_setSelectionEnd,+        setSelectionEnd, js_getSelectionEnd, getSelectionEnd,+        js_setSelectionDirection, setSelectionDirection,+        js_getSelectionDirection, getSelectionDirection,+        js_setAutocomplete, setAutocomplete, js_getAutocomplete,+        getAutocomplete, HTMLTextAreaElement(..), gTypeHTMLTextAreaElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -49,6 +46,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -60,29 +58,40 @@  -- | <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))+checkValidity self = liftIO (js_checkValidity self)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.checkValidity Mozilla HTMLTextAreaElement.checkValidity documentation>  checkValidity_ :: (MonadIO m) => HTMLTextAreaElement -> m ()-checkValidity_ self = liftIO (void (js_checkValidity (self)))+checkValidity_ self = liftIO (void (js_checkValidity self))  +foreign import javascript unsafe+        "($1[\"reportValidity\"]() ? 1 : 0)" js_reportValidity ::+        HTMLTextAreaElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.reportValidity Mozilla HTMLTextAreaElement.reportValidity documentation> +reportValidity :: (MonadIO m) => HTMLTextAreaElement -> m Bool+reportValidity self = liftIO (js_reportValidity self)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.reportValidity Mozilla HTMLTextAreaElement.reportValidity documentation> +reportValidity_ :: (MonadIO m) => HTMLTextAreaElement -> m ()+reportValidity_ self = liftIO (void (js_reportValidity self))+  foreign import javascript unsafe "$1[\"setCustomValidity\"]($2)"-        js_setCustomValidity ::-        HTMLTextAreaElement -> Nullable JSString -> IO ()+        js_setCustomValidity :: HTMLTextAreaElement -> 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 ()+                    HTMLTextAreaElement -> error -> m () setCustomValidity self error-  = liftIO (js_setCustomValidity (self) (toMaybeJSString error))+  = liftIO (js_setCustomValidity self (toJSString 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))+select self = liftIO (js_select self)   foreign import javascript unsafe "$1[\"setRangeText\"]($2)"         js_setRangeText :: HTMLTextAreaElement -> JSString -> IO ()@@ -92,62 +101,52 @@              (MonadIO m, ToJSString replacement) =>                HTMLTextAreaElement -> replacement -> m () setRangeText self replacement-  = liftIO (js_setRangeText (self) (toJSString 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 ()+          JSString -> Word -> Word -> Optional 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 ()+                  replacement -> Word -> Word -> Maybe selectionMode -> m () setRangeText4 self replacement start end selectionMode   = liftIO-      (js_setRangeText4 (self) (toJSString replacement) start end-         (toJSString selectionMode))+      (js_setRangeText4 self (toJSString replacement) start end+         (toOptionalJSString selectionMode))   foreign import javascript unsafe         "$1[\"setSelectionRange\"]($2, $3,\n$4)" js_setSelectionRange ::-        HTMLTextAreaElement -> Int -> Int -> JSString -> IO ()+        HTMLTextAreaElement ->+          Optional Int -> Optional Int -> Optional 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 ()+                    HTMLTextAreaElement ->+                      Maybe Int -> Maybe Int -> Maybe direction -> m () setSelectionRange self start end direction   = liftIO-      (js_setSelectionRange (self) start end (toJSString direction))+      (js_setSelectionRange self (maybeToOptional start)+         (maybeToOptional end)+         (toOptionalJSString 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)+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))+getAutofocus self = liftIO (js_getAutofocus self)   foreign import javascript unsafe "$1[\"dirName\"] = $2;"         js_setDirName :: HTMLTextAreaElement -> JSString -> IO ()@@ -155,8 +154,7 @@ -- | <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))+setDirName self val = liftIO (js_setDirName self (toJSString val))   foreign import javascript unsafe "$1[\"dirName\"]" js_getDirName ::         HTMLTextAreaElement -> IO JSString@@ -164,58 +162,56 @@ -- | <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)))+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)+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))+getDisabled self = liftIO (js_getDisabled self)   foreign import javascript unsafe "$1[\"form\"]" js_getForm ::-        HTMLTextAreaElement -> IO (Nullable HTMLFormElement)+        HTMLTextAreaElement -> IO 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)))+getForm :: (MonadIO m) => HTMLTextAreaElement -> m HTMLFormElement+getForm self = liftIO (js_getForm self)+ +foreign import javascript unsafe "$1[\"minLength\"] = $2;"+        js_setMinLength :: HTMLTextAreaElement -> Int -> IO () --- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.form Mozilla HTMLTextAreaElement.form documentation> -getFormUnsafe ::-              (MonadIO m, HasCallStack) =>-                HTMLTextAreaElement -> m HTMLFormElement-getFormUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getForm (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.minLength Mozilla HTMLTextAreaElement.minLength documentation> +setMinLength :: (MonadIO m) => HTMLTextAreaElement -> Int -> m ()+setMinLength self val = liftIO (js_setMinLength self val)+ +foreign import javascript unsafe "$1[\"minLength\"]"+        js_getMinLength :: HTMLTextAreaElement -> IO Int --- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.form Mozilla HTMLTextAreaElement.form documentation> -getFormUnchecked ::-                 (MonadIO m) => HTMLTextAreaElement -> m HTMLFormElement-getFormUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getForm (self)))+-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.minLength Mozilla HTMLTextAreaElement.minLength documentation> +getMinLength :: (MonadIO m) => HTMLTextAreaElement -> m Int+getMinLength self = liftIO (js_getMinLength 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)+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))+getMaxLength self = liftIO (js_getMaxLength self)   foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName ::         HTMLTextAreaElement -> JSString -> IO ()@@ -223,7 +219,7 @@ -- | <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))+setName self val = liftIO (js_setName self (toJSString val))   foreign import javascript unsafe "$1[\"name\"]" js_getName ::         HTMLTextAreaElement -> IO JSString@@ -231,7 +227,7 @@ -- | <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)))+getName self = liftIO (fromJSString <$> (js_getName self))   foreign import javascript unsafe "$1[\"placeholder\"] = $2;"         js_setPlaceholder :: HTMLTextAreaElement -> JSString -> IO ()@@ -240,7 +236,7 @@ setPlaceholder ::                (MonadIO m, ToJSString val) => HTMLTextAreaElement -> val -> m () setPlaceholder self val-  = liftIO (js_setPlaceholder (self) (toJSString val))+  = liftIO (js_setPlaceholder self (toJSString val))   foreign import javascript unsafe "$1[\"placeholder\"]"         js_getPlaceholder :: HTMLTextAreaElement -> IO JSString@@ -249,57 +245,71 @@ getPlaceholder ::                (MonadIO m, FromJSString result) => HTMLTextAreaElement -> m result getPlaceholder self-  = liftIO (fromJSString <$> (js_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)+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))+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)+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))+getRequired self = liftIO (js_getRequired self)   foreign import javascript unsafe "$1[\"rows\"] = $2;" js_setRows ::-        HTMLTextAreaElement -> Int -> IO ()+        HTMLTextAreaElement -> Word -> 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)+setRows :: (MonadIO m) => HTMLTextAreaElement -> Word -> m ()+setRows self val = liftIO (js_setRows self val)   foreign import javascript unsafe "$1[\"rows\"]" js_getRows ::-        HTMLTextAreaElement -> IO Int+        HTMLTextAreaElement -> IO Word  -- | <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))+getRows :: (MonadIO m) => HTMLTextAreaElement -> m Word+getRows self = liftIO (js_getRows self)  +foreign import javascript unsafe "$1[\"cols\"] = $2;" js_setCols ::+        HTMLTextAreaElement -> Word -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.cols Mozilla HTMLTextAreaElement.cols documentation> +setCols :: (MonadIO m) => HTMLTextAreaElement -> Word -> m ()+setCols self val = liftIO (js_setCols self val)+ +foreign import javascript unsafe "$1[\"cols\"]" js_getCols ::+        HTMLTextAreaElement -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.cols Mozilla HTMLTextAreaElement.cols documentation> +getCols :: (MonadIO m) => HTMLTextAreaElement -> m Word+getCols self = liftIO (js_getCols 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))+setWrap self val = liftIO (js_setWrap self (toJSString val))   foreign import javascript unsafe "$1[\"wrap\"]" js_getWrap ::         HTMLTextAreaElement -> IO JSString@@ -307,7 +317,7 @@ -- | <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)))+getWrap self = liftIO (fromJSString <$> (js_getWrap self))   foreign import javascript unsafe "$1[\"type\"]" js_getType ::         HTMLTextAreaElement -> IO JSString@@ -315,54 +325,35 @@ -- | <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)))+getType self = liftIO (fromJSString <$> (js_getType self))   foreign import javascript unsafe "$1[\"defaultValue\"] = $2;"-        js_setDefaultValue ::-        HTMLTextAreaElement -> Nullable JSString -> IO ()+        js_setDefaultValue :: HTMLTextAreaElement -> 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 ()+                (MonadIO m, ToJSString val) => HTMLTextAreaElement -> val -> m () setDefaultValue self val-  = liftIO (js_setDefaultValue (self) (toMaybeJSString val))+  = liftIO (js_setDefaultValue self (toJSString val))   foreign import javascript unsafe "$1[\"defaultValue\"]"-        js_getDefaultValue :: HTMLTextAreaElement -> IO (Nullable JSString)+        js_getDefaultValue :: HTMLTextAreaElement -> IO 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)+                (MonadIO m, FromJSString result) => HTMLTextAreaElement -> m result getDefaultValue self-  = liftIO (fromMaybeJSString <$> (js_getDefaultValue (self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.defaultValue Mozilla HTMLTextAreaElement.defaultValue documentation> -getDefaultValueUnsafe ::-                      (MonadIO m, HasCallStack, FromJSString result) =>-                        HTMLTextAreaElement -> m result-getDefaultValueUnsafe self-  = liftIO-      ((fromMaybeJSString <$> (js_getDefaultValue (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.defaultValue Mozilla HTMLTextAreaElement.defaultValue documentation> -getDefaultValueUnchecked ::-                         (MonadIO m, FromJSString result) => HTMLTextAreaElement -> m result-getDefaultValueUnchecked self-  = liftIO-      (fromJust . fromMaybeJSString <$> (js_getDefaultValue (self)))+  = liftIO (fromJSString <$> (js_getDefaultValue self))   foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue-        :: HTMLTextAreaElement -> Nullable JSString -> IO ()+        :: HTMLTextAreaElement -> Optional 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))+  = liftIO (js_setValue self (toOptionalJSString val))   foreign import javascript unsafe "$1[\"value\"]" js_getValue ::         HTMLTextAreaElement -> IO (Nullable JSString)@@ -371,7 +362,7 @@ getValue ::          (MonadIO m, FromJSString result) =>            HTMLTextAreaElement -> m (Maybe result)-getValue self = liftIO (fromMaybeJSString <$> (js_getValue (self)))+getValue self = liftIO (fromMaybeJSString <$> (js_getValue self))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.value Mozilla HTMLTextAreaElement.value documentation>  getValueUnsafe ::@@ -379,51 +370,36 @@                  HTMLTextAreaElement -> m result getValueUnsafe self   = liftIO-      ((fromMaybeJSString <$> (js_getValue (self))) >>=+      ((fromMaybeJSString <$> (js_getValue self)) >>=          maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.value Mozilla HTMLTextAreaElement.value documentation>  getValueUnchecked ::                   (MonadIO m, FromJSString result) => HTMLTextAreaElement -> m result getValueUnchecked self-  = liftIO (fromJust . fromMaybeJSString <$> (js_getValue (self)))+  = liftIO (fromJust . 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))+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))+getWillValidate self = liftIO (js_getWillValidate self)   foreign import javascript unsafe "$1[\"validity\"]" js_getValidity-        :: HTMLTextAreaElement -> IO (Nullable ValidityState)+        :: HTMLTextAreaElement -> IO 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.validity Mozilla HTMLTextAreaElement.validity documentation> -getValidityUnsafe ::-                  (MonadIO m, HasCallStack) => HTMLTextAreaElement -> m ValidityState-getValidityUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getValidity (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.validity Mozilla HTMLTextAreaElement.validity documentation> -getValidityUnchecked ::-                     (MonadIO m) => HTMLTextAreaElement -> m ValidityState-getValidityUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getValidity (self)))+            (MonadIO m) => HTMLTextAreaElement -> m ValidityState+getValidity self = liftIO (js_getValidity self)   foreign import javascript unsafe "$1[\"validationMessage\"]"         js_getValidationMessage :: HTMLTextAreaElement -> IO JSString@@ -432,29 +408,14 @@ getValidationMessage ::                      (MonadIO m, FromJSString result) => HTMLTextAreaElement -> m result getValidationMessage self-  = liftIO (fromJSString <$> (js_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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.labels Mozilla HTMLTextAreaElement.labels documentation> -getLabelsUnsafe ::-                (MonadIO m, HasCallStack) => HTMLTextAreaElement -> m NodeList-getLabelsUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getLabels (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        HTMLTextAreaElement -> IO NodeList  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.labels Mozilla HTMLTextAreaElement.labels documentation> -getLabelsUnchecked ::-                   (MonadIO m) => HTMLTextAreaElement -> m NodeList-getLabelsUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getLabels (self)))+getLabels :: (MonadIO m) => HTMLTextAreaElement -> m NodeList+getLabels self = liftIO (js_getLabels self)   foreign import javascript unsafe "$1[\"selectionStart\"] = $2;"         js_setSelectionStart :: HTMLTextAreaElement -> Int -> IO ()@@ -462,15 +423,14 @@ -- | <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)+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))+getSelectionStart self = liftIO (js_getSelectionStart self)   foreign import javascript unsafe "$1[\"selectionEnd\"] = $2;"         js_setSelectionEnd :: HTMLTextAreaElement -> Int -> IO ()@@ -478,14 +438,14 @@ -- | <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)+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))+getSelectionEnd self = liftIO (js_getSelectionEnd self)   foreign import javascript unsafe "$1[\"selectionDirection\"] = $2;"         js_setSelectionDirection ::@@ -495,7 +455,7 @@ setSelectionDirection ::                       (MonadIO m, ToJSString val) => HTMLTextAreaElement -> val -> m () setSelectionDirection self val-  = liftIO (js_setSelectionDirection (self) (toJSString val))+  = liftIO (js_setSelectionDirection self (toJSString val))   foreign import javascript unsafe "$1[\"selectionDirection\"]"         js_getSelectionDirection :: HTMLTextAreaElement -> IO JSString@@ -504,57 +464,22 @@ 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))+  = liftIO (fromJSString <$> (js_getSelectionDirection self))  -foreign import javascript unsafe "$1[\"autocapitalize\"] = $2;"-        js_setAutocapitalize ::-        HTMLTextAreaElement -> Nullable JSString -> IO ()+foreign import javascript unsafe "$1[\"autocomplete\"] = $2;"+        js_setAutocomplete :: HTMLTextAreaElement -> 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))+-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.autocomplete Mozilla HTMLTextAreaElement.autocomplete documentation> +setAutocomplete ::+                (MonadIO m, ToJSString val) => HTMLTextAreaElement -> val -> m ()+setAutocomplete self val+  = liftIO (js_setAutocomplete self (toJSString 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.autocapitalize Mozilla HTMLTextAreaElement.autocapitalize documentation> -getAutocapitalizeUnsafe ::-                        (MonadIO m, HasCallStack, FromJSString result) =>-                          HTMLTextAreaElement -> m result-getAutocapitalizeUnsafe self-  = liftIO-      ((fromMaybeJSString <$> (js_getAutocapitalize (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+foreign import javascript unsafe "$1[\"autocomplete\"]"+        js_getAutocomplete :: HTMLTextAreaElement -> IO JSString --- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.autocapitalize Mozilla HTMLTextAreaElement.autocapitalize documentation> -getAutocapitalizeUnchecked ::-                           (MonadIO m, FromJSString result) => HTMLTextAreaElement -> m result-getAutocapitalizeUnchecked self-  = liftIO-      (fromJust . fromMaybeJSString <$> (js_getAutocapitalize (self)))+-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.autocomplete Mozilla HTMLTextAreaElement.autocomplete documentation> +getAutocomplete ::+                (MonadIO m, FromJSString result) => HTMLTextAreaElement -> m result+getAutocomplete self+  = liftIO (fromJSString <$> (js_getAutocomplete self))
+ src/GHCJS/DOM/JSFFI/Generated/HTMLTimeElement.hs view
@@ -0,0 +1,44 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+module GHCJS.DOM.JSFFI.Generated.HTMLTimeElement+       (js_setDateTime, setDateTime, js_getDateTime, getDateTime,+        HTMLTimeElement(..), gTypeHTMLTimeElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error)+import Data.Typeable (Typeable)+import GHCJS.Types (JSVal(..), JSString)+import GHCJS.Foreign (jsNull, jsUndefined)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Control.Monad (void)+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import Data.Maybe (fromJust)+import Data.Traversable (mapM)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"dateTime\"] = $2;"+        js_setDateTime :: HTMLTimeElement -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTimeElement.dateTime Mozilla HTMLTimeElement.dateTime documentation> +setDateTime ::+            (MonadIO m, ToJSString val) => HTMLTimeElement -> val -> m ()+setDateTime self val+  = liftIO (js_setDateTime self (toJSString val))+ +foreign import javascript unsafe "$1[\"dateTime\"]" js_getDateTime+        :: HTMLTimeElement -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTimeElement.dateTime Mozilla HTMLTimeElement.dateTime documentation> +getDateTime ::+            (MonadIO m, FromJSString result) => HTMLTimeElement -> m result+getDateTime self = liftIO (fromJSString <$> (js_getDateTime self))
src/GHCJS/DOM/JSFFI/Generated/HTMLTitleElement.hs view
@@ -4,14 +4,14 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLTitleElement-       (js_setText, setText, js_getText, getText, getTextUnsafe,-        getTextUnchecked, HTMLTitleElement(..), gTypeHTMLTitleElement)+       (js_setText, setText, js_getText, getText, HTMLTitleElement(..),+        gTypeHTMLTitleElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -20,40 +20,24 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums   foreign import javascript unsafe "$1[\"text\"] = $2;" js_setText ::-        HTMLTitleElement -> Nullable JSString -> IO ()+        HTMLTitleElement -> 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))+        (MonadIO m, ToJSString val) => HTMLTitleElement -> val -> m ()+setText self val = liftIO (js_setText self (toJSString val))   foreign import javascript unsafe "$1[\"text\"]" js_getText ::-        HTMLTitleElement -> IO (Nullable JSString)+        HTMLTitleElement -> IO 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTitleElement.text Mozilla HTMLTitleElement.text documentation> -getTextUnsafe ::-              (MonadIO m, HasCallStack, FromJSString result) =>-                HTMLTitleElement -> m result-getTextUnsafe self-  = liftIO-      ((fromMaybeJSString <$> (js_getText (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTitleElement.text Mozilla HTMLTitleElement.text documentation> -getTextUnchecked ::-                 (MonadIO m, FromJSString result) => HTMLTitleElement -> m result-getTextUnchecked self-  = liftIO (fromJust . fromMaybeJSString <$> (js_getText (self)))+        (MonadIO m, FromJSString result) => HTMLTitleElement -> m result+getText self = liftIO (fromJSString <$> (js_getText self))
src/GHCJS/DOM/JSFFI/Generated/HTMLTrackElement.hs view
@@ -10,14 +10,13 @@         getSrclang, js_setLabel, setLabel, js_getLabel, getLabel,         js_setDefault, setDefault, js_getDefault, getDefault,         js_getReadyState, getReadyState, js_getTrack, getTrack,-        getTrackUnsafe, getTrackUnchecked, HTMLTrackElement(..),-        gTypeHTMLTrackElement)+        HTMLTrackElement(..), gTypeHTMLTrackElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -26,6 +25,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -41,7 +41,7 @@ -- | <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))+setKind self val = liftIO (js_setKind self (toJSString val))   foreign import javascript unsafe "$1[\"kind\"]" js_getKind ::         HTMLTrackElement -> IO JSString@@ -49,7 +49,7 @@ -- | <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)))+getKind self = liftIO (fromJSString <$> (js_getKind self))   foreign import javascript unsafe "$1[\"src\"] = $2;" js_setSrc ::         HTMLTrackElement -> JSString -> IO ()@@ -57,7 +57,7 @@ -- | <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))+setSrc self val = liftIO (js_setSrc self (toJSString val))   foreign import javascript unsafe "$1[\"src\"]" js_getSrc ::         HTMLTrackElement -> IO JSString@@ -65,7 +65,7 @@ -- | <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)))+getSrc self = liftIO (fromJSString <$> (js_getSrc self))   foreign import javascript unsafe "$1[\"srclang\"] = $2;"         js_setSrclang :: HTMLTrackElement -> JSString -> IO ()@@ -73,8 +73,7 @@ -- | <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))+setSrclang self val = liftIO (js_setSrclang self (toJSString val))   foreign import javascript unsafe "$1[\"srclang\"]" js_getSrclang ::         HTMLTrackElement -> IO JSString@@ -82,7 +81,7 @@ -- | <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)))+getSrclang self = liftIO (fromJSString <$> (js_getSrclang self))   foreign import javascript unsafe "$1[\"label\"] = $2;" js_setLabel         :: HTMLTrackElement -> JSString -> IO ()@@ -90,7 +89,7 @@ -- | <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))+setLabel self val = liftIO (js_setLabel self (toJSString val))   foreign import javascript unsafe "$1[\"label\"]" js_getLabel ::         HTMLTrackElement -> IO JSString@@ -98,45 +97,32 @@ -- | <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)))+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)+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))+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))+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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTrackElement.track Mozilla HTMLTrackElement.track documentation> -getTrackUnsafe ::-               (MonadIO m, HasCallStack) => HTMLTrackElement -> m TextTrack-getTrackUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getTrack (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        HTMLTrackElement -> IO TextTrack  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTrackElement.track Mozilla HTMLTrackElement.track documentation> -getTrackUnchecked :: (MonadIO m) => HTMLTrackElement -> m TextTrack-getTrackUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getTrack (self)))+getTrack :: (MonadIO m) => HTMLTrackElement -> m TextTrack+getTrack self = liftIO (js_getTrack self)
src/GHCJS/DOM/JSFFI/Generated/HTMLUListElement.hs view
@@ -12,7 +12,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -21,6 +21,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -31,14 +32,14 @@  -- | <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)+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))+getCompact self = liftIO (js_getCompact self)   foreign import javascript unsafe "$1[\"type\"] = $2;" js_setType ::         HTMLUListElement -> JSString -> IO ()@@ -46,7 +47,7 @@ -- | <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))+setType self val = liftIO (js_setType self (toJSString val))   foreign import javascript unsafe "$1[\"type\"]" js_getType ::         HTMLUListElement -> IO JSString@@ -54,4 +55,4 @@ -- | <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)))+getType self = liftIO (fromJSString <$> (js_getType self))
src/GHCJS/DOM/JSFFI/Generated/HTMLVideoElement.hs view
@@ -14,8 +14,10 @@         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_setPlaysInline, setPlaysInline, js_getPlaysInline,+        getPlaysInline, js_getWebkitSupportsFullscreen,+        getWebkitSupportsFullscreen, js_getWebkitDisplayingFullscreen,+        getWebkitDisplayingFullscreen,         js_setWebkitWirelessVideoPlaybackDisabled,         setWebkitWirelessVideoPlaybackDisabled,         js_getWebkitWirelessVideoPlaybackDisabled,@@ -23,14 +25,13 @@         js_getWebkitDecodedFrameCount, getWebkitDecodedFrameCount,         js_getWebkitDroppedFrameCount, getWebkitDroppedFrameCount,         js_getWebkitPresentationMode, getWebkitPresentationMode,-        webKitPresentationModeChanged, HTMLVideoElement(..),-        gTypeHTMLVideoElement)+        HTMLVideoElement(..), gTypeHTMLVideoElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -39,6 +40,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -49,30 +51,28 @@  -- | <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))+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))+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))+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))+webkitExitFullScreen self = liftIO (js_webkitExitFullScreen self)   foreign import javascript unsafe         "($1[\"webkitSupportsPresentationMode\"]($2) ? 1 : 0)"@@ -83,14 +83,14 @@ webkitSupportsPresentationMode ::                                (MonadIO m) => HTMLVideoElement -> VideoPresentationMode -> m Bool webkitSupportsPresentationMode self mode-  = liftIO (js_webkitSupportsPresentationMode (self) (pToJSVal mode))+  = liftIO (js_webkitSupportsPresentationMode self (pToJSVal mode))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLVideoElement.webkitSupportsPresentationMode Mozilla HTMLVideoElement.webkitSupportsPresentationMode documentation>  webkitSupportsPresentationMode_ ::                                 (MonadIO m) => HTMLVideoElement -> VideoPresentationMode -> m () webkitSupportsPresentationMode_ self mode   = liftIO-      (void (js_webkitSupportsPresentationMode (self) (pToJSVal mode)))+      (void (js_webkitSupportsPresentationMode self (pToJSVal mode)))   foreign import javascript unsafe         "$1[\"webkitSetPresentationMode\"]($2)"@@ -100,49 +100,49 @@ webkitSetPresentationMode ::                           (MonadIO m) => HTMLVideoElement -> VideoPresentationMode -> m () webkitSetPresentationMode self mode-  = liftIO (js_webkitSetPresentationMode (self) (pToJSVal 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)+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))+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)+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))+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))+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))+getVideoHeight self = liftIO (js_getVideoHeight self)   foreign import javascript unsafe "$1[\"poster\"] = $2;"         js_setPoster :: HTMLVideoElement -> JSString -> IO ()@@ -150,7 +150,7 @@ -- | <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))+setPoster self val = liftIO (js_setPoster self (toJSString val))   foreign import javascript unsafe "$1[\"poster\"]" js_getPoster ::         HTMLVideoElement -> IO JSString@@ -158,8 +158,22 @@ -- | <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)))+getPoster self = liftIO (fromJSString <$> (js_getPoster self))  +foreign import javascript unsafe "$1[\"playsInline\"] = $2;"+        js_setPlaysInline :: HTMLVideoElement -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLVideoElement.playsInline Mozilla HTMLVideoElement.playsInline documentation> +setPlaysInline :: (MonadIO m) => HTMLVideoElement -> Bool -> m ()+setPlaysInline self val = liftIO (js_setPlaysInline self val)+ +foreign import javascript unsafe "($1[\"playsInline\"] ? 1 : 0)"+        js_getPlaysInline :: HTMLVideoElement -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLVideoElement.playsInline Mozilla HTMLVideoElement.playsInline documentation> +getPlaysInline :: (MonadIO m) => HTMLVideoElement -> m Bool+getPlaysInline self = liftIO (js_getPlaysInline self)+  foreign import javascript unsafe         "($1[\"webkitSupportsFullscreen\"] ? 1 : 0)"         js_getWebkitSupportsFullscreen :: HTMLVideoElement -> IO Bool@@ -168,7 +182,7 @@ getWebkitSupportsFullscreen ::                             (MonadIO m) => HTMLVideoElement -> m Bool getWebkitSupportsFullscreen self-  = liftIO (js_getWebkitSupportsFullscreen (self))+  = liftIO (js_getWebkitSupportsFullscreen self)   foreign import javascript unsafe         "($1[\"webkitDisplayingFullscreen\"] ? 1 : 0)"@@ -178,7 +192,7 @@ getWebkitDisplayingFullscreen ::                               (MonadIO m) => HTMLVideoElement -> m Bool getWebkitDisplayingFullscreen self-  = liftIO (js_getWebkitDisplayingFullscreen (self))+  = liftIO (js_getWebkitDisplayingFullscreen self)   foreign import javascript unsafe         "$1[\"webkitWirelessVideoPlaybackDisabled\"] = $2;"@@ -189,7 +203,7 @@ setWebkitWirelessVideoPlaybackDisabled ::                                        (MonadIO m) => HTMLVideoElement -> Bool -> m () setWebkitWirelessVideoPlaybackDisabled self val-  = liftIO (js_setWebkitWirelessVideoPlaybackDisabled (self) val)+  = liftIO (js_setWebkitWirelessVideoPlaybackDisabled self val)   foreign import javascript unsafe         "($1[\"webkitWirelessVideoPlaybackDisabled\"] ? 1 : 0)"@@ -200,7 +214,7 @@ getWebkitWirelessVideoPlaybackDisabled ::                                        (MonadIO m) => HTMLVideoElement -> m Bool getWebkitWirelessVideoPlaybackDisabled self-  = liftIO (js_getWebkitWirelessVideoPlaybackDisabled (self))+  = liftIO (js_getWebkitWirelessVideoPlaybackDisabled self)   foreign import javascript unsafe "$1[\"webkitDecodedFrameCount\"]"         js_getWebkitDecodedFrameCount :: HTMLVideoElement -> IO Word@@ -209,7 +223,7 @@ getWebkitDecodedFrameCount ::                            (MonadIO m) => HTMLVideoElement -> m Word getWebkitDecodedFrameCount self-  = liftIO (js_getWebkitDecodedFrameCount (self))+  = liftIO (js_getWebkitDecodedFrameCount self)   foreign import javascript unsafe "$1[\"webkitDroppedFrameCount\"]"         js_getWebkitDroppedFrameCount :: HTMLVideoElement -> IO Word@@ -218,7 +232,7 @@ getWebkitDroppedFrameCount ::                            (MonadIO m) => HTMLVideoElement -> m Word getWebkitDroppedFrameCount self-  = liftIO (js_getWebkitDroppedFrameCount (self))+  = liftIO (js_getWebkitDroppedFrameCount self)   foreign import javascript unsafe "$1[\"webkitPresentationMode\"]"         js_getWebkitPresentationMode :: HTMLVideoElement -> IO JSVal@@ -228,9 +242,4 @@                           (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")+      ((js_getWebkitPresentationMode self) >>= fromJSValUnchecked)
src/GHCJS/DOM/JSFFI/Generated/HashChangeEvent.hs view
@@ -4,15 +4,15 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HashChangeEvent-       (js_initHashChangeEvent, initHashChangeEvent, js_getOldURL,-        getOldURL, js_getNewURL, getNewURL, HashChangeEvent(..),-        gTypeHashChangeEvent)+       (js_newHashChangeEvent, newHashChangeEvent, js_initHashChangeEvent,+        initHashChangeEvent, js_getOldURL, getOldURL, js_getNewURL,+        getNewURL, HashChangeEvent(..), gTypeHashChangeEvent)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -21,29 +21,44 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums   foreign import javascript unsafe+        "new window[\"HashChangeEvent\"]($1,\n$2)" js_newHashChangeEvent ::+        JSString -> Optional HashChangeEventInit -> IO HashChangeEvent++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HashChangeEvent Mozilla HashChangeEvent documentation> +newHashChangeEvent ::+                   (MonadIO m, ToJSString type') =>+                     type' -> Maybe HashChangeEventInit -> m HashChangeEvent+newHashChangeEvent type' eventInitDict+  = liftIO+      (js_newHashChangeEvent (toJSString type')+         (maybeToOptional eventInitDict))+ +foreign import javascript unsafe         "$1[\"initHashChangeEvent\"]($2,\n$3, $4, $5, $6)"         js_initHashChangeEvent ::         HashChangeEvent ->-          JSString -> Bool -> Bool -> JSString -> JSString -> IO ()+          Optional JSString ->+            Bool -> Bool -> Optional JSString -> Optional 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 ()+                        Maybe type' -> Bool -> Bool -> Maybe oldURL -> Maybe newURL -> m () initHashChangeEvent self type' canBubble cancelable oldURL newURL   = liftIO-      (js_initHashChangeEvent (self) (toJSString type') canBubble+      (js_initHashChangeEvent self (toOptionalJSString type') canBubble          cancelable-         (toJSString oldURL)-         (toJSString newURL))+         (toOptionalJSString oldURL)+         (toOptionalJSString newURL))   foreign import javascript unsafe "$1[\"oldURL\"]" js_getOldURL ::         HashChangeEvent -> IO JSString@@ -51,7 +66,7 @@ -- | <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)))+getOldURL self = liftIO (fromJSString <$> (js_getOldURL self))   foreign import javascript unsafe "$1[\"newURL\"]" js_getNewURL ::         HashChangeEvent -> IO JSString@@ -59,4 +74,4 @@ -- | <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)))+getNewURL self = liftIO (fromJSString <$> (js_getNewURL self))
+ src/GHCJS/DOM/JSFFI/Generated/Headers.hs view
@@ -0,0 +1,97 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+module GHCJS.DOM.JSFFI.Generated.Headers+       (js_append, append, js_delete, delete, js_get, get, get_,+        getUnsafe, getUnchecked, js_has, has, has_, js_set, set,+        Headers(..), gTypeHeaders)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error)+import Data.Typeable (Typeable)+import GHCJS.Types (JSVal(..), JSString)+import GHCJS.Foreign (jsNull, jsUndefined)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Control.Monad (void)+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import Data.Maybe (fromJust)+import Data.Traversable (mapM)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"append\"]($2, $3)" js_append+        :: Headers -> JSString -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Headers.append Mozilla Headers.append documentation> +append ::+       (MonadIO m, ToJSString name, ToJSString value) =>+         Headers -> name -> value -> m ()+append self name value+  = liftIO (js_append self (toJSString name) (toJSString value))+ +foreign import javascript unsafe "$1[\"delete\"]($2)" js_delete ::+        Headers -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Headers.delete Mozilla Headers.delete documentation> +delete :: (MonadIO m, ToJSString name) => Headers -> name -> m ()+delete self name = liftIO (js_delete self (toJSString name))+ +foreign import javascript unsafe "$1[\"get\"]($2)" js_get ::+        Headers -> JSString -> IO (Nullable JSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Headers.get Mozilla Headers.get documentation> +get ::+    (MonadIO m, ToJSString name, FromJSString result) =>+      Headers -> name -> m (Maybe result)+get self name+  = liftIO (fromMaybeJSString <$> (js_get self (toJSString name)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Headers.get Mozilla Headers.get documentation> +get_ :: (MonadIO m, ToJSString name) => Headers -> name -> m ()+get_ self name = liftIO (void (js_get self (toJSString name)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Headers.get Mozilla Headers.get documentation> +getUnsafe ::+          (MonadIO m, ToJSString name, HasCallStack, FromJSString result) =>+            Headers -> name -> m result+getUnsafe self name+  = liftIO+      ((fromMaybeJSString <$> (js_get self (toJSString name))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Headers.get Mozilla Headers.get documentation> +getUnchecked ::+             (MonadIO m, ToJSString name, FromJSString result) =>+               Headers -> name -> m result+getUnchecked self name+  = liftIO+      (fromJust . fromMaybeJSString <$> (js_get self (toJSString name)))+ +foreign import javascript unsafe "($1[\"has\"]($2) ? 1 : 0)" js_has+        :: Headers -> JSString -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Headers.has Mozilla Headers.has documentation> +has :: (MonadIO m, ToJSString name) => Headers -> name -> m Bool+has self name = liftIO (js_has self (toJSString name))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Headers.has Mozilla Headers.has documentation> +has_ :: (MonadIO m, ToJSString name) => Headers -> name -> m ()+has_ self name = liftIO (void (js_has self (toJSString name)))+ +foreign import javascript unsafe "$1[\"set\"]($2, $3)" js_set ::+        Headers -> JSString -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Headers.set Mozilla Headers.set documentation> +set ::+    (MonadIO m, ToJSString name, ToJSString value) =>+      Headers -> name -> value -> m ()+set self name value+  = liftIO (js_set self (toJSString name) (toJSString value))
src/GHCJS/DOM/JSFFI/Generated/History.hs view
@@ -6,14 +6,13 @@ 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, getStateUnsafe, getStateUnchecked,-        History(..), gTypeHistory)+        js_getState, getState, History(..), gTypeHistory)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -22,6 +21,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -32,70 +32,60 @@  -- | <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))+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))+forward self = liftIO (js_forward self)   foreign import javascript unsafe "$1[\"go\"]($2)" js_go ::-        History -> Int -> IO ()+        History -> Optional 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)+go :: (MonadIO m) => History -> Maybe Int -> m ()+go self distance = liftIO (js_go self (maybeToOptional distance))   foreign import javascript unsafe "$1[\"pushState\"]($2, $3, $4)"-        js_pushState :: History -> JSVal -> JSString -> JSString -> IO ()+        js_pushState ::+        History -> JSVal -> JSString -> Optional 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 ()+          (MonadIO m, ToJSVal data', ToJSString title, ToJSString url) =>+            History -> data' -> title -> Maybe url -> m () pushState self data' title url   = liftIO-      (js_pushState (self) data' (toJSString title) (toJSString url))+      (toJSVal data' >>= \ data'' -> js_pushState self data''+         (toJSString title)+         (toOptionalJSString url))   foreign import javascript unsafe "$1[\"replaceState\"]($2, $3, $4)"         js_replaceState ::-        History -> JSVal -> JSString -> JSString -> IO ()+        History -> JSVal -> JSString -> Optional 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 ()+             (MonadIO m, ToJSVal data', ToJSString title, ToJSString url) =>+               History -> data' -> title -> Maybe url -> m () replaceState self data' title url   = liftIO-      (js_replaceState (self) data' (toJSString title) (toJSString url))+      (toJSVal data' >>= \ data'' -> js_replaceState self data''+         (toJSString title)+         (toOptionalJSString 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))+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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/History.state Mozilla History.state documentation> -getStateUnsafe ::-               (MonadIO m, HasCallStack) => History -> m SerializedScriptValue-getStateUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getState (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        History -> IO SerializedScriptValue  -- | <https://developer.mozilla.org/en-US/docs/Web/API/History.state Mozilla History.state documentation> -getStateUnchecked ::-                  (MonadIO m) => History -> m SerializedScriptValue-getStateUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getState (self)))+getState :: (MonadIO m) => History -> m SerializedScriptValue+getState self = liftIO (js_getState self)
src/GHCJS/DOM/JSFFI/Generated/IDBCursor.hs view
@@ -4,18 +4,17 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.IDBCursor-       (js_update, update, update_, updateUnsafe, updateUnchecked,-        js_advance, advance, js_continue, continue, js_delete, delete,-        delete_, deleteUnsafe, deleteUnchecked, js_getSource, getSource,-        getSourceUnsafe, getSourceUnchecked, js_getDirection, getDirection,-        js_getKey, getKey, js_getPrimaryKey, getPrimaryKey, IDBCursor(..),-        gTypeIDBCursor, IsIDBCursor, toIDBCursor)+       (js_update, update, update_, js_advance, advance, js_continue,+        continue, js_continuePrimaryKey, continuePrimaryKey, js_delete,+        delete, delete_, js_getSource, getSource, js_getDirection,+        getDirection, js_getKey, getKey, js_getPrimaryKey, getPrimaryKey,+        IDBCursor(..), gTypeIDBCursor, IsIDBCursor, toIDBCursor)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -24,42 +23,32 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums   foreign import javascript unsafe "$1[\"update\"]($2)" js_update ::-        IDBCursor -> JSVal -> IO (Nullable IDBRequest)+        IDBCursor -> JSVal -> IO 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)+       (MonadIO m, IsIDBCursor self, ToJSVal value) =>+         self -> value -> m IDBRequest update self value-  = liftIO (nullableToMaybe <$> (js_update (toIDBCursor self) value))---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBCursor.update Mozilla IDBCursor.update documentation> -update_ :: (MonadIO m, IsIDBCursor self) => self -> JSVal -> m ()-update_ self value-  = liftIO (void (js_update (toIDBCursor self) value))---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBCursor.update Mozilla IDBCursor.update documentation> -updateUnsafe ::-             (MonadIO m, IsIDBCursor self, HasCallStack) =>-               self -> JSVal -> m IDBRequest-updateUnsafe self value   = liftIO-      ((nullableToMaybe <$> (js_update (toIDBCursor self) value)) >>=-         maybe (Prelude.error "Nothing to return") return)+      (toJSVal value >>= \ value' -> js_update (toIDBCursor self) value')  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBCursor.update Mozilla IDBCursor.update documentation> -updateUnchecked ::-                (MonadIO m, IsIDBCursor self) => self -> JSVal -> m IDBRequest-updateUnchecked self value+update_ ::+        (MonadIO m, IsIDBCursor self, ToJSVal value) =>+          self -> value -> m ()+update_ self value   = liftIO-      (fromJust . nullableToMaybe <$>-         (js_update (toIDBCursor self) value))+      (void+         (toJSVal value >>=+            \ value' -> js_update (toIDBCursor self) value'))   foreign import javascript unsafe "$1[\"advance\"]($2)" js_advance         :: IDBCursor -> Word -> IO ()@@ -69,73 +58,61 @@ advance self count = liftIO (js_advance (toIDBCursor self) count)   foreign import javascript unsafe "$1[\"continue\"]($2)" js_continue-        :: IDBCursor -> JSVal -> IO ()+        :: IDBCursor -> Optional 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)+continue ::+         (MonadIO m, IsIDBCursor self, ToJSVal key) =>+           self -> Maybe key -> m ()+continue self key+  = liftIO+      (mapM toJSVal key >>=+         \ key' -> js_continue (toIDBCursor self) (maybeToOptional key'))  +foreign import javascript unsafe+        "$1[\"continuePrimaryKey\"]($2, $3)" js_continuePrimaryKey ::+        IDBCursor -> JSVal -> JSVal -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBCursor.continuePrimaryKey Mozilla IDBCursor.continuePrimaryKey documentation> +continuePrimaryKey ::+                   (MonadIO m, IsIDBCursor self, ToJSVal key, ToJSVal primaryKey) =>+                     self -> key -> primaryKey -> m ()+continuePrimaryKey self key primaryKey+  = liftIO+      (toJSVal primaryKey >>=+         \ primaryKey' ->+           toJSVal key >>=+             \ key' -> js_continuePrimaryKey (toIDBCursor self) key'+             primaryKey')+  foreign import javascript unsafe "$1[\"delete\"]()" js_delete ::-        IDBCursor -> IO (Nullable IDBRequest)+        IDBCursor -> IO 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)))+delete :: (MonadIO m, IsIDBCursor self) => self -> m IDBRequest+delete self = liftIO (js_delete (toIDBCursor self))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBCursor.delete Mozilla IDBCursor.delete documentation>  delete_ :: (MonadIO m, IsIDBCursor self) => self -> m () delete_ self = liftIO (void (js_delete (toIDBCursor self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBCursor.delete Mozilla IDBCursor.delete documentation> -deleteUnsafe ::-             (MonadIO m, IsIDBCursor self, HasCallStack) => self -> m IDBRequest-deleteUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_delete (toIDBCursor self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBCursor.delete Mozilla IDBCursor.delete documentation> -deleteUnchecked ::-                (MonadIO m, IsIDBCursor self) => self -> m IDBRequest-deleteUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$> (js_delete (toIDBCursor self)))   foreign import javascript unsafe "$1[\"source\"]" js_getSource ::-        IDBCursor -> IO (Nullable IDBAny)+        IDBCursor -> IO IDBCursorSource  -- | <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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBCursor.source Mozilla IDBCursor.source documentation> -getSourceUnsafe ::-                (MonadIO m, IsIDBCursor self, HasCallStack) => self -> m IDBAny-getSourceUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getSource (toIDBCursor self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBCursor.source Mozilla IDBCursor.source documentation> -getSourceUnchecked ::-                   (MonadIO m, IsIDBCursor self) => self -> m IDBAny-getSourceUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$> (js_getSource (toIDBCursor self)))+          (MonadIO m, IsIDBCursor self) => self -> m IDBCursorSource+getSource self = liftIO (js_getSource (toIDBCursor self))   foreign import javascript unsafe "$1[\"direction\"]"-        js_getDirection :: IDBCursor -> IO JSString+        js_getDirection :: IDBCursor -> IO JSVal  -- | <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+             (MonadIO m, IsIDBCursor self) => self -> m IDBCursorDirection getDirection self-  = liftIO (fromJSString <$> (js_getDirection (toIDBCursor self)))+  = liftIO+      ((js_getDirection (toIDBCursor self)) >>= fromJSValUnchecked)   foreign import javascript unsafe "$1[\"key\"]" js_getKey ::         IDBCursor -> IO JSVal
src/GHCJS/DOM/JSFFI/Generated/IDBCursorWithValue.hs view
@@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -20,6 +20,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -30,4 +31,4 @@  -- | <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))+getValue self = liftIO (js_getValue self)
src/GHCJS/DOM/JSFFI/Generated/IDBDatabase.hs view
@@ -5,21 +5,17 @@ {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.IDBDatabase        (js_createObjectStore, createObjectStore, createObjectStore_,-        createObjectStoreUnsafe, createObjectStoreUnchecked,         js_deleteObjectStore, deleteObjectStore, js_transaction,-        transaction, transaction_, transactionUnsafe, transactionUnchecked,-        js_transaction', transaction', transaction'_, transaction'Unsafe,-        transaction'Unchecked, js_close, close, js_getName, getName,+        transaction, transaction_, js_close, close, js_getName, getName,         js_getVersion, getVersion, js_getObjectStoreNames,-        getObjectStoreNames, getObjectStoreNamesUnsafe,-        getObjectStoreNamesUnchecked, abort, error, versionChange,+        getObjectStoreNames, abort, closeEvent, error, versionChange,         IDBDatabase(..), gTypeIDBDatabase)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -28,6 +24,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -36,48 +33,27 @@ foreign import javascript unsafe         "$1[\"createObjectStore\"]($2, $3)" js_createObjectStore ::         IDBDatabase ->-          JSString -> Nullable Dictionary -> IO (Nullable IDBObjectStore)+          JSString -> Optional IDBObjectStoreParameters -> IO 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+                  (MonadIO m, ToJSString name) =>+                    IDBDatabase ->+                      name -> Maybe IDBObjectStoreParameters -> m IDBObjectStore+createObjectStore self name parameters   = liftIO-      (nullableToMaybe <$>-         (js_createObjectStore (self) (toJSString name)-            (maybeToNullable (fmap toDictionary options))))+      (js_createObjectStore self (toJSString name)+         (maybeToOptional parameters))  -- | <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 ()-createObjectStore_ self name options+                   (MonadIO m, ToJSString name) =>+                     IDBDatabase -> name -> Maybe IDBObjectStoreParameters -> m ()+createObjectStore_ self name parameters   = liftIO       (void-         (js_createObjectStore (self) (toJSString name)-            (maybeToNullable (fmap toDictionary options))))---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBDatabase.createObjectStore Mozilla IDBDatabase.createObjectStore documentation> -createObjectStoreUnsafe ::-                        (MonadIO m, ToJSString name, IsDictionary options, HasCallStack) =>-                          IDBDatabase -> name -> Maybe options -> m IDBObjectStore-createObjectStoreUnsafe self name options-  = liftIO-      ((nullableToMaybe <$>-          (js_createObjectStore (self) (toJSString name)-             (maybeToNullable (fmap toDictionary options))))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBDatabase.createObjectStore Mozilla IDBDatabase.createObjectStore documentation> -createObjectStoreUnchecked ::-                           (MonadIO m, ToJSString name, IsDictionary options) =>-                             IDBDatabase -> name -> Maybe options -> m IDBObjectStore-createObjectStoreUnchecked self name options-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_createObjectStore (self) (toJSString name)-            (maybeToNullable (fmap toDictionary options))))+         (js_createObjectStore self (toJSString name)+            (maybeToOptional parameters)))   foreign import javascript unsafe "$1[\"deleteObjectStore\"]($2)"         js_deleteObjectStore :: IDBDatabase -> JSString -> IO ()@@ -86,105 +62,41 @@ deleteObjectStore ::                   (MonadIO m, ToJSString name) => IDBDatabase -> name -> m () deleteObjectStore self name-  = liftIO (js_deleteObjectStore (self) (toJSString name))+  = liftIO (js_deleteObjectStore self (toJSString name))   foreign import javascript unsafe "$1[\"transaction\"]($2, $3)"         js_transaction ::-        IDBDatabase -> JSString -> JSString -> IO (Nullable IDBTransaction)+        IDBDatabase ->+          StringOrStrings -> Optional IDBTransactionMode -> IO 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+            (MonadIO m, IsStringOrStrings storeNames) =>+              IDBDatabase ->+                storeNames -> Maybe IDBTransactionMode -> m IDBTransaction+transaction self storeNames mode   = liftIO-      (nullableToMaybe <$>-         (js_transaction (self) (toJSString storeName) (toJSString mode)))+      (toJSVal storeNames >>=+         \ storeNames' -> js_transaction self (StringOrStrings storeNames')+         (maybeToOptional mode))  -- | <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 ()-transaction_ self storeName mode-  = liftIO-      (void-         (js_transaction (self) (toJSString storeName) (toJSString mode)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBDatabase.transaction Mozilla IDBDatabase.transaction documentation> -transactionUnsafe ::-                  (MonadIO m, ToJSString storeName, ToJSString mode, HasCallStack) =>-                    IDBDatabase -> storeName -> mode -> m IDBTransaction-transactionUnsafe self storeName mode-  = liftIO-      ((nullableToMaybe <$>-          (js_transaction (self) (toJSString storeName) (toJSString mode)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBDatabase.transaction Mozilla IDBDatabase.transaction documentation> -transactionUnchecked ::-                     (MonadIO m, ToJSString storeName, ToJSString mode) =>-                       IDBDatabase -> storeName -> mode -> m IDBTransaction-transactionUnchecked self storeName mode-  = liftIO-      (fromJust . 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)))---- | <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 ()-transaction'_ self storeNames mode+             (MonadIO m, IsStringOrStrings storeNames) =>+               IDBDatabase -> storeNames -> Maybe IDBTransactionMode -> m ()+transaction_ self storeNames mode   = liftIO       (void          (toJSVal storeNames >>=-            \ storeNames' -> js_transaction' (self) storeNames'-            (toJSString mode)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBDatabase.transaction Mozilla IDBDatabase.transaction documentation> -transaction'Unsafe ::-                   (MonadIO m, ToJSString storeNames, ToJSString mode,-                    HasCallStack) =>-                     IDBDatabase -> [storeNames] -> mode -> m IDBTransaction-transaction'Unsafe self storeNames mode-  = liftIO-      ((nullableToMaybe <$>-          (toJSVal storeNames >>=-             \ storeNames' -> js_transaction' (self) storeNames'-             (toJSString mode)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBDatabase.transaction Mozilla IDBDatabase.transaction documentation> -transaction'Unchecked ::-                      (MonadIO m, ToJSString storeNames, ToJSString mode) =>-                        IDBDatabase -> [storeNames] -> mode -> m IDBTransaction-transaction'Unchecked self storeNames mode-  = liftIO-      (fromJust . nullableToMaybe <$>-         (toJSVal storeNames >>=-            \ storeNames' -> js_transaction' (self) storeNames'-            (toJSString mode)))+            \ storeNames' -> js_transaction self (StringOrStrings storeNames')+            (maybeToOptional 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))+close self = liftIO (js_close self)   foreign import javascript unsafe "$1[\"name\"]" js_getName ::         IDBDatabase -> IO JSString@@ -192,43 +104,30 @@ -- | <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)))+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)))+getVersion self = liftIO (round <$> (js_getVersion self))   foreign import javascript unsafe "$1[\"objectStoreNames\"]"-        js_getObjectStoreNames ::-        IDBDatabase -> IO (Nullable DOMStringList)+        js_getObjectStoreNames :: IDBDatabase -> IO 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.objectStoreNames Mozilla IDBDatabase.objectStoreNames documentation> -getObjectStoreNamesUnsafe ::-                          (MonadIO m, HasCallStack) => IDBDatabase -> m DOMStringList-getObjectStoreNamesUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getObjectStoreNames (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBDatabase.objectStoreNames Mozilla IDBDatabase.objectStoreNames documentation> -getObjectStoreNamesUnchecked ::-                             (MonadIO m) => IDBDatabase -> m DOMStringList-getObjectStoreNamesUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$> (js_getObjectStoreNames (self)))+                    (MonadIO m) => IDBDatabase -> m DOMStringList+getObjectStoreNames self = liftIO (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.onclose Mozilla IDBDatabase.onclose documentation> +closeEvent :: EventName IDBDatabase CloseEvent+closeEvent = unsafeEventName (toJSString "close")  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBDatabase.onerror Mozilla IDBDatabase.onerror documentation>  error :: EventName IDBDatabase Event
src/GHCJS/DOM/JSFFI/Generated/IDBFactory.hs view
@@ -4,16 +4,15 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.IDBFactory-       (js_open, open, open_, openUnsafe, openUnchecked,-        js_deleteDatabase, deleteDatabase, deleteDatabase_,-        deleteDatabaseUnsafe, deleteDatabaseUnchecked, js_cmp, cmp, cmp_,-        IDBFactory(..), gTypeIDBFactory)+       (js_open, open, open_, js_deleteDatabase, deleteDatabase,+        deleteDatabase_, js_cmp, cmp, cmp_, IDBFactory(..),+        gTypeIDBFactory)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -22,93 +21,70 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums   foreign import javascript unsafe "$1[\"open\"]($2, $3)" js_open ::-        IDBFactory -> JSString -> Double -> IO (Nullable IDBOpenDBRequest)+        IDBFactory -> JSString -> Optional Double -> IO 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)+       IDBFactory -> name -> Maybe Word64 -> m IDBOpenDBRequest open self name version   = liftIO-      (nullableToMaybe <$>-         (js_open (self) (toJSString name) (fromIntegral version)))+      (js_open self (toJSString name)+         (maybeToOptional (fmap fromIntegral version)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBFactory.open Mozilla IDBFactory.open documentation>  open_ ::       (MonadIO m, ToJSString name) =>-        IDBFactory -> name -> Word64 -> m ()+        IDBFactory -> name -> Maybe Word64 -> m () open_ self name version   = liftIO-      (void (js_open (self) (toJSString name) (fromIntegral version)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBFactory.open Mozilla IDBFactory.open documentation> -openUnsafe ::-           (MonadIO m, ToJSString name, HasCallStack) =>-             IDBFactory -> name -> Word64 -> m IDBOpenDBRequest-openUnsafe self name version-  = liftIO-      ((nullableToMaybe <$>-          (js_open (self) (toJSString name) (fromIntegral version)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBFactory.open Mozilla IDBFactory.open documentation> -openUnchecked ::-              (MonadIO m, ToJSString name) =>-                IDBFactory -> name -> Word64 -> m IDBOpenDBRequest-openUnchecked self name version-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_open (self) (toJSString name) (fromIntegral version)))+      (void+         (js_open self (toJSString name)+            (maybeToOptional (fmap fromIntegral version))))   foreign import javascript unsafe "$1[\"deleteDatabase\"]($2)"-        js_deleteDatabase ::-        IDBFactory -> JSString -> IO (Nullable IDBOpenDBRequest)+        js_deleteDatabase :: IDBFactory -> JSString -> IO 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)+                 IDBFactory -> name -> m IDBOpenDBRequest deleteDatabase self name-  = liftIO-      (nullableToMaybe <$> (js_deleteDatabase (self) (toJSString name)))+  = liftIO (js_deleteDatabase self (toJSString name))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBFactory.deleteDatabase Mozilla IDBFactory.deleteDatabase documentation>  deleteDatabase_ ::                 (MonadIO m, ToJSString name) => IDBFactory -> name -> m () deleteDatabase_ self name-  = liftIO (void (js_deleteDatabase (self) (toJSString name)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBFactory.deleteDatabase Mozilla IDBFactory.deleteDatabase documentation> -deleteDatabaseUnsafe ::-                     (MonadIO m, ToJSString name, HasCallStack) =>-                       IDBFactory -> name -> m IDBOpenDBRequest-deleteDatabaseUnsafe self name-  = liftIO-      ((nullableToMaybe <$> (js_deleteDatabase (self) (toJSString name)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBFactory.deleteDatabase Mozilla IDBFactory.deleteDatabase documentation> -deleteDatabaseUnchecked ::-                        (MonadIO m, ToJSString name) =>-                          IDBFactory -> name -> m IDBOpenDBRequest-deleteDatabaseUnchecked self name-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_deleteDatabase (self) (toJSString name)))+  = liftIO (void (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)+cmp ::+    (MonadIO m, ToJSVal first, ToJSVal second) =>+      IDBFactory -> first -> second -> m Int+cmp self first second+  = liftIO+      (toJSVal second >>=+         \ second' ->+           toJSVal first >>= \ first' -> js_cmp self first' second')  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBFactory.cmp Mozilla IDBFactory.cmp documentation> -cmp_ :: (MonadIO m) => IDBFactory -> JSVal -> JSVal -> m ()-cmp_ self first second = liftIO (void (js_cmp (self) first second))+cmp_ ::+     (MonadIO m, ToJSVal first, ToJSVal second) =>+       IDBFactory -> first -> second -> m ()+cmp_ self first second+  = liftIO+      (void+         (toJSVal second >>=+            \ second' ->+              toJSVal first >>= \ first' -> js_cmp self first' second'))
src/GHCJS/DOM/JSFFI/Generated/IDBIndex.hs view
@@ -5,20 +5,16 @@ {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.IDBIndex        (js_openCursorRange, openCursorRange, openCursorRange_,-        openCursorRangeUnsafe, openCursorRangeUnchecked, js_openCursor,-        openCursor, openCursor_, openCursorUnsafe, openCursorUnchecked,-        js_openKeyCursorRange, openKeyCursorRange, openKeyCursorRange_,-        openKeyCursorRangeUnsafe, openKeyCursorRangeUnchecked,-        js_openKeyCursor, openKeyCursor, openKeyCursor_,-        openKeyCursorUnsafe, openKeyCursorUnchecked, js_getRange, getRange,-        getRange_, getRangeUnsafe, getRangeUnchecked, js_get, get, get_,-        getUnsafe, getUnchecked, js_getKeyRange, getKeyRange, getKeyRange_,-        getKeyRangeUnsafe, getKeyRangeUnchecked, js_getKey, getKey,-        getKey_, getKeyUnsafe, getKeyUnchecked, js_countRange, countRange,-        countRange_, countRangeUnsafe, countRangeUnchecked, js_count,-        count, count_, countUnsafe, countUnchecked, js_getName, getName,-        js_getObjectStore, getObjectStore, getObjectStoreUnsafe,-        getObjectStoreUnchecked, js_getKeyPath, getKeyPath,+        js_openCursor, openCursor, openCursor_, js_openKeyCursorRange,+        openKeyCursorRange, openKeyCursorRange_, js_openKeyCursor,+        openKeyCursor, openKeyCursor_, js_getRange, getRange, getRange_,+        js_get, get, get_, js_getKeyRange, getKeyRange, getKeyRange_,+        js_getKey, getKey, getKey_, js_getAllRange, getAllRange,+        getAllRange_, js_getAll, getAll, getAll_, js_getAllKeysRange,+        getAllKeysRange, getAllKeysRange_, js_getAllKeys, getAllKeys,+        getAllKeys_, js_countRange, countRange, countRange_, js_count,+        count, count_, js_setName, setName, js_getName, getName,+        js_getObjectStore, getObjectStore, js_getKeyPath, getKeyPath,         getKeyPathUnsafe, getKeyPathUnchecked, js_getMultiEntry,         getMultiEntry, js_getUnique, getUnique, IDBIndex(..),         gTypeIDBIndex)@@ -27,7 +23,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -36,6 +32,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -44,413 +41,321 @@ foreign import javascript unsafe "$1[\"openCursor\"]($2, $3)"         js_openCursorRange ::         IDBIndex ->-          Nullable IDBKeyRange -> JSString -> IO (Nullable IDBRequest)+          Optional IDBKeyRange ->+            Optional IDBCursorDirection -> IO 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)+                (MonadIO m) =>+                  IDBIndex ->+                    Maybe IDBKeyRange -> Maybe IDBCursorDirection -> m IDBRequest openCursorRange self range direction   = liftIO-      (nullableToMaybe <$>-         (js_openCursorRange (self) (maybeToNullable range)-            (toJSString direction)))+      (js_openCursorRange self (maybeToOptional range)+         (maybeToOptional direction))  -- | <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 ()+                 (MonadIO m) =>+                   IDBIndex -> Maybe IDBKeyRange -> Maybe IDBCursorDirection -> m () openCursorRange_ self range direction   = liftIO       (void-         (js_openCursorRange (self) (maybeToNullable range)-            (toJSString direction)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.openCursor Mozilla IDBIndex.openCursor documentation> -openCursorRangeUnsafe ::-                      (MonadIO m, ToJSString direction, HasCallStack) =>-                        IDBIndex -> Maybe IDBKeyRange -> direction -> m IDBRequest-openCursorRangeUnsafe self range direction-  = liftIO-      ((nullableToMaybe <$>-          (js_openCursorRange (self) (maybeToNullable range)-             (toJSString direction)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.openCursor Mozilla IDBIndex.openCursor documentation> -openCursorRangeUnchecked ::-                         (MonadIO m, ToJSString direction) =>-                           IDBIndex -> Maybe IDBKeyRange -> direction -> m IDBRequest-openCursorRangeUnchecked self range direction-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_openCursorRange (self) (maybeToNullable range)-            (toJSString direction)))+         (js_openCursorRange self (maybeToOptional range)+            (maybeToOptional direction)))   foreign import javascript unsafe "$1[\"openCursor\"]($2, $3)"         js_openCursor ::-        IDBIndex -> JSVal -> JSString -> IO (Nullable IDBRequest)+        IDBIndex -> JSVal -> Optional IDBCursorDirection -> IO 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)+           (MonadIO m, ToJSVal key) =>+             IDBIndex -> key -> Maybe IDBCursorDirection -> m IDBRequest openCursor self key direction   = liftIO-      (nullableToMaybe <$>-         (js_openCursor (self) key (toJSString direction)))+      (toJSVal key >>= \ key' -> js_openCursor self key'+         (maybeToOptional direction))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.openCursor Mozilla IDBIndex.openCursor documentation>  openCursor_ ::-            (MonadIO m, ToJSString direction) =>-              IDBIndex -> JSVal -> direction -> m ()+            (MonadIO m, ToJSVal key) =>+              IDBIndex -> key -> Maybe IDBCursorDirection -> m () openCursor_ self key direction-  = liftIO (void (js_openCursor (self) key (toJSString direction)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.openCursor Mozilla IDBIndex.openCursor documentation> -openCursorUnsafe ::-                 (MonadIO m, ToJSString direction, HasCallStack) =>-                   IDBIndex -> JSVal -> direction -> m IDBRequest-openCursorUnsafe self key direction   = liftIO-      ((nullableToMaybe <$>-          (js_openCursor (self) key (toJSString direction)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.openCursor Mozilla IDBIndex.openCursor documentation> -openCursorUnchecked ::-                    (MonadIO m, ToJSString direction) =>-                      IDBIndex -> JSVal -> direction -> m IDBRequest-openCursorUnchecked self key direction-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_openCursor (self) key (toJSString direction)))+      (void+         (toJSVal key >>= \ key' -> js_openCursor self key'+            (maybeToOptional direction)))   foreign import javascript unsafe "$1[\"openKeyCursor\"]($2, $3)"         js_openKeyCursorRange ::         IDBIndex ->-          Nullable IDBKeyRange -> JSString -> IO (Nullable IDBRequest)+          Optional IDBKeyRange ->+            Optional IDBCursorDirection -> IO 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)+                   (MonadIO m) =>+                     IDBIndex ->+                       Maybe IDBKeyRange -> Maybe IDBCursorDirection -> m IDBRequest openKeyCursorRange self range direction   = liftIO-      (nullableToMaybe <$>-         (js_openKeyCursorRange (self) (maybeToNullable range)-            (toJSString direction)))+      (js_openKeyCursorRange self (maybeToOptional range)+         (maybeToOptional direction))  -- | <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 ()+                    (MonadIO m) =>+                      IDBIndex -> Maybe IDBKeyRange -> Maybe IDBCursorDirection -> m () openKeyCursorRange_ self range direction   = liftIO       (void-         (js_openKeyCursorRange (self) (maybeToNullable range)-            (toJSString direction)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.openKeyCursor Mozilla IDBIndex.openKeyCursor documentation> -openKeyCursorRangeUnsafe ::-                         (MonadIO m, ToJSString direction, HasCallStack) =>-                           IDBIndex -> Maybe IDBKeyRange -> direction -> m IDBRequest-openKeyCursorRangeUnsafe self range direction-  = liftIO-      ((nullableToMaybe <$>-          (js_openKeyCursorRange (self) (maybeToNullable range)-             (toJSString direction)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.openKeyCursor Mozilla IDBIndex.openKeyCursor documentation> -openKeyCursorRangeUnchecked ::-                            (MonadIO m, ToJSString direction) =>-                              IDBIndex -> Maybe IDBKeyRange -> direction -> m IDBRequest-openKeyCursorRangeUnchecked self range direction-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_openKeyCursorRange (self) (maybeToNullable range)-            (toJSString direction)))+         (js_openKeyCursorRange self (maybeToOptional range)+            (maybeToOptional direction)))   foreign import javascript unsafe "$1[\"openKeyCursor\"]($2, $3)"         js_openKeyCursor ::-        IDBIndex -> JSVal -> JSString -> IO (Nullable IDBRequest)+        IDBIndex -> JSVal -> Optional IDBCursorDirection -> IO 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)+              (MonadIO m, ToJSVal key) =>+                IDBIndex -> key -> Maybe IDBCursorDirection -> m IDBRequest openKeyCursor self key direction   = liftIO-      (nullableToMaybe <$>-         (js_openKeyCursor (self) key (toJSString direction)))+      (toJSVal key >>= \ key' -> js_openKeyCursor self key'+         (maybeToOptional direction))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.openKeyCursor Mozilla IDBIndex.openKeyCursor documentation>  openKeyCursor_ ::-               (MonadIO m, ToJSString direction) =>-                 IDBIndex -> JSVal -> direction -> m ()+               (MonadIO m, ToJSVal key) =>+                 IDBIndex -> key -> Maybe IDBCursorDirection -> m () openKeyCursor_ self key direction   = liftIO-      (void (js_openKeyCursor (self) key (toJSString direction)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.openKeyCursor Mozilla IDBIndex.openKeyCursor documentation> -openKeyCursorUnsafe ::-                    (MonadIO m, ToJSString direction, HasCallStack) =>-                      IDBIndex -> JSVal -> direction -> m IDBRequest-openKeyCursorUnsafe self key direction-  = liftIO-      ((nullableToMaybe <$>-          (js_openKeyCursor (self) key (toJSString direction)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.openKeyCursor Mozilla IDBIndex.openKeyCursor documentation> -openKeyCursorUnchecked ::-                       (MonadIO m, ToJSString direction) =>-                         IDBIndex -> JSVal -> direction -> m IDBRequest-openKeyCursorUnchecked self key direction-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_openKeyCursor (self) key (toJSString direction)))+      (void+         (toJSVal key >>= \ key' -> js_openKeyCursor self key'+            (maybeToOptional direction)))   foreign import javascript unsafe "$1[\"get\"]($2)" js_getRange ::-        IDBIndex -> Nullable IDBKeyRange -> IO (Nullable IDBRequest)+        IDBIndex -> Optional IDBKeyRange -> IO 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)))+         (MonadIO m) => IDBIndex -> Maybe IDBKeyRange -> m IDBRequest+getRange self key = liftIO (js_getRange self (maybeToOptional key))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.get Mozilla IDBIndex.get documentation>  getRange_ :: (MonadIO m) => IDBIndex -> Maybe IDBKeyRange -> m () getRange_ self key-  = liftIO (void (js_getRange (self) (maybeToNullable key)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.get Mozilla IDBIndex.get documentation> -getRangeUnsafe ::-               (MonadIO m, HasCallStack) =>-                 IDBIndex -> Maybe IDBKeyRange -> m IDBRequest-getRangeUnsafe self key-  = liftIO-      ((nullableToMaybe <$> (js_getRange (self) (maybeToNullable key)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.get Mozilla IDBIndex.get documentation> -getRangeUnchecked ::-                  (MonadIO m) => IDBIndex -> Maybe IDBKeyRange -> m IDBRequest-getRangeUnchecked self key-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_getRange (self) (maybeToNullable key)))+  = liftIO (void (js_getRange self (maybeToOptional 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))---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.get Mozilla IDBIndex.get documentation> -get_ :: (MonadIO m) => IDBIndex -> JSVal -> m ()-get_ self key = liftIO (void (js_get (self) key))+        IDBIndex -> JSVal -> IO IDBRequest  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.get Mozilla IDBIndex.get documentation> -getUnsafe ::-          (MonadIO m, HasCallStack) => IDBIndex -> JSVal -> m IDBRequest-getUnsafe self key-  = liftIO-      ((nullableToMaybe <$> (js_get (self) key)) >>=-         maybe (Prelude.error "Nothing to return") return)+get :: (MonadIO m, ToJSVal key) => IDBIndex -> key -> m IDBRequest+get self key = liftIO (toJSVal key >>= \ key' -> js_get self key')  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.get Mozilla IDBIndex.get documentation> -getUnchecked :: (MonadIO m) => IDBIndex -> JSVal -> m IDBRequest-getUnchecked self key-  = liftIO (fromJust . nullableToMaybe <$> (js_get (self) key))+get_ :: (MonadIO m, ToJSVal key) => IDBIndex -> key -> m ()+get_ self key+  = liftIO (void (toJSVal key >>= \ key' -> js_get self key'))   foreign import javascript unsafe "$1[\"getKey\"]($2)"-        js_getKeyRange ::-        IDBIndex -> Nullable IDBKeyRange -> IO (Nullable IDBRequest)+        js_getKeyRange :: IDBIndex -> Optional IDBKeyRange -> IO 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)+            (MonadIO m) => IDBIndex -> Maybe IDBKeyRange -> m IDBRequest getKeyRange self key-  = liftIO-      (nullableToMaybe <$> (js_getKeyRange (self) (maybeToNullable key)))+  = liftIO (js_getKeyRange self (maybeToOptional key))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.getKey Mozilla IDBIndex.getKey documentation>  getKeyRange_ ::              (MonadIO m) => IDBIndex -> Maybe IDBKeyRange -> m () getKeyRange_ self key-  = liftIO (void (js_getKeyRange (self) (maybeToNullable key)))+  = liftIO (void (js_getKeyRange self (maybeToOptional key)))+ +foreign import javascript unsafe "$1[\"getKey\"]($2)" js_getKey ::+        IDBIndex -> JSVal -> IO IDBRequest  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.getKey Mozilla IDBIndex.getKey documentation> -getKeyRangeUnsafe ::-                  (MonadIO m, HasCallStack) =>-                    IDBIndex -> Maybe IDBKeyRange -> m IDBRequest-getKeyRangeUnsafe self key-  = liftIO-      ((nullableToMaybe <$>-          (js_getKeyRange (self) (maybeToNullable key)))-         >>= maybe (Prelude.error "Nothing to return") return)+getKey ::+       (MonadIO m, ToJSVal key) => IDBIndex -> key -> m IDBRequest+getKey self key+  = liftIO (toJSVal key >>= \ key' -> js_getKey self key')  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.getKey Mozilla IDBIndex.getKey documentation> -getKeyRangeUnchecked ::-                     (MonadIO m) => IDBIndex -> Maybe IDBKeyRange -> m IDBRequest-getKeyRangeUnchecked self key+getKey_ :: (MonadIO m, ToJSVal key) => IDBIndex -> key -> m ()+getKey_ self key+  = liftIO (void (toJSVal key >>= \ key' -> js_getKey self key'))+ +foreign import javascript unsafe "$1[\"getAll\"]($2, $3)"+        js_getAllRange ::+        IDBIndex -> Optional IDBKeyRange -> Optional Word -> IO IDBRequest++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.getAll Mozilla IDBIndex.getAll documentation> +getAllRange ::+            (MonadIO m) =>+              IDBIndex -> Maybe IDBKeyRange -> Maybe Word -> m IDBRequest+getAllRange self range count   = liftIO-      (fromJust . nullableToMaybe <$>-         (js_getKeyRange (self) (maybeToNullable key)))+      (js_getAllRange self (maybeToOptional range)+         (maybeToOptional count))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.getAll Mozilla IDBIndex.getAll documentation> +getAllRange_ ::+             (MonadIO m) => IDBIndex -> Maybe IDBKeyRange -> Maybe Word -> m ()+getAllRange_ self range count+  = liftIO+      (void+         (js_getAllRange self (maybeToOptional range)+            (maybeToOptional count)))  -foreign import javascript unsafe "$1[\"getKey\"]($2)" js_getKey ::-        IDBIndex -> JSVal -> IO (Nullable IDBRequest)+foreign import javascript unsafe "$1[\"getAll\"]($2, $3)" js_getAll+        :: IDBIndex -> JSVal -> Optional Word -> IO 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))+-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.getAll Mozilla IDBIndex.getAll documentation> +getAll ::+       (MonadIO m, ToJSVal key) =>+         IDBIndex -> key -> Maybe Word -> m IDBRequest+getAll self key count+  = liftIO+      (toJSVal key >>= \ key' -> js_getAll self key'+         (maybeToOptional count)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.getKey Mozilla IDBIndex.getKey documentation> -getKey_ :: (MonadIO m) => IDBIndex -> JSVal -> m ()-getKey_ self key = liftIO (void (js_getKey (self) key))+-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.getAll Mozilla IDBIndex.getAll documentation> +getAll_ ::+        (MonadIO m, ToJSVal key) => IDBIndex -> key -> Maybe Word -> m ()+getAll_ self key count+  = liftIO+      (void+         (toJSVal key >>= \ key' -> js_getAll self key'+            (maybeToOptional count)))+ +foreign import javascript unsafe "$1[\"getAllKeys\"]($2, $3)"+        js_getAllKeysRange ::+        IDBIndex -> Optional IDBKeyRange -> Optional Word -> IO IDBRequest --- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.getKey Mozilla IDBIndex.getKey documentation> -getKeyUnsafe ::-             (MonadIO m, HasCallStack) => IDBIndex -> JSVal -> m IDBRequest-getKeyUnsafe self key+-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.getAllKeys Mozilla IDBIndex.getAllKeys documentation> +getAllKeysRange ::+                (MonadIO m) =>+                  IDBIndex -> Maybe IDBKeyRange -> Maybe Word -> m IDBRequest+getAllKeysRange self range count   = liftIO-      ((nullableToMaybe <$> (js_getKey (self) key)) >>=-         maybe (Prelude.error "Nothing to return") return)+      (js_getAllKeysRange self (maybeToOptional range)+         (maybeToOptional count)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.getKey Mozilla IDBIndex.getKey documentation> -getKeyUnchecked :: (MonadIO m) => IDBIndex -> JSVal -> m IDBRequest-getKeyUnchecked self key-  = liftIO (fromJust . nullableToMaybe <$> (js_getKey (self) key))+-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.getAllKeys Mozilla IDBIndex.getAllKeys documentation> +getAllKeysRange_ ::+                 (MonadIO m) => IDBIndex -> Maybe IDBKeyRange -> Maybe Word -> m ()+getAllKeysRange_ self range count+  = liftIO+      (void+         (js_getAllKeysRange self (maybeToOptional range)+            (maybeToOptional count)))  +foreign import javascript unsafe "$1[\"getAllKeys\"]($2, $3)"+        js_getAllKeys ::+        IDBIndex -> JSVal -> Optional Word -> IO IDBRequest++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.getAllKeys Mozilla IDBIndex.getAllKeys documentation> +getAllKeys ::+           (MonadIO m, ToJSVal key) =>+             IDBIndex -> key -> Maybe Word -> m IDBRequest+getAllKeys self key count+  = liftIO+      (toJSVal key >>= \ key' -> js_getAllKeys self key'+         (maybeToOptional count))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.getAllKeys Mozilla IDBIndex.getAllKeys documentation> +getAllKeys_ ::+            (MonadIO m, ToJSVal key) => IDBIndex -> key -> Maybe Word -> m ()+getAllKeys_ self key count+  = liftIO+      (void+         (toJSVal key >>= \ key' -> js_getAllKeys self key'+            (maybeToOptional count)))+  foreign import javascript unsafe "$1[\"count\"]($2)" js_countRange-        :: IDBIndex -> Nullable IDBKeyRange -> IO (Nullable IDBRequest)+        :: IDBIndex -> Optional IDBKeyRange -> IO 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)+           (MonadIO m) => IDBIndex -> Maybe IDBKeyRange -> m IDBRequest countRange self range-  = liftIO-      (nullableToMaybe <$>-         (js_countRange (self) (maybeToNullable range)))+  = liftIO (js_countRange self (maybeToOptional range))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.count Mozilla IDBIndex.count documentation>  countRange_ :: (MonadIO m) => IDBIndex -> Maybe IDBKeyRange -> m () countRange_ self range-  = liftIO (void (js_countRange (self) (maybeToNullable range)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.count Mozilla IDBIndex.count documentation> -countRangeUnsafe ::-                 (MonadIO m, HasCallStack) =>-                   IDBIndex -> Maybe IDBKeyRange -> m IDBRequest-countRangeUnsafe self range-  = liftIO-      ((nullableToMaybe <$>-          (js_countRange (self) (maybeToNullable range)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.count Mozilla IDBIndex.count documentation> -countRangeUnchecked ::-                    (MonadIO m) => IDBIndex -> Maybe IDBKeyRange -> m IDBRequest-countRangeUnchecked self range-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_countRange (self) (maybeToNullable range)))+  = liftIO (void (js_countRange self (maybeToOptional 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))+        IDBIndex -> JSVal -> IO IDBRequest  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.count Mozilla IDBIndex.count documentation> -count_ :: (MonadIO m) => IDBIndex -> JSVal -> m ()-count_ self key = liftIO (void (js_count (self) key))+count ::+      (MonadIO m, ToJSVal key) => IDBIndex -> key -> m IDBRequest+count self key+  = liftIO (toJSVal key >>= \ key' -> js_count self key')  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.count Mozilla IDBIndex.count documentation> -countUnsafe ::-            (MonadIO m, HasCallStack) => IDBIndex -> JSVal -> m IDBRequest-countUnsafe self key-  = liftIO-      ((nullableToMaybe <$> (js_count (self) key)) >>=-         maybe (Prelude.error "Nothing to return") return)+count_ :: (MonadIO m, ToJSVal key) => IDBIndex -> key -> m ()+count_ self key+  = liftIO (void (toJSVal key >>= \ key' -> js_count self key'))+ +foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName ::+        IDBIndex -> JSString -> IO () --- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.count Mozilla IDBIndex.count documentation> -countUnchecked :: (MonadIO m) => IDBIndex -> JSVal -> m IDBRequest-countUnchecked self key-  = liftIO (fromJust . nullableToMaybe <$> (js_count (self) key))+-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.name Mozilla IDBIndex.name documentation> +setName :: (MonadIO m, ToJSString val) => IDBIndex -> val -> m ()+setName self val = liftIO (js_setName self (toJSString val))   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)))+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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.objectStore Mozilla IDBIndex.objectStore documentation> -getObjectStoreUnsafe ::-                     (MonadIO m, HasCallStack) => IDBIndex -> m IDBObjectStore-getObjectStoreUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getObjectStore (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        js_getObjectStore :: IDBIndex -> IO IDBObjectStore  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.objectStore Mozilla IDBIndex.objectStore documentation> -getObjectStoreUnchecked ::-                        (MonadIO m) => IDBIndex -> m IDBObjectStore-getObjectStoreUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$> (js_getObjectStore (self)))+getObjectStore :: (MonadIO m) => IDBIndex -> m IDBObjectStore+getObjectStore self = liftIO (js_getObjectStore self)   foreign import javascript unsafe "$1[\"keyPath\"]" js_getKeyPath ::-        IDBIndex -> IO (Nullable IDBAny)+        IDBIndex -> IO (Nullable IDBKeyPath)  -- | <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)))+getKeyPath :: (MonadIO m) => IDBIndex -> m (Maybe IDBKeyPath)+getKeyPath self = liftIO (nullableToMaybe <$> (js_getKeyPath self))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.keyPath Mozilla IDBIndex.keyPath documentation>  getKeyPathUnsafe ::-                 (MonadIO m, HasCallStack) => IDBIndex -> m IDBAny+                 (MonadIO m, HasCallStack) => IDBIndex -> m IDBKeyPath getKeyPathUnsafe self   = liftIO-      ((nullableToMaybe <$> (js_getKeyPath (self))) >>=+      ((nullableToMaybe <$> (js_getKeyPath self)) >>=          maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.keyPath Mozilla IDBIndex.keyPath documentation> -getKeyPathUnchecked :: (MonadIO m) => IDBIndex -> m IDBAny+getKeyPathUnchecked :: (MonadIO m) => IDBIndex -> m IDBKeyPath getKeyPathUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getKeyPath (self)))+  = liftIO (fromJust . 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))+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))+getUnique self = liftIO (js_getUnique self)
src/GHCJS/DOM/JSFFI/Generated/IDBKeyRange.hs view
@@ -4,19 +4,17 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.IDBKeyRange-       (js_only, only, only_, onlyUnsafe, onlyUnchecked, js_lowerBound,-        lowerBound, lowerBound_, lowerBoundUnsafe, lowerBoundUnchecked,-        js_upperBound, upperBound, upperBound_, upperBoundUnsafe,-        upperBoundUnchecked, js_bound, bound, bound_, boundUnsafe,-        boundUnchecked, js_getLower, getLower, js_getUpper, getUpper,-        js_getLowerOpen, getLowerOpen, js_getUpperOpen, getUpperOpen,-        IDBKeyRange(..), gTypeIDBKeyRange)+       (js_only, only, only_, js_lowerBound, lowerBound, lowerBound_,+        js_upperBound, upperBound, upperBound_, js_bound, bound, bound_,+        js_includes, includes, includes_, js_getLower, getLower,+        js_getUpper, getUpper, js_getLowerOpen, getLowerOpen,+        js_getUpperOpen, getUpperOpen, IDBKeyRange(..), gTypeIDBKeyRange)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -25,167 +23,131 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums   foreign import javascript unsafe "$1[\"only\"]($2)" js_only ::-        IDBKeyRange -> JSVal -> IO (Nullable IDBKeyRange)+        IDBKeyRange -> JSVal -> IO IDBKeyRange  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBKeyRange.only Mozilla IDBKeyRange.only documentation>  only ::-     (MonadIO m) => IDBKeyRange -> JSVal -> m (Maybe IDBKeyRange)+     (MonadIO m, ToJSVal value) => IDBKeyRange -> value -> m IDBKeyRange only self value-  = liftIO (nullableToMaybe <$> (js_only (self) value))---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBKeyRange.only Mozilla IDBKeyRange.only documentation> -only_ :: (MonadIO m) => IDBKeyRange -> JSVal -> m ()-only_ self value = liftIO (void (js_only (self) value))---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBKeyRange.only Mozilla IDBKeyRange.only documentation> -onlyUnsafe ::-           (MonadIO m, HasCallStack) => IDBKeyRange -> JSVal -> m IDBKeyRange-onlyUnsafe self value-  = liftIO-      ((nullableToMaybe <$> (js_only (self) value)) >>=-         maybe (Prelude.error "Nothing to return") return)+  = liftIO (toJSVal value >>= \ value' -> js_only self value')  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBKeyRange.only Mozilla IDBKeyRange.only documentation> -onlyUnchecked ::-              (MonadIO m) => IDBKeyRange -> JSVal -> m IDBKeyRange-onlyUnchecked self value-  = liftIO (fromJust . nullableToMaybe <$> (js_only (self) value))+only_ :: (MonadIO m, ToJSVal value) => IDBKeyRange -> value -> m ()+only_ self value+  = liftIO (void (toJSVal value >>= \ value' -> js_only self value'))   foreign import javascript unsafe "$1[\"lowerBound\"]($2, $3)"-        js_lowerBound ::-        IDBKeyRange -> JSVal -> Bool -> IO (Nullable IDBKeyRange)+        js_lowerBound :: IDBKeyRange -> JSVal -> Bool -> IO 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)+           (MonadIO m, ToJSVal lower) =>+             IDBKeyRange -> lower -> Bool -> m IDBKeyRange lowerBound self lower open-  = liftIO (nullableToMaybe <$> (js_lowerBound (self) lower open))---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBKeyRange.lowerBound Mozilla IDBKeyRange.lowerBound documentation> -lowerBound_ :: (MonadIO m) => IDBKeyRange -> JSVal -> Bool -> m ()-lowerBound_ self lower open-  = liftIO (void (js_lowerBound (self) lower open))---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBKeyRange.lowerBound Mozilla IDBKeyRange.lowerBound documentation> -lowerBoundUnsafe ::-                 (MonadIO m, HasCallStack) =>-                   IDBKeyRange -> JSVal -> Bool -> m IDBKeyRange-lowerBoundUnsafe self lower open   = liftIO-      ((nullableToMaybe <$> (js_lowerBound (self) lower open)) >>=-         maybe (Prelude.error "Nothing to return") return)+      (toJSVal lower >>= \ lower' -> js_lowerBound self lower' open)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBKeyRange.lowerBound Mozilla IDBKeyRange.lowerBound documentation> -lowerBoundUnchecked ::-                    (MonadIO m) => IDBKeyRange -> JSVal -> Bool -> m IDBKeyRange-lowerBoundUnchecked self lower open+lowerBound_ ::+            (MonadIO m, ToJSVal lower) => IDBKeyRange -> lower -> Bool -> m ()+lowerBound_ self lower open   = liftIO-      (fromJust . nullableToMaybe <$> (js_lowerBound (self) lower open))+      (void+         (toJSVal lower >>= \ lower' -> js_lowerBound self lower' open))   foreign import javascript unsafe "$1[\"upperBound\"]($2, $3)"-        js_upperBound ::-        IDBKeyRange -> JSVal -> Bool -> IO (Nullable IDBKeyRange)+        js_upperBound :: IDBKeyRange -> JSVal -> Bool -> IO 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)+           (MonadIO m, ToJSVal upper) =>+             IDBKeyRange -> upper -> Bool -> m IDBKeyRange upperBound self upper open-  = liftIO (nullableToMaybe <$> (js_upperBound (self) upper open))---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBKeyRange.upperBound Mozilla IDBKeyRange.upperBound documentation> -upperBound_ :: (MonadIO m) => IDBKeyRange -> JSVal -> Bool -> m ()-upperBound_ self upper open-  = liftIO (void (js_upperBound (self) upper open))---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBKeyRange.upperBound Mozilla IDBKeyRange.upperBound documentation> -upperBoundUnsafe ::-                 (MonadIO m, HasCallStack) =>-                   IDBKeyRange -> JSVal -> Bool -> m IDBKeyRange-upperBoundUnsafe self upper open   = liftIO-      ((nullableToMaybe <$> (js_upperBound (self) upper open)) >>=-         maybe (Prelude.error "Nothing to return") return)+      (toJSVal upper >>= \ upper' -> js_upperBound self upper' open)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBKeyRange.upperBound Mozilla IDBKeyRange.upperBound documentation> -upperBoundUnchecked ::-                    (MonadIO m) => IDBKeyRange -> JSVal -> Bool -> m IDBKeyRange-upperBoundUnchecked self upper open+upperBound_ ::+            (MonadIO m, ToJSVal upper) => IDBKeyRange -> upper -> Bool -> m ()+upperBound_ self upper open   = liftIO-      (fromJust . nullableToMaybe <$> (js_upperBound (self) upper open))+      (void+         (toJSVal upper >>= \ upper' -> 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)+        IDBKeyRange -> JSVal -> JSVal -> Bool -> Bool -> IO 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)+      (MonadIO m, ToJSVal lower, ToJSVal upper) =>+        IDBKeyRange -> lower -> upper -> Bool -> Bool -> m IDBKeyRange bound self lower upper lowerOpen upperOpen   = liftIO-      (nullableToMaybe <$>-         (js_bound (self) lower upper lowerOpen upperOpen))+      (toJSVal upper >>=+         \ upper' ->+           toJSVal lower >>= \ lower' -> js_bound self lower' upper'+         lowerOpen+         upperOpen)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBKeyRange.bound Mozilla IDBKeyRange.bound documentation>  bound_ ::-       (MonadIO m) =>-         IDBKeyRange -> JSVal -> JSVal -> Bool -> Bool -> m ()+       (MonadIO m, ToJSVal lower, ToJSVal upper) =>+         IDBKeyRange -> lower -> upper -> Bool -> Bool -> m () bound_ self lower upper lowerOpen upperOpen-  = liftIO (void (js_bound (self) lower upper lowerOpen upperOpen))---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBKeyRange.bound Mozilla IDBKeyRange.bound documentation> -boundUnsafe ::-            (MonadIO m, HasCallStack) =>-              IDBKeyRange -> JSVal -> JSVal -> Bool -> Bool -> m IDBKeyRange-boundUnsafe self lower upper lowerOpen upperOpen   = liftIO-      ((nullableToMaybe <$>-          (js_bound (self) lower upper lowerOpen upperOpen))-         >>= maybe (Prelude.error "Nothing to return") return)+      (void+         (toJSVal upper >>=+            \ upper' ->+              toJSVal lower >>= \ lower' -> js_bound self lower' upper'+            lowerOpen+            upperOpen))+ +foreign import javascript unsafe "($1[\"includes\"]($2) ? 1 : 0)"+        js_includes :: IDBKeyRange -> JSVal -> IO Bool --- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBKeyRange.bound Mozilla IDBKeyRange.bound documentation> -boundUnchecked ::-               (MonadIO m) =>-                 IDBKeyRange -> JSVal -> JSVal -> Bool -> Bool -> m IDBKeyRange-boundUnchecked self lower upper lowerOpen upperOpen-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_bound (self) lower upper lowerOpen upperOpen))+-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBKeyRange.includes Mozilla IDBKeyRange.includes documentation> +includes ::+         (MonadIO m, ToJSVal key) => IDBKeyRange -> key -> m Bool+includes self key+  = liftIO (toJSVal key >>= \ key' -> js_includes self key')++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBKeyRange.includes Mozilla IDBKeyRange.includes documentation> +includes_ :: (MonadIO m, ToJSVal key) => IDBKeyRange -> key -> m ()+includes_ self key+  = liftIO (void (toJSVal key >>= \ key' -> js_includes self key'))   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))+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))+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))+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))+getUpperOpen self = liftIO (js_getUpperOpen self)
src/GHCJS/DOM/JSFFI/Generated/IDBObjectStore.hs view
@@ -4,34 +4,30 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.IDBObjectStore-       (js_put, put, put_, putUnsafe, putUnchecked, js_add, add, add_,-        addUnsafe, addUnchecked, js_deleteRange, deleteRange, deleteRange_,-        deleteRangeUnsafe, deleteRangeUnchecked, js_delete, delete,-        delete_, deleteUnsafe, deleteUnchecked, js_getRange, getRange,-        getRange_, getRangeUnsafe, getRangeUnchecked, js_get, get, get_,-        getUnsafe, getUnchecked, js_clear, clear, clear_, clearUnsafe,-        clearUnchecked, js_openCursorRange, openCursorRange,-        openCursorRange_, openCursorRangeUnsafe, openCursorRangeUnchecked,-        js_openCursor, openCursor, openCursor_, openCursorUnsafe,-        openCursorUnchecked, js_createIndex', createIndex', createIndex'_,-        createIndex'Unsafe, createIndex'Unchecked, js_createIndex,-        createIndex, createIndex_, createIndexUnsafe, createIndexUnchecked,-        js_index, index, index_, indexUnsafe, indexUnchecked,-        js_deleteIndex, deleteIndex, js_countRange, countRange,-        countRange_, countRangeUnsafe, countRangeUnchecked, js_count,-        count, count_, countUnsafe, countUnchecked, js_getName, getName,-        getNameUnsafe, getNameUnchecked, js_getKeyPath, getKeyPath,+       (js_put, put, put_, js_add, add, add_, js_deleteRange, deleteRange,+        deleteRange_, js_delete, delete, delete_, js_getRange, getRange,+        getRange_, js_get, get, get_, js_getKeyRange, getKeyRange,+        getKeyRange_, js_getKey, getKey, getKey_, js_clear, clear, clear_,+        js_openCursorRange, openCursorRange, openCursorRange_,+        js_openCursor, openCursor, openCursor_, js_openKeyCursorRange,+        openKeyCursorRange, openKeyCursorRange_, js_openKeyCursor,+        openKeyCursor, openKeyCursor_, js_getAllRange, getAllRange,+        getAllRange_, js_getAll, getAll, getAll_, js_getAllKeysRange,+        getAllKeysRange, getAllKeysRange_, js_getAllKeys, getAllKeys,+        getAllKeys_, js_createIndex, createIndex, createIndex_, js_index,+        index, index_, js_deleteIndex, deleteIndex, js_countRange,+        countRange, countRange_, js_count, count, count_, js_setName,+        setName, js_getName, getName, js_getKeyPath, getKeyPath,         getKeyPathUnsafe, getKeyPathUnchecked, js_getIndexNames,-        getIndexNames, getIndexNamesUnsafe, getIndexNamesUnchecked,-        js_getTransaction, getTransaction, getTransactionUnsafe,-        getTransactionUnchecked, js_getAutoIncrement, getAutoIncrement,-        IDBObjectStore(..), gTypeIDBObjectStore)+        getIndexNames, js_getTransaction, getTransaction,+        js_getAutoIncrement, getAutoIncrement, IDBObjectStore(..),+        gTypeIDBObjectStore)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -40,445 +36,403 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums   foreign import javascript unsafe "$1[\"put\"]($2, $3)" js_put ::-        IDBObjectStore -> JSVal -> JSVal -> IO (Nullable IDBRequest)+        IDBObjectStore -> JSVal -> Optional JSVal -> IO 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)+    (MonadIO m, ToJSVal value, ToJSVal key) =>+      IDBObjectStore -> value -> Maybe key -> m IDBRequest put self value key-  = liftIO (nullableToMaybe <$> (js_put (self) value key))---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.put Mozilla IDBObjectStore.put documentation> -put_ :: (MonadIO m) => IDBObjectStore -> JSVal -> JSVal -> m ()-put_ self value key = liftIO (void (js_put (self) value key))---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.put Mozilla IDBObjectStore.put documentation> -putUnsafe ::-          (MonadIO m, HasCallStack) =>-            IDBObjectStore -> JSVal -> JSVal -> m IDBRequest-putUnsafe self value key   = liftIO-      ((nullableToMaybe <$> (js_put (self) value key)) >>=-         maybe (Prelude.error "Nothing to return") return)+      (mapM toJSVal key >>=+         \ key' ->+           toJSVal value >>= \ value' -> js_put self value'+             (maybeToOptional key'))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.put Mozilla IDBObjectStore.put documentation> -putUnchecked ::-             (MonadIO m) => IDBObjectStore -> JSVal -> JSVal -> m IDBRequest-putUnchecked self value key-  = liftIO (fromJust . nullableToMaybe <$> (js_put (self) value key))+put_ ::+     (MonadIO m, ToJSVal value, ToJSVal key) =>+       IDBObjectStore -> value -> Maybe key -> m ()+put_ self value key+  = liftIO+      (void+         (mapM toJSVal key >>=+            \ key' ->+              toJSVal value >>= \ value' -> js_put self value'+                (maybeToOptional key')))   foreign import javascript unsafe "$1[\"add\"]($2, $3)" js_add ::-        IDBObjectStore -> JSVal -> JSVal -> IO (Nullable IDBRequest)+        IDBObjectStore -> JSVal -> Optional JSVal -> IO 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)+    (MonadIO m, ToJSVal value, ToJSVal key) =>+      IDBObjectStore -> value -> Maybe key -> m IDBRequest add self value key-  = liftIO (nullableToMaybe <$> (js_add (self) value key))---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.add Mozilla IDBObjectStore.add documentation> -add_ :: (MonadIO m) => IDBObjectStore -> JSVal -> JSVal -> m ()-add_ self value key = liftIO (void (js_add (self) value key))---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.add Mozilla IDBObjectStore.add documentation> -addUnsafe ::-          (MonadIO m, HasCallStack) =>-            IDBObjectStore -> JSVal -> JSVal -> m IDBRequest-addUnsafe self value key   = liftIO-      ((nullableToMaybe <$> (js_add (self) value key)) >>=-         maybe (Prelude.error "Nothing to return") return)+      (mapM toJSVal key >>=+         \ key' ->+           toJSVal value >>= \ value' -> js_add self value'+             (maybeToOptional key'))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.add Mozilla IDBObjectStore.add documentation> -addUnchecked ::-             (MonadIO m) => IDBObjectStore -> JSVal -> JSVal -> m IDBRequest-addUnchecked self value key-  = liftIO (fromJust . nullableToMaybe <$> (js_add (self) value key))+add_ ::+     (MonadIO m, ToJSVal value, ToJSVal key) =>+       IDBObjectStore -> value -> Maybe key -> m ()+add_ self value key+  = liftIO+      (void+         (mapM toJSVal key >>=+            \ key' ->+              toJSVal value >>= \ value' -> js_add self value'+                (maybeToOptional key')))   foreign import javascript unsafe "$1[\"delete\"]($2)"         js_deleteRange ::-        IDBObjectStore -> Nullable IDBKeyRange -> IO (Nullable IDBRequest)+        IDBObjectStore -> Optional IDBKeyRange -> IO 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)+            (MonadIO m) => IDBObjectStore -> Maybe IDBKeyRange -> m IDBRequest deleteRange self keyRange-  = liftIO-      (nullableToMaybe <$>-         (js_deleteRange (self) (maybeToNullable keyRange)))+  = liftIO (js_deleteRange self (maybeToOptional keyRange))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.delete Mozilla IDBObjectStore.delete documentation>  deleteRange_ ::              (MonadIO m) => IDBObjectStore -> Maybe IDBKeyRange -> m () deleteRange_ self keyRange-  = liftIO (void (js_deleteRange (self) (maybeToNullable keyRange)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.delete Mozilla IDBObjectStore.delete documentation> -deleteRangeUnsafe ::-                  (MonadIO m, HasCallStack) =>-                    IDBObjectStore -> Maybe IDBKeyRange -> m IDBRequest-deleteRangeUnsafe self keyRange-  = liftIO-      ((nullableToMaybe <$>-          (js_deleteRange (self) (maybeToNullable keyRange)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.delete Mozilla IDBObjectStore.delete documentation> -deleteRangeUnchecked ::-                     (MonadIO m) => IDBObjectStore -> Maybe IDBKeyRange -> m IDBRequest-deleteRangeUnchecked self keyRange-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_deleteRange (self) (maybeToNullable keyRange)))+  = liftIO (void (js_deleteRange self (maybeToOptional keyRange)))   foreign import javascript unsafe "$1[\"delete\"]($2)" js_delete ::-        IDBObjectStore -> JSVal -> IO (Nullable IDBRequest)+        IDBObjectStore -> JSVal -> IO IDBRequest  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.delete Mozilla IDBObjectStore.delete documentation>  delete ::-       (MonadIO m) => IDBObjectStore -> JSVal -> m (Maybe IDBRequest)+       (MonadIO m, ToJSVal key) => IDBObjectStore -> key -> m IDBRequest delete self key-  = liftIO (nullableToMaybe <$> (js_delete (self) key))---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.delete Mozilla IDBObjectStore.delete documentation> -delete_ :: (MonadIO m) => IDBObjectStore -> JSVal -> m ()-delete_ self key = liftIO (void (js_delete (self) key))---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.delete Mozilla IDBObjectStore.delete documentation> -deleteUnsafe ::-             (MonadIO m, HasCallStack) =>-               IDBObjectStore -> JSVal -> m IDBRequest-deleteUnsafe self key-  = liftIO-      ((nullableToMaybe <$> (js_delete (self) key)) >>=-         maybe (Prelude.error "Nothing to return") return)+  = liftIO (toJSVal key >>= \ key' -> js_delete self key')  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.delete Mozilla IDBObjectStore.delete documentation> -deleteUnchecked ::-                (MonadIO m) => IDBObjectStore -> JSVal -> m IDBRequest-deleteUnchecked self key-  = liftIO (fromJust . nullableToMaybe <$> (js_delete (self) key))+delete_ ::+        (MonadIO m, ToJSVal key) => IDBObjectStore -> key -> m ()+delete_ self key+  = liftIO (void (toJSVal key >>= \ key' -> js_delete self key'))   foreign import javascript unsafe "$1[\"get\"]($2)" js_getRange ::-        IDBObjectStore -> Nullable IDBKeyRange -> IO (Nullable IDBRequest)+        IDBObjectStore -> Optional IDBKeyRange -> IO 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)))+         (MonadIO m) => IDBObjectStore -> Maybe IDBKeyRange -> m IDBRequest+getRange self key = liftIO (js_getRange self (maybeToOptional key))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.get Mozilla IDBObjectStore.get documentation>  getRange_ ::           (MonadIO m) => IDBObjectStore -> Maybe IDBKeyRange -> m () getRange_ self key-  = liftIO (void (js_getRange (self) (maybeToNullable key)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.get Mozilla IDBObjectStore.get documentation> -getRangeUnsafe ::-               (MonadIO m, HasCallStack) =>-                 IDBObjectStore -> Maybe IDBKeyRange -> m IDBRequest-getRangeUnsafe self key-  = liftIO-      ((nullableToMaybe <$> (js_getRange (self) (maybeToNullable key)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.get Mozilla IDBObjectStore.get documentation> -getRangeUnchecked ::-                  (MonadIO m) => IDBObjectStore -> Maybe IDBKeyRange -> m IDBRequest-getRangeUnchecked self key-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_getRange (self) (maybeToNullable key)))+  = liftIO (void (js_getRange self (maybeToOptional key)))   foreign import javascript unsafe "$1[\"get\"]($2)" js_get ::-        IDBObjectStore -> JSVal -> IO (Nullable IDBRequest)+        IDBObjectStore -> JSVal -> IO 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))+    (MonadIO m, ToJSVal key) => IDBObjectStore -> key -> m IDBRequest+get self key = liftIO (toJSVal key >>= \ key' -> js_get self key')  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.get Mozilla IDBObjectStore.get documentation> -get_ :: (MonadIO m) => IDBObjectStore -> JSVal -> m ()-get_ self key = liftIO (void (js_get (self) key))+get_ :: (MonadIO m, ToJSVal key) => IDBObjectStore -> key -> m ()+get_ self key+  = liftIO (void (toJSVal key >>= \ key' -> js_get self key'))+ +foreign import javascript unsafe "$1[\"getKey\"]($2)"+        js_getKeyRange ::+        IDBObjectStore -> Optional IDBKeyRange -> IO IDBRequest --- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.get Mozilla IDBObjectStore.get documentation> -getUnsafe ::-          (MonadIO m, HasCallStack) =>-            IDBObjectStore -> JSVal -> m IDBRequest-getUnsafe self key-  = liftIO-      ((nullableToMaybe <$> (js_get (self) key)) >>=-         maybe (Prelude.error "Nothing to return") return)+-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.getKey Mozilla IDBObjectStore.getKey documentation> +getKeyRange ::+            (MonadIO m) => IDBObjectStore -> Maybe IDBKeyRange -> m IDBRequest+getKeyRange self key+  = liftIO (js_getKeyRange self (maybeToOptional key)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.get Mozilla IDBObjectStore.get documentation> -getUnchecked ::-             (MonadIO m) => IDBObjectStore -> JSVal -> m IDBRequest-getUnchecked self key-  = liftIO (fromJust . nullableToMaybe <$> (js_get (self) key))+-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.getKey Mozilla IDBObjectStore.getKey documentation> +getKeyRange_ ::+             (MonadIO m) => IDBObjectStore -> Maybe IDBKeyRange -> m ()+getKeyRange_ self key+  = liftIO (void (js_getKeyRange self (maybeToOptional key)))  -foreign import javascript unsafe "$1[\"clear\"]()" js_clear ::-        IDBObjectStore -> IO (Nullable IDBRequest)+foreign import javascript unsafe "$1[\"getKey\"]($2)" js_getKey ::+        IDBObjectStore -> JSVal -> IO 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)))+-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.getKey Mozilla IDBObjectStore.getKey documentation> +getKey ::+       (MonadIO m, ToJSVal key) => IDBObjectStore -> key -> m IDBRequest+getKey self key+  = liftIO (toJSVal key >>= \ key' -> js_getKey self key') --- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.clear Mozilla IDBObjectStore.clear documentation> -clear_ :: (MonadIO m) => IDBObjectStore -> m ()-clear_ self = liftIO (void (js_clear (self)))+-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.getKey Mozilla IDBObjectStore.getKey documentation> +getKey_ ::+        (MonadIO m, ToJSVal key) => IDBObjectStore -> key -> m ()+getKey_ self key+  = liftIO (void (toJSVal key >>= \ key' -> js_getKey self key'))+ +foreign import javascript unsafe "$1[\"clear\"]()" js_clear ::+        IDBObjectStore -> IO IDBRequest  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.clear Mozilla IDBObjectStore.clear documentation> -clearUnsafe ::-            (MonadIO m, HasCallStack) => IDBObjectStore -> m IDBRequest-clearUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_clear (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+clear :: (MonadIO m) => IDBObjectStore -> m IDBRequest+clear self = liftIO (js_clear self)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.clear Mozilla IDBObjectStore.clear documentation> -clearUnchecked :: (MonadIO m) => IDBObjectStore -> m IDBRequest-clearUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_clear (self)))+clear_ :: (MonadIO m) => IDBObjectStore -> m ()+clear_ self = liftIO (void (js_clear self))   foreign import javascript unsafe "$1[\"openCursor\"]($2, $3)"         js_openCursorRange ::         IDBObjectStore ->-          Nullable IDBKeyRange -> JSString -> IO (Nullable IDBRequest)+          Optional IDBKeyRange ->+            Optional IDBCursorDirection -> IO IDBRequest  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.openCursor Mozilla IDBObjectStore.openCursor documentation>  openCursorRange ::-                (MonadIO m, ToJSString direction) =>+                (MonadIO m) =>                   IDBObjectStore ->-                    Maybe IDBKeyRange -> direction -> m (Maybe IDBRequest)+                    Maybe IDBKeyRange -> Maybe IDBCursorDirection -> m IDBRequest openCursorRange self range direction   = liftIO-      (nullableToMaybe <$>-         (js_openCursorRange (self) (maybeToNullable range)-            (toJSString direction)))+      (js_openCursorRange self (maybeToOptional range)+         (maybeToOptional direction))  -- | <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 ()+                 (MonadIO m) =>+                   IDBObjectStore ->+                     Maybe IDBKeyRange -> Maybe IDBCursorDirection -> m () openCursorRange_ self range direction   = liftIO       (void-         (js_openCursorRange (self) (maybeToNullable range)-            (toJSString direction)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.openCursor Mozilla IDBObjectStore.openCursor documentation> -openCursorRangeUnsafe ::-                      (MonadIO m, ToJSString direction, HasCallStack) =>-                        IDBObjectStore -> Maybe IDBKeyRange -> direction -> m IDBRequest-openCursorRangeUnsafe self range direction-  = liftIO-      ((nullableToMaybe <$>-          (js_openCursorRange (self) (maybeToNullable range)-             (toJSString direction)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.openCursor Mozilla IDBObjectStore.openCursor documentation> -openCursorRangeUnchecked ::-                         (MonadIO m, ToJSString direction) =>-                           IDBObjectStore -> Maybe IDBKeyRange -> direction -> m IDBRequest-openCursorRangeUnchecked self range direction-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_openCursorRange (self) (maybeToNullable range)-            (toJSString direction)))+         (js_openCursorRange self (maybeToOptional range)+            (maybeToOptional direction)))   foreign import javascript unsafe "$1[\"openCursor\"]($2, $3)"         js_openCursor ::-        IDBObjectStore -> JSVal -> JSString -> IO (Nullable IDBRequest)+        IDBObjectStore ->+          JSVal -> Optional IDBCursorDirection -> IO 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)+           (MonadIO m, ToJSVal key) =>+             IDBObjectStore -> key -> Maybe IDBCursorDirection -> m IDBRequest openCursor self key direction   = liftIO-      (nullableToMaybe <$>-         (js_openCursor (self) key (toJSString direction)))+      (toJSVal key >>= \ key' -> js_openCursor self key'+         (maybeToOptional direction))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.openCursor Mozilla IDBObjectStore.openCursor documentation>  openCursor_ ::-            (MonadIO m, ToJSString direction) =>-              IDBObjectStore -> JSVal -> direction -> m ()+            (MonadIO m, ToJSVal key) =>+              IDBObjectStore -> key -> Maybe IDBCursorDirection -> m () openCursor_ self key direction-  = liftIO (void (js_openCursor (self) key (toJSString direction)))+  = liftIO+      (void+         (toJSVal key >>= \ key' -> js_openCursor self key'+            (maybeToOptional direction)))+ +foreign import javascript unsafe "$1[\"openKeyCursor\"]($2, $3)"+        js_openKeyCursorRange ::+        IDBObjectStore ->+          Optional IDBKeyRange ->+            Optional IDBCursorDirection -> IO IDBRequest --- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.openCursor Mozilla IDBObjectStore.openCursor documentation> -openCursorUnsafe ::-                 (MonadIO m, ToJSString direction, HasCallStack) =>-                   IDBObjectStore -> JSVal -> direction -> m IDBRequest-openCursorUnsafe self key direction+-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.openKeyCursor Mozilla IDBObjectStore.openKeyCursor documentation> +openKeyCursorRange ::+                   (MonadIO m) =>+                     IDBObjectStore ->+                       Maybe IDBKeyRange -> Maybe IDBCursorDirection -> m IDBRequest+openKeyCursorRange self range direction   = liftIO-      ((nullableToMaybe <$>-          (js_openCursor (self) key (toJSString direction)))-         >>= maybe (Prelude.error "Nothing to return") return)+      (js_openKeyCursorRange self (maybeToOptional range)+         (maybeToOptional direction)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.openCursor Mozilla IDBObjectStore.openCursor documentation> -openCursorUnchecked ::-                    (MonadIO m, ToJSString direction) =>-                      IDBObjectStore -> JSVal -> direction -> m IDBRequest-openCursorUnchecked self key direction+-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.openKeyCursor Mozilla IDBObjectStore.openKeyCursor documentation> +openKeyCursorRange_ ::+                    (MonadIO m) =>+                      IDBObjectStore ->+                        Maybe IDBKeyRange -> Maybe IDBCursorDirection -> m ()+openKeyCursorRange_ self range direction   = liftIO-      (fromJust . nullableToMaybe <$>-         (js_openCursor (self) key (toJSString direction)))+      (void+         (js_openKeyCursorRange self (maybeToOptional range)+            (maybeToOptional direction)))  -foreign import javascript unsafe "$1[\"createIndex\"]($2, $3, $4)"-        js_createIndex' ::+foreign import javascript unsafe "$1[\"openKeyCursor\"]($2, $3)"+        js_openKeyCursor ::         IDBObjectStore ->-          JSString -> JSVal -> Nullable Dictionary -> IO (Nullable IDBIndex)+          JSVal -> Optional IDBCursorDirection -> IO IDBRequest --- | <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+-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.openKeyCursor Mozilla IDBObjectStore.openKeyCursor documentation> +openKeyCursor ::+              (MonadIO m, ToJSVal key) =>+                IDBObjectStore -> key -> Maybe IDBCursorDirection -> m IDBRequest+openKeyCursor self key direction   = liftIO-      (nullableToMaybe <$>-         (toJSVal keyPath >>=-            \ keyPath' -> js_createIndex' (self) (toJSString name) keyPath'-            (maybeToNullable (fmap toDictionary options))))+      (toJSVal key >>= \ key' -> js_openKeyCursor self key'+         (maybeToOptional direction)) --- | <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 ()-createIndex'_ self name keyPath options+-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.openKeyCursor Mozilla IDBObjectStore.openKeyCursor documentation> +openKeyCursor_ ::+               (MonadIO m, ToJSVal key) =>+                 IDBObjectStore -> key -> Maybe IDBCursorDirection -> m ()+openKeyCursor_ self key direction   = liftIO       (void-         (toJSVal keyPath >>=-            \ keyPath' -> js_createIndex' (self) (toJSString name) keyPath'-            (maybeToNullable (fmap toDictionary options))))+         (toJSVal key >>= \ key' -> js_openKeyCursor self key'+            (maybeToOptional direction)))+ +foreign import javascript unsafe "$1[\"getAll\"]($2, $3)"+        js_getAllRange ::+        IDBObjectStore ->+          Optional IDBKeyRange -> Optional Word -> IO IDBRequest --- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.createIndex Mozilla IDBObjectStore.createIndex documentation> -createIndex'Unsafe ::-                   (MonadIO m, ToJSString name, ToJSString keyPath,-                    IsDictionary options, HasCallStack) =>-                     IDBObjectStore -> name -> [keyPath] -> Maybe options -> m IDBIndex-createIndex'Unsafe self name keyPath options+-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.getAll Mozilla IDBObjectStore.getAll documentation> +getAllRange ::+            (MonadIO m) =>+              IDBObjectStore -> Maybe IDBKeyRange -> Maybe Word -> m IDBRequest+getAllRange self range count   = liftIO-      ((nullableToMaybe <$>-          (toJSVal keyPath >>=-             \ keyPath' -> js_createIndex' (self) (toJSString name) keyPath'-             (maybeToNullable (fmap toDictionary options))))-         >>= maybe (Prelude.error "Nothing to return") return)+      (js_getAllRange self (maybeToOptional range)+         (maybeToOptional count)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.createIndex Mozilla IDBObjectStore.createIndex documentation> -createIndex'Unchecked ::-                      (MonadIO m, ToJSString name, ToJSString keyPath,-                       IsDictionary options) =>-                        IDBObjectStore -> name -> [keyPath] -> Maybe options -> m IDBIndex-createIndex'Unchecked self name keyPath options+-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.getAll Mozilla IDBObjectStore.getAll documentation> +getAllRange_ ::+             (MonadIO m) =>+               IDBObjectStore -> Maybe IDBKeyRange -> Maybe Word -> m ()+getAllRange_ self range count   = liftIO-      (fromJust . nullableToMaybe <$>-         (toJSVal keyPath >>=-            \ keyPath' -> js_createIndex' (self) (toJSString name) keyPath'-            (maybeToNullable (fmap toDictionary options))))+      (void+         (js_getAllRange self (maybeToOptional range)+            (maybeToOptional count)))  +foreign import javascript unsafe "$1[\"getAll\"]($2, $3)" js_getAll+        :: IDBObjectStore -> JSVal -> Optional Word -> IO IDBRequest++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.getAll Mozilla IDBObjectStore.getAll documentation> +getAll ::+       (MonadIO m, ToJSVal key) =>+         IDBObjectStore -> key -> Maybe Word -> m IDBRequest+getAll self key count+  = liftIO+      (toJSVal key >>= \ key' -> js_getAll self key'+         (maybeToOptional count))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.getAll Mozilla IDBObjectStore.getAll documentation> +getAll_ ::+        (MonadIO m, ToJSVal key) =>+          IDBObjectStore -> key -> Maybe Word -> m ()+getAll_ self key count+  = liftIO+      (void+         (toJSVal key >>= \ key' -> js_getAll self key'+            (maybeToOptional count)))+ +foreign import javascript unsafe "$1[\"getAllKeys\"]($2, $3)"+        js_getAllKeysRange ::+        IDBObjectStore ->+          Optional IDBKeyRange -> Optional Word -> IO IDBRequest++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.getAllKeys Mozilla IDBObjectStore.getAllKeys documentation> +getAllKeysRange ::+                (MonadIO m) =>+                  IDBObjectStore -> Maybe IDBKeyRange -> Maybe Word -> m IDBRequest+getAllKeysRange self range count+  = liftIO+      (js_getAllKeysRange self (maybeToOptional range)+         (maybeToOptional count))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.getAllKeys Mozilla IDBObjectStore.getAllKeys documentation> +getAllKeysRange_ ::+                 (MonadIO m) =>+                   IDBObjectStore -> Maybe IDBKeyRange -> Maybe Word -> m ()+getAllKeysRange_ self range count+  = liftIO+      (void+         (js_getAllKeysRange self (maybeToOptional range)+            (maybeToOptional count)))+ +foreign import javascript unsafe "$1[\"getAllKeys\"]($2, $3)"+        js_getAllKeys ::+        IDBObjectStore -> JSVal -> Optional Word -> IO IDBRequest++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.getAllKeys Mozilla IDBObjectStore.getAllKeys documentation> +getAllKeys ::+           (MonadIO m, ToJSVal key) =>+             IDBObjectStore -> key -> Maybe Word -> m IDBRequest+getAllKeys self key count+  = liftIO+      (toJSVal key >>= \ key' -> js_getAllKeys self key'+         (maybeToOptional count))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.getAllKeys Mozilla IDBObjectStore.getAllKeys documentation> +getAllKeys_ ::+            (MonadIO m, ToJSVal key) =>+              IDBObjectStore -> key -> Maybe Word -> m ()+getAllKeys_ self key count+  = liftIO+      (void+         (toJSVal key >>= \ key' -> js_getAllKeys self key'+            (maybeToOptional count)))+  foreign import javascript unsafe "$1[\"createIndex\"]($2, $3, $4)"         js_createIndex ::         IDBObjectStore ->           JSString ->-            JSString -> Nullable Dictionary -> IO (Nullable IDBIndex)+            StringOrStrings -> Optional IDBIndexParameters -> IO 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) =>+            (MonadIO m, ToJSString name, IsStringOrStrings keyPath) =>               IDBObjectStore ->-                name -> keyPath -> Maybe options -> m (Maybe IDBIndex)+                name -> keyPath -> Maybe IDBIndexParameters -> m IDBIndex createIndex self name keyPath options   = liftIO-      (nullableToMaybe <$>-         (js_createIndex (self) (toJSString name) (toJSString keyPath)-            (maybeToNullable (fmap toDictionary options))))+      (toJSVal keyPath >>=+         \ keyPath' ->+           js_createIndex self (toJSString name) (StringOrStrings keyPath')+         (maybeToOptional options))  -- | <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 ()+             (MonadIO m, ToJSString name, IsStringOrStrings keyPath) =>+               IDBObjectStore ->+                 name -> keyPath -> Maybe IDBIndexParameters -> m () createIndex_ self name keyPath options   = liftIO       (void-         (js_createIndex (self) (toJSString name) (toJSString keyPath)-            (maybeToNullable (fmap toDictionary options))))---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.createIndex Mozilla IDBObjectStore.createIndex documentation> -createIndexUnsafe ::-                  (MonadIO m, ToJSString name, ToJSString keyPath,-                   IsDictionary options, HasCallStack) =>-                    IDBObjectStore -> name -> keyPath -> Maybe options -> m IDBIndex-createIndexUnsafe self name keyPath options-  = liftIO-      ((nullableToMaybe <$>-          (js_createIndex (self) (toJSString name) (toJSString keyPath)-             (maybeToNullable (fmap toDictionary options))))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.createIndex Mozilla IDBObjectStore.createIndex documentation> -createIndexUnchecked ::-                     (MonadIO m, ToJSString name, ToJSString keyPath,-                      IsDictionary options) =>-                       IDBObjectStore -> name -> keyPath -> Maybe options -> m IDBIndex-createIndexUnchecked self name keyPath options-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_createIndex (self) (toJSString name) (toJSString keyPath)-            (maybeToNullable (fmap toDictionary options))))+         (toJSVal keyPath >>=+            \ keyPath' ->+              js_createIndex self (toJSString name) (StringOrStrings keyPath')+            (maybeToOptional options)))   foreign import javascript unsafe "$1[\"index\"]($2)" js_index ::-        IDBObjectStore -> JSString -> IO (Nullable IDBIndex)+        IDBObjectStore -> JSString -> IO 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)))+        IDBObjectStore -> name -> m IDBIndex+index self name = liftIO (js_index self (toJSString name))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.index Mozilla IDBObjectStore.index documentation>  index_ ::        (MonadIO m, ToJSString name) => IDBObjectStore -> name -> m ()-index_ self name-  = liftIO (void (js_index (self) (toJSString name)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.index Mozilla IDBObjectStore.index documentation> -indexUnsafe ::-            (MonadIO m, ToJSString name, HasCallStack) =>-              IDBObjectStore -> name -> m IDBIndex-indexUnsafe self name-  = liftIO-      ((nullableToMaybe <$> (js_index (self) (toJSString name))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.index Mozilla IDBObjectStore.index documentation> -indexUnchecked ::-               (MonadIO m, ToJSString name) =>-                 IDBObjectStore -> name -> m IDBIndex-indexUnchecked self name-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_index (self) (toJSString name)))+index_ self name = liftIO (void (js_index self (toJSString name)))   foreign import javascript unsafe "$1[\"deleteIndex\"]($2)"         js_deleteIndex :: IDBObjectStore -> JSString -> IO ()@@ -487,167 +441,91 @@ deleteIndex ::             (MonadIO m, ToJSString name) => IDBObjectStore -> name -> m () deleteIndex self name-  = liftIO (js_deleteIndex (self) (toJSString name))+  = liftIO (js_deleteIndex self (toJSString name))   foreign import javascript unsafe "$1[\"count\"]($2)" js_countRange-        ::-        IDBObjectStore -> Nullable IDBKeyRange -> IO (Nullable IDBRequest)+        :: IDBObjectStore -> Optional IDBKeyRange -> IO 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)+           (MonadIO m) => IDBObjectStore -> Maybe IDBKeyRange -> m IDBRequest countRange self range-  = liftIO-      (nullableToMaybe <$>-         (js_countRange (self) (maybeToNullable range)))+  = liftIO (js_countRange self (maybeToOptional range))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.count Mozilla IDBObjectStore.count documentation>  countRange_ ::             (MonadIO m) => IDBObjectStore -> Maybe IDBKeyRange -> m () countRange_ self range-  = liftIO (void (js_countRange (self) (maybeToNullable range)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.count Mozilla IDBObjectStore.count documentation> -countRangeUnsafe ::-                 (MonadIO m, HasCallStack) =>-                   IDBObjectStore -> Maybe IDBKeyRange -> m IDBRequest-countRangeUnsafe self range-  = liftIO-      ((nullableToMaybe <$>-          (js_countRange (self) (maybeToNullable range)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.count Mozilla IDBObjectStore.count documentation> -countRangeUnchecked ::-                    (MonadIO m) => IDBObjectStore -> Maybe IDBKeyRange -> m IDBRequest-countRangeUnchecked self range-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_countRange (self) (maybeToNullable range)))+  = liftIO (void (js_countRange self (maybeToOptional range)))   foreign import javascript unsafe "$1[\"count\"]($2)" js_count ::-        IDBObjectStore -> JSVal -> IO (Nullable IDBRequest)+        IDBObjectStore -> JSVal -> IO 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))---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.count Mozilla IDBObjectStore.count documentation> -count_ :: (MonadIO m) => IDBObjectStore -> JSVal -> m ()-count_ self key = liftIO (void (js_count (self) key))+      (MonadIO m, ToJSVal key) => IDBObjectStore -> key -> m IDBRequest+count self key+  = liftIO (toJSVal key >>= \ key' -> js_count self key')  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.count Mozilla IDBObjectStore.count documentation> -countUnsafe ::-            (MonadIO m, HasCallStack) =>-              IDBObjectStore -> JSVal -> m IDBRequest-countUnsafe self key-  = liftIO-      ((nullableToMaybe <$> (js_count (self) key)) >>=-         maybe (Prelude.error "Nothing to return") return)+count_ :: (MonadIO m, ToJSVal key) => IDBObjectStore -> key -> m ()+count_ self key+  = liftIO (void (toJSVal key >>= \ key' -> js_count self key'))+ +foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName ::+        IDBObjectStore -> JSString -> IO () --- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.count Mozilla IDBObjectStore.count documentation> -countUnchecked ::-               (MonadIO m) => IDBObjectStore -> JSVal -> m IDBRequest-countUnchecked self key-  = liftIO (fromJust . nullableToMaybe <$> (js_count (self) key))+-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.name Mozilla IDBObjectStore.name documentation> +setName ::+        (MonadIO m, ToJSString val) => IDBObjectStore -> val -> m ()+setName self val = liftIO (js_setName self (toJSString val))   foreign import javascript unsafe "$1[\"name\"]" js_getName ::-        IDBObjectStore -> IO (Nullable JSString)+        IDBObjectStore -> IO 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.name Mozilla IDBObjectStore.name documentation> -getNameUnsafe ::-              (MonadIO m, HasCallStack, FromJSString result) =>-                IDBObjectStore -> m result-getNameUnsafe self-  = liftIO-      ((fromMaybeJSString <$> (js_getName (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.name Mozilla IDBObjectStore.name documentation> -getNameUnchecked ::-                 (MonadIO m, FromJSString result) => IDBObjectStore -> m result-getNameUnchecked self-  = liftIO (fromJust . fromMaybeJSString <$> (js_getName (self)))+        (MonadIO m, FromJSString result) => IDBObjectStore -> m result+getName self = liftIO (fromJSString <$> (js_getName self))   foreign import javascript unsafe "$1[\"keyPath\"]" js_getKeyPath ::-        IDBObjectStore -> IO (Nullable IDBAny)+        IDBObjectStore -> IO (Nullable IDBKeyPath)  -- | <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)))+getKeyPath :: (MonadIO m) => IDBObjectStore -> m (Maybe IDBKeyPath)+getKeyPath self = liftIO (nullableToMaybe <$> (js_getKeyPath self))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.keyPath Mozilla IDBObjectStore.keyPath documentation>  getKeyPathUnsafe ::-                 (MonadIO m, HasCallStack) => IDBObjectStore -> m IDBAny+                 (MonadIO m, HasCallStack) => IDBObjectStore -> m IDBKeyPath getKeyPathUnsafe self   = liftIO-      ((nullableToMaybe <$> (js_getKeyPath (self))) >>=+      ((nullableToMaybe <$> (js_getKeyPath self)) >>=          maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.keyPath Mozilla IDBObjectStore.keyPath documentation> -getKeyPathUnchecked :: (MonadIO m) => IDBObjectStore -> m IDBAny+getKeyPathUnchecked ::+                    (MonadIO m) => IDBObjectStore -> m IDBKeyPath getKeyPathUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getKeyPath (self)))+  = liftIO (fromJust . 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.indexNames Mozilla IDBObjectStore.indexNames documentation> -getIndexNamesUnsafe ::-                    (MonadIO m, HasCallStack) => IDBObjectStore -> m DOMStringList-getIndexNamesUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getIndexNames (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        js_getIndexNames :: IDBObjectStore -> IO DOMStringList  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.indexNames Mozilla IDBObjectStore.indexNames documentation> -getIndexNamesUnchecked ::-                       (MonadIO m) => IDBObjectStore -> m DOMStringList-getIndexNamesUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getIndexNames (self)))+getIndexNames :: (MonadIO m) => IDBObjectStore -> m DOMStringList+getIndexNames self = liftIO (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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.transaction Mozilla IDBObjectStore.transaction documentation> -getTransactionUnsafe ::-                     (MonadIO m, HasCallStack) => IDBObjectStore -> m IDBTransaction-getTransactionUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getTransaction (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        js_getTransaction :: IDBObjectStore -> IO IDBTransaction  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.transaction Mozilla IDBObjectStore.transaction documentation> -getTransactionUnchecked ::-                        (MonadIO m) => IDBObjectStore -> m IDBTransaction-getTransactionUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$> (js_getTransaction (self)))+getTransaction :: (MonadIO m) => IDBObjectStore -> m IDBTransaction+getTransaction self = liftIO (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))+getAutoIncrement self = liftIO (js_getAutoIncrement self)
src/GHCJS/DOM/JSFFI/Generated/IDBOpenDBRequest.hs view
@@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -20,6 +20,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)
src/GHCJS/DOM/JSFFI/Generated/IDBRequest.hs view
@@ -7,15 +7,15 @@        (js_getResult, getResult, getResultUnsafe, getResultUnchecked,         js_getError, getError, getErrorUnsafe, getErrorUnchecked,         js_getSource, getSource, getSourceUnsafe, getSourceUnchecked,-        js_getTransaction, getTransaction, getTransactionUnsafe,-        getTransactionUnchecked, js_getReadyState, getReadyState, success,-        error, IDBRequest(..), gTypeIDBRequest, IsIDBRequest, toIDBRequest)+        js_getTransaction, getTransaction, js_getReadyState, getReadyState,+        success, error, IDBRequest(..), gTypeIDBRequest, IsIDBRequest,+        toIDBRequest)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -24,23 +24,26 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums   foreign import javascript unsafe "$1[\"result\"]" js_getResult ::-        IDBRequest -> IO (Nullable IDBAny)+        IDBRequest -> IO (Nullable IDBRequestResult)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBRequest.result Mozilla IDBRequest.result documentation>  getResult ::-          (MonadIO m, IsIDBRequest self) => self -> m (Maybe IDBAny)+          (MonadIO m, IsIDBRequest self) =>+            self -> m (Maybe IDBRequestResult) getResult self   = liftIO (nullableToMaybe <$> (js_getResult (toIDBRequest self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBRequest.result Mozilla IDBRequest.result documentation>  getResultUnsafe ::-                (MonadIO m, IsIDBRequest self, HasCallStack) => self -> m IDBAny+                (MonadIO m, IsIDBRequest self, HasCallStack) =>+                  self -> m IDBRequestResult getResultUnsafe self   = liftIO       ((nullableToMaybe <$> (js_getResult (toIDBRequest self))) >>=@@ -48,7 +51,7 @@  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBRequest.result Mozilla IDBRequest.result documentation>  getResultUnchecked ::-                   (MonadIO m, IsIDBRequest self) => self -> m IDBAny+                   (MonadIO m, IsIDBRequest self) => self -> m IDBRequestResult getResultUnchecked self   = liftIO       (fromJust . nullableToMaybe <$> (js_getResult (toIDBRequest self)))@@ -78,17 +81,19 @@       (fromJust . nullableToMaybe <$> (js_getError (toIDBRequest self)))   foreign import javascript unsafe "$1[\"source\"]" js_getSource ::-        IDBRequest -> IO (Nullable IDBAny)+        IDBRequest -> IO (Nullable IDBRequestSource)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBRequest.source Mozilla IDBRequest.source documentation>  getSource ::-          (MonadIO m, IsIDBRequest self) => self -> m (Maybe IDBAny)+          (MonadIO m, IsIDBRequest self) =>+            self -> m (Maybe IDBRequestSource) getSource self   = liftIO (nullableToMaybe <$> (js_getSource (toIDBRequest self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBRequest.source Mozilla IDBRequest.source documentation>  getSourceUnsafe ::-                (MonadIO m, IsIDBRequest self, HasCallStack) => self -> m IDBAny+                (MonadIO m, IsIDBRequest self, HasCallStack) =>+                  self -> m IDBRequestSource getSourceUnsafe self   = liftIO       ((nullableToMaybe <$> (js_getSource (toIDBRequest self))) >>=@@ -96,47 +101,29 @@  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBRequest.source Mozilla IDBRequest.source documentation>  getSourceUnchecked ::-                   (MonadIO m, IsIDBRequest self) => self -> m IDBAny+                   (MonadIO m, IsIDBRequest self) => self -> m IDBRequestSource getSourceUnchecked self   = liftIO       (fromJust . nullableToMaybe <$> (js_getSource (toIDBRequest self)))   foreign import javascript unsafe "$1[\"transaction\"]"-        js_getTransaction :: IDBRequest -> IO (Nullable IDBTransaction)+        js_getTransaction :: IDBRequest -> IO 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)+               (MonadIO m, IsIDBRequest self) => self -> m IDBTransaction getTransaction self-  = liftIO-      (nullableToMaybe <$> (js_getTransaction (toIDBRequest self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBRequest.transaction Mozilla IDBRequest.transaction documentation> -getTransactionUnsafe ::-                     (MonadIO m, IsIDBRequest self, HasCallStack) =>-                       self -> m IDBTransaction-getTransactionUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getTransaction (toIDBRequest self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBRequest.transaction Mozilla IDBRequest.transaction documentation> -getTransactionUnchecked ::-                        (MonadIO m, IsIDBRequest self) => self -> m IDBTransaction-getTransactionUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_getTransaction (toIDBRequest self)))+  = liftIO (js_getTransaction (toIDBRequest self))   foreign import javascript unsafe "$1[\"readyState\"]"-        js_getReadyState :: IDBRequest -> IO JSString+        js_getReadyState :: IDBRequest -> IO JSVal  -- | <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+              (MonadIO m, IsIDBRequest self) => self -> m IDBRequestReadyState getReadyState self-  = liftIO (fromJSString <$> (js_getReadyState (toIDBRequest self)))+  = liftIO+      ((js_getReadyState (toIDBRequest self)) >>= fromJSValUnchecked)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBRequest.onsuccess Mozilla IDBRequest.onsuccess documentation>  success ::
src/GHCJS/DOM/JSFFI/Generated/IDBTransaction.hs view
@@ -4,17 +4,16 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.IDBTransaction-       (js_objectStore, objectStore, objectStore_, objectStoreUnsafe,-        objectStoreUnchecked, js_abort, abort, js_getMode, getMode,-        js_getDb, getDb, getDbUnsafe, getDbUnchecked, js_getError,-        getError, getErrorUnsafe, getErrorUnchecked, abortEvent, complete,+       (js_objectStore, objectStore, objectStore_, js_abort, abort,+        js_getObjectStoreNames, getObjectStoreNames, js_getMode, getMode,+        js_getDb, getDb, js_getError, getError, abortEvent, complete,         error, IDBTransaction(..), gTypeIDBTransaction)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -23,101 +22,63 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums   foreign import javascript unsafe "$1[\"objectStore\"]($2)"-        js_objectStore ::-        IDBTransaction -> JSString -> IO (Nullable IDBObjectStore)+        js_objectStore :: IDBTransaction -> JSString -> IO 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)+              IDBTransaction -> name -> m IDBObjectStore objectStore self name-  = liftIO-      (nullableToMaybe <$> (js_objectStore (self) (toJSString name)))+  = liftIO (js_objectStore self (toJSString name))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBTransaction.objectStore Mozilla IDBTransaction.objectStore documentation>  objectStore_ ::              (MonadIO m, ToJSString name) => IDBTransaction -> name -> m () objectStore_ self name-  = liftIO (void (js_objectStore (self) (toJSString name)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBTransaction.objectStore Mozilla IDBTransaction.objectStore documentation> -objectStoreUnsafe ::-                  (MonadIO m, ToJSString name, HasCallStack) =>-                    IDBTransaction -> name -> m IDBObjectStore-objectStoreUnsafe self name-  = liftIO-      ((nullableToMaybe <$> (js_objectStore (self) (toJSString name)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBTransaction.objectStore Mozilla IDBTransaction.objectStore documentation> -objectStoreUnchecked ::-                     (MonadIO m, ToJSString name) =>-                       IDBTransaction -> name -> m IDBObjectStore-objectStoreUnchecked self name-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_objectStore (self) (toJSString name)))+  = liftIO (void (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))+abort self = liftIO (js_abort self)  +foreign import javascript unsafe "$1[\"objectStoreNames\"]"+        js_getObjectStoreNames :: IDBTransaction -> IO DOMStringList++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBTransaction.objectStoreNames Mozilla IDBTransaction.objectStoreNames documentation> +getObjectStoreNames ::+                    (MonadIO m) => IDBTransaction -> m DOMStringList+getObjectStoreNames self = liftIO (js_getObjectStoreNames self)+  foreign import javascript unsafe "$1[\"mode\"]" js_getMode ::-        IDBTransaction -> IO JSString+        IDBTransaction -> IO JSVal  -- | <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)))+getMode :: (MonadIO m) => IDBTransaction -> m IDBTransactionMode+getMode self = liftIO ((js_getMode self) >>= fromJSValUnchecked)   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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBTransaction.db Mozilla IDBTransaction.db documentation> -getDbUnsafe ::-            (MonadIO m, HasCallStack) => IDBTransaction -> m IDBDatabase-getDbUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getDb (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        IDBTransaction -> IO IDBDatabase  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBTransaction.db Mozilla IDBTransaction.db documentation> -getDbUnchecked :: (MonadIO m) => IDBTransaction -> m IDBDatabase-getDbUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getDb (self)))+getDb :: (MonadIO m) => IDBTransaction -> m IDBDatabase+getDb self = liftIO (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.error Mozilla IDBTransaction.error documentation> -getErrorUnsafe ::-               (MonadIO m, HasCallStack) => IDBTransaction -> m DOMError-getErrorUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getError (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        IDBTransaction -> IO DOMError  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBTransaction.error Mozilla IDBTransaction.error documentation> -getErrorUnchecked :: (MonadIO m) => IDBTransaction -> m DOMError-getErrorUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getError (self)))+getError :: (MonadIO m) => IDBTransaction -> m DOMError+getError self = liftIO (js_getError self)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBTransaction.onabort Mozilla IDBTransaction.onabort documentation>  abortEvent :: EventName IDBTransaction Event
src/GHCJS/DOM/JSFFI/Generated/IDBVersionChangeEvent.hs view
@@ -4,7 +4,8 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.IDBVersionChangeEvent-       (js_getOldVersion, getOldVersion, js_getNewVersion, getNewVersion,+       (js_newIDBVersionChangeEvent, newIDBVersionChangeEvent,+        js_getOldVersion, getOldVersion, js_getNewVersion, getNewVersion,         getNewVersionUnsafe, getNewVersionUnchecked,         IDBVersionChangeEvent(..), gTypeIDBVersionChangeEvent)        where@@ -12,7 +13,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -21,17 +22,33 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums  +foreign import javascript unsafe+        "new window[\"IDBVersionChangeEvent\"]($1,\n$2)"+        js_newIDBVersionChangeEvent ::+        JSString ->+          Optional IDBVersionChangeEventInit -> IO IDBVersionChangeEvent++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBVersionChangeEvent Mozilla IDBVersionChangeEvent documentation> +newIDBVersionChangeEvent ::+                         (MonadIO m, ToJSString type') =>+                           type' -> Maybe IDBVersionChangeEventInit -> m IDBVersionChangeEvent+newIDBVersionChangeEvent type' eventInitDict+  = liftIO+      (js_newIDBVersionChangeEvent (toJSString type')+         (maybeToOptional eventInitDict))+  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)))+getOldVersion self = liftIO (round <$> (js_getOldVersion self))   foreign import javascript unsafe "$1[\"newVersion\"]"         js_getNewVersion :: IDBVersionChangeEvent -> IO (Nullable Double)@@ -40,15 +57,14 @@ getNewVersion ::               (MonadIO m) => IDBVersionChangeEvent -> m (Maybe Word64) getNewVersion self-  = liftIO-      (fmap round . nullableToMaybe <$> (js_getNewVersion (self)))+  = liftIO (fmap round . nullableToMaybe <$> (js_getNewVersion self))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBVersionChangeEvent.newVersion Mozilla IDBVersionChangeEvent.newVersion documentation>  getNewVersionUnsafe ::                     (MonadIO m, HasCallStack) => IDBVersionChangeEvent -> m Word64 getNewVersionUnsafe self   = liftIO-      ((fmap round . nullableToMaybe <$> (js_getNewVersion (self))) >>=+      ((fmap round . nullableToMaybe <$> (js_getNewVersion self)) >>=          maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBVersionChangeEvent.newVersion Mozilla IDBVersionChangeEvent.newVersion documentation> @@ -56,4 +72,4 @@                        (MonadIO m) => IDBVersionChangeEvent -> m Word64 getNewVersionUnchecked self   = liftIO-      (round . fromJust . nullableToMaybe <$> (js_getNewVersion (self)))+      (round . fromJust . nullableToMaybe <$> (js_getNewVersion self))
src/GHCJS/DOM/JSFFI/Generated/ImageData.hs view
@@ -5,14 +5,14 @@ {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.ImageData        (js_newImageData, newImageData, js_newImageData', newImageData',-        js_getWidth, getWidth, js_getHeight, getHeight, ImageData(..),-        gTypeImageData)+        js_getWidth, getWidth, js_getHeight, getHeight, js_getData,+        getData, ImageData(..), gTypeImageData)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -21,6 +21,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -28,17 +29,16 @@   foreign import javascript unsafe         "new window[\"ImageData\"]($1, $2,\n$3)" js_newImageData ::-        Nullable Uint8ClampedArray -> Word -> Word -> IO ImageData+        Uint8ClampedArray -> Word -> Optional 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+               data' -> Word -> Maybe Word -> m ImageData newImageData data' sw sh   = liftIO-      (js_newImageData (maybeToNullable (fmap toUint8ClampedArray data'))-         sw-         sh)+      (js_newImageData (toUint8ClampedArray data') sw+         (maybeToOptional sh))   foreign import javascript unsafe         "new window[\"ImageData\"]($1, $2)" js_newImageData' ::@@ -49,15 +49,22 @@ newImageData' sw sh = liftIO (js_newImageData' sw sh)   foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::-        ImageData -> IO Int+        ImageData -> IO Word  -- | <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))+getWidth :: (MonadIO m) => ImageData -> m Word+getWidth self = liftIO (js_getWidth self)   foreign import javascript unsafe "$1[\"height\"]" js_getHeight ::-        ImageData -> IO Int+        ImageData -> IO Word  -- | <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))+getHeight :: (MonadIO m) => ImageData -> m Word+getHeight self = liftIO (js_getHeight self)+ +foreign import javascript unsafe "$1[\"data\"]" js_getData ::+        ImageData -> IO Uint8ClampedArray++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ImageData.data Mozilla ImageData.data documentation> +getData :: (MonadIO m) => ImageData -> m Uint8ClampedArray+getData self = liftIO (js_getData self)
+ src/GHCJS/DOM/JSFFI/Generated/InputEvent.hs view
@@ -0,0 +1,110 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+module GHCJS.DOM.JSFFI.Generated.InputEvent+       (js_newInputEvent, newInputEvent, js_getTargetRanges,+        getTargetRanges, getTargetRanges_, js_getInputType, getInputType,+        js_getData, getData, getDataUnsafe, getDataUnchecked,+        js_getDataTransfer, getDataTransfer, getDataTransferUnsafe,+        getDataTransferUnchecked, InputEvent(..), gTypeInputEvent)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error)+import Data.Typeable (Typeable)+import GHCJS.Types (JSVal(..), JSString)+import GHCJS.Foreign (jsNull, jsUndefined)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Control.Monad (void)+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import Data.Maybe (fromJust)+import Data.Traversable (mapM)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.JSFFI.Generated.Enums+ +foreign import javascript unsafe+        "new window[\"InputEvent\"]($1, $2)" js_newInputEvent ::+        JSString -> Optional InputEventInit -> IO InputEvent++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InputEvent Mozilla InputEvent documentation> +newInputEvent ::+              (MonadIO m, ToJSString type') =>+                type' -> Maybe InputEventInit -> m InputEvent+newInputEvent type' eventInitDict+  = liftIO+      (js_newInputEvent (toJSString type')+         (maybeToOptional eventInitDict))+ +foreign import javascript unsafe "$1[\"getTargetRanges\"]()"+        js_getTargetRanges :: InputEvent -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InputEvent.getTargetRanges Mozilla InputEvent.getTargetRanges documentation> +getTargetRanges :: (MonadIO m) => InputEvent -> m [StaticRange]+getTargetRanges self+  = liftIO ((js_getTargetRanges self) >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InputEvent.getTargetRanges Mozilla InputEvent.getTargetRanges documentation> +getTargetRanges_ :: (MonadIO m) => InputEvent -> m ()+getTargetRanges_ self = liftIO (void (js_getTargetRanges self))+ +foreign import javascript unsafe "$1[\"inputType\"]"+        js_getInputType :: InputEvent -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InputEvent.inputType Mozilla InputEvent.inputType documentation> +getInputType ::+             (MonadIO m, FromJSString result) => InputEvent -> m result+getInputType self+  = liftIO (fromJSString <$> (js_getInputType self))+ +foreign import javascript unsafe "$1[\"data\"]" js_getData ::+        InputEvent -> IO (Nullable JSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InputEvent.data Mozilla InputEvent.data documentation> +getData ::+        (MonadIO m, FromJSString result) => InputEvent -> m (Maybe result)+getData self = liftIO (fromMaybeJSString <$> (js_getData self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InputEvent.data Mozilla InputEvent.data documentation> +getDataUnsafe ::+              (MonadIO m, HasCallStack, FromJSString result) =>+                InputEvent -> m result+getDataUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getData self)) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InputEvent.data Mozilla InputEvent.data documentation> +getDataUnchecked ::+                 (MonadIO m, FromJSString result) => InputEvent -> m result+getDataUnchecked self+  = liftIO (fromJust . fromMaybeJSString <$> (js_getData self))+ +foreign import javascript unsafe "$1[\"dataTransfer\"]"+        js_getDataTransfer :: InputEvent -> IO (Nullable DataTransfer)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InputEvent.dataTransfer Mozilla InputEvent.dataTransfer documentation> +getDataTransfer ::+                (MonadIO m) => InputEvent -> m (Maybe DataTransfer)+getDataTransfer self+  = liftIO (nullableToMaybe <$> (js_getDataTransfer self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InputEvent.dataTransfer Mozilla InputEvent.dataTransfer documentation> +getDataTransferUnsafe ::+                      (MonadIO m, HasCallStack) => InputEvent -> m DataTransfer+getDataTransferUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getDataTransfer self)) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InputEvent.dataTransfer Mozilla InputEvent.dataTransfer documentation> +getDataTransferUnchecked ::+                         (MonadIO m) => InputEvent -> m DataTransfer+getDataTransferUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getDataTransfer self))
src/GHCJS/DOM/JSFFI/Generated/InspectorFrontendHost.hs view
@@ -5,30 +5,33 @@ {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} 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, localizedStringsURL_, js_debuggableType,-        debuggableType, debuggableType_, js_copyText, copyText,-        js_openInNewTab, openInNewTab, js_canSave, canSave, canSave_,-        js_save, save, js_append, append, js_close, close, js_platform,-        platform, platform_, js_port, port, port_, js_showContextMenu,-        showContextMenu, js_dispatchEventAsContextMenuEvent,+        bringToFront, js_inspectedURLChanged, inspectedURLChanged,+        js_setZoomFactor, setZoomFactor, js_zoomFactor, zoomFactor,+        zoomFactor_, js_userInterfaceLayoutDirection,+        userInterfaceLayoutDirection, userInterfaceLayoutDirection_,+        js_requestSetDockSide, requestSetDockSide,+        js_setAttachedWindowHeight, setAttachedWindowHeight,+        js_setAttachedWindowWidth, setAttachedWindowWidth,+        js_startWindowDrag, startWindowDrag, js_moveWindowBy, moveWindowBy,+        js_localizedStringsURL, localizedStringsURL, localizedStringsURL_,+        js_backendCommandsURL, backendCommandsURL, backendCommandsURL_,+        js_debuggableType, debuggableType, debuggableType_,+        js_inspectionLevel, inspectionLevel, inspectionLevel_, js_copyText,+        copyText, js_killText, killText, js_openInNewTab, openInNewTab,+        js_canSave, canSave, canSave_, js_save, save, js_append, append,+        js_close, close, js_platform, platform, platform_, js_port, port,+        port_, js_showContextMenu, showContextMenu,+        js_dispatchEventAsContextMenuEvent,         dispatchEventAsContextMenuEvent, js_sendMessageToBackend,         sendMessageToBackend, js_unbufferedLog, unbufferedLog,         js_isUnderTest, isUnderTest, isUnderTest_, js_beep, beep,-        js_canInspectWorkers, canInspectWorkers, canInspectWorkers_,-        js_canSaveAs, canSaveAs, canSaveAs_, InspectorFrontendHost(..),-        gTypeInspectorFrontendHost)+        InspectorFrontendHost(..), gTypeInspectorFrontendHost)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -37,6 +40,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -47,29 +51,21 @@  -- | <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))+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))+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)+bringToFront self = liftIO (js_bringToFront self)   foreign import javascript unsafe "$1[\"inspectedURLChanged\"]($2)"         js_inspectedURLChanged ::@@ -80,8 +76,45 @@                     (MonadIO m, ToJSString newURL) =>                       InspectorFrontendHost -> newURL -> m () inspectedURLChanged self newURL-  = liftIO (js_inspectedURLChanged (self) (toJSString newURL))+  = liftIO (js_inspectedURLChanged self (toJSString newURL))  +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[\"zoomFactor\"]()"+        js_zoomFactor :: InspectorFrontendHost -> IO Float++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.zoomFactor Mozilla InspectorFrontendHost.zoomFactor documentation> +zoomFactor :: (MonadIO m) => InspectorFrontendHost -> m Float+zoomFactor self = liftIO (js_zoomFactor self)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.zoomFactor Mozilla InspectorFrontendHost.zoomFactor documentation> +zoomFactor_ :: (MonadIO m) => InspectorFrontendHost -> m ()+zoomFactor_ self = liftIO (void (js_zoomFactor self))+ +foreign import javascript unsafe+        "$1[\"userInterfaceLayoutDirection\"]()"+        js_userInterfaceLayoutDirection ::+        InspectorFrontendHost -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.userInterfaceLayoutDirection Mozilla InspectorFrontendHost.userInterfaceLayoutDirection documentation> +userInterfaceLayoutDirection ::+                             (MonadIO m, FromJSString result) =>+                               InspectorFrontendHost -> m result+userInterfaceLayoutDirection self+  = liftIO (fromJSString <$> (js_userInterfaceLayoutDirection self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.userInterfaceLayoutDirection Mozilla InspectorFrontendHost.userInterfaceLayoutDirection documentation> +userInterfaceLayoutDirection_ ::+                              (MonadIO m) => InspectorFrontendHost -> m ()+userInterfaceLayoutDirection_ self+  = liftIO (void (js_userInterfaceLayoutDirection self))+  foreign import javascript unsafe "$1[\"requestSetDockSide\"]($2)"         js_requestSetDockSide :: InspectorFrontendHost -> JSString -> IO () @@ -90,7 +123,7 @@                    (MonadIO m, ToJSString side) =>                      InspectorFrontendHost -> side -> m () requestSetDockSide self side-  = liftIO (js_requestSetDockSide (self) (toJSString side))+  = liftIO (js_requestSetDockSide self (toJSString side))   foreign import javascript unsafe         "$1[\"setAttachedWindowHeight\"]($2)" js_setAttachedWindowHeight ::@@ -100,7 +133,7 @@ setAttachedWindowHeight ::                         (MonadIO m) => InspectorFrontendHost -> Word -> m () setAttachedWindowHeight self height-  = liftIO (js_setAttachedWindowHeight (self) height)+  = liftIO (js_setAttachedWindowHeight self height)   foreign import javascript unsafe         "$1[\"setAttachedWindowWidth\"]($2)" js_setAttachedWindowWidth ::@@ -110,16 +143,14 @@ setAttachedWindowWidth ::                        (MonadIO m) => InspectorFrontendHost -> Word -> m () setAttachedWindowWidth self width-  = liftIO (js_setAttachedWindowWidth (self) width)+  = liftIO (js_setAttachedWindowWidth self width)  -foreign import javascript unsafe "$1[\"setToolbarHeight\"]($2)"-        js_setToolbarHeight :: InspectorFrontendHost -> Float -> IO ()+foreign import javascript unsafe "$1[\"startWindowDrag\"]()"+        js_startWindowDrag :: InspectorFrontendHost -> 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)+-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.startWindowDrag Mozilla InspectorFrontendHost.startWindowDrag documentation> +startWindowDrag :: (MonadIO m) => InspectorFrontendHost -> m ()+startWindowDrag self = liftIO (js_startWindowDrag self)   foreign import javascript unsafe "$1[\"moveWindowBy\"]($2, $3)"         js_moveWindowBy :: InspectorFrontendHost -> Float -> Float -> IO ()@@ -127,7 +158,7 @@ -- | <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)+moveWindowBy self x y = liftIO (js_moveWindowBy self x y)   foreign import javascript unsafe "$1[\"localizedStringsURL\"]()"         js_localizedStringsURL :: InspectorFrontendHost -> IO JSString@@ -137,14 +168,29 @@                     (MonadIO m, FromJSString result) =>                       InspectorFrontendHost -> m result localizedStringsURL self-  = liftIO (fromJSString <$> (js_localizedStringsURL (self)))+  = liftIO (fromJSString <$> (js_localizedStringsURL self))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.localizedStringsURL Mozilla InspectorFrontendHost.localizedStringsURL documentation>  localizedStringsURL_ ::                      (MonadIO m) => InspectorFrontendHost -> m () localizedStringsURL_ self-  = liftIO (void (js_localizedStringsURL (self)))+  = liftIO (void (js_localizedStringsURL self))  +foreign import javascript unsafe "$1[\"backendCommandsURL\"]()"+        js_backendCommandsURL :: InspectorFrontendHost -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.backendCommandsURL Mozilla InspectorFrontendHost.backendCommandsURL documentation> +backendCommandsURL ::+                   (MonadIO m, FromJSString result) =>+                     InspectorFrontendHost -> m result+backendCommandsURL self+  = liftIO (fromJSString <$> (js_backendCommandsURL self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.backendCommandsURL Mozilla InspectorFrontendHost.backendCommandsURL documentation> +backendCommandsURL_ :: (MonadIO m) => InspectorFrontendHost -> m ()+backendCommandsURL_ self+  = liftIO (void (js_backendCommandsURL self))+  foreign import javascript unsafe "$1[\"debuggableType\"]()"         js_debuggableType :: InspectorFrontendHost -> IO JSString @@ -153,12 +199,23 @@                (MonadIO m, FromJSString result) =>                  InspectorFrontendHost -> m result debuggableType self-  = liftIO (fromJSString <$> (js_debuggableType (self)))+  = liftIO (fromJSString <$> (js_debuggableType self))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.debuggableType Mozilla InspectorFrontendHost.debuggableType documentation>  debuggableType_ :: (MonadIO m) => InspectorFrontendHost -> m ()-debuggableType_ self = liftIO (void (js_debuggableType (self)))+debuggableType_ self = liftIO (void (js_debuggableType self))  +foreign import javascript unsafe "$1[\"inspectionLevel\"]()"+        js_inspectionLevel :: InspectorFrontendHost -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.inspectionLevel Mozilla InspectorFrontendHost.inspectionLevel documentation> +inspectionLevel :: (MonadIO m) => InspectorFrontendHost -> m Word+inspectionLevel self = liftIO (js_inspectionLevel self)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.inspectionLevel Mozilla InspectorFrontendHost.inspectionLevel documentation> +inspectionLevel_ :: (MonadIO m) => InspectorFrontendHost -> m ()+inspectionLevel_ self = liftIO (void (js_inspectionLevel self))+  foreign import javascript unsafe "$1[\"copyText\"]($2)" js_copyText         :: InspectorFrontendHost -> JSString -> IO () @@ -166,8 +223,21 @@ copyText ::          (MonadIO m, ToJSString text) =>            InspectorFrontendHost -> text -> m ()-copyText self text = liftIO (js_copyText (self) (toJSString text))+copyText self text = liftIO (js_copyText self (toJSString text))  +foreign import javascript unsafe "$1[\"killText\"]($2, $3, $4)"+        js_killText ::+        InspectorFrontendHost -> JSString -> Bool -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.killText Mozilla InspectorFrontendHost.killText documentation> +killText ::+         (MonadIO m, ToJSString text) =>+           InspectorFrontendHost -> text -> Bool -> Bool -> m ()+killText self text shouldPrependToKillRing shouldStartNewSequence+  = liftIO+      (js_killText self (toJSString text) shouldPrependToKillRing+         shouldStartNewSequence)+  foreign import javascript unsafe "$1[\"openInNewTab\"]($2)"         js_openInNewTab :: InspectorFrontendHost -> JSString -> IO () @@ -175,18 +245,18 @@ openInNewTab ::              (MonadIO m, ToJSString url) => InspectorFrontendHost -> url -> m () openInNewTab self url-  = liftIO (js_openInNewTab (self) (toJSString 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))+canSave self = liftIO (js_canSave self)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.canSave Mozilla InspectorFrontendHost.canSave documentation>  canSave_ :: (MonadIO m) => InspectorFrontendHost -> m ()-canSave_ self = liftIO (void (js_canSave (self)))+canSave_ self = liftIO (void (js_canSave self))   foreign import javascript unsafe "$1[\"save\"]($2, $3, $4, $5)"         js_save ::@@ -199,7 +269,7 @@        InspectorFrontendHost -> url -> content -> Bool -> Bool -> m () save self url content base64Encoded forceSaveAs   = liftIO-      (js_save (self) (toJSString url) (toJSString content) base64Encoded+      (js_save self (toJSString url) (toJSString content) base64Encoded          forceSaveAs)   foreign import javascript unsafe "$1[\"append\"]($2, $3)" js_append@@ -210,7 +280,7 @@        (MonadIO m, ToJSString url, ToJSString content) =>          InspectorFrontendHost -> url -> content -> m () append self url content-  = liftIO (js_append (self) (toJSString url) (toJSString content))+  = liftIO (js_append self (toJSString url) (toJSString content))   foreign import javascript unsafe "$1[\"close\"]($2)" js_close ::         InspectorFrontendHost -> JSString -> IO ()@@ -218,7 +288,7 @@ -- | <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))+close self url = liftIO (js_close self (toJSString url))   foreign import javascript unsafe "$1[\"platform\"]()" js_platform         :: InspectorFrontendHost -> IO JSString@@ -227,11 +297,11 @@ platform ::          (MonadIO m, FromJSString result) =>            InspectorFrontendHost -> m result-platform self = liftIO (fromJSString <$> (js_platform (self)))+platform self = liftIO (fromJSString <$> (js_platform self))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.platform Mozilla InspectorFrontendHost.platform documentation>  platform_ :: (MonadIO m) => InspectorFrontendHost -> m ()-platform_ self = liftIO (void (js_platform (self)))+platform_ self = liftIO (void (js_platform self))   foreign import javascript unsafe "$1[\"port\"]()" js_port ::         InspectorFrontendHost -> IO JSString@@ -240,30 +310,29 @@ port ::      (MonadIO m, FromJSString result) =>        InspectorFrontendHost -> m result-port self = liftIO (fromJSString <$> (js_port (self)))+port self = liftIO (fromJSString <$> (js_port self))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.port Mozilla InspectorFrontendHost.port documentation>  port_ :: (MonadIO m) => InspectorFrontendHost -> m ()-port_ self = liftIO (void (js_port (self)))+port_ self = liftIO (void (js_port self))   foreign import javascript unsafe "$1[\"showContextMenu\"]($2, $3)"         js_showContextMenu ::-        InspectorFrontendHost -> Nullable MouseEvent -> JSVal -> IO ()+        InspectorFrontendHost -> 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 ()+                (MonadIO m, IsMouseEvent event, ToJSVal items) =>+                  InspectorFrontendHost -> event -> items -> m () showContextMenu self event items   = liftIO-      (js_showContextMenu (self)-         (maybeToNullable (fmap toMouseEvent event))-         items)+      (toJSVal items >>=+         \ items' -> js_showContextMenu self (toMouseEvent event) items')   foreign import javascript unsafe         "$1[\"dispatchEventAsContextMenuEvent\"]($2)"         js_dispatchEventAsContextMenuEvent ::-        InspectorFrontendHost -> Nullable Event -> IO ()+        InspectorFrontendHost -> Optional Event -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.dispatchEventAsContextMenuEvent Mozilla InspectorFrontendHost.dispatchEventAsContextMenuEvent documentation>  dispatchEventAsContextMenuEvent ::@@ -271,8 +340,8 @@                                   InspectorFrontendHost -> Maybe event -> m () dispatchEventAsContextMenuEvent self event   = liftIO-      (js_dispatchEventAsContextMenuEvent (self)-         (maybeToNullable (fmap toEvent event)))+      (js_dispatchEventAsContextMenuEvent self+         (maybeToOptional (fmap toEvent event)))   foreign import javascript unsafe "$1[\"sendMessageToBackend\"]($2)"         js_sendMessageToBackend ::@@ -283,7 +352,7 @@                      (MonadIO m, ToJSString message) =>                        InspectorFrontendHost -> message -> m () sendMessageToBackend self message-  = liftIO (js_sendMessageToBackend (self) (toJSString message))+  = liftIO (js_sendMessageToBackend self (toJSString message))   foreign import javascript unsafe "$1[\"unbufferedLog\"]($2)"         js_unbufferedLog :: InspectorFrontendHost -> JSString -> IO ()@@ -293,46 +362,22 @@               (MonadIO m, ToJSString message) =>                 InspectorFrontendHost -> message -> m () unbufferedLog self message-  = liftIO (js_unbufferedLog (self) (toJSString 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))+isUnderTest self = liftIO (js_isUnderTest self)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.isUnderTest Mozilla InspectorFrontendHost.isUnderTest documentation>  isUnderTest_ :: (MonadIO m) => InspectorFrontendHost -> m ()-isUnderTest_ self = liftIO (void (js_isUnderTest (self)))+isUnderTest_ self = liftIO (void (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))---- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.canInspectWorkers Mozilla InspectorFrontendHost.canInspectWorkers documentation> -canInspectWorkers_ :: (MonadIO m) => InspectorFrontendHost -> m ()-canInspectWorkers_ self-  = liftIO (void (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))---- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.canSaveAs Mozilla InspectorFrontendHost.canSaveAs documentation> -canSaveAs_ :: (MonadIO m) => InspectorFrontendHost -> m ()-canSaveAs_ self = liftIO (void (js_canSaveAs (self)))+beep self = liftIO (js_beep self)
− src/GHCJS/DOM/JSFFI/Generated/InternalSettings.hs 
@@ -1,414 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility-{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}-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,-        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(..), gTypeInternalSettings)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)-import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))-import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import 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))---- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.shouldDisplayTrackKind Mozilla InternalSettings.shouldDisplayTrackKind documentation> -shouldDisplayTrackKind_ ::-                        (MonadIO m, ToJSString trackKind) =>-                          InternalSettings -> trackKind -> m ()-shouldDisplayTrackKind_ self trackKind-  = liftIO-      (void (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 
@@ -1,3486 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility-{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}-module GHCJS.DOM.JSFFI.Generated.Internals-       (js_address, address, address_, js_nodeNeedsStyleRecalc,-        nodeNeedsStyleRecalc, nodeNeedsStyleRecalc_, js_description,-        description, description_, js_hasPausedImageAnimations,-        hasPausedImageAnimations, hasPausedImageAnimations_,-        js_elementRenderTreeAsText, elementRenderTreeAsText,-        elementRenderTreeAsText_, js_isPreloaded, isPreloaded,-        isPreloaded_, js_isLoadingFromMemoryCache,-        isLoadingFromMemoryCache, isLoadingFromMemoryCache_,-        js_xhrResponseSource, xhrResponseSource, xhrResponseSource_,-        js_clearMemoryCache, clearMemoryCache, js_pruneMemoryCacheToSize,-        pruneMemoryCacheToSize, js_memoryCacheSize, memoryCacheSize,-        memoryCacheSize_, js_clearPageCache, clearPageCache,-        js_pageCacheSize, pageCacheSize, pageCacheSize_,-        js_computedStyleIncludingVisitedInfo,-        computedStyleIncludingVisitedInfo,-        computedStyleIncludingVisitedInfo_,-        computedStyleIncludingVisitedInfoUnsafe,-        computedStyleIncludingVisitedInfoUnchecked, js_ensureShadowRoot,-        ensureShadowRoot, ensureShadowRoot_, ensureShadowRootUnsafe,-        ensureShadowRootUnchecked, js_createShadowRoot, createShadowRoot,-        createShadowRoot_, createShadowRootUnsafe,-        createShadowRootUnchecked, js_shadowRoot, shadowRoot, shadowRoot_,-        shadowRootUnsafe, shadowRootUnchecked, js_shadowRootType,-        shadowRootType, shadowRootType_, js_includerFor, includerFor,-        includerFor_, includerForUnsafe, includerForUnchecked,-        js_shadowPseudoId, shadowPseudoId, shadowPseudoId_,-        js_setShadowPseudoId, setShadowPseudoId, js_treeScopeRootNode,-        treeScopeRootNode, treeScopeRootNode_, treeScopeRootNodeUnsafe,-        treeScopeRootNodeUnchecked, js_parentTreeScope, parentTreeScope,-        parentTreeScope_, parentTreeScopeUnsafe, parentTreeScopeUnchecked,-        js_lastSpatialNavigationCandidateCount,-        lastSpatialNavigationCandidateCount,-        lastSpatialNavigationCandidateCount_, js_numberOfActiveAnimations,-        numberOfActiveAnimations, numberOfActiveAnimations_,-        js_suspendAnimations, suspendAnimations, js_resumeAnimations,-        resumeAnimations, js_animationsAreSuspended,-        animationsAreSuspended, animationsAreSuspended_,-        js_pauseAnimationAtTimeOnElement, pauseAnimationAtTimeOnElement,-        pauseAnimationAtTimeOnElement_,-        js_pauseAnimationAtTimeOnPseudoElement,-        pauseAnimationAtTimeOnPseudoElement,-        pauseAnimationAtTimeOnPseudoElement_,-        js_pauseTransitionAtTimeOnElement, pauseTransitionAtTimeOnElement,-        pauseTransitionAtTimeOnElement_,-        js_pauseTransitionAtTimeOnPseudoElement,-        pauseTransitionAtTimeOnPseudoElement,-        pauseTransitionAtTimeOnPseudoElement_, js_attached, attached,-        attached_, js_visiblePlaceholder, visiblePlaceholder,-        visiblePlaceholder_, js_selectColorInColorChooser,-        selectColorInColorChooser,-        js_formControlStateOfPreviousHistoryItem,-        formControlStateOfPreviousHistoryItem,-        formControlStateOfPreviousHistoryItem_,-        js_setFormControlStateOfPreviousHistoryItem,-        setFormControlStateOfPreviousHistoryItem, js_absoluteCaretBounds,-        absoluteCaretBounds, absoluteCaretBounds_,-        absoluteCaretBoundsUnsafe, absoluteCaretBoundsUnchecked,-        js_boundingBox, boundingBox, boundingBox_, boundingBoxUnsafe,-        boundingBoxUnchecked, js_inspectorHighlightRects,-        inspectorHighlightRects, inspectorHighlightRects_,-        inspectorHighlightRectsUnsafe, inspectorHighlightRectsUnchecked,-        js_inspectorHighlightObject, inspectorHighlightObject,-        inspectorHighlightObject_, js_markerCountForNode,-        markerCountForNode, markerCountForNode_, js_markerRangeForNode,-        markerRangeForNode, markerRangeForNode_, markerRangeForNodeUnsafe,-        markerRangeForNodeUnchecked, js_markerDescriptionForNode,-        markerDescriptionForNode, markerDescriptionForNode_,-        js_addTextMatchMarker, addTextMatchMarker,-        js_setMarkedTextMatchesAreHighlighted,-        setMarkedTextMatchesAreHighlighted, js_invalidateFontCache,-        invalidateFontCache, js_setScrollViewPosition,-        setScrollViewPosition, js_setPagination, setPagination,-        js_configurationForViewport, configurationForViewport,-        configurationForViewport_, js_wasLastChangeUserEdit,-        wasLastChangeUserEdit, wasLastChangeUserEdit_,-        js_elementShouldAutoComplete, elementShouldAutoComplete,-        elementShouldAutoComplete_, js_setEditingValue, setEditingValue,-        js_setAutofilled, setAutofilled, js_countMatchesForText,-        countMatchesForText, countMatchesForText_, js_paintControlTints,-        paintControlTints, js_scrollElementToRect, scrollElementToRect,-        js_rangeFromLocationAndLength, rangeFromLocationAndLength,-        rangeFromLocationAndLength_, rangeFromLocationAndLengthUnsafe,-        rangeFromLocationAndLengthUnchecked, js_locationFromRange,-        locationFromRange, locationFromRange_, js_lengthFromRange,-        lengthFromRange, lengthFromRange_, js_rangeAsText, rangeAsText,-        rangeAsText_, js_subrange, subrange, subrange_, subrangeUnsafe,-        subrangeUnchecked, js_rangeForDictionaryLookupAtLocation,-        rangeForDictionaryLookupAtLocation,-        rangeForDictionaryLookupAtLocation_,-        rangeForDictionaryLookupAtLocationUnsafe,-        rangeForDictionaryLookupAtLocationUnchecked,-        js_setDelegatesScrolling, setDelegatesScrolling,-        js_lastSpellCheckRequestSequence, lastSpellCheckRequestSequence,-        lastSpellCheckRequestSequence_, js_lastSpellCheckProcessedSequence,-        lastSpellCheckProcessedSequence, lastSpellCheckProcessedSequence_,-        js_userPreferredLanguages, userPreferredLanguages,-        userPreferredLanguages_, js_setUserPreferredLanguages,-        setUserPreferredLanguages, js_wheelEventHandlerCount,-        wheelEventHandlerCount, wheelEventHandlerCount_,-        js_touchEventHandlerCount, touchEventHandlerCount,-        touchEventHandlerCount_, js_nodesFromRect, nodesFromRect,-        nodesFromRect_, nodesFromRectUnsafe, nodesFromRectUnchecked,-        js_parserMetaData, parserMetaData, parserMetaData_,-        js_updateEditorUINowIfScheduled, updateEditorUINowIfScheduled,-        js_hasSpellingMarker, hasSpellingMarker, hasSpellingMarker_,-        js_hasGrammarMarker, hasGrammarMarker, hasGrammarMarker_,-        js_hasAutocorrectedMarker, hasAutocorrectedMarker,-        hasAutocorrectedMarker_, js_setContinuousSpellCheckingEnabled,-        setContinuousSpellCheckingEnabled,-        js_setAutomaticQuoteSubstitutionEnabled,-        setAutomaticQuoteSubstitutionEnabled,-        js_setAutomaticLinkDetectionEnabled,-        setAutomaticLinkDetectionEnabled,-        js_setAutomaticDashSubstitutionEnabled,-        setAutomaticDashSubstitutionEnabled,-        js_setAutomaticTextReplacementEnabled,-        setAutomaticTextReplacementEnabled,-        js_setAutomaticSpellingCorrectionEnabled,-        setAutomaticSpellingCorrectionEnabled, js_isOverwriteModeEnabled,-        isOverwriteModeEnabled, isOverwriteModeEnabled_,-        js_toggleOverwriteModeEnabled, toggleOverwriteModeEnabled,-        js_numberOfScrollableAreas, numberOfScrollableAreas,-        numberOfScrollableAreas_, js_isPageBoxVisible, isPageBoxVisible,-        isPageBoxVisible_, js_layerTreeAsText, layerTreeAsText,-        layerTreeAsText_, js_scrollingStateTreeAsText,-        scrollingStateTreeAsText, scrollingStateTreeAsText_,-        js_mainThreadScrollingReasons, mainThreadScrollingReasons,-        mainThreadScrollingReasons_, js_nonFastScrollableRects,-        nonFastScrollableRects, nonFastScrollableRects_,-        nonFastScrollableRectsUnsafe, nonFastScrollableRectsUnchecked,-        js_repaintRectsAsText, repaintRectsAsText, repaintRectsAsText_,-        js_garbageCollectDocumentResources,-        garbageCollectDocumentResources, js_allowRoundingHacks,-        allowRoundingHacks, js_insertAuthorCSS, insertAuthorCSS,-        js_insertUserCSS, insertUserCSS, js_setBatteryStatus,-        setBatteryStatus, js_setDeviceProximity, setDeviceProximity,-        js_numberOfLiveNodes, numberOfLiveNodes, numberOfLiveNodes_,-        js_numberOfLiveDocuments, numberOfLiveDocuments,-        numberOfLiveDocuments_, js_consoleMessageArgumentCounts,-        consoleMessageArgumentCounts, consoleMessageArgumentCounts_,-        js_openDummyInspectorFrontend, openDummyInspectorFrontend,-        openDummyInspectorFrontend_, openDummyInspectorFrontendUnsafe,-        openDummyInspectorFrontendUnchecked,-        js_closeDummyInspectorFrontend, closeDummyInspectorFrontend,-        js_setJavaScriptProfilingEnabled, setJavaScriptProfilingEnabled,-        js_setInspectorIsUnderTest, setInspectorIsUnderTest,-        js_counterValue, counterValue, counterValue_, js_pageNumber,-        pageNumber, pageNumber_, js_shortcutIconURLs, shortcutIconURLs,-        shortcutIconURLs_, js_allIconURLs, allIconURLs, allIconURLs_,-        js_numberOfPages, numberOfPages, numberOfPages_, js_pageProperty,-        pageProperty, pageProperty_, js_pageSizeAndMarginsInPixels,-        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, mallocStatistics_,-        mallocStatisticsUnsafe, mallocStatisticsUnchecked,-        js_typeConversions, typeConversions, typeConversions_,-        typeConversionsUnsafe, typeConversionsUnchecked, js_memoryInfo,-        memoryInfo, memoryInfo_, memoryInfoUnsafe, memoryInfoUnchecked,-        js_getReferencedFilePaths, getReferencedFilePaths,-        getReferencedFilePaths_, js_startTrackingRepaints,-        startTrackingRepaints, js_stopTrackingRepaints,-        stopTrackingRepaints, js_isTimerThrottled, isTimerThrottled,-        isTimerThrottled_,-        js_updateLayoutIgnorePendingStylesheetsAndRunPostLayoutTasks,-        updateLayoutIgnorePendingStylesheetsAndRunPostLayoutTasks,-        js_getCurrentCursorInfo, getCurrentCursorInfo,-        getCurrentCursorInfo_, js_markerTextForListItem,-        markerTextForListItem, markerTextForListItem_,-        js_toolTipFromElement, toolTipFromElement, toolTipFromElement_,-        js_deserializeBuffer, deserializeBuffer, deserializeBuffer_,-        deserializeBufferUnsafe, deserializeBufferUnchecked,-        js_serializeObject, serializeObject, serializeObject_,-        serializeObjectUnsafe, serializeObjectUnchecked,-        js_setUsesOverlayScrollbars, setUsesOverlayScrollbars,-        js_forceReload, forceReload, js_simulateAudioInterruption,-        simulateAudioInterruption, js_mediaElementHasCharacteristic,-        mediaElementHasCharacteristic, mediaElementHasCharacteristic_,-        js_initializeMockCDM, initializeMockCDM,-        js_enableMockSpeechSynthesizer, enableMockSpeechSynthesizer,-        js_getImageSourceURL, getImageSourceURL, getImageSourceURL_,-        js_captionsStyleSheetOverride, captionsStyleSheetOverride,-        captionsStyleSheetOverride_, js_setCaptionsStyleSheetOverride,-        setCaptionsStyleSheetOverride,-        js_setPrimaryAudioTrackLanguageOverride,-        setPrimaryAudioTrackLanguageOverride, js_setCaptionDisplayMode,-        setCaptionDisplayMode, js_createTimeRanges, createTimeRanges,-        createTimeRanges_, createTimeRangesUnsafe,-        createTimeRangesUnchecked, js_closestTimeToTimeRanges,-        closestTimeToTimeRanges, closestTimeToTimeRanges_,-        js_isSelectPopupVisible, isSelectPopupVisible,-        isSelectPopupVisible_, js_isVibrating, isVibrating, isVibrating_,-        js_isPluginUnavailabilityIndicatorObscured,-        isPluginUnavailabilityIndicatorObscured,-        isPluginUnavailabilityIndicatorObscured_, js_isPluginSnapshotted,-        isPluginSnapshotted, isPluginSnapshotted_, js_selectionBounds,-        selectionBounds, selectionBounds_, selectionBoundsUnsafe,-        selectionBoundsUnchecked, js_initializeMockMediaSource,-        initializeMockMediaSource, js_bufferedSamplesForTrackID,-        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, elementIsBlockingDisplaySleep_,-        js_installMockPageOverlay, installMockPageOverlay,-        js_pageOverlayLayerTreeAsText, pageOverlayLayerTreeAsText,-        pageOverlayLayerTreeAsText_, js_setPageMuted, setPageMuted,-        js_isPagePlayingAudio, 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, getSettingsUnsafe, getSettingsUnchecked,-        js_getWorkerThreadCount, getWorkerThreadCount,-        js_getConsoleProfiles, getConsoleProfiles, Internals(..),-        gTypeInternals)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)-import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))-import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import 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))))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.address Mozilla Internals.address documentation> -address_ ::-         (MonadIO m, IsNode node) => Internals -> Maybe node -> m ()-address_ self node-  = liftIO-      (void (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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.nodeNeedsStyleRecalc Mozilla Internals.nodeNeedsStyleRecalc documentation> -nodeNeedsStyleRecalc_ ::-                      (MonadIO m, IsNode node) => Internals -> Maybe node -> m ()-nodeNeedsStyleRecalc_ self node-  = liftIO-      (void-         (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))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.description Mozilla Internals.description documentation> -description_ :: (MonadIO m) => Internals -> JSVal -> m ()-description_ self value-  = liftIO (void (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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.hasPausedImageAnimations Mozilla Internals.hasPausedImageAnimations documentation> -hasPausedImageAnimations_ ::-                          (MonadIO m, IsElement element) =>-                            Internals -> Maybe element -> m ()-hasPausedImageAnimations_ self element-  = liftIO-      (void-         (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))))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.elementRenderTreeAsText Mozilla Internals.elementRenderTreeAsText documentation> -elementRenderTreeAsText_ ::-                         (MonadIO m, IsElement element) =>-                           Internals -> Maybe element -> m ()-elementRenderTreeAsText_ self element-  = liftIO-      (void-         (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))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.isPreloaded Mozilla Internals.isPreloaded documentation> -isPreloaded_ ::-             (MonadIO m, ToJSString url) => Internals -> url -> m ()-isPreloaded_ self url-  = liftIO (void (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))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.isLoadingFromMemoryCache Mozilla Internals.isLoadingFromMemoryCache documentation> -isLoadingFromMemoryCache_ ::-                          (MonadIO m, ToJSString url) => Internals -> url -> m ()-isLoadingFromMemoryCache_ self url-  = liftIO-      (void (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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.xhrResponseSource Mozilla Internals.xhrResponseSource documentation> -xhrResponseSource_ ::-                   (MonadIO m) => Internals -> Maybe XMLHttpRequest -> m ()-xhrResponseSource_ self xhr-  = liftIO (void (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))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.memoryCacheSize Mozilla Internals.memoryCacheSize documentation> -memoryCacheSize_ :: (MonadIO m) => Internals -> m ()-memoryCacheSize_ self = liftIO (void (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))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.pageCacheSize Mozilla Internals.pageCacheSize documentation> -pageCacheSize_ :: (MonadIO m) => Internals -> m ()-pageCacheSize_ self = liftIO (void (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))))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.computedStyleIncludingVisitedInfo Mozilla Internals.computedStyleIncludingVisitedInfo documentation> -computedStyleIncludingVisitedInfo_ ::-                                   (MonadIO m, IsNode node) => Internals -> Maybe node -> m ()-computedStyleIncludingVisitedInfo_ self node-  = liftIO-      (void-         (js_computedStyleIncludingVisitedInfo (self)-            (maybeToNullable (fmap toNode node))))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.computedStyleIncludingVisitedInfo Mozilla Internals.computedStyleIncludingVisitedInfo documentation> -computedStyleIncludingVisitedInfoUnsafe ::-                                        (MonadIO m, IsNode node, HasCallStack) =>-                                          Internals -> Maybe node -> m CSSStyleDeclaration-computedStyleIncludingVisitedInfoUnsafe self node-  = liftIO-      ((nullableToMaybe <$>-          (js_computedStyleIncludingVisitedInfo (self)-             (maybeToNullable (fmap toNode node))))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.computedStyleIncludingVisitedInfo Mozilla Internals.computedStyleIncludingVisitedInfo documentation> -computedStyleIncludingVisitedInfoUnchecked ::-                                           (MonadIO m, IsNode node) =>-                                             Internals -> Maybe node -> m CSSStyleDeclaration-computedStyleIncludingVisitedInfoUnchecked self node-  = liftIO-      (fromJust . 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))))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.ensureShadowRoot Mozilla Internals.ensureShadowRoot documentation> -ensureShadowRoot_ ::-                  (MonadIO m, IsElement host) => Internals -> Maybe host -> m ()-ensureShadowRoot_ self host-  = liftIO-      (void-         (js_ensureShadowRoot (self)-            (maybeToNullable (fmap toElement host))))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.ensureShadowRoot Mozilla Internals.ensureShadowRoot documentation> -ensureShadowRootUnsafe ::-                       (MonadIO m, IsElement host, HasCallStack) =>-                         Internals -> Maybe host -> m Node-ensureShadowRootUnsafe self host-  = liftIO-      ((nullableToMaybe <$>-          (js_ensureShadowRoot (self)-             (maybeToNullable (fmap toElement host))))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.ensureShadowRoot Mozilla Internals.ensureShadowRoot documentation> -ensureShadowRootUnchecked ::-                          (MonadIO m, IsElement host) => Internals -> Maybe host -> m Node-ensureShadowRootUnchecked self host-  = liftIO-      (fromJust . 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))))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.createShadowRoot Mozilla Internals.createShadowRoot documentation> -createShadowRoot_ ::-                  (MonadIO m, IsElement host) => Internals -> Maybe host -> m ()-createShadowRoot_ self host-  = liftIO-      (void-         (js_createShadowRoot (self)-            (maybeToNullable (fmap toElement host))))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.createShadowRoot Mozilla Internals.createShadowRoot documentation> -createShadowRootUnsafe ::-                       (MonadIO m, IsElement host, HasCallStack) =>-                         Internals -> Maybe host -> m Node-createShadowRootUnsafe self host-  = liftIO-      ((nullableToMaybe <$>-          (js_createShadowRoot (self)-             (maybeToNullable (fmap toElement host))))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.createShadowRoot Mozilla Internals.createShadowRoot documentation> -createShadowRootUnchecked ::-                          (MonadIO m, IsElement host) => Internals -> Maybe host -> m Node-createShadowRootUnchecked self host-  = liftIO-      (fromJust . 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))))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.shadowRoot Mozilla Internals.shadowRoot documentation> -shadowRoot_ ::-            (MonadIO m, IsElement host) => Internals -> Maybe host -> m ()-shadowRoot_ self host-  = liftIO-      (void-         (js_shadowRoot (self) (maybeToNullable (fmap toElement host))))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.shadowRoot Mozilla Internals.shadowRoot documentation> -shadowRootUnsafe ::-                 (MonadIO m, IsElement host, HasCallStack) =>-                   Internals -> Maybe host -> m Node-shadowRootUnsafe self host-  = liftIO-      ((nullableToMaybe <$>-          (js_shadowRoot (self) (maybeToNullable (fmap toElement host))))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.shadowRoot Mozilla Internals.shadowRoot documentation> -shadowRootUnchecked ::-                    (MonadIO m, IsElement host) => Internals -> Maybe host -> m Node-shadowRootUnchecked self host-  = liftIO-      (fromJust . 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))))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.shadowRootType Mozilla Internals.shadowRootType documentation> -shadowRootType_ ::-                (MonadIO m, IsNode root) => Internals -> Maybe root -> m ()-shadowRootType_ self root-  = liftIO-      (void-         (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))))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.includerFor Mozilla Internals.includerFor documentation> -includerFor_ ::-             (MonadIO m, IsNode node) => Internals -> Maybe node -> m ()-includerFor_ self node-  = liftIO-      (void (js_includerFor (self) (maybeToNullable (fmap toNode node))))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.includerFor Mozilla Internals.includerFor documentation> -includerForUnsafe ::-                  (MonadIO m, IsNode node, HasCallStack) =>-                    Internals -> Maybe node -> m Element-includerForUnsafe self node-  = liftIO-      ((nullableToMaybe <$>-          (js_includerFor (self) (maybeToNullable (fmap toNode node))))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.includerFor Mozilla Internals.includerFor documentation> -includerForUnchecked ::-                     (MonadIO m, IsNode node) => Internals -> Maybe node -> m Element-includerForUnchecked self node-  = liftIO-      (fromJust . 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))))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.shadowPseudoId Mozilla Internals.shadowPseudoId documentation> -shadowPseudoId_ ::-                (MonadIO m, IsElement element) =>-                  Internals -> Maybe element -> m ()-shadowPseudoId_ self element-  = liftIO-      (void-         (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))))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.treeScopeRootNode Mozilla Internals.treeScopeRootNode documentation> -treeScopeRootNode_ ::-                   (MonadIO m, IsNode node) => Internals -> Maybe node -> m ()-treeScopeRootNode_ self node-  = liftIO-      (void-         (js_treeScopeRootNode (self) (maybeToNullable (fmap toNode node))))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.treeScopeRootNode Mozilla Internals.treeScopeRootNode documentation> -treeScopeRootNodeUnsafe ::-                        (MonadIO m, IsNode node, HasCallStack) =>-                          Internals -> Maybe node -> m Node-treeScopeRootNodeUnsafe self node-  = liftIO-      ((nullableToMaybe <$>-          (js_treeScopeRootNode (self) (maybeToNullable (fmap toNode node))))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.treeScopeRootNode Mozilla Internals.treeScopeRootNode documentation> -treeScopeRootNodeUnchecked ::-                           (MonadIO m, IsNode node) => Internals -> Maybe node -> m Node-treeScopeRootNodeUnchecked self node-  = liftIO-      (fromJust . 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))))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.parentTreeScope Mozilla Internals.parentTreeScope documentation> -parentTreeScope_ ::-                 (MonadIO m, IsNode node) => Internals -> Maybe node -> m ()-parentTreeScope_ self node-  = liftIO-      (void-         (js_parentTreeScope (self) (maybeToNullable (fmap toNode node))))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.parentTreeScope Mozilla Internals.parentTreeScope documentation> -parentTreeScopeUnsafe ::-                      (MonadIO m, IsNode node, HasCallStack) =>-                        Internals -> Maybe node -> m Node-parentTreeScopeUnsafe self node-  = liftIO-      ((nullableToMaybe <$>-          (js_parentTreeScope (self) (maybeToNullable (fmap toNode node))))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.parentTreeScope Mozilla Internals.parentTreeScope documentation> -parentTreeScopeUnchecked ::-                         (MonadIO m, IsNode node) => Internals -> Maybe node -> m Node-parentTreeScopeUnchecked self node-  = liftIO-      (fromJust . 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))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.lastSpatialNavigationCandidateCount Mozilla Internals.lastSpatialNavigationCandidateCount documentation> -lastSpatialNavigationCandidateCount_ ::-                                     (MonadIO m) => Internals -> m ()-lastSpatialNavigationCandidateCount_ self-  = liftIO (void (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))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.numberOfActiveAnimations Mozilla Internals.numberOfActiveAnimations documentation> -numberOfActiveAnimations_ :: (MonadIO m) => Internals -> m ()-numberOfActiveAnimations_ self-  = liftIO (void (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))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.animationsAreSuspended Mozilla Internals.animationsAreSuspended documentation> -animationsAreSuspended_ :: (MonadIO m) => Internals -> m ()-animationsAreSuspended_ self-  = liftIO (void (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)))---- | <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 ()-pauseAnimationAtTimeOnElement_ self animationName pauseTime element-  = liftIO-      (void-         (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))---- | <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 ()-pauseAnimationAtTimeOnPseudoElement_ self animationName pauseTime-  element pseudoId-  = liftIO-      (void-         (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)))---- | <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 ()-pauseTransitionAtTimeOnElement_ self propertyName pauseTime element-  = liftIO-      (void-         (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))---- | <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 ()-pauseTransitionAtTimeOnPseudoElement_ self property pauseTime-  element pseudoId-  = liftIO-      (void-         (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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.attached Mozilla Internals.attached documentation> -attached_ ::-          (MonadIO m, IsNode node) => Internals -> Maybe node -> m ()-attached_ self node-  = liftIO-      (void (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))))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.visiblePlaceholder Mozilla Internals.visiblePlaceholder documentation> -visiblePlaceholder_ ::-                    (MonadIO m, IsElement element) =>-                      Internals -> Maybe element -> m ()-visiblePlaceholder_ self element-  = liftIO-      (void-         (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)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.formControlStateOfPreviousHistoryItem Mozilla Internals.formControlStateOfPreviousHistoryItem documentation> -formControlStateOfPreviousHistoryItem_ ::-                                       (MonadIO m) => Internals -> m ()-formControlStateOfPreviousHistoryItem_ self-  = liftIO (void (js_formControlStateOfPreviousHistoryItem (self)))- -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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.absoluteCaretBounds Mozilla Internals.absoluteCaretBounds documentation> -absoluteCaretBounds_ :: (MonadIO m) => Internals -> m ()-absoluteCaretBounds_ self-  = liftIO (void (js_absoluteCaretBounds (self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.absoluteCaretBounds Mozilla Internals.absoluteCaretBounds documentation> -absoluteCaretBoundsUnsafe ::-                          (MonadIO m, HasCallStack) => Internals -> m ClientRect-absoluteCaretBoundsUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_absoluteCaretBounds (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.absoluteCaretBounds Mozilla Internals.absoluteCaretBounds documentation> -absoluteCaretBoundsUnchecked ::-                             (MonadIO m) => Internals -> m ClientRect-absoluteCaretBoundsUnchecked self-  = liftIO-      (fromJust . 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))))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.boundingBox Mozilla Internals.boundingBox documentation> -boundingBox_ ::-             (MonadIO m, IsElement element) =>-               Internals -> Maybe element -> m ()-boundingBox_ self element-  = liftIO-      (void-         (js_boundingBox (self) (maybeToNullable (fmap toElement element))))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.boundingBox Mozilla Internals.boundingBox documentation> -boundingBoxUnsafe ::-                  (MonadIO m, IsElement element, HasCallStack) =>-                    Internals -> Maybe element -> m ClientRect-boundingBoxUnsafe self element-  = liftIO-      ((nullableToMaybe <$>-          (js_boundingBox (self) (maybeToNullable (fmap toElement element))))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.boundingBox Mozilla Internals.boundingBox documentation> -boundingBoxUnchecked ::-                     (MonadIO m, IsElement element) =>-                       Internals -> Maybe element -> m ClientRect-boundingBoxUnchecked self element-  = liftIO-      (fromJust . 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.inspectorHighlightRects Mozilla Internals.inspectorHighlightRects documentation> -inspectorHighlightRects_ :: (MonadIO m) => Internals -> m ()-inspectorHighlightRects_ self-  = liftIO (void (js_inspectorHighlightRects (self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.inspectorHighlightRects Mozilla Internals.inspectorHighlightRects documentation> -inspectorHighlightRectsUnsafe ::-                              (MonadIO m, HasCallStack) => Internals -> m ClientRectList-inspectorHighlightRectsUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_inspectorHighlightRects (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.inspectorHighlightRects Mozilla Internals.inspectorHighlightRects documentation> -inspectorHighlightRectsUnchecked ::-                                 (MonadIO m) => Internals -> m ClientRectList-inspectorHighlightRectsUnchecked self-  = liftIO-      (fromJust . 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.inspectorHighlightObject Mozilla Internals.inspectorHighlightObject documentation> -inspectorHighlightObject_ :: (MonadIO m) => Internals -> m ()-inspectorHighlightObject_ self-  = liftIO (void (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))---- | <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 ()-markerCountForNode_ self node markerType-  = liftIO-      (void-         (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))---- | <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 ()-markerRangeForNode_ self node markerType index-  = liftIO-      (void-         (js_markerRangeForNode (self) (maybeToNullable (fmap toNode node))-            (toJSString markerType)-            index))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.markerRangeForNode Mozilla Internals.markerRangeForNode documentation> -markerRangeForNodeUnsafe ::-                         (MonadIO m, IsNode node, ToJSString markerType, HasCallStack) =>-                           Internals -> Maybe node -> markerType -> Word -> m Range-markerRangeForNodeUnsafe self node markerType index-  = liftIO-      ((nullableToMaybe <$>-          (js_markerRangeForNode (self) (maybeToNullable (fmap toNode node))-             (toJSString markerType)-             index))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.markerRangeForNode Mozilla Internals.markerRangeForNode documentation> -markerRangeForNodeUnchecked ::-                            (MonadIO m, IsNode node, ToJSString markerType) =>-                              Internals -> Maybe node -> markerType -> Word -> m Range-markerRangeForNodeUnchecked self node markerType index-  = liftIO-      (fromJust . 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))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.markerDescriptionForNode Mozilla Internals.markerDescriptionForNode documentation> -markerDescriptionForNode_ ::-                          (MonadIO m, IsNode node, ToJSString markerType) =>-                            Internals -> Maybe node -> markerType -> Word -> m ()-markerDescriptionForNode_ self node markerType index-  = liftIO-      (void-         (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))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.configurationForViewport Mozilla Internals.configurationForViewport documentation> -configurationForViewport_ ::-                          (MonadIO m) =>-                            Internals -> Float -> Int -> Int -> Int -> Int -> m ()-configurationForViewport_ self devicePixelRatio deviceWidth-  deviceHeight availableWidth availableHeight-  = liftIO-      (void-         (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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.wasLastChangeUserEdit Mozilla Internals.wasLastChangeUserEdit documentation> -wasLastChangeUserEdit_ ::-                       (MonadIO m, IsElement textField) =>-                         Internals -> Maybe textField -> m ()-wasLastChangeUserEdit_ self textField-  = liftIO-      (void-         (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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.elementShouldAutoComplete Mozilla Internals.elementShouldAutoComplete documentation> -elementShouldAutoComplete_ ::-                           (MonadIO m, IsElement inputElement) =>-                             Internals -> Maybe inputElement -> m ()-elementShouldAutoComplete_ self inputElement-  = liftIO-      (void-         (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))---- | <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 ()-countMatchesForText_ self text findOptions markMatches-  = liftIO-      (void-         (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))---- | <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 ()-rangeFromLocationAndLength_ self scope rangeLocation rangeLength-  = liftIO-      (void-         (js_rangeFromLocationAndLength (self)-            (maybeToNullable (fmap toElement scope))-            rangeLocation-            rangeLength))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.rangeFromLocationAndLength Mozilla Internals.rangeFromLocationAndLength documentation> -rangeFromLocationAndLengthUnsafe ::-                                 (MonadIO m, IsElement scope, HasCallStack) =>-                                   Internals -> Maybe scope -> Int -> Int -> m Range-rangeFromLocationAndLengthUnsafe self scope rangeLocation-  rangeLength-  = liftIO-      ((nullableToMaybe <$>-          (js_rangeFromLocationAndLength (self)-             (maybeToNullable (fmap toElement scope))-             rangeLocation-             rangeLength))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.rangeFromLocationAndLength Mozilla Internals.rangeFromLocationAndLength documentation> -rangeFromLocationAndLengthUnchecked ::-                                    (MonadIO m, IsElement scope) =>-                                      Internals -> Maybe scope -> Int -> Int -> m Range-rangeFromLocationAndLengthUnchecked self scope rangeLocation-  rangeLength-  = liftIO-      (fromJust . 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))---- | <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 ()-locationFromRange_ self scope range-  = liftIO-      (void-         (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))---- | <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 ()-lengthFromRange_ self scope range-  = liftIO-      (void-         (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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.rangeAsText Mozilla Internals.rangeAsText documentation> -rangeAsText_ :: (MonadIO m) => Internals -> Maybe Range -> m ()-rangeAsText_ self range-  = liftIO (void (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))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.subrange Mozilla Internals.subrange documentation> -subrange_ ::-          (MonadIO m) => Internals -> Maybe Range -> Int -> Int -> m ()-subrange_ self range rangeLocation rangeLength-  = liftIO-      (void-         (js_subrange (self) (maybeToNullable range) rangeLocation-            rangeLength))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.subrange Mozilla Internals.subrange documentation> -subrangeUnsafe ::-               (MonadIO m, HasCallStack) =>-                 Internals -> Maybe Range -> Int -> Int -> m Range-subrangeUnsafe self range rangeLocation rangeLength-  = liftIO-      ((nullableToMaybe <$>-          (js_subrange (self) (maybeToNullable range) rangeLocation-             rangeLength))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.subrange Mozilla Internals.subrange documentation> -subrangeUnchecked ::-                  (MonadIO m) => Internals -> Maybe Range -> Int -> Int -> m Range-subrangeUnchecked self range rangeLocation rangeLength-  = liftIO-      (fromJust . 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))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.rangeForDictionaryLookupAtLocation Mozilla Internals.rangeForDictionaryLookupAtLocation documentation> -rangeForDictionaryLookupAtLocation_ ::-                                    (MonadIO m) => Internals -> Int -> Int -> m ()-rangeForDictionaryLookupAtLocation_ self x y-  = liftIO (void (js_rangeForDictionaryLookupAtLocation (self) x y))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.rangeForDictionaryLookupAtLocation Mozilla Internals.rangeForDictionaryLookupAtLocation documentation> -rangeForDictionaryLookupAtLocationUnsafe ::-                                         (MonadIO m, HasCallStack) =>-                                           Internals -> Int -> Int -> m Range-rangeForDictionaryLookupAtLocationUnsafe self x y-  = liftIO-      ((nullableToMaybe <$>-          (js_rangeForDictionaryLookupAtLocation (self) x y))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.rangeForDictionaryLookupAtLocation Mozilla Internals.rangeForDictionaryLookupAtLocation documentation> -rangeForDictionaryLookupAtLocationUnchecked ::-                                            (MonadIO m) => Internals -> Int -> Int -> m Range-rangeForDictionaryLookupAtLocationUnchecked self x y-  = liftIO-      (fromJust . 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))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.lastSpellCheckRequestSequence Mozilla Internals.lastSpellCheckRequestSequence documentation> -lastSpellCheckRequestSequence_ :: (MonadIO m) => Internals -> m ()-lastSpellCheckRequestSequence_ self-  = liftIO (void (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))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.lastSpellCheckProcessedSequence Mozilla Internals.lastSpellCheckProcessedSequence documentation> -lastSpellCheckProcessedSequence_ ::-                                 (MonadIO m) => Internals -> m ()-lastSpellCheckProcessedSequence_ self-  = liftIO (void (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)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.userPreferredLanguages Mozilla Internals.userPreferredLanguages documentation> -userPreferredLanguages_ :: (MonadIO m) => Internals -> m ()-userPreferredLanguages_ self-  = liftIO (void (js_userPreferredLanguages (self)))- -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))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.wheelEventHandlerCount Mozilla Internals.wheelEventHandlerCount documentation> -wheelEventHandlerCount_ :: (MonadIO m) => Internals -> m ()-wheelEventHandlerCount_ self-  = liftIO (void (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))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.touchEventHandlerCount Mozilla Internals.touchEventHandlerCount documentation> -touchEventHandlerCount_ :: (MonadIO m) => Internals -> m ()-touchEventHandlerCount_ self-  = liftIO (void (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))---- | <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 ()-nodesFromRect_ self document x y topPadding rightPadding-  bottomPadding leftPadding ignoreClipping allowShadowContent-  allowChildFrameContent-  = liftIO-      (void-         (js_nodesFromRect (self)-            (maybeToNullable (fmap toDocument document))-            x-            y-            topPadding-            rightPadding-            bottomPadding-            leftPadding-            ignoreClipping-            allowShadowContent-            allowChildFrameContent))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.nodesFromRect Mozilla Internals.nodesFromRect documentation> -nodesFromRectUnsafe ::-                    (MonadIO m, IsDocument document, HasCallStack) =>-                      Internals ->-                        Maybe document ->-                          Int ->-                            Int ->-                              Word -> Word -> Word -> Word -> Bool -> Bool -> Bool -> m NodeList-nodesFromRectUnsafe 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))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.nodesFromRect Mozilla Internals.nodesFromRect documentation> -nodesFromRectUnchecked ::-                       (MonadIO m, IsDocument document) =>-                         Internals ->-                           Maybe document ->-                             Int ->-                               Int ->-                                 Word -> Word -> Word -> Word -> Bool -> Bool -> Bool -> m NodeList-nodesFromRectUnchecked self document x y topPadding rightPadding-  bottomPadding leftPadding ignoreClipping allowShadowContent-  allowChildFrameContent-  = liftIO-      (fromJust . 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))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.parserMetaData Mozilla Internals.parserMetaData documentation> -parserMetaData_ :: (MonadIO m) => Internals -> JSVal -> m ()-parserMetaData_ self func-  = liftIO (void (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)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.hasSpellingMarker Mozilla Internals.hasSpellingMarker documentation> -hasSpellingMarker_ ::-                   (MonadIO m) => Internals -> Int -> Int -> m ()-hasSpellingMarker_ self from length-  = liftIO (void (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)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.hasGrammarMarker Mozilla Internals.hasGrammarMarker documentation> -hasGrammarMarker_ :: (MonadIO m) => Internals -> Int -> Int -> m ()-hasGrammarMarker_ self from length-  = liftIO (void (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)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.hasAutocorrectedMarker Mozilla Internals.hasAutocorrectedMarker documentation> -hasAutocorrectedMarker_ ::-                        (MonadIO m) => Internals -> Int -> Int -> m ()-hasAutocorrectedMarker_ self from length-  = liftIO (void (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))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.isOverwriteModeEnabled Mozilla Internals.isOverwriteModeEnabled documentation> -isOverwriteModeEnabled_ :: (MonadIO m) => Internals -> m ()-isOverwriteModeEnabled_ self-  = liftIO (void (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))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.numberOfScrollableAreas Mozilla Internals.numberOfScrollableAreas documentation> -numberOfScrollableAreas_ :: (MonadIO m) => Internals -> m ()-numberOfScrollableAreas_ self-  = liftIO (void (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)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.isPageBoxVisible Mozilla Internals.isPageBoxVisible documentation> -isPageBoxVisible_ :: (MonadIO m) => Internals -> Int -> m ()-isPageBoxVisible_ self pageNumber-  = liftIO (void (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))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.layerTreeAsText Mozilla Internals.layerTreeAsText documentation> -layerTreeAsText_ ::-                 (MonadIO m, IsDocument document) =>-                   Internals -> Maybe document -> Word -> m ()-layerTreeAsText_ self document flags-  = liftIO-      (void-         (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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.scrollingStateTreeAsText Mozilla Internals.scrollingStateTreeAsText documentation> -scrollingStateTreeAsText_ :: (MonadIO m) => Internals -> m ()-scrollingStateTreeAsText_ self-  = liftIO (void (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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.mainThreadScrollingReasons Mozilla Internals.mainThreadScrollingReasons documentation> -mainThreadScrollingReasons_ :: (MonadIO m) => Internals -> m ()-mainThreadScrollingReasons_ self-  = liftIO (void (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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.nonFastScrollableRects Mozilla Internals.nonFastScrollableRects documentation> -nonFastScrollableRects_ :: (MonadIO m) => Internals -> m ()-nonFastScrollableRects_ self-  = liftIO (void (js_nonFastScrollableRects (self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.nonFastScrollableRects Mozilla Internals.nonFastScrollableRects documentation> -nonFastScrollableRectsUnsafe ::-                             (MonadIO m, HasCallStack) => Internals -> m ClientRectList-nonFastScrollableRectsUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_nonFastScrollableRects (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.nonFastScrollableRects Mozilla Internals.nonFastScrollableRects documentation> -nonFastScrollableRectsUnchecked ::-                                (MonadIO m) => Internals -> m ClientRectList-nonFastScrollableRectsUnchecked self-  = liftIO-      (fromJust . 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.repaintRectsAsText Mozilla Internals.repaintRectsAsText documentation> -repaintRectsAsText_ :: (MonadIO m) => Internals -> m ()-repaintRectsAsText_ self-  = liftIO (void (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))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.numberOfLiveNodes Mozilla Internals.numberOfLiveNodes documentation> -numberOfLiveNodes_ :: (MonadIO m) => Internals -> m ()-numberOfLiveNodes_ self-  = liftIO (void (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))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.numberOfLiveDocuments Mozilla Internals.numberOfLiveDocuments documentation> -numberOfLiveDocuments_ :: (MonadIO m) => Internals -> m ()-numberOfLiveDocuments_ self-  = liftIO (void (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)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.consoleMessageArgumentCounts Mozilla Internals.consoleMessageArgumentCounts documentation> -consoleMessageArgumentCounts_ :: (MonadIO m) => Internals -> m ()-consoleMessageArgumentCounts_ self-  = liftIO (void (js_consoleMessageArgumentCounts (self)))- -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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.openDummyInspectorFrontend Mozilla Internals.openDummyInspectorFrontend documentation> -openDummyInspectorFrontend_ ::-                            (MonadIO m, ToJSString url) => Internals -> url -> m ()-openDummyInspectorFrontend_ self url-  = liftIO-      (void (js_openDummyInspectorFrontend (self) (toJSString url)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.openDummyInspectorFrontend Mozilla Internals.openDummyInspectorFrontend documentation> -openDummyInspectorFrontendUnsafe ::-                                 (MonadIO m, ToJSString url, HasCallStack) =>-                                   Internals -> url -> m Window-openDummyInspectorFrontendUnsafe self url-  = liftIO-      ((nullableToMaybe <$>-          (js_openDummyInspectorFrontend (self) (toJSString url)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.openDummyInspectorFrontend Mozilla Internals.openDummyInspectorFrontend documentation> -openDummyInspectorFrontendUnchecked ::-                                    (MonadIO m, ToJSString url) => Internals -> url -> m Window-openDummyInspectorFrontendUnchecked self url-  = liftIO-      (fromJust . 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))))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.counterValue Mozilla Internals.counterValue documentation> -counterValue_ ::-              (MonadIO m, IsElement element) =>-                Internals -> Maybe element -> m ()-counterValue_ self element-  = liftIO-      (void-         (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)---- | <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 ()-pageNumber_ self element pageWidth pageHeight-  = liftIO-      (void-         (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)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.shortcutIconURLs Mozilla Internals.shortcutIconURLs documentation> -shortcutIconURLs_ :: (MonadIO m) => Internals -> m ()-shortcutIconURLs_ self = liftIO (void (js_shortcutIconURLs (self)))- -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)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.allIconURLs Mozilla Internals.allIconURLs documentation> -allIconURLs_ :: (MonadIO m) => Internals -> m ()-allIconURLs_ self = liftIO (void (js_allIconURLs (self)))- -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)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.numberOfPages Mozilla Internals.numberOfPages documentation> -numberOfPages_ ::-               (MonadIO m) => Internals -> Double -> Double -> m ()-numberOfPages_ self pageWidthInPixels pageHeightInPixels-  = liftIO-      (void-         (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))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.pageProperty Mozilla Internals.pageProperty documentation> -pageProperty_ ::-              (MonadIO m, ToJSString propertyName) =>-                Internals -> propertyName -> Int -> m ()-pageProperty_ self propertyName pageNumber-  = liftIO-      (void-         (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))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.pageSizeAndMarginsInPixels Mozilla Internals.pageSizeAndMarginsInPixels documentation> -pageSizeAndMarginsInPixels_ ::-                            (MonadIO m) =>-                              Internals -> Int -> Int -> Int -> Int -> Int -> Int -> Int -> m ()-pageSizeAndMarginsInPixels_ self pageIndex width height marginTop-  marginRight marginBottom marginLeft-  = liftIO-      (void-         (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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.mallocStatistics Mozilla Internals.mallocStatistics documentation> -mallocStatistics_ :: (MonadIO m) => Internals -> m ()-mallocStatistics_ self = liftIO (void (js_mallocStatistics (self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.mallocStatistics Mozilla Internals.mallocStatistics documentation> -mallocStatisticsUnsafe ::-                       (MonadIO m, HasCallStack) => Internals -> m MallocStatistics-mallocStatisticsUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_mallocStatistics (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.mallocStatistics Mozilla Internals.mallocStatistics documentation> -mallocStatisticsUnchecked ::-                          (MonadIO m) => Internals -> m MallocStatistics-mallocStatisticsUnchecked self-  = liftIO-      (fromJust . 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.typeConversions Mozilla Internals.typeConversions documentation> -typeConversions_ :: (MonadIO m) => Internals -> m ()-typeConversions_ self = liftIO (void (js_typeConversions (self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.typeConversions Mozilla Internals.typeConversions documentation> -typeConversionsUnsafe ::-                      (MonadIO m, HasCallStack) => Internals -> m TypeConversions-typeConversionsUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_typeConversions (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.typeConversions Mozilla Internals.typeConversions documentation> -typeConversionsUnchecked ::-                         (MonadIO m) => Internals -> m TypeConversions-typeConversionsUnchecked self-  = liftIO-      (fromJust . 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.memoryInfo Mozilla Internals.memoryInfo documentation> -memoryInfo_ :: (MonadIO m) => Internals -> m ()-memoryInfo_ self = liftIO (void (js_memoryInfo (self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.memoryInfo Mozilla Internals.memoryInfo documentation> -memoryInfoUnsafe ::-                 (MonadIO m, HasCallStack) => Internals -> m MemoryInfo-memoryInfoUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_memoryInfo (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.memoryInfo Mozilla Internals.memoryInfo documentation> -memoryInfoUnchecked :: (MonadIO m) => Internals -> m MemoryInfo-memoryInfoUnchecked self-  = liftIO (fromJust . 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)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.getReferencedFilePaths Mozilla Internals.getReferencedFilePaths documentation> -getReferencedFilePaths_ :: (MonadIO m) => Internals -> m ()-getReferencedFilePaths_ self-  = liftIO (void (js_getReferencedFilePaths (self)))- -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)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.isTimerThrottled Mozilla Internals.isTimerThrottled documentation> -isTimerThrottled_ :: (MonadIO m) => Internals -> Int -> m ()-isTimerThrottled_ self timerHandle-  = liftIO (void (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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.getCurrentCursorInfo Mozilla Internals.getCurrentCursorInfo documentation> -getCurrentCursorInfo_ :: (MonadIO m) => Internals -> m ()-getCurrentCursorInfo_ self-  = liftIO (void (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))))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.markerTextForListItem Mozilla Internals.markerTextForListItem documentation> -markerTextForListItem_ ::-                       (MonadIO m, IsElement element) =>-                         Internals -> Maybe element -> m ()-markerTextForListItem_ self element-  = liftIO-      (void-         (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))))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.toolTipFromElement Mozilla Internals.toolTipFromElement documentation> -toolTipFromElement_ ::-                    (MonadIO m, IsElement element) =>-                      Internals -> Maybe element -> m ()-toolTipFromElement_ self element-  = liftIO-      (void-         (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))))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.deserializeBuffer Mozilla Internals.deserializeBuffer documentation> -deserializeBuffer_ ::-                   (MonadIO m, IsArrayBuffer buffer) =>-                     Internals -> Maybe buffer -> m ()-deserializeBuffer_ self buffer-  = liftIO-      (void-         (js_deserializeBuffer (self)-            (maybeToNullable (fmap toArrayBuffer buffer))))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.deserializeBuffer Mozilla Internals.deserializeBuffer documentation> -deserializeBufferUnsafe ::-                        (MonadIO m, IsArrayBuffer buffer, HasCallStack) =>-                          Internals -> Maybe buffer -> m SerializedScriptValue-deserializeBufferUnsafe self buffer-  = liftIO-      ((nullableToMaybe <$>-          (js_deserializeBuffer (self)-             (maybeToNullable (fmap toArrayBuffer buffer))))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.deserializeBuffer Mozilla Internals.deserializeBuffer documentation> -deserializeBufferUnchecked ::-                           (MonadIO m, IsArrayBuffer buffer) =>-                             Internals -> Maybe buffer -> m SerializedScriptValue-deserializeBufferUnchecked self buffer-  = liftIO-      (fromJust . 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))))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.serializeObject Mozilla Internals.serializeObject documentation> -serializeObject_ ::-                 (MonadIO m, IsSerializedScriptValue obj) =>-                   Internals -> Maybe obj -> m ()-serializeObject_ self obj-  = liftIO-      (void-         (js_serializeObject (self)-            (maybeToNullable (fmap toSerializedScriptValue obj))))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.serializeObject Mozilla Internals.serializeObject documentation> -serializeObjectUnsafe ::-                      (MonadIO m, IsSerializedScriptValue obj, HasCallStack) =>-                        Internals -> Maybe obj -> m ArrayBuffer-serializeObjectUnsafe self obj-  = liftIO-      ((nullableToMaybe <$>-          (js_serializeObject (self)-             (maybeToNullable (fmap toSerializedScriptValue obj))))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.serializeObject Mozilla Internals.serializeObject documentation> -serializeObjectUnchecked ::-                         (MonadIO m, IsSerializedScriptValue obj) =>-                           Internals -> Maybe obj -> m ArrayBuffer-serializeObjectUnchecked self obj-  = liftIO-      (fromJust . 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))---- | <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 ()-mediaElementHasCharacteristic_ self node characteristic-  = liftIO-      (void-         (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))))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.getImageSourceURL Mozilla Internals.getImageSourceURL documentation> -getImageSourceURL_ ::-                   (MonadIO m, IsElement element) =>-                     Internals -> Maybe element -> m ()-getImageSourceURL_ self element-  = liftIO-      (void-         (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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.captionsStyleSheetOverride Mozilla Internals.captionsStyleSheetOverride documentation> -captionsStyleSheetOverride_ :: (MonadIO m) => Internals -> m ()-captionsStyleSheetOverride_ self-  = liftIO (void (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))))---- | <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 ()-createTimeRanges_ self startTimes endTimes-  = liftIO-      (void-         (js_createTimeRanges (self)-            (maybeToNullable (fmap toFloat32Array startTimes))-            (maybeToNullable (fmap toFloat32Array endTimes))))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.createTimeRanges Mozilla Internals.createTimeRanges documentation> -createTimeRangesUnsafe ::-                       (MonadIO m, IsFloat32Array startTimes, IsFloat32Array endTimes,-                        HasCallStack) =>-                         Internals -> Maybe startTimes -> Maybe endTimes -> m TimeRanges-createTimeRangesUnsafe self startTimes endTimes-  = liftIO-      ((nullableToMaybe <$>-          (js_createTimeRanges (self)-             (maybeToNullable (fmap toFloat32Array startTimes))-             (maybeToNullable (fmap toFloat32Array endTimes))))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.createTimeRanges Mozilla Internals.createTimeRanges documentation> -createTimeRangesUnchecked ::-                          (MonadIO m, IsFloat32Array startTimes, IsFloat32Array endTimes) =>-                            Internals -> Maybe startTimes -> Maybe endTimes -> m TimeRanges-createTimeRangesUnchecked self startTimes endTimes-  = liftIO-      (fromJust . 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))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.closestTimeToTimeRanges Mozilla Internals.closestTimeToTimeRanges documentation> -closestTimeToTimeRanges_ ::-                         (MonadIO m) => Internals -> Double -> Maybe TimeRanges -> m ()-closestTimeToTimeRanges_ self time ranges-  = liftIO-      (void-         (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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.isSelectPopupVisible Mozilla Internals.isSelectPopupVisible documentation> -isSelectPopupVisible_ ::-                      (MonadIO m, IsNode node) => Internals -> Maybe node -> m ()-isSelectPopupVisible_ self node-  = liftIO-      (void-         (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))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.isVibrating Mozilla Internals.isVibrating documentation> -isVibrating_ :: (MonadIO m) => Internals -> m ()-isVibrating_ self = liftIO (void (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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.isPluginUnavailabilityIndicatorObscured Mozilla Internals.isPluginUnavailabilityIndicatorObscured documentation> -isPluginUnavailabilityIndicatorObscured_ ::-                                         (MonadIO m, IsElement element) =>-                                           Internals -> Maybe element -> m ()-isPluginUnavailabilityIndicatorObscured_ self element-  = liftIO-      (void-         (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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.isPluginSnapshotted Mozilla Internals.isPluginSnapshotted documentation> -isPluginSnapshotted_ ::-                     (MonadIO m, IsElement element) =>-                       Internals -> Maybe element -> m ()-isPluginSnapshotted_ self element-  = liftIO-      (void-         (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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.selectionBounds Mozilla Internals.selectionBounds documentation> -selectionBounds_ :: (MonadIO m) => Internals -> m ()-selectionBounds_ self = liftIO (void (js_selectionBounds (self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.selectionBounds Mozilla Internals.selectionBounds documentation> -selectionBoundsUnsafe ::-                      (MonadIO m, HasCallStack) => Internals -> m ClientRect-selectionBoundsUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_selectionBounds (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.selectionBounds Mozilla Internals.selectionBounds documentation> -selectionBoundsUnchecked ::-                         (MonadIO m) => Internals -> m ClientRect-selectionBoundsUnchecked self-  = liftIO-      (fromJust . 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)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.bufferedSamplesForTrackID Mozilla Internals.bufferedSamplesForTrackID documentation> -bufferedSamplesForTrackID_ ::-                           (MonadIO m, ToJSString trackID) =>-                             Internals -> Maybe SourceBuffer -> trackID -> m ()-bufferedSamplesForTrackID_ self buffer trackID-  = liftIO-      (void-         (js_bufferedSamplesForTrackID (self) (maybeToNullable buffer)-            (toJSString trackID)))- -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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.elementIsBlockingDisplaySleep Mozilla Internals.elementIsBlockingDisplaySleep documentation> -elementIsBlockingDisplaySleep_ ::-                               (MonadIO m, IsElement element) =>-                                 Internals -> Maybe element -> m ()-elementIsBlockingDisplaySleep_ self element-  = liftIO-      (void-         (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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.pageOverlayLayerTreeAsText Mozilla Internals.pageOverlayLayerTreeAsText documentation> -pageOverlayLayerTreeAsText_ :: (MonadIO m) => Internals -> m ()-pageOverlayLayerTreeAsText_ self-  = liftIO (void (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))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.isPagePlayingAudio Mozilla Internals.isPagePlayingAudio documentation> -isPagePlayingAudio_ :: (MonadIO m) => Internals -> m ()-isPagePlayingAudio_ self-  = liftIO (void (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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.settings Mozilla Internals.settings documentation> -getSettingsUnsafe ::-                  (MonadIO m, HasCallStack) => Internals -> m InternalSettings-getSettingsUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getSettings (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.settings Mozilla Internals.settings documentation> -getSettingsUnchecked ::-                     (MonadIO m) => Internals -> m InternalSettings-getSettingsUnchecked self-  = liftIO (fromJust . 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/IntersectionObserver.hs view
@@ -0,0 +1,125 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+module GHCJS.DOM.JSFFI.Generated.IntersectionObserver+       (js_newIntersectionObserver, newIntersectionObserver, js_observe,+        observe, js_unobserve, unobserve, js_disconnect, disconnect,+        js_takeRecords, takeRecords, takeRecords_, js_getRoot, getRoot,+        getRootUnsafe, getRootUnchecked, js_getRootMargin, getRootMargin,+        js_getThresholds, getThresholds, IntersectionObserver(..),+        gTypeIntersectionObserver)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error)+import Data.Typeable (Typeable)+import GHCJS.Types (JSVal(..), JSString)+import GHCJS.Foreign (jsNull, jsUndefined)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Control.Monad (void)+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import Data.Maybe (fromJust)+import Data.Traversable (mapM)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.JSFFI.Generated.Enums+ +foreign import javascript unsafe+        "new window[\"IntersectionObserver\"]($1,\n$2)"+        js_newIntersectionObserver ::+        IntersectionObserverCallback ->+          Optional IntersectionObserverInit -> IO IntersectionObserver++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IntersectionObserver Mozilla IntersectionObserver documentation> +newIntersectionObserver ::+                        (MonadIO m) =>+                          IntersectionObserverCallback ->+                            Maybe IntersectionObserverInit -> m IntersectionObserver+newIntersectionObserver callback options+  = liftIO+      (js_newIntersectionObserver callback (maybeToOptional options))+ +foreign import javascript unsafe "$1[\"observe\"]($2)" js_observe+        :: IntersectionObserver -> Element -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IntersectionObserver.observe Mozilla IntersectionObserver.observe documentation> +observe ::+        (MonadIO m, IsElement target) =>+          IntersectionObserver -> target -> m ()+observe self target = liftIO (js_observe self (toElement target))+ +foreign import javascript unsafe "$1[\"unobserve\"]($2)"+        js_unobserve :: IntersectionObserver -> Element -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IntersectionObserver.unobserve Mozilla IntersectionObserver.unobserve documentation> +unobserve ::+          (MonadIO m, IsElement target) =>+            IntersectionObserver -> target -> m ()+unobserve self target+  = liftIO (js_unobserve self (toElement target))+ +foreign import javascript unsafe "$1[\"disconnect\"]()"+        js_disconnect :: IntersectionObserver -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IntersectionObserver.disconnect Mozilla IntersectionObserver.disconnect documentation> +disconnect :: (MonadIO m) => IntersectionObserver -> m ()+disconnect self = liftIO (js_disconnect self)+ +foreign import javascript unsafe "$1[\"takeRecords\"]()"+        js_takeRecords :: IntersectionObserver -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IntersectionObserver.takeRecords Mozilla IntersectionObserver.takeRecords documentation> +takeRecords ::+            (MonadIO m) =>+              IntersectionObserver -> m [IntersectionObserverEntry]+takeRecords self+  = liftIO ((js_takeRecords self) >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IntersectionObserver.takeRecords Mozilla IntersectionObserver.takeRecords documentation> +takeRecords_ :: (MonadIO m) => IntersectionObserver -> m ()+takeRecords_ self = liftIO (void (js_takeRecords self))+ +foreign import javascript unsafe "$1[\"root\"]" js_getRoot ::+        IntersectionObserver -> IO (Nullable Element)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IntersectionObserver.root Mozilla IntersectionObserver.root documentation> +getRoot :: (MonadIO m) => IntersectionObserver -> m (Maybe Element)+getRoot self = liftIO (nullableToMaybe <$> (js_getRoot self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IntersectionObserver.root Mozilla IntersectionObserver.root documentation> +getRootUnsafe ::+              (MonadIO m, HasCallStack) => IntersectionObserver -> m Element+getRootUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getRoot self)) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IntersectionObserver.root Mozilla IntersectionObserver.root documentation> +getRootUnchecked ::+                 (MonadIO m) => IntersectionObserver -> m Element+getRootUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getRoot self))+ +foreign import javascript unsafe "$1[\"rootMargin\"]"+        js_getRootMargin :: IntersectionObserver -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IntersectionObserver.rootMargin Mozilla IntersectionObserver.rootMargin documentation> +getRootMargin ::+              (MonadIO m, FromJSString result) =>+                IntersectionObserver -> m result+getRootMargin self+  = liftIO (fromJSString <$> (js_getRootMargin self))+ +foreign import javascript unsafe "$1[\"thresholds\"]"+        js_getThresholds :: IntersectionObserver -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IntersectionObserver.thresholds Mozilla IntersectionObserver.thresholds documentation> +getThresholds :: (MonadIO m) => IntersectionObserver -> m [Double]+getThresholds self+  = liftIO ((js_getThresholds self) >>= fromJSValUnchecked)
+ src/GHCJS/DOM/JSFFI/Generated/IntersectionObserverCallback.hs view
@@ -0,0 +1,74 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+module GHCJS.DOM.JSFFI.Generated.IntersectionObserverCallback+       (newIntersectionObserverCallback,+        newIntersectionObserverCallbackSync,+        newIntersectionObserverCallbackAsync, IntersectionObserverCallback)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error)+import Data.Typeable (Typeable)+import GHCJS.Types (JSVal(..), JSString)+import GHCJS.Foreign (jsNull, jsUndefined)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Control.Monad (void)+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import Data.Maybe (fromJust)+import Data.Traversable (mapM)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.JSFFI.Generated.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IntersectionObserverCallback Mozilla IntersectionObserverCallback documentation> +newIntersectionObserverCallback ::+                                (MonadIO m) =>+                                  ([IntersectionObserverEntry] -> IntersectionObserver -> IO ()) ->+                                    m IntersectionObserverCallback+newIntersectionObserverCallback callback+  = liftIO+      (IntersectionObserverCallback <$>+         syncCallback2 ThrowWouldBlock+           (\ entries observer ->+              fromJSValUnchecked observer >>=+                \ observer' ->+                  fromJSValUnchecked entries >>= \ entries' -> callback entries'+                    observer'))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IntersectionObserverCallback Mozilla IntersectionObserverCallback documentation> +newIntersectionObserverCallbackSync ::+                                    (MonadIO m) =>+                                      ([IntersectionObserverEntry] -> IntersectionObserver -> IO ())+                                        -> m IntersectionObserverCallback+newIntersectionObserverCallbackSync callback+  = liftIO+      (IntersectionObserverCallback <$>+         syncCallback2 ContinueAsync+           (\ entries observer ->+              fromJSValUnchecked observer >>=+                \ observer' ->+                  fromJSValUnchecked entries >>= \ entries' -> callback entries'+                    observer'))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IntersectionObserverCallback Mozilla IntersectionObserverCallback documentation> +newIntersectionObserverCallbackAsync ::+                                     (MonadIO m) =>+                                       ([IntersectionObserverEntry] ->+                                          IntersectionObserver -> IO ())+                                         -> m IntersectionObserverCallback+newIntersectionObserverCallbackAsync callback+  = liftIO+      (IntersectionObserverCallback <$>+         asyncCallback2+           (\ entries observer ->+              fromJSValUnchecked observer >>=+                \ observer' ->+                  fromJSValUnchecked entries >>= \ entries' -> callback entries'+                    observer'))
+ src/GHCJS/DOM/JSFFI/Generated/IntersectionObserverEntry.hs view
@@ -0,0 +1,94 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+module GHCJS.DOM.JSFFI.Generated.IntersectionObserverEntry+       (js_newIntersectionObserverEntry, newIntersectionObserverEntry,+        js_getTime, getTime, js_getRootBounds, getRootBounds,+        js_getBoundingClientRect, getBoundingClientRect,+        js_getIntersectionRect, getIntersectionRect,+        js_getIntersectionRatio, getIntersectionRatio, js_getTarget,+        getTarget, IntersectionObserverEntry(..),+        gTypeIntersectionObserverEntry)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error)+import Data.Typeable (Typeable)+import GHCJS.Types (JSVal(..), JSString)+import GHCJS.Foreign (jsNull, jsUndefined)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Control.Monad (void)+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import Data.Maybe (fromJust)+import Data.Traversable (mapM)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.JSFFI.Generated.Enums+ +foreign import javascript unsafe+        "new window[\"IntersectionObserverEntry\"]($1)"+        js_newIntersectionObserverEntry ::+        IntersectionObserverEntryInit -> IO IntersectionObserverEntry++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IntersectionObserverEntry Mozilla IntersectionObserverEntry documentation> +newIntersectionObserverEntry ::+                             (MonadIO m) =>+                               IntersectionObserverEntryInit -> m IntersectionObserverEntry+newIntersectionObserverEntry intersectionObserverEntryInit+  = liftIO+      (js_newIntersectionObserverEntry intersectionObserverEntryInit)+ +foreign import javascript unsafe "$1[\"time\"]" js_getTime ::+        IntersectionObserverEntry -> IO DOMHighResTimeStamp++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IntersectionObserverEntry.time Mozilla IntersectionObserverEntry.time documentation> +getTime ::+        (MonadIO m) => IntersectionObserverEntry -> m DOMHighResTimeStamp+getTime self = liftIO (js_getTime self)+ +foreign import javascript unsafe "$1[\"rootBounds\"]"+        js_getRootBounds :: IntersectionObserverEntry -> IO DOMRectReadOnly++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IntersectionObserverEntry.rootBounds Mozilla IntersectionObserverEntry.rootBounds documentation> +getRootBounds ::+              (MonadIO m) => IntersectionObserverEntry -> m DOMRectReadOnly+getRootBounds self = liftIO (js_getRootBounds self)+ +foreign import javascript unsafe "$1[\"boundingClientRect\"]"+        js_getBoundingClientRect ::+        IntersectionObserverEntry -> IO DOMRectReadOnly++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IntersectionObserverEntry.boundingClientRect Mozilla IntersectionObserverEntry.boundingClientRect documentation> +getBoundingClientRect ::+                      (MonadIO m) => IntersectionObserverEntry -> m DOMRectReadOnly+getBoundingClientRect self = liftIO (js_getBoundingClientRect self)+ +foreign import javascript unsafe "$1[\"intersectionRect\"]"+        js_getIntersectionRect ::+        IntersectionObserverEntry -> IO DOMRectReadOnly++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IntersectionObserverEntry.intersectionRect Mozilla IntersectionObserverEntry.intersectionRect documentation> +getIntersectionRect ::+                    (MonadIO m) => IntersectionObserverEntry -> m DOMRectReadOnly+getIntersectionRect self = liftIO (js_getIntersectionRect self)+ +foreign import javascript unsafe "$1[\"intersectionRatio\"]"+        js_getIntersectionRatio :: IntersectionObserverEntry -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IntersectionObserverEntry.intersectionRatio Mozilla IntersectionObserverEntry.intersectionRatio documentation> +getIntersectionRatio ::+                     (MonadIO m) => IntersectionObserverEntry -> m Double+getIntersectionRatio self = liftIO (js_getIntersectionRatio self)+ +foreign import javascript unsafe "$1[\"target\"]" js_getTarget ::+        IntersectionObserverEntry -> IO Element++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IntersectionObserverEntry.target Mozilla IntersectionObserverEntry.target documentation> +getTarget :: (MonadIO m) => IntersectionObserverEntry -> m Element+getTarget self = liftIO (js_getTarget self)
src/GHCJS/DOM/JSFFI/Generated/KeyboardEvent.hs view
@@ -4,20 +4,25 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} 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_newKeyboardEvent, newKeyboardEvent, js_getModifierState,+        getModifierState, getModifierState_, js_initKeyboardEvent,+        initKeyboardEvent, pattern DOM_KEY_LOCATION_STANDARD,+        pattern DOM_KEY_LOCATION_LEFT, pattern DOM_KEY_LOCATION_RIGHT,+        pattern DOM_KEY_LOCATION_NUMPAD, js_getKey, getKey, js_getCode,+        getCode, js_getLocation, getLocation, js_getCtrlKey, getCtrlKey,         js_getShiftKey, getShiftKey, js_getAltKey, getAltKey,-        js_getMetaKey, getMetaKey, js_getAltGraphKey, getAltGraphKey,+        js_getMetaKey, getMetaKey, js_getRepeat, getRepeat,+        js_getIsComposing, getIsComposing, js_getKeyIdentifier,+        getKeyIdentifier, js_getKeyLocation, getKeyLocation,+        js_getAltGraphKey, getAltGraphKey, js_getCharCode, getCharCode,+        js_getKeyCode, getKeyCode, js_getWhich, getWhich,         KeyboardEvent(..), gTypeKeyboardEvent)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -26,39 +31,70 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums   foreign import javascript unsafe+        "new window[\"KeyboardEvent\"]($1,\n$2)" js_newKeyboardEvent ::+        JSString -> Optional KeyboardEventInit -> IO KeyboardEvent++-- | <https://developer.mozilla.org/en-US/docs/Web/API/KeyboardEvent Mozilla KeyboardEvent documentation> +newKeyboardEvent ::+                 (MonadIO m, ToJSString type') =>+                   type' -> Maybe KeyboardEventInit -> m KeyboardEvent+newKeyboardEvent type' eventInitDict+  = liftIO+      (js_newKeyboardEvent (toJSString type')+         (maybeToOptional eventInitDict))+ +foreign import javascript unsafe+        "($1[\"getModifierState\"]($2) ? 1 : 0)" js_getModifierState ::+        KeyboardEvent -> JSString -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/KeyboardEvent.getModifierState Mozilla KeyboardEvent.getModifierState documentation> +getModifierState ::+                 (MonadIO m, ToJSString keyArg) => KeyboardEvent -> keyArg -> m Bool+getModifierState self keyArg+  = liftIO (js_getModifierState self (toJSString keyArg))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/KeyboardEvent.getModifierState Mozilla KeyboardEvent.getModifierState documentation> +getModifierState_ ::+                  (MonadIO m, ToJSString keyArg) => KeyboardEvent -> keyArg -> m ()+getModifierState_ self keyArg+  = liftIO (void (js_getModifierState self (toJSString keyArg)))+ +foreign import javascript unsafe         "$1[\"initKeyboardEvent\"]($2, $3,\n$4, $5, $6, $7, $8, $9, $10,\n$11, $12)"         js_initKeyboardEvent ::         KeyboardEvent ->-          JSString ->+          Optional JSString ->             Bool ->               Bool ->-                Nullable Window ->-                  JSString -> Word -> Bool -> Bool -> Bool -> Bool -> Bool -> IO ()+                Optional Window ->+                  Optional JSString ->+                    Optional 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' ->+                      Maybe type' ->                         Bool ->                           Bool ->                             Maybe Window ->-                              keyIdentifier ->-                                Word -> Bool -> Bool -> Bool -> Bool -> Bool -> m ()+                              Maybe keyIdentifier ->+                                Maybe 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+      (js_initKeyboardEvent self (toOptionalJSString type') canBubble          cancelable-         (maybeToNullable view)-         (toJSString keyIdentifier)-         location+         (maybeToOptional view)+         (toOptionalJSString keyIdentifier)+         (maybeToOptional location)          ctrlKey          altKey          shiftKey@@ -69,60 +105,111 @@ pattern DOM_KEY_LOCATION_RIGHT = 2 pattern DOM_KEY_LOCATION_NUMPAD = 3  -foreign import javascript unsafe "$1[\"keyIdentifier\"]"-        js_getKeyIdentifier :: KeyboardEvent -> IO JSString+foreign import javascript unsafe "$1[\"key\"]" js_getKey ::+        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)))+-- | <https://developer.mozilla.org/en-US/docs/Web/API/KeyboardEvent.key Mozilla KeyboardEvent.key documentation> +getKey ::+       (MonadIO m, FromJSString result) => KeyboardEvent -> m result+getKey self = liftIO (fromJSString <$> (js_getKey self))  +foreign import javascript unsafe "$1[\"code\"]" js_getCode ::+        KeyboardEvent -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/KeyboardEvent.code Mozilla KeyboardEvent.code documentation> +getCode ::+        (MonadIO m, FromJSString result) => KeyboardEvent -> m result+getCode self = liftIO (fromJSString <$> (js_getCode 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))+getLocation self = liftIO (js_getLocation 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))+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))+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))+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))+getMetaKey self = liftIO (js_getMetaKey self)  +foreign import javascript unsafe "($1[\"repeat\"] ? 1 : 0)"+        js_getRepeat :: KeyboardEvent -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/KeyboardEvent.repeat Mozilla KeyboardEvent.repeat documentation> +getRepeat :: (MonadIO m) => KeyboardEvent -> m Bool+getRepeat self = liftIO (js_getRepeat self)+ +foreign import javascript unsafe "($1[\"isComposing\"] ? 1 : 0)"+        js_getIsComposing :: KeyboardEvent -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/KeyboardEvent.isComposing Mozilla KeyboardEvent.isComposing documentation> +getIsComposing :: (MonadIO m) => KeyboardEvent -> m Bool+getIsComposing self = liftIO (js_getIsComposing self)+ +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[\"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[\"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))+getAltGraphKey self = liftIO (js_getAltGraphKey self)+ +foreign import javascript unsafe "$1[\"charCode\"]" js_getCharCode+        :: KeyboardEvent -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/KeyboardEvent.charCode Mozilla KeyboardEvent.charCode documentation> +getCharCode :: (MonadIO m) => KeyboardEvent -> m Word+getCharCode self = liftIO (js_getCharCode self)+ +foreign import javascript unsafe "$1[\"keyCode\"]" js_getKeyCode ::+        KeyboardEvent -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/KeyboardEvent.keyCode Mozilla KeyboardEvent.keyCode documentation> +getKeyCode :: (MonadIO m) => KeyboardEvent -> m Word+getKeyCode self = liftIO (js_getKeyCode self)+ +foreign import javascript unsafe "$1[\"which\"]" js_getWhich ::+        KeyboardEvent -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/KeyboardEvent.which Mozilla KeyboardEvent.which documentation> +getWhich :: (MonadIO m) => KeyboardEvent -> m Word+getWhich self = liftIO (js_getWhich self)
+ src/GHCJS/DOM/JSFFI/Generated/KeyframeEffect.hs view
@@ -0,0 +1,38 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+module GHCJS.DOM.JSFFI.Generated.KeyframeEffect+       (js_newKeyframeEffect, newKeyframeEffect, KeyframeEffect(..),+        gTypeKeyframeEffect)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error)+import Data.Typeable (Typeable)+import GHCJS.Types (JSVal(..), JSString)+import GHCJS.Foreign (jsNull, jsUndefined)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Control.Monad (void)+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import Data.Maybe (fromJust)+import Data.Traversable (mapM)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.JSFFI.Generated.Enums+ +foreign import javascript unsafe+        "new window[\"KeyframeEffect\"]($1)" js_newKeyframeEffect ::+        Optional Element -> IO KeyframeEffect++-- | <https://developer.mozilla.org/en-US/docs/Web/API/KeyframeEffect Mozilla KeyframeEffect documentation> +newKeyframeEffect ::+                  (MonadIO m, IsElement target) => Maybe target -> m KeyframeEffect+newKeyframeEffect target+  = liftIO+      (js_newKeyframeEffect (maybeToOptional (fmap toElement target)))
src/GHCJS/DOM/JSFFI/Generated/Location.hs view
@@ -5,22 +5,21 @@ {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.Location        (js_assign, assign, js_replace, replace, js_reload, reload,-        js_toString, 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,-        getAncestorOriginsUnsafe, getAncestorOriginsUnchecked,-        Location(..), gTypeLocation)+        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(..),+        gTypeLocation)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -29,6 +28,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -39,47 +39,35 @@  -- | <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))+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))+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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Location.toString Mozilla Location.toString documentation> -toString_ :: (MonadIO m) => Location -> m ()-toString_ self = liftIO (void (js_toString (self)))+reload self = liftIO (js_reload 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))+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)))+getHref self = liftIO (fromJSString <$> (js_getHref self))   foreign import javascript unsafe "$1[\"protocol\"] = $2;"         js_setProtocol :: Location -> JSString -> IO ()@@ -88,7 +76,7 @@ setProtocol ::             (MonadIO m, ToJSString val) => Location -> val -> m () setProtocol self val-  = liftIO (js_setProtocol (self) (toJSString val))+  = liftIO (js_setProtocol self (toJSString val))   foreign import javascript unsafe "$1[\"protocol\"]" js_getProtocol         :: Location -> IO JSString@@ -96,22 +84,21 @@ -- | <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)))+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))+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)))+getHost self = liftIO (fromJSString <$> (js_getHost self))   foreign import javascript unsafe "$1[\"hostname\"] = $2;"         js_setHostname :: Location -> JSString -> IO ()@@ -120,7 +107,7 @@ setHostname ::             (MonadIO m, ToJSString val) => Location -> val -> m () setHostname self val-  = liftIO (js_setHostname (self) (toJSString val))+  = liftIO (js_setHostname self (toJSString val))   foreign import javascript unsafe "$1[\"hostname\"]" js_getHostname         :: Location -> IO JSString@@ -128,22 +115,21 @@ -- | <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)))+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))+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)))+getPort self = liftIO (fromJSString <$> (js_getPort self))   foreign import javascript unsafe "$1[\"pathname\"] = $2;"         js_setPathname :: Location -> JSString -> IO ()@@ -152,7 +138,7 @@ setPathname ::             (MonadIO m, ToJSString val) => Location -> val -> m () setPathname self val-  = liftIO (js_setPathname (self) (toJSString val))+  = liftIO (js_setPathname self (toJSString val))   foreign import javascript unsafe "$1[\"pathname\"]" js_getPathname         :: Location -> IO JSString@@ -160,15 +146,14 @@ -- | <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)))+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))+setSearch self val = liftIO (js_setSearch self (toJSString val))   foreign import javascript unsafe "$1[\"search\"]" js_getSearch ::         Location -> IO JSString@@ -176,21 +161,21 @@ -- | <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)))+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))+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)))+getHash self = liftIO (fromJSString <$> (js_getHash self))   foreign import javascript unsafe "$1[\"origin\"]" js_getOrigin ::         Location -> IO JSString@@ -198,28 +183,11 @@ -- | <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)))+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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Location.ancestorOrigins Mozilla Location.ancestorOrigins documentation> -getAncestorOriginsUnsafe ::-                         (MonadIO m, HasCallStack) => Location -> m DOMStringList-getAncestorOriginsUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getAncestorOrigins (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        js_getAncestorOrigins :: Location -> IO DOMStringList  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Location.ancestorOrigins Mozilla Location.ancestorOrigins documentation> -getAncestorOriginsUnchecked ::-                            (MonadIO m) => Location -> m DOMStringList-getAncestorOriginsUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$> (js_getAncestorOrigins (self)))+getAncestorOrigins :: (MonadIO m) => Location -> m DOMStringList+getAncestorOrigins self = liftIO (js_getAncestorOrigins self)
− src/GHCJS/DOM/JSFFI/Generated/MallocStatistics.hs 
@@ -1,48 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility-{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}-module GHCJS.DOM.JSFFI.Generated.MallocStatistics-       (js_getReservedVMBytes, getReservedVMBytes, js_getCommittedVMBytes,-        getCommittedVMBytes, js_getFreeListBytes, getFreeListBytes,-        MallocStatistics(..), gTypeMallocStatistics)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)-import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))-import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import 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
@@ -6,11 +6,9 @@ module GHCJS.DOM.JSFFI.Generated.MediaController        (js_newMediaController, newMediaController, js_play, play,         js_pause, pause, js_unpause, unpause, js_getBuffered, getBuffered,-        getBufferedUnsafe, getBufferedUnchecked, js_getSeekable,-        getSeekable, getSeekableUnsafe, getSeekableUnchecked,-        js_getDuration, getDuration, js_setCurrentTime, setCurrentTime,-        js_getCurrentTime, getCurrentTime, js_getPaused, getPaused,-        js_getPlayed, getPlayed, getPlayedUnsafe, getPlayedUnchecked,+        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,@@ -22,7 +20,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -31,6 +29,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -49,116 +48,70 @@  -- | <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))+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))+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))+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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaController.buffered Mozilla MediaController.buffered documentation> -getBufferedUnsafe ::-                  (MonadIO m, HasCallStack) => MediaController -> m TimeRanges-getBufferedUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getBuffered (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        :: MediaController -> IO TimeRanges  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaController.buffered Mozilla MediaController.buffered documentation> -getBufferedUnchecked ::-                     (MonadIO m) => MediaController -> m TimeRanges-getBufferedUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getBuffered (self)))+getBuffered :: (MonadIO m) => MediaController -> m TimeRanges+getBuffered self = liftIO (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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaController.seekable Mozilla MediaController.seekable documentation> -getSeekableUnsafe ::-                  (MonadIO m, HasCallStack) => MediaController -> m TimeRanges-getSeekableUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getSeekable (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        :: MediaController -> IO TimeRanges  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaController.seekable Mozilla MediaController.seekable documentation> -getSeekableUnchecked ::-                     (MonadIO m) => MediaController -> m TimeRanges-getSeekableUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getSeekable (self)))+getSeekable :: (MonadIO m) => MediaController -> m TimeRanges+getSeekable self = liftIO (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))+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)+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))+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))+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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaController.played Mozilla MediaController.played documentation> -getPlayedUnsafe ::-                (MonadIO m, HasCallStack) => MediaController -> m TimeRanges-getPlayedUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getPlayed (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        MediaController -> IO TimeRanges  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaController.played Mozilla MediaController.played documentation> -getPlayedUnchecked ::-                   (MonadIO m) => MediaController -> m TimeRanges-getPlayedUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getPlayed (self)))+getPlayed :: (MonadIO m) => MediaController -> m TimeRanges+getPlayed self = liftIO (js_getPlayed self)   foreign import javascript unsafe "$1[\"playbackState\"]"         js_getPlaybackState :: MediaController -> IO JSString@@ -167,7 +120,7 @@ getPlaybackState ::                  (MonadIO m, FromJSString result) => MediaController -> m result getPlaybackState self-  = liftIO (fromJSString <$> (js_getPlaybackState (self)))+  = liftIO (fromJSString <$> (js_getPlaybackState self))   foreign import javascript unsafe         "$1[\"defaultPlaybackRate\"] = $2;" js_setDefaultPlaybackRate ::@@ -177,7 +130,7 @@ setDefaultPlaybackRate ::                        (MonadIO m) => MediaController -> Double -> m () setDefaultPlaybackRate self val-  = liftIO (js_setDefaultPlaybackRate (self) val)+  = liftIO (js_setDefaultPlaybackRate self val)   foreign import javascript unsafe "$1[\"defaultPlaybackRate\"]"         js_getDefaultPlaybackRate :: MediaController -> IO Double@@ -186,46 +139,46 @@ getDefaultPlaybackRate ::                        (MonadIO m) => MediaController -> m Double getDefaultPlaybackRate self-  = liftIO (js_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)+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))+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)+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))+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)+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))+getMuted self = liftIO (js_getMuted self)
src/GHCJS/DOM/JSFFI/Generated/MediaControlsHost.hs view
@@ -8,35 +8,36 @@         sortedTrackListForMenu_, js_sortedTrackListForMenuAudio,         sortedTrackListForMenuAudio, sortedTrackListForMenuAudio_,         js_displayNameForTrack, displayNameForTrack, displayNameForTrack_,-        js_displayNameForTrackAudio, displayNameForTrackAudio,-        displayNameForTrackAudio_, js_setSelectedTextTrack,-        setSelectedTextTrack, js_updateTextTrackContainer,+        js_setSelectedTextTrack, setSelectedTextTrack,+        js_setPreparedToReturnVideoLayerToInline,+        setPreparedToReturnVideoLayerToInline, js_updateTextTrackContainer,         updateTextTrackContainer, js_enteredFullscreen, enteredFullscreen,-        js_exitedFullscreen, exitedFullscreen, js_enterFullscreenOptimized,-        enterFullscreenOptimized, js_mediaUIImageData, mediaUIImageData,-        mediaUIImageData_, js_getCaptionMenuOffItem, getCaptionMenuOffItem,-        getCaptionMenuOffItemUnsafe, getCaptionMenuOffItemUnchecked,+        js_exitedFullscreen, exitedFullscreen, js_generateUUID,+        generateUUID, generateUUID_, js_base64StringForIconAndPlatform,+        base64StringForIconAndPlatform, base64StringForIconAndPlatform_,+        js_getCaptionMenuOffItem, getCaptionMenuOffItem,         js_getCaptionMenuAutomaticItem, getCaptionMenuAutomaticItem,-        getCaptionMenuAutomaticItemUnsafe,-        getCaptionMenuAutomaticItemUnchecked, js_getCaptionDisplayMode,-        getCaptionDisplayMode, js_getTextTrackContainer,-        getTextTrackContainer, getTextTrackContainerUnsafe,-        getTextTrackContainerUnchecked, js_getMediaPlaybackAllowsInline,-        getMediaPlaybackAllowsInline, js_getSupportsFullscreen,-        getSupportsFullscreen, js_getUserGestureRequired,-        getUserGestureRequired, js_getExternalDeviceDisplayName,-        getExternalDeviceDisplayName, js_getExternalDeviceType,-        getExternalDeviceType, js_setControlsDependOnPageScaleFactor,+        js_getCaptionDisplayMode, getCaptionDisplayMode,+        js_getTextTrackContainer, getTextTrackContainer,+        js_getAllowsInlineMediaPlayback, getAllowsInlineMediaPlayback,+        js_getSupportsFullscreen, getSupportsFullscreen,+        js_getIsVideoLayerInline, getIsVideoLayerInline,+        js_getUserGestureRequired, getUserGestureRequired,+        js_getIsInMediaDocument, getIsInMediaDocument,+        js_getExternalDeviceDisplayName, getExternalDeviceDisplayName,+        js_getExternalDeviceType, getExternalDeviceType,+        js_setControlsDependOnPageScaleFactor,         setControlsDependOnPageScaleFactor,         js_getControlsDependOnPageScaleFactor,-        getControlsDependOnPageScaleFactor, MediaControlsHost(..),+        getControlsDependOnPageScaleFactor, js_getShadowRootCSSText,+        getShadowRootCSSText, MediaControlsHost(..),         gTypeMediaControlsHost)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -45,6 +46,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -52,99 +54,88 @@   foreign import javascript unsafe         "$1[\"sortedTrackListForMenu\"]($2)" js_sortedTrackListForMenu ::-        MediaControlsHost -> Nullable TextTrackList -> IO JSVal+        MediaControlsHost -> 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]+                       (MonadIO m) => MediaControlsHost -> TextTrackList -> m [TextTrack] sortedTrackListForMenu self trackList   = liftIO-      ((js_sortedTrackListForMenu (self) (maybeToNullable trackList)) >>=-         fromJSValUnchecked)+      ((js_sortedTrackListForMenu self trackList) >>= fromJSValUnchecked)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.sortedTrackListForMenu Mozilla MediaControlsHost.sortedTrackListForMenu documentation>  sortedTrackListForMenu_ ::-                        (MonadIO m) => MediaControlsHost -> Maybe TextTrackList -> m ()+                        (MonadIO m) => MediaControlsHost -> TextTrackList -> m () sortedTrackListForMenu_ self trackList-  = liftIO-      (void-         (js_sortedTrackListForMenu (self) (maybeToNullable trackList)))+  = liftIO (void (js_sortedTrackListForMenu self trackList))   foreign import javascript unsafe         "$1[\"sortedTrackListForMenu\"]($2)" js_sortedTrackListForMenuAudio-        :: MediaControlsHost -> Nullable AudioTrackList -> IO JSVal+        :: MediaControlsHost -> 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]+                              MediaControlsHost -> AudioTrackList -> m [AudioTrack] sortedTrackListForMenuAudio self trackList   = liftIO-      ((js_sortedTrackListForMenuAudio (self)-          (maybeToNullable trackList))-         >>= fromJSValUnchecked)+      ((js_sortedTrackListForMenuAudio self trackList) >>=+         fromJSValUnchecked)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.sortedTrackListForMenu Mozilla MediaControlsHost.sortedTrackListForMenu documentation>  sortedTrackListForMenuAudio_ ::-                             (MonadIO m) => MediaControlsHost -> Maybe AudioTrackList -> m ()+                             (MonadIO m) => MediaControlsHost -> AudioTrackList -> m () sortedTrackListForMenuAudio_ self trackList-  = liftIO-      (void-         (js_sortedTrackListForMenuAudio (self)-            (maybeToNullable trackList)))+  = liftIO (void (js_sortedTrackListForMenuAudio self trackList))   foreign import javascript unsafe "$1[\"displayNameForTrack\"]($2)"         js_displayNameForTrack ::-        MediaControlsHost -> Nullable TextTrack -> IO JSString+        MediaControlsHost -> Optional Track -> 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+                    (MonadIO m, IsTrack track, FromJSString result) =>+                      MediaControlsHost -> Maybe track -> m result displayNameForTrack self track   = liftIO       (fromJSString <$>-         (js_displayNameForTrack (self) (maybeToNullable track)))+         (mapM toJSVal track >>=+            \ track' ->+              js_displayNameForTrack self (maybeToOptional (fmap Track track'))))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.displayNameForTrack Mozilla MediaControlsHost.displayNameForTrack documentation>  displayNameForTrack_ ::-                     (MonadIO m) => MediaControlsHost -> Maybe TextTrack -> m ()+                     (MonadIO m, IsTrack track) =>+                       MediaControlsHost -> Maybe track -> m () displayNameForTrack_ self track   = liftIO-      (void (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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.displayNameForTrack Mozilla MediaControlsHost.displayNameForTrack documentation> -displayNameForTrackAudio_ ::-                          (MonadIO m) => MediaControlsHost -> Maybe AudioTrack -> m ()-displayNameForTrackAudio_ self track-  = liftIO-      (void (js_displayNameForTrackAudio (self) (maybeToNullable track)))+      (void+         (mapM toJSVal track >>=+            \ track' ->+              js_displayNameForTrack self (maybeToOptional (fmap Track track'))))   foreign import javascript unsafe "$1[\"setSelectedTextTrack\"]($2)"         js_setSelectedTextTrack ::-        MediaControlsHost -> Nullable TextTrack -> IO ()+        MediaControlsHost -> Optional 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))+  = liftIO (js_setSelectedTextTrack self (maybeToOptional track))   foreign import javascript unsafe+        "$1[\"setPreparedToReturnVideoLayerToInline\"]($2)"+        js_setPreparedToReturnVideoLayerToInline ::+        MediaControlsHost -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.setPreparedToReturnVideoLayerToInline Mozilla MediaControlsHost.setPreparedToReturnVideoLayerToInline documentation> +setPreparedToReturnVideoLayerToInline ::+                                      (MonadIO m) => MediaControlsHost -> Bool -> m ()+setPreparedToReturnVideoLayerToInline self prepared+  = liftIO (js_setPreparedToReturnVideoLayerToInline self prepared)+ +foreign import javascript unsafe         "$1[\"updateTextTrackContainer\"]()" js_updateTextTrackContainer ::         MediaControlsHost -> IO () @@ -152,100 +143,77 @@ updateTextTrackContainer ::                          (MonadIO m) => MediaControlsHost -> m () updateTextTrackContainer self-  = liftIO (js_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))+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))+exitedFullscreen self = liftIO (js_exitedFullscreen self)  -foreign import javascript unsafe-        "$1[\"enterFullscreenOptimized\"]()" js_enterFullscreenOptimized ::-        MediaControlsHost -> IO ()+foreign import javascript unsafe "$1[\"generateUUID\"]()"+        js_generateUUID :: MediaControlsHost -> IO JSString --- | <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))+-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.generateUUID Mozilla MediaControlsHost.generateUUID documentation> +generateUUID ::+             (MonadIO m, FromJSString result) => MediaControlsHost -> m result+generateUUID self+  = liftIO (fromJSString <$> (js_generateUUID self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.generateUUID Mozilla MediaControlsHost.generateUUID documentation> +generateUUID_ :: (MonadIO m) => MediaControlsHost -> m ()+generateUUID_ self = liftIO (void (js_generateUUID self))  -foreign import javascript unsafe "$1[\"mediaUIImageData\"]($2)"-        js_mediaUIImageData :: MediaControlsHost -> JSVal -> IO JSString+foreign import javascript unsafe+        "$1[\"base64StringForIconAndPlatform\"]($2,\n$3)"+        js_base64StringForIconAndPlatform ::+        MediaControlsHost -> JSString -> JSString -> 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+-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.base64StringForIconAndPlatform Mozilla MediaControlsHost.base64StringForIconAndPlatform documentation> +base64StringForIconAndPlatform ::+                               (MonadIO m, ToJSString iconName, ToJSString platform,+                                FromJSString result) =>+                                 MediaControlsHost -> iconName -> platform -> m result+base64StringForIconAndPlatform self iconName platform   = liftIO-      (fromJSString <$> (js_mediaUIImageData (self) (pToJSVal partID)))+      (fromJSString <$>+         (js_base64StringForIconAndPlatform self (toJSString iconName)+            (toJSString platform))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.mediaUIImageData Mozilla MediaControlsHost.mediaUIImageData documentation> -mediaUIImageData_ ::-                  (MonadIO m) => MediaControlsHost -> MediaUIPartID -> m ()-mediaUIImageData_ self partID-  = liftIO (void (js_mediaUIImageData (self) (pToJSVal partID)))+-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.base64StringForIconAndPlatform Mozilla MediaControlsHost.base64StringForIconAndPlatform documentation> +base64StringForIconAndPlatform_ ::+                                (MonadIO m, ToJSString iconName, ToJSString platform) =>+                                  MediaControlsHost -> iconName -> platform -> m ()+base64StringForIconAndPlatform_ self iconName platform+  = liftIO+      (void+         (js_base64StringForIconAndPlatform self (toJSString iconName)+            (toJSString platform)))   foreign import javascript unsafe "$1[\"captionMenuOffItem\"]"-        js_getCaptionMenuOffItem ::-        MediaControlsHost -> IO (Nullable TextTrack)+        js_getCaptionMenuOffItem :: MediaControlsHost -> IO 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.captionMenuOffItem Mozilla MediaControlsHost.captionMenuOffItem documentation> -getCaptionMenuOffItemUnsafe ::-                            (MonadIO m, HasCallStack) => MediaControlsHost -> m TextTrack-getCaptionMenuOffItemUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getCaptionMenuOffItem (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.captionMenuOffItem Mozilla MediaControlsHost.captionMenuOffItem documentation> -getCaptionMenuOffItemUnchecked ::-                               (MonadIO m) => MediaControlsHost -> m TextTrack-getCaptionMenuOffItemUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$> (js_getCaptionMenuOffItem (self)))+                      (MonadIO m) => MediaControlsHost -> m TextTrack+getCaptionMenuOffItem self = liftIO (js_getCaptionMenuOffItem self)   foreign import javascript unsafe "$1[\"captionMenuAutomaticItem\"]"-        js_getCaptionMenuAutomaticItem ::-        MediaControlsHost -> IO (Nullable TextTrack)+        js_getCaptionMenuAutomaticItem :: MediaControlsHost -> IO TextTrack  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.captionMenuAutomaticItem Mozilla MediaControlsHost.captionMenuAutomaticItem documentation>  getCaptionMenuAutomaticItem ::-                            (MonadIO m) => MediaControlsHost -> m (Maybe TextTrack)+                            (MonadIO m) => MediaControlsHost -> m TextTrack getCaptionMenuAutomaticItem self-  = liftIO-      (nullableToMaybe <$> (js_getCaptionMenuAutomaticItem (self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.captionMenuAutomaticItem Mozilla MediaControlsHost.captionMenuAutomaticItem documentation> -getCaptionMenuAutomaticItemUnsafe ::-                                  (MonadIO m, HasCallStack) => MediaControlsHost -> m TextTrack-getCaptionMenuAutomaticItemUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getCaptionMenuAutomaticItem (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.captionMenuAutomaticItem Mozilla MediaControlsHost.captionMenuAutomaticItem documentation> -getCaptionMenuAutomaticItemUnchecked ::-                                     (MonadIO m) => MediaControlsHost -> m TextTrack-getCaptionMenuAutomaticItemUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_getCaptionMenuAutomaticItem (self)))+  = liftIO (js_getCaptionMenuAutomaticItem self)   foreign import javascript unsafe "$1[\"captionDisplayMode\"]"         js_getCaptionDisplayMode :: MediaControlsHost -> IO JSString@@ -254,42 +222,25 @@ getCaptionDisplayMode ::                       (MonadIO m, FromJSString result) => MediaControlsHost -> m result getCaptionDisplayMode self-  = liftIO (fromJSString <$> (js_getCaptionDisplayMode (self)))+  = liftIO (fromJSString <$> (js_getCaptionDisplayMode self))   foreign import javascript unsafe "$1[\"textTrackContainer\"]"-        js_getTextTrackContainer ::-        MediaControlsHost -> IO (Nullable HTMLElement)+        js_getTextTrackContainer :: MediaControlsHost -> IO 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.textTrackContainer Mozilla MediaControlsHost.textTrackContainer documentation> -getTextTrackContainerUnsafe ::-                            (MonadIO m, HasCallStack) => MediaControlsHost -> m HTMLElement-getTextTrackContainerUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getTextTrackContainer (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.textTrackContainer Mozilla MediaControlsHost.textTrackContainer documentation> -getTextTrackContainerUnchecked ::-                               (MonadIO m) => MediaControlsHost -> m HTMLElement-getTextTrackContainerUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$> (js_getTextTrackContainer (self)))+                      (MonadIO m) => MediaControlsHost -> m HTMLElement+getTextTrackContainer self = liftIO (js_getTextTrackContainer self)   foreign import javascript unsafe-        "($1[\"mediaPlaybackAllowsInline\"] ? 1 : 0)"-        js_getMediaPlaybackAllowsInline :: MediaControlsHost -> IO Bool+        "($1[\"allowsInlineMediaPlayback\"] ? 1 : 0)"+        js_getAllowsInlineMediaPlayback :: MediaControlsHost -> IO Bool --- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.mediaPlaybackAllowsInline Mozilla MediaControlsHost.mediaPlaybackAllowsInline documentation> -getMediaPlaybackAllowsInline ::+-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.allowsInlineMediaPlayback Mozilla MediaControlsHost.allowsInlineMediaPlayback documentation> +getAllowsInlineMediaPlayback ::                              (MonadIO m) => MediaControlsHost -> m Bool-getMediaPlaybackAllowsInline self-  = liftIO (js_getMediaPlaybackAllowsInline (self))+getAllowsInlineMediaPlayback self+  = liftIO (js_getAllowsInlineMediaPlayback self)   foreign import javascript unsafe         "($1[\"supportsFullscreen\"] ? 1 : 0)" js_getSupportsFullscreen ::@@ -297,10 +248,17 @@  -- | <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))+getSupportsFullscreen self = liftIO (js_getSupportsFullscreen self)   foreign import javascript unsafe+        "($1[\"isVideoLayerInline\"] ? 1 : 0)" js_getIsVideoLayerInline ::+        MediaControlsHost -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.isVideoLayerInline Mozilla MediaControlsHost.isVideoLayerInline documentation> +getIsVideoLayerInline :: (MonadIO m) => MediaControlsHost -> m Bool+getIsVideoLayerInline self = liftIO (js_getIsVideoLayerInline self)+ +foreign import javascript unsafe         "($1[\"userGestureRequired\"] ? 1 : 0)" js_getUserGestureRequired         :: MediaControlsHost -> IO Bool @@ -308,9 +266,17 @@ getUserGestureRequired ::                        (MonadIO m) => MediaControlsHost -> m Bool getUserGestureRequired self-  = liftIO (js_getUserGestureRequired (self))+  = liftIO (js_getUserGestureRequired self)   foreign import javascript unsafe+        "($1[\"isInMediaDocument\"] ? 1 : 0)" js_getIsInMediaDocument ::+        MediaControlsHost -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.isInMediaDocument Mozilla MediaControlsHost.isInMediaDocument documentation> +getIsInMediaDocument :: (MonadIO m) => MediaControlsHost -> m Bool+getIsInMediaDocument self = liftIO (js_getIsInMediaDocument self)+ +foreign import javascript unsafe         "$1[\"externalDeviceDisplayName\"]" js_getExternalDeviceDisplayName         :: MediaControlsHost -> IO JSString @@ -318,8 +284,7 @@ getExternalDeviceDisplayName ::                              (MonadIO m, FromJSString result) => MediaControlsHost -> m result getExternalDeviceDisplayName self-  = liftIO-      (fromJSString <$> (js_getExternalDeviceDisplayName (self)))+  = liftIO (fromJSString <$> (js_getExternalDeviceDisplayName self))   foreign import javascript unsafe "$1[\"externalDeviceType\"]"         js_getExternalDeviceType :: MediaControlsHost -> IO JSVal@@ -328,7 +293,7 @@ getExternalDeviceType ::                       (MonadIO m) => MediaControlsHost -> m DeviceType getExternalDeviceType self-  = liftIO ((js_getExternalDeviceType (self)) >>= fromJSValUnchecked)+  = liftIO ((js_getExternalDeviceType self) >>= fromJSValUnchecked)   foreign import javascript unsafe         "$1[\"controlsDependOnPageScaleFactor\"] = $2;"@@ -339,7 +304,7 @@ setControlsDependOnPageScaleFactor ::                                    (MonadIO m) => MediaControlsHost -> Bool -> m () setControlsDependOnPageScaleFactor self val-  = liftIO (js_setControlsDependOnPageScaleFactor (self) val)+  = liftIO (js_setControlsDependOnPageScaleFactor self val)   foreign import javascript unsafe         "($1[\"controlsDependOnPageScaleFactor\"] ? 1 : 0)"@@ -350,4 +315,13 @@ getControlsDependOnPageScaleFactor ::                                    (MonadIO m) => MediaControlsHost -> m Bool getControlsDependOnPageScaleFactor self-  = liftIO (js_getControlsDependOnPageScaleFactor (self))+  = liftIO (js_getControlsDependOnPageScaleFactor self)+ +foreign import javascript unsafe "$1[\"shadowRootCSSText\"]"+        js_getShadowRootCSSText :: MediaControlsHost -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.shadowRootCSSText Mozilla MediaControlsHost.shadowRootCSSText documentation> +getShadowRootCSSText ::+                     (MonadIO m, FromJSString result) => MediaControlsHost -> m result+getShadowRootCSSText self+  = liftIO (fromJSString <$> (js_getShadowRootCSSText self))
+ src/GHCJS/DOM/JSFFI/Generated/MediaDeviceInfo.hs view
@@ -0,0 +1,76 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+module GHCJS.DOM.JSFFI.Generated.MediaDeviceInfo+       (js_newMediaDeviceInfo, newMediaDeviceInfo, js_getDeviceId,+        getDeviceId, js_getGroupId, getGroupId, js_getKind, getKind,+        js_getLabel, getLabel, MediaDeviceInfo(..), gTypeMediaDeviceInfo)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error)+import Data.Typeable (Typeable)+import GHCJS.Types (JSVal(..), JSString)+import GHCJS.Foreign (jsNull, jsUndefined)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Control.Monad (void)+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import Data.Maybe (fromJust)+import Data.Traversable (mapM)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.JSFFI.Generated.Enums+ +foreign import javascript unsafe+        "new window[\"MediaDeviceInfo\"]($1,\n$2, $3, $4)"+        js_newMediaDeviceInfo ::+        JSString -> JSString -> JSString -> JSVal -> IO MediaDeviceInfo++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaDeviceInfo Mozilla MediaDeviceInfo documentation> +newMediaDeviceInfo ::+                   (MonadIO m, ToJSString deviceId, ToJSString label,+                    ToJSString groupId) =>+                     deviceId ->+                       label -> groupId -> MediaDeviceKind -> m MediaDeviceInfo+newMediaDeviceInfo deviceId label groupId kind+  = liftIO+      (js_newMediaDeviceInfo (toJSString deviceId) (toJSString label)+         (toJSString groupId)+         (pToJSVal kind))+ +foreign import javascript unsafe "$1[\"deviceId\"]" js_getDeviceId+        :: MediaDeviceInfo -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaDeviceInfo.deviceId Mozilla MediaDeviceInfo.deviceId documentation> +getDeviceId ::+            (MonadIO m, FromJSString result) => MediaDeviceInfo -> m result+getDeviceId self = liftIO (fromJSString <$> (js_getDeviceId self))+ +foreign import javascript unsafe "$1[\"groupId\"]" js_getGroupId ::+        MediaDeviceInfo -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaDeviceInfo.groupId Mozilla MediaDeviceInfo.groupId documentation> +getGroupId ::+           (MonadIO m, FromJSString result) => MediaDeviceInfo -> m result+getGroupId self = liftIO (fromJSString <$> (js_getGroupId self))+ +foreign import javascript unsafe "$1[\"kind\"]" js_getKind ::+        MediaDeviceInfo -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaDeviceInfo.kind Mozilla MediaDeviceInfo.kind documentation> +getKind :: (MonadIO m) => MediaDeviceInfo -> m MediaDeviceKind+getKind self = liftIO ((js_getKind self) >>= fromJSValUnchecked)+ +foreign import javascript unsafe "$1[\"label\"]" js_getLabel ::+        MediaDeviceInfo -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaDeviceInfo.label Mozilla MediaDeviceInfo.label documentation> +getLabel ::+         (MonadIO m, FromJSString result) => MediaDeviceInfo -> m result+getLabel self = liftIO (fromJSString <$> (js_getLabel self))
+ src/GHCJS/DOM/JSFFI/Generated/MediaDevices.hs view
@@ -0,0 +1,76 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+module GHCJS.DOM.JSFFI.Generated.MediaDevices+       (js_getSupportedConstraints, getSupportedConstraints,+        getSupportedConstraints_, js_getUserMedia, getUserMedia,+        getUserMedia_, js_enumerateDevices, enumerateDevices,+        enumerateDevices_, MediaDevices(..), gTypeMediaDevices)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error)+import Data.Typeable (Typeable)+import GHCJS.Types (JSVal(..), JSString)+import GHCJS.Foreign (jsNull, jsUndefined)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Control.Monad (void)+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import Data.Maybe (fromJust)+import Data.Traversable (mapM)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.JSFFI.Generated.Enums+ +foreign import javascript unsafe+        "$1[\"getSupportedConstraints\"]()" js_getSupportedConstraints ::+        MediaDevices -> IO MediaTrackSupportedConstraints++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaDevices.getSupportedConstraints Mozilla MediaDevices.getSupportedConstraints documentation> +getSupportedConstraints ::+                        (MonadIO m) => MediaDevices -> m MediaTrackSupportedConstraints+getSupportedConstraints self+  = liftIO (js_getSupportedConstraints self)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaDevices.getSupportedConstraints Mozilla MediaDevices.getSupportedConstraints documentation> +getSupportedConstraints_ :: (MonadIO m) => MediaDevices -> m ()+getSupportedConstraints_ self+  = liftIO (void (js_getSupportedConstraints self))+ +foreign import javascript interruptible+        "$1[\"getUserMedia\"]($2).then($c);" js_getUserMedia ::+        MediaDevices -> Optional MediaStreamConstraints -> IO MediaStream++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaDevices.getUserMedia Mozilla MediaDevices.getUserMedia documentation> +getUserMedia ::+             (MonadIO m) =>+               MediaDevices -> Maybe MediaStreamConstraints -> m MediaStream+getUserMedia self constraints+  = liftIO (js_getUserMedia self (maybeToOptional constraints))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaDevices.getUserMedia Mozilla MediaDevices.getUserMedia documentation> +getUserMedia_ ::+              (MonadIO m) => MediaDevices -> Maybe MediaStreamConstraints -> m ()+getUserMedia_ self constraints+  = liftIO+      (void (js_getUserMedia self (maybeToOptional constraints)))+ +foreign import javascript interruptible+        "$1[\"enumerateDevices\"]().\nthen($c);" js_enumerateDevices ::+        MediaDevices -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaDevices.enumerateDevices Mozilla MediaDevices.enumerateDevices documentation> +enumerateDevices ::+                 (MonadIO m) => MediaDevices -> m [MediaDeviceInfo]+enumerateDevices self+  = liftIO ((js_enumerateDevices self) >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaDevices.enumerateDevices Mozilla MediaDevices.enumerateDevices documentation> +enumerateDevices_ :: (MonadIO m) => MediaDevices -> m ()+enumerateDevices_ self = liftIO (void (js_enumerateDevices self))
src/GHCJS/DOM/JSFFI/Generated/MediaElementAudioSourceNode.hs view
@@ -4,15 +4,14 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.MediaElementAudioSourceNode-       (js_getMediaElement, getMediaElement, getMediaElementUnsafe,-        getMediaElementUnchecked, MediaElementAudioSourceNode(..),-        gTypeMediaElementAudioSourceNode)+       (js_getMediaElement, getMediaElement,+        MediaElementAudioSourceNode(..), gTypeMediaElementAudioSourceNode)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -21,6 +20,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -28,27 +28,9 @@   foreign import javascript unsafe "$1[\"mediaElement\"]"         js_getMediaElement ::-        MediaElementAudioSourceNode -> IO (Nullable HTMLMediaElement)+        MediaElementAudioSourceNode -> IO 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaElementAudioSourceNode.mediaElement Mozilla MediaElementAudioSourceNode.mediaElement documentation> -getMediaElementUnsafe ::-                      (MonadIO m, HasCallStack) =>-                        MediaElementAudioSourceNode -> m HTMLMediaElement-getMediaElementUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getMediaElement (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaElementAudioSourceNode.mediaElement Mozilla MediaElementAudioSourceNode.mediaElement documentation> -getMediaElementUnchecked ::-                         (MonadIO m) => MediaElementAudioSourceNode -> m HTMLMediaElement-getMediaElementUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$> (js_getMediaElement (self)))+                (MonadIO m) => MediaElementAudioSourceNode -> m HTMLMediaElement+getMediaElement self = liftIO (js_getMediaElement self)
+ src/GHCJS/DOM/JSFFI/Generated/MediaEncryptedEvent.hs view
@@ -0,0 +1,76 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+module GHCJS.DOM.JSFFI.Generated.MediaEncryptedEvent+       (js_newMediaEncryptedEvent, newMediaEncryptedEvent,+        js_getInitDataType, getInitDataType, js_getInitData, getInitData,+        getInitDataUnsafe, getInitDataUnchecked, MediaEncryptedEvent(..),+        gTypeMediaEncryptedEvent)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error)+import Data.Typeable (Typeable)+import GHCJS.Types (JSVal(..), JSString)+import GHCJS.Foreign (jsNull, jsUndefined)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Control.Monad (void)+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import Data.Maybe (fromJust)+import Data.Traversable (mapM)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.JSFFI.Generated.Enums+ +foreign import javascript unsafe+        "new window[\"MediaEncryptedEvent\"]($1,\n$2)"+        js_newMediaEncryptedEvent ::+        JSString ->+          Optional MediaEncryptedEventInit -> IO MediaEncryptedEvent++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaEncryptedEvent Mozilla MediaEncryptedEvent documentation> +newMediaEncryptedEvent ::+                       (MonadIO m, ToJSString type') =>+                         type' -> Maybe MediaEncryptedEventInit -> m MediaEncryptedEvent+newMediaEncryptedEvent type' eventInitDict+  = liftIO+      (js_newMediaEncryptedEvent (toJSString type')+         (maybeToOptional eventInitDict))+ +foreign import javascript unsafe "$1[\"initDataType\"]"+        js_getInitDataType :: MediaEncryptedEvent -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaEncryptedEvent.initDataType Mozilla MediaEncryptedEvent.initDataType documentation> +getInitDataType ::+                (MonadIO m, FromJSString result) => MediaEncryptedEvent -> m result+getInitDataType self+  = liftIO (fromJSString <$> (js_getInitDataType self))+ +foreign import javascript unsafe "$1[\"initData\"]" js_getInitData+        :: MediaEncryptedEvent -> IO (Nullable ArrayBuffer)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaEncryptedEvent.initData Mozilla MediaEncryptedEvent.initData documentation> +getInitData ::+            (MonadIO m) => MediaEncryptedEvent -> m (Maybe ArrayBuffer)+getInitData self+  = liftIO (nullableToMaybe <$> (js_getInitData self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaEncryptedEvent.initData Mozilla MediaEncryptedEvent.initData documentation> +getInitDataUnsafe ::+                  (MonadIO m, HasCallStack) => MediaEncryptedEvent -> m ArrayBuffer+getInitDataUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getInitData self)) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaEncryptedEvent.initData Mozilla MediaEncryptedEvent.initData documentation> +getInitDataUnchecked ::+                     (MonadIO m) => MediaEncryptedEvent -> m ArrayBuffer+getInitDataUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getInitData self))
src/GHCJS/DOM/JSFFI/Generated/MediaError.hs view
@@ -6,14 +6,13 @@ 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(..),-        gTypeMediaError)+        js_getCode, getCode, MediaError(..), gTypeMediaError)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -22,6 +21,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -30,11 +30,10 @@ 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))+getCode self = liftIO (js_getCode self)
− src/GHCJS/DOM/JSFFI/Generated/MediaKeyError.hs 
@@ -1,49 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility-{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}-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(..), gTypeMediaKeyError)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)-import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))-import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import 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 
@@ -1,131 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility-{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}-module GHCJS.DOM.JSFFI.Generated.MediaKeyEvent-       (js_getKeySystem, getKeySystem, js_getSessionId, getSessionId,-        js_getInitData, getInitData, getInitDataUnsafe,-        getInitDataUnchecked, js_getMessage, getMessage, getMessageUnsafe,-        getMessageUnchecked, js_getDefaultURL, getDefaultURL,-        js_getErrorCode, getErrorCode, getErrorCodeUnsafe,-        getErrorCodeUnchecked, js_getSystemCode, getSystemCode,-        MediaKeyEvent(..), gTypeMediaKeyEvent)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)-import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))-import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaKeyEvent.initData Mozilla MediaKeyEvent.initData documentation> -getInitDataUnsafe ::-                  (MonadIO m, HasCallStack) => MediaKeyEvent -> m Uint8Array-getInitDataUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getInitData (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaKeyEvent.initData Mozilla MediaKeyEvent.initData documentation> -getInitDataUnchecked ::-                     (MonadIO m) => MediaKeyEvent -> m Uint8Array-getInitDataUnchecked self-  = liftIO (fromJust . 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaKeyEvent.message Mozilla MediaKeyEvent.message documentation> -getMessageUnsafe ::-                 (MonadIO m, HasCallStack) => MediaKeyEvent -> m Uint8Array-getMessageUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getMessage (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaKeyEvent.message Mozilla MediaKeyEvent.message documentation> -getMessageUnchecked :: (MonadIO m) => MediaKeyEvent -> m Uint8Array-getMessageUnchecked self-  = liftIO (fromJust . 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaKeyEvent.errorCode Mozilla MediaKeyEvent.errorCode documentation> -getErrorCodeUnsafe ::-                   (MonadIO m, HasCallStack) => MediaKeyEvent -> m MediaKeyError-getErrorCodeUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getErrorCode (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaKeyEvent.errorCode Mozilla MediaKeyEvent.errorCode documentation> -getErrorCodeUnchecked ::-                      (MonadIO m) => MediaKeyEvent -> m MediaKeyError-getErrorCodeUnchecked self-  = liftIO (fromJust . 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
@@ -4,15 +4,15 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.MediaKeyMessageEvent-       (js_getMessage, getMessage, getMessageUnsafe, getMessageUnchecked,-        js_getDestinationURL, getDestinationURL, MediaKeyMessageEvent(..),-        gTypeMediaKeyMessageEvent)+       (js_newMediaKeyMessageEvent, newMediaKeyMessageEvent,+        js_getMessageType, getMessageType, js_getMessage, getMessage,+        MediaKeyMessageEvent(..), gTypeMediaKeyMessageEvent)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -21,40 +21,37 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) 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+        "new window[\"WebKitMediaKeyMessageEvent\"]($1,\n$2)"+        js_newMediaKeyMessageEvent ::+        JSString -> MediaKeyMessageEventInit -> IO MediaKeyMessageEvent --- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeyMessageEvent.message Mozilla WebKitMediaKeyMessageEvent.message documentation> -getMessageUnsafe ::-                 (MonadIO m, HasCallStack) => MediaKeyMessageEvent -> m Uint8Array-getMessageUnsafe self+-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeyMessageEvent Mozilla WebKitMediaKeyMessageEvent documentation> +newMediaKeyMessageEvent ::+                        (MonadIO m, ToJSString type') =>+                          type' -> MediaKeyMessageEventInit -> m MediaKeyMessageEvent+newMediaKeyMessageEvent type' eventInitDict   = liftIO-      ((nullableToMaybe <$> (js_getMessage (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+      (js_newMediaKeyMessageEvent (toJSString type') eventInitDict)+ +foreign import javascript unsafe "$1[\"messageType\"]"+        js_getMessageType :: MediaKeyMessageEvent -> IO JSVal --- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeyMessageEvent.message Mozilla WebKitMediaKeyMessageEvent.message documentation> -getMessageUnchecked ::-                    (MonadIO m) => MediaKeyMessageEvent -> m Uint8Array-getMessageUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getMessage (self)))+-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeyMessageEvent.messageType Mozilla WebKitMediaKeyMessageEvent.messageType documentation> +getMessageType ::+               (MonadIO m) => MediaKeyMessageEvent -> m MediaKeyMessageType+getMessageType self+  = liftIO ((js_getMessageType self) >>= fromJSValUnchecked)  -foreign import javascript unsafe "$1[\"destinationURL\"]"-        js_getDestinationURL :: MediaKeyMessageEvent -> IO JSString+foreign import javascript unsafe "$1[\"message\"]" js_getMessage ::+        MediaKeyMessageEvent -> IO ArrayBuffer --- | <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)))+-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeyMessageEvent.message Mozilla WebKitMediaKeyMessageEvent.message documentation> +getMessage :: (MonadIO m) => MediaKeyMessageEvent -> m ArrayBuffer+getMessage self = liftIO (js_getMessage self)
− src/GHCJS/DOM/JSFFI/Generated/MediaKeyNeededEvent.hs 
@@ -1,50 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility-{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}-module GHCJS.DOM.JSFFI.Generated.MediaKeyNeededEvent-       (js_getInitData, getInitData, getInitDataUnsafe,-        getInitDataUnchecked, MediaKeyNeededEvent(..),-        gTypeMediaKeyNeededEvent)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)-import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))-import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaKeyNeededEvent.initData Mozilla MediaKeyNeededEvent.initData documentation> -getInitDataUnsafe ::-                  (MonadIO m, HasCallStack) => MediaKeyNeededEvent -> m Uint8Array-getInitDataUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getInitData (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaKeyNeededEvent.initData Mozilla MediaKeyNeededEvent.initData documentation> -getInitDataUnchecked ::-                     (MonadIO m) => MediaKeyNeededEvent -> m Uint8Array-getInitDataUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getInitData (self)))
src/GHCJS/DOM/JSFFI/Generated/MediaKeySession.hs view
@@ -4,16 +4,18 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.MediaKeySession-       (js_update, update, js_close, close, js_getError, getError,-        getErrorUnsafe, getErrorUnchecked, js_getKeySystem, getKeySystem,-        js_getSessionId, getSessionId, webKitKeyAdded, webKitKeyError,-        webKitKeyMessage, MediaKeySession(..), gTypeMediaKeySession)+       (js_generateRequest, generateRequest, js_load, load, load_,+        js_update, update, js_close, close, js_remove, remove,+        js_getSessionId, getSessionId, js_getExpiration, getExpiration,+        js_getClosed, getClosed, js_getKeyStatuses, getKeyStatuses,+        keystatuseschange, message, MediaKeySession(..),+        gTypeMediaKeySession)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -22,59 +24,66 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums  -foreign import javascript unsafe "$1[\"update\"]($2)" js_update ::-        MediaKeySession -> Nullable Uint8Array -> IO ()+foreign import javascript interruptible+        "$1[\"generateRequest\"]($2, $3).\nthen($c);" js_generateRequest ::+        MediaKeySession -> JSString -> BufferSource -> 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+-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeySession.generateRequest Mozilla WebKitMediaKeySession.generateRequest documentation> +generateRequest ::+                (MonadIO m, ToJSString initDataType, IsBufferSource initData) =>+                  MediaKeySession -> initDataType -> initData -> m ()+generateRequest self initDataType initData   = liftIO-      (js_update (self) (maybeToNullable (fmap toUint8Array key)))+      (js_generateRequest self (toJSString initDataType)+         (toBufferSource initData))  -foreign import javascript unsafe "$1[\"close\"]()" js_close ::-        MediaKeySession -> IO ()+foreign import javascript interruptible+        "$1[\"load\"]($2).then($c);" js_load ::+        MediaKeySession -> JSString -> IO Bool --- | <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.load Mozilla WebKitMediaKeySession.load documentation> +load ::+     (MonadIO m, ToJSString sessionId) =>+       MediaKeySession -> sessionId -> m Bool+load self sessionId = liftIO (js_load self (toJSString sessionId)) --- | <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)))+-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeySession.load Mozilla WebKitMediaKeySession.load documentation> +load_ ::+      (MonadIO m, ToJSString sessionId) =>+        MediaKeySession -> sessionId -> m ()+load_ self sessionId+  = liftIO (void (js_load self (toJSString sessionId)))+ +foreign import javascript interruptible+        "$1[\"update\"]($2).then($c);" js_update ::+        MediaKeySession -> BufferSource -> IO () --- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeySession.error Mozilla WebKitMediaKeySession.error documentation> -getErrorUnsafe ::-               (MonadIO m, HasCallStack) => MediaKeySession -> m MediaKeyError-getErrorUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getError (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeySession.update Mozilla WebKitMediaKeySession.update documentation> +update ::+       (MonadIO m, IsBufferSource response) =>+         MediaKeySession -> response -> m ()+update self response+  = liftIO (js_update self (toBufferSource response))+ +foreign import javascript interruptible+        "$1[\"close\"]().then($c);" js_close :: MediaKeySession -> IO () --- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeySession.error Mozilla WebKitMediaKeySession.error documentation> -getErrorUnchecked ::-                  (MonadIO m) => MediaKeySession -> m MediaKeyError-getErrorUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getError (self)))+-- | <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[\"keySystem\"]"-        js_getKeySystem :: MediaKeySession -> IO JSString+foreign import javascript interruptible+        "$1[\"remove\"]().then($c);" js_remove :: MediaKeySession -> IO () --- | <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)))+-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeySession.remove Mozilla WebKitMediaKeySession.remove documentation> +remove :: (MonadIO m) => MediaKeySession -> m ()+remove self = liftIO (js_remove self)   foreign import javascript unsafe "$1[\"sessionId\"]"         js_getSessionId :: MediaKeySession -> IO JSString@@ -83,16 +92,35 @@ getSessionId ::              (MonadIO m, FromJSString result) => MediaKeySession -> m result getSessionId self-  = liftIO (fromJSString <$> (js_getSessionId (self)))+  = liftIO (fromJSString <$> (js_getSessionId self))+ +foreign import javascript unsafe "$1[\"expiration\"]"+        js_getExpiration :: MediaKeySession -> IO Double --- | <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.expiration Mozilla WebKitMediaKeySession.expiration documentation> +getExpiration :: (MonadIO m) => MediaKeySession -> m Double+getExpiration self = liftIO (js_getExpiration self)+ +foreign import javascript interruptible+        "$1[\"closed\"].then($c);" js_getClosed :: MediaKeySession -> IO () --- | <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.closed Mozilla WebKitMediaKeySession.closed documentation> +getClosed :: (MonadIO m) => MediaKeySession -> m ()+getClosed self = liftIO (js_getClosed self)+ +foreign import javascript unsafe "$1[\"keyStatuses\"]"+        js_getKeyStatuses :: MediaKeySession -> IO MediaKeyStatusMap --- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeySession.onwebkitkeymessage Mozilla WebKitMediaKeySession.onwebkitkeymessage documentation> -webKitKeyMessage :: EventName MediaKeySession Event-webKitKeyMessage = unsafeEventName (toJSString "webkitkeymessage")+-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeySession.keyStatuses Mozilla WebKitMediaKeySession.keyStatuses documentation> +getKeyStatuses ::+               (MonadIO m) => MediaKeySession -> m MediaKeyStatusMap+getKeyStatuses self = liftIO (js_getKeyStatuses self)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeySession.onkeystatuseschange Mozilla WebKitMediaKeySession.onkeystatuseschange documentation> +keystatuseschange :: EventName MediaKeySession onkeystatuseschange+keystatuseschange+  = unsafeEventName (toJSString "keystatuseschange")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeySession.onmessage Mozilla WebKitMediaKeySession.onmessage documentation> +message :: EventName MediaKeySession MessageEvent+message = unsafeEventName (toJSString "message")
+ src/GHCJS/DOM/JSFFI/Generated/MediaKeyStatusMap.hs view
@@ -0,0 +1,66 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+module GHCJS.DOM.JSFFI.Generated.MediaKeyStatusMap+       (js_has, has, has_, js_get, get, get_, js_getSize, getSize,+        MediaKeyStatusMap(..), gTypeMediaKeyStatusMap)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error)+import Data.Typeable (Typeable)+import GHCJS.Types (JSVal(..), JSString)+import GHCJS.Foreign (jsNull, jsUndefined)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Control.Monad (void)+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import Data.Maybe (fromJust)+import Data.Traversable (mapM)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.JSFFI.Generated.Enums+ +foreign import javascript unsafe "($1[\"has\"]($2) ? 1 : 0)" js_has+        :: MediaKeyStatusMap -> BufferSource -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaKeyStatusMap.has Mozilla MediaKeyStatusMap.has documentation> +has ::+    (MonadIO m, IsBufferSource keyId) =>+      MediaKeyStatusMap -> keyId -> m Bool+has self keyId = liftIO (js_has self (toBufferSource keyId))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaKeyStatusMap.has Mozilla MediaKeyStatusMap.has documentation> +has_ ::+     (MonadIO m, IsBufferSource keyId) =>+       MediaKeyStatusMap -> keyId -> m ()+has_ self keyId+  = liftIO (void (js_has self (toBufferSource keyId)))+ +foreign import javascript unsafe "$1[\"get\"]($2)" js_get ::+        MediaKeyStatusMap -> BufferSource -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaKeyStatusMap.get Mozilla MediaKeyStatusMap.get documentation> +get ::+    (MonadIO m, IsBufferSource keyId) =>+      MediaKeyStatusMap -> keyId -> m JSVal+get self keyId = liftIO (js_get self (toBufferSource keyId))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaKeyStatusMap.get Mozilla MediaKeyStatusMap.get documentation> +get_ ::+     (MonadIO m, IsBufferSource keyId) =>+       MediaKeyStatusMap -> keyId -> m ()+get_ self keyId+  = liftIO (void (js_get self (toBufferSource keyId)))+ +foreign import javascript unsafe "$1[\"size\"]" js_getSize ::+        MediaKeyStatusMap -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaKeyStatusMap.size Mozilla MediaKeyStatusMap.size documentation> +getSize :: (MonadIO m) => MediaKeyStatusMap -> m Word+getSize self = liftIO (js_getSize self)
+ src/GHCJS/DOM/JSFFI/Generated/MediaKeySystemAccess.hs view
@@ -0,0 +1,66 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+module GHCJS.DOM.JSFFI.Generated.MediaKeySystemAccess+       (js_getConfiguration, getConfiguration, getConfiguration_,+        js_createMediaKeys, createMediaKeys, createMediaKeys_,+        js_getKeySystem, getKeySystem, MediaKeySystemAccess(..),+        gTypeMediaKeySystemAccess)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error)+import Data.Typeable (Typeable)+import GHCJS.Types (JSVal(..), JSString)+import GHCJS.Foreign (jsNull, jsUndefined)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Control.Monad (void)+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import Data.Maybe (fromJust)+import Data.Traversable (mapM)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"getConfiguration\"]()"+        js_getConfiguration ::+        MediaKeySystemAccess -> IO MediaKeySystemConfiguration++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaKeySystemAccess.getConfiguration Mozilla MediaKeySystemAccess.getConfiguration documentation> +getConfiguration ::+                 (MonadIO m) =>+                   MediaKeySystemAccess -> m MediaKeySystemConfiguration+getConfiguration self = liftIO (js_getConfiguration self)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaKeySystemAccess.getConfiguration Mozilla MediaKeySystemAccess.getConfiguration documentation> +getConfiguration_ :: (MonadIO m) => MediaKeySystemAccess -> m ()+getConfiguration_ self = liftIO (void (js_getConfiguration self))+ +foreign import javascript interruptible+        "$1[\"createMediaKeys\"]().\nthen($c);" js_createMediaKeys ::+        MediaKeySystemAccess -> IO MediaKeys++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaKeySystemAccess.createMediaKeys Mozilla MediaKeySystemAccess.createMediaKeys documentation> +createMediaKeys ::+                (MonadIO m) => MediaKeySystemAccess -> m MediaKeys+createMediaKeys self = liftIO (js_createMediaKeys self)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaKeySystemAccess.createMediaKeys Mozilla MediaKeySystemAccess.createMediaKeys documentation> +createMediaKeys_ :: (MonadIO m) => MediaKeySystemAccess -> m ()+createMediaKeys_ self = liftIO (void (js_createMediaKeys self))+ +foreign import javascript unsafe "$1[\"keySystem\"]"+        js_getKeySystem :: MediaKeySystemAccess -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaKeySystemAccess.keySystem Mozilla MediaKeySystemAccess.keySystem documentation> +getKeySystem ::+             (MonadIO m, FromJSString result) =>+               MediaKeySystemAccess -> m result+getKeySystem self+  = liftIO (fromJSString <$> (js_getKeySystem self))
src/GHCJS/DOM/JSFFI/Generated/MediaKeys.hs view
@@ -4,16 +4,15 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.MediaKeys-       (js_newMediaKeys, newMediaKeys, js_createSession, createSession,-        createSession_, createSessionUnsafe, createSessionUnchecked,-        js_isTypeSupported, isTypeSupported, isTypeSupported_,-        js_getKeySystem, getKeySystem, MediaKeys(..), gTypeMediaKeys)+       (js_createSession, createSession, createSession_,+        js_setServerCertificate, setServerCertificate,+        setServerCertificate_, MediaKeys(..), gTypeMediaKeys)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -22,96 +21,47 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) 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)"+foreign import javascript unsafe "$1[\"createSession\"]($2)"         js_createSession ::-        MediaKeys ->-          JSString -> Nullable Uint8Array -> IO (Nullable MediaKeySession)+        MediaKeys -> Optional MediaKeySessionType -> IO 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))))+              (MonadIO m) =>+                MediaKeys -> Maybe MediaKeySessionType -> m MediaKeySession+createSession self sessionType+  = liftIO (js_createSession self (maybeToOptional sessionType))  -- | <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 ()-createSession_ self type' initData-  = liftIO-      (void-         (js_createSession (self) (toJSString type')-            (maybeToNullable (fmap toUint8Array initData))))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeys.createSession Mozilla WebKitMediaKeys.createSession documentation> -createSessionUnsafe ::-                    (MonadIO m, ToJSString type', IsUint8Array initData,-                     HasCallStack) =>-                      MediaKeys -> type' -> Maybe initData -> m MediaKeySession-createSessionUnsafe self type' initData-  = liftIO-      ((nullableToMaybe <$>-          (js_createSession (self) (toJSString type')-             (maybeToNullable (fmap toUint8Array initData))))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeys.createSession Mozilla WebKitMediaKeys.createSession documentation> -createSessionUnchecked ::-                       (MonadIO m, ToJSString type', IsUint8Array initData) =>-                         MediaKeys -> type' -> Maybe initData -> m MediaKeySession-createSessionUnchecked self type' initData+               (MonadIO m) => MediaKeys -> Maybe MediaKeySessionType -> m ()+createSession_ self sessionType   = liftIO-      (fromJust . nullableToMaybe <$>-         (js_createSession (self) (toJSString type')-            (maybeToNullable (fmap toUint8Array initData))))+      (void (js_createSession self (maybeToOptional sessionType)))  -foreign import javascript unsafe-        "($1[\"isTypeSupported\"]($2,\n$3) ? 1 : 0)" js_isTypeSupported ::-        MediaKeys -> JSString -> JSString -> IO Bool+foreign import javascript interruptible+        "$1[\"setServerCertificate\"]($2).\nthen($c);"+        js_setServerCertificate :: MediaKeys -> BufferSource -> 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'+-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeys.setServerCertificate Mozilla WebKitMediaKeys.setServerCertificate documentation> +setServerCertificate ::+                     (MonadIO m, IsBufferSource serverCertificate) =>+                       MediaKeys -> serverCertificate -> m Bool+setServerCertificate self serverCertificate   = liftIO-      (js_isTypeSupported (self) (toJSString keySystem)-         (toJSString type'))+      (js_setServerCertificate self (toBufferSource serverCertificate)) --- | <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 ()-isTypeSupported_ self keySystem type'+-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeys.setServerCertificate Mozilla WebKitMediaKeys.setServerCertificate documentation> +setServerCertificate_ ::+                      (MonadIO m, IsBufferSource serverCertificate) =>+                        MediaKeys -> serverCertificate -> m ()+setServerCertificate_ self serverCertificate   = liftIO       (void-         (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)))+         (js_setServerCertificate self (toBufferSource serverCertificate)))
src/GHCJS/DOM/JSFFI/Generated/MediaList.hs view
@@ -14,7 +14,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -23,12 +23,13 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums  -foreign import javascript unsafe "$1[\"item\"]($2)" js_item ::+foreign import javascript unsafe "$1[$2]" js_item ::         MediaList -> Word -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaList.item Mozilla MediaList.item documentation> @@ -36,11 +37,11 @@      (MonadIO m, FromJSString result) =>        MediaList -> Word -> m (Maybe result) item self index-  = liftIO (fromMaybeJSString <$> (js_item (self) index))+  = liftIO (fromMaybeJSString <$> (js_item self index))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaList.item Mozilla MediaList.item documentation>  item_ :: (MonadIO m) => MediaList -> Word -> m ()-item_ self index = liftIO (void (js_item (self) index))+item_ self index = liftIO (void (js_item self index))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaList.item Mozilla MediaList.item documentation>  itemUnsafe ::@@ -48,14 +49,14 @@              MediaList -> Word -> m result itemUnsafe self index   = liftIO-      ((fromMaybeJSString <$> (js_item (self) index)) >>=+      ((fromMaybeJSString <$> (js_item self index)) >>=          maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaList.item Mozilla MediaList.item documentation>  itemUnchecked ::               (MonadIO m, FromJSString result) => MediaList -> Word -> m result itemUnchecked self index-  = liftIO (fromJust . fromMaybeJSString <$> (js_item (self) index))+  = liftIO (fromJust . fromMaybeJSString <$> (js_item self index))   foreign import javascript unsafe "$1[\"deleteMedium\"]($2)"         js_deleteMedium :: MediaList -> JSString -> IO ()@@ -64,7 +65,7 @@ deleteMedium ::              (MonadIO m, ToJSString oldMedium) => MediaList -> oldMedium -> m () deleteMedium self oldMedium-  = liftIO (js_deleteMedium (self) (toJSString oldMedium))+  = liftIO (js_deleteMedium self (toJSString oldMedium))   foreign import javascript unsafe "$1[\"appendMedium\"]($2)"         js_appendMedium :: MediaList -> JSString -> IO ()@@ -73,16 +74,16 @@ appendMedium ::              (MonadIO m, ToJSString newMedium) => MediaList -> newMedium -> m () appendMedium self newMedium-  = liftIO (js_appendMedium (self) (toJSString newMedium))+  = liftIO (js_appendMedium self (toJSString newMedium))   foreign import javascript unsafe "$1[\"mediaText\"] = $2;"-        js_setMediaText :: MediaList -> Nullable JSString -> IO ()+        js_setMediaText :: MediaList -> Optional 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))+  = liftIO (js_setMediaText self (toOptionalJSString val))   foreign import javascript unsafe "$1[\"mediaText\"]"         js_getMediaText :: MediaList -> IO (Nullable JSString)@@ -91,7 +92,7 @@ getMediaText ::              (MonadIO m, FromJSString result) => MediaList -> m (Maybe result) getMediaText self-  = liftIO (fromMaybeJSString <$> (js_getMediaText (self)))+  = liftIO (fromMaybeJSString <$> (js_getMediaText self))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaList.mediaText Mozilla MediaList.mediaText documentation>  getMediaTextUnsafe ::@@ -99,19 +100,18 @@                      MediaList -> m result getMediaTextUnsafe self   = liftIO-      ((fromMaybeJSString <$> (js_getMediaText (self))) >>=+      ((fromMaybeJSString <$> (js_getMediaText self)) >>=          maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaList.mediaText Mozilla MediaList.mediaText documentation>  getMediaTextUnchecked ::                       (MonadIO m, FromJSString result) => MediaList -> m result getMediaTextUnchecked self-  = liftIO-      (fromJust . fromMaybeJSString <$> (js_getMediaText (self)))+  = liftIO (fromJust . 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))+getLength self = liftIO (js_getLength self)
src/GHCJS/DOM/JSFFI/Generated/MediaQueryList.hs view
@@ -12,7 +12,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -21,6 +21,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -28,25 +29,25 @@   foreign import javascript unsafe "$1[\"addListener\"]($2)"         js_addListener ::-        MediaQueryList -> Nullable MediaQueryListListener -> IO ()+        MediaQueryList -> Optional 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))+  = liftIO (js_addListener self (maybeToOptional listener))   foreign import javascript unsafe "$1[\"removeListener\"]($2)"         js_removeListener ::-        MediaQueryList -> Nullable MediaQueryListListener -> IO ()+        MediaQueryList -> Optional 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))+  = liftIO (js_removeListener self (maybeToOptional listener))   foreign import javascript unsafe "$1[\"media\"]" js_getMedia ::         MediaQueryList -> IO JSString@@ -54,11 +55,11 @@ -- | <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)))+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))+getMatches self = liftIO (js_getMatches self)
src/GHCJS/DOM/JSFFI/Generated/MediaQueryListListener.hs view
@@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -20,6 +20,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)
+ src/GHCJS/DOM/JSFFI/Generated/MediaRemoteControls.hs view
@@ -0,0 +1,84 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+module GHCJS.DOM.JSFFI.Generated.MediaRemoteControls+       (js_newMediaRemoteControls, newMediaRemoteControls,+        js_setPreviousTrackEnabled, setPreviousTrackEnabled,+        js_getPreviousTrackEnabled, getPreviousTrackEnabled,+        js_setNextTrackEnabled, setNextTrackEnabled,+        js_getNextTrackEnabled, getNextTrackEnabled, previoustrack,+        nexttrack, MediaRemoteControls(..), gTypeMediaRemoteControls)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error)+import Data.Typeable (Typeable)+import GHCJS.Types (JSVal(..), JSString)+import GHCJS.Foreign (jsNull, jsUndefined)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Control.Monad (void)+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import Data.Maybe (fromJust)+import Data.Traversable (mapM)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.JSFFI.Generated.Enums+ +foreign import javascript unsafe+        "new window[\"MediaRemoteControls\"]()" js_newMediaRemoteControls+        :: IO MediaRemoteControls++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaRemoteControls Mozilla MediaRemoteControls documentation> +newMediaRemoteControls :: (MonadIO m) => m MediaRemoteControls+newMediaRemoteControls = liftIO (js_newMediaRemoteControls)+ +foreign import javascript unsafe+        "$1[\"previousTrackEnabled\"] = $2;" js_setPreviousTrackEnabled ::+        MediaRemoteControls -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaRemoteControls.previousTrackEnabled Mozilla MediaRemoteControls.previousTrackEnabled documentation> +setPreviousTrackEnabled ::+                        (MonadIO m) => MediaRemoteControls -> Bool -> m ()+setPreviousTrackEnabled self val+  = liftIO (js_setPreviousTrackEnabled self val)+ +foreign import javascript unsafe+        "($1[\"previousTrackEnabled\"] ? 1 : 0)" js_getPreviousTrackEnabled+        :: MediaRemoteControls -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaRemoteControls.previousTrackEnabled Mozilla MediaRemoteControls.previousTrackEnabled documentation> +getPreviousTrackEnabled ::+                        (MonadIO m) => MediaRemoteControls -> m Bool+getPreviousTrackEnabled self+  = liftIO (js_getPreviousTrackEnabled self)+ +foreign import javascript unsafe "$1[\"nextTrackEnabled\"] = $2;"+        js_setNextTrackEnabled :: MediaRemoteControls -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaRemoteControls.nextTrackEnabled Mozilla MediaRemoteControls.nextTrackEnabled documentation> +setNextTrackEnabled ::+                    (MonadIO m) => MediaRemoteControls -> Bool -> m ()+setNextTrackEnabled self val+  = liftIO (js_setNextTrackEnabled self val)+ +foreign import javascript unsafe+        "($1[\"nextTrackEnabled\"] ? 1 : 0)" js_getNextTrackEnabled ::+        MediaRemoteControls -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaRemoteControls.nextTrackEnabled Mozilla MediaRemoteControls.nextTrackEnabled documentation> +getNextTrackEnabled :: (MonadIO m) => MediaRemoteControls -> m Bool+getNextTrackEnabled self = liftIO (js_getNextTrackEnabled self)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaRemoteControls.onprevioustrack Mozilla MediaRemoteControls.onprevioustrack documentation> +previoustrack :: EventName MediaRemoteControls onprevioustrack+previoustrack = unsafeEventName (toJSString "previoustrack")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaRemoteControls.onnexttrack Mozilla MediaRemoteControls.onnexttrack documentation> +nexttrack :: EventName MediaRemoteControls onnexttrack+nexttrack = unsafeEventName (toJSString "nexttrack")
+ src/GHCJS/DOM/JSFFI/Generated/MediaSession.hs view
@@ -0,0 +1,84 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+module GHCJS.DOM.JSFFI.Generated.MediaSession+       (js_newMediaSession, newMediaSession, js_setMetadata, setMetadata,+        js_deactivate, deactivate, js_getKind, getKind, js_getControls,+        getControls, getControlsUnsafe, getControlsUnchecked,+        MediaSession(..), gTypeMediaSession)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error)+import Data.Typeable (Typeable)+import GHCJS.Types (JSVal(..), JSString)+import GHCJS.Foreign (jsNull, jsUndefined)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Control.Monad (void)+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import Data.Maybe (fromJust)+import Data.Traversable (mapM)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.JSFFI.Generated.Enums+ +foreign import javascript unsafe "new window[\"MediaSession\"]($1)"+        js_newMediaSession :: Optional MediaSessionKind -> IO MediaSession++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSession Mozilla MediaSession documentation> +newMediaSession ::+                (MonadIO m) => Maybe MediaSessionKind -> m MediaSession+newMediaSession kind+  = liftIO (js_newMediaSession (maybeToOptional kind))+ +foreign import javascript unsafe "$1[\"setMetadata\"]($2)"+        js_setMetadata :: MediaSession -> Optional MediaMetadata -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSession.setMetadata Mozilla MediaSession.setMetadata documentation> +setMetadata ::+            (MonadIO m) => MediaSession -> Maybe MediaMetadata -> m ()+setMetadata self metadata+  = liftIO (js_setMetadata self (maybeToOptional metadata))+ +foreign import javascript unsafe "$1[\"deactivate\"]()"+        js_deactivate :: MediaSession -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSession.deactivate Mozilla MediaSession.deactivate documentation> +deactivate :: (MonadIO m) => MediaSession -> m ()+deactivate self = liftIO (js_deactivate self)+ +foreign import javascript unsafe "$1[\"kind\"]" js_getKind ::+        MediaSession -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSession.kind Mozilla MediaSession.kind documentation> +getKind :: (MonadIO m) => MediaSession -> m MediaSessionKind+getKind self = liftIO ((js_getKind self) >>= fromJSValUnchecked)+ +foreign import javascript unsafe "$1[\"controls\"]" js_getControls+        :: MediaSession -> IO (Nullable MediaRemoteControls)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSession.controls Mozilla MediaSession.controls documentation> +getControls ::+            (MonadIO m) => MediaSession -> m (Maybe MediaRemoteControls)+getControls self+  = liftIO (nullableToMaybe <$> (js_getControls self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSession.controls Mozilla MediaSession.controls documentation> +getControlsUnsafe ::+                  (MonadIO m, HasCallStack) => MediaSession -> m MediaRemoteControls+getControlsUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getControls self)) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSession.controls Mozilla MediaSession.controls documentation> +getControlsUnchecked ::+                     (MonadIO m) => MediaSession -> m MediaRemoteControls+getControlsUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getControls self))
src/GHCJS/DOM/JSFFI/Generated/MediaSource.hs view
@@ -5,22 +5,22 @@ {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.MediaSource        (js_newMediaSource, newMediaSource, js_addSourceBuffer,-        addSourceBuffer, addSourceBuffer_, addSourceBufferUnsafe,-        addSourceBufferUnchecked, js_removeSourceBuffer,+        addSourceBuffer, addSourceBuffer_, js_removeSourceBuffer,         removeSourceBuffer, js_endOfStream, endOfStream,         js_isTypeSupported, isTypeSupported, isTypeSupported_,-        js_getSourceBuffers, getSourceBuffers, getSourceBuffersUnsafe,-        getSourceBuffersUnchecked, js_getActiveSourceBuffers,-        getActiveSourceBuffers, getActiveSourceBuffersUnsafe,-        getActiveSourceBuffersUnchecked, js_setDuration, setDuration,+        js_setLiveSeekableRange, setLiveSeekableRange,+        js_clearLiveSeekableRange, clearLiveSeekableRange,+        js_getSourceBuffers, getSourceBuffers, js_getActiveSourceBuffers,+        getActiveSourceBuffers, js_setDuration, setDuration,         js_getDuration, getDuration, js_getReadyState, getReadyState,-        MediaSource(..), gTypeMediaSource)+        sourceopen, sourceended, sourceclose, MediaSource(..),+        gTypeMediaSource)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -29,6 +29,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -42,61 +43,38 @@ newMediaSource = liftIO (js_newMediaSource)   foreign import javascript unsafe "$1[\"addSourceBuffer\"]($2)"-        js_addSourceBuffer ::-        MediaSource -> JSString -> IO (Nullable SourceBuffer)+        js_addSourceBuffer :: MediaSource -> JSString -> IO 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)+                  MediaSource -> type' -> m SourceBuffer addSourceBuffer self type'-  = liftIO-      (nullableToMaybe <$>-         (js_addSourceBuffer (self) (toJSString type')))+  = liftIO (js_addSourceBuffer self (toJSString type'))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSource.addSourceBuffer Mozilla MediaSource.addSourceBuffer documentation>  addSourceBuffer_ ::                  (MonadIO m, ToJSString type') => MediaSource -> type' -> m () addSourceBuffer_ self type'-  = liftIO (void (js_addSourceBuffer (self) (toJSString type')))---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSource.addSourceBuffer Mozilla MediaSource.addSourceBuffer documentation> -addSourceBufferUnsafe ::-                      (MonadIO m, ToJSString type', HasCallStack) =>-                        MediaSource -> type' -> m SourceBuffer-addSourceBufferUnsafe self type'-  = liftIO-      ((nullableToMaybe <$>-          (js_addSourceBuffer (self) (toJSString type')))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSource.addSourceBuffer Mozilla MediaSource.addSourceBuffer documentation> -addSourceBufferUnchecked ::-                         (MonadIO m, ToJSString type') =>-                           MediaSource -> type' -> m SourceBuffer-addSourceBufferUnchecked self type'-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_addSourceBuffer (self) (toJSString type')))+  = liftIO (void (js_addSourceBuffer self (toJSString type')))   foreign import javascript unsafe "$1[\"removeSourceBuffer\"]($2)"-        js_removeSourceBuffer ::-        MediaSource -> Nullable SourceBuffer -> IO ()+        js_removeSourceBuffer :: MediaSource -> SourceBuffer -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSource.removeSourceBuffer Mozilla MediaSource.removeSourceBuffer documentation>  removeSourceBuffer ::-                   (MonadIO m) => MediaSource -> Maybe SourceBuffer -> m ()+                   (MonadIO m) => MediaSource -> SourceBuffer -> m () removeSourceBuffer self buffer-  = liftIO (js_removeSourceBuffer (self) (maybeToNullable buffer))+  = liftIO (js_removeSourceBuffer self buffer)   foreign import javascript unsafe "$1[\"endOfStream\"]($2)"-        js_endOfStream :: MediaSource -> JSVal -> IO ()+        js_endOfStream :: MediaSource -> Optional EndOfStreamError -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSource.endOfStream Mozilla MediaSource.endOfStream documentation>  endOfStream ::-            (MonadIO m) => MediaSource -> EndOfStreamError -> m ()+            (MonadIO m) => MediaSource -> Maybe EndOfStreamError -> m () endOfStream self error-  = liftIO (js_endOfStream (self) (pToJSVal error))+  = liftIO (js_endOfStream self (maybeToOptional error))   foreign import javascript unsafe         "($1[\"isTypeSupported\"]($2) ? 1 : 0)" js_isTypeSupported ::@@ -106,77 +84,62 @@ isTypeSupported ::                 (MonadIO m, ToJSString type') => MediaSource -> type' -> m Bool isTypeSupported self type'-  = liftIO (js_isTypeSupported (self) (toJSString type'))+  = liftIO (js_isTypeSupported self (toJSString type'))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSource.isTypeSupported Mozilla MediaSource.isTypeSupported documentation>  isTypeSupported_ ::                  (MonadIO m, ToJSString type') => MediaSource -> type' -> m () isTypeSupported_ self type'-  = liftIO (void (js_isTypeSupported (self) (toJSString type')))+  = liftIO (void (js_isTypeSupported self (toJSString type')))  -foreign import javascript unsafe "$1[\"sourceBuffers\"]"-        js_getSourceBuffers ::-        MediaSource -> IO (Nullable SourceBufferList)+foreign import javascript unsafe+        "$1[\"setLiveSeekableRange\"]($2,\n$3)" js_setLiveSeekableRange ::+        MediaSource -> Double -> Double -> IO () --- | <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)))+-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSource.setLiveSeekableRange Mozilla MediaSource.setLiveSeekableRange documentation> +setLiveSeekableRange ::+                     (MonadIO m) => MediaSource -> Double -> Double -> m ()+setLiveSeekableRange self start end+  = liftIO (js_setLiveSeekableRange self start end)+ +foreign import javascript unsafe "$1[\"clearLiveSeekableRange\"]()"+        js_clearLiveSeekableRange :: MediaSource -> IO () --- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSource.sourceBuffers Mozilla MediaSource.sourceBuffers documentation> -getSourceBuffersUnsafe ::-                       (MonadIO m, HasCallStack) => MediaSource -> m SourceBufferList-getSourceBuffersUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getSourceBuffers (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSource.clearLiveSeekableRange Mozilla MediaSource.clearLiveSeekableRange documentation> +clearLiveSeekableRange :: (MonadIO m) => MediaSource -> m ()+clearLiveSeekableRange self+  = liftIO (js_clearLiveSeekableRange self)+ +foreign import javascript unsafe "$1[\"sourceBuffers\"]"+        js_getSourceBuffers :: MediaSource -> IO SourceBufferList  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSource.sourceBuffers Mozilla MediaSource.sourceBuffers documentation> -getSourceBuffersUnchecked ::-                          (MonadIO m) => MediaSource -> m SourceBufferList-getSourceBuffersUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$> (js_getSourceBuffers (self)))+getSourceBuffers ::+                 (MonadIO m) => MediaSource -> m SourceBufferList+getSourceBuffers self = liftIO (js_getSourceBuffers self)   foreign import javascript unsafe "$1[\"activeSourceBuffers\"]"-        js_getActiveSourceBuffers ::-        MediaSource -> IO (Nullable SourceBufferList)+        js_getActiveSourceBuffers :: MediaSource -> IO SourceBufferList  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSource.activeSourceBuffers Mozilla MediaSource.activeSourceBuffers documentation>  getActiveSourceBuffers ::-                       (MonadIO m) => MediaSource -> m (Maybe SourceBufferList)+                       (MonadIO m) => MediaSource -> m SourceBufferList getActiveSourceBuffers self-  = liftIO (nullableToMaybe <$> (js_getActiveSourceBuffers (self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSource.activeSourceBuffers Mozilla MediaSource.activeSourceBuffers documentation> -getActiveSourceBuffersUnsafe ::-                             (MonadIO m, HasCallStack) => MediaSource -> m SourceBufferList-getActiveSourceBuffersUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getActiveSourceBuffers (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSource.activeSourceBuffers Mozilla MediaSource.activeSourceBuffers documentation> -getActiveSourceBuffersUnchecked ::-                                (MonadIO m) => MediaSource -> m SourceBufferList-getActiveSourceBuffersUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$> (js_getActiveSourceBuffers (self)))+  = liftIO (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)+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))+getDuration self = liftIO (js_getDuration self)   foreign import javascript unsafe "$1[\"readyState\"]"         js_getReadyState :: MediaSource -> IO JSString@@ -185,4 +148,16 @@ getReadyState ::               (MonadIO m, FromJSString result) => MediaSource -> m result getReadyState self-  = liftIO (fromJSString <$> (js_getReadyState (self)))+  = liftIO (fromJSString <$> (js_getReadyState self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSource.onsourceopen Mozilla MediaSource.onsourceopen documentation> +sourceopen :: EventName MediaSource onsourceopen+sourceopen = unsafeEventName (toJSString "sourceopen")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSource.onsourceended Mozilla MediaSource.onsourceended documentation> +sourceended :: EventName MediaSource onsourceended+sourceended = unsafeEventName (toJSString "sourceended")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSource.onsourceclose Mozilla MediaSource.onsourceclose documentation> +sourceclose :: EventName MediaSource onsourceclose+sourceclose = unsafeEventName (toJSString "sourceclose")
− src/GHCJS/DOM/JSFFI/Generated/MediaSourceStates.hs 
@@ -1,167 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility-{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}-module GHCJS.DOM.JSFFI.Generated.MediaSourceStates-       (js_getSourceType, getSourceType, js_getSourceId, getSourceId,-        js_getWidth, getWidth, getWidthUnsafe, getWidthUnchecked,-        js_getHeight, getHeight, getHeightUnsafe, getHeightUnchecked,-        js_getFrameRate, getFrameRate, getFrameRateUnsafe,-        getFrameRateUnchecked, js_getAspectRatio, getAspectRatio,-        getAspectRatioUnsafe, getAspectRatioUnchecked, js_getFacingMode,-        getFacingMode, js_getVolume, getVolume, getVolumeUnsafe,-        getVolumeUnchecked, MediaSourceStates(..), gTypeMediaSourceStates)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)-import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))-import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import 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)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSourceStates.width Mozilla MediaSourceStates.width documentation> -getWidthUnsafe ::-               (MonadIO m, HasCallStack) => MediaSourceStates -> m Word-getWidthUnsafe self-  = liftIO-      (((js_getWidth (self)) >>= fromJSValUnchecked) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSourceStates.width Mozilla MediaSourceStates.width documentation> -getWidthUnchecked :: (MonadIO m) => MediaSourceStates -> m Word-getWidthUnchecked 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)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSourceStates.height Mozilla MediaSourceStates.height documentation> -getHeightUnsafe ::-                (MonadIO m, HasCallStack) => MediaSourceStates -> m Word-getHeightUnsafe self-  = liftIO-      (((js_getHeight (self)) >>= fromJSValUnchecked) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSourceStates.height Mozilla MediaSourceStates.height documentation> -getHeightUnchecked :: (MonadIO m) => MediaSourceStates -> m Word-getHeightUnchecked 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)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSourceStates.frameRate Mozilla MediaSourceStates.frameRate documentation> -getFrameRateUnsafe ::-                   (MonadIO m, HasCallStack) => MediaSourceStates -> m Float-getFrameRateUnsafe self-  = liftIO-      (((js_getFrameRate (self)) >>= fromJSValUnchecked) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSourceStates.frameRate Mozilla MediaSourceStates.frameRate documentation> -getFrameRateUnchecked ::-                      (MonadIO m) => MediaSourceStates -> m Float-getFrameRateUnchecked 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)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSourceStates.aspectRatio Mozilla MediaSourceStates.aspectRatio documentation> -getAspectRatioUnsafe ::-                     (MonadIO m, HasCallStack) => MediaSourceStates -> m Float-getAspectRatioUnsafe self-  = liftIO-      (((js_getAspectRatio (self)) >>= fromJSValUnchecked) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSourceStates.aspectRatio Mozilla MediaSourceStates.aspectRatio documentation> -getAspectRatioUnchecked ::-                        (MonadIO m) => MediaSourceStates -> m Float-getAspectRatioUnchecked 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)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSourceStates.volume Mozilla MediaSourceStates.volume documentation> -getVolumeUnsafe ::-                (MonadIO m, HasCallStack) => MediaSourceStates -> m Word-getVolumeUnsafe self-  = liftIO-      (((js_getVolume (self)) >>= fromJSValUnchecked) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSourceStates.volume Mozilla MediaSourceStates.volume documentation> -getVolumeUnchecked :: (MonadIO m) => MediaSourceStates -> m Word-getVolumeUnchecked self-  = liftIO ((js_getVolume (self)) >>= fromJSValUnchecked)
src/GHCJS/DOM/JSFFI/Generated/MediaStream.hs view
@@ -8,18 +8,17 @@         newMediaStream', js_newMediaStream'', newMediaStream'',         js_getAudioTracks, getAudioTracks, getAudioTracks_,         js_getVideoTracks, getVideoTracks, getVideoTracks_, js_getTracks,-        getTracks, getTracks_, js_addTrack, addTrack, js_removeTrack,-        removeTrack, js_getTrackById, getTrackById, getTrackById_,-        getTrackByIdUnsafe, getTrackByIdUnchecked, js_clone, clone, clone_,-        cloneUnsafe, cloneUnchecked, js_getId, getId, js_getActive,-        getActive, active, inactive, addTrackEvent, removeTrackEvent,-        MediaStream(..), gTypeMediaStream)+        getTracks, getTracks_, js_getTrackById, getTrackById,+        getTrackById_, js_addTrack, addTrack, js_removeTrack, removeTrack,+        js_clone, clone, clone_, js_getId, getId, js_getActive, getActive,+        active, inactive, addTrackEvent, removeTrackEvent, MediaStream(..),+        gTypeMediaStream)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -28,6 +27,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -43,13 +43,11 @@   foreign import javascript unsafe         "new window[\"webkitMediaStream\"]($1)" js_newMediaStream' ::-        Nullable MediaStream -> IO MediaStream+        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))+newMediaStream' :: (MonadIO m) => MediaStream -> m MediaStream+newMediaStream' stream = liftIO (js_newMediaStream' stream)   foreign import javascript unsafe         "new window[\"webkitMediaStream\"]($1)" js_newMediaStream'' ::@@ -57,8 +55,7 @@  -- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitMediaStream Mozilla webkitMediaStream documentation>  newMediaStream'' ::-                 (MonadIO m, IsMediaStreamTrack tracks) =>-                   [Maybe tracks] -> m MediaStream+                 (MonadIO m) => [MediaStreamTrack] -> m MediaStream newMediaStream'' tracks   = liftIO       (toJSVal tracks >>= \ tracks' -> js_newMediaStream'' tracks')@@ -68,124 +65,80 @@  -- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitMediaStream.getAudioTracks Mozilla webkitMediaStream.getAudioTracks documentation>  getAudioTracks ::-               (MonadIO m) => MediaStream -> m [Maybe MediaStreamTrack]+               (MonadIO m) => MediaStream -> m [MediaStreamTrack] getAudioTracks self-  = liftIO ((js_getAudioTracks (self)) >>= fromJSValUnchecked)+  = liftIO ((js_getAudioTracks self) >>= fromJSValUnchecked)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitMediaStream.getAudioTracks Mozilla webkitMediaStream.getAudioTracks documentation>  getAudioTracks_ :: (MonadIO m) => MediaStream -> m ()-getAudioTracks_ self = liftIO (void (js_getAudioTracks (self)))+getAudioTracks_ self = liftIO (void (js_getAudioTracks self))   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]+               (MonadIO m) => MediaStream -> m [MediaStreamTrack] getVideoTracks self-  = liftIO ((js_getVideoTracks (self)) >>= fromJSValUnchecked)+  = liftIO ((js_getVideoTracks self) >>= fromJSValUnchecked)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitMediaStream.getVideoTracks Mozilla webkitMediaStream.getVideoTracks documentation>  getVideoTracks_ :: (MonadIO m) => MediaStream -> m ()-getVideoTracks_ self = liftIO (void (js_getVideoTracks (self)))+getVideoTracks_ self = liftIO (void (js_getVideoTracks self))   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 :: (MonadIO m) => MediaStream -> m [MediaStreamTrack] getTracks self-  = liftIO ((js_getTracks (self)) >>= fromJSValUnchecked)+  = liftIO ((js_getTracks self) >>= fromJSValUnchecked)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitMediaStream.getTracks Mozilla webkitMediaStream.getTracks documentation>  getTracks_ :: (MonadIO m) => MediaStream -> m ()-getTracks_ self = liftIO (void (js_getTracks (self)))- -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)))+getTracks_ self = liftIO (void (js_getTracks self))   foreign import javascript unsafe "$1[\"getTrackById\"]($2)"-        js_getTrackById ::-        MediaStream -> JSString -> IO (Nullable MediaStreamTrack)+        js_getTrackById :: MediaStream -> JSString -> IO 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)+               MediaStream -> trackId -> m MediaStreamTrack getTrackById self trackId-  = liftIO-      (nullableToMaybe <$> (js_getTrackById (self) (toJSString trackId)))+  = liftIO (js_getTrackById self (toJSString trackId))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitMediaStream.getTrackById Mozilla webkitMediaStream.getTrackById documentation>  getTrackById_ ::               (MonadIO m, ToJSString trackId) => MediaStream -> trackId -> m () getTrackById_ self trackId-  = liftIO (void (js_getTrackById (self) (toJSString trackId)))+  = liftIO (void (js_getTrackById self (toJSString trackId)))+ +foreign import javascript unsafe "$1[\"addTrack\"]($2)" js_addTrack+        :: MediaStream -> MediaStreamTrack -> IO () --- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitMediaStream.getTrackById Mozilla webkitMediaStream.getTrackById documentation> -getTrackByIdUnsafe ::-                   (MonadIO m, ToJSString trackId, HasCallStack) =>-                     MediaStream -> trackId -> m MediaStreamTrack-getTrackByIdUnsafe self trackId-  = liftIO-      ((nullableToMaybe <$>-          (js_getTrackById (self) (toJSString trackId)))-         >>= maybe (Prelude.error "Nothing to return") return)+-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitMediaStream.addTrack Mozilla webkitMediaStream.addTrack documentation> +addTrack :: (MonadIO m) => MediaStream -> MediaStreamTrack -> m ()+addTrack self track = liftIO (js_addTrack self track)+ +foreign import javascript unsafe "$1[\"removeTrack\"]($2)"+        js_removeTrack :: MediaStream -> MediaStreamTrack -> IO () --- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitMediaStream.getTrackById Mozilla webkitMediaStream.getTrackById documentation> -getTrackByIdUnchecked ::-                      (MonadIO m, ToJSString trackId) =>-                        MediaStream -> trackId -> m MediaStreamTrack-getTrackByIdUnchecked self trackId-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_getTrackById (self) (toJSString trackId)))+-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitMediaStream.removeTrack Mozilla webkitMediaStream.removeTrack documentation> +removeTrack ::+            (MonadIO m) => MediaStream -> MediaStreamTrack -> m ()+removeTrack self track = liftIO (js_removeTrack self track)   foreign import javascript unsafe "$1[\"clone\"]()" js_clone ::-        MediaStream -> IO (Nullable MediaStream)+        MediaStream -> IO 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)))+clone :: (MonadIO m) => MediaStream -> m MediaStream+clone self = liftIO (js_clone self)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitMediaStream.clone Mozilla webkitMediaStream.clone documentation>  clone_ :: (MonadIO m) => MediaStream -> m ()-clone_ self = liftIO (void (js_clone (self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitMediaStream.clone Mozilla webkitMediaStream.clone documentation> -cloneUnsafe ::-            (MonadIO m, HasCallStack) => MediaStream -> m MediaStream-cloneUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_clone (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitMediaStream.clone Mozilla webkitMediaStream.clone documentation> -cloneUnchecked :: (MonadIO m) => MediaStream -> m MediaStream-cloneUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_clone (self)))+clone_ self = liftIO (void (js_clone self))   foreign import javascript unsafe "$1[\"id\"]" js_getId ::         MediaStream -> IO JSString@@ -193,14 +146,14 @@ -- | <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)))+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))+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
src/GHCJS/DOM/JSFFI/Generated/MediaStreamAudioDestinationNode.hs view
@@ -4,15 +4,14 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.MediaStreamAudioDestinationNode-       (js_getStream, getStream, getStreamUnsafe, getStreamUnchecked,-        MediaStreamAudioDestinationNode(..),+       (js_getStream, getStream, MediaStreamAudioDestinationNode(..),         gTypeMediaStreamAudioDestinationNode)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -21,31 +20,16 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums   foreign import javascript unsafe "$1[\"stream\"]" js_getStream ::-        MediaStreamAudioDestinationNode -> IO (Nullable MediaStream)+        MediaStreamAudioDestinationNode -> IO 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamAudioDestinationNode.stream Mozilla MediaStreamAudioDestinationNode.stream documentation> -getStreamUnsafe ::-                (MonadIO m, HasCallStack) =>-                  MediaStreamAudioDestinationNode -> m MediaStream-getStreamUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getStream (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamAudioDestinationNode.stream Mozilla MediaStreamAudioDestinationNode.stream documentation> -getStreamUnchecked ::-                   (MonadIO m) => MediaStreamAudioDestinationNode -> m MediaStream-getStreamUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getStream (self)))+          (MonadIO m) => MediaStreamAudioDestinationNode -> m MediaStream+getStream self = liftIO (js_getStream self)
src/GHCJS/DOM/JSFFI/Generated/MediaStreamAudioSourceNode.hs view
@@ -4,15 +4,14 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.MediaStreamAudioSourceNode-       (js_getMediaStream, getMediaStream, getMediaStreamUnsafe,-        getMediaStreamUnchecked, MediaStreamAudioSourceNode(..),+       (js_getMediaStream, getMediaStream, MediaStreamAudioSourceNode(..),         gTypeMediaStreamAudioSourceNode)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -21,33 +20,16 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums   foreign import javascript unsafe "$1[\"mediaStream\"]"-        js_getMediaStream ::-        MediaStreamAudioSourceNode -> IO (Nullable MediaStream)+        js_getMediaStream :: MediaStreamAudioSourceNode -> IO 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamAudioSourceNode.mediaStream Mozilla MediaStreamAudioSourceNode.mediaStream documentation> -getMediaStreamUnsafe ::-                     (MonadIO m, HasCallStack) =>-                       MediaStreamAudioSourceNode -> m MediaStream-getMediaStreamUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getMediaStream (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamAudioSourceNode.mediaStream Mozilla MediaStreamAudioSourceNode.mediaStream documentation> -getMediaStreamUnchecked ::-                        (MonadIO m) => MediaStreamAudioSourceNode -> m MediaStream-getMediaStreamUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$> (js_getMediaStream (self)))+               (MonadIO m) => MediaStreamAudioSourceNode -> m MediaStream+getMediaStream self = liftIO (js_getMediaStream self)
src/GHCJS/DOM/JSFFI/Generated/MediaStreamEvent.hs view
@@ -4,14 +4,15 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.MediaStreamEvent-       (js_getStream, getStream, getStreamUnsafe, getStreamUnchecked,+       (js_newMediaStreamEvent, newMediaStreamEvent, js_getStream,+        getStream, getStreamUnsafe, getStreamUnchecked,         MediaStreamEvent(..), gTypeMediaStreamEvent)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -20,29 +21,43 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums  +foreign import javascript unsafe+        "new window[\"MediaStreamEvent\"]($1,\n$2)" js_newMediaStreamEvent+        :: JSString -> Optional MediaStreamEventInit -> IO MediaStreamEvent++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamEvent Mozilla MediaStreamEvent documentation> +newMediaStreamEvent ::+                    (MonadIO m, ToJSString type') =>+                      type' -> Maybe MediaStreamEventInit -> m MediaStreamEvent+newMediaStreamEvent type' eventInitDict+  = liftIO+      (js_newMediaStreamEvent (toJSString type')+         (maybeToOptional eventInitDict))+  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)))+getStream self = liftIO (nullableToMaybe <$> (js_getStream self))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamEvent.stream Mozilla MediaStreamEvent.stream documentation>  getStreamUnsafe ::                 (MonadIO m, HasCallStack) => MediaStreamEvent -> m MediaStream getStreamUnsafe self   = liftIO-      ((nullableToMaybe <$> (js_getStream (self))) >>=+      ((nullableToMaybe <$> (js_getStream self)) >>=          maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamEvent.stream Mozilla MediaStreamEvent.stream documentation>  getStreamUnchecked ::                    (MonadIO m) => MediaStreamEvent -> m MediaStream getStreamUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getStream (self)))+  = liftIO (fromJust . nullableToMaybe <$> (js_getStream self))
src/GHCJS/DOM/JSFFI/Generated/MediaStreamTrack.hs view
@@ -4,25 +4,21 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.MediaStreamTrack-       (js_getSources, getSources, js_getConstraints, getConstraints,-        getConstraints_, getConstraintsUnsafe, getConstraintsUnchecked,-        js_states, states, states_, statesUnsafe, statesUnchecked,-        js_getCapabilities, getCapabilities, getCapabilities_,-        getCapabilitiesUnsafe, getCapabilitiesUnchecked,-        js_applyConstraints, applyConstraints, js_clone, clone, clone_,-        cloneUnsafe, cloneUnchecked, 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(..), gTypeMediaStreamTrack, IsMediaStreamTrack,-        toMediaStreamTrack)+       (js_clone, clone, clone_, js_stop, stop, js_getConstraints,+        getConstraints, getConstraints_, js_getSettings, getSettings,+        getSettings_, js_getCapabilities, getCapabilities,+        getCapabilities_, js_applyConstraints, applyConstraints,+        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, ended,+        overConstrained, MediaStreamTrack(..), gTypeMediaStreamTrack)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -31,291 +27,157 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums  -foreign import javascript unsafe "$1[\"getSources\"]($2)"-        js_getSources ::-        MediaStreamTrack ->-          Nullable MediaStreamTrackSourcesCallback -> IO ()+foreign import javascript unsafe "$1[\"clone\"]()" js_clone ::+        MediaStreamTrack -> IO MediaStreamTrack --- | <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))+-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.clone Mozilla MediaStreamTrack.clone documentation> +clone :: (MonadIO m) => MediaStreamTrack -> m MediaStreamTrack+clone self = liftIO (js_clone self)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.clone Mozilla MediaStreamTrack.clone documentation> +clone_ :: (MonadIO m) => MediaStreamTrack -> m ()+clone_ self = liftIO (void (js_clone 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) => MediaStreamTrack -> m ()+stop self = liftIO (js_stop self)+  foreign import javascript unsafe "$1[\"getConstraints\"]()"-        js_getConstraints ::-        MediaStreamTrack -> IO (Nullable MediaTrackConstraints)+        js_getConstraints :: MediaStreamTrack -> IO 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.getConstraints Mozilla MediaStreamTrack.getConstraints documentation> -getConstraints_ ::-                (MonadIO m, IsMediaStreamTrack self) => self -> m ()-getConstraints_ self-  = liftIO (void (js_getConstraints (toMediaStreamTrack self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.getConstraints Mozilla MediaStreamTrack.getConstraints documentation> -getConstraintsUnsafe ::-                     (MonadIO m, IsMediaStreamTrack self, HasCallStack) =>-                       self -> m MediaTrackConstraints-getConstraintsUnsafe self-  = liftIO-      ((nullableToMaybe <$>-          (js_getConstraints (toMediaStreamTrack self)))-         >>= maybe (Prelude.error "Nothing to return") return)+               (MonadIO m) => MediaStreamTrack -> m MediaTrackConstraints+getConstraints self = liftIO (js_getConstraints self)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.getConstraints Mozilla MediaStreamTrack.getConstraints documentation> -getConstraintsUnchecked ::-                        (MonadIO m, IsMediaStreamTrack self) =>-                          self -> m MediaTrackConstraints-getConstraintsUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_getConstraints (toMediaStreamTrack self)))+getConstraints_ :: (MonadIO m) => MediaStreamTrack -> m ()+getConstraints_ self = liftIO (void (js_getConstraints 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.states Mozilla MediaStreamTrack.states documentation> -states_ :: (MonadIO m, IsMediaStreamTrack self) => self -> m ()-states_ self = liftIO (void (js_states (toMediaStreamTrack self)))+foreign import javascript unsafe "$1[\"getSettings\"]()"+        js_getSettings :: MediaStreamTrack -> IO MediaTrackSettings --- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.states Mozilla MediaStreamTrack.states documentation> -statesUnsafe ::-             (MonadIO m, IsMediaStreamTrack self, HasCallStack) =>-               self -> m MediaSourceStates-statesUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_states (toMediaStreamTrack self))) >>=-         maybe (Prelude.error "Nothing to return") return)+-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.getSettings Mozilla MediaStreamTrack.getSettings documentation> +getSettings ::+            (MonadIO m) => MediaStreamTrack -> m MediaTrackSettings+getSettings self = liftIO (js_getSettings self) --- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.states Mozilla MediaStreamTrack.states documentation> -statesUnchecked ::-                (MonadIO m, IsMediaStreamTrack self) => self -> m MediaSourceStates-statesUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_states (toMediaStreamTrack self)))+-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.getSettings Mozilla MediaStreamTrack.getSettings documentation> +getSettings_ :: (MonadIO m) => MediaStreamTrack -> m ()+getSettings_ self = liftIO (void (js_getSettings self))   foreign import javascript unsafe "$1[\"getCapabilities\"]()"-        js_getCapabilities ::-        MediaStreamTrack -> IO (Nullable MediaStreamCapabilities)+        js_getCapabilities :: MediaStreamTrack -> IO MediaTrackCapabilities  -- | <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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.getCapabilities Mozilla MediaStreamTrack.getCapabilities documentation> -getCapabilities_ ::-                 (MonadIO m, IsMediaStreamTrack self) => self -> m ()-getCapabilities_ self-  = liftIO (void (js_getCapabilities (toMediaStreamTrack self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.getCapabilities Mozilla MediaStreamTrack.getCapabilities documentation> -getCapabilitiesUnsafe ::-                      (MonadIO m, IsMediaStreamTrack self, HasCallStack) =>-                        self -> m MediaStreamCapabilities-getCapabilitiesUnsafe self-  = liftIO-      ((nullableToMaybe <$>-          (js_getCapabilities (toMediaStreamTrack self)))-         >>= maybe (Prelude.error "Nothing to return") return)+                (MonadIO m) => MediaStreamTrack -> m MediaTrackCapabilities+getCapabilities self = liftIO (js_getCapabilities self)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.getCapabilities Mozilla MediaStreamTrack.getCapabilities documentation> -getCapabilitiesUnchecked ::-                         (MonadIO m, IsMediaStreamTrack self) =>-                           self -> m MediaStreamCapabilities-getCapabilitiesUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_getCapabilities (toMediaStreamTrack self)))+getCapabilities_ :: (MonadIO m) => MediaStreamTrack -> m ()+getCapabilities_ self = liftIO (void (js_getCapabilities self))  -foreign import javascript unsafe "$1[\"applyConstraints\"]($2)"-        js_applyConstraints ::-        MediaStreamTrack -> Nullable Dictionary -> IO ()+foreign import javascript interruptible+        "$1[\"applyConstraints\"]($2).\nthen($c);" js_applyConstraints ::+        MediaStreamTrack -> Optional MediaTrackConstraints -> 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 ()+                 (MonadIO m) =>+                   MediaStreamTrack -> Maybe MediaTrackConstraints -> 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.clone Mozilla MediaStreamTrack.clone documentation> -clone_ :: (MonadIO m, IsMediaStreamTrack self) => self -> m ()-clone_ self = liftIO (void (js_clone (toMediaStreamTrack self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.clone Mozilla MediaStreamTrack.clone documentation> -cloneUnsafe ::-            (MonadIO m, IsMediaStreamTrack self, HasCallStack) =>-              self -> m MediaStreamTrack-cloneUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_clone (toMediaStreamTrack self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.clone Mozilla MediaStreamTrack.clone documentation> -cloneUnchecked ::-               (MonadIO m, IsMediaStreamTrack self) => self -> m MediaStreamTrack-cloneUnchecked self-  = liftIO-      (fromJust . 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))+  = liftIO (js_applyConstraints self (maybeToOptional constraints))   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)))+        (MonadIO m, FromJSString result) => MediaStreamTrack -> m result+getKind self = liftIO (fromJSString <$> (js_getKind 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)))+      (MonadIO m, FromJSString result) => MediaStreamTrack -> m result+getId self = liftIO (fromJSString <$> (js_getId 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)))+         (MonadIO m, FromJSString result) => MediaStreamTrack -> m result+getLabel self = liftIO (fromJSString <$> (js_getLabel 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)+setEnabled :: (MonadIO m) => MediaStreamTrack -> Bool -> m ()+setEnabled self val = liftIO (js_setEnabled 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))+getEnabled :: (MonadIO m) => MediaStreamTrack -> m Bool+getEnabled self = liftIO (js_getEnabled 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))+getMuted :: (MonadIO m) => MediaStreamTrack -> m Bool+getMuted self = liftIO (js_getMuted 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 :: EventName MediaStreamTrack 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 :: EventName MediaStreamTrack 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))+get_readonly :: (MonadIO m) => MediaStreamTrack -> m Bool+get_readonly self = liftIO (js_get_readonly 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))+getRemote :: (MonadIO m) => MediaStreamTrack -> m Bool+getRemote self = liftIO (js_getRemote 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+              (MonadIO m) => MediaStreamTrack -> 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")+  = liftIO ((js_getReadyState self) >>= fromJSValUnchecked)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.onended Mozilla MediaStreamTrack.onended documentation> -ended ::-      (IsMediaStreamTrack self, IsEventTarget self) =>-        EventName self Event+ended :: EventName MediaStreamTrack 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 :: EventName MediaStreamTrack Event overConstrained = unsafeEventName (toJSString "overconstrained")
src/GHCJS/DOM/JSFFI/Generated/MediaStreamTrackEvent.hs view
@@ -4,14 +4,15 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.MediaStreamTrackEvent-       (js_getTrack, getTrack, getTrackUnsafe, getTrackUnchecked,-        MediaStreamTrackEvent(..), gTypeMediaStreamTrackEvent)+       (js_newMediaStreamTrackEvent, newMediaStreamTrackEvent,+        js_getTrack, getTrack, MediaStreamTrackEvent(..),+        gTypeMediaStreamTrackEvent)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -20,30 +21,29 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) 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)))+foreign import javascript unsafe+        "new window[\"MediaStreamTrackEvent\"]($1,\n$2)"+        js_newMediaStreamTrackEvent ::+        JSString -> MediaStreamTrackEventInit -> IO MediaStreamTrackEvent --- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrackEvent.track Mozilla MediaStreamTrackEvent.track documentation> -getTrackUnsafe ::-               (MonadIO m, HasCallStack) =>-                 MediaStreamTrackEvent -> m MediaStreamTrack-getTrackUnsafe self+-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrackEvent Mozilla MediaStreamTrackEvent documentation> +newMediaStreamTrackEvent ::+                         (MonadIO m, ToJSString type') =>+                           type' -> MediaStreamTrackEventInit -> m MediaStreamTrackEvent+newMediaStreamTrackEvent type' eventInitDict   = liftIO-      ((nullableToMaybe <$> (js_getTrack (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+      (js_newMediaStreamTrackEvent (toJSString type') eventInitDict)+ +foreign import javascript unsafe "$1[\"track\"]" js_getTrack ::+        MediaStreamTrackEvent -> IO MediaStreamTrack  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrackEvent.track Mozilla MediaStreamTrackEvent.track documentation> -getTrackUnchecked ::-                  (MonadIO m) => MediaStreamTrackEvent -> m MediaStreamTrack-getTrackUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getTrack (self)))+getTrack ::+         (MonadIO m) => MediaStreamTrackEvent -> m MediaStreamTrack+getTrack self = liftIO (js_getTrack self)
− src/GHCJS/DOM/JSFFI/Generated/MediaStreamTrackSourcesCallback.hs 
@@ -1,64 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility-{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}-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 qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)-import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))-import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import 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 
@@ -1,62 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility-{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}-module GHCJS.DOM.JSFFI.Generated.MediaTrackConstraints-       (js_getMandatory, getMandatory, getMandatoryUnsafe,-        getMandatoryUnchecked, js_getOptional, getOptional,-        MediaTrackConstraints(..), gTypeMediaTrackConstraints)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)-import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))-import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import 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)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaTrackConstraints.mandatory Mozilla MediaTrackConstraints.mandatory documentation> -getMandatoryUnsafe ::-                   (MonadIO m, HasCallStack) =>-                     MediaTrackConstraints -> m MediaTrackConstraintSet-getMandatoryUnsafe self-  = liftIO-      (((js_getMandatory (self)) >>= fromJSValUnchecked) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaTrackConstraints.mandatory Mozilla MediaTrackConstraints.mandatory documentation> -getMandatoryUnchecked ::-                      (MonadIO m) => MediaTrackConstraints -> m MediaTrackConstraintSet-getMandatoryUnchecked 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 
@@ -1,40 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility-{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}-module GHCJS.DOM.JSFFI.Generated.MemoryInfo-       (js_getUsedJSHeapSize, getUsedJSHeapSize, js_getTotalJSHeapSize,-        getTotalJSHeapSize, MemoryInfo(..), gTypeMemoryInfo)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)-import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))-import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import 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
@@ -5,15 +5,13 @@ {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.MessageChannel        (js_newMessageChannel, newMessageChannel, js_getPort1, getPort1,-        getPort1Unsafe, getPort1Unchecked, js_getPort2, getPort2,-        getPort2Unsafe, getPort2Unchecked, MessageChannel(..),-        gTypeMessageChannel)+        js_getPort2, getPort2, MessageChannel(..), gTypeMessageChannel)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -22,6 +20,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -35,41 +34,15 @@ 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/MessageChannel.port1 Mozilla MessageChannel.port1 documentation> -getPort1Unsafe ::-               (MonadIO m, HasCallStack) => MessageChannel -> m MessagePort-getPort1Unsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getPort1 (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        MessageChannel -> IO MessagePort  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MessageChannel.port1 Mozilla MessageChannel.port1 documentation> -getPort1Unchecked :: (MonadIO m) => MessageChannel -> m MessagePort-getPort1Unchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getPort1 (self)))+getPort1 :: (MonadIO m) => MessageChannel -> m MessagePort+getPort1 self = liftIO (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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/MessageChannel.port2 Mozilla MessageChannel.port2 documentation> -getPort2Unsafe ::-               (MonadIO m, HasCallStack) => MessageChannel -> m MessagePort-getPort2Unsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getPort2 (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        MessageChannel -> IO MessagePort  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MessageChannel.port2 Mozilla MessageChannel.port2 documentation> -getPort2Unchecked :: (MonadIO m) => MessageChannel -> m MessagePort-getPort2Unchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getPort2 (self)))+getPort2 :: (MonadIO m) => MessageChannel -> m MessagePort+getPort2 self = liftIO (js_getPort2 self)
src/GHCJS/DOM/JSFFI/Generated/MessageEvent.hs view
@@ -4,7 +4,8 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.MessageEvent-       (js_initMessageEvent, initMessageEvent, js_webkitInitMessageEvent,+       (js_newMessageEvent, newMessageEvent, js_initMessageEvent,+        initMessageEvent, js_webkitInitMessageEvent,         webkitInitMessageEvent, js_getOrigin, getOrigin, js_getLastEventId,         getLastEventId, js_getSource, getSource, getSourceUnsafe,         getSourceUnchecked, js_getData, getData, js_getPorts, getPorts,@@ -14,7 +15,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -23,74 +24,104 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums   foreign import javascript unsafe+        "new window[\"MessageEvent\"]($1,\n$2)" js_newMessageEvent ::+        JSString -> Optional MessageEventInit -> IO MessageEvent++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MessageEvent Mozilla MessageEvent documentation> +newMessageEvent ::+                (MonadIO m, ToJSString type') =>+                  type' -> Maybe MessageEventInit -> m MessageEvent+newMessageEvent type' eventInitDict+  = liftIO+      (js_newMessageEvent (toJSString type')+         (maybeToOptional eventInitDict))+ +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 ()+                Optional JSVal ->+                  Optional JSString ->+                    Optional JSString -> Optional MessageEventSource -> JSVal -> 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) =>+                 (MonadIO m, ToJSString type', ToJSVal data', ToJSString originArg,+                  ToJSString lastEventId, IsMessageEventSource source) =>                    MessageEvent ->-                     typeArg ->+                     type' ->                        Bool ->                          Bool ->-                           JSVal ->-                             originArg ->-                               lastEventIdArg -> Maybe Window -> Maybe messagePorts -> m ()-initMessageEvent self typeArg canBubbleArg cancelableArg dataArg-  originArg lastEventIdArg sourceArg messagePorts+                           Maybe data' ->+                             Maybe originArg ->+                               Maybe lastEventId -> Maybe source -> [MessagePort] -> m ()+initMessageEvent self type' bubbles cancelable data' originArg+  lastEventId source messagePorts   = liftIO-      (js_initMessageEvent (self) (toJSString typeArg) canBubbleArg-         cancelableArg-         dataArg-         (toJSString originArg)-         (toJSString lastEventIdArg)-         (maybeToNullable sourceArg)-         (maybeToNullable (fmap toArray messagePorts)))+      (toJSVal messagePorts >>=+         \ messagePorts' ->+           mapM toJSVal source >>=+             \ source' ->+               mapM toJSVal data' >>=+                 \ data'' ->+                   js_initMessageEvent self (toJSString type') bubbles cancelable+                     (maybeToOptional data'')+                 (toOptionalJSString originArg)+                 (toOptionalJSString lastEventId)+                 (maybeToOptional (fmap MessageEventSource source'))+             messagePorts')   foreign import javascript unsafe         "$1[\"webkitInitMessageEvent\"]($2,\n$3, $4, $5, $6, $7, $8, $9)"         js_webkitInitMessageEvent ::         MessageEvent ->-          JSString ->+          Optional JSString ->             Bool ->               Bool ->-                JSVal ->-                  JSString -> JSString -> Nullable Window -> Nullable Array -> IO ()+                Optional JSVal ->+                  Optional JSString ->+                    Optional JSString -> Optional MessageEventSource -> JSVal -> 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) =>+                       (MonadIO m, ToJSString typeArg, ToJSVal dataArg,+                        ToJSString originArg, ToJSString lastEventIdArg,+                        IsMessageEventSource sourceArg) =>                          MessageEvent ->-                           typeArg ->+                           Maybe typeArg ->                              Bool ->                                Bool ->-                                 JSVal ->-                                   originArg ->-                                     lastEventIdArg -> Maybe Window -> Maybe transferables -> m ()+                                 Maybe dataArg ->+                                   Maybe originArg ->+                                     Maybe lastEventIdArg ->+                                       Maybe sourceArg -> [MessagePort] -> m () webkitInitMessageEvent self typeArg canBubbleArg cancelableArg-  dataArg originArg lastEventIdArg sourceArg transferables+  dataArg originArg lastEventIdArg sourceArg messagePorts   = liftIO-      (js_webkitInitMessageEvent (self) (toJSString typeArg) canBubbleArg-         cancelableArg-         dataArg-         (toJSString originArg)-         (toJSString lastEventIdArg)-         (maybeToNullable sourceArg)-         (maybeToNullable (fmap toArray transferables)))+      (toJSVal messagePorts >>=+         \ messagePorts' ->+           mapM toJSVal sourceArg >>=+             \ sourceArg' ->+               mapM toJSVal dataArg >>=+                 \ dataArg' ->+                   js_webkitInitMessageEvent self (toOptionalJSString typeArg)+                     canBubbleArg+                     cancelableArg+                     (maybeToOptional dataArg')+                 (toOptionalJSString originArg)+                 (toOptionalJSString lastEventIdArg)+                 (maybeToOptional (fmap MessageEventSource sourceArg'))+             messagePorts')   foreign import javascript unsafe "$1[\"origin\"]" js_getOrigin ::         MessageEvent -> IO JSString@@ -98,7 +129,7 @@ -- | <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)))+getOrigin self = liftIO (fromJSString <$> (js_getOrigin self))   foreign import javascript unsafe "$1[\"lastEventId\"]"         js_getLastEventId :: MessageEvent -> IO JSString@@ -107,39 +138,38 @@ getLastEventId ::                (MonadIO m, FromJSString result) => MessageEvent -> m result getLastEventId self-  = liftIO (fromJSString <$> (js_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)))+getSource self = liftIO (nullableToMaybe <$> (js_getSource self))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MessageEvent.source Mozilla MessageEvent.source documentation>  getSourceUnsafe ::                 (MonadIO m, HasCallStack) => MessageEvent -> m EventTarget getSourceUnsafe self   = liftIO-      ((nullableToMaybe <$> (js_getSource (self))) >>=+      ((nullableToMaybe <$> (js_getSource self)) >>=          maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MessageEvent.source Mozilla MessageEvent.source documentation>  getSourceUnchecked :: (MonadIO m) => MessageEvent -> m EventTarget getSourceUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getSource (self)))+  = liftIO (fromJust . 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))+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)+getPorts :: (MonadIO m) => MessageEvent -> m [MessagePort]+getPorts self = liftIO ((js_getPorts self) >>= fromJSValUnchecked)
src/GHCJS/DOM/JSFFI/Generated/MessagePort.hs view
@@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -20,36 +20,39 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums   foreign import javascript unsafe "$1[\"postMessage\"]($2, $3)"-        js_postMessage :: MessagePort -> JSVal -> Nullable Array -> IO ()+        js_postMessage :: MessagePort -> JSVal -> JSVal -> 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+            (MonadIO m, ToJSVal message, IsGObject transfer) =>+              MessagePort -> message -> [transfer] -> m ()+postMessage self message transfer   = liftIO-      (js_postMessage (self) message-         (maybeToNullable (fmap toArray messagePorts)))+      (toJSVal transfer >>=+         \ transfer' ->+           toJSVal message >>= \ message' -> js_postMessage self message'+             transfer')   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))+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))+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
src/GHCJS/DOM/JSFFI/Generated/MimeType.hs view
@@ -6,14 +6,13 @@ module GHCJS.DOM.JSFFI.Generated.MimeType        (js_getType, getType, js_getSuffixes, getSuffixes,         js_getDescription, getDescription, js_getEnabledPlugin,-        getEnabledPlugin, getEnabledPluginUnsafe,-        getEnabledPluginUnchecked, MimeType(..), gTypeMimeType)+        getEnabledPlugin, MimeType(..), gTypeMimeType)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -22,6 +21,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -32,7 +32,7 @@  -- | <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)))+getType self = liftIO (fromJSString <$> (js_getType self))   foreign import javascript unsafe "$1[\"suffixes\"]" js_getSuffixes         :: MimeType -> IO JSString@@ -40,8 +40,7 @@ -- | <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)))+getSuffixes self = liftIO (fromJSString <$> (js_getSuffixes self))   foreign import javascript unsafe "$1[\"description\"]"         js_getDescription :: MimeType -> IO JSString@@ -50,26 +49,11 @@ getDescription ::                (MonadIO m, FromJSString result) => MimeType -> m result getDescription self-  = liftIO (fromJSString <$> (js_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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/MimeType.enabledPlugin Mozilla MimeType.enabledPlugin documentation> -getEnabledPluginUnsafe ::-                       (MonadIO m, HasCallStack) => MimeType -> m Plugin-getEnabledPluginUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getEnabledPlugin (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        js_getEnabledPlugin :: MimeType -> IO Plugin  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MimeType.enabledPlugin Mozilla MimeType.enabledPlugin documentation> -getEnabledPluginUnchecked :: (MonadIO m) => MimeType -> m Plugin-getEnabledPluginUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$> (js_getEnabledPlugin (self)))+getEnabledPlugin :: (MonadIO m) => MimeType -> m Plugin+getEnabledPlugin self = liftIO (js_getEnabledPlugin self)
src/GHCJS/DOM/JSFFI/Generated/MimeTypeArray.hs view
@@ -12,7 +12,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -21,38 +21,38 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums  -foreign import javascript unsafe "$1[\"item\"]($2)" js_item ::+foreign import javascript unsafe "$1[$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))+item self index = liftIO (nullableToMaybe <$> (js_item self index))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MimeTypeArray.item Mozilla MimeTypeArray.item documentation>  item_ :: (MonadIO m) => MimeTypeArray -> Word -> m ()-item_ self index = liftIO (void (js_item (self) index))+item_ self index = liftIO (void (js_item self index))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MimeTypeArray.item Mozilla MimeTypeArray.item documentation>  itemUnsafe ::            (MonadIO m, HasCallStack) => MimeTypeArray -> Word -> m MimeType itemUnsafe self index   = liftIO-      ((nullableToMaybe <$> (js_item (self) index)) >>=+      ((nullableToMaybe <$> (js_item self index)) >>=          maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MimeTypeArray.item Mozilla MimeTypeArray.item documentation>  itemUnchecked :: (MonadIO m) => MimeTypeArray -> Word -> m MimeType itemUnchecked self index-  = liftIO (fromJust . nullableToMaybe <$> (js_item (self) index))+  = liftIO (fromJust . nullableToMaybe <$> (js_item self index))  -foreign import javascript unsafe "$1[\"namedItem\"]($2)"-        js_namedItem :: MimeTypeArray -> JSString -> IO (Nullable MimeType)+foreign import javascript unsafe "$1[$2]" js_namedItem ::+        MimeTypeArray -> JSString -> IO (Nullable MimeType)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MimeTypeArray.namedItem Mozilla MimeTypeArray.namedItem documentation>  namedItem ::@@ -60,13 +60,13 @@             MimeTypeArray -> name -> m (Maybe MimeType) namedItem self name   = liftIO-      (nullableToMaybe <$> (js_namedItem (self) (toJSString name)))+      (nullableToMaybe <$> (js_namedItem self (toJSString name)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MimeTypeArray.namedItem Mozilla MimeTypeArray.namedItem documentation>  namedItem_ ::            (MonadIO m, ToJSString name) => MimeTypeArray -> name -> m () namedItem_ self name-  = liftIO (void (js_namedItem (self) (toJSString name)))+  = liftIO (void (js_namedItem self (toJSString name)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MimeTypeArray.namedItem Mozilla MimeTypeArray.namedItem documentation>  namedItemUnsafe ::@@ -74,7 +74,7 @@                   MimeTypeArray -> name -> m MimeType namedItemUnsafe self name   = liftIO-      ((nullableToMaybe <$> (js_namedItem (self) (toJSString name))) >>=+      ((nullableToMaybe <$> (js_namedItem self (toJSString name))) >>=          maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MimeTypeArray.namedItem Mozilla MimeTypeArray.namedItem documentation> @@ -83,11 +83,11 @@ namedItemUnchecked self name   = liftIO       (fromJust . nullableToMaybe <$>-         (js_namedItem (self) (toJSString name)))+         (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))+getLength self = liftIO (js_getLength self)
src/GHCJS/DOM/JSFFI/Generated/MouseEvent.hs view
@@ -4,26 +4,29 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.MouseEvent-       (js_initMouseEvent, initMouseEvent, js_getScreenX, getScreenX,-        js_getScreenY, getScreenY, js_getClientX, getClientX,+       (js_newMouseEvent, newMouseEvent, js_initMouseEvent,+        initMouseEvent, pattern WEBKIT_FORCE_AT_MOUSE_DOWN,+        pattern WEBKIT_FORCE_AT_FORCE_MOUSE_DOWN, 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, getRelatedTargetUnsafe,         getRelatedTargetUnchecked, js_getMovementX, getMovementX,-        js_getMovementY, getMovementY, js_getOffsetX, getOffsetX,-        js_getOffsetY, getOffsetY, js_getX, getX, js_getY, getY,-        js_getFromElement, getFromElement, getFromElementUnsafe,-        getFromElementUnchecked, js_getToElement, getToElement,-        getToElementUnsafe, getToElementUnchecked, js_getDataTransfer,-        getDataTransfer, getDataTransferUnsafe, getDataTransferUnchecked,-        MouseEvent(..), gTypeMouseEvent, IsMouseEvent, toMouseEvent)+        js_getMovementY, getMovementY, js_getWebkitForce, getWebkitForce,+        js_getOffsetX, getOffsetX, js_getOffsetY, getOffsetY, js_getX,+        getX, js_getY, getY, js_getFromElement, getFromElement,+        getFromElementUnsafe, getFromElementUnchecked, js_getToElement,+        getToElement, getToElementUnsafe, getToElementUnchecked,+        js_getDataTransfer, getDataTransfer, getDataTransferUnsafe,+        getDataTransferUnchecked, MouseEvent(..), gTypeMouseEvent,+        IsMouseEvent, toMouseEvent)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -32,60 +35,79 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.JSFFI.Generated.Enums   foreign import javascript unsafe+        "new window[\"MouseEvent\"]($1, $2)" js_newMouseEvent ::+        JSString -> Optional MouseEventInit -> IO MouseEvent++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent Mozilla MouseEvent documentation> +newMouseEvent ::+              (MonadIO m, ToJSString type', IsMouseEventInit eventInitDict) =>+                type' -> Maybe eventInitDict -> m MouseEvent+newMouseEvent type' eventInitDict+  = liftIO+      (js_newMouseEvent (toJSString type')+         (maybeToOptional (fmap toMouseEventInit eventInitDict)))+ +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 ->+          Optional JSString ->             Bool ->               Bool ->-                Nullable Window ->-                  Int ->-                    Int ->-                      Int ->-                        Int ->-                          Int ->+                Optional Window ->+                  Optional Int ->+                    Optional Int ->+                      Optional Int ->+                        Optional Int ->+                          Optional Int ->                             Bool ->-                              Bool -> Bool -> Bool -> Word -> Nullable EventTarget -> IO ()+                              Bool ->+                                Bool -> Bool -> Optional Word -> Optional 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' ->+                   Maybe type' ->                      Bool ->                        Bool ->                          Maybe Window ->-                           Int ->-                             Int ->-                               Int ->-                                 Int ->-                                   Int ->+                           Maybe Int ->+                             Maybe Int ->+                               Maybe Int ->+                                 Maybe Int ->+                                   Maybe Int ->                                      Bool ->-                                       Bool -> Bool -> Bool -> Word -> Maybe relatedTarget -> m ()+                                       Bool ->+                                         Bool -> Bool -> Maybe 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+      (js_initMouseEvent (toMouseEvent self) (toOptionalJSString type')+         canBubble          cancelable-         (maybeToNullable view)-         detail-         screenX-         screenY-         clientX-         clientY+         (maybeToOptional view)+         (maybeToOptional detail)+         (maybeToOptional screenX)+         (maybeToOptional screenY)+         (maybeToOptional clientX)+         (maybeToOptional clientY)          ctrlKey          altKey          shiftKey          metaKey-         button-         (maybeToNullable (fmap toEventTarget relatedTarget)))+         (maybeToOptional button)+         (maybeToOptional (fmap toEventTarget relatedTarget)))+pattern WEBKIT_FORCE_AT_MOUSE_DOWN = 1+pattern WEBKIT_FORCE_AT_FORCE_MOUSE_DOWN = 2   foreign import javascript unsafe "$1[\"screenX\"]" js_getScreenX ::         MouseEvent -> IO Int@@ -190,6 +212,15 @@ -- | <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[\"webkitForce\"]"+        js_getWebkitForce :: MouseEvent -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.webkitForce Mozilla MouseEvent.webkitForce documentation> +getWebkitForce ::+               (MonadIO m, IsMouseEvent self) => self -> m Double+getWebkitForce self+  = liftIO (js_getWebkitForce (toMouseEvent self))   foreign import javascript unsafe "$1[\"offsetX\"]" js_getOffsetX ::         MouseEvent -> IO Int
src/GHCJS/DOM/JSFFI/Generated/MutationEvent.hs view
@@ -15,7 +15,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -24,6 +24,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -33,31 +34,34 @@         "$1[\"initMutationEvent\"]($2, $3,\n$4, $5, $6, $7, $8, $9)"         js_initMutationEvent ::         MutationEvent ->-          JSString ->+          Optional JSString ->             Bool ->               Bool ->-                Nullable Node -> JSString -> JSString -> JSString -> Word -> IO ()+                Optional Node ->+                  Optional JSString ->+                    Optional JSString -> Optional JSString -> Optional 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' ->+                      Maybe type' ->                         Bool ->                           Bool ->                             Maybe relatedNode ->-                              prevValue -> newValue -> attrName -> Word -> m ()+                              Maybe prevValue ->+                                Maybe newValue -> Maybe attrName -> Maybe Word -> m () initMutationEvent self type' canBubble cancelable relatedNode   prevValue newValue attrName attrChange   = liftIO-      (js_initMutationEvent (self) (toJSString type') canBubble+      (js_initMutationEvent self (toOptionalJSString type') canBubble          cancelable-         (maybeToNullable (fmap toNode relatedNode))-         (toJSString prevValue)-         (toJSString newValue)-         (toJSString attrName)-         attrChange)+         (maybeToOptional (fmap toNode relatedNode))+         (toOptionalJSString prevValue)+         (toOptionalJSString newValue)+         (toOptionalJSString attrName)+         (maybeToOptional attrChange)) pattern MODIFICATION = 1 pattern ADDITION = 2 pattern REMOVAL = 3@@ -68,21 +72,20 @@ -- | <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)))+  = liftIO (nullableToMaybe <$> (js_getRelatedNode self))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationEvent.relatedNode Mozilla MutationEvent.relatedNode documentation>  getRelatedNodeUnsafe ::                      (MonadIO m, HasCallStack) => MutationEvent -> m Node getRelatedNodeUnsafe self   = liftIO-      ((nullableToMaybe <$> (js_getRelatedNode (self))) >>=+      ((nullableToMaybe <$> (js_getRelatedNode self)) >>=          maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationEvent.relatedNode Mozilla MutationEvent.relatedNode documentation>  getRelatedNodeUnchecked :: (MonadIO m) => MutationEvent -> m Node getRelatedNodeUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$> (js_getRelatedNode (self)))+  = liftIO (fromJust . nullableToMaybe <$> (js_getRelatedNode self))   foreign import javascript unsafe "$1[\"prevValue\"]"         js_getPrevValue :: MutationEvent -> IO JSString@@ -91,7 +94,7 @@ getPrevValue ::              (MonadIO m, FromJSString result) => MutationEvent -> m result getPrevValue self-  = liftIO (fromJSString <$> (js_getPrevValue (self)))+  = liftIO (fromJSString <$> (js_getPrevValue self))   foreign import javascript unsafe "$1[\"newValue\"]" js_getNewValue         :: MutationEvent -> IO JSString@@ -99,8 +102,7 @@ -- | <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)))+getNewValue self = liftIO (fromJSString <$> (js_getNewValue self))   foreign import javascript unsafe "$1[\"attrName\"]" js_getAttrName         :: MutationEvent -> IO JSString@@ -108,12 +110,11 @@ -- | <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)))+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))+getAttrChange self = liftIO (js_getAttrChange self)
src/GHCJS/DOM/JSFFI/Generated/MutationObserver.hs view
@@ -12,7 +12,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -21,6 +21,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -28,46 +29,43 @@   foreign import javascript unsafe         "new window[\"MutationObserver\"]($1)" js_newMutationObserver ::-        Nullable MutationCallback -> IO MutationObserver+        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+                      callback -> m MutationObserver newMutationObserver callback-  = liftIO-      (js_newMutationObserver-         (maybeToNullable (fmap toMutationCallback callback)))+  = liftIO (js_newMutationObserver (toMutationCallback callback))   foreign import javascript unsafe "$1[\"observe\"]($2, $3)"         js_observe ::-        MutationObserver -> Nullable Node -> Nullable Dictionary -> IO ()+        MutationObserver -> Node -> Optional MutationObserverInit -> 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 ()+        (MonadIO m, IsNode target) =>+          MutationObserver -> target -> Maybe MutationObserverInit -> m () observe self target options   = liftIO-      (js_observe (self) (maybeToNullable (fmap toNode target))-         (maybeToNullable (fmap toDictionary options)))+      (js_observe self (toNode target) (maybeToOptional 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]+            (MonadIO m) => MutationObserver -> m [MutationRecord] takeRecords self-  = liftIO ((js_takeRecords (self)) >>= fromJSValUnchecked)+  = liftIO ((js_takeRecords self) >>= fromJSValUnchecked)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationObserver.takeRecords Mozilla MutationObserver.takeRecords documentation>  takeRecords_ :: (MonadIO m) => MutationObserver -> m ()-takeRecords_ self = liftIO (void (js_takeRecords (self)))+takeRecords_ self = liftIO (void (js_takeRecords self))   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))+disconnect self = liftIO (js_disconnect self)
src/GHCJS/DOM/JSFFI/Generated/MutationRecord.hs view
@@ -4,14 +4,10 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.MutationRecord-       (js_getType, getType, js_getTarget, getTarget, getTargetUnsafe,-        getTargetUnchecked, js_getAddedNodes, getAddedNodes,-        getAddedNodesUnsafe, getAddedNodesUnchecked, js_getRemovedNodes,-        getRemovedNodes, getRemovedNodesUnsafe, getRemovedNodesUnchecked,-        js_getPreviousSibling, getPreviousSibling,-        getPreviousSiblingUnsafe, getPreviousSiblingUnchecked,-        js_getNextSibling, getNextSibling, getNextSiblingUnsafe,-        getNextSiblingUnchecked, js_getAttributeName, getAttributeName,+       (js_getType, getType, js_getTarget, getTarget, js_getAddedNodes,+        getAddedNodes, js_getRemovedNodes, getRemovedNodes,+        js_getPreviousSibling, getPreviousSibling, js_getNextSibling,+        getNextSibling, js_getAttributeName, getAttributeName,         getAttributeNameUnsafe, getAttributeNameUnchecked,         js_getAttributeNamespace, getAttributeNamespace,         getAttributeNamespaceUnsafe, getAttributeNamespaceUnchecked,@@ -22,7 +18,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -31,6 +27,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -42,120 +39,42 @@ -- | <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)))+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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationRecord.target Mozilla MutationRecord.target documentation> -getTargetUnsafe ::-                (MonadIO m, HasCallStack) => MutationRecord -> m Node-getTargetUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getTarget (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        MutationRecord -> IO Node  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationRecord.target Mozilla MutationRecord.target documentation> -getTargetUnchecked :: (MonadIO m) => MutationRecord -> m Node-getTargetUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getTarget (self)))+getTarget :: (MonadIO m) => MutationRecord -> m Node+getTarget self = liftIO (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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationRecord.addedNodes Mozilla MutationRecord.addedNodes documentation> -getAddedNodesUnsafe ::-                    (MonadIO m, HasCallStack) => MutationRecord -> m NodeList-getAddedNodesUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getAddedNodes (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        js_getAddedNodes :: MutationRecord -> IO NodeList  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationRecord.addedNodes Mozilla MutationRecord.addedNodes documentation> -getAddedNodesUnchecked ::-                       (MonadIO m) => MutationRecord -> m NodeList-getAddedNodesUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getAddedNodes (self)))+getAddedNodes :: (MonadIO m) => MutationRecord -> m NodeList+getAddedNodes self = liftIO (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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationRecord.removedNodes Mozilla MutationRecord.removedNodes documentation> -getRemovedNodesUnsafe ::-                      (MonadIO m, HasCallStack) => MutationRecord -> m NodeList-getRemovedNodesUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getRemovedNodes (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        js_getRemovedNodes :: MutationRecord -> IO NodeList  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationRecord.removedNodes Mozilla MutationRecord.removedNodes documentation> -getRemovedNodesUnchecked ::-                         (MonadIO m) => MutationRecord -> m NodeList-getRemovedNodesUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$> (js_getRemovedNodes (self)))+getRemovedNodes :: (MonadIO m) => MutationRecord -> m NodeList+getRemovedNodes self = liftIO (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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationRecord.previousSibling Mozilla MutationRecord.previousSibling documentation> -getPreviousSiblingUnsafe ::-                         (MonadIO m, HasCallStack) => MutationRecord -> m Node-getPreviousSiblingUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getPreviousSibling (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        js_getPreviousSibling :: MutationRecord -> IO Node  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationRecord.previousSibling Mozilla MutationRecord.previousSibling documentation> -getPreviousSiblingUnchecked ::-                            (MonadIO m) => MutationRecord -> m Node-getPreviousSiblingUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$> (js_getPreviousSibling (self)))+getPreviousSibling :: (MonadIO m) => MutationRecord -> m Node+getPreviousSibling self = liftIO (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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationRecord.nextSibling Mozilla MutationRecord.nextSibling documentation> -getNextSiblingUnsafe ::-                     (MonadIO m, HasCallStack) => MutationRecord -> m Node-getNextSiblingUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getNextSibling (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        js_getNextSibling :: MutationRecord -> IO Node  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationRecord.nextSibling Mozilla MutationRecord.nextSibling documentation> -getNextSiblingUnchecked :: (MonadIO m) => MutationRecord -> m Node-getNextSiblingUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$> (js_getNextSibling (self)))+getNextSibling :: (MonadIO m) => MutationRecord -> m Node+getNextSibling self = liftIO (js_getNextSibling self)   foreign import javascript unsafe "$1[\"attributeName\"]"         js_getAttributeName :: MutationRecord -> IO (Nullable JSString)@@ -165,7 +84,7 @@                  (MonadIO m, FromJSString result) =>                    MutationRecord -> m (Maybe result) getAttributeName self-  = liftIO (fromMaybeJSString <$> (js_getAttributeName (self)))+  = liftIO (fromMaybeJSString <$> (js_getAttributeName self))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationRecord.attributeName Mozilla MutationRecord.attributeName documentation>  getAttributeNameUnsafe ::@@ -173,7 +92,7 @@                          MutationRecord -> m result getAttributeNameUnsafe self   = liftIO-      ((fromMaybeJSString <$> (js_getAttributeName (self))) >>=+      ((fromMaybeJSString <$> (js_getAttributeName self)) >>=          maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationRecord.attributeName Mozilla MutationRecord.attributeName documentation> @@ -181,7 +100,7 @@                           (MonadIO m, FromJSString result) => MutationRecord -> m result getAttributeNameUnchecked self   = liftIO-      (fromJust . fromMaybeJSString <$> (js_getAttributeName (self)))+      (fromJust . fromMaybeJSString <$> (js_getAttributeName self))   foreign import javascript unsafe "$1[\"attributeNamespace\"]"         js_getAttributeNamespace ::@@ -192,7 +111,7 @@                       (MonadIO m, FromJSString result) =>                         MutationRecord -> m (Maybe result) getAttributeNamespace self-  = liftIO (fromMaybeJSString <$> (js_getAttributeNamespace (self)))+  = liftIO (fromMaybeJSString <$> (js_getAttributeNamespace self))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationRecord.attributeNamespace Mozilla MutationRecord.attributeNamespace documentation>  getAttributeNamespaceUnsafe ::@@ -200,7 +119,7 @@                               MutationRecord -> m result getAttributeNamespaceUnsafe self   = liftIO-      ((fromMaybeJSString <$> (js_getAttributeNamespace (self))) >>=+      ((fromMaybeJSString <$> (js_getAttributeNamespace self)) >>=          maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationRecord.attributeNamespace Mozilla MutationRecord.attributeNamespace documentation> @@ -208,8 +127,7 @@                                (MonadIO m, FromJSString result) => MutationRecord -> m result getAttributeNamespaceUnchecked self   = liftIO-      (fromJust . fromMaybeJSString <$>-         (js_getAttributeNamespace (self)))+      (fromJust . fromMaybeJSString <$> (js_getAttributeNamespace self))   foreign import javascript unsafe "$1[\"oldValue\"]" js_getOldValue         :: MutationRecord -> IO (Nullable JSString)@@ -219,7 +137,7 @@             (MonadIO m, FromJSString result) =>               MutationRecord -> m (Maybe result) getOldValue self-  = liftIO (fromMaybeJSString <$> (js_getOldValue (self)))+  = liftIO (fromMaybeJSString <$> (js_getOldValue self))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationRecord.oldValue Mozilla MutationRecord.oldValue documentation>  getOldValueUnsafe ::@@ -227,11 +145,11 @@                     MutationRecord -> m result getOldValueUnsafe self   = liftIO-      ((fromMaybeJSString <$> (js_getOldValue (self))) >>=+      ((fromMaybeJSString <$> (js_getOldValue self)) >>=          maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationRecord.oldValue Mozilla MutationRecord.oldValue documentation>  getOldValueUnchecked ::                      (MonadIO m, FromJSString result) => MutationRecord -> m result getOldValueUnchecked self-  = liftIO (fromJust . fromMaybeJSString <$> (js_getOldValue (self)))+  = liftIO (fromJust . fromMaybeJSString <$> (js_getOldValue self))
src/GHCJS/DOM/JSFFI/Generated/NamedNodeMap.hs view
@@ -4,24 +4,22 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.NamedNodeMap-       (js_getNamedItem, getNamedItem, getNamedItem_, getNamedItemUnsafe,-        getNamedItemUnchecked, js_setNamedItem, setNamedItem,-        setNamedItem_, setNamedItemUnsafe, setNamedItemUnchecked,-        js_removeNamedItem, removeNamedItem, removeNamedItem_,-        removeNamedItemUnsafe, removeNamedItemUnchecked, js_item, item,-        item_, itemUnsafe, itemUnchecked, js_getNamedItemNS,-        getNamedItemNS, getNamedItemNS_, getNamedItemNSUnsafe,-        getNamedItemNSUnchecked, js_setNamedItemNS, setNamedItemNS,+       (js_item, item, item_, itemUnsafe, itemUnchecked, js_getNamedItem,+        getNamedItem, getNamedItem_, getNamedItemUnsafe,+        getNamedItemUnchecked, js_getNamedItemNS, getNamedItemNS,+        getNamedItemNS_, getNamedItemNSUnsafe, getNamedItemNSUnchecked,+        js_setNamedItem, setNamedItem, setNamedItem_, setNamedItemUnsafe,+        setNamedItemUnchecked, js_setNamedItemNS, setNamedItemNS,         setNamedItemNS_, setNamedItemNSUnsafe, setNamedItemNSUnchecked,+        js_removeNamedItem, removeNamedItem, removeNamedItem_,         js_removeNamedItemNS, removeNamedItemNS, removeNamedItemNS_,-        removeNamedItemNSUnsafe, removeNamedItemNSUnchecked, js_getLength,-        getLength, NamedNodeMap(..), gTypeNamedNodeMap)+        js_getLength, getLength, NamedNodeMap(..), gTypeNamedNodeMap)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -30,157 +28,82 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums  -foreign import javascript unsafe "$1[\"getNamedItem\"]($2)"-        js_getNamedItem :: NamedNodeMap -> JSString -> IO (Nullable Node)+foreign import javascript unsafe "$1[$2]" js_item ::+        NamedNodeMap -> Word -> IO (Nullable Attr) +-- | <https://developer.mozilla.org/en-US/docs/Web/API/NamedNodeMap.item Mozilla NamedNodeMap.item documentation> +item :: (MonadIO m) => NamedNodeMap -> Word -> m (Maybe Attr)+item self index = liftIO (nullableToMaybe <$> (js_item self index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NamedNodeMap.item Mozilla NamedNodeMap.item documentation> +item_ :: (MonadIO m) => NamedNodeMap -> Word -> m ()+item_ self index = liftIO (void (js_item self index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NamedNodeMap.item Mozilla NamedNodeMap.item documentation> +itemUnsafe ::+           (MonadIO m, HasCallStack) => NamedNodeMap -> Word -> m Attr+itemUnsafe self index+  = liftIO+      ((nullableToMaybe <$> (js_item self index)) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NamedNodeMap.item Mozilla NamedNodeMap.item documentation> +itemUnchecked :: (MonadIO m) => NamedNodeMap -> Word -> m Attr+itemUnchecked self index+  = liftIO (fromJust . nullableToMaybe <$> (js_item self index))+ +foreign import javascript unsafe "$1[$2]" js_getNamedItem ::+        NamedNodeMap -> JSString -> IO (Nullable Attr)+ -- | <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)+               NamedNodeMap -> name -> m (Maybe Attr) getNamedItem self name   = liftIO-      (nullableToMaybe <$> (js_getNamedItem (self) (toJSString name)))+      (nullableToMaybe <$> (js_getNamedItem self (toJSString name)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/NamedNodeMap.getNamedItem Mozilla NamedNodeMap.getNamedItem documentation>  getNamedItem_ ::               (MonadIO m, ToJSString name) => NamedNodeMap -> name -> m () getNamedItem_ self name-  = liftIO (void (js_getNamedItem (self) (toJSString name)))+  = liftIO (void (js_getNamedItem self (toJSString name)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/NamedNodeMap.getNamedItem Mozilla NamedNodeMap.getNamedItem documentation>  getNamedItemUnsafe ::                    (MonadIO m, ToJSString name, HasCallStack) =>-                     NamedNodeMap -> name -> m Node+                     NamedNodeMap -> name -> m Attr getNamedItemUnsafe self name   = liftIO-      ((nullableToMaybe <$> (js_getNamedItem (self) (toJSString name)))-         >>= maybe (Prelude.error "Nothing to return") return)+      ((nullableToMaybe <$> (js_getNamedItem self (toJSString name))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/NamedNodeMap.getNamedItem Mozilla NamedNodeMap.getNamedItem documentation>  getNamedItemUnchecked ::-                      (MonadIO m, ToJSString name) => NamedNodeMap -> name -> m Node+                      (MonadIO m, ToJSString name) => NamedNodeMap -> name -> m Attr getNamedItemUnchecked self name   = liftIO       (fromJust . 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))))---- | <https://developer.mozilla.org/en-US/docs/Web/API/NamedNodeMap.setNamedItem Mozilla NamedNodeMap.setNamedItem documentation> -setNamedItem_ ::-              (MonadIO m, IsNode node) => NamedNodeMap -> Maybe node -> m ()-setNamedItem_ self node-  = liftIO-      (void-         (js_setNamedItem (self) (maybeToNullable (fmap toNode node))))---- | <https://developer.mozilla.org/en-US/docs/Web/API/NamedNodeMap.setNamedItem Mozilla NamedNodeMap.setNamedItem documentation> -setNamedItemUnsafe ::-                   (MonadIO m, IsNode node, HasCallStack) =>-                     NamedNodeMap -> Maybe node -> m Node-setNamedItemUnsafe self node-  = liftIO-      ((nullableToMaybe <$>-          (js_setNamedItem (self) (maybeToNullable (fmap toNode node))))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/NamedNodeMap.setNamedItem Mozilla NamedNodeMap.setNamedItem documentation> -setNamedItemUnchecked ::-                      (MonadIO m, IsNode node) => NamedNodeMap -> Maybe node -> m Node-setNamedItemUnchecked self node-  = liftIO-      (fromJust . 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/NamedNodeMap.removeNamedItem Mozilla NamedNodeMap.removeNamedItem documentation> -removeNamedItem_ ::-                 (MonadIO m, ToJSString name) => NamedNodeMap -> name -> m ()-removeNamedItem_ self name-  = liftIO (void (js_removeNamedItem (self) (toJSString name)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/NamedNodeMap.removeNamedItem Mozilla NamedNodeMap.removeNamedItem documentation> -removeNamedItemUnsafe ::-                      (MonadIO m, ToJSString name, HasCallStack) =>-                        NamedNodeMap -> name -> m Node-removeNamedItemUnsafe self name-  = liftIO-      ((nullableToMaybe <$>-          (js_removeNamedItem (self) (toJSString name)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/NamedNodeMap.removeNamedItem Mozilla NamedNodeMap.removeNamedItem documentation> -removeNamedItemUnchecked ::-                         (MonadIO m, ToJSString name) => NamedNodeMap -> name -> m Node-removeNamedItemUnchecked self name-  = liftIO-      (fromJust . 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))---- | <https://developer.mozilla.org/en-US/docs/Web/API/NamedNodeMap.item Mozilla NamedNodeMap.item documentation> -item_ :: (MonadIO m) => NamedNodeMap -> Word -> m ()-item_ self index = liftIO (void (js_item (self) index))---- | <https://developer.mozilla.org/en-US/docs/Web/API/NamedNodeMap.item Mozilla NamedNodeMap.item documentation> -itemUnsafe ::-           (MonadIO m, HasCallStack) => NamedNodeMap -> Word -> m Node-itemUnsafe self index-  = liftIO-      ((nullableToMaybe <$> (js_item (self) index)) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/NamedNodeMap.item Mozilla NamedNodeMap.item documentation> -itemUnchecked :: (MonadIO m) => NamedNodeMap -> Word -> m Node-itemUnchecked self index-  = liftIO (fromJust . nullableToMaybe <$> (js_item (self) index))+         (js_getNamedItem self (toJSString name)))   foreign import javascript unsafe "$1[\"getNamedItemNS\"]($2, $3)"         js_getNamedItemNS ::-        NamedNodeMap -> Nullable JSString -> JSString -> IO (Nullable Node)+        NamedNodeMap -> Optional JSString -> JSString -> IO (Nullable Attr)  -- | <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)+                 NamedNodeMap -> Maybe namespaceURI -> localName -> m (Maybe Attr) getNamedItemNS self namespaceURI localName   = liftIO       (nullableToMaybe <$>-         (js_getNamedItemNS (self) (toMaybeJSString namespaceURI)+         (js_getNamedItemNS self (toOptionalJSString namespaceURI)             (toJSString localName)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/NamedNodeMap.getNamedItemNS Mozilla NamedNodeMap.getNamedItemNS documentation> @@ -190,83 +113,115 @@ getNamedItemNS_ self namespaceURI localName   = liftIO       (void-         (js_getNamedItemNS (self) (toMaybeJSString namespaceURI)+         (js_getNamedItemNS self (toOptionalJSString namespaceURI)             (toJSString localName)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/NamedNodeMap.getNamedItemNS Mozilla NamedNodeMap.getNamedItemNS documentation>  getNamedItemNSUnsafe ::                      (MonadIO m, ToJSString namespaceURI, ToJSString localName,                       HasCallStack) =>-                       NamedNodeMap -> Maybe namespaceURI -> localName -> m Node+                       NamedNodeMap -> Maybe namespaceURI -> localName -> m Attr getNamedItemNSUnsafe self namespaceURI localName   = liftIO       ((nullableToMaybe <$>-          (js_getNamedItemNS (self) (toMaybeJSString namespaceURI)+          (js_getNamedItemNS self (toOptionalJSString namespaceURI)              (toJSString localName)))          >>= maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/NamedNodeMap.getNamedItemNS Mozilla NamedNodeMap.getNamedItemNS documentation>  getNamedItemNSUnchecked ::                         (MonadIO m, ToJSString namespaceURI, ToJSString localName) =>-                          NamedNodeMap -> Maybe namespaceURI -> localName -> m Node+                          NamedNodeMap -> Maybe namespaceURI -> localName -> m Attr getNamedItemNSUnchecked self namespaceURI localName   = liftIO       (fromJust . nullableToMaybe <$>-         (js_getNamedItemNS (self) (toMaybeJSString namespaceURI)+         (js_getNamedItemNS self (toOptionalJSString namespaceURI)             (toJSString localName)))  +foreign import javascript unsafe "$1[\"setNamedItem\"]($2)"+        js_setNamedItem :: NamedNodeMap -> Attr -> IO (Nullable Attr)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NamedNodeMap.setNamedItem Mozilla NamedNodeMap.setNamedItem documentation> +setNamedItem ::+             (MonadIO m) => NamedNodeMap -> Attr -> m (Maybe Attr)+setNamedItem self attr+  = liftIO (nullableToMaybe <$> (js_setNamedItem self attr))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NamedNodeMap.setNamedItem Mozilla NamedNodeMap.setNamedItem documentation> +setNamedItem_ :: (MonadIO m) => NamedNodeMap -> Attr -> m ()+setNamedItem_ self attr = liftIO (void (js_setNamedItem self attr))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NamedNodeMap.setNamedItem Mozilla NamedNodeMap.setNamedItem documentation> +setNamedItemUnsafe ::+                   (MonadIO m, HasCallStack) => NamedNodeMap -> Attr -> m Attr+setNamedItemUnsafe self attr+  = liftIO+      ((nullableToMaybe <$> (js_setNamedItem self attr)) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NamedNodeMap.setNamedItem Mozilla NamedNodeMap.setNamedItem documentation> +setNamedItemUnchecked ::+                      (MonadIO m) => NamedNodeMap -> Attr -> m Attr+setNamedItemUnchecked self attr+  = liftIO+      (fromJust . nullableToMaybe <$> (js_setNamedItem self attr))+  foreign import javascript unsafe "$1[\"setNamedItemNS\"]($2)"-        js_setNamedItemNS ::-        NamedNodeMap -> Nullable Node -> IO (Nullable Node)+        js_setNamedItemNS :: NamedNodeMap -> Attr -> IO (Nullable Attr)  -- | <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))))+               (MonadIO m) => NamedNodeMap -> Attr -> m (Maybe Attr)+setNamedItemNS self attr+  = liftIO (nullableToMaybe <$> (js_setNamedItemNS self attr))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/NamedNodeMap.setNamedItemNS Mozilla NamedNodeMap.setNamedItemNS documentation> -setNamedItemNS_ ::-                (MonadIO m, IsNode node) => NamedNodeMap -> Maybe node -> m ()-setNamedItemNS_ self node-  = liftIO-      (void-         (js_setNamedItemNS (self) (maybeToNullable (fmap toNode node))))+setNamedItemNS_ :: (MonadIO m) => NamedNodeMap -> Attr -> m ()+setNamedItemNS_ self attr+  = liftIO (void (js_setNamedItemNS self attr))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/NamedNodeMap.setNamedItemNS Mozilla NamedNodeMap.setNamedItemNS documentation>  setNamedItemNSUnsafe ::-                     (MonadIO m, IsNode node, HasCallStack) =>-                       NamedNodeMap -> Maybe node -> m Node-setNamedItemNSUnsafe self node+                     (MonadIO m, HasCallStack) => NamedNodeMap -> Attr -> m Attr+setNamedItemNSUnsafe self attr   = liftIO-      ((nullableToMaybe <$>-          (js_setNamedItemNS (self) (maybeToNullable (fmap toNode node))))-         >>= maybe (Prelude.error "Nothing to return") return)+      ((nullableToMaybe <$> (js_setNamedItemNS self attr)) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/NamedNodeMap.setNamedItemNS Mozilla NamedNodeMap.setNamedItemNS documentation>  setNamedItemNSUnchecked ::-                        (MonadIO m, IsNode node) => NamedNodeMap -> Maybe node -> m Node-setNamedItemNSUnchecked self node+                        (MonadIO m) => NamedNodeMap -> Attr -> m Attr+setNamedItemNSUnchecked self attr   = liftIO-      (fromJust . nullableToMaybe <$>-         (js_setNamedItemNS (self) (maybeToNullable (fmap toNode node))))+      (fromJust . nullableToMaybe <$> (js_setNamedItemNS self attr))  +foreign import javascript unsafe "$1[\"removeNamedItem\"]($2)"+        js_removeNamedItem :: NamedNodeMap -> JSString -> IO Attr++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NamedNodeMap.removeNamedItem Mozilla NamedNodeMap.removeNamedItem documentation> +removeNamedItem ::+                (MonadIO m, ToJSString name) => NamedNodeMap -> name -> m Attr+removeNamedItem self name+  = liftIO (js_removeNamedItem self (toJSString name))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NamedNodeMap.removeNamedItem Mozilla NamedNodeMap.removeNamedItem documentation> +removeNamedItem_ ::+                 (MonadIO m, ToJSString name) => NamedNodeMap -> name -> m ()+removeNamedItem_ self name+  = liftIO (void (js_removeNamedItem self (toJSString name)))+  foreign import javascript unsafe         "$1[\"removeNamedItemNS\"]($2, $3)" js_removeNamedItemNS ::-        NamedNodeMap -> Nullable JSString -> JSString -> IO (Nullable Node)+        NamedNodeMap -> Optional JSString -> JSString -> IO Attr  -- | <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)+                    NamedNodeMap -> Maybe namespaceURI -> localName -> m Attr removeNamedItemNS self namespaceURI localName   = liftIO-      (nullableToMaybe <$>-         (js_removeNamedItemNS (self) (toMaybeJSString namespaceURI)-            (toJSString localName)))+      (js_removeNamedItemNS self (toOptionalJSString namespaceURI)+         (toJSString localName))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/NamedNodeMap.removeNamedItemNS Mozilla NamedNodeMap.removeNamedItemNS documentation>  removeNamedItemNS_ ::@@ -275,29 +230,7 @@ removeNamedItemNS_ self namespaceURI localName   = liftIO       (void-         (js_removeNamedItemNS (self) (toMaybeJSString namespaceURI)-            (toJSString localName)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/NamedNodeMap.removeNamedItemNS Mozilla NamedNodeMap.removeNamedItemNS documentation> -removeNamedItemNSUnsafe ::-                        (MonadIO m, ToJSString namespaceURI, ToJSString localName,-                         HasCallStack) =>-                          NamedNodeMap -> Maybe namespaceURI -> localName -> m Node-removeNamedItemNSUnsafe self namespaceURI localName-  = liftIO-      ((nullableToMaybe <$>-          (js_removeNamedItemNS (self) (toMaybeJSString namespaceURI)-             (toJSString localName)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/NamedNodeMap.removeNamedItemNS Mozilla NamedNodeMap.removeNamedItemNS documentation> -removeNamedItemNSUnchecked ::-                           (MonadIO m, ToJSString namespaceURI, ToJSString localName) =>-                             NamedNodeMap -> Maybe namespaceURI -> localName -> m Node-removeNamedItemNSUnchecked self namespaceURI localName-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_removeNamedItemNS (self) (toMaybeJSString namespaceURI)+         (js_removeNamedItemNS self (toOptionalJSString namespaceURI)             (toJSString localName)))   foreign import javascript unsafe "$1[\"length\"]" js_getLength ::@@ -305,4 +238,4 @@  -- | <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))+getLength self = liftIO (js_getLength self)
src/GHCJS/DOM/JSFFI/Generated/Navigator.hs view
@@ -4,38 +4,28 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.Navigator-       (js_getGamepads, getGamepads, getGamepads_, js_webkitGetUserMedia,-        webkitGetUserMedia, js_registerProtocolHandler,-        registerProtocolHandler, js_isProtocolHandlerRegistered,-        isProtocolHandlerRegistered, isProtocolHandlerRegistered_,-        js_unregisterProtocolHandler, unregisterProtocolHandler,-        js_vibratePattern, vibratePattern, vibratePattern_, js_vibrate,-        vibrate, vibrate_, js_javaEnabled, javaEnabled, javaEnabled_,-        js_getStorageUpdates, getStorageUpdates, js_getWebkitBattery,-        getWebkitBattery, getWebkitBatteryUnsafe,-        getWebkitBatteryUnchecked, js_getGeolocation, getGeolocation,-        getGeolocationUnsafe, getGeolocationUnchecked,-        js_getWebkitTemporaryStorage, getWebkitTemporaryStorage,-        getWebkitTemporaryStorageUnsafe,-        getWebkitTemporaryStorageUnchecked, js_getWebkitPersistentStorage,-        getWebkitPersistentStorage, getWebkitPersistentStorageUnsafe,-        getWebkitPersistentStorageUnchecked, js_getAppCodeName,-        getAppCodeName, js_getAppName, getAppName, js_getAppVersion,-        getAppVersion, js_getLanguage, getLanguage, js_getUserAgent,-        getUserAgent, js_getPlatform, getPlatform, js_getPlugins,-        getPlugins, getPluginsUnsafe, getPluginsUnchecked, js_getMimeTypes,-        getMimeTypes, getMimeTypesUnsafe, getMimeTypesUnchecked,-        js_getProduct, getProduct, js_getProductSub, getProductSub,-        js_getVendor, getVendor, js_getVendorSub, getVendorSub,-        js_getCookieEnabled, getCookieEnabled, js_getOnLine, getOnLine,-        js_getHardwareConcurrency, getHardwareConcurrency, Navigator(..),+       (js_requestMediaKeySystemAccess, requestMediaKeySystemAccess,+        requestMediaKeySystemAccess_, js_getGamepads, getGamepads,+        getGamepads_, js_getUserMedia, getUserMedia,+        js_registerProtocolHandler, registerProtocolHandler,+        js_isProtocolHandlerRegistered, isProtocolHandlerRegistered,+        isProtocolHandlerRegistered_, js_unregisterProtocolHandler,+        unregisterProtocolHandler, js_vibratePattern, vibratePattern,+        vibratePattern_, js_vibrate, vibrate, vibrate_, js_javaEnabled,+        javaEnabled, javaEnabled_, js_getStorageUpdates, getStorageUpdates,+        js_getGeolocation, getGeolocation, js_getMediaDevices,+        getMediaDevices, js_getWebkitTemporaryStorage,+        getWebkitTemporaryStorage, js_getWebkitPersistentStorage,+        getWebkitPersistentStorage, js_getWebdriver, getWebdriver,+        js_getPlugins, getPlugins, js_getMimeTypes, getMimeTypes,+        js_getCookieEnabled, getCookieEnabled, Navigator(..),         gTypeNavigator)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -44,43 +34,71 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums  +foreign import javascript interruptible+        "$1[\"requestMediaKeySystemAccess\"]($2,\n$3).\nthen($c);"+        js_requestMediaKeySystemAccess ::+        Navigator -> JSString -> JSVal -> IO MediaKeySystemAccess++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.requestMediaKeySystemAccess Mozilla Navigator.requestMediaKeySystemAccess documentation> +requestMediaKeySystemAccess ::+                            (MonadIO m, ToJSString keySystem) =>+                              Navigator ->+                                keySystem ->+                                  [MediaKeySystemConfiguration] -> m MediaKeySystemAccess+requestMediaKeySystemAccess self keySystem supportedConfiguration+  = liftIO+      (toJSVal supportedConfiguration >>=+         \ supportedConfiguration' ->+           js_requestMediaKeySystemAccess self (toJSString keySystem)+             supportedConfiguration')++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.requestMediaKeySystemAccess Mozilla Navigator.requestMediaKeySystemAccess documentation> +requestMediaKeySystemAccess_ ::+                             (MonadIO m, ToJSString keySystem) =>+                               Navigator -> keySystem -> [MediaKeySystemConfiguration] -> m ()+requestMediaKeySystemAccess_ self keySystem supportedConfiguration+  = liftIO+      (void+         (toJSVal supportedConfiguration >>=+            \ supportedConfiguration' ->+              js_requestMediaKeySystemAccess self (toJSString keySystem)+                supportedConfiguration'))+  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 :: (MonadIO m) => Navigator -> m [Gamepad] getGamepads self-  = liftIO ((js_getGamepads (self)) >>= fromJSValUnchecked)+  = liftIO ((js_getGamepads self) >>= fromJSValUnchecked)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.getGamepads Mozilla Navigator.getGamepads documentation>  getGamepads_ :: (MonadIO m) => Navigator -> m ()-getGamepads_ self = liftIO (void (js_getGamepads (self)))+getGamepads_ self = liftIO (void (js_getGamepads self))  -foreign import javascript unsafe-        "$1[\"webkitGetUserMedia\"]($2, $3,\n$4)" js_webkitGetUserMedia ::+foreign import javascript unsafe "$1[\"getUserMedia\"]($2, $3, $4)"+        js_getUserMedia ::         Navigator ->-          Nullable Dictionary ->-            Nullable NavigatorUserMediaSuccessCallback ->-              Nullable NavigatorUserMediaErrorCallback -> IO ()+          MediaStreamConstraints ->+            NavigatorUserMediaSuccessCallback ->+              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+-- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.getUserMedia Mozilla Navigator.getUserMedia documentation> +getUserMedia ::+             (MonadIO m) =>+               Navigator ->+                 MediaStreamConstraints ->+                   NavigatorUserMediaSuccessCallback ->+                     NavigatorUserMediaErrorCallback -> m ()+getUserMedia self constraints successCallback errorCallback   = liftIO-      (js_webkitGetUserMedia (self)-         (maybeToNullable (fmap toDictionary options))-         (maybeToNullable successCallback)-         (maybeToNullable errorCallback))+      (js_getUserMedia self constraints successCallback errorCallback)   foreign import javascript unsafe         "$1[\"registerProtocolHandler\"]($2,\n$3, $4)"@@ -93,7 +111,7 @@                           Navigator -> scheme -> url -> title -> m () registerProtocolHandler self scheme url title   = liftIO-      (js_registerProtocolHandler (self) (toJSString scheme)+      (js_registerProtocolHandler self (toJSString scheme)          (toJSString url)          (toJSString title))  @@ -110,7 +128,7 @@ isProtocolHandlerRegistered self scheme url   = liftIO       (fromJSString <$>-         (js_isProtocolHandlerRegistered (self) (toJSString scheme)+         (js_isProtocolHandlerRegistered self (toJSString scheme)             (toJSString url)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.isProtocolHandlerRegistered Mozilla Navigator.isProtocolHandlerRegistered documentation> @@ -120,7 +138,7 @@ isProtocolHandlerRegistered_ self scheme url   = liftIO       (void-         (js_isProtocolHandlerRegistered (self) (toJSString scheme)+         (js_isProtocolHandlerRegistered self (toJSString scheme)             (toJSString url)))   foreign import javascript unsafe@@ -134,7 +152,7 @@                             Navigator -> scheme -> url -> m () unregisterProtocolHandler self scheme url   = liftIO-      (js_unregisterProtocolHandler (self) (toJSString scheme)+      (js_unregisterProtocolHandler self (toJSString scheme)          (toJSString url))   foreign import javascript unsafe "($1[\"vibrate\"]($2) ? 1 : 0)"@@ -145,7 +163,7 @@ vibratePattern self pattern'   = liftIO       (toJSVal pattern' >>=-         \ pattern'' -> js_vibratePattern (self) pattern'')+         \ pattern'' -> js_vibratePattern self pattern'')  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.vibrate Mozilla Navigator.vibrate documentation>  vibratePattern_ :: (MonadIO m) => Navigator -> [Word] -> m ()@@ -153,286 +171,93 @@   = liftIO       (void          (toJSVal pattern' >>=-            \ pattern'' -> js_vibratePattern (self) 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)+vibrate self time = liftIO (js_vibrate self time)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.vibrate Mozilla Navigator.vibrate documentation>  vibrate_ :: (MonadIO m) => Navigator -> Word -> m ()-vibrate_ self time = liftIO (void (js_vibrate (self) time))+vibrate_ self time = liftIO (void (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))+javaEnabled self = liftIO (js_javaEnabled self)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.javaEnabled Mozilla Navigator.javaEnabled documentation>  javaEnabled_ :: (MonadIO m) => Navigator -> m ()-javaEnabled_ self = liftIO (void (js_javaEnabled (self)))+javaEnabled_ self = liftIO (void (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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.webkitBattery Mozilla Navigator.webkitBattery documentation> -getWebkitBatteryUnsafe ::-                       (MonadIO m, HasCallStack) => Navigator -> m BatteryManager-getWebkitBatteryUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getWebkitBattery (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.webkitBattery Mozilla Navigator.webkitBattery documentation> -getWebkitBatteryUnchecked ::-                          (MonadIO m) => Navigator -> m BatteryManager-getWebkitBatteryUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$> (js_getWebkitBattery (self)))+getStorageUpdates self = liftIO (js_getStorageUpdates 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)))+        js_getGeolocation :: Navigator -> IO Geolocation  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.geolocation Mozilla Navigator.geolocation documentation> -getGeolocationUnsafe ::-                     (MonadIO m, HasCallStack) => Navigator -> m Geolocation-getGeolocationUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getGeolocation (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+getGeolocation :: (MonadIO m) => Navigator -> m Geolocation+getGeolocation self = liftIO (js_getGeolocation self)+ +foreign import javascript unsafe "$1[\"mediaDevices\"]"+        js_getMediaDevices :: Navigator -> IO MediaDevices --- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.geolocation Mozilla Navigator.geolocation documentation> -getGeolocationUnchecked ::-                        (MonadIO m) => Navigator -> m Geolocation-getGeolocationUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$> (js_getGeolocation (self)))+-- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.mediaDevices Mozilla Navigator.mediaDevices documentation> +getMediaDevices :: (MonadIO m) => Navigator -> m MediaDevices+getMediaDevices self = liftIO (js_getMediaDevices self)   foreign import javascript unsafe "$1[\"webkitTemporaryStorage\"]"-        js_getWebkitTemporaryStorage ::-        Navigator -> IO (Nullable StorageQuota)+        js_getWebkitTemporaryStorage :: Navigator -> IO StorageQuota  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.webkitTemporaryStorage Mozilla Navigator.webkitTemporaryStorage documentation>  getWebkitTemporaryStorage ::-                          (MonadIO m) => Navigator -> m (Maybe StorageQuota)+                          (MonadIO m) => Navigator -> m StorageQuota getWebkitTemporaryStorage self-  = liftIO-      (nullableToMaybe <$> (js_getWebkitTemporaryStorage (self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.webkitTemporaryStorage Mozilla Navigator.webkitTemporaryStorage documentation> -getWebkitTemporaryStorageUnsafe ::-                                (MonadIO m, HasCallStack) => Navigator -> m StorageQuota-getWebkitTemporaryStorageUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getWebkitTemporaryStorage (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.webkitTemporaryStorage Mozilla Navigator.webkitTemporaryStorage documentation> -getWebkitTemporaryStorageUnchecked ::-                                   (MonadIO m) => Navigator -> m StorageQuota-getWebkitTemporaryStorageUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_getWebkitTemporaryStorage (self)))+  = liftIO (js_getWebkitTemporaryStorage self)   foreign import javascript unsafe "$1[\"webkitPersistentStorage\"]"-        js_getWebkitPersistentStorage ::-        Navigator -> IO (Nullable StorageQuota)+        js_getWebkitPersistentStorage :: Navigator -> IO StorageQuota  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.webkitPersistentStorage Mozilla Navigator.webkitPersistentStorage documentation>  getWebkitPersistentStorage ::-                           (MonadIO m) => Navigator -> m (Maybe StorageQuota)+                           (MonadIO m) => Navigator -> m StorageQuota getWebkitPersistentStorage self-  = liftIO-      (nullableToMaybe <$> (js_getWebkitPersistentStorage (self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.webkitPersistentStorage Mozilla Navigator.webkitPersistentStorage documentation> -getWebkitPersistentStorageUnsafe ::-                                 (MonadIO m, HasCallStack) => Navigator -> m StorageQuota-getWebkitPersistentStorageUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getWebkitPersistentStorage (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.webkitPersistentStorage Mozilla Navigator.webkitPersistentStorage documentation> -getWebkitPersistentStorageUnchecked ::-                                    (MonadIO m) => Navigator -> m StorageQuota-getWebkitPersistentStorageUnchecked self-  = liftIO-      (fromJust . 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)))+  = liftIO (js_getWebkitPersistentStorage self)  -foreign import javascript unsafe "$1[\"platform\"]" js_getPlatform-        :: Navigator -> IO JSString+foreign import javascript unsafe "($1[\"webdriver\"] ? 1 : 0)"+        js_getWebdriver :: Navigator -> IO Bool --- | <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)))+-- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.webdriver Mozilla Navigator.webdriver documentation> +getWebdriver :: (MonadIO m) => Navigator -> m Bool+getWebdriver self = liftIO (js_getWebdriver 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.plugins Mozilla Navigator.plugins documentation> -getPluginsUnsafe ::-                 (MonadIO m, HasCallStack) => Navigator -> m PluginArray-getPluginsUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getPlugins (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        Navigator -> IO PluginArray  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.plugins Mozilla Navigator.plugins documentation> -getPluginsUnchecked :: (MonadIO m) => Navigator -> m PluginArray-getPluginsUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getPlugins (self)))+getPlugins :: (MonadIO m) => Navigator -> m PluginArray+getPlugins self = liftIO (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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.mimeTypes Mozilla Navigator.mimeTypes documentation> -getMimeTypesUnsafe ::-                   (MonadIO m, HasCallStack) => Navigator -> m MimeTypeArray-getMimeTypesUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getMimeTypes (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        js_getMimeTypes :: Navigator -> IO MimeTypeArray  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.mimeTypes Mozilla Navigator.mimeTypes documentation> -getMimeTypesUnchecked ::-                      (MonadIO m) => Navigator -> m MimeTypeArray-getMimeTypesUnchecked self-  = liftIO (fromJust . 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)))+getMimeTypes :: (MonadIO m) => Navigator -> m MimeTypeArray+getMimeTypes self = liftIO (js_getMimeTypes 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))+getCookieEnabled self = liftIO (js_getCookieEnabled self)
+ src/GHCJS/DOM/JSFFI/Generated/NavigatorConcurrentHardware.hs view
@@ -0,0 +1,40 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+module GHCJS.DOM.JSFFI.Generated.NavigatorConcurrentHardware+       (js_getHardwareConcurrency, getHardwareConcurrency,+        NavigatorConcurrentHardware(..), gTypeNavigatorConcurrentHardware,+        IsNavigatorConcurrentHardware, toNavigatorConcurrentHardware)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error)+import Data.Typeable (Typeable)+import GHCJS.Types (JSVal(..), JSString)+import GHCJS.Foreign (jsNull, jsUndefined)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Control.Monad (void)+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import Data.Maybe (fromJust)+import Data.Traversable (mapM)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"hardwareConcurrency\"]"+        js_getHardwareConcurrency ::+        NavigatorConcurrentHardware -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NavigatorConcurrentHardware.hardwareConcurrency Mozilla NavigatorConcurrentHardware.hardwareConcurrency documentation> +getHardwareConcurrency ::+                       (MonadIO m, IsNavigatorConcurrentHardware self) => self -> m Word64+getHardwareConcurrency self+  = liftIO+      (round <$>+         (js_getHardwareConcurrency (toNavigatorConcurrentHardware self)))
+ src/GHCJS/DOM/JSFFI/Generated/NavigatorID.hs view
@@ -0,0 +1,122 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+module GHCJS.DOM.JSFFI.Generated.NavigatorID+       (js_getAppCodeName, getAppCodeName, js_getAppName, getAppName,+        js_getAppVersion, getAppVersion, js_getPlatform, getPlatform,+        js_getProduct, getProduct, js_getProductSub, getProductSub,+        js_getUserAgent, getUserAgent, js_getVendor, getVendor,+        js_getVendorSub, getVendorSub, NavigatorID(..), gTypeNavigatorID,+        IsNavigatorID, toNavigatorID)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error)+import Data.Typeable (Typeable)+import GHCJS.Types (JSVal(..), JSString)+import GHCJS.Foreign (jsNull, jsUndefined)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Control.Monad (void)+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import Data.Maybe (fromJust)+import Data.Traversable (mapM)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"appCodeName\"]"+        js_getAppCodeName :: NavigatorID -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NavigatorID.appCodeName Mozilla NavigatorID.appCodeName documentation> +getAppCodeName ::+               (MonadIO m, IsNavigatorID self, FromJSString result) =>+                 self -> m result+getAppCodeName self+  = liftIO+      (fromJSString <$> (js_getAppCodeName (toNavigatorID self)))+ +foreign import javascript unsafe "$1[\"appName\"]" js_getAppName ::+        NavigatorID -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NavigatorID.appName Mozilla NavigatorID.appName documentation> +getAppName ::+           (MonadIO m, IsNavigatorID self, FromJSString result) =>+             self -> m result+getAppName self+  = liftIO (fromJSString <$> (js_getAppName (toNavigatorID self)))+ +foreign import javascript unsafe "$1[\"appVersion\"]"+        js_getAppVersion :: NavigatorID -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NavigatorID.appVersion Mozilla NavigatorID.appVersion documentation> +getAppVersion ::+              (MonadIO m, IsNavigatorID self, FromJSString result) =>+                self -> m result+getAppVersion self+  = liftIO (fromJSString <$> (js_getAppVersion (toNavigatorID self)))+ +foreign import javascript unsafe "$1[\"platform\"]" js_getPlatform+        :: NavigatorID -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NavigatorID.platform Mozilla NavigatorID.platform documentation> +getPlatform ::+            (MonadIO m, IsNavigatorID self, FromJSString result) =>+              self -> m result+getPlatform self+  = liftIO (fromJSString <$> (js_getPlatform (toNavigatorID self)))+ +foreign import javascript unsafe "$1[\"product\"]" js_getProduct ::+        NavigatorID -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NavigatorID.product Mozilla NavigatorID.product documentation> +getProduct ::+           (MonadIO m, IsNavigatorID self, FromJSString result) =>+             self -> m result+getProduct self+  = liftIO (fromJSString <$> (js_getProduct (toNavigatorID self)))+ +foreign import javascript unsafe "$1[\"productSub\"]"+        js_getProductSub :: NavigatorID -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NavigatorID.productSub Mozilla NavigatorID.productSub documentation> +getProductSub ::+              (MonadIO m, IsNavigatorID self, FromJSString result) =>+                self -> m result+getProductSub self+  = liftIO (fromJSString <$> (js_getProductSub (toNavigatorID self)))+ +foreign import javascript unsafe "$1[\"userAgent\"]"+        js_getUserAgent :: NavigatorID -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NavigatorID.userAgent Mozilla NavigatorID.userAgent documentation> +getUserAgent ::+             (MonadIO m, IsNavigatorID self, FromJSString result) =>+               self -> m result+getUserAgent self+  = liftIO (fromJSString <$> (js_getUserAgent (toNavigatorID self)))+ +foreign import javascript unsafe "$1[\"vendor\"]" js_getVendor ::+        NavigatorID -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NavigatorID.vendor Mozilla NavigatorID.vendor documentation> +getVendor ::+          (MonadIO m, IsNavigatorID self, FromJSString result) =>+            self -> m result+getVendor self+  = liftIO (fromJSString <$> (js_getVendor (toNavigatorID self)))+ +foreign import javascript unsafe "$1[\"vendorSub\"]"+        js_getVendorSub :: NavigatorID -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NavigatorID.vendorSub Mozilla NavigatorID.vendorSub documentation> +getVendorSub ::+             (MonadIO m, IsNavigatorID self, FromJSString result) =>+               self -> m result+getVendorSub self+  = liftIO (fromJSString <$> (js_getVendorSub (toNavigatorID self)))
+ src/GHCJS/DOM/JSFFI/Generated/NavigatorLanguage.hs view
@@ -0,0 +1,51 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+module GHCJS.DOM.JSFFI.Generated.NavigatorLanguage+       (js_getLanguage, getLanguage, js_getLanguages, getLanguages,+        NavigatorLanguage(..), gTypeNavigatorLanguage, IsNavigatorLanguage,+        toNavigatorLanguage)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error)+import Data.Typeable (Typeable)+import GHCJS.Types (JSVal(..), JSString)+import GHCJS.Foreign (jsNull, jsUndefined)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Control.Monad (void)+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import Data.Maybe (fromJust)+import Data.Traversable (mapM)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"language\"]" js_getLanguage+        :: NavigatorLanguage -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NavigatorLanguage.language Mozilla NavigatorLanguage.language documentation> +getLanguage ::+            (MonadIO m, IsNavigatorLanguage self, FromJSString result) =>+              self -> m result+getLanguage self+  = liftIO+      (fromJSString <$> (js_getLanguage (toNavigatorLanguage self)))+ +foreign import javascript unsafe "$1[\"languages\"]"+        js_getLanguages :: NavigatorLanguage -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NavigatorLanguage.languages Mozilla NavigatorLanguage.languages documentation> +getLanguages ::+             (MonadIO m, IsNavigatorLanguage self, FromJSString result) =>+               self -> m [result]+getLanguages self+  = liftIO+      ((js_getLanguages (toNavigatorLanguage self)) >>=+         fromJSValUnchecked)
+ src/GHCJS/DOM/JSFFI/Generated/NavigatorOnLine.hs view
@@ -0,0 +1,34 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+module GHCJS.DOM.JSFFI.Generated.NavigatorOnLine+       (js_getOnLine, getOnLine, NavigatorOnLine(..),+        gTypeNavigatorOnLine, IsNavigatorOnLine, toNavigatorOnLine)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error)+import Data.Typeable (Typeable)+import GHCJS.Types (JSVal(..), JSString)+import GHCJS.Foreign (jsNull, jsUndefined)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Control.Monad (void)+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import Data.Maybe (fromJust)+import Data.Traversable (mapM)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.JSFFI.Generated.Enums+ +foreign import javascript unsafe "($1[\"onLine\"] ? 1 : 0)"+        js_getOnLine :: NavigatorOnLine -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NavigatorOnLine.onLine Mozilla NavigatorOnLine.onLine documentation> +getOnLine :: (MonadIO m, IsNavigatorOnLine self) => self -> m Bool+getOnLine self = liftIO (js_getOnLine (toNavigatorOnLine self))
src/GHCJS/DOM/JSFFI/Generated/NavigatorUserMediaError.hs view
@@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -20,6 +20,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -33,4 +34,4 @@                   (MonadIO m, FromJSString result) =>                     NavigatorUserMediaError -> m result getConstraintName self-  = liftIO (fromJSString <$> (js_getConstraintName (self)))+  = liftIO (fromJSString <$> (js_getConstraintName self))
src/GHCJS/DOM/JSFFI/Generated/NavigatorUserMediaErrorCallback.hs view
@@ -13,7 +13,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -22,6 +22,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -30,7 +31,7 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/NavigatorUserMediaErrorCallback Mozilla NavigatorUserMediaErrorCallback documentation>  newNavigatorUserMediaErrorCallback ::                                    (MonadIO m) =>-                                     (Maybe NavigatorUserMediaError -> IO ()) ->+                                     (NavigatorUserMediaError -> IO ()) ->                                        m NavigatorUserMediaErrorCallback newNavigatorUserMediaErrorCallback callback   = liftIO@@ -42,7 +43,7 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/NavigatorUserMediaErrorCallback Mozilla NavigatorUserMediaErrorCallback documentation>  newNavigatorUserMediaErrorCallbackSync ::                                        (MonadIO m) =>-                                         (Maybe NavigatorUserMediaError -> IO ()) ->+                                         (NavigatorUserMediaError -> IO ()) ->                                            m NavigatorUserMediaErrorCallback newNavigatorUserMediaErrorCallbackSync callback   = liftIO@@ -54,7 +55,7 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/NavigatorUserMediaErrorCallback Mozilla NavigatorUserMediaErrorCallback documentation>  newNavigatorUserMediaErrorCallbackAsync ::                                         (MonadIO m) =>-                                          (Maybe NavigatorUserMediaError -> IO ()) ->+                                          (NavigatorUserMediaError -> IO ()) ->                                             m NavigatorUserMediaErrorCallback newNavigatorUserMediaErrorCallbackAsync callback   = liftIO
src/GHCJS/DOM/JSFFI/Generated/NavigatorUserMediaSuccessCallback.hs view
@@ -13,7 +13,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -22,6 +22,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -30,8 +31,7 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/NavigatorUserMediaSuccessCallback Mozilla NavigatorUserMediaSuccessCallback documentation>  newNavigatorUserMediaSuccessCallback ::                                      (MonadIO m) =>-                                       (Maybe MediaStream -> IO ()) ->-                                         m NavigatorUserMediaSuccessCallback+                                       (MediaStream -> IO ()) -> m NavigatorUserMediaSuccessCallback newNavigatorUserMediaSuccessCallback callback   = liftIO       (NavigatorUserMediaSuccessCallback <$>@@ -42,7 +42,7 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/NavigatorUserMediaSuccessCallback Mozilla NavigatorUserMediaSuccessCallback documentation>  newNavigatorUserMediaSuccessCallbackSync ::                                          (MonadIO m) =>-                                           (Maybe MediaStream -> IO ()) ->+                                           (MediaStream -> IO ()) ->                                              m NavigatorUserMediaSuccessCallback newNavigatorUserMediaSuccessCallbackSync callback   = liftIO@@ -54,7 +54,7 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/NavigatorUserMediaSuccessCallback Mozilla NavigatorUserMediaSuccessCallback documentation>  newNavigatorUserMediaSuccessCallbackAsync ::                                           (MonadIO m) =>-                                            (Maybe MediaStream -> IO ()) ->+                                            (MediaStream -> IO ()) ->                                               m NavigatorUserMediaSuccessCallback newNavigatorUserMediaSuccessCallbackAsync callback   = liftIO
src/GHCJS/DOM/JSFFI/Generated/Node.hs view
@@ -4,62 +4,54 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.Node-       (js_insertBefore, insertBefore, insertBefore_, insertBeforeUnsafe,-        insertBeforeUnchecked, js_replaceChild, replaceChild,-        replaceChild_, replaceChildUnsafe, replaceChildUnchecked,-        js_removeChild, removeChild, removeChild_, removeChildUnsafe,-        removeChildUnchecked, js_appendChild, appendChild, appendChild_,-        appendChildUnsafe, appendChildUnchecked, js_hasChildNodes,-        hasChildNodes, hasChildNodes_, js_cloneNode, cloneNode, cloneNode_,-        cloneNodeUnsafe, cloneNodeUnchecked, js_normalize, normalize,-        js_isSupported, isSupported, isSupported_, js_isSameNode,+       (js_insertBefore, insertBefore, insertBefore_, js_replaceChild,+        replaceChild, replaceChild_, js_removeChild, removeChild,+        removeChild_, js_appendChild, appendChild, appendChild_,+        js_hasChildNodes, hasChildNodes, hasChildNodes_, js_cloneNode,+        cloneNode, cloneNode_, js_normalize, normalize, js_isSameNode,         isSameNode, isSameNode_, js_isEqualNode, isEqualNode, isEqualNode_,         js_lookupPrefix, lookupPrefix, lookupPrefix_, lookupPrefixUnsafe,-        lookupPrefixUnchecked, js_isDefaultNamespace, isDefaultNamespace,-        isDefaultNamespace_, js_lookupNamespaceURI, lookupNamespaceURI,+        lookupPrefixUnchecked, js_lookupNamespaceURI, lookupNamespaceURI,         lookupNamespaceURI_, lookupNamespaceURIUnsafe,-        lookupNamespaceURIUnchecked, js_compareDocumentPosition,-        compareDocumentPosition, compareDocumentPosition_, js_contains,-        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,+        lookupNamespaceURIUnchecked, js_isDefaultNamespace,+        isDefaultNamespace, isDefaultNamespace_,+        js_compareDocumentPosition, compareDocumentPosition,+        compareDocumentPosition_, js_contains, contains, contains_,+        js_getRootNode, getRootNode, getRootNode_, 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, getNodeNameUnsafe, getNodeNameUnchecked,-        js_setNodeValue, setNodeValue, js_getNodeValue, getNodeValue,-        getNodeValueUnsafe, getNodeValueUnchecked, js_getNodeType,-        getNodeType, js_getParentNode, getParentNode, getParentNodeUnsafe,-        getParentNodeUnchecked, js_getChildNodes, getChildNodes,-        getChildNodesUnsafe, getChildNodesUnchecked, js_getFirstChild,-        getFirstChild, getFirstChildUnsafe, getFirstChildUnchecked,-        js_getLastChild, getLastChild, getLastChildUnsafe,-        getLastChildUnchecked, js_getPreviousSibling, getPreviousSibling,+        getNodeName, js_setNodeValue, setNodeValue, js_getNodeValue,+        getNodeValue, getNodeValueUnsafe, getNodeValueUnchecked,+        js_getNodeType, getNodeType, js_getParentNode, getParentNode,+        getParentNodeUnsafe, getParentNodeUnchecked, js_getChildNodes,+        getChildNodes, js_getFirstChild, getFirstChild,+        getFirstChildUnsafe, getFirstChildUnchecked, js_getLastChild,+        getLastChild, getLastChildUnsafe, getLastChildUnchecked,+        js_getPreviousSibling, getPreviousSibling,         getPreviousSiblingUnsafe, getPreviousSiblingUnchecked,         js_getNextSibling, getNextSibling, getNextSiblingUnsafe,         getNextSiblingUnchecked, js_getOwnerDocument, getOwnerDocument,-        getOwnerDocumentUnsafe, getOwnerDocumentUnchecked,-        js_getNamespaceURI, getNamespaceURI, getNamespaceURIUnsafe,-        getNamespaceURIUnchecked, js_setPrefix, setPrefix, js_getPrefix,-        getPrefix, getPrefixUnsafe, getPrefixUnchecked, js_getLocalName,-        getLocalName, getLocalNameUnsafe, getLocalNameUnchecked,-        js_getBaseURI, getBaseURI, getBaseURIUnsafe, getBaseURIUnchecked,-        js_setTextContent, setTextContent, js_getTextContent,+        getOwnerDocumentUnsafe, getOwnerDocumentUnchecked, js_getBaseURI,+        getBaseURI, js_setTextContent, setTextContent, js_getTextContent,         getTextContent, getTextContentUnsafe, getTextContentUnchecked,-        js_getParentElement, getParentElement, getParentElementUnsafe,+        js_getIsConnected, getIsConnected, js_getParentElement,+        getParentElement, getParentElementUnsafe,         getParentElementUnchecked, Node(..), gTypeNode, IsNode, toNode)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -68,198 +60,88 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums   foreign import javascript unsafe "$1[\"insertBefore\"]($2, $3)"-        js_insertBefore ::-        Node -> Nullable Node -> Nullable Node -> IO (Nullable Node)+        js_insertBefore :: Node -> Node -> Optional Node -> IO 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)+               self -> newChild -> Maybe refChild -> m Node insertBefore self newChild refChild   = liftIO-      (nullableToMaybe <$>-         (js_insertBefore (toNode self)-            (maybeToNullable (fmap toNode newChild))-            (maybeToNullable (fmap toNode refChild))))+      (js_insertBefore (toNode self) (toNode newChild)+         (maybeToOptional (fmap toNode refChild)))  -- | <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 ()+                self -> newChild -> Maybe refChild -> m () insertBefore_ self newChild refChild   = liftIO       (void-         (js_insertBefore (toNode self)-            (maybeToNullable (fmap toNode newChild))-            (maybeToNullable (fmap toNode refChild))))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.insertBefore Mozilla Node.insertBefore documentation> -insertBeforeUnsafe ::-                   (MonadIO m, IsNode self, IsNode newChild, IsNode refChild,-                    HasCallStack) =>-                     self -> Maybe newChild -> Maybe refChild -> m Node-insertBeforeUnsafe self newChild refChild-  = liftIO-      ((nullableToMaybe <$>-          (js_insertBefore (toNode self)-             (maybeToNullable (fmap toNode newChild))-             (maybeToNullable (fmap toNode refChild))))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.insertBefore Mozilla Node.insertBefore documentation> -insertBeforeUnchecked ::-                      (MonadIO m, IsNode self, IsNode newChild, IsNode refChild) =>-                        self -> Maybe newChild -> Maybe refChild -> m Node-insertBeforeUnchecked self newChild refChild-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_insertBefore (toNode self)-            (maybeToNullable (fmap toNode newChild))-            (maybeToNullable (fmap toNode refChild))))+         (js_insertBefore (toNode self) (toNode newChild)+            (maybeToOptional (fmap toNode refChild))))   foreign import javascript unsafe "$1[\"replaceChild\"]($2, $3)"-        js_replaceChild ::-        Node -> Nullable Node -> Nullable Node -> IO (Nullable Node)+        js_replaceChild :: Node -> Node -> Node -> IO 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)+               self -> newChild -> oldChild -> m Node replaceChild self newChild oldChild   = liftIO-      (nullableToMaybe <$>-         (js_replaceChild (toNode self)-            (maybeToNullable (fmap toNode newChild))-            (maybeToNullable (fmap toNode oldChild))))+      (js_replaceChild (toNode self) (toNode newChild) (toNode oldChild))  -- | <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 ()+                self -> newChild -> oldChild -> m () replaceChild_ self newChild oldChild   = liftIO       (void-         (js_replaceChild (toNode self)-            (maybeToNullable (fmap toNode newChild))-            (maybeToNullable (fmap toNode oldChild))))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.replaceChild Mozilla Node.replaceChild documentation> -replaceChildUnsafe ::-                   (MonadIO m, IsNode self, IsNode newChild, IsNode oldChild,-                    HasCallStack) =>-                     self -> Maybe newChild -> Maybe oldChild -> m Node-replaceChildUnsafe self newChild oldChild-  = liftIO-      ((nullableToMaybe <$>-          (js_replaceChild (toNode self)-             (maybeToNullable (fmap toNode newChild))-             (maybeToNullable (fmap toNode oldChild))))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.replaceChild Mozilla Node.replaceChild documentation> -replaceChildUnchecked ::-                      (MonadIO m, IsNode self, IsNode newChild, IsNode oldChild) =>-                        self -> Maybe newChild -> Maybe oldChild -> m Node-replaceChildUnchecked self newChild oldChild-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_replaceChild (toNode self)-            (maybeToNullable (fmap toNode newChild))-            (maybeToNullable (fmap toNode oldChild))))+         (js_replaceChild (toNode self) (toNode newChild)+            (toNode oldChild)))   foreign import javascript unsafe "$1[\"removeChild\"]($2)"-        js_removeChild :: Node -> Nullable Node -> IO (Nullable Node)+        js_removeChild :: Node -> Node -> IO 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)+              self -> oldChild -> m Node removeChild self oldChild-  = liftIO-      (nullableToMaybe <$>-         (js_removeChild (toNode self)-            (maybeToNullable (fmap toNode oldChild))))+  = liftIO (js_removeChild (toNode self) (toNode oldChild))  -- | <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 ()+               self -> oldChild -> m () removeChild_ self oldChild-  = liftIO-      (void-         (js_removeChild (toNode self)-            (maybeToNullable (fmap toNode oldChild))))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.removeChild Mozilla Node.removeChild documentation> -removeChildUnsafe ::-                  (MonadIO m, IsNode self, IsNode oldChild, HasCallStack) =>-                    self -> Maybe oldChild -> m Node-removeChildUnsafe self oldChild-  = liftIO-      ((nullableToMaybe <$>-          (js_removeChild (toNode self)-             (maybeToNullable (fmap toNode oldChild))))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.removeChild Mozilla Node.removeChild documentation> -removeChildUnchecked ::-                     (MonadIO m, IsNode self, IsNode oldChild) =>-                       self -> Maybe oldChild -> m Node-removeChildUnchecked self oldChild-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_removeChild (toNode self)-            (maybeToNullable (fmap toNode oldChild))))+  = liftIO (void (js_removeChild (toNode self) (toNode oldChild)))   foreign import javascript unsafe "$1[\"appendChild\"]($2)"-        js_appendChild :: Node -> Nullable Node -> IO (Nullable Node)+        js_appendChild :: Node -> Node -> IO 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)+              self -> newChild -> m Node appendChild self newChild-  = liftIO-      (nullableToMaybe <$>-         (js_appendChild (toNode self)-            (maybeToNullable (fmap toNode newChild))))+  = liftIO (js_appendChild (toNode self) (toNode newChild))  -- | <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 ()+               self -> newChild -> m () appendChild_ self newChild-  = liftIO-      (void-         (js_appendChild (toNode self)-            (maybeToNullable (fmap toNode newChild))))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.appendChild Mozilla Node.appendChild documentation> -appendChildUnsafe ::-                  (MonadIO m, IsNode self, IsNode newChild, HasCallStack) =>-                    self -> Maybe newChild -> m Node-appendChildUnsafe self newChild-  = liftIO-      ((nullableToMaybe <$>-          (js_appendChild (toNode self)-             (maybeToNullable (fmap toNode newChild))))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.appendChild Mozilla Node.appendChild documentation> -appendChildUnchecked ::-                     (MonadIO m, IsNode self, IsNode newChild) =>-                       self -> Maybe newChild -> m Node-appendChildUnchecked self newChild-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_appendChild (toNode self)-            (maybeToNullable (fmap toNode newChild))))+  = liftIO (void (js_appendChild (toNode self) (toNode newChild)))   foreign import javascript unsafe         "($1[\"hasChildNodes\"]() ? 1 : 0)" js_hasChildNodes ::@@ -275,33 +157,16 @@   = liftIO (void (js_hasChildNodes (toNode self)))   foreign import javascript unsafe "$1[\"cloneNode\"]($2)"-        js_cloneNode :: Node -> Bool -> IO (Nullable Node)+        js_cloneNode :: Node -> Bool -> IO 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))+cloneNode :: (MonadIO m, IsNode self) => self -> Bool -> m Node+cloneNode self deep = liftIO (js_cloneNode (toNode self) deep)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.cloneNode Mozilla Node.cloneNode documentation>  cloneNode_ :: (MonadIO m, IsNode self) => self -> Bool -> m () cloneNode_ self deep   = liftIO (void (js_cloneNode (toNode self) deep))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.cloneNode Mozilla Node.cloneNode documentation> -cloneNodeUnsafe ::-                (MonadIO m, IsNode self, HasCallStack) => self -> Bool -> m Node-cloneNodeUnsafe self deep-  = liftIO-      ((nullableToMaybe <$> (js_cloneNode (toNode self) deep)) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.cloneNode Mozilla Node.cloneNode documentation> -cloneNodeUnchecked ::-                   (MonadIO m, IsNode self) => self -> Bool -> m Node-cloneNodeUnchecked self deep-  = liftIO-      (fromJust . nullableToMaybe <$> (js_cloneNode (toNode self) deep))   foreign import javascript unsafe "$1[\"normalize\"]()" js_normalize         :: Node -> IO ()@@ -310,31 +175,8 @@ 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))---- | <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 ()-isSupported_ self feature version-  = liftIO-      (void-         (js_isSupported (toNode self) (toJSString feature)-            (toMaybeJSString version)))-  foreign import javascript unsafe "($1[\"isSameNode\"]($2) ? 1 : 0)"-        js_isSameNode :: Node -> Nullable Node -> IO Bool+        js_isSameNode :: Node -> Optional Node -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.isSameNode Mozilla Node.isSameNode documentation>  isSameNode ::@@ -342,7 +184,7 @@              self -> Maybe other -> m Bool isSameNode self other   = liftIO-      (js_isSameNode (toNode self) (maybeToNullable (fmap toNode other)))+      (js_isSameNode (toNode self) (maybeToOptional (fmap toNode other)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.isSameNode Mozilla Node.isSameNode documentation>  isSameNode_ ::@@ -352,11 +194,11 @@   = liftIO       (void          (js_isSameNode (toNode self)-            (maybeToNullable (fmap toNode other))))+            (maybeToOptional (fmap toNode other))))   foreign import javascript unsafe         "($1[\"isEqualNode\"]($2) ? 1 : 0)" js_isEqualNode ::-        Node -> Nullable Node -> IO Bool+        Node -> Optional Node -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.isEqualNode Mozilla Node.isEqualNode documentation>  isEqualNode ::@@ -365,7 +207,7 @@ isEqualNode self other   = liftIO       (js_isEqualNode (toNode self)-         (maybeToNullable (fmap toNode other)))+         (maybeToOptional (fmap toNode other)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.isEqualNode Mozilla Node.isEqualNode documentation>  isEqualNode_ ::@@ -375,11 +217,11 @@   = liftIO       (void          (js_isEqualNode (toNode self)-            (maybeToNullable (fmap toNode other))))+            (maybeToOptional (fmap toNode other))))   foreign import javascript unsafe "$1[\"lookupPrefix\"]($2)"         js_lookupPrefix ::-        Node -> Nullable JSString -> IO (Nullable JSString)+        Node -> Optional JSString -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.lookupPrefix Mozilla Node.lookupPrefix documentation>  lookupPrefix ::@@ -389,7 +231,7 @@ lookupPrefix self namespaceURI   = liftIO       (fromMaybeJSString <$>-         (js_lookupPrefix (toNode self) (toMaybeJSString namespaceURI)))+         (js_lookupPrefix (toNode self) (toOptionalJSString namespaceURI)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.lookupPrefix Mozilla Node.lookupPrefix documentation>  lookupPrefix_ ::@@ -398,7 +240,7 @@ lookupPrefix_ self namespaceURI   = liftIO       (void-         (js_lookupPrefix (toNode self) (toMaybeJSString namespaceURI)))+         (js_lookupPrefix (toNode self) (toOptionalJSString namespaceURI)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.lookupPrefix Mozilla Node.lookupPrefix documentation>  lookupPrefixUnsafe ::@@ -408,7 +250,7 @@ lookupPrefixUnsafe self namespaceURI   = liftIO       ((fromMaybeJSString <$>-          (js_lookupPrefix (toNode self) (toMaybeJSString namespaceURI)))+          (js_lookupPrefix (toNode self) (toOptionalJSString namespaceURI)))          >>= maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.lookupPrefix Mozilla Node.lookupPrefix documentation> @@ -419,34 +261,11 @@ lookupPrefixUnchecked self namespaceURI   = liftIO       (fromJust . 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))---- | <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 ()-isDefaultNamespace_ self namespaceURI-  = liftIO-      (void-         (js_isDefaultNamespace (toNode self)-            (toMaybeJSString namespaceURI)))+         (js_lookupPrefix (toNode self) (toOptionalJSString namespaceURI)))   foreign import javascript unsafe "$1[\"lookupNamespaceURI\"]($2)"         js_lookupNamespaceURI ::-        Node -> Nullable JSString -> IO (Nullable JSString)+        Node -> Optional JSString -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.lookupNamespaceURI Mozilla Node.lookupNamespaceURI documentation>  lookupNamespaceURI ::@@ -455,7 +274,7 @@ lookupNamespaceURI self prefix   = liftIO       (fromMaybeJSString <$>-         (js_lookupNamespaceURI (toNode self) (toMaybeJSString prefix)))+         (js_lookupNamespaceURI (toNode self) (toOptionalJSString prefix)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.lookupNamespaceURI Mozilla Node.lookupNamespaceURI documentation>  lookupNamespaceURI_ ::@@ -464,7 +283,7 @@ lookupNamespaceURI_ self prefix   = liftIO       (void-         (js_lookupNamespaceURI (toNode self) (toMaybeJSString prefix)))+         (js_lookupNamespaceURI (toNode self) (toOptionalJSString prefix)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.lookupNamespaceURI Mozilla Node.lookupNamespaceURI documentation>  lookupNamespaceURIUnsafe ::@@ -474,7 +293,7 @@ lookupNamespaceURIUnsafe self prefix   = liftIO       ((fromMaybeJSString <$>-          (js_lookupNamespaceURI (toNode self) (toMaybeJSString prefix)))+          (js_lookupNamespaceURI (toNode self) (toOptionalJSString prefix)))          >>= maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.lookupNamespaceURI Mozilla Node.lookupNamespaceURI documentation> @@ -484,33 +303,50 @@ lookupNamespaceURIUnchecked self prefix   = liftIO       (fromJust . fromMaybeJSString <$>-         (js_lookupNamespaceURI (toNode self) (toMaybeJSString prefix)))+         (js_lookupNamespaceURI (toNode self) (toOptionalJSString prefix)))   foreign import javascript unsafe+        "($1[\"isDefaultNamespace\"]($2) ? 1 : 0)" js_isDefaultNamespace ::+        Node -> Optional 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)+         (toOptionalJSString namespaceURI))++-- | <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 ()+isDefaultNamespace_ self namespaceURI+  = liftIO+      (void+         (js_isDefaultNamespace (toNode self)+            (toOptionalJSString namespaceURI)))+ +foreign import javascript unsafe         "$1[\"compareDocumentPosition\"]($2)" js_compareDocumentPosition ::-        Node -> Nullable Node -> IO Word+        Node -> 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+                        (MonadIO m, IsNode self, IsNode other) => self -> other -> m Word compareDocumentPosition self other-  = liftIO-      (js_compareDocumentPosition (toNode self)-         (maybeToNullable (fmap toNode other)))+  = liftIO (js_compareDocumentPosition (toNode self) (toNode other))  -- | <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 ()+                         (MonadIO m, IsNode self, IsNode other) => self -> other -> m () compareDocumentPosition_ self other   = liftIO-      (void-         (js_compareDocumentPosition (toNode self)-            (maybeToNullable (fmap toNode other))))+      (void (js_compareDocumentPosition (toNode self) (toNode other)))   foreign import javascript unsafe "($1[\"contains\"]($2) ? 1 : 0)"-        js_contains :: Node -> Nullable Node -> IO Bool+        js_contains :: Node -> Optional Node -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.contains Mozilla Node.contains documentation>  contains ::@@ -518,7 +354,7 @@            self -> Maybe other -> m Bool contains self other   = liftIO-      (js_contains (toNode self) (maybeToNullable (fmap toNode other)))+      (js_contains (toNode self) (maybeToOptional (fmap toNode other)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.contains Mozilla Node.contains documentation>  contains_ ::@@ -527,7 +363,25 @@ contains_ self other   = liftIO       (void-         (js_contains (toNode self) (maybeToNullable (fmap toNode other))))+         (js_contains (toNode self) (maybeToOptional (fmap toNode other))))+ +foreign import javascript unsafe "$1[\"getRootNode\"]($2)"+        js_getRootNode :: Node -> Optional GetRootNodeOptions -> IO Node++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.getRootNode Mozilla Node.getRootNode documentation> +getRootNode ::+            (MonadIO m, IsNode self) =>+              self -> Maybe GetRootNodeOptions -> m Node+getRootNode self options+  = liftIO (js_getRootNode (toNode self) (maybeToOptional options))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.getRootNode Mozilla Node.getRootNode documentation> +getRootNode_ ::+             (MonadIO m, IsNode self) =>+               self -> Maybe GetRootNodeOptions -> m ()+getRootNode_ self options+  = liftIO+      (void (js_getRootNode (toNode self) (maybeToOptional options))) pattern ELEMENT_NODE = 1 pattern ATTRIBUTE_NODE = 2 pattern TEXT_NODE = 3@@ -548,40 +402,23 @@ pattern DOCUMENT_POSITION_IMPLEMENTATION_SPECIFIC = 32   foreign import javascript unsafe "$1[\"nodeName\"]" js_getNodeName-        :: Node -> IO (Nullable JSString)+        :: Node -> IO 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)+            (MonadIO m, IsNode self, FromJSString result) => self -> m result getNodeName self-  = liftIO (fromMaybeJSString <$> (js_getNodeName (toNode self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.nodeName Mozilla Node.nodeName documentation> -getNodeNameUnsafe ::-                  (MonadIO m, IsNode self, HasCallStack, FromJSString result) =>-                    self -> m result-getNodeNameUnsafe self-  = liftIO-      ((fromMaybeJSString <$> (js_getNodeName (toNode self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.nodeName Mozilla Node.nodeName documentation> -getNodeNameUnchecked ::-                     (MonadIO m, IsNode self, FromJSString result) => self -> m result-getNodeNameUnchecked self-  = liftIO-      (fromJust . fromMaybeJSString <$> (js_getNodeName (toNode self)))+  = liftIO (fromJSString <$> (js_getNodeName (toNode self)))   foreign import javascript unsafe "$1[\"nodeValue\"] = $2;"-        js_setNodeValue :: Node -> Nullable JSString -> IO ()+        js_setNodeValue :: Node -> Optional 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))+  = liftIO (js_setNodeValue (toNode self) (toOptionalJSString val))   foreign import javascript unsafe "$1[\"nodeValue\"]"         js_getNodeValue :: Node -> IO (Nullable JSString)@@ -640,28 +477,11 @@       (fromJust . 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.childNodes Mozilla Node.childNodes documentation> -getChildNodesUnsafe ::-                    (MonadIO m, IsNode self, HasCallStack) => self -> m NodeList-getChildNodesUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getChildNodes (toNode self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        js_getChildNodes :: Node -> IO NodeList  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.childNodes Mozilla Node.childNodes documentation> -getChildNodesUnchecked ::-                       (MonadIO m, IsNode self) => self -> m NodeList-getChildNodesUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$> (js_getChildNodes (toNode self)))+getChildNodes :: (MonadIO m, IsNode self) => self -> m NodeList+getChildNodes self = liftIO (js_getChildNodes (toNode self))   foreign import javascript unsafe "$1[\"firstChild\"]"         js_getFirstChild :: Node -> IO (Nullable Node)@@ -783,130 +603,24 @@       (fromJust . 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.namespaceURI Mozilla Node.namespaceURI documentation> -getNamespaceURIUnsafe ::-                      (MonadIO m, IsNode self, HasCallStack, FromJSString result) =>-                        self -> m result-getNamespaceURIUnsafe self-  = liftIO-      ((fromMaybeJSString <$> (js_getNamespaceURI (toNode self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.namespaceURI Mozilla Node.namespaceURI documentation> -getNamespaceURIUnchecked ::-                         (MonadIO m, IsNode self, FromJSString result) => self -> m result-getNamespaceURIUnchecked self-  = liftIO-      (fromJust . 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.prefix Mozilla Node.prefix documentation> -getPrefixUnsafe ::-                (MonadIO m, IsNode self, HasCallStack, FromJSString result) =>-                  self -> m result-getPrefixUnsafe self-  = liftIO-      ((fromMaybeJSString <$> (js_getPrefix (toNode self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.prefix Mozilla Node.prefix documentation> -getPrefixUnchecked ::-                   (MonadIO m, IsNode self, FromJSString result) => self -> m result-getPrefixUnchecked self-  = liftIO-      (fromJust . 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.localName Mozilla Node.localName documentation> -getLocalNameUnsafe ::-                   (MonadIO m, IsNode self, HasCallStack, FromJSString result) =>-                     self -> m result-getLocalNameUnsafe self-  = liftIO-      ((fromMaybeJSString <$> (js_getLocalName (toNode self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.localName Mozilla Node.localName documentation> -getLocalNameUnchecked ::-                      (MonadIO m, IsNode self, FromJSString result) => self -> m result-getLocalNameUnchecked self-  = liftIO-      (fromJust . fromMaybeJSString <$> (js_getLocalName (toNode self)))-  foreign import javascript unsafe "$1[\"baseURI\"]" js_getBaseURI ::-        Node -> IO (Nullable JSString)+        Node -> IO 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)+           (MonadIO m, IsNode self, FromJSString result) => self -> m result getBaseURI self-  = liftIO (fromMaybeJSString <$> (js_getBaseURI (toNode self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.baseURI Mozilla Node.baseURI documentation> -getBaseURIUnsafe ::-                 (MonadIO m, IsNode self, HasCallStack, FromJSString result) =>-                   self -> m result-getBaseURIUnsafe self-  = liftIO-      ((fromMaybeJSString <$> (js_getBaseURI (toNode self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.baseURI Mozilla Node.baseURI documentation> -getBaseURIUnchecked ::-                    (MonadIO m, IsNode self, FromJSString result) => self -> m result-getBaseURIUnchecked self-  = liftIO-      (fromJust . fromMaybeJSString <$> (js_getBaseURI (toNode self)))+  = liftIO (fromJSString <$> (js_getBaseURI (toNode self)))   foreign import javascript unsafe "$1[\"textContent\"] = $2;"-        js_setTextContent :: Node -> Nullable JSString -> IO ()+        js_setTextContent :: Node -> Optional 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))+  = liftIO (js_setTextContent (toNode self) (toOptionalJSString val))   foreign import javascript unsafe "$1[\"textContent\"]"         js_getTextContent :: Node -> IO (Nullable JSString)@@ -934,6 +648,13 @@   = liftIO       (fromJust . fromMaybeJSString <$>          (js_getTextContent (toNode self)))+ +foreign import javascript unsafe "($1[\"isConnected\"] ? 1 : 0)"+        js_getIsConnected :: Node -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.isConnected Mozilla Node.isConnected documentation> +getIsConnected :: (MonadIO m, IsNode self) => self -> m Bool+getIsConnected self = liftIO (js_getIsConnected (toNode self))   foreign import javascript unsafe "$1[\"parentElement\"]"         js_getParentElement :: Node -> IO (Nullable Element)
src/GHCJS/DOM/JSFFI/Generated/NodeFilter.hs view
@@ -4,20 +4,20 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.NodeFilter-       (js_acceptNode, 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(..), gTypeNodeFilter)+       (newNodeFilter, newNodeFilterSync, newNodeFilterAsync,+        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)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -26,26 +26,36 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) 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)))+-- | <https://developer.mozilla.org/en-US/docs/Web/API/NodeFilter Mozilla NodeFilter documentation> +newNodeFilter :: (MonadIO m) => (Node -> IO ()) -> m NodeFilter+newNodeFilter callback+  = liftIO+      (NodeFilter <$>+         syncCallback1 ThrowWouldBlock+           (\ node -> fromJSValUnchecked node >>= \ node' -> callback node')) --- | <https://developer.mozilla.org/en-US/docs/Web/API/NodeFilter.acceptNode Mozilla NodeFilter.acceptNode documentation> -acceptNode_ ::-            (MonadIO m, IsNode n) => NodeFilter -> Maybe n -> m ()-acceptNode_ self n+-- | <https://developer.mozilla.org/en-US/docs/Web/API/NodeFilter Mozilla NodeFilter documentation> +newNodeFilterSync :: (MonadIO m) => (Node -> IO ()) -> m NodeFilter+newNodeFilterSync callback   = liftIO-      (void (js_acceptNode (self) (maybeToNullable (fmap toNode n))))+      (NodeFilter <$>+         syncCallback1 ContinueAsync+           (\ node -> fromJSValUnchecked node >>= \ node' -> callback node'))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NodeFilter Mozilla NodeFilter documentation> +newNodeFilterAsync ::+                   (MonadIO m) => (Node -> IO ()) -> m NodeFilter+newNodeFilterAsync callback+  = liftIO+      (NodeFilter <$>+         asyncCallback1+           (\ node -> fromJSValUnchecked node >>= \ node' -> callback node')) pattern FILTER_ACCEPT = 1 pattern FILTER_REJECT = 2 pattern FILTER_SKIP = 3
src/GHCJS/DOM/JSFFI/Generated/NodeIterator.hs view
@@ -4,22 +4,17 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.NodeIterator-       (js_nextNode, nextNode, nextNode_, nextNodeUnsafe,-        nextNodeUnchecked, js_previousNode, previousNode, previousNode_,-        previousNodeUnsafe, previousNodeUnchecked, js_detach, detach,-        js_getRoot, getRoot, getRootUnsafe, getRootUnchecked,-        js_getWhatToShow, getWhatToShow, js_getFilter, getFilter,-        getFilterUnsafe, getFilterUnchecked, js_getExpandEntityReferences,-        getExpandEntityReferences, js_getReferenceNode, getReferenceNode,-        getReferenceNodeUnsafe, getReferenceNodeUnchecked,-        js_getPointerBeforeReferenceNode, getPointerBeforeReferenceNode,-        NodeIterator(..), gTypeNodeIterator)+       (js_nextNode, nextNode, nextNode_, js_previousNode, previousNode,+        previousNode_, js_detach, detach, js_getRoot, getRoot,+        js_getWhatToShow, getWhatToShow, js_getReferenceNode,+        getReferenceNode, js_getPointerBeforeReferenceNode,+        getPointerBeforeReferenceNode, NodeIterator(..), gTypeNodeIterator)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -28,144 +23,61 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums   foreign import javascript unsafe "$1[\"nextNode\"]()" js_nextNode-        :: NodeIterator -> IO (Nullable Node)+        :: NodeIterator -> IO 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)))+nextNode :: (MonadIO m) => NodeIterator -> m Node+nextNode self = liftIO (js_nextNode self)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/NodeIterator.nextNode Mozilla NodeIterator.nextNode documentation>  nextNode_ :: (MonadIO m) => NodeIterator -> m ()-nextNode_ self = liftIO (void (js_nextNode (self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/NodeIterator.nextNode Mozilla NodeIterator.nextNode documentation> -nextNodeUnsafe ::-               (MonadIO m, HasCallStack) => NodeIterator -> m Node-nextNodeUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_nextNode (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/NodeIterator.nextNode Mozilla NodeIterator.nextNode documentation> -nextNodeUnchecked :: (MonadIO m) => NodeIterator -> m Node-nextNodeUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_nextNode (self)))+nextNode_ self = liftIO (void (js_nextNode self))   foreign import javascript unsafe "$1[\"previousNode\"]()"-        js_previousNode :: NodeIterator -> IO (Nullable Node)+        js_previousNode :: NodeIterator -> IO 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)))+previousNode :: (MonadIO m) => NodeIterator -> m Node+previousNode self = liftIO (js_previousNode self)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/NodeIterator.previousNode Mozilla NodeIterator.previousNode documentation>  previousNode_ :: (MonadIO m) => NodeIterator -> m ()-previousNode_ self = liftIO (void (js_previousNode (self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/NodeIterator.previousNode Mozilla NodeIterator.previousNode documentation> -previousNodeUnsafe ::-                   (MonadIO m, HasCallStack) => NodeIterator -> m Node-previousNodeUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_previousNode (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/NodeIterator.previousNode Mozilla NodeIterator.previousNode documentation> -previousNodeUnchecked :: (MonadIO m) => NodeIterator -> m Node-previousNodeUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_previousNode (self)))+previousNode_ self = liftIO (void (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))+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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/NodeIterator.root Mozilla NodeIterator.root documentation> -getRootUnsafe ::-              (MonadIO m, HasCallStack) => NodeIterator -> m Node-getRootUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getRoot (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        NodeIterator -> IO Node  -- | <https://developer.mozilla.org/en-US/docs/Web/API/NodeIterator.root Mozilla NodeIterator.root documentation> -getRootUnchecked :: (MonadIO m) => NodeIterator -> m Node-getRootUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getRoot (self)))+getRoot :: (MonadIO m) => NodeIterator -> m Node+getRoot self = liftIO (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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/NodeIterator.filter Mozilla NodeIterator.filter documentation> -getFilterUnsafe ::-                (MonadIO m, HasCallStack) => NodeIterator -> m NodeFilter-getFilterUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getFilter (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/NodeIterator.filter Mozilla NodeIterator.filter documentation> -getFilterUnchecked :: (MonadIO m) => NodeIterator -> m NodeFilter-getFilterUnchecked self-  = liftIO (fromJust . 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))+getWhatToShow self = liftIO (js_getWhatToShow 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/NodeIterator.referenceNode Mozilla NodeIterator.referenceNode documentation> -getReferenceNodeUnsafe ::-                       (MonadIO m, HasCallStack) => NodeIterator -> m Node-getReferenceNodeUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getReferenceNode (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        js_getReferenceNode :: NodeIterator -> IO Node  -- | <https://developer.mozilla.org/en-US/docs/Web/API/NodeIterator.referenceNode Mozilla NodeIterator.referenceNode documentation> -getReferenceNodeUnchecked :: (MonadIO m) => NodeIterator -> m Node-getReferenceNodeUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$> (js_getReferenceNode (self)))+getReferenceNode :: (MonadIO m) => NodeIterator -> m Node+getReferenceNode self = liftIO (js_getReferenceNode self)   foreign import javascript unsafe         "($1[\"pointerBeforeReferenceNode\"] ? 1 : 0)"@@ -175,4 +87,4 @@ getPointerBeforeReferenceNode ::                               (MonadIO m) => NodeIterator -> m Bool getPointerBeforeReferenceNode self-  = liftIO (js_getPointerBeforeReferenceNode (self))+  = liftIO (js_getPointerBeforeReferenceNode self)
src/GHCJS/DOM/JSFFI/Generated/NodeList.hs view
@@ -4,14 +4,14 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.NodeList-       (js_item, item, item_, itemUnsafe, itemUnchecked, js_getLength,-        getLength, NodeList(..), gTypeNodeList, IsNodeList, toNodeList)+       (js_item, item, item_, js_getLength, getLength, NodeList(..),+        gTypeNodeList, IsNodeList, toNodeList)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -20,39 +20,22 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums  -foreign import javascript unsafe "$1[\"item\"]($2)" js_item ::-        NodeList -> Word -> IO (Nullable Node)+foreign import javascript unsafe "$1[$2]" js_item ::+        NodeList -> Word -> IO 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))+item :: (MonadIO m, IsNodeList self) => self -> Word -> m Node+item self index = liftIO (js_item (toNodeList self) index)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/NodeList.item Mozilla NodeList.item documentation>  item_ :: (MonadIO m, IsNodeList self) => self -> Word -> m () item_ self index = liftIO (void (js_item (toNodeList self) index))---- | <https://developer.mozilla.org/en-US/docs/Web/API/NodeList.item Mozilla NodeList.item documentation> -itemUnsafe ::-           (MonadIO m, IsNodeList self, HasCallStack) =>-             self -> Word -> m Node-itemUnsafe self index-  = liftIO-      ((nullableToMaybe <$> (js_item (toNodeList self) index)) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/NodeList.item Mozilla NodeList.item documentation> -itemUnchecked ::-              (MonadIO m, IsNodeList self) => self -> Word -> m Node-itemUnchecked self index-  = liftIO-      (fromJust . nullableToMaybe <$> (js_item (toNodeList self) index))   foreign import javascript unsafe "$1[\"length\"]" js_getLength ::         NodeList -> IO Word
+ src/GHCJS/DOM/JSFFI/Generated/NonDocumentTypeChildNode.hs view
@@ -0,0 +1,50 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+module GHCJS.DOM.JSFFI.Generated.NonDocumentTypeChildNode+       (js_getPreviousElementSibling, getPreviousElementSibling,+        js_getNextElementSibling, getNextElementSibling,+        NonDocumentTypeChildNode(..), gTypeNonDocumentTypeChildNode,+        IsNonDocumentTypeChildNode, toNonDocumentTypeChildNode)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error)+import Data.Typeable (Typeable)+import GHCJS.Types (JSVal(..), JSString)+import GHCJS.Foreign (jsNull, jsUndefined)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Control.Monad (void)+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import Data.Maybe (fromJust)+import Data.Traversable (mapM)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"previousElementSibling\"]"+        js_getPreviousElementSibling ::+        NonDocumentTypeChildNode -> IO Element++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NonDocumentTypeChildNode.previousElementSibling Mozilla NonDocumentTypeChildNode.previousElementSibling documentation> +getPreviousElementSibling ::+                          (MonadIO m, IsNonDocumentTypeChildNode self) => self -> m Element+getPreviousElementSibling self+  = liftIO+      (js_getPreviousElementSibling (toNonDocumentTypeChildNode self))+ +foreign import javascript unsafe "$1[\"nextElementSibling\"]"+        js_getNextElementSibling :: NonDocumentTypeChildNode -> IO Element++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NonDocumentTypeChildNode.nextElementSibling Mozilla NonDocumentTypeChildNode.nextElementSibling documentation> +getNextElementSibling ::+                      (MonadIO m, IsNonDocumentTypeChildNode self) => self -> m Element+getNextElementSibling self+  = liftIO+      (js_getNextElementSibling (toNonDocumentTypeChildNode self))
+ src/GHCJS/DOM/JSFFI/Generated/NonElementParentNode.hs view
@@ -0,0 +1,75 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+module GHCJS.DOM.JSFFI.Generated.NonElementParentNode+       (js_getElementById, getElementById, getElementById_,+        getElementByIdUnsafe, getElementByIdUnchecked,+        NonElementParentNode(..), gTypeNonElementParentNode,+        IsNonElementParentNode, toNonElementParentNode)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error)+import Data.Typeable (Typeable)+import GHCJS.Types (JSVal(..), JSString)+import GHCJS.Foreign (jsNull, jsUndefined)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Control.Monad (void)+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import Data.Maybe (fromJust)+import Data.Traversable (mapM)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"getElementById\"]($2)"+        js_getElementById ::+        NonElementParentNode -> JSString -> IO (Nullable Element)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NonElementParentNode.getElementById Mozilla NonElementParentNode.getElementById documentation> +getElementById ::+               (MonadIO m, IsNonElementParentNode self, ToJSString elementId) =>+                 self -> elementId -> m (Maybe Element)+getElementById self elementId+  = liftIO+      (nullableToMaybe <$>+         (js_getElementById (toNonElementParentNode self)+            (toJSString elementId)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NonElementParentNode.getElementById Mozilla NonElementParentNode.getElementById documentation> +getElementById_ ::+                (MonadIO m, IsNonElementParentNode self, ToJSString elementId) =>+                  self -> elementId -> m ()+getElementById_ self elementId+  = liftIO+      (void+         (js_getElementById (toNonElementParentNode self)+            (toJSString elementId)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NonElementParentNode.getElementById Mozilla NonElementParentNode.getElementById documentation> +getElementByIdUnsafe ::+                     (MonadIO m, IsNonElementParentNode self, ToJSString elementId,+                      HasCallStack) =>+                       self -> elementId -> m Element+getElementByIdUnsafe self elementId+  = liftIO+      ((nullableToMaybe <$>+          (js_getElementById (toNonElementParentNode self)+             (toJSString elementId)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NonElementParentNode.getElementById Mozilla NonElementParentNode.getElementById documentation> +getElementByIdUnchecked ::+                        (MonadIO m, IsNonElementParentNode self, ToJSString elementId) =>+                          self -> elementId -> m Element+getElementByIdUnchecked self elementId+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getElementById (toNonElementParentNode self)+            (toJSString elementId)))
src/GHCJS/DOM/JSFFI/Generated/Notification.hs view
@@ -4,14 +4,18 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.Notification-       (js_show, show, showEvent, error, close, click, Notification(..),-        gTypeNotification)+       (js_show, show, js_cancel, cancel, js_close, close,+        js_requestPermission, requestPermission, js_getPermission,+        getPermission, click, cLoseEvent, display, error, showEvent,+        js_setDir, setDir, js_getDir, getDir, js_setReplaceId,+        setReplaceId, js_getReplaceId, getReplaceId, js_setTag, setTag,+        js_getTag, getTag, Notification(..), gTypeNotification)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -20,6 +24,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -30,20 +35,110 @@  -- | <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))+show self = liftIO (js_show self)+ +foreign import javascript unsafe "$1[\"cancel\"]()" js_cancel ::+        Notification -> IO () --- | <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.cancel Mozilla Notification.cancel documentation> +cancel :: (MonadIO m) => Notification -> m ()+cancel self = liftIO (js_cancel self)+ +foreign import javascript unsafe "$1[\"close\"]()" js_close ::+        Notification -> IO () --- | <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.close Mozilla Notification.close documentation> +close :: (MonadIO m) => Notification -> m ()+close self = liftIO (js_close self)+ +foreign import javascript unsafe "$1[\"requestPermission\"]($2)"+        js_requestPermission ::+        Notification ->+          Optional (NotificationPermissionCallback callback) -> IO () --- | <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.requestPermission Mozilla Notification.requestPermission documentation> +requestPermission ::+                  (MonadIO m, ToJSString callback) =>+                    Notification ->+                      Maybe (NotificationPermissionCallback callback) -> m ()+requestPermission self callback+  = liftIO (js_requestPermission self (maybeToOptional callback))+ +foreign import javascript unsafe "$1[\"permission\"]"+        js_getPermission :: Notification -> IO JSString +-- | <https://developer.mozilla.org/en-US/docs/Web/API/Notification.permission Mozilla Notification.permission documentation> +getPermission ::+              (MonadIO m, FromJSString result) => Notification -> m result+getPermission self+  = liftIO (fromJSString <$> (js_getPermission self))+ -- | <https://developer.mozilla.org/en-US/docs/Web/API/Notification.onclick Mozilla Notification.onclick documentation>  click :: EventName Notification MouseEvent click = unsafeEventName (toJSString "click")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Notification.onclose Mozilla Notification.onclose documentation> +cLoseEvent :: EventName Notification CloseEvent+cLoseEvent = unsafeEventName (toJSString "close")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Notification.ondisplay Mozilla Notification.ondisplay documentation> +display :: EventName Notification ondisplay+display = unsafeEventName (toJSString "display")++-- | <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.onshow Mozilla Notification.onshow documentation> +showEvent :: EventName Notification MouseEvent+showEvent = unsafeEventName (toJSString "show")+ +foreign import javascript unsafe "$1[\"dir\"] = $2;" js_setDir ::+        Notification -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Notification.dir Mozilla Notification.dir documentation> +setDir ::+       (MonadIO m, ToJSString val) => Notification -> val -> m ()+setDir self val = liftIO (js_setDir self (toJSString val))+ +foreign import javascript unsafe "$1[\"dir\"]" js_getDir ::+        Notification -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Notification.dir Mozilla Notification.dir documentation> +getDir ::+       (MonadIO m, FromJSString result) => Notification -> m result+getDir self = liftIO (fromJSString <$> (js_getDir self))+ +foreign import javascript unsafe "$1[\"replaceId\"] = $2;"+        js_setReplaceId :: Notification -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Notification.replaceId Mozilla Notification.replaceId documentation> +setReplaceId ::+             (MonadIO m, ToJSString val) => Notification -> val -> m ()+setReplaceId self val+  = liftIO (js_setReplaceId self (toJSString val))+ +foreign import javascript unsafe "$1[\"replaceId\"]"+        js_getReplaceId :: Notification -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Notification.replaceId Mozilla Notification.replaceId documentation> +getReplaceId ::+             (MonadIO m, FromJSString result) => Notification -> m result+getReplaceId self+  = liftIO (fromJSString <$> (js_getReplaceId self))+ +foreign import javascript unsafe "$1[\"tag\"] = $2;" js_setTag ::+        Notification -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Notification.tag Mozilla Notification.tag documentation> +setTag ::+       (MonadIO m, ToJSString val) => Notification -> val -> m ()+setTag self val = liftIO (js_setTag self (toJSString val))+ +foreign import javascript unsafe "$1[\"tag\"]" js_getTag ::+        Notification -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Notification.tag Mozilla Notification.tag documentation> +getTag ::+       (MonadIO m, FromJSString result) => Notification -> m result+getTag self = liftIO (fromJSString <$> (js_getTag self))
src/GHCJS/DOM/JSFFI/Generated/NotificationCenter.hs view
@@ -5,7 +5,6 @@ {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.NotificationCenter        (js_createNotification, createNotification, createNotification_,-        createNotificationUnsafe, createNotificationUnchecked,         js_checkPermission, checkPermission, checkPermission_,         js_requestPermission, requestPermission, NotificationCenter(..),         gTypeNotificationCenter)@@ -14,7 +13,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -23,6 +22,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -31,20 +31,17 @@ foreign import javascript unsafe         "$1[\"createNotification\"]($2, $3,\n$4)" js_createNotification ::         NotificationCenter ->-          JSString -> JSString -> JSString -> IO (Nullable Notification)+          JSString -> JSString -> JSString -> IO 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)+                     NotificationCenter -> iconUrl -> title -> body -> m Notification createNotification self iconUrl title body   = liftIO-      (nullableToMaybe <$>-         (js_createNotification (self) (toJSString iconUrl)-            (toJSString title)-            (toJSString body)))+      (js_createNotification self (toJSString iconUrl) (toJSString title)+         (toJSString body))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/NotificationCenter.createNotification Mozilla NotificationCenter.createNotification documentation>  createNotification_ ::@@ -54,33 +51,7 @@ createNotification_ self iconUrl title body   = liftIO       (void-         (js_createNotification (self) (toJSString iconUrl)-            (toJSString title)-            (toJSString body)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/NotificationCenter.createNotification Mozilla NotificationCenter.createNotification documentation> -createNotificationUnsafe ::-                         (MonadIO m, ToJSString iconUrl, ToJSString title, ToJSString body,-                          HasCallStack) =>-                           NotificationCenter -> iconUrl -> title -> body -> m Notification-createNotificationUnsafe self iconUrl title body-  = liftIO-      ((nullableToMaybe <$>-          (js_createNotification (self) (toJSString iconUrl)-             (toJSString title)-             (toJSString body)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/NotificationCenter.createNotification Mozilla NotificationCenter.createNotification documentation> -createNotificationUnchecked ::-                            (MonadIO m, ToJSString iconUrl, ToJSString title,-                             ToJSString body) =>-                              NotificationCenter -> iconUrl -> title -> body -> m Notification-createNotificationUnchecked self iconUrl title body-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_createNotification (self) (toJSString iconUrl)-            (toJSString title)+         (js_createNotification self (toJSString iconUrl) (toJSString title)             (toJSString body)))   foreign import javascript unsafe "$1[\"checkPermission\"]()"@@ -88,18 +59,18 @@  -- | <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))+checkPermission self = liftIO (js_checkPermission self)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/NotificationCenter.checkPermission Mozilla NotificationCenter.checkPermission documentation>  checkPermission_ :: (MonadIO m) => NotificationCenter -> m ()-checkPermission_ self = liftIO (void (js_checkPermission (self)))+checkPermission_ self = liftIO (void (js_checkPermission self))   foreign import javascript unsafe "$1[\"requestPermission\"]($2)"         js_requestPermission ::-        NotificationCenter -> Nullable VoidCallback -> IO ()+        NotificationCenter -> Optional 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))+  = liftIO (js_requestPermission self (maybeToOptional callback))
src/GHCJS/DOM/JSFFI/Generated/NotificationPermissionCallback.hs view
@@ -13,7 +13,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -22,6 +22,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)
src/GHCJS/DOM/JSFFI/Generated/OESStandardDerivatives.hs view
@@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -20,6 +20,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)
src/GHCJS/DOM/JSFFI/Generated/OESTextureHalfFloat.hs view
@@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -20,6 +20,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)
src/GHCJS/DOM/JSFFI/Generated/OESVertexArrayObject.hs view
@@ -5,8 +5,7 @@ {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.OESVertexArrayObject        (js_createVertexArrayOES, createVertexArrayOES,-        createVertexArrayOES_, createVertexArrayOESUnsafe,-        createVertexArrayOESUnchecked, js_deleteVertexArrayOES,+        createVertexArrayOES_, js_deleteVertexArrayOES,         deleteVertexArrayOES, js_isVertexArrayOES, isVertexArrayOES,         isVertexArrayOES_, js_bindVertexArrayOES, bindVertexArrayOES,         pattern VERTEX_ARRAY_BINDING_OES, OESVertexArrayObject(..),@@ -16,7 +15,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -25,6 +24,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -32,40 +32,22 @@   foreign import javascript unsafe "$1[\"createVertexArrayOES\"]()"         js_createVertexArrayOES ::-        OESVertexArrayObject -> IO (Nullable WebGLVertexArrayObjectOES)+        OESVertexArrayObject -> IO 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)))+                     (MonadIO m) => OESVertexArrayObject -> m WebGLVertexArrayObjectOES+createVertexArrayOES self = liftIO (js_createVertexArrayOES self)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/OESVertexArrayObject.createVertexArrayOES Mozilla OESVertexArrayObject.createVertexArrayOES documentation>  createVertexArrayOES_ ::                       (MonadIO m) => OESVertexArrayObject -> m () createVertexArrayOES_ self-  = liftIO (void (js_createVertexArrayOES (self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/OESVertexArrayObject.createVertexArrayOES Mozilla OESVertexArrayObject.createVertexArrayOES documentation> -createVertexArrayOESUnsafe ::-                           (MonadIO m, HasCallStack) =>-                             OESVertexArrayObject -> m WebGLVertexArrayObjectOES-createVertexArrayOESUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_createVertexArrayOES (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/OESVertexArrayObject.createVertexArrayOES Mozilla OESVertexArrayObject.createVertexArrayOES documentation> -createVertexArrayOESUnchecked ::-                              (MonadIO m) => OESVertexArrayObject -> m WebGLVertexArrayObjectOES-createVertexArrayOESUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$> (js_createVertexArrayOES (self)))+  = liftIO (void (js_createVertexArrayOES self))   foreign import javascript unsafe "$1[\"deleteVertexArrayOES\"]($2)"         js_deleteVertexArrayOES ::-        OESVertexArrayObject -> Nullable WebGLVertexArrayObjectOES -> IO ()+        OESVertexArrayObject -> Optional WebGLVertexArrayObjectOES -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/OESVertexArrayObject.deleteVertexArrayOES Mozilla OESVertexArrayObject.deleteVertexArrayOES documentation>  deleteVertexArrayOES ::@@ -73,19 +55,19 @@                        OESVertexArrayObject -> Maybe WebGLVertexArrayObjectOES -> m () deleteVertexArrayOES self arrayObject   = liftIO-      (js_deleteVertexArrayOES (self) (maybeToNullable arrayObject))+      (js_deleteVertexArrayOES self (maybeToOptional arrayObject))   foreign import javascript unsafe         "($1[\"isVertexArrayOES\"]($2) ? 1 : 0)" js_isVertexArrayOES ::         OESVertexArrayObject ->-          Nullable WebGLVertexArrayObjectOES -> IO Bool+          Optional 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))+  = liftIO (js_isVertexArrayOES self (maybeToOptional arrayObject))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/OESVertexArrayObject.isVertexArrayOES Mozilla OESVertexArrayObject.isVertexArrayOES documentation>  isVertexArrayOES_ ::@@ -93,17 +75,16 @@                     OESVertexArrayObject -> Maybe WebGLVertexArrayObjectOES -> m () isVertexArrayOES_ self arrayObject   = liftIO-      (void (js_isVertexArrayOES (self) (maybeToNullable arrayObject)))+      (void (js_isVertexArrayOES self (maybeToOptional arrayObject)))   foreign import javascript unsafe "$1[\"bindVertexArrayOES\"]($2)"         js_bindVertexArrayOES ::-        OESVertexArrayObject -> Nullable WebGLVertexArrayObjectOES -> IO ()+        OESVertexArrayObject -> Optional 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))+  = liftIO (js_bindVertexArrayOES self (maybeToOptional arrayObject)) pattern VERTEX_ARRAY_BINDING_OES = 34229
src/GHCJS/DOM/JSFFI/Generated/OfflineAudioCompletionEvent.hs view
@@ -4,15 +4,14 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.OfflineAudioCompletionEvent-       (js_getRenderedBuffer, getRenderedBuffer, getRenderedBufferUnsafe,-        getRenderedBufferUnchecked, OfflineAudioCompletionEvent(..),-        gTypeOfflineAudioCompletionEvent)+       (js_getRenderedBuffer, getRenderedBuffer,+        OfflineAudioCompletionEvent(..), gTypeOfflineAudioCompletionEvent)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -21,6 +20,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -28,26 +28,9 @@   foreign import javascript unsafe "$1[\"renderedBuffer\"]"         js_getRenderedBuffer ::-        OfflineAudioCompletionEvent -> IO (Nullable AudioBuffer)+        OfflineAudioCompletionEvent -> IO 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/OfflineAudioCompletionEvent.renderedBuffer Mozilla OfflineAudioCompletionEvent.renderedBuffer documentation> -getRenderedBufferUnsafe ::-                        (MonadIO m, HasCallStack) =>-                          OfflineAudioCompletionEvent -> m AudioBuffer-getRenderedBufferUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getRenderedBuffer (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/OfflineAudioCompletionEvent.renderedBuffer Mozilla OfflineAudioCompletionEvent.renderedBuffer documentation> -getRenderedBufferUnchecked ::-                           (MonadIO m) => OfflineAudioCompletionEvent -> m AudioBuffer-getRenderedBufferUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$> (js_getRenderedBuffer (self)))+                  (MonadIO m) => OfflineAudioCompletionEvent -> m AudioBuffer+getRenderedBuffer self = liftIO (js_getRenderedBuffer self)
src/GHCJS/DOM/JSFFI/Generated/OfflineAudioContext.hs view
@@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -20,6 +20,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)
src/GHCJS/DOM/JSFFI/Generated/OscillatorNode.hs view
@@ -4,21 +4,19 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} 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, getFrequencyUnsafe,-        getFrequencyUnchecked, js_getDetune, getDetune, getDetuneUnsafe,-        getDetuneUnchecked, ended, OscillatorNode(..), gTypeOscillatorNode)+       (js_start, start, js_stop, stop, js_setPeriodicWave,+        setPeriodicWave, 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(..),+        gTypeOscillatorNode)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -27,123 +25,74 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums   foreign import javascript unsafe "$1[\"start\"]($2)" js_start ::-        OscillatorNode -> Double -> IO ()+        OscillatorNode -> Optional 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)+start :: (MonadIO m) => OscillatorNode -> Maybe Double -> m ()+start self when = liftIO (js_start self (maybeToOptional when))   foreign import javascript unsafe "$1[\"stop\"]($2)" js_stop ::-        OscillatorNode -> Double -> IO ()+        OscillatorNode -> Optional 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)+stop :: (MonadIO m) => OscillatorNode -> Maybe Double -> m ()+stop self when = liftIO (js_stop self (maybeToOptional when))   foreign import javascript unsafe "$1[\"setPeriodicWave\"]($2)"         js_setPeriodicWave ::-        OscillatorNode -> Nullable PeriodicWave -> IO ()+        OscillatorNode -> Optional 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+  = liftIO (js_setPeriodicWave self (maybeToOptional wave)) 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 ()+        OscillatorNode -> JSVal -> 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))+setType :: (MonadIO m) => OscillatorNode -> OscillatorType -> m ()+setType self val = liftIO (js_setType self (pToJSVal val))   foreign import javascript unsafe "$1[\"type\"]" js_getType ::-        OscillatorNode -> IO JSString+        OscillatorNode -> IO JSVal  -- | <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)))+getType :: (MonadIO m) => OscillatorNode -> m OscillatorType+getType self = liftIO ((js_getType self) >>= fromJSValUnchecked)   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))+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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/OscillatorNode.frequency Mozilla OscillatorNode.frequency documentation> -getFrequencyUnsafe ::-                   (MonadIO m, HasCallStack) => OscillatorNode -> m AudioParam-getFrequencyUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getFrequency (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        js_getFrequency :: OscillatorNode -> IO AudioParam  -- | <https://developer.mozilla.org/en-US/docs/Web/API/OscillatorNode.frequency Mozilla OscillatorNode.frequency documentation> -getFrequencyUnchecked ::-                      (MonadIO m) => OscillatorNode -> m AudioParam-getFrequencyUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getFrequency (self)))+getFrequency :: (MonadIO m) => OscillatorNode -> m AudioParam+getFrequency self = liftIO (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.detune Mozilla OscillatorNode.detune documentation> -getDetuneUnsafe ::-                (MonadIO m, HasCallStack) => OscillatorNode -> m AudioParam-getDetuneUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getDetune (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        OscillatorNode -> IO AudioParam  -- | <https://developer.mozilla.org/en-US/docs/Web/API/OscillatorNode.detune Mozilla OscillatorNode.detune documentation> -getDetuneUnchecked :: (MonadIO m) => OscillatorNode -> m AudioParam-getDetuneUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getDetune (self)))+getDetune :: (MonadIO m) => OscillatorNode -> m AudioParam+getDetune self = liftIO (js_getDetune self)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/OscillatorNode.onended Mozilla OscillatorNode.onended documentation>  ended :: EventName OscillatorNode Event
+ src/GHCJS/DOM/JSFFI/Generated/OverconstrainedError.hs view
@@ -0,0 +1,61 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+module GHCJS.DOM.JSFFI.Generated.OverconstrainedError+       (js_newOverconstrainedError, newOverconstrainedError,+        js_getMessage, getMessage, js_getConstraint, getConstraint,+        OverconstrainedError(..), gTypeOverconstrainedError)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error)+import Data.Typeable (Typeable)+import GHCJS.Types (JSVal(..), JSString)+import GHCJS.Foreign (jsNull, jsUndefined)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Control.Monad (void)+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import Data.Maybe (fromJust)+import Data.Traversable (mapM)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.JSFFI.Generated.Enums+ +foreign import javascript unsafe+        "new window[\"OverconstrainedError\"]($1,\n$2)"+        js_newOverconstrainedError ::+        Optional JSString -> Optional JSString -> IO OverconstrainedError++-- | <https://developer.mozilla.org/en-US/docs/Web/API/OverconstrainedError Mozilla OverconstrainedError documentation> +newOverconstrainedError ::+                        (MonadIO m, ToJSString constraint, ToJSString message) =>+                          Maybe constraint -> Maybe message -> m OverconstrainedError+newOverconstrainedError constraint message+  = liftIO+      (js_newOverconstrainedError (toOptionalJSString constraint)+         (toOptionalJSString message))+ +foreign import javascript unsafe "$1[\"message\"]" js_getMessage ::+        OverconstrainedError -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/OverconstrainedError.message Mozilla OverconstrainedError.message documentation> +getMessage ::+           (MonadIO m, FromJSString result) =>+             OverconstrainedError -> m result+getMessage self = liftIO (fromJSString <$> (js_getMessage self))+ +foreign import javascript unsafe "$1[\"constraint\"]"+        js_getConstraint :: OverconstrainedError -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/OverconstrainedError.constraint Mozilla OverconstrainedError.constraint documentation> +getConstraint ::+              (MonadIO m, FromJSString result) =>+                OverconstrainedError -> m result+getConstraint self+  = liftIO (fromJSString <$> (js_getConstraint self))
+ src/GHCJS/DOM/JSFFI/Generated/OverconstrainedErrorEvent.hs view
@@ -0,0 +1,69 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+module GHCJS.DOM.JSFFI.Generated.OverconstrainedErrorEvent+       (js_newOverconstrainedErrorEvent, newOverconstrainedErrorEvent,+        js_getError, getError, getErrorUnsafe, getErrorUnchecked,+        OverconstrainedErrorEvent(..), gTypeOverconstrainedErrorEvent)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error)+import Data.Typeable (Typeable)+import GHCJS.Types (JSVal(..), JSString)+import GHCJS.Foreign (jsNull, jsUndefined)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Control.Monad (void)+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import Data.Maybe (fromJust)+import Data.Traversable (mapM)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.JSFFI.Generated.Enums+ +foreign import javascript unsafe+        "new window[\"OverconstrainedErrorEvent\"]($1,\n$2)"+        js_newOverconstrainedErrorEvent ::+        JSString ->+          Optional OverconstrainedErrorEventInit ->+            IO OverconstrainedErrorEvent++-- | <https://developer.mozilla.org/en-US/docs/Web/API/OverconstrainedErrorEvent Mozilla OverconstrainedErrorEvent documentation> +newOverconstrainedErrorEvent ::+                             (MonadIO m, ToJSString type') =>+                               type' ->+                                 Maybe OverconstrainedErrorEventInit -> m OverconstrainedErrorEvent+newOverconstrainedErrorEvent type' eventInitDict+  = liftIO+      (js_newOverconstrainedErrorEvent (toJSString type')+         (maybeToOptional eventInitDict))+ +foreign import javascript unsafe "$1[\"error\"]" js_getError ::+        OverconstrainedErrorEvent -> IO (Nullable OverconstrainedError)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/OverconstrainedErrorEvent.error Mozilla OverconstrainedErrorEvent.error documentation> +getError ::+         (MonadIO m) =>+           OverconstrainedErrorEvent -> m (Maybe OverconstrainedError)+getError self = liftIO (nullableToMaybe <$> (js_getError self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/OverconstrainedErrorEvent.error Mozilla OverconstrainedErrorEvent.error documentation> +getErrorUnsafe ::+               (MonadIO m, HasCallStack) =>+                 OverconstrainedErrorEvent -> m OverconstrainedError+getErrorUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getError self)) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/OverconstrainedErrorEvent.error Mozilla OverconstrainedErrorEvent.error documentation> +getErrorUnchecked ::+                  (MonadIO m) => OverconstrainedErrorEvent -> m OverconstrainedError+getErrorUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getError self))
src/GHCJS/DOM/JSFFI/Generated/OverflowEvent.hs view
@@ -4,8 +4,9 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.OverflowEvent-       (pattern HORIZONTAL, pattern VERTICAL, pattern BOTH, js_getOrient,-        getOrient, js_getHorizontalOverflow, getHorizontalOverflow,+       (js_newOverflowEvent, newOverflowEvent, pattern HORIZONTAL,+        pattern VERTICAL, pattern BOTH, js_getOrient, getOrient,+        js_getHorizontalOverflow, getHorizontalOverflow,         js_getVerticalOverflow, getVerticalOverflow, OverflowEvent(..),         gTypeOverflowEvent)        where@@ -13,7 +14,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -22,10 +23,24 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+ +foreign import javascript unsafe+        "new window[\"OverflowEvent\"]($1,\n$2)" js_newOverflowEvent ::+        JSString -> Optional OverflowEventInit -> IO OverflowEvent++-- | <https://developer.mozilla.org/en-US/docs/Web/API/OverflowEvent Mozilla OverflowEvent documentation> +newOverflowEvent ::+                 (MonadIO m, ToJSString type') =>+                   type' -> Maybe OverflowEventInit -> m OverflowEvent+newOverflowEvent type' eventInitDict+  = liftIO+      (js_newOverflowEvent (toJSString type')+         (maybeToOptional eventInitDict)) pattern HORIZONTAL = 0 pattern VERTICAL = 1 pattern BOTH = 2@@ -35,7 +50,7 @@  -- | <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))+getOrient self = liftIO (js_getOrient self)   foreign import javascript unsafe         "($1[\"horizontalOverflow\"] ? 1 : 0)" js_getHorizontalOverflow ::@@ -43,8 +58,7 @@  -- | <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))+getHorizontalOverflow self = liftIO (js_getHorizontalOverflow self)   foreign import javascript unsafe         "($1[\"verticalOverflow\"] ? 1 : 0)" js_getVerticalOverflow ::@@ -52,4 +66,4 @@  -- | <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))+getVerticalOverflow self = liftIO (js_getVerticalOverflow self)
src/GHCJS/DOM/JSFFI/Generated/PageTransitionEvent.hs view
@@ -4,14 +4,15 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.PageTransitionEvent-       (js_getPersisted, getPersisted, PageTransitionEvent(..),+       (js_newPageTransitionEvent, newPageTransitionEvent,+        js_getPersisted, getPersisted, PageTransitionEvent(..),         gTypePageTransitionEvent)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -20,14 +21,30 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums  +foreign import javascript unsafe+        "new window[\"PageTransitionEvent\"]($1,\n$2)"+        js_newPageTransitionEvent ::+        JSString ->+          Optional PageTransitionEventInit -> IO PageTransitionEvent++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PageTransitionEvent Mozilla PageTransitionEvent documentation> +newPageTransitionEvent ::+                       (MonadIO m, ToJSString type') =>+                         type' -> Maybe PageTransitionEventInit -> m PageTransitionEvent+newPageTransitionEvent type' eventInitDict+  = liftIO+      (js_newPageTransitionEvent (toJSString type')+         (maybeToOptional eventInitDict))+  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))+getPersisted self = liftIO (js_getPersisted self)
src/GHCJS/DOM/JSFFI/Generated/PannerNode.hs view
@@ -5,27 +5,24 @@ {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} 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(..),-        gTypePannerNode)+        js_setVelocity, setVelocity, 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(..), gTypePannerNode)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -34,6 +31,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -45,7 +43,7 @@ -- | <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)+setPosition self x y z = liftIO (js_setPosition self x y z)   foreign import javascript unsafe         "$1[\"setOrientation\"]($2, $3, $4)" js_setOrientation ::@@ -54,7 +52,7 @@ -- | <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)+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 ()@@ -62,132 +60,123 @@ -- | <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+setVelocity self x y z = liftIO (js_setVelocity self x y z)   foreign import javascript unsafe "$1[\"panningModel\"] = $2;"-        js_setPanningModel :: PannerNode -> JSString -> IO ()+        js_setPanningModel :: PannerNode -> JSVal -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitAudioPannerNode.panningModel Mozilla webkitAudioPannerNode.panningModel documentation>  setPanningModel ::-                (MonadIO m, ToJSString val) => PannerNode -> val -> m ()+                (MonadIO m) => PannerNode -> PanningModelType -> m () setPanningModel self val-  = liftIO (js_setPanningModel (self) (toJSString val))+  = liftIO (js_setPanningModel self (pToJSVal val))   foreign import javascript unsafe "$1[\"panningModel\"]"-        js_getPanningModel :: PannerNode -> IO JSString+        js_getPanningModel :: PannerNode -> IO JSVal  -- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitAudioPannerNode.panningModel Mozilla webkitAudioPannerNode.panningModel documentation> -getPanningModel ::-                (MonadIO m, FromJSString result) => PannerNode -> m result+getPanningModel :: (MonadIO m) => PannerNode -> m PanningModelType getPanningModel self-  = liftIO (fromJSString <$> (js_getPanningModel (self)))+  = liftIO ((js_getPanningModel self) >>= fromJSValUnchecked)   foreign import javascript unsafe "$1[\"distanceModel\"] = $2;"-        js_setDistanceModel :: PannerNode -> JSString -> IO ()+        js_setDistanceModel :: PannerNode -> JSVal -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitAudioPannerNode.distanceModel Mozilla webkitAudioPannerNode.distanceModel documentation>  setDistanceModel ::-                 (MonadIO m, ToJSString val) => PannerNode -> val -> m ()+                 (MonadIO m) => PannerNode -> DistanceModelType -> m () setDistanceModel self val-  = liftIO (js_setDistanceModel (self) (toJSString val))+  = liftIO (js_setDistanceModel self (pToJSVal val))   foreign import javascript unsafe "$1[\"distanceModel\"]"-        js_getDistanceModel :: PannerNode -> IO JSString+        js_getDistanceModel :: PannerNode -> IO JSVal  -- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitAudioPannerNode.distanceModel Mozilla webkitAudioPannerNode.distanceModel documentation>  getDistanceModel ::-                 (MonadIO m, FromJSString result) => PannerNode -> m result+                 (MonadIO m) => PannerNode -> m DistanceModelType getDistanceModel self-  = liftIO (fromJSString <$> (js_getDistanceModel (self)))+  = liftIO ((js_getDistanceModel self) >>= fromJSValUnchecked)   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)+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))+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)+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))+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)+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))+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)+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))+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)+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))+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)+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))+getConeOuterGain self = liftIO (js_getConeOuterGain self)
+ src/GHCJS/DOM/JSFFI/Generated/ParentNode.hs view
@@ -0,0 +1,131 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+module GHCJS.DOM.JSFFI.Generated.ParentNode+       (js_prepend, prepend, js_append, append, js_querySelector,+        querySelector, querySelector_, js_querySelectorAll,+        querySelectorAll, querySelectorAll_, js_getChildren, getChildren,+        js_getFirstElementChild, getFirstElementChild,+        js_getLastElementChild, getLastElementChild,+        js_getChildElementCount, getChildElementCount, ParentNode(..),+        gTypeParentNode, IsParentNode, toParentNode)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error)+import Data.Typeable (Typeable)+import GHCJS.Types (JSVal(..), JSString)+import GHCJS.Foreign (jsNull, jsUndefined)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Control.Monad (void)+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import Data.Maybe (fromJust)+import Data.Traversable (mapM)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"prepend\"]($2)" js_prepend+        :: ParentNode -> JSVal -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ParentNode.prepend Mozilla ParentNode.prepend documentation> +prepend ::+        (MonadIO m, IsParentNode self, IsNodeOrString nodes) =>+          self -> [nodes] -> m ()+prepend self nodes+  = liftIO+      (toJSVal nodes >>=+         \ nodes' -> js_prepend (toParentNode self) nodes')+ +foreign import javascript unsafe "$1[\"append\"]($2)" js_append ::+        ParentNode -> JSVal -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ParentNode.append Mozilla ParentNode.append documentation> +append ::+       (MonadIO m, IsParentNode self, IsNodeOrString nodes) =>+         self -> [nodes] -> m ()+append self nodes+  = liftIO+      (toJSVal nodes >>=+         \ nodes' -> js_append (toParentNode self) nodes')+ +foreign import javascript unsafe "$1[\"querySelector\"]($2)"+        js_querySelector :: ParentNode -> JSString -> IO Element++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ParentNode.querySelector Mozilla ParentNode.querySelector documentation> +querySelector ::+              (MonadIO m, IsParentNode self, ToJSString selectors) =>+                self -> selectors -> m Element+querySelector self selectors+  = liftIO+      (js_querySelector (toParentNode self) (toJSString selectors))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ParentNode.querySelector Mozilla ParentNode.querySelector documentation> +querySelector_ ::+               (MonadIO m, IsParentNode self, ToJSString selectors) =>+                 self -> selectors -> m ()+querySelector_ self selectors+  = liftIO+      (void+         (js_querySelector (toParentNode self) (toJSString selectors)))+ +foreign import javascript unsafe "$1[\"querySelectorAll\"]($2)"+        js_querySelectorAll :: ParentNode -> JSString -> IO NodeList++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ParentNode.querySelectorAll Mozilla ParentNode.querySelectorAll documentation> +querySelectorAll ::+                 (MonadIO m, IsParentNode self, ToJSString selectors) =>+                   self -> selectors -> m NodeList+querySelectorAll self selectors+  = liftIO+      (js_querySelectorAll (toParentNode self) (toJSString selectors))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ParentNode.querySelectorAll Mozilla ParentNode.querySelectorAll documentation> +querySelectorAll_ ::+                  (MonadIO m, IsParentNode self, ToJSString selectors) =>+                    self -> selectors -> m ()+querySelectorAll_ self selectors+  = liftIO+      (void+         (js_querySelectorAll (toParentNode self) (toJSString selectors)))+ +foreign import javascript unsafe "$1[\"children\"]" js_getChildren+        :: ParentNode -> IO HTMLCollection++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ParentNode.children Mozilla ParentNode.children documentation> +getChildren ::+            (MonadIO m, IsParentNode self) => self -> m HTMLCollection+getChildren self = liftIO (js_getChildren (toParentNode self))+ +foreign import javascript unsafe "$1[\"firstElementChild\"]"+        js_getFirstElementChild :: ParentNode -> IO Element++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ParentNode.firstElementChild Mozilla ParentNode.firstElementChild documentation> +getFirstElementChild ::+                     (MonadIO m, IsParentNode self) => self -> m Element+getFirstElementChild self+  = liftIO (js_getFirstElementChild (toParentNode self))+ +foreign import javascript unsafe "$1[\"lastElementChild\"]"+        js_getLastElementChild :: ParentNode -> IO Element++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ParentNode.lastElementChild Mozilla ParentNode.lastElementChild documentation> +getLastElementChild ::+                    (MonadIO m, IsParentNode self) => self -> m Element+getLastElementChild self+  = liftIO (js_getLastElementChild (toParentNode self))+ +foreign import javascript unsafe "$1[\"childElementCount\"]"+        js_getChildElementCount :: ParentNode -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ParentNode.childElementCount Mozilla ParentNode.childElementCount documentation> +getChildElementCount ::+                     (MonadIO m, IsParentNode self) => self -> m Word+getChildElementCount self+  = liftIO (js_getChildElementCount (toParentNode self))
src/GHCJS/DOM/JSFFI/Generated/Path2D.hs view
@@ -5,17 +5,15 @@ {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} 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(..), gTypePath2D)+        js_newPath2D'', newPath2D'', js_addPath, addPath,+        js_addPathWithTransform, addPathWithTransform, Path2D(..),+        gTypePath2D)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -24,6 +22,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -37,11 +36,11 @@ newPath2D = liftIO (js_newPath2D)   foreign import javascript unsafe "new window[\"Path2D\"]($1)"-        js_newPath2D' :: Nullable Path2D -> IO Path2D+        js_newPath2D' :: 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))+newPath2D' :: (MonadIO m) => Path2D -> m Path2D+newPath2D' path = liftIO (js_newPath2D' path)   foreign import javascript unsafe "new window[\"Path2D\"]($1)"         js_newPath2D'' :: JSString -> IO Path2D@@ -50,92 +49,20 @@ 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 ()+foreign import javascript unsafe "$1[\"addPath\"]($2)" js_addPath+        :: Path2D -> Optional Path2D -> 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)+addPath :: (MonadIO m) => Path2D -> Maybe Path2D -> m ()+addPath self path = liftIO (js_addPath self (maybeToOptional path))  -foreign import javascript unsafe-        "$1[\"arc\"]($2, $3, $4, $5, $6,\n$7)" js_arc ::-        Path2D ->-          Float -> Float -> Float -> Float -> Float -> Bool -> IO ()+foreign import javascript unsafe "$1[\"addPath\"]($2, $3)"+        js_addPathWithTransform ::+        Path2D -> Optional Path2D -> SVGMatrix -> 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+-- | <https://developer.mozilla.org/en-US/docs/Web/API/Path2D.addPath Mozilla Path2D.addPath documentation> +addPathWithTransform ::+                     (MonadIO m) => Path2D -> Maybe Path2D -> SVGMatrix -> m ()+addPathWithTransform self path transform   = liftIO-      (js_arc (self) x y radius startAngle endAngle anticlockwise)+      (js_addPathWithTransform self (maybeToOptional path) transform)
src/GHCJS/DOM/JSFFI/Generated/Performance.hs view
@@ -4,28 +4,21 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.Performance-       (js_webkitGetEntries, webkitGetEntries, webkitGetEntries_,-        webkitGetEntriesUnsafe, webkitGetEntriesUnchecked,-        js_webkitGetEntriesByType, webkitGetEntriesByType,-        webkitGetEntriesByType_, webkitGetEntriesByTypeUnsafe,-        webkitGetEntriesByTypeUnchecked, js_webkitGetEntriesByName,-        webkitGetEntriesByName, webkitGetEntriesByName_,-        webkitGetEntriesByNameUnsafe, webkitGetEntriesByNameUnchecked,-        js_webkitClearResourceTimings, webkitClearResourceTimings,-        js_webkitSetResourceTimingBufferSize,-        webkitSetResourceTimingBufferSize, js_webkitMark, webkitMark,-        js_webkitClearMarks, webkitClearMarks, js_webkitMeasure,-        webkitMeasure, js_webkitClearMeasures, webkitClearMeasures, js_now,-        now, now_, js_getNavigation, getNavigation, getNavigationUnsafe,-        getNavigationUnchecked, js_getTiming, getTiming, getTimingUnsafe,-        getTimingUnchecked, webKitResourceTimingBufferFull,-        Performance(..), gTypePerformance)+       (js_now, now, now_, js_getEntries, getEntries, getEntries_,+        js_getEntriesByType, getEntriesByType, getEntriesByType_,+        js_getEntriesByName, getEntriesByName, getEntriesByName_,+        js_clearResourceTimings, clearResourceTimings,+        js_setResourceTimingBufferSize, setResourceTimingBufferSize,+        js_mark, mark, js_clearMarks, clearMarks, js_measure, measure,+        js_clearMeasures, clearMeasures, js_getNavigation, getNavigation,+        js_getTiming, getTiming, resourceTimingBufferFull, Performance(..),+        gTypePerformance)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -34,248 +27,157 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.webkitGetEntries Mozilla Performance.webkitGetEntries documentation> -webkitGetEntries_ :: (MonadIO m) => Performance -> m ()-webkitGetEntries_ self = liftIO (void (js_webkitGetEntries (self)))+foreign import javascript unsafe "$1[\"now\"]()" js_now ::+        Performance -> IO DOMHighResTimeStamp --- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.webkitGetEntries Mozilla Performance.webkitGetEntries documentation> -webkitGetEntriesUnsafe ::-                       (MonadIO m, HasCallStack) => Performance -> m PerformanceEntryList-webkitGetEntriesUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_webkitGetEntries (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+-- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.now Mozilla Performance.now documentation> +now :: (MonadIO m) => Performance -> m DOMHighResTimeStamp+now self = liftIO (js_now self) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.webkitGetEntries Mozilla Performance.webkitGetEntries documentation> -webkitGetEntriesUnchecked ::-                          (MonadIO m) => Performance -> m PerformanceEntryList-webkitGetEntriesUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$> (js_webkitGetEntries (self)))+-- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.now Mozilla Performance.now documentation> +now_ :: (MonadIO m) => Performance -> m ()+now_ self = liftIO (void (js_now self))  -foreign import javascript unsafe-        "$1[\"webkitGetEntriesByType\"]($2)" js_webkitGetEntriesByType ::-        Performance -> JSString -> IO (Nullable PerformanceEntryList)+foreign import javascript unsafe "$1[\"getEntries\"]()"+        js_getEntries :: Performance -> IO JSVal --- | <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)))+-- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.getEntries Mozilla Performance.getEntries documentation> +getEntries :: (MonadIO m) => Performance -> m PerformanceEntryList+getEntries self+  = liftIO ((js_getEntries self) >>= fromJSValUnchecked) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.webkitGetEntriesByType Mozilla Performance.webkitGetEntriesByType documentation> -webkitGetEntriesByType_ ::-                        (MonadIO m, ToJSString entryType) =>-                          Performance -> entryType -> m ()-webkitGetEntriesByType_ self entryType-  = liftIO-      (void (js_webkitGetEntriesByType (self) (toJSString entryType)))+-- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.getEntries Mozilla Performance.getEntries documentation> +getEntries_ :: (MonadIO m) => Performance -> m ()+getEntries_ self = liftIO (void (js_getEntries self))+ +foreign import javascript unsafe "$1[\"getEntriesByType\"]($2)"+        js_getEntriesByType :: Performance -> JSString -> IO JSVal --- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.webkitGetEntriesByType Mozilla Performance.webkitGetEntriesByType documentation> -webkitGetEntriesByTypeUnsafe ::-                             (MonadIO m, ToJSString entryType, HasCallStack) =>-                               Performance -> entryType -> m PerformanceEntryList-webkitGetEntriesByTypeUnsafe self entryType+-- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.getEntriesByType Mozilla Performance.getEntriesByType documentation> +getEntriesByType ::+                 (MonadIO m, ToJSString entryType) =>+                   Performance -> entryType -> m PerformanceEntryList+getEntriesByType self entryType   = liftIO-      ((nullableToMaybe <$>-          (js_webkitGetEntriesByType (self) (toJSString entryType)))-         >>= maybe (Prelude.error "Nothing to return") return)+      ((js_getEntriesByType self (toJSString entryType)) >>=+         fromJSValUnchecked) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.webkitGetEntriesByType Mozilla Performance.webkitGetEntriesByType documentation> -webkitGetEntriesByTypeUnchecked ::-                                (MonadIO m, ToJSString entryType) =>-                                  Performance -> entryType -> m PerformanceEntryList-webkitGetEntriesByTypeUnchecked self entryType-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_webkitGetEntriesByType (self) (toJSString entryType)))+-- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.getEntriesByType Mozilla Performance.getEntriesByType documentation> +getEntriesByType_ ::+                  (MonadIO m, ToJSString entryType) =>+                    Performance -> entryType -> m ()+getEntriesByType_ self entryType+  = liftIO (void (js_getEntriesByType self (toJSString entryType)))  -foreign import javascript unsafe-        "$1[\"webkitGetEntriesByName\"]($2,\n$3)" js_webkitGetEntriesByName-        ::-        Performance ->-          JSString -> JSString -> IO (Nullable PerformanceEntryList)+foreign import javascript unsafe "$1[\"getEntriesByName\"]($2, $3)"+        js_getEntriesByName ::+        Performance -> JSString -> Optional JSString -> IO JSVal --- | <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+-- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.getEntriesByName Mozilla Performance.getEntriesByName documentation> +getEntriesByName ::+                 (MonadIO m, ToJSString name, ToJSString entryType) =>+                   Performance -> name -> Maybe entryType -> m PerformanceEntryList+getEntriesByName self name entryType   = liftIO-      (nullableToMaybe <$>-         (js_webkitGetEntriesByName (self) (toJSString name)-            (toJSString entryType)))+      ((js_getEntriesByName self (toJSString name)+          (toOptionalJSString entryType))+         >>= fromJSValUnchecked) --- | <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 ()-webkitGetEntriesByName_ self name entryType+-- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.getEntriesByName Mozilla Performance.getEntriesByName documentation> +getEntriesByName_ ::+                  (MonadIO m, ToJSString name, ToJSString entryType) =>+                    Performance -> name -> Maybe entryType -> m ()+getEntriesByName_ self name entryType   = liftIO       (void-         (js_webkitGetEntriesByName (self) (toJSString name)-            (toJSString entryType)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.webkitGetEntriesByName Mozilla Performance.webkitGetEntriesByName documentation> -webkitGetEntriesByNameUnsafe ::-                             (MonadIO m, ToJSString name, ToJSString entryType, HasCallStack) =>-                               Performance -> name -> entryType -> m PerformanceEntryList-webkitGetEntriesByNameUnsafe self name entryType-  = liftIO-      ((nullableToMaybe <$>-          (js_webkitGetEntriesByName (self) (toJSString name)-             (toJSString entryType)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.webkitGetEntriesByName Mozilla Performance.webkitGetEntriesByName documentation> -webkitGetEntriesByNameUnchecked ::-                                (MonadIO m, ToJSString name, ToJSString entryType) =>-                                  Performance -> name -> entryType -> m PerformanceEntryList-webkitGetEntriesByNameUnchecked self name entryType-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_webkitGetEntriesByName (self) (toJSString name)-            (toJSString entryType)))+         (js_getEntriesByName self (toJSString name)+            (toOptionalJSString entryType)))  -foreign import javascript unsafe-        "$1[\"webkitClearResourceTimings\"]()"-        js_webkitClearResourceTimings :: Performance -> IO ()+foreign import javascript unsafe "$1[\"clearResourceTimings\"]()"+        js_clearResourceTimings :: 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))+-- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.clearResourceTimings Mozilla Performance.clearResourceTimings documentation> +clearResourceTimings :: (MonadIO m) => Performance -> m ()+clearResourceTimings self = liftIO (js_clearResourceTimings self)   foreign import javascript unsafe-        "$1[\"webkitSetResourceTimingBufferSize\"]($2)"-        js_webkitSetResourceTimingBufferSize ::-        Performance -> Word -> IO ()+        "$1[\"setResourceTimingBufferSize\"]($2)"+        js_setResourceTimingBufferSize :: 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)+-- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.setResourceTimingBufferSize Mozilla Performance.setResourceTimingBufferSize documentation> +setResourceTimingBufferSize ::+                            (MonadIO m) => Performance -> Word -> m ()+setResourceTimingBufferSize self maxSize+  = liftIO (js_setResourceTimingBufferSize self maxSize)  -foreign import javascript unsafe "$1[\"webkitMark\"]($2)"-        js_webkitMark :: Performance -> JSString -> IO ()+foreign import javascript unsafe "$1[\"mark\"]($2)" js_mark ::+        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))+-- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.mark Mozilla Performance.mark documentation> +mark ::+     (MonadIO m, ToJSString markName) => Performance -> markName -> m ()+mark self markName = liftIO (js_mark self (toJSString markName))  -foreign import javascript unsafe "$1[\"webkitClearMarks\"]($2)"-        js_webkitClearMarks :: Performance -> JSString -> IO ()+foreign import javascript unsafe "$1[\"clearMarks\"]($2)"+        js_clearMarks :: Performance -> Optional 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))+-- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.clearMarks Mozilla Performance.clearMarks documentation> +clearMarks ::+           (MonadIO m, ToJSString markName) =>+             Performance -> Maybe markName -> m ()+clearMarks self markName+  = liftIO (js_clearMarks self (toOptionalJSString markName))  -foreign import javascript unsafe-        "$1[\"webkitMeasure\"]($2, $3, $4)" js_webkitMeasure ::-        Performance -> JSString -> JSString -> JSString -> IO ()+foreign import javascript unsafe "$1[\"measure\"]($2, $3, $4)"+        js_measure ::+        Performance ->+          JSString -> Optional JSString -> Optional 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+-- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.measure Mozilla Performance.measure documentation> +measure ::+        (MonadIO m, ToJSString measureName, ToJSString startMark,+         ToJSString endMark) =>+          Performance ->+            measureName -> Maybe startMark -> Maybe endMark -> m ()+measure 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))+      (js_measure self (toJSString measureName)+         (toOptionalJSString startMark)+         (toOptionalJSString endMark))  -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[\"clearMeasures\"]($2)"+        js_clearMeasures :: Performance -> Optional JSString -> IO () --- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.now Mozilla Performance.now documentation> -now_ :: (MonadIO m) => Performance -> m ()-now_ self = liftIO (void (js_now (self)))+-- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.clearMeasures Mozilla Performance.clearMeasures documentation> +clearMeasures ::+              (MonadIO m, ToJSString measureName) =>+                Performance -> Maybe measureName -> m ()+clearMeasures self measureName+  = liftIO (js_clearMeasures self (toOptionalJSString measureName))   foreign import javascript unsafe "$1[\"navigation\"]"-        js_getNavigation ::-        Performance -> IO (Nullable PerformanceNavigation)+        js_getNavigation :: Performance -> IO 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.navigation Mozilla Performance.navigation documentation> -getNavigationUnsafe ::-                    (MonadIO m, HasCallStack) => Performance -> m PerformanceNavigation-getNavigationUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getNavigation (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.navigation Mozilla Performance.navigation documentation> -getNavigationUnchecked ::-                       (MonadIO m) => Performance -> m PerformanceNavigation-getNavigationUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getNavigation (self)))+              (MonadIO m) => Performance -> m PerformanceNavigation+getNavigation self = liftIO (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.timing Mozilla Performance.timing documentation> -getTimingUnsafe ::-                (MonadIO m, HasCallStack) => Performance -> m PerformanceTiming-getTimingUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getTiming (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        Performance -> IO PerformanceTiming  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.timing Mozilla Performance.timing documentation> -getTimingUnchecked ::-                   (MonadIO m) => Performance -> m PerformanceTiming-getTimingUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getTiming (self)))+getTiming :: (MonadIO m) => Performance -> m PerformanceTiming+getTiming self = liftIO (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")+-- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.onresourcetimingbufferfull Mozilla Performance.onresourcetimingbufferfull documentation> +resourceTimingBufferFull ::+                           EventName Performance onresourcetimingbufferfull+resourceTimingBufferFull+  = unsafeEventName (toJSString "resourcetimingbufferfull")
src/GHCJS/DOM/JSFFI/Generated/PerformanceEntry.hs view
@@ -13,7 +13,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -22,6 +22,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -49,19 +50,21 @@       (fromJSString <$> (js_getEntryType (toPerformanceEntry self)))   foreign import javascript unsafe "$1[\"startTime\"]"-        js_getStartTime :: PerformanceEntry -> IO Double+        js_getStartTime :: PerformanceEntry -> IO DOMHighResTimeStamp  -- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceEntry.startTime Mozilla PerformanceEntry.startTime documentation>  getStartTime ::-             (MonadIO m, IsPerformanceEntry self) => self -> m Double+             (MonadIO m, IsPerformanceEntry self) =>+               self -> m DOMHighResTimeStamp getStartTime self   = liftIO (js_getStartTime (toPerformanceEntry self))   foreign import javascript unsafe "$1[\"duration\"]" js_getDuration-        :: PerformanceEntry -> IO Double+        :: PerformanceEntry -> IO DOMHighResTimeStamp  -- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceEntry.duration Mozilla PerformanceEntry.duration documentation>  getDuration ::-            (MonadIO m, IsPerformanceEntry self) => self -> m Double+            (MonadIO m, IsPerformanceEntry self) =>+              self -> m DOMHighResTimeStamp getDuration self   = liftIO (js_getDuration (toPerformanceEntry self))
− src/GHCJS/DOM/JSFFI/Generated/PerformanceEntryList.hs 
@@ -1,62 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility-{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}-module GHCJS.DOM.JSFFI.Generated.PerformanceEntryList-       (js_item, item, item_, itemUnsafe, itemUnchecked, js_getLength,-        getLength, PerformanceEntryList(..), gTypePerformanceEntryList)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)-import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))-import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import 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))---- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceEntryList.item Mozilla PerformanceEntryList.item documentation> -item_ :: (MonadIO m) => PerformanceEntryList -> Word -> m ()-item_ self index = liftIO (void (js_item (self) index))---- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceEntryList.item Mozilla PerformanceEntryList.item documentation> -itemUnsafe ::-           (MonadIO m, HasCallStack) =>-             PerformanceEntryList -> Word -> m PerformanceEntry-itemUnsafe self index-  = liftIO-      ((nullableToMaybe <$> (js_item (self) index)) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceEntryList.item Mozilla PerformanceEntryList.item documentation> -itemUnchecked ::-              (MonadIO m) => PerformanceEntryList -> Word -> m PerformanceEntry-itemUnchecked self index-  = liftIO (fromJust . 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
@@ -13,7 +13,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -22,6 +22,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -36,11 +37,11 @@  -- | <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))+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))+getRedirectCount self = liftIO (js_getRedirectCount self)
+ src/GHCJS/DOM/JSFFI/Generated/PerformanceObserver.hs view
@@ -0,0 +1,54 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+module GHCJS.DOM.JSFFI.Generated.PerformanceObserver+       (js_newPerformanceObserver, newPerformanceObserver, js_observe,+        observe, js_disconnect, disconnect, PerformanceObserver(..),+        gTypePerformanceObserver)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error)+import Data.Typeable (Typeable)+import GHCJS.Types (JSVal(..), JSString)+import GHCJS.Foreign (jsNull, jsUndefined)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Control.Monad (void)+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import Data.Maybe (fromJust)+import Data.Traversable (mapM)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.JSFFI.Generated.Enums+ +foreign import javascript unsafe+        "new window[\"PerformanceObserver\"]($1)" js_newPerformanceObserver+        :: PerformanceObserverCallback -> IO PerformanceObserver++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceObserver Mozilla PerformanceObserver documentation> +newPerformanceObserver ::+                       (MonadIO m) => PerformanceObserverCallback -> m PerformanceObserver+newPerformanceObserver callback+  = liftIO (js_newPerformanceObserver callback)+ +foreign import javascript unsafe "$1[\"observe\"]($2)" js_observe+        :: PerformanceObserver -> PerformanceObserverInit -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceObserver.observe Mozilla PerformanceObserver.observe documentation> +observe ::+        (MonadIO m) =>+          PerformanceObserver -> PerformanceObserverInit -> m ()+observe self options = liftIO (js_observe self options)+ +foreign import javascript unsafe "$1[\"disconnect\"]()"+        js_disconnect :: PerformanceObserver -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceObserver.disconnect Mozilla PerformanceObserver.disconnect documentation> +disconnect :: (MonadIO m) => PerformanceObserver -> m ()+disconnect self = liftIO (js_disconnect self)
+ src/GHCJS/DOM/JSFFI/Generated/PerformanceObserverCallback.hs view
@@ -0,0 +1,73 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+module GHCJS.DOM.JSFFI.Generated.PerformanceObserverCallback+       (newPerformanceObserverCallback,+        newPerformanceObserverCallbackSync,+        newPerformanceObserverCallbackAsync, PerformanceObserverCallback)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error)+import Data.Typeable (Typeable)+import GHCJS.Types (JSVal(..), JSString)+import GHCJS.Foreign (jsNull, jsUndefined)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Control.Monad (void)+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import Data.Maybe (fromJust)+import Data.Traversable (mapM)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.JSFFI.Generated.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceObserverCallback Mozilla PerformanceObserverCallback documentation> +newPerformanceObserverCallback ::+                               (MonadIO m) =>+                                 (PerformanceObserverEntryList -> PerformanceObserver -> IO ()) ->+                                   m PerformanceObserverCallback+newPerformanceObserverCallback callback+  = liftIO+      (PerformanceObserverCallback <$>+         syncCallback2 ThrowWouldBlock+           (\ entries observer ->+              fromJSValUnchecked observer >>=+                \ observer' ->+                  fromJSValUnchecked entries >>= \ entries' -> callback entries'+                    observer'))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceObserverCallback Mozilla PerformanceObserverCallback documentation> +newPerformanceObserverCallbackSync ::+                                   (MonadIO m) =>+                                     (PerformanceObserverEntryList -> PerformanceObserver -> IO ())+                                       -> m PerformanceObserverCallback+newPerformanceObserverCallbackSync callback+  = liftIO+      (PerformanceObserverCallback <$>+         syncCallback2 ContinueAsync+           (\ entries observer ->+              fromJSValUnchecked observer >>=+                \ observer' ->+                  fromJSValUnchecked entries >>= \ entries' -> callback entries'+                    observer'))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceObserverCallback Mozilla PerformanceObserverCallback documentation> +newPerformanceObserverCallbackAsync ::+                                    (MonadIO m) =>+                                      (PerformanceObserverEntryList -> PerformanceObserver -> IO ())+                                        -> m PerformanceObserverCallback+newPerformanceObserverCallbackAsync callback+  = liftIO+      (PerformanceObserverCallback <$>+         asyncCallback2+           (\ entries observer ->+              fromJSValUnchecked observer >>=+                \ observer' ->+                  fromJSValUnchecked entries >>= \ entries' -> callback entries'+                    observer'))
+ src/GHCJS/DOM/JSFFI/Generated/PerformanceObserverEntryList.hs view
@@ -0,0 +1,90 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+module GHCJS.DOM.JSFFI.Generated.PerformanceObserverEntryList+       (js_getEntries, getEntries, getEntries_, js_getEntriesByType,+        getEntriesByType, getEntriesByType_, js_getEntriesByName,+        getEntriesByName, getEntriesByName_,+        PerformanceObserverEntryList(..),+        gTypePerformanceObserverEntryList)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error)+import Data.Typeable (Typeable)+import GHCJS.Types (JSVal(..), JSString)+import GHCJS.Foreign (jsNull, jsUndefined)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Control.Monad (void)+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import Data.Maybe (fromJust)+import Data.Traversable (mapM)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"getEntries\"]()"+        js_getEntries :: PerformanceObserverEntryList -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceObserverEntryList.getEntries Mozilla PerformanceObserverEntryList.getEntries documentation> +getEntries ::+           (MonadIO m) =>+             PerformanceObserverEntryList -> m PerformanceEntryList+getEntries self+  = liftIO ((js_getEntries self) >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceObserverEntryList.getEntries Mozilla PerformanceObserverEntryList.getEntries documentation> +getEntries_ :: (MonadIO m) => PerformanceObserverEntryList -> m ()+getEntries_ self = liftIO (void (js_getEntries self))+ +foreign import javascript unsafe "$1[\"getEntriesByType\"]($2)"+        js_getEntriesByType ::+        PerformanceObserverEntryList -> JSString -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceObserverEntryList.getEntriesByType Mozilla PerformanceObserverEntryList.getEntriesByType documentation> +getEntriesByType ::+                 (MonadIO m, ToJSString type') =>+                   PerformanceObserverEntryList -> type' -> m PerformanceEntryList+getEntriesByType self type'+  = liftIO+      ((js_getEntriesByType self (toJSString type')) >>=+         fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceObserverEntryList.getEntriesByType Mozilla PerformanceObserverEntryList.getEntriesByType documentation> +getEntriesByType_ ::+                  (MonadIO m, ToJSString type') =>+                    PerformanceObserverEntryList -> type' -> m ()+getEntriesByType_ self type'+  = liftIO (void (js_getEntriesByType self (toJSString type')))+ +foreign import javascript unsafe "$1[\"getEntriesByName\"]($2, $3)"+        js_getEntriesByName ::+        PerformanceObserverEntryList ->+          JSString -> Optional JSString -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceObserverEntryList.getEntriesByName Mozilla PerformanceObserverEntryList.getEntriesByName documentation> +getEntriesByName ::+                 (MonadIO m, ToJSString name, ToJSString type') =>+                   PerformanceObserverEntryList ->+                     name -> Maybe type' -> m PerformanceEntryList+getEntriesByName self name type'+  = liftIO+      ((js_getEntriesByName self (toJSString name)+          (toOptionalJSString type'))+         >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceObserverEntryList.getEntriesByName Mozilla PerformanceObserverEntryList.getEntriesByName documentation> +getEntriesByName_ ::+                  (MonadIO m, ToJSString name, ToJSString type') =>+                    PerformanceObserverEntryList -> name -> Maybe type' -> m ()+getEntriesByName_ self name type'+  = liftIO+      (void+         (js_getEntriesByName self (toJSString name)+            (toOptionalJSString type')))
src/GHCJS/DOM/JSFFI/Generated/PerformanceResourceTiming.hs view
@@ -4,21 +4,22 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} 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(..),-        gTypePerformanceResourceTiming)+       (js_getInitiatorType, getInitiatorType, js_getWorkerStart,+        getWorkerStart, 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,+        PerformanceResourceTiming(..), gTypePerformanceResourceTiming)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -27,6 +28,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -40,86 +42,113 @@                  (MonadIO m, FromJSString result) =>                    PerformanceResourceTiming -> m result getInitiatorType self-  = liftIO (fromJSString <$> (js_getInitiatorType (self)))+  = liftIO (fromJSString <$> (js_getInitiatorType self))  +foreign import javascript unsafe "$1[\"workerStart\"]"+        js_getWorkerStart ::+        PerformanceResourceTiming -> IO DOMHighResTimeStamp++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceResourceTiming.workerStart Mozilla PerformanceResourceTiming.workerStart documentation> +getWorkerStart ::+               (MonadIO m) => PerformanceResourceTiming -> m DOMHighResTimeStamp+getWorkerStart self = liftIO (js_getWorkerStart self)+  foreign import javascript unsafe "$1[\"redirectStart\"]"-        js_getRedirectStart :: PerformanceResourceTiming -> IO Double+        js_getRedirectStart ::+        PerformanceResourceTiming -> IO DOMHighResTimeStamp  -- | <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))+                 (MonadIO m) => PerformanceResourceTiming -> m DOMHighResTimeStamp+getRedirectStart self = liftIO (js_getRedirectStart self)   foreign import javascript unsafe "$1[\"redirectEnd\"]"-        js_getRedirectEnd :: PerformanceResourceTiming -> IO Double+        js_getRedirectEnd ::+        PerformanceResourceTiming -> IO DOMHighResTimeStamp  -- | <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))+               (MonadIO m) => PerformanceResourceTiming -> m DOMHighResTimeStamp+getRedirectEnd self = liftIO (js_getRedirectEnd self)   foreign import javascript unsafe "$1[\"fetchStart\"]"-        js_getFetchStart :: PerformanceResourceTiming -> IO Double+        js_getFetchStart ::+        PerformanceResourceTiming -> IO DOMHighResTimeStamp  -- | <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))+              (MonadIO m) => PerformanceResourceTiming -> m DOMHighResTimeStamp+getFetchStart self = liftIO (js_getFetchStart self)   foreign import javascript unsafe "$1[\"domainLookupStart\"]"-        js_getDomainLookupStart :: PerformanceResourceTiming -> IO Double+        js_getDomainLookupStart ::+        PerformanceResourceTiming -> IO DOMHighResTimeStamp  -- | <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))+                     (MonadIO m) => PerformanceResourceTiming -> m DOMHighResTimeStamp+getDomainLookupStart self = liftIO (js_getDomainLookupStart self)   foreign import javascript unsafe "$1[\"domainLookupEnd\"]"-        js_getDomainLookupEnd :: PerformanceResourceTiming -> IO Double+        js_getDomainLookupEnd ::+        PerformanceResourceTiming -> IO DOMHighResTimeStamp  -- | <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))+                   (MonadIO m) => PerformanceResourceTiming -> m DOMHighResTimeStamp+getDomainLookupEnd self = liftIO (js_getDomainLookupEnd self)   foreign import javascript unsafe "$1[\"connectStart\"]"-        js_getConnectStart :: PerformanceResourceTiming -> IO Double+        js_getConnectStart ::+        PerformanceResourceTiming -> IO DOMHighResTimeStamp  -- | <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))+                (MonadIO m) => PerformanceResourceTiming -> m DOMHighResTimeStamp+getConnectStart self = liftIO (js_getConnectStart self)   foreign import javascript unsafe "$1[\"connectEnd\"]"-        js_getConnectEnd :: PerformanceResourceTiming -> IO Double+        js_getConnectEnd ::+        PerformanceResourceTiming -> IO DOMHighResTimeStamp  -- | <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))+              (MonadIO m) => PerformanceResourceTiming -> m DOMHighResTimeStamp+getConnectEnd self = liftIO (js_getConnectEnd self)   foreign import javascript unsafe "$1[\"secureConnectionStart\"]"         js_getSecureConnectionStart ::-        PerformanceResourceTiming -> IO Double+        PerformanceResourceTiming -> IO DOMHighResTimeStamp  -- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceResourceTiming.secureConnectionStart Mozilla PerformanceResourceTiming.secureConnectionStart documentation>  getSecureConnectionStart ::-                         (MonadIO m) => PerformanceResourceTiming -> m Double+                         (MonadIO m) => PerformanceResourceTiming -> m DOMHighResTimeStamp getSecureConnectionStart self-  = liftIO (js_getSecureConnectionStart (self))+  = liftIO (js_getSecureConnectionStart self)   foreign import javascript unsafe "$1[\"requestStart\"]"-        js_getRequestStart :: PerformanceResourceTiming -> IO Double+        js_getRequestStart ::+        PerformanceResourceTiming -> IO DOMHighResTimeStamp  -- | <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))+                (MonadIO m) => PerformanceResourceTiming -> m DOMHighResTimeStamp+getRequestStart self = liftIO (js_getRequestStart self)  +foreign import javascript unsafe "$1[\"responseStart\"]"+        js_getResponseStart ::+        PerformanceResourceTiming -> IO DOMHighResTimeStamp++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceResourceTiming.responseStart Mozilla PerformanceResourceTiming.responseStart documentation> +getResponseStart ::+                 (MonadIO m) => PerformanceResourceTiming -> m DOMHighResTimeStamp+getResponseStart self = liftIO (js_getResponseStart self)+  foreign import javascript unsafe "$1[\"responseEnd\"]"-        js_getResponseEnd :: PerformanceResourceTiming -> IO Double+        js_getResponseEnd ::+        PerformanceResourceTiming -> IO DOMHighResTimeStamp  -- | <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))+               (MonadIO m) => PerformanceResourceTiming -> m DOMHighResTimeStamp+getResponseEnd self = liftIO (js_getResponseEnd self)
src/GHCJS/DOM/JSFFI/Generated/PerformanceTiming.hs view
@@ -25,7 +25,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -34,6 +34,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -45,7 +46,7 @@ -- | <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)))+  = liftIO (round <$> (js_getNavigationStart self))   foreign import javascript unsafe "$1[\"unloadEventStart\"]"         js_getUnloadEventStart :: PerformanceTiming -> IO Double@@ -53,7 +54,7 @@ -- | <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)))+  = liftIO (round <$> (js_getUnloadEventStart self))   foreign import javascript unsafe "$1[\"unloadEventEnd\"]"         js_getUnloadEventEnd :: PerformanceTiming -> IO Double@@ -61,7 +62,7 @@ -- | <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)))+  = liftIO (round <$> (js_getUnloadEventEnd self))   foreign import javascript unsafe "$1[\"redirectStart\"]"         js_getRedirectStart :: PerformanceTiming -> IO Double@@ -69,21 +70,21 @@ -- | <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)))+  = 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)))+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)))+getFetchStart self = liftIO (round <$> (js_getFetchStart self))   foreign import javascript unsafe "$1[\"domainLookupStart\"]"         js_getDomainLookupStart :: PerformanceTiming -> IO Double@@ -92,7 +93,7 @@ getDomainLookupStart ::                      (MonadIO m) => PerformanceTiming -> m Word64 getDomainLookupStart self-  = liftIO (round <$> (js_getDomainLookupStart (self)))+  = liftIO (round <$> (js_getDomainLookupStart self))   foreign import javascript unsafe "$1[\"domainLookupEnd\"]"         js_getDomainLookupEnd :: PerformanceTiming -> IO Double@@ -100,22 +101,21 @@ -- | <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)))+  = 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)))+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)))+getConnectEnd self = liftIO (round <$> (js_getConnectEnd self))   foreign import javascript unsafe "$1[\"secureConnectionStart\"]"         js_getSecureConnectionStart :: PerformanceTiming -> IO Double@@ -124,15 +124,14 @@ getSecureConnectionStart ::                          (MonadIO m) => PerformanceTiming -> m Word64 getSecureConnectionStart self-  = liftIO (round <$> (js_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)))+getRequestStart self = liftIO (round <$> (js_getRequestStart self))   foreign import javascript unsafe "$1[\"responseStart\"]"         js_getResponseStart :: PerformanceTiming -> IO Double@@ -140,21 +139,21 @@ -- | <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)))+  = 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)))+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)))+getDomLoading self = liftIO (round <$> (js_getDomLoading self))   foreign import javascript unsafe "$1[\"domInteractive\"]"         js_getDomInteractive :: PerformanceTiming -> IO Double@@ -162,7 +161,7 @@ -- | <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)))+  = liftIO (round <$> (js_getDomInteractive self))   foreign import javascript unsafe         "$1[\"domContentLoadedEventStart\"]"@@ -172,7 +171,7 @@ getDomContentLoadedEventStart ::                               (MonadIO m) => PerformanceTiming -> m Word64 getDomContentLoadedEventStart self-  = liftIO (round <$> (js_getDomContentLoadedEventStart (self)))+  = liftIO (round <$> (js_getDomContentLoadedEventStart self))   foreign import javascript unsafe "$1[\"domContentLoadedEventEnd\"]"         js_getDomContentLoadedEventEnd :: PerformanceTiming -> IO Double@@ -181,14 +180,14 @@ getDomContentLoadedEventEnd ::                             (MonadIO m) => PerformanceTiming -> m Word64 getDomContentLoadedEventEnd self-  = liftIO (round <$> (js_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)))+getDomComplete self = liftIO (round <$> (js_getDomComplete self))   foreign import javascript unsafe "$1[\"loadEventStart\"]"         js_getLoadEventStart :: PerformanceTiming -> IO Double@@ -196,12 +195,11 @@ -- | <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)))+  = 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)))+getLoadEventEnd self = liftIO (round <$> (js_getLoadEventEnd self))
src/GHCJS/DOM/JSFFI/Generated/Plugin.hs view
@@ -14,7 +14,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -23,38 +23,38 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums  -foreign import javascript unsafe "$1[\"item\"]($2)" js_item ::+foreign import javascript unsafe "$1[$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))+item self index = liftIO (nullableToMaybe <$> (js_item self index))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Plugin.item Mozilla Plugin.item documentation>  item_ :: (MonadIO m) => Plugin -> Word -> m ()-item_ self index = liftIO (void (js_item (self) index))+item_ self index = liftIO (void (js_item self index))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Plugin.item Mozilla Plugin.item documentation>  itemUnsafe ::            (MonadIO m, HasCallStack) => Plugin -> Word -> m MimeType itemUnsafe self index   = liftIO-      ((nullableToMaybe <$> (js_item (self) index)) >>=+      ((nullableToMaybe <$> (js_item self index)) >>=          maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Plugin.item Mozilla Plugin.item documentation>  itemUnchecked :: (MonadIO m) => Plugin -> Word -> m MimeType itemUnchecked self index-  = liftIO (fromJust . nullableToMaybe <$> (js_item (self) index))+  = liftIO (fromJust . nullableToMaybe <$> (js_item self index))  -foreign import javascript unsafe "$1[\"namedItem\"]($2)"-        js_namedItem :: Plugin -> JSString -> IO (Nullable MimeType)+foreign import javascript unsafe "$1[$2]" js_namedItem ::+        Plugin -> JSString -> IO (Nullable MimeType)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Plugin.namedItem Mozilla Plugin.namedItem documentation>  namedItem ::@@ -62,13 +62,13 @@             Plugin -> name -> m (Maybe MimeType) namedItem self name   = liftIO-      (nullableToMaybe <$> (js_namedItem (self) (toJSString name)))+      (nullableToMaybe <$> (js_namedItem self (toJSString name)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Plugin.namedItem Mozilla Plugin.namedItem documentation>  namedItem_ ::            (MonadIO m, ToJSString name) => Plugin -> name -> m () namedItem_ self name-  = liftIO (void (js_namedItem (self) (toJSString name)))+  = liftIO (void (js_namedItem self (toJSString name)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Plugin.namedItem Mozilla Plugin.namedItem documentation>  namedItemUnsafe ::@@ -76,7 +76,7 @@                   Plugin -> name -> m MimeType namedItemUnsafe self name   = liftIO-      ((nullableToMaybe <$> (js_namedItem (self) (toJSString name))) >>=+      ((nullableToMaybe <$> (js_namedItem self (toJSString name))) >>=          maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Plugin.namedItem Mozilla Plugin.namedItem documentation> @@ -85,14 +85,14 @@ namedItemUnchecked self name   = liftIO       (fromJust . nullableToMaybe <$>-         (js_namedItem (self) (toJSString name)))+         (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)))+getName self = liftIO (fromJSString <$> (js_getName self))   foreign import javascript unsafe "$1[\"filename\"]" js_getFilename         :: Plugin -> IO JSString@@ -100,8 +100,7 @@ -- | <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)))+getFilename self = liftIO (fromJSString <$> (js_getFilename self))   foreign import javascript unsafe "$1[\"description\"]"         js_getDescription :: Plugin -> IO JSString@@ -110,11 +109,11 @@ getDescription ::                (MonadIO m, FromJSString result) => Plugin -> m result getDescription self-  = liftIO (fromJSString <$> (js_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))+getLength self = liftIO (js_getLength self)
src/GHCJS/DOM/JSFFI/Generated/PluginArray.hs view
@@ -13,7 +13,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -22,38 +22,38 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums  -foreign import javascript unsafe "$1[\"item\"]($2)" js_item ::+foreign import javascript unsafe "$1[$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))+item self index = liftIO (nullableToMaybe <$> (js_item self index))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/PluginArray.item Mozilla PluginArray.item documentation>  item_ :: (MonadIO m) => PluginArray -> Word -> m ()-item_ self index = liftIO (void (js_item (self) index))+item_ self index = liftIO (void (js_item self index))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/PluginArray.item Mozilla PluginArray.item documentation>  itemUnsafe ::            (MonadIO m, HasCallStack) => PluginArray -> Word -> m Plugin itemUnsafe self index   = liftIO-      ((nullableToMaybe <$> (js_item (self) index)) >>=+      ((nullableToMaybe <$> (js_item self index)) >>=          maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/PluginArray.item Mozilla PluginArray.item documentation>  itemUnchecked :: (MonadIO m) => PluginArray -> Word -> m Plugin itemUnchecked self index-  = liftIO (fromJust . nullableToMaybe <$> (js_item (self) index))+  = liftIO (fromJust . nullableToMaybe <$> (js_item self index))  -foreign import javascript unsafe "$1[\"namedItem\"]($2)"-        js_namedItem :: PluginArray -> JSString -> IO (Nullable Plugin)+foreign import javascript unsafe "$1[$2]" js_namedItem ::+        PluginArray -> JSString -> IO (Nullable Plugin)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/PluginArray.namedItem Mozilla PluginArray.namedItem documentation>  namedItem ::@@ -61,13 +61,13 @@             PluginArray -> name -> m (Maybe Plugin) namedItem self name   = liftIO-      (nullableToMaybe <$> (js_namedItem (self) (toJSString name)))+      (nullableToMaybe <$> (js_namedItem self (toJSString name)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/PluginArray.namedItem Mozilla PluginArray.namedItem documentation>  namedItem_ ::            (MonadIO m, ToJSString name) => PluginArray -> name -> m () namedItem_ self name-  = liftIO (void (js_namedItem (self) (toJSString name)))+  = liftIO (void (js_namedItem self (toJSString name)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/PluginArray.namedItem Mozilla PluginArray.namedItem documentation>  namedItemUnsafe ::@@ -75,7 +75,7 @@                   PluginArray -> name -> m Plugin namedItemUnsafe self name   = liftIO-      ((nullableToMaybe <$> (js_namedItem (self) (toJSString name))) >>=+      ((nullableToMaybe <$> (js_namedItem self (toJSString name))) >>=          maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/PluginArray.namedItem Mozilla PluginArray.namedItem documentation> @@ -84,18 +84,18 @@ namedItemUnchecked self name   = liftIO       (fromJust . nullableToMaybe <$>-         (js_namedItem (self) (toJSString name)))+         (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)+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))+getLength self = liftIO (js_getLength self)
src/GHCJS/DOM/JSFFI/Generated/PopStateEvent.hs view
@@ -4,13 +4,14 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.PopStateEvent-       (js_getState, getState, PopStateEvent(..), gTypePopStateEvent)+       (js_newPopStateEvent, newPopStateEvent, js_getState, getState,+        PopStateEvent(..), gTypePopStateEvent)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -19,14 +20,28 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums  +foreign import javascript unsafe+        "new window[\"PopStateEvent\"]($1,\n$2)" js_newPopStateEvent ::+        JSString -> Optional PopStateEventInit -> IO PopStateEvent++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PopStateEvent Mozilla PopStateEvent documentation> +newPopStateEvent ::+                 (MonadIO m, ToJSString type') =>+                   type' -> Maybe PopStateEventInit -> m PopStateEvent+newPopStateEvent type' eventInitDict+  = liftIO+      (js_newPopStateEvent (toJSString type')+         (maybeToOptional eventInitDict))+  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))+getState self = liftIO (js_getState self)
src/GHCJS/DOM/JSFFI/Generated/PositionCallback.hs view
@@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -20,6 +20,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -27,7 +28,7 @@  -- | <https://developer.mozilla.org/en-US/docs/Web/API/PositionCallback Mozilla PositionCallback documentation>  newPositionCallback ::-                    (MonadIO m) => (Maybe Geoposition -> IO ()) -> m PositionCallback+                    (MonadIO m) => (Geoposition -> IO ()) -> m PositionCallback newPositionCallback callback   = liftIO       (PositionCallback <$>@@ -37,7 +38,7 @@  -- | <https://developer.mozilla.org/en-US/docs/Web/API/PositionCallback Mozilla PositionCallback documentation>  newPositionCallbackSync ::-                        (MonadIO m) => (Maybe Geoposition -> IO ()) -> m PositionCallback+                        (MonadIO m) => (Geoposition -> IO ()) -> m PositionCallback newPositionCallbackSync callback   = liftIO       (PositionCallback <$>@@ -47,7 +48,7 @@  -- | <https://developer.mozilla.org/en-US/docs/Web/API/PositionCallback Mozilla PositionCallback documentation>  newPositionCallbackAsync ::-                         (MonadIO m) => (Maybe Geoposition -> IO ()) -> m PositionCallback+                         (MonadIO m) => (Geoposition -> IO ()) -> m PositionCallback newPositionCallbackAsync callback   = liftIO       (PositionCallback <$>
src/GHCJS/DOM/JSFFI/Generated/PositionError.hs view
@@ -12,7 +12,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -21,6 +21,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -34,7 +35,7 @@  -- | <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))+getCode self = liftIO (js_getCode self)   foreign import javascript unsafe "$1[\"message\"]" js_getMessage ::         PositionError -> IO JSString@@ -42,4 +43,4 @@ -- | <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)))+getMessage self = liftIO (fromJSString <$> (js_getMessage self))
src/GHCJS/DOM/JSFFI/Generated/PositionErrorCallback.hs view
@@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -20,6 +20,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -27,8 +28,7 @@  -- | <https://developer.mozilla.org/en-US/docs/Web/API/PositionErrorCallback Mozilla PositionErrorCallback documentation>  newPositionErrorCallback ::-                         (MonadIO m) =>-                           (Maybe PositionError -> IO ()) -> m PositionErrorCallback+                         (MonadIO m) => (PositionError -> IO ()) -> m PositionErrorCallback newPositionErrorCallback callback   = liftIO       (PositionErrorCallback <$>@@ -38,8 +38,7 @@  -- | <https://developer.mozilla.org/en-US/docs/Web/API/PositionErrorCallback Mozilla PositionErrorCallback documentation>  newPositionErrorCallbackSync ::-                             (MonadIO m) =>-                               (Maybe PositionError -> IO ()) -> m PositionErrorCallback+                             (MonadIO m) => (PositionError -> IO ()) -> m PositionErrorCallback newPositionErrorCallbackSync callback   = liftIO       (PositionErrorCallback <$>@@ -49,8 +48,7 @@  -- | <https://developer.mozilla.org/en-US/docs/Web/API/PositionErrorCallback Mozilla PositionErrorCallback documentation>  newPositionErrorCallbackAsync ::-                              (MonadIO m) =>-                                (Maybe PositionError -> IO ()) -> m PositionErrorCallback+                              (MonadIO m) => (PositionError -> IO ()) -> m PositionErrorCallback newPositionErrorCallbackAsync callback   = liftIO       (PositionErrorCallback <$>
src/GHCJS/DOM/JSFFI/Generated/ProcessingInstruction.hs view
@@ -5,14 +5,14 @@ {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.ProcessingInstruction        (js_getTarget, getTarget, getTargetUnsafe, getTargetUnchecked,-        js_getSheet, getSheet, getSheetUnsafe, getSheetUnchecked,-        ProcessingInstruction(..), gTypeProcessingInstruction)+        js_getSheet, getSheet, ProcessingInstruction(..),+        gTypeProcessingInstruction)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -21,6 +21,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -33,8 +34,7 @@ getTarget ::           (MonadIO m, FromJSString result) =>             ProcessingInstruction -> m (Maybe result)-getTarget self-  = liftIO (fromMaybeJSString <$> (js_getTarget (self)))+getTarget self = liftIO (fromMaybeJSString <$> (js_getTarget self))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/ProcessingInstruction.target Mozilla ProcessingInstruction.target documentation>  getTargetUnsafe ::@@ -42,7 +42,7 @@                   ProcessingInstruction -> m result getTargetUnsafe self   = liftIO-      ((fromMaybeJSString <$> (js_getTarget (self))) >>=+      ((fromMaybeJSString <$> (js_getTarget self)) >>=          maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/ProcessingInstruction.target Mozilla ProcessingInstruction.target documentation> @@ -50,26 +50,11 @@                    (MonadIO m, FromJSString result) =>                      ProcessingInstruction -> m result getTargetUnchecked self-  = liftIO (fromJust . fromMaybeJSString <$> (js_getTarget (self)))+  = liftIO (fromJust . 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/ProcessingInstruction.sheet Mozilla ProcessingInstruction.sheet documentation> -getSheetUnsafe ::-               (MonadIO m, HasCallStack) => ProcessingInstruction -> m StyleSheet-getSheetUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getSheet (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        ProcessingInstruction -> IO StyleSheet  -- | <https://developer.mozilla.org/en-US/docs/Web/API/ProcessingInstruction.sheet Mozilla ProcessingInstruction.sheet documentation> -getSheetUnchecked ::-                  (MonadIO m) => ProcessingInstruction -> m StyleSheet-getSheetUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getSheet (self)))+getSheet :: (MonadIO m) => ProcessingInstruction -> m StyleSheet+getSheet self = liftIO (js_getSheet self)
src/GHCJS/DOM/JSFFI/Generated/ProgressEvent.hs view
@@ -4,15 +4,16 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.ProgressEvent-       (js_getLengthComputable, getLengthComputable, js_getLoaded,-        getLoaded, js_getTotal, getTotal, ProgressEvent(..),-        gTypeProgressEvent, IsProgressEvent, toProgressEvent)+       (js_newProgressEvent, newProgressEvent, js_getLengthComputable,+        getLengthComputable, js_getLoaded, getLoaded, js_getTotal,+        getTotal, ProgressEvent(..), gTypeProgressEvent, IsProgressEvent,+        toProgressEvent)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -21,10 +22,24 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+ +foreign import javascript unsafe+        "new window[\"ProgressEvent\"]($1,\n$2)" js_newProgressEvent ::+        JSString -> Optional ProgressEventInit -> IO ProgressEvent++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ProgressEvent Mozilla ProgressEvent documentation> +newProgressEvent ::+                 (MonadIO m, ToJSString type') =>+                   type' -> Maybe ProgressEventInit -> m ProgressEvent+newProgressEvent type' eventInitDict+  = liftIO+      (js_newProgressEvent (toJSString type')+         (maybeToOptional eventInitDict))   foreign import javascript unsafe         "($1[\"lengthComputable\"] ? 1 : 0)" js_getLengthComputable ::
src/GHCJS/DOM/JSFFI/Generated/QuickTimePluginReplacement.hs view
@@ -13,7 +13,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -22,6 +22,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -35,7 +36,7 @@           (MonadIO m, ToJSString eventName) =>             QuickTimePluginReplacement -> eventName -> m () postEvent self eventName-  = liftIO (js_postEvent (self) (toJSString eventName))+  = liftIO (js_postEvent self (toJSString eventName))   foreign import javascript unsafe "$1[\"movieSize\"]"         js_getMovieSize :: QuickTimePluginReplacement -> IO Double@@ -43,7 +44,7 @@ -- | <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)))+getMovieSize self = liftIO (round <$> (js_getMovieSize self))   foreign import javascript unsafe "$1[\"timedMetaData\"]"         js_getTimedMetaData :: QuickTimePluginReplacement -> IO JSVal@@ -51,7 +52,7 @@ -- | <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))+getTimedMetaData self = liftIO (js_getTimedMetaData self)   foreign import javascript unsafe "$1[\"accessLog\"]"         js_getAccessLog :: QuickTimePluginReplacement -> IO JSVal@@ -59,11 +60,11 @@ -- | <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))+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))+getErrorLog self = liftIO (js_getErrorLog self)
src/GHCJS/DOM/JSFFI/Generated/RGBColor.hs view
@@ -4,15 +4,14 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.RGBColor-       (js_getRed, getRed, getRedUnsafe, getRedUnchecked, js_getGreen,-        getGreen, getGreenUnsafe, getGreenUnchecked, js_getBlue, getBlue,-        getBlueUnsafe, getBlueUnchecked, RGBColor(..), gTypeRGBColor)+       (js_getRed, getRed, js_getGreen, getGreen, js_getBlue, getBlue,+        js_getAlpha, getAlpha, RGBColor(..), gTypeRGBColor)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -21,67 +20,36 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/RGBColor.red Mozilla RGBColor.red documentation> -getRedUnsafe ::-             (MonadIO m, HasCallStack) => RGBColor -> m CSSPrimitiveValue-getRedUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getRed (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        RGBColor -> IO CSSPrimitiveValue  -- | <https://developer.mozilla.org/en-US/docs/Web/API/RGBColor.red Mozilla RGBColor.red documentation> -getRedUnchecked :: (MonadIO m) => RGBColor -> m CSSPrimitiveValue-getRedUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getRed (self)))+getRed :: (MonadIO m) => RGBColor -> m CSSPrimitiveValue+getRed self = liftIO (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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/RGBColor.green Mozilla RGBColor.green documentation> -getGreenUnsafe ::-               (MonadIO m, HasCallStack) => RGBColor -> m CSSPrimitiveValue-getGreenUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getGreen (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        RGBColor -> IO CSSPrimitiveValue  -- | <https://developer.mozilla.org/en-US/docs/Web/API/RGBColor.green Mozilla RGBColor.green documentation> -getGreenUnchecked :: (MonadIO m) => RGBColor -> m CSSPrimitiveValue-getGreenUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getGreen (self)))+getGreen :: (MonadIO m) => RGBColor -> m CSSPrimitiveValue+getGreen self = liftIO (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)))+        RGBColor -> IO CSSPrimitiveValue  -- | <https://developer.mozilla.org/en-US/docs/Web/API/RGBColor.blue Mozilla RGBColor.blue documentation> -getBlueUnsafe ::-              (MonadIO m, HasCallStack) => RGBColor -> m CSSPrimitiveValue-getBlueUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getBlue (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+getBlue :: (MonadIO m) => RGBColor -> m CSSPrimitiveValue+getBlue self = liftIO (js_getBlue self)+ +foreign import javascript unsafe "$1[\"alpha\"]" js_getAlpha ::+        RGBColor -> IO CSSPrimitiveValue --- | <https://developer.mozilla.org/en-US/docs/Web/API/RGBColor.blue Mozilla RGBColor.blue documentation> -getBlueUnchecked :: (MonadIO m) => RGBColor -> m CSSPrimitiveValue-getBlueUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getBlue (self)))+-- | <https://developer.mozilla.org/en-US/docs/Web/API/RGBColor.alpha Mozilla RGBColor.alpha documentation> +getAlpha :: (MonadIO m) => RGBColor -> m CSSPrimitiveValue+getAlpha self = liftIO (js_getAlpha self)
− src/GHCJS/DOM/JSFFI/Generated/RTCConfiguration.hs 
@@ -1,54 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility-{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}-module GHCJS.DOM.JSFFI.Generated.RTCConfiguration-       (js_getIceServers, getIceServers, js_getIceTransports,-        getIceTransports, js_getRequestIdentity, getRequestIdentity,-        RTCConfiguration(..), gTypeRTCConfiguration)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)-import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))-import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import 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
@@ -5,16 +5,15 @@ {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.RTCDTMFSender        (js_insertDTMF, insertDTMF, js_getCanInsertDTMF, getCanInsertDTMF,-        js_getTrack, getTrack, getTrackUnsafe, getTrackUnchecked,-        js_getToneBuffer, getToneBuffer, js_getDuration, getDuration,-        js_getInterToneGap, getInterToneGap, toneChange, RTCDTMFSender(..),-        gTypeRTCDTMFSender)+        js_getTrack, getTrack, js_getToneBuffer, getToneBuffer,+        js_getDuration, getDuration, js_getInterToneGap, getInterToneGap,+        toneChange, RTCDTMFSender(..), gTypeRTCDTMFSender)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -23,50 +22,38 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums   foreign import javascript unsafe "$1[\"insertDTMF\"]($2, $3, $4)"-        js_insertDTMF :: RTCDTMFSender -> JSString -> Int -> Int -> IO ()+        js_insertDTMF ::+        RTCDTMFSender -> JSString -> Optional Int -> Optional 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 ()+             RTCDTMFSender -> tones -> Maybe Int -> Maybe Int -> m () insertDTMF self tones duration interToneGap   = liftIO-      (js_insertDTMF (self) (toJSString tones) duration interToneGap)+      (js_insertDTMF self (toJSString tones) (maybeToOptional duration)+         (maybeToOptional 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))+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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDTMFSender.track Mozilla RTCDTMFSender.track documentation> -getTrackUnsafe ::-               (MonadIO m, HasCallStack) => RTCDTMFSender -> m MediaStreamTrack-getTrackUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getTrack (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        RTCDTMFSender -> IO MediaStreamTrack  -- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDTMFSender.track Mozilla RTCDTMFSender.track documentation> -getTrackUnchecked ::-                  (MonadIO m) => RTCDTMFSender -> m MediaStreamTrack-getTrackUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getTrack (self)))+getTrack :: (MonadIO m) => RTCDTMFSender -> m MediaStreamTrack+getTrack self = liftIO (js_getTrack self)   foreign import javascript unsafe "$1[\"toneBuffer\"]"         js_getToneBuffer :: RTCDTMFSender -> IO JSString@@ -75,21 +62,21 @@ getToneBuffer ::               (MonadIO m, FromJSString result) => RTCDTMFSender -> m result getToneBuffer self-  = liftIO (fromJSString <$> (js_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))+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))+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
src/GHCJS/DOM/JSFFI/Generated/RTCDTMFToneChangeEvent.hs view
@@ -4,14 +4,15 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.RTCDTMFToneChangeEvent-       (js_getTone, getTone, RTCDTMFToneChangeEvent(..),+       (js_newRTCDTMFToneChangeEvent, newRTCDTMFToneChangeEvent,+        js_getTone, getTone, RTCDTMFToneChangeEvent(..),         gTypeRTCDTMFToneChangeEvent)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -20,11 +21,28 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums  +foreign import javascript unsafe+        "new window[\"RTCDTMFToneChangeEvent\"]($1,\n$2)"+        js_newRTCDTMFToneChangeEvent ::+        JSString ->+          Optional RTCDTMFToneChangeEventInit -> IO RTCDTMFToneChangeEvent++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDTMFToneChangeEvent Mozilla RTCDTMFToneChangeEvent documentation> +newRTCDTMFToneChangeEvent ::+                          (MonadIO m, ToJSString type') =>+                            type' ->+                              Maybe RTCDTMFToneChangeEventInit -> m RTCDTMFToneChangeEvent+newRTCDTMFToneChangeEvent type' eventInitDict+  = liftIO+      (js_newRTCDTMFToneChangeEvent (toJSString type')+         (maybeToOptional eventInitDict))+  foreign import javascript unsafe "$1[\"tone\"]" js_getTone ::         RTCDTMFToneChangeEvent -> IO JSString @@ -32,4 +50,4 @@ getTone ::         (MonadIO m, FromJSString result) =>           RTCDTMFToneChangeEvent -> m result-getTone self = liftIO (fromJSString <$> (js_getTone (self)))+getTone self = liftIO (fromJSString <$> (js_getTone self))
src/GHCJS/DOM/JSFFI/Generated/RTCDataChannel.hs view
@@ -18,7 +18,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -27,42 +27,37 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums   foreign import javascript unsafe "$1[\"send\"]($2)" js_send ::-        RTCDataChannel -> Nullable ArrayBuffer -> IO ()+        RTCDataChannel -> 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')))+     (MonadIO m, IsArrayBuffer data') => RTCDataChannel -> data' -> m ()+send self data' = liftIO (js_send self (toArrayBuffer data'))   foreign import javascript unsafe "$1[\"send\"]($2)" js_sendView ::-        RTCDataChannel -> Nullable ArrayBufferView -> IO ()+        RTCDataChannel -> 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 ()+           RTCDataChannel -> data' -> m () sendView self data'-  = liftIO-      (js_sendView (self)-         (maybeToNullable (fmap toArrayBufferView data')))+  = liftIO (js_sendView self (toArrayBufferView data'))   foreign import javascript unsafe "$1[\"send\"]($2)" js_sendBlob ::-        RTCDataChannel -> Nullable Blob -> IO ()+        RTCDataChannel -> 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')))+         (MonadIO m, IsBlob data') => RTCDataChannel -> data' -> m ()+sendBlob self data' = liftIO (js_sendBlob self (toBlob data'))   foreign import javascript unsafe "$1[\"send\"]($2)" js_sendString         :: RTCDataChannel -> JSString -> IO ()@@ -71,14 +66,14 @@ sendString ::            (MonadIO m, ToJSString data') => RTCDataChannel -> data' -> m () sendString self data'-  = liftIO (js_sendString (self) (toJSString 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))+close self = liftIO (js_close self)   foreign import javascript unsafe "$1[\"label\"]" js_getLabel ::         RTCDataChannel -> IO JSString@@ -86,28 +81,28 @@ -- | <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)))+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))+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))+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))+getMaxRetransmits self = liftIO (js_getMaxRetransmits self)   foreign import javascript unsafe "$1[\"protocol\"]" js_getProtocol         :: RTCDataChannel -> IO JSString@@ -115,22 +110,21 @@ -- | <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)))+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))+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))+getId self = liftIO (js_getId self)   foreign import javascript unsafe "$1[\"readyState\"]"         js_getReadyState :: RTCDataChannel -> IO JSString@@ -139,14 +133,14 @@ getReadyState ::               (MonadIO m, FromJSString result) => RTCDataChannel -> m result getReadyState self-  = liftIO (fromJSString <$> (js_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))+getBufferedAmount self = liftIO (js_getBufferedAmount self)   foreign import javascript unsafe "$1[\"binaryType\"] = $2;"         js_setBinaryType :: RTCDataChannel -> JSString -> IO ()@@ -155,7 +149,7 @@ setBinaryType ::               (MonadIO m, ToJSString val) => RTCDataChannel -> val -> m () setBinaryType self val-  = liftIO (js_setBinaryType (self) (toJSString val))+  = liftIO (js_setBinaryType self (toJSString val))   foreign import javascript unsafe "$1[\"binaryType\"]"         js_getBinaryType :: RTCDataChannel -> IO JSString@@ -164,7 +158,7 @@ getBinaryType ::               (MonadIO m, FromJSString result) => RTCDataChannel -> m result getBinaryType self-  = liftIO (fromJSString <$> (js_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
src/GHCJS/DOM/JSFFI/Generated/RTCDataChannelEvent.hs view
@@ -4,14 +4,14 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.RTCDataChannelEvent-       (js_getChannel, getChannel, getChannelUnsafe, getChannelUnchecked,-        RTCDataChannelEvent(..), gTypeRTCDataChannelEvent)+       (js_getChannel, getChannel, RTCDataChannelEvent(..),+        gTypeRTCDataChannelEvent)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -20,31 +20,16 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums   foreign import javascript unsafe "$1[\"channel\"]" js_getChannel ::-        RTCDataChannelEvent -> IO (Nullable RTCDataChannel)+        RTCDataChannelEvent -> IO 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDataChannelEvent.channel Mozilla RTCDataChannelEvent.channel documentation> -getChannelUnsafe ::-                 (MonadIO m, HasCallStack) =>-                   RTCDataChannelEvent -> m RTCDataChannel-getChannelUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getChannel (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDataChannelEvent.channel Mozilla RTCDataChannelEvent.channel documentation> -getChannelUnchecked ::-                    (MonadIO m) => RTCDataChannelEvent -> m RTCDataChannel-getChannelUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getChannel (self)))+           (MonadIO m) => RTCDataChannelEvent -> m RTCDataChannel+getChannel self = liftIO (js_getChannel self)
src/GHCJS/DOM/JSFFI/Generated/RTCIceCandidate.hs view
@@ -5,14 +5,16 @@ {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.RTCIceCandidate        (js_newRTCIceCandidate, newRTCIceCandidate, js_getCandidate,-        getCandidate, js_getSdpMid, getSdpMid, js_getSdpMLineIndex,-        getSdpMLineIndex, RTCIceCandidate(..), gTypeRTCIceCandidate)+        getCandidate, js_getSdpMid, getSdpMid, getSdpMidUnsafe,+        getSdpMidUnchecked, js_getSdpMLineIndex, getSdpMLineIndex,+        getSdpMLineIndexUnsafe, getSdpMLineIndexUnchecked,+        RTCIceCandidate(..), gTypeRTCIceCandidate)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -21,6 +23,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -28,16 +31,13 @@   foreign import javascript unsafe         "new window[\"RTCIceCandidate\"]($1)" js_newRTCIceCandidate ::-        Nullable Dictionary -> IO RTCIceCandidate+        RTCIceCandidateInit -> 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)))+                   (MonadIO m) => RTCIceCandidateInit -> m RTCIceCandidate+newRTCIceCandidate candidateInitDict+  = liftIO (js_newRTCIceCandidate candidateInitDict)   foreign import javascript unsafe "$1[\"candidate\"]"         js_getCandidate :: RTCIceCandidate -> IO JSString@@ -46,19 +46,52 @@ getCandidate ::              (MonadIO m, FromJSString result) => RTCIceCandidate -> m result getCandidate self-  = liftIO (fromJSString <$> (js_getCandidate (self)))+  = liftIO (fromJSString <$> (js_getCandidate self))   foreign import javascript unsafe "$1[\"sdpMid\"]" js_getSdpMid ::-        RTCIceCandidate -> IO JSString+        RTCIceCandidate -> IO (Nullable 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)))+          (MonadIO m, FromJSString result) =>+            RTCIceCandidate -> m (Maybe result)+getSdpMid self = liftIO (fromMaybeJSString <$> (js_getSdpMid self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCIceCandidate.sdpMid Mozilla RTCIceCandidate.sdpMid documentation> +getSdpMidUnsafe ::+                (MonadIO m, HasCallStack, FromJSString result) =>+                  RTCIceCandidate -> m result+getSdpMidUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getSdpMid self)) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCIceCandidate.sdpMid Mozilla RTCIceCandidate.sdpMid documentation> +getSdpMidUnchecked ::+                   (MonadIO m, FromJSString result) => RTCIceCandidate -> m result+getSdpMidUnchecked self+  = liftIO (fromJust . fromMaybeJSString <$> (js_getSdpMid self))   foreign import javascript unsafe "$1[\"sdpMLineIndex\"]"-        js_getSdpMLineIndex :: RTCIceCandidate -> IO Word+        js_getSdpMLineIndex :: RTCIceCandidate -> IO (Nullable 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))+getSdpMLineIndex ::+                 (MonadIO m) => RTCIceCandidate -> m (Maybe Word)+getSdpMLineIndex self+  = liftIO (nullableToMaybe <$> (js_getSdpMLineIndex self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCIceCandidate.sdpMLineIndex Mozilla RTCIceCandidate.sdpMLineIndex documentation> +getSdpMLineIndexUnsafe ::+                       (MonadIO m, HasCallStack) => RTCIceCandidate -> m Word+getSdpMLineIndexUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getSdpMLineIndex self)) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCIceCandidate.sdpMLineIndex Mozilla RTCIceCandidate.sdpMLineIndex documentation> +getSdpMLineIndexUnchecked ::+                          (MonadIO m) => RTCIceCandidate -> m Word+getSdpMLineIndexUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getSdpMLineIndex self))
src/GHCJS/DOM/JSFFI/Generated/RTCIceCandidateEvent.hs view
@@ -4,15 +4,14 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.RTCIceCandidateEvent-       (js_getCandidate, getCandidate, getCandidateUnsafe,-        getCandidateUnchecked, RTCIceCandidateEvent(..),+       (js_getCandidate, getCandidate, RTCIceCandidateEvent(..),         gTypeRTCIceCandidateEvent)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -21,32 +20,16 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums   foreign import javascript unsafe "$1[\"candidate\"]"-        js_getCandidate ::-        RTCIceCandidateEvent -> IO (Nullable RTCIceCandidate)+        js_getCandidate :: RTCIceCandidateEvent -> IO 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCIceCandidateEvent.candidate Mozilla RTCIceCandidateEvent.candidate documentation> -getCandidateUnsafe ::-                   (MonadIO m, HasCallStack) =>-                     RTCIceCandidateEvent -> m RTCIceCandidate-getCandidateUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getCandidate (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCIceCandidateEvent.candidate Mozilla RTCIceCandidateEvent.candidate documentation> -getCandidateUnchecked ::-                      (MonadIO m) => RTCIceCandidateEvent -> m RTCIceCandidate-getCandidateUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getCandidate (self)))+             (MonadIO m) => RTCIceCandidateEvent -> m RTCIceCandidate+getCandidate self = liftIO (js_getCandidate self)
− src/GHCJS/DOM/JSFFI/Generated/RTCIceServer.hs 
@@ -1,53 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility-{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}-module GHCJS.DOM.JSFFI.Generated.RTCIceServer-       (js_getUrls, getUrls, js_getUsername, getUsername,-        js_getCredential, getCredential, RTCIceServer(..),-        gTypeRTCIceServer)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)-import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))-import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import 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
@@ -4,37 +4,40 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.RTCPeerConnection-       (js_newRTCPeerConnection, newRTCPeerConnection, js_createOffer,-        createOffer, js_createAnswer, createAnswer, js_setLocalDescription,+       (js_getSenders, getSenders, getSenders_, js_getReceivers,+        getReceivers, getReceivers_, js_getTransceivers, getTransceivers,+        getTransceivers_, js_addTrack, addTrack, addTrack_, js_removeTrack,+        removeTrack, js_addTransceiverTrack, addTransceiverTrack,+        addTransceiverTrack_, js_addTransceiver, addTransceiver,+        addTransceiver_, js_getLocalStreams, getLocalStreams,+        getLocalStreams_, js_getRemoteStreams, getRemoteStreams,+        getRemoteStreams_, js_getStreamById, getStreamById, getStreamById_,+        js_addStream, addStream, js_removeStream, removeStream,+        js_createOffer, createOffer, createOffer_, js_createAnswer,+        createAnswer, createAnswer_, js_setLocalDescription,         setLocalDescription, js_setRemoteDescription, setRemoteDescription,-        js_updateIce, updateIce, js_addIceCandidate, addIceCandidate,-        js_getLocalStreams, getLocalStreams, getLocalStreams_,-        js_getRemoteStreams, getRemoteStreams, getRemoteStreams_,-        js_getStreamById, getStreamById, getStreamById_,-        getStreamByIdUnsafe, getStreamByIdUnchecked, js_getConfiguration,-        getConfiguration, getConfiguration_, getConfigurationUnsafe,-        getConfigurationUnchecked, js_addStream, addStream,-        js_removeStream, removeStream, js_getStats, getStats,+        js_addIceCandidate, addIceCandidate, js_getConfiguration,+        getConfiguration, getConfiguration_, js_setConfiguration,+        setConfiguration, js_getStats, getStats, getStats_,         js_createDataChannel, createDataChannel, createDataChannel_,-        createDataChannelUnsafe, createDataChannelUnchecked,-        js_createDTMFSender, createDTMFSender, createDTMFSender_,-        createDTMFSenderUnsafe, createDTMFSenderUnchecked, js_close, close,-        js_getLocalDescription, getLocalDescription,-        getLocalDescriptionUnsafe, getLocalDescriptionUnchecked,+        js_close, close, js_getLocalDescription, getLocalDescription,+        js_getCurrentLocalDescription, getCurrentLocalDescription,+        js_getPendingLocalDescription, getPendingLocalDescription,         js_getRemoteDescription, getRemoteDescription,-        getRemoteDescriptionUnsafe, getRemoteDescriptionUnchecked,+        js_getCurrentRemoteDescription, getCurrentRemoteDescription,+        js_getPendingRemoteDescription, getPendingRemoteDescription,         js_getSignalingState, getSignalingState, js_getIceGatheringState,         getIceGatheringState, js_getIceConnectionState,         getIceConnectionState, negotiationNeeded, iceCandidate,-        signalingStateChange, addStreamEvent, removeStreamEvent,-        iceConnectionStateChange, dataChannel, RTCPeerConnection(..),-        gTypeRTCPeerConnection)+        signalingStateChange, track, iceConnectionStateChange,+        icegatheringstatechange, dataChannel, addStreamEvent,+        RTCPeerConnection(..), gTypeRTCPeerConnection)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -43,424 +46,389 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums  -foreign import javascript unsafe-        "new window[\"webkitRTCPeerConnection\"]($1)"-        js_newRTCPeerConnection ::-        Nullable Dictionary -> IO RTCPeerConnection+foreign import javascript unsafe "$1[\"getSenders\"]()"+        js_getSenders :: RTCPeerConnection -> IO JSVal --- | <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)))+-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.getSenders Mozilla webkitRTCPeerConnection.getSenders documentation> +getSenders :: (MonadIO m) => RTCPeerConnection -> m [RTCRtpSender]+getSenders self+  = liftIO ((js_getSenders self) >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.getSenders Mozilla webkitRTCPeerConnection.getSenders documentation> +getSenders_ :: (MonadIO m) => RTCPeerConnection -> m ()+getSenders_ self = liftIO (void (js_getSenders self))  -foreign import javascript unsafe "$1[\"createOffer\"]($2, $3, $4)"-        js_createOffer ::-        RTCPeerConnection ->-          Nullable RTCSessionDescriptionCallback ->-            Nullable RTCPeerConnectionErrorCallback ->-              Nullable Dictionary -> IO ()+foreign import javascript unsafe "$1[\"getReceivers\"]()"+        js_getReceivers :: RTCPeerConnection -> IO JSVal --- | <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)))+-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.getReceivers Mozilla webkitRTCPeerConnection.getReceivers documentation> +getReceivers ::+             (MonadIO m) => RTCPeerConnection -> m [RTCRtpReceiver]+getReceivers self+  = liftIO ((js_getReceivers self) >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.getReceivers Mozilla webkitRTCPeerConnection.getReceivers documentation> +getReceivers_ :: (MonadIO m) => RTCPeerConnection -> m ()+getReceivers_ self = liftIO (void (js_getReceivers self))  -foreign import javascript unsafe "$1[\"createAnswer\"]($2, $3, $4)"-        js_createAnswer ::-        RTCPeerConnection ->-          Nullable RTCSessionDescriptionCallback ->-            Nullable RTCPeerConnectionErrorCallback ->-              Nullable Dictionary -> IO ()+foreign import javascript unsafe "$1[\"getTransceivers\"]()"+        js_getTransceivers :: RTCPeerConnection -> IO JSVal --- | <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+-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.getTransceivers Mozilla webkitRTCPeerConnection.getTransceivers documentation> +getTransceivers ::+                (MonadIO m) => RTCPeerConnection -> m [RTCRtpTransceiver]+getTransceivers self+  = liftIO ((js_getTransceivers self) >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.getTransceivers Mozilla webkitRTCPeerConnection.getTransceivers documentation> +getTransceivers_ :: (MonadIO m) => RTCPeerConnection -> m ()+getTransceivers_ self = liftIO (void (js_getTransceivers self))+ +foreign import javascript unsafe "$1[\"addTrack\"]($2, $3)"+        js_addTrack ::+        RTCPeerConnection -> MediaStreamTrack -> JSVal -> IO RTCRtpSender++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.addTrack Mozilla webkitRTCPeerConnection.addTrack documentation> +addTrack ::+         (MonadIO m) =>+           RTCPeerConnection ->+             MediaStreamTrack -> [MediaStream] -> m RTCRtpSender+addTrack self track streams   = liftIO-      (js_createAnswer (self) (maybeToNullable successCallback)-         (maybeToNullable failureCallback)-         (maybeToNullable (fmap toDictionary answerOptions)))+      (toJSVal streams >>= \ streams' -> js_addTrack self track streams')++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.addTrack Mozilla webkitRTCPeerConnection.addTrack documentation> +addTrack_ ::+          (MonadIO m) =>+            RTCPeerConnection -> MediaStreamTrack -> [MediaStream] -> m ()+addTrack_ self track streams+  = liftIO+      (void+         (toJSVal streams >>=+            \ streams' -> js_addTrack self track streams'))  -foreign import javascript unsafe-        "$1[\"setLocalDescription\"]($2,\n$3, $4)" js_setLocalDescription-        ::+foreign import javascript unsafe "$1[\"removeTrack\"]($2)"+        js_removeTrack :: RTCPeerConnection -> RTCRtpSender -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.removeTrack Mozilla webkitRTCPeerConnection.removeTrack documentation> +removeTrack ::+            (MonadIO m) => RTCPeerConnection -> RTCRtpSender -> m ()+removeTrack self sender = liftIO (js_removeTrack self sender)+ +foreign import javascript unsafe "$1[\"addTransceiver\"]($2, $3)"+        js_addTransceiverTrack ::         RTCPeerConnection ->-          Nullable RTCSessionDescription ->-            Nullable VoidCallback ->-              Nullable RTCPeerConnectionErrorCallback -> IO ()+          MediaStreamTrack ->+            Optional RTCRtpTransceiverInit -> IO RTCRtpTransceiver --- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.setLocalDescription Mozilla webkitRTCPeerConnection.setLocalDescription documentation> -setLocalDescription ::+-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.addTransceiver Mozilla webkitRTCPeerConnection.addTransceiver documentation> +addTransceiverTrack ::                     (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 ()+                        MediaStreamTrack ->+                          Maybe RTCRtpTransceiverInit -> m RTCRtpTransceiver+addTransceiverTrack self track init+  = liftIO (js_addTransceiverTrack self track (maybeToOptional init)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.setRemoteDescription Mozilla webkitRTCPeerConnection.setRemoteDescription documentation> -setRemoteDescription ::+-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.addTransceiver Mozilla webkitRTCPeerConnection.addTransceiver documentation> +addTransceiverTrack_ ::                      (MonadIO m) =>                        RTCPeerConnection ->-                         Maybe RTCSessionDescription ->-                           Maybe VoidCallback -> Maybe RTCPeerConnectionErrorCallback -> m ()-setRemoteDescription self description successCallback-  failureCallback+                         MediaStreamTrack -> Maybe RTCRtpTransceiverInit -> m ()+addTransceiverTrack_ self track init   = liftIO-      (js_setRemoteDescription (self) (maybeToNullable description)-         (maybeToNullable successCallback)-         (maybeToNullable failureCallback))+      (void (js_addTransceiverTrack self track (maybeToOptional init)))  -foreign import javascript unsafe "$1[\"updateIce\"]($2)"-        js_updateIce :: RTCPeerConnection -> Nullable Dictionary -> IO ()+foreign import javascript unsafe "$1[\"addTransceiver\"]($2, $3)"+        js_addTransceiver ::+        RTCPeerConnection ->+          JSString -> Optional RTCRtpTransceiverInit -> IO RTCRtpTransceiver --- | <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+-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.addTransceiver Mozilla webkitRTCPeerConnection.addTransceiver documentation> +addTransceiver ::+               (MonadIO m, ToJSString kind) =>+                 RTCPeerConnection ->+                   kind -> Maybe RTCRtpTransceiverInit -> m RTCRtpTransceiver+addTransceiver self kind init   = 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 ()+      (js_addTransceiver self (toJSString kind) (maybeToOptional init)) --- | <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+-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.addTransceiver Mozilla webkitRTCPeerConnection.addTransceiver documentation> +addTransceiver_ ::+                (MonadIO m, ToJSString kind) =>+                  RTCPeerConnection -> kind -> Maybe RTCRtpTransceiverInit -> m ()+addTransceiver_ self kind init   = liftIO-      (js_addIceCandidate (self) (maybeToNullable candidate)-         (maybeToNullable successCallback)-         (maybeToNullable failureCallback))+      (void+         (js_addTransceiver self (toJSString kind) (maybeToOptional init)))   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]+                (MonadIO m) => RTCPeerConnection -> m [MediaStream] getLocalStreams self-  = liftIO ((js_getLocalStreams (self)) >>= fromJSValUnchecked)+  = liftIO ((js_getLocalStreams self) >>= fromJSValUnchecked)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.getLocalStreams Mozilla webkitRTCPeerConnection.getLocalStreams documentation>  getLocalStreams_ :: (MonadIO m) => RTCPeerConnection -> m ()-getLocalStreams_ self = liftIO (void (js_getLocalStreams (self)))+getLocalStreams_ self = liftIO (void (js_getLocalStreams self))   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]+                 (MonadIO m) => RTCPeerConnection -> m [MediaStream] getRemoteStreams self-  = liftIO ((js_getRemoteStreams (self)) >>= fromJSValUnchecked)+  = liftIO ((js_getRemoteStreams self) >>= fromJSValUnchecked)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.getRemoteStreams Mozilla webkitRTCPeerConnection.getRemoteStreams documentation>  getRemoteStreams_ :: (MonadIO m) => RTCPeerConnection -> m ()-getRemoteStreams_ self = liftIO (void (js_getRemoteStreams (self)))+getRemoteStreams_ self = liftIO (void (js_getRemoteStreams self))   foreign import javascript unsafe "$1[\"getStreamById\"]($2)"-        js_getStreamById ::-        RTCPeerConnection -> JSString -> IO (Nullable MediaStream)+        js_getStreamById :: RTCPeerConnection -> JSString -> IO 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)+                RTCPeerConnection -> streamId -> m MediaStream getStreamById self streamId-  = liftIO-      (nullableToMaybe <$>-         (js_getStreamById (self) (toJSString streamId)))+  = liftIO (js_getStreamById self (toJSString streamId))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.getStreamById Mozilla webkitRTCPeerConnection.getStreamById documentation>  getStreamById_ ::                (MonadIO m, ToJSString streamId) =>                  RTCPeerConnection -> streamId -> m () getStreamById_ self streamId-  = liftIO (void (js_getStreamById (self) (toJSString streamId)))+  = liftIO (void (js_getStreamById self (toJSString streamId)))+ +foreign import javascript unsafe "$1[\"addStream\"]($2)"+        js_addStream :: RTCPeerConnection -> MediaStream -> IO () --- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.getStreamById Mozilla webkitRTCPeerConnection.getStreamById documentation> -getStreamByIdUnsafe ::-                    (MonadIO m, ToJSString streamId, HasCallStack) =>-                      RTCPeerConnection -> streamId -> m MediaStream-getStreamByIdUnsafe self streamId+-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.addStream Mozilla webkitRTCPeerConnection.addStream documentation> +addStream ::+          (MonadIO m) => RTCPeerConnection -> MediaStream -> m ()+addStream self stream = liftIO (js_addStream self stream)+ +foreign import javascript unsafe "$1[\"removeStream\"]($2)"+        js_removeStream :: RTCPeerConnection -> MediaStream -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.removeStream Mozilla webkitRTCPeerConnection.removeStream documentation> +removeStream ::+             (MonadIO m) => RTCPeerConnection -> MediaStream -> m ()+removeStream self stream = liftIO (js_removeStream self stream)+ +foreign import javascript interruptible+        "$1[\"createOffer\"]($2).then($c);" js_createOffer ::+        RTCPeerConnection ->+          Optional RTCOfferOptions -> IO RTCSessionDescriptionInit++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.createOffer Mozilla webkitRTCPeerConnection.createOffer documentation> +createOffer ::+            (MonadIO m) =>+              RTCPeerConnection ->+                Maybe RTCOfferOptions -> m RTCSessionDescriptionInit+createOffer self offerOptions+  = liftIO (js_createOffer self (maybeToOptional offerOptions))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.createOffer Mozilla webkitRTCPeerConnection.createOffer documentation> +createOffer_ ::+             (MonadIO m) => RTCPeerConnection -> Maybe RTCOfferOptions -> m ()+createOffer_ self offerOptions   = liftIO-      ((nullableToMaybe <$>-          (js_getStreamById (self) (toJSString streamId)))-         >>= maybe (Prelude.error "Nothing to return") return)+      (void (js_createOffer self (maybeToOptional offerOptions)))+ +foreign import javascript interruptible+        "$1[\"createAnswer\"]($2).then($c);" js_createAnswer ::+        RTCPeerConnection ->+          Optional RTCAnswerOptions -> IO RTCSessionDescriptionInit --- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.getStreamById Mozilla webkitRTCPeerConnection.getStreamById documentation> -getStreamByIdUnchecked ::-                       (MonadIO m, ToJSString streamId) =>-                         RTCPeerConnection -> streamId -> m MediaStream-getStreamByIdUnchecked self streamId+-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.createAnswer Mozilla webkitRTCPeerConnection.createAnswer documentation> +createAnswer ::+             (MonadIO m) =>+               RTCPeerConnection ->+                 Maybe RTCAnswerOptions -> m RTCSessionDescriptionInit+createAnswer self answerOptions+  = liftIO (js_createAnswer self (maybeToOptional answerOptions))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.createAnswer Mozilla webkitRTCPeerConnection.createAnswer documentation> +createAnswer_ ::+              (MonadIO m) => RTCPeerConnection -> Maybe RTCAnswerOptions -> m ()+createAnswer_ self answerOptions   = liftIO-      (fromJust . nullableToMaybe <$>-         (js_getStreamById (self) (toJSString streamId)))+      (void (js_createAnswer self (maybeToOptional answerOptions)))  +foreign import javascript interruptible+        "$1[\"setLocalDescription\"]($2).\nthen($c);"+        js_setLocalDescription ::+        RTCPeerConnection -> RTCSessionDescription -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.setLocalDescription Mozilla webkitRTCPeerConnection.setLocalDescription documentation> +setLocalDescription ::+                    (MonadIO m) => RTCPeerConnection -> RTCSessionDescription -> m ()+setLocalDescription self description+  = liftIO (js_setLocalDescription self description)+ +foreign import javascript interruptible+        "$1[\"setRemoteDescription\"]($2).\nthen($c);"+        js_setRemoteDescription ::+        RTCPeerConnection -> RTCSessionDescription -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.setRemoteDescription Mozilla webkitRTCPeerConnection.setRemoteDescription documentation> +setRemoteDescription ::+                     (MonadIO m) => RTCPeerConnection -> RTCSessionDescription -> m ()+setRemoteDescription self description+  = liftIO (js_setRemoteDescription self description)+ +foreign import javascript interruptible+        "$1[\"addIceCandidate\"]($2).\nthen($c);" js_addIceCandidate ::+        RTCPeerConnection -> RTCIceCandidate -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.addIceCandidate Mozilla webkitRTCPeerConnection.addIceCandidate documentation> +addIceCandidate ::+                (MonadIO m) => RTCPeerConnection -> RTCIceCandidate -> m ()+addIceCandidate self candidate+  = liftIO (js_addIceCandidate self candidate)+  foreign import javascript unsafe "$1[\"getConfiguration\"]()"-        js_getConfiguration ::-        RTCPeerConnection -> IO (Nullable RTCConfiguration)+        js_getConfiguration :: RTCPeerConnection -> IO 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)))+                 (MonadIO m) => RTCPeerConnection -> m RTCConfiguration+getConfiguration self = liftIO (js_getConfiguration self)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.getConfiguration Mozilla webkitRTCPeerConnection.getConfiguration documentation>  getConfiguration_ :: (MonadIO m) => RTCPeerConnection -> m ()-getConfiguration_ self = liftIO (void (js_getConfiguration (self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.getConfiguration Mozilla webkitRTCPeerConnection.getConfiguration documentation> -getConfigurationUnsafe ::-                       (MonadIO m, HasCallStack) =>-                         RTCPeerConnection -> m RTCConfiguration-getConfigurationUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getConfiguration (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.getConfiguration Mozilla webkitRTCPeerConnection.getConfiguration documentation> -getConfigurationUnchecked ::-                          (MonadIO m) => RTCPeerConnection -> m RTCConfiguration-getConfigurationUnchecked self-  = liftIO-      (fromJust . 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))+getConfiguration_ self = liftIO (void (js_getConfiguration self))  -foreign import javascript unsafe "$1[\"removeStream\"]($2)"-        js_removeStream ::-        RTCPeerConnection -> Nullable MediaStream -> IO ()+foreign import javascript unsafe "$1[\"setConfiguration\"]($2)"+        js_setConfiguration ::+        RTCPeerConnection -> RTCConfiguration -> 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))+-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.setConfiguration Mozilla webkitRTCPeerConnection.setConfiguration documentation> +setConfiguration ::+                 (MonadIO m) => RTCPeerConnection -> RTCConfiguration -> m ()+setConfiguration self configuration+  = liftIO (js_setConfiguration self configuration)  -foreign import javascript unsafe "$1[\"getStats\"]($2, $3, $4)"-        js_getStats ::-        RTCPeerConnection ->-          Nullable RTCStatsCallback ->-            Nullable RTCPeerConnectionErrorCallback ->-              Nullable MediaStreamTrack -> IO ()+foreign import javascript interruptible+        "$1[\"getStats\"]($2).then($c);" js_getStats ::+        RTCPeerConnection -> Optional MediaStreamTrack -> IO RTCStatsReport  -- | <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)))+         (MonadIO m) =>+           RTCPeerConnection -> Maybe MediaStreamTrack -> m RTCStatsReport+getStats self selector+  = liftIO (js_getStats self (maybeToOptional selector))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.getStats Mozilla webkitRTCPeerConnection.getStats documentation> +getStats_ ::+          (MonadIO m) => RTCPeerConnection -> Maybe MediaStreamTrack -> m ()+getStats_ self selector+  = liftIO (void (js_getStats self (maybeToOptional selector)))   foreign import javascript unsafe         "$1[\"createDataChannel\"]($2, $3)" js_createDataChannel ::         RTCPeerConnection ->-          Nullable JSString ->-            Nullable Dictionary -> IO (Nullable RTCDataChannel)+          Optional JSString ->+            Optional RTCDataChannelInit -> IO RTCDataChannel  -- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.createDataChannel Mozilla webkitRTCPeerConnection.createDataChannel documentation>  createDataChannel ::-                  (MonadIO m, ToJSString label, IsDictionary options) =>+                  (MonadIO m, ToJSString label) =>                     RTCPeerConnection ->-                      Maybe label -> Maybe options -> m (Maybe RTCDataChannel)+                      Maybe label -> Maybe RTCDataChannelInit -> m RTCDataChannel createDataChannel self label options   = liftIO-      (nullableToMaybe <$>-         (js_createDataChannel (self) (toMaybeJSString label)-            (maybeToNullable (fmap toDictionary options))))+      (js_createDataChannel self (toOptionalJSString label)+         (maybeToOptional options))  -- | <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 ()+                   (MonadIO m, ToJSString label) =>+                     RTCPeerConnection ->+                       Maybe label -> Maybe RTCDataChannelInit -> m () createDataChannel_ self label options   = liftIO       (void-         (js_createDataChannel (self) (toMaybeJSString label)-            (maybeToNullable (fmap toDictionary options))))---- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.createDataChannel Mozilla webkitRTCPeerConnection.createDataChannel documentation> -createDataChannelUnsafe ::-                        (MonadIO m, ToJSString label, IsDictionary options,-                         HasCallStack) =>-                          RTCPeerConnection ->-                            Maybe label -> Maybe options -> m RTCDataChannel-createDataChannelUnsafe self label options-  = liftIO-      ((nullableToMaybe <$>-          (js_createDataChannel (self) (toMaybeJSString label)-             (maybeToNullable (fmap toDictionary options))))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.createDataChannel Mozilla webkitRTCPeerConnection.createDataChannel documentation> -createDataChannelUnchecked ::-                           (MonadIO m, ToJSString label, IsDictionary options) =>-                             RTCPeerConnection ->-                               Maybe label -> Maybe options -> m RTCDataChannel-createDataChannelUnchecked self label options-  = liftIO-      (fromJust . 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))))---- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.createDTMFSender Mozilla webkitRTCPeerConnection.createDTMFSender documentation> -createDTMFSender_ ::-                  (MonadIO m, IsMediaStreamTrack track) =>-                    RTCPeerConnection -> Maybe track -> m ()-createDTMFSender_ self track-  = liftIO-      (void-         (js_createDTMFSender (self)-            (maybeToNullable (fmap toMediaStreamTrack track))))---- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.createDTMFSender Mozilla webkitRTCPeerConnection.createDTMFSender documentation> -createDTMFSenderUnsafe ::-                       (MonadIO m, IsMediaStreamTrack track, HasCallStack) =>-                         RTCPeerConnection -> Maybe track -> m RTCDTMFSender-createDTMFSenderUnsafe self track-  = liftIO-      ((nullableToMaybe <$>-          (js_createDTMFSender (self)-             (maybeToNullable (fmap toMediaStreamTrack track))))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.createDTMFSender Mozilla webkitRTCPeerConnection.createDTMFSender documentation> -createDTMFSenderUnchecked ::-                          (MonadIO m, IsMediaStreamTrack track) =>-                            RTCPeerConnection -> Maybe track -> m RTCDTMFSender-createDTMFSenderUnchecked self track-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_createDTMFSender (self)-            (maybeToNullable (fmap toMediaStreamTrack track))))+         (js_createDataChannel self (toOptionalJSString label)+            (maybeToOptional options)))   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))+close self = liftIO (js_close self)   foreign import javascript unsafe "$1[\"localDescription\"]"         js_getLocalDescription ::-        RTCPeerConnection -> IO (Nullable RTCSessionDescription)+        RTCPeerConnection -> IO 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)))+                    (MonadIO m) => RTCPeerConnection -> m RTCSessionDescription+getLocalDescription self = liftIO (js_getLocalDescription self)+ +foreign import javascript unsafe "$1[\"currentLocalDescription\"]"+        js_getCurrentLocalDescription ::+        RTCPeerConnection -> IO RTCSessionDescription --- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.localDescription Mozilla webkitRTCPeerConnection.localDescription documentation> -getLocalDescriptionUnsafe ::-                          (MonadIO m, HasCallStack) =>-                            RTCPeerConnection -> m RTCSessionDescription-getLocalDescriptionUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getLocalDescription (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.currentLocalDescription Mozilla webkitRTCPeerConnection.currentLocalDescription documentation> +getCurrentLocalDescription ::+                           (MonadIO m) => RTCPeerConnection -> m RTCSessionDescription+getCurrentLocalDescription self+  = liftIO (js_getCurrentLocalDescription self)+ +foreign import javascript unsafe "$1[\"pendingLocalDescription\"]"+        js_getPendingLocalDescription ::+        RTCPeerConnection -> IO RTCSessionDescription --- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.localDescription Mozilla webkitRTCPeerConnection.localDescription documentation> -getLocalDescriptionUnchecked ::-                             (MonadIO m) => RTCPeerConnection -> m RTCSessionDescription-getLocalDescriptionUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$> (js_getLocalDescription (self)))+-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.pendingLocalDescription Mozilla webkitRTCPeerConnection.pendingLocalDescription documentation> +getPendingLocalDescription ::+                           (MonadIO m) => RTCPeerConnection -> m RTCSessionDescription+getPendingLocalDescription self+  = liftIO (js_getPendingLocalDescription self)   foreign import javascript unsafe "$1[\"remoteDescription\"]"         js_getRemoteDescription ::-        RTCPeerConnection -> IO (Nullable RTCSessionDescription)+        RTCPeerConnection -> IO 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)))+                     (MonadIO m) => RTCPeerConnection -> m RTCSessionDescription+getRemoteDescription self = liftIO (js_getRemoteDescription self)+ +foreign import javascript unsafe "$1[\"currentRemoteDescription\"]"+        js_getCurrentRemoteDescription ::+        RTCPeerConnection -> IO RTCSessionDescription --- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.remoteDescription Mozilla webkitRTCPeerConnection.remoteDescription documentation> -getRemoteDescriptionUnsafe ::-                           (MonadIO m, HasCallStack) =>-                             RTCPeerConnection -> m RTCSessionDescription-getRemoteDescriptionUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getRemoteDescription (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.currentRemoteDescription Mozilla webkitRTCPeerConnection.currentRemoteDescription documentation> +getCurrentRemoteDescription ::+                            (MonadIO m) => RTCPeerConnection -> m RTCSessionDescription+getCurrentRemoteDescription self+  = liftIO (js_getCurrentRemoteDescription self)+ +foreign import javascript unsafe "$1[\"pendingRemoteDescription\"]"+        js_getPendingRemoteDescription ::+        RTCPeerConnection -> IO RTCSessionDescription --- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.remoteDescription Mozilla webkitRTCPeerConnection.remoteDescription documentation> -getRemoteDescriptionUnchecked ::-                              (MonadIO m) => RTCPeerConnection -> m RTCSessionDescription-getRemoteDescriptionUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$> (js_getRemoteDescription (self)))+-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.pendingRemoteDescription Mozilla webkitRTCPeerConnection.pendingRemoteDescription documentation> +getPendingRemoteDescription ::+                            (MonadIO m) => RTCPeerConnection -> m RTCSessionDescription+getPendingRemoteDescription self+  = liftIO (js_getPendingRemoteDescription self)   foreign import javascript unsafe "$1[\"signalingState\"]"         js_getSignalingState :: RTCPeerConnection -> IO JSString@@ -469,7 +437,7 @@ getSignalingState ::                   (MonadIO m, FromJSString result) => RTCPeerConnection -> m result getSignalingState self-  = liftIO (fromJSString <$> (js_getSignalingState (self)))+  = liftIO (fromJSString <$> (js_getSignalingState self))   foreign import javascript unsafe "$1[\"iceGatheringState\"]"         js_getIceGatheringState :: RTCPeerConnection -> IO JSString@@ -478,7 +446,7 @@ getIceGatheringState ::                      (MonadIO m, FromJSString result) => RTCPeerConnection -> m result getIceGatheringState self-  = liftIO (fromJSString <$> (js_getIceGatheringState (self)))+  = liftIO (fromJSString <$> (js_getIceGatheringState self))   foreign import javascript unsafe "$1[\"iceConnectionState\"]"         js_getIceConnectionState :: RTCPeerConnection -> IO JSString@@ -487,7 +455,7 @@ getIceConnectionState ::                       (MonadIO m, FromJSString result) => RTCPeerConnection -> m result getIceConnectionState self-  = liftIO (fromJSString <$> (js_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@@ -503,19 +471,25 @@ 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.ontrack Mozilla webkitRTCPeerConnection.ontrack documentation> +track :: EventName RTCPeerConnection ontrack+track = unsafeEventName (toJSString "track")  -- | <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.onicegatheringstatechange Mozilla webkitRTCPeerConnection.onicegatheringstatechange documentation> +icegatheringstatechange ::+                          EventName RTCPeerConnection onicegatheringstatechange+icegatheringstatechange+  = unsafeEventName (toJSString "icegatheringstatechange")+ -- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.ondatachannel Mozilla webkitRTCPeerConnection.ondatachannel documentation>  dataChannel :: EventName RTCPeerConnection Event dataChannel = unsafeEventName (toJSString "datachannel")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.onaddstream Mozilla webkitRTCPeerConnection.onaddstream documentation> +addStreamEvent :: EventName RTCPeerConnection Event+addStreamEvent = unsafeEventName (toJSString "addstream")
− src/GHCJS/DOM/JSFFI/Generated/RTCPeerConnectionErrorCallback.hs 
@@ -1,63 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility-{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}-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 qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)-import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))-import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import 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/RTCRtpReceiver.hs view
@@ -0,0 +1,33 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+module GHCJS.DOM.JSFFI.Generated.RTCRtpReceiver+       (js_getTrack, getTrack, RTCRtpReceiver(..), gTypeRTCRtpReceiver)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error)+import Data.Typeable (Typeable)+import GHCJS.Types (JSVal(..), JSString)+import GHCJS.Foreign (jsNull, jsUndefined)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Control.Monad (void)+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import Data.Maybe (fromJust)+import Data.Traversable (mapM)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"track\"]" js_getTrack ::+        RTCRtpReceiver -> IO MediaStreamTrack++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCRtpReceiver.track Mozilla RTCRtpReceiver.track documentation> +getTrack :: (MonadIO m) => RTCRtpReceiver -> m MediaStreamTrack+getTrack self = liftIO (js_getTrack self)
+ src/GHCJS/DOM/JSFFI/Generated/RTCRtpSender.hs view
@@ -0,0 +1,60 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+module GHCJS.DOM.JSFFI.Generated.RTCRtpSender+       (js_replaceTrack, replaceTrack, js_getTrack, getTrack,+        getTrackUnsafe, getTrackUnchecked, RTCRtpSender(..),+        gTypeRTCRtpSender)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error)+import Data.Typeable (Typeable)+import GHCJS.Types (JSVal(..), JSString)+import GHCJS.Foreign (jsNull, jsUndefined)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Control.Monad (void)+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import Data.Maybe (fromJust)+import Data.Traversable (mapM)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.JSFFI.Generated.Enums+ +foreign import javascript interruptible+        "$1[\"replaceTrack\"]($2).then($c);" js_replaceTrack ::+        RTCRtpSender -> MediaStreamTrack -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCRtpSender.replaceTrack Mozilla RTCRtpSender.replaceTrack documentation> +replaceTrack ::+             (MonadIO m) => RTCRtpSender -> MediaStreamTrack -> m ()+replaceTrack self withTrack+  = liftIO (js_replaceTrack self withTrack)+ +foreign import javascript unsafe "$1[\"track\"]" js_getTrack ::+        RTCRtpSender -> IO (Nullable MediaStreamTrack)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCRtpSender.track Mozilla RTCRtpSender.track documentation> +getTrack ::+         (MonadIO m) => RTCRtpSender -> m (Maybe MediaStreamTrack)+getTrack self = liftIO (nullableToMaybe <$> (js_getTrack self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCRtpSender.track Mozilla RTCRtpSender.track documentation> +getTrackUnsafe ::+               (MonadIO m, HasCallStack) => RTCRtpSender -> m MediaStreamTrack+getTrackUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getTrack self)) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCRtpSender.track Mozilla RTCRtpSender.track documentation> +getTrackUnchecked ::+                  (MonadIO m) => RTCRtpSender -> m MediaStreamTrack+getTrackUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getTrack self))
+ src/GHCJS/DOM/JSFFI/Generated/RTCRtpTransceiver.hs view
@@ -0,0 +1,101 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+module GHCJS.DOM.JSFFI.Generated.RTCRtpTransceiver+       (js_setDirection, setDirection, js_stop, stop, js_getMid, getMid,+        getMidUnsafe, getMidUnchecked, js_getSender, getSender,+        js_getReceiver, getReceiver, js_getStopped, getStopped,+        js_getDirection, getDirection, RTCRtpTransceiver(..),+        gTypeRTCRtpTransceiver)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error)+import Data.Typeable (Typeable)+import GHCJS.Types (JSVal(..), JSString)+import GHCJS.Foreign (jsNull, jsUndefined)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Control.Monad (void)+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import Data.Maybe (fromJust)+import Data.Traversable (mapM)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"setDirection\"]($2)"+        js_setDirection :: RTCRtpTransceiver -> JSVal -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCRtpTransceiver.setDirection Mozilla RTCRtpTransceiver.setDirection documentation> +setDirection ::+             (MonadIO m) =>+               RTCRtpTransceiver -> RTCRtpTransceiverDirection -> m ()+setDirection self direction+  = liftIO (js_setDirection self (pToJSVal direction))+ +foreign import javascript unsafe "$1[\"stop\"]()" js_stop ::+        RTCRtpTransceiver -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCRtpTransceiver.stop Mozilla RTCRtpTransceiver.stop documentation> +stop :: (MonadIO m) => RTCRtpTransceiver -> m ()+stop self = liftIO (js_stop self)+ +foreign import javascript unsafe "$1[\"mid\"]" js_getMid ::+        RTCRtpTransceiver -> IO (Nullable JSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCRtpTransceiver.mid Mozilla RTCRtpTransceiver.mid documentation> +getMid ::+       (MonadIO m, FromJSString result) =>+         RTCRtpTransceiver -> m (Maybe result)+getMid self = liftIO (fromMaybeJSString <$> (js_getMid self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCRtpTransceiver.mid Mozilla RTCRtpTransceiver.mid documentation> +getMidUnsafe ::+             (MonadIO m, HasCallStack, FromJSString result) =>+               RTCRtpTransceiver -> m result+getMidUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getMid self)) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCRtpTransceiver.mid Mozilla RTCRtpTransceiver.mid documentation> +getMidUnchecked ::+                (MonadIO m, FromJSString result) => RTCRtpTransceiver -> m result+getMidUnchecked self+  = liftIO (fromJust . fromMaybeJSString <$> (js_getMid self))+ +foreign import javascript unsafe "$1[\"sender\"]" js_getSender ::+        RTCRtpTransceiver -> IO RTCRtpSender++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCRtpTransceiver.sender Mozilla RTCRtpTransceiver.sender documentation> +getSender :: (MonadIO m) => RTCRtpTransceiver -> m RTCRtpSender+getSender self = liftIO (js_getSender self)+ +foreign import javascript unsafe "$1[\"receiver\"]" js_getReceiver+        :: RTCRtpTransceiver -> IO RTCRtpReceiver++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCRtpTransceiver.receiver Mozilla RTCRtpTransceiver.receiver documentation> +getReceiver :: (MonadIO m) => RTCRtpTransceiver -> m RTCRtpReceiver+getReceiver self = liftIO (js_getReceiver self)+ +foreign import javascript unsafe "($1[\"stopped\"] ? 1 : 0)"+        js_getStopped :: RTCRtpTransceiver -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCRtpTransceiver.stopped Mozilla RTCRtpTransceiver.stopped documentation> +getStopped :: (MonadIO m) => RTCRtpTransceiver -> m Bool+getStopped self = liftIO (js_getStopped self)+ +foreign import javascript unsafe "$1[\"direction\"]"+        js_getDirection :: RTCRtpTransceiver -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCRtpTransceiver.direction Mozilla RTCRtpTransceiver.direction documentation> +getDirection ::+             (MonadIO m) => RTCRtpTransceiver -> m RTCRtpTransceiverDirection+getDirection self+  = liftIO ((js_getDirection self) >>= fromJSValUnchecked)
src/GHCJS/DOM/JSFFI/Generated/RTCSessionDescription.hs view
@@ -4,15 +4,15 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.RTCSessionDescription-       (js_newRTCSessionDescription, newRTCSessionDescription, js_setType,-        setType, js_getType, getType, js_setSdp, setSdp, js_getSdp, getSdp,-        RTCSessionDescription(..), gTypeRTCSessionDescription)+       (js_newRTCSessionDescription, newRTCSessionDescription, js_getType,+        getType, js_getSdp, getSdp, RTCSessionDescription(..),+        gTypeRTCSessionDescription)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -21,6 +21,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -29,41 +30,20 @@ foreign import javascript unsafe         "new window[\"RTCSessionDescription\"]($1)"         js_newRTCSessionDescription ::-        Nullable Dictionary -> IO RTCSessionDescription+        RTCSessionDescriptionInit -> 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))+                         (MonadIO m) => RTCSessionDescriptionInit -> m RTCSessionDescription+newRTCSessionDescription descriptionInitDict+  = liftIO (js_newRTCSessionDescription descriptionInitDict)   foreign import javascript unsafe "$1[\"type\"]" js_getType ::-        RTCSessionDescription -> IO JSString+        RTCSessionDescription -> IO JSVal  -- | <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))+getType :: (MonadIO m) => RTCSessionDescription -> m RTCSdpType+getType self = liftIO ((js_getType self) >>= fromJSValUnchecked)   foreign import javascript unsafe "$1[\"sdp\"]" js_getSdp ::         RTCSessionDescription -> IO JSString@@ -72,4 +52,4 @@ getSdp ::        (MonadIO m, FromJSString result) =>          RTCSessionDescription -> m result-getSdp self = liftIO (fromJSString <$> (js_getSdp (self)))+getSdp self = liftIO (fromJSString <$> (js_getSdp self))
− src/GHCJS/DOM/JSFFI/Generated/RTCSessionDescriptionCallback.hs 
@@ -1,61 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility-{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}-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 qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)-import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))-import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import 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 
@@ -1,59 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility-{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}-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 qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)-import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))-import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import 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 
@@ -1,137 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility-{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}-module GHCJS.DOM.JSFFI.Generated.RTCStatsReport-       (js_stat, stat, stat_, js_names, names, names_, js_getTimestamp,-        getTimestamp, getTimestampUnsafe, getTimestampUnchecked, js_getId,-        getId, js_getType, getType, js_getLocal, getLocal, getLocalUnsafe,-        getLocalUnchecked, js_getRemote, getRemote, getRemoteUnsafe,-        getRemoteUnchecked, RTCStatsReport(..), gTypeRTCStatsReport)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)-import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))-import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCStatsReport.stat Mozilla RTCStatsReport.stat documentation> -stat_ ::-      (MonadIO m, ToJSString name) => RTCStatsReport -> name -> m ()-stat_ self name = liftIO (void (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)---- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCStatsReport.names Mozilla RTCStatsReport.names documentation> -names_ :: (MonadIO m) => RTCStatsReport -> m ()-names_ self = liftIO (void (js_names (self)))- -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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCStatsReport.timestamp Mozilla RTCStatsReport.timestamp documentation> -getTimestampUnsafe ::-                   (MonadIO m, HasCallStack) => RTCStatsReport -> m Date-getTimestampUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getTimestamp (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCStatsReport.timestamp Mozilla RTCStatsReport.timestamp documentation> -getTimestampUnchecked :: (MonadIO m) => RTCStatsReport -> m Date-getTimestampUnchecked self-  = liftIO (fromJust . 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCStatsReport.local Mozilla RTCStatsReport.local documentation> -getLocalUnsafe ::-               (MonadIO m, HasCallStack) => RTCStatsReport -> m RTCStatsReport-getLocalUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getLocal (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCStatsReport.local Mozilla RTCStatsReport.local documentation> -getLocalUnchecked ::-                  (MonadIO m) => RTCStatsReport -> m RTCStatsReport-getLocalUnchecked self-  = liftIO (fromJust . 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCStatsReport.remote Mozilla RTCStatsReport.remote documentation> -getRemoteUnsafe ::-                (MonadIO m, HasCallStack) => RTCStatsReport -> m RTCStatsReport-getRemoteUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getRemote (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCStatsReport.remote Mozilla RTCStatsReport.remote documentation> -getRemoteUnchecked ::-                   (MonadIO m) => RTCStatsReport -> m RTCStatsReport-getRemoteUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getRemote (self)))
− src/GHCJS/DOM/JSFFI/Generated/RTCStatsResponse.hs 
@@ -1,75 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility-{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}-module GHCJS.DOM.JSFFI.Generated.RTCStatsResponse-       (js_result, result, result_, js_namedItem, namedItem, namedItem_,-        namedItemUnsafe, namedItemUnchecked, RTCStatsResponse(..),-        gTypeRTCStatsResponse)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)-import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))-import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import 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)---- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCStatsResponse.result Mozilla RTCStatsResponse.result documentation> -result_ :: (MonadIO m) => RTCStatsResponse -> m ()-result_ self = liftIO (void (js_result (self)))- -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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCStatsResponse.namedItem Mozilla RTCStatsResponse.namedItem documentation> -namedItem_ ::-           (MonadIO m, ToJSString name) => RTCStatsResponse -> name -> m ()-namedItem_ self name-  = liftIO (void (js_namedItem (self) (toJSString name)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCStatsResponse.namedItem Mozilla RTCStatsResponse.namedItem documentation> -namedItemUnsafe ::-                (MonadIO m, ToJSString name, HasCallStack) =>-                  RTCStatsResponse -> name -> m RTCStatsReport-namedItemUnsafe self name-  = liftIO-      ((nullableToMaybe <$> (js_namedItem (self) (toJSString name))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCStatsResponse.namedItem Mozilla RTCStatsResponse.namedItem documentation> -namedItemUnchecked ::-                   (MonadIO m, ToJSString name) =>-                     RTCStatsResponse -> name -> m RTCStatsReport-namedItemUnchecked self name-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_namedItem (self) (toJSString name)))
+ src/GHCJS/DOM/JSFFI/Generated/RTCTrackEvent.hs view
@@ -0,0 +1,70 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+module GHCJS.DOM.JSFFI.Generated.RTCTrackEvent+       (js_newRTCTrackEvent, newRTCTrackEvent, js_getReceiver,+        getReceiver, js_getTrack, getTrack, js_getStreams, getStreams,+        js_getTransceiver, getTransceiver, RTCTrackEvent(..),+        gTypeRTCTrackEvent)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error)+import Data.Typeable (Typeable)+import GHCJS.Types (JSVal(..), JSString)+import GHCJS.Foreign (jsNull, jsUndefined)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Control.Monad (void)+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import Data.Maybe (fromJust)+import Data.Traversable (mapM)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.JSFFI.Generated.Enums+ +foreign import javascript unsafe+        "new window[\"RTCTrackEvent\"]($1,\n$2)" js_newRTCTrackEvent ::+        JSString -> RTCTrackEventInit -> IO RTCTrackEvent++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCTrackEvent Mozilla RTCTrackEvent documentation> +newRTCTrackEvent ::+                 (MonadIO m, ToJSString type') =>+                   type' -> RTCTrackEventInit -> m RTCTrackEvent+newRTCTrackEvent type' eventInitDict+  = liftIO (js_newRTCTrackEvent (toJSString type') eventInitDict)+ +foreign import javascript unsafe "$1[\"receiver\"]" js_getReceiver+        :: RTCTrackEvent -> IO RTCRtpReceiver++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCTrackEvent.receiver Mozilla RTCTrackEvent.receiver documentation> +getReceiver :: (MonadIO m) => RTCTrackEvent -> m RTCRtpReceiver+getReceiver self = liftIO (js_getReceiver self)+ +foreign import javascript unsafe "$1[\"track\"]" js_getTrack ::+        RTCTrackEvent -> IO MediaStreamTrack++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCTrackEvent.track Mozilla RTCTrackEvent.track documentation> +getTrack :: (MonadIO m) => RTCTrackEvent -> m MediaStreamTrack+getTrack self = liftIO (js_getTrack self)+ +foreign import javascript unsafe "$1[\"streams\"]" js_getStreams ::+        RTCTrackEvent -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCTrackEvent.streams Mozilla RTCTrackEvent.streams documentation> +getStreams :: (MonadIO m) => RTCTrackEvent -> m [MediaStream]+getStreams self+  = liftIO ((js_getStreams self) >>= fromJSValUnchecked)+ +foreign import javascript unsafe "$1[\"transceiver\"]"+        js_getTransceiver :: RTCTrackEvent -> IO RTCRtpTransceiver++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCTrackEvent.transceiver Mozilla RTCTrackEvent.transceiver documentation> +getTransceiver ::+               (MonadIO m) => RTCTrackEvent -> m RTCRtpTransceiver+getTransceiver self = liftIO (js_getTransceiver self)
src/GHCJS/DOM/JSFFI/Generated/RadioNodeList.hs view
@@ -4,15 +4,14 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.RadioNodeList-       (js__get, _get, _get_, _getUnsafe, _getUnchecked, js_setValue,-        setValue, js_getValue, getValue, RadioNodeList(..),-        gTypeRadioNodeList)+       (js_get, get, get_, js_setValue, setValue, js_getValue, getValue,+        RadioNodeList(..), gTypeRadioNodeList)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -21,35 +20,22 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) 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))---- | <https://developer.mozilla.org/en-US/docs/Web/API/RadioNodeList._get Mozilla RadioNodeList._get documentation> -_get_ :: (MonadIO m) => RadioNodeList -> Word -> m ()-_get_ self index = liftIO (void (js__get (self) index))+foreign import javascript unsafe "$1[$2]" js_get ::+        RadioNodeList -> Word -> IO HTMLElement --- | <https://developer.mozilla.org/en-US/docs/Web/API/RadioNodeList._get Mozilla RadioNodeList._get documentation> -_getUnsafe ::-           (MonadIO m, HasCallStack) => RadioNodeList -> Word -> m Node-_getUnsafe self index-  = liftIO-      ((nullableToMaybe <$> (js__get (self) index)) >>=-         maybe (Prelude.error "Nothing to return") return)+-- | <https://developer.mozilla.org/en-US/docs/Web/API/RadioNodeList.get Mozilla RadioNodeList.get documentation> +get :: (MonadIO m) => RadioNodeList -> Word -> m HTMLElement+get self index = liftIO (js_get self index) --- | <https://developer.mozilla.org/en-US/docs/Web/API/RadioNodeList._get Mozilla RadioNodeList._get documentation> -_getUnchecked :: (MonadIO m) => RadioNodeList -> Word -> m Node-_getUnchecked self index-  = liftIO (fromJust . nullableToMaybe <$> (js__get (self) index))+-- | <https://developer.mozilla.org/en-US/docs/Web/API/RadioNodeList.get Mozilla RadioNodeList.get documentation> +get_ :: (MonadIO m) => RadioNodeList -> Word -> m ()+get_ self index = liftIO (void (js_get self index))   foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue         :: RadioNodeList -> JSString -> IO ()@@ -57,7 +43,7 @@ -- | <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))+setValue self val = liftIO (js_setValue self (toJSString val))   foreign import javascript unsafe "$1[\"value\"]" js_getValue ::         RadioNodeList -> IO JSString@@ -65,4 +51,4 @@ -- | <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)))+getValue self = liftIO (fromJSString <$> (js_getValue self))
src/GHCJS/DOM/JSFFI/Generated/Range.hs view
@@ -7,44 +7,35 @@        (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_collapse, collapse, js_expand, expand, js_selectNode,+        selectNode, js_selectNodeContents, selectNodeContents,         js_compareBoundaryPoints, compareBoundaryPoints,         compareBoundaryPoints_, js_deleteContents, deleteContents,         js_extractContents, extractContents, extractContents_,-        extractContentsUnsafe, extractContentsUnchecked, js_cloneContents,-        cloneContents, cloneContents_, cloneContentsUnsafe,-        cloneContentsUnchecked, js_insertNode, insertNode,-        js_surroundContents, surroundContents, js_cloneRange, cloneRange,-        cloneRange_, cloneRangeUnsafe, cloneRangeUnchecked, js_toString,-        toString, toString_, js_detach, detach, js_getClientRects,-        getClientRects, getClientRects_, getClientRectsUnsafe,-        getClientRectsUnchecked, js_getBoundingClientRect,-        getBoundingClientRect, getBoundingClientRect_,-        getBoundingClientRectUnsafe, getBoundingClientRectUnchecked,-        js_createContextualFragment, createContextualFragment,-        createContextualFragment_, createContextualFragmentUnsafe,-        createContextualFragmentUnchecked, js_intersectsNode,-        intersectsNode, intersectsNode_, js_compareNode, compareNode,-        compareNode_, js_comparePoint, comparePoint, comparePoint_,-        js_isPointInRange, 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,-        getStartContainerUnsafe, getStartContainerUnchecked,-        js_getStartOffset, getStartOffset, js_getEndContainer,-        getEndContainer, getEndContainerUnsafe, getEndContainerUnchecked,+        js_cloneContents, cloneContents, cloneContents_, js_insertNode,+        insertNode, js_surroundContents, surroundContents, js_cloneRange,+        cloneRange, cloneRange_, js_toString, toString, toString_,+        js_detach, detach, js_getClientRects, getClientRects,+        getClientRects_, js_getBoundingClientRect, getBoundingClientRect,+        getBoundingClientRect_, js_createContextualFragment,+        createContextualFragment, createContextualFragment_,+        js_compareNode, compareNode, compareNode_, js_intersectsNode,+        intersectsNode, intersectsNode_, js_comparePoint, comparePoint,+        comparePoint_, js_isPointInRange, isPointInRange, isPointInRange_,+        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,-        getCommonAncestorContainerUnsafe,-        getCommonAncestorContainerUnchecked, Range(..), gTypeRange)+        Range(..), gTypeRange)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -53,6 +44,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -66,421 +58,286 @@ newRange = liftIO (js_newRange)   foreign import javascript unsafe "$1[\"setStart\"]($2, $3)"-        js_setStart :: Range -> Nullable Node -> Int -> IO ()+        js_setStart :: Range -> Node -> Word -> 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 ()+         (MonadIO m, IsNode refNode) => Range -> refNode -> Word -> m () setStart self refNode offset-  = liftIO-      (js_setStart (self) (maybeToNullable (fmap toNode refNode)) offset)+  = liftIO (js_setStart self (toNode refNode) offset)   foreign import javascript unsafe "$1[\"setEnd\"]($2, $3)" js_setEnd-        :: Range -> Nullable Node -> Int -> IO ()+        :: Range -> Node -> Word -> 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 ()+       (MonadIO m, IsNode refNode) => Range -> refNode -> Word -> m () setEnd self refNode offset-  = liftIO-      (js_setEnd (self) (maybeToNullable (fmap toNode refNode)) offset)+  = liftIO (js_setEnd self (toNode refNode) offset)   foreign import javascript unsafe "$1[\"setStartBefore\"]($2)"-        js_setStartBefore :: Range -> Nullable Node -> IO ()+        js_setStartBefore :: Range -> 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 ()+               (MonadIO m, IsNode refNode) => Range -> refNode -> m () setStartBefore self refNode-  = liftIO-      (js_setStartBefore (self) (maybeToNullable (fmap toNode refNode)))+  = liftIO (js_setStartBefore self (toNode refNode))   foreign import javascript unsafe "$1[\"setStartAfter\"]($2)"-        js_setStartAfter :: Range -> Nullable Node -> IO ()+        js_setStartAfter :: Range -> 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 ()+              (MonadIO m, IsNode refNode) => Range -> refNode -> m () setStartAfter self refNode-  = liftIO-      (js_setStartAfter (self) (maybeToNullable (fmap toNode refNode)))+  = liftIO (js_setStartAfter self (toNode refNode))   foreign import javascript unsafe "$1[\"setEndBefore\"]($2)"-        js_setEndBefore :: Range -> Nullable Node -> IO ()+        js_setEndBefore :: Range -> 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 ()+             (MonadIO m, IsNode refNode) => Range -> refNode -> m () setEndBefore self refNode-  = liftIO-      (js_setEndBefore (self) (maybeToNullable (fmap toNode refNode)))+  = liftIO (js_setEndBefore self (toNode refNode))   foreign import javascript unsafe "$1[\"setEndAfter\"]($2)"-        js_setEndAfter :: Range -> Nullable Node -> IO ()+        js_setEndAfter :: Range -> 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 ()+            (MonadIO m, IsNode refNode) => Range -> refNode -> m () setEndAfter self refNode-  = liftIO-      (js_setEndAfter (self) (maybeToNullable (fmap toNode refNode)))+  = liftIO (js_setEndAfter self (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)+collapse self toStart = liftIO (js_collapse self toStart)  +foreign import javascript unsafe "$1[\"expand\"]($2)" js_expand ::+        Range -> Optional JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.expand Mozilla Range.expand documentation> +expand ::+       (MonadIO m, ToJSString unit) => Range -> Maybe unit -> m ()+expand self unit+  = liftIO (js_expand self (toOptionalJSString unit))+  foreign import javascript unsafe "$1[\"selectNode\"]($2)"-        js_selectNode :: Range -> Nullable Node -> IO ()+        js_selectNode :: Range -> 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 ()+           (MonadIO m, IsNode refNode) => Range -> refNode -> m () selectNode self refNode-  = liftIO-      (js_selectNode (self) (maybeToNullable (fmap toNode refNode)))+  = liftIO (js_selectNode self (toNode refNode))   foreign import javascript unsafe "$1[\"selectNodeContents\"]($2)"-        js_selectNodeContents :: Range -> Nullable Node -> IO ()+        js_selectNodeContents :: Range -> 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 ()+                   (MonadIO m, IsNode refNode) => Range -> refNode -> m () selectNodeContents self refNode-  = liftIO-      (js_selectNodeContents (self)-         (maybeToNullable (fmap toNode refNode)))+  = liftIO (js_selectNodeContents self (toNode refNode))   foreign import javascript unsafe         "$1[\"compareBoundaryPoints\"]($2,\n$3)" js_compareBoundaryPoints-        :: Range -> Word -> Nullable Range -> IO Int+        :: Range -> Word -> 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+                      (MonadIO m) => Range -> Word -> Range -> m Int compareBoundaryPoints self how sourceRange-  = liftIO-      (js_compareBoundaryPoints (self) how (maybeToNullable sourceRange))+  = liftIO (js_compareBoundaryPoints self how sourceRange)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.compareBoundaryPoints Mozilla Range.compareBoundaryPoints documentation>  compareBoundaryPoints_ ::-                       (MonadIO m) => Range -> Word -> Maybe Range -> m ()+                       (MonadIO m) => Range -> Word -> Range -> m () compareBoundaryPoints_ self how sourceRange-  = liftIO-      (void-         (js_compareBoundaryPoints (self) how-            (maybeToNullable sourceRange)))+  = liftIO (void (js_compareBoundaryPoints self how 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))+deleteContents self = liftIO (js_deleteContents self)   foreign import javascript unsafe "$1[\"extractContents\"]()"-        js_extractContents :: Range -> IO (Nullable DocumentFragment)+        js_extractContents :: Range -> IO 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)))+extractContents :: (MonadIO m) => Range -> m DocumentFragment+extractContents self = liftIO (js_extractContents self)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.extractContents Mozilla Range.extractContents documentation>  extractContents_ :: (MonadIO m) => Range -> m ()-extractContents_ self = liftIO (void (js_extractContents (self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.extractContents Mozilla Range.extractContents documentation> -extractContentsUnsafe ::-                      (MonadIO m, HasCallStack) => Range -> m DocumentFragment-extractContentsUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_extractContents (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.extractContents Mozilla Range.extractContents documentation> -extractContentsUnchecked ::-                         (MonadIO m) => Range -> m DocumentFragment-extractContentsUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$> (js_extractContents (self)))+extractContents_ self = liftIO (void (js_extractContents self))   foreign import javascript unsafe "$1[\"cloneContents\"]()"-        js_cloneContents :: Range -> IO (Nullable DocumentFragment)+        js_cloneContents :: Range -> IO 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)))+cloneContents :: (MonadIO m) => Range -> m DocumentFragment+cloneContents self = liftIO (js_cloneContents self)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.cloneContents Mozilla Range.cloneContents documentation>  cloneContents_ :: (MonadIO m) => Range -> m ()-cloneContents_ self = liftIO (void (js_cloneContents (self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.cloneContents Mozilla Range.cloneContents documentation> -cloneContentsUnsafe ::-                    (MonadIO m, HasCallStack) => Range -> m DocumentFragment-cloneContentsUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_cloneContents (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.cloneContents Mozilla Range.cloneContents documentation> -cloneContentsUnchecked ::-                       (MonadIO m) => Range -> m DocumentFragment-cloneContentsUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_cloneContents (self)))+cloneContents_ self = liftIO (void (js_cloneContents self))   foreign import javascript unsafe "$1[\"insertNode\"]($2)"-        js_insertNode :: Range -> Nullable Node -> IO ()+        js_insertNode :: Range -> 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 ()+           (MonadIO m, IsNode newNode) => Range -> newNode -> m () insertNode self newNode-  = liftIO-      (js_insertNode (self) (maybeToNullable (fmap toNode newNode)))+  = liftIO (js_insertNode self (toNode newNode))   foreign import javascript unsafe "$1[\"surroundContents\"]($2)"-        js_surroundContents :: Range -> Nullable Node -> IO ()+        js_surroundContents :: Range -> 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 ()+                 (MonadIO m, IsNode newParent) => Range -> newParent -> m () surroundContents self newParent-  = liftIO-      (js_surroundContents (self)-         (maybeToNullable (fmap toNode newParent)))+  = liftIO (js_surroundContents self (toNode newParent))   foreign import javascript unsafe "$1[\"cloneRange\"]()"-        js_cloneRange :: Range -> IO (Nullable Range)+        js_cloneRange :: Range -> IO 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)))+cloneRange :: (MonadIO m) => Range -> m Range+cloneRange self = liftIO (js_cloneRange self)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.cloneRange Mozilla Range.cloneRange documentation>  cloneRange_ :: (MonadIO m) => Range -> m ()-cloneRange_ self = liftIO (void (js_cloneRange (self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.cloneRange Mozilla Range.cloneRange documentation> -cloneRangeUnsafe :: (MonadIO m, HasCallStack) => Range -> m Range-cloneRangeUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_cloneRange (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.cloneRange Mozilla Range.cloneRange documentation> -cloneRangeUnchecked :: (MonadIO m) => Range -> m Range-cloneRangeUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_cloneRange (self)))+cloneRange_ self = liftIO (void (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)))+toString self = liftIO (fromJSString <$> (js_toString self))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.toString Mozilla Range.toString documentation>  toString_ :: (MonadIO m) => Range -> m ()-toString_ self = liftIO (void (js_toString (self)))+toString_ self = liftIO (void (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))+detach self = liftIO (js_detach self)   foreign import javascript unsafe "$1[\"getClientRects\"]()"-        js_getClientRects :: Range -> IO (Nullable ClientRectList)+        js_getClientRects :: Range -> IO 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)))+getClientRects :: (MonadIO m) => Range -> m ClientRectList+getClientRects self = liftIO (js_getClientRects self)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.getClientRects Mozilla Range.getClientRects documentation>  getClientRects_ :: (MonadIO m) => Range -> m ()-getClientRects_ self = liftIO (void (js_getClientRects (self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.getClientRects Mozilla Range.getClientRects documentation> -getClientRectsUnsafe ::-                     (MonadIO m, HasCallStack) => Range -> m ClientRectList-getClientRectsUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getClientRects (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.getClientRects Mozilla Range.getClientRects documentation> -getClientRectsUnchecked :: (MonadIO m) => Range -> m ClientRectList-getClientRectsUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$> (js_getClientRects (self)))+getClientRects_ self = liftIO (void (js_getClientRects self))   foreign import javascript unsafe "$1[\"getBoundingClientRect\"]()"-        js_getBoundingClientRect :: Range -> IO (Nullable ClientRect)+        js_getBoundingClientRect :: Range -> IO 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)))+getBoundingClientRect :: (MonadIO m) => Range -> m ClientRect+getBoundingClientRect self = liftIO (js_getBoundingClientRect self)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.getBoundingClientRect Mozilla Range.getBoundingClientRect documentation>  getBoundingClientRect_ :: (MonadIO m) => Range -> m () getBoundingClientRect_ self-  = liftIO (void (js_getBoundingClientRect (self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.getBoundingClientRect Mozilla Range.getBoundingClientRect documentation> -getBoundingClientRectUnsafe ::-                            (MonadIO m, HasCallStack) => Range -> m ClientRect-getBoundingClientRectUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getBoundingClientRect (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.getBoundingClientRect Mozilla Range.getBoundingClientRect documentation> -getBoundingClientRectUnchecked ::-                               (MonadIO m) => Range -> m ClientRect-getBoundingClientRectUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$> (js_getBoundingClientRect (self)))+  = liftIO (void (js_getBoundingClientRect self))   foreign import javascript unsafe         "$1[\"createContextualFragment\"]($2)" js_createContextualFragment-        :: Range -> JSString -> IO (Nullable DocumentFragment)+        :: Range -> JSString -> IO 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)+                         (MonadIO m, ToJSString html) => Range -> html -> m DocumentFragment createContextualFragment self html-  = liftIO-      (nullableToMaybe <$>-         (js_createContextualFragment (self) (toJSString html)))+  = liftIO (js_createContextualFragment self (toJSString html))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.createContextualFragment Mozilla Range.createContextualFragment documentation>  createContextualFragment_ ::                           (MonadIO m, ToJSString html) => Range -> html -> m () createContextualFragment_ self html   = liftIO-      (void (js_createContextualFragment (self) (toJSString html)))+      (void (js_createContextualFragment self (toJSString html)))+ +foreign import javascript unsafe "$1[\"compareNode\"]($2)"+        js_compareNode :: Range -> Node -> IO Int --- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.createContextualFragment Mozilla Range.createContextualFragment documentation> -createContextualFragmentUnsafe ::-                               (MonadIO m, ToJSString html, HasCallStack) =>-                                 Range -> html -> m DocumentFragment-createContextualFragmentUnsafe self html-  = liftIO-      ((nullableToMaybe <$>-          (js_createContextualFragment (self) (toJSString html)))-         >>= maybe (Prelude.error "Nothing to return") return)+-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.compareNode Mozilla Range.compareNode documentation> +compareNode ::+            (MonadIO m, IsNode refNode) => Range -> refNode -> m Int+compareNode self refNode+  = liftIO (js_compareNode self (toNode refNode)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.createContextualFragment Mozilla Range.createContextualFragment documentation> -createContextualFragmentUnchecked ::-                                  (MonadIO m, ToJSString html) =>-                                    Range -> html -> m DocumentFragment-createContextualFragmentUnchecked self html-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_createContextualFragment (self) (toJSString html)))+-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.compareNode Mozilla Range.compareNode documentation> +compareNode_ ::+             (MonadIO m, IsNode refNode) => Range -> refNode -> m ()+compareNode_ self refNode+  = liftIO (void (js_compareNode self (toNode refNode)))   foreign import javascript unsafe         "($1[\"intersectsNode\"]($2) ? 1 : 0)" js_intersectsNode ::-        Range -> Nullable Node -> IO Bool+        Range -> 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+               (MonadIO m, IsNode refNode) => Range -> refNode -> m Bool intersectsNode self refNode-  = liftIO-      (js_intersectsNode (self) (maybeToNullable (fmap toNode refNode)))+  = liftIO (js_intersectsNode self (toNode refNode))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.intersectsNode Mozilla Range.intersectsNode documentation>  intersectsNode_ ::-                (MonadIO m, IsNode refNode) => Range -> Maybe refNode -> m ()+                (MonadIO m, IsNode refNode) => Range -> refNode -> m () intersectsNode_ self refNode-  = liftIO-      (void-         (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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.compareNode Mozilla Range.compareNode documentation> -compareNode_ ::-             (MonadIO m, IsNode refNode) => Range -> Maybe refNode -> m ()-compareNode_ self refNode-  = liftIO-      (void-         (js_compareNode (self) (maybeToNullable (fmap toNode refNode))))+  = liftIO (void (js_intersectsNode self (toNode refNode)))   foreign import javascript unsafe "$1[\"comparePoint\"]($2, $3)"-        js_comparePoint :: Range -> Nullable Node -> Int -> IO Int+        js_comparePoint :: Range -> Node -> Word -> 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+             (MonadIO m, IsNode refNode) => Range -> refNode -> Word -> m Int comparePoint self refNode offset-  = liftIO-      (js_comparePoint (self) (maybeToNullable (fmap toNode refNode))-         offset)+  = liftIO (js_comparePoint self (toNode refNode) offset)  -- | <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 ()+              (MonadIO m, IsNode refNode) => Range -> refNode -> Word -> m () comparePoint_ self refNode offset-  = liftIO-      (void-         (js_comparePoint (self) (maybeToNullable (fmap toNode refNode))-            offset))+  = liftIO (void (js_comparePoint self (toNode refNode) offset))   foreign import javascript unsafe         "($1[\"isPointInRange\"]($2,\n$3) ? 1 : 0)" js_isPointInRange ::-        Range -> Nullable Node -> Int -> IO Bool+        Range -> Node -> Word -> 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+               (MonadIO m, IsNode refNode) => Range -> refNode -> Word -> m Bool isPointInRange self refNode offset-  = liftIO-      (js_isPointInRange (self) (maybeToNullable (fmap toNode refNode))-         offset)+  = liftIO (js_isPointInRange self (toNode refNode) offset)  -- | <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 ()+                (MonadIO m, IsNode refNode) => Range -> refNode -> Word -> m () isPointInRange_ self refNode offset-  = liftIO-      (void-         (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))+  = liftIO (void (js_isPointInRange self (toNode refNode) offset)) pattern START_TO_START = 0 pattern START_TO_END = 1 pattern END_TO_END = 2@@ -491,92 +348,44 @@ 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.startContainer Mozilla Range.startContainer documentation> -getStartContainerUnsafe ::-                        (MonadIO m, HasCallStack) => Range -> m Node-getStartContainerUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getStartContainer (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        js_getStartContainer :: Range -> IO Node  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.startContainer Mozilla Range.startContainer documentation> -getStartContainerUnchecked :: (MonadIO m) => Range -> m Node-getStartContainerUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$> (js_getStartContainer (self)))+getStartContainer :: (MonadIO m) => Range -> m Node+getStartContainer self = liftIO (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))+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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.endContainer Mozilla Range.endContainer documentation> -getEndContainerUnsafe ::-                      (MonadIO m, HasCallStack) => Range -> m Node-getEndContainerUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getEndContainer (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        js_getEndContainer :: Range -> IO Node  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.endContainer Mozilla Range.endContainer documentation> -getEndContainerUnchecked :: (MonadIO m) => Range -> m Node-getEndContainerUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$> (js_getEndContainer (self)))+getEndContainer :: (MonadIO m) => Range -> m Node+getEndContainer self = liftIO (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))+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))+getCollapsed self = liftIO (js_getCollapsed self)   foreign import javascript unsafe "$1[\"commonAncestorContainer\"]"-        js_getCommonAncestorContainer :: Range -> IO (Nullable Node)+        js_getCommonAncestorContainer :: Range -> IO Node  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.commonAncestorContainer Mozilla Range.commonAncestorContainer documentation> -getCommonAncestorContainer ::-                           (MonadIO m) => Range -> m (Maybe Node)+getCommonAncestorContainer :: (MonadIO m) => Range -> m Node getCommonAncestorContainer self-  = liftIO-      (nullableToMaybe <$> (js_getCommonAncestorContainer (self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.commonAncestorContainer Mozilla Range.commonAncestorContainer documentation> -getCommonAncestorContainerUnsafe ::-                                 (MonadIO m, HasCallStack) => Range -> m Node-getCommonAncestorContainerUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getCommonAncestorContainer (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.commonAncestorContainer Mozilla Range.commonAncestorContainer documentation> -getCommonAncestorContainerUnchecked ::-                                    (MonadIO m) => Range -> m Node-getCommonAncestorContainerUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_getCommonAncestorContainer (self)))+  = liftIO (js_getCommonAncestorContainer self)
+ src/GHCJS/DOM/JSFFI/Generated/ReadableByteStreamController.hs view
@@ -0,0 +1,87 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+module GHCJS.DOM.JSFFI.Generated.ReadableByteStreamController+       (js_newReadableByteStreamController,+        newReadableByteStreamController, js_enqueue, enqueue, js_close,+        close, js_error, error, js_getDesiredSize, getDesiredSize,+        ReadableByteStreamController(..),+        gTypeReadableByteStreamController)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error)+import Data.Typeable (Typeable)+import GHCJS.Types (JSVal(..), JSString)+import GHCJS.Foreign (jsNull, jsUndefined)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Control.Monad (void)+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import Data.Maybe (fromJust)+import Data.Traversable (mapM)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.JSFFI.Generated.Enums+ +foreign import javascript unsafe+        "new window[\"ReadableByteStreamController\"]($1,\n$2, $3)"+        js_newReadableByteStreamController ::+        ReadableStream -> JSVal -> Word -> IO ReadableByteStreamController++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableByteStreamController Mozilla ReadableByteStreamController documentation> +newReadableByteStreamController ::+                                (MonadIO m, ToJSVal underlyingByteSource) =>+                                  ReadableStream ->+                                    underlyingByteSource -> Word -> m ReadableByteStreamController+newReadableByteStreamController stream underlyingByteSource+  highWaterMark+  = liftIO+      (toJSVal underlyingByteSource >>=+         \ underlyingByteSource' ->+           js_newReadableByteStreamController stream underlyingByteSource'+         highWaterMark)+ +foreign import javascript unsafe "$1[\"enqueue\"]($2)" js_enqueue+        :: ReadableByteStreamController -> Optional JSVal -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableByteStreamController.enqueue Mozilla ReadableByteStreamController.enqueue documentation> +enqueue ::+        (MonadIO m, ToJSVal chunk) =>+          ReadableByteStreamController -> Maybe chunk -> m ()+enqueue self chunk+  = liftIO+      (mapM toJSVal chunk >>=+         \ chunk' -> js_enqueue self (maybeToOptional chunk'))+ +foreign import javascript unsafe "$1[\"close\"]()" js_close ::+        ReadableByteStreamController -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableByteStreamController.close Mozilla ReadableByteStreamController.close documentation> +close :: (MonadIO m) => ReadableByteStreamController -> m ()+close self = liftIO (js_close self)+ +foreign import javascript unsafe "$1[\"error\"]($2)" js_error ::+        ReadableByteStreamController -> Optional JSVal -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableByteStreamController.error Mozilla ReadableByteStreamController.error documentation> +error ::+      (MonadIO m, ToJSVal error) =>+        ReadableByteStreamController -> Maybe error -> m ()+error self error+  = liftIO+      (mapM toJSVal error >>=+         \ error' -> js_error self (maybeToOptional error'))+ +foreign import javascript unsafe "$1[\"desiredSize\"]"+        js_getDesiredSize :: ReadableByteStreamController -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableByteStreamController.desiredSize Mozilla ReadableByteStreamController.desiredSize documentation> +getDesiredSize ::+               (MonadIO m) => ReadableByteStreamController -> m Double+getDesiredSize self = liftIO (js_getDesiredSize self)
src/GHCJS/DOM/JSFFI/Generated/ReadableStream.hs view
@@ -4,20 +4,17 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.ReadableStream-       (js_newReadableStream, newReadableStream, js_read, read, read_,-        readUnsafe, readUnchecked, js_cancel, cancel, cancel_,-        cancelUnsafe, cancelUnchecked, js_pipeTo, pipeTo, pipeTo_,-        pipeToUnsafe, pipeToUnchecked, js_pipeThrough, pipeThrough,-        pipeThrough_, pipeThroughUnsafe, pipeThroughUnchecked, js_getState,-        getState, js_getClosed, getClosed, getClosedUnsafe,-        getClosedUnchecked, js_getReady, getReady, getReadyUnsafe,-        getReadyUnchecked, ReadableStream(..), gTypeReadableStream)+       (js_newReadableStream, newReadableStream, js_cancel, cancel,+        cancel_, js_getReader, getReader, getReader_, js_pipeTo, pipeTo,+        pipeTo_, js_pipeThrough, pipeThrough, pipeThrough_, js_tee, tee,+        tee_, js_getLocked, getLocked, ReadableStream(..),+        gTypeReadableStream)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -26,189 +23,139 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums   foreign import javascript unsafe-        "new window[\"ReadableStream\"]($1)" js_newReadableStream ::-        JSVal -> IO ReadableStream+        "new window[\"ReadableStream\"]($1,\n$2)" js_newReadableStream ::+        Optional JSVal -> Optional 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableStream.read Mozilla ReadableStream.read documentation> -read_ :: (MonadIO m) => ReadableStream -> m ()-read_ self = liftIO (void (js_read (self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableStream.read Mozilla ReadableStream.read documentation> -readUnsafe ::-           (MonadIO m, HasCallStack) => ReadableStream -> m GObject-readUnsafe self+newReadableStream ::+                  (MonadIO m, ToJSVal underlyingSource, ToJSVal options) =>+                    Maybe underlyingSource -> Maybe options -> m ReadableStream+newReadableStream underlyingSource options   = liftIO-      ((nullableToMaybe <$> (js_read (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableStream.read Mozilla ReadableStream.read documentation> -readUnchecked :: (MonadIO m) => ReadableStream -> m GObject-readUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_read (self)))+      (mapM toJSVal options >>=+         \ options' ->+           mapM toJSVal underlyingSource >>=+             \ underlyingSource' ->+               js_newReadableStream (maybeToOptional underlyingSource')+             (maybeToOptional options'))  -foreign import javascript unsafe "$1[\"cancel\"]($2)" js_cancel ::-        ReadableStream -> JSString -> IO (Nullable Promise)+foreign import javascript interruptible+        "$1[\"cancel\"]($2).then($c);" js_cancel ::+        ReadableStream -> Optional JSVal -> IO JSVal  -- | <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)+       (MonadIO m, ToJSVal reason) =>+         ReadableStream -> Maybe reason -> m JSVal cancel self reason   = liftIO-      (nullableToMaybe <$> (js_cancel (self) (toJSString reason)))+      (mapM toJSVal reason >>=+         \ reason' -> js_cancel self (maybeToOptional reason'))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableStream.cancel Mozilla ReadableStream.cancel documentation>  cancel_ ::-        (MonadIO m, ToJSString reason) => ReadableStream -> reason -> m ()+        (MonadIO m, ToJSVal reason) =>+          ReadableStream -> Maybe reason -> m () cancel_ self reason-  = liftIO (void (js_cancel (self) (toJSString reason)))+  = liftIO+      (void+         (mapM toJSVal reason >>=+            \ reason' -> js_cancel self (maybeToOptional reason')))+ +foreign import javascript unsafe "$1[\"getReader\"]($2)"+        js_getReader :: ReadableStream -> Optional JSVal -> IO GObject --- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableStream.cancel Mozilla ReadableStream.cancel documentation> -cancelUnsafe ::-             (MonadIO m, ToJSString reason, HasCallStack) =>-               ReadableStream -> reason -> m Promise-cancelUnsafe self reason+-- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableStream.getReader Mozilla ReadableStream.getReader documentation> +getReader ::+          (MonadIO m, ToJSVal options) =>+            ReadableStream -> Maybe options -> m GObject+getReader self options   = liftIO-      ((nullableToMaybe <$> (js_cancel (self) (toJSString reason))) >>=-         maybe (Prelude.error "Nothing to return") return)+      (mapM toJSVal options >>=+         \ options' -> js_getReader self (maybeToOptional options')) --- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableStream.cancel Mozilla ReadableStream.cancel documentation> -cancelUnchecked ::-                (MonadIO m, ToJSString reason) =>-                  ReadableStream -> reason -> m Promise-cancelUnchecked self reason+-- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableStream.getReader Mozilla ReadableStream.getReader documentation> +getReader_ ::+           (MonadIO m, ToJSVal options) =>+             ReadableStream -> Maybe options -> m ()+getReader_ self options   = liftIO-      (fromJust . nullableToMaybe <$>-         (js_cancel (self) (toJSString reason)))+      (void+         (mapM toJSVal options >>=+            \ options' -> js_getReader self (maybeToOptional options')))  -foreign import javascript unsafe "$1[\"pipeTo\"]($2, $3)" js_pipeTo-        :: ReadableStream -> JSVal -> JSVal -> IO (Nullable Promise)+foreign import javascript interruptible+        "$1[\"pipeTo\"]($2, $3).then($c);" js_pipeTo ::+        ReadableStream -> JSVal -> Optional JSVal -> IO JSVal  -- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableStream.pipeTo Mozilla ReadableStream.pipeTo documentation>  pipeTo ::-       (MonadIO m) =>-         ReadableStream -> JSVal -> JSVal -> m (Maybe Promise)+       (MonadIO m, ToJSVal streams, ToJSVal options) =>+         ReadableStream -> streams -> Maybe options -> m JSVal pipeTo self streams options-  = liftIO (nullableToMaybe <$> (js_pipeTo (self) streams options))---- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableStream.pipeTo Mozilla ReadableStream.pipeTo documentation> -pipeTo_ :: (MonadIO m) => ReadableStream -> JSVal -> JSVal -> m ()-pipeTo_ self streams options-  = liftIO (void (js_pipeTo (self) streams options))---- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableStream.pipeTo Mozilla ReadableStream.pipeTo documentation> -pipeToUnsafe ::-             (MonadIO m, HasCallStack) =>-               ReadableStream -> JSVal -> JSVal -> m Promise-pipeToUnsafe self streams options   = liftIO-      ((nullableToMaybe <$> (js_pipeTo (self) streams options)) >>=-         maybe (Prelude.error "Nothing to return") return)+      (mapM toJSVal options >>=+         \ options' ->+           toJSVal streams >>= \ streams' -> js_pipeTo self streams'+             (maybeToOptional options'))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableStream.pipeTo Mozilla ReadableStream.pipeTo documentation> -pipeToUnchecked ::-                (MonadIO m) => ReadableStream -> JSVal -> JSVal -> m Promise-pipeToUnchecked self streams options+pipeTo_ ::+        (MonadIO m, ToJSVal streams, ToJSVal options) =>+          ReadableStream -> streams -> Maybe options -> m ()+pipeTo_ self streams options   = liftIO-      (fromJust . nullableToMaybe <$> (js_pipeTo (self) streams options))+      (void+         (mapM toJSVal options >>=+            \ options' ->+              toJSVal streams >>= \ streams' -> js_pipeTo self streams'+                (maybeToOptional options')))   foreign import javascript unsafe "$1[\"pipeThrough\"]($2, $3)"-        js_pipeThrough ::-        ReadableStream -> JSVal -> JSVal -> IO (Nullable GObject)+        js_pipeThrough :: ReadableStream -> JSVal -> JSVal -> IO 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)+            (MonadIO m, ToJSVal dest, ToJSVal options) =>+              ReadableStream -> dest -> options -> m GObject pipeThrough self dest options-  = liftIO (nullableToMaybe <$> (js_pipeThrough (self) dest options))+  = liftIO+      (toJSVal options >>=+         \ options' ->+           toJSVal dest >>= \ dest' -> js_pipeThrough self dest' options')  -- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableStream.pipeThrough Mozilla ReadableStream.pipeThrough documentation>  pipeThrough_ ::-             (MonadIO m) => ReadableStream -> JSVal -> JSVal -> m ()+             (MonadIO m, ToJSVal dest, ToJSVal options) =>+               ReadableStream -> dest -> options -> m () pipeThrough_ self dest options-  = liftIO (void (js_pipeThrough (self) dest options))---- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableStream.pipeThrough Mozilla ReadableStream.pipeThrough documentation> -pipeThroughUnsafe ::-                  (MonadIO m, HasCallStack) =>-                    ReadableStream -> JSVal -> JSVal -> m GObject-pipeThroughUnsafe self dest options   = liftIO-      ((nullableToMaybe <$> (js_pipeThrough (self) dest options)) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableStream.pipeThrough Mozilla ReadableStream.pipeThrough documentation> -pipeThroughUnchecked ::-                     (MonadIO m) => ReadableStream -> JSVal -> JSVal -> m GObject-pipeThroughUnchecked self dest options-  = liftIO-      (fromJust . 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)+      (void+         (toJSVal options >>=+            \ options' ->+              toJSVal dest >>= \ dest' -> js_pipeThrough self dest' options'))  -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[\"tee\"]()" js_tee ::+        ReadableStream -> IO GObject --- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableStream.closed Mozilla ReadableStream.closed documentation> -getClosedUnsafe ::-                (MonadIO m, HasCallStack) => ReadableStream -> m Promise-getClosedUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getClosed (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+-- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableStream.tee Mozilla ReadableStream.tee documentation> +tee :: (MonadIO m) => ReadableStream -> m GObject+tee self = liftIO (js_tee self) --- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableStream.closed Mozilla ReadableStream.closed documentation> -getClosedUnchecked :: (MonadIO m) => ReadableStream -> m Promise-getClosedUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getClosed (self)))+-- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableStream.tee Mozilla ReadableStream.tee documentation> +tee_ :: (MonadIO m) => ReadableStream -> m ()+tee_ self = liftIO (void (js_tee 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableStream.ready Mozilla ReadableStream.ready documentation> -getReadyUnsafe ::-               (MonadIO m, HasCallStack) => ReadableStream -> m Promise-getReadyUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getReady (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+foreign import javascript unsafe "($1[\"locked\"] ? 1 : 0)"+        js_getLocked :: ReadableStream -> IO Bool --- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableStream.ready Mozilla ReadableStream.ready documentation> -getReadyUnchecked :: (MonadIO m) => ReadableStream -> m Promise-getReadyUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getReady (self)))+-- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableStream.locked Mozilla ReadableStream.locked documentation> +getLocked :: (MonadIO m) => ReadableStream -> m Bool+getLocked self = liftIO (js_getLocked self)
+ src/GHCJS/DOM/JSFFI/Generated/ReadableStreamDefaultController.hs view
@@ -0,0 +1,90 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+module GHCJS.DOM.JSFFI.Generated.ReadableStreamDefaultController+       (js_newReadableStreamDefaultController,+        newReadableStreamDefaultController, js_enqueue, enqueue, js_close,+        close, js_error, error, js_getDesiredSize, getDesiredSize,+        ReadableStreamDefaultController(..),+        gTypeReadableStreamDefaultController)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error)+import Data.Typeable (Typeable)+import GHCJS.Types (JSVal(..), JSString)+import GHCJS.Foreign (jsNull, jsUndefined)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Control.Monad (void)+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import Data.Maybe (fromJust)+import Data.Traversable (mapM)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.JSFFI.Generated.Enums+ +foreign import javascript unsafe+        "new window[\"ReadableStreamDefaultController\"]($1,\n$2, $3, $4)"+        js_newReadableStreamDefaultController ::+        ReadableStream ->+          JSVal -> Word -> Word -> IO ReadableStreamDefaultController++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableStreamDefaultController Mozilla ReadableStreamDefaultController documentation> +newReadableStreamDefaultController ::+                                   (MonadIO m, ToJSVal underlyingSource) =>+                                     ReadableStream ->+                                       underlyingSource ->+                                         Word -> Word -> m ReadableStreamDefaultController+newReadableStreamDefaultController stream underlyingSource size+  highWaterMark+  = liftIO+      (toJSVal underlyingSource >>=+         \ underlyingSource' ->+           js_newReadableStreamDefaultController stream underlyingSource'+         size+         highWaterMark)+ +foreign import javascript unsafe "$1[\"enqueue\"]($2)" js_enqueue+        :: ReadableStreamDefaultController -> Optional JSVal -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableStreamDefaultController.enqueue Mozilla ReadableStreamDefaultController.enqueue documentation> +enqueue ::+        (MonadIO m, ToJSVal chunk) =>+          ReadableStreamDefaultController -> Maybe chunk -> m ()+enqueue self chunk+  = liftIO+      (mapM toJSVal chunk >>=+         \ chunk' -> js_enqueue self (maybeToOptional chunk'))+ +foreign import javascript unsafe "$1[\"close\"]()" js_close ::+        ReadableStreamDefaultController -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableStreamDefaultController.close Mozilla ReadableStreamDefaultController.close documentation> +close :: (MonadIO m) => ReadableStreamDefaultController -> m ()+close self = liftIO (js_close self)+ +foreign import javascript unsafe "$1[\"error\"]($2)" js_error ::+        ReadableStreamDefaultController -> Optional JSVal -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableStreamDefaultController.error Mozilla ReadableStreamDefaultController.error documentation> +error ::+      (MonadIO m, ToJSVal error) =>+        ReadableStreamDefaultController -> Maybe error -> m ()+error self error+  = liftIO+      (mapM toJSVal error >>=+         \ error' -> js_error self (maybeToOptional error'))+ +foreign import javascript unsafe "$1[\"desiredSize\"]"+        js_getDesiredSize :: ReadableStreamDefaultController -> IO Double++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableStreamDefaultController.desiredSize Mozilla ReadableStreamDefaultController.desiredSize documentation> +getDesiredSize ::+               (MonadIO m) => ReadableStreamDefaultController -> m Double+getDesiredSize self = liftIO (js_getDesiredSize self)
+ src/GHCJS/DOM/JSFFI/Generated/ReadableStreamDefaultReader.hs view
@@ -0,0 +1,90 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+module GHCJS.DOM.JSFFI.Generated.ReadableStreamDefaultReader+       (js_newReadableStreamDefaultReader, newReadableStreamDefaultReader,+        js_read, read, read_, js_cancel, cancel, cancel_, js_releaseLock,+        releaseLock, js_getClosed, getClosed,+        ReadableStreamDefaultReader(..), gTypeReadableStreamDefaultReader)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error)+import Data.Typeable (Typeable)+import GHCJS.Types (JSVal(..), JSString)+import GHCJS.Foreign (jsNull, jsUndefined)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Control.Monad (void)+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import Data.Maybe (fromJust)+import Data.Traversable (mapM)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.JSFFI.Generated.Enums+ +foreign import javascript unsafe+        "new window[\"ReadableStreamDefaultReader\"]($1)"+        js_newReadableStreamDefaultReader ::+        ReadableStream -> IO ReadableStreamDefaultReader++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableStreamDefaultReader Mozilla ReadableStreamDefaultReader documentation> +newReadableStreamDefaultReader ::+                               (MonadIO m) => ReadableStream -> m ReadableStreamDefaultReader+newReadableStreamDefaultReader stream+  = liftIO (js_newReadableStreamDefaultReader stream)+ +foreign import javascript interruptible+        "$1[\"read\"]().then($c);" js_read ::+        ReadableStreamDefaultReader -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableStreamDefaultReader.read Mozilla ReadableStreamDefaultReader.read documentation> +read :: (MonadIO m) => ReadableStreamDefaultReader -> m JSVal+read self = liftIO (js_read self)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableStreamDefaultReader.read Mozilla ReadableStreamDefaultReader.read documentation> +read_ :: (MonadIO m) => ReadableStreamDefaultReader -> m ()+read_ self = liftIO (void (js_read self))+ +foreign import javascript interruptible+        "$1[\"cancel\"]($2).then($c);" js_cancel ::+        ReadableStreamDefaultReader -> Optional JSVal -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableStreamDefaultReader.cancel Mozilla ReadableStreamDefaultReader.cancel documentation> +cancel ::+       (MonadIO m, ToJSVal reason) =>+         ReadableStreamDefaultReader -> Maybe reason -> m JSVal+cancel self reason+  = liftIO+      (mapM toJSVal reason >>=+         \ reason' -> js_cancel self (maybeToOptional reason'))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableStreamDefaultReader.cancel Mozilla ReadableStreamDefaultReader.cancel documentation> +cancel_ ::+        (MonadIO m, ToJSVal reason) =>+          ReadableStreamDefaultReader -> Maybe reason -> m ()+cancel_ self reason+  = liftIO+      (void+         (mapM toJSVal reason >>=+            \ reason' -> js_cancel self (maybeToOptional reason')))+ +foreign import javascript unsafe "$1[\"releaseLock\"]()"+        js_releaseLock :: ReadableStreamDefaultReader -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableStreamDefaultReader.releaseLock Mozilla ReadableStreamDefaultReader.releaseLock documentation> +releaseLock :: (MonadIO m) => ReadableStreamDefaultReader -> m ()+releaseLock self = liftIO (js_releaseLock self)+ +foreign import javascript interruptible+        "$1[\"closed\"].then($c);" js_getClosed ::+        ReadableStreamDefaultReader -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableStreamDefaultReader.closed Mozilla ReadableStreamDefaultReader.closed documentation> +getClosed :: (MonadIO m) => ReadableStreamDefaultReader -> m Bool+getClosed self = liftIO (js_getClosed self)
+ src/GHCJS/DOM/JSFFI/Generated/ReadableStreamSource.hs view
@@ -0,0 +1,65 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+module GHCJS.DOM.JSFFI.Generated.ReadableStreamSource+       (js_start, start, js_pull, pull, js_cancel, cancel,+        js_getController, getController, ReadableStreamSource(..),+        gTypeReadableStreamSource)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error)+import Data.Typeable (Typeable)+import GHCJS.Types (JSVal(..), JSString)+import GHCJS.Foreign (jsNull, jsUndefined)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Control.Monad (void)+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import Data.Maybe (fromJust)+import Data.Traversable (mapM)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.JSFFI.Generated.Enums+ +foreign import javascript interruptible+        "$1[\"start\"]($2).then($c);" js_start ::+        ReadableStreamSource -> ReadableStreamDefaultController -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableStreamSource.start Mozilla ReadableStreamSource.start documentation> +start ::+      (MonadIO m) =>+        ReadableStreamSource -> ReadableStreamDefaultController -> m ()+start self controller = liftIO (js_start self controller)+ +foreign import javascript interruptible+        "$1[\"pull\"]($2).then($c);" js_pull ::+        ReadableStreamSource -> ReadableStreamDefaultController -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableStreamSource.pull Mozilla ReadableStreamSource.pull documentation> +pull ::+     (MonadIO m) =>+       ReadableStreamSource -> ReadableStreamDefaultController -> m ()+pull self controller = liftIO (js_pull self controller)+ +foreign import javascript unsafe "$1[\"cancel\"]($2)" js_cancel ::+        ReadableStreamSource -> JSVal -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableStreamSource.cancel Mozilla ReadableStreamSource.cancel documentation> +cancel ::+       (MonadIO m, ToJSVal reason) =>+         ReadableStreamSource -> reason -> m ()+cancel self reason+  = liftIO (toJSVal reason >>= \ reason' -> js_cancel self reason')+ +foreign import javascript unsafe "$1[\"controller\"]"+        js_getController :: ReadableStreamSource -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableStreamSource.controller Mozilla ReadableStreamSource.controller documentation> +getController :: (MonadIO m) => ReadableStreamSource -> m JSVal+getController self = liftIO (js_getController self)
src/GHCJS/DOM/JSFFI/Generated/Rect.hs view
@@ -4,16 +4,14 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.Rect-       (js_getTop, getTop, getTopUnsafe, getTopUnchecked, js_getRight,-        getRight, getRightUnsafe, getRightUnchecked, js_getBottom,-        getBottom, getBottomUnsafe, getBottomUnchecked, js_getLeft,-        getLeft, getLeftUnsafe, getLeftUnchecked, Rect(..), gTypeRect)+       (js_getTop, getTop, js_getRight, getRight, js_getBottom, getBottom,+        js_getLeft, getLeft, Rect(..), gTypeRect)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -22,87 +20,36 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Rect.top Mozilla Rect.top documentation> -getTopUnsafe ::-             (MonadIO m, HasCallStack) => Rect -> m CSSPrimitiveValue-getTopUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getTop (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        Rect -> IO CSSPrimitiveValue  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Rect.top Mozilla Rect.top documentation> -getTopUnchecked :: (MonadIO m) => Rect -> m CSSPrimitiveValue-getTopUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getTop (self)))+getTop :: (MonadIO m) => Rect -> m CSSPrimitiveValue+getTop self = liftIO (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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Rect.right Mozilla Rect.right documentation> -getRightUnsafe ::-               (MonadIO m, HasCallStack) => Rect -> m CSSPrimitiveValue-getRightUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getRight (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        Rect -> IO CSSPrimitiveValue  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Rect.right Mozilla Rect.right documentation> -getRightUnchecked :: (MonadIO m) => Rect -> m CSSPrimitiveValue-getRightUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getRight (self)))+getRight :: (MonadIO m) => Rect -> m CSSPrimitiveValue+getRight self = liftIO (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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Rect.bottom Mozilla Rect.bottom documentation> -getBottomUnsafe ::-                (MonadIO m, HasCallStack) => Rect -> m CSSPrimitiveValue-getBottomUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getBottom (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        Rect -> IO CSSPrimitiveValue  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Rect.bottom Mozilla Rect.bottom documentation> -getBottomUnchecked :: (MonadIO m) => Rect -> m CSSPrimitiveValue-getBottomUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getBottom (self)))+getBottom :: (MonadIO m) => Rect -> m CSSPrimitiveValue+getBottom self = liftIO (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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Rect.left Mozilla Rect.left documentation> -getLeftUnsafe ::-              (MonadIO m, HasCallStack) => Rect -> m CSSPrimitiveValue-getLeftUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getLeft (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        Rect -> IO CSSPrimitiveValue  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Rect.left Mozilla Rect.left documentation> -getLeftUnchecked :: (MonadIO m) => Rect -> m CSSPrimitiveValue-getLeftUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getLeft (self)))+getLeft :: (MonadIO m) => Rect -> m CSSPrimitiveValue+getLeft self = liftIO (js_getLeft self)
+ src/GHCJS/DOM/JSFFI/Generated/Request.hs view
@@ -0,0 +1,147 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+module GHCJS.DOM.JSFFI.Generated.Request+       (js_newRequest, newRequest, js_clone, clone, clone_, js_getMethod,+        getMethod, js_getUrl, getUrl, js_getHeaders, getHeaders,+        js_getType, getType, js_getDestination, getDestination,+        js_getReferrer, getReferrer, js_getReferrerPolicy,+        getReferrerPolicy, js_getMode, getMode, js_getCredentials,+        getCredentials, js_getCache, getCache, js_getRedirect, getRedirect,+        js_getIntegrity, getIntegrity, Request(..), gTypeRequest)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error)+import Data.Typeable (Typeable)+import GHCJS.Types (JSVal(..), JSString)+import GHCJS.Foreign (jsNull, jsUndefined)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Control.Monad (void)+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import Data.Maybe (fromJust)+import Data.Traversable (mapM)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.JSFFI.Generated.Enums+ +foreign import javascript unsafe "new window[\"Request\"]($1, $2)"+        js_newRequest :: JSVal -> Optional RequestInit -> IO Request++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Request Mozilla Request documentation> +newRequest ::+           (MonadIO m, ToJSVal input) =>+             input -> Maybe RequestInit -> m Request+newRequest input init+  = liftIO+      (toJSVal input >>= \ input' -> js_newRequest input'+         (maybeToOptional init))+ +foreign import javascript unsafe "$1[\"clone\"]()" js_clone ::+        Request -> IO Request++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Request.clone Mozilla Request.clone documentation> +clone :: (MonadIO m) => Request -> m Request+clone self = liftIO (js_clone self)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Request.clone Mozilla Request.clone documentation> +clone_ :: (MonadIO m) => Request -> m ()+clone_ self = liftIO (void (js_clone self))+ +foreign import javascript unsafe "$1[\"method\"]" js_getMethod ::+        Request -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Request.method Mozilla Request.method documentation> +getMethod ::+          (MonadIO m, FromJSString result) => Request -> m result+getMethod self = liftIO (fromJSString <$> (js_getMethod self))+ +foreign import javascript unsafe "$1[\"url\"]" js_getUrl ::+        Request -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Request.url Mozilla Request.url documentation> +getUrl :: (MonadIO m, FromJSString result) => Request -> m result+getUrl self = liftIO (fromJSString <$> (js_getUrl self))+ +foreign import javascript unsafe "$1[\"headers\"]" js_getHeaders ::+        Request -> IO Headers++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Request.headers Mozilla Request.headers documentation> +getHeaders :: (MonadIO m) => Request -> m Headers+getHeaders self = liftIO (js_getHeaders self)+ +foreign import javascript unsafe "$1[\"type\"]" js_getType ::+        Request -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Request.type Mozilla Request.type documentation> +getType :: (MonadIO m) => Request -> m RequestType+getType self = liftIO ((js_getType self) >>= fromJSValUnchecked)+ +foreign import javascript unsafe "$1[\"destination\"]"+        js_getDestination :: Request -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Request.destination Mozilla Request.destination documentation> +getDestination :: (MonadIO m) => Request -> m RequestDestination+getDestination self+  = liftIO ((js_getDestination self) >>= fromJSValUnchecked)+ +foreign import javascript unsafe "$1[\"referrer\"]" js_getReferrer+        :: Request -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Request.referrer Mozilla Request.referrer documentation> +getReferrer ::+            (MonadIO m, FromJSString result) => Request -> m result+getReferrer self = liftIO (fromJSString <$> (js_getReferrer self))+ +foreign import javascript unsafe "$1[\"referrerPolicy\"]"+        js_getReferrerPolicy :: Request -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Request.referrerPolicy Mozilla Request.referrerPolicy documentation> +getReferrerPolicy :: (MonadIO m) => Request -> m ReferrerPolicy+getReferrerPolicy self+  = liftIO ((js_getReferrerPolicy self) >>= fromJSValUnchecked)+ +foreign import javascript unsafe "$1[\"mode\"]" js_getMode ::+        Request -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Request.mode Mozilla Request.mode documentation> +getMode :: (MonadIO m) => Request -> m RequestMode+getMode self = liftIO ((js_getMode self) >>= fromJSValUnchecked)+ +foreign import javascript unsafe "$1[\"credentials\"]"+        js_getCredentials :: Request -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Request.credentials Mozilla Request.credentials documentation> +getCredentials :: (MonadIO m) => Request -> m RequestCredentials+getCredentials self+  = liftIO ((js_getCredentials self) >>= fromJSValUnchecked)+ +foreign import javascript unsafe "$1[\"cache\"]" js_getCache ::+        Request -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Request.cache Mozilla Request.cache documentation> +getCache :: (MonadIO m) => Request -> m RequestCache+getCache self = liftIO ((js_getCache self) >>= fromJSValUnchecked)+ +foreign import javascript unsafe "$1[\"redirect\"]" js_getRedirect+        :: Request -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Request.redirect Mozilla Request.redirect documentation> +getRedirect :: (MonadIO m) => Request -> m RequestRedirect+getRedirect self+  = liftIO ((js_getRedirect self) >>= fromJSValUnchecked)+ +foreign import javascript unsafe "$1[\"integrity\"]"+        js_getIntegrity :: Request -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Request.integrity Mozilla Request.integrity documentation> +getIntegrity ::+             (MonadIO m, FromJSString result) => Request -> m result+getIntegrity self+  = liftIO (fromJSString <$> (js_getIntegrity self))
src/GHCJS/DOM/JSFFI/Generated/RequestAnimationFrameCallback.hs view
@@ -13,7 +13,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -22,6 +22,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)
+ src/GHCJS/DOM/JSFFI/Generated/Response.hs view
@@ -0,0 +1,209 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+module GHCJS.DOM.JSFFI.Generated.Response+       (js_error, error, error_, js_redirect, redirect, redirect_,+        js_arrayBuffer, arrayBuffer, arrayBuffer_, js_blob, blob, blob_,+        js_formData, formData, formData_, js_json, json, json_, js_text,+        text, text_, js_clone, clone, clone_, js_getType, getType,+        js_getUrl, getUrl, js_getRedirected, getRedirected, js_getStatus,+        getStatus, js_getOk, getOk, js_getStatusText, getStatusText,+        js_getHeaders, getHeaders, js_getBody, getBody, getBodyUnsafe,+        getBodyUnchecked, js_getBodyUsed, getBodyUsed, Response(..),+        gTypeResponse)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error)+import Data.Typeable (Typeable)+import GHCJS.Types (JSVal(..), JSString)+import GHCJS.Foreign (jsNull, jsUndefined)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Control.Monad (void)+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import Data.Maybe (fromJust)+import Data.Traversable (mapM)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+import GHCJS.DOM.JSFFI.Generated.Enums+ +foreign import javascript unsafe "$1[\"error\"]()" js_error ::+        Response -> IO Response++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Response.error Mozilla Response.error documentation> +error :: (MonadIO m) => Response -> m Response+error self = liftIO (js_error self)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Response.error Mozilla Response.error documentation> +error_ :: (MonadIO m) => Response -> m ()+error_ self = liftIO (void (js_error self))+ +foreign import javascript unsafe "$1[\"redirect\"]($2, $3)"+        js_redirect :: Response -> JSString -> Optional Word -> IO Response++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Response.redirect Mozilla Response.redirect documentation> +redirect ::+         (MonadIO m, ToJSString url) =>+           Response -> url -> Maybe Word -> m Response+redirect self url status+  = liftIO+      (js_redirect self (toJSString url) (maybeToOptional status))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Response.redirect Mozilla Response.redirect documentation> +redirect_ ::+          (MonadIO m, ToJSString url) =>+            Response -> url -> Maybe Word -> m ()+redirect_ self url status+  = liftIO+      (void (js_redirect self (toJSString url) (maybeToOptional status)))+ +foreign import javascript interruptible+        "$1[\"arrayBuffer\"]().then($c);" js_arrayBuffer ::+        Response -> IO ArrayBuffer++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Response.arrayBuffer Mozilla Response.arrayBuffer documentation> +arrayBuffer :: (MonadIO m) => Response -> m ArrayBuffer+arrayBuffer self = liftIO (js_arrayBuffer self)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Response.arrayBuffer Mozilla Response.arrayBuffer documentation> +arrayBuffer_ :: (MonadIO m) => Response -> m ()+arrayBuffer_ self = liftIO (void (js_arrayBuffer self))+ +foreign import javascript interruptible+        "$1[\"blob\"]().then($c);" js_blob :: Response -> IO Blob++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Response.blob Mozilla Response.blob documentation> +blob :: (MonadIO m) => Response -> m Blob+blob self = liftIO (js_blob self)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Response.blob Mozilla Response.blob documentation> +blob_ :: (MonadIO m) => Response -> m ()+blob_ self = liftIO (void (js_blob self))+ +foreign import javascript interruptible+        "$1[\"formData\"]().then($c);" js_formData :: Response -> IO Blob++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Response.formData Mozilla Response.formData documentation> +formData :: (MonadIO m) => Response -> m Blob+formData self = liftIO (js_formData self)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Response.formData Mozilla Response.formData documentation> +formData_ :: (MonadIO m) => Response -> m ()+formData_ self = liftIO (void (js_formData self))+ +foreign import javascript interruptible+        "$1[\"json\"]().then($c);" js_json :: Response -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Response.json Mozilla Response.json documentation> +json :: (MonadIO m) => Response -> m JSVal+json self = liftIO (js_json self)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Response.json Mozilla Response.json documentation> +json_ :: (MonadIO m) => Response -> m ()+json_ self = liftIO (void (js_json self))+ +foreign import javascript interruptible+        "$1[\"text\"]().then($c);" js_text :: Response -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Response.text Mozilla Response.text documentation> +text :: (MonadIO m, FromJSString result) => Response -> m result+text self = liftIO (fromJSString <$> (js_text self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Response.text Mozilla Response.text documentation> +text_ :: (MonadIO m) => Response -> m ()+text_ self = liftIO (void (js_text self))+ +foreign import javascript unsafe "$1[\"clone\"]()" js_clone ::+        Response -> IO Response++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Response.clone Mozilla Response.clone documentation> +clone :: (MonadIO m) => Response -> m Response+clone self = liftIO (js_clone self)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Response.clone Mozilla Response.clone documentation> +clone_ :: (MonadIO m) => Response -> m ()+clone_ self = liftIO (void (js_clone self))+ +foreign import javascript unsafe "$1[\"type\"]" js_getType ::+        Response -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Response.type Mozilla Response.type documentation> +getType :: (MonadIO m) => Response -> m ResponseType+getType self = liftIO ((js_getType self) >>= fromJSValUnchecked)+ +foreign import javascript unsafe "$1[\"url\"]" js_getUrl ::+        Response -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Response.url Mozilla Response.url documentation> +getUrl :: (MonadIO m, FromJSString result) => Response -> m result+getUrl self = liftIO (fromJSString <$> (js_getUrl self))+ +foreign import javascript unsafe "($1[\"redirected\"] ? 1 : 0)"+        js_getRedirected :: Response -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Response.redirected Mozilla Response.redirected documentation> +getRedirected :: (MonadIO m) => Response -> m Bool+getRedirected self = liftIO (js_getRedirected self)+ +foreign import javascript unsafe "$1[\"status\"]" js_getStatus ::+        Response -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Response.status Mozilla Response.status documentation> +getStatus :: (MonadIO m) => Response -> m Word+getStatus self = liftIO (js_getStatus self)+ +foreign import javascript unsafe "($1[\"ok\"] ? 1 : 0)" js_getOk ::+        Response -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Response.ok Mozilla Response.ok documentation> +getOk :: (MonadIO m) => Response -> m Bool+getOk self = liftIO (js_getOk self)+ +foreign import javascript unsafe "$1[\"statusText\"]"+        js_getStatusText :: Response -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Response.statusText Mozilla Response.statusText documentation> +getStatusText ::+              (MonadIO m, FromJSString result) => Response -> m result+getStatusText self+  = liftIO (fromJSString <$> (js_getStatusText self))+ +foreign import javascript unsafe "$1[\"headers\"]" js_getHeaders ::+        Response -> IO Headers++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Response.headers Mozilla Response.headers documentation> +getHeaders :: (MonadIO m) => Response -> m Headers+getHeaders self = liftIO (js_getHeaders self)+ +foreign import javascript unsafe "$1[\"body\"]" js_getBody ::+        Response -> IO (Nullable ReadableStream)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Response.body Mozilla Response.body documentation> +getBody :: (MonadIO m) => Response -> m (Maybe ReadableStream)+getBody self = liftIO (nullableToMaybe <$> (js_getBody self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Response.body Mozilla Response.body documentation> +getBodyUnsafe ::+              (MonadIO m, HasCallStack) => Response -> m ReadableStream+getBodyUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getBody self)) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Response.body Mozilla Response.body documentation> +getBodyUnchecked :: (MonadIO m) => Response -> m ReadableStream+getBodyUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getBody self))+ +foreign import javascript unsafe "($1[\"bodyUsed\"] ? 1 : 0)"+        js_getBodyUsed :: Response -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Response.bodyUsed Mozilla Response.bodyUsed documentation> +getBodyUsed :: (MonadIO m) => Response -> m Bool+getBodyUsed self = liftIO (js_getBodyUsed self)
src/GHCJS/DOM/JSFFI/Generated/SQLError.hs view
@@ -13,7 +13,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -22,6 +22,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -40,7 +41,7 @@  -- | <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))+getCode self = liftIO (js_getCode self)   foreign import javascript unsafe "$1[\"message\"]" js_getMessage ::         SQLError -> IO JSString@@ -48,4 +49,4 @@ -- | <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)))+getMessage self = liftIO (fromJSString <$> (js_getMessage self))
+ src/GHCJS/DOM/JSFFI/Generated/SQLException.hs view
@@ -0,0 +1,52 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+module GHCJS.DOM.JSFFI.Generated.SQLException+       (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, SQLException(..), gTypeSQLException)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error)+import Data.Typeable (Typeable)+import GHCJS.Types (JSVal(..), JSString)+import GHCJS.Foreign (jsNull, jsUndefined)+import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Control.Monad (void)+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int64)+import Data.Word (Word, Word64)+import Data.Maybe (fromJust)+import Data.Traversable (mapM)+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)+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 ::+        SQLException -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLException.code Mozilla SQLException.code documentation> +getCode :: (MonadIO m) => SQLException -> m Word+getCode self = liftIO (js_getCode self)+ +foreign import javascript unsafe "$1[\"message\"]" js_getMessage ::+        SQLException -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLException.message Mozilla SQLException.message documentation> +getMessage ::+           (MonadIO m, FromJSString result) => SQLException -> m result+getMessage self = liftIO (fromJSString <$> (js_getMessage self))
src/GHCJS/DOM/JSFFI/Generated/SQLResultSet.hs view
@@ -4,15 +4,15 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SQLResultSet-       (js_getRows, getRows, getRowsUnsafe, getRowsUnchecked,-        js_getInsertId, getInsertId, js_getRowsAffected, getRowsAffected,-        SQLResultSet(..), gTypeSQLResultSet)+       (js_getRows, getRows, js_getInsertId, getInsertId,+        js_getRowsAffected, getRowsAffected, SQLResultSet(..),+        gTypeSQLResultSet)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -21,43 +21,29 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLResultSet.rows Mozilla SQLResultSet.rows documentation> -getRowsUnsafe ::-              (MonadIO m, HasCallStack) => SQLResultSet -> m SQLResultSetRowList-getRowsUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getRows (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        SQLResultSet -> IO SQLResultSetRowList  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLResultSet.rows Mozilla SQLResultSet.rows documentation> -getRowsUnchecked ::-                 (MonadIO m) => SQLResultSet -> m SQLResultSetRowList-getRowsUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getRows (self)))+getRows :: (MonadIO m) => SQLResultSet -> m SQLResultSetRowList+getRows self = liftIO (js_getRows self)   foreign import javascript unsafe "$1[\"insertId\"]" js_getInsertId-        :: SQLResultSet -> IO Int+        :: SQLResultSet -> IO Double  -- | <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))+getInsertId :: (MonadIO m) => SQLResultSet -> m Int64+getInsertId self = liftIO (round <$> (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))+getRowsAffected self = liftIO (js_getRowsAffected self)
src/GHCJS/DOM/JSFFI/Generated/SQLResultSetRowList.hs view
@@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -20,25 +20,28 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums   foreign import javascript unsafe "$1[\"item\"]($2)" js_item ::-        SQLResultSetRowList -> Word -> IO JSVal+        SQLResultSetRowList -> Word -> IO (Record DOMString SQLValue)  -- | <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)+item ::+     (MonadIO m) =>+       SQLResultSetRowList -> Word -> m (Record DOMString SQLValue)+item self index = liftIO (js_item self index)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLResultSetRowList.item Mozilla SQLResultSetRowList.item documentation>  item_ :: (MonadIO m) => SQLResultSetRowList -> Word -> m ()-item_ self index = liftIO (void (js_item (self) index))+item_ self index = liftIO (void (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))+getLength self = liftIO (js_getLength self)
src/GHCJS/DOM/JSFFI/Generated/SQLStatementCallback.hs view
@@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -20,6 +20,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -28,8 +29,7 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLStatementCallback Mozilla SQLStatementCallback documentation>  newSQLStatementCallback ::                         (MonadIO m) =>-                          (Maybe SQLTransaction -> Maybe SQLResultSet -> IO ()) ->-                            m SQLStatementCallback+                          (SQLTransaction -> SQLResultSet -> IO ()) -> m SQLStatementCallback newSQLStatementCallback callback   = liftIO       (SQLStatementCallback <$>@@ -44,8 +44,7 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLStatementCallback Mozilla SQLStatementCallback documentation>  newSQLStatementCallbackSync ::                             (MonadIO m) =>-                              (Maybe SQLTransaction -> Maybe SQLResultSet -> IO ()) ->-                                m SQLStatementCallback+                              (SQLTransaction -> SQLResultSet -> IO ()) -> m SQLStatementCallback newSQLStatementCallbackSync callback   = liftIO       (SQLStatementCallback <$>@@ -60,8 +59,7 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLStatementCallback Mozilla SQLStatementCallback documentation>  newSQLStatementCallbackAsync ::                              (MonadIO m) =>-                               (Maybe SQLTransaction -> Maybe SQLResultSet -> IO ()) ->-                                 m SQLStatementCallback+                               (SQLTransaction -> SQLResultSet -> IO ()) -> m SQLStatementCallback newSQLStatementCallbackAsync callback   = liftIO       (SQLStatementCallback <$>
src/GHCJS/DOM/JSFFI/Generated/SQLStatementErrorCallback.hs view
@@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -20,6 +20,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -28,7 +29,7 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLStatementErrorCallback Mozilla SQLStatementErrorCallback documentation>  newSQLStatementErrorCallback ::                              (MonadIO m) =>-                               (Maybe SQLTransaction -> Maybe SQLError -> IO ()) ->+                               (SQLTransaction -> SQLError -> IO ()) ->                                  m SQLStatementErrorCallback newSQLStatementErrorCallback callback   = liftIO@@ -44,7 +45,7 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLStatementErrorCallback Mozilla SQLStatementErrorCallback documentation>  newSQLStatementErrorCallbackSync ::                                  (MonadIO m) =>-                                   (Maybe SQLTransaction -> Maybe SQLError -> IO ()) ->+                                   (SQLTransaction -> SQLError -> IO ()) ->                                      m SQLStatementErrorCallback newSQLStatementErrorCallbackSync callback   = liftIO@@ -60,7 +61,7 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLStatementErrorCallback Mozilla SQLStatementErrorCallback documentation>  newSQLStatementErrorCallbackAsync ::                                   (MonadIO m) =>-                                    (Maybe SQLTransaction -> Maybe SQLError -> IO ()) ->+                                    (SQLTransaction -> SQLError -> IO ()) ->                                       m SQLStatementErrorCallback newSQLStatementErrorCallbackAsync callback   = liftIO
src/GHCJS/DOM/JSFFI/Generated/SQLTransaction.hs view
@@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -20,6 +20,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -29,21 +30,22 @@         "$1[\"executeSql\"]($2, $3, $4, $5)" js_executeSql ::         SQLTransaction ->           JSString ->-            Nullable ObjectArray ->-              Nullable SQLStatementCallback ->-                Nullable SQLStatementErrorCallback -> IO ()+            JSVal ->+              Optional SQLStatementCallback ->+                Optional SQLStatementErrorCallback -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLTransaction.executeSql Mozilla SQLTransaction.executeSql documentation>  executeSql ::-           (MonadIO m, ToJSString sqlStatement, IsObjectArray arguments) =>+           (MonadIO m, ToJSString sqlStatement, IsSQLValue arguments) =>              SQLTransaction ->                sqlStatement ->-                 Maybe arguments ->+                 [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))+      (toJSVal arguments >>=+         \ arguments' ->+           js_executeSql self (toJSString sqlStatement) arguments'+         (maybeToOptional callback)+         (maybeToOptional errorCallback))
src/GHCJS/DOM/JSFFI/Generated/SQLTransactionCallback.hs view
@@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -20,6 +20,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -28,7 +29,7 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLTransactionCallback Mozilla SQLTransactionCallback documentation>  newSQLTransactionCallback ::                           (MonadIO m) =>-                            (Maybe SQLTransaction -> IO ()) -> m SQLTransactionCallback+                            (SQLTransaction -> IO ()) -> m SQLTransactionCallback newSQLTransactionCallback callback   = liftIO       (SQLTransactionCallback <$>@@ -40,7 +41,7 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLTransactionCallback Mozilla SQLTransactionCallback documentation>  newSQLTransactionCallbackSync ::                               (MonadIO m) =>-                                (Maybe SQLTransaction -> IO ()) -> m SQLTransactionCallback+                                (SQLTransaction -> IO ()) -> m SQLTransactionCallback newSQLTransactionCallbackSync callback   = liftIO       (SQLTransactionCallback <$>@@ -52,7 +53,7 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLTransactionCallback Mozilla SQLTransactionCallback documentation>  newSQLTransactionCallbackAsync ::                                (MonadIO m) =>-                                 (Maybe SQLTransaction -> IO ()) -> m SQLTransactionCallback+                                 (SQLTransaction -> IO ()) -> m SQLTransactionCallback newSQLTransactionCallbackAsync callback   = liftIO       (SQLTransactionCallback <$>
src/GHCJS/DOM/JSFFI/Generated/SQLTransactionErrorCallback.hs view
@@ -12,7 +12,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -21,6 +21,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -28,8 +29,7 @@  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLTransactionErrorCallback Mozilla SQLTransactionErrorCallback documentation>  newSQLTransactionErrorCallback ::-                               (MonadIO m) =>-                                 (Maybe SQLError -> IO ()) -> m SQLTransactionErrorCallback+                               (MonadIO m) => (SQLError -> IO ()) -> m SQLTransactionErrorCallback newSQLTransactionErrorCallback callback   = liftIO       (SQLTransactionErrorCallback <$>@@ -40,7 +40,7 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLTransactionErrorCallback Mozilla SQLTransactionErrorCallback documentation>  newSQLTransactionErrorCallbackSync ::                                    (MonadIO m) =>-                                     (Maybe SQLError -> IO ()) -> m SQLTransactionErrorCallback+                                     (SQLError -> IO ()) -> m SQLTransactionErrorCallback newSQLTransactionErrorCallbackSync callback   = liftIO       (SQLTransactionErrorCallback <$>@@ -51,7 +51,7 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLTransactionErrorCallback Mozilla SQLTransactionErrorCallback documentation>  newSQLTransactionErrorCallbackAsync ::                                     (MonadIO m) =>-                                      (Maybe SQLError -> IO ()) -> m SQLTransactionErrorCallback+                                      (SQLError -> IO ()) -> m SQLTransactionErrorCallback newSQLTransactionErrorCallbackAsync callback   = liftIO       (SQLTransactionErrorCallback <$>
src/GHCJS/DOM/JSFFI/Generated/SVGAElement.hs view
@@ -4,14 +4,12 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGAElement-       (js_getTarget, getTarget, getTargetUnsafe, getTargetUnchecked,-        SVGAElement(..), gTypeSVGAElement)-       where+       (js_getTarget, getTarget, SVGAElement(..), gTypeSVGAElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -20,29 +18,15 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAElement.target Mozilla SVGAElement.target documentation> -getTargetUnsafe ::-                (MonadIO m, HasCallStack) => SVGAElement -> m SVGAnimatedString-getTargetUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getTarget (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        SVGAElement -> IO SVGAnimatedString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAElement.target Mozilla SVGAElement.target documentation> -getTargetUnchecked ::-                   (MonadIO m) => SVGAElement -> m SVGAnimatedString-getTargetUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getTarget (self)))+getTarget :: (MonadIO m) => SVGAElement -> m SVGAnimatedString+getTarget self = liftIO (js_getTarget self)
src/GHCJS/DOM/JSFFI/Generated/SVGAltGlyphElement.hs view
@@ -12,7 +12,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -21,6 +21,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -33,7 +34,7 @@ setGlyphRef ::             (MonadIO m, ToJSString val) => SVGAltGlyphElement -> val -> m () setGlyphRef self val-  = liftIO (js_setGlyphRef (self) (toJSString val))+  = liftIO (js_setGlyphRef self (toJSString val))   foreign import javascript unsafe "$1[\"glyphRef\"]" js_getGlyphRef         :: SVGAltGlyphElement -> IO JSString@@ -41,8 +42,7 @@ -- | <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)))+getGlyphRef self = liftIO (fromJSString <$> (js_getGlyphRef self))   foreign import javascript unsafe "$1[\"format\"] = $2;"         js_setFormat :: SVGAltGlyphElement -> JSString -> IO ()@@ -50,7 +50,7 @@ -- | <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))+setFormat self val = liftIO (js_setFormat self (toJSString val))   foreign import javascript unsafe "$1[\"format\"]" js_getFormat ::         SVGAltGlyphElement -> IO JSString@@ -58,4 +58,4 @@ -- | <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)))+getFormat self = liftIO (fromJSString <$> (js_getFormat self))
src/GHCJS/DOM/JSFFI/Generated/SVGAngle.hs view
@@ -13,14 +13,13 @@         js_setValueInSpecifiedUnits, setValueInSpecifiedUnits,         js_getValueInSpecifiedUnits, getValueInSpecifiedUnits,         js_setValueAsString, setValueAsString, js_getValueAsString,-        getValueAsString, getValueAsStringUnsafe,-        getValueAsStringUnchecked, SVGAngle(..), gTypeSVGAngle)+        getValueAsString, SVGAngle(..), gTypeSVGAngle)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -29,6 +28,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -43,7 +43,7 @@                        (MonadIO m) => SVGAngle -> Word -> Float -> m () newValueSpecifiedUnits self unitType valueInSpecifiedUnits   = liftIO-      (js_newValueSpecifiedUnits (self) unitType valueInSpecifiedUnits)+      (js_newValueSpecifiedUnits self unitType valueInSpecifiedUnits)   foreign import javascript unsafe         "$1[\"convertToSpecifiedUnits\"]($2)" js_convertToSpecifiedUnits ::@@ -52,7 +52,7 @@ -- | <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)+  = liftIO (js_convertToSpecifiedUnits self unitType) pattern SVG_ANGLETYPE_UNKNOWN = 0 pattern SVG_ANGLETYPE_UNSPECIFIED = 1 pattern SVG_ANGLETYPE_DEG = 2@@ -64,21 +64,21 @@  -- | <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))+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)+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))+getValue self = liftIO (js_getValue self)   foreign import javascript unsafe         "$1[\"valueInSpecifiedUnits\"] = $2;" js_setValueInSpecifiedUnits@@ -88,7 +88,7 @@ setValueInSpecifiedUnits ::                          (MonadIO m) => SVGAngle -> Float -> m () setValueInSpecifiedUnits self val-  = liftIO (js_setValueInSpecifiedUnits (self) val)+  = liftIO (js_setValueInSpecifiedUnits self val)   foreign import javascript unsafe "$1[\"valueInSpecifiedUnits\"]"         js_getValueInSpecifiedUnits :: SVGAngle -> IO Float@@ -96,38 +96,22 @@ -- | <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))+  = liftIO (js_getValueInSpecifiedUnits self)   foreign import javascript unsafe "$1[\"valueAsString\"] = $2;"-        js_setValueAsString :: SVGAngle -> Nullable JSString -> IO ()+        js_setValueAsString :: SVGAngle -> 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 ()+                 (MonadIO m, ToJSString val) => SVGAngle -> val -> m () setValueAsString self val-  = liftIO (js_setValueAsString (self) (toMaybeJSString val))+  = liftIO (js_setValueAsString self (toJSString val))   foreign import javascript unsafe "$1[\"valueAsString\"]"-        js_getValueAsString :: SVGAngle -> IO (Nullable JSString)+        js_getValueAsString :: SVGAngle -> IO 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)+                 (MonadIO m, FromJSString result) => SVGAngle -> m result getValueAsString self-  = liftIO (fromMaybeJSString <$> (js_getValueAsString (self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAngle.valueAsString Mozilla SVGAngle.valueAsString documentation> -getValueAsStringUnsafe ::-                       (MonadIO m, HasCallStack, FromJSString result) =>-                         SVGAngle -> m result-getValueAsStringUnsafe self-  = liftIO-      ((fromMaybeJSString <$> (js_getValueAsString (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAngle.valueAsString Mozilla SVGAngle.valueAsString documentation> -getValueAsStringUnchecked ::-                          (MonadIO m, FromJSString result) => SVGAngle -> m result-getValueAsStringUnchecked self-  = liftIO-      (fromJust . fromMaybeJSString <$> (js_getValueAsString (self)))+  = liftIO (fromJSString <$> (js_getValueAsString self))
src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedAngle.hs view
@@ -4,15 +4,14 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGAnimatedAngle-       (js_getBaseVal, getBaseVal, getBaseValUnsafe, getBaseValUnchecked,-        js_getAnimVal, getAnimVal, getAnimValUnsafe, getAnimValUnchecked,+       (js_getBaseVal, getBaseVal, js_getAnimVal, getAnimVal,         SVGAnimatedAngle(..), gTypeSVGAnimatedAngle)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -21,51 +20,22 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedAngle.baseVal Mozilla SVGAnimatedAngle.baseVal documentation> -getBaseValUnsafe ::-                 (MonadIO m, HasCallStack) => SVGAnimatedAngle -> m SVGAngle-getBaseValUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getBaseVal (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        SVGAnimatedAngle -> IO SVGAngle  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedAngle.baseVal Mozilla SVGAnimatedAngle.baseVal documentation> -getBaseValUnchecked ::-                    (MonadIO m) => SVGAnimatedAngle -> m SVGAngle-getBaseValUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getBaseVal (self)))+getBaseVal :: (MonadIO m) => SVGAnimatedAngle -> m SVGAngle+getBaseVal self = liftIO (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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedAngle.animVal Mozilla SVGAnimatedAngle.animVal documentation> -getAnimValUnsafe ::-                 (MonadIO m, HasCallStack) => SVGAnimatedAngle -> m SVGAngle-getAnimValUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getAnimVal (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        SVGAnimatedAngle -> IO SVGAngle  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedAngle.animVal Mozilla SVGAnimatedAngle.animVal documentation> -getAnimValUnchecked ::-                    (MonadIO m) => SVGAnimatedAngle -> m SVGAngle-getAnimValUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getAnimVal (self)))+getAnimVal :: (MonadIO m) => SVGAnimatedAngle -> m SVGAngle+getAnimVal self = liftIO (js_getAnimVal self)
src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedBoolean.hs view
@@ -12,7 +12,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -21,6 +21,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -31,18 +32,18 @@  -- | <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)+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))+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))+getAnimVal self = liftIO (js_getAnimVal self)
src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedEnumeration.hs view
@@ -12,7 +12,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -21,6 +21,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -31,18 +32,18 @@  -- | <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)+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))+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))+getAnimVal self = liftIO (js_getAnimVal self)
src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedInteger.hs view
@@ -12,7 +12,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -21,6 +21,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -31,18 +32,18 @@  -- | <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)+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))+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))+getAnimVal self = liftIO (js_getAnimVal self)
src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedLength.hs view
@@ -4,15 +4,14 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGAnimatedLength-       (js_getBaseVal, getBaseVal, getBaseValUnsafe, getBaseValUnchecked,-        js_getAnimVal, getAnimVal, getAnimValUnsafe, getAnimValUnchecked,+       (js_getBaseVal, getBaseVal, js_getAnimVal, getAnimVal,         SVGAnimatedLength(..), gTypeSVGAnimatedLength)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -21,53 +20,22 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedLength.baseVal Mozilla SVGAnimatedLength.baseVal documentation> -getBaseValUnsafe ::-                 (MonadIO m, HasCallStack) => SVGAnimatedLength -> m SVGLength-getBaseValUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getBaseVal (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        SVGAnimatedLength -> IO SVGLength  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedLength.baseVal Mozilla SVGAnimatedLength.baseVal documentation> -getBaseValUnchecked ::-                    (MonadIO m) => SVGAnimatedLength -> m SVGLength-getBaseValUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getBaseVal (self)))+getBaseVal :: (MonadIO m) => SVGAnimatedLength -> m SVGLength+getBaseVal self = liftIO (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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedLength.animVal Mozilla SVGAnimatedLength.animVal documentation> -getAnimValUnsafe ::-                 (MonadIO m, HasCallStack) => SVGAnimatedLength -> m SVGLength-getAnimValUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getAnimVal (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        SVGAnimatedLength -> IO SVGLength  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedLength.animVal Mozilla SVGAnimatedLength.animVal documentation> -getAnimValUnchecked ::-                    (MonadIO m) => SVGAnimatedLength -> m SVGLength-getAnimValUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getAnimVal (self)))+getAnimVal :: (MonadIO m) => SVGAnimatedLength -> m SVGLength+getAnimVal self = liftIO (js_getAnimVal self)
src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedLengthList.hs view
@@ -4,15 +4,14 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGAnimatedLengthList-       (js_getBaseVal, getBaseVal, getBaseValUnsafe, getBaseValUnchecked,-        js_getAnimVal, getAnimVal, getAnimValUnsafe, getAnimValUnchecked,+       (js_getBaseVal, getBaseVal, js_getAnimVal, getAnimVal,         SVGAnimatedLengthList(..), gTypeSVGAnimatedLengthList)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -21,55 +20,24 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums   foreign import javascript unsafe "$1[\"baseVal\"]" js_getBaseVal ::-        SVGAnimatedLengthList -> IO (Nullable SVGLengthList)+        SVGAnimatedLengthList -> IO 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedLengthList.baseVal Mozilla SVGAnimatedLengthList.baseVal documentation> -getBaseValUnsafe ::-                 (MonadIO m, HasCallStack) =>-                   SVGAnimatedLengthList -> m SVGLengthList-getBaseValUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getBaseVal (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedLengthList.baseVal Mozilla SVGAnimatedLengthList.baseVal documentation> -getBaseValUnchecked ::-                    (MonadIO m) => SVGAnimatedLengthList -> m SVGLengthList-getBaseValUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getBaseVal (self)))+           (MonadIO m) => SVGAnimatedLengthList -> m SVGLengthList+getBaseVal self = liftIO (js_getBaseVal self)   foreign import javascript unsafe "$1[\"animVal\"]" js_getAnimVal ::-        SVGAnimatedLengthList -> IO (Nullable SVGLengthList)+        SVGAnimatedLengthList -> IO 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedLengthList.animVal Mozilla SVGAnimatedLengthList.animVal documentation> -getAnimValUnsafe ::-                 (MonadIO m, HasCallStack) =>-                   SVGAnimatedLengthList -> m SVGLengthList-getAnimValUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getAnimVal (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedLengthList.animVal Mozilla SVGAnimatedLengthList.animVal documentation> -getAnimValUnchecked ::-                    (MonadIO m) => SVGAnimatedLengthList -> m SVGLengthList-getAnimValUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getAnimVal (self)))+           (MonadIO m) => SVGAnimatedLengthList -> m SVGLengthList+getAnimVal self = liftIO (js_getAnimVal self)
src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedNumber.hs view
@@ -12,7 +12,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -21,6 +21,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -31,18 +32,18 @@  -- | <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)+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))+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))+getAnimVal self = liftIO (js_getAnimVal self)
src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedNumberList.hs view
@@ -4,15 +4,14 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGAnimatedNumberList-       (js_getBaseVal, getBaseVal, getBaseValUnsafe, getBaseValUnchecked,-        js_getAnimVal, getAnimVal, getAnimValUnsafe, getAnimValUnchecked,+       (js_getBaseVal, getBaseVal, js_getAnimVal, getAnimVal,         SVGAnimatedNumberList(..), gTypeSVGAnimatedNumberList)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -21,55 +20,24 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums   foreign import javascript unsafe "$1[\"baseVal\"]" js_getBaseVal ::-        SVGAnimatedNumberList -> IO (Nullable SVGNumberList)+        SVGAnimatedNumberList -> IO 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedNumberList.baseVal Mozilla SVGAnimatedNumberList.baseVal documentation> -getBaseValUnsafe ::-                 (MonadIO m, HasCallStack) =>-                   SVGAnimatedNumberList -> m SVGNumberList-getBaseValUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getBaseVal (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedNumberList.baseVal Mozilla SVGAnimatedNumberList.baseVal documentation> -getBaseValUnchecked ::-                    (MonadIO m) => SVGAnimatedNumberList -> m SVGNumberList-getBaseValUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getBaseVal (self)))+           (MonadIO m) => SVGAnimatedNumberList -> m SVGNumberList+getBaseVal self = liftIO (js_getBaseVal self)   foreign import javascript unsafe "$1[\"animVal\"]" js_getAnimVal ::-        SVGAnimatedNumberList -> IO (Nullable SVGNumberList)+        SVGAnimatedNumberList -> IO 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedNumberList.animVal Mozilla SVGAnimatedNumberList.animVal documentation> -getAnimValUnsafe ::-                 (MonadIO m, HasCallStack) =>-                   SVGAnimatedNumberList -> m SVGNumberList-getAnimValUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getAnimVal (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedNumberList.animVal Mozilla SVGAnimatedNumberList.animVal documentation> -getAnimValUnchecked ::-                    (MonadIO m) => SVGAnimatedNumberList -> m SVGNumberList-getAnimValUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getAnimVal (self)))+           (MonadIO m) => SVGAnimatedNumberList -> m SVGNumberList+getAnimVal self = liftIO (js_getAnimVal self)
src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedPreserveAspectRatio.hs view
@@ -4,8 +4,7 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGAnimatedPreserveAspectRatio-       (js_getBaseVal, getBaseVal, getBaseValUnsafe, getBaseValUnchecked,-        js_getAnimVal, getAnimVal, getAnimValUnsafe, getAnimValUnchecked,+       (js_getBaseVal, getBaseVal, js_getAnimVal, getAnimVal,         SVGAnimatedPreserveAspectRatio(..),         gTypeSVGAnimatedPreserveAspectRatio)        where@@ -13,7 +12,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -22,61 +21,26 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums   foreign import javascript unsafe "$1[\"baseVal\"]" js_getBaseVal ::-        SVGAnimatedPreserveAspectRatio ->-          IO (Nullable SVGPreserveAspectRatio)+        SVGAnimatedPreserveAspectRatio -> IO 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedPreserveAspectRatio.baseVal Mozilla SVGAnimatedPreserveAspectRatio.baseVal documentation> -getBaseValUnsafe ::-                 (MonadIO m, HasCallStack) =>-                   SVGAnimatedPreserveAspectRatio -> m SVGPreserveAspectRatio-getBaseValUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getBaseVal (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedPreserveAspectRatio.baseVal Mozilla SVGAnimatedPreserveAspectRatio.baseVal documentation> -getBaseValUnchecked ::-                    (MonadIO m) =>-                      SVGAnimatedPreserveAspectRatio -> m SVGPreserveAspectRatio-getBaseValUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getBaseVal (self)))+             SVGAnimatedPreserveAspectRatio -> m SVGPreserveAspectRatio+getBaseVal self = liftIO (js_getBaseVal self)   foreign import javascript unsafe "$1[\"animVal\"]" js_getAnimVal ::-        SVGAnimatedPreserveAspectRatio ->-          IO (Nullable SVGPreserveAspectRatio)+        SVGAnimatedPreserveAspectRatio -> IO 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedPreserveAspectRatio.animVal Mozilla SVGAnimatedPreserveAspectRatio.animVal documentation> -getAnimValUnsafe ::-                 (MonadIO m, HasCallStack) =>-                   SVGAnimatedPreserveAspectRatio -> m SVGPreserveAspectRatio-getAnimValUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getAnimVal (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedPreserveAspectRatio.animVal Mozilla SVGAnimatedPreserveAspectRatio.animVal documentation> -getAnimValUnchecked ::-                    (MonadIO m) =>-                      SVGAnimatedPreserveAspectRatio -> m SVGPreserveAspectRatio-getAnimValUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getAnimVal (self)))+             SVGAnimatedPreserveAspectRatio -> m SVGPreserveAspectRatio+getAnimVal self = liftIO (js_getAnimVal self)
src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedRect.hs view
@@ -4,15 +4,14 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGAnimatedRect-       (js_getBaseVal, getBaseVal, getBaseValUnsafe, getBaseValUnchecked,-        js_getAnimVal, getAnimVal, getAnimValUnsafe, getAnimValUnchecked,+       (js_getBaseVal, getBaseVal, js_getAnimVal, getAnimVal,         SVGAnimatedRect(..), gTypeSVGAnimatedRect)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -21,49 +20,22 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedRect.baseVal Mozilla SVGAnimatedRect.baseVal documentation> -getBaseValUnsafe ::-                 (MonadIO m, HasCallStack) => SVGAnimatedRect -> m SVGRect-getBaseValUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getBaseVal (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        SVGAnimatedRect -> IO SVGRect  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedRect.baseVal Mozilla SVGAnimatedRect.baseVal documentation> -getBaseValUnchecked :: (MonadIO m) => SVGAnimatedRect -> m SVGRect-getBaseValUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getBaseVal (self)))+getBaseVal :: (MonadIO m) => SVGAnimatedRect -> m SVGRect+getBaseVal self = liftIO (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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedRect.animVal Mozilla SVGAnimatedRect.animVal documentation> -getAnimValUnsafe ::-                 (MonadIO m, HasCallStack) => SVGAnimatedRect -> m SVGRect-getAnimValUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getAnimVal (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        SVGAnimatedRect -> IO SVGRect  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedRect.animVal Mozilla SVGAnimatedRect.animVal documentation> -getAnimValUnchecked :: (MonadIO m) => SVGAnimatedRect -> m SVGRect-getAnimValUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getAnimVal (self)))+getAnimVal :: (MonadIO m) => SVGAnimatedRect -> m SVGRect+getAnimVal self = liftIO (js_getAnimVal self)
src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedString.hs view
@@ -12,7 +12,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -21,6 +21,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -32,8 +33,7 @@ -- | <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))+setBaseVal self val = liftIO (js_setBaseVal self (toJSString val))   foreign import javascript unsafe "$1[\"baseVal\"]" js_getBaseVal ::         SVGAnimatedString -> IO JSString@@ -41,7 +41,7 @@ -- | <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)))+getBaseVal self = liftIO (fromJSString <$> (js_getBaseVal self))   foreign import javascript unsafe "$1[\"animVal\"]" js_getAnimVal ::         SVGAnimatedString -> IO JSString@@ -49,4 +49,4 @@ -- | <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)))+getAnimVal self = liftIO (fromJSString <$> (js_getAnimVal self))
src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedTransformList.hs view
@@ -4,15 +4,14 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGAnimatedTransformList-       (js_getBaseVal, getBaseVal, getBaseValUnsafe, getBaseValUnchecked,-        js_getAnimVal, getAnimVal, getAnimValUnsafe, getAnimValUnchecked,+       (js_getBaseVal, getBaseVal, js_getAnimVal, getAnimVal,         SVGAnimatedTransformList(..), gTypeSVGAnimatedTransformList)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -21,57 +20,24 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums   foreign import javascript unsafe "$1[\"baseVal\"]" js_getBaseVal ::-        SVGAnimatedTransformList -> IO (Nullable SVGTransformList)+        SVGAnimatedTransformList -> IO 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedTransformList.baseVal Mozilla SVGAnimatedTransformList.baseVal documentation> -getBaseValUnsafe ::-                 (MonadIO m, HasCallStack) =>-                   SVGAnimatedTransformList -> m SVGTransformList-getBaseValUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getBaseVal (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedTransformList.baseVal Mozilla SVGAnimatedTransformList.baseVal documentation> -getBaseValUnchecked ::-                    (MonadIO m) => SVGAnimatedTransformList -> m SVGTransformList-getBaseValUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getBaseVal (self)))+           (MonadIO m) => SVGAnimatedTransformList -> m SVGTransformList+getBaseVal self = liftIO (js_getBaseVal self)   foreign import javascript unsafe "$1[\"animVal\"]" js_getAnimVal ::-        SVGAnimatedTransformList -> IO (Nullable SVGTransformList)+        SVGAnimatedTransformList -> IO 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedTransformList.animVal Mozilla SVGAnimatedTransformList.animVal documentation> -getAnimValUnsafe ::-                 (MonadIO m, HasCallStack) =>-                   SVGAnimatedTransformList -> m SVGTransformList-getAnimValUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getAnimVal (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedTransformList.animVal Mozilla SVGAnimatedTransformList.animVal documentation> -getAnimValUnchecked ::-                    (MonadIO m) => SVGAnimatedTransformList -> m SVGTransformList-getAnimValUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getAnimVal (self)))+           (MonadIO m) => SVGAnimatedTransformList -> m SVGTransformList+getAnimVal self = liftIO (js_getAnimVal self)
src/GHCJS/DOM/JSFFI/Generated/SVGAnimationElement.hs view
@@ -9,8 +9,7 @@         getSimpleDuration, getSimpleDuration_, js_beginElement,         beginElement, js_beginElementAt, beginElementAt, js_endElement,         endElement, js_endElementAt, endElementAt, js_getTargetElement,-        getTargetElement, getTargetElementUnsafe,-        getTargetElementUnchecked, SVGAnimationElement(..),+        getTargetElement, SVGAnimationElement(..),         gTypeSVGAnimationElement, IsSVGAnimationElement,         toSVGAnimationElement)        where@@ -18,7 +17,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -27,6 +26,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -87,13 +87,16 @@   = liftIO (js_beginElement (toSVGAnimationElement self))   foreign import javascript unsafe "$1[\"beginElementAt\"]($2)"-        js_beginElementAt :: SVGAnimationElement -> Float -> IO ()+        js_beginElementAt :: SVGAnimationElement -> Optional 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 ()+               (MonadIO m, IsSVGAnimationElement self) =>+                 self -> Maybe Float -> m () beginElementAt self offset-  = liftIO (js_beginElementAt (toSVGAnimationElement self) offset)+  = liftIO+      (js_beginElementAt (toSVGAnimationElement self)+         (maybeToOptional offset))   foreign import javascript unsafe "$1[\"endElement\"]()"         js_endElement :: SVGAnimationElement -> IO ()@@ -105,41 +108,22 @@   = liftIO (js_endElement (toSVGAnimationElement self))   foreign import javascript unsafe "$1[\"endElementAt\"]($2)"-        js_endElementAt :: SVGAnimationElement -> Float -> IO ()+        js_endElementAt :: SVGAnimationElement -> Optional 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 ()+             (MonadIO m, IsSVGAnimationElement self) =>+               self -> Maybe Float -> m () endElementAt self offset-  = liftIO (js_endElementAt (toSVGAnimationElement self) offset)+  = liftIO+      (js_endElementAt (toSVGAnimationElement self)+         (maybeToOptional offset))   foreign import javascript unsafe "$1[\"targetElement\"]"-        js_getTargetElement ::-        SVGAnimationElement -> IO (Nullable SVGElement)+        js_getTargetElement :: SVGAnimationElement -> IO 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)+                 (MonadIO m, IsSVGAnimationElement self) => self -> m SVGElement getTargetElement self-  = liftIO-      (nullableToMaybe <$>-         (js_getTargetElement (toSVGAnimationElement self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimationElement.targetElement Mozilla SVGAnimationElement.targetElement documentation> -getTargetElementUnsafe ::-                       (MonadIO m, IsSVGAnimationElement self, HasCallStack) =>-                         self -> m SVGElement-getTargetElementUnsafe self-  = liftIO-      ((nullableToMaybe <$>-          (js_getTargetElement (toSVGAnimationElement self)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimationElement.targetElement Mozilla SVGAnimationElement.targetElement documentation> -getTargetElementUnchecked ::-                          (MonadIO m, IsSVGAnimationElement self) => self -> m SVGElement-getTargetElementUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_getTargetElement (toSVGAnimationElement self)))+  = liftIO (js_getTargetElement (toSVGAnimationElement self))
src/GHCJS/DOM/JSFFI/Generated/SVGCircleElement.hs view
@@ -4,15 +4,14 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGCircleElement-       (js_getCx, getCx, getCxUnsafe, getCxUnchecked, js_getCy, getCy,-        getCyUnsafe, getCyUnchecked, js_getR, getR, getRUnsafe,-        getRUnchecked, SVGCircleElement(..), gTypeSVGCircleElement)+       (js_getCx, getCx, js_getCy, getCy, js_getR, getR,+        SVGCircleElement(..), gTypeSVGCircleElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -21,76 +20,29 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGCircleElement.cx Mozilla SVGCircleElement.cx documentation> -getCxUnsafe ::-            (MonadIO m, HasCallStack) =>-              SVGCircleElement -> m SVGAnimatedLength-getCxUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getCx (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        SVGCircleElement -> IO SVGAnimatedLength  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGCircleElement.cx Mozilla SVGCircleElement.cx documentation> -getCxUnchecked ::-               (MonadIO m) => SVGCircleElement -> m SVGAnimatedLength-getCxUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getCx (self)))+getCx :: (MonadIO m) => SVGCircleElement -> m SVGAnimatedLength+getCx self = liftIO (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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGCircleElement.cy Mozilla SVGCircleElement.cy documentation> -getCyUnsafe ::-            (MonadIO m, HasCallStack) =>-              SVGCircleElement -> m SVGAnimatedLength-getCyUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getCy (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        SVGCircleElement -> IO SVGAnimatedLength  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGCircleElement.cy Mozilla SVGCircleElement.cy documentation> -getCyUnchecked ::-               (MonadIO m) => SVGCircleElement -> m SVGAnimatedLength-getCyUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getCy (self)))+getCy :: (MonadIO m) => SVGCircleElement -> m SVGAnimatedLength+getCy self = liftIO (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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGCircleElement.r Mozilla SVGCircleElement.r documentation> -getRUnsafe ::-           (MonadIO m, HasCallStack) =>-             SVGCircleElement -> m SVGAnimatedLength-getRUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getR (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        SVGCircleElement -> IO SVGAnimatedLength  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGCircleElement.r Mozilla SVGCircleElement.r documentation> -getRUnchecked ::-              (MonadIO m) => SVGCircleElement -> m SVGAnimatedLength-getRUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getR (self)))+getR :: (MonadIO m) => SVGCircleElement -> m SVGAnimatedLength+getR self = liftIO (js_getR self)
src/GHCJS/DOM/JSFFI/Generated/SVGClipPathElement.hs view
@@ -4,15 +4,14 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGClipPathElement-       (js_getClipPathUnits, getClipPathUnits, getClipPathUnitsUnsafe,-        getClipPathUnitsUnchecked, SVGClipPathElement(..),+       (js_getClipPathUnits, getClipPathUnits, SVGClipPathElement(..),         gTypeSVGClipPathElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -21,6 +20,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -28,27 +28,9 @@   foreign import javascript unsafe "$1[\"clipPathUnits\"]"         js_getClipPathUnits ::-        SVGClipPathElement -> IO (Nullable SVGAnimatedEnumeration)+        SVGClipPathElement -> IO 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGClipPathElement.clipPathUnits Mozilla SVGClipPathElement.clipPathUnits documentation> -getClipPathUnitsUnsafe ::-                       (MonadIO m, HasCallStack) =>-                         SVGClipPathElement -> m SVGAnimatedEnumeration-getClipPathUnitsUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getClipPathUnits (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGClipPathElement.clipPathUnits Mozilla SVGClipPathElement.clipPathUnits documentation> -getClipPathUnitsUnchecked ::-                          (MonadIO m) => SVGClipPathElement -> m SVGAnimatedEnumeration-getClipPathUnitsUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$> (js_getClipPathUnits (self)))+                 (MonadIO m) => SVGClipPathElement -> m SVGAnimatedEnumeration+getClipPathUnits self = liftIO (js_getClipPathUnits self)
− src/GHCJS/DOM/JSFFI/Generated/SVGColor.hs 
@@ -1,104 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility-{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}-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, getRgbColorUnsafe,-        getRgbColorUnchecked, SVGColor(..), gTypeSVGColor, IsSVGColor,-        toSVGColor)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)-import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))-import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGColor.rgbColor Mozilla SVGColor.rgbColor documentation> -getRgbColorUnsafe ::-                  (MonadIO m, IsSVGColor self, HasCallStack) => self -> m RGBColor-getRgbColorUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getRgbColor (toSVGColor self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGColor.rgbColor Mozilla SVGColor.rgbColor documentation> -getRgbColorUnchecked ::-                     (MonadIO m, IsSVGColor self) => self -> m RGBColor-getRgbColorUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$> (js_getRgbColor (toSVGColor self)))
src/GHCJS/DOM/JSFFI/Generated/SVGComponentTransferFunctionElement.hs view
@@ -10,14 +10,9 @@         pattern SVG_FECOMPONENTTRANSFER_TYPE_DISCRETE,         pattern SVG_FECOMPONENTTRANSFER_TYPE_LINEAR,         pattern SVG_FECOMPONENTTRANSFER_TYPE_GAMMA, js_getType, getType,-        getTypeUnsafe, getTypeUnchecked, js_getTableValues, getTableValues,-        getTableValuesUnsafe, getTableValuesUnchecked, js_getSlope,-        getSlope, getSlopeUnsafe, getSlopeUnchecked, js_getIntercept,-        getIntercept, getInterceptUnsafe, getInterceptUnchecked,-        js_getAmplitude, getAmplitude, getAmplitudeUnsafe,-        getAmplitudeUnchecked, js_getExponent, getExponent,-        getExponentUnsafe, getExponentUnchecked, js_getOffset, getOffset,-        getOffsetUnsafe, getOffsetUnchecked,+        js_getTableValues, getTableValues, js_getSlope, getSlope,+        js_getIntercept, getIntercept, js_getAmplitude, getAmplitude,+        js_getExponent, getExponent, js_getOffset, getOffset,         SVGComponentTransferFunctionElement(..),         gTypeSVGComponentTransferFunctionElement,         IsSVGComponentTransferFunctionElement,@@ -27,7 +22,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -36,6 +31,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -48,236 +44,79 @@ pattern SVG_FECOMPONENTTRANSFER_TYPE_GAMMA = 5   foreign import javascript unsafe "$1[\"type\"]" js_getType ::-        SVGComponentTransferFunctionElement ->-          IO (Nullable SVGAnimatedEnumeration)+        SVGComponentTransferFunctionElement -> IO 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)+          self -> m SVGAnimatedEnumeration getType self-  = liftIO-      (nullableToMaybe <$>-         (js_getType (toSVGComponentTransferFunctionElement self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGComponentTransferFunctionElement.type Mozilla SVGComponentTransferFunctionElement.type documentation> -getTypeUnsafe ::-              (MonadIO m, IsSVGComponentTransferFunctionElement self,-               HasCallStack) =>-                self -> m SVGAnimatedEnumeration-getTypeUnsafe self-  = liftIO-      ((nullableToMaybe <$>-          (js_getType (toSVGComponentTransferFunctionElement self)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGComponentTransferFunctionElement.type Mozilla SVGComponentTransferFunctionElement.type documentation> -getTypeUnchecked ::-                 (MonadIO m, IsSVGComponentTransferFunctionElement self) =>-                   self -> m SVGAnimatedEnumeration-getTypeUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_getType (toSVGComponentTransferFunctionElement self)))+  = liftIO (js_getType (toSVGComponentTransferFunctionElement self))   foreign import javascript unsafe "$1[\"tableValues\"]"         js_getTableValues ::-        SVGComponentTransferFunctionElement ->-          IO (Nullable SVGAnimatedNumberList)+        SVGComponentTransferFunctionElement -> IO 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)+                 self -> m SVGAnimatedNumberList getTableValues self   = liftIO-      (nullableToMaybe <$>-         (js_getTableValues (toSVGComponentTransferFunctionElement self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGComponentTransferFunctionElement.tableValues Mozilla SVGComponentTransferFunctionElement.tableValues documentation> -getTableValuesUnsafe ::-                     (MonadIO m, IsSVGComponentTransferFunctionElement self,-                      HasCallStack) =>-                       self -> m SVGAnimatedNumberList-getTableValuesUnsafe self-  = liftIO-      ((nullableToMaybe <$>-          (js_getTableValues (toSVGComponentTransferFunctionElement self)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGComponentTransferFunctionElement.tableValues Mozilla SVGComponentTransferFunctionElement.tableValues documentation> -getTableValuesUnchecked ::-                        (MonadIO m, IsSVGComponentTransferFunctionElement self) =>-                          self -> m SVGAnimatedNumberList-getTableValuesUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_getTableValues (toSVGComponentTransferFunctionElement self)))+      (js_getTableValues (toSVGComponentTransferFunctionElement self))   foreign import javascript unsafe "$1[\"slope\"]" js_getSlope ::-        SVGComponentTransferFunctionElement ->-          IO (Nullable SVGAnimatedNumber)+        SVGComponentTransferFunctionElement -> IO 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)+           self -> m SVGAnimatedNumber getSlope self-  = liftIO-      (nullableToMaybe <$>-         (js_getSlope (toSVGComponentTransferFunctionElement self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGComponentTransferFunctionElement.slope Mozilla SVGComponentTransferFunctionElement.slope documentation> -getSlopeUnsafe ::-               (MonadIO m, IsSVGComponentTransferFunctionElement self,-                HasCallStack) =>-                 self -> m SVGAnimatedNumber-getSlopeUnsafe self-  = liftIO-      ((nullableToMaybe <$>-          (js_getSlope (toSVGComponentTransferFunctionElement self)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGComponentTransferFunctionElement.slope Mozilla SVGComponentTransferFunctionElement.slope documentation> -getSlopeUnchecked ::-                  (MonadIO m, IsSVGComponentTransferFunctionElement self) =>-                    self -> m SVGAnimatedNumber-getSlopeUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_getSlope (toSVGComponentTransferFunctionElement self)))+  = liftIO (js_getSlope (toSVGComponentTransferFunctionElement self))   foreign import javascript unsafe "$1[\"intercept\"]"         js_getIntercept ::-        SVGComponentTransferFunctionElement ->-          IO (Nullable SVGAnimatedNumber)+        SVGComponentTransferFunctionElement -> IO 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)+               self -> m SVGAnimatedNumber getIntercept self   = liftIO-      (nullableToMaybe <$>-         (js_getIntercept (toSVGComponentTransferFunctionElement self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGComponentTransferFunctionElement.intercept Mozilla SVGComponentTransferFunctionElement.intercept documentation> -getInterceptUnsafe ::-                   (MonadIO m, IsSVGComponentTransferFunctionElement self,-                    HasCallStack) =>-                     self -> m SVGAnimatedNumber-getInterceptUnsafe self-  = liftIO-      ((nullableToMaybe <$>-          (js_getIntercept (toSVGComponentTransferFunctionElement self)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGComponentTransferFunctionElement.intercept Mozilla SVGComponentTransferFunctionElement.intercept documentation> -getInterceptUnchecked ::-                      (MonadIO m, IsSVGComponentTransferFunctionElement self) =>-                        self -> m SVGAnimatedNumber-getInterceptUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_getIntercept (toSVGComponentTransferFunctionElement self)))+      (js_getIntercept (toSVGComponentTransferFunctionElement self))   foreign import javascript unsafe "$1[\"amplitude\"]"         js_getAmplitude ::-        SVGComponentTransferFunctionElement ->-          IO (Nullable SVGAnimatedNumber)+        SVGComponentTransferFunctionElement -> IO 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)+               self -> m SVGAnimatedNumber getAmplitude self   = liftIO-      (nullableToMaybe <$>-         (js_getAmplitude (toSVGComponentTransferFunctionElement self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGComponentTransferFunctionElement.amplitude Mozilla SVGComponentTransferFunctionElement.amplitude documentation> -getAmplitudeUnsafe ::-                   (MonadIO m, IsSVGComponentTransferFunctionElement self,-                    HasCallStack) =>-                     self -> m SVGAnimatedNumber-getAmplitudeUnsafe self-  = liftIO-      ((nullableToMaybe <$>-          (js_getAmplitude (toSVGComponentTransferFunctionElement self)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGComponentTransferFunctionElement.amplitude Mozilla SVGComponentTransferFunctionElement.amplitude documentation> -getAmplitudeUnchecked ::-                      (MonadIO m, IsSVGComponentTransferFunctionElement self) =>-                        self -> m SVGAnimatedNumber-getAmplitudeUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_getAmplitude (toSVGComponentTransferFunctionElement self)))+      (js_getAmplitude (toSVGComponentTransferFunctionElement self))   foreign import javascript unsafe "$1[\"exponent\"]" js_getExponent-        ::-        SVGComponentTransferFunctionElement ->-          IO (Nullable SVGAnimatedNumber)+        :: SVGComponentTransferFunctionElement -> IO 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)+              self -> m SVGAnimatedNumber getExponent self   = liftIO-      (nullableToMaybe <$>-         (js_getExponent (toSVGComponentTransferFunctionElement self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGComponentTransferFunctionElement.exponent Mozilla SVGComponentTransferFunctionElement.exponent documentation> -getExponentUnsafe ::-                  (MonadIO m, IsSVGComponentTransferFunctionElement self,-                   HasCallStack) =>-                    self -> m SVGAnimatedNumber-getExponentUnsafe self-  = liftIO-      ((nullableToMaybe <$>-          (js_getExponent (toSVGComponentTransferFunctionElement self)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGComponentTransferFunctionElement.exponent Mozilla SVGComponentTransferFunctionElement.exponent documentation> -getExponentUnchecked ::-                     (MonadIO m, IsSVGComponentTransferFunctionElement self) =>-                       self -> m SVGAnimatedNumber-getExponentUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_getExponent (toSVGComponentTransferFunctionElement self)))+      (js_getExponent (toSVGComponentTransferFunctionElement self))   foreign import javascript unsafe "$1[\"offset\"]" js_getOffset ::-        SVGComponentTransferFunctionElement ->-          IO (Nullable SVGAnimatedNumber)+        SVGComponentTransferFunctionElement -> IO 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)+            self -> m SVGAnimatedNumber getOffset self   = liftIO-      (nullableToMaybe <$>-         (js_getOffset (toSVGComponentTransferFunctionElement self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGComponentTransferFunctionElement.offset Mozilla SVGComponentTransferFunctionElement.offset documentation> -getOffsetUnsafe ::-                (MonadIO m, IsSVGComponentTransferFunctionElement self,-                 HasCallStack) =>-                  self -> m SVGAnimatedNumber-getOffsetUnsafe self-  = liftIO-      ((nullableToMaybe <$>-          (js_getOffset (toSVGComponentTransferFunctionElement self)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGComponentTransferFunctionElement.offset Mozilla SVGComponentTransferFunctionElement.offset documentation> -getOffsetUnchecked ::-                   (MonadIO m, IsSVGComponentTransferFunctionElement self) =>-                     self -> m SVGAnimatedNumber-getOffsetUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_getOffset (toSVGComponentTransferFunctionElement self)))+      (js_getOffset (toSVGComponentTransferFunctionElement self))
src/GHCJS/DOM/JSFFI/Generated/SVGCursorElement.hs view
@@ -4,15 +4,14 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGCursorElement-       (js_getX, getX, getXUnsafe, getXUnchecked, js_getY, getY,-        getYUnsafe, getYUnchecked, SVGCursorElement(..),+       (js_getX, getX, js_getY, getY, SVGCursorElement(..),         gTypeSVGCursorElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -21,53 +20,22 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGCursorElement.x Mozilla SVGCursorElement.x documentation> -getXUnsafe ::-           (MonadIO m, HasCallStack) =>-             SVGCursorElement -> m SVGAnimatedLength-getXUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getX (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        SVGCursorElement -> IO SVGAnimatedLength  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGCursorElement.x Mozilla SVGCursorElement.x documentation> -getXUnchecked ::-              (MonadIO m) => SVGCursorElement -> m SVGAnimatedLength-getXUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getX (self)))+getX :: (MonadIO m) => SVGCursorElement -> m SVGAnimatedLength+getX self = liftIO (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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGCursorElement.y Mozilla SVGCursorElement.y documentation> -getYUnsafe ::-           (MonadIO m, HasCallStack) =>-             SVGCursorElement -> m SVGAnimatedLength-getYUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getY (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        SVGCursorElement -> IO SVGAnimatedLength  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGCursorElement.y Mozilla SVGCursorElement.y documentation> -getYUnchecked ::-              (MonadIO m) => SVGCursorElement -> m SVGAnimatedLength-getYUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getY (self)))+getY :: (MonadIO m) => SVGCursorElement -> m SVGAnimatedLength+getY self = liftIO (js_getY self)
− src/GHCJS/DOM/JSFFI/Generated/SVGDocument.hs 
@@ -1,90 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility-{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}-module GHCJS.DOM.JSFFI.Generated.SVGDocument-       (js_createEvent, createEvent, createEvent_, createEventUnsafe,-        createEventUnchecked, js_getRootElement, getRootElement,-        getRootElementUnsafe, getRootElementUnchecked, SVGDocument(..),-        gTypeSVGDocument)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)-import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))-import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGDocument.createEvent Mozilla SVGDocument.createEvent documentation> -createEvent_ ::-             (MonadIO m, ToJSString eventType) =>-               SVGDocument -> eventType -> m ()-createEvent_ self eventType-  = liftIO (void (js_createEvent (self) (toJSString eventType)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGDocument.createEvent Mozilla SVGDocument.createEvent documentation> -createEventUnsafe ::-                  (MonadIO m, ToJSString eventType, HasCallStack) =>-                    SVGDocument -> eventType -> m Event-createEventUnsafe self eventType-  = liftIO-      ((nullableToMaybe <$>-          (js_createEvent (self) (toJSString eventType)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGDocument.createEvent Mozilla SVGDocument.createEvent documentation> -createEventUnchecked ::-                     (MonadIO m, ToJSString eventType) =>-                       SVGDocument -> eventType -> m Event-createEventUnchecked self eventType-  = liftIO-      (fromJust . 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGDocument.rootElement Mozilla SVGDocument.rootElement documentation> -getRootElementUnsafe ::-                     (MonadIO m, HasCallStack) => SVGDocument -> m SVGSVGElement-getRootElementUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getRootElement (self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGDocument.rootElement Mozilla SVGDocument.rootElement documentation> -getRootElementUnchecked ::-                        (MonadIO m) => SVGDocument -> m SVGSVGElement-getRootElementUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$> (js_getRootElement (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGElement.hs view
@@ -5,26 +5,20 @@ {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGElement        (js_getPresentationAttribute, getPresentationAttribute,-        getPresentationAttribute_, getPresentationAttributeUnsafe,-        getPresentationAttributeUnchecked, js_setXmlbase, setXmlbase,-        js_getXmlbase, getXmlbase, getXmlbaseUnsafe, getXmlbaseUnchecked,-        js_getOwnerSVGElement, getOwnerSVGElement,-        getOwnerSVGElementUnsafe, getOwnerSVGElementUnchecked,-        js_getViewportElement, getViewportElement,-        getViewportElementUnsafe, getViewportElementUnchecked,-        js_setXmllang, setXmllang, js_getXmllang, getXmllang,-        js_setXmlspace, setXmlspace, js_getXmlspace, getXmlspace,-        js_getClassName, getClassName, getClassNameUnsafe,-        getClassNameUnchecked, js_getStyle, getStyle, getStyleUnsafe,-        getStyleUnchecked, js_setTabIndex, setTabIndex, js_getTabIndex,-        getTabIndex, SVGElement(..), gTypeSVGElement, IsSVGElement,-        toSVGElement)+        getPresentationAttribute_, js_focus, focus, js_blur, blur,+        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,+        js_getDataset, getDataset, SVGElement(..), gTypeSVGElement,+        IsSVGElement, toSVGElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -33,6 +27,7 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)@@ -40,142 +35,58 @@   foreign import javascript unsafe         "$1[\"getPresentationAttribute\"]($2)" js_getPresentationAttribute-        :: SVGElement -> JSString -> IO (Nullable CSSValue)+        :: SVGElement -> Optional JSString -> IO 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)+                           self -> Maybe name -> m CSSValue getPresentationAttribute self name   = liftIO-      (nullableToMaybe <$>-         (js_getPresentationAttribute (toSVGElement self)-            (toJSString name)))+      (js_getPresentationAttribute (toSVGElement self)+         (toOptionalJSString name))  -- | <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 ()+                            self -> Maybe name -> m () getPresentationAttribute_ self name   = liftIO       (void          (js_getPresentationAttribute (toSVGElement self)-            (toJSString name)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGElement.getPresentationAttribute Mozilla SVGElement.getPresentationAttribute documentation> -getPresentationAttributeUnsafe ::-                               (MonadIO m, IsSVGElement self, ToJSString name, HasCallStack) =>-                                 self -> name -> m CSSValue-getPresentationAttributeUnsafe self name-  = liftIO-      ((nullableToMaybe <$>-          (js_getPresentationAttribute (toSVGElement self)-             (toJSString name)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGElement.getPresentationAttribute Mozilla SVGElement.getPresentationAttribute documentation> -getPresentationAttributeUnchecked ::-                                  (MonadIO m, IsSVGElement self, ToJSString name) =>-                                    self -> name -> m CSSValue-getPresentationAttributeUnchecked self name-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_getPresentationAttribute (toSVGElement self)-            (toJSString name)))+            (toOptionalJSString name)))  -foreign import javascript unsafe "$1[\"xmlbase\"] = $2;"-        js_setXmlbase :: SVGElement -> Nullable JSString -> IO ()+foreign import javascript unsafe "$1[\"focus\"]()" js_focus ::+        SVGElement -> 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))+-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGElement.focus Mozilla SVGElement.focus documentation> +focus :: (MonadIO m, IsSVGElement self) => self -> m ()+focus self = liftIO (js_focus (toSVGElement self))  -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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGElement.xmlbase Mozilla SVGElement.xmlbase documentation> -getXmlbaseUnsafe ::-                 (MonadIO m, IsSVGElement self, HasCallStack,-                  FromJSString result) =>-                   self -> m result-getXmlbaseUnsafe self-  = liftIO-      ((fromMaybeJSString <$> (js_getXmlbase (toSVGElement self))) >>=-         maybe (Prelude.error "Nothing to return") return)+foreign import javascript unsafe "$1[\"blur\"]()" js_blur ::+        SVGElement -> IO () --- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGElement.xmlbase Mozilla SVGElement.xmlbase documentation> -getXmlbaseUnchecked ::-                    (MonadIO m, IsSVGElement self, FromJSString result) =>-                      self -> m result-getXmlbaseUnchecked self-  = liftIO-      (fromJust . fromMaybeJSString <$>-         (js_getXmlbase (toSVGElement self)))+-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGElement.blur Mozilla SVGElement.blur documentation> +blur :: (MonadIO m, IsSVGElement self) => self -> m ()+blur self = liftIO (js_blur (toSVGElement self))   foreign import javascript unsafe "$1[\"ownerSVGElement\"]"-        js_getOwnerSVGElement :: SVGElement -> IO (Nullable SVGSVGElement)+        js_getOwnerSVGElement :: SVGElement -> IO 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)+                   (MonadIO m, IsSVGElement self) => self -> m SVGSVGElement getOwnerSVGElement self-  = liftIO-      (nullableToMaybe <$> (js_getOwnerSVGElement (toSVGElement self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGElement.ownerSVGElement Mozilla SVGElement.ownerSVGElement documentation> -getOwnerSVGElementUnsafe ::-                         (MonadIO m, IsSVGElement self, HasCallStack) =>-                           self -> m SVGSVGElement-getOwnerSVGElementUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getOwnerSVGElement (toSVGElement self)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGElement.ownerSVGElement Mozilla SVGElement.ownerSVGElement documentation> -getOwnerSVGElementUnchecked ::-                            (MonadIO m, IsSVGElement self) => self -> m SVGSVGElement-getOwnerSVGElementUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_getOwnerSVGElement (toSVGElement self)))+  = liftIO (js_getOwnerSVGElement (toSVGElement self))   foreign import javascript unsafe "$1[\"viewportElement\"]"-        js_getViewportElement :: SVGElement -> IO (Nullable SVGElement)+        js_getViewportElement :: SVGElement -> IO 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)+                   (MonadIO m, IsSVGElement self) => self -> m SVGElement getViewportElement self-  = liftIO-      (nullableToMaybe <$> (js_getViewportElement (toSVGElement self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGElement.viewportElement Mozilla SVGElement.viewportElement documentation> -getViewportElementUnsafe ::-                         (MonadIO m, IsSVGElement self, HasCallStack) =>-                           self -> m SVGElement-getViewportElementUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getViewportElement (toSVGElement self)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGElement.viewportElement Mozilla SVGElement.viewportElement documentation> -getViewportElementUnchecked ::-                            (MonadIO m, IsSVGElement self) => self -> m SVGElement-getViewportElementUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_getViewportElement (toSVGElement self)))+  = liftIO (js_getViewportElement (toSVGElement self))   foreign import javascript unsafe "$1[\"xmllang\"] = $2;"         js_setXmllang :: SVGElement -> JSString -> IO ()@@ -218,58 +129,20 @@   = liftIO (fromJSString <$> (js_getXmlspace (toSVGElement self)))   foreign import javascript unsafe "$1[\"className\"]"-        js_getClassName :: SVGElement -> IO (Nullable SVGAnimatedString)+        js_getClassName :: SVGElement -> IO 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGElement.className Mozilla SVGElement.className documentation> -getClassNameUnsafe ::-                   (MonadIO m, IsSVGElement self, HasCallStack) =>-                     self -> m SVGAnimatedString-getClassNameUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getClassName (toSVGElement self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGElement.className Mozilla SVGElement.className documentation> -getClassNameUnchecked ::-                      (MonadIO m, IsSVGElement self) => self -> m SVGAnimatedString-getClassNameUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_getClassName (toSVGElement self)))+             (MonadIO m, IsSVGElement self) => self -> m SVGAnimatedString+getClassName self = liftIO (js_getClassName (toSVGElement self))   foreign import javascript unsafe "$1[\"style\"]" js_getStyle ::-        SVGElement -> IO (Nullable CSSStyleDeclaration)+        SVGElement -> IO 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGElement.style Mozilla SVGElement.style documentation> -getStyleUnsafe ::-               (MonadIO m, IsSVGElement self, HasCallStack) =>-                 self -> m CSSStyleDeclaration-getStyleUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getStyle (toSVGElement self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGElement.style Mozilla SVGElement.style documentation> -getStyleUnchecked ::-                  (MonadIO m, IsSVGElement self) => self -> m CSSStyleDeclaration-getStyleUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$> (js_getStyle (toSVGElement self)))+         (MonadIO m, IsSVGElement self) => self -> m CSSStyleDeclaration+getStyle self = liftIO (js_getStyle (toSVGElement self))   foreign import javascript unsafe "$1[\"tabIndex\"] = $2;"         js_setTabIndex :: SVGElement -> Int -> IO ()@@ -286,3 +159,11 @@ -- | <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))+ +foreign import javascript unsafe "$1[\"dataset\"]" js_getDataset ::+        SVGElement -> IO DOMStringMap++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGElement.dataset Mozilla SVGElement.dataset documentation> +getDataset ::+           (MonadIO m, IsSVGElement self) => self -> m DOMStringMap+getDataset self = liftIO (js_getDataset (toSVGElement self))
src/GHCJS/DOM/JSFFI/Generated/SVGEllipseElement.hs view
@@ -4,16 +4,14 @@ -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGEllipseElement-       (js_getCx, getCx, getCxUnsafe, getCxUnchecked, js_getCy, getCy,-        getCyUnsafe, getCyUnchecked, js_getRx, getRx, getRxUnsafe,-        getRxUnchecked, js_getRy, getRy, getRyUnsafe, getRyUnchecked,-        SVGEllipseElement(..), gTypeSVGEllipseElement)+       (js_getCx, getCx, js_getCy, getCy, js_getRx, getRx, js_getRy,+        getRy, SVGEllipseElement(..), gTypeSVGEllipseElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull)+import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))@@ -22,99 +20,36 @@ import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust)+import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) 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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGEllipseElement.cx Mozilla SVGEllipseElement.cx documentation> -getCxUnsafe ::-            (MonadIO m, HasCallStack) =>-              SVGEllipseElement -> m SVGAnimatedLength-getCxUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getCx (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        SVGEllipseElement -> IO SVGAnimatedLength  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGEllipseElement.cx Mozilla SVGEllipseElement.cx documentation> -getCxUnchecked ::-               (MonadIO m) => SVGEllipseElement -> m SVGAnimatedLength-getCxUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getCx (self)))+getCx :: (MonadIO m) => SVGEllipseElement -> m SVGAnimatedLength+getCx self = liftIO (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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGEllipseElement.cy Mozilla SVGEllipseElement.cy documentation> -getCyUnsafe ::-            (MonadIO m, HasCallStack) =>-              SVGEllipseElement -> m SVGAnimatedLength-getCyUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getCy (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        SVGEllipseElement -> IO SVGAnimatedLength  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGEllipseElement.cy Mozilla SVGEllipseElement.cy documentation> -getCyUnchecked ::-               (MonadIO m) => SVGEllipseElement -> m SVGAnimatedLength-getCyUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getCy (self)))+getCy :: (MonadIO m) => SVGEllipseElement -> m SVGAnimatedLength+getCy self = liftIO (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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGEllipseElement.rx Mozilla SVGEllipseElement.rx documentation> -getRxUnsafe ::-            (MonadIO m, HasCallStack) =>-              SVGEllipseElement -> m SVGAnimatedLength-getRxUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getRx (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        SVGEllipseElement -> IO SVGAnimatedLength  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGEllipseElement.rx Mozilla SVGEllipseElement.rx documentation> -getRxUnchecked ::-               (MonadIO m) => SVGEllipseElement -> m SVGAnimatedLength-getRxUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getRx (self)))+getRx :: (MonadIO m) => SVGEllipseElement -> m SVGAnimatedLength+getRx self = liftIO (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)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGEllipseElement.ry Mozilla SVGEllipseElement.ry documentation> -getRyUnsafe ::-            (MonadIO m, HasCallStack) =>-              SVGEllipseElement -> m SVGAnimatedLength-getRyUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getRy (self))) >>=-         maybe (Prelude.error "Nothing to return") return)+        SVGEllipseElement -> IO SVGAnimatedLength  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGEllipseElement.ry Mozilla SVGEllipseElement.ry documentation> -getRyUnchecked ::-               (MonadIO m) => SVGEllipseElement -> m SVGAnimatedLength-getRyUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getRy (self)))+getRy :: (MonadIO m) => SVGEllipseElement -> m SVGAnimatedLength+getRy self = liftIO (js_getRy self)
+ src/GHCJS/DOM/JSFFI/Generated/SVGException.hs view

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

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/ShadowRoot.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/Slotable.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

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/StaticRange.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/TextDecoder.hs view

file too large to diff

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

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/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

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

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

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

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

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/WebKitMediaKeys.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/WebKitSubtleCrypto.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

file too large to diff

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

file too large to diff

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

file too large to diff

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

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/WritableStream.hs view

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

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/XPathException.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/MediaStreamTrack.hs

file too large to diff

− src/GHCJS/DOM/JSFFI/RTCPeerConnection.hs

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