diff --git a/ChangeLog.md b/ChangeLog.md new file mode 100644 --- /dev/null +++ b/ChangeLog.md @@ -0,0 +1,7 @@ +# Revision history for ghcjs-dom-javascript + +See ghcjs-dom's ChangeLog.md (the ghcjs-dom packages are released together). + +## 0.10.0.0 + +* Regenerated by dom-gen from current specifications; see ghcjs-dom 0.10.0.0. diff --git a/ghcjs-dom-javascript.cabal b/ghcjs-dom-javascript.cabal --- a/ghcjs-dom-javascript.cabal +++ b/ghcjs-dom-javascript.cabal @@ -1,1237 +1,2927 @@ cabal-version: 3.6 name: ghcjs-dom-javascript -version: 0.9.9.3 -build-type: Simple -license: MIT -license-file: LICENSE -maintainer: Hamish Mackenzie -synopsis: DOM library using JSFFI and GHCJS -description: Documentent Object Model (DOM) functions that work with - GHCJS. -author: Hamish Mackenzie -category: Web - -Tested-With: - GHC == 8.8.1 || == 8.6.5 || == 8.4.4 || == 8.2.2 || == 8.0.2 || == 7.10.3, - GHCJS == 8.4 || == 8.2 - -Source-Repository head - type: git - location: https://github.com/ghcjs/ghcjs-dom - subdir: ghcjs-dom-javascript - -library - build-depends: base <5, - transformers >=0.2 && <0.7, - text >= 0.11.0.6 && < 2.2, - ghcjs-base >=0.8.0.0 && <0.9, - ghc-prim - - default-language: Haskell2010 - - if impl(ghcjs) - other-extensions: JavaScriptFFI - build-depends: ghcjs-prim - - hs-source-dirs: src - cpp-options: -DUSE_JAVASCRIPTFFI - exposed: True - if impl(ghcjs) || arch(javascript) - buildable: True - else - buildable: False - js-sources: jsbits/xhr.js - - exposed-modules: - GHCJS.DOM - GHCJS.DOM.Types - GHCJS.DOM.EventM - GHCJS.DOM.EventTargetClosures - GHCJS.DOM.Internal - - GHCJS.DOM.JSFFI.AudioContext - GHCJS.DOM.JSFFI.Database - GHCJS.DOM.JSFFI.DOMError - GHCJS.DOM.JSFFI.Geolocation - GHCJS.DOM.JSFFI.Navigator - GHCJS.DOM.JSFFI.NavigatorUserMediaError - GHCJS.DOM.JSFFI.PositionError - GHCJS.DOM.JSFFI.RTCPeerConnectionError - GHCJS.DOM.JSFFI.SpeechGrammar - GHCJS.DOM.JSFFI.SpeechRecognition - GHCJS.DOM.JSFFI.SpeechRecognitionError - GHCJS.DOM.JSFFI.SpeechRecognitionEvent - GHCJS.DOM.JSFFI.SQLError - GHCJS.DOM.JSFFI.SQLTransaction - GHCJS.DOM.JSFFI.Window - GHCJS.DOM.JSFFI.XMLHttpRequest - - -- (cd ghcjs-dom-javascript/src/GHCJS/DOM/JSFFI/Generated && ls | sed 's|\(^.*\)\.hs| GHCJS.DOM.JSFFI.Generated.\1|' | pbcopy) - GHCJS.DOM.JSFFI.Generated.ANGLEInstancedArrays - GHCJS.DOM.JSFFI.Generated.AbstractWorker - GHCJS.DOM.JSFFI.Generated.AnalyserNode - GHCJS.DOM.JSFFI.Generated.Animatable - GHCJS.DOM.JSFFI.Generated.Animation - GHCJS.DOM.JSFFI.Generated.AnimationEvent - GHCJS.DOM.JSFFI.Generated.ApplePayError - GHCJS.DOM.JSFFI.Generated.ApplePayPaymentAuthorizedEvent - GHCJS.DOM.JSFFI.Generated.ApplePayPaymentMethodSelectedEvent - GHCJS.DOM.JSFFI.Generated.ApplePaySession - GHCJS.DOM.JSFFI.Generated.ApplePayShippingContactSelectedEvent - GHCJS.DOM.JSFFI.Generated.ApplePayShippingMethodSelectedEvent - GHCJS.DOM.JSFFI.Generated.ApplePayValidateMerchantEvent - GHCJS.DOM.JSFFI.Generated.ApplicationCache - GHCJS.DOM.JSFFI.Generated.Attr - GHCJS.DOM.JSFFI.Generated.AudioBuffer - GHCJS.DOM.JSFFI.Generated.AudioBufferCallback - GHCJS.DOM.JSFFI.Generated.AudioBufferSourceNode - GHCJS.DOM.JSFFI.Generated.AudioContext - GHCJS.DOM.JSFFI.Generated.AudioDestinationNode - GHCJS.DOM.JSFFI.Generated.AudioListener - GHCJS.DOM.JSFFI.Generated.AudioNode - GHCJS.DOM.JSFFI.Generated.AudioParam - GHCJS.DOM.JSFFI.Generated.AudioProcessingEvent - GHCJS.DOM.JSFFI.Generated.AudioTrack - GHCJS.DOM.JSFFI.Generated.AudioTrackList - GHCJS.DOM.JSFFI.Generated.AutocompleteErrorEvent - GHCJS.DOM.JSFFI.Generated.BarProp - GHCJS.DOM.JSFFI.Generated.BasicCredential - GHCJS.DOM.JSFFI.Generated.BeforeLoadEvent - GHCJS.DOM.JSFFI.Generated.BeforeUnloadEvent - GHCJS.DOM.JSFFI.Generated.BiquadFilterNode - GHCJS.DOM.JSFFI.Generated.Blob - GHCJS.DOM.JSFFI.Generated.BlobCallback - GHCJS.DOM.JSFFI.Generated.Body - GHCJS.DOM.JSFFI.Generated.ByteLengthQueuingStrategy - GHCJS.DOM.JSFFI.Generated.CSS - GHCJS.DOM.JSFFI.Generated.CSSFontFaceLoadEvent - GHCJS.DOM.JSFFI.Generated.CSSFontFaceRule - GHCJS.DOM.JSFFI.Generated.CSSImportRule - GHCJS.DOM.JSFFI.Generated.CSSKeyframeRule - GHCJS.DOM.JSFFI.Generated.CSSKeyframesRule - GHCJS.DOM.JSFFI.Generated.CSSMediaRule - GHCJS.DOM.JSFFI.Generated.CSSNamespaceRule - GHCJS.DOM.JSFFI.Generated.CSSPageRule - GHCJS.DOM.JSFFI.Generated.CSSPrimitiveValue - GHCJS.DOM.JSFFI.Generated.CSSRule - GHCJS.DOM.JSFFI.Generated.CSSRuleList - GHCJS.DOM.JSFFI.Generated.CSSStyleDeclaration - GHCJS.DOM.JSFFI.Generated.CSSStyleRule - GHCJS.DOM.JSFFI.Generated.CSSStyleSheet - GHCJS.DOM.JSFFI.Generated.CSSSupportsRule - GHCJS.DOM.JSFFI.Generated.CSSValue - GHCJS.DOM.JSFFI.Generated.CSSValueList - GHCJS.DOM.JSFFI.Generated.CanvasCaptureMediaStreamTrack - GHCJS.DOM.JSFFI.Generated.CanvasGradient - GHCJS.DOM.JSFFI.Generated.CanvasPath - GHCJS.DOM.JSFFI.Generated.CanvasRenderingContext2D - GHCJS.DOM.JSFFI.Generated.CharacterData - GHCJS.DOM.JSFFI.Generated.ChildNode - GHCJS.DOM.JSFFI.Generated.ClipboardEvent - GHCJS.DOM.JSFFI.Generated.CloseEvent - GHCJS.DOM.JSFFI.Generated.CommandLineAPIHost - GHCJS.DOM.JSFFI.Generated.Comment - GHCJS.DOM.JSFFI.Generated.CompositionEvent - GHCJS.DOM.JSFFI.Generated.ConvolverNode - GHCJS.DOM.JSFFI.Generated.Coordinates - GHCJS.DOM.JSFFI.Generated.CountQueuingStrategy - GHCJS.DOM.JSFFI.Generated.Counter - GHCJS.DOM.JSFFI.Generated.Crypto - GHCJS.DOM.JSFFI.Generated.CryptoKey - GHCJS.DOM.JSFFI.Generated.CustomElementRegistry - GHCJS.DOM.JSFFI.Generated.CustomEvent - GHCJS.DOM.JSFFI.Generated.DOMError - GHCJS.DOM.JSFFI.Generated.DOMException - GHCJS.DOM.JSFFI.Generated.DOMImplementation - GHCJS.DOM.JSFFI.Generated.DOMNamedFlowCollection - GHCJS.DOM.JSFFI.Generated.DOMParser - GHCJS.DOM.JSFFI.Generated.DOMPoint - GHCJS.DOM.JSFFI.Generated.DOMPointReadOnly - GHCJS.DOM.JSFFI.Generated.DOMRect - GHCJS.DOM.JSFFI.Generated.DOMRectReadOnly - GHCJS.DOM.JSFFI.Generated.DOMStringList - GHCJS.DOM.JSFFI.Generated.DOMStringMap - GHCJS.DOM.JSFFI.Generated.DOMTokenList - GHCJS.DOM.JSFFI.Generated.DataCue - GHCJS.DOM.JSFFI.Generated.DataTransfer - GHCJS.DOM.JSFFI.Generated.DataTransferItem - GHCJS.DOM.JSFFI.Generated.DataTransferItemList - GHCJS.DOM.JSFFI.Generated.Database - GHCJS.DOM.JSFFI.Generated.DatabaseCallback - GHCJS.DOM.JSFFI.Generated.DedicatedWorkerGlobalScope - GHCJS.DOM.JSFFI.Generated.DelayNode - GHCJS.DOM.JSFFI.Generated.DeviceMotionEvent - GHCJS.DOM.JSFFI.Generated.DeviceOrientationEvent - GHCJS.DOM.JSFFI.Generated.DeviceProximityEvent - GHCJS.DOM.JSFFI.Generated.Document - GHCJS.DOM.JSFFI.Generated.DocumentAndElementEventHandlers - GHCJS.DOM.JSFFI.Generated.DocumentFragment - GHCJS.DOM.JSFFI.Generated.DocumentOrShadowRoot - GHCJS.DOM.JSFFI.Generated.DocumentTimeline - GHCJS.DOM.JSFFI.Generated.DocumentType - GHCJS.DOM.JSFFI.Generated.DynamicsCompressorNode - GHCJS.DOM.JSFFI.Generated.EXTBlendMinMax - GHCJS.DOM.JSFFI.Generated.EXTTextureFilterAnisotropic - GHCJS.DOM.JSFFI.Generated.EXTsRGB - GHCJS.DOM.JSFFI.Generated.Element - GHCJS.DOM.JSFFI.Generated.ElementCSSInlineStyle - GHCJS.DOM.JSFFI.Generated.Enums - GHCJS.DOM.JSFFI.Generated.ErrorEvent - GHCJS.DOM.JSFFI.Generated.Event - GHCJS.DOM.JSFFI.Generated.EventListener - GHCJS.DOM.JSFFI.Generated.EventSource - GHCJS.DOM.JSFFI.Generated.EventTarget - GHCJS.DOM.JSFFI.Generated.File - GHCJS.DOM.JSFFI.Generated.FileError - GHCJS.DOM.JSFFI.Generated.FileException - GHCJS.DOM.JSFFI.Generated.FileList - GHCJS.DOM.JSFFI.Generated.FileReader - GHCJS.DOM.JSFFI.Generated.FileReaderSync - GHCJS.DOM.JSFFI.Generated.FocusEvent - GHCJS.DOM.JSFFI.Generated.FontFace - GHCJS.DOM.JSFFI.Generated.FontFaceSet - GHCJS.DOM.JSFFI.Generated.FormData - GHCJS.DOM.JSFFI.Generated.GainNode - GHCJS.DOM.JSFFI.Generated.Gamepad - GHCJS.DOM.JSFFI.Generated.GamepadButton - GHCJS.DOM.JSFFI.Generated.GamepadEvent - GHCJS.DOM.JSFFI.Generated.Geolocation - GHCJS.DOM.JSFFI.Generated.Geoposition - GHCJS.DOM.JSFFI.Generated.GlobalCrypto - GHCJS.DOM.JSFFI.Generated.GlobalEventHandlers - GHCJS.DOM.JSFFI.Generated.GlobalPerformance - GHCJS.DOM.JSFFI.Generated.HTMLAllCollection - GHCJS.DOM.JSFFI.Generated.HTMLAnchorElement - GHCJS.DOM.JSFFI.Generated.HTMLAppletElement - GHCJS.DOM.JSFFI.Generated.HTMLAreaElement - GHCJS.DOM.JSFFI.Generated.HTMLAttachmentElement - GHCJS.DOM.JSFFI.Generated.HTMLBRElement - GHCJS.DOM.JSFFI.Generated.HTMLBaseElement - GHCJS.DOM.JSFFI.Generated.HTMLBodyElement - GHCJS.DOM.JSFFI.Generated.HTMLButtonElement - GHCJS.DOM.JSFFI.Generated.HTMLCanvasElement - GHCJS.DOM.JSFFI.Generated.HTMLCollection - GHCJS.DOM.JSFFI.Generated.HTMLDListElement - GHCJS.DOM.JSFFI.Generated.HTMLDataElement - GHCJS.DOM.JSFFI.Generated.HTMLDataListElement - GHCJS.DOM.JSFFI.Generated.HTMLDetailsElement - GHCJS.DOM.JSFFI.Generated.HTMLDirectoryElement - GHCJS.DOM.JSFFI.Generated.HTMLDivElement - GHCJS.DOM.JSFFI.Generated.HTMLDocument - GHCJS.DOM.JSFFI.Generated.HTMLElement - GHCJS.DOM.JSFFI.Generated.HTMLEmbedElement - GHCJS.DOM.JSFFI.Generated.HTMLFieldSetElement - GHCJS.DOM.JSFFI.Generated.HTMLFontElement - GHCJS.DOM.JSFFI.Generated.HTMLFormControlsCollection - GHCJS.DOM.JSFFI.Generated.HTMLFormElement - GHCJS.DOM.JSFFI.Generated.HTMLFrameElement - GHCJS.DOM.JSFFI.Generated.HTMLFrameSetElement - GHCJS.DOM.JSFFI.Generated.HTMLHRElement - GHCJS.DOM.JSFFI.Generated.HTMLHeadElement - GHCJS.DOM.JSFFI.Generated.HTMLHeadingElement - GHCJS.DOM.JSFFI.Generated.HTMLHtmlElement - GHCJS.DOM.JSFFI.Generated.HTMLHyperlinkElementUtils - GHCJS.DOM.JSFFI.Generated.HTMLIFrameElement - GHCJS.DOM.JSFFI.Generated.HTMLImageElement - GHCJS.DOM.JSFFI.Generated.HTMLInputElement - GHCJS.DOM.JSFFI.Generated.HTMLKeygenElement - GHCJS.DOM.JSFFI.Generated.HTMLLIElement - GHCJS.DOM.JSFFI.Generated.HTMLLabelElement - GHCJS.DOM.JSFFI.Generated.HTMLLegendElement - GHCJS.DOM.JSFFI.Generated.HTMLLinkElement - GHCJS.DOM.JSFFI.Generated.HTMLMapElement - GHCJS.DOM.JSFFI.Generated.HTMLMarqueeElement - GHCJS.DOM.JSFFI.Generated.HTMLMediaElement - GHCJS.DOM.JSFFI.Generated.HTMLMenuElement - GHCJS.DOM.JSFFI.Generated.HTMLMetaElement - GHCJS.DOM.JSFFI.Generated.HTMLMeterElement - GHCJS.DOM.JSFFI.Generated.HTMLModElement - GHCJS.DOM.JSFFI.Generated.HTMLOListElement - GHCJS.DOM.JSFFI.Generated.HTMLObjectElement - GHCJS.DOM.JSFFI.Generated.HTMLOptGroupElement - GHCJS.DOM.JSFFI.Generated.HTMLOptionElement - GHCJS.DOM.JSFFI.Generated.HTMLOptionsCollection - GHCJS.DOM.JSFFI.Generated.HTMLOutputElement - GHCJS.DOM.JSFFI.Generated.HTMLParagraphElement - GHCJS.DOM.JSFFI.Generated.HTMLParamElement - GHCJS.DOM.JSFFI.Generated.HTMLPreElement - GHCJS.DOM.JSFFI.Generated.HTMLProgressElement - GHCJS.DOM.JSFFI.Generated.HTMLQuoteElement - GHCJS.DOM.JSFFI.Generated.HTMLScriptElement - GHCJS.DOM.JSFFI.Generated.HTMLSelectElement - GHCJS.DOM.JSFFI.Generated.HTMLSlotElement - GHCJS.DOM.JSFFI.Generated.HTMLSourceElement - GHCJS.DOM.JSFFI.Generated.HTMLStyleElement - GHCJS.DOM.JSFFI.Generated.HTMLTableCaptionElement - GHCJS.DOM.JSFFI.Generated.HTMLTableCellElement - GHCJS.DOM.JSFFI.Generated.HTMLTableColElement - GHCJS.DOM.JSFFI.Generated.HTMLTableElement - GHCJS.DOM.JSFFI.Generated.HTMLTableRowElement - GHCJS.DOM.JSFFI.Generated.HTMLTableSectionElement - GHCJS.DOM.JSFFI.Generated.HTMLTemplateElement - GHCJS.DOM.JSFFI.Generated.HTMLTextAreaElement - GHCJS.DOM.JSFFI.Generated.HTMLTimeElement - GHCJS.DOM.JSFFI.Generated.HTMLTitleElement - GHCJS.DOM.JSFFI.Generated.HTMLTrackElement - GHCJS.DOM.JSFFI.Generated.HTMLUListElement - GHCJS.DOM.JSFFI.Generated.HTMLVideoElement - GHCJS.DOM.JSFFI.Generated.HashChangeEvent - GHCJS.DOM.JSFFI.Generated.Headers - GHCJS.DOM.JSFFI.Generated.History - GHCJS.DOM.JSFFI.Generated.IDBCursor - GHCJS.DOM.JSFFI.Generated.IDBCursorWithValue - GHCJS.DOM.JSFFI.Generated.IDBDatabase - GHCJS.DOM.JSFFI.Generated.IDBFactory - GHCJS.DOM.JSFFI.Generated.IDBIndex - GHCJS.DOM.JSFFI.Generated.IDBKeyRange - GHCJS.DOM.JSFFI.Generated.IDBObjectStore - GHCJS.DOM.JSFFI.Generated.IDBOpenDBRequest - GHCJS.DOM.JSFFI.Generated.IDBRequest - GHCJS.DOM.JSFFI.Generated.IDBTransaction - GHCJS.DOM.JSFFI.Generated.IDBVersionChangeEvent - GHCJS.DOM.JSFFI.Generated.ImageData - GHCJS.DOM.JSFFI.Generated.InputEvent - GHCJS.DOM.JSFFI.Generated.InspectorFrontendHost - GHCJS.DOM.JSFFI.Generated.IntersectionObserver - GHCJS.DOM.JSFFI.Generated.IntersectionObserverCallback - GHCJS.DOM.JSFFI.Generated.IntersectionObserverEntry - GHCJS.DOM.JSFFI.Generated.KeyboardEvent - GHCJS.DOM.JSFFI.Generated.KeyframeEffect - GHCJS.DOM.JSFFI.Generated.Location - GHCJS.DOM.JSFFI.Generated.MediaController - GHCJS.DOM.JSFFI.Generated.MediaControlsHost - GHCJS.DOM.JSFFI.Generated.MediaDeviceInfo - GHCJS.DOM.JSFFI.Generated.MediaDevices - GHCJS.DOM.JSFFI.Generated.MediaElementAudioSourceNode - GHCJS.DOM.JSFFI.Generated.MediaEncryptedEvent - GHCJS.DOM.JSFFI.Generated.MediaError - GHCJS.DOM.JSFFI.Generated.MediaKeyMessageEvent - GHCJS.DOM.JSFFI.Generated.MediaKeySession - GHCJS.DOM.JSFFI.Generated.MediaKeyStatusMap - GHCJS.DOM.JSFFI.Generated.MediaKeySystemAccess - GHCJS.DOM.JSFFI.Generated.MediaKeys - GHCJS.DOM.JSFFI.Generated.MediaList - GHCJS.DOM.JSFFI.Generated.MediaQueryList - GHCJS.DOM.JSFFI.Generated.MediaQueryListListener - GHCJS.DOM.JSFFI.Generated.MediaRemoteControls - GHCJS.DOM.JSFFI.Generated.MediaSession - GHCJS.DOM.JSFFI.Generated.MediaSource - GHCJS.DOM.JSFFI.Generated.MediaStream - GHCJS.DOM.JSFFI.Generated.MediaStreamAudioDestinationNode - GHCJS.DOM.JSFFI.Generated.MediaStreamAudioSourceNode - GHCJS.DOM.JSFFI.Generated.MediaStreamEvent - GHCJS.DOM.JSFFI.Generated.MediaStreamTrack - GHCJS.DOM.JSFFI.Generated.MediaStreamTrackEvent - GHCJS.DOM.JSFFI.Generated.MessageChannel - GHCJS.DOM.JSFFI.Generated.MessageEvent - GHCJS.DOM.JSFFI.Generated.MessagePort - GHCJS.DOM.JSFFI.Generated.MimeType - GHCJS.DOM.JSFFI.Generated.MimeTypeArray - GHCJS.DOM.JSFFI.Generated.MouseEvent - GHCJS.DOM.JSFFI.Generated.MutationEvent - GHCJS.DOM.JSFFI.Generated.MutationObserver - GHCJS.DOM.JSFFI.Generated.MutationRecord - GHCJS.DOM.JSFFI.Generated.NamedNodeMap - GHCJS.DOM.JSFFI.Generated.Navigator - GHCJS.DOM.JSFFI.Generated.NavigatorConcurrentHardware - GHCJS.DOM.JSFFI.Generated.NavigatorID - GHCJS.DOM.JSFFI.Generated.NavigatorLanguage - GHCJS.DOM.JSFFI.Generated.NavigatorOnLine - GHCJS.DOM.JSFFI.Generated.NavigatorUserMediaError - GHCJS.DOM.JSFFI.Generated.NavigatorUserMediaErrorCallback - GHCJS.DOM.JSFFI.Generated.NavigatorUserMediaSuccessCallback - GHCJS.DOM.JSFFI.Generated.Node - GHCJS.DOM.JSFFI.Generated.NodeFilter - GHCJS.DOM.JSFFI.Generated.NodeIterator - GHCJS.DOM.JSFFI.Generated.NodeList - GHCJS.DOM.JSFFI.Generated.NonDocumentTypeChildNode - GHCJS.DOM.JSFFI.Generated.NonElementParentNode - GHCJS.DOM.JSFFI.Generated.Notification - GHCJS.DOM.JSFFI.Generated.NotificationPermissionCallback - GHCJS.DOM.JSFFI.Generated.OESStandardDerivatives - GHCJS.DOM.JSFFI.Generated.OESTextureHalfFloat - GHCJS.DOM.JSFFI.Generated.OESVertexArrayObject - GHCJS.DOM.JSFFI.Generated.OfflineAudioCompletionEvent - GHCJS.DOM.JSFFI.Generated.OfflineAudioContext - GHCJS.DOM.JSFFI.Generated.OscillatorNode - GHCJS.DOM.JSFFI.Generated.OverconstrainedError - GHCJS.DOM.JSFFI.Generated.OverconstrainedErrorEvent - GHCJS.DOM.JSFFI.Generated.OverflowEvent - GHCJS.DOM.JSFFI.Generated.PageTransitionEvent - GHCJS.DOM.JSFFI.Generated.PannerNode - GHCJS.DOM.JSFFI.Generated.ParentNode - GHCJS.DOM.JSFFI.Generated.PasswordCredential - GHCJS.DOM.JSFFI.Generated.Path2D - GHCJS.DOM.JSFFI.Generated.Performance - GHCJS.DOM.JSFFI.Generated.PerformanceEntry - GHCJS.DOM.JSFFI.Generated.PerformanceNavigation - GHCJS.DOM.JSFFI.Generated.PerformanceObserver - GHCJS.DOM.JSFFI.Generated.PerformanceObserverCallback - GHCJS.DOM.JSFFI.Generated.PerformanceObserverEntryList - GHCJS.DOM.JSFFI.Generated.PerformanceResourceTiming - GHCJS.DOM.JSFFI.Generated.PerformanceTiming - GHCJS.DOM.JSFFI.Generated.Plugin - GHCJS.DOM.JSFFI.Generated.PluginArray - GHCJS.DOM.JSFFI.Generated.PopStateEvent - GHCJS.DOM.JSFFI.Generated.PositionCallback - GHCJS.DOM.JSFFI.Generated.PositionError - GHCJS.DOM.JSFFI.Generated.PositionErrorCallback - GHCJS.DOM.JSFFI.Generated.ProcessingInstruction - GHCJS.DOM.JSFFI.Generated.ProgressEvent - GHCJS.DOM.JSFFI.Generated.PromiseRejectionEvent - GHCJS.DOM.JSFFI.Generated.QuickTimePluginReplacement - GHCJS.DOM.JSFFI.Generated.RGBColor - GHCJS.DOM.JSFFI.Generated.RTCDTMFSender - GHCJS.DOM.JSFFI.Generated.RTCDTMFToneChangeEvent - GHCJS.DOM.JSFFI.Generated.RTCDataChannel - GHCJS.DOM.JSFFI.Generated.RTCDataChannelEvent - GHCJS.DOM.JSFFI.Generated.RTCIceCandidate - GHCJS.DOM.JSFFI.Generated.RTCIceCandidateEvent - GHCJS.DOM.JSFFI.Generated.RTCIceTransport - GHCJS.DOM.JSFFI.Generated.RTCPeerConnection - GHCJS.DOM.JSFFI.Generated.RTCPeerConnectionIceEvent - GHCJS.DOM.JSFFI.Generated.RTCRtpReceiver - GHCJS.DOM.JSFFI.Generated.RTCRtpSender - GHCJS.DOM.JSFFI.Generated.RTCRtpTransceiver - GHCJS.DOM.JSFFI.Generated.RTCSessionDescription - GHCJS.DOM.JSFFI.Generated.RTCTrackEvent - GHCJS.DOM.JSFFI.Generated.RadioNodeList - GHCJS.DOM.JSFFI.Generated.Range - GHCJS.DOM.JSFFI.Generated.ReadableByteStreamController - GHCJS.DOM.JSFFI.Generated.ReadableStream - GHCJS.DOM.JSFFI.Generated.ReadableStreamBYOBReader - GHCJS.DOM.JSFFI.Generated.ReadableStreamBYOBRequest - GHCJS.DOM.JSFFI.Generated.ReadableStreamDefaultController - GHCJS.DOM.JSFFI.Generated.ReadableStreamDefaultReader - GHCJS.DOM.JSFFI.Generated.ReadableStreamSource - GHCJS.DOM.JSFFI.Generated.Rect - GHCJS.DOM.JSFFI.Generated.Request - GHCJS.DOM.JSFFI.Generated.RequestAnimationFrameCallback - GHCJS.DOM.JSFFI.Generated.Response - GHCJS.DOM.JSFFI.Generated.SQLError - GHCJS.DOM.JSFFI.Generated.SQLException - GHCJS.DOM.JSFFI.Generated.SQLResultSet - GHCJS.DOM.JSFFI.Generated.SQLResultSetRowList - GHCJS.DOM.JSFFI.Generated.SQLStatementCallback - GHCJS.DOM.JSFFI.Generated.SQLStatementErrorCallback - GHCJS.DOM.JSFFI.Generated.SQLTransaction - GHCJS.DOM.JSFFI.Generated.SQLTransactionCallback - GHCJS.DOM.JSFFI.Generated.SQLTransactionErrorCallback - GHCJS.DOM.JSFFI.Generated.SVGAElement - GHCJS.DOM.JSFFI.Generated.SVGAltGlyphElement - GHCJS.DOM.JSFFI.Generated.SVGAngle - GHCJS.DOM.JSFFI.Generated.SVGAnimatedAngle - GHCJS.DOM.JSFFI.Generated.SVGAnimatedBoolean - GHCJS.DOM.JSFFI.Generated.SVGAnimatedEnumeration - GHCJS.DOM.JSFFI.Generated.SVGAnimatedInteger - GHCJS.DOM.JSFFI.Generated.SVGAnimatedLength - GHCJS.DOM.JSFFI.Generated.SVGAnimatedLengthList - GHCJS.DOM.JSFFI.Generated.SVGAnimatedNumber - GHCJS.DOM.JSFFI.Generated.SVGAnimatedNumberList - GHCJS.DOM.JSFFI.Generated.SVGAnimatedPreserveAspectRatio - GHCJS.DOM.JSFFI.Generated.SVGAnimatedRect - GHCJS.DOM.JSFFI.Generated.SVGAnimatedString - GHCJS.DOM.JSFFI.Generated.SVGAnimatedTransformList - GHCJS.DOM.JSFFI.Generated.SVGAnimationElement - GHCJS.DOM.JSFFI.Generated.SVGCircleElement - GHCJS.DOM.JSFFI.Generated.SVGClipPathElement - GHCJS.DOM.JSFFI.Generated.SVGComponentTransferFunctionElement - GHCJS.DOM.JSFFI.Generated.SVGCursorElement - GHCJS.DOM.JSFFI.Generated.SVGElement - GHCJS.DOM.JSFFI.Generated.SVGEllipseElement - GHCJS.DOM.JSFFI.Generated.SVGException - GHCJS.DOM.JSFFI.Generated.SVGExternalResourcesRequired - GHCJS.DOM.JSFFI.Generated.SVGFEBlendElement - GHCJS.DOM.JSFFI.Generated.SVGFEColorMatrixElement - GHCJS.DOM.JSFFI.Generated.SVGFEComponentTransferElement - GHCJS.DOM.JSFFI.Generated.SVGFECompositeElement - GHCJS.DOM.JSFFI.Generated.SVGFEConvolveMatrixElement - GHCJS.DOM.JSFFI.Generated.SVGFEDiffuseLightingElement - GHCJS.DOM.JSFFI.Generated.SVGFEDisplacementMapElement - GHCJS.DOM.JSFFI.Generated.SVGFEDistantLightElement - GHCJS.DOM.JSFFI.Generated.SVGFEDropShadowElement - GHCJS.DOM.JSFFI.Generated.SVGFEGaussianBlurElement - GHCJS.DOM.JSFFI.Generated.SVGFEImageElement - GHCJS.DOM.JSFFI.Generated.SVGFEMergeNodeElement - GHCJS.DOM.JSFFI.Generated.SVGFEMorphologyElement - GHCJS.DOM.JSFFI.Generated.SVGFEOffsetElement - GHCJS.DOM.JSFFI.Generated.SVGFEPointLightElement - GHCJS.DOM.JSFFI.Generated.SVGFESpecularLightingElement - GHCJS.DOM.JSFFI.Generated.SVGFESpotLightElement - GHCJS.DOM.JSFFI.Generated.SVGFETileElement - GHCJS.DOM.JSFFI.Generated.SVGFETurbulenceElement - GHCJS.DOM.JSFFI.Generated.SVGFilterElement - GHCJS.DOM.JSFFI.Generated.SVGFilterPrimitiveStandardAttributes - GHCJS.DOM.JSFFI.Generated.SVGFitToViewBox - GHCJS.DOM.JSFFI.Generated.SVGForeignObjectElement - GHCJS.DOM.JSFFI.Generated.SVGGlyphRefElement - GHCJS.DOM.JSFFI.Generated.SVGGradientElement - GHCJS.DOM.JSFFI.Generated.SVGGraphicsElement - GHCJS.DOM.JSFFI.Generated.SVGImageElement - GHCJS.DOM.JSFFI.Generated.SVGLength - GHCJS.DOM.JSFFI.Generated.SVGLengthList - GHCJS.DOM.JSFFI.Generated.SVGLineElement - GHCJS.DOM.JSFFI.Generated.SVGLinearGradientElement - GHCJS.DOM.JSFFI.Generated.SVGMarkerElement - GHCJS.DOM.JSFFI.Generated.SVGMaskElement - GHCJS.DOM.JSFFI.Generated.SVGMatrix - GHCJS.DOM.JSFFI.Generated.SVGNumber - GHCJS.DOM.JSFFI.Generated.SVGNumberList - GHCJS.DOM.JSFFI.Generated.SVGPathElement - GHCJS.DOM.JSFFI.Generated.SVGPathSeg - GHCJS.DOM.JSFFI.Generated.SVGPathSegArcAbs - GHCJS.DOM.JSFFI.Generated.SVGPathSegArcRel - GHCJS.DOM.JSFFI.Generated.SVGPathSegCurvetoCubicAbs - GHCJS.DOM.JSFFI.Generated.SVGPathSegCurvetoCubicRel - GHCJS.DOM.JSFFI.Generated.SVGPathSegCurvetoCubicSmoothAbs - GHCJS.DOM.JSFFI.Generated.SVGPathSegCurvetoCubicSmoothRel - GHCJS.DOM.JSFFI.Generated.SVGPathSegCurvetoQuadraticAbs - GHCJS.DOM.JSFFI.Generated.SVGPathSegCurvetoQuadraticRel - GHCJS.DOM.JSFFI.Generated.SVGPathSegCurvetoQuadraticSmoothAbs - GHCJS.DOM.JSFFI.Generated.SVGPathSegCurvetoQuadraticSmoothRel - GHCJS.DOM.JSFFI.Generated.SVGPathSegLinetoAbs - GHCJS.DOM.JSFFI.Generated.SVGPathSegLinetoHorizontalAbs - GHCJS.DOM.JSFFI.Generated.SVGPathSegLinetoHorizontalRel - GHCJS.DOM.JSFFI.Generated.SVGPathSegLinetoRel - GHCJS.DOM.JSFFI.Generated.SVGPathSegLinetoVerticalAbs - GHCJS.DOM.JSFFI.Generated.SVGPathSegLinetoVerticalRel - GHCJS.DOM.JSFFI.Generated.SVGPathSegList - GHCJS.DOM.JSFFI.Generated.SVGPathSegMovetoAbs - GHCJS.DOM.JSFFI.Generated.SVGPathSegMovetoRel - GHCJS.DOM.JSFFI.Generated.SVGPatternElement - GHCJS.DOM.JSFFI.Generated.SVGPoint - GHCJS.DOM.JSFFI.Generated.SVGPointList - GHCJS.DOM.JSFFI.Generated.SVGPolygonElement - GHCJS.DOM.JSFFI.Generated.SVGPolylineElement - GHCJS.DOM.JSFFI.Generated.SVGPreserveAspectRatio - GHCJS.DOM.JSFFI.Generated.SVGRadialGradientElement - GHCJS.DOM.JSFFI.Generated.SVGRect - GHCJS.DOM.JSFFI.Generated.SVGRectElement - GHCJS.DOM.JSFFI.Generated.SVGRenderingIntent - GHCJS.DOM.JSFFI.Generated.SVGSVGElement - GHCJS.DOM.JSFFI.Generated.SVGScriptElement - GHCJS.DOM.JSFFI.Generated.SVGStopElement - GHCJS.DOM.JSFFI.Generated.SVGStringList - GHCJS.DOM.JSFFI.Generated.SVGStyleElement - GHCJS.DOM.JSFFI.Generated.SVGTests - GHCJS.DOM.JSFFI.Generated.SVGTextContentElement - GHCJS.DOM.JSFFI.Generated.SVGTextPathElement - GHCJS.DOM.JSFFI.Generated.SVGTextPositioningElement - GHCJS.DOM.JSFFI.Generated.SVGTransform - GHCJS.DOM.JSFFI.Generated.SVGTransformList - GHCJS.DOM.JSFFI.Generated.SVGURIReference - GHCJS.DOM.JSFFI.Generated.SVGUnitTypes - GHCJS.DOM.JSFFI.Generated.SVGUseElement - GHCJS.DOM.JSFFI.Generated.SVGViewElement - GHCJS.DOM.JSFFI.Generated.SVGViewSpec - GHCJS.DOM.JSFFI.Generated.SVGZoomAndPan - GHCJS.DOM.JSFFI.Generated.SVGZoomEvent - GHCJS.DOM.JSFFI.Generated.Screen - GHCJS.DOM.JSFFI.Generated.ScriptProcessorNode - GHCJS.DOM.JSFFI.Generated.SecurityPolicyViolationEvent - GHCJS.DOM.JSFFI.Generated.Selection - GHCJS.DOM.JSFFI.Generated.ShadowRoot - GHCJS.DOM.JSFFI.Generated.SiteBoundCredential - GHCJS.DOM.JSFFI.Generated.Slotable - GHCJS.DOM.JSFFI.Generated.SourceBuffer - GHCJS.DOM.JSFFI.Generated.SourceBufferList - GHCJS.DOM.JSFFI.Generated.SpeechSynthesis - GHCJS.DOM.JSFFI.Generated.SpeechSynthesisEvent - GHCJS.DOM.JSFFI.Generated.SpeechSynthesisUtterance - GHCJS.DOM.JSFFI.Generated.SpeechSynthesisVoice - GHCJS.DOM.JSFFI.Generated.StaticRange - GHCJS.DOM.JSFFI.Generated.Storage - GHCJS.DOM.JSFFI.Generated.StorageErrorCallback - GHCJS.DOM.JSFFI.Generated.StorageEvent - GHCJS.DOM.JSFFI.Generated.StorageInfo - GHCJS.DOM.JSFFI.Generated.StorageQuota - GHCJS.DOM.JSFFI.Generated.StorageQuotaCallback - GHCJS.DOM.JSFFI.Generated.StorageUsageCallback - GHCJS.DOM.JSFFI.Generated.StringCallback - GHCJS.DOM.JSFFI.Generated.StyleMedia - GHCJS.DOM.JSFFI.Generated.StyleSheet - GHCJS.DOM.JSFFI.Generated.StyleSheetList - GHCJS.DOM.JSFFI.Generated.SubtleCrypto - GHCJS.DOM.JSFFI.Generated.Text - GHCJS.DOM.JSFFI.Generated.TextDecoder - GHCJS.DOM.JSFFI.Generated.TextEncoder - GHCJS.DOM.JSFFI.Generated.TextEvent - GHCJS.DOM.JSFFI.Generated.TextMetrics - GHCJS.DOM.JSFFI.Generated.TextTrack - GHCJS.DOM.JSFFI.Generated.TextTrackCue - GHCJS.DOM.JSFFI.Generated.TextTrackCueList - GHCJS.DOM.JSFFI.Generated.TextTrackList - GHCJS.DOM.JSFFI.Generated.TimeRanges - GHCJS.DOM.JSFFI.Generated.Touch - GHCJS.DOM.JSFFI.Generated.TouchEvent - GHCJS.DOM.JSFFI.Generated.TouchList - GHCJS.DOM.JSFFI.Generated.TrackEvent - GHCJS.DOM.JSFFI.Generated.TransitionEvent - GHCJS.DOM.JSFFI.Generated.TreeWalker - GHCJS.DOM.JSFFI.Generated.UIEvent - GHCJS.DOM.JSFFI.Generated.URL - GHCJS.DOM.JSFFI.Generated.URLSearchParams - GHCJS.DOM.JSFFI.Generated.UserMessageHandler - GHCJS.DOM.JSFFI.Generated.VTTCue - GHCJS.DOM.JSFFI.Generated.VTTRegion - GHCJS.DOM.JSFFI.Generated.VTTRegionList - GHCJS.DOM.JSFFI.Generated.ValidityState - GHCJS.DOM.JSFFI.Generated.VideoPlaybackQuality - GHCJS.DOM.JSFFI.Generated.VideoTrack - GHCJS.DOM.JSFFI.Generated.VideoTrackList - GHCJS.DOM.JSFFI.Generated.VoidCallback - GHCJS.DOM.JSFFI.Generated.WaveShaperNode - GHCJS.DOM.JSFFI.Generated.WebGL2RenderingContext - GHCJS.DOM.JSFFI.Generated.WebGLActiveInfo - GHCJS.DOM.JSFFI.Generated.WebGLCompressedTextureATC - GHCJS.DOM.JSFFI.Generated.WebGLCompressedTexturePVRTC - GHCJS.DOM.JSFFI.Generated.WebGLCompressedTextureS3TC - GHCJS.DOM.JSFFI.Generated.WebGLContextEvent - GHCJS.DOM.JSFFI.Generated.WebGLDebugRendererInfo - GHCJS.DOM.JSFFI.Generated.WebGLDebugShaders - GHCJS.DOM.JSFFI.Generated.WebGLDepthTexture - GHCJS.DOM.JSFFI.Generated.WebGLDrawBuffers - GHCJS.DOM.JSFFI.Generated.WebGLLoseContext - GHCJS.DOM.JSFFI.Generated.WebGLRenderingContextBase - GHCJS.DOM.JSFFI.Generated.WebGLShaderPrecisionFormat - GHCJS.DOM.JSFFI.Generated.WebGPUBuffer - GHCJS.DOM.JSFFI.Generated.WebGPUCommandBuffer - GHCJS.DOM.JSFFI.Generated.WebGPUCommandQueue - GHCJS.DOM.JSFFI.Generated.WebGPUComputeCommandEncoder - GHCJS.DOM.JSFFI.Generated.WebGPUDepthStencilDescriptor - GHCJS.DOM.JSFFI.Generated.WebGPUDepthStencilState - GHCJS.DOM.JSFFI.Generated.WebGPUDrawable - GHCJS.DOM.JSFFI.Generated.WebGPUFunction - GHCJS.DOM.JSFFI.Generated.WebGPULibrary - GHCJS.DOM.JSFFI.Generated.WebGPURenderCommandEncoder - GHCJS.DOM.JSFFI.Generated.WebGPURenderPassAttachmentDescriptor - GHCJS.DOM.JSFFI.Generated.WebGPURenderPassColorAttachmentDescriptor - GHCJS.DOM.JSFFI.Generated.WebGPURenderPassDepthAttachmentDescriptor - GHCJS.DOM.JSFFI.Generated.WebGPURenderPassDescriptor - GHCJS.DOM.JSFFI.Generated.WebGPURenderPipelineColorAttachmentDescriptor - GHCJS.DOM.JSFFI.Generated.WebGPURenderPipelineDescriptor - GHCJS.DOM.JSFFI.Generated.WebGPURenderPipelineState - GHCJS.DOM.JSFFI.Generated.WebGPURenderingContext - GHCJS.DOM.JSFFI.Generated.WebGPUTexture - GHCJS.DOM.JSFFI.Generated.WebGPUTextureDescriptor - GHCJS.DOM.JSFFI.Generated.WebKitAnimationEvent - GHCJS.DOM.JSFFI.Generated.WebKitCSSMatrix - GHCJS.DOM.JSFFI.Generated.WebKitCSSRegionRule - GHCJS.DOM.JSFFI.Generated.WebKitCSSViewportRule - GHCJS.DOM.JSFFI.Generated.WebKitMediaKeyError - GHCJS.DOM.JSFFI.Generated.WebKitMediaKeyMessageEvent - GHCJS.DOM.JSFFI.Generated.WebKitMediaKeyNeededEvent - GHCJS.DOM.JSFFI.Generated.WebKitMediaKeySession - GHCJS.DOM.JSFFI.Generated.WebKitMediaKeys - GHCJS.DOM.JSFFI.Generated.WebKitNamedFlow - GHCJS.DOM.JSFFI.Generated.WebKitNamespace - GHCJS.DOM.JSFFI.Generated.WebKitPlaybackTargetAvailabilityEvent - GHCJS.DOM.JSFFI.Generated.WebKitPoint - GHCJS.DOM.JSFFI.Generated.WebKitSubtleCrypto - GHCJS.DOM.JSFFI.Generated.WebKitTransitionEvent - GHCJS.DOM.JSFFI.Generated.WebSocket - GHCJS.DOM.JSFFI.Generated.WheelEvent - GHCJS.DOM.JSFFI.Generated.Window - GHCJS.DOM.JSFFI.Generated.WindowEventHandlers - GHCJS.DOM.JSFFI.Generated.WindowOrWorkerGlobalScope - GHCJS.DOM.JSFFI.Generated.Worker - GHCJS.DOM.JSFFI.Generated.WorkerGlobalScope - GHCJS.DOM.JSFFI.Generated.WorkerLocation - GHCJS.DOM.JSFFI.Generated.WorkerNavigator - GHCJS.DOM.JSFFI.Generated.WritableStream - GHCJS.DOM.JSFFI.Generated.XMLHttpRequest - GHCJS.DOM.JSFFI.Generated.XMLHttpRequestEventTarget - GHCJS.DOM.JSFFI.Generated.XMLHttpRequestProgressEvent - GHCJS.DOM.JSFFI.Generated.XMLSerializer - GHCJS.DOM.JSFFI.Generated.XPathEvaluator - GHCJS.DOM.JSFFI.Generated.XPathException - GHCJS.DOM.JSFFI.Generated.XPathExpression - GHCJS.DOM.JSFFI.Generated.XPathNSResolver - GHCJS.DOM.JSFFI.Generated.XPathResult - GHCJS.DOM.JSFFI.Generated.XSLTProcessor - - reexported-modules: - -- cat ghcjs-dom-javascript/reexported-modules.txt | pbcopy - -- Generated by domconv-webkit-jsffi - GHCJS.DOM.JSFFI.Generated.ANGLEInstancedArrays as GHCJS.DOM.ANGLEInstancedArrays - , GHCJS.DOM.JSFFI.Generated.AbstractWorker as GHCJS.DOM.AbstractWorker - , GHCJS.DOM.JSFFI.Generated.AnalyserNode as GHCJS.DOM.AnalyserNode - , GHCJS.DOM.JSFFI.Generated.Animatable as GHCJS.DOM.Animatable - , GHCJS.DOM.JSFFI.Generated.Animation as GHCJS.DOM.Animation - , GHCJS.DOM.JSFFI.Generated.AnimationEvent as GHCJS.DOM.AnimationEvent - , GHCJS.DOM.JSFFI.Generated.ApplePayError as GHCJS.DOM.ApplePayError - , GHCJS.DOM.JSFFI.Generated.ApplePayPaymentAuthorizedEvent as GHCJS.DOM.ApplePayPaymentAuthorizedEvent - , GHCJS.DOM.JSFFI.Generated.ApplePayPaymentMethodSelectedEvent as GHCJS.DOM.ApplePayPaymentMethodSelectedEvent - , GHCJS.DOM.JSFFI.Generated.ApplePaySession as GHCJS.DOM.ApplePaySession - , GHCJS.DOM.JSFFI.Generated.ApplePayShippingContactSelectedEvent as GHCJS.DOM.ApplePayShippingContactSelectedEvent - , GHCJS.DOM.JSFFI.Generated.ApplePayShippingMethodSelectedEvent as GHCJS.DOM.ApplePayShippingMethodSelectedEvent - , GHCJS.DOM.JSFFI.Generated.ApplePayValidateMerchantEvent as GHCJS.DOM.ApplePayValidateMerchantEvent - , GHCJS.DOM.JSFFI.Generated.ApplicationCache as GHCJS.DOM.ApplicationCache - , GHCJS.DOM.JSFFI.Generated.Attr as GHCJS.DOM.Attr - , GHCJS.DOM.JSFFI.Generated.AudioBuffer as GHCJS.DOM.AudioBuffer - , GHCJS.DOM.JSFFI.Generated.AudioBufferCallback as GHCJS.DOM.AudioBufferCallback - , GHCJS.DOM.JSFFI.Generated.AudioBufferSourceNode as GHCJS.DOM.AudioBufferSourceNode - , GHCJS.DOM.JSFFI.AudioContext as GHCJS.DOM.AudioContext - , GHCJS.DOM.JSFFI.Generated.AudioDestinationNode as GHCJS.DOM.AudioDestinationNode - , GHCJS.DOM.JSFFI.Generated.AudioListener as GHCJS.DOM.AudioListener - , GHCJS.DOM.JSFFI.Generated.AudioNode as GHCJS.DOM.AudioNode - , GHCJS.DOM.JSFFI.Generated.AudioParam as GHCJS.DOM.AudioParam - , GHCJS.DOM.JSFFI.Generated.AudioProcessingEvent as GHCJS.DOM.AudioProcessingEvent - , GHCJS.DOM.JSFFI.Generated.AudioTrack as GHCJS.DOM.AudioTrack - , GHCJS.DOM.JSFFI.Generated.AudioTrackList as GHCJS.DOM.AudioTrackList - , GHCJS.DOM.JSFFI.Generated.AutocompleteErrorEvent as GHCJS.DOM.AutocompleteErrorEvent - , GHCJS.DOM.JSFFI.Generated.BarProp as GHCJS.DOM.BarProp - , GHCJS.DOM.JSFFI.Generated.BasicCredential as GHCJS.DOM.BasicCredential - , GHCJS.DOM.JSFFI.Generated.BeforeLoadEvent as GHCJS.DOM.BeforeLoadEvent - , GHCJS.DOM.JSFFI.Generated.BeforeUnloadEvent as GHCJS.DOM.BeforeUnloadEvent - , GHCJS.DOM.JSFFI.Generated.BiquadFilterNode as GHCJS.DOM.BiquadFilterNode - , GHCJS.DOM.JSFFI.Generated.Blob as GHCJS.DOM.Blob - , GHCJS.DOM.JSFFI.Generated.BlobCallback as GHCJS.DOM.BlobCallback - , GHCJS.DOM.JSFFI.Generated.Body as GHCJS.DOM.Body - , GHCJS.DOM.JSFFI.Generated.ByteLengthQueuingStrategy as GHCJS.DOM.ByteLengthQueuingStrategy - , GHCJS.DOM.JSFFI.Generated.CSS as GHCJS.DOM.CSS - , GHCJS.DOM.JSFFI.Generated.CSSFontFaceLoadEvent as GHCJS.DOM.CSSFontFaceLoadEvent - , GHCJS.DOM.JSFFI.Generated.CSSFontFaceRule as GHCJS.DOM.CSSFontFaceRule - , GHCJS.DOM.JSFFI.Generated.CSSImportRule as GHCJS.DOM.CSSImportRule - , GHCJS.DOM.JSFFI.Generated.CSSKeyframeRule as GHCJS.DOM.CSSKeyframeRule - , GHCJS.DOM.JSFFI.Generated.CSSKeyframesRule as GHCJS.DOM.CSSKeyframesRule - , GHCJS.DOM.JSFFI.Generated.CSSMediaRule as GHCJS.DOM.CSSMediaRule - , GHCJS.DOM.JSFFI.Generated.CSSNamespaceRule as GHCJS.DOM.CSSNamespaceRule - , GHCJS.DOM.JSFFI.Generated.CSSPageRule as GHCJS.DOM.CSSPageRule - , GHCJS.DOM.JSFFI.Generated.CSSPrimitiveValue as GHCJS.DOM.CSSPrimitiveValue - , GHCJS.DOM.JSFFI.Generated.CSSRule as GHCJS.DOM.CSSRule - , GHCJS.DOM.JSFFI.Generated.CSSRuleList as GHCJS.DOM.CSSRuleList - , GHCJS.DOM.JSFFI.Generated.CSSStyleDeclaration as GHCJS.DOM.CSSStyleDeclaration - , GHCJS.DOM.JSFFI.Generated.CSSStyleRule as GHCJS.DOM.CSSStyleRule - , GHCJS.DOM.JSFFI.Generated.CSSStyleSheet as GHCJS.DOM.CSSStyleSheet - , GHCJS.DOM.JSFFI.Generated.CSSSupportsRule as GHCJS.DOM.CSSSupportsRule - , GHCJS.DOM.JSFFI.Generated.CSSValue as GHCJS.DOM.CSSValue - , GHCJS.DOM.JSFFI.Generated.CSSValueList as GHCJS.DOM.CSSValueList - , GHCJS.DOM.JSFFI.Generated.CanvasCaptureMediaStreamTrack as GHCJS.DOM.CanvasCaptureMediaStreamTrack - , GHCJS.DOM.JSFFI.Generated.CanvasGradient as GHCJS.DOM.CanvasGradient - , GHCJS.DOM.JSFFI.Generated.CanvasPath as GHCJS.DOM.CanvasPath - , GHCJS.DOM.JSFFI.Generated.CanvasRenderingContext2D as GHCJS.DOM.CanvasRenderingContext2D - , GHCJS.DOM.JSFFI.Generated.CharacterData as GHCJS.DOM.CharacterData - , GHCJS.DOM.JSFFI.Generated.ChildNode as GHCJS.DOM.ChildNode - , GHCJS.DOM.JSFFI.Generated.ClipboardEvent as GHCJS.DOM.ClipboardEvent - , GHCJS.DOM.JSFFI.Generated.CloseEvent as GHCJS.DOM.CloseEvent - , GHCJS.DOM.JSFFI.Generated.CommandLineAPIHost as GHCJS.DOM.CommandLineAPIHost - , GHCJS.DOM.JSFFI.Generated.Comment as GHCJS.DOM.Comment - , GHCJS.DOM.JSFFI.Generated.CompositionEvent as GHCJS.DOM.CompositionEvent - , GHCJS.DOM.JSFFI.Generated.ConvolverNode as GHCJS.DOM.ConvolverNode - , GHCJS.DOM.JSFFI.Generated.Coordinates as GHCJS.DOM.Coordinates - , GHCJS.DOM.JSFFI.Generated.CountQueuingStrategy as GHCJS.DOM.CountQueuingStrategy - , GHCJS.DOM.JSFFI.Generated.Counter as GHCJS.DOM.Counter - , GHCJS.DOM.JSFFI.Generated.Crypto as GHCJS.DOM.Crypto - , GHCJS.DOM.JSFFI.Generated.CryptoKey as GHCJS.DOM.CryptoKey - , GHCJS.DOM.JSFFI.Generated.CustomElementRegistry as GHCJS.DOM.CustomElementRegistry - , GHCJS.DOM.JSFFI.Generated.CustomEvent as GHCJS.DOM.CustomEvent - , GHCJS.DOM.JSFFI.DOMError as GHCJS.DOM.DOMError - , GHCJS.DOM.JSFFI.Generated.DOMException as GHCJS.DOM.DOMException - , GHCJS.DOM.JSFFI.Generated.DOMImplementation as GHCJS.DOM.DOMImplementation - , GHCJS.DOM.JSFFI.Generated.DOMNamedFlowCollection as GHCJS.DOM.DOMNamedFlowCollection - , GHCJS.DOM.JSFFI.Generated.DOMParser as GHCJS.DOM.DOMParser - , GHCJS.DOM.JSFFI.Generated.DOMPoint as GHCJS.DOM.DOMPoint - , GHCJS.DOM.JSFFI.Generated.DOMPointReadOnly as GHCJS.DOM.DOMPointReadOnly - , GHCJS.DOM.JSFFI.Generated.DOMRect as GHCJS.DOM.DOMRect - , GHCJS.DOM.JSFFI.Generated.DOMRectReadOnly as GHCJS.DOM.DOMRectReadOnly - , GHCJS.DOM.JSFFI.Generated.DOMStringList as GHCJS.DOM.DOMStringList - , GHCJS.DOM.JSFFI.Generated.DOMStringMap as GHCJS.DOM.DOMStringMap - , GHCJS.DOM.JSFFI.Generated.DOMTokenList as GHCJS.DOM.DOMTokenList - , GHCJS.DOM.JSFFI.Generated.DataCue as GHCJS.DOM.DataCue - , GHCJS.DOM.JSFFI.Generated.DataTransfer as GHCJS.DOM.DataTransfer - , GHCJS.DOM.JSFFI.Generated.DataTransferItem as GHCJS.DOM.DataTransferItem - , GHCJS.DOM.JSFFI.Generated.DataTransferItemList as GHCJS.DOM.DataTransferItemList - , GHCJS.DOM.JSFFI.Database as GHCJS.DOM.Database - , GHCJS.DOM.JSFFI.Generated.DatabaseCallback as GHCJS.DOM.DatabaseCallback - , GHCJS.DOM.JSFFI.Generated.DedicatedWorkerGlobalScope as GHCJS.DOM.DedicatedWorkerGlobalScope - , GHCJS.DOM.JSFFI.Generated.DelayNode as GHCJS.DOM.DelayNode - , GHCJS.DOM.JSFFI.Generated.DeviceMotionEvent as GHCJS.DOM.DeviceMotionEvent - , GHCJS.DOM.JSFFI.Generated.DeviceOrientationEvent as GHCJS.DOM.DeviceOrientationEvent - , GHCJS.DOM.JSFFI.Generated.DeviceProximityEvent as GHCJS.DOM.DeviceProximityEvent - , GHCJS.DOM.JSFFI.Generated.Document as GHCJS.DOM.Document - , GHCJS.DOM.JSFFI.Generated.DocumentAndElementEventHandlers as GHCJS.DOM.DocumentAndElementEventHandlers - , GHCJS.DOM.JSFFI.Generated.DocumentFragment as GHCJS.DOM.DocumentFragment - , GHCJS.DOM.JSFFI.Generated.DocumentOrShadowRoot as GHCJS.DOM.DocumentOrShadowRoot - , GHCJS.DOM.JSFFI.Generated.DocumentTimeline as GHCJS.DOM.DocumentTimeline - , GHCJS.DOM.JSFFI.Generated.DocumentType as GHCJS.DOM.DocumentType - , GHCJS.DOM.JSFFI.Generated.DynamicsCompressorNode as GHCJS.DOM.DynamicsCompressorNode - , GHCJS.DOM.JSFFI.Generated.EXTBlendMinMax as GHCJS.DOM.EXTBlendMinMax - , GHCJS.DOM.JSFFI.Generated.EXTTextureFilterAnisotropic as GHCJS.DOM.EXTTextureFilterAnisotropic - , GHCJS.DOM.JSFFI.Generated.EXTsRGB as GHCJS.DOM.EXTsRGB - , GHCJS.DOM.JSFFI.Generated.Element as GHCJS.DOM.Element - , GHCJS.DOM.JSFFI.Generated.ElementCSSInlineStyle as GHCJS.DOM.ElementCSSInlineStyle - , GHCJS.DOM.JSFFI.Generated.Enums as GHCJS.DOM.Enums - , GHCJS.DOM.JSFFI.Generated.ErrorEvent as GHCJS.DOM.ErrorEvent - , GHCJS.DOM.JSFFI.Generated.Event as GHCJS.DOM.Event - , GHCJS.DOM.JSFFI.Generated.EventListener as GHCJS.DOM.EventListener - , GHCJS.DOM.JSFFI.Generated.EventSource as GHCJS.DOM.EventSource - , GHCJS.DOM.JSFFI.Generated.EventTarget as GHCJS.DOM.EventTarget - , GHCJS.DOM.JSFFI.Generated.File as GHCJS.DOM.File - , GHCJS.DOM.JSFFI.Generated.FileError as GHCJS.DOM.FileError - , GHCJS.DOM.JSFFI.Generated.FileException as GHCJS.DOM.FileException - , GHCJS.DOM.JSFFI.Generated.FileList as GHCJS.DOM.FileList - , GHCJS.DOM.JSFFI.Generated.FileReader as GHCJS.DOM.FileReader - , GHCJS.DOM.JSFFI.Generated.FileReaderSync as GHCJS.DOM.FileReaderSync - , GHCJS.DOM.JSFFI.Generated.FocusEvent as GHCJS.DOM.FocusEvent - , GHCJS.DOM.JSFFI.Generated.FontFace as GHCJS.DOM.FontFace - , GHCJS.DOM.JSFFI.Generated.FontFaceSet as GHCJS.DOM.FontFaceSet - , GHCJS.DOM.JSFFI.Generated.FormData as GHCJS.DOM.FormData - , GHCJS.DOM.JSFFI.Generated.GainNode as GHCJS.DOM.GainNode - , GHCJS.DOM.JSFFI.Generated.Gamepad as GHCJS.DOM.Gamepad - , GHCJS.DOM.JSFFI.Generated.GamepadButton as GHCJS.DOM.GamepadButton - , GHCJS.DOM.JSFFI.Generated.GamepadEvent as GHCJS.DOM.GamepadEvent - , GHCJS.DOM.JSFFI.Geolocation as GHCJS.DOM.Geolocation - , GHCJS.DOM.JSFFI.Generated.Geoposition as GHCJS.DOM.Geoposition - , GHCJS.DOM.JSFFI.Generated.GlobalCrypto as GHCJS.DOM.GlobalCrypto - , GHCJS.DOM.JSFFI.Generated.GlobalEventHandlers as GHCJS.DOM.GlobalEventHandlers - , GHCJS.DOM.JSFFI.Generated.GlobalPerformance as GHCJS.DOM.GlobalPerformance - , GHCJS.DOM.JSFFI.Generated.HTMLAllCollection as GHCJS.DOM.HTMLAllCollection - , GHCJS.DOM.JSFFI.Generated.HTMLAnchorElement as GHCJS.DOM.HTMLAnchorElement - , GHCJS.DOM.JSFFI.Generated.HTMLAppletElement as GHCJS.DOM.HTMLAppletElement - , GHCJS.DOM.JSFFI.Generated.HTMLAreaElement as GHCJS.DOM.HTMLAreaElement - , GHCJS.DOM.JSFFI.Generated.HTMLAttachmentElement as GHCJS.DOM.HTMLAttachmentElement - , GHCJS.DOM.JSFFI.Generated.HTMLBRElement as GHCJS.DOM.HTMLBRElement - , GHCJS.DOM.JSFFI.Generated.HTMLBaseElement as GHCJS.DOM.HTMLBaseElement - , GHCJS.DOM.JSFFI.Generated.HTMLBodyElement as GHCJS.DOM.HTMLBodyElement - , GHCJS.DOM.JSFFI.Generated.HTMLButtonElement as GHCJS.DOM.HTMLButtonElement - , GHCJS.DOM.JSFFI.Generated.HTMLCanvasElement as GHCJS.DOM.HTMLCanvasElement - , GHCJS.DOM.JSFFI.Generated.HTMLCollection as GHCJS.DOM.HTMLCollection - , GHCJS.DOM.JSFFI.Generated.HTMLDListElement as GHCJS.DOM.HTMLDListElement - , GHCJS.DOM.JSFFI.Generated.HTMLDataElement as GHCJS.DOM.HTMLDataElement - , GHCJS.DOM.JSFFI.Generated.HTMLDataListElement as GHCJS.DOM.HTMLDataListElement - , GHCJS.DOM.JSFFI.Generated.HTMLDetailsElement as GHCJS.DOM.HTMLDetailsElement - , GHCJS.DOM.JSFFI.Generated.HTMLDirectoryElement as GHCJS.DOM.HTMLDirectoryElement - , GHCJS.DOM.JSFFI.Generated.HTMLDivElement as GHCJS.DOM.HTMLDivElement - , GHCJS.DOM.JSFFI.Generated.HTMLDocument as GHCJS.DOM.HTMLDocument - , GHCJS.DOM.JSFFI.Generated.HTMLElement as GHCJS.DOM.HTMLElement - , GHCJS.DOM.JSFFI.Generated.HTMLEmbedElement as GHCJS.DOM.HTMLEmbedElement - , GHCJS.DOM.JSFFI.Generated.HTMLFieldSetElement as GHCJS.DOM.HTMLFieldSetElement - , GHCJS.DOM.JSFFI.Generated.HTMLFontElement as GHCJS.DOM.HTMLFontElement - , GHCJS.DOM.JSFFI.Generated.HTMLFormControlsCollection as GHCJS.DOM.HTMLFormControlsCollection - , GHCJS.DOM.JSFFI.Generated.HTMLFormElement as GHCJS.DOM.HTMLFormElement - , GHCJS.DOM.JSFFI.Generated.HTMLFrameElement as GHCJS.DOM.HTMLFrameElement - , GHCJS.DOM.JSFFI.Generated.HTMLFrameSetElement as GHCJS.DOM.HTMLFrameSetElement - , GHCJS.DOM.JSFFI.Generated.HTMLHRElement as GHCJS.DOM.HTMLHRElement - , GHCJS.DOM.JSFFI.Generated.HTMLHeadElement as GHCJS.DOM.HTMLHeadElement - , GHCJS.DOM.JSFFI.Generated.HTMLHeadingElement as GHCJS.DOM.HTMLHeadingElement - , GHCJS.DOM.JSFFI.Generated.HTMLHtmlElement as GHCJS.DOM.HTMLHtmlElement - , GHCJS.DOM.JSFFI.Generated.HTMLHyperlinkElementUtils as GHCJS.DOM.HTMLHyperlinkElementUtils - , GHCJS.DOM.JSFFI.Generated.HTMLIFrameElement as GHCJS.DOM.HTMLIFrameElement - , GHCJS.DOM.JSFFI.Generated.HTMLImageElement as GHCJS.DOM.HTMLImageElement - , GHCJS.DOM.JSFFI.Generated.HTMLInputElement as GHCJS.DOM.HTMLInputElement - , GHCJS.DOM.JSFFI.Generated.HTMLKeygenElement as GHCJS.DOM.HTMLKeygenElement - , GHCJS.DOM.JSFFI.Generated.HTMLLIElement as GHCJS.DOM.HTMLLIElement - , GHCJS.DOM.JSFFI.Generated.HTMLLabelElement as GHCJS.DOM.HTMLLabelElement - , GHCJS.DOM.JSFFI.Generated.HTMLLegendElement as GHCJS.DOM.HTMLLegendElement - , GHCJS.DOM.JSFFI.Generated.HTMLLinkElement as GHCJS.DOM.HTMLLinkElement - , GHCJS.DOM.JSFFI.Generated.HTMLMapElement as GHCJS.DOM.HTMLMapElement - , GHCJS.DOM.JSFFI.Generated.HTMLMarqueeElement as GHCJS.DOM.HTMLMarqueeElement - , GHCJS.DOM.JSFFI.Generated.HTMLMediaElement as GHCJS.DOM.HTMLMediaElement - , GHCJS.DOM.JSFFI.Generated.HTMLMenuElement as GHCJS.DOM.HTMLMenuElement - , GHCJS.DOM.JSFFI.Generated.HTMLMetaElement as GHCJS.DOM.HTMLMetaElement - , GHCJS.DOM.JSFFI.Generated.HTMLMeterElement as GHCJS.DOM.HTMLMeterElement - , GHCJS.DOM.JSFFI.Generated.HTMLModElement as GHCJS.DOM.HTMLModElement - , GHCJS.DOM.JSFFI.Generated.HTMLOListElement as GHCJS.DOM.HTMLOListElement - , GHCJS.DOM.JSFFI.Generated.HTMLObjectElement as GHCJS.DOM.HTMLObjectElement - , GHCJS.DOM.JSFFI.Generated.HTMLOptGroupElement as GHCJS.DOM.HTMLOptGroupElement - , GHCJS.DOM.JSFFI.Generated.HTMLOptionElement as GHCJS.DOM.HTMLOptionElement - , GHCJS.DOM.JSFFI.Generated.HTMLOptionsCollection as GHCJS.DOM.HTMLOptionsCollection - , GHCJS.DOM.JSFFI.Generated.HTMLOutputElement as GHCJS.DOM.HTMLOutputElement - , GHCJS.DOM.JSFFI.Generated.HTMLParagraphElement as GHCJS.DOM.HTMLParagraphElement - , GHCJS.DOM.JSFFI.Generated.HTMLParamElement as GHCJS.DOM.HTMLParamElement - , GHCJS.DOM.JSFFI.Generated.HTMLPreElement as GHCJS.DOM.HTMLPreElement - , GHCJS.DOM.JSFFI.Generated.HTMLProgressElement as GHCJS.DOM.HTMLProgressElement - , GHCJS.DOM.JSFFI.Generated.HTMLQuoteElement as GHCJS.DOM.HTMLQuoteElement - , GHCJS.DOM.JSFFI.Generated.HTMLScriptElement as GHCJS.DOM.HTMLScriptElement - , GHCJS.DOM.JSFFI.Generated.HTMLSelectElement as GHCJS.DOM.HTMLSelectElement - , GHCJS.DOM.JSFFI.Generated.HTMLSlotElement as GHCJS.DOM.HTMLSlotElement - , GHCJS.DOM.JSFFI.Generated.HTMLSourceElement as GHCJS.DOM.HTMLSourceElement - , GHCJS.DOM.JSFFI.Generated.HTMLStyleElement as GHCJS.DOM.HTMLStyleElement - , GHCJS.DOM.JSFFI.Generated.HTMLTableCaptionElement as GHCJS.DOM.HTMLTableCaptionElement - , GHCJS.DOM.JSFFI.Generated.HTMLTableCellElement as GHCJS.DOM.HTMLTableCellElement - , GHCJS.DOM.JSFFI.Generated.HTMLTableColElement as GHCJS.DOM.HTMLTableColElement - , GHCJS.DOM.JSFFI.Generated.HTMLTableElement as GHCJS.DOM.HTMLTableElement - , GHCJS.DOM.JSFFI.Generated.HTMLTableRowElement as GHCJS.DOM.HTMLTableRowElement - , GHCJS.DOM.JSFFI.Generated.HTMLTableSectionElement as GHCJS.DOM.HTMLTableSectionElement - , GHCJS.DOM.JSFFI.Generated.HTMLTemplateElement as GHCJS.DOM.HTMLTemplateElement - , GHCJS.DOM.JSFFI.Generated.HTMLTextAreaElement as GHCJS.DOM.HTMLTextAreaElement - , GHCJS.DOM.JSFFI.Generated.HTMLTimeElement as GHCJS.DOM.HTMLTimeElement - , GHCJS.DOM.JSFFI.Generated.HTMLTitleElement as GHCJS.DOM.HTMLTitleElement - , GHCJS.DOM.JSFFI.Generated.HTMLTrackElement as GHCJS.DOM.HTMLTrackElement - , GHCJS.DOM.JSFFI.Generated.HTMLUListElement as GHCJS.DOM.HTMLUListElement - , GHCJS.DOM.JSFFI.Generated.HTMLVideoElement as GHCJS.DOM.HTMLVideoElement - , GHCJS.DOM.JSFFI.Generated.HashChangeEvent as GHCJS.DOM.HashChangeEvent - , GHCJS.DOM.JSFFI.Generated.Headers as GHCJS.DOM.Headers - , GHCJS.DOM.JSFFI.Generated.History as GHCJS.DOM.History - , GHCJS.DOM.JSFFI.Generated.IDBCursor as GHCJS.DOM.IDBCursor - , GHCJS.DOM.JSFFI.Generated.IDBCursorWithValue as GHCJS.DOM.IDBCursorWithValue - , GHCJS.DOM.JSFFI.Generated.IDBDatabase as GHCJS.DOM.IDBDatabase - , GHCJS.DOM.JSFFI.Generated.IDBFactory as GHCJS.DOM.IDBFactory - , GHCJS.DOM.JSFFI.Generated.IDBIndex as GHCJS.DOM.IDBIndex - , GHCJS.DOM.JSFFI.Generated.IDBKeyRange as GHCJS.DOM.IDBKeyRange - , GHCJS.DOM.JSFFI.Generated.IDBObjectStore as GHCJS.DOM.IDBObjectStore - , GHCJS.DOM.JSFFI.Generated.IDBOpenDBRequest as GHCJS.DOM.IDBOpenDBRequest - , GHCJS.DOM.JSFFI.Generated.IDBRequest as GHCJS.DOM.IDBRequest - , GHCJS.DOM.JSFFI.Generated.IDBTransaction as GHCJS.DOM.IDBTransaction - , GHCJS.DOM.JSFFI.Generated.IDBVersionChangeEvent as GHCJS.DOM.IDBVersionChangeEvent - , GHCJS.DOM.JSFFI.Generated.ImageData as GHCJS.DOM.ImageData - , GHCJS.DOM.JSFFI.Generated.InputEvent as GHCJS.DOM.InputEvent - , GHCJS.DOM.JSFFI.Generated.InspectorFrontendHost as GHCJS.DOM.InspectorFrontendHost - , GHCJS.DOM.JSFFI.Generated.IntersectionObserver as GHCJS.DOM.IntersectionObserver - , GHCJS.DOM.JSFFI.Generated.IntersectionObserverCallback as GHCJS.DOM.IntersectionObserverCallback - , GHCJS.DOM.JSFFI.Generated.IntersectionObserverEntry as GHCJS.DOM.IntersectionObserverEntry - , GHCJS.DOM.JSFFI.Generated.KeyboardEvent as GHCJS.DOM.KeyboardEvent - , GHCJS.DOM.JSFFI.Generated.KeyframeEffect as GHCJS.DOM.KeyframeEffect - , GHCJS.DOM.JSFFI.Generated.Location as GHCJS.DOM.Location - , GHCJS.DOM.JSFFI.Generated.MediaController as GHCJS.DOM.MediaController - , GHCJS.DOM.JSFFI.Generated.MediaControlsHost as GHCJS.DOM.MediaControlsHost - , GHCJS.DOM.JSFFI.Generated.MediaDeviceInfo as GHCJS.DOM.MediaDeviceInfo - , GHCJS.DOM.JSFFI.Generated.MediaDevices as GHCJS.DOM.MediaDevices - , GHCJS.DOM.JSFFI.Generated.MediaElementAudioSourceNode as GHCJS.DOM.MediaElementAudioSourceNode - , GHCJS.DOM.JSFFI.Generated.MediaEncryptedEvent as GHCJS.DOM.MediaEncryptedEvent - , GHCJS.DOM.JSFFI.Generated.MediaError as GHCJS.DOM.MediaError - , GHCJS.DOM.JSFFI.Generated.MediaKeyMessageEvent as GHCJS.DOM.MediaKeyMessageEvent - , GHCJS.DOM.JSFFI.Generated.MediaKeySession as GHCJS.DOM.MediaKeySession - , GHCJS.DOM.JSFFI.Generated.MediaKeyStatusMap as GHCJS.DOM.MediaKeyStatusMap - , GHCJS.DOM.JSFFI.Generated.MediaKeySystemAccess as GHCJS.DOM.MediaKeySystemAccess - , GHCJS.DOM.JSFFI.Generated.MediaKeys as GHCJS.DOM.MediaKeys - , GHCJS.DOM.JSFFI.Generated.MediaList as GHCJS.DOM.MediaList - , GHCJS.DOM.JSFFI.Generated.MediaQueryList as GHCJS.DOM.MediaQueryList - , GHCJS.DOM.JSFFI.Generated.MediaQueryListListener as GHCJS.DOM.MediaQueryListListener - , GHCJS.DOM.JSFFI.Generated.MediaRemoteControls as GHCJS.DOM.MediaRemoteControls - , GHCJS.DOM.JSFFI.Generated.MediaSession as GHCJS.DOM.MediaSession - , GHCJS.DOM.JSFFI.Generated.MediaSource as GHCJS.DOM.MediaSource - , GHCJS.DOM.JSFFI.Generated.MediaStream as GHCJS.DOM.MediaStream - , GHCJS.DOM.JSFFI.Generated.MediaStreamAudioDestinationNode as GHCJS.DOM.MediaStreamAudioDestinationNode - , GHCJS.DOM.JSFFI.Generated.MediaStreamAudioSourceNode as GHCJS.DOM.MediaStreamAudioSourceNode - , GHCJS.DOM.JSFFI.Generated.MediaStreamEvent as GHCJS.DOM.MediaStreamEvent - , GHCJS.DOM.JSFFI.Generated.MediaStreamTrack as GHCJS.DOM.MediaStreamTrack - , GHCJS.DOM.JSFFI.Generated.MediaStreamTrackEvent as GHCJS.DOM.MediaStreamTrackEvent - , GHCJS.DOM.JSFFI.Generated.MessageChannel as GHCJS.DOM.MessageChannel - , GHCJS.DOM.JSFFI.Generated.MessageEvent as GHCJS.DOM.MessageEvent - , GHCJS.DOM.JSFFI.Generated.MessagePort as GHCJS.DOM.MessagePort - , GHCJS.DOM.JSFFI.Generated.MimeType as GHCJS.DOM.MimeType - , GHCJS.DOM.JSFFI.Generated.MimeTypeArray as GHCJS.DOM.MimeTypeArray - , GHCJS.DOM.JSFFI.Generated.MouseEvent as GHCJS.DOM.MouseEvent - , GHCJS.DOM.JSFFI.Generated.MutationEvent as GHCJS.DOM.MutationEvent - , GHCJS.DOM.JSFFI.Generated.MutationObserver as GHCJS.DOM.MutationObserver - , GHCJS.DOM.JSFFI.Generated.MutationRecord as GHCJS.DOM.MutationRecord - , GHCJS.DOM.JSFFI.Generated.NamedNodeMap as GHCJS.DOM.NamedNodeMap - , GHCJS.DOM.JSFFI.Navigator as GHCJS.DOM.Navigator - , GHCJS.DOM.JSFFI.Generated.NavigatorConcurrentHardware as GHCJS.DOM.NavigatorConcurrentHardware - , GHCJS.DOM.JSFFI.Generated.NavigatorID as GHCJS.DOM.NavigatorID - , GHCJS.DOM.JSFFI.Generated.NavigatorLanguage as GHCJS.DOM.NavigatorLanguage - , GHCJS.DOM.JSFFI.Generated.NavigatorOnLine as GHCJS.DOM.NavigatorOnLine - , GHCJS.DOM.JSFFI.NavigatorUserMediaError as GHCJS.DOM.NavigatorUserMediaError - , GHCJS.DOM.JSFFI.Generated.NavigatorUserMediaErrorCallback as GHCJS.DOM.NavigatorUserMediaErrorCallback - , GHCJS.DOM.JSFFI.Generated.NavigatorUserMediaSuccessCallback as GHCJS.DOM.NavigatorUserMediaSuccessCallback - , GHCJS.DOM.JSFFI.Generated.Node as GHCJS.DOM.Node - , GHCJS.DOM.JSFFI.Generated.NodeFilter as GHCJS.DOM.NodeFilter - , GHCJS.DOM.JSFFI.Generated.NodeIterator as GHCJS.DOM.NodeIterator - , GHCJS.DOM.JSFFI.Generated.NodeList as GHCJS.DOM.NodeList - , GHCJS.DOM.JSFFI.Generated.NonDocumentTypeChildNode as GHCJS.DOM.NonDocumentTypeChildNode - , GHCJS.DOM.JSFFI.Generated.NonElementParentNode as GHCJS.DOM.NonElementParentNode - , GHCJS.DOM.JSFFI.Generated.Notification as GHCJS.DOM.Notification - , GHCJS.DOM.JSFFI.Generated.NotificationPermissionCallback as GHCJS.DOM.NotificationPermissionCallback - , GHCJS.DOM.JSFFI.Generated.OESStandardDerivatives as GHCJS.DOM.OESStandardDerivatives - , GHCJS.DOM.JSFFI.Generated.OESTextureHalfFloat as GHCJS.DOM.OESTextureHalfFloat - , GHCJS.DOM.JSFFI.Generated.OESVertexArrayObject as GHCJS.DOM.OESVertexArrayObject - , GHCJS.DOM.JSFFI.Generated.OfflineAudioCompletionEvent as GHCJS.DOM.OfflineAudioCompletionEvent - , GHCJS.DOM.JSFFI.Generated.OfflineAudioContext as GHCJS.DOM.OfflineAudioContext - , GHCJS.DOM.JSFFI.Generated.OscillatorNode as GHCJS.DOM.OscillatorNode - , GHCJS.DOM.JSFFI.Generated.OverconstrainedError as GHCJS.DOM.OverconstrainedError - , GHCJS.DOM.JSFFI.Generated.OverconstrainedErrorEvent as GHCJS.DOM.OverconstrainedErrorEvent - , GHCJS.DOM.JSFFI.Generated.OverflowEvent as GHCJS.DOM.OverflowEvent - , GHCJS.DOM.JSFFI.Generated.PageTransitionEvent as GHCJS.DOM.PageTransitionEvent - , GHCJS.DOM.JSFFI.Generated.PannerNode as GHCJS.DOM.PannerNode - , GHCJS.DOM.JSFFI.Generated.ParentNode as GHCJS.DOM.ParentNode - , GHCJS.DOM.JSFFI.Generated.PasswordCredential as GHCJS.DOM.PasswordCredential - , GHCJS.DOM.JSFFI.Generated.Path2D as GHCJS.DOM.Path2D - , GHCJS.DOM.JSFFI.Generated.Performance as GHCJS.DOM.Performance - , GHCJS.DOM.JSFFI.Generated.PerformanceEntry as GHCJS.DOM.PerformanceEntry - , GHCJS.DOM.JSFFI.Generated.PerformanceNavigation as GHCJS.DOM.PerformanceNavigation - , GHCJS.DOM.JSFFI.Generated.PerformanceObserver as GHCJS.DOM.PerformanceObserver - , GHCJS.DOM.JSFFI.Generated.PerformanceObserverCallback as GHCJS.DOM.PerformanceObserverCallback - , GHCJS.DOM.JSFFI.Generated.PerformanceObserverEntryList as GHCJS.DOM.PerformanceObserverEntryList - , GHCJS.DOM.JSFFI.Generated.PerformanceResourceTiming as GHCJS.DOM.PerformanceResourceTiming - , GHCJS.DOM.JSFFI.Generated.PerformanceTiming as GHCJS.DOM.PerformanceTiming - , GHCJS.DOM.JSFFI.Generated.Plugin as GHCJS.DOM.Plugin - , GHCJS.DOM.JSFFI.Generated.PluginArray as GHCJS.DOM.PluginArray - , GHCJS.DOM.JSFFI.Generated.PopStateEvent as GHCJS.DOM.PopStateEvent - , GHCJS.DOM.JSFFI.Generated.PositionCallback as GHCJS.DOM.PositionCallback - , GHCJS.DOM.JSFFI.PositionError as GHCJS.DOM.PositionError - , GHCJS.DOM.JSFFI.Generated.PositionErrorCallback as GHCJS.DOM.PositionErrorCallback - , GHCJS.DOM.JSFFI.Generated.ProcessingInstruction as GHCJS.DOM.ProcessingInstruction - , GHCJS.DOM.JSFFI.Generated.ProgressEvent as GHCJS.DOM.ProgressEvent - , GHCJS.DOM.JSFFI.Generated.PromiseRejectionEvent as GHCJS.DOM.PromiseRejectionEvent - , GHCJS.DOM.JSFFI.Generated.QuickTimePluginReplacement as GHCJS.DOM.QuickTimePluginReplacement - , GHCJS.DOM.JSFFI.Generated.RGBColor as GHCJS.DOM.RGBColor - , GHCJS.DOM.JSFFI.Generated.RTCDTMFSender as GHCJS.DOM.RTCDTMFSender - , GHCJS.DOM.JSFFI.Generated.RTCDTMFToneChangeEvent as GHCJS.DOM.RTCDTMFToneChangeEvent - , GHCJS.DOM.JSFFI.Generated.RTCDataChannel as GHCJS.DOM.RTCDataChannel - , GHCJS.DOM.JSFFI.Generated.RTCDataChannelEvent as GHCJS.DOM.RTCDataChannelEvent - , GHCJS.DOM.JSFFI.Generated.RTCIceCandidate as GHCJS.DOM.RTCIceCandidate - , GHCJS.DOM.JSFFI.Generated.RTCIceCandidateEvent as GHCJS.DOM.RTCIceCandidateEvent - , GHCJS.DOM.JSFFI.Generated.RTCIceTransport as GHCJS.DOM.RTCIceTransport - , GHCJS.DOM.JSFFI.Generated.RTCPeerConnection as GHCJS.DOM.RTCPeerConnection - , GHCJS.DOM.JSFFI.Generated.RTCPeerConnectionIceEvent as GHCJS.DOM.RTCPeerConnectionIceEvent - , GHCJS.DOM.JSFFI.Generated.RTCRtpReceiver as GHCJS.DOM.RTCRtpReceiver - , GHCJS.DOM.JSFFI.Generated.RTCRtpSender as GHCJS.DOM.RTCRtpSender - , GHCJS.DOM.JSFFI.Generated.RTCRtpTransceiver as GHCJS.DOM.RTCRtpTransceiver - , GHCJS.DOM.JSFFI.Generated.RTCSessionDescription as GHCJS.DOM.RTCSessionDescription - , GHCJS.DOM.JSFFI.Generated.RTCTrackEvent as GHCJS.DOM.RTCTrackEvent - , GHCJS.DOM.JSFFI.Generated.RadioNodeList as GHCJS.DOM.RadioNodeList - , GHCJS.DOM.JSFFI.Generated.Range as GHCJS.DOM.Range - , GHCJS.DOM.JSFFI.Generated.ReadableByteStreamController as GHCJS.DOM.ReadableByteStreamController - , GHCJS.DOM.JSFFI.Generated.ReadableStream as GHCJS.DOM.ReadableStream - , GHCJS.DOM.JSFFI.Generated.ReadableStreamBYOBReader as GHCJS.DOM.ReadableStreamBYOBReader - , GHCJS.DOM.JSFFI.Generated.ReadableStreamBYOBRequest as GHCJS.DOM.ReadableStreamBYOBRequest - , GHCJS.DOM.JSFFI.Generated.ReadableStreamDefaultController as GHCJS.DOM.ReadableStreamDefaultController - , GHCJS.DOM.JSFFI.Generated.ReadableStreamDefaultReader as GHCJS.DOM.ReadableStreamDefaultReader - , GHCJS.DOM.JSFFI.Generated.ReadableStreamSource as GHCJS.DOM.ReadableStreamSource - , GHCJS.DOM.JSFFI.Generated.Rect as GHCJS.DOM.Rect - , GHCJS.DOM.JSFFI.Generated.Request as GHCJS.DOM.Request - , GHCJS.DOM.JSFFI.Generated.RequestAnimationFrameCallback as GHCJS.DOM.RequestAnimationFrameCallback - , GHCJS.DOM.JSFFI.Generated.Response as GHCJS.DOM.Response - , GHCJS.DOM.JSFFI.SQLError as GHCJS.DOM.SQLError - , GHCJS.DOM.JSFFI.Generated.SQLException as GHCJS.DOM.SQLException - , GHCJS.DOM.JSFFI.Generated.SQLResultSet as GHCJS.DOM.SQLResultSet - , GHCJS.DOM.JSFFI.Generated.SQLResultSetRowList as GHCJS.DOM.SQLResultSetRowList - , GHCJS.DOM.JSFFI.Generated.SQLStatementCallback as GHCJS.DOM.SQLStatementCallback - , GHCJS.DOM.JSFFI.Generated.SQLStatementErrorCallback as GHCJS.DOM.SQLStatementErrorCallback - , GHCJS.DOM.JSFFI.SQLTransaction as GHCJS.DOM.SQLTransaction - , GHCJS.DOM.JSFFI.Generated.SQLTransactionCallback as GHCJS.DOM.SQLTransactionCallback - , GHCJS.DOM.JSFFI.Generated.SQLTransactionErrorCallback as GHCJS.DOM.SQLTransactionErrorCallback - , GHCJS.DOM.JSFFI.Generated.SVGAElement as GHCJS.DOM.SVGAElement - , GHCJS.DOM.JSFFI.Generated.SVGAltGlyphElement as GHCJS.DOM.SVGAltGlyphElement - , GHCJS.DOM.JSFFI.Generated.SVGAngle as GHCJS.DOM.SVGAngle - , GHCJS.DOM.JSFFI.Generated.SVGAnimatedAngle as GHCJS.DOM.SVGAnimatedAngle - , GHCJS.DOM.JSFFI.Generated.SVGAnimatedBoolean as GHCJS.DOM.SVGAnimatedBoolean - , GHCJS.DOM.JSFFI.Generated.SVGAnimatedEnumeration as GHCJS.DOM.SVGAnimatedEnumeration - , GHCJS.DOM.JSFFI.Generated.SVGAnimatedInteger as GHCJS.DOM.SVGAnimatedInteger - , GHCJS.DOM.JSFFI.Generated.SVGAnimatedLength as GHCJS.DOM.SVGAnimatedLength - , GHCJS.DOM.JSFFI.Generated.SVGAnimatedLengthList as GHCJS.DOM.SVGAnimatedLengthList - , GHCJS.DOM.JSFFI.Generated.SVGAnimatedNumber as GHCJS.DOM.SVGAnimatedNumber - , GHCJS.DOM.JSFFI.Generated.SVGAnimatedNumberList as GHCJS.DOM.SVGAnimatedNumberList - , GHCJS.DOM.JSFFI.Generated.SVGAnimatedPreserveAspectRatio as GHCJS.DOM.SVGAnimatedPreserveAspectRatio - , GHCJS.DOM.JSFFI.Generated.SVGAnimatedRect as GHCJS.DOM.SVGAnimatedRect - , GHCJS.DOM.JSFFI.Generated.SVGAnimatedString as GHCJS.DOM.SVGAnimatedString - , GHCJS.DOM.JSFFI.Generated.SVGAnimatedTransformList as GHCJS.DOM.SVGAnimatedTransformList - , GHCJS.DOM.JSFFI.Generated.SVGAnimationElement as GHCJS.DOM.SVGAnimationElement - , GHCJS.DOM.JSFFI.Generated.SVGCircleElement as GHCJS.DOM.SVGCircleElement - , GHCJS.DOM.JSFFI.Generated.SVGClipPathElement as GHCJS.DOM.SVGClipPathElement - , GHCJS.DOM.JSFFI.Generated.SVGComponentTransferFunctionElement as GHCJS.DOM.SVGComponentTransferFunctionElement - , GHCJS.DOM.JSFFI.Generated.SVGCursorElement as GHCJS.DOM.SVGCursorElement - , GHCJS.DOM.JSFFI.Generated.SVGElement as GHCJS.DOM.SVGElement - , GHCJS.DOM.JSFFI.Generated.SVGEllipseElement as GHCJS.DOM.SVGEllipseElement - , GHCJS.DOM.JSFFI.Generated.SVGException as GHCJS.DOM.SVGException - , GHCJS.DOM.JSFFI.Generated.SVGExternalResourcesRequired as GHCJS.DOM.SVGExternalResourcesRequired - , GHCJS.DOM.JSFFI.Generated.SVGFEBlendElement as GHCJS.DOM.SVGFEBlendElement - , GHCJS.DOM.JSFFI.Generated.SVGFEColorMatrixElement as GHCJS.DOM.SVGFEColorMatrixElement - , GHCJS.DOM.JSFFI.Generated.SVGFEComponentTransferElement as GHCJS.DOM.SVGFEComponentTransferElement - , GHCJS.DOM.JSFFI.Generated.SVGFECompositeElement as GHCJS.DOM.SVGFECompositeElement - , GHCJS.DOM.JSFFI.Generated.SVGFEConvolveMatrixElement as GHCJS.DOM.SVGFEConvolveMatrixElement - , GHCJS.DOM.JSFFI.Generated.SVGFEDiffuseLightingElement as GHCJS.DOM.SVGFEDiffuseLightingElement - , GHCJS.DOM.JSFFI.Generated.SVGFEDisplacementMapElement as GHCJS.DOM.SVGFEDisplacementMapElement - , GHCJS.DOM.JSFFI.Generated.SVGFEDistantLightElement as GHCJS.DOM.SVGFEDistantLightElement - , GHCJS.DOM.JSFFI.Generated.SVGFEDropShadowElement as GHCJS.DOM.SVGFEDropShadowElement - , GHCJS.DOM.JSFFI.Generated.SVGFEGaussianBlurElement as GHCJS.DOM.SVGFEGaussianBlurElement - , GHCJS.DOM.JSFFI.Generated.SVGFEImageElement as GHCJS.DOM.SVGFEImageElement - , GHCJS.DOM.JSFFI.Generated.SVGFEMergeNodeElement as GHCJS.DOM.SVGFEMergeNodeElement - , GHCJS.DOM.JSFFI.Generated.SVGFEMorphologyElement as GHCJS.DOM.SVGFEMorphologyElement - , GHCJS.DOM.JSFFI.Generated.SVGFEOffsetElement as GHCJS.DOM.SVGFEOffsetElement - , GHCJS.DOM.JSFFI.Generated.SVGFEPointLightElement as GHCJS.DOM.SVGFEPointLightElement - , GHCJS.DOM.JSFFI.Generated.SVGFESpecularLightingElement as GHCJS.DOM.SVGFESpecularLightingElement - , GHCJS.DOM.JSFFI.Generated.SVGFESpotLightElement as GHCJS.DOM.SVGFESpotLightElement - , GHCJS.DOM.JSFFI.Generated.SVGFETileElement as GHCJS.DOM.SVGFETileElement - , GHCJS.DOM.JSFFI.Generated.SVGFETurbulenceElement as GHCJS.DOM.SVGFETurbulenceElement - , GHCJS.DOM.JSFFI.Generated.SVGFilterElement as GHCJS.DOM.SVGFilterElement - , GHCJS.DOM.JSFFI.Generated.SVGFilterPrimitiveStandardAttributes as GHCJS.DOM.SVGFilterPrimitiveStandardAttributes - , GHCJS.DOM.JSFFI.Generated.SVGFitToViewBox as GHCJS.DOM.SVGFitToViewBox - , GHCJS.DOM.JSFFI.Generated.SVGForeignObjectElement as GHCJS.DOM.SVGForeignObjectElement - , GHCJS.DOM.JSFFI.Generated.SVGGlyphRefElement as GHCJS.DOM.SVGGlyphRefElement - , GHCJS.DOM.JSFFI.Generated.SVGGradientElement as GHCJS.DOM.SVGGradientElement - , GHCJS.DOM.JSFFI.Generated.SVGGraphicsElement as GHCJS.DOM.SVGGraphicsElement - , GHCJS.DOM.JSFFI.Generated.SVGImageElement as GHCJS.DOM.SVGImageElement - , GHCJS.DOM.JSFFI.Generated.SVGLength as GHCJS.DOM.SVGLength - , GHCJS.DOM.JSFFI.Generated.SVGLengthList as GHCJS.DOM.SVGLengthList - , GHCJS.DOM.JSFFI.Generated.SVGLineElement as GHCJS.DOM.SVGLineElement - , GHCJS.DOM.JSFFI.Generated.SVGLinearGradientElement as GHCJS.DOM.SVGLinearGradientElement - , GHCJS.DOM.JSFFI.Generated.SVGMarkerElement as GHCJS.DOM.SVGMarkerElement - , GHCJS.DOM.JSFFI.Generated.SVGMaskElement as GHCJS.DOM.SVGMaskElement - , GHCJS.DOM.JSFFI.Generated.SVGMatrix as GHCJS.DOM.SVGMatrix - , GHCJS.DOM.JSFFI.Generated.SVGNumber as GHCJS.DOM.SVGNumber - , GHCJS.DOM.JSFFI.Generated.SVGNumberList as GHCJS.DOM.SVGNumberList - , GHCJS.DOM.JSFFI.Generated.SVGPathElement as GHCJS.DOM.SVGPathElement - , GHCJS.DOM.JSFFI.Generated.SVGPathSeg as GHCJS.DOM.SVGPathSeg - , GHCJS.DOM.JSFFI.Generated.SVGPathSegArcAbs as GHCJS.DOM.SVGPathSegArcAbs - , GHCJS.DOM.JSFFI.Generated.SVGPathSegArcRel as GHCJS.DOM.SVGPathSegArcRel - , GHCJS.DOM.JSFFI.Generated.SVGPathSegCurvetoCubicAbs as GHCJS.DOM.SVGPathSegCurvetoCubicAbs - , GHCJS.DOM.JSFFI.Generated.SVGPathSegCurvetoCubicRel as GHCJS.DOM.SVGPathSegCurvetoCubicRel - , GHCJS.DOM.JSFFI.Generated.SVGPathSegCurvetoCubicSmoothAbs as GHCJS.DOM.SVGPathSegCurvetoCubicSmoothAbs - , GHCJS.DOM.JSFFI.Generated.SVGPathSegCurvetoCubicSmoothRel as GHCJS.DOM.SVGPathSegCurvetoCubicSmoothRel - , GHCJS.DOM.JSFFI.Generated.SVGPathSegCurvetoQuadraticAbs as GHCJS.DOM.SVGPathSegCurvetoQuadraticAbs - , GHCJS.DOM.JSFFI.Generated.SVGPathSegCurvetoQuadraticRel as GHCJS.DOM.SVGPathSegCurvetoQuadraticRel - , GHCJS.DOM.JSFFI.Generated.SVGPathSegCurvetoQuadraticSmoothAbs as GHCJS.DOM.SVGPathSegCurvetoQuadraticSmoothAbs - , GHCJS.DOM.JSFFI.Generated.SVGPathSegCurvetoQuadraticSmoothRel as GHCJS.DOM.SVGPathSegCurvetoQuadraticSmoothRel - , GHCJS.DOM.JSFFI.Generated.SVGPathSegLinetoAbs as GHCJS.DOM.SVGPathSegLinetoAbs - , GHCJS.DOM.JSFFI.Generated.SVGPathSegLinetoHorizontalAbs as GHCJS.DOM.SVGPathSegLinetoHorizontalAbs - , GHCJS.DOM.JSFFI.Generated.SVGPathSegLinetoHorizontalRel as GHCJS.DOM.SVGPathSegLinetoHorizontalRel - , GHCJS.DOM.JSFFI.Generated.SVGPathSegLinetoRel as GHCJS.DOM.SVGPathSegLinetoRel - , GHCJS.DOM.JSFFI.Generated.SVGPathSegLinetoVerticalAbs as GHCJS.DOM.SVGPathSegLinetoVerticalAbs - , GHCJS.DOM.JSFFI.Generated.SVGPathSegLinetoVerticalRel as GHCJS.DOM.SVGPathSegLinetoVerticalRel - , GHCJS.DOM.JSFFI.Generated.SVGPathSegList as GHCJS.DOM.SVGPathSegList - , GHCJS.DOM.JSFFI.Generated.SVGPathSegMovetoAbs as GHCJS.DOM.SVGPathSegMovetoAbs - , GHCJS.DOM.JSFFI.Generated.SVGPathSegMovetoRel as GHCJS.DOM.SVGPathSegMovetoRel - , GHCJS.DOM.JSFFI.Generated.SVGPatternElement as GHCJS.DOM.SVGPatternElement - , GHCJS.DOM.JSFFI.Generated.SVGPoint as GHCJS.DOM.SVGPoint - , GHCJS.DOM.JSFFI.Generated.SVGPointList as GHCJS.DOM.SVGPointList - , GHCJS.DOM.JSFFI.Generated.SVGPolygonElement as GHCJS.DOM.SVGPolygonElement - , GHCJS.DOM.JSFFI.Generated.SVGPolylineElement as GHCJS.DOM.SVGPolylineElement - , GHCJS.DOM.JSFFI.Generated.SVGPreserveAspectRatio as GHCJS.DOM.SVGPreserveAspectRatio - , GHCJS.DOM.JSFFI.Generated.SVGRadialGradientElement as GHCJS.DOM.SVGRadialGradientElement - , GHCJS.DOM.JSFFI.Generated.SVGRect as GHCJS.DOM.SVGRect - , GHCJS.DOM.JSFFI.Generated.SVGRectElement as GHCJS.DOM.SVGRectElement - , GHCJS.DOM.JSFFI.Generated.SVGRenderingIntent as GHCJS.DOM.SVGRenderingIntent - , GHCJS.DOM.JSFFI.Generated.SVGSVGElement as GHCJS.DOM.SVGSVGElement - , GHCJS.DOM.JSFFI.Generated.SVGScriptElement as GHCJS.DOM.SVGScriptElement - , GHCJS.DOM.JSFFI.Generated.SVGStopElement as GHCJS.DOM.SVGStopElement - , GHCJS.DOM.JSFFI.Generated.SVGStringList as GHCJS.DOM.SVGStringList - , GHCJS.DOM.JSFFI.Generated.SVGStyleElement as GHCJS.DOM.SVGStyleElement - , GHCJS.DOM.JSFFI.Generated.SVGTests as GHCJS.DOM.SVGTests - , GHCJS.DOM.JSFFI.Generated.SVGTextContentElement as GHCJS.DOM.SVGTextContentElement - , GHCJS.DOM.JSFFI.Generated.SVGTextPathElement as GHCJS.DOM.SVGTextPathElement - , GHCJS.DOM.JSFFI.Generated.SVGTextPositioningElement as GHCJS.DOM.SVGTextPositioningElement - , GHCJS.DOM.JSFFI.Generated.SVGTransform as GHCJS.DOM.SVGTransform - , GHCJS.DOM.JSFFI.Generated.SVGTransformList as GHCJS.DOM.SVGTransformList - , GHCJS.DOM.JSFFI.Generated.SVGURIReference as GHCJS.DOM.SVGURIReference - , GHCJS.DOM.JSFFI.Generated.SVGUnitTypes as GHCJS.DOM.SVGUnitTypes - , GHCJS.DOM.JSFFI.Generated.SVGUseElement as GHCJS.DOM.SVGUseElement - , GHCJS.DOM.JSFFI.Generated.SVGViewElement as GHCJS.DOM.SVGViewElement - , GHCJS.DOM.JSFFI.Generated.SVGViewSpec as GHCJS.DOM.SVGViewSpec - , GHCJS.DOM.JSFFI.Generated.SVGZoomAndPan as GHCJS.DOM.SVGZoomAndPan - , GHCJS.DOM.JSFFI.Generated.SVGZoomEvent as GHCJS.DOM.SVGZoomEvent - , GHCJS.DOM.JSFFI.Generated.Screen as GHCJS.DOM.Screen - , GHCJS.DOM.JSFFI.Generated.ScriptProcessorNode as GHCJS.DOM.ScriptProcessorNode - , GHCJS.DOM.JSFFI.Generated.SecurityPolicyViolationEvent as GHCJS.DOM.SecurityPolicyViolationEvent - , GHCJS.DOM.JSFFI.Generated.Selection as GHCJS.DOM.Selection - , GHCJS.DOM.JSFFI.Generated.ShadowRoot as GHCJS.DOM.ShadowRoot - , GHCJS.DOM.JSFFI.Generated.SiteBoundCredential as GHCJS.DOM.SiteBoundCredential - , GHCJS.DOM.JSFFI.Generated.Slotable as GHCJS.DOM.Slotable - , GHCJS.DOM.JSFFI.Generated.SourceBuffer as GHCJS.DOM.SourceBuffer - , GHCJS.DOM.JSFFI.Generated.SourceBufferList as GHCJS.DOM.SourceBufferList - , GHCJS.DOM.JSFFI.Generated.SpeechSynthesis as GHCJS.DOM.SpeechSynthesis - , GHCJS.DOM.JSFFI.Generated.SpeechSynthesisEvent as GHCJS.DOM.SpeechSynthesisEvent - , GHCJS.DOM.JSFFI.Generated.SpeechSynthesisUtterance as GHCJS.DOM.SpeechSynthesisUtterance - , GHCJS.DOM.JSFFI.Generated.SpeechSynthesisVoice as GHCJS.DOM.SpeechSynthesisVoice - , GHCJS.DOM.JSFFI.Generated.StaticRange as GHCJS.DOM.StaticRange - , GHCJS.DOM.JSFFI.Generated.Storage as GHCJS.DOM.Storage - , GHCJS.DOM.JSFFI.Generated.StorageErrorCallback as GHCJS.DOM.StorageErrorCallback - , GHCJS.DOM.JSFFI.Generated.StorageEvent as GHCJS.DOM.StorageEvent - , GHCJS.DOM.JSFFI.Generated.StorageInfo as GHCJS.DOM.StorageInfo - , GHCJS.DOM.JSFFI.Generated.StorageQuota as GHCJS.DOM.StorageQuota - , GHCJS.DOM.JSFFI.Generated.StorageQuotaCallback as GHCJS.DOM.StorageQuotaCallback - , GHCJS.DOM.JSFFI.Generated.StorageUsageCallback as GHCJS.DOM.StorageUsageCallback - , GHCJS.DOM.JSFFI.Generated.StringCallback as GHCJS.DOM.StringCallback - , GHCJS.DOM.JSFFI.Generated.StyleMedia as GHCJS.DOM.StyleMedia - , GHCJS.DOM.JSFFI.Generated.StyleSheet as GHCJS.DOM.StyleSheet - , GHCJS.DOM.JSFFI.Generated.StyleSheetList as GHCJS.DOM.StyleSheetList - , GHCJS.DOM.JSFFI.Generated.SubtleCrypto as GHCJS.DOM.SubtleCrypto - , GHCJS.DOM.JSFFI.Generated.Text as GHCJS.DOM.Text - , GHCJS.DOM.JSFFI.Generated.TextDecoder as GHCJS.DOM.TextDecoder - , GHCJS.DOM.JSFFI.Generated.TextEncoder as GHCJS.DOM.TextEncoder - , GHCJS.DOM.JSFFI.Generated.TextEvent as GHCJS.DOM.TextEvent - , GHCJS.DOM.JSFFI.Generated.TextMetrics as GHCJS.DOM.TextMetrics - , GHCJS.DOM.JSFFI.Generated.TextTrack as GHCJS.DOM.TextTrack - , GHCJS.DOM.JSFFI.Generated.TextTrackCue as GHCJS.DOM.TextTrackCue - , GHCJS.DOM.JSFFI.Generated.TextTrackCueList as GHCJS.DOM.TextTrackCueList - , GHCJS.DOM.JSFFI.Generated.TextTrackList as GHCJS.DOM.TextTrackList - , GHCJS.DOM.JSFFI.Generated.TimeRanges as GHCJS.DOM.TimeRanges - , GHCJS.DOM.JSFFI.Generated.Touch as GHCJS.DOM.Touch - , GHCJS.DOM.JSFFI.Generated.TouchEvent as GHCJS.DOM.TouchEvent - , GHCJS.DOM.JSFFI.Generated.TouchList as GHCJS.DOM.TouchList - , GHCJS.DOM.JSFFI.Generated.TrackEvent as GHCJS.DOM.TrackEvent - , GHCJS.DOM.JSFFI.Generated.TransitionEvent as GHCJS.DOM.TransitionEvent - , GHCJS.DOM.JSFFI.Generated.TreeWalker as GHCJS.DOM.TreeWalker - , GHCJS.DOM.JSFFI.Generated.UIEvent as GHCJS.DOM.UIEvent - , GHCJS.DOM.JSFFI.Generated.URL as GHCJS.DOM.URL - , GHCJS.DOM.JSFFI.Generated.URLSearchParams as GHCJS.DOM.URLSearchParams - , GHCJS.DOM.JSFFI.Generated.UserMessageHandler as GHCJS.DOM.UserMessageHandler - , GHCJS.DOM.JSFFI.Generated.VTTCue as GHCJS.DOM.VTTCue - , GHCJS.DOM.JSFFI.Generated.VTTRegion as GHCJS.DOM.VTTRegion - , GHCJS.DOM.JSFFI.Generated.VTTRegionList as GHCJS.DOM.VTTRegionList - , GHCJS.DOM.JSFFI.Generated.ValidityState as GHCJS.DOM.ValidityState - , GHCJS.DOM.JSFFI.Generated.VideoPlaybackQuality as GHCJS.DOM.VideoPlaybackQuality - , GHCJS.DOM.JSFFI.Generated.VideoTrack as GHCJS.DOM.VideoTrack - , GHCJS.DOM.JSFFI.Generated.VideoTrackList as GHCJS.DOM.VideoTrackList - , GHCJS.DOM.JSFFI.Generated.VoidCallback as GHCJS.DOM.VoidCallback - , GHCJS.DOM.JSFFI.Generated.WaveShaperNode as GHCJS.DOM.WaveShaperNode - , GHCJS.DOM.JSFFI.Generated.WebGL2RenderingContext as GHCJS.DOM.WebGL2RenderingContext - , GHCJS.DOM.JSFFI.Generated.WebGLActiveInfo as GHCJS.DOM.WebGLActiveInfo - , GHCJS.DOM.JSFFI.Generated.WebGLCompressedTextureATC as GHCJS.DOM.WebGLCompressedTextureATC - , GHCJS.DOM.JSFFI.Generated.WebGLCompressedTexturePVRTC as GHCJS.DOM.WebGLCompressedTexturePVRTC - , GHCJS.DOM.JSFFI.Generated.WebGLCompressedTextureS3TC as GHCJS.DOM.WebGLCompressedTextureS3TC - , GHCJS.DOM.JSFFI.Generated.WebGLContextEvent as GHCJS.DOM.WebGLContextEvent - , GHCJS.DOM.JSFFI.Generated.WebGLDebugRendererInfo as GHCJS.DOM.WebGLDebugRendererInfo - , GHCJS.DOM.JSFFI.Generated.WebGLDebugShaders as GHCJS.DOM.WebGLDebugShaders - , GHCJS.DOM.JSFFI.Generated.WebGLDepthTexture as GHCJS.DOM.WebGLDepthTexture - , GHCJS.DOM.JSFFI.Generated.WebGLDrawBuffers as GHCJS.DOM.WebGLDrawBuffers - , GHCJS.DOM.JSFFI.Generated.WebGLLoseContext as GHCJS.DOM.WebGLLoseContext - , GHCJS.DOM.JSFFI.Generated.WebGLRenderingContextBase as GHCJS.DOM.WebGLRenderingContextBase - , GHCJS.DOM.JSFFI.Generated.WebGLShaderPrecisionFormat as GHCJS.DOM.WebGLShaderPrecisionFormat - , GHCJS.DOM.JSFFI.Generated.WebGPUBuffer as GHCJS.DOM.WebGPUBuffer - , GHCJS.DOM.JSFFI.Generated.WebGPUCommandBuffer as GHCJS.DOM.WebGPUCommandBuffer - , GHCJS.DOM.JSFFI.Generated.WebGPUCommandQueue as GHCJS.DOM.WebGPUCommandQueue - , GHCJS.DOM.JSFFI.Generated.WebGPUComputeCommandEncoder as GHCJS.DOM.WebGPUComputeCommandEncoder - , GHCJS.DOM.JSFFI.Generated.WebGPUDepthStencilDescriptor as GHCJS.DOM.WebGPUDepthStencilDescriptor - , GHCJS.DOM.JSFFI.Generated.WebGPUDepthStencilState as GHCJS.DOM.WebGPUDepthStencilState - , GHCJS.DOM.JSFFI.Generated.WebGPUDrawable as GHCJS.DOM.WebGPUDrawable - , GHCJS.DOM.JSFFI.Generated.WebGPUFunction as GHCJS.DOM.WebGPUFunction - , GHCJS.DOM.JSFFI.Generated.WebGPULibrary as GHCJS.DOM.WebGPULibrary - , GHCJS.DOM.JSFFI.Generated.WebGPURenderCommandEncoder as GHCJS.DOM.WebGPURenderCommandEncoder - , GHCJS.DOM.JSFFI.Generated.WebGPURenderPassAttachmentDescriptor as GHCJS.DOM.WebGPURenderPassAttachmentDescriptor - , GHCJS.DOM.JSFFI.Generated.WebGPURenderPassColorAttachmentDescriptor as GHCJS.DOM.WebGPURenderPassColorAttachmentDescriptor - , GHCJS.DOM.JSFFI.Generated.WebGPURenderPassDepthAttachmentDescriptor as GHCJS.DOM.WebGPURenderPassDepthAttachmentDescriptor - , GHCJS.DOM.JSFFI.Generated.WebGPURenderPassDescriptor as GHCJS.DOM.WebGPURenderPassDescriptor - , GHCJS.DOM.JSFFI.Generated.WebGPURenderPipelineColorAttachmentDescriptor as GHCJS.DOM.WebGPURenderPipelineColorAttachmentDescriptor - , GHCJS.DOM.JSFFI.Generated.WebGPURenderPipelineDescriptor as GHCJS.DOM.WebGPURenderPipelineDescriptor - , GHCJS.DOM.JSFFI.Generated.WebGPURenderPipelineState as GHCJS.DOM.WebGPURenderPipelineState - , GHCJS.DOM.JSFFI.Generated.WebGPURenderingContext as GHCJS.DOM.WebGPURenderingContext - , GHCJS.DOM.JSFFI.Generated.WebGPUTexture as GHCJS.DOM.WebGPUTexture - , GHCJS.DOM.JSFFI.Generated.WebGPUTextureDescriptor as GHCJS.DOM.WebGPUTextureDescriptor - , GHCJS.DOM.JSFFI.Generated.WebKitAnimationEvent as GHCJS.DOM.WebKitAnimationEvent - , GHCJS.DOM.JSFFI.Generated.WebKitCSSMatrix as GHCJS.DOM.WebKitCSSMatrix - , GHCJS.DOM.JSFFI.Generated.WebKitCSSRegionRule as GHCJS.DOM.WebKitCSSRegionRule - , GHCJS.DOM.JSFFI.Generated.WebKitCSSViewportRule as GHCJS.DOM.WebKitCSSViewportRule - , GHCJS.DOM.JSFFI.Generated.WebKitMediaKeyError as GHCJS.DOM.WebKitMediaKeyError - , GHCJS.DOM.JSFFI.Generated.WebKitMediaKeyMessageEvent as GHCJS.DOM.WebKitMediaKeyMessageEvent - , GHCJS.DOM.JSFFI.Generated.WebKitMediaKeyNeededEvent as GHCJS.DOM.WebKitMediaKeyNeededEvent - , GHCJS.DOM.JSFFI.Generated.WebKitMediaKeySession as GHCJS.DOM.WebKitMediaKeySession - , GHCJS.DOM.JSFFI.Generated.WebKitMediaKeys as GHCJS.DOM.WebKitMediaKeys - , GHCJS.DOM.JSFFI.Generated.WebKitNamedFlow as GHCJS.DOM.WebKitNamedFlow - , GHCJS.DOM.JSFFI.Generated.WebKitNamespace as GHCJS.DOM.WebKitNamespace - , GHCJS.DOM.JSFFI.Generated.WebKitPlaybackTargetAvailabilityEvent as GHCJS.DOM.WebKitPlaybackTargetAvailabilityEvent - , GHCJS.DOM.JSFFI.Generated.WebKitPoint as GHCJS.DOM.WebKitPoint - , GHCJS.DOM.JSFFI.Generated.WebKitSubtleCrypto as GHCJS.DOM.WebKitSubtleCrypto - , GHCJS.DOM.JSFFI.Generated.WebKitTransitionEvent as GHCJS.DOM.WebKitTransitionEvent - , GHCJS.DOM.JSFFI.Generated.WebSocket as GHCJS.DOM.WebSocket - , GHCJS.DOM.JSFFI.Generated.WheelEvent as GHCJS.DOM.WheelEvent - , GHCJS.DOM.JSFFI.Window as GHCJS.DOM.Window - , GHCJS.DOM.JSFFI.Generated.WindowEventHandlers as GHCJS.DOM.WindowEventHandlers - , GHCJS.DOM.JSFFI.Generated.WindowOrWorkerGlobalScope as GHCJS.DOM.WindowOrWorkerGlobalScope - , GHCJS.DOM.JSFFI.Generated.Worker as GHCJS.DOM.Worker - , GHCJS.DOM.JSFFI.Generated.WorkerGlobalScope as GHCJS.DOM.WorkerGlobalScope - , GHCJS.DOM.JSFFI.Generated.WorkerLocation as GHCJS.DOM.WorkerLocation - , GHCJS.DOM.JSFFI.Generated.WorkerNavigator as GHCJS.DOM.WorkerNavigator - , GHCJS.DOM.JSFFI.Generated.WritableStream as GHCJS.DOM.WritableStream - , GHCJS.DOM.JSFFI.XMLHttpRequest as GHCJS.DOM.XMLHttpRequest - , GHCJS.DOM.JSFFI.Generated.XMLHttpRequestEventTarget as GHCJS.DOM.XMLHttpRequestEventTarget - , GHCJS.DOM.JSFFI.Generated.XMLHttpRequestProgressEvent as GHCJS.DOM.XMLHttpRequestProgressEvent - , GHCJS.DOM.JSFFI.Generated.XMLSerializer as GHCJS.DOM.XMLSerializer - , GHCJS.DOM.JSFFI.Generated.XPathEvaluator as GHCJS.DOM.XPathEvaluator - , GHCJS.DOM.JSFFI.Generated.XPathException as GHCJS.DOM.XPathException - , GHCJS.DOM.JSFFI.Generated.XPathExpression as GHCJS.DOM.XPathExpression - , GHCJS.DOM.JSFFI.Generated.XPathNSResolver as GHCJS.DOM.XPathNSResolver - , GHCJS.DOM.JSFFI.Generated.XPathResult as GHCJS.DOM.XPathResult - , GHCJS.DOM.JSFFI.Generated.XSLTProcessor as GHCJS.DOM.XSLTProcessor +version: 0.10.0.0 +build-type: Simple +license: MIT +license-file: LICENSE +extra-doc-files: ChangeLog.md +maintainer: Hamish Mackenzie +synopsis: DOM library using JSFFI and GHCJS +description: Document Object Model (DOM) functions that work with + GHCJS. +author: Hamish Mackenzie +category: Web + +Tested-With: + GHC == 8.8.1 || == 8.6.5 || == 8.4.4 || == 8.2.2 || == 8.0.2 || == 7.10.3, + GHCJS == 8.4 || == 8.2 + +Source-Repository head + type: git + location: https://github.com/ghcjs/ghcjs-dom + subdir: ghcjs-dom-javascript + +library + build-depends: base <5, + transformers >=0.2 && <0.7, + text >= 0.11.0.6 && < 2.2, + ghcjs-base >=0.8.1.0 && <0.9, + ghc-prim + + default-language: Haskell2010 + + if impl(ghcjs) + other-extensions: JavaScriptFFI + build-depends: ghcjs-prim + + hs-source-dirs: src + cpp-options: -DUSE_JAVASCRIPTFFI + exposed: True + if impl(ghcjs) || arch(javascript) + buildable: True + else + buildable: False + js-sources: jsbits/xhr.js + + exposed-modules: + -- The module lists below are generated by dom-gen; do not edit. + GHCJS.DOM + GHCJS.DOM.Types + GHCJS.DOM.EventM + GHCJS.DOM.EventTargetClosures + GHCJS.DOM.Internal + GHCJS.DOM.JSFFI.Geolocation + GHCJS.DOM.JSFFI.GeolocationPositionError + GHCJS.DOM.JSFFI.XMLHttpRequest + GHCJS.DOM.JSFFI.Generated.ANGLE_instanced_arrays + GHCJS.DOM.JSFFI.Generated.ARIAMixin + GHCJS.DOM.JSFFI.Generated.ARIANotifyMixin + GHCJS.DOM.JSFFI.Generated.AacEncoderConfig + GHCJS.DOM.JSFFI.Generated.AbortController + GHCJS.DOM.JSFFI.Generated.AbortSignal + GHCJS.DOM.JSFFI.Generated.AbstractRange + GHCJS.DOM.JSFFI.Generated.AbstractWorker + GHCJS.DOM.JSFFI.Generated.AddEventListenerOptions + GHCJS.DOM.JSFFI.Generated.AddressErrors + GHCJS.DOM.JSFFI.Generated.AllAcceptedCredentialsOptions + GHCJS.DOM.JSFFI.Generated.AnalyserNode + GHCJS.DOM.JSFFI.Generated.AnalyserOptions + GHCJS.DOM.JSFFI.Generated.Animatable + GHCJS.DOM.JSFFI.Generated.Animation + GHCJS.DOM.JSFFI.Generated.AnimationEffect + GHCJS.DOM.JSFFI.Generated.AnimationEvent + GHCJS.DOM.JSFFI.Generated.AnimationEventInit + GHCJS.DOM.JSFFI.Generated.AnimationFrameProvider + GHCJS.DOM.JSFFI.Generated.AnimationPlaybackEvent + GHCJS.DOM.JSFFI.Generated.AnimationPlaybackEventInit + GHCJS.DOM.JSFFI.Generated.AnimationTimeline + GHCJS.DOM.JSFFI.Generated.AnimationTrigger + GHCJS.DOM.JSFFI.Generated.AriaNotificationOptions + GHCJS.DOM.JSFFI.Generated.AssignedNodesOptions + GHCJS.DOM.JSFFI.Generated.Attr + GHCJS.DOM.JSFFI.Generated.AudioBuffer + GHCJS.DOM.JSFFI.Generated.AudioBufferOptions + GHCJS.DOM.JSFFI.Generated.AudioBufferSourceNode + GHCJS.DOM.JSFFI.Generated.AudioBufferSourceOptions + GHCJS.DOM.JSFFI.Generated.AudioConfiguration + GHCJS.DOM.JSFFI.Generated.AudioContext + GHCJS.DOM.JSFFI.Generated.AudioContextOptions + GHCJS.DOM.JSFFI.Generated.AudioData + GHCJS.DOM.JSFFI.Generated.AudioDataCopyToOptions + GHCJS.DOM.JSFFI.Generated.AudioDataInit + GHCJS.DOM.JSFFI.Generated.AudioDataOutputCallback + GHCJS.DOM.JSFFI.Generated.AudioDecoder + GHCJS.DOM.JSFFI.Generated.AudioDecoderConfig + GHCJS.DOM.JSFFI.Generated.AudioDecoderInit + GHCJS.DOM.JSFFI.Generated.AudioDecoderSupport + GHCJS.DOM.JSFFI.Generated.AudioDestinationNode + GHCJS.DOM.JSFFI.Generated.AudioEncoder + GHCJS.DOM.JSFFI.Generated.AudioEncoderConfig + GHCJS.DOM.JSFFI.Generated.AudioEncoderInit + GHCJS.DOM.JSFFI.Generated.AudioEncoderSupport + GHCJS.DOM.JSFFI.Generated.AudioListener + GHCJS.DOM.JSFFI.Generated.AudioNode + GHCJS.DOM.JSFFI.Generated.AudioNodeOptions + GHCJS.DOM.JSFFI.Generated.AudioParam + GHCJS.DOM.JSFFI.Generated.AudioParamMap + GHCJS.DOM.JSFFI.Generated.AudioProcessingEvent + GHCJS.DOM.JSFFI.Generated.AudioProcessingEventInit + GHCJS.DOM.JSFFI.Generated.AudioScheduledSourceNode + GHCJS.DOM.JSFFI.Generated.AudioSinkOptions + GHCJS.DOM.JSFFI.Generated.AudioTimestamp + GHCJS.DOM.JSFFI.Generated.AudioTrack + GHCJS.DOM.JSFFI.Generated.AudioTrackList + GHCJS.DOM.JSFFI.Generated.AudioWorklet + GHCJS.DOM.JSFFI.Generated.AudioWorkletGlobalScope + GHCJS.DOM.JSFFI.Generated.AudioWorkletNode + GHCJS.DOM.JSFFI.Generated.AudioWorkletNodeOptions + GHCJS.DOM.JSFFI.Generated.AudioWorkletProcessor + GHCJS.DOM.JSFFI.Generated.AudioWorkletProcessorConstructor + GHCJS.DOM.JSFFI.Generated.AuthenticationExtensionsClientInputs + GHCJS.DOM.JSFFI.Generated.AuthenticationExtensionsClientInputsJSON + GHCJS.DOM.JSFFI.Generated.AuthenticationExtensionsClientOutputs + GHCJS.DOM.JSFFI.Generated.AuthenticationExtensionsLargeBlobInputs + GHCJS.DOM.JSFFI.Generated.AuthenticationExtensionsLargeBlobInputsJSON + GHCJS.DOM.JSFFI.Generated.AuthenticationExtensionsLargeBlobOutputs + GHCJS.DOM.JSFFI.Generated.AuthenticationExtensionsPRFInputs + GHCJS.DOM.JSFFI.Generated.AuthenticationExtensionsPRFInputsJSON + GHCJS.DOM.JSFFI.Generated.AuthenticationExtensionsPRFOutputs + GHCJS.DOM.JSFFI.Generated.AuthenticationExtensionsPRFValues + GHCJS.DOM.JSFFI.Generated.AuthenticationExtensionsPRFValuesJSON + GHCJS.DOM.JSFFI.Generated.AuthenticationExtensionsPaymentInputs + GHCJS.DOM.JSFFI.Generated.AuthenticationExtensionsPaymentOutputs + GHCJS.DOM.JSFFI.Generated.AuthenticatorAssertionResponse + GHCJS.DOM.JSFFI.Generated.AuthenticatorAttestationResponse + GHCJS.DOM.JSFFI.Generated.AuthenticatorResponse + GHCJS.DOM.JSFFI.Generated.AuthenticatorSelectionCriteria + GHCJS.DOM.JSFFI.Generated.AutofillEvent + GHCJS.DOM.JSFFI.Generated.AvcEncoderConfig + GHCJS.DOM.JSFFI.Generated.BackgroundBlur + GHCJS.DOM.JSFFI.Generated.BarProp + GHCJS.DOM.JSFFI.Generated.BaseAudioContext + GHCJS.DOM.JSFFI.Generated.BeforeUnloadEvent + GHCJS.DOM.JSFFI.Generated.BiquadFilterNode + GHCJS.DOM.JSFFI.Generated.BiquadFilterOptions + GHCJS.DOM.JSFFI.Generated.Blob + GHCJS.DOM.JSFFI.Generated.BlobCallback + GHCJS.DOM.JSFFI.Generated.BlobEvent + GHCJS.DOM.JSFFI.Generated.BlobEventInit + GHCJS.DOM.JSFFI.Generated.BlobPropertyBag + GHCJS.DOM.JSFFI.Generated.Body + GHCJS.DOM.JSFFI.Generated.BroadcastChannel + GHCJS.DOM.JSFFI.Generated.BrowserBoundSignature + GHCJS.DOM.JSFFI.Generated.ByteLengthQueuingStrategy + GHCJS.DOM.JSFFI.Generated.CDATASection + GHCJS.DOM.JSFFI.Generated.CSS + GHCJS.DOM.JSFFI.Generated.CSSAnimation + GHCJS.DOM.JSFFI.Generated.CSSConditionRule + GHCJS.DOM.JSFFI.Generated.CSSContainerCondition + GHCJS.DOM.JSFFI.Generated.CSSContainerRule + GHCJS.DOM.JSFFI.Generated.CSSCounterStyleRule + GHCJS.DOM.JSFFI.Generated.CSSFontFaceDescriptors + GHCJS.DOM.JSFFI.Generated.CSSFontFaceRule + GHCJS.DOM.JSFFI.Generated.CSSFontFeatureValuesRule + GHCJS.DOM.JSFFI.Generated.CSSFontPaletteValuesRule + GHCJS.DOM.JSFFI.Generated.CSSGroupingRule + GHCJS.DOM.JSFFI.Generated.CSSImageValue + GHCJS.DOM.JSFFI.Generated.CSSImportRule + GHCJS.DOM.JSFFI.Generated.CSSKeyframeRule + GHCJS.DOM.JSFFI.Generated.CSSKeyframesRule + GHCJS.DOM.JSFFI.Generated.CSSKeywordValue + GHCJS.DOM.JSFFI.Generated.CSSLayerBlockRule + GHCJS.DOM.JSFFI.Generated.CSSLayerStatementRule + GHCJS.DOM.JSFFI.Generated.CSSMathClamp + GHCJS.DOM.JSFFI.Generated.CSSMathInvert + GHCJS.DOM.JSFFI.Generated.CSSMathMax + GHCJS.DOM.JSFFI.Generated.CSSMathMin + GHCJS.DOM.JSFFI.Generated.CSSMathNegate + GHCJS.DOM.JSFFI.Generated.CSSMathProduct + GHCJS.DOM.JSFFI.Generated.CSSMathSum + GHCJS.DOM.JSFFI.Generated.CSSMathValue + GHCJS.DOM.JSFFI.Generated.CSSMatrixComponent + GHCJS.DOM.JSFFI.Generated.CSSMatrixComponentOptions + GHCJS.DOM.JSFFI.Generated.CSSMediaRule + GHCJS.DOM.JSFFI.Generated.CSSNamespaceRule + GHCJS.DOM.JSFFI.Generated.CSSNestedDeclarations + GHCJS.DOM.JSFFI.Generated.CSSNumericArray + GHCJS.DOM.JSFFI.Generated.CSSNumericType + GHCJS.DOM.JSFFI.Generated.CSSNumericValue + GHCJS.DOM.JSFFI.Generated.CSSPageDescriptors + GHCJS.DOM.JSFFI.Generated.CSSPageRule + GHCJS.DOM.JSFFI.Generated.CSSPerspective + GHCJS.DOM.JSFFI.Generated.CSSPositionTryDescriptors + GHCJS.DOM.JSFFI.Generated.CSSPositionTryRule + GHCJS.DOM.JSFFI.Generated.CSSPropertyRule + GHCJS.DOM.JSFFI.Generated.CSSRotate + GHCJS.DOM.JSFFI.Generated.CSSRule + GHCJS.DOM.JSFFI.Generated.CSSRuleList + GHCJS.DOM.JSFFI.Generated.CSSScale + GHCJS.DOM.JSFFI.Generated.CSSScopeRule + GHCJS.DOM.JSFFI.Generated.CSSSkew + GHCJS.DOM.JSFFI.Generated.CSSSkewX + GHCJS.DOM.JSFFI.Generated.CSSSkewY + GHCJS.DOM.JSFFI.Generated.CSSStartingStyleRule + GHCJS.DOM.JSFFI.Generated.CSSStyleDeclaration + GHCJS.DOM.JSFFI.Generated.CSSStyleProperties + GHCJS.DOM.JSFFI.Generated.CSSStyleRule + GHCJS.DOM.JSFFI.Generated.CSSStyleSheet + GHCJS.DOM.JSFFI.Generated.CSSStyleSheetInit + GHCJS.DOM.JSFFI.Generated.CSSStyleValue + GHCJS.DOM.JSFFI.Generated.CSSSupportsRule + GHCJS.DOM.JSFFI.Generated.CSSTransformComponent + GHCJS.DOM.JSFFI.Generated.CSSTransformValue + GHCJS.DOM.JSFFI.Generated.CSSTransition + GHCJS.DOM.JSFFI.Generated.CSSTranslate + GHCJS.DOM.JSFFI.Generated.CSSUnitValue + GHCJS.DOM.JSFFI.Generated.CSSUnparsedValue + GHCJS.DOM.JSFFI.Generated.CSSVariableReferenceValue + GHCJS.DOM.JSFFI.Generated.CSSViewTransitionRule + GHCJS.DOM.JSFFI.Generated.Cache + GHCJS.DOM.JSFFI.Generated.CacheQueryOptions + GHCJS.DOM.JSFFI.Generated.CacheStorage + GHCJS.DOM.JSFFI.Generated.CanvasCaptureMediaStreamTrack + GHCJS.DOM.JSFFI.Generated.CanvasCompositing + GHCJS.DOM.JSFFI.Generated.CanvasDrawImage + GHCJS.DOM.JSFFI.Generated.CanvasDrawPath + GHCJS.DOM.JSFFI.Generated.CanvasFillStrokeStyles + GHCJS.DOM.JSFFI.Generated.CanvasFilters + GHCJS.DOM.JSFFI.Generated.CanvasGradient + GHCJS.DOM.JSFFI.Generated.CanvasImageData + GHCJS.DOM.JSFFI.Generated.CanvasImageSmoothing + GHCJS.DOM.JSFFI.Generated.CanvasPath + GHCJS.DOM.JSFFI.Generated.CanvasPathDrawingStyles + GHCJS.DOM.JSFFI.Generated.CanvasPattern + GHCJS.DOM.JSFFI.Generated.CanvasRect + GHCJS.DOM.JSFFI.Generated.CanvasRenderingContext2D + GHCJS.DOM.JSFFI.Generated.CanvasRenderingContext2DSettings + GHCJS.DOM.JSFFI.Generated.CanvasSettings + GHCJS.DOM.JSFFI.Generated.CanvasShadowStyles + GHCJS.DOM.JSFFI.Generated.CanvasState + GHCJS.DOM.JSFFI.Generated.CanvasText + GHCJS.DOM.JSFFI.Generated.CanvasTextDrawingStyles + GHCJS.DOM.JSFFI.Generated.CanvasTransform + GHCJS.DOM.JSFFI.Generated.CanvasUserInterface + GHCJS.DOM.JSFFI.Generated.CaptureController + GHCJS.DOM.JSFFI.Generated.CaretPosition + GHCJS.DOM.JSFFI.Generated.CaretPositionFromPointOptions + GHCJS.DOM.JSFFI.Generated.ChannelMergerNode + GHCJS.DOM.JSFFI.Generated.ChannelMergerOptions + GHCJS.DOM.JSFFI.Generated.ChannelSplitterNode + GHCJS.DOM.JSFFI.Generated.ChannelSplitterOptions + GHCJS.DOM.JSFFI.Generated.ChapterInformationInit + GHCJS.DOM.JSFFI.Generated.CharacterData + GHCJS.DOM.JSFFI.Generated.CheckVisibilityOptions + GHCJS.DOM.JSFFI.Generated.ChildNode + GHCJS.DOM.JSFFI.Generated.Client + GHCJS.DOM.JSFFI.Generated.ClientQueryOptions + GHCJS.DOM.JSFFI.Generated.Clients + GHCJS.DOM.JSFFI.Generated.Clipboard + GHCJS.DOM.JSFFI.Generated.ClipboardChangeEvent + GHCJS.DOM.JSFFI.Generated.ClipboardEvent + GHCJS.DOM.JSFFI.Generated.ClipboardEventInit + GHCJS.DOM.JSFFI.Generated.ClipboardItem + GHCJS.DOM.JSFFI.Generated.ClipboardItemOptions + GHCJS.DOM.JSFFI.Generated.ClipboardUnsanitizedFormats + GHCJS.DOM.JSFFI.Generated.CloseEvent + GHCJS.DOM.JSFFI.Generated.CloseEventInit + GHCJS.DOM.JSFFI.Generated.CloseWatcher + GHCJS.DOM.JSFFI.Generated.CloseWatcherOptions + GHCJS.DOM.JSFFI.Generated.CommandEvent + GHCJS.DOM.JSFFI.Generated.CommandEventInit + GHCJS.DOM.JSFFI.Generated.Comment + GHCJS.DOM.JSFFI.Generated.CompositionEvent + GHCJS.DOM.JSFFI.Generated.CompositionEventInit + GHCJS.DOM.JSFFI.Generated.CompressionStream + GHCJS.DOM.JSFFI.Generated.ComputedEffectTiming + GHCJS.DOM.JSFFI.Generated.Console + GHCJS.DOM.JSFFI.Generated.ConstantSourceNode + GHCJS.DOM.JSFFI.Generated.ConstantSourceOptions + GHCJS.DOM.JSFFI.Generated.ConstrainBooleanOrDOMStringParameters + GHCJS.DOM.JSFFI.Generated.ConstrainBooleanParameters + GHCJS.DOM.JSFFI.Generated.ConstrainDOMStringParameters + GHCJS.DOM.JSFFI.Generated.ConstrainDoubleRange + GHCJS.DOM.JSFFI.Generated.ConstrainPoint2DParameters + GHCJS.DOM.JSFFI.Generated.ConstrainULongRange + GHCJS.DOM.JSFFI.Generated.ContactAddress + GHCJS.DOM.JSFFI.Generated.ContentVisibilityAutoStateChangeEvent + GHCJS.DOM.JSFFI.Generated.ContentVisibilityAutoStateChangeEventInit + GHCJS.DOM.JSFFI.Generated.ConvolverNode + GHCJS.DOM.JSFFI.Generated.ConvolverOptions + GHCJS.DOM.JSFFI.Generated.CookieChangeEvent + GHCJS.DOM.JSFFI.Generated.CookieChangeEventInit + GHCJS.DOM.JSFFI.Generated.CookieInit + GHCJS.DOM.JSFFI.Generated.CookieListItem + GHCJS.DOM.JSFFI.Generated.CookieStore + GHCJS.DOM.JSFFI.Generated.CookieStoreDeleteOptions + GHCJS.DOM.JSFFI.Generated.CookieStoreGetOptions + GHCJS.DOM.JSFFI.Generated.CookieStoreManager + GHCJS.DOM.JSFFI.Generated.CountQueuingStrategy + GHCJS.DOM.JSFFI.Generated.CreateHTMLCallback + GHCJS.DOM.JSFFI.Generated.CreateParserOptionsCallback + GHCJS.DOM.JSFFI.Generated.CreateScriptCallback + GHCJS.DOM.JSFFI.Generated.CreateScriptURLCallback + GHCJS.DOM.JSFFI.Generated.Credential + GHCJS.DOM.JSFFI.Generated.CredentialCreationOptions + GHCJS.DOM.JSFFI.Generated.CredentialData + GHCJS.DOM.JSFFI.Generated.CredentialPropertiesOutput + GHCJS.DOM.JSFFI.Generated.CredentialRequestOptions + GHCJS.DOM.JSFFI.Generated.CredentialsContainer + GHCJS.DOM.JSFFI.Generated.Crypto + GHCJS.DOM.JSFFI.Generated.CryptoKey + GHCJS.DOM.JSFFI.Generated.CryptoKeyPair + GHCJS.DOM.JSFFI.Generated.CurrentUserDetailsOptions + GHCJS.DOM.JSFFI.Generated.CustomElementConstructor + GHCJS.DOM.JSFFI.Generated.CustomElementRegistry + GHCJS.DOM.JSFFI.Generated.CustomEvent + GHCJS.DOM.JSFFI.Generated.CustomEventInit + GHCJS.DOM.JSFFI.Generated.CustomStateSet + GHCJS.DOM.JSFFI.Generated.DOMException + GHCJS.DOM.JSFFI.Generated.DOMImplementation + GHCJS.DOM.JSFFI.Generated.DOMMatrix + GHCJS.DOM.JSFFI.Generated.DOMMatrix2DInit + GHCJS.DOM.JSFFI.Generated.DOMMatrixInit + GHCJS.DOM.JSFFI.Generated.DOMMatrixReadOnly + GHCJS.DOM.JSFFI.Generated.DOMParser + GHCJS.DOM.JSFFI.Generated.DOMPoint + GHCJS.DOM.JSFFI.Generated.DOMPointInit + GHCJS.DOM.JSFFI.Generated.DOMPointReadOnly + GHCJS.DOM.JSFFI.Generated.DOMQuad + GHCJS.DOM.JSFFI.Generated.DOMQuadInit + GHCJS.DOM.JSFFI.Generated.DOMRect + GHCJS.DOM.JSFFI.Generated.DOMRectInit + GHCJS.DOM.JSFFI.Generated.DOMRectList + GHCJS.DOM.JSFFI.Generated.DOMRectReadOnly + GHCJS.DOM.JSFFI.Generated.DOMStringList + GHCJS.DOM.JSFFI.Generated.DOMStringMap + GHCJS.DOM.JSFFI.Generated.DOMTokenList + GHCJS.DOM.JSFFI.Generated.DataCue + GHCJS.DOM.JSFFI.Generated.DataTransfer + GHCJS.DOM.JSFFI.Generated.DataTransferItem + GHCJS.DOM.JSFFI.Generated.DataTransferItemList + GHCJS.DOM.JSFFI.Generated.DecodeErrorCallback + GHCJS.DOM.JSFFI.Generated.DecodeSuccessCallback + GHCJS.DOM.JSFFI.Generated.DecompressionStream + GHCJS.DOM.JSFFI.Generated.DedicatedWorkerGlobalScope + GHCJS.DOM.JSFFI.Generated.DelayNode + GHCJS.DOM.JSFFI.Generated.DelayOptions + GHCJS.DOM.JSFFI.Generated.DeviceChangeEvent + GHCJS.DOM.JSFFI.Generated.DeviceMotionEvent + GHCJS.DOM.JSFFI.Generated.DeviceMotionEventAcceleration + GHCJS.DOM.JSFFI.Generated.DeviceMotionEventAccelerationInit + GHCJS.DOM.JSFFI.Generated.DeviceMotionEventInit + GHCJS.DOM.JSFFI.Generated.DeviceMotionEventRotationRate + GHCJS.DOM.JSFFI.Generated.DeviceMotionEventRotationRateInit + GHCJS.DOM.JSFFI.Generated.DeviceOrientationEvent + GHCJS.DOM.JSFFI.Generated.DeviceOrientationEventInit + GHCJS.DOM.JSFFI.Generated.DigitalCredential + GHCJS.DOM.JSFFI.Generated.DigitalCredentialCreateRequest + GHCJS.DOM.JSFFI.Generated.DigitalCredentialCreationOptions + GHCJS.DOM.JSFFI.Generated.DigitalCredentialGetRequest + GHCJS.DOM.JSFFI.Generated.DigitalCredentialRequestOptions + GHCJS.DOM.JSFFI.Generated.DisplayMediaStreamOptions + GHCJS.DOM.JSFFI.Generated.Document + GHCJS.DOM.JSFFI.Generated.DocumentFragment + GHCJS.DOM.JSFFI.Generated.DocumentOrShadowRoot + GHCJS.DOM.JSFFI.Generated.DocumentPictureInPicture + GHCJS.DOM.JSFFI.Generated.DocumentPictureInPictureEvent + GHCJS.DOM.JSFFI.Generated.DocumentPictureInPictureEventInit + GHCJS.DOM.JSFFI.Generated.DocumentPictureInPictureOptions + GHCJS.DOM.JSFFI.Generated.DocumentTimeline + GHCJS.DOM.JSFFI.Generated.DocumentTimelineOptions + GHCJS.DOM.JSFFI.Generated.DocumentType + GHCJS.DOM.JSFFI.Generated.DoubleRange + GHCJS.DOM.JSFFI.Generated.DragEvent + GHCJS.DOM.JSFFI.Generated.DragEventInit + GHCJS.DOM.JSFFI.Generated.DynamicsCompressorNode + GHCJS.DOM.JSFFI.Generated.DynamicsCompressorOptions + GHCJS.DOM.JSFFI.Generated.EXT_blend_minmax + GHCJS.DOM.JSFFI.Generated.EXT_clip_control + GHCJS.DOM.JSFFI.Generated.EXT_color_buffer_float + GHCJS.DOM.JSFFI.Generated.EXT_color_buffer_half_float + GHCJS.DOM.JSFFI.Generated.EXT_float_blend + GHCJS.DOM.JSFFI.Generated.EXT_frag_depth + GHCJS.DOM.JSFFI.Generated.EXT_polygon_offset_clamp + GHCJS.DOM.JSFFI.Generated.EXT_sRGB + GHCJS.DOM.JSFFI.Generated.EXT_shader_texture_lod + GHCJS.DOM.JSFFI.Generated.EXT_texture_compression_bptc + GHCJS.DOM.JSFFI.Generated.EXT_texture_compression_rgtc + GHCJS.DOM.JSFFI.Generated.EXT_texture_filter_anisotropic + GHCJS.DOM.JSFFI.Generated.EXT_texture_mirror_clamp_to_edge + GHCJS.DOM.JSFFI.Generated.EXT_texture_norm16 + GHCJS.DOM.JSFFI.Generated.EffectTiming + GHCJS.DOM.JSFFI.Generated.Element + GHCJS.DOM.JSFFI.Generated.ElementCSSInlineStyle + GHCJS.DOM.JSFFI.Generated.ElementContentEditable + GHCJS.DOM.JSFFI.Generated.ElementCreationOptions + GHCJS.DOM.JSFFI.Generated.ElementDefinitionOptions + GHCJS.DOM.JSFFI.Generated.ElementInternals + GHCJS.DOM.JSFFI.Generated.EncodedAudioChunk + GHCJS.DOM.JSFFI.Generated.EncodedAudioChunkInit + GHCJS.DOM.JSFFI.Generated.EncodedAudioChunkMetadata + GHCJS.DOM.JSFFI.Generated.EncodedAudioChunkOutputCallback + GHCJS.DOM.JSFFI.Generated.EncodedVideoChunk + GHCJS.DOM.JSFFI.Generated.EncodedVideoChunkInit + GHCJS.DOM.JSFFI.Generated.EncodedVideoChunkMetadata + GHCJS.DOM.JSFFI.Generated.EncodedVideoChunkOutputCallback + GHCJS.DOM.JSFFI.Generated.Enums + GHCJS.DOM.JSFFI.Generated.ErrorCallback + GHCJS.DOM.JSFFI.Generated.ErrorEvent + GHCJS.DOM.JSFFI.Generated.ErrorEventInit + GHCJS.DOM.JSFFI.Generated.Event + GHCJS.DOM.JSFFI.Generated.EventCounts + GHCJS.DOM.JSFFI.Generated.EventInit + GHCJS.DOM.JSFFI.Generated.EventListenerOptions + GHCJS.DOM.JSFFI.Generated.EventModifierInit + GHCJS.DOM.JSFFI.Generated.EventSource + GHCJS.DOM.JSFFI.Generated.EventSourceInit + GHCJS.DOM.JSFFI.Generated.EventTarget + GHCJS.DOM.JSFFI.Generated.ExtendableCookieChangeEvent + GHCJS.DOM.JSFFI.Generated.ExtendableCookieChangeEventInit + GHCJS.DOM.JSFFI.Generated.ExtendableEvent + GHCJS.DOM.JSFFI.Generated.ExtendableEventInit + GHCJS.DOM.JSFFI.Generated.ExtendableMessageEvent + GHCJS.DOM.JSFFI.Generated.ExtendableMessageEventInit + GHCJS.DOM.JSFFI.Generated.External + GHCJS.DOM.JSFFI.Generated.FederatedCredentialInit + GHCJS.DOM.JSFFI.Generated.FederatedCredentialRequestOptions + GHCJS.DOM.JSFFI.Generated.FetchEvent + GHCJS.DOM.JSFFI.Generated.FetchEventInit + GHCJS.DOM.JSFFI.Generated.File + GHCJS.DOM.JSFFI.Generated.FileCallback + GHCJS.DOM.JSFFI.Generated.FileList + GHCJS.DOM.JSFFI.Generated.FilePropertyBag + GHCJS.DOM.JSFFI.Generated.FileReader + GHCJS.DOM.JSFFI.Generated.FileReaderSync + GHCJS.DOM.JSFFI.Generated.FileSystem + GHCJS.DOM.JSFFI.Generated.FileSystemCreateWritableOptions + GHCJS.DOM.JSFFI.Generated.FileSystemDirectoryEntry + GHCJS.DOM.JSFFI.Generated.FileSystemDirectoryHandle + GHCJS.DOM.JSFFI.Generated.FileSystemDirectoryReader + GHCJS.DOM.JSFFI.Generated.FileSystemEntriesCallback + GHCJS.DOM.JSFFI.Generated.FileSystemEntry + GHCJS.DOM.JSFFI.Generated.FileSystemEntryCallback + GHCJS.DOM.JSFFI.Generated.FileSystemFileEntry + GHCJS.DOM.JSFFI.Generated.FileSystemFileHandle + GHCJS.DOM.JSFFI.Generated.FileSystemFlags + GHCJS.DOM.JSFFI.Generated.FileSystemGetDirectoryOptions + GHCJS.DOM.JSFFI.Generated.FileSystemGetFileOptions + GHCJS.DOM.JSFFI.Generated.FileSystemHandle + GHCJS.DOM.JSFFI.Generated.FileSystemReadWriteOptions + GHCJS.DOM.JSFFI.Generated.FileSystemRemoveOptions + GHCJS.DOM.JSFFI.Generated.FileSystemSyncAccessHandle + GHCJS.DOM.JSFFI.Generated.FileSystemWritableFileStream + GHCJS.DOM.JSFFI.Generated.FlacEncoderConfig + GHCJS.DOM.JSFFI.Generated.FocusEvent + GHCJS.DOM.JSFFI.Generated.FocusEventInit + GHCJS.DOM.JSFFI.Generated.FocusOptions + GHCJS.DOM.JSFFI.Generated.FontFace + GHCJS.DOM.JSFFI.Generated.FontFaceDescriptors + GHCJS.DOM.JSFFI.Generated.FontFaceSet + GHCJS.DOM.JSFFI.Generated.FontFaceSetLoadEvent + GHCJS.DOM.JSFFI.Generated.FontFaceSetLoadEventInit + GHCJS.DOM.JSFFI.Generated.FontFaceSource + GHCJS.DOM.JSFFI.Generated.FormData + GHCJS.DOM.JSFFI.Generated.FormDataEvent + GHCJS.DOM.JSFFI.Generated.FormDataEventInit + GHCJS.DOM.JSFFI.Generated.FragmentDirective + GHCJS.DOM.JSFFI.Generated.FrameRequestCallback + GHCJS.DOM.JSFFI.Generated.FullscreenOptions + GHCJS.DOM.JSFFI.Generated.FunctionStringCallback + GHCJS.DOM.JSFFI.Generated.GPU + GHCJS.DOM.JSFFI.Generated.GPUAdapter + GHCJS.DOM.JSFFI.Generated.GPUAdapterInfo + GHCJS.DOM.JSFFI.Generated.GPUBindGroup + GHCJS.DOM.JSFFI.Generated.GPUBindGroupDescriptor + GHCJS.DOM.JSFFI.Generated.GPUBindGroupEntry + GHCJS.DOM.JSFFI.Generated.GPUBindGroupLayout + GHCJS.DOM.JSFFI.Generated.GPUBindGroupLayoutDescriptor + GHCJS.DOM.JSFFI.Generated.GPUBindGroupLayoutEntry + GHCJS.DOM.JSFFI.Generated.GPUBindingCommandsMixin + GHCJS.DOM.JSFFI.Generated.GPUBlendComponent + GHCJS.DOM.JSFFI.Generated.GPUBlendState + GHCJS.DOM.JSFFI.Generated.GPUBuffer + GHCJS.DOM.JSFFI.Generated.GPUBufferBinding + GHCJS.DOM.JSFFI.Generated.GPUBufferBindingLayout + GHCJS.DOM.JSFFI.Generated.GPUBufferDescriptor + GHCJS.DOM.JSFFI.Generated.GPUCanvasConfiguration + GHCJS.DOM.JSFFI.Generated.GPUCanvasContext + GHCJS.DOM.JSFFI.Generated.GPUCanvasToneMapping + GHCJS.DOM.JSFFI.Generated.GPUColorDict + GHCJS.DOM.JSFFI.Generated.GPUColorTargetState + GHCJS.DOM.JSFFI.Generated.GPUCommandBuffer + GHCJS.DOM.JSFFI.Generated.GPUCommandBufferDescriptor + GHCJS.DOM.JSFFI.Generated.GPUCommandEncoder + GHCJS.DOM.JSFFI.Generated.GPUCommandEncoderDescriptor + GHCJS.DOM.JSFFI.Generated.GPUCompilationInfo + GHCJS.DOM.JSFFI.Generated.GPUCompilationMessage + GHCJS.DOM.JSFFI.Generated.GPUComputePassDescriptor + GHCJS.DOM.JSFFI.Generated.GPUComputePassEncoder + GHCJS.DOM.JSFFI.Generated.GPUComputePassTimestampWrites + GHCJS.DOM.JSFFI.Generated.GPUComputePipeline + GHCJS.DOM.JSFFI.Generated.GPUComputePipelineDescriptor + GHCJS.DOM.JSFFI.Generated.GPUCopyExternalImageDestInfo + GHCJS.DOM.JSFFI.Generated.GPUCopyExternalImageSourceInfo + GHCJS.DOM.JSFFI.Generated.GPUDebugCommandsMixin + GHCJS.DOM.JSFFI.Generated.GPUDepthStencilState + GHCJS.DOM.JSFFI.Generated.GPUDevice + GHCJS.DOM.JSFFI.Generated.GPUDeviceDescriptor + GHCJS.DOM.JSFFI.Generated.GPUDeviceLostInfo + GHCJS.DOM.JSFFI.Generated.GPUError + GHCJS.DOM.JSFFI.Generated.GPUExtent3DDict + GHCJS.DOM.JSFFI.Generated.GPUExternalTexture + GHCJS.DOM.JSFFI.Generated.GPUExternalTextureBindingLayout + GHCJS.DOM.JSFFI.Generated.GPUExternalTextureDescriptor + GHCJS.DOM.JSFFI.Generated.GPUFragmentState + GHCJS.DOM.JSFFI.Generated.GPUInternalError + GHCJS.DOM.JSFFI.Generated.GPUMultisampleState + GHCJS.DOM.JSFFI.Generated.GPUObjectBase + GHCJS.DOM.JSFFI.Generated.GPUObjectDescriptorBase + GHCJS.DOM.JSFFI.Generated.GPUOrigin2DDict + GHCJS.DOM.JSFFI.Generated.GPUOrigin3DDict + GHCJS.DOM.JSFFI.Generated.GPUOutOfMemoryError + GHCJS.DOM.JSFFI.Generated.GPUPipelineBase + GHCJS.DOM.JSFFI.Generated.GPUPipelineDescriptorBase + GHCJS.DOM.JSFFI.Generated.GPUPipelineError + GHCJS.DOM.JSFFI.Generated.GPUPipelineErrorInit + GHCJS.DOM.JSFFI.Generated.GPUPipelineLayout + GHCJS.DOM.JSFFI.Generated.GPUPipelineLayoutDescriptor + GHCJS.DOM.JSFFI.Generated.GPUPrimitiveState + GHCJS.DOM.JSFFI.Generated.GPUProgrammableStage + GHCJS.DOM.JSFFI.Generated.GPUQuerySet + GHCJS.DOM.JSFFI.Generated.GPUQuerySetDescriptor + GHCJS.DOM.JSFFI.Generated.GPUQueue + GHCJS.DOM.JSFFI.Generated.GPUQueueDescriptor + GHCJS.DOM.JSFFI.Generated.GPURenderBundle + GHCJS.DOM.JSFFI.Generated.GPURenderBundleDescriptor + GHCJS.DOM.JSFFI.Generated.GPURenderBundleEncoder + GHCJS.DOM.JSFFI.Generated.GPURenderBundleEncoderDescriptor + GHCJS.DOM.JSFFI.Generated.GPURenderCommandsMixin + GHCJS.DOM.JSFFI.Generated.GPURenderPassColorAttachment + GHCJS.DOM.JSFFI.Generated.GPURenderPassDepthStencilAttachment + GHCJS.DOM.JSFFI.Generated.GPURenderPassDescriptor + GHCJS.DOM.JSFFI.Generated.GPURenderPassEncoder + GHCJS.DOM.JSFFI.Generated.GPURenderPassLayout + GHCJS.DOM.JSFFI.Generated.GPURenderPassTimestampWrites + GHCJS.DOM.JSFFI.Generated.GPURenderPipeline + GHCJS.DOM.JSFFI.Generated.GPURenderPipelineDescriptor + GHCJS.DOM.JSFFI.Generated.GPURequestAdapterOptions + GHCJS.DOM.JSFFI.Generated.GPUSampler + GHCJS.DOM.JSFFI.Generated.GPUSamplerBindingLayout + GHCJS.DOM.JSFFI.Generated.GPUSamplerDescriptor + GHCJS.DOM.JSFFI.Generated.GPUShaderModule + GHCJS.DOM.JSFFI.Generated.GPUShaderModuleCompilationHint + GHCJS.DOM.JSFFI.Generated.GPUShaderModuleDescriptor + GHCJS.DOM.JSFFI.Generated.GPUStencilFaceState + GHCJS.DOM.JSFFI.Generated.GPUStorageTextureBindingLayout + GHCJS.DOM.JSFFI.Generated.GPUSupportedFeatures + GHCJS.DOM.JSFFI.Generated.GPUSupportedLimits + GHCJS.DOM.JSFFI.Generated.GPUTexelCopyBufferInfo + GHCJS.DOM.JSFFI.Generated.GPUTexelCopyBufferLayout + GHCJS.DOM.JSFFI.Generated.GPUTexelCopyTextureInfo + GHCJS.DOM.JSFFI.Generated.GPUTexture + GHCJS.DOM.JSFFI.Generated.GPUTextureBindingLayout + GHCJS.DOM.JSFFI.Generated.GPUTextureDescriptor + GHCJS.DOM.JSFFI.Generated.GPUTextureView + GHCJS.DOM.JSFFI.Generated.GPUTextureViewDescriptor + GHCJS.DOM.JSFFI.Generated.GPUUncapturedErrorEvent + GHCJS.DOM.JSFFI.Generated.GPUUncapturedErrorEventInit + GHCJS.DOM.JSFFI.Generated.GPUValidationError + GHCJS.DOM.JSFFI.Generated.GPUVertexAttribute + GHCJS.DOM.JSFFI.Generated.GPUVertexBufferLayout + GHCJS.DOM.JSFFI.Generated.GPUVertexState + GHCJS.DOM.JSFFI.Generated.GainNode + GHCJS.DOM.JSFFI.Generated.GainOptions + GHCJS.DOM.JSFFI.Generated.Gamepad + GHCJS.DOM.JSFFI.Generated.GamepadButton + GHCJS.DOM.JSFFI.Generated.GamepadEffectParameters + GHCJS.DOM.JSFFI.Generated.GamepadEvent + GHCJS.DOM.JSFFI.Generated.GamepadEventInit + GHCJS.DOM.JSFFI.Generated.GamepadHapticActuator + GHCJS.DOM.JSFFI.Generated.GenericTransformStream + GHCJS.DOM.JSFFI.Generated.Geolocation + GHCJS.DOM.JSFFI.Generated.GeolocationCoordinates + GHCJS.DOM.JSFFI.Generated.GeolocationPosition + GHCJS.DOM.JSFFI.Generated.GeolocationPositionError + GHCJS.DOM.JSFFI.Generated.GetAnimationsOptions + GHCJS.DOM.JSFFI.Generated.GetComposedRangesOptions + GHCJS.DOM.JSFFI.Generated.GetHTMLOptions + GHCJS.DOM.JSFFI.Generated.GetNotificationOptions + GHCJS.DOM.JSFFI.Generated.GetRootNodeOptions + GHCJS.DOM.JSFFI.Generated.GlobalEventHandlers + GHCJS.DOM.JSFFI.Generated.HMACGetSecretInput + GHCJS.DOM.JSFFI.Generated.HMACGetSecretOutput + GHCJS.DOM.JSFFI.Generated.HTMLAllCollection + GHCJS.DOM.JSFFI.Generated.HTMLAnchorElement + GHCJS.DOM.JSFFI.Generated.HTMLAreaElement + GHCJS.DOM.JSFFI.Generated.HTMLAudioElement + GHCJS.DOM.JSFFI.Generated.HTMLBRElement + GHCJS.DOM.JSFFI.Generated.HTMLBaseElement + GHCJS.DOM.JSFFI.Generated.HTMLBodyElement + GHCJS.DOM.JSFFI.Generated.HTMLButtonElement + GHCJS.DOM.JSFFI.Generated.HTMLCanvasElement + GHCJS.DOM.JSFFI.Generated.HTMLCollection + GHCJS.DOM.JSFFI.Generated.HTMLDListElement + GHCJS.DOM.JSFFI.Generated.HTMLDataElement + GHCJS.DOM.JSFFI.Generated.HTMLDataListElement + GHCJS.DOM.JSFFI.Generated.HTMLDetailsElement + GHCJS.DOM.JSFFI.Generated.HTMLDialogElement + GHCJS.DOM.JSFFI.Generated.HTMLDirectoryElement + GHCJS.DOM.JSFFI.Generated.HTMLDivElement + GHCJS.DOM.JSFFI.Generated.HTMLElement + GHCJS.DOM.JSFFI.Generated.HTMLEmbedElement + GHCJS.DOM.JSFFI.Generated.HTMLFieldSetElement + GHCJS.DOM.JSFFI.Generated.HTMLFontElement + GHCJS.DOM.JSFFI.Generated.HTMLFormControlsCollection + GHCJS.DOM.JSFFI.Generated.HTMLFormElement + GHCJS.DOM.JSFFI.Generated.HTMLFrameElement + GHCJS.DOM.JSFFI.Generated.HTMLFrameSetElement + GHCJS.DOM.JSFFI.Generated.HTMLHRElement + GHCJS.DOM.JSFFI.Generated.HTMLHeadElement + GHCJS.DOM.JSFFI.Generated.HTMLHeadingElement + GHCJS.DOM.JSFFI.Generated.HTMLHtmlElement + GHCJS.DOM.JSFFI.Generated.HTMLHyperlinkElementUtils + GHCJS.DOM.JSFFI.Generated.HTMLIFrameElement + GHCJS.DOM.JSFFI.Generated.HTMLImageElement + GHCJS.DOM.JSFFI.Generated.HTMLInputElement + GHCJS.DOM.JSFFI.Generated.HTMLLIElement + GHCJS.DOM.JSFFI.Generated.HTMLLabelElement + GHCJS.DOM.JSFFI.Generated.HTMLLegendElement + GHCJS.DOM.JSFFI.Generated.HTMLLinkElement + GHCJS.DOM.JSFFI.Generated.HTMLMapElement + GHCJS.DOM.JSFFI.Generated.HTMLMarqueeElement + GHCJS.DOM.JSFFI.Generated.HTMLMediaElement + GHCJS.DOM.JSFFI.Generated.HTMLMenuElement + GHCJS.DOM.JSFFI.Generated.HTMLMetaElement + GHCJS.DOM.JSFFI.Generated.HTMLMeterElement + GHCJS.DOM.JSFFI.Generated.HTMLModElement + GHCJS.DOM.JSFFI.Generated.HTMLOListElement + GHCJS.DOM.JSFFI.Generated.HTMLObjectElement + GHCJS.DOM.JSFFI.Generated.HTMLOptGroupElement + GHCJS.DOM.JSFFI.Generated.HTMLOptionElement + GHCJS.DOM.JSFFI.Generated.HTMLOptionsCollection + GHCJS.DOM.JSFFI.Generated.HTMLOrSVGOrMathMLElement + GHCJS.DOM.JSFFI.Generated.HTMLOutputElement + GHCJS.DOM.JSFFI.Generated.HTMLParagraphElement + GHCJS.DOM.JSFFI.Generated.HTMLParamElement + GHCJS.DOM.JSFFI.Generated.HTMLPictureElement + GHCJS.DOM.JSFFI.Generated.HTMLPreElement + GHCJS.DOM.JSFFI.Generated.HTMLProgressElement + GHCJS.DOM.JSFFI.Generated.HTMLQuoteElement + GHCJS.DOM.JSFFI.Generated.HTMLScriptElement + GHCJS.DOM.JSFFI.Generated.HTMLSelectElement + GHCJS.DOM.JSFFI.Generated.HTMLSelectedContentElement + GHCJS.DOM.JSFFI.Generated.HTMLSlotElement + GHCJS.DOM.JSFFI.Generated.HTMLSourceElement + GHCJS.DOM.JSFFI.Generated.HTMLSpanElement + GHCJS.DOM.JSFFI.Generated.HTMLStyleElement + GHCJS.DOM.JSFFI.Generated.HTMLTableCaptionElement + GHCJS.DOM.JSFFI.Generated.HTMLTableCellElement + GHCJS.DOM.JSFFI.Generated.HTMLTableColElement + GHCJS.DOM.JSFFI.Generated.HTMLTableElement + GHCJS.DOM.JSFFI.Generated.HTMLTableRowElement + GHCJS.DOM.JSFFI.Generated.HTMLTableSectionElement + GHCJS.DOM.JSFFI.Generated.HTMLTemplateElement + GHCJS.DOM.JSFFI.Generated.HTMLTextAreaElement + GHCJS.DOM.JSFFI.Generated.HTMLTimeElement + GHCJS.DOM.JSFFI.Generated.HTMLTitleElement + GHCJS.DOM.JSFFI.Generated.HTMLTrackElement + GHCJS.DOM.JSFFI.Generated.HTMLUListElement + GHCJS.DOM.JSFFI.Generated.HTMLUnknownElement + GHCJS.DOM.JSFFI.Generated.HTMLVideoElement + GHCJS.DOM.JSFFI.Generated.HashChangeEvent + GHCJS.DOM.JSFFI.Generated.HashChangeEventInit + GHCJS.DOM.JSFFI.Generated.Headers + GHCJS.DOM.JSFFI.Generated.HevcEncoderConfig + GHCJS.DOM.JSFFI.Generated.Highlight + GHCJS.DOM.JSFFI.Generated.HighlightHitResult + GHCJS.DOM.JSFFI.Generated.HighlightRegistry + GHCJS.DOM.JSFFI.Generated.HighlightsFromPointOptions + GHCJS.DOM.JSFFI.Generated.History + GHCJS.DOM.JSFFI.Generated.HyperlinkElementUtils + GHCJS.DOM.JSFFI.Generated.IDBCursor + GHCJS.DOM.JSFFI.Generated.IDBCursorWithValue + GHCJS.DOM.JSFFI.Generated.IDBDatabase + GHCJS.DOM.JSFFI.Generated.IDBDatabaseInfo + GHCJS.DOM.JSFFI.Generated.IDBFactory + GHCJS.DOM.JSFFI.Generated.IDBGetAllOptions + GHCJS.DOM.JSFFI.Generated.IDBIndex + GHCJS.DOM.JSFFI.Generated.IDBIndexParameters + GHCJS.DOM.JSFFI.Generated.IDBKeyRange + GHCJS.DOM.JSFFI.Generated.IDBObjectStore + GHCJS.DOM.JSFFI.Generated.IDBObjectStoreParameters + GHCJS.DOM.JSFFI.Generated.IDBOpenDBRequest + GHCJS.DOM.JSFFI.Generated.IDBRecord + GHCJS.DOM.JSFFI.Generated.IDBRequest + GHCJS.DOM.JSFFI.Generated.IDBTransaction + GHCJS.DOM.JSFFI.Generated.IDBTransactionOptions + GHCJS.DOM.JSFFI.Generated.IDBVersionChangeEvent + GHCJS.DOM.JSFFI.Generated.IDBVersionChangeEventInit + GHCJS.DOM.JSFFI.Generated.IIRFilterNode + GHCJS.DOM.JSFFI.Generated.IIRFilterOptions + GHCJS.DOM.JSFFI.Generated.IdentityCredentialRequestOptions + GHCJS.DOM.JSFFI.Generated.IdentityProviderConfig + GHCJS.DOM.JSFFI.Generated.IdentityProviderRequestOptions + GHCJS.DOM.JSFFI.Generated.IdleDeadline + GHCJS.DOM.JSFFI.Generated.IdleRequestCallback + GHCJS.DOM.JSFFI.Generated.IdleRequestOptions + GHCJS.DOM.JSFFI.Generated.ImageBitmap + GHCJS.DOM.JSFFI.Generated.ImageBitmapRenderingContext + GHCJS.DOM.JSFFI.Generated.ImageCapture + GHCJS.DOM.JSFFI.Generated.ImageData + GHCJS.DOM.JSFFI.Generated.ImageDataSettings + GHCJS.DOM.JSFFI.Generated.ImageDecodeOptions + GHCJS.DOM.JSFFI.Generated.ImageDecodeResult + GHCJS.DOM.JSFFI.Generated.ImageDecoder + GHCJS.DOM.JSFFI.Generated.ImageDecoderInit + GHCJS.DOM.JSFFI.Generated.ImageEncodeOptions + GHCJS.DOM.JSFFI.Generated.ImageTrack + GHCJS.DOM.JSFFI.Generated.ImageTrackList + GHCJS.DOM.JSFFI.Generated.ImportNodeOptions + GHCJS.DOM.JSFFI.Generated.InputDeviceCapabilities + GHCJS.DOM.JSFFI.Generated.InputDeviceInfo + GHCJS.DOM.JSFFI.Generated.InputEvent + GHCJS.DOM.JSFFI.Generated.InputEventInit + GHCJS.DOM.JSFFI.Generated.InstallEvent + GHCJS.DOM.JSFFI.Generated.IntersectionObserver + GHCJS.DOM.JSFFI.Generated.IntersectionObserverCallback + GHCJS.DOM.JSFFI.Generated.IntersectionObserverEntry + GHCJS.DOM.JSFFI.Generated.IntersectionObserverEntryInit + GHCJS.DOM.JSFFI.Generated.IntersectionObserverInit + GHCJS.DOM.JSFFI.Generated.JsonWebKey + GHCJS.DOM.JSFFI.Generated.KHR_parallel_shader_compile + GHCJS.DOM.JSFFI.Generated.KeySystemTrackConfiguration + GHCJS.DOM.JSFFI.Generated.KeyboardEvent + GHCJS.DOM.JSFFI.Generated.KeyboardEventInit + GHCJS.DOM.JSFFI.Generated.KeyframeAnimationOptions + GHCJS.DOM.JSFFI.Generated.KeyframeEffect + GHCJS.DOM.JSFFI.Generated.KeyframeEffectOptions + GHCJS.DOM.JSFFI.Generated.LargestContentfulPaint + GHCJS.DOM.JSFFI.Generated.LinkStyle + GHCJS.DOM.JSFFI.Generated.Location + GHCJS.DOM.JSFFI.Generated.Lock + GHCJS.DOM.JSFFI.Generated.LockGrantedCallback + GHCJS.DOM.JSFFI.Generated.LockInfo + GHCJS.DOM.JSFFI.Generated.LockManager + GHCJS.DOM.JSFFI.Generated.LockManagerSnapshot + GHCJS.DOM.JSFFI.Generated.LockOptions + GHCJS.DOM.JSFFI.Generated.MIDIAccess + GHCJS.DOM.JSFFI.Generated.MIDIConnectionEvent + GHCJS.DOM.JSFFI.Generated.MIDIConnectionEventInit + GHCJS.DOM.JSFFI.Generated.MIDIInput + GHCJS.DOM.JSFFI.Generated.MIDIInputMap + GHCJS.DOM.JSFFI.Generated.MIDIMessageEvent + GHCJS.DOM.JSFFI.Generated.MIDIMessageEventInit + GHCJS.DOM.JSFFI.Generated.MIDIOptions + GHCJS.DOM.JSFFI.Generated.MIDIOutput + GHCJS.DOM.JSFFI.Generated.MIDIOutputMap + GHCJS.DOM.JSFFI.Generated.MIDIPort + GHCJS.DOM.JSFFI.Generated.MathMLElement + GHCJS.DOM.JSFFI.Generated.MediaCapabilities + GHCJS.DOM.JSFFI.Generated.MediaCapabilitiesDecodingInfo + GHCJS.DOM.JSFFI.Generated.MediaCapabilitiesEncodingInfo + GHCJS.DOM.JSFFI.Generated.MediaCapabilitiesInfo + GHCJS.DOM.JSFFI.Generated.MediaCapabilitiesKeySystemConfiguration + GHCJS.DOM.JSFFI.Generated.MediaConfiguration + GHCJS.DOM.JSFFI.Generated.MediaDecodingConfiguration + GHCJS.DOM.JSFFI.Generated.MediaDeviceInfo + GHCJS.DOM.JSFFI.Generated.MediaDevices + GHCJS.DOM.JSFFI.Generated.MediaEffectInfo + GHCJS.DOM.JSFFI.Generated.MediaElementAudioSourceNode + GHCJS.DOM.JSFFI.Generated.MediaElementAudioSourceOptions + GHCJS.DOM.JSFFI.Generated.MediaEncodingConfiguration + GHCJS.DOM.JSFFI.Generated.MediaEncryptedEvent + GHCJS.DOM.JSFFI.Generated.MediaEncryptedEventInit + GHCJS.DOM.JSFFI.Generated.MediaError + GHCJS.DOM.JSFFI.Generated.MediaImage + GHCJS.DOM.JSFFI.Generated.MediaKeyMessageEvent + GHCJS.DOM.JSFFI.Generated.MediaKeyMessageEventInit + GHCJS.DOM.JSFFI.Generated.MediaKeySession + GHCJS.DOM.JSFFI.Generated.MediaKeyStatusMap + GHCJS.DOM.JSFFI.Generated.MediaKeySystemAccess + GHCJS.DOM.JSFFI.Generated.MediaKeySystemConfiguration + GHCJS.DOM.JSFFI.Generated.MediaKeySystemMediaCapability + GHCJS.DOM.JSFFI.Generated.MediaKeys + GHCJS.DOM.JSFFI.Generated.MediaKeysPolicy + GHCJS.DOM.JSFFI.Generated.MediaList + GHCJS.DOM.JSFFI.Generated.MediaMetadata + GHCJS.DOM.JSFFI.Generated.MediaMetadataInit + GHCJS.DOM.JSFFI.Generated.MediaPositionState + GHCJS.DOM.JSFFI.Generated.MediaQueryList + GHCJS.DOM.JSFFI.Generated.MediaQueryListEvent + GHCJS.DOM.JSFFI.Generated.MediaQueryListEventInit + GHCJS.DOM.JSFFI.Generated.MediaRecorder + GHCJS.DOM.JSFFI.Generated.MediaRecorderOptions + GHCJS.DOM.JSFFI.Generated.MediaSession + GHCJS.DOM.JSFFI.Generated.MediaSessionActionDetails + GHCJS.DOM.JSFFI.Generated.MediaSessionActionHandler + GHCJS.DOM.JSFFI.Generated.MediaSettingsRange + GHCJS.DOM.JSFFI.Generated.MediaSource + GHCJS.DOM.JSFFI.Generated.MediaSourceHandle + GHCJS.DOM.JSFFI.Generated.MediaStream + GHCJS.DOM.JSFFI.Generated.MediaStreamAudioDestinationNode + GHCJS.DOM.JSFFI.Generated.MediaStreamAudioSourceNode + GHCJS.DOM.JSFFI.Generated.MediaStreamAudioSourceOptions + GHCJS.DOM.JSFFI.Generated.MediaStreamConstraints + GHCJS.DOM.JSFFI.Generated.MediaStreamTrack + GHCJS.DOM.JSFFI.Generated.MediaStreamTrackEvent + GHCJS.DOM.JSFFI.Generated.MediaStreamTrackEventInit + GHCJS.DOM.JSFFI.Generated.MediaStreamTrackHandle + GHCJS.DOM.JSFFI.Generated.MediaStreamTrackProcessor + GHCJS.DOM.JSFFI.Generated.MediaStreamTrackProcessorInit + GHCJS.DOM.JSFFI.Generated.MediaTrackCapabilities + GHCJS.DOM.JSFFI.Generated.MediaTrackConstraintSet + GHCJS.DOM.JSFFI.Generated.MediaTrackConstraints + GHCJS.DOM.JSFFI.Generated.MediaTrackSettings + GHCJS.DOM.JSFFI.Generated.MediaTrackSupportedConstraints + GHCJS.DOM.JSFFI.Generated.MessageChannel + GHCJS.DOM.JSFFI.Generated.MessageEvent + GHCJS.DOM.JSFFI.Generated.MessageEventInit + GHCJS.DOM.JSFFI.Generated.MessageEventTarget + GHCJS.DOM.JSFFI.Generated.MessagePort + GHCJS.DOM.JSFFI.Generated.MimeType + GHCJS.DOM.JSFFI.Generated.MimeTypeArray + GHCJS.DOM.JSFFI.Generated.MouseEvent + GHCJS.DOM.JSFFI.Generated.MouseEventInit + GHCJS.DOM.JSFFI.Generated.MultiCacheQueryOptions + GHCJS.DOM.JSFFI.Generated.MutationCallback + GHCJS.DOM.JSFFI.Generated.MutationObserver + GHCJS.DOM.JSFFI.Generated.MutationObserverInit + GHCJS.DOM.JSFFI.Generated.MutationRecord + GHCJS.DOM.JSFFI.Generated.NamedNodeMap + GHCJS.DOM.JSFFI.Generated.NavigateEvent + GHCJS.DOM.JSFFI.Generated.NavigateEventInit + GHCJS.DOM.JSFFI.Generated.Navigation + GHCJS.DOM.JSFFI.Generated.NavigationActivation + GHCJS.DOM.JSFFI.Generated.NavigationCurrentEntryChangeEvent + GHCJS.DOM.JSFFI.Generated.NavigationCurrentEntryChangeEventInit + GHCJS.DOM.JSFFI.Generated.NavigationDestination + GHCJS.DOM.JSFFI.Generated.NavigationEvent + GHCJS.DOM.JSFFI.Generated.NavigationHistoryEntry + GHCJS.DOM.JSFFI.Generated.NavigationInterceptHandler + GHCJS.DOM.JSFFI.Generated.NavigationInterceptOptions + GHCJS.DOM.JSFFI.Generated.NavigationNavigateOptions + GHCJS.DOM.JSFFI.Generated.NavigationOptions + GHCJS.DOM.JSFFI.Generated.NavigationPrecommitController + GHCJS.DOM.JSFFI.Generated.NavigationPrecommitHandler + GHCJS.DOM.JSFFI.Generated.NavigationPreloadManager + GHCJS.DOM.JSFFI.Generated.NavigationPreloadState + GHCJS.DOM.JSFFI.Generated.NavigationReloadOptions + GHCJS.DOM.JSFFI.Generated.NavigationResult + GHCJS.DOM.JSFFI.Generated.NavigationTransition + GHCJS.DOM.JSFFI.Generated.NavigationUpdateCurrentEntryOptions + GHCJS.DOM.JSFFI.Generated.Navigator + GHCJS.DOM.JSFFI.Generated.NavigatorAutomationInformation + GHCJS.DOM.JSFFI.Generated.NavigatorBadge + GHCJS.DOM.JSFFI.Generated.NavigatorConcurrentHardware + GHCJS.DOM.JSFFI.Generated.NavigatorContentUtils + GHCJS.DOM.JSFFI.Generated.NavigatorCookies + GHCJS.DOM.JSFFI.Generated.NavigatorGPU + GHCJS.DOM.JSFFI.Generated.NavigatorID + GHCJS.DOM.JSFFI.Generated.NavigatorLanguage + GHCJS.DOM.JSFFI.Generated.NavigatorLocks + GHCJS.DOM.JSFFI.Generated.NavigatorLogin + GHCJS.DOM.JSFFI.Generated.NavigatorOnLine + GHCJS.DOM.JSFFI.Generated.NavigatorPlugins + GHCJS.DOM.JSFFI.Generated.NavigatorStorage + GHCJS.DOM.JSFFI.Generated.Node + GHCJS.DOM.JSFFI.Generated.NodeFilter + GHCJS.DOM.JSFFI.Generated.NodeIterator + GHCJS.DOM.JSFFI.Generated.NodeList + GHCJS.DOM.JSFFI.Generated.NonDocumentTypeChildNode + GHCJS.DOM.JSFFI.Generated.NonElementParentNode + GHCJS.DOM.JSFFI.Generated.Notification + GHCJS.DOM.JSFFI.Generated.NotificationAction + GHCJS.DOM.JSFFI.Generated.NotificationEvent + GHCJS.DOM.JSFFI.Generated.NotificationEventInit + GHCJS.DOM.JSFFI.Generated.NotificationOptions + GHCJS.DOM.JSFFI.Generated.NotificationPermissionCallback + GHCJS.DOM.JSFFI.Generated.OES_draw_buffers_indexed + GHCJS.DOM.JSFFI.Generated.OES_element_index_uint + GHCJS.DOM.JSFFI.Generated.OES_fbo_render_mipmap + GHCJS.DOM.JSFFI.Generated.OES_standard_derivatives + GHCJS.DOM.JSFFI.Generated.OES_texture_float + GHCJS.DOM.JSFFI.Generated.OES_texture_float_linear + GHCJS.DOM.JSFFI.Generated.OES_texture_half_float + GHCJS.DOM.JSFFI.Generated.OES_texture_half_float_linear + GHCJS.DOM.JSFFI.Generated.OES_vertex_array_object + GHCJS.DOM.JSFFI.Generated.OTPCredentialRequestOptions + GHCJS.DOM.JSFFI.Generated.OVR_multiview2 + GHCJS.DOM.JSFFI.Generated.OfflineAudioCompletionEvent + GHCJS.DOM.JSFFI.Generated.OfflineAudioCompletionEventInit + GHCJS.DOM.JSFFI.Generated.OfflineAudioContext + GHCJS.DOM.JSFFI.Generated.OfflineAudioContextOptions + GHCJS.DOM.JSFFI.Generated.OffscreenCanvas + GHCJS.DOM.JSFFI.Generated.OffscreenCanvasRenderingContext2D + GHCJS.DOM.JSFFI.Generated.OptionalEffectTiming + GHCJS.DOM.JSFFI.Generated.OpusEncoderConfig + GHCJS.DOM.JSFFI.Generated.Origin + GHCJS.DOM.JSFFI.Generated.OscillatorNode + GHCJS.DOM.JSFFI.Generated.OscillatorOptions + GHCJS.DOM.JSFFI.Generated.OverconstrainedError + GHCJS.DOM.JSFFI.Generated.PageRevealEvent + GHCJS.DOM.JSFFI.Generated.PageRevealEventInit + GHCJS.DOM.JSFFI.Generated.PageSwapEvent + GHCJS.DOM.JSFFI.Generated.PageSwapEventInit + GHCJS.DOM.JSFFI.Generated.PageTransitionEvent + GHCJS.DOM.JSFFI.Generated.PageTransitionEventInit + GHCJS.DOM.JSFFI.Generated.PaintTimingMixin + GHCJS.DOM.JSFFI.Generated.PannerNode + GHCJS.DOM.JSFFI.Generated.PannerOptions + GHCJS.DOM.JSFFI.Generated.ParentNode + GHCJS.DOM.JSFFI.Generated.ParseHTMLUnsafeOptions + GHCJS.DOM.JSFFI.Generated.PasswordCredential + GHCJS.DOM.JSFFI.Generated.PasswordCredentialData + GHCJS.DOM.JSFFI.Generated.Path2D + GHCJS.DOM.JSFFI.Generated.PayerErrors + GHCJS.DOM.JSFFI.Generated.PaymentCompleteDetails + GHCJS.DOM.JSFFI.Generated.PaymentCredentialInstrument + GHCJS.DOM.JSFFI.Generated.PaymentCurrencyAmount + GHCJS.DOM.JSFFI.Generated.PaymentDetailsBase + GHCJS.DOM.JSFFI.Generated.PaymentDetailsInit + GHCJS.DOM.JSFFI.Generated.PaymentDetailsModifier + GHCJS.DOM.JSFFI.Generated.PaymentDetailsUpdate + GHCJS.DOM.JSFFI.Generated.PaymentEntityLogo + GHCJS.DOM.JSFFI.Generated.PaymentItem + GHCJS.DOM.JSFFI.Generated.PaymentMethodChangeEvent + GHCJS.DOM.JSFFI.Generated.PaymentMethodChangeEventInit + GHCJS.DOM.JSFFI.Generated.PaymentMethodData + GHCJS.DOM.JSFFI.Generated.PaymentOptions + GHCJS.DOM.JSFFI.Generated.PaymentRequest + GHCJS.DOM.JSFFI.Generated.PaymentRequestUpdateEvent + GHCJS.DOM.JSFFI.Generated.PaymentRequestUpdateEventInit + GHCJS.DOM.JSFFI.Generated.PaymentResponse + GHCJS.DOM.JSFFI.Generated.PaymentShippingOption + GHCJS.DOM.JSFFI.Generated.PaymentValidationErrors + GHCJS.DOM.JSFFI.Generated.Performance + GHCJS.DOM.JSFFI.Generated.PerformanceEntry + GHCJS.DOM.JSFFI.Generated.PerformanceEventTiming + GHCJS.DOM.JSFFI.Generated.PerformanceMark + GHCJS.DOM.JSFFI.Generated.PerformanceMarkOptions + GHCJS.DOM.JSFFI.Generated.PerformanceMeasure + GHCJS.DOM.JSFFI.Generated.PerformanceMeasureOptions + GHCJS.DOM.JSFFI.Generated.PerformanceNavigation + GHCJS.DOM.JSFFI.Generated.PerformanceNavigationTiming + GHCJS.DOM.JSFFI.Generated.PerformanceObserver + GHCJS.DOM.JSFFI.Generated.PerformanceObserverCallback + GHCJS.DOM.JSFFI.Generated.PerformanceObserverCallbackOptions + GHCJS.DOM.JSFFI.Generated.PerformanceObserverEntryList + GHCJS.DOM.JSFFI.Generated.PerformanceObserverInit + GHCJS.DOM.JSFFI.Generated.PerformancePaintTiming + GHCJS.DOM.JSFFI.Generated.PerformanceResourceTiming + GHCJS.DOM.JSFFI.Generated.PerformanceServerTiming + GHCJS.DOM.JSFFI.Generated.PerformanceTiming + GHCJS.DOM.JSFFI.Generated.PeriodicWave + GHCJS.DOM.JSFFI.Generated.PeriodicWaveConstraints + GHCJS.DOM.JSFFI.Generated.PeriodicWaveOptions + GHCJS.DOM.JSFFI.Generated.PermissionStatus + GHCJS.DOM.JSFFI.Generated.Permissions + GHCJS.DOM.JSFFI.Generated.PhotoCapabilities + GHCJS.DOM.JSFFI.Generated.PhotoSettings + GHCJS.DOM.JSFFI.Generated.PictureInPictureEvent + GHCJS.DOM.JSFFI.Generated.PictureInPictureEventInit + GHCJS.DOM.JSFFI.Generated.PictureInPictureWindow + GHCJS.DOM.JSFFI.Generated.PlaneLayout + GHCJS.DOM.JSFFI.Generated.Plugin + GHCJS.DOM.JSFFI.Generated.PluginArray + GHCJS.DOM.JSFFI.Generated.Point2D + GHCJS.DOM.JSFFI.Generated.PointerEvent + GHCJS.DOM.JSFFI.Generated.PointerEventInit + GHCJS.DOM.JSFFI.Generated.PointerLockOptions + GHCJS.DOM.JSFFI.Generated.PopStateEvent + GHCJS.DOM.JSFFI.Generated.PopStateEventInit + GHCJS.DOM.JSFFI.Generated.PopoverTargetAttributes + GHCJS.DOM.JSFFI.Generated.PositionCallback + GHCJS.DOM.JSFFI.Generated.PositionErrorCallback + GHCJS.DOM.JSFFI.Generated.PositionOptions + GHCJS.DOM.JSFFI.Generated.PrivateToken + GHCJS.DOM.JSFFI.Generated.ProcessingInstruction + GHCJS.DOM.JSFFI.Generated.ProgressEvent + GHCJS.DOM.JSFFI.Generated.ProgressEventInit + GHCJS.DOM.JSFFI.Generated.PromiseRejectionEvent + GHCJS.DOM.JSFFI.Generated.PromiseRejectionEventInit + GHCJS.DOM.JSFFI.Generated.PropertyDefinition + GHCJS.DOM.JSFFI.Generated.PublicKeyCredential + GHCJS.DOM.JSFFI.Generated.PublicKeyCredentialCreationOptions + GHCJS.DOM.JSFFI.Generated.PublicKeyCredentialCreationOptionsJSON + GHCJS.DOM.JSFFI.Generated.PublicKeyCredentialDescriptor + GHCJS.DOM.JSFFI.Generated.PublicKeyCredentialDescriptorJSON + GHCJS.DOM.JSFFI.Generated.PublicKeyCredentialEntity + GHCJS.DOM.JSFFI.Generated.PublicKeyCredentialParameters + GHCJS.DOM.JSFFI.Generated.PublicKeyCredentialRequestOptions + GHCJS.DOM.JSFFI.Generated.PublicKeyCredentialRequestOptionsJSON + GHCJS.DOM.JSFFI.Generated.PublicKeyCredentialRpEntity + GHCJS.DOM.JSFFI.Generated.PublicKeyCredentialUserEntity + GHCJS.DOM.JSFFI.Generated.PublicKeyCredentialUserEntityJSON + GHCJS.DOM.JSFFI.Generated.PushEvent + GHCJS.DOM.JSFFI.Generated.PushEventInit + GHCJS.DOM.JSFFI.Generated.PushManager + GHCJS.DOM.JSFFI.Generated.PushManagerAttribute + GHCJS.DOM.JSFFI.Generated.PushMessageData + GHCJS.DOM.JSFFI.Generated.PushSubscription + GHCJS.DOM.JSFFI.Generated.PushSubscriptionChangeEvent + GHCJS.DOM.JSFFI.Generated.PushSubscriptionChangeEventInit + GHCJS.DOM.JSFFI.Generated.PushSubscriptionJSON + GHCJS.DOM.JSFFI.Generated.PushSubscriptionKeys + GHCJS.DOM.JSFFI.Generated.PushSubscriptionOptions + GHCJS.DOM.JSFFI.Generated.PushSubscriptionOptionsInit + GHCJS.DOM.JSFFI.Generated.QueuingStrategy + GHCJS.DOM.JSFFI.Generated.QueuingStrategyInit + GHCJS.DOM.JSFFI.Generated.QueuingStrategySize + GHCJS.DOM.JSFFI.Generated.RTCAnswerOptions + GHCJS.DOM.JSFFI.Generated.RTCCertificate + GHCJS.DOM.JSFFI.Generated.RTCConfiguration + GHCJS.DOM.JSFFI.Generated.RTCDTMFSender + GHCJS.DOM.JSFFI.Generated.RTCDTMFToneChangeEvent + GHCJS.DOM.JSFFI.Generated.RTCDTMFToneChangeEventInit + GHCJS.DOM.JSFFI.Generated.RTCDataChannel + GHCJS.DOM.JSFFI.Generated.RTCDataChannelEvent + GHCJS.DOM.JSFFI.Generated.RTCDataChannelEventInit + GHCJS.DOM.JSFFI.Generated.RTCDataChannelInit + GHCJS.DOM.JSFFI.Generated.RTCDtlsFingerprint + GHCJS.DOM.JSFFI.Generated.RTCDtlsTransport + GHCJS.DOM.JSFFI.Generated.RTCEncodedAudioFrame + GHCJS.DOM.JSFFI.Generated.RTCEncodedAudioFrameMetadata + GHCJS.DOM.JSFFI.Generated.RTCEncodedAudioFrameOptions + GHCJS.DOM.JSFFI.Generated.RTCEncodedFrameMetadata + GHCJS.DOM.JSFFI.Generated.RTCEncodedVideoFrame + GHCJS.DOM.JSFFI.Generated.RTCEncodedVideoFrameMetadata + GHCJS.DOM.JSFFI.Generated.RTCEncodedVideoFrameOptions + GHCJS.DOM.JSFFI.Generated.RTCError + GHCJS.DOM.JSFFI.Generated.RTCErrorEvent + GHCJS.DOM.JSFFI.Generated.RTCErrorEventInit + GHCJS.DOM.JSFFI.Generated.RTCErrorInit + GHCJS.DOM.JSFFI.Generated.RTCIceCandidate + GHCJS.DOM.JSFFI.Generated.RTCIceCandidateInit + GHCJS.DOM.JSFFI.Generated.RTCIceCandidatePair + GHCJS.DOM.JSFFI.Generated.RTCIceServer + GHCJS.DOM.JSFFI.Generated.RTCIceTransport + GHCJS.DOM.JSFFI.Generated.RTCLocalIceCandidateInit + GHCJS.DOM.JSFFI.Generated.RTCLocalSessionDescriptionInit + GHCJS.DOM.JSFFI.Generated.RTCOfferAnswerOptions + GHCJS.DOM.JSFFI.Generated.RTCOfferOptions + GHCJS.DOM.JSFFI.Generated.RTCPeerConnection + GHCJS.DOM.JSFFI.Generated.RTCPeerConnectionErrorCallback + GHCJS.DOM.JSFFI.Generated.RTCPeerConnectionIceErrorEvent + GHCJS.DOM.JSFFI.Generated.RTCPeerConnectionIceErrorEventInit + GHCJS.DOM.JSFFI.Generated.RTCPeerConnectionIceEvent + GHCJS.DOM.JSFFI.Generated.RTCPeerConnectionIceEventInit + GHCJS.DOM.JSFFI.Generated.RTCRtcpParameters + GHCJS.DOM.JSFFI.Generated.RTCRtpCapabilities + GHCJS.DOM.JSFFI.Generated.RTCRtpCodec + GHCJS.DOM.JSFFI.Generated.RTCRtpCodecParameters + GHCJS.DOM.JSFFI.Generated.RTCRtpCodingParameters + GHCJS.DOM.JSFFI.Generated.RTCRtpContributingSource + GHCJS.DOM.JSFFI.Generated.RTCRtpEncodingParameters + GHCJS.DOM.JSFFI.Generated.RTCRtpHeaderExtensionCapability + GHCJS.DOM.JSFFI.Generated.RTCRtpHeaderExtensionParameters + GHCJS.DOM.JSFFI.Generated.RTCRtpParameters + GHCJS.DOM.JSFFI.Generated.RTCRtpReceiveParameters + GHCJS.DOM.JSFFI.Generated.RTCRtpReceiver + GHCJS.DOM.JSFFI.Generated.RTCRtpSFrameDecryptor + GHCJS.DOM.JSFFI.Generated.RTCRtpSFrameEncryptor + GHCJS.DOM.JSFFI.Generated.RTCRtpScriptTransform + GHCJS.DOM.JSFFI.Generated.RTCRtpScriptTransformer + GHCJS.DOM.JSFFI.Generated.RTCRtpSendParameters + GHCJS.DOM.JSFFI.Generated.RTCRtpSender + GHCJS.DOM.JSFFI.Generated.RTCRtpSynchronizationSource + GHCJS.DOM.JSFFI.Generated.RTCRtpTransceiver + GHCJS.DOM.JSFFI.Generated.RTCRtpTransceiverInit + GHCJS.DOM.JSFFI.Generated.RTCSctpTransport + GHCJS.DOM.JSFFI.Generated.RTCSessionDescription + GHCJS.DOM.JSFFI.Generated.RTCSessionDescriptionCallback + GHCJS.DOM.JSFFI.Generated.RTCSessionDescriptionInit + GHCJS.DOM.JSFFI.Generated.RTCSetParameterOptions + GHCJS.DOM.JSFFI.Generated.RTCStatsReport + GHCJS.DOM.JSFFI.Generated.RTCTrackEvent + GHCJS.DOM.JSFFI.Generated.RTCTrackEventInit + GHCJS.DOM.JSFFI.Generated.RTCTransformEvent + GHCJS.DOM.JSFFI.Generated.RadioNodeList + GHCJS.DOM.JSFFI.Generated.Range + GHCJS.DOM.JSFFI.Generated.ReadableByteStreamController + GHCJS.DOM.JSFFI.Generated.ReadableStream + GHCJS.DOM.JSFFI.Generated.ReadableStreamBYOBReader + GHCJS.DOM.JSFFI.Generated.ReadableStreamBYOBReaderReadOptions + GHCJS.DOM.JSFFI.Generated.ReadableStreamBYOBRequest + GHCJS.DOM.JSFFI.Generated.ReadableStreamDefaultController + GHCJS.DOM.JSFFI.Generated.ReadableStreamDefaultReader + GHCJS.DOM.JSFFI.Generated.ReadableStreamGenericReader + GHCJS.DOM.JSFFI.Generated.ReadableStreamGetReaderOptions + GHCJS.DOM.JSFFI.Generated.ReadableStreamReadResult + GHCJS.DOM.JSFFI.Generated.ReadableWritablePair + GHCJS.DOM.JSFFI.Generated.RegistrationOptions + GHCJS.DOM.JSFFI.Generated.RemotePlayback + GHCJS.DOM.JSFFI.Generated.RemotePlaybackAvailabilityCallback + GHCJS.DOM.JSFFI.Generated.Report + GHCJS.DOM.JSFFI.Generated.ReportBody + GHCJS.DOM.JSFFI.Generated.ReportingObserver + GHCJS.DOM.JSFFI.Generated.ReportingObserverCallback + GHCJS.DOM.JSFFI.Generated.ReportingObserverOptions + GHCJS.DOM.JSFFI.Generated.Request + GHCJS.DOM.JSFFI.Generated.RequestInit + GHCJS.DOM.JSFFI.Generated.ResizeObserver + GHCJS.DOM.JSFFI.Generated.ResizeObserverCallback + GHCJS.DOM.JSFFI.Generated.ResizeObserverEntry + GHCJS.DOM.JSFFI.Generated.ResizeObserverOptions + GHCJS.DOM.JSFFI.Generated.ResizeObserverSize + GHCJS.DOM.JSFFI.Generated.Response + GHCJS.DOM.JSFFI.Generated.ResponseInit + GHCJS.DOM.JSFFI.Generated.RouterCondition + GHCJS.DOM.JSFFI.Generated.RouterRule + GHCJS.DOM.JSFFI.Generated.RouterSourceDict + GHCJS.DOM.JSFFI.Generated.RsaOtherPrimesInfo + GHCJS.DOM.JSFFI.Generated.SVGAElement + GHCJS.DOM.JSFFI.Generated.SVGAngle + GHCJS.DOM.JSFFI.Generated.SVGAnimateElement + GHCJS.DOM.JSFFI.Generated.SVGAnimateMotionElement + GHCJS.DOM.JSFFI.Generated.SVGAnimateTransformElement + GHCJS.DOM.JSFFI.Generated.SVGAnimatedAngle + GHCJS.DOM.JSFFI.Generated.SVGAnimatedBoolean + GHCJS.DOM.JSFFI.Generated.SVGAnimatedEnumeration + GHCJS.DOM.JSFFI.Generated.SVGAnimatedInteger + GHCJS.DOM.JSFFI.Generated.SVGAnimatedLength + GHCJS.DOM.JSFFI.Generated.SVGAnimatedLengthList + GHCJS.DOM.JSFFI.Generated.SVGAnimatedNumber + GHCJS.DOM.JSFFI.Generated.SVGAnimatedNumberList + GHCJS.DOM.JSFFI.Generated.SVGAnimatedPoints + GHCJS.DOM.JSFFI.Generated.SVGAnimatedPreserveAspectRatio + GHCJS.DOM.JSFFI.Generated.SVGAnimatedRect + GHCJS.DOM.JSFFI.Generated.SVGAnimatedString + GHCJS.DOM.JSFFI.Generated.SVGAnimatedTransformList + GHCJS.DOM.JSFFI.Generated.SVGAnimationElement + GHCJS.DOM.JSFFI.Generated.SVGBoundingBoxOptions + GHCJS.DOM.JSFFI.Generated.SVGCircleElement + GHCJS.DOM.JSFFI.Generated.SVGClipPathElement + GHCJS.DOM.JSFFI.Generated.SVGComponentTransferFunctionElement + GHCJS.DOM.JSFFI.Generated.SVGDefsElement + GHCJS.DOM.JSFFI.Generated.SVGDescElement + GHCJS.DOM.JSFFI.Generated.SVGElement + GHCJS.DOM.JSFFI.Generated.SVGEllipseElement + GHCJS.DOM.JSFFI.Generated.SVGFEBlendElement + GHCJS.DOM.JSFFI.Generated.SVGFEColorMatrixElement + GHCJS.DOM.JSFFI.Generated.SVGFEComponentTransferElement + GHCJS.DOM.JSFFI.Generated.SVGFECompositeElement + GHCJS.DOM.JSFFI.Generated.SVGFEConvolveMatrixElement + GHCJS.DOM.JSFFI.Generated.SVGFEDiffuseLightingElement + GHCJS.DOM.JSFFI.Generated.SVGFEDisplacementMapElement + GHCJS.DOM.JSFFI.Generated.SVGFEDistantLightElement + GHCJS.DOM.JSFFI.Generated.SVGFEDropShadowElement + GHCJS.DOM.JSFFI.Generated.SVGFEFloodElement + GHCJS.DOM.JSFFI.Generated.SVGFEFuncAElement + GHCJS.DOM.JSFFI.Generated.SVGFEFuncBElement + GHCJS.DOM.JSFFI.Generated.SVGFEFuncGElement + GHCJS.DOM.JSFFI.Generated.SVGFEFuncRElement + GHCJS.DOM.JSFFI.Generated.SVGFEGaussianBlurElement + GHCJS.DOM.JSFFI.Generated.SVGFEImageElement + GHCJS.DOM.JSFFI.Generated.SVGFEMergeElement + GHCJS.DOM.JSFFI.Generated.SVGFEMergeNodeElement + GHCJS.DOM.JSFFI.Generated.SVGFEMorphologyElement + GHCJS.DOM.JSFFI.Generated.SVGFEOffsetElement + GHCJS.DOM.JSFFI.Generated.SVGFEPointLightElement + GHCJS.DOM.JSFFI.Generated.SVGFESpecularLightingElement + GHCJS.DOM.JSFFI.Generated.SVGFESpotLightElement + GHCJS.DOM.JSFFI.Generated.SVGFETileElement + GHCJS.DOM.JSFFI.Generated.SVGFETurbulenceElement + GHCJS.DOM.JSFFI.Generated.SVGFilterElement + GHCJS.DOM.JSFFI.Generated.SVGFilterPrimitiveStandardAttributes + GHCJS.DOM.JSFFI.Generated.SVGFitToViewBox + GHCJS.DOM.JSFFI.Generated.SVGForeignObjectElement + GHCJS.DOM.JSFFI.Generated.SVGGElement + GHCJS.DOM.JSFFI.Generated.SVGGeometryElement + GHCJS.DOM.JSFFI.Generated.SVGGradientElement + GHCJS.DOM.JSFFI.Generated.SVGGraphicsElement + GHCJS.DOM.JSFFI.Generated.SVGImageElement + GHCJS.DOM.JSFFI.Generated.SVGLength + GHCJS.DOM.JSFFI.Generated.SVGLengthList + GHCJS.DOM.JSFFI.Generated.SVGLineElement + GHCJS.DOM.JSFFI.Generated.SVGLinearGradientElement + GHCJS.DOM.JSFFI.Generated.SVGMPathElement + GHCJS.DOM.JSFFI.Generated.SVGMarkerElement + GHCJS.DOM.JSFFI.Generated.SVGMaskElement + GHCJS.DOM.JSFFI.Generated.SVGMetadataElement + GHCJS.DOM.JSFFI.Generated.SVGNumber + GHCJS.DOM.JSFFI.Generated.SVGNumberList + GHCJS.DOM.JSFFI.Generated.SVGPathElement + GHCJS.DOM.JSFFI.Generated.SVGPatternElement + GHCJS.DOM.JSFFI.Generated.SVGPointList + GHCJS.DOM.JSFFI.Generated.SVGPolygonElement + GHCJS.DOM.JSFFI.Generated.SVGPolylineElement + GHCJS.DOM.JSFFI.Generated.SVGPreserveAspectRatio + GHCJS.DOM.JSFFI.Generated.SVGRadialGradientElement + GHCJS.DOM.JSFFI.Generated.SVGRectElement + GHCJS.DOM.JSFFI.Generated.SVGSVGElement + GHCJS.DOM.JSFFI.Generated.SVGScriptElement + GHCJS.DOM.JSFFI.Generated.SVGSetElement + GHCJS.DOM.JSFFI.Generated.SVGStopElement + GHCJS.DOM.JSFFI.Generated.SVGStringList + GHCJS.DOM.JSFFI.Generated.SVGStyleElement + GHCJS.DOM.JSFFI.Generated.SVGSwitchElement + GHCJS.DOM.JSFFI.Generated.SVGSymbolElement + GHCJS.DOM.JSFFI.Generated.SVGTSpanElement + GHCJS.DOM.JSFFI.Generated.SVGTests + GHCJS.DOM.JSFFI.Generated.SVGTextContentElement + GHCJS.DOM.JSFFI.Generated.SVGTextElement + GHCJS.DOM.JSFFI.Generated.SVGTextPathElement + GHCJS.DOM.JSFFI.Generated.SVGTextPositioningElement + GHCJS.DOM.JSFFI.Generated.SVGTitleElement + GHCJS.DOM.JSFFI.Generated.SVGTransform + GHCJS.DOM.JSFFI.Generated.SVGTransformList + GHCJS.DOM.JSFFI.Generated.SVGURIReference + GHCJS.DOM.JSFFI.Generated.SVGUnitTypes + GHCJS.DOM.JSFFI.Generated.SVGUseElement + GHCJS.DOM.JSFFI.Generated.SVGViewElement + GHCJS.DOM.JSFFI.Generated.Sanitizer + GHCJS.DOM.JSFFI.Generated.SanitizerAttributeNamespace + GHCJS.DOM.JSFFI.Generated.SanitizerConfig + GHCJS.DOM.JSFFI.Generated.SanitizerElementNamespace + GHCJS.DOM.JSFFI.Generated.SanitizerElementNamespaceWithAttributes + GHCJS.DOM.JSFFI.Generated.SanitizerProcessingInstruction + GHCJS.DOM.JSFFI.Generated.Scheduler + GHCJS.DOM.JSFFI.Generated.SchedulerPostTaskCallback + GHCJS.DOM.JSFFI.Generated.SchedulerPostTaskOptions + GHCJS.DOM.JSFFI.Generated.Screen + GHCJS.DOM.JSFFI.Generated.ScreenDetailed + GHCJS.DOM.JSFFI.Generated.ScreenOrientation + GHCJS.DOM.JSFFI.Generated.ScriptProcessorNode + GHCJS.DOM.JSFFI.Generated.ScrollIntoViewOptions + GHCJS.DOM.JSFFI.Generated.ScrollOptions + GHCJS.DOM.JSFFI.Generated.ScrollResult + GHCJS.DOM.JSFFI.Generated.ScrollTimeline + GHCJS.DOM.JSFFI.Generated.ScrollTimelineOptions + GHCJS.DOM.JSFFI.Generated.ScrollToOptions + GHCJS.DOM.JSFFI.Generated.SecurityPolicyViolationEvent + GHCJS.DOM.JSFFI.Generated.SecurityPolicyViolationEventInit + GHCJS.DOM.JSFFI.Generated.Segment + GHCJS.DOM.JSFFI.Generated.Selection + GHCJS.DOM.JSFFI.Generated.Serial + GHCJS.DOM.JSFFI.Generated.SerialInputSignals + GHCJS.DOM.JSFFI.Generated.SerialOptions + GHCJS.DOM.JSFFI.Generated.SerialOutputSignals + GHCJS.DOM.JSFFI.Generated.SerialPort + GHCJS.DOM.JSFFI.Generated.SerialPortFilter + GHCJS.DOM.JSFFI.Generated.SerialPortInfo + GHCJS.DOM.JSFFI.Generated.SerialPortRequestOptions + GHCJS.DOM.JSFFI.Generated.ServiceWorker + GHCJS.DOM.JSFFI.Generated.ServiceWorkerContainer + GHCJS.DOM.JSFFI.Generated.ServiceWorkerGlobalScope + GHCJS.DOM.JSFFI.Generated.ServiceWorkerRegistration + GHCJS.DOM.JSFFI.Generated.SetHTMLOptions + GHCJS.DOM.JSFFI.Generated.SetHTMLUnsafeOptions + GHCJS.DOM.JSFFI.Generated.ShadowRoot + GHCJS.DOM.JSFFI.Generated.ShadowRootInit + GHCJS.DOM.JSFFI.Generated.ShareData + GHCJS.DOM.JSFFI.Generated.SharedWorker + GHCJS.DOM.JSFFI.Generated.SharedWorkerGlobalScope + GHCJS.DOM.JSFFI.Generated.SharedWorkerOptions + GHCJS.DOM.JSFFI.Generated.ShowPopoverOptions + GHCJS.DOM.JSFFI.Generated.Slottable + GHCJS.DOM.JSFFI.Generated.SourceBuffer + GHCJS.DOM.JSFFI.Generated.SourceBufferList + GHCJS.DOM.JSFFI.Generated.SpeechGrammar + GHCJS.DOM.JSFFI.Generated.SpeechGrammarList + GHCJS.DOM.JSFFI.Generated.SpeechRecognition + GHCJS.DOM.JSFFI.Generated.SpeechRecognitionAlternative + GHCJS.DOM.JSFFI.Generated.SpeechRecognitionErrorEvent + GHCJS.DOM.JSFFI.Generated.SpeechRecognitionErrorEventInit + GHCJS.DOM.JSFFI.Generated.SpeechRecognitionEvent + GHCJS.DOM.JSFFI.Generated.SpeechRecognitionEventInit + GHCJS.DOM.JSFFI.Generated.SpeechRecognitionOptions + GHCJS.DOM.JSFFI.Generated.SpeechRecognitionPhrase + GHCJS.DOM.JSFFI.Generated.SpeechRecognitionResult + GHCJS.DOM.JSFFI.Generated.SpeechRecognitionResultList + GHCJS.DOM.JSFFI.Generated.SpeechSynthesis + GHCJS.DOM.JSFFI.Generated.SpeechSynthesisErrorEvent + GHCJS.DOM.JSFFI.Generated.SpeechSynthesisErrorEventInit + GHCJS.DOM.JSFFI.Generated.SpeechSynthesisEvent + GHCJS.DOM.JSFFI.Generated.SpeechSynthesisEventInit + GHCJS.DOM.JSFFI.Generated.SpeechSynthesisUtterance + GHCJS.DOM.JSFFI.Generated.SpeechSynthesisVoice + GHCJS.DOM.JSFFI.Generated.StartViewTransitionOptions + GHCJS.DOM.JSFFI.Generated.StaticRange + GHCJS.DOM.JSFFI.Generated.StaticRangeInit + GHCJS.DOM.JSFFI.Generated.StereoPannerNode + GHCJS.DOM.JSFFI.Generated.StereoPannerOptions + GHCJS.DOM.JSFFI.Generated.Storage + GHCJS.DOM.JSFFI.Generated.StorageEstimate + GHCJS.DOM.JSFFI.Generated.StorageEvent + GHCJS.DOM.JSFFI.Generated.StorageEventInit + GHCJS.DOM.JSFFI.Generated.StorageManager + GHCJS.DOM.JSFFI.Generated.StreamPipeOptions + GHCJS.DOM.JSFFI.Generated.StructuredSerializeOptions + GHCJS.DOM.JSFFI.Generated.StylePropertyMap + GHCJS.DOM.JSFFI.Generated.StylePropertyMapReadOnly + GHCJS.DOM.JSFFI.Generated.StyleSheet + GHCJS.DOM.JSFFI.Generated.StyleSheetList + GHCJS.DOM.JSFFI.Generated.SubmitEvent + GHCJS.DOM.JSFFI.Generated.SubmitEventInit + GHCJS.DOM.JSFFI.Generated.SubtleCrypto + GHCJS.DOM.JSFFI.Generated.SvcOutputMetadata + GHCJS.DOM.JSFFI.Generated.TaskController + GHCJS.DOM.JSFFI.Generated.TaskControllerInit + GHCJS.DOM.JSFFI.Generated.TaskPriorityChangeEvent + GHCJS.DOM.JSFFI.Generated.TaskPriorityChangeEventInit + GHCJS.DOM.JSFFI.Generated.TaskSignal + GHCJS.DOM.JSFFI.Generated.TaskSignalAnyInit + GHCJS.DOM.JSFFI.Generated.Text + GHCJS.DOM.JSFFI.Generated.TextDecodeOptions + GHCJS.DOM.JSFFI.Generated.TextDecoder + GHCJS.DOM.JSFFI.Generated.TextDecoderCommon + GHCJS.DOM.JSFFI.Generated.TextDecoderOptions + GHCJS.DOM.JSFFI.Generated.TextDecoderStream + GHCJS.DOM.JSFFI.Generated.TextEncoder + GHCJS.DOM.JSFFI.Generated.TextEncoderCommon + GHCJS.DOM.JSFFI.Generated.TextEncoderEncodeIntoResult + GHCJS.DOM.JSFFI.Generated.TextEncoderStream + GHCJS.DOM.JSFFI.Generated.TextEvent + GHCJS.DOM.JSFFI.Generated.TextMetrics + GHCJS.DOM.JSFFI.Generated.TextTrack + GHCJS.DOM.JSFFI.Generated.TextTrackCue + GHCJS.DOM.JSFFI.Generated.TextTrackCueList + GHCJS.DOM.JSFFI.Generated.TextTrackList + GHCJS.DOM.JSFFI.Generated.TimeRanges + GHCJS.DOM.JSFFI.Generated.TimelineRangeOffset + GHCJS.DOM.JSFFI.Generated.ToggleEvent + GHCJS.DOM.JSFFI.Generated.ToggleEventInit + GHCJS.DOM.JSFFI.Generated.TogglePopoverOptions + GHCJS.DOM.JSFFI.Generated.Touch + GHCJS.DOM.JSFFI.Generated.TouchEvent + GHCJS.DOM.JSFFI.Generated.TouchEventInit + GHCJS.DOM.JSFFI.Generated.TouchInit + GHCJS.DOM.JSFFI.Generated.TouchList + GHCJS.DOM.JSFFI.Generated.TrackEvent + GHCJS.DOM.JSFFI.Generated.TrackEventInit + GHCJS.DOM.JSFFI.Generated.TransformStream + GHCJS.DOM.JSFFI.Generated.TransformStreamDefaultController + GHCJS.DOM.JSFFI.Generated.TransitionEvent + GHCJS.DOM.JSFFI.Generated.TransitionEventInit + GHCJS.DOM.JSFFI.Generated.TreeWalker + GHCJS.DOM.JSFFI.Generated.TrustedHTML + GHCJS.DOM.JSFFI.Generated.TrustedHTMLParserOptions + GHCJS.DOM.JSFFI.Generated.TrustedScript + GHCJS.DOM.JSFFI.Generated.TrustedScriptURL + GHCJS.DOM.JSFFI.Generated.TrustedTypePolicy + GHCJS.DOM.JSFFI.Generated.TrustedTypePolicyFactory + GHCJS.DOM.JSFFI.Generated.TrustedTypePolicyOptions + GHCJS.DOM.JSFFI.Generated.UIEvent + GHCJS.DOM.JSFFI.Generated.UIEventInit + GHCJS.DOM.JSFFI.Generated.ULongRange + GHCJS.DOM.JSFFI.Generated.URL + GHCJS.DOM.JSFFI.Generated.URLPattern + GHCJS.DOM.JSFFI.Generated.URLPatternComponentResult + GHCJS.DOM.JSFFI.Generated.URLPatternInit + GHCJS.DOM.JSFFI.Generated.URLPatternOptions + GHCJS.DOM.JSFFI.Generated.URLPatternResult + GHCJS.DOM.JSFFI.Generated.URLSearchParams + GHCJS.DOM.JSFFI.Generated.UnknownCredentialOptions + GHCJS.DOM.JSFFI.Generated.UserActivation + GHCJS.DOM.JSFFI.Generated.VTTCue + GHCJS.DOM.JSFFI.Generated.VTTRegion + GHCJS.DOM.JSFFI.Generated.ValidityState + GHCJS.DOM.JSFFI.Generated.ValidityStateFlags + GHCJS.DOM.JSFFI.Generated.VideoColorSpace + GHCJS.DOM.JSFFI.Generated.VideoColorSpaceInit + GHCJS.DOM.JSFFI.Generated.VideoConfiguration + GHCJS.DOM.JSFFI.Generated.VideoDecoder + GHCJS.DOM.JSFFI.Generated.VideoDecoderConfig + GHCJS.DOM.JSFFI.Generated.VideoDecoderInit + GHCJS.DOM.JSFFI.Generated.VideoDecoderSupport + GHCJS.DOM.JSFFI.Generated.VideoEncoder + GHCJS.DOM.JSFFI.Generated.VideoEncoderConfig + GHCJS.DOM.JSFFI.Generated.VideoEncoderEncodeOptions + GHCJS.DOM.JSFFI.Generated.VideoEncoderEncodeOptionsForAv1 + GHCJS.DOM.JSFFI.Generated.VideoEncoderEncodeOptionsForAvc + GHCJS.DOM.JSFFI.Generated.VideoEncoderEncodeOptionsForHevc + GHCJS.DOM.JSFFI.Generated.VideoEncoderEncodeOptionsForVp9 + GHCJS.DOM.JSFFI.Generated.VideoEncoderInit + GHCJS.DOM.JSFFI.Generated.VideoEncoderSupport + GHCJS.DOM.JSFFI.Generated.VideoFrame + GHCJS.DOM.JSFFI.Generated.VideoFrameBufferInit + GHCJS.DOM.JSFFI.Generated.VideoFrameCallbackMetadata + GHCJS.DOM.JSFFI.Generated.VideoFrameCopyToOptions + GHCJS.DOM.JSFFI.Generated.VideoFrameInit + GHCJS.DOM.JSFFI.Generated.VideoFrameMetadata + GHCJS.DOM.JSFFI.Generated.VideoFrameOutputCallback + GHCJS.DOM.JSFFI.Generated.VideoFrameRequestCallback + GHCJS.DOM.JSFFI.Generated.VideoPlaybackQuality + GHCJS.DOM.JSFFI.Generated.VideoTrack + GHCJS.DOM.JSFFI.Generated.VideoTrackList + GHCJS.DOM.JSFFI.Generated.ViewTimeline + GHCJS.DOM.JSFFI.Generated.ViewTimelineOptions + GHCJS.DOM.JSFFI.Generated.ViewTransition + GHCJS.DOM.JSFFI.Generated.ViewTransitionTypeSet + GHCJS.DOM.JSFFI.Generated.ViewTransitionUpdateCallback + GHCJS.DOM.JSFFI.Generated.VisualViewport + GHCJS.DOM.JSFFI.Generated.VoidFunction + GHCJS.DOM.JSFFI.Generated.WEBGL_color_buffer_float + GHCJS.DOM.JSFFI.Generated.WEBGL_compressed_texture_astc + GHCJS.DOM.JSFFI.Generated.WEBGL_compressed_texture_etc + GHCJS.DOM.JSFFI.Generated.WEBGL_compressed_texture_etc1 + GHCJS.DOM.JSFFI.Generated.WEBGL_compressed_texture_pvrtc + GHCJS.DOM.JSFFI.Generated.WEBGL_compressed_texture_s3tc + GHCJS.DOM.JSFFI.Generated.WEBGL_compressed_texture_s3tc_srgb + GHCJS.DOM.JSFFI.Generated.WEBGL_debug_renderer_info + GHCJS.DOM.JSFFI.Generated.WEBGL_debug_shaders + GHCJS.DOM.JSFFI.Generated.WEBGL_depth_texture + GHCJS.DOM.JSFFI.Generated.WEBGL_draw_buffers + GHCJS.DOM.JSFFI.Generated.WEBGL_lose_context + GHCJS.DOM.JSFFI.Generated.WEBGL_multi_draw + GHCJS.DOM.JSFFI.Generated.WGSLLanguageFeatures + GHCJS.DOM.JSFFI.Generated.WakeLock + GHCJS.DOM.JSFFI.Generated.WakeLockSentinel + GHCJS.DOM.JSFFI.Generated.WaveShaperNode + GHCJS.DOM.JSFFI.Generated.WaveShaperOptions + GHCJS.DOM.JSFFI.Generated.WebCodecsErrorCallback + GHCJS.DOM.JSFFI.Generated.WebGL2RenderingContext + GHCJS.DOM.JSFFI.Generated.WebGL2RenderingContextBase + GHCJS.DOM.JSFFI.Generated.WebGL2RenderingContextOverloads + GHCJS.DOM.JSFFI.Generated.WebGLActiveInfo + GHCJS.DOM.JSFFI.Generated.WebGLBuffer + GHCJS.DOM.JSFFI.Generated.WebGLContextAttributes + GHCJS.DOM.JSFFI.Generated.WebGLContextEvent + GHCJS.DOM.JSFFI.Generated.WebGLContextEventInit + GHCJS.DOM.JSFFI.Generated.WebGLFramebuffer + GHCJS.DOM.JSFFI.Generated.WebGLObject + GHCJS.DOM.JSFFI.Generated.WebGLProgram + GHCJS.DOM.JSFFI.Generated.WebGLQuery + GHCJS.DOM.JSFFI.Generated.WebGLRenderbuffer + GHCJS.DOM.JSFFI.Generated.WebGLRenderingContext + GHCJS.DOM.JSFFI.Generated.WebGLRenderingContextBase + GHCJS.DOM.JSFFI.Generated.WebGLRenderingContextOverloads + GHCJS.DOM.JSFFI.Generated.WebGLSampler + GHCJS.DOM.JSFFI.Generated.WebGLShader + GHCJS.DOM.JSFFI.Generated.WebGLShaderPrecisionFormat + GHCJS.DOM.JSFFI.Generated.WebGLSync + GHCJS.DOM.JSFFI.Generated.WebGLTexture + GHCJS.DOM.JSFFI.Generated.WebGLTransformFeedback + GHCJS.DOM.JSFFI.Generated.WebGLUniformLocation + GHCJS.DOM.JSFFI.Generated.WebGLVertexArrayObject + GHCJS.DOM.JSFFI.Generated.WebGLVertexArrayObjectOES + GHCJS.DOM.JSFFI.Generated.WebSocket + GHCJS.DOM.JSFFI.Generated.WebTransport + GHCJS.DOM.JSFFI.Generated.WebTransportBidirectionalStream + GHCJS.DOM.JSFFI.Generated.WebTransportCloseInfo + GHCJS.DOM.JSFFI.Generated.WebTransportConnectionStats + GHCJS.DOM.JSFFI.Generated.WebTransportDatagramDuplexStream + GHCJS.DOM.JSFFI.Generated.WebTransportDatagramStats + GHCJS.DOM.JSFFI.Generated.WebTransportDatagramsWritable + GHCJS.DOM.JSFFI.Generated.WebTransportError + GHCJS.DOM.JSFFI.Generated.WebTransportErrorOptions + GHCJS.DOM.JSFFI.Generated.WebTransportHash + GHCJS.DOM.JSFFI.Generated.WebTransportOptions + GHCJS.DOM.JSFFI.Generated.WebTransportReceiveStream + GHCJS.DOM.JSFFI.Generated.WebTransportReceiveStreamStats + GHCJS.DOM.JSFFI.Generated.WebTransportSendGroup + GHCJS.DOM.JSFFI.Generated.WebTransportSendOptions + GHCJS.DOM.JSFFI.Generated.WebTransportSendStream + GHCJS.DOM.JSFFI.Generated.WebTransportSendStreamOptions + GHCJS.DOM.JSFFI.Generated.WebTransportSendStreamStats + GHCJS.DOM.JSFFI.Generated.WebTransportWriter + GHCJS.DOM.JSFFI.Generated.WheelEvent + GHCJS.DOM.JSFFI.Generated.WheelEventInit + GHCJS.DOM.JSFFI.Generated.Window + GHCJS.DOM.JSFFI.Generated.WindowClient + GHCJS.DOM.JSFFI.Generated.WindowEventHandlers + GHCJS.DOM.JSFFI.Generated.WindowLocalStorage + GHCJS.DOM.JSFFI.Generated.WindowOrWorkerGlobalScope + GHCJS.DOM.JSFFI.Generated.WindowPostMessageOptions + GHCJS.DOM.JSFFI.Generated.WindowSessionStorage + GHCJS.DOM.JSFFI.Generated.Worker + GHCJS.DOM.JSFFI.Generated.WorkerAndParameters + GHCJS.DOM.JSFFI.Generated.WorkerGlobalScope + GHCJS.DOM.JSFFI.Generated.WorkerLocation + GHCJS.DOM.JSFFI.Generated.WorkerNavigator + GHCJS.DOM.JSFFI.Generated.WorkerOptions + GHCJS.DOM.JSFFI.Generated.Worklet + GHCJS.DOM.JSFFI.Generated.WorkletGlobalScope + GHCJS.DOM.JSFFI.Generated.WorkletOptions + GHCJS.DOM.JSFFI.Generated.WritableStream + GHCJS.DOM.JSFFI.Generated.WritableStreamDefaultController + GHCJS.DOM.JSFFI.Generated.WritableStreamDefaultWriter + GHCJS.DOM.JSFFI.Generated.WriteParams + GHCJS.DOM.JSFFI.Generated.XMLDocument + GHCJS.DOM.JSFFI.Generated.XMLHttpRequest + GHCJS.DOM.JSFFI.Generated.XMLHttpRequestEventTarget + GHCJS.DOM.JSFFI.Generated.XMLHttpRequestUpload + GHCJS.DOM.JSFFI.Generated.XMLSerializer + GHCJS.DOM.JSFFI.Generated.XPathEvaluator + GHCJS.DOM.JSFFI.Generated.XPathEvaluatorBase + GHCJS.DOM.JSFFI.Generated.XPathExpression + GHCJS.DOM.JSFFI.Generated.XPathNSResolver + GHCJS.DOM.JSFFI.Generated.XPathResult + GHCJS.DOM.JSFFI.Generated.XSLTProcessor + + reexported-modules: + GHCJS.DOM.JSFFI.Geolocation as GHCJS.DOM.Geolocation + , GHCJS.DOM.JSFFI.GeolocationPositionError as GHCJS.DOM.GeolocationPositionError + , GHCJS.DOM.JSFFI.XMLHttpRequest as GHCJS.DOM.XMLHttpRequest + , GHCJS.DOM.JSFFI.Generated.ANGLE_instanced_arrays as GHCJS.DOM.ANGLE_instanced_arrays + , GHCJS.DOM.JSFFI.Generated.ARIAMixin as GHCJS.DOM.ARIAMixin + , GHCJS.DOM.JSFFI.Generated.ARIANotifyMixin as GHCJS.DOM.ARIANotifyMixin + , GHCJS.DOM.JSFFI.Generated.AacEncoderConfig as GHCJS.DOM.AacEncoderConfig + , GHCJS.DOM.JSFFI.Generated.AbortController as GHCJS.DOM.AbortController + , GHCJS.DOM.JSFFI.Generated.AbortSignal as GHCJS.DOM.AbortSignal + , GHCJS.DOM.JSFFI.Generated.AbstractRange as GHCJS.DOM.AbstractRange + , GHCJS.DOM.JSFFI.Generated.AbstractWorker as GHCJS.DOM.AbstractWorker + , GHCJS.DOM.JSFFI.Generated.AddEventListenerOptions as GHCJS.DOM.AddEventListenerOptions + , GHCJS.DOM.JSFFI.Generated.AddressErrors as GHCJS.DOM.AddressErrors + , GHCJS.DOM.JSFFI.Generated.AllAcceptedCredentialsOptions as GHCJS.DOM.AllAcceptedCredentialsOptions + , GHCJS.DOM.JSFFI.Generated.AnalyserNode as GHCJS.DOM.AnalyserNode + , GHCJS.DOM.JSFFI.Generated.AnalyserOptions as GHCJS.DOM.AnalyserOptions + , GHCJS.DOM.JSFFI.Generated.Animatable as GHCJS.DOM.Animatable + , GHCJS.DOM.JSFFI.Generated.Animation as GHCJS.DOM.Animation + , GHCJS.DOM.JSFFI.Generated.AnimationEffect as GHCJS.DOM.AnimationEffect + , GHCJS.DOM.JSFFI.Generated.AnimationEvent as GHCJS.DOM.AnimationEvent + , GHCJS.DOM.JSFFI.Generated.AnimationEventInit as GHCJS.DOM.AnimationEventInit + , GHCJS.DOM.JSFFI.Generated.AnimationFrameProvider as GHCJS.DOM.AnimationFrameProvider + , GHCJS.DOM.JSFFI.Generated.AnimationPlaybackEvent as GHCJS.DOM.AnimationPlaybackEvent + , GHCJS.DOM.JSFFI.Generated.AnimationPlaybackEventInit as GHCJS.DOM.AnimationPlaybackEventInit + , GHCJS.DOM.JSFFI.Generated.AnimationTimeline as GHCJS.DOM.AnimationTimeline + , GHCJS.DOM.JSFFI.Generated.AnimationTrigger as GHCJS.DOM.AnimationTrigger + , GHCJS.DOM.JSFFI.Generated.AriaNotificationOptions as GHCJS.DOM.AriaNotificationOptions + , GHCJS.DOM.JSFFI.Generated.AssignedNodesOptions as GHCJS.DOM.AssignedNodesOptions + , GHCJS.DOM.JSFFI.Generated.Attr as GHCJS.DOM.Attr + , GHCJS.DOM.JSFFI.Generated.AudioBuffer as GHCJS.DOM.AudioBuffer + , GHCJS.DOM.JSFFI.Generated.AudioBufferOptions as GHCJS.DOM.AudioBufferOptions + , GHCJS.DOM.JSFFI.Generated.AudioBufferSourceNode as GHCJS.DOM.AudioBufferSourceNode + , GHCJS.DOM.JSFFI.Generated.AudioBufferSourceOptions as GHCJS.DOM.AudioBufferSourceOptions + , GHCJS.DOM.JSFFI.Generated.AudioConfiguration as GHCJS.DOM.AudioConfiguration + , GHCJS.DOM.JSFFI.Generated.AudioContext as GHCJS.DOM.AudioContext + , GHCJS.DOM.JSFFI.Generated.AudioContextOptions as GHCJS.DOM.AudioContextOptions + , GHCJS.DOM.JSFFI.Generated.AudioData as GHCJS.DOM.AudioData + , GHCJS.DOM.JSFFI.Generated.AudioDataCopyToOptions as GHCJS.DOM.AudioDataCopyToOptions + , GHCJS.DOM.JSFFI.Generated.AudioDataInit as GHCJS.DOM.AudioDataInit + , GHCJS.DOM.JSFFI.Generated.AudioDataOutputCallback as GHCJS.DOM.AudioDataOutputCallback + , GHCJS.DOM.JSFFI.Generated.AudioDecoder as GHCJS.DOM.AudioDecoder + , GHCJS.DOM.JSFFI.Generated.AudioDecoderConfig as GHCJS.DOM.AudioDecoderConfig + , GHCJS.DOM.JSFFI.Generated.AudioDecoderInit as GHCJS.DOM.AudioDecoderInit + , GHCJS.DOM.JSFFI.Generated.AudioDecoderSupport as GHCJS.DOM.AudioDecoderSupport + , GHCJS.DOM.JSFFI.Generated.AudioDestinationNode as GHCJS.DOM.AudioDestinationNode + , GHCJS.DOM.JSFFI.Generated.AudioEncoder as GHCJS.DOM.AudioEncoder + , GHCJS.DOM.JSFFI.Generated.AudioEncoderConfig as GHCJS.DOM.AudioEncoderConfig + , GHCJS.DOM.JSFFI.Generated.AudioEncoderInit as GHCJS.DOM.AudioEncoderInit + , GHCJS.DOM.JSFFI.Generated.AudioEncoderSupport as GHCJS.DOM.AudioEncoderSupport + , GHCJS.DOM.JSFFI.Generated.AudioListener as GHCJS.DOM.AudioListener + , GHCJS.DOM.JSFFI.Generated.AudioNode as GHCJS.DOM.AudioNode + , GHCJS.DOM.JSFFI.Generated.AudioNodeOptions as GHCJS.DOM.AudioNodeOptions + , GHCJS.DOM.JSFFI.Generated.AudioParam as GHCJS.DOM.AudioParam + , GHCJS.DOM.JSFFI.Generated.AudioParamMap as GHCJS.DOM.AudioParamMap + , GHCJS.DOM.JSFFI.Generated.AudioProcessingEvent as GHCJS.DOM.AudioProcessingEvent + , GHCJS.DOM.JSFFI.Generated.AudioProcessingEventInit as GHCJS.DOM.AudioProcessingEventInit + , GHCJS.DOM.JSFFI.Generated.AudioScheduledSourceNode as GHCJS.DOM.AudioScheduledSourceNode + , GHCJS.DOM.JSFFI.Generated.AudioSinkOptions as GHCJS.DOM.AudioSinkOptions + , GHCJS.DOM.JSFFI.Generated.AudioTimestamp as GHCJS.DOM.AudioTimestamp + , GHCJS.DOM.JSFFI.Generated.AudioTrack as GHCJS.DOM.AudioTrack + , GHCJS.DOM.JSFFI.Generated.AudioTrackList as GHCJS.DOM.AudioTrackList + , GHCJS.DOM.JSFFI.Generated.AudioWorklet as GHCJS.DOM.AudioWorklet + , GHCJS.DOM.JSFFI.Generated.AudioWorkletGlobalScope as GHCJS.DOM.AudioWorkletGlobalScope + , GHCJS.DOM.JSFFI.Generated.AudioWorkletNode as GHCJS.DOM.AudioWorkletNode + , GHCJS.DOM.JSFFI.Generated.AudioWorkletNodeOptions as GHCJS.DOM.AudioWorkletNodeOptions + , GHCJS.DOM.JSFFI.Generated.AudioWorkletProcessor as GHCJS.DOM.AudioWorkletProcessor + , GHCJS.DOM.JSFFI.Generated.AudioWorkletProcessorConstructor as GHCJS.DOM.AudioWorkletProcessorConstructor + , GHCJS.DOM.JSFFI.Generated.AuthenticationExtensionsClientInputs as GHCJS.DOM.AuthenticationExtensionsClientInputs + , GHCJS.DOM.JSFFI.Generated.AuthenticationExtensionsClientInputsJSON as GHCJS.DOM.AuthenticationExtensionsClientInputsJSON + , GHCJS.DOM.JSFFI.Generated.AuthenticationExtensionsClientOutputs as GHCJS.DOM.AuthenticationExtensionsClientOutputs + , GHCJS.DOM.JSFFI.Generated.AuthenticationExtensionsLargeBlobInputs as GHCJS.DOM.AuthenticationExtensionsLargeBlobInputs + , GHCJS.DOM.JSFFI.Generated.AuthenticationExtensionsLargeBlobInputsJSON as GHCJS.DOM.AuthenticationExtensionsLargeBlobInputsJSON + , GHCJS.DOM.JSFFI.Generated.AuthenticationExtensionsLargeBlobOutputs as GHCJS.DOM.AuthenticationExtensionsLargeBlobOutputs + , GHCJS.DOM.JSFFI.Generated.AuthenticationExtensionsPRFInputs as GHCJS.DOM.AuthenticationExtensionsPRFInputs + , GHCJS.DOM.JSFFI.Generated.AuthenticationExtensionsPRFInputsJSON as GHCJS.DOM.AuthenticationExtensionsPRFInputsJSON + , GHCJS.DOM.JSFFI.Generated.AuthenticationExtensionsPRFOutputs as GHCJS.DOM.AuthenticationExtensionsPRFOutputs + , GHCJS.DOM.JSFFI.Generated.AuthenticationExtensionsPRFValues as GHCJS.DOM.AuthenticationExtensionsPRFValues + , GHCJS.DOM.JSFFI.Generated.AuthenticationExtensionsPRFValuesJSON as GHCJS.DOM.AuthenticationExtensionsPRFValuesJSON + , GHCJS.DOM.JSFFI.Generated.AuthenticationExtensionsPaymentInputs as GHCJS.DOM.AuthenticationExtensionsPaymentInputs + , GHCJS.DOM.JSFFI.Generated.AuthenticationExtensionsPaymentOutputs as GHCJS.DOM.AuthenticationExtensionsPaymentOutputs + , GHCJS.DOM.JSFFI.Generated.AuthenticatorAssertionResponse as GHCJS.DOM.AuthenticatorAssertionResponse + , GHCJS.DOM.JSFFI.Generated.AuthenticatorAttestationResponse as GHCJS.DOM.AuthenticatorAttestationResponse + , GHCJS.DOM.JSFFI.Generated.AuthenticatorResponse as GHCJS.DOM.AuthenticatorResponse + , GHCJS.DOM.JSFFI.Generated.AuthenticatorSelectionCriteria as GHCJS.DOM.AuthenticatorSelectionCriteria + , GHCJS.DOM.JSFFI.Generated.AutofillEvent as GHCJS.DOM.AutofillEvent + , GHCJS.DOM.JSFFI.Generated.AvcEncoderConfig as GHCJS.DOM.AvcEncoderConfig + , GHCJS.DOM.JSFFI.Generated.BackgroundBlur as GHCJS.DOM.BackgroundBlur + , GHCJS.DOM.JSFFI.Generated.BarProp as GHCJS.DOM.BarProp + , GHCJS.DOM.JSFFI.Generated.BaseAudioContext as GHCJS.DOM.BaseAudioContext + , GHCJS.DOM.JSFFI.Generated.BeforeUnloadEvent as GHCJS.DOM.BeforeUnloadEvent + , GHCJS.DOM.JSFFI.Generated.BiquadFilterNode as GHCJS.DOM.BiquadFilterNode + , GHCJS.DOM.JSFFI.Generated.BiquadFilterOptions as GHCJS.DOM.BiquadFilterOptions + , GHCJS.DOM.JSFFI.Generated.Blob as GHCJS.DOM.Blob + , GHCJS.DOM.JSFFI.Generated.BlobCallback as GHCJS.DOM.BlobCallback + , GHCJS.DOM.JSFFI.Generated.BlobEvent as GHCJS.DOM.BlobEvent + , GHCJS.DOM.JSFFI.Generated.BlobEventInit as GHCJS.DOM.BlobEventInit + , GHCJS.DOM.JSFFI.Generated.BlobPropertyBag as GHCJS.DOM.BlobPropertyBag + , GHCJS.DOM.JSFFI.Generated.Body as GHCJS.DOM.Body + , GHCJS.DOM.JSFFI.Generated.BroadcastChannel as GHCJS.DOM.BroadcastChannel + , GHCJS.DOM.JSFFI.Generated.BrowserBoundSignature as GHCJS.DOM.BrowserBoundSignature + , GHCJS.DOM.JSFFI.Generated.ByteLengthQueuingStrategy as GHCJS.DOM.ByteLengthQueuingStrategy + , GHCJS.DOM.JSFFI.Generated.CDATASection as GHCJS.DOM.CDATASection + , GHCJS.DOM.JSFFI.Generated.CSS as GHCJS.DOM.CSS + , GHCJS.DOM.JSFFI.Generated.CSSAnimation as GHCJS.DOM.CSSAnimation + , GHCJS.DOM.JSFFI.Generated.CSSConditionRule as GHCJS.DOM.CSSConditionRule + , GHCJS.DOM.JSFFI.Generated.CSSContainerCondition as GHCJS.DOM.CSSContainerCondition + , GHCJS.DOM.JSFFI.Generated.CSSContainerRule as GHCJS.DOM.CSSContainerRule + , GHCJS.DOM.JSFFI.Generated.CSSCounterStyleRule as GHCJS.DOM.CSSCounterStyleRule + , GHCJS.DOM.JSFFI.Generated.CSSFontFaceDescriptors as GHCJS.DOM.CSSFontFaceDescriptors + , GHCJS.DOM.JSFFI.Generated.CSSFontFaceRule as GHCJS.DOM.CSSFontFaceRule + , GHCJS.DOM.JSFFI.Generated.CSSFontFeatureValuesRule as GHCJS.DOM.CSSFontFeatureValuesRule + , GHCJS.DOM.JSFFI.Generated.CSSFontPaletteValuesRule as GHCJS.DOM.CSSFontPaletteValuesRule + , GHCJS.DOM.JSFFI.Generated.CSSGroupingRule as GHCJS.DOM.CSSGroupingRule + , GHCJS.DOM.JSFFI.Generated.CSSImageValue as GHCJS.DOM.CSSImageValue + , GHCJS.DOM.JSFFI.Generated.CSSImportRule as GHCJS.DOM.CSSImportRule + , GHCJS.DOM.JSFFI.Generated.CSSKeyframeRule as GHCJS.DOM.CSSKeyframeRule + , GHCJS.DOM.JSFFI.Generated.CSSKeyframesRule as GHCJS.DOM.CSSKeyframesRule + , GHCJS.DOM.JSFFI.Generated.CSSKeywordValue as GHCJS.DOM.CSSKeywordValue + , GHCJS.DOM.JSFFI.Generated.CSSLayerBlockRule as GHCJS.DOM.CSSLayerBlockRule + , GHCJS.DOM.JSFFI.Generated.CSSLayerStatementRule as GHCJS.DOM.CSSLayerStatementRule + , GHCJS.DOM.JSFFI.Generated.CSSMathClamp as GHCJS.DOM.CSSMathClamp + , GHCJS.DOM.JSFFI.Generated.CSSMathInvert as GHCJS.DOM.CSSMathInvert + , GHCJS.DOM.JSFFI.Generated.CSSMathMax as GHCJS.DOM.CSSMathMax + , GHCJS.DOM.JSFFI.Generated.CSSMathMin as GHCJS.DOM.CSSMathMin + , GHCJS.DOM.JSFFI.Generated.CSSMathNegate as GHCJS.DOM.CSSMathNegate + , GHCJS.DOM.JSFFI.Generated.CSSMathProduct as GHCJS.DOM.CSSMathProduct + , GHCJS.DOM.JSFFI.Generated.CSSMathSum as GHCJS.DOM.CSSMathSum + , GHCJS.DOM.JSFFI.Generated.CSSMathValue as GHCJS.DOM.CSSMathValue + , GHCJS.DOM.JSFFI.Generated.CSSMatrixComponent as GHCJS.DOM.CSSMatrixComponent + , GHCJS.DOM.JSFFI.Generated.CSSMatrixComponentOptions as GHCJS.DOM.CSSMatrixComponentOptions + , GHCJS.DOM.JSFFI.Generated.CSSMediaRule as GHCJS.DOM.CSSMediaRule + , GHCJS.DOM.JSFFI.Generated.CSSNamespaceRule as GHCJS.DOM.CSSNamespaceRule + , GHCJS.DOM.JSFFI.Generated.CSSNestedDeclarations as GHCJS.DOM.CSSNestedDeclarations + , GHCJS.DOM.JSFFI.Generated.CSSNumericArray as GHCJS.DOM.CSSNumericArray + , GHCJS.DOM.JSFFI.Generated.CSSNumericType as GHCJS.DOM.CSSNumericType + , GHCJS.DOM.JSFFI.Generated.CSSNumericValue as GHCJS.DOM.CSSNumericValue + , GHCJS.DOM.JSFFI.Generated.CSSPageDescriptors as GHCJS.DOM.CSSPageDescriptors + , GHCJS.DOM.JSFFI.Generated.CSSPageRule as GHCJS.DOM.CSSPageRule + , GHCJS.DOM.JSFFI.Generated.CSSPerspective as GHCJS.DOM.CSSPerspective + , GHCJS.DOM.JSFFI.Generated.CSSPositionTryDescriptors as GHCJS.DOM.CSSPositionTryDescriptors + , GHCJS.DOM.JSFFI.Generated.CSSPositionTryRule as GHCJS.DOM.CSSPositionTryRule + , GHCJS.DOM.JSFFI.Generated.CSSPropertyRule as GHCJS.DOM.CSSPropertyRule + , GHCJS.DOM.JSFFI.Generated.CSSRotate as GHCJS.DOM.CSSRotate + , GHCJS.DOM.JSFFI.Generated.CSSRule as GHCJS.DOM.CSSRule + , GHCJS.DOM.JSFFI.Generated.CSSRuleList as GHCJS.DOM.CSSRuleList + , GHCJS.DOM.JSFFI.Generated.CSSScale as GHCJS.DOM.CSSScale + , GHCJS.DOM.JSFFI.Generated.CSSScopeRule as GHCJS.DOM.CSSScopeRule + , GHCJS.DOM.JSFFI.Generated.CSSSkew as GHCJS.DOM.CSSSkew + , GHCJS.DOM.JSFFI.Generated.CSSSkewX as GHCJS.DOM.CSSSkewX + , GHCJS.DOM.JSFFI.Generated.CSSSkewY as GHCJS.DOM.CSSSkewY + , GHCJS.DOM.JSFFI.Generated.CSSStartingStyleRule as GHCJS.DOM.CSSStartingStyleRule + , GHCJS.DOM.JSFFI.Generated.CSSStyleDeclaration as GHCJS.DOM.CSSStyleDeclaration + , GHCJS.DOM.JSFFI.Generated.CSSStyleProperties as GHCJS.DOM.CSSStyleProperties + , GHCJS.DOM.JSFFI.Generated.CSSStyleRule as GHCJS.DOM.CSSStyleRule + , GHCJS.DOM.JSFFI.Generated.CSSStyleSheet as GHCJS.DOM.CSSStyleSheet + , GHCJS.DOM.JSFFI.Generated.CSSStyleSheetInit as GHCJS.DOM.CSSStyleSheetInit + , GHCJS.DOM.JSFFI.Generated.CSSStyleValue as GHCJS.DOM.CSSStyleValue + , GHCJS.DOM.JSFFI.Generated.CSSSupportsRule as GHCJS.DOM.CSSSupportsRule + , GHCJS.DOM.JSFFI.Generated.CSSTransformComponent as GHCJS.DOM.CSSTransformComponent + , GHCJS.DOM.JSFFI.Generated.CSSTransformValue as GHCJS.DOM.CSSTransformValue + , GHCJS.DOM.JSFFI.Generated.CSSTransition as GHCJS.DOM.CSSTransition + , GHCJS.DOM.JSFFI.Generated.CSSTranslate as GHCJS.DOM.CSSTranslate + , GHCJS.DOM.JSFFI.Generated.CSSUnitValue as GHCJS.DOM.CSSUnitValue + , GHCJS.DOM.JSFFI.Generated.CSSUnparsedValue as GHCJS.DOM.CSSUnparsedValue + , GHCJS.DOM.JSFFI.Generated.CSSVariableReferenceValue as GHCJS.DOM.CSSVariableReferenceValue + , GHCJS.DOM.JSFFI.Generated.CSSViewTransitionRule as GHCJS.DOM.CSSViewTransitionRule + , GHCJS.DOM.JSFFI.Generated.Cache as GHCJS.DOM.Cache + , GHCJS.DOM.JSFFI.Generated.CacheQueryOptions as GHCJS.DOM.CacheQueryOptions + , GHCJS.DOM.JSFFI.Generated.CacheStorage as GHCJS.DOM.CacheStorage + , GHCJS.DOM.JSFFI.Generated.CanvasCaptureMediaStreamTrack as GHCJS.DOM.CanvasCaptureMediaStreamTrack + , GHCJS.DOM.JSFFI.Generated.CanvasCompositing as GHCJS.DOM.CanvasCompositing + , GHCJS.DOM.JSFFI.Generated.CanvasDrawImage as GHCJS.DOM.CanvasDrawImage + , GHCJS.DOM.JSFFI.Generated.CanvasDrawPath as GHCJS.DOM.CanvasDrawPath + , GHCJS.DOM.JSFFI.Generated.CanvasFillStrokeStyles as GHCJS.DOM.CanvasFillStrokeStyles + , GHCJS.DOM.JSFFI.Generated.CanvasFilters as GHCJS.DOM.CanvasFilters + , GHCJS.DOM.JSFFI.Generated.CanvasGradient as GHCJS.DOM.CanvasGradient + , GHCJS.DOM.JSFFI.Generated.CanvasImageData as GHCJS.DOM.CanvasImageData + , GHCJS.DOM.JSFFI.Generated.CanvasImageSmoothing as GHCJS.DOM.CanvasImageSmoothing + , GHCJS.DOM.JSFFI.Generated.CanvasPath as GHCJS.DOM.CanvasPath + , GHCJS.DOM.JSFFI.Generated.CanvasPathDrawingStyles as GHCJS.DOM.CanvasPathDrawingStyles + , GHCJS.DOM.JSFFI.Generated.CanvasPattern as GHCJS.DOM.CanvasPattern + , GHCJS.DOM.JSFFI.Generated.CanvasRect as GHCJS.DOM.CanvasRect + , GHCJS.DOM.JSFFI.Generated.CanvasRenderingContext2D as GHCJS.DOM.CanvasRenderingContext2D + , GHCJS.DOM.JSFFI.Generated.CanvasRenderingContext2DSettings as GHCJS.DOM.CanvasRenderingContext2DSettings + , GHCJS.DOM.JSFFI.Generated.CanvasSettings as GHCJS.DOM.CanvasSettings + , GHCJS.DOM.JSFFI.Generated.CanvasShadowStyles as GHCJS.DOM.CanvasShadowStyles + , GHCJS.DOM.JSFFI.Generated.CanvasState as GHCJS.DOM.CanvasState + , GHCJS.DOM.JSFFI.Generated.CanvasText as GHCJS.DOM.CanvasText + , GHCJS.DOM.JSFFI.Generated.CanvasTextDrawingStyles as GHCJS.DOM.CanvasTextDrawingStyles + , GHCJS.DOM.JSFFI.Generated.CanvasTransform as GHCJS.DOM.CanvasTransform + , GHCJS.DOM.JSFFI.Generated.CanvasUserInterface as GHCJS.DOM.CanvasUserInterface + , GHCJS.DOM.JSFFI.Generated.CaptureController as GHCJS.DOM.CaptureController + , GHCJS.DOM.JSFFI.Generated.CaretPosition as GHCJS.DOM.CaretPosition + , GHCJS.DOM.JSFFI.Generated.CaretPositionFromPointOptions as GHCJS.DOM.CaretPositionFromPointOptions + , GHCJS.DOM.JSFFI.Generated.ChannelMergerNode as GHCJS.DOM.ChannelMergerNode + , GHCJS.DOM.JSFFI.Generated.ChannelMergerOptions as GHCJS.DOM.ChannelMergerOptions + , GHCJS.DOM.JSFFI.Generated.ChannelSplitterNode as GHCJS.DOM.ChannelSplitterNode + , GHCJS.DOM.JSFFI.Generated.ChannelSplitterOptions as GHCJS.DOM.ChannelSplitterOptions + , GHCJS.DOM.JSFFI.Generated.ChapterInformationInit as GHCJS.DOM.ChapterInformationInit + , GHCJS.DOM.JSFFI.Generated.CharacterData as GHCJS.DOM.CharacterData + , GHCJS.DOM.JSFFI.Generated.CheckVisibilityOptions as GHCJS.DOM.CheckVisibilityOptions + , GHCJS.DOM.JSFFI.Generated.ChildNode as GHCJS.DOM.ChildNode + , GHCJS.DOM.JSFFI.Generated.Client as GHCJS.DOM.Client + , GHCJS.DOM.JSFFI.Generated.ClientQueryOptions as GHCJS.DOM.ClientQueryOptions + , GHCJS.DOM.JSFFI.Generated.Clients as GHCJS.DOM.Clients + , GHCJS.DOM.JSFFI.Generated.Clipboard as GHCJS.DOM.Clipboard + , GHCJS.DOM.JSFFI.Generated.ClipboardChangeEvent as GHCJS.DOM.ClipboardChangeEvent + , GHCJS.DOM.JSFFI.Generated.ClipboardEvent as GHCJS.DOM.ClipboardEvent + , GHCJS.DOM.JSFFI.Generated.ClipboardEventInit as GHCJS.DOM.ClipboardEventInit + , GHCJS.DOM.JSFFI.Generated.ClipboardItem as GHCJS.DOM.ClipboardItem + , GHCJS.DOM.JSFFI.Generated.ClipboardItemOptions as GHCJS.DOM.ClipboardItemOptions + , GHCJS.DOM.JSFFI.Generated.ClipboardUnsanitizedFormats as GHCJS.DOM.ClipboardUnsanitizedFormats + , GHCJS.DOM.JSFFI.Generated.CloseEvent as GHCJS.DOM.CloseEvent + , GHCJS.DOM.JSFFI.Generated.CloseEventInit as GHCJS.DOM.CloseEventInit + , GHCJS.DOM.JSFFI.Generated.CloseWatcher as GHCJS.DOM.CloseWatcher + , GHCJS.DOM.JSFFI.Generated.CloseWatcherOptions as GHCJS.DOM.CloseWatcherOptions + , GHCJS.DOM.JSFFI.Generated.CommandEvent as GHCJS.DOM.CommandEvent + , GHCJS.DOM.JSFFI.Generated.CommandEventInit as GHCJS.DOM.CommandEventInit + , GHCJS.DOM.JSFFI.Generated.Comment as GHCJS.DOM.Comment + , GHCJS.DOM.JSFFI.Generated.CompositionEvent as GHCJS.DOM.CompositionEvent + , GHCJS.DOM.JSFFI.Generated.CompositionEventInit as GHCJS.DOM.CompositionEventInit + , GHCJS.DOM.JSFFI.Generated.CompressionStream as GHCJS.DOM.CompressionStream + , GHCJS.DOM.JSFFI.Generated.ComputedEffectTiming as GHCJS.DOM.ComputedEffectTiming + , GHCJS.DOM.JSFFI.Generated.Console as GHCJS.DOM.Console + , GHCJS.DOM.JSFFI.Generated.ConstantSourceNode as GHCJS.DOM.ConstantSourceNode + , GHCJS.DOM.JSFFI.Generated.ConstantSourceOptions as GHCJS.DOM.ConstantSourceOptions + , GHCJS.DOM.JSFFI.Generated.ConstrainBooleanOrDOMStringParameters as GHCJS.DOM.ConstrainBooleanOrDOMStringParameters + , GHCJS.DOM.JSFFI.Generated.ConstrainBooleanParameters as GHCJS.DOM.ConstrainBooleanParameters + , GHCJS.DOM.JSFFI.Generated.ConstrainDOMStringParameters as GHCJS.DOM.ConstrainDOMStringParameters + , GHCJS.DOM.JSFFI.Generated.ConstrainDoubleRange as GHCJS.DOM.ConstrainDoubleRange + , GHCJS.DOM.JSFFI.Generated.ConstrainPoint2DParameters as GHCJS.DOM.ConstrainPoint2DParameters + , GHCJS.DOM.JSFFI.Generated.ConstrainULongRange as GHCJS.DOM.ConstrainULongRange + , GHCJS.DOM.JSFFI.Generated.ContactAddress as GHCJS.DOM.ContactAddress + , GHCJS.DOM.JSFFI.Generated.ContentVisibilityAutoStateChangeEvent as GHCJS.DOM.ContentVisibilityAutoStateChangeEvent + , GHCJS.DOM.JSFFI.Generated.ContentVisibilityAutoStateChangeEventInit as GHCJS.DOM.ContentVisibilityAutoStateChangeEventInit + , GHCJS.DOM.JSFFI.Generated.ConvolverNode as GHCJS.DOM.ConvolverNode + , GHCJS.DOM.JSFFI.Generated.ConvolverOptions as GHCJS.DOM.ConvolverOptions + , GHCJS.DOM.JSFFI.Generated.CookieChangeEvent as GHCJS.DOM.CookieChangeEvent + , GHCJS.DOM.JSFFI.Generated.CookieChangeEventInit as GHCJS.DOM.CookieChangeEventInit + , GHCJS.DOM.JSFFI.Generated.CookieInit as GHCJS.DOM.CookieInit + , GHCJS.DOM.JSFFI.Generated.CookieListItem as GHCJS.DOM.CookieListItem + , GHCJS.DOM.JSFFI.Generated.CookieStore as GHCJS.DOM.CookieStore + , GHCJS.DOM.JSFFI.Generated.CookieStoreDeleteOptions as GHCJS.DOM.CookieStoreDeleteOptions + , GHCJS.DOM.JSFFI.Generated.CookieStoreGetOptions as GHCJS.DOM.CookieStoreGetOptions + , GHCJS.DOM.JSFFI.Generated.CookieStoreManager as GHCJS.DOM.CookieStoreManager + , GHCJS.DOM.JSFFI.Generated.CountQueuingStrategy as GHCJS.DOM.CountQueuingStrategy + , GHCJS.DOM.JSFFI.Generated.CreateHTMLCallback as GHCJS.DOM.CreateHTMLCallback + , GHCJS.DOM.JSFFI.Generated.CreateParserOptionsCallback as GHCJS.DOM.CreateParserOptionsCallback + , GHCJS.DOM.JSFFI.Generated.CreateScriptCallback as GHCJS.DOM.CreateScriptCallback + , GHCJS.DOM.JSFFI.Generated.CreateScriptURLCallback as GHCJS.DOM.CreateScriptURLCallback + , GHCJS.DOM.JSFFI.Generated.Credential as GHCJS.DOM.Credential + , GHCJS.DOM.JSFFI.Generated.CredentialCreationOptions as GHCJS.DOM.CredentialCreationOptions + , GHCJS.DOM.JSFFI.Generated.CredentialData as GHCJS.DOM.CredentialData + , GHCJS.DOM.JSFFI.Generated.CredentialPropertiesOutput as GHCJS.DOM.CredentialPropertiesOutput + , GHCJS.DOM.JSFFI.Generated.CredentialRequestOptions as GHCJS.DOM.CredentialRequestOptions + , GHCJS.DOM.JSFFI.Generated.CredentialsContainer as GHCJS.DOM.CredentialsContainer + , GHCJS.DOM.JSFFI.Generated.Crypto as GHCJS.DOM.Crypto + , GHCJS.DOM.JSFFI.Generated.CryptoKey as GHCJS.DOM.CryptoKey + , GHCJS.DOM.JSFFI.Generated.CryptoKeyPair as GHCJS.DOM.CryptoKeyPair + , GHCJS.DOM.JSFFI.Generated.CurrentUserDetailsOptions as GHCJS.DOM.CurrentUserDetailsOptions + , GHCJS.DOM.JSFFI.Generated.CustomElementConstructor as GHCJS.DOM.CustomElementConstructor + , GHCJS.DOM.JSFFI.Generated.CustomElementRegistry as GHCJS.DOM.CustomElementRegistry + , GHCJS.DOM.JSFFI.Generated.CustomEvent as GHCJS.DOM.CustomEvent + , GHCJS.DOM.JSFFI.Generated.CustomEventInit as GHCJS.DOM.CustomEventInit + , GHCJS.DOM.JSFFI.Generated.CustomStateSet as GHCJS.DOM.CustomStateSet + , GHCJS.DOM.JSFFI.Generated.DOMException as GHCJS.DOM.DOMException + , GHCJS.DOM.JSFFI.Generated.DOMImplementation as GHCJS.DOM.DOMImplementation + , GHCJS.DOM.JSFFI.Generated.DOMMatrix as GHCJS.DOM.DOMMatrix + , GHCJS.DOM.JSFFI.Generated.DOMMatrix2DInit as GHCJS.DOM.DOMMatrix2DInit + , GHCJS.DOM.JSFFI.Generated.DOMMatrixInit as GHCJS.DOM.DOMMatrixInit + , GHCJS.DOM.JSFFI.Generated.DOMMatrixReadOnly as GHCJS.DOM.DOMMatrixReadOnly + , GHCJS.DOM.JSFFI.Generated.DOMParser as GHCJS.DOM.DOMParser + , GHCJS.DOM.JSFFI.Generated.DOMPoint as GHCJS.DOM.DOMPoint + , GHCJS.DOM.JSFFI.Generated.DOMPointInit as GHCJS.DOM.DOMPointInit + , GHCJS.DOM.JSFFI.Generated.DOMPointReadOnly as GHCJS.DOM.DOMPointReadOnly + , GHCJS.DOM.JSFFI.Generated.DOMQuad as GHCJS.DOM.DOMQuad + , GHCJS.DOM.JSFFI.Generated.DOMQuadInit as GHCJS.DOM.DOMQuadInit + , GHCJS.DOM.JSFFI.Generated.DOMRect as GHCJS.DOM.DOMRect + , GHCJS.DOM.JSFFI.Generated.DOMRectInit as GHCJS.DOM.DOMRectInit + , GHCJS.DOM.JSFFI.Generated.DOMRectList as GHCJS.DOM.DOMRectList + , GHCJS.DOM.JSFFI.Generated.DOMRectReadOnly as GHCJS.DOM.DOMRectReadOnly + , GHCJS.DOM.JSFFI.Generated.DOMStringList as GHCJS.DOM.DOMStringList + , GHCJS.DOM.JSFFI.Generated.DOMStringMap as GHCJS.DOM.DOMStringMap + , GHCJS.DOM.JSFFI.Generated.DOMTokenList as GHCJS.DOM.DOMTokenList + , GHCJS.DOM.JSFFI.Generated.DataCue as GHCJS.DOM.DataCue + , GHCJS.DOM.JSFFI.Generated.DataTransfer as GHCJS.DOM.DataTransfer + , GHCJS.DOM.JSFFI.Generated.DataTransferItem as GHCJS.DOM.DataTransferItem + , GHCJS.DOM.JSFFI.Generated.DataTransferItemList as GHCJS.DOM.DataTransferItemList + , GHCJS.DOM.JSFFI.Generated.DecodeErrorCallback as GHCJS.DOM.DecodeErrorCallback + , GHCJS.DOM.JSFFI.Generated.DecodeSuccessCallback as GHCJS.DOM.DecodeSuccessCallback + , GHCJS.DOM.JSFFI.Generated.DecompressionStream as GHCJS.DOM.DecompressionStream + , GHCJS.DOM.JSFFI.Generated.DedicatedWorkerGlobalScope as GHCJS.DOM.DedicatedWorkerGlobalScope + , GHCJS.DOM.JSFFI.Generated.DelayNode as GHCJS.DOM.DelayNode + , GHCJS.DOM.JSFFI.Generated.DelayOptions as GHCJS.DOM.DelayOptions + , GHCJS.DOM.JSFFI.Generated.DeviceChangeEvent as GHCJS.DOM.DeviceChangeEvent + , GHCJS.DOM.JSFFI.Generated.DeviceMotionEvent as GHCJS.DOM.DeviceMotionEvent + , GHCJS.DOM.JSFFI.Generated.DeviceMotionEventAcceleration as GHCJS.DOM.DeviceMotionEventAcceleration + , GHCJS.DOM.JSFFI.Generated.DeviceMotionEventAccelerationInit as GHCJS.DOM.DeviceMotionEventAccelerationInit + , GHCJS.DOM.JSFFI.Generated.DeviceMotionEventInit as GHCJS.DOM.DeviceMotionEventInit + , GHCJS.DOM.JSFFI.Generated.DeviceMotionEventRotationRate as GHCJS.DOM.DeviceMotionEventRotationRate + , GHCJS.DOM.JSFFI.Generated.DeviceMotionEventRotationRateInit as GHCJS.DOM.DeviceMotionEventRotationRateInit + , GHCJS.DOM.JSFFI.Generated.DeviceOrientationEvent as GHCJS.DOM.DeviceOrientationEvent + , GHCJS.DOM.JSFFI.Generated.DeviceOrientationEventInit as GHCJS.DOM.DeviceOrientationEventInit + , GHCJS.DOM.JSFFI.Generated.DigitalCredential as GHCJS.DOM.DigitalCredential + , GHCJS.DOM.JSFFI.Generated.DigitalCredentialCreateRequest as GHCJS.DOM.DigitalCredentialCreateRequest + , GHCJS.DOM.JSFFI.Generated.DigitalCredentialCreationOptions as GHCJS.DOM.DigitalCredentialCreationOptions + , GHCJS.DOM.JSFFI.Generated.DigitalCredentialGetRequest as GHCJS.DOM.DigitalCredentialGetRequest + , GHCJS.DOM.JSFFI.Generated.DigitalCredentialRequestOptions as GHCJS.DOM.DigitalCredentialRequestOptions + , GHCJS.DOM.JSFFI.Generated.DisplayMediaStreamOptions as GHCJS.DOM.DisplayMediaStreamOptions + , GHCJS.DOM.JSFFI.Generated.Document as GHCJS.DOM.Document + , GHCJS.DOM.JSFFI.Generated.DocumentFragment as GHCJS.DOM.DocumentFragment + , GHCJS.DOM.JSFFI.Generated.DocumentOrShadowRoot as GHCJS.DOM.DocumentOrShadowRoot + , GHCJS.DOM.JSFFI.Generated.DocumentPictureInPicture as GHCJS.DOM.DocumentPictureInPicture + , GHCJS.DOM.JSFFI.Generated.DocumentPictureInPictureEvent as GHCJS.DOM.DocumentPictureInPictureEvent + , GHCJS.DOM.JSFFI.Generated.DocumentPictureInPictureEventInit as GHCJS.DOM.DocumentPictureInPictureEventInit + , GHCJS.DOM.JSFFI.Generated.DocumentPictureInPictureOptions as GHCJS.DOM.DocumentPictureInPictureOptions + , GHCJS.DOM.JSFFI.Generated.DocumentTimeline as GHCJS.DOM.DocumentTimeline + , GHCJS.DOM.JSFFI.Generated.DocumentTimelineOptions as GHCJS.DOM.DocumentTimelineOptions + , GHCJS.DOM.JSFFI.Generated.DocumentType as GHCJS.DOM.DocumentType + , GHCJS.DOM.JSFFI.Generated.DoubleRange as GHCJS.DOM.DoubleRange + , GHCJS.DOM.JSFFI.Generated.DragEvent as GHCJS.DOM.DragEvent + , GHCJS.DOM.JSFFI.Generated.DragEventInit as GHCJS.DOM.DragEventInit + , GHCJS.DOM.JSFFI.Generated.DynamicsCompressorNode as GHCJS.DOM.DynamicsCompressorNode + , GHCJS.DOM.JSFFI.Generated.DynamicsCompressorOptions as GHCJS.DOM.DynamicsCompressorOptions + , GHCJS.DOM.JSFFI.Generated.EXT_blend_minmax as GHCJS.DOM.EXT_blend_minmax + , GHCJS.DOM.JSFFI.Generated.EXT_clip_control as GHCJS.DOM.EXT_clip_control + , GHCJS.DOM.JSFFI.Generated.EXT_color_buffer_float as GHCJS.DOM.EXT_color_buffer_float + , GHCJS.DOM.JSFFI.Generated.EXT_color_buffer_half_float as GHCJS.DOM.EXT_color_buffer_half_float + , GHCJS.DOM.JSFFI.Generated.EXT_float_blend as GHCJS.DOM.EXT_float_blend + , GHCJS.DOM.JSFFI.Generated.EXT_frag_depth as GHCJS.DOM.EXT_frag_depth + , GHCJS.DOM.JSFFI.Generated.EXT_polygon_offset_clamp as GHCJS.DOM.EXT_polygon_offset_clamp + , GHCJS.DOM.JSFFI.Generated.EXT_sRGB as GHCJS.DOM.EXT_sRGB + , GHCJS.DOM.JSFFI.Generated.EXT_shader_texture_lod as GHCJS.DOM.EXT_shader_texture_lod + , GHCJS.DOM.JSFFI.Generated.EXT_texture_compression_bptc as GHCJS.DOM.EXT_texture_compression_bptc + , GHCJS.DOM.JSFFI.Generated.EXT_texture_compression_rgtc as GHCJS.DOM.EXT_texture_compression_rgtc + , GHCJS.DOM.JSFFI.Generated.EXT_texture_filter_anisotropic as GHCJS.DOM.EXT_texture_filter_anisotropic + , GHCJS.DOM.JSFFI.Generated.EXT_texture_mirror_clamp_to_edge as GHCJS.DOM.EXT_texture_mirror_clamp_to_edge + , GHCJS.DOM.JSFFI.Generated.EXT_texture_norm16 as GHCJS.DOM.EXT_texture_norm16 + , GHCJS.DOM.JSFFI.Generated.EffectTiming as GHCJS.DOM.EffectTiming + , GHCJS.DOM.JSFFI.Generated.Element as GHCJS.DOM.Element + , GHCJS.DOM.JSFFI.Generated.ElementCSSInlineStyle as GHCJS.DOM.ElementCSSInlineStyle + , GHCJS.DOM.JSFFI.Generated.ElementContentEditable as GHCJS.DOM.ElementContentEditable + , GHCJS.DOM.JSFFI.Generated.ElementCreationOptions as GHCJS.DOM.ElementCreationOptions + , GHCJS.DOM.JSFFI.Generated.ElementDefinitionOptions as GHCJS.DOM.ElementDefinitionOptions + , GHCJS.DOM.JSFFI.Generated.ElementInternals as GHCJS.DOM.ElementInternals + , GHCJS.DOM.JSFFI.Generated.EncodedAudioChunk as GHCJS.DOM.EncodedAudioChunk + , GHCJS.DOM.JSFFI.Generated.EncodedAudioChunkInit as GHCJS.DOM.EncodedAudioChunkInit + , GHCJS.DOM.JSFFI.Generated.EncodedAudioChunkMetadata as GHCJS.DOM.EncodedAudioChunkMetadata + , GHCJS.DOM.JSFFI.Generated.EncodedAudioChunkOutputCallback as GHCJS.DOM.EncodedAudioChunkOutputCallback + , GHCJS.DOM.JSFFI.Generated.EncodedVideoChunk as GHCJS.DOM.EncodedVideoChunk + , GHCJS.DOM.JSFFI.Generated.EncodedVideoChunkInit as GHCJS.DOM.EncodedVideoChunkInit + , GHCJS.DOM.JSFFI.Generated.EncodedVideoChunkMetadata as GHCJS.DOM.EncodedVideoChunkMetadata + , GHCJS.DOM.JSFFI.Generated.EncodedVideoChunkOutputCallback as GHCJS.DOM.EncodedVideoChunkOutputCallback + , GHCJS.DOM.JSFFI.Generated.ErrorCallback as GHCJS.DOM.ErrorCallback + , GHCJS.DOM.JSFFI.Generated.ErrorEvent as GHCJS.DOM.ErrorEvent + , GHCJS.DOM.JSFFI.Generated.ErrorEventInit as GHCJS.DOM.ErrorEventInit + , GHCJS.DOM.JSFFI.Generated.Event as GHCJS.DOM.Event + , GHCJS.DOM.JSFFI.Generated.EventCounts as GHCJS.DOM.EventCounts + , GHCJS.DOM.JSFFI.Generated.EventInit as GHCJS.DOM.EventInit + , GHCJS.DOM.JSFFI.Generated.EventListenerOptions as GHCJS.DOM.EventListenerOptions + , GHCJS.DOM.JSFFI.Generated.EventModifierInit as GHCJS.DOM.EventModifierInit + , GHCJS.DOM.JSFFI.Generated.EventSource as GHCJS.DOM.EventSource + , GHCJS.DOM.JSFFI.Generated.EventSourceInit as GHCJS.DOM.EventSourceInit + , GHCJS.DOM.JSFFI.Generated.EventTarget as GHCJS.DOM.EventTarget + , GHCJS.DOM.JSFFI.Generated.ExtendableCookieChangeEvent as GHCJS.DOM.ExtendableCookieChangeEvent + , GHCJS.DOM.JSFFI.Generated.ExtendableCookieChangeEventInit as GHCJS.DOM.ExtendableCookieChangeEventInit + , GHCJS.DOM.JSFFI.Generated.ExtendableEvent as GHCJS.DOM.ExtendableEvent + , GHCJS.DOM.JSFFI.Generated.ExtendableEventInit as GHCJS.DOM.ExtendableEventInit + , GHCJS.DOM.JSFFI.Generated.ExtendableMessageEvent as GHCJS.DOM.ExtendableMessageEvent + , GHCJS.DOM.JSFFI.Generated.ExtendableMessageEventInit as GHCJS.DOM.ExtendableMessageEventInit + , GHCJS.DOM.JSFFI.Generated.External as GHCJS.DOM.External + , GHCJS.DOM.JSFFI.Generated.FederatedCredentialInit as GHCJS.DOM.FederatedCredentialInit + , GHCJS.DOM.JSFFI.Generated.FederatedCredentialRequestOptions as GHCJS.DOM.FederatedCredentialRequestOptions + , GHCJS.DOM.JSFFI.Generated.FetchEvent as GHCJS.DOM.FetchEvent + , GHCJS.DOM.JSFFI.Generated.FetchEventInit as GHCJS.DOM.FetchEventInit + , GHCJS.DOM.JSFFI.Generated.File as GHCJS.DOM.File + , GHCJS.DOM.JSFFI.Generated.FileCallback as GHCJS.DOM.FileCallback + , GHCJS.DOM.JSFFI.Generated.FileList as GHCJS.DOM.FileList + , GHCJS.DOM.JSFFI.Generated.FilePropertyBag as GHCJS.DOM.FilePropertyBag + , GHCJS.DOM.JSFFI.Generated.FileReader as GHCJS.DOM.FileReader + , GHCJS.DOM.JSFFI.Generated.FileReaderSync as GHCJS.DOM.FileReaderSync + , GHCJS.DOM.JSFFI.Generated.FileSystem as GHCJS.DOM.FileSystem + , GHCJS.DOM.JSFFI.Generated.FileSystemCreateWritableOptions as GHCJS.DOM.FileSystemCreateWritableOptions + , GHCJS.DOM.JSFFI.Generated.FileSystemDirectoryEntry as GHCJS.DOM.FileSystemDirectoryEntry + , GHCJS.DOM.JSFFI.Generated.FileSystemDirectoryHandle as GHCJS.DOM.FileSystemDirectoryHandle + , GHCJS.DOM.JSFFI.Generated.FileSystemDirectoryReader as GHCJS.DOM.FileSystemDirectoryReader + , GHCJS.DOM.JSFFI.Generated.FileSystemEntriesCallback as GHCJS.DOM.FileSystemEntriesCallback + , GHCJS.DOM.JSFFI.Generated.FileSystemEntry as GHCJS.DOM.FileSystemEntry + , GHCJS.DOM.JSFFI.Generated.FileSystemEntryCallback as GHCJS.DOM.FileSystemEntryCallback + , GHCJS.DOM.JSFFI.Generated.FileSystemFileEntry as GHCJS.DOM.FileSystemFileEntry + , GHCJS.DOM.JSFFI.Generated.FileSystemFileHandle as GHCJS.DOM.FileSystemFileHandle + , GHCJS.DOM.JSFFI.Generated.FileSystemFlags as GHCJS.DOM.FileSystemFlags + , GHCJS.DOM.JSFFI.Generated.FileSystemGetDirectoryOptions as GHCJS.DOM.FileSystemGetDirectoryOptions + , GHCJS.DOM.JSFFI.Generated.FileSystemGetFileOptions as GHCJS.DOM.FileSystemGetFileOptions + , GHCJS.DOM.JSFFI.Generated.FileSystemHandle as GHCJS.DOM.FileSystemHandle + , GHCJS.DOM.JSFFI.Generated.FileSystemReadWriteOptions as GHCJS.DOM.FileSystemReadWriteOptions + , GHCJS.DOM.JSFFI.Generated.FileSystemRemoveOptions as GHCJS.DOM.FileSystemRemoveOptions + , GHCJS.DOM.JSFFI.Generated.FileSystemSyncAccessHandle as GHCJS.DOM.FileSystemSyncAccessHandle + , GHCJS.DOM.JSFFI.Generated.FileSystemWritableFileStream as GHCJS.DOM.FileSystemWritableFileStream + , GHCJS.DOM.JSFFI.Generated.FlacEncoderConfig as GHCJS.DOM.FlacEncoderConfig + , GHCJS.DOM.JSFFI.Generated.FocusEvent as GHCJS.DOM.FocusEvent + , GHCJS.DOM.JSFFI.Generated.FocusEventInit as GHCJS.DOM.FocusEventInit + , GHCJS.DOM.JSFFI.Generated.FocusOptions as GHCJS.DOM.FocusOptions + , GHCJS.DOM.JSFFI.Generated.FontFace as GHCJS.DOM.FontFace + , GHCJS.DOM.JSFFI.Generated.FontFaceDescriptors as GHCJS.DOM.FontFaceDescriptors + , GHCJS.DOM.JSFFI.Generated.FontFaceSet as GHCJS.DOM.FontFaceSet + , GHCJS.DOM.JSFFI.Generated.FontFaceSetLoadEvent as GHCJS.DOM.FontFaceSetLoadEvent + , GHCJS.DOM.JSFFI.Generated.FontFaceSetLoadEventInit as GHCJS.DOM.FontFaceSetLoadEventInit + , GHCJS.DOM.JSFFI.Generated.FontFaceSource as GHCJS.DOM.FontFaceSource + , GHCJS.DOM.JSFFI.Generated.FormData as GHCJS.DOM.FormData + , GHCJS.DOM.JSFFI.Generated.FormDataEvent as GHCJS.DOM.FormDataEvent + , GHCJS.DOM.JSFFI.Generated.FormDataEventInit as GHCJS.DOM.FormDataEventInit + , GHCJS.DOM.JSFFI.Generated.FragmentDirective as GHCJS.DOM.FragmentDirective + , GHCJS.DOM.JSFFI.Generated.FrameRequestCallback as GHCJS.DOM.FrameRequestCallback + , GHCJS.DOM.JSFFI.Generated.FullscreenOptions as GHCJS.DOM.FullscreenOptions + , GHCJS.DOM.JSFFI.Generated.FunctionStringCallback as GHCJS.DOM.FunctionStringCallback + , GHCJS.DOM.JSFFI.Generated.GPU as GHCJS.DOM.GPU + , GHCJS.DOM.JSFFI.Generated.GPUAdapter as GHCJS.DOM.GPUAdapter + , GHCJS.DOM.JSFFI.Generated.GPUAdapterInfo as GHCJS.DOM.GPUAdapterInfo + , GHCJS.DOM.JSFFI.Generated.GPUBindGroup as GHCJS.DOM.GPUBindGroup + , GHCJS.DOM.JSFFI.Generated.GPUBindGroupDescriptor as GHCJS.DOM.GPUBindGroupDescriptor + , GHCJS.DOM.JSFFI.Generated.GPUBindGroupEntry as GHCJS.DOM.GPUBindGroupEntry + , GHCJS.DOM.JSFFI.Generated.GPUBindGroupLayout as GHCJS.DOM.GPUBindGroupLayout + , GHCJS.DOM.JSFFI.Generated.GPUBindGroupLayoutDescriptor as GHCJS.DOM.GPUBindGroupLayoutDescriptor + , GHCJS.DOM.JSFFI.Generated.GPUBindGroupLayoutEntry as GHCJS.DOM.GPUBindGroupLayoutEntry + , GHCJS.DOM.JSFFI.Generated.GPUBindingCommandsMixin as GHCJS.DOM.GPUBindingCommandsMixin + , GHCJS.DOM.JSFFI.Generated.GPUBlendComponent as GHCJS.DOM.GPUBlendComponent + , GHCJS.DOM.JSFFI.Generated.GPUBlendState as GHCJS.DOM.GPUBlendState + , GHCJS.DOM.JSFFI.Generated.GPUBuffer as GHCJS.DOM.GPUBuffer + , GHCJS.DOM.JSFFI.Generated.GPUBufferBinding as GHCJS.DOM.GPUBufferBinding + , GHCJS.DOM.JSFFI.Generated.GPUBufferBindingLayout as GHCJS.DOM.GPUBufferBindingLayout + , GHCJS.DOM.JSFFI.Generated.GPUBufferDescriptor as GHCJS.DOM.GPUBufferDescriptor + , GHCJS.DOM.JSFFI.Generated.GPUCanvasConfiguration as GHCJS.DOM.GPUCanvasConfiguration + , GHCJS.DOM.JSFFI.Generated.GPUCanvasContext as GHCJS.DOM.GPUCanvasContext + , GHCJS.DOM.JSFFI.Generated.GPUCanvasToneMapping as GHCJS.DOM.GPUCanvasToneMapping + , GHCJS.DOM.JSFFI.Generated.GPUColorDict as GHCJS.DOM.GPUColorDict + , GHCJS.DOM.JSFFI.Generated.GPUColorTargetState as GHCJS.DOM.GPUColorTargetState + , GHCJS.DOM.JSFFI.Generated.GPUCommandBuffer as GHCJS.DOM.GPUCommandBuffer + , GHCJS.DOM.JSFFI.Generated.GPUCommandBufferDescriptor as GHCJS.DOM.GPUCommandBufferDescriptor + , GHCJS.DOM.JSFFI.Generated.GPUCommandEncoder as GHCJS.DOM.GPUCommandEncoder + , GHCJS.DOM.JSFFI.Generated.GPUCommandEncoderDescriptor as GHCJS.DOM.GPUCommandEncoderDescriptor + , GHCJS.DOM.JSFFI.Generated.GPUCompilationInfo as GHCJS.DOM.GPUCompilationInfo + , GHCJS.DOM.JSFFI.Generated.GPUCompilationMessage as GHCJS.DOM.GPUCompilationMessage + , GHCJS.DOM.JSFFI.Generated.GPUComputePassDescriptor as GHCJS.DOM.GPUComputePassDescriptor + , GHCJS.DOM.JSFFI.Generated.GPUComputePassEncoder as GHCJS.DOM.GPUComputePassEncoder + , GHCJS.DOM.JSFFI.Generated.GPUComputePassTimestampWrites as GHCJS.DOM.GPUComputePassTimestampWrites + , GHCJS.DOM.JSFFI.Generated.GPUComputePipeline as GHCJS.DOM.GPUComputePipeline + , GHCJS.DOM.JSFFI.Generated.GPUComputePipelineDescriptor as GHCJS.DOM.GPUComputePipelineDescriptor + , GHCJS.DOM.JSFFI.Generated.GPUCopyExternalImageDestInfo as GHCJS.DOM.GPUCopyExternalImageDestInfo + , GHCJS.DOM.JSFFI.Generated.GPUCopyExternalImageSourceInfo as GHCJS.DOM.GPUCopyExternalImageSourceInfo + , GHCJS.DOM.JSFFI.Generated.GPUDebugCommandsMixin as GHCJS.DOM.GPUDebugCommandsMixin + , GHCJS.DOM.JSFFI.Generated.GPUDepthStencilState as GHCJS.DOM.GPUDepthStencilState + , GHCJS.DOM.JSFFI.Generated.GPUDevice as GHCJS.DOM.GPUDevice + , GHCJS.DOM.JSFFI.Generated.GPUDeviceDescriptor as GHCJS.DOM.GPUDeviceDescriptor + , GHCJS.DOM.JSFFI.Generated.GPUDeviceLostInfo as GHCJS.DOM.GPUDeviceLostInfo + , GHCJS.DOM.JSFFI.Generated.GPUError as GHCJS.DOM.GPUError + , GHCJS.DOM.JSFFI.Generated.GPUExtent3DDict as GHCJS.DOM.GPUExtent3DDict + , GHCJS.DOM.JSFFI.Generated.GPUExternalTexture as GHCJS.DOM.GPUExternalTexture + , GHCJS.DOM.JSFFI.Generated.GPUExternalTextureBindingLayout as GHCJS.DOM.GPUExternalTextureBindingLayout + , GHCJS.DOM.JSFFI.Generated.GPUExternalTextureDescriptor as GHCJS.DOM.GPUExternalTextureDescriptor + , GHCJS.DOM.JSFFI.Generated.GPUFragmentState as GHCJS.DOM.GPUFragmentState + , GHCJS.DOM.JSFFI.Generated.GPUInternalError as GHCJS.DOM.GPUInternalError + , GHCJS.DOM.JSFFI.Generated.GPUMultisampleState as GHCJS.DOM.GPUMultisampleState + , GHCJS.DOM.JSFFI.Generated.GPUObjectBase as GHCJS.DOM.GPUObjectBase + , GHCJS.DOM.JSFFI.Generated.GPUObjectDescriptorBase as GHCJS.DOM.GPUObjectDescriptorBase + , GHCJS.DOM.JSFFI.Generated.GPUOrigin2DDict as GHCJS.DOM.GPUOrigin2DDict + , GHCJS.DOM.JSFFI.Generated.GPUOrigin3DDict as GHCJS.DOM.GPUOrigin3DDict + , GHCJS.DOM.JSFFI.Generated.GPUOutOfMemoryError as GHCJS.DOM.GPUOutOfMemoryError + , GHCJS.DOM.JSFFI.Generated.GPUPipelineBase as GHCJS.DOM.GPUPipelineBase + , GHCJS.DOM.JSFFI.Generated.GPUPipelineDescriptorBase as GHCJS.DOM.GPUPipelineDescriptorBase + , GHCJS.DOM.JSFFI.Generated.GPUPipelineError as GHCJS.DOM.GPUPipelineError + , GHCJS.DOM.JSFFI.Generated.GPUPipelineErrorInit as GHCJS.DOM.GPUPipelineErrorInit + , GHCJS.DOM.JSFFI.Generated.GPUPipelineLayout as GHCJS.DOM.GPUPipelineLayout + , GHCJS.DOM.JSFFI.Generated.GPUPipelineLayoutDescriptor as GHCJS.DOM.GPUPipelineLayoutDescriptor + , GHCJS.DOM.JSFFI.Generated.GPUPrimitiveState as GHCJS.DOM.GPUPrimitiveState + , GHCJS.DOM.JSFFI.Generated.GPUProgrammableStage as GHCJS.DOM.GPUProgrammableStage + , GHCJS.DOM.JSFFI.Generated.GPUQuerySet as GHCJS.DOM.GPUQuerySet + , GHCJS.DOM.JSFFI.Generated.GPUQuerySetDescriptor as GHCJS.DOM.GPUQuerySetDescriptor + , GHCJS.DOM.JSFFI.Generated.GPUQueue as GHCJS.DOM.GPUQueue + , GHCJS.DOM.JSFFI.Generated.GPUQueueDescriptor as GHCJS.DOM.GPUQueueDescriptor + , GHCJS.DOM.JSFFI.Generated.GPURenderBundle as GHCJS.DOM.GPURenderBundle + , GHCJS.DOM.JSFFI.Generated.GPURenderBundleDescriptor as GHCJS.DOM.GPURenderBundleDescriptor + , GHCJS.DOM.JSFFI.Generated.GPURenderBundleEncoder as GHCJS.DOM.GPURenderBundleEncoder + , GHCJS.DOM.JSFFI.Generated.GPURenderBundleEncoderDescriptor as GHCJS.DOM.GPURenderBundleEncoderDescriptor + , GHCJS.DOM.JSFFI.Generated.GPURenderCommandsMixin as GHCJS.DOM.GPURenderCommandsMixin + , GHCJS.DOM.JSFFI.Generated.GPURenderPassColorAttachment as GHCJS.DOM.GPURenderPassColorAttachment + , GHCJS.DOM.JSFFI.Generated.GPURenderPassDepthStencilAttachment as GHCJS.DOM.GPURenderPassDepthStencilAttachment + , GHCJS.DOM.JSFFI.Generated.GPURenderPassDescriptor as GHCJS.DOM.GPURenderPassDescriptor + , GHCJS.DOM.JSFFI.Generated.GPURenderPassEncoder as GHCJS.DOM.GPURenderPassEncoder + , GHCJS.DOM.JSFFI.Generated.GPURenderPassLayout as GHCJS.DOM.GPURenderPassLayout + , GHCJS.DOM.JSFFI.Generated.GPURenderPassTimestampWrites as GHCJS.DOM.GPURenderPassTimestampWrites + , GHCJS.DOM.JSFFI.Generated.GPURenderPipeline as GHCJS.DOM.GPURenderPipeline + , GHCJS.DOM.JSFFI.Generated.GPURenderPipelineDescriptor as GHCJS.DOM.GPURenderPipelineDescriptor + , GHCJS.DOM.JSFFI.Generated.GPURequestAdapterOptions as GHCJS.DOM.GPURequestAdapterOptions + , GHCJS.DOM.JSFFI.Generated.GPUSampler as GHCJS.DOM.GPUSampler + , GHCJS.DOM.JSFFI.Generated.GPUSamplerBindingLayout as GHCJS.DOM.GPUSamplerBindingLayout + , GHCJS.DOM.JSFFI.Generated.GPUSamplerDescriptor as GHCJS.DOM.GPUSamplerDescriptor + , GHCJS.DOM.JSFFI.Generated.GPUShaderModule as GHCJS.DOM.GPUShaderModule + , GHCJS.DOM.JSFFI.Generated.GPUShaderModuleCompilationHint as GHCJS.DOM.GPUShaderModuleCompilationHint + , GHCJS.DOM.JSFFI.Generated.GPUShaderModuleDescriptor as GHCJS.DOM.GPUShaderModuleDescriptor + , GHCJS.DOM.JSFFI.Generated.GPUStencilFaceState as GHCJS.DOM.GPUStencilFaceState + , GHCJS.DOM.JSFFI.Generated.GPUStorageTextureBindingLayout as GHCJS.DOM.GPUStorageTextureBindingLayout + , GHCJS.DOM.JSFFI.Generated.GPUSupportedFeatures as GHCJS.DOM.GPUSupportedFeatures + , GHCJS.DOM.JSFFI.Generated.GPUSupportedLimits as GHCJS.DOM.GPUSupportedLimits + , GHCJS.DOM.JSFFI.Generated.GPUTexelCopyBufferInfo as GHCJS.DOM.GPUTexelCopyBufferInfo + , GHCJS.DOM.JSFFI.Generated.GPUTexelCopyBufferLayout as GHCJS.DOM.GPUTexelCopyBufferLayout + , GHCJS.DOM.JSFFI.Generated.GPUTexelCopyTextureInfo as GHCJS.DOM.GPUTexelCopyTextureInfo + , GHCJS.DOM.JSFFI.Generated.GPUTexture as GHCJS.DOM.GPUTexture + , GHCJS.DOM.JSFFI.Generated.GPUTextureBindingLayout as GHCJS.DOM.GPUTextureBindingLayout + , GHCJS.DOM.JSFFI.Generated.GPUTextureDescriptor as GHCJS.DOM.GPUTextureDescriptor + , GHCJS.DOM.JSFFI.Generated.GPUTextureView as GHCJS.DOM.GPUTextureView + , GHCJS.DOM.JSFFI.Generated.GPUTextureViewDescriptor as GHCJS.DOM.GPUTextureViewDescriptor + , GHCJS.DOM.JSFFI.Generated.GPUUncapturedErrorEvent as GHCJS.DOM.GPUUncapturedErrorEvent + , GHCJS.DOM.JSFFI.Generated.GPUUncapturedErrorEventInit as GHCJS.DOM.GPUUncapturedErrorEventInit + , GHCJS.DOM.JSFFI.Generated.GPUValidationError as GHCJS.DOM.GPUValidationError + , GHCJS.DOM.JSFFI.Generated.GPUVertexAttribute as GHCJS.DOM.GPUVertexAttribute + , GHCJS.DOM.JSFFI.Generated.GPUVertexBufferLayout as GHCJS.DOM.GPUVertexBufferLayout + , GHCJS.DOM.JSFFI.Generated.GPUVertexState as GHCJS.DOM.GPUVertexState + , GHCJS.DOM.JSFFI.Generated.GainNode as GHCJS.DOM.GainNode + , GHCJS.DOM.JSFFI.Generated.GainOptions as GHCJS.DOM.GainOptions + , GHCJS.DOM.JSFFI.Generated.Gamepad as GHCJS.DOM.Gamepad + , GHCJS.DOM.JSFFI.Generated.GamepadButton as GHCJS.DOM.GamepadButton + , GHCJS.DOM.JSFFI.Generated.GamepadEffectParameters as GHCJS.DOM.GamepadEffectParameters + , GHCJS.DOM.JSFFI.Generated.GamepadEvent as GHCJS.DOM.GamepadEvent + , GHCJS.DOM.JSFFI.Generated.GamepadEventInit as GHCJS.DOM.GamepadEventInit + , GHCJS.DOM.JSFFI.Generated.GamepadHapticActuator as GHCJS.DOM.GamepadHapticActuator + , GHCJS.DOM.JSFFI.Generated.GenericTransformStream as GHCJS.DOM.GenericTransformStream + , GHCJS.DOM.JSFFI.Generated.GeolocationCoordinates as GHCJS.DOM.GeolocationCoordinates + , GHCJS.DOM.JSFFI.Generated.GeolocationPosition as GHCJS.DOM.GeolocationPosition + , GHCJS.DOM.JSFFI.Generated.GetAnimationsOptions as GHCJS.DOM.GetAnimationsOptions + , GHCJS.DOM.JSFFI.Generated.GetComposedRangesOptions as GHCJS.DOM.GetComposedRangesOptions + , GHCJS.DOM.JSFFI.Generated.GetHTMLOptions as GHCJS.DOM.GetHTMLOptions + , GHCJS.DOM.JSFFI.Generated.GetNotificationOptions as GHCJS.DOM.GetNotificationOptions + , GHCJS.DOM.JSFFI.Generated.GetRootNodeOptions as GHCJS.DOM.GetRootNodeOptions + , GHCJS.DOM.JSFFI.Generated.GlobalEventHandlers as GHCJS.DOM.GlobalEventHandlers + , GHCJS.DOM.JSFFI.Generated.HMACGetSecretInput as GHCJS.DOM.HMACGetSecretInput + , GHCJS.DOM.JSFFI.Generated.HMACGetSecretOutput as GHCJS.DOM.HMACGetSecretOutput + , GHCJS.DOM.JSFFI.Generated.HTMLAllCollection as GHCJS.DOM.HTMLAllCollection + , GHCJS.DOM.JSFFI.Generated.HTMLAnchorElement as GHCJS.DOM.HTMLAnchorElement + , GHCJS.DOM.JSFFI.Generated.HTMLAreaElement as GHCJS.DOM.HTMLAreaElement + , GHCJS.DOM.JSFFI.Generated.HTMLAudioElement as GHCJS.DOM.HTMLAudioElement + , GHCJS.DOM.JSFFI.Generated.HTMLBRElement as GHCJS.DOM.HTMLBRElement + , GHCJS.DOM.JSFFI.Generated.HTMLBaseElement as GHCJS.DOM.HTMLBaseElement + , GHCJS.DOM.JSFFI.Generated.HTMLBodyElement as GHCJS.DOM.HTMLBodyElement + , GHCJS.DOM.JSFFI.Generated.HTMLButtonElement as GHCJS.DOM.HTMLButtonElement + , GHCJS.DOM.JSFFI.Generated.HTMLCanvasElement as GHCJS.DOM.HTMLCanvasElement + , GHCJS.DOM.JSFFI.Generated.HTMLCollection as GHCJS.DOM.HTMLCollection + , GHCJS.DOM.JSFFI.Generated.HTMLDListElement as GHCJS.DOM.HTMLDListElement + , GHCJS.DOM.JSFFI.Generated.HTMLDataElement as GHCJS.DOM.HTMLDataElement + , GHCJS.DOM.JSFFI.Generated.HTMLDataListElement as GHCJS.DOM.HTMLDataListElement + , GHCJS.DOM.JSFFI.Generated.HTMLDetailsElement as GHCJS.DOM.HTMLDetailsElement + , GHCJS.DOM.JSFFI.Generated.HTMLDialogElement as GHCJS.DOM.HTMLDialogElement + , GHCJS.DOM.JSFFI.Generated.HTMLDirectoryElement as GHCJS.DOM.HTMLDirectoryElement + , GHCJS.DOM.JSFFI.Generated.HTMLDivElement as GHCJS.DOM.HTMLDivElement + , GHCJS.DOM.JSFFI.Generated.HTMLElement as GHCJS.DOM.HTMLElement + , GHCJS.DOM.JSFFI.Generated.HTMLEmbedElement as GHCJS.DOM.HTMLEmbedElement + , GHCJS.DOM.JSFFI.Generated.HTMLFieldSetElement as GHCJS.DOM.HTMLFieldSetElement + , GHCJS.DOM.JSFFI.Generated.HTMLFontElement as GHCJS.DOM.HTMLFontElement + , GHCJS.DOM.JSFFI.Generated.HTMLFormControlsCollection as GHCJS.DOM.HTMLFormControlsCollection + , GHCJS.DOM.JSFFI.Generated.HTMLFormElement as GHCJS.DOM.HTMLFormElement + , GHCJS.DOM.JSFFI.Generated.HTMLFrameElement as GHCJS.DOM.HTMLFrameElement + , GHCJS.DOM.JSFFI.Generated.HTMLFrameSetElement as GHCJS.DOM.HTMLFrameSetElement + , GHCJS.DOM.JSFFI.Generated.HTMLHRElement as GHCJS.DOM.HTMLHRElement + , GHCJS.DOM.JSFFI.Generated.HTMLHeadElement as GHCJS.DOM.HTMLHeadElement + , GHCJS.DOM.JSFFI.Generated.HTMLHeadingElement as GHCJS.DOM.HTMLHeadingElement + , GHCJS.DOM.JSFFI.Generated.HTMLHtmlElement as GHCJS.DOM.HTMLHtmlElement + , GHCJS.DOM.JSFFI.Generated.HTMLHyperlinkElementUtils as GHCJS.DOM.HTMLHyperlinkElementUtils + , GHCJS.DOM.JSFFI.Generated.HTMLIFrameElement as GHCJS.DOM.HTMLIFrameElement + , GHCJS.DOM.JSFFI.Generated.HTMLImageElement as GHCJS.DOM.HTMLImageElement + , GHCJS.DOM.JSFFI.Generated.HTMLInputElement as GHCJS.DOM.HTMLInputElement + , GHCJS.DOM.JSFFI.Generated.HTMLLIElement as GHCJS.DOM.HTMLLIElement + , GHCJS.DOM.JSFFI.Generated.HTMLLabelElement as GHCJS.DOM.HTMLLabelElement + , GHCJS.DOM.JSFFI.Generated.HTMLLegendElement as GHCJS.DOM.HTMLLegendElement + , GHCJS.DOM.JSFFI.Generated.HTMLLinkElement as GHCJS.DOM.HTMLLinkElement + , GHCJS.DOM.JSFFI.Generated.HTMLMapElement as GHCJS.DOM.HTMLMapElement + , GHCJS.DOM.JSFFI.Generated.HTMLMarqueeElement as GHCJS.DOM.HTMLMarqueeElement + , GHCJS.DOM.JSFFI.Generated.HTMLMediaElement as GHCJS.DOM.HTMLMediaElement + , GHCJS.DOM.JSFFI.Generated.HTMLMenuElement as GHCJS.DOM.HTMLMenuElement + , GHCJS.DOM.JSFFI.Generated.HTMLMetaElement as GHCJS.DOM.HTMLMetaElement + , GHCJS.DOM.JSFFI.Generated.HTMLMeterElement as GHCJS.DOM.HTMLMeterElement + , GHCJS.DOM.JSFFI.Generated.HTMLModElement as GHCJS.DOM.HTMLModElement + , GHCJS.DOM.JSFFI.Generated.HTMLOListElement as GHCJS.DOM.HTMLOListElement + , GHCJS.DOM.JSFFI.Generated.HTMLObjectElement as GHCJS.DOM.HTMLObjectElement + , GHCJS.DOM.JSFFI.Generated.HTMLOptGroupElement as GHCJS.DOM.HTMLOptGroupElement + , GHCJS.DOM.JSFFI.Generated.HTMLOptionElement as GHCJS.DOM.HTMLOptionElement + , GHCJS.DOM.JSFFI.Generated.HTMLOptionsCollection as GHCJS.DOM.HTMLOptionsCollection + , GHCJS.DOM.JSFFI.Generated.HTMLOrSVGOrMathMLElement as GHCJS.DOM.HTMLOrSVGOrMathMLElement + , GHCJS.DOM.JSFFI.Generated.HTMLOutputElement as GHCJS.DOM.HTMLOutputElement + , GHCJS.DOM.JSFFI.Generated.HTMLParagraphElement as GHCJS.DOM.HTMLParagraphElement + , GHCJS.DOM.JSFFI.Generated.HTMLParamElement as GHCJS.DOM.HTMLParamElement + , GHCJS.DOM.JSFFI.Generated.HTMLPictureElement as GHCJS.DOM.HTMLPictureElement + , GHCJS.DOM.JSFFI.Generated.HTMLPreElement as GHCJS.DOM.HTMLPreElement + , GHCJS.DOM.JSFFI.Generated.HTMLProgressElement as GHCJS.DOM.HTMLProgressElement + , GHCJS.DOM.JSFFI.Generated.HTMLQuoteElement as GHCJS.DOM.HTMLQuoteElement + , GHCJS.DOM.JSFFI.Generated.HTMLScriptElement as GHCJS.DOM.HTMLScriptElement + , GHCJS.DOM.JSFFI.Generated.HTMLSelectElement as GHCJS.DOM.HTMLSelectElement + , GHCJS.DOM.JSFFI.Generated.HTMLSelectedContentElement as GHCJS.DOM.HTMLSelectedContentElement + , GHCJS.DOM.JSFFI.Generated.HTMLSlotElement as GHCJS.DOM.HTMLSlotElement + , GHCJS.DOM.JSFFI.Generated.HTMLSourceElement as GHCJS.DOM.HTMLSourceElement + , GHCJS.DOM.JSFFI.Generated.HTMLSpanElement as GHCJS.DOM.HTMLSpanElement + , GHCJS.DOM.JSFFI.Generated.HTMLStyleElement as GHCJS.DOM.HTMLStyleElement + , GHCJS.DOM.JSFFI.Generated.HTMLTableCaptionElement as GHCJS.DOM.HTMLTableCaptionElement + , GHCJS.DOM.JSFFI.Generated.HTMLTableCellElement as GHCJS.DOM.HTMLTableCellElement + , GHCJS.DOM.JSFFI.Generated.HTMLTableColElement as GHCJS.DOM.HTMLTableColElement + , GHCJS.DOM.JSFFI.Generated.HTMLTableElement as GHCJS.DOM.HTMLTableElement + , GHCJS.DOM.JSFFI.Generated.HTMLTableRowElement as GHCJS.DOM.HTMLTableRowElement + , GHCJS.DOM.JSFFI.Generated.HTMLTableSectionElement as GHCJS.DOM.HTMLTableSectionElement + , GHCJS.DOM.JSFFI.Generated.HTMLTemplateElement as GHCJS.DOM.HTMLTemplateElement + , GHCJS.DOM.JSFFI.Generated.HTMLTextAreaElement as GHCJS.DOM.HTMLTextAreaElement + , GHCJS.DOM.JSFFI.Generated.HTMLTimeElement as GHCJS.DOM.HTMLTimeElement + , GHCJS.DOM.JSFFI.Generated.HTMLTitleElement as GHCJS.DOM.HTMLTitleElement + , GHCJS.DOM.JSFFI.Generated.HTMLTrackElement as GHCJS.DOM.HTMLTrackElement + , GHCJS.DOM.JSFFI.Generated.HTMLUListElement as GHCJS.DOM.HTMLUListElement + , GHCJS.DOM.JSFFI.Generated.HTMLUnknownElement as GHCJS.DOM.HTMLUnknownElement + , GHCJS.DOM.JSFFI.Generated.HTMLVideoElement as GHCJS.DOM.HTMLVideoElement + , GHCJS.DOM.JSFFI.Generated.HashChangeEvent as GHCJS.DOM.HashChangeEvent + , GHCJS.DOM.JSFFI.Generated.HashChangeEventInit as GHCJS.DOM.HashChangeEventInit + , GHCJS.DOM.JSFFI.Generated.Headers as GHCJS.DOM.Headers + , GHCJS.DOM.JSFFI.Generated.HevcEncoderConfig as GHCJS.DOM.HevcEncoderConfig + , GHCJS.DOM.JSFFI.Generated.Highlight as GHCJS.DOM.Highlight + , GHCJS.DOM.JSFFI.Generated.HighlightHitResult as GHCJS.DOM.HighlightHitResult + , GHCJS.DOM.JSFFI.Generated.HighlightRegistry as GHCJS.DOM.HighlightRegistry + , GHCJS.DOM.JSFFI.Generated.HighlightsFromPointOptions as GHCJS.DOM.HighlightsFromPointOptions + , GHCJS.DOM.JSFFI.Generated.History as GHCJS.DOM.History + , GHCJS.DOM.JSFFI.Generated.HyperlinkElementUtils as GHCJS.DOM.HyperlinkElementUtils + , GHCJS.DOM.JSFFI.Generated.IDBCursor as GHCJS.DOM.IDBCursor + , GHCJS.DOM.JSFFI.Generated.IDBCursorWithValue as GHCJS.DOM.IDBCursorWithValue + , GHCJS.DOM.JSFFI.Generated.IDBDatabase as GHCJS.DOM.IDBDatabase + , GHCJS.DOM.JSFFI.Generated.IDBDatabaseInfo as GHCJS.DOM.IDBDatabaseInfo + , GHCJS.DOM.JSFFI.Generated.IDBFactory as GHCJS.DOM.IDBFactory + , GHCJS.DOM.JSFFI.Generated.IDBGetAllOptions as GHCJS.DOM.IDBGetAllOptions + , GHCJS.DOM.JSFFI.Generated.IDBIndex as GHCJS.DOM.IDBIndex + , GHCJS.DOM.JSFFI.Generated.IDBIndexParameters as GHCJS.DOM.IDBIndexParameters + , GHCJS.DOM.JSFFI.Generated.IDBKeyRange as GHCJS.DOM.IDBKeyRange + , GHCJS.DOM.JSFFI.Generated.IDBObjectStore as GHCJS.DOM.IDBObjectStore + , GHCJS.DOM.JSFFI.Generated.IDBObjectStoreParameters as GHCJS.DOM.IDBObjectStoreParameters + , GHCJS.DOM.JSFFI.Generated.IDBOpenDBRequest as GHCJS.DOM.IDBOpenDBRequest + , GHCJS.DOM.JSFFI.Generated.IDBRecord as GHCJS.DOM.IDBRecord + , GHCJS.DOM.JSFFI.Generated.IDBRequest as GHCJS.DOM.IDBRequest + , GHCJS.DOM.JSFFI.Generated.IDBTransaction as GHCJS.DOM.IDBTransaction + , GHCJS.DOM.JSFFI.Generated.IDBTransactionOptions as GHCJS.DOM.IDBTransactionOptions + , GHCJS.DOM.JSFFI.Generated.IDBVersionChangeEvent as GHCJS.DOM.IDBVersionChangeEvent + , GHCJS.DOM.JSFFI.Generated.IDBVersionChangeEventInit as GHCJS.DOM.IDBVersionChangeEventInit + , GHCJS.DOM.JSFFI.Generated.IIRFilterNode as GHCJS.DOM.IIRFilterNode + , GHCJS.DOM.JSFFI.Generated.IIRFilterOptions as GHCJS.DOM.IIRFilterOptions + , GHCJS.DOM.JSFFI.Generated.IdentityCredentialRequestOptions as GHCJS.DOM.IdentityCredentialRequestOptions + , GHCJS.DOM.JSFFI.Generated.IdentityProviderConfig as GHCJS.DOM.IdentityProviderConfig + , GHCJS.DOM.JSFFI.Generated.IdentityProviderRequestOptions as GHCJS.DOM.IdentityProviderRequestOptions + , GHCJS.DOM.JSFFI.Generated.IdleDeadline as GHCJS.DOM.IdleDeadline + , GHCJS.DOM.JSFFI.Generated.IdleRequestCallback as GHCJS.DOM.IdleRequestCallback + , GHCJS.DOM.JSFFI.Generated.IdleRequestOptions as GHCJS.DOM.IdleRequestOptions + , GHCJS.DOM.JSFFI.Generated.ImageBitmap as GHCJS.DOM.ImageBitmap + , GHCJS.DOM.JSFFI.Generated.ImageBitmapRenderingContext as GHCJS.DOM.ImageBitmapRenderingContext + , GHCJS.DOM.JSFFI.Generated.ImageCapture as GHCJS.DOM.ImageCapture + , GHCJS.DOM.JSFFI.Generated.ImageData as GHCJS.DOM.ImageData + , GHCJS.DOM.JSFFI.Generated.ImageDataSettings as GHCJS.DOM.ImageDataSettings + , GHCJS.DOM.JSFFI.Generated.ImageDecodeOptions as GHCJS.DOM.ImageDecodeOptions + , GHCJS.DOM.JSFFI.Generated.ImageDecodeResult as GHCJS.DOM.ImageDecodeResult + , GHCJS.DOM.JSFFI.Generated.ImageDecoder as GHCJS.DOM.ImageDecoder + , GHCJS.DOM.JSFFI.Generated.ImageDecoderInit as GHCJS.DOM.ImageDecoderInit + , GHCJS.DOM.JSFFI.Generated.ImageEncodeOptions as GHCJS.DOM.ImageEncodeOptions + , GHCJS.DOM.JSFFI.Generated.ImageTrack as GHCJS.DOM.ImageTrack + , GHCJS.DOM.JSFFI.Generated.ImageTrackList as GHCJS.DOM.ImageTrackList + , GHCJS.DOM.JSFFI.Generated.ImportNodeOptions as GHCJS.DOM.ImportNodeOptions + , GHCJS.DOM.JSFFI.Generated.InputDeviceCapabilities as GHCJS.DOM.InputDeviceCapabilities + , GHCJS.DOM.JSFFI.Generated.InputDeviceInfo as GHCJS.DOM.InputDeviceInfo + , GHCJS.DOM.JSFFI.Generated.InputEvent as GHCJS.DOM.InputEvent + , GHCJS.DOM.JSFFI.Generated.InputEventInit as GHCJS.DOM.InputEventInit + , GHCJS.DOM.JSFFI.Generated.InstallEvent as GHCJS.DOM.InstallEvent + , GHCJS.DOM.JSFFI.Generated.IntersectionObserver as GHCJS.DOM.IntersectionObserver + , GHCJS.DOM.JSFFI.Generated.IntersectionObserverCallback as GHCJS.DOM.IntersectionObserverCallback + , GHCJS.DOM.JSFFI.Generated.IntersectionObserverEntry as GHCJS.DOM.IntersectionObserverEntry + , GHCJS.DOM.JSFFI.Generated.IntersectionObserverEntryInit as GHCJS.DOM.IntersectionObserverEntryInit + , GHCJS.DOM.JSFFI.Generated.IntersectionObserverInit as GHCJS.DOM.IntersectionObserverInit + , GHCJS.DOM.JSFFI.Generated.JsonWebKey as GHCJS.DOM.JsonWebKey + , GHCJS.DOM.JSFFI.Generated.KHR_parallel_shader_compile as GHCJS.DOM.KHR_parallel_shader_compile + , GHCJS.DOM.JSFFI.Generated.KeySystemTrackConfiguration as GHCJS.DOM.KeySystemTrackConfiguration + , GHCJS.DOM.JSFFI.Generated.KeyboardEvent as GHCJS.DOM.KeyboardEvent + , GHCJS.DOM.JSFFI.Generated.KeyboardEventInit as GHCJS.DOM.KeyboardEventInit + , GHCJS.DOM.JSFFI.Generated.KeyframeAnimationOptions as GHCJS.DOM.KeyframeAnimationOptions + , GHCJS.DOM.JSFFI.Generated.KeyframeEffect as GHCJS.DOM.KeyframeEffect + , GHCJS.DOM.JSFFI.Generated.KeyframeEffectOptions as GHCJS.DOM.KeyframeEffectOptions + , GHCJS.DOM.JSFFI.Generated.LargestContentfulPaint as GHCJS.DOM.LargestContentfulPaint + , GHCJS.DOM.JSFFI.Generated.LinkStyle as GHCJS.DOM.LinkStyle + , GHCJS.DOM.JSFFI.Generated.Location as GHCJS.DOM.Location + , GHCJS.DOM.JSFFI.Generated.Lock as GHCJS.DOM.Lock + , GHCJS.DOM.JSFFI.Generated.LockGrantedCallback as GHCJS.DOM.LockGrantedCallback + , GHCJS.DOM.JSFFI.Generated.LockInfo as GHCJS.DOM.LockInfo + , GHCJS.DOM.JSFFI.Generated.LockManager as GHCJS.DOM.LockManager + , GHCJS.DOM.JSFFI.Generated.LockManagerSnapshot as GHCJS.DOM.LockManagerSnapshot + , GHCJS.DOM.JSFFI.Generated.LockOptions as GHCJS.DOM.LockOptions + , GHCJS.DOM.JSFFI.Generated.MIDIAccess as GHCJS.DOM.MIDIAccess + , GHCJS.DOM.JSFFI.Generated.MIDIConnectionEvent as GHCJS.DOM.MIDIConnectionEvent + , GHCJS.DOM.JSFFI.Generated.MIDIConnectionEventInit as GHCJS.DOM.MIDIConnectionEventInit + , GHCJS.DOM.JSFFI.Generated.MIDIInput as GHCJS.DOM.MIDIInput + , GHCJS.DOM.JSFFI.Generated.MIDIInputMap as GHCJS.DOM.MIDIInputMap + , GHCJS.DOM.JSFFI.Generated.MIDIMessageEvent as GHCJS.DOM.MIDIMessageEvent + , GHCJS.DOM.JSFFI.Generated.MIDIMessageEventInit as GHCJS.DOM.MIDIMessageEventInit + , GHCJS.DOM.JSFFI.Generated.MIDIOptions as GHCJS.DOM.MIDIOptions + , GHCJS.DOM.JSFFI.Generated.MIDIOutput as GHCJS.DOM.MIDIOutput + , GHCJS.DOM.JSFFI.Generated.MIDIOutputMap as GHCJS.DOM.MIDIOutputMap + , GHCJS.DOM.JSFFI.Generated.MIDIPort as GHCJS.DOM.MIDIPort + , GHCJS.DOM.JSFFI.Generated.MathMLElement as GHCJS.DOM.MathMLElement + , GHCJS.DOM.JSFFI.Generated.MediaCapabilities as GHCJS.DOM.MediaCapabilities + , GHCJS.DOM.JSFFI.Generated.MediaCapabilitiesDecodingInfo as GHCJS.DOM.MediaCapabilitiesDecodingInfo + , GHCJS.DOM.JSFFI.Generated.MediaCapabilitiesEncodingInfo as GHCJS.DOM.MediaCapabilitiesEncodingInfo + , GHCJS.DOM.JSFFI.Generated.MediaCapabilitiesInfo as GHCJS.DOM.MediaCapabilitiesInfo + , GHCJS.DOM.JSFFI.Generated.MediaCapabilitiesKeySystemConfiguration as GHCJS.DOM.MediaCapabilitiesKeySystemConfiguration + , GHCJS.DOM.JSFFI.Generated.MediaConfiguration as GHCJS.DOM.MediaConfiguration + , GHCJS.DOM.JSFFI.Generated.MediaDecodingConfiguration as GHCJS.DOM.MediaDecodingConfiguration + , GHCJS.DOM.JSFFI.Generated.MediaDeviceInfo as GHCJS.DOM.MediaDeviceInfo + , GHCJS.DOM.JSFFI.Generated.MediaDevices as GHCJS.DOM.MediaDevices + , GHCJS.DOM.JSFFI.Generated.MediaEffectInfo as GHCJS.DOM.MediaEffectInfo + , GHCJS.DOM.JSFFI.Generated.MediaElementAudioSourceNode as GHCJS.DOM.MediaElementAudioSourceNode + , GHCJS.DOM.JSFFI.Generated.MediaElementAudioSourceOptions as GHCJS.DOM.MediaElementAudioSourceOptions + , GHCJS.DOM.JSFFI.Generated.MediaEncodingConfiguration as GHCJS.DOM.MediaEncodingConfiguration + , GHCJS.DOM.JSFFI.Generated.MediaEncryptedEvent as GHCJS.DOM.MediaEncryptedEvent + , GHCJS.DOM.JSFFI.Generated.MediaEncryptedEventInit as GHCJS.DOM.MediaEncryptedEventInit + , GHCJS.DOM.JSFFI.Generated.MediaError as GHCJS.DOM.MediaError + , GHCJS.DOM.JSFFI.Generated.MediaImage as GHCJS.DOM.MediaImage + , GHCJS.DOM.JSFFI.Generated.MediaKeyMessageEvent as GHCJS.DOM.MediaKeyMessageEvent + , GHCJS.DOM.JSFFI.Generated.MediaKeyMessageEventInit as GHCJS.DOM.MediaKeyMessageEventInit + , GHCJS.DOM.JSFFI.Generated.MediaKeySession as GHCJS.DOM.MediaKeySession + , GHCJS.DOM.JSFFI.Generated.MediaKeyStatusMap as GHCJS.DOM.MediaKeyStatusMap + , GHCJS.DOM.JSFFI.Generated.MediaKeySystemAccess as GHCJS.DOM.MediaKeySystemAccess + , GHCJS.DOM.JSFFI.Generated.MediaKeySystemConfiguration as GHCJS.DOM.MediaKeySystemConfiguration + , GHCJS.DOM.JSFFI.Generated.MediaKeySystemMediaCapability as GHCJS.DOM.MediaKeySystemMediaCapability + , GHCJS.DOM.JSFFI.Generated.MediaKeys as GHCJS.DOM.MediaKeys + , GHCJS.DOM.JSFFI.Generated.MediaKeysPolicy as GHCJS.DOM.MediaKeysPolicy + , GHCJS.DOM.JSFFI.Generated.MediaList as GHCJS.DOM.MediaList + , GHCJS.DOM.JSFFI.Generated.MediaMetadata as GHCJS.DOM.MediaMetadata + , GHCJS.DOM.JSFFI.Generated.MediaMetadataInit as GHCJS.DOM.MediaMetadataInit + , GHCJS.DOM.JSFFI.Generated.MediaPositionState as GHCJS.DOM.MediaPositionState + , GHCJS.DOM.JSFFI.Generated.MediaQueryList as GHCJS.DOM.MediaQueryList + , GHCJS.DOM.JSFFI.Generated.MediaQueryListEvent as GHCJS.DOM.MediaQueryListEvent + , GHCJS.DOM.JSFFI.Generated.MediaQueryListEventInit as GHCJS.DOM.MediaQueryListEventInit + , GHCJS.DOM.JSFFI.Generated.MediaRecorder as GHCJS.DOM.MediaRecorder + , GHCJS.DOM.JSFFI.Generated.MediaRecorderOptions as GHCJS.DOM.MediaRecorderOptions + , GHCJS.DOM.JSFFI.Generated.MediaSession as GHCJS.DOM.MediaSession + , GHCJS.DOM.JSFFI.Generated.MediaSessionActionDetails as GHCJS.DOM.MediaSessionActionDetails + , GHCJS.DOM.JSFFI.Generated.MediaSessionActionHandler as GHCJS.DOM.MediaSessionActionHandler + , GHCJS.DOM.JSFFI.Generated.MediaSettingsRange as GHCJS.DOM.MediaSettingsRange + , GHCJS.DOM.JSFFI.Generated.MediaSource as GHCJS.DOM.MediaSource + , GHCJS.DOM.JSFFI.Generated.MediaSourceHandle as GHCJS.DOM.MediaSourceHandle + , GHCJS.DOM.JSFFI.Generated.MediaStream as GHCJS.DOM.MediaStream + , GHCJS.DOM.JSFFI.Generated.MediaStreamAudioDestinationNode as GHCJS.DOM.MediaStreamAudioDestinationNode + , GHCJS.DOM.JSFFI.Generated.MediaStreamAudioSourceNode as GHCJS.DOM.MediaStreamAudioSourceNode + , GHCJS.DOM.JSFFI.Generated.MediaStreamAudioSourceOptions as GHCJS.DOM.MediaStreamAudioSourceOptions + , GHCJS.DOM.JSFFI.Generated.MediaStreamConstraints as GHCJS.DOM.MediaStreamConstraints + , GHCJS.DOM.JSFFI.Generated.MediaStreamTrack as GHCJS.DOM.MediaStreamTrack + , GHCJS.DOM.JSFFI.Generated.MediaStreamTrackEvent as GHCJS.DOM.MediaStreamTrackEvent + , GHCJS.DOM.JSFFI.Generated.MediaStreamTrackEventInit as GHCJS.DOM.MediaStreamTrackEventInit + , GHCJS.DOM.JSFFI.Generated.MediaStreamTrackHandle as GHCJS.DOM.MediaStreamTrackHandle + , GHCJS.DOM.JSFFI.Generated.MediaStreamTrackProcessor as GHCJS.DOM.MediaStreamTrackProcessor + , GHCJS.DOM.JSFFI.Generated.MediaStreamTrackProcessorInit as GHCJS.DOM.MediaStreamTrackProcessorInit + , GHCJS.DOM.JSFFI.Generated.MediaTrackCapabilities as GHCJS.DOM.MediaTrackCapabilities + , GHCJS.DOM.JSFFI.Generated.MediaTrackConstraintSet as GHCJS.DOM.MediaTrackConstraintSet + , GHCJS.DOM.JSFFI.Generated.MediaTrackConstraints as GHCJS.DOM.MediaTrackConstraints + , GHCJS.DOM.JSFFI.Generated.MediaTrackSettings as GHCJS.DOM.MediaTrackSettings + , GHCJS.DOM.JSFFI.Generated.MediaTrackSupportedConstraints as GHCJS.DOM.MediaTrackSupportedConstraints + , GHCJS.DOM.JSFFI.Generated.MessageChannel as GHCJS.DOM.MessageChannel + , GHCJS.DOM.JSFFI.Generated.MessageEvent as GHCJS.DOM.MessageEvent + , GHCJS.DOM.JSFFI.Generated.MessageEventInit as GHCJS.DOM.MessageEventInit + , GHCJS.DOM.JSFFI.Generated.MessageEventTarget as GHCJS.DOM.MessageEventTarget + , GHCJS.DOM.JSFFI.Generated.MessagePort as GHCJS.DOM.MessagePort + , GHCJS.DOM.JSFFI.Generated.MimeType as GHCJS.DOM.MimeType + , GHCJS.DOM.JSFFI.Generated.MimeTypeArray as GHCJS.DOM.MimeTypeArray + , GHCJS.DOM.JSFFI.Generated.MouseEvent as GHCJS.DOM.MouseEvent + , GHCJS.DOM.JSFFI.Generated.MouseEventInit as GHCJS.DOM.MouseEventInit + , GHCJS.DOM.JSFFI.Generated.MultiCacheQueryOptions as GHCJS.DOM.MultiCacheQueryOptions + , GHCJS.DOM.JSFFI.Generated.MutationCallback as GHCJS.DOM.MutationCallback + , GHCJS.DOM.JSFFI.Generated.MutationObserver as GHCJS.DOM.MutationObserver + , GHCJS.DOM.JSFFI.Generated.MutationObserverInit as GHCJS.DOM.MutationObserverInit + , GHCJS.DOM.JSFFI.Generated.MutationRecord as GHCJS.DOM.MutationRecord + , GHCJS.DOM.JSFFI.Generated.NamedNodeMap as GHCJS.DOM.NamedNodeMap + , GHCJS.DOM.JSFFI.Generated.NavigateEvent as GHCJS.DOM.NavigateEvent + , GHCJS.DOM.JSFFI.Generated.NavigateEventInit as GHCJS.DOM.NavigateEventInit + , GHCJS.DOM.JSFFI.Generated.Navigation as GHCJS.DOM.Navigation + , GHCJS.DOM.JSFFI.Generated.NavigationActivation as GHCJS.DOM.NavigationActivation + , GHCJS.DOM.JSFFI.Generated.NavigationCurrentEntryChangeEvent as GHCJS.DOM.NavigationCurrentEntryChangeEvent + , GHCJS.DOM.JSFFI.Generated.NavigationCurrentEntryChangeEventInit as GHCJS.DOM.NavigationCurrentEntryChangeEventInit + , GHCJS.DOM.JSFFI.Generated.NavigationDestination as GHCJS.DOM.NavigationDestination + , GHCJS.DOM.JSFFI.Generated.NavigationEvent as GHCJS.DOM.NavigationEvent + , GHCJS.DOM.JSFFI.Generated.NavigationHistoryEntry as GHCJS.DOM.NavigationHistoryEntry + , GHCJS.DOM.JSFFI.Generated.NavigationInterceptHandler as GHCJS.DOM.NavigationInterceptHandler + , GHCJS.DOM.JSFFI.Generated.NavigationInterceptOptions as GHCJS.DOM.NavigationInterceptOptions + , GHCJS.DOM.JSFFI.Generated.NavigationNavigateOptions as GHCJS.DOM.NavigationNavigateOptions + , GHCJS.DOM.JSFFI.Generated.NavigationOptions as GHCJS.DOM.NavigationOptions + , GHCJS.DOM.JSFFI.Generated.NavigationPrecommitController as GHCJS.DOM.NavigationPrecommitController + , GHCJS.DOM.JSFFI.Generated.NavigationPrecommitHandler as GHCJS.DOM.NavigationPrecommitHandler + , GHCJS.DOM.JSFFI.Generated.NavigationPreloadManager as GHCJS.DOM.NavigationPreloadManager + , GHCJS.DOM.JSFFI.Generated.NavigationPreloadState as GHCJS.DOM.NavigationPreloadState + , GHCJS.DOM.JSFFI.Generated.NavigationReloadOptions as GHCJS.DOM.NavigationReloadOptions + , GHCJS.DOM.JSFFI.Generated.NavigationResult as GHCJS.DOM.NavigationResult + , GHCJS.DOM.JSFFI.Generated.NavigationTransition as GHCJS.DOM.NavigationTransition + , GHCJS.DOM.JSFFI.Generated.NavigationUpdateCurrentEntryOptions as GHCJS.DOM.NavigationUpdateCurrentEntryOptions + , GHCJS.DOM.JSFFI.Generated.Navigator as GHCJS.DOM.Navigator + , GHCJS.DOM.JSFFI.Generated.NavigatorAutomationInformation as GHCJS.DOM.NavigatorAutomationInformation + , GHCJS.DOM.JSFFI.Generated.NavigatorBadge as GHCJS.DOM.NavigatorBadge + , GHCJS.DOM.JSFFI.Generated.NavigatorConcurrentHardware as GHCJS.DOM.NavigatorConcurrentHardware + , GHCJS.DOM.JSFFI.Generated.NavigatorContentUtils as GHCJS.DOM.NavigatorContentUtils + , GHCJS.DOM.JSFFI.Generated.NavigatorCookies as GHCJS.DOM.NavigatorCookies + , GHCJS.DOM.JSFFI.Generated.NavigatorGPU as GHCJS.DOM.NavigatorGPU + , GHCJS.DOM.JSFFI.Generated.NavigatorID as GHCJS.DOM.NavigatorID + , GHCJS.DOM.JSFFI.Generated.NavigatorLanguage as GHCJS.DOM.NavigatorLanguage + , GHCJS.DOM.JSFFI.Generated.NavigatorLocks as GHCJS.DOM.NavigatorLocks + , GHCJS.DOM.JSFFI.Generated.NavigatorLogin as GHCJS.DOM.NavigatorLogin + , GHCJS.DOM.JSFFI.Generated.NavigatorOnLine as GHCJS.DOM.NavigatorOnLine + , GHCJS.DOM.JSFFI.Generated.NavigatorPlugins as GHCJS.DOM.NavigatorPlugins + , GHCJS.DOM.JSFFI.Generated.NavigatorStorage as GHCJS.DOM.NavigatorStorage + , GHCJS.DOM.JSFFI.Generated.Node as GHCJS.DOM.Node + , GHCJS.DOM.JSFFI.Generated.NodeFilter as GHCJS.DOM.NodeFilter + , GHCJS.DOM.JSFFI.Generated.NodeIterator as GHCJS.DOM.NodeIterator + , GHCJS.DOM.JSFFI.Generated.NodeList as GHCJS.DOM.NodeList + , GHCJS.DOM.JSFFI.Generated.NonDocumentTypeChildNode as GHCJS.DOM.NonDocumentTypeChildNode + , GHCJS.DOM.JSFFI.Generated.NonElementParentNode as GHCJS.DOM.NonElementParentNode + , GHCJS.DOM.JSFFI.Generated.Notification as GHCJS.DOM.Notification + , GHCJS.DOM.JSFFI.Generated.NotificationAction as GHCJS.DOM.NotificationAction + , GHCJS.DOM.JSFFI.Generated.NotificationEvent as GHCJS.DOM.NotificationEvent + , GHCJS.DOM.JSFFI.Generated.NotificationEventInit as GHCJS.DOM.NotificationEventInit + , GHCJS.DOM.JSFFI.Generated.NotificationOptions as GHCJS.DOM.NotificationOptions + , GHCJS.DOM.JSFFI.Generated.NotificationPermissionCallback as GHCJS.DOM.NotificationPermissionCallback + , GHCJS.DOM.JSFFI.Generated.OES_draw_buffers_indexed as GHCJS.DOM.OES_draw_buffers_indexed + , GHCJS.DOM.JSFFI.Generated.OES_element_index_uint as GHCJS.DOM.OES_element_index_uint + , GHCJS.DOM.JSFFI.Generated.OES_fbo_render_mipmap as GHCJS.DOM.OES_fbo_render_mipmap + , GHCJS.DOM.JSFFI.Generated.OES_standard_derivatives as GHCJS.DOM.OES_standard_derivatives + , GHCJS.DOM.JSFFI.Generated.OES_texture_float as GHCJS.DOM.OES_texture_float + , GHCJS.DOM.JSFFI.Generated.OES_texture_float_linear as GHCJS.DOM.OES_texture_float_linear + , GHCJS.DOM.JSFFI.Generated.OES_texture_half_float as GHCJS.DOM.OES_texture_half_float + , GHCJS.DOM.JSFFI.Generated.OES_texture_half_float_linear as GHCJS.DOM.OES_texture_half_float_linear + , GHCJS.DOM.JSFFI.Generated.OES_vertex_array_object as GHCJS.DOM.OES_vertex_array_object + , GHCJS.DOM.JSFFI.Generated.OTPCredentialRequestOptions as GHCJS.DOM.OTPCredentialRequestOptions + , GHCJS.DOM.JSFFI.Generated.OVR_multiview2 as GHCJS.DOM.OVR_multiview2 + , GHCJS.DOM.JSFFI.Generated.OfflineAudioCompletionEvent as GHCJS.DOM.OfflineAudioCompletionEvent + , GHCJS.DOM.JSFFI.Generated.OfflineAudioCompletionEventInit as GHCJS.DOM.OfflineAudioCompletionEventInit + , GHCJS.DOM.JSFFI.Generated.OfflineAudioContext as GHCJS.DOM.OfflineAudioContext + , GHCJS.DOM.JSFFI.Generated.OfflineAudioContextOptions as GHCJS.DOM.OfflineAudioContextOptions + , GHCJS.DOM.JSFFI.Generated.OffscreenCanvas as GHCJS.DOM.OffscreenCanvas + , GHCJS.DOM.JSFFI.Generated.OffscreenCanvasRenderingContext2D as GHCJS.DOM.OffscreenCanvasRenderingContext2D + , GHCJS.DOM.JSFFI.Generated.OptionalEffectTiming as GHCJS.DOM.OptionalEffectTiming + , GHCJS.DOM.JSFFI.Generated.OpusEncoderConfig as GHCJS.DOM.OpusEncoderConfig + , GHCJS.DOM.JSFFI.Generated.Origin as GHCJS.DOM.Origin + , GHCJS.DOM.JSFFI.Generated.OscillatorNode as GHCJS.DOM.OscillatorNode + , GHCJS.DOM.JSFFI.Generated.OscillatorOptions as GHCJS.DOM.OscillatorOptions + , GHCJS.DOM.JSFFI.Generated.OverconstrainedError as GHCJS.DOM.OverconstrainedError + , GHCJS.DOM.JSFFI.Generated.PageRevealEvent as GHCJS.DOM.PageRevealEvent + , GHCJS.DOM.JSFFI.Generated.PageRevealEventInit as GHCJS.DOM.PageRevealEventInit + , GHCJS.DOM.JSFFI.Generated.PageSwapEvent as GHCJS.DOM.PageSwapEvent + , GHCJS.DOM.JSFFI.Generated.PageSwapEventInit as GHCJS.DOM.PageSwapEventInit + , GHCJS.DOM.JSFFI.Generated.PageTransitionEvent as GHCJS.DOM.PageTransitionEvent + , GHCJS.DOM.JSFFI.Generated.PageTransitionEventInit as GHCJS.DOM.PageTransitionEventInit + , GHCJS.DOM.JSFFI.Generated.PaintTimingMixin as GHCJS.DOM.PaintTimingMixin + , GHCJS.DOM.JSFFI.Generated.PannerNode as GHCJS.DOM.PannerNode + , GHCJS.DOM.JSFFI.Generated.PannerOptions as GHCJS.DOM.PannerOptions + , GHCJS.DOM.JSFFI.Generated.ParentNode as GHCJS.DOM.ParentNode + , GHCJS.DOM.JSFFI.Generated.ParseHTMLUnsafeOptions as GHCJS.DOM.ParseHTMLUnsafeOptions + , GHCJS.DOM.JSFFI.Generated.PasswordCredential as GHCJS.DOM.PasswordCredential + , GHCJS.DOM.JSFFI.Generated.PasswordCredentialData as GHCJS.DOM.PasswordCredentialData + , GHCJS.DOM.JSFFI.Generated.Path2D as GHCJS.DOM.Path2D + , GHCJS.DOM.JSFFI.Generated.PayerErrors as GHCJS.DOM.PayerErrors + , GHCJS.DOM.JSFFI.Generated.PaymentCompleteDetails as GHCJS.DOM.PaymentCompleteDetails + , GHCJS.DOM.JSFFI.Generated.PaymentCredentialInstrument as GHCJS.DOM.PaymentCredentialInstrument + , GHCJS.DOM.JSFFI.Generated.PaymentCurrencyAmount as GHCJS.DOM.PaymentCurrencyAmount + , GHCJS.DOM.JSFFI.Generated.PaymentDetailsBase as GHCJS.DOM.PaymentDetailsBase + , GHCJS.DOM.JSFFI.Generated.PaymentDetailsInit as GHCJS.DOM.PaymentDetailsInit + , GHCJS.DOM.JSFFI.Generated.PaymentDetailsModifier as GHCJS.DOM.PaymentDetailsModifier + , GHCJS.DOM.JSFFI.Generated.PaymentDetailsUpdate as GHCJS.DOM.PaymentDetailsUpdate + , GHCJS.DOM.JSFFI.Generated.PaymentEntityLogo as GHCJS.DOM.PaymentEntityLogo + , GHCJS.DOM.JSFFI.Generated.PaymentItem as GHCJS.DOM.PaymentItem + , GHCJS.DOM.JSFFI.Generated.PaymentMethodChangeEvent as GHCJS.DOM.PaymentMethodChangeEvent + , GHCJS.DOM.JSFFI.Generated.PaymentMethodChangeEventInit as GHCJS.DOM.PaymentMethodChangeEventInit + , GHCJS.DOM.JSFFI.Generated.PaymentMethodData as GHCJS.DOM.PaymentMethodData + , GHCJS.DOM.JSFFI.Generated.PaymentOptions as GHCJS.DOM.PaymentOptions + , GHCJS.DOM.JSFFI.Generated.PaymentRequest as GHCJS.DOM.PaymentRequest + , GHCJS.DOM.JSFFI.Generated.PaymentRequestUpdateEvent as GHCJS.DOM.PaymentRequestUpdateEvent + , GHCJS.DOM.JSFFI.Generated.PaymentRequestUpdateEventInit as GHCJS.DOM.PaymentRequestUpdateEventInit + , GHCJS.DOM.JSFFI.Generated.PaymentResponse as GHCJS.DOM.PaymentResponse + , GHCJS.DOM.JSFFI.Generated.PaymentShippingOption as GHCJS.DOM.PaymentShippingOption + , GHCJS.DOM.JSFFI.Generated.PaymentValidationErrors as GHCJS.DOM.PaymentValidationErrors + , GHCJS.DOM.JSFFI.Generated.Performance as GHCJS.DOM.Performance + , GHCJS.DOM.JSFFI.Generated.PerformanceEntry as GHCJS.DOM.PerformanceEntry + , GHCJS.DOM.JSFFI.Generated.PerformanceEventTiming as GHCJS.DOM.PerformanceEventTiming + , GHCJS.DOM.JSFFI.Generated.PerformanceMark as GHCJS.DOM.PerformanceMark + , GHCJS.DOM.JSFFI.Generated.PerformanceMarkOptions as GHCJS.DOM.PerformanceMarkOptions + , GHCJS.DOM.JSFFI.Generated.PerformanceMeasure as GHCJS.DOM.PerformanceMeasure + , GHCJS.DOM.JSFFI.Generated.PerformanceMeasureOptions as GHCJS.DOM.PerformanceMeasureOptions + , GHCJS.DOM.JSFFI.Generated.PerformanceNavigation as GHCJS.DOM.PerformanceNavigation + , GHCJS.DOM.JSFFI.Generated.PerformanceNavigationTiming as GHCJS.DOM.PerformanceNavigationTiming + , GHCJS.DOM.JSFFI.Generated.PerformanceObserver as GHCJS.DOM.PerformanceObserver + , GHCJS.DOM.JSFFI.Generated.PerformanceObserverCallback as GHCJS.DOM.PerformanceObserverCallback + , GHCJS.DOM.JSFFI.Generated.PerformanceObserverCallbackOptions as GHCJS.DOM.PerformanceObserverCallbackOptions + , GHCJS.DOM.JSFFI.Generated.PerformanceObserverEntryList as GHCJS.DOM.PerformanceObserverEntryList + , GHCJS.DOM.JSFFI.Generated.PerformanceObserverInit as GHCJS.DOM.PerformanceObserverInit + , GHCJS.DOM.JSFFI.Generated.PerformancePaintTiming as GHCJS.DOM.PerformancePaintTiming + , GHCJS.DOM.JSFFI.Generated.PerformanceResourceTiming as GHCJS.DOM.PerformanceResourceTiming + , GHCJS.DOM.JSFFI.Generated.PerformanceServerTiming as GHCJS.DOM.PerformanceServerTiming + , GHCJS.DOM.JSFFI.Generated.PerformanceTiming as GHCJS.DOM.PerformanceTiming + , GHCJS.DOM.JSFFI.Generated.PeriodicWave as GHCJS.DOM.PeriodicWave + , GHCJS.DOM.JSFFI.Generated.PeriodicWaveConstraints as GHCJS.DOM.PeriodicWaveConstraints + , GHCJS.DOM.JSFFI.Generated.PeriodicWaveOptions as GHCJS.DOM.PeriodicWaveOptions + , GHCJS.DOM.JSFFI.Generated.PermissionStatus as GHCJS.DOM.PermissionStatus + , GHCJS.DOM.JSFFI.Generated.Permissions as GHCJS.DOM.Permissions + , GHCJS.DOM.JSFFI.Generated.PhotoCapabilities as GHCJS.DOM.PhotoCapabilities + , GHCJS.DOM.JSFFI.Generated.PhotoSettings as GHCJS.DOM.PhotoSettings + , GHCJS.DOM.JSFFI.Generated.PictureInPictureEvent as GHCJS.DOM.PictureInPictureEvent + , GHCJS.DOM.JSFFI.Generated.PictureInPictureEventInit as GHCJS.DOM.PictureInPictureEventInit + , GHCJS.DOM.JSFFI.Generated.PictureInPictureWindow as GHCJS.DOM.PictureInPictureWindow + , GHCJS.DOM.JSFFI.Generated.PlaneLayout as GHCJS.DOM.PlaneLayout + , GHCJS.DOM.JSFFI.Generated.Plugin as GHCJS.DOM.Plugin + , GHCJS.DOM.JSFFI.Generated.PluginArray as GHCJS.DOM.PluginArray + , GHCJS.DOM.JSFFI.Generated.Point2D as GHCJS.DOM.Point2D + , GHCJS.DOM.JSFFI.Generated.PointerEvent as GHCJS.DOM.PointerEvent + , GHCJS.DOM.JSFFI.Generated.PointerEventInit as GHCJS.DOM.PointerEventInit + , GHCJS.DOM.JSFFI.Generated.PointerLockOptions as GHCJS.DOM.PointerLockOptions + , GHCJS.DOM.JSFFI.Generated.PopStateEvent as GHCJS.DOM.PopStateEvent + , GHCJS.DOM.JSFFI.Generated.PopStateEventInit as GHCJS.DOM.PopStateEventInit + , GHCJS.DOM.JSFFI.Generated.PopoverTargetAttributes as GHCJS.DOM.PopoverTargetAttributes + , GHCJS.DOM.JSFFI.Generated.PositionCallback as GHCJS.DOM.PositionCallback + , GHCJS.DOM.JSFFI.Generated.PositionErrorCallback as GHCJS.DOM.PositionErrorCallback + , GHCJS.DOM.JSFFI.Generated.PositionOptions as GHCJS.DOM.PositionOptions + , GHCJS.DOM.JSFFI.Generated.PrivateToken as GHCJS.DOM.PrivateToken + , GHCJS.DOM.JSFFI.Generated.ProcessingInstruction as GHCJS.DOM.ProcessingInstruction + , GHCJS.DOM.JSFFI.Generated.ProgressEvent as GHCJS.DOM.ProgressEvent + , GHCJS.DOM.JSFFI.Generated.ProgressEventInit as GHCJS.DOM.ProgressEventInit + , GHCJS.DOM.JSFFI.Generated.PromiseRejectionEvent as GHCJS.DOM.PromiseRejectionEvent + , GHCJS.DOM.JSFFI.Generated.PromiseRejectionEventInit as GHCJS.DOM.PromiseRejectionEventInit + , GHCJS.DOM.JSFFI.Generated.PropertyDefinition as GHCJS.DOM.PropertyDefinition + , GHCJS.DOM.JSFFI.Generated.PublicKeyCredential as GHCJS.DOM.PublicKeyCredential + , GHCJS.DOM.JSFFI.Generated.PublicKeyCredentialCreationOptions as GHCJS.DOM.PublicKeyCredentialCreationOptions + , GHCJS.DOM.JSFFI.Generated.PublicKeyCredentialCreationOptionsJSON as GHCJS.DOM.PublicKeyCredentialCreationOptionsJSON + , GHCJS.DOM.JSFFI.Generated.PublicKeyCredentialDescriptor as GHCJS.DOM.PublicKeyCredentialDescriptor + , GHCJS.DOM.JSFFI.Generated.PublicKeyCredentialDescriptorJSON as GHCJS.DOM.PublicKeyCredentialDescriptorJSON + , GHCJS.DOM.JSFFI.Generated.PublicKeyCredentialEntity as GHCJS.DOM.PublicKeyCredentialEntity + , GHCJS.DOM.JSFFI.Generated.PublicKeyCredentialParameters as GHCJS.DOM.PublicKeyCredentialParameters + , GHCJS.DOM.JSFFI.Generated.PublicKeyCredentialRequestOptions as GHCJS.DOM.PublicKeyCredentialRequestOptions + , GHCJS.DOM.JSFFI.Generated.PublicKeyCredentialRequestOptionsJSON as GHCJS.DOM.PublicKeyCredentialRequestOptionsJSON + , GHCJS.DOM.JSFFI.Generated.PublicKeyCredentialRpEntity as GHCJS.DOM.PublicKeyCredentialRpEntity + , GHCJS.DOM.JSFFI.Generated.PublicKeyCredentialUserEntity as GHCJS.DOM.PublicKeyCredentialUserEntity + , GHCJS.DOM.JSFFI.Generated.PublicKeyCredentialUserEntityJSON as GHCJS.DOM.PublicKeyCredentialUserEntityJSON + , GHCJS.DOM.JSFFI.Generated.PushEvent as GHCJS.DOM.PushEvent + , GHCJS.DOM.JSFFI.Generated.PushEventInit as GHCJS.DOM.PushEventInit + , GHCJS.DOM.JSFFI.Generated.PushManager as GHCJS.DOM.PushManager + , GHCJS.DOM.JSFFI.Generated.PushManagerAttribute as GHCJS.DOM.PushManagerAttribute + , GHCJS.DOM.JSFFI.Generated.PushMessageData as GHCJS.DOM.PushMessageData + , GHCJS.DOM.JSFFI.Generated.PushSubscription as GHCJS.DOM.PushSubscription + , GHCJS.DOM.JSFFI.Generated.PushSubscriptionChangeEvent as GHCJS.DOM.PushSubscriptionChangeEvent + , GHCJS.DOM.JSFFI.Generated.PushSubscriptionChangeEventInit as GHCJS.DOM.PushSubscriptionChangeEventInit + , GHCJS.DOM.JSFFI.Generated.PushSubscriptionJSON as GHCJS.DOM.PushSubscriptionJSON + , GHCJS.DOM.JSFFI.Generated.PushSubscriptionKeys as GHCJS.DOM.PushSubscriptionKeys + , GHCJS.DOM.JSFFI.Generated.PushSubscriptionOptions as GHCJS.DOM.PushSubscriptionOptions + , GHCJS.DOM.JSFFI.Generated.PushSubscriptionOptionsInit as GHCJS.DOM.PushSubscriptionOptionsInit + , GHCJS.DOM.JSFFI.Generated.QueuingStrategy as GHCJS.DOM.QueuingStrategy + , GHCJS.DOM.JSFFI.Generated.QueuingStrategyInit as GHCJS.DOM.QueuingStrategyInit + , GHCJS.DOM.JSFFI.Generated.QueuingStrategySize as GHCJS.DOM.QueuingStrategySize + , GHCJS.DOM.JSFFI.Generated.RTCAnswerOptions as GHCJS.DOM.RTCAnswerOptions + , GHCJS.DOM.JSFFI.Generated.RTCCertificate as GHCJS.DOM.RTCCertificate + , GHCJS.DOM.JSFFI.Generated.RTCConfiguration as GHCJS.DOM.RTCConfiguration + , GHCJS.DOM.JSFFI.Generated.RTCDTMFSender as GHCJS.DOM.RTCDTMFSender + , GHCJS.DOM.JSFFI.Generated.RTCDTMFToneChangeEvent as GHCJS.DOM.RTCDTMFToneChangeEvent + , GHCJS.DOM.JSFFI.Generated.RTCDTMFToneChangeEventInit as GHCJS.DOM.RTCDTMFToneChangeEventInit + , GHCJS.DOM.JSFFI.Generated.RTCDataChannel as GHCJS.DOM.RTCDataChannel + , GHCJS.DOM.JSFFI.Generated.RTCDataChannelEvent as GHCJS.DOM.RTCDataChannelEvent + , GHCJS.DOM.JSFFI.Generated.RTCDataChannelEventInit as GHCJS.DOM.RTCDataChannelEventInit + , GHCJS.DOM.JSFFI.Generated.RTCDataChannelInit as GHCJS.DOM.RTCDataChannelInit + , GHCJS.DOM.JSFFI.Generated.RTCDtlsFingerprint as GHCJS.DOM.RTCDtlsFingerprint + , GHCJS.DOM.JSFFI.Generated.RTCDtlsTransport as GHCJS.DOM.RTCDtlsTransport + , GHCJS.DOM.JSFFI.Generated.RTCEncodedAudioFrame as GHCJS.DOM.RTCEncodedAudioFrame + , GHCJS.DOM.JSFFI.Generated.RTCEncodedAudioFrameMetadata as GHCJS.DOM.RTCEncodedAudioFrameMetadata + , GHCJS.DOM.JSFFI.Generated.RTCEncodedAudioFrameOptions as GHCJS.DOM.RTCEncodedAudioFrameOptions + , GHCJS.DOM.JSFFI.Generated.RTCEncodedFrameMetadata as GHCJS.DOM.RTCEncodedFrameMetadata + , GHCJS.DOM.JSFFI.Generated.RTCEncodedVideoFrame as GHCJS.DOM.RTCEncodedVideoFrame + , GHCJS.DOM.JSFFI.Generated.RTCEncodedVideoFrameMetadata as GHCJS.DOM.RTCEncodedVideoFrameMetadata + , GHCJS.DOM.JSFFI.Generated.RTCEncodedVideoFrameOptions as GHCJS.DOM.RTCEncodedVideoFrameOptions + , GHCJS.DOM.JSFFI.Generated.RTCError as GHCJS.DOM.RTCError + , GHCJS.DOM.JSFFI.Generated.RTCErrorEvent as GHCJS.DOM.RTCErrorEvent + , GHCJS.DOM.JSFFI.Generated.RTCErrorEventInit as GHCJS.DOM.RTCErrorEventInit + , GHCJS.DOM.JSFFI.Generated.RTCErrorInit as GHCJS.DOM.RTCErrorInit + , GHCJS.DOM.JSFFI.Generated.RTCIceCandidate as GHCJS.DOM.RTCIceCandidate + , GHCJS.DOM.JSFFI.Generated.RTCIceCandidateInit as GHCJS.DOM.RTCIceCandidateInit + , GHCJS.DOM.JSFFI.Generated.RTCIceCandidatePair as GHCJS.DOM.RTCIceCandidatePair + , GHCJS.DOM.JSFFI.Generated.RTCIceServer as GHCJS.DOM.RTCIceServer + , GHCJS.DOM.JSFFI.Generated.RTCIceTransport as GHCJS.DOM.RTCIceTransport + , GHCJS.DOM.JSFFI.Generated.RTCLocalIceCandidateInit as GHCJS.DOM.RTCLocalIceCandidateInit + , GHCJS.DOM.JSFFI.Generated.RTCLocalSessionDescriptionInit as GHCJS.DOM.RTCLocalSessionDescriptionInit + , GHCJS.DOM.JSFFI.Generated.RTCOfferAnswerOptions as GHCJS.DOM.RTCOfferAnswerOptions + , GHCJS.DOM.JSFFI.Generated.RTCOfferOptions as GHCJS.DOM.RTCOfferOptions + , GHCJS.DOM.JSFFI.Generated.RTCPeerConnection as GHCJS.DOM.RTCPeerConnection + , GHCJS.DOM.JSFFI.Generated.RTCPeerConnectionErrorCallback as GHCJS.DOM.RTCPeerConnectionErrorCallback + , GHCJS.DOM.JSFFI.Generated.RTCPeerConnectionIceErrorEvent as GHCJS.DOM.RTCPeerConnectionIceErrorEvent + , GHCJS.DOM.JSFFI.Generated.RTCPeerConnectionIceErrorEventInit as GHCJS.DOM.RTCPeerConnectionIceErrorEventInit + , GHCJS.DOM.JSFFI.Generated.RTCPeerConnectionIceEvent as GHCJS.DOM.RTCPeerConnectionIceEvent + , GHCJS.DOM.JSFFI.Generated.RTCPeerConnectionIceEventInit as GHCJS.DOM.RTCPeerConnectionIceEventInit + , GHCJS.DOM.JSFFI.Generated.RTCRtcpParameters as GHCJS.DOM.RTCRtcpParameters + , GHCJS.DOM.JSFFI.Generated.RTCRtpCapabilities as GHCJS.DOM.RTCRtpCapabilities + , GHCJS.DOM.JSFFI.Generated.RTCRtpCodec as GHCJS.DOM.RTCRtpCodec + , GHCJS.DOM.JSFFI.Generated.RTCRtpCodecParameters as GHCJS.DOM.RTCRtpCodecParameters + , GHCJS.DOM.JSFFI.Generated.RTCRtpCodingParameters as GHCJS.DOM.RTCRtpCodingParameters + , GHCJS.DOM.JSFFI.Generated.RTCRtpContributingSource as GHCJS.DOM.RTCRtpContributingSource + , GHCJS.DOM.JSFFI.Generated.RTCRtpEncodingParameters as GHCJS.DOM.RTCRtpEncodingParameters + , GHCJS.DOM.JSFFI.Generated.RTCRtpHeaderExtensionCapability as GHCJS.DOM.RTCRtpHeaderExtensionCapability + , GHCJS.DOM.JSFFI.Generated.RTCRtpHeaderExtensionParameters as GHCJS.DOM.RTCRtpHeaderExtensionParameters + , GHCJS.DOM.JSFFI.Generated.RTCRtpParameters as GHCJS.DOM.RTCRtpParameters + , GHCJS.DOM.JSFFI.Generated.RTCRtpReceiveParameters as GHCJS.DOM.RTCRtpReceiveParameters + , GHCJS.DOM.JSFFI.Generated.RTCRtpReceiver as GHCJS.DOM.RTCRtpReceiver + , GHCJS.DOM.JSFFI.Generated.RTCRtpSFrameDecryptor as GHCJS.DOM.RTCRtpSFrameDecryptor + , GHCJS.DOM.JSFFI.Generated.RTCRtpSFrameEncryptor as GHCJS.DOM.RTCRtpSFrameEncryptor + , GHCJS.DOM.JSFFI.Generated.RTCRtpScriptTransform as GHCJS.DOM.RTCRtpScriptTransform + , GHCJS.DOM.JSFFI.Generated.RTCRtpScriptTransformer as GHCJS.DOM.RTCRtpScriptTransformer + , GHCJS.DOM.JSFFI.Generated.RTCRtpSendParameters as GHCJS.DOM.RTCRtpSendParameters + , GHCJS.DOM.JSFFI.Generated.RTCRtpSender as GHCJS.DOM.RTCRtpSender + , GHCJS.DOM.JSFFI.Generated.RTCRtpSynchronizationSource as GHCJS.DOM.RTCRtpSynchronizationSource + , GHCJS.DOM.JSFFI.Generated.RTCRtpTransceiver as GHCJS.DOM.RTCRtpTransceiver + , GHCJS.DOM.JSFFI.Generated.RTCRtpTransceiverInit as GHCJS.DOM.RTCRtpTransceiverInit + , GHCJS.DOM.JSFFI.Generated.RTCSctpTransport as GHCJS.DOM.RTCSctpTransport + , GHCJS.DOM.JSFFI.Generated.RTCSessionDescription as GHCJS.DOM.RTCSessionDescription + , GHCJS.DOM.JSFFI.Generated.RTCSessionDescriptionCallback as GHCJS.DOM.RTCSessionDescriptionCallback + , GHCJS.DOM.JSFFI.Generated.RTCSessionDescriptionInit as GHCJS.DOM.RTCSessionDescriptionInit + , GHCJS.DOM.JSFFI.Generated.RTCSetParameterOptions as GHCJS.DOM.RTCSetParameterOptions + , GHCJS.DOM.JSFFI.Generated.RTCStatsReport as GHCJS.DOM.RTCStatsReport + , GHCJS.DOM.JSFFI.Generated.RTCTrackEvent as GHCJS.DOM.RTCTrackEvent + , GHCJS.DOM.JSFFI.Generated.RTCTrackEventInit as GHCJS.DOM.RTCTrackEventInit + , GHCJS.DOM.JSFFI.Generated.RTCTransformEvent as GHCJS.DOM.RTCTransformEvent + , GHCJS.DOM.JSFFI.Generated.RadioNodeList as GHCJS.DOM.RadioNodeList + , GHCJS.DOM.JSFFI.Generated.Range as GHCJS.DOM.Range + , GHCJS.DOM.JSFFI.Generated.ReadableByteStreamController as GHCJS.DOM.ReadableByteStreamController + , GHCJS.DOM.JSFFI.Generated.ReadableStream as GHCJS.DOM.ReadableStream + , GHCJS.DOM.JSFFI.Generated.ReadableStreamBYOBReader as GHCJS.DOM.ReadableStreamBYOBReader + , GHCJS.DOM.JSFFI.Generated.ReadableStreamBYOBReaderReadOptions as GHCJS.DOM.ReadableStreamBYOBReaderReadOptions + , GHCJS.DOM.JSFFI.Generated.ReadableStreamBYOBRequest as GHCJS.DOM.ReadableStreamBYOBRequest + , GHCJS.DOM.JSFFI.Generated.ReadableStreamDefaultController as GHCJS.DOM.ReadableStreamDefaultController + , GHCJS.DOM.JSFFI.Generated.ReadableStreamDefaultReader as GHCJS.DOM.ReadableStreamDefaultReader + , GHCJS.DOM.JSFFI.Generated.ReadableStreamGenericReader as GHCJS.DOM.ReadableStreamGenericReader + , GHCJS.DOM.JSFFI.Generated.ReadableStreamGetReaderOptions as GHCJS.DOM.ReadableStreamGetReaderOptions + , GHCJS.DOM.JSFFI.Generated.ReadableStreamReadResult as GHCJS.DOM.ReadableStreamReadResult + , GHCJS.DOM.JSFFI.Generated.ReadableWritablePair as GHCJS.DOM.ReadableWritablePair + , GHCJS.DOM.JSFFI.Generated.RegistrationOptions as GHCJS.DOM.RegistrationOptions + , GHCJS.DOM.JSFFI.Generated.RemotePlayback as GHCJS.DOM.RemotePlayback + , GHCJS.DOM.JSFFI.Generated.RemotePlaybackAvailabilityCallback as GHCJS.DOM.RemotePlaybackAvailabilityCallback + , GHCJS.DOM.JSFFI.Generated.Report as GHCJS.DOM.Report + , GHCJS.DOM.JSFFI.Generated.ReportBody as GHCJS.DOM.ReportBody + , GHCJS.DOM.JSFFI.Generated.ReportingObserver as GHCJS.DOM.ReportingObserver + , GHCJS.DOM.JSFFI.Generated.ReportingObserverCallback as GHCJS.DOM.ReportingObserverCallback + , GHCJS.DOM.JSFFI.Generated.ReportingObserverOptions as GHCJS.DOM.ReportingObserverOptions + , GHCJS.DOM.JSFFI.Generated.Request as GHCJS.DOM.Request + , GHCJS.DOM.JSFFI.Generated.RequestInit as GHCJS.DOM.RequestInit + , GHCJS.DOM.JSFFI.Generated.ResizeObserver as GHCJS.DOM.ResizeObserver + , GHCJS.DOM.JSFFI.Generated.ResizeObserverCallback as GHCJS.DOM.ResizeObserverCallback + , GHCJS.DOM.JSFFI.Generated.ResizeObserverEntry as GHCJS.DOM.ResizeObserverEntry + , GHCJS.DOM.JSFFI.Generated.ResizeObserverOptions as GHCJS.DOM.ResizeObserverOptions + , GHCJS.DOM.JSFFI.Generated.ResizeObserverSize as GHCJS.DOM.ResizeObserverSize + , GHCJS.DOM.JSFFI.Generated.Response as GHCJS.DOM.Response + , GHCJS.DOM.JSFFI.Generated.ResponseInit as GHCJS.DOM.ResponseInit + , GHCJS.DOM.JSFFI.Generated.RouterCondition as GHCJS.DOM.RouterCondition + , GHCJS.DOM.JSFFI.Generated.RouterRule as GHCJS.DOM.RouterRule + , GHCJS.DOM.JSFFI.Generated.RouterSourceDict as GHCJS.DOM.RouterSourceDict + , GHCJS.DOM.JSFFI.Generated.RsaOtherPrimesInfo as GHCJS.DOM.RsaOtherPrimesInfo + , GHCJS.DOM.JSFFI.Generated.SVGAElement as GHCJS.DOM.SVGAElement + , GHCJS.DOM.JSFFI.Generated.SVGAngle as GHCJS.DOM.SVGAngle + , GHCJS.DOM.JSFFI.Generated.SVGAnimateElement as GHCJS.DOM.SVGAnimateElement + , GHCJS.DOM.JSFFI.Generated.SVGAnimateMotionElement as GHCJS.DOM.SVGAnimateMotionElement + , GHCJS.DOM.JSFFI.Generated.SVGAnimateTransformElement as GHCJS.DOM.SVGAnimateTransformElement + , GHCJS.DOM.JSFFI.Generated.SVGAnimatedAngle as GHCJS.DOM.SVGAnimatedAngle + , GHCJS.DOM.JSFFI.Generated.SVGAnimatedBoolean as GHCJS.DOM.SVGAnimatedBoolean + , GHCJS.DOM.JSFFI.Generated.SVGAnimatedEnumeration as GHCJS.DOM.SVGAnimatedEnumeration + , GHCJS.DOM.JSFFI.Generated.SVGAnimatedInteger as GHCJS.DOM.SVGAnimatedInteger + , GHCJS.DOM.JSFFI.Generated.SVGAnimatedLength as GHCJS.DOM.SVGAnimatedLength + , GHCJS.DOM.JSFFI.Generated.SVGAnimatedLengthList as GHCJS.DOM.SVGAnimatedLengthList + , GHCJS.DOM.JSFFI.Generated.SVGAnimatedNumber as GHCJS.DOM.SVGAnimatedNumber + , GHCJS.DOM.JSFFI.Generated.SVGAnimatedNumberList as GHCJS.DOM.SVGAnimatedNumberList + , GHCJS.DOM.JSFFI.Generated.SVGAnimatedPoints as GHCJS.DOM.SVGAnimatedPoints + , GHCJS.DOM.JSFFI.Generated.SVGAnimatedPreserveAspectRatio as GHCJS.DOM.SVGAnimatedPreserveAspectRatio + , GHCJS.DOM.JSFFI.Generated.SVGAnimatedRect as GHCJS.DOM.SVGAnimatedRect + , GHCJS.DOM.JSFFI.Generated.SVGAnimatedString as GHCJS.DOM.SVGAnimatedString + , GHCJS.DOM.JSFFI.Generated.SVGAnimatedTransformList as GHCJS.DOM.SVGAnimatedTransformList + , GHCJS.DOM.JSFFI.Generated.SVGAnimationElement as GHCJS.DOM.SVGAnimationElement + , GHCJS.DOM.JSFFI.Generated.SVGBoundingBoxOptions as GHCJS.DOM.SVGBoundingBoxOptions + , GHCJS.DOM.JSFFI.Generated.SVGCircleElement as GHCJS.DOM.SVGCircleElement + , GHCJS.DOM.JSFFI.Generated.SVGClipPathElement as GHCJS.DOM.SVGClipPathElement + , GHCJS.DOM.JSFFI.Generated.SVGComponentTransferFunctionElement as GHCJS.DOM.SVGComponentTransferFunctionElement + , GHCJS.DOM.JSFFI.Generated.SVGDefsElement as GHCJS.DOM.SVGDefsElement + , GHCJS.DOM.JSFFI.Generated.SVGDescElement as GHCJS.DOM.SVGDescElement + , GHCJS.DOM.JSFFI.Generated.SVGElement as GHCJS.DOM.SVGElement + , GHCJS.DOM.JSFFI.Generated.SVGEllipseElement as GHCJS.DOM.SVGEllipseElement + , GHCJS.DOM.JSFFI.Generated.SVGFEBlendElement as GHCJS.DOM.SVGFEBlendElement + , GHCJS.DOM.JSFFI.Generated.SVGFEColorMatrixElement as GHCJS.DOM.SVGFEColorMatrixElement + , GHCJS.DOM.JSFFI.Generated.SVGFEComponentTransferElement as GHCJS.DOM.SVGFEComponentTransferElement + , GHCJS.DOM.JSFFI.Generated.SVGFECompositeElement as GHCJS.DOM.SVGFECompositeElement + , GHCJS.DOM.JSFFI.Generated.SVGFEConvolveMatrixElement as GHCJS.DOM.SVGFEConvolveMatrixElement + , GHCJS.DOM.JSFFI.Generated.SVGFEDiffuseLightingElement as GHCJS.DOM.SVGFEDiffuseLightingElement + , GHCJS.DOM.JSFFI.Generated.SVGFEDisplacementMapElement as GHCJS.DOM.SVGFEDisplacementMapElement + , GHCJS.DOM.JSFFI.Generated.SVGFEDistantLightElement as GHCJS.DOM.SVGFEDistantLightElement + , GHCJS.DOM.JSFFI.Generated.SVGFEDropShadowElement as GHCJS.DOM.SVGFEDropShadowElement + , GHCJS.DOM.JSFFI.Generated.SVGFEFloodElement as GHCJS.DOM.SVGFEFloodElement + , GHCJS.DOM.JSFFI.Generated.SVGFEFuncAElement as GHCJS.DOM.SVGFEFuncAElement + , GHCJS.DOM.JSFFI.Generated.SVGFEFuncBElement as GHCJS.DOM.SVGFEFuncBElement + , GHCJS.DOM.JSFFI.Generated.SVGFEFuncGElement as GHCJS.DOM.SVGFEFuncGElement + , GHCJS.DOM.JSFFI.Generated.SVGFEFuncRElement as GHCJS.DOM.SVGFEFuncRElement + , GHCJS.DOM.JSFFI.Generated.SVGFEGaussianBlurElement as GHCJS.DOM.SVGFEGaussianBlurElement + , GHCJS.DOM.JSFFI.Generated.SVGFEImageElement as GHCJS.DOM.SVGFEImageElement + , GHCJS.DOM.JSFFI.Generated.SVGFEMergeElement as GHCJS.DOM.SVGFEMergeElement + , GHCJS.DOM.JSFFI.Generated.SVGFEMergeNodeElement as GHCJS.DOM.SVGFEMergeNodeElement + , GHCJS.DOM.JSFFI.Generated.SVGFEMorphologyElement as GHCJS.DOM.SVGFEMorphologyElement + , GHCJS.DOM.JSFFI.Generated.SVGFEOffsetElement as GHCJS.DOM.SVGFEOffsetElement + , GHCJS.DOM.JSFFI.Generated.SVGFEPointLightElement as GHCJS.DOM.SVGFEPointLightElement + , GHCJS.DOM.JSFFI.Generated.SVGFESpecularLightingElement as GHCJS.DOM.SVGFESpecularLightingElement + , GHCJS.DOM.JSFFI.Generated.SVGFESpotLightElement as GHCJS.DOM.SVGFESpotLightElement + , GHCJS.DOM.JSFFI.Generated.SVGFETileElement as GHCJS.DOM.SVGFETileElement + , GHCJS.DOM.JSFFI.Generated.SVGFETurbulenceElement as GHCJS.DOM.SVGFETurbulenceElement + , GHCJS.DOM.JSFFI.Generated.SVGFilterElement as GHCJS.DOM.SVGFilterElement + , GHCJS.DOM.JSFFI.Generated.SVGFilterPrimitiveStandardAttributes as GHCJS.DOM.SVGFilterPrimitiveStandardAttributes + , GHCJS.DOM.JSFFI.Generated.SVGFitToViewBox as GHCJS.DOM.SVGFitToViewBox + , GHCJS.DOM.JSFFI.Generated.SVGForeignObjectElement as GHCJS.DOM.SVGForeignObjectElement + , GHCJS.DOM.JSFFI.Generated.SVGGElement as GHCJS.DOM.SVGGElement + , GHCJS.DOM.JSFFI.Generated.SVGGeometryElement as GHCJS.DOM.SVGGeometryElement + , GHCJS.DOM.JSFFI.Generated.SVGGradientElement as GHCJS.DOM.SVGGradientElement + , GHCJS.DOM.JSFFI.Generated.SVGGraphicsElement as GHCJS.DOM.SVGGraphicsElement + , GHCJS.DOM.JSFFI.Generated.SVGImageElement as GHCJS.DOM.SVGImageElement + , GHCJS.DOM.JSFFI.Generated.SVGLength as GHCJS.DOM.SVGLength + , GHCJS.DOM.JSFFI.Generated.SVGLengthList as GHCJS.DOM.SVGLengthList + , GHCJS.DOM.JSFFI.Generated.SVGLineElement as GHCJS.DOM.SVGLineElement + , GHCJS.DOM.JSFFI.Generated.SVGLinearGradientElement as GHCJS.DOM.SVGLinearGradientElement + , GHCJS.DOM.JSFFI.Generated.SVGMPathElement as GHCJS.DOM.SVGMPathElement + , GHCJS.DOM.JSFFI.Generated.SVGMarkerElement as GHCJS.DOM.SVGMarkerElement + , GHCJS.DOM.JSFFI.Generated.SVGMaskElement as GHCJS.DOM.SVGMaskElement + , GHCJS.DOM.JSFFI.Generated.SVGMetadataElement as GHCJS.DOM.SVGMetadataElement + , GHCJS.DOM.JSFFI.Generated.SVGNumber as GHCJS.DOM.SVGNumber + , GHCJS.DOM.JSFFI.Generated.SVGNumberList as GHCJS.DOM.SVGNumberList + , GHCJS.DOM.JSFFI.Generated.SVGPathElement as GHCJS.DOM.SVGPathElement + , GHCJS.DOM.JSFFI.Generated.SVGPatternElement as GHCJS.DOM.SVGPatternElement + , GHCJS.DOM.JSFFI.Generated.SVGPointList as GHCJS.DOM.SVGPointList + , GHCJS.DOM.JSFFI.Generated.SVGPolygonElement as GHCJS.DOM.SVGPolygonElement + , GHCJS.DOM.JSFFI.Generated.SVGPolylineElement as GHCJS.DOM.SVGPolylineElement + , GHCJS.DOM.JSFFI.Generated.SVGPreserveAspectRatio as GHCJS.DOM.SVGPreserveAspectRatio + , GHCJS.DOM.JSFFI.Generated.SVGRadialGradientElement as GHCJS.DOM.SVGRadialGradientElement + , GHCJS.DOM.JSFFI.Generated.SVGRectElement as GHCJS.DOM.SVGRectElement + , GHCJS.DOM.JSFFI.Generated.SVGSVGElement as GHCJS.DOM.SVGSVGElement + , GHCJS.DOM.JSFFI.Generated.SVGScriptElement as GHCJS.DOM.SVGScriptElement + , GHCJS.DOM.JSFFI.Generated.SVGSetElement as GHCJS.DOM.SVGSetElement + , GHCJS.DOM.JSFFI.Generated.SVGStopElement as GHCJS.DOM.SVGStopElement + , GHCJS.DOM.JSFFI.Generated.SVGStringList as GHCJS.DOM.SVGStringList + , GHCJS.DOM.JSFFI.Generated.SVGStyleElement as GHCJS.DOM.SVGStyleElement + , GHCJS.DOM.JSFFI.Generated.SVGSwitchElement as GHCJS.DOM.SVGSwitchElement + , GHCJS.DOM.JSFFI.Generated.SVGSymbolElement as GHCJS.DOM.SVGSymbolElement + , GHCJS.DOM.JSFFI.Generated.SVGTSpanElement as GHCJS.DOM.SVGTSpanElement + , GHCJS.DOM.JSFFI.Generated.SVGTests as GHCJS.DOM.SVGTests + , GHCJS.DOM.JSFFI.Generated.SVGTextContentElement as GHCJS.DOM.SVGTextContentElement + , GHCJS.DOM.JSFFI.Generated.SVGTextElement as GHCJS.DOM.SVGTextElement + , GHCJS.DOM.JSFFI.Generated.SVGTextPathElement as GHCJS.DOM.SVGTextPathElement + , GHCJS.DOM.JSFFI.Generated.SVGTextPositioningElement as GHCJS.DOM.SVGTextPositioningElement + , GHCJS.DOM.JSFFI.Generated.SVGTitleElement as GHCJS.DOM.SVGTitleElement + , GHCJS.DOM.JSFFI.Generated.SVGTransform as GHCJS.DOM.SVGTransform + , GHCJS.DOM.JSFFI.Generated.SVGTransformList as GHCJS.DOM.SVGTransformList + , GHCJS.DOM.JSFFI.Generated.SVGURIReference as GHCJS.DOM.SVGURIReference + , GHCJS.DOM.JSFFI.Generated.SVGUnitTypes as GHCJS.DOM.SVGUnitTypes + , GHCJS.DOM.JSFFI.Generated.SVGUseElement as GHCJS.DOM.SVGUseElement + , GHCJS.DOM.JSFFI.Generated.SVGViewElement as GHCJS.DOM.SVGViewElement + , GHCJS.DOM.JSFFI.Generated.Sanitizer as GHCJS.DOM.Sanitizer + , GHCJS.DOM.JSFFI.Generated.SanitizerAttributeNamespace as GHCJS.DOM.SanitizerAttributeNamespace + , GHCJS.DOM.JSFFI.Generated.SanitizerConfig as GHCJS.DOM.SanitizerConfig + , GHCJS.DOM.JSFFI.Generated.SanitizerElementNamespace as GHCJS.DOM.SanitizerElementNamespace + , GHCJS.DOM.JSFFI.Generated.SanitizerElementNamespaceWithAttributes as GHCJS.DOM.SanitizerElementNamespaceWithAttributes + , GHCJS.DOM.JSFFI.Generated.SanitizerProcessingInstruction as GHCJS.DOM.SanitizerProcessingInstruction + , GHCJS.DOM.JSFFI.Generated.Scheduler as GHCJS.DOM.Scheduler + , GHCJS.DOM.JSFFI.Generated.SchedulerPostTaskCallback as GHCJS.DOM.SchedulerPostTaskCallback + , GHCJS.DOM.JSFFI.Generated.SchedulerPostTaskOptions as GHCJS.DOM.SchedulerPostTaskOptions + , GHCJS.DOM.JSFFI.Generated.Screen as GHCJS.DOM.Screen + , GHCJS.DOM.JSFFI.Generated.ScreenDetailed as GHCJS.DOM.ScreenDetailed + , GHCJS.DOM.JSFFI.Generated.ScreenOrientation as GHCJS.DOM.ScreenOrientation + , GHCJS.DOM.JSFFI.Generated.ScriptProcessorNode as GHCJS.DOM.ScriptProcessorNode + , GHCJS.DOM.JSFFI.Generated.ScrollIntoViewOptions as GHCJS.DOM.ScrollIntoViewOptions + , GHCJS.DOM.JSFFI.Generated.ScrollOptions as GHCJS.DOM.ScrollOptions + , GHCJS.DOM.JSFFI.Generated.ScrollResult as GHCJS.DOM.ScrollResult + , GHCJS.DOM.JSFFI.Generated.ScrollTimeline as GHCJS.DOM.ScrollTimeline + , GHCJS.DOM.JSFFI.Generated.ScrollTimelineOptions as GHCJS.DOM.ScrollTimelineOptions + , GHCJS.DOM.JSFFI.Generated.ScrollToOptions as GHCJS.DOM.ScrollToOptions + , GHCJS.DOM.JSFFI.Generated.SecurityPolicyViolationEvent as GHCJS.DOM.SecurityPolicyViolationEvent + , GHCJS.DOM.JSFFI.Generated.SecurityPolicyViolationEventInit as GHCJS.DOM.SecurityPolicyViolationEventInit + , GHCJS.DOM.JSFFI.Generated.Segment as GHCJS.DOM.Segment + , GHCJS.DOM.JSFFI.Generated.Selection as GHCJS.DOM.Selection + , GHCJS.DOM.JSFFI.Generated.Serial as GHCJS.DOM.Serial + , GHCJS.DOM.JSFFI.Generated.SerialInputSignals as GHCJS.DOM.SerialInputSignals + , GHCJS.DOM.JSFFI.Generated.SerialOptions as GHCJS.DOM.SerialOptions + , GHCJS.DOM.JSFFI.Generated.SerialOutputSignals as GHCJS.DOM.SerialOutputSignals + , GHCJS.DOM.JSFFI.Generated.SerialPort as GHCJS.DOM.SerialPort + , GHCJS.DOM.JSFFI.Generated.SerialPortFilter as GHCJS.DOM.SerialPortFilter + , GHCJS.DOM.JSFFI.Generated.SerialPortInfo as GHCJS.DOM.SerialPortInfo + , GHCJS.DOM.JSFFI.Generated.SerialPortRequestOptions as GHCJS.DOM.SerialPortRequestOptions + , GHCJS.DOM.JSFFI.Generated.ServiceWorker as GHCJS.DOM.ServiceWorker + , GHCJS.DOM.JSFFI.Generated.ServiceWorkerContainer as GHCJS.DOM.ServiceWorkerContainer + , GHCJS.DOM.JSFFI.Generated.ServiceWorkerGlobalScope as GHCJS.DOM.ServiceWorkerGlobalScope + , GHCJS.DOM.JSFFI.Generated.ServiceWorkerRegistration as GHCJS.DOM.ServiceWorkerRegistration + , GHCJS.DOM.JSFFI.Generated.SetHTMLOptions as GHCJS.DOM.SetHTMLOptions + , GHCJS.DOM.JSFFI.Generated.SetHTMLUnsafeOptions as GHCJS.DOM.SetHTMLUnsafeOptions + , GHCJS.DOM.JSFFI.Generated.ShadowRoot as GHCJS.DOM.ShadowRoot + , GHCJS.DOM.JSFFI.Generated.ShadowRootInit as GHCJS.DOM.ShadowRootInit + , GHCJS.DOM.JSFFI.Generated.ShareData as GHCJS.DOM.ShareData + , GHCJS.DOM.JSFFI.Generated.SharedWorker as GHCJS.DOM.SharedWorker + , GHCJS.DOM.JSFFI.Generated.SharedWorkerGlobalScope as GHCJS.DOM.SharedWorkerGlobalScope + , GHCJS.DOM.JSFFI.Generated.SharedWorkerOptions as GHCJS.DOM.SharedWorkerOptions + , GHCJS.DOM.JSFFI.Generated.ShowPopoverOptions as GHCJS.DOM.ShowPopoverOptions + , GHCJS.DOM.JSFFI.Generated.Slottable as GHCJS.DOM.Slottable + , GHCJS.DOM.JSFFI.Generated.SourceBuffer as GHCJS.DOM.SourceBuffer + , GHCJS.DOM.JSFFI.Generated.SourceBufferList as GHCJS.DOM.SourceBufferList + , GHCJS.DOM.JSFFI.Generated.SpeechGrammar as GHCJS.DOM.SpeechGrammar + , GHCJS.DOM.JSFFI.Generated.SpeechGrammarList as GHCJS.DOM.SpeechGrammarList + , GHCJS.DOM.JSFFI.Generated.SpeechRecognition as GHCJS.DOM.SpeechRecognition + , GHCJS.DOM.JSFFI.Generated.SpeechRecognitionAlternative as GHCJS.DOM.SpeechRecognitionAlternative + , GHCJS.DOM.JSFFI.Generated.SpeechRecognitionErrorEvent as GHCJS.DOM.SpeechRecognitionErrorEvent + , GHCJS.DOM.JSFFI.Generated.SpeechRecognitionErrorEventInit as GHCJS.DOM.SpeechRecognitionErrorEventInit + , GHCJS.DOM.JSFFI.Generated.SpeechRecognitionEvent as GHCJS.DOM.SpeechRecognitionEvent + , GHCJS.DOM.JSFFI.Generated.SpeechRecognitionEventInit as GHCJS.DOM.SpeechRecognitionEventInit + , GHCJS.DOM.JSFFI.Generated.SpeechRecognitionOptions as GHCJS.DOM.SpeechRecognitionOptions + , GHCJS.DOM.JSFFI.Generated.SpeechRecognitionPhrase as GHCJS.DOM.SpeechRecognitionPhrase + , GHCJS.DOM.JSFFI.Generated.SpeechRecognitionResult as GHCJS.DOM.SpeechRecognitionResult + , GHCJS.DOM.JSFFI.Generated.SpeechRecognitionResultList as GHCJS.DOM.SpeechRecognitionResultList + , GHCJS.DOM.JSFFI.Generated.SpeechSynthesis as GHCJS.DOM.SpeechSynthesis + , GHCJS.DOM.JSFFI.Generated.SpeechSynthesisErrorEvent as GHCJS.DOM.SpeechSynthesisErrorEvent + , GHCJS.DOM.JSFFI.Generated.SpeechSynthesisErrorEventInit as GHCJS.DOM.SpeechSynthesisErrorEventInit + , GHCJS.DOM.JSFFI.Generated.SpeechSynthesisEvent as GHCJS.DOM.SpeechSynthesisEvent + , GHCJS.DOM.JSFFI.Generated.SpeechSynthesisEventInit as GHCJS.DOM.SpeechSynthesisEventInit + , GHCJS.DOM.JSFFI.Generated.SpeechSynthesisUtterance as GHCJS.DOM.SpeechSynthesisUtterance + , GHCJS.DOM.JSFFI.Generated.SpeechSynthesisVoice as GHCJS.DOM.SpeechSynthesisVoice + , GHCJS.DOM.JSFFI.Generated.StartViewTransitionOptions as GHCJS.DOM.StartViewTransitionOptions + , GHCJS.DOM.JSFFI.Generated.StaticRange as GHCJS.DOM.StaticRange + , GHCJS.DOM.JSFFI.Generated.StaticRangeInit as GHCJS.DOM.StaticRangeInit + , GHCJS.DOM.JSFFI.Generated.StereoPannerNode as GHCJS.DOM.StereoPannerNode + , GHCJS.DOM.JSFFI.Generated.StereoPannerOptions as GHCJS.DOM.StereoPannerOptions + , GHCJS.DOM.JSFFI.Generated.Storage as GHCJS.DOM.Storage + , GHCJS.DOM.JSFFI.Generated.StorageEstimate as GHCJS.DOM.StorageEstimate + , GHCJS.DOM.JSFFI.Generated.StorageEvent as GHCJS.DOM.StorageEvent + , GHCJS.DOM.JSFFI.Generated.StorageEventInit as GHCJS.DOM.StorageEventInit + , GHCJS.DOM.JSFFI.Generated.StorageManager as GHCJS.DOM.StorageManager + , GHCJS.DOM.JSFFI.Generated.StreamPipeOptions as GHCJS.DOM.StreamPipeOptions + , GHCJS.DOM.JSFFI.Generated.StructuredSerializeOptions as GHCJS.DOM.StructuredSerializeOptions + , GHCJS.DOM.JSFFI.Generated.StylePropertyMap as GHCJS.DOM.StylePropertyMap + , GHCJS.DOM.JSFFI.Generated.StylePropertyMapReadOnly as GHCJS.DOM.StylePropertyMapReadOnly + , GHCJS.DOM.JSFFI.Generated.StyleSheet as GHCJS.DOM.StyleSheet + , GHCJS.DOM.JSFFI.Generated.StyleSheetList as GHCJS.DOM.StyleSheetList + , GHCJS.DOM.JSFFI.Generated.SubmitEvent as GHCJS.DOM.SubmitEvent + , GHCJS.DOM.JSFFI.Generated.SubmitEventInit as GHCJS.DOM.SubmitEventInit + , GHCJS.DOM.JSFFI.Generated.SubtleCrypto as GHCJS.DOM.SubtleCrypto + , GHCJS.DOM.JSFFI.Generated.SvcOutputMetadata as GHCJS.DOM.SvcOutputMetadata + , GHCJS.DOM.JSFFI.Generated.TaskController as GHCJS.DOM.TaskController + , GHCJS.DOM.JSFFI.Generated.TaskControllerInit as GHCJS.DOM.TaskControllerInit + , GHCJS.DOM.JSFFI.Generated.TaskPriorityChangeEvent as GHCJS.DOM.TaskPriorityChangeEvent + , GHCJS.DOM.JSFFI.Generated.TaskPriorityChangeEventInit as GHCJS.DOM.TaskPriorityChangeEventInit + , GHCJS.DOM.JSFFI.Generated.TaskSignal as GHCJS.DOM.TaskSignal + , GHCJS.DOM.JSFFI.Generated.TaskSignalAnyInit as GHCJS.DOM.TaskSignalAnyInit + , GHCJS.DOM.JSFFI.Generated.Text as GHCJS.DOM.Text + , GHCJS.DOM.JSFFI.Generated.TextDecodeOptions as GHCJS.DOM.TextDecodeOptions + , GHCJS.DOM.JSFFI.Generated.TextDecoder as GHCJS.DOM.TextDecoder + , GHCJS.DOM.JSFFI.Generated.TextDecoderCommon as GHCJS.DOM.TextDecoderCommon + , GHCJS.DOM.JSFFI.Generated.TextDecoderOptions as GHCJS.DOM.TextDecoderOptions + , GHCJS.DOM.JSFFI.Generated.TextDecoderStream as GHCJS.DOM.TextDecoderStream + , GHCJS.DOM.JSFFI.Generated.TextEncoder as GHCJS.DOM.TextEncoder + , GHCJS.DOM.JSFFI.Generated.TextEncoderCommon as GHCJS.DOM.TextEncoderCommon + , GHCJS.DOM.JSFFI.Generated.TextEncoderEncodeIntoResult as GHCJS.DOM.TextEncoderEncodeIntoResult + , GHCJS.DOM.JSFFI.Generated.TextEncoderStream as GHCJS.DOM.TextEncoderStream + , GHCJS.DOM.JSFFI.Generated.TextEvent as GHCJS.DOM.TextEvent + , GHCJS.DOM.JSFFI.Generated.TextMetrics as GHCJS.DOM.TextMetrics + , GHCJS.DOM.JSFFI.Generated.TextTrack as GHCJS.DOM.TextTrack + , GHCJS.DOM.JSFFI.Generated.TextTrackCue as GHCJS.DOM.TextTrackCue + , GHCJS.DOM.JSFFI.Generated.TextTrackCueList as GHCJS.DOM.TextTrackCueList + , GHCJS.DOM.JSFFI.Generated.TextTrackList as GHCJS.DOM.TextTrackList + , GHCJS.DOM.JSFFI.Generated.TimeRanges as GHCJS.DOM.TimeRanges + , GHCJS.DOM.JSFFI.Generated.TimelineRangeOffset as GHCJS.DOM.TimelineRangeOffset + , GHCJS.DOM.JSFFI.Generated.ToggleEvent as GHCJS.DOM.ToggleEvent + , GHCJS.DOM.JSFFI.Generated.ToggleEventInit as GHCJS.DOM.ToggleEventInit + , GHCJS.DOM.JSFFI.Generated.TogglePopoverOptions as GHCJS.DOM.TogglePopoverOptions + , GHCJS.DOM.JSFFI.Generated.Touch as GHCJS.DOM.Touch + , GHCJS.DOM.JSFFI.Generated.TouchEvent as GHCJS.DOM.TouchEvent + , GHCJS.DOM.JSFFI.Generated.TouchEventInit as GHCJS.DOM.TouchEventInit + , GHCJS.DOM.JSFFI.Generated.TouchInit as GHCJS.DOM.TouchInit + , GHCJS.DOM.JSFFI.Generated.TouchList as GHCJS.DOM.TouchList + , GHCJS.DOM.JSFFI.Generated.TrackEvent as GHCJS.DOM.TrackEvent + , GHCJS.DOM.JSFFI.Generated.TrackEventInit as GHCJS.DOM.TrackEventInit + , GHCJS.DOM.JSFFI.Generated.TransformStream as GHCJS.DOM.TransformStream + , GHCJS.DOM.JSFFI.Generated.TransformStreamDefaultController as GHCJS.DOM.TransformStreamDefaultController + , GHCJS.DOM.JSFFI.Generated.TransitionEvent as GHCJS.DOM.TransitionEvent + , GHCJS.DOM.JSFFI.Generated.TransitionEventInit as GHCJS.DOM.TransitionEventInit + , GHCJS.DOM.JSFFI.Generated.TreeWalker as GHCJS.DOM.TreeWalker + , GHCJS.DOM.JSFFI.Generated.TrustedHTML as GHCJS.DOM.TrustedHTML + , GHCJS.DOM.JSFFI.Generated.TrustedHTMLParserOptions as GHCJS.DOM.TrustedHTMLParserOptions + , GHCJS.DOM.JSFFI.Generated.TrustedScript as GHCJS.DOM.TrustedScript + , GHCJS.DOM.JSFFI.Generated.TrustedScriptURL as GHCJS.DOM.TrustedScriptURL + , GHCJS.DOM.JSFFI.Generated.TrustedTypePolicy as GHCJS.DOM.TrustedTypePolicy + , GHCJS.DOM.JSFFI.Generated.TrustedTypePolicyFactory as GHCJS.DOM.TrustedTypePolicyFactory + , GHCJS.DOM.JSFFI.Generated.TrustedTypePolicyOptions as GHCJS.DOM.TrustedTypePolicyOptions + , GHCJS.DOM.JSFFI.Generated.UIEvent as GHCJS.DOM.UIEvent + , GHCJS.DOM.JSFFI.Generated.UIEventInit as GHCJS.DOM.UIEventInit + , GHCJS.DOM.JSFFI.Generated.ULongRange as GHCJS.DOM.ULongRange + , GHCJS.DOM.JSFFI.Generated.URL as GHCJS.DOM.URL + , GHCJS.DOM.JSFFI.Generated.URLPattern as GHCJS.DOM.URLPattern + , GHCJS.DOM.JSFFI.Generated.URLPatternComponentResult as GHCJS.DOM.URLPatternComponentResult + , GHCJS.DOM.JSFFI.Generated.URLPatternInit as GHCJS.DOM.URLPatternInit + , GHCJS.DOM.JSFFI.Generated.URLPatternOptions as GHCJS.DOM.URLPatternOptions + , GHCJS.DOM.JSFFI.Generated.URLPatternResult as GHCJS.DOM.URLPatternResult + , GHCJS.DOM.JSFFI.Generated.URLSearchParams as GHCJS.DOM.URLSearchParams + , GHCJS.DOM.JSFFI.Generated.UnknownCredentialOptions as GHCJS.DOM.UnknownCredentialOptions + , GHCJS.DOM.JSFFI.Generated.UserActivation as GHCJS.DOM.UserActivation + , GHCJS.DOM.JSFFI.Generated.VTTCue as GHCJS.DOM.VTTCue + , GHCJS.DOM.JSFFI.Generated.VTTRegion as GHCJS.DOM.VTTRegion + , GHCJS.DOM.JSFFI.Generated.ValidityState as GHCJS.DOM.ValidityState + , GHCJS.DOM.JSFFI.Generated.ValidityStateFlags as GHCJS.DOM.ValidityStateFlags + , GHCJS.DOM.JSFFI.Generated.VideoColorSpace as GHCJS.DOM.VideoColorSpace + , GHCJS.DOM.JSFFI.Generated.VideoColorSpaceInit as GHCJS.DOM.VideoColorSpaceInit + , GHCJS.DOM.JSFFI.Generated.VideoConfiguration as GHCJS.DOM.VideoConfiguration + , GHCJS.DOM.JSFFI.Generated.VideoDecoder as GHCJS.DOM.VideoDecoder + , GHCJS.DOM.JSFFI.Generated.VideoDecoderConfig as GHCJS.DOM.VideoDecoderConfig + , GHCJS.DOM.JSFFI.Generated.VideoDecoderInit as GHCJS.DOM.VideoDecoderInit + , GHCJS.DOM.JSFFI.Generated.VideoDecoderSupport as GHCJS.DOM.VideoDecoderSupport + , GHCJS.DOM.JSFFI.Generated.VideoEncoder as GHCJS.DOM.VideoEncoder + , GHCJS.DOM.JSFFI.Generated.VideoEncoderConfig as GHCJS.DOM.VideoEncoderConfig + , GHCJS.DOM.JSFFI.Generated.VideoEncoderEncodeOptions as GHCJS.DOM.VideoEncoderEncodeOptions + , GHCJS.DOM.JSFFI.Generated.VideoEncoderEncodeOptionsForAv1 as GHCJS.DOM.VideoEncoderEncodeOptionsForAv1 + , GHCJS.DOM.JSFFI.Generated.VideoEncoderEncodeOptionsForAvc as GHCJS.DOM.VideoEncoderEncodeOptionsForAvc + , GHCJS.DOM.JSFFI.Generated.VideoEncoderEncodeOptionsForHevc as GHCJS.DOM.VideoEncoderEncodeOptionsForHevc + , GHCJS.DOM.JSFFI.Generated.VideoEncoderEncodeOptionsForVp9 as GHCJS.DOM.VideoEncoderEncodeOptionsForVp9 + , GHCJS.DOM.JSFFI.Generated.VideoEncoderInit as GHCJS.DOM.VideoEncoderInit + , GHCJS.DOM.JSFFI.Generated.VideoEncoderSupport as GHCJS.DOM.VideoEncoderSupport + , GHCJS.DOM.JSFFI.Generated.VideoFrame as GHCJS.DOM.VideoFrame + , GHCJS.DOM.JSFFI.Generated.VideoFrameBufferInit as GHCJS.DOM.VideoFrameBufferInit + , GHCJS.DOM.JSFFI.Generated.VideoFrameCallbackMetadata as GHCJS.DOM.VideoFrameCallbackMetadata + , GHCJS.DOM.JSFFI.Generated.VideoFrameCopyToOptions as GHCJS.DOM.VideoFrameCopyToOptions + , GHCJS.DOM.JSFFI.Generated.VideoFrameInit as GHCJS.DOM.VideoFrameInit + , GHCJS.DOM.JSFFI.Generated.VideoFrameMetadata as GHCJS.DOM.VideoFrameMetadata + , GHCJS.DOM.JSFFI.Generated.VideoFrameOutputCallback as GHCJS.DOM.VideoFrameOutputCallback + , GHCJS.DOM.JSFFI.Generated.VideoFrameRequestCallback as GHCJS.DOM.VideoFrameRequestCallback + , GHCJS.DOM.JSFFI.Generated.VideoPlaybackQuality as GHCJS.DOM.VideoPlaybackQuality + , GHCJS.DOM.JSFFI.Generated.VideoTrack as GHCJS.DOM.VideoTrack + , GHCJS.DOM.JSFFI.Generated.VideoTrackList as GHCJS.DOM.VideoTrackList + , GHCJS.DOM.JSFFI.Generated.ViewTimeline as GHCJS.DOM.ViewTimeline + , GHCJS.DOM.JSFFI.Generated.ViewTimelineOptions as GHCJS.DOM.ViewTimelineOptions + , GHCJS.DOM.JSFFI.Generated.ViewTransition as GHCJS.DOM.ViewTransition + , GHCJS.DOM.JSFFI.Generated.ViewTransitionTypeSet as GHCJS.DOM.ViewTransitionTypeSet + , GHCJS.DOM.JSFFI.Generated.ViewTransitionUpdateCallback as GHCJS.DOM.ViewTransitionUpdateCallback + , GHCJS.DOM.JSFFI.Generated.VisualViewport as GHCJS.DOM.VisualViewport + , GHCJS.DOM.JSFFI.Generated.VoidFunction as GHCJS.DOM.VoidFunction + , GHCJS.DOM.JSFFI.Generated.WEBGL_color_buffer_float as GHCJS.DOM.WEBGL_color_buffer_float + , GHCJS.DOM.JSFFI.Generated.WEBGL_compressed_texture_astc as GHCJS.DOM.WEBGL_compressed_texture_astc + , GHCJS.DOM.JSFFI.Generated.WEBGL_compressed_texture_etc as GHCJS.DOM.WEBGL_compressed_texture_etc + , GHCJS.DOM.JSFFI.Generated.WEBGL_compressed_texture_etc1 as GHCJS.DOM.WEBGL_compressed_texture_etc1 + , GHCJS.DOM.JSFFI.Generated.WEBGL_compressed_texture_pvrtc as GHCJS.DOM.WEBGL_compressed_texture_pvrtc + , GHCJS.DOM.JSFFI.Generated.WEBGL_compressed_texture_s3tc as GHCJS.DOM.WEBGL_compressed_texture_s3tc + , GHCJS.DOM.JSFFI.Generated.WEBGL_compressed_texture_s3tc_srgb as GHCJS.DOM.WEBGL_compressed_texture_s3tc_srgb + , GHCJS.DOM.JSFFI.Generated.WEBGL_debug_renderer_info as GHCJS.DOM.WEBGL_debug_renderer_info + , GHCJS.DOM.JSFFI.Generated.WEBGL_debug_shaders as GHCJS.DOM.WEBGL_debug_shaders + , GHCJS.DOM.JSFFI.Generated.WEBGL_depth_texture as GHCJS.DOM.WEBGL_depth_texture + , GHCJS.DOM.JSFFI.Generated.WEBGL_draw_buffers as GHCJS.DOM.WEBGL_draw_buffers + , GHCJS.DOM.JSFFI.Generated.WEBGL_lose_context as GHCJS.DOM.WEBGL_lose_context + , GHCJS.DOM.JSFFI.Generated.WEBGL_multi_draw as GHCJS.DOM.WEBGL_multi_draw + , GHCJS.DOM.JSFFI.Generated.WGSLLanguageFeatures as GHCJS.DOM.WGSLLanguageFeatures + , GHCJS.DOM.JSFFI.Generated.WakeLock as GHCJS.DOM.WakeLock + , GHCJS.DOM.JSFFI.Generated.WakeLockSentinel as GHCJS.DOM.WakeLockSentinel + , GHCJS.DOM.JSFFI.Generated.WaveShaperNode as GHCJS.DOM.WaveShaperNode + , GHCJS.DOM.JSFFI.Generated.WaveShaperOptions as GHCJS.DOM.WaveShaperOptions + , GHCJS.DOM.JSFFI.Generated.WebCodecsErrorCallback as GHCJS.DOM.WebCodecsErrorCallback + , GHCJS.DOM.JSFFI.Generated.WebGL2RenderingContext as GHCJS.DOM.WebGL2RenderingContext + , GHCJS.DOM.JSFFI.Generated.WebGL2RenderingContextBase as GHCJS.DOM.WebGL2RenderingContextBase + , GHCJS.DOM.JSFFI.Generated.WebGL2RenderingContextOverloads as GHCJS.DOM.WebGL2RenderingContextOverloads + , GHCJS.DOM.JSFFI.Generated.WebGLActiveInfo as GHCJS.DOM.WebGLActiveInfo + , GHCJS.DOM.JSFFI.Generated.WebGLBuffer as GHCJS.DOM.WebGLBuffer + , GHCJS.DOM.JSFFI.Generated.WebGLContextAttributes as GHCJS.DOM.WebGLContextAttributes + , GHCJS.DOM.JSFFI.Generated.WebGLContextEvent as GHCJS.DOM.WebGLContextEvent + , GHCJS.DOM.JSFFI.Generated.WebGLContextEventInit as GHCJS.DOM.WebGLContextEventInit + , GHCJS.DOM.JSFFI.Generated.WebGLFramebuffer as GHCJS.DOM.WebGLFramebuffer + , GHCJS.DOM.JSFFI.Generated.WebGLObject as GHCJS.DOM.WebGLObject + , GHCJS.DOM.JSFFI.Generated.WebGLProgram as GHCJS.DOM.WebGLProgram + , GHCJS.DOM.JSFFI.Generated.WebGLQuery as GHCJS.DOM.WebGLQuery + , GHCJS.DOM.JSFFI.Generated.WebGLRenderbuffer as GHCJS.DOM.WebGLRenderbuffer + , GHCJS.DOM.JSFFI.Generated.WebGLRenderingContext as GHCJS.DOM.WebGLRenderingContext + , GHCJS.DOM.JSFFI.Generated.WebGLRenderingContextBase as GHCJS.DOM.WebGLRenderingContextBase + , GHCJS.DOM.JSFFI.Generated.WebGLRenderingContextOverloads as GHCJS.DOM.WebGLRenderingContextOverloads + , GHCJS.DOM.JSFFI.Generated.WebGLSampler as GHCJS.DOM.WebGLSampler + , GHCJS.DOM.JSFFI.Generated.WebGLShader as GHCJS.DOM.WebGLShader + , GHCJS.DOM.JSFFI.Generated.WebGLShaderPrecisionFormat as GHCJS.DOM.WebGLShaderPrecisionFormat + , GHCJS.DOM.JSFFI.Generated.WebGLSync as GHCJS.DOM.WebGLSync + , GHCJS.DOM.JSFFI.Generated.WebGLTexture as GHCJS.DOM.WebGLTexture + , GHCJS.DOM.JSFFI.Generated.WebGLTransformFeedback as GHCJS.DOM.WebGLTransformFeedback + , GHCJS.DOM.JSFFI.Generated.WebGLUniformLocation as GHCJS.DOM.WebGLUniformLocation + , GHCJS.DOM.JSFFI.Generated.WebGLVertexArrayObject as GHCJS.DOM.WebGLVertexArrayObject + , GHCJS.DOM.JSFFI.Generated.WebGLVertexArrayObjectOES as GHCJS.DOM.WebGLVertexArrayObjectOES + , GHCJS.DOM.JSFFI.Generated.WebSocket as GHCJS.DOM.WebSocket + , GHCJS.DOM.JSFFI.Generated.WebTransport as GHCJS.DOM.WebTransport + , GHCJS.DOM.JSFFI.Generated.WebTransportBidirectionalStream as GHCJS.DOM.WebTransportBidirectionalStream + , GHCJS.DOM.JSFFI.Generated.WebTransportCloseInfo as GHCJS.DOM.WebTransportCloseInfo + , GHCJS.DOM.JSFFI.Generated.WebTransportConnectionStats as GHCJS.DOM.WebTransportConnectionStats + , GHCJS.DOM.JSFFI.Generated.WebTransportDatagramDuplexStream as GHCJS.DOM.WebTransportDatagramDuplexStream + , GHCJS.DOM.JSFFI.Generated.WebTransportDatagramStats as GHCJS.DOM.WebTransportDatagramStats + , GHCJS.DOM.JSFFI.Generated.WebTransportDatagramsWritable as GHCJS.DOM.WebTransportDatagramsWritable + , GHCJS.DOM.JSFFI.Generated.WebTransportError as GHCJS.DOM.WebTransportError + , GHCJS.DOM.JSFFI.Generated.WebTransportErrorOptions as GHCJS.DOM.WebTransportErrorOptions + , GHCJS.DOM.JSFFI.Generated.WebTransportHash as GHCJS.DOM.WebTransportHash + , GHCJS.DOM.JSFFI.Generated.WebTransportOptions as GHCJS.DOM.WebTransportOptions + , GHCJS.DOM.JSFFI.Generated.WebTransportReceiveStream as GHCJS.DOM.WebTransportReceiveStream + , GHCJS.DOM.JSFFI.Generated.WebTransportReceiveStreamStats as GHCJS.DOM.WebTransportReceiveStreamStats + , GHCJS.DOM.JSFFI.Generated.WebTransportSendGroup as GHCJS.DOM.WebTransportSendGroup + , GHCJS.DOM.JSFFI.Generated.WebTransportSendOptions as GHCJS.DOM.WebTransportSendOptions + , GHCJS.DOM.JSFFI.Generated.WebTransportSendStream as GHCJS.DOM.WebTransportSendStream + , GHCJS.DOM.JSFFI.Generated.WebTransportSendStreamOptions as GHCJS.DOM.WebTransportSendStreamOptions + , GHCJS.DOM.JSFFI.Generated.WebTransportSendStreamStats as GHCJS.DOM.WebTransportSendStreamStats + , GHCJS.DOM.JSFFI.Generated.WebTransportWriter as GHCJS.DOM.WebTransportWriter + , GHCJS.DOM.JSFFI.Generated.WheelEvent as GHCJS.DOM.WheelEvent + , GHCJS.DOM.JSFFI.Generated.WheelEventInit as GHCJS.DOM.WheelEventInit + , GHCJS.DOM.JSFFI.Generated.Window as GHCJS.DOM.Window + , GHCJS.DOM.JSFFI.Generated.WindowClient as GHCJS.DOM.WindowClient + , GHCJS.DOM.JSFFI.Generated.WindowEventHandlers as GHCJS.DOM.WindowEventHandlers + , GHCJS.DOM.JSFFI.Generated.WindowLocalStorage as GHCJS.DOM.WindowLocalStorage + , GHCJS.DOM.JSFFI.Generated.WindowOrWorkerGlobalScope as GHCJS.DOM.WindowOrWorkerGlobalScope + , GHCJS.DOM.JSFFI.Generated.WindowPostMessageOptions as GHCJS.DOM.WindowPostMessageOptions + , GHCJS.DOM.JSFFI.Generated.WindowSessionStorage as GHCJS.DOM.WindowSessionStorage + , GHCJS.DOM.JSFFI.Generated.Worker as GHCJS.DOM.Worker + , GHCJS.DOM.JSFFI.Generated.WorkerAndParameters as GHCJS.DOM.WorkerAndParameters + , GHCJS.DOM.JSFFI.Generated.WorkerGlobalScope as GHCJS.DOM.WorkerGlobalScope + , GHCJS.DOM.JSFFI.Generated.WorkerLocation as GHCJS.DOM.WorkerLocation + , GHCJS.DOM.JSFFI.Generated.WorkerNavigator as GHCJS.DOM.WorkerNavigator + , GHCJS.DOM.JSFFI.Generated.WorkerOptions as GHCJS.DOM.WorkerOptions + , GHCJS.DOM.JSFFI.Generated.Worklet as GHCJS.DOM.Worklet + , GHCJS.DOM.JSFFI.Generated.WorkletGlobalScope as GHCJS.DOM.WorkletGlobalScope + , GHCJS.DOM.JSFFI.Generated.WorkletOptions as GHCJS.DOM.WorkletOptions + , GHCJS.DOM.JSFFI.Generated.WritableStream as GHCJS.DOM.WritableStream + , GHCJS.DOM.JSFFI.Generated.WritableStreamDefaultController as GHCJS.DOM.WritableStreamDefaultController + , GHCJS.DOM.JSFFI.Generated.WritableStreamDefaultWriter as GHCJS.DOM.WritableStreamDefaultWriter + , GHCJS.DOM.JSFFI.Generated.WriteParams as GHCJS.DOM.WriteParams + , GHCJS.DOM.JSFFI.Generated.XMLDocument as GHCJS.DOM.XMLDocument + , GHCJS.DOM.JSFFI.Generated.XMLHttpRequestEventTarget as GHCJS.DOM.XMLHttpRequestEventTarget + , GHCJS.DOM.JSFFI.Generated.XMLHttpRequestUpload as GHCJS.DOM.XMLHttpRequestUpload + , GHCJS.DOM.JSFFI.Generated.XMLSerializer as GHCJS.DOM.XMLSerializer + , GHCJS.DOM.JSFFI.Generated.XPathEvaluator as GHCJS.DOM.XPathEvaluator + , GHCJS.DOM.JSFFI.Generated.XPathEvaluatorBase as GHCJS.DOM.XPathEvaluatorBase + , GHCJS.DOM.JSFFI.Generated.XPathExpression as GHCJS.DOM.XPathExpression + , GHCJS.DOM.JSFFI.Generated.XPathNSResolver as GHCJS.DOM.XPathNSResolver + , GHCJS.DOM.JSFFI.Generated.XPathResult as GHCJS.DOM.XPathResult + , GHCJS.DOM.JSFFI.Generated.XSLTProcessor as GHCJS.DOM.XSLTProcessor + , GHCJS.DOM.JSFFI.Generated.Enums as GHCJS.DOM.Enums diff --git a/src/GHCJS/DOM/EventM.hs b/src/GHCJS/DOM/EventM.hs --- a/src/GHCJS/DOM/EventM.hs +++ b/src/GHCJS/DOM/EventM.hs @@ -73,8 +73,6 @@ , mouseX , mouseY , mouseXY -, mouseFromElement -, mouseToElement ) where import Control.Applicative ((<$>)) @@ -113,12 +111,12 @@ -- | Add an EventListener to an EventTarget. addListener :: (IsEventTarget t, IsEvent e) => t -> EventName t e -> SaferEventListener t e -> Bool -> IO () addListener target eventName (SaferEventListener l) useCapture = - addEventListener target (eventNameString eventName) (Just l) useCapture + addEventListener target (eventNameString eventName) (Just l) (Just useCapture) -- | Remove an EventListener from an EventTarget. removeListener :: (IsEventTarget t, IsEvent e) => t -> EventName t e -> SaferEventListener t e -> Bool -> IO () removeListener target eventName (SaferEventListener l) useCapture = - removeEventListener target (eventNameString eventName) (Just l) useCapture + removeEventListener target (eventNameString eventName) (Just l) (Just useCapture) -- | Release the listener (deallocates callbacks). releaseListener :: (IsEventTarget t, IsEvent e) => SaferEventListener t e -> IO () @@ -193,13 +191,13 @@ event = ask eventTarget :: IsEvent e => EventM t e (Maybe EventTarget) -eventTarget = event >>= Event.getTarget +eventTarget = event >>= (Event.getTarget) eventTargetUnsafe :: IsEvent e => EventM t e EventTarget -eventTargetUnsafe = event >>= Event.getTargetUnsafe +eventTargetUnsafe = event >>= (Event.getTargetUnsafe) eventTargetUnchecked :: IsEvent e => EventM t e EventTarget -eventTargetUnchecked = event >>= Event.getTargetUnchecked +eventTargetUnchecked = event >>= (Event.getTargetUnchecked) target :: (IsEvent e, IsGObject t) => EventM t e (Maybe t) target = eventTarget >>= mapM (liftJSM . fromJSValUnchecked . coerce) @@ -211,99 +209,102 @@ targetUnchecked = eventTargetUnchecked >>= (liftJSM . fromJSValUnchecked . coerce) eventCurrentTarget :: IsEvent e => EventM t e (Maybe EventTarget) -eventCurrentTarget = event >>= Event.getCurrentTarget +eventCurrentTarget = event >>= (Event.getCurrentTarget) eventCurrentTargetUnsafe :: IsEvent e => EventM t e EventTarget -eventCurrentTargetUnsafe = event >>= Event.getCurrentTargetUnsafe +eventCurrentTargetUnsafe = event >>= (Event.getCurrentTargetUnsafe) eventCurrentTargetUnchecked :: IsEvent e => EventM t e EventTarget -eventCurrentTargetUnchecked = event >>= Event.getCurrentTargetUnchecked +eventCurrentTargetUnchecked = event >>= (Event.getCurrentTargetUnchecked) eventPhase :: IsEvent e => EventM t e Word -eventPhase = event >>= Event.getEventPhase +eventPhase = event >>= (Event.getEventPhase) bubbles :: IsEvent e => EventM t e Bool -bubbles = event >>= Event.getBubbles +bubbles = event >>= (Event.getBubbles) cancelable :: IsEvent e => EventM t e Bool -cancelable = event >>= Event.getCancelable +cancelable = event >>= (Event.getCancelable) -timeStamp :: IsEvent e => EventM t e Word -timeStamp = event >>= Event.getTimeStamp +timeStamp :: IsEvent e => EventM t e Double +timeStamp = event >>= (Event.getTimeStamp) stopPropagation :: IsEvent e => EventM t e () -stopPropagation = event >>= Event.stopPropagation +stopPropagation = event >>= (Event.stopPropagation) preventDefault :: IsEvent e => EventM t e () -preventDefault = event >>= Event.preventDefault +preventDefault = event >>= (Event.preventDefault) defaultPrevented :: IsEvent e => EventM t e Bool -defaultPrevented = event >>= Event.getDefaultPrevented +defaultPrevented = event >>= (Event.getDefaultPrevented) stopImmediatePropagation :: IsEvent e => EventM t e () -stopImmediatePropagation = event >>= Event.stopImmediatePropagation +stopImmediatePropagation = event >>= (Event.stopImmediatePropagation) -srcElement :: IsEvent e => EventM t e EventTarget -srcElement = event >>= Event.getSrcElement +srcElement :: IsEvent e => EventM t e (Maybe EventTarget) +srcElement = event >>= (Event.getSrcElement) getCancelBubble :: IsEvent e => EventM t e Bool -getCancelBubble = event >>= Event.getCancelBubble +getCancelBubble = event >>= (Event.getCancelBubble) cancelBubble :: IsEvent e => Bool -> EventM t e () -cancelBubble f = event >>= flip Event.setCancelBubble f +cancelBubble f = event >>= (flip Event.setCancelBubble f) getReturnValue :: IsEvent e => EventM t e Bool -getReturnValue = event >>= Event.getReturnValue +getReturnValue = event >>= (Event.getReturnValue) returnValue :: IsEvent e => Bool -> EventM t e () -returnValue f = event >>= flip Event.setReturnValue f +returnValue f = event >>= (flip Event.setReturnValue f) -uiView :: IsUIEvent e => EventM t e Window -uiView = event >>= UIEvent.getView +uiView :: IsUIEvent e => EventM t e (Maybe Window) +uiView = event >>= (UIEvent.getView) uiDetail :: IsUIEvent e => EventM t e Int -uiDetail = event >>= UIEvent.getDetail +uiDetail = event >>= (UIEvent.getDetail) uiKeyCode :: EventM t KeyboardEvent Word -uiKeyCode = event >>= KeyboardEvent.getKeyCode +uiKeyCode = event >>= (KeyboardEvent.getKeyCode) uiCharCode :: EventM t KeyboardEvent Word -uiCharCode = event >>= KeyboardEvent.getCharCode +uiCharCode = event >>= (KeyboardEvent.getCharCode) -uiLayerX :: IsUIEvent e => EventM t e Int -uiLayerX = event >>= UIEvent.getLayerX +-- layerX/layerY and pageX/pageY are MouseEvent attributes in current specs +-- (they were on UIEvent in WebKit). -uiLayerY :: IsUIEvent e => EventM t e Int -uiLayerY = event >>= UIEvent.getLayerY +uiLayerX :: IsMouseEvent e => EventM t e Int +uiLayerX = event >>= (MouseEvent.getLayerX) -uiLayerXY :: IsUIEvent e => EventM t e (Int, Int) +uiLayerY :: IsMouseEvent e => EventM t e Int +uiLayerY = event >>= (MouseEvent.getLayerY) + +uiLayerXY :: IsMouseEvent e => EventM t e (Int, Int) uiLayerXY = do e <- event - x <- UIEvent.getLayerX e - y <- UIEvent.getLayerY e + x <- MouseEvent.getLayerX e + y <- MouseEvent.getLayerY e return (x, y) -uiPageX :: IsUIEvent e => EventM t e Int -uiPageX = event >>= UIEvent.getPageX +uiPageX :: IsMouseEvent e => EventM t e Double +uiPageX = event >>= (MouseEvent.getPageX) -uiPageY :: IsUIEvent e => EventM t e Int -uiPageY = event >>= UIEvent.getPageY +uiPageY :: IsMouseEvent e => EventM t e Double +uiPageY = event >>= (MouseEvent.getPageY) -uiPageXY :: IsUIEvent e => EventM t e (Int, Int) +uiPageXY :: IsMouseEvent e => EventM t e (Double, Double) uiPageXY = do e <- event - x <- UIEvent.getPageX e - y <- UIEvent.getPageY e + x <- MouseEvent.getPageX e + y <- MouseEvent.getPageY e return (x, y) -uiWhich :: IsUIEvent e => EventM t e Int -uiWhich = event >>= UIEvent.getWhich +uiWhich :: IsUIEvent e => EventM t e Word +uiWhich = event >>= (UIEvent.getWhich) mouseScreenX :: IsMouseEvent e => EventM t e Int -mouseScreenX = event >>= MouseEvent.getScreenX +mouseScreenX = event >>= (MouseEvent.getScreenX) mouseScreenY :: IsMouseEvent e => EventM t e Int -mouseScreenY = event >>= MouseEvent.getScreenY +mouseScreenY = event >>= (MouseEvent.getScreenY) mouseScreenXY :: IsMouseEvent e => EventM t e (Int, Int) mouseScreenXY = do @@ -313,10 +314,10 @@ return (x, y) mouseClientX :: IsMouseEvent e => EventM t e Int -mouseClientX = event >>= MouseEvent.getClientX +mouseClientX = event >>= (MouseEvent.getClientX) mouseClientY :: IsMouseEvent e => EventM t e Int -mouseClientY = event >>= MouseEvent.getClientY +mouseClientY = event >>= (MouseEvent.getClientY) mouseClientXY :: IsMouseEvent e => EventM t e (Int, Int) mouseClientXY = do @@ -325,13 +326,13 @@ y <- MouseEvent.getClientY e return (x, y) -mouseMovementX :: IsMouseEvent e => EventM t e Int -mouseMovementX = event >>= MouseEvent.getMovementX +mouseMovementX :: IsMouseEvent e => EventM t e Double +mouseMovementX = event >>= (MouseEvent.getMovementX) -mouseMovementY :: IsMouseEvent e => EventM t e Int -mouseMovementY = event >>= MouseEvent.getMovementY +mouseMovementY :: IsMouseEvent e => EventM t e Double +mouseMovementY = event >>= (MouseEvent.getMovementY) -mouseMovementXY :: IsMouseEvent e => EventM t e (Int, Int) +mouseMovementXY :: IsMouseEvent e => EventM t e (Double, Double) mouseMovementXY = do e <- event x <- MouseEvent.getMovementX e @@ -339,52 +340,46 @@ return (x, y) mouseCtrlKey :: IsMouseEvent e => EventM t e Bool -mouseCtrlKey = event >>= MouseEvent.getCtrlKey +mouseCtrlKey = event >>= (MouseEvent.getCtrlKey) mouseShiftKey :: IsMouseEvent e => EventM t e Bool -mouseShiftKey = event >>= MouseEvent.getShiftKey +mouseShiftKey = event >>= (MouseEvent.getShiftKey) mouseAltKey :: IsMouseEvent e => EventM t e Bool -mouseAltKey = event >>= MouseEvent.getAltKey +mouseAltKey = event >>= (MouseEvent.getAltKey) mouseMetaKey :: IsMouseEvent e => EventM t e Bool -mouseMetaKey = event >>= MouseEvent.getMetaKey +mouseMetaKey = event >>= (MouseEvent.getMetaKey) -mouseButton :: IsMouseEvent e => EventM t e Word -mouseButton = event >>= MouseEvent.getButton +mouseButton :: IsMouseEvent e => EventM t e Int +mouseButton = event >>= (MouseEvent.getButton) mouseRelatedTarget :: IsMouseEvent e => EventM t e (Maybe EventTarget) -mouseRelatedTarget = event >>= MouseEvent.getRelatedTarget +mouseRelatedTarget = event >>= (MouseEvent.getRelatedTarget) -mouseOffsetX :: IsMouseEvent e => EventM t e Int -mouseOffsetX = event >>= MouseEvent.getOffsetX +mouseOffsetX :: IsMouseEvent e => EventM t e Double +mouseOffsetX = event >>= (MouseEvent.getOffsetX) -mouseOffsetY :: IsMouseEvent e => EventM t e Int -mouseOffsetY = event >>= MouseEvent.getOffsetY +mouseOffsetY :: IsMouseEvent e => EventM t e Double +mouseOffsetY = event >>= (MouseEvent.getOffsetY) -mouseOffsetXY :: IsMouseEvent e => EventM t e (Int, Int) +mouseOffsetXY :: IsMouseEvent e => EventM t e (Double, Double) mouseOffsetXY = do e <- event x <- MouseEvent.getOffsetX e y <- MouseEvent.getOffsetY e return (x, y) -mouseX :: IsMouseEvent e => EventM t e Int -mouseX = event >>= MouseEvent.getX +mouseX :: IsMouseEvent e => EventM t e Double +mouseX = event >>= (MouseEvent.getX) -mouseY :: IsMouseEvent e => EventM t e Int -mouseY = event >>= MouseEvent.getY +mouseY :: IsMouseEvent e => EventM t e Double +mouseY = event >>= (MouseEvent.getY) -mouseXY :: IsMouseEvent e => EventM t e (Int, Int) +mouseXY :: IsMouseEvent e => EventM t e (Double, Double) mouseXY = do e <- event x <- MouseEvent.getX e y <- MouseEvent.getY e return (x, y) - -mouseFromElement :: IsMouseEvent e => EventM t e (Maybe Node) -mouseFromElement = event >>= MouseEvent.getFromElement - -mouseToElement :: IsMouseEvent e => EventM t e (Maybe Node) -mouseToElement = event >>= MouseEvent.getToElement diff --git a/src/GHCJS/DOM/JSFFI/AudioContext.hs b/src/GHCJS/DOM/JSFFI/AudioContext.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/AudioContext.hs +++ /dev/null @@ -1,35 +0,0 @@ -{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.AudioContext ( - module Generated - , DecodeAudioError(..) - , js_decodeAudioData - , decodeAudioData -) where - -import Control.Exception (Exception(..), throwIO) -import Control.Monad.IO.Class (MonadIO(..)) - -import GHCJS.Types (JSVal) -import GHCJS.Foreign (jsNull) -import GHCJS.Marshal (fromJSVal, fromJSValUnchecked) -import GHC.JS.Foreign.Callback (releaseCallback) -import GHCJS.DOM.Types - -import GHCJS.DOM.JSFFI.Generated.AudioContext as Generated hiding (js_decodeAudioData, decodeAudioData) - -data DecodeAudioError = DecodeAudioError deriving (Show, Eq) - -instance Exception DecodeAudioError - -foreign import javascript interruptible - "$1[\"decodeAudioData\"]($2, $c, function() { $c(null); });" js_decodeAudioData :: - AudioContext -> ArrayBuffer -> IO (Nullable AudioBuffer) - --- | -decodeAudioData :: (MonadIO m, IsAudioContext self, IsArrayBuffer audioData) => - self -> audioData -> m AudioBuffer -decodeAudioData self audioData = liftIO $ nullableToMaybe <$> js_decodeAudioData - (toAudioContext self) - (toArrayBuffer audioData) - >>= maybe (throwIO DecodeAudioError) return - diff --git a/src/GHCJS/DOM/JSFFI/DOMError.hs b/src/GHCJS/DOM/JSFFI/DOMError.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/DOMError.hs +++ /dev/null @@ -1,20 +0,0 @@ -{-# LANGUAGE RecordWildCards #-} -module GHCJS.DOM.JSFFI.DOMError ( - module Generated - , DOMErrorException(..) - , throwDOMErrorException -) where - -import Control.Exception (Exception, throwIO) -import Control.Monad.IO.Class (MonadIO(..)) - -import GHCJS.DOM.JSFFI.Generated.DOMError as Generated - -data DOMErrorException = DOMErrorException { domErrorName :: String } deriving (Show, Eq) - -instance Exception DOMErrorException - -throwDOMErrorException :: MonadIO m => DOMError -> m a -throwDOMErrorException error = do - domErrorName <- getName error - liftIO $ throwIO DOMErrorException{..} diff --git a/src/GHCJS/DOM/JSFFI/Database.hs b/src/GHCJS/DOM/JSFFI/Database.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Database.hs +++ /dev/null @@ -1,75 +0,0 @@ -{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Database ( - module Generated - , js_changeVersion - , changeVersion' - , changeVersion - , js_transaction - , transaction' - , transaction - , js_readTransaction - , readTransaction' - , readTransaction -) where - -import Data.Maybe (fromJust, maybe) - -import Control.Monad.IO.Class (MonadIO(..)) -import Control.Exception (Exception, bracket) - -import GHCJS.Types (JSVal, JSString) -import GHCJS.Foreign (jsNull) -import GHC.JS.Foreign.Callback (OnBlocked(..)) -import GHCJS.Marshal (fromJSVal) -import GHCJS.Marshal.Pure (pToJSVal) -import GHC.JS.Foreign.Callback (releaseCallback) -import GHCJS.DOM.Types - -import GHCJS.DOM.JSFFI.SQLError (throwSQLException) -import GHCJS.DOM.JSFFI.Generated.SQLTransactionCallback (newSQLTransactionCallbackSync) -import GHCJS.DOM.JSFFI.Generated.Database as Generated hiding (js_changeVersion, changeVersion, js_transaction, transaction, js_readTransaction, readTransaction) - -withSQLTransactionCallback :: (SQLTransaction -> IO ()) -> (SQLTransactionCallback -> IO a) -> IO a -withSQLTransactionCallback f = bracket (newSQLTransactionCallbackSync f) (\(SQLTransactionCallback c) -> releaseCallback c) - -foreign import javascript interruptible - "$1[\"changeVersion\"]($2, $3, $4, $c, function() { $c(null); });" - js_changeVersion :: Database -> JSString -> JSString -> Nullable SQLTransactionCallback -> IO (Nullable SQLError) - --- | -changeVersion' :: (MonadIO m, ToJSString oldVersion, ToJSString newVersion) => - Database -> oldVersion -> newVersion -> Maybe (SQLTransaction -> IO ()) -> m (Maybe SQLError) -changeVersion' self oldVersion newVersion Nothing = liftIO $ nullableToMaybe <$> - js_changeVersion self (toJSString oldVersion) (toJSString newVersion) (Nullable jsNull) -changeVersion' self oldVersion newVersion (Just callback) = liftIO $ nullableToMaybe <$> - withSQLTransactionCallback callback - (js_changeVersion self (toJSString oldVersion) (toJSString newVersion) . Nullable . pToJSVal) - -changeVersion :: (MonadIO m, ToJSString oldVersion, ToJSString newVersion) => - Database -> oldVersion -> newVersion -> Maybe (SQLTransaction -> IO ()) -> m () -changeVersion self oldVersion newVersion callback = - changeVersion' self oldVersion newVersion callback >>= maybe (return ()) throwSQLException - -foreign import javascript interruptible "$1[\"transaction\"]($2, $c, function() { $c(null); });" - js_transaction :: Database -> SQLTransactionCallback -> IO (Nullable SQLError) - --- | -transaction' :: (MonadIO m) => Database -> (SQLTransaction -> IO ()) -> m (Maybe SQLError) -transaction' self callback = liftIO $ nullableToMaybe <$> - withSQLTransactionCallback callback - (js_transaction self) - -transaction :: (MonadIO m) => Database -> (SQLTransaction -> IO ()) -> m () -transaction self callback = transaction' self callback >>= maybe (return ()) throwSQLException - -foreign import javascript interruptible - "$1[\"readTransaction\"]($2, $c, function() { $c(null); });" - js_readTransaction :: Database -> SQLTransactionCallback -> IO (Nullable SQLError) - --- | -readTransaction' :: (MonadIO m) => Database -> (SQLTransaction -> IO ()) -> m (Maybe SQLError) -readTransaction' self callback = liftIO $ nullableToMaybe <$> - withSQLTransactionCallback callback (js_readTransaction self) - -readTransaction :: (MonadIO m) => Database -> (SQLTransaction -> IO ()) -> m () -readTransaction self callback = readTransaction' self callback >>= maybe (return ()) throwSQLException diff --git a/src/GHCJS/DOM/JSFFI/Generated/ANGLEInstancedArrays.hs b/src/GHCJS/DOM/JSFFI/Generated/ANGLEInstancedArrays.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/ANGLEInstancedArrays.hs +++ /dev/null @@ -1,71 +0,0 @@ -{-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE JavaScriptFFI #-} --- For HasCallStack compatibility -{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} -module GHCJS.DOM.JSFFI.Generated.ANGLEInstancedArrays - (js_drawArraysInstancedANGLE, drawArraysInstancedANGLE, - js_drawElementsInstancedANGLE, drawElementsInstancedANGLE, - js_vertexAttribDivisorANGLE, vertexAttribDivisorANGLE, - pattern VERTEX_ATTRIB_ARRAY_DIVISOR_ANGLE, - ANGLEInstancedArrays(..), gTypeANGLEInstancedArrays) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull, jsUndefined) -import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import Data.Maybe (fromJust) -import Data.Traversable (mapM) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) -import GHCJS.DOM.JSFFI.Generated.Enums - -foreign import javascript unsafe - "(($1, $2, $3, $4, $5) => { return $1[\"drawArraysInstancedANGLE\"]($2,\n$3, $4, $5); })" - js_drawArraysInstancedANGLE :: - ANGLEInstancedArrays -> Word -> Int -> Int -> Int -> IO () - --- | -drawArraysInstancedANGLE :: - (MonadIO m) => - ANGLEInstancedArrays -> Word -> Int -> Int -> Int -> m () -drawArraysInstancedANGLE self mode first count primcount - = liftIO - (js_drawArraysInstancedANGLE self mode first count primcount) - -foreign import javascript unsafe - "(($1, $2, $3, $4, $5, $6) => { return $1[\"drawElementsInstancedANGLE\"]($2,\n$3, $4, $5, $6); })" - js_drawElementsInstancedANGLE :: - ANGLEInstancedArrays -> - Word -> Int -> Word -> Double -> Int -> IO () - --- | -drawElementsInstancedANGLE :: - (MonadIO m) => - ANGLEInstancedArrays -> Word -> Int -> Word -> Int64 -> Int -> m () -drawElementsInstancedANGLE self mode count type' offset primcount - = liftIO - (js_drawElementsInstancedANGLE self mode count type' - (fromIntegral offset) - primcount) - -foreign import javascript unsafe - "(($1, $2, $3) => { return $1[\"vertexAttribDivisorANGLE\"]($2,\n$3); })" - js_vertexAttribDivisorANGLE :: - ANGLEInstancedArrays -> Word -> Word -> IO () - --- | -vertexAttribDivisorANGLE :: - (MonadIO m) => ANGLEInstancedArrays -> Word -> Word -> m () -vertexAttribDivisorANGLE self index divisor - = liftIO (js_vertexAttribDivisorANGLE self index divisor) -pattern VERTEX_ATTRIB_ARRAY_DIVISOR_ANGLE = 35070 diff --git a/src/GHCJS/DOM/JSFFI/Generated/ANGLE_instanced_arrays.hs b/src/GHCJS/DOM/JSFFI/Generated/ANGLE_instanced_arrays.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/ANGLE_instanced_arrays.hs @@ -0,0 +1,37 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from ANGLE_instanced_arrays (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.ANGLE_instanced_arrays + (js_drawArraysInstancedANGLE, js_drawElementsInstancedANGLE, js_vertexAttribDivisorANGLE, drawArraysInstancedANGLE, drawElementsInstancedANGLE, vertexAttribDivisorANGLE, pattern VERTEX_ATTRIB_ARRAY_DIVISOR_ANGLE, ANGLE_instanced_arrays(..), gTypeANGLE_instanced_arrays) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1, $2, $3, $4, $5) => { return $1[\"drawArraysInstancedANGLE\"]($2, $3, $4, $5); })" + js_drawArraysInstancedANGLE :: ANGLE_instanced_arrays -> Word -> Int -> Int -> Int -> IO () +-- | +drawArraysInstancedANGLE :: (MonadDOM m) => ANGLE_instanced_arrays -> Word -> Int -> Int -> Int -> m () +drawArraysInstancedANGLE self mode first count primcount = liftDOM (void ((js_drawArraysInstancedANGLE (self) (mode) (first) (count) (primcount)))) + +foreign import javascript safe "(($1, $2, $3, $4, $5, $6) => { return $1[\"drawElementsInstancedANGLE\"]($2, $3, $4, $5, $6); })" + js_drawElementsInstancedANGLE :: ANGLE_instanced_arrays -> Word -> Int -> Word -> JSVal -> Int -> IO () +-- | +drawElementsInstancedANGLE :: (MonadDOM m) => ANGLE_instanced_arrays -> Word -> Int -> Word -> Int53 -> Int -> m () +drawElementsInstancedANGLE self mode count type' offset primcount = liftDOM (void (((toJSVal offset) >>= \a5' -> js_drawElementsInstancedANGLE (self) (mode) (count) (type') a5' (primcount)))) + +foreign import javascript safe "(($1, $2, $3) => { return $1[\"vertexAttribDivisorANGLE\"]($2, $3); })" + js_vertexAttribDivisorANGLE :: ANGLE_instanced_arrays -> Word -> Word -> IO () +-- | +vertexAttribDivisorANGLE :: (MonadDOM m) => ANGLE_instanced_arrays -> Word -> Word -> m () +vertexAttribDivisorANGLE self index divisor = liftDOM (void ((js_vertexAttribDivisorANGLE (self) (index) (divisor)))) + +pattern VERTEX_ATTRIB_ARRAY_DIVISOR_ANGLE = 0x88FE diff --git a/src/GHCJS/DOM/JSFFI/Generated/ARIAMixin.hs b/src/GHCJS/DOM/JSFFI/Generated/ARIAMixin.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/ARIAMixin.hs @@ -0,0 +1,1057 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from wai-aria-1.3 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.ARIAMixin + (js_setRole, js_getRole, js_setAriaActiveDescendantElement, js_getAriaActiveDescendantElement, js_setAriaAtomic, js_getAriaAtomic, js_setAriaAutoComplete, js_getAriaAutoComplete, js_setAriaBrailleLabel, js_getAriaBrailleLabel, js_setAriaBrailleRoleDescription, js_getAriaBrailleRoleDescription, js_setAriaBusy, js_getAriaBusy, js_setAriaChecked, js_getAriaChecked, js_setAriaColCount, js_getAriaColCount, js_setAriaColIndex, js_getAriaColIndex, js_setAriaColIndexText, js_getAriaColIndexText, js_setAriaColSpan, js_getAriaColSpan, js_setAriaControlsElements, js_getAriaControlsElements, js_setAriaCurrent, js_getAriaCurrent, js_setAriaDescribedByElements, js_getAriaDescribedByElements, js_setAriaDescription, js_getAriaDescription, js_setAriaDetailsElements, js_getAriaDetailsElements, js_setAriaDisabled, js_getAriaDisabled, js_setAriaErrorMessageElements, js_getAriaErrorMessageElements, js_setAriaExpanded, js_getAriaExpanded, js_setAriaFlowToElements, js_getAriaFlowToElements, js_setAriaHasPopup, js_getAriaHasPopup, js_setAriaHidden, js_getAriaHidden, js_setAriaInvalid, js_getAriaInvalid, js_setAriaKeyShortcuts, js_getAriaKeyShortcuts, js_setAriaLabel, js_getAriaLabel, js_setAriaLabelledByElements, js_getAriaLabelledByElements, js_setAriaLevel, js_getAriaLevel, js_setAriaLive, js_getAriaLive, js_setAriaModal, js_getAriaModal, js_setAriaMultiLine, js_getAriaMultiLine, js_setAriaMultiSelectable, js_getAriaMultiSelectable, js_setAriaOrientation, js_getAriaOrientation, js_setAriaOwnsElements, js_getAriaOwnsElements, js_setAriaPlaceholder, js_getAriaPlaceholder, js_setAriaPosInSet, js_getAriaPosInSet, js_setAriaPressed, js_getAriaPressed, js_setAriaReadOnly, js_getAriaReadOnly, js_setAriaRelevant, js_getAriaRelevant, js_setAriaRequired, js_getAriaRequired, js_setAriaRoleDescription, js_getAriaRoleDescription, js_setAriaRowCount, js_getAriaRowCount, js_setAriaRowIndex, js_getAriaRowIndex, js_setAriaRowIndexText, js_getAriaRowIndexText, js_setAriaRowSpan, js_getAriaRowSpan, js_setAriaSelected, js_getAriaSelected, js_setAriaSetSize, js_getAriaSetSize, js_setAriaSort, js_getAriaSort, js_setAriaValueMax, js_getAriaValueMax, js_setAriaValueMin, js_getAriaValueMin, js_setAriaValueNow, js_getAriaValueNow, js_setAriaValueText, js_getAriaValueText, setRole, getRole, getRoleUnsafe, getRoleUnchecked, setAriaActiveDescendantElement, getAriaActiveDescendantElement, getAriaActiveDescendantElementUnsafe, getAriaActiveDescendantElementUnchecked, setAriaAtomic, getAriaAtomic, getAriaAtomicUnsafe, getAriaAtomicUnchecked, setAriaAutoComplete, getAriaAutoComplete, getAriaAutoCompleteUnsafe, getAriaAutoCompleteUnchecked, setAriaBrailleLabel, getAriaBrailleLabel, getAriaBrailleLabelUnsafe, getAriaBrailleLabelUnchecked, setAriaBrailleRoleDescription, getAriaBrailleRoleDescription, getAriaBrailleRoleDescriptionUnsafe, getAriaBrailleRoleDescriptionUnchecked, setAriaBusy, getAriaBusy, getAriaBusyUnsafe, getAriaBusyUnchecked, setAriaChecked, getAriaChecked, getAriaCheckedUnsafe, getAriaCheckedUnchecked, setAriaColCount, getAriaColCount, getAriaColCountUnsafe, getAriaColCountUnchecked, setAriaColIndex, getAriaColIndex, getAriaColIndexUnsafe, getAriaColIndexUnchecked, setAriaColIndexText, getAriaColIndexText, getAriaColIndexTextUnsafe, getAriaColIndexTextUnchecked, setAriaColSpan, getAriaColSpan, getAriaColSpanUnsafe, getAriaColSpanUnchecked, setAriaControlsElements, getAriaControlsElements, getAriaControlsElementsUnsafe, getAriaControlsElementsUnchecked, setAriaCurrent, getAriaCurrent, getAriaCurrentUnsafe, getAriaCurrentUnchecked, setAriaDescribedByElements, getAriaDescribedByElements, getAriaDescribedByElementsUnsafe, getAriaDescribedByElementsUnchecked, setAriaDescription, getAriaDescription, getAriaDescriptionUnsafe, getAriaDescriptionUnchecked, setAriaDetailsElements, getAriaDetailsElements, getAriaDetailsElementsUnsafe, getAriaDetailsElementsUnchecked, setAriaDisabled, getAriaDisabled, getAriaDisabledUnsafe, getAriaDisabledUnchecked, setAriaErrorMessageElements, getAriaErrorMessageElements, getAriaErrorMessageElementsUnsafe, getAriaErrorMessageElementsUnchecked, setAriaExpanded, getAriaExpanded, getAriaExpandedUnsafe, getAriaExpandedUnchecked, setAriaFlowToElements, getAriaFlowToElements, getAriaFlowToElementsUnsafe, getAriaFlowToElementsUnchecked, setAriaHasPopup, getAriaHasPopup, getAriaHasPopupUnsafe, getAriaHasPopupUnchecked, setAriaHidden, getAriaHidden, getAriaHiddenUnsafe, getAriaHiddenUnchecked, setAriaInvalid, getAriaInvalid, getAriaInvalidUnsafe, getAriaInvalidUnchecked, setAriaKeyShortcuts, getAriaKeyShortcuts, getAriaKeyShortcutsUnsafe, getAriaKeyShortcutsUnchecked, setAriaLabel, getAriaLabel, getAriaLabelUnsafe, getAriaLabelUnchecked, setAriaLabelledByElements, getAriaLabelledByElements, getAriaLabelledByElementsUnsafe, getAriaLabelledByElementsUnchecked, setAriaLevel, getAriaLevel, getAriaLevelUnsafe, getAriaLevelUnchecked, setAriaLive, getAriaLive, getAriaLiveUnsafe, getAriaLiveUnchecked, setAriaModal, getAriaModal, getAriaModalUnsafe, getAriaModalUnchecked, setAriaMultiLine, getAriaMultiLine, getAriaMultiLineUnsafe, getAriaMultiLineUnchecked, setAriaMultiSelectable, getAriaMultiSelectable, getAriaMultiSelectableUnsafe, getAriaMultiSelectableUnchecked, setAriaOrientation, getAriaOrientation, getAriaOrientationUnsafe, getAriaOrientationUnchecked, setAriaOwnsElements, getAriaOwnsElements, getAriaOwnsElementsUnsafe, getAriaOwnsElementsUnchecked, setAriaPlaceholder, getAriaPlaceholder, getAriaPlaceholderUnsafe, getAriaPlaceholderUnchecked, setAriaPosInSet, getAriaPosInSet, getAriaPosInSetUnsafe, getAriaPosInSetUnchecked, setAriaPressed, getAriaPressed, getAriaPressedUnsafe, getAriaPressedUnchecked, setAriaReadOnly, getAriaReadOnly, getAriaReadOnlyUnsafe, getAriaReadOnlyUnchecked, setAriaRelevant, getAriaRelevant, getAriaRelevantUnsafe, getAriaRelevantUnchecked, setAriaRequired, getAriaRequired, getAriaRequiredUnsafe, getAriaRequiredUnchecked, setAriaRoleDescription, getAriaRoleDescription, getAriaRoleDescriptionUnsafe, getAriaRoleDescriptionUnchecked, setAriaRowCount, getAriaRowCount, getAriaRowCountUnsafe, getAriaRowCountUnchecked, setAriaRowIndex, getAriaRowIndex, getAriaRowIndexUnsafe, getAriaRowIndexUnchecked, setAriaRowIndexText, getAriaRowIndexText, getAriaRowIndexTextUnsafe, getAriaRowIndexTextUnchecked, setAriaRowSpan, getAriaRowSpan, getAriaRowSpanUnsafe, getAriaRowSpanUnchecked, setAriaSelected, getAriaSelected, getAriaSelectedUnsafe, getAriaSelectedUnchecked, setAriaSetSize, getAriaSetSize, getAriaSetSizeUnsafe, getAriaSetSizeUnchecked, setAriaSort, getAriaSort, getAriaSortUnsafe, getAriaSortUnchecked, setAriaValueMax, getAriaValueMax, getAriaValueMaxUnsafe, getAriaValueMaxUnchecked, setAriaValueMin, getAriaValueMin, getAriaValueMinUnsafe, getAriaValueMinUnchecked, setAriaValueNow, getAriaValueNow, getAriaValueNowUnsafe, getAriaValueNowUnchecked, setAriaValueText, getAriaValueText, getAriaValueTextUnsafe, getAriaValueTextUnchecked, ARIAMixin(..), gTypeARIAMixin, IsARIAMixin, toARIAMixin) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1, $2) => { $1[\"role\"] = $2; })" + js_setRole :: ARIAMixin -> (Nullable JSString) -> IO () +-- | +setRole :: (MonadDOM m, IsARIAMixin self, ToJSString val) => self -> Maybe val -> m () +setRole self val = liftDOM (void ((js_setRole ((Types.toARIAMixin self)) (toMaybeJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"role\"]; })" + js_getRole :: ARIAMixin -> IO JSVal +-- | +getRole :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result) +getRole self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getRole ((Types.toARIAMixin self))))) + +-- | +getRoleUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack, FromJSString result) => self -> m result +getRoleUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getRole ((Types.toARIAMixin self)))) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getRoleUnchecked :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m result +getRoleUnchecked self = liftDOM ((pFromJSVal <$> (js_getRole ((Types.toARIAMixin self))))) + +foreign import javascript safe "(($1, $2) => { $1[\"ariaActiveDescendantElement\"] = $2; })" + js_setAriaActiveDescendantElement :: ARIAMixin -> JSVal -> IO () +-- | +setAriaActiveDescendantElement :: (MonadDOM m, IsARIAMixin self, IsElement val) => self -> Maybe val -> m () +setAriaActiveDescendantElement self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setAriaActiveDescendantElement ((Types.toARIAMixin self)) a2'))) + +foreign import javascript unsafe "(($1) => { return $1[\"ariaActiveDescendantElement\"]; })" + js_getAriaActiveDescendantElement :: ARIAMixin -> IO JSVal +-- | +getAriaActiveDescendantElement :: (MonadDOM m, IsARIAMixin self) => self -> m (Maybe Element) +getAriaActiveDescendantElement self = liftDOM (((js_getAriaActiveDescendantElement ((Types.toARIAMixin self))) >>= fromJSValUnchecked)) + +-- | +getAriaActiveDescendantElementUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack) => self -> m Element +getAriaActiveDescendantElementUnsafe self = liftDOM ((((js_getAriaActiveDescendantElement ((Types.toARIAMixin self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getAriaActiveDescendantElementUnchecked :: (MonadDOM m, IsARIAMixin self) => self -> m Element +getAriaActiveDescendantElementUnchecked self = liftDOM ((pFromJSVal <$> (js_getAriaActiveDescendantElement ((Types.toARIAMixin self))))) + +foreign import javascript safe "(($1, $2) => { $1[\"ariaAtomic\"] = $2; })" + js_setAriaAtomic :: ARIAMixin -> (Nullable JSString) -> IO () +-- | +setAriaAtomic :: (MonadDOM m, IsARIAMixin self, ToJSString val) => self -> Maybe val -> m () +setAriaAtomic self val = liftDOM (void ((js_setAriaAtomic ((Types.toARIAMixin self)) (toMaybeJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"ariaAtomic\"]; })" + js_getAriaAtomic :: ARIAMixin -> IO JSVal +-- | +getAriaAtomic :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result) +getAriaAtomic self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaAtomic ((Types.toARIAMixin self))))) + +-- | +getAriaAtomicUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack, FromJSString result) => self -> m result +getAriaAtomicUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAriaAtomic ((Types.toARIAMixin self)))) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getAriaAtomicUnchecked :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m result +getAriaAtomicUnchecked self = liftDOM ((pFromJSVal <$> (js_getAriaAtomic ((Types.toARIAMixin self))))) + +foreign import javascript safe "(($1, $2) => { $1[\"ariaAutoComplete\"] = $2; })" + js_setAriaAutoComplete :: ARIAMixin -> (Nullable JSString) -> IO () +-- | +setAriaAutoComplete :: (MonadDOM m, IsARIAMixin self, ToJSString val) => self -> Maybe val -> m () +setAriaAutoComplete self val = liftDOM (void ((js_setAriaAutoComplete ((Types.toARIAMixin self)) (toMaybeJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"ariaAutoComplete\"]; })" + js_getAriaAutoComplete :: ARIAMixin -> IO JSVal +-- | +getAriaAutoComplete :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result) +getAriaAutoComplete self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaAutoComplete ((Types.toARIAMixin self))))) + +-- | +getAriaAutoCompleteUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack, FromJSString result) => self -> m result +getAriaAutoCompleteUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAriaAutoComplete ((Types.toARIAMixin self)))) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getAriaAutoCompleteUnchecked :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m result +getAriaAutoCompleteUnchecked self = liftDOM ((pFromJSVal <$> (js_getAriaAutoComplete ((Types.toARIAMixin self))))) + +foreign import javascript safe "(($1, $2) => { $1[\"ariaBrailleLabel\"] = $2; })" + js_setAriaBrailleLabel :: ARIAMixin -> (Nullable JSString) -> IO () +-- | +setAriaBrailleLabel :: (MonadDOM m, IsARIAMixin self, ToJSString val) => self -> Maybe val -> m () +setAriaBrailleLabel self val = liftDOM (void ((js_setAriaBrailleLabel ((Types.toARIAMixin self)) (toMaybeJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"ariaBrailleLabel\"]; })" + js_getAriaBrailleLabel :: ARIAMixin -> IO JSVal +-- | +getAriaBrailleLabel :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result) +getAriaBrailleLabel self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaBrailleLabel ((Types.toARIAMixin self))))) + +-- | +getAriaBrailleLabelUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack, FromJSString result) => self -> m result +getAriaBrailleLabelUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAriaBrailleLabel ((Types.toARIAMixin self)))) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getAriaBrailleLabelUnchecked :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m result +getAriaBrailleLabelUnchecked self = liftDOM ((pFromJSVal <$> (js_getAriaBrailleLabel ((Types.toARIAMixin self))))) + +foreign import javascript safe "(($1, $2) => { $1[\"ariaBrailleRoleDescription\"] = $2; })" + js_setAriaBrailleRoleDescription :: ARIAMixin -> (Nullable JSString) -> IO () +-- | +setAriaBrailleRoleDescription :: (MonadDOM m, IsARIAMixin self, ToJSString val) => self -> Maybe val -> m () +setAriaBrailleRoleDescription self val = liftDOM (void ((js_setAriaBrailleRoleDescription ((Types.toARIAMixin self)) (toMaybeJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"ariaBrailleRoleDescription\"]; })" + js_getAriaBrailleRoleDescription :: ARIAMixin -> IO JSVal +-- | +getAriaBrailleRoleDescription :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result) +getAriaBrailleRoleDescription self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaBrailleRoleDescription ((Types.toARIAMixin self))))) + +-- | +getAriaBrailleRoleDescriptionUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack, FromJSString result) => self -> m result +getAriaBrailleRoleDescriptionUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAriaBrailleRoleDescription ((Types.toARIAMixin self)))) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getAriaBrailleRoleDescriptionUnchecked :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m result +getAriaBrailleRoleDescriptionUnchecked self = liftDOM ((pFromJSVal <$> (js_getAriaBrailleRoleDescription ((Types.toARIAMixin self))))) + +foreign import javascript safe "(($1, $2) => { $1[\"ariaBusy\"] = $2; })" + js_setAriaBusy :: ARIAMixin -> (Nullable JSString) -> IO () +-- | +setAriaBusy :: (MonadDOM m, IsARIAMixin self, ToJSString val) => self -> Maybe val -> m () +setAriaBusy self val = liftDOM (void ((js_setAriaBusy ((Types.toARIAMixin self)) (toMaybeJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"ariaBusy\"]; })" + js_getAriaBusy :: ARIAMixin -> IO JSVal +-- | +getAriaBusy :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result) +getAriaBusy self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaBusy ((Types.toARIAMixin self))))) + +-- | +getAriaBusyUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack, FromJSString result) => self -> m result +getAriaBusyUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAriaBusy ((Types.toARIAMixin self)))) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getAriaBusyUnchecked :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m result +getAriaBusyUnchecked self = liftDOM ((pFromJSVal <$> (js_getAriaBusy ((Types.toARIAMixin self))))) + +foreign import javascript safe "(($1, $2) => { $1[\"ariaChecked\"] = $2; })" + js_setAriaChecked :: ARIAMixin -> (Nullable JSString) -> IO () +-- | +setAriaChecked :: (MonadDOM m, IsARIAMixin self, ToJSString val) => self -> Maybe val -> m () +setAriaChecked self val = liftDOM (void ((js_setAriaChecked ((Types.toARIAMixin self)) (toMaybeJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"ariaChecked\"]; })" + js_getAriaChecked :: ARIAMixin -> IO JSVal +-- | +getAriaChecked :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result) +getAriaChecked self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaChecked ((Types.toARIAMixin self))))) + +-- | +getAriaCheckedUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack, FromJSString result) => self -> m result +getAriaCheckedUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAriaChecked ((Types.toARIAMixin self)))) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getAriaCheckedUnchecked :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m result +getAriaCheckedUnchecked self = liftDOM ((pFromJSVal <$> (js_getAriaChecked ((Types.toARIAMixin self))))) + +foreign import javascript safe "(($1, $2) => { $1[\"ariaColCount\"] = $2; })" + js_setAriaColCount :: ARIAMixin -> (Nullable JSString) -> IO () +-- | +setAriaColCount :: (MonadDOM m, IsARIAMixin self, ToJSString val) => self -> Maybe val -> m () +setAriaColCount self val = liftDOM (void ((js_setAriaColCount ((Types.toARIAMixin self)) (toMaybeJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"ariaColCount\"]; })" + js_getAriaColCount :: ARIAMixin -> IO JSVal +-- | +getAriaColCount :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result) +getAriaColCount self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaColCount ((Types.toARIAMixin self))))) + +-- | +getAriaColCountUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack, FromJSString result) => self -> m result +getAriaColCountUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAriaColCount ((Types.toARIAMixin self)))) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getAriaColCountUnchecked :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m result +getAriaColCountUnchecked self = liftDOM ((pFromJSVal <$> (js_getAriaColCount ((Types.toARIAMixin self))))) + +foreign import javascript safe "(($1, $2) => { $1[\"ariaColIndex\"] = $2; })" + js_setAriaColIndex :: ARIAMixin -> (Nullable JSString) -> IO () +-- | +setAriaColIndex :: (MonadDOM m, IsARIAMixin self, ToJSString val) => self -> Maybe val -> m () +setAriaColIndex self val = liftDOM (void ((js_setAriaColIndex ((Types.toARIAMixin self)) (toMaybeJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"ariaColIndex\"]; })" + js_getAriaColIndex :: ARIAMixin -> IO JSVal +-- | +getAriaColIndex :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result) +getAriaColIndex self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaColIndex ((Types.toARIAMixin self))))) + +-- | +getAriaColIndexUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack, FromJSString result) => self -> m result +getAriaColIndexUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAriaColIndex ((Types.toARIAMixin self)))) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getAriaColIndexUnchecked :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m result +getAriaColIndexUnchecked self = liftDOM ((pFromJSVal <$> (js_getAriaColIndex ((Types.toARIAMixin self))))) + +foreign import javascript safe "(($1, $2) => { $1[\"ariaColIndexText\"] = $2; })" + js_setAriaColIndexText :: ARIAMixin -> (Nullable JSString) -> IO () +-- | +setAriaColIndexText :: (MonadDOM m, IsARIAMixin self, ToJSString val) => self -> Maybe val -> m () +setAriaColIndexText self val = liftDOM (void ((js_setAriaColIndexText ((Types.toARIAMixin self)) (toMaybeJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"ariaColIndexText\"]; })" + js_getAriaColIndexText :: ARIAMixin -> IO JSVal +-- | +getAriaColIndexText :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result) +getAriaColIndexText self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaColIndexText ((Types.toARIAMixin self))))) + +-- | +getAriaColIndexTextUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack, FromJSString result) => self -> m result +getAriaColIndexTextUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAriaColIndexText ((Types.toARIAMixin self)))) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getAriaColIndexTextUnchecked :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m result +getAriaColIndexTextUnchecked self = liftDOM ((pFromJSVal <$> (js_getAriaColIndexText ((Types.toARIAMixin self))))) + +foreign import javascript safe "(($1, $2) => { $1[\"ariaColSpan\"] = $2; })" + js_setAriaColSpan :: ARIAMixin -> (Nullable JSString) -> IO () +-- | +setAriaColSpan :: (MonadDOM m, IsARIAMixin self, ToJSString val) => self -> Maybe val -> m () +setAriaColSpan self val = liftDOM (void ((js_setAriaColSpan ((Types.toARIAMixin self)) (toMaybeJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"ariaColSpan\"]; })" + js_getAriaColSpan :: ARIAMixin -> IO JSVal +-- | +getAriaColSpan :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result) +getAriaColSpan self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaColSpan ((Types.toARIAMixin self))))) + +-- | +getAriaColSpanUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack, FromJSString result) => self -> m result +getAriaColSpanUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAriaColSpan ((Types.toARIAMixin self)))) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getAriaColSpanUnchecked :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m result +getAriaColSpanUnchecked self = liftDOM ((pFromJSVal <$> (js_getAriaColSpan ((Types.toARIAMixin self))))) + +foreign import javascript safe "(($1, $2) => { $1[\"ariaControlsElements\"] = $2; })" + js_setAriaControlsElements :: ARIAMixin -> JSVal -> IO () +-- | +setAriaControlsElements :: (MonadDOM m, IsARIAMixin self, IsElement val) => self -> Maybe [val] -> m () +setAriaControlsElements self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setAriaControlsElements ((Types.toARIAMixin self)) a2'))) + +foreign import javascript unsafe "(($1) => { return $1[\"ariaControlsElements\"]; })" + js_getAriaControlsElements :: ARIAMixin -> IO JSVal +-- | +getAriaControlsElements :: (MonadDOM m, IsARIAMixin self) => self -> m (Maybe [Element]) +getAriaControlsElements self = liftDOM (((js_getAriaControlsElements ((Types.toARIAMixin self))) >>= fromJSValUnchecked)) + +-- | +getAriaControlsElementsUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack) => self -> m [Element] +getAriaControlsElementsUnsafe self = liftDOM ((((js_getAriaControlsElements ((Types.toARIAMixin self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getAriaControlsElementsUnchecked :: (MonadDOM m, IsARIAMixin self) => self -> m [Element] +getAriaControlsElementsUnchecked self = liftDOM (((js_getAriaControlsElements ((Types.toARIAMixin self))) >>= fromJSValUnchecked)) + +foreign import javascript safe "(($1, $2) => { $1[\"ariaCurrent\"] = $2; })" + js_setAriaCurrent :: ARIAMixin -> (Nullable JSString) -> IO () +-- | +setAriaCurrent :: (MonadDOM m, IsARIAMixin self, ToJSString val) => self -> Maybe val -> m () +setAriaCurrent self val = liftDOM (void ((js_setAriaCurrent ((Types.toARIAMixin self)) (toMaybeJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"ariaCurrent\"]; })" + js_getAriaCurrent :: ARIAMixin -> IO JSVal +-- | +getAriaCurrent :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result) +getAriaCurrent self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaCurrent ((Types.toARIAMixin self))))) + +-- | +getAriaCurrentUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack, FromJSString result) => self -> m result +getAriaCurrentUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAriaCurrent ((Types.toARIAMixin self)))) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getAriaCurrentUnchecked :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m result +getAriaCurrentUnchecked self = liftDOM ((pFromJSVal <$> (js_getAriaCurrent ((Types.toARIAMixin self))))) + +foreign import javascript safe "(($1, $2) => { $1[\"ariaDescribedByElements\"] = $2; })" + js_setAriaDescribedByElements :: ARIAMixin -> JSVal -> IO () +-- | +setAriaDescribedByElements :: (MonadDOM m, IsARIAMixin self, IsElement val) => self -> Maybe [val] -> m () +setAriaDescribedByElements self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setAriaDescribedByElements ((Types.toARIAMixin self)) a2'))) + +foreign import javascript unsafe "(($1) => { return $1[\"ariaDescribedByElements\"]; })" + js_getAriaDescribedByElements :: ARIAMixin -> IO JSVal +-- | +getAriaDescribedByElements :: (MonadDOM m, IsARIAMixin self) => self -> m (Maybe [Element]) +getAriaDescribedByElements self = liftDOM (((js_getAriaDescribedByElements ((Types.toARIAMixin self))) >>= fromJSValUnchecked)) + +-- | +getAriaDescribedByElementsUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack) => self -> m [Element] +getAriaDescribedByElementsUnsafe self = liftDOM ((((js_getAriaDescribedByElements ((Types.toARIAMixin self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getAriaDescribedByElementsUnchecked :: (MonadDOM m, IsARIAMixin self) => self -> m [Element] +getAriaDescribedByElementsUnchecked self = liftDOM (((js_getAriaDescribedByElements ((Types.toARIAMixin self))) >>= fromJSValUnchecked)) + +foreign import javascript safe "(($1, $2) => { $1[\"ariaDescription\"] = $2; })" + js_setAriaDescription :: ARIAMixin -> (Nullable JSString) -> IO () +-- | +setAriaDescription :: (MonadDOM m, IsARIAMixin self, ToJSString val) => self -> Maybe val -> m () +setAriaDescription self val = liftDOM (void ((js_setAriaDescription ((Types.toARIAMixin self)) (toMaybeJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"ariaDescription\"]; })" + js_getAriaDescription :: ARIAMixin -> IO JSVal +-- | +getAriaDescription :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result) +getAriaDescription self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaDescription ((Types.toARIAMixin self))))) + +-- | +getAriaDescriptionUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack, FromJSString result) => self -> m result +getAriaDescriptionUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAriaDescription ((Types.toARIAMixin self)))) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getAriaDescriptionUnchecked :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m result +getAriaDescriptionUnchecked self = liftDOM ((pFromJSVal <$> (js_getAriaDescription ((Types.toARIAMixin self))))) + +foreign import javascript safe "(($1, $2) => { $1[\"ariaDetailsElements\"] = $2; })" + js_setAriaDetailsElements :: ARIAMixin -> JSVal -> IO () +-- | +setAriaDetailsElements :: (MonadDOM m, IsARIAMixin self, IsElement val) => self -> Maybe [val] -> m () +setAriaDetailsElements self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setAriaDetailsElements ((Types.toARIAMixin self)) a2'))) + +foreign import javascript unsafe "(($1) => { return $1[\"ariaDetailsElements\"]; })" + js_getAriaDetailsElements :: ARIAMixin -> IO JSVal +-- | +getAriaDetailsElements :: (MonadDOM m, IsARIAMixin self) => self -> m (Maybe [Element]) +getAriaDetailsElements self = liftDOM (((js_getAriaDetailsElements ((Types.toARIAMixin self))) >>= fromJSValUnchecked)) + +-- | +getAriaDetailsElementsUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack) => self -> m [Element] +getAriaDetailsElementsUnsafe self = liftDOM ((((js_getAriaDetailsElements ((Types.toARIAMixin self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getAriaDetailsElementsUnchecked :: (MonadDOM m, IsARIAMixin self) => self -> m [Element] +getAriaDetailsElementsUnchecked self = liftDOM (((js_getAriaDetailsElements ((Types.toARIAMixin self))) >>= fromJSValUnchecked)) + +foreign import javascript safe "(($1, $2) => { $1[\"ariaDisabled\"] = $2; })" + js_setAriaDisabled :: ARIAMixin -> (Nullable JSString) -> IO () +-- | +setAriaDisabled :: (MonadDOM m, IsARIAMixin self, ToJSString val) => self -> Maybe val -> m () +setAriaDisabled self val = liftDOM (void ((js_setAriaDisabled ((Types.toARIAMixin self)) (toMaybeJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"ariaDisabled\"]; })" + js_getAriaDisabled :: ARIAMixin -> IO JSVal +-- | +getAriaDisabled :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result) +getAriaDisabled self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaDisabled ((Types.toARIAMixin self))))) + +-- | +getAriaDisabledUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack, FromJSString result) => self -> m result +getAriaDisabledUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAriaDisabled ((Types.toARIAMixin self)))) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getAriaDisabledUnchecked :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m result +getAriaDisabledUnchecked self = liftDOM ((pFromJSVal <$> (js_getAriaDisabled ((Types.toARIAMixin self))))) + +foreign import javascript safe "(($1, $2) => { $1[\"ariaErrorMessageElements\"] = $2; })" + js_setAriaErrorMessageElements :: ARIAMixin -> JSVal -> IO () +-- | +setAriaErrorMessageElements :: (MonadDOM m, IsARIAMixin self, IsElement val) => self -> Maybe [val] -> m () +setAriaErrorMessageElements self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setAriaErrorMessageElements ((Types.toARIAMixin self)) a2'))) + +foreign import javascript unsafe "(($1) => { return $1[\"ariaErrorMessageElements\"]; })" + js_getAriaErrorMessageElements :: ARIAMixin -> IO JSVal +-- | +getAriaErrorMessageElements :: (MonadDOM m, IsARIAMixin self) => self -> m (Maybe [Element]) +getAriaErrorMessageElements self = liftDOM (((js_getAriaErrorMessageElements ((Types.toARIAMixin self))) >>= fromJSValUnchecked)) + +-- | +getAriaErrorMessageElementsUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack) => self -> m [Element] +getAriaErrorMessageElementsUnsafe self = liftDOM ((((js_getAriaErrorMessageElements ((Types.toARIAMixin self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getAriaErrorMessageElementsUnchecked :: (MonadDOM m, IsARIAMixin self) => self -> m [Element] +getAriaErrorMessageElementsUnchecked self = liftDOM (((js_getAriaErrorMessageElements ((Types.toARIAMixin self))) >>= fromJSValUnchecked)) + +foreign import javascript safe "(($1, $2) => { $1[\"ariaExpanded\"] = $2; })" + js_setAriaExpanded :: ARIAMixin -> (Nullable JSString) -> IO () +-- | +setAriaExpanded :: (MonadDOM m, IsARIAMixin self, ToJSString val) => self -> Maybe val -> m () +setAriaExpanded self val = liftDOM (void ((js_setAriaExpanded ((Types.toARIAMixin self)) (toMaybeJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"ariaExpanded\"]; })" + js_getAriaExpanded :: ARIAMixin -> IO JSVal +-- | +getAriaExpanded :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result) +getAriaExpanded self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaExpanded ((Types.toARIAMixin self))))) + +-- | +getAriaExpandedUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack, FromJSString result) => self -> m result +getAriaExpandedUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAriaExpanded ((Types.toARIAMixin self)))) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getAriaExpandedUnchecked :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m result +getAriaExpandedUnchecked self = liftDOM ((pFromJSVal <$> (js_getAriaExpanded ((Types.toARIAMixin self))))) + +foreign import javascript safe "(($1, $2) => { $1[\"ariaFlowToElements\"] = $2; })" + js_setAriaFlowToElements :: ARIAMixin -> JSVal -> IO () +-- | +setAriaFlowToElements :: (MonadDOM m, IsARIAMixin self, IsElement val) => self -> Maybe [val] -> m () +setAriaFlowToElements self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setAriaFlowToElements ((Types.toARIAMixin self)) a2'))) + +foreign import javascript unsafe "(($1) => { return $1[\"ariaFlowToElements\"]; })" + js_getAriaFlowToElements :: ARIAMixin -> IO JSVal +-- | +getAriaFlowToElements :: (MonadDOM m, IsARIAMixin self) => self -> m (Maybe [Element]) +getAriaFlowToElements self = liftDOM (((js_getAriaFlowToElements ((Types.toARIAMixin self))) >>= fromJSValUnchecked)) + +-- | +getAriaFlowToElementsUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack) => self -> m [Element] +getAriaFlowToElementsUnsafe self = liftDOM ((((js_getAriaFlowToElements ((Types.toARIAMixin self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getAriaFlowToElementsUnchecked :: (MonadDOM m, IsARIAMixin self) => self -> m [Element] +getAriaFlowToElementsUnchecked self = liftDOM (((js_getAriaFlowToElements ((Types.toARIAMixin self))) >>= fromJSValUnchecked)) + +foreign import javascript safe "(($1, $2) => { $1[\"ariaHasPopup\"] = $2; })" + js_setAriaHasPopup :: ARIAMixin -> (Nullable JSString) -> IO () +-- | +setAriaHasPopup :: (MonadDOM m, IsARIAMixin self, ToJSString val) => self -> Maybe val -> m () +setAriaHasPopup self val = liftDOM (void ((js_setAriaHasPopup ((Types.toARIAMixin self)) (toMaybeJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"ariaHasPopup\"]; })" + js_getAriaHasPopup :: ARIAMixin -> IO JSVal +-- | +getAriaHasPopup :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result) +getAriaHasPopup self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaHasPopup ((Types.toARIAMixin self))))) + +-- | +getAriaHasPopupUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack, FromJSString result) => self -> m result +getAriaHasPopupUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAriaHasPopup ((Types.toARIAMixin self)))) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getAriaHasPopupUnchecked :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m result +getAriaHasPopupUnchecked self = liftDOM ((pFromJSVal <$> (js_getAriaHasPopup ((Types.toARIAMixin self))))) + +foreign import javascript safe "(($1, $2) => { $1[\"ariaHidden\"] = $2; })" + js_setAriaHidden :: ARIAMixin -> (Nullable JSString) -> IO () +-- | +setAriaHidden :: (MonadDOM m, IsARIAMixin self, ToJSString val) => self -> Maybe val -> m () +setAriaHidden self val = liftDOM (void ((js_setAriaHidden ((Types.toARIAMixin self)) (toMaybeJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"ariaHidden\"]; })" + js_getAriaHidden :: ARIAMixin -> IO JSVal +-- | +getAriaHidden :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result) +getAriaHidden self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaHidden ((Types.toARIAMixin self))))) + +-- | +getAriaHiddenUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack, FromJSString result) => self -> m result +getAriaHiddenUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAriaHidden ((Types.toARIAMixin self)))) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getAriaHiddenUnchecked :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m result +getAriaHiddenUnchecked self = liftDOM ((pFromJSVal <$> (js_getAriaHidden ((Types.toARIAMixin self))))) + +foreign import javascript safe "(($1, $2) => { $1[\"ariaInvalid\"] = $2; })" + js_setAriaInvalid :: ARIAMixin -> (Nullable JSString) -> IO () +-- | +setAriaInvalid :: (MonadDOM m, IsARIAMixin self, ToJSString val) => self -> Maybe val -> m () +setAriaInvalid self val = liftDOM (void ((js_setAriaInvalid ((Types.toARIAMixin self)) (toMaybeJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"ariaInvalid\"]; })" + js_getAriaInvalid :: ARIAMixin -> IO JSVal +-- | +getAriaInvalid :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result) +getAriaInvalid self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaInvalid ((Types.toARIAMixin self))))) + +-- | +getAriaInvalidUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack, FromJSString result) => self -> m result +getAriaInvalidUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAriaInvalid ((Types.toARIAMixin self)))) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getAriaInvalidUnchecked :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m result +getAriaInvalidUnchecked self = liftDOM ((pFromJSVal <$> (js_getAriaInvalid ((Types.toARIAMixin self))))) + +foreign import javascript safe "(($1, $2) => { $1[\"ariaKeyShortcuts\"] = $2; })" + js_setAriaKeyShortcuts :: ARIAMixin -> (Nullable JSString) -> IO () +-- | +setAriaKeyShortcuts :: (MonadDOM m, IsARIAMixin self, ToJSString val) => self -> Maybe val -> m () +setAriaKeyShortcuts self val = liftDOM (void ((js_setAriaKeyShortcuts ((Types.toARIAMixin self)) (toMaybeJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"ariaKeyShortcuts\"]; })" + js_getAriaKeyShortcuts :: ARIAMixin -> IO JSVal +-- | +getAriaKeyShortcuts :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result) +getAriaKeyShortcuts self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaKeyShortcuts ((Types.toARIAMixin self))))) + +-- | +getAriaKeyShortcutsUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack, FromJSString result) => self -> m result +getAriaKeyShortcutsUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAriaKeyShortcuts ((Types.toARIAMixin self)))) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getAriaKeyShortcutsUnchecked :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m result +getAriaKeyShortcutsUnchecked self = liftDOM ((pFromJSVal <$> (js_getAriaKeyShortcuts ((Types.toARIAMixin self))))) + +foreign import javascript safe "(($1, $2) => { $1[\"ariaLabel\"] = $2; })" + js_setAriaLabel :: ARIAMixin -> (Nullable JSString) -> IO () +-- | +setAriaLabel :: (MonadDOM m, IsARIAMixin self, ToJSString val) => self -> Maybe val -> m () +setAriaLabel self val = liftDOM (void ((js_setAriaLabel ((Types.toARIAMixin self)) (toMaybeJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"ariaLabel\"]; })" + js_getAriaLabel :: ARIAMixin -> IO JSVal +-- | +getAriaLabel :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result) +getAriaLabel self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaLabel ((Types.toARIAMixin self))))) + +-- | +getAriaLabelUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack, FromJSString result) => self -> m result +getAriaLabelUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAriaLabel ((Types.toARIAMixin self)))) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getAriaLabelUnchecked :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m result +getAriaLabelUnchecked self = liftDOM ((pFromJSVal <$> (js_getAriaLabel ((Types.toARIAMixin self))))) + +foreign import javascript safe "(($1, $2) => { $1[\"ariaLabelledByElements\"] = $2; })" + js_setAriaLabelledByElements :: ARIAMixin -> JSVal -> IO () +-- | +setAriaLabelledByElements :: (MonadDOM m, IsARIAMixin self, IsElement val) => self -> Maybe [val] -> m () +setAriaLabelledByElements self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setAriaLabelledByElements ((Types.toARIAMixin self)) a2'))) + +foreign import javascript unsafe "(($1) => { return $1[\"ariaLabelledByElements\"]; })" + js_getAriaLabelledByElements :: ARIAMixin -> IO JSVal +-- | +getAriaLabelledByElements :: (MonadDOM m, IsARIAMixin self) => self -> m (Maybe [Element]) +getAriaLabelledByElements self = liftDOM (((js_getAriaLabelledByElements ((Types.toARIAMixin self))) >>= fromJSValUnchecked)) + +-- | +getAriaLabelledByElementsUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack) => self -> m [Element] +getAriaLabelledByElementsUnsafe self = liftDOM ((((js_getAriaLabelledByElements ((Types.toARIAMixin self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getAriaLabelledByElementsUnchecked :: (MonadDOM m, IsARIAMixin self) => self -> m [Element] +getAriaLabelledByElementsUnchecked self = liftDOM (((js_getAriaLabelledByElements ((Types.toARIAMixin self))) >>= fromJSValUnchecked)) + +foreign import javascript safe "(($1, $2) => { $1[\"ariaLevel\"] = $2; })" + js_setAriaLevel :: ARIAMixin -> (Nullable JSString) -> IO () +-- | +setAriaLevel :: (MonadDOM m, IsARIAMixin self, ToJSString val) => self -> Maybe val -> m () +setAriaLevel self val = liftDOM (void ((js_setAriaLevel ((Types.toARIAMixin self)) (toMaybeJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"ariaLevel\"]; })" + js_getAriaLevel :: ARIAMixin -> IO JSVal +-- | +getAriaLevel :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result) +getAriaLevel self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaLevel ((Types.toARIAMixin self))))) + +-- | +getAriaLevelUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack, FromJSString result) => self -> m result +getAriaLevelUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAriaLevel ((Types.toARIAMixin self)))) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getAriaLevelUnchecked :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m result +getAriaLevelUnchecked self = liftDOM ((pFromJSVal <$> (js_getAriaLevel ((Types.toARIAMixin self))))) + +foreign import javascript safe "(($1, $2) => { $1[\"ariaLive\"] = $2; })" + js_setAriaLive :: ARIAMixin -> (Nullable JSString) -> IO () +-- | +setAriaLive :: (MonadDOM m, IsARIAMixin self, ToJSString val) => self -> Maybe val -> m () +setAriaLive self val = liftDOM (void ((js_setAriaLive ((Types.toARIAMixin self)) (toMaybeJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"ariaLive\"]; })" + js_getAriaLive :: ARIAMixin -> IO JSVal +-- | +getAriaLive :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result) +getAriaLive self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaLive ((Types.toARIAMixin self))))) + +-- | +getAriaLiveUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack, FromJSString result) => self -> m result +getAriaLiveUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAriaLive ((Types.toARIAMixin self)))) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getAriaLiveUnchecked :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m result +getAriaLiveUnchecked self = liftDOM ((pFromJSVal <$> (js_getAriaLive ((Types.toARIAMixin self))))) + +foreign import javascript safe "(($1, $2) => { $1[\"ariaModal\"] = $2; })" + js_setAriaModal :: ARIAMixin -> (Nullable JSString) -> IO () +-- | +setAriaModal :: (MonadDOM m, IsARIAMixin self, ToJSString val) => self -> Maybe val -> m () +setAriaModal self val = liftDOM (void ((js_setAriaModal ((Types.toARIAMixin self)) (toMaybeJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"ariaModal\"]; })" + js_getAriaModal :: ARIAMixin -> IO JSVal +-- | +getAriaModal :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result) +getAriaModal self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaModal ((Types.toARIAMixin self))))) + +-- | +getAriaModalUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack, FromJSString result) => self -> m result +getAriaModalUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAriaModal ((Types.toARIAMixin self)))) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getAriaModalUnchecked :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m result +getAriaModalUnchecked self = liftDOM ((pFromJSVal <$> (js_getAriaModal ((Types.toARIAMixin self))))) + +foreign import javascript safe "(($1, $2) => { $1[\"ariaMultiLine\"] = $2; })" + js_setAriaMultiLine :: ARIAMixin -> (Nullable JSString) -> IO () +-- | +setAriaMultiLine :: (MonadDOM m, IsARIAMixin self, ToJSString val) => self -> Maybe val -> m () +setAriaMultiLine self val = liftDOM (void ((js_setAriaMultiLine ((Types.toARIAMixin self)) (toMaybeJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"ariaMultiLine\"]; })" + js_getAriaMultiLine :: ARIAMixin -> IO JSVal +-- | +getAriaMultiLine :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result) +getAriaMultiLine self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaMultiLine ((Types.toARIAMixin self))))) + +-- | +getAriaMultiLineUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack, FromJSString result) => self -> m result +getAriaMultiLineUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAriaMultiLine ((Types.toARIAMixin self)))) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getAriaMultiLineUnchecked :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m result +getAriaMultiLineUnchecked self = liftDOM ((pFromJSVal <$> (js_getAriaMultiLine ((Types.toARIAMixin self))))) + +foreign import javascript safe "(($1, $2) => { $1[\"ariaMultiSelectable\"] = $2; })" + js_setAriaMultiSelectable :: ARIAMixin -> (Nullable JSString) -> IO () +-- | +setAriaMultiSelectable :: (MonadDOM m, IsARIAMixin self, ToJSString val) => self -> Maybe val -> m () +setAriaMultiSelectable self val = liftDOM (void ((js_setAriaMultiSelectable ((Types.toARIAMixin self)) (toMaybeJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"ariaMultiSelectable\"]; })" + js_getAriaMultiSelectable :: ARIAMixin -> IO JSVal +-- | +getAriaMultiSelectable :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result) +getAriaMultiSelectable self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaMultiSelectable ((Types.toARIAMixin self))))) + +-- | +getAriaMultiSelectableUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack, FromJSString result) => self -> m result +getAriaMultiSelectableUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAriaMultiSelectable ((Types.toARIAMixin self)))) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getAriaMultiSelectableUnchecked :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m result +getAriaMultiSelectableUnchecked self = liftDOM ((pFromJSVal <$> (js_getAriaMultiSelectable ((Types.toARIAMixin self))))) + +foreign import javascript safe "(($1, $2) => { $1[\"ariaOrientation\"] = $2; })" + js_setAriaOrientation :: ARIAMixin -> (Nullable JSString) -> IO () +-- | +setAriaOrientation :: (MonadDOM m, IsARIAMixin self, ToJSString val) => self -> Maybe val -> m () +setAriaOrientation self val = liftDOM (void ((js_setAriaOrientation ((Types.toARIAMixin self)) (toMaybeJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"ariaOrientation\"]; })" + js_getAriaOrientation :: ARIAMixin -> IO JSVal +-- | +getAriaOrientation :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result) +getAriaOrientation self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaOrientation ((Types.toARIAMixin self))))) + +-- | +getAriaOrientationUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack, FromJSString result) => self -> m result +getAriaOrientationUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAriaOrientation ((Types.toARIAMixin self)))) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getAriaOrientationUnchecked :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m result +getAriaOrientationUnchecked self = liftDOM ((pFromJSVal <$> (js_getAriaOrientation ((Types.toARIAMixin self))))) + +foreign import javascript safe "(($1, $2) => { $1[\"ariaOwnsElements\"] = $2; })" + js_setAriaOwnsElements :: ARIAMixin -> JSVal -> IO () +-- | +setAriaOwnsElements :: (MonadDOM m, IsARIAMixin self, IsElement val) => self -> Maybe [val] -> m () +setAriaOwnsElements self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setAriaOwnsElements ((Types.toARIAMixin self)) a2'))) + +foreign import javascript unsafe "(($1) => { return $1[\"ariaOwnsElements\"]; })" + js_getAriaOwnsElements :: ARIAMixin -> IO JSVal +-- | +getAriaOwnsElements :: (MonadDOM m, IsARIAMixin self) => self -> m (Maybe [Element]) +getAriaOwnsElements self = liftDOM (((js_getAriaOwnsElements ((Types.toARIAMixin self))) >>= fromJSValUnchecked)) + +-- | +getAriaOwnsElementsUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack) => self -> m [Element] +getAriaOwnsElementsUnsafe self = liftDOM ((((js_getAriaOwnsElements ((Types.toARIAMixin self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getAriaOwnsElementsUnchecked :: (MonadDOM m, IsARIAMixin self) => self -> m [Element] +getAriaOwnsElementsUnchecked self = liftDOM (((js_getAriaOwnsElements ((Types.toARIAMixin self))) >>= fromJSValUnchecked)) + +foreign import javascript safe "(($1, $2) => { $1[\"ariaPlaceholder\"] = $2; })" + js_setAriaPlaceholder :: ARIAMixin -> (Nullable JSString) -> IO () +-- | +setAriaPlaceholder :: (MonadDOM m, IsARIAMixin self, ToJSString val) => self -> Maybe val -> m () +setAriaPlaceholder self val = liftDOM (void ((js_setAriaPlaceholder ((Types.toARIAMixin self)) (toMaybeJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"ariaPlaceholder\"]; })" + js_getAriaPlaceholder :: ARIAMixin -> IO JSVal +-- | +getAriaPlaceholder :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result) +getAriaPlaceholder self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaPlaceholder ((Types.toARIAMixin self))))) + +-- | +getAriaPlaceholderUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack, FromJSString result) => self -> m result +getAriaPlaceholderUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAriaPlaceholder ((Types.toARIAMixin self)))) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getAriaPlaceholderUnchecked :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m result +getAriaPlaceholderUnchecked self = liftDOM ((pFromJSVal <$> (js_getAriaPlaceholder ((Types.toARIAMixin self))))) + +foreign import javascript safe "(($1, $2) => { $1[\"ariaPosInSet\"] = $2; })" + js_setAriaPosInSet :: ARIAMixin -> (Nullable JSString) -> IO () +-- | +setAriaPosInSet :: (MonadDOM m, IsARIAMixin self, ToJSString val) => self -> Maybe val -> m () +setAriaPosInSet self val = liftDOM (void ((js_setAriaPosInSet ((Types.toARIAMixin self)) (toMaybeJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"ariaPosInSet\"]; })" + js_getAriaPosInSet :: ARIAMixin -> IO JSVal +-- | +getAriaPosInSet :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result) +getAriaPosInSet self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaPosInSet ((Types.toARIAMixin self))))) + +-- | +getAriaPosInSetUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack, FromJSString result) => self -> m result +getAriaPosInSetUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAriaPosInSet ((Types.toARIAMixin self)))) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getAriaPosInSetUnchecked :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m result +getAriaPosInSetUnchecked self = liftDOM ((pFromJSVal <$> (js_getAriaPosInSet ((Types.toARIAMixin self))))) + +foreign import javascript safe "(($1, $2) => { $1[\"ariaPressed\"] = $2; })" + js_setAriaPressed :: ARIAMixin -> (Nullable JSString) -> IO () +-- | +setAriaPressed :: (MonadDOM m, IsARIAMixin self, ToJSString val) => self -> Maybe val -> m () +setAriaPressed self val = liftDOM (void ((js_setAriaPressed ((Types.toARIAMixin self)) (toMaybeJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"ariaPressed\"]; })" + js_getAriaPressed :: ARIAMixin -> IO JSVal +-- | +getAriaPressed :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result) +getAriaPressed self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaPressed ((Types.toARIAMixin self))))) + +-- | +getAriaPressedUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack, FromJSString result) => self -> m result +getAriaPressedUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAriaPressed ((Types.toARIAMixin self)))) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getAriaPressedUnchecked :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m result +getAriaPressedUnchecked self = liftDOM ((pFromJSVal <$> (js_getAriaPressed ((Types.toARIAMixin self))))) + +foreign import javascript safe "(($1, $2) => { $1[\"ariaReadOnly\"] = $2; })" + js_setAriaReadOnly :: ARIAMixin -> (Nullable JSString) -> IO () +-- | +setAriaReadOnly :: (MonadDOM m, IsARIAMixin self, ToJSString val) => self -> Maybe val -> m () +setAriaReadOnly self val = liftDOM (void ((js_setAriaReadOnly ((Types.toARIAMixin self)) (toMaybeJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"ariaReadOnly\"]; })" + js_getAriaReadOnly :: ARIAMixin -> IO JSVal +-- | +getAriaReadOnly :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result) +getAriaReadOnly self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaReadOnly ((Types.toARIAMixin self))))) + +-- | +getAriaReadOnlyUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack, FromJSString result) => self -> m result +getAriaReadOnlyUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAriaReadOnly ((Types.toARIAMixin self)))) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getAriaReadOnlyUnchecked :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m result +getAriaReadOnlyUnchecked self = liftDOM ((pFromJSVal <$> (js_getAriaReadOnly ((Types.toARIAMixin self))))) + +foreign import javascript safe "(($1, $2) => { $1[\"ariaRelevant\"] = $2; })" + js_setAriaRelevant :: ARIAMixin -> (Nullable JSString) -> IO () +-- | +setAriaRelevant :: (MonadDOM m, IsARIAMixin self, ToJSString val) => self -> Maybe val -> m () +setAriaRelevant self val = liftDOM (void ((js_setAriaRelevant ((Types.toARIAMixin self)) (toMaybeJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"ariaRelevant\"]; })" + js_getAriaRelevant :: ARIAMixin -> IO JSVal +-- | +getAriaRelevant :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result) +getAriaRelevant self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaRelevant ((Types.toARIAMixin self))))) + +-- | +getAriaRelevantUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack, FromJSString result) => self -> m result +getAriaRelevantUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAriaRelevant ((Types.toARIAMixin self)))) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getAriaRelevantUnchecked :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m result +getAriaRelevantUnchecked self = liftDOM ((pFromJSVal <$> (js_getAriaRelevant ((Types.toARIAMixin self))))) + +foreign import javascript safe "(($1, $2) => { $1[\"ariaRequired\"] = $2; })" + js_setAriaRequired :: ARIAMixin -> (Nullable JSString) -> IO () +-- | +setAriaRequired :: (MonadDOM m, IsARIAMixin self, ToJSString val) => self -> Maybe val -> m () +setAriaRequired self val = liftDOM (void ((js_setAriaRequired ((Types.toARIAMixin self)) (toMaybeJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"ariaRequired\"]; })" + js_getAriaRequired :: ARIAMixin -> IO JSVal +-- | +getAriaRequired :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result) +getAriaRequired self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaRequired ((Types.toARIAMixin self))))) + +-- | +getAriaRequiredUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack, FromJSString result) => self -> m result +getAriaRequiredUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAriaRequired ((Types.toARIAMixin self)))) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getAriaRequiredUnchecked :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m result +getAriaRequiredUnchecked self = liftDOM ((pFromJSVal <$> (js_getAriaRequired ((Types.toARIAMixin self))))) + +foreign import javascript safe "(($1, $2) => { $1[\"ariaRoleDescription\"] = $2; })" + js_setAriaRoleDescription :: ARIAMixin -> (Nullable JSString) -> IO () +-- | +setAriaRoleDescription :: (MonadDOM m, IsARIAMixin self, ToJSString val) => self -> Maybe val -> m () +setAriaRoleDescription self val = liftDOM (void ((js_setAriaRoleDescription ((Types.toARIAMixin self)) (toMaybeJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"ariaRoleDescription\"]; })" + js_getAriaRoleDescription :: ARIAMixin -> IO JSVal +-- | +getAriaRoleDescription :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result) +getAriaRoleDescription self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaRoleDescription ((Types.toARIAMixin self))))) + +-- | +getAriaRoleDescriptionUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack, FromJSString result) => self -> m result +getAriaRoleDescriptionUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAriaRoleDescription ((Types.toARIAMixin self)))) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getAriaRoleDescriptionUnchecked :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m result +getAriaRoleDescriptionUnchecked self = liftDOM ((pFromJSVal <$> (js_getAriaRoleDescription ((Types.toARIAMixin self))))) + +foreign import javascript safe "(($1, $2) => { $1[\"ariaRowCount\"] = $2; })" + js_setAriaRowCount :: ARIAMixin -> (Nullable JSString) -> IO () +-- | +setAriaRowCount :: (MonadDOM m, IsARIAMixin self, ToJSString val) => self -> Maybe val -> m () +setAriaRowCount self val = liftDOM (void ((js_setAriaRowCount ((Types.toARIAMixin self)) (toMaybeJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"ariaRowCount\"]; })" + js_getAriaRowCount :: ARIAMixin -> IO JSVal +-- | +getAriaRowCount :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result) +getAriaRowCount self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaRowCount ((Types.toARIAMixin self))))) + +-- | +getAriaRowCountUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack, FromJSString result) => self -> m result +getAriaRowCountUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAriaRowCount ((Types.toARIAMixin self)))) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getAriaRowCountUnchecked :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m result +getAriaRowCountUnchecked self = liftDOM ((pFromJSVal <$> (js_getAriaRowCount ((Types.toARIAMixin self))))) + +foreign import javascript safe "(($1, $2) => { $1[\"ariaRowIndex\"] = $2; })" + js_setAriaRowIndex :: ARIAMixin -> (Nullable JSString) -> IO () +-- | +setAriaRowIndex :: (MonadDOM m, IsARIAMixin self, ToJSString val) => self -> Maybe val -> m () +setAriaRowIndex self val = liftDOM (void ((js_setAriaRowIndex ((Types.toARIAMixin self)) (toMaybeJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"ariaRowIndex\"]; })" + js_getAriaRowIndex :: ARIAMixin -> IO JSVal +-- | +getAriaRowIndex :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result) +getAriaRowIndex self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaRowIndex ((Types.toARIAMixin self))))) + +-- | +getAriaRowIndexUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack, FromJSString result) => self -> m result +getAriaRowIndexUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAriaRowIndex ((Types.toARIAMixin self)))) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getAriaRowIndexUnchecked :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m result +getAriaRowIndexUnchecked self = liftDOM ((pFromJSVal <$> (js_getAriaRowIndex ((Types.toARIAMixin self))))) + +foreign import javascript safe "(($1, $2) => { $1[\"ariaRowIndexText\"] = $2; })" + js_setAriaRowIndexText :: ARIAMixin -> (Nullable JSString) -> IO () +-- | +setAriaRowIndexText :: (MonadDOM m, IsARIAMixin self, ToJSString val) => self -> Maybe val -> m () +setAriaRowIndexText self val = liftDOM (void ((js_setAriaRowIndexText ((Types.toARIAMixin self)) (toMaybeJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"ariaRowIndexText\"]; })" + js_getAriaRowIndexText :: ARIAMixin -> IO JSVal +-- | +getAriaRowIndexText :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result) +getAriaRowIndexText self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaRowIndexText ((Types.toARIAMixin self))))) + +-- | +getAriaRowIndexTextUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack, FromJSString result) => self -> m result +getAriaRowIndexTextUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAriaRowIndexText ((Types.toARIAMixin self)))) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getAriaRowIndexTextUnchecked :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m result +getAriaRowIndexTextUnchecked self = liftDOM ((pFromJSVal <$> (js_getAriaRowIndexText ((Types.toARIAMixin self))))) + +foreign import javascript safe "(($1, $2) => { $1[\"ariaRowSpan\"] = $2; })" + js_setAriaRowSpan :: ARIAMixin -> (Nullable JSString) -> IO () +-- | +setAriaRowSpan :: (MonadDOM m, IsARIAMixin self, ToJSString val) => self -> Maybe val -> m () +setAriaRowSpan self val = liftDOM (void ((js_setAriaRowSpan ((Types.toARIAMixin self)) (toMaybeJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"ariaRowSpan\"]; })" + js_getAriaRowSpan :: ARIAMixin -> IO JSVal +-- | +getAriaRowSpan :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result) +getAriaRowSpan self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaRowSpan ((Types.toARIAMixin self))))) + +-- | +getAriaRowSpanUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack, FromJSString result) => self -> m result +getAriaRowSpanUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAriaRowSpan ((Types.toARIAMixin self)))) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getAriaRowSpanUnchecked :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m result +getAriaRowSpanUnchecked self = liftDOM ((pFromJSVal <$> (js_getAriaRowSpan ((Types.toARIAMixin self))))) + +foreign import javascript safe "(($1, $2) => { $1[\"ariaSelected\"] = $2; })" + js_setAriaSelected :: ARIAMixin -> (Nullable JSString) -> IO () +-- | +setAriaSelected :: (MonadDOM m, IsARIAMixin self, ToJSString val) => self -> Maybe val -> m () +setAriaSelected self val = liftDOM (void ((js_setAriaSelected ((Types.toARIAMixin self)) (toMaybeJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"ariaSelected\"]; })" + js_getAriaSelected :: ARIAMixin -> IO JSVal +-- | +getAriaSelected :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result) +getAriaSelected self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaSelected ((Types.toARIAMixin self))))) + +-- | +getAriaSelectedUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack, FromJSString result) => self -> m result +getAriaSelectedUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAriaSelected ((Types.toARIAMixin self)))) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getAriaSelectedUnchecked :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m result +getAriaSelectedUnchecked self = liftDOM ((pFromJSVal <$> (js_getAriaSelected ((Types.toARIAMixin self))))) + +foreign import javascript safe "(($1, $2) => { $1[\"ariaSetSize\"] = $2; })" + js_setAriaSetSize :: ARIAMixin -> (Nullable JSString) -> IO () +-- | +setAriaSetSize :: (MonadDOM m, IsARIAMixin self, ToJSString val) => self -> Maybe val -> m () +setAriaSetSize self val = liftDOM (void ((js_setAriaSetSize ((Types.toARIAMixin self)) (toMaybeJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"ariaSetSize\"]; })" + js_getAriaSetSize :: ARIAMixin -> IO JSVal +-- | +getAriaSetSize :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result) +getAriaSetSize self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaSetSize ((Types.toARIAMixin self))))) + +-- | +getAriaSetSizeUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack, FromJSString result) => self -> m result +getAriaSetSizeUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAriaSetSize ((Types.toARIAMixin self)))) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getAriaSetSizeUnchecked :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m result +getAriaSetSizeUnchecked self = liftDOM ((pFromJSVal <$> (js_getAriaSetSize ((Types.toARIAMixin self))))) + +foreign import javascript safe "(($1, $2) => { $1[\"ariaSort\"] = $2; })" + js_setAriaSort :: ARIAMixin -> (Nullable JSString) -> IO () +-- | +setAriaSort :: (MonadDOM m, IsARIAMixin self, ToJSString val) => self -> Maybe val -> m () +setAriaSort self val = liftDOM (void ((js_setAriaSort ((Types.toARIAMixin self)) (toMaybeJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"ariaSort\"]; })" + js_getAriaSort :: ARIAMixin -> IO JSVal +-- | +getAriaSort :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result) +getAriaSort self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaSort ((Types.toARIAMixin self))))) + +-- | +getAriaSortUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack, FromJSString result) => self -> m result +getAriaSortUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAriaSort ((Types.toARIAMixin self)))) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getAriaSortUnchecked :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m result +getAriaSortUnchecked self = liftDOM ((pFromJSVal <$> (js_getAriaSort ((Types.toARIAMixin self))))) + +foreign import javascript safe "(($1, $2) => { $1[\"ariaValueMax\"] = $2; })" + js_setAriaValueMax :: ARIAMixin -> (Nullable JSString) -> IO () +-- | +setAriaValueMax :: (MonadDOM m, IsARIAMixin self, ToJSString val) => self -> Maybe val -> m () +setAriaValueMax self val = liftDOM (void ((js_setAriaValueMax ((Types.toARIAMixin self)) (toMaybeJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"ariaValueMax\"]; })" + js_getAriaValueMax :: ARIAMixin -> IO JSVal +-- | +getAriaValueMax :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result) +getAriaValueMax self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaValueMax ((Types.toARIAMixin self))))) + +-- | +getAriaValueMaxUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack, FromJSString result) => self -> m result +getAriaValueMaxUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAriaValueMax ((Types.toARIAMixin self)))) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getAriaValueMaxUnchecked :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m result +getAriaValueMaxUnchecked self = liftDOM ((pFromJSVal <$> (js_getAriaValueMax ((Types.toARIAMixin self))))) + +foreign import javascript safe "(($1, $2) => { $1[\"ariaValueMin\"] = $2; })" + js_setAriaValueMin :: ARIAMixin -> (Nullable JSString) -> IO () +-- | +setAriaValueMin :: (MonadDOM m, IsARIAMixin self, ToJSString val) => self -> Maybe val -> m () +setAriaValueMin self val = liftDOM (void ((js_setAriaValueMin ((Types.toARIAMixin self)) (toMaybeJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"ariaValueMin\"]; })" + js_getAriaValueMin :: ARIAMixin -> IO JSVal +-- | +getAriaValueMin :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result) +getAriaValueMin self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaValueMin ((Types.toARIAMixin self))))) + +-- | +getAriaValueMinUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack, FromJSString result) => self -> m result +getAriaValueMinUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAriaValueMin ((Types.toARIAMixin self)))) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getAriaValueMinUnchecked :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m result +getAriaValueMinUnchecked self = liftDOM ((pFromJSVal <$> (js_getAriaValueMin ((Types.toARIAMixin self))))) + +foreign import javascript safe "(($1, $2) => { $1[\"ariaValueNow\"] = $2; })" + js_setAriaValueNow :: ARIAMixin -> (Nullable JSString) -> IO () +-- | +setAriaValueNow :: (MonadDOM m, IsARIAMixin self, ToJSString val) => self -> Maybe val -> m () +setAriaValueNow self val = liftDOM (void ((js_setAriaValueNow ((Types.toARIAMixin self)) (toMaybeJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"ariaValueNow\"]; })" + js_getAriaValueNow :: ARIAMixin -> IO JSVal +-- | +getAriaValueNow :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result) +getAriaValueNow self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaValueNow ((Types.toARIAMixin self))))) + +-- | +getAriaValueNowUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack, FromJSString result) => self -> m result +getAriaValueNowUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAriaValueNow ((Types.toARIAMixin self)))) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getAriaValueNowUnchecked :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m result +getAriaValueNowUnchecked self = liftDOM ((pFromJSVal <$> (js_getAriaValueNow ((Types.toARIAMixin self))))) + +foreign import javascript safe "(($1, $2) => { $1[\"ariaValueText\"] = $2; })" + js_setAriaValueText :: ARIAMixin -> (Nullable JSString) -> IO () +-- | +setAriaValueText :: (MonadDOM m, IsARIAMixin self, ToJSString val) => self -> Maybe val -> m () +setAriaValueText self val = liftDOM (void ((js_setAriaValueText ((Types.toARIAMixin self)) (toMaybeJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"ariaValueText\"]; })" + js_getAriaValueText :: ARIAMixin -> IO JSVal +-- | +getAriaValueText :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result) +getAriaValueText self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaValueText ((Types.toARIAMixin self))))) + +-- | +getAriaValueTextUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack, FromJSString result) => self -> m result +getAriaValueTextUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAriaValueText ((Types.toARIAMixin self)))) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getAriaValueTextUnchecked :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m result +getAriaValueTextUnchecked self = liftDOM ((pFromJSVal <$> (js_getAriaValueText ((Types.toARIAMixin self))))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/ARIANotifyMixin.hs b/src/GHCJS/DOM/JSFFI/Generated/ARIANotifyMixin.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/ARIANotifyMixin.hs @@ -0,0 +1,23 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from wai-aria-1.3 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.ARIANotifyMixin + (js_ariaNotify, ariaNotify, ARIANotifyMixin(..), gTypeARIANotifyMixin, IsARIANotifyMixin, toARIANotifyMixin) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1, $2, $3) => { return $1[\"ariaNotify\"]($2, $3); })" + js_ariaNotify :: ARIANotifyMixin -> JSString -> JSVal -> IO () +-- | +ariaNotify :: (MonadDOM m, IsARIANotifyMixin self, ToJSString announcement) => self -> announcement -> Maybe AriaNotificationOptions -> m () +ariaNotify self announcement options = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal options) >>= \a3' -> js_ariaNotify ((Types.toARIANotifyMixin self)) (toJSString announcement) a3'))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/AacEncoderConfig.hs b/src/GHCJS/DOM/JSFFI/Generated/AacEncoderConfig.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/AacEncoderConfig.hs @@ -0,0 +1,43 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from webcodecs-aac-codec-registration (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.AacEncoderConfig + (js_newAacEncoderConfig, js_setFormat, js_getFormat, newAacEncoderConfig, setFormat, getFormat, getFormatUnsafe, getFormatUnchecked, AacEncoderConfig(..), gTypeAacEncoderConfig) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(() => { return ({}); })" + js_newAacEncoderConfig :: IO AacEncoderConfig +-- | +newAacEncoderConfig :: (MonadDOM m) => m AacEncoderConfig +newAacEncoderConfig = liftDOM ((js_newAacEncoderConfig)) + +foreign import javascript safe "(($1, $2) => { $1[\"format\"] = $2; })" + js_setFormat :: AacEncoderConfig -> JSVal -> IO () +-- | +setFormat :: (MonadDOM m) => AacEncoderConfig -> AacBitstreamFormat -> m () +setFormat self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setFormat (self) a2'))) + +foreign import javascript unsafe "(($1) => { return $1[\"format\"]; })" + js_getFormat :: AacEncoderConfig -> IO JSVal +-- | +getFormat :: (MonadDOM m) => AacEncoderConfig -> m (Maybe AacBitstreamFormat) +getFormat self = liftDOM (((js_getFormat (self)) >>= fromJSValUnchecked)) + +-- | +getFormatUnsafe :: (MonadDOM m, HasCallStack) => AacEncoderConfig -> m AacBitstreamFormat +getFormatUnsafe self = liftDOM ((((js_getFormat (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getFormatUnchecked :: (MonadDOM m) => AacEncoderConfig -> m AacBitstreamFormat +getFormatUnchecked self = liftDOM ((pFromJSVal <$> (js_getFormat (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/AbortController.hs b/src/GHCJS/DOM/JSFFI/Generated/AbortController.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/AbortController.hs @@ -0,0 +1,35 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from dom (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.AbortController + (js_newAbortController, js_abort, js_getSignal, newAbortController, abort, getSignal, AbortController(..), gTypeAbortController, IsAbortController, toAbortController) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(() => { return new globalThis[\"AbortController\"](); })" + js_newAbortController :: IO AbortController +-- | +newAbortController :: (MonadDOM m) => m AbortController +newAbortController = liftDOM ((js_newAbortController)) + +foreign import javascript safe "(($1, $2) => { return $1[\"abort\"]($2); })" + js_abort :: AbortController -> JSVal -> IO () +-- | +abort :: (MonadDOM m, IsAbortController self) => self -> JSVal -> m () +abort self reason = liftDOM (void ((js_abort ((Types.toAbortController self)) (reason)))) + +foreign import javascript unsafe "(($1) => { return $1[\"signal\"]; })" + js_getSignal :: AbortController -> IO AbortSignal +-- | +getSignal :: (MonadDOM m, IsAbortController self) => self -> m AbortSignal +getSignal self = liftDOM ((js_getSignal ((Types.toAbortController self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/AbortSignal.hs b/src/GHCJS/DOM/JSFFI/Generated/AbortSignal.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/AbortSignal.hs @@ -0,0 +1,69 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from dom (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.AbortSignal + (js_throwIfAborted, js_abort, js_any, js_timeout, js_getAborted, js_getReason, throwIfAborted, abort, abort_, any, any_, timeout, timeout_, getAborted, getReason, abortEvent, AbortSignal(..), gTypeAbortSignal, IsAbortSignal, toAbortSignal) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1) => { return $1[\"throwIfAborted\"](); })" + js_throwIfAborted :: AbortSignal -> IO () +-- | +throwIfAborted :: (MonadDOM m, IsAbortSignal self) => self -> m () +throwIfAborted self = liftDOM (void ((js_throwIfAborted ((Types.toAbortSignal self))))) + +foreign import javascript safe "(($1) => { return globalThis[\"AbortSignal\"][\"abort\"]($1); })" + js_abort :: JSVal -> IO AbortSignal +-- | +abort :: (MonadDOM m) => JSVal -> m AbortSignal +abort reason = liftDOM ((js_abort (reason))) + +-- | +abort_ :: (MonadDOM m) => JSVal -> m () +abort_ reason = liftDOM (void ((js_abort (reason)))) + +foreign import javascript safe "(($1) => { return globalThis[\"AbortSignal\"][\"any\"]($1); })" + js_any :: JSVal -> IO AbortSignal +-- | +any :: (MonadDOM m, IsAbortSignal signals) => [signals] -> m AbortSignal +any signals = liftDOM (((toJSVal signals) >>= \a1' -> js_any a1')) + +-- | +any_ :: (MonadDOM m, IsAbortSignal signals) => [signals] -> m () +any_ signals = liftDOM (void (((toJSVal signals) >>= \a1' -> js_any a1'))) + +foreign import javascript safe "(($1) => { return globalThis[\"AbortSignal\"][\"timeout\"]($1); })" + js_timeout :: JSVal -> IO AbortSignal +-- | +timeout :: (MonadDOM m) => Word53 -> m AbortSignal +timeout milliseconds = liftDOM (((toJSVal milliseconds) >>= \a1' -> js_timeout a1')) + +-- | +timeout_ :: (MonadDOM m) => Word53 -> m () +timeout_ milliseconds = liftDOM (void (((toJSVal milliseconds) >>= \a1' -> js_timeout a1'))) + +foreign import javascript unsafe "(($1) => { return $1[\"aborted\"]; })" + js_getAborted :: AbortSignal -> IO Bool +-- | +getAborted :: (MonadDOM m, IsAbortSignal self) => self -> m Bool +getAborted self = liftDOM ((js_getAborted ((Types.toAbortSignal self)))) + +foreign import javascript unsafe "(($1) => { return $1[\"reason\"]; })" + js_getReason :: AbortSignal -> IO JSVal +-- | +getReason :: (MonadDOM m, IsAbortSignal self) => self -> m JSVal +getReason self = liftDOM ((js_getReason ((Types.toAbortSignal self)))) + +-- | +abortEvent :: (IsAbortSignal self, IsEventTarget self) => EventName self Event +abortEvent = unsafeEventNameAsync (toJSString "abort") diff --git a/src/GHCJS/DOM/JSFFI/Generated/AbstractRange.hs b/src/GHCJS/DOM/JSFFI/Generated/AbstractRange.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/AbstractRange.hs @@ -0,0 +1,47 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from dom (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.AbstractRange + (js_getStartContainer, js_getStartOffset, js_getEndContainer, js_getEndOffset, js_getCollapsed, getStartContainer, getStartOffset, getEndContainer, getEndOffset, getCollapsed, AbstractRange(..), gTypeAbstractRange, IsAbstractRange, toAbstractRange) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript unsafe "(($1) => { return $1[\"startContainer\"]; })" + js_getStartContainer :: AbstractRange -> IO Node +-- | +getStartContainer :: (MonadDOM m, IsAbstractRange self) => self -> m Node +getStartContainer self = liftDOM ((js_getStartContainer ((Types.toAbstractRange self)))) + +foreign import javascript unsafe "(($1) => { return $1[\"startOffset\"]; })" + js_getStartOffset :: AbstractRange -> IO Word +-- | +getStartOffset :: (MonadDOM m, IsAbstractRange self) => self -> m Word +getStartOffset self = liftDOM ((js_getStartOffset ((Types.toAbstractRange self)))) + +foreign import javascript unsafe "(($1) => { return $1[\"endContainer\"]; })" + js_getEndContainer :: AbstractRange -> IO Node +-- | +getEndContainer :: (MonadDOM m, IsAbstractRange self) => self -> m Node +getEndContainer self = liftDOM ((js_getEndContainer ((Types.toAbstractRange self)))) + +foreign import javascript unsafe "(($1) => { return $1[\"endOffset\"]; })" + js_getEndOffset :: AbstractRange -> IO Word +-- | +getEndOffset :: (MonadDOM m, IsAbstractRange self) => self -> m Word +getEndOffset self = liftDOM ((js_getEndOffset ((Types.toAbstractRange self)))) + +foreign import javascript unsafe "(($1) => { return $1[\"collapsed\"]; })" + js_getCollapsed :: AbstractRange -> IO Bool +-- | +getCollapsed :: (MonadDOM m, IsAbstractRange self) => self -> m Bool +getCollapsed self = liftDOM ((js_getCollapsed ((Types.toAbstractRange self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/AbstractWorker.hs b/src/GHCJS/DOM/JSFFI/Generated/AbstractWorker.hs --- a/src/GHCJS/DOM/JSFFI/Generated/AbstractWorker.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/AbstractWorker.hs @@ -1,33 +1,21 @@ {-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE JavaScriptFFI #-} --- For HasCallStack compatibility +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from html (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.AbstractWorker - (error, AbstractWorker(..), gTypeAbstractWorker, IsAbstractWorker, - toAbstractWorker) + (error, AbstractWorker(..), gTypeAbstractWorker, IsAbstractWorker, toAbstractWorker) where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull, jsUndefined) -import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import Data.Maybe (fromJust) -import Data.Traversable (mapM) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types -import Control.Applicative ((<$>)) +import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums --- | -error :: - (IsAbstractWorker self, IsEventTarget self) => - EventName self UIEvent +-- | +error :: (IsAbstractWorker self, IsEventTarget self) => EventName self Event error = unsafeEventNameAsync (toJSString "error") diff --git a/src/GHCJS/DOM/JSFFI/Generated/AddEventListenerOptions.hs b/src/GHCJS/DOM/JSFFI/Generated/AddEventListenerOptions.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/AddEventListenerOptions.hs @@ -0,0 +1,83 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from dom (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.AddEventListenerOptions + (js_newAddEventListenerOptions, js_setPassive, js_getPassive, js_setOnce, js_getOnce, js_setSignal, js_getSignal, newAddEventListenerOptions, setPassive, getPassive, getPassiveUnsafe, getPassiveUnchecked, setOnce, getOnce, getOnceUnsafe, getOnceUnchecked, setSignal, getSignal, getSignalUnsafe, getSignalUnchecked, AddEventListenerOptions(..), gTypeAddEventListenerOptions) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(() => { return ({}); })" + js_newAddEventListenerOptions :: IO AddEventListenerOptions +-- | +newAddEventListenerOptions :: (MonadDOM m) => m AddEventListenerOptions +newAddEventListenerOptions = liftDOM ((js_newAddEventListenerOptions)) + +foreign import javascript safe "(($1, $2) => { $1[\"passive\"] = $2; })" + js_setPassive :: AddEventListenerOptions -> Bool -> IO () +-- | +setPassive :: (MonadDOM m) => AddEventListenerOptions -> Bool -> m () +setPassive self val = liftDOM (void ((js_setPassive (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"passive\"]; })" + js_getPassive :: AddEventListenerOptions -> IO JSVal +-- | +getPassive :: (MonadDOM m) => AddEventListenerOptions -> m (Maybe Bool) +getPassive self = liftDOM (((js_getPassive (self)) >>= fromJSValUnchecked)) + +-- | +getPassiveUnsafe :: (MonadDOM m, HasCallStack) => AddEventListenerOptions -> m Bool +getPassiveUnsafe self = liftDOM ((((js_getPassive (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getPassiveUnchecked :: (MonadDOM m) => AddEventListenerOptions -> m Bool +getPassiveUnchecked self = liftDOM ((pFromJSVal <$> (js_getPassive (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"once\"] = $2; })" + js_setOnce :: AddEventListenerOptions -> Bool -> IO () +-- | +setOnce :: (MonadDOM m) => AddEventListenerOptions -> Bool -> m () +setOnce self val = liftDOM (void ((js_setOnce (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"once\"]; })" + js_getOnce :: AddEventListenerOptions -> IO JSVal +-- | +getOnce :: (MonadDOM m) => AddEventListenerOptions -> m (Maybe Bool) +getOnce self = liftDOM (((js_getOnce (self)) >>= fromJSValUnchecked)) + +-- | +getOnceUnsafe :: (MonadDOM m, HasCallStack) => AddEventListenerOptions -> m Bool +getOnceUnsafe self = liftDOM ((((js_getOnce (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getOnceUnchecked :: (MonadDOM m) => AddEventListenerOptions -> m Bool +getOnceUnchecked self = liftDOM ((pFromJSVal <$> (js_getOnce (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"signal\"] = $2; })" + js_setSignal :: AddEventListenerOptions -> AbortSignal -> IO () +-- | +setSignal :: (MonadDOM m, IsAbortSignal val) => AddEventListenerOptions -> val -> m () +setSignal self val = liftDOM (void ((js_setSignal (self) (Types.toAbortSignal val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"signal\"]; })" + js_getSignal :: AddEventListenerOptions -> IO JSVal +-- | +getSignal :: (MonadDOM m) => AddEventListenerOptions -> m (Maybe AbortSignal) +getSignal self = liftDOM (((js_getSignal (self)) >>= fromJSValUnchecked)) + +-- | +getSignalUnsafe :: (MonadDOM m, HasCallStack) => AddEventListenerOptions -> m AbortSignal +getSignalUnsafe self = liftDOM ((((js_getSignal (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getSignalUnchecked :: (MonadDOM m) => AddEventListenerOptions -> m AbortSignal +getSignalUnchecked self = liftDOM ((pFromJSVal <$> (js_getSignal (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/AddressErrors.hs b/src/GHCJS/DOM/JSFFI/Generated/AddressErrors.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/AddressErrors.hs @@ -0,0 +1,223 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from payment-request (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.AddressErrors + (js_newAddressErrors, js_setAddressLine, js_getAddressLine, js_setCity, js_getCity, js_setCountry, js_getCountry, js_setDependentLocality, js_getDependentLocality, js_setOrganization, js_getOrganization, js_setPhone, js_getPhone, js_setPostalCode, js_getPostalCode, js_setRecipient, js_getRecipient, js_setRegion, js_getRegion, js_setSortingCode, js_getSortingCode, newAddressErrors, setAddressLine, getAddressLine, getAddressLineUnsafe, getAddressLineUnchecked, setCity, getCity, getCityUnsafe, getCityUnchecked, setCountry, getCountry, getCountryUnsafe, getCountryUnchecked, setDependentLocality, getDependentLocality, getDependentLocalityUnsafe, getDependentLocalityUnchecked, setOrganization, getOrganization, getOrganizationUnsafe, getOrganizationUnchecked, setPhone, getPhone, getPhoneUnsafe, getPhoneUnchecked, setPostalCode, getPostalCode, getPostalCodeUnsafe, getPostalCodeUnchecked, setRecipient, getRecipient, getRecipientUnsafe, getRecipientUnchecked, setRegion, getRegion, getRegionUnsafe, getRegionUnchecked, setSortingCode, getSortingCode, getSortingCodeUnsafe, getSortingCodeUnchecked, AddressErrors(..), gTypeAddressErrors) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(() => { return ({}); })" + js_newAddressErrors :: IO AddressErrors +-- | +newAddressErrors :: (MonadDOM m) => m AddressErrors +newAddressErrors = liftDOM ((js_newAddressErrors)) + +foreign import javascript safe "(($1, $2) => { $1[\"addressLine\"] = $2; })" + js_setAddressLine :: AddressErrors -> JSString -> IO () +-- | +setAddressLine :: (MonadDOM m, ToJSString val) => AddressErrors -> val -> m () +setAddressLine self val = liftDOM (void ((js_setAddressLine (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"addressLine\"]; })" + js_getAddressLine :: AddressErrors -> IO JSVal +-- | +getAddressLine :: (MonadDOM m, FromJSString result) => AddressErrors -> m (Maybe result) +getAddressLine self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAddressLine (self)))) + +-- | +getAddressLineUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => AddressErrors -> m result +getAddressLineUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAddressLine (self))) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getAddressLineUnchecked :: (MonadDOM m, FromJSString result) => AddressErrors -> m result +getAddressLineUnchecked self = liftDOM ((pFromJSVal <$> (js_getAddressLine (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"city\"] = $2; })" + js_setCity :: AddressErrors -> JSString -> IO () +-- | +setCity :: (MonadDOM m, ToJSString val) => AddressErrors -> val -> m () +setCity self val = liftDOM (void ((js_setCity (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"city\"]; })" + js_getCity :: AddressErrors -> IO JSVal +-- | +getCity :: (MonadDOM m, FromJSString result) => AddressErrors -> m (Maybe result) +getCity self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getCity (self)))) + +-- | +getCityUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => AddressErrors -> m result +getCityUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getCity (self))) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getCityUnchecked :: (MonadDOM m, FromJSString result) => AddressErrors -> m result +getCityUnchecked self = liftDOM ((pFromJSVal <$> (js_getCity (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"country\"] = $2; })" + js_setCountry :: AddressErrors -> JSString -> IO () +-- | +setCountry :: (MonadDOM m, ToJSString val) => AddressErrors -> val -> m () +setCountry self val = liftDOM (void ((js_setCountry (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"country\"]; })" + js_getCountry :: AddressErrors -> IO JSVal +-- | +getCountry :: (MonadDOM m, FromJSString result) => AddressErrors -> m (Maybe result) +getCountry self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getCountry (self)))) + +-- | +getCountryUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => AddressErrors -> m result +getCountryUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getCountry (self))) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getCountryUnchecked :: (MonadDOM m, FromJSString result) => AddressErrors -> m result +getCountryUnchecked self = liftDOM ((pFromJSVal <$> (js_getCountry (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"dependentLocality\"] = $2; })" + js_setDependentLocality :: AddressErrors -> JSString -> IO () +-- | +setDependentLocality :: (MonadDOM m, ToJSString val) => AddressErrors -> val -> m () +setDependentLocality self val = liftDOM (void ((js_setDependentLocality (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"dependentLocality\"]; })" + js_getDependentLocality :: AddressErrors -> IO JSVal +-- | +getDependentLocality :: (MonadDOM m, FromJSString result) => AddressErrors -> m (Maybe result) +getDependentLocality self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getDependentLocality (self)))) + +-- | +getDependentLocalityUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => AddressErrors -> m result +getDependentLocalityUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getDependentLocality (self))) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getDependentLocalityUnchecked :: (MonadDOM m, FromJSString result) => AddressErrors -> m result +getDependentLocalityUnchecked self = liftDOM ((pFromJSVal <$> (js_getDependentLocality (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"organization\"] = $2; })" + js_setOrganization :: AddressErrors -> JSString -> IO () +-- | +setOrganization :: (MonadDOM m, ToJSString val) => AddressErrors -> val -> m () +setOrganization self val = liftDOM (void ((js_setOrganization (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"organization\"]; })" + js_getOrganization :: AddressErrors -> IO JSVal +-- | +getOrganization :: (MonadDOM m, FromJSString result) => AddressErrors -> m (Maybe result) +getOrganization self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getOrganization (self)))) + +-- | +getOrganizationUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => AddressErrors -> m result +getOrganizationUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getOrganization (self))) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getOrganizationUnchecked :: (MonadDOM m, FromJSString result) => AddressErrors -> m result +getOrganizationUnchecked self = liftDOM ((pFromJSVal <$> (js_getOrganization (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"phone\"] = $2; })" + js_setPhone :: AddressErrors -> JSString -> IO () +-- | +setPhone :: (MonadDOM m, ToJSString val) => AddressErrors -> val -> m () +setPhone self val = liftDOM (void ((js_setPhone (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"phone\"]; })" + js_getPhone :: AddressErrors -> IO JSVal +-- | +getPhone :: (MonadDOM m, FromJSString result) => AddressErrors -> m (Maybe result) +getPhone self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getPhone (self)))) + +-- | +getPhoneUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => AddressErrors -> m result +getPhoneUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getPhone (self))) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getPhoneUnchecked :: (MonadDOM m, FromJSString result) => AddressErrors -> m result +getPhoneUnchecked self = liftDOM ((pFromJSVal <$> (js_getPhone (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"postalCode\"] = $2; })" + js_setPostalCode :: AddressErrors -> JSString -> IO () +-- | +setPostalCode :: (MonadDOM m, ToJSString val) => AddressErrors -> val -> m () +setPostalCode self val = liftDOM (void ((js_setPostalCode (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"postalCode\"]; })" + js_getPostalCode :: AddressErrors -> IO JSVal +-- | +getPostalCode :: (MonadDOM m, FromJSString result) => AddressErrors -> m (Maybe result) +getPostalCode self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getPostalCode (self)))) + +-- | +getPostalCodeUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => AddressErrors -> m result +getPostalCodeUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getPostalCode (self))) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getPostalCodeUnchecked :: (MonadDOM m, FromJSString result) => AddressErrors -> m result +getPostalCodeUnchecked self = liftDOM ((pFromJSVal <$> (js_getPostalCode (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"recipient\"] = $2; })" + js_setRecipient :: AddressErrors -> JSString -> IO () +-- | +setRecipient :: (MonadDOM m, ToJSString val) => AddressErrors -> val -> m () +setRecipient self val = liftDOM (void ((js_setRecipient (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"recipient\"]; })" + js_getRecipient :: AddressErrors -> IO JSVal +-- | +getRecipient :: (MonadDOM m, FromJSString result) => AddressErrors -> m (Maybe result) +getRecipient self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getRecipient (self)))) + +-- | +getRecipientUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => AddressErrors -> m result +getRecipientUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getRecipient (self))) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getRecipientUnchecked :: (MonadDOM m, FromJSString result) => AddressErrors -> m result +getRecipientUnchecked self = liftDOM ((pFromJSVal <$> (js_getRecipient (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"region\"] = $2; })" + js_setRegion :: AddressErrors -> JSString -> IO () +-- | +setRegion :: (MonadDOM m, ToJSString val) => AddressErrors -> val -> m () +setRegion self val = liftDOM (void ((js_setRegion (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"region\"]; })" + js_getRegion :: AddressErrors -> IO JSVal +-- | +getRegion :: (MonadDOM m, FromJSString result) => AddressErrors -> m (Maybe result) +getRegion self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getRegion (self)))) + +-- | +getRegionUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => AddressErrors -> m result +getRegionUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getRegion (self))) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getRegionUnchecked :: (MonadDOM m, FromJSString result) => AddressErrors -> m result +getRegionUnchecked self = liftDOM ((pFromJSVal <$> (js_getRegion (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"sortingCode\"] = $2; })" + js_setSortingCode :: AddressErrors -> JSString -> IO () +-- | +setSortingCode :: (MonadDOM m, ToJSString val) => AddressErrors -> val -> m () +setSortingCode self val = liftDOM (void ((js_setSortingCode (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"sortingCode\"]; })" + js_getSortingCode :: AddressErrors -> IO JSVal +-- | +getSortingCode :: (MonadDOM m, FromJSString result) => AddressErrors -> m (Maybe result) +getSortingCode self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getSortingCode (self)))) + +-- | +getSortingCodeUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => AddressErrors -> m result +getSortingCodeUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getSortingCode (self))) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getSortingCodeUnchecked :: (MonadDOM m, FromJSString result) => AddressErrors -> m result +getSortingCodeUnchecked self = liftDOM ((pFromJSVal <$> (js_getSortingCode (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/AllAcceptedCredentialsOptions.hs b/src/GHCJS/DOM/JSFFI/Generated/AllAcceptedCredentialsOptions.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/AllAcceptedCredentialsOptions.hs @@ -0,0 +1,59 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from webauthn-4 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.AllAcceptedCredentialsOptions + (js_newAllAcceptedCredentialsOptions, js_setRpId, js_getRpId, js_setUserId, js_getUserId, js_setAllAcceptedCredentialIds, js_getAllAcceptedCredentialIds, newAllAcceptedCredentialsOptions, setRpId, getRpId, setUserId, getUserId, setAllAcceptedCredentialIds, getAllAcceptedCredentialIds, AllAcceptedCredentialsOptions(..), gTypeAllAcceptedCredentialsOptions) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1, $2, $3) => { return ({\"rpId\": $1, \"userId\": $2, \"allAcceptedCredentialIds\": $3}); })" + js_newAllAcceptedCredentialsOptions :: JSString -> JSString -> JSVal -> IO AllAcceptedCredentialsOptions +-- | +newAllAcceptedCredentialsOptions :: (MonadDOM m, ToJSString rpId, ToJSString userId, ToJSString allAcceptedCredentialIds) => rpId -> userId -> [allAcceptedCredentialIds] -> m AllAcceptedCredentialsOptions +newAllAcceptedCredentialsOptions rpId userId allAcceptedCredentialIds = liftDOM (((toJSVal allAcceptedCredentialIds) >>= \a3' -> js_newAllAcceptedCredentialsOptions (toJSString rpId) (toJSString userId) a3')) + +foreign import javascript safe "(($1, $2) => { $1[\"rpId\"] = $2; })" + js_setRpId :: AllAcceptedCredentialsOptions -> JSString -> IO () +-- | +setRpId :: (MonadDOM m, ToJSString val) => AllAcceptedCredentialsOptions -> val -> m () +setRpId self val = liftDOM (void ((js_setRpId (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"rpId\"]; })" + js_getRpId :: AllAcceptedCredentialsOptions -> IO JSString +-- | +getRpId :: (MonadDOM m, FromJSString result) => AllAcceptedCredentialsOptions -> m result +getRpId self = liftDOM ((fromJSString <$> (js_getRpId (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"userId\"] = $2; })" + js_setUserId :: AllAcceptedCredentialsOptions -> JSString -> IO () +-- | +setUserId :: (MonadDOM m, ToJSString val) => AllAcceptedCredentialsOptions -> val -> m () +setUserId self val = liftDOM (void ((js_setUserId (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"userId\"]; })" + js_getUserId :: AllAcceptedCredentialsOptions -> IO JSString +-- | +getUserId :: (MonadDOM m, FromJSString result) => AllAcceptedCredentialsOptions -> m result +getUserId self = liftDOM ((fromJSString <$> (js_getUserId (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"allAcceptedCredentialIds\"] = $2; })" + js_setAllAcceptedCredentialIds :: AllAcceptedCredentialsOptions -> JSVal -> IO () +-- | +setAllAcceptedCredentialIds :: (MonadDOM m, ToJSString val) => AllAcceptedCredentialsOptions -> [val] -> m () +setAllAcceptedCredentialIds self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setAllAcceptedCredentialIds (self) a2'))) + +foreign import javascript unsafe "(($1) => { return $1[\"allAcceptedCredentialIds\"]; })" + js_getAllAcceptedCredentialIds :: AllAcceptedCredentialsOptions -> IO JSVal +-- | +getAllAcceptedCredentialIds :: (MonadDOM m, FromJSString result) => AllAcceptedCredentialsOptions -> m [result] +getAllAcceptedCredentialIds self = liftDOM (((js_getAllAcceptedCredentialIds (self)) >>= fromJSValUnchecked)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/AnalyserNode.hs b/src/GHCJS/DOM/JSFFI/Generated/AnalyserNode.hs --- a/src/GHCJS/DOM/JSFFI/Generated/AnalyserNode.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/AnalyserNode.hs @@ -1,141 +1,101 @@ {-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE JavaScriptFFI #-} --- For HasCallStack compatibility +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from webaudio-1.1 (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.AnalyserNode - (js_getFloatFrequencyData, getFloatFrequencyData, - js_getByteFrequencyData, getByteFrequencyData, - js_getByteTimeDomainData, getByteTimeDomainData, js_setFftSize, - setFftSize, js_getFftSize, getFftSize, js_getFrequencyBinCount, - getFrequencyBinCount, js_setMinDecibels, setMinDecibels, - js_getMinDecibels, getMinDecibels, js_setMaxDecibels, - setMaxDecibels, js_getMaxDecibels, getMaxDecibels, - js_setSmoothingTimeConstant, setSmoothingTimeConstant, - js_getSmoothingTimeConstant, getSmoothingTimeConstant, - AnalyserNode(..), gTypeAnalyserNode) + (js_newAnalyserNode, js_getByteFrequencyData, js_getByteTimeDomainData, js_getFloatFrequencyData, js_getFloatTimeDomainData, js_setFftSize, js_getFftSize, js_getFrequencyBinCount, js_setMinDecibels, js_getMinDecibels, js_setMaxDecibels, js_getMaxDecibels, js_setSmoothingTimeConstant, js_getSmoothingTimeConstant, newAnalyserNode, getByteFrequencyData, getByteTimeDomainData, getFloatFrequencyData, getFloatTimeDomainData, setFftSize, getFftSize, getFrequencyBinCount, setMinDecibels, getMinDecibels, setMaxDecibels, getMaxDecibels, setSmoothingTimeConstant, getSmoothingTimeConstant, AnalyserNode(..), gTypeAnalyserNode) where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull, jsUndefined) -import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import Data.Maybe (fromJust) -import Data.Traversable (mapM) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types -import Control.Applicative ((<$>)) +import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums - -foreign import javascript unsafe - "(($1, $2) => { return $1[\"getFloatFrequencyData\"]($2); })" js_getFloatFrequencyData :: - AnalyserNode -> Optional Float32Array -> IO () --- | -getFloatFrequencyData :: - (MonadIO m, IsFloat32Array array) => - AnalyserNode -> Maybe array -> m () -getFloatFrequencyData self array - = liftIO - (js_getFloatFrequencyData self - (maybeToOptional (fmap toFloat32Array array))) - -foreign import javascript unsafe "(($1, $2) => { return $1[\"getByteFrequencyData\"]($2); })" - js_getByteFrequencyData :: - AnalyserNode -> Optional Uint8Array -> IO () +foreign import javascript safe "(($1, $2) => { return new globalThis[\"AnalyserNode\"]($1, $2); })" + js_newAnalyserNode :: BaseAudioContext -> JSVal -> IO AnalyserNode +-- | +newAnalyserNode :: (MonadDOM m, IsBaseAudioContext context) => context -> Maybe AnalyserOptions -> m AnalyserNode +newAnalyserNode context options = liftDOM (((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_newAnalyserNode (Types.toBaseAudioContext context) a2')) --- | -getByteFrequencyData :: - (MonadIO m, IsUint8Array array) => - AnalyserNode -> Maybe array -> m () -getByteFrequencyData self array - = liftIO - (js_getByteFrequencyData self - (maybeToOptional (fmap toUint8Array array))) - -foreign import javascript unsafe - "(($1, $2) => { return $1[\"getByteTimeDomainData\"]($2); })" js_getByteTimeDomainData :: - AnalyserNode -> Optional Uint8Array -> IO () +foreign import javascript safe "(($1, $2) => { return $1[\"getByteFrequencyData\"]($2); })" + js_getByteFrequencyData :: AnalyserNode -> Uint8Array -> IO () +-- | +getByteFrequencyData :: (MonadDOM m, IsUint8Array array) => AnalyserNode -> array -> m () +getByteFrequencyData self array = liftDOM (void ((js_getByteFrequencyData (self) (Types.toUint8Array array)))) --- | -getByteTimeDomainData :: - (MonadIO m, IsUint8Array array) => - AnalyserNode -> Maybe array -> m () -getByteTimeDomainData self array - = liftIO - (js_getByteTimeDomainData self - (maybeToOptional (fmap toUint8Array array))) - +foreign import javascript safe "(($1, $2) => { return $1[\"getByteTimeDomainData\"]($2); })" + js_getByteTimeDomainData :: AnalyserNode -> Uint8Array -> IO () +-- | +getByteTimeDomainData :: (MonadDOM m, IsUint8Array array) => AnalyserNode -> array -> m () +getByteTimeDomainData self array = liftDOM (void ((js_getByteTimeDomainData (self) (Types.toUint8Array array)))) + +foreign import javascript safe "(($1, $2) => { return $1[\"getFloatFrequencyData\"]($2); })" + js_getFloatFrequencyData :: AnalyserNode -> Float32Array -> IO () +-- | +getFloatFrequencyData :: (MonadDOM m, IsFloat32Array array) => AnalyserNode -> array -> m () +getFloatFrequencyData self array = liftDOM (void ((js_getFloatFrequencyData (self) (Types.toFloat32Array array)))) + +foreign import javascript safe "(($1, $2) => { return $1[\"getFloatTimeDomainData\"]($2); })" + js_getFloatTimeDomainData :: AnalyserNode -> Float32Array -> IO () +-- | +getFloatTimeDomainData :: (MonadDOM m, IsFloat32Array array) => AnalyserNode -> array -> m () +getFloatTimeDomainData self array = liftDOM (void ((js_getFloatTimeDomainData (self) (Types.toFloat32Array array)))) + foreign import javascript safe "(($1, $2) => { $1[\"fftSize\"] = $2; })" js_setFftSize :: AnalyserNode -> Word -> IO () +-- | +setFftSize :: (MonadDOM m) => AnalyserNode -> Word -> m () +setFftSize self val = liftDOM (void ((js_setFftSize (self) (val)))) --- | -setFftSize :: (MonadIO m) => AnalyserNode -> Word -> m () -setFftSize self val = liftIO (js_setFftSize self val) - -foreign import javascript unsafe "(($1) => { return $1[\"fftSize\"]; })" js_getFftSize :: - AnalyserNode -> IO Word +foreign import javascript unsafe "(($1) => { return $1[\"fftSize\"]; })" + js_getFftSize :: AnalyserNode -> IO Word +-- | +getFftSize :: (MonadDOM m) => AnalyserNode -> m Word +getFftSize self = liftDOM ((js_getFftSize (self))) --- | -getFftSize :: (MonadIO m) => AnalyserNode -> m Word -getFftSize self = liftIO (js_getFftSize self) - foreign import javascript unsafe "(($1) => { return $1[\"frequencyBinCount\"]; })" js_getFrequencyBinCount :: AnalyserNode -> IO Word +-- | +getFrequencyBinCount :: (MonadDOM m) => AnalyserNode -> m Word +getFrequencyBinCount self = liftDOM ((js_getFrequencyBinCount (self))) --- | -getFrequencyBinCount :: (MonadIO m) => AnalyserNode -> m Word -getFrequencyBinCount self = liftIO (js_getFrequencyBinCount self) - foreign import javascript safe "(($1, $2) => { $1[\"minDecibels\"] = $2; })" js_setMinDecibels :: AnalyserNode -> Double -> IO () +-- | +setMinDecibels :: (MonadDOM m) => AnalyserNode -> Double -> m () +setMinDecibels self val = liftDOM (void ((js_setMinDecibels (self) (val)))) --- | -setMinDecibels :: (MonadIO m) => AnalyserNode -> Double -> m () -setMinDecibels self val = liftIO (js_setMinDecibels self val) - foreign import javascript unsafe "(($1) => { return $1[\"minDecibels\"]; })" js_getMinDecibels :: AnalyserNode -> IO Double +-- | +getMinDecibels :: (MonadDOM m) => AnalyserNode -> m Double +getMinDecibels self = liftDOM ((js_getMinDecibels (self))) --- | -getMinDecibels :: (MonadIO m) => AnalyserNode -> m Double -getMinDecibels self = liftIO (js_getMinDecibels self) - foreign import javascript safe "(($1, $2) => { $1[\"maxDecibels\"] = $2; })" js_setMaxDecibels :: AnalyserNode -> Double -> IO () +-- | +setMaxDecibels :: (MonadDOM m) => AnalyserNode -> Double -> m () +setMaxDecibels self val = liftDOM (void ((js_setMaxDecibels (self) (val)))) --- | -setMaxDecibels :: (MonadIO m) => AnalyserNode -> Double -> m () -setMaxDecibels self val = liftIO (js_setMaxDecibels self val) - foreign import javascript unsafe "(($1) => { return $1[\"maxDecibels\"]; })" js_getMaxDecibels :: AnalyserNode -> IO Double +-- | +getMaxDecibels :: (MonadDOM m) => AnalyserNode -> m Double +getMaxDecibels self = liftDOM ((js_getMaxDecibels (self))) --- | -getMaxDecibels :: (MonadIO m) => AnalyserNode -> m Double -getMaxDecibels self = liftIO (js_getMaxDecibels self) - -foreign import javascript safe - "(($1, $2) => { $1[\"smoothingTimeConstant\"] = $2; })" js_setSmoothingTimeConstant - :: AnalyserNode -> Double -> IO () +foreign import javascript safe "(($1, $2) => { $1[\"smoothingTimeConstant\"] = $2; })" + js_setSmoothingTimeConstant :: AnalyserNode -> Double -> IO () +-- | +setSmoothingTimeConstant :: (MonadDOM m) => AnalyserNode -> Double -> m () +setSmoothingTimeConstant self val = liftDOM (void ((js_setSmoothingTimeConstant (self) (val)))) --- | -setSmoothingTimeConstant :: - (MonadIO m) => AnalyserNode -> Double -> m () -setSmoothingTimeConstant self val - = liftIO (js_setSmoothingTimeConstant self val) - foreign import javascript unsafe "(($1) => { return $1[\"smoothingTimeConstant\"]; })" js_getSmoothingTimeConstant :: AnalyserNode -> IO Double - --- | -getSmoothingTimeConstant :: (MonadIO m) => AnalyserNode -> m Double -getSmoothingTimeConstant self - = liftIO (js_getSmoothingTimeConstant self) +-- | +getSmoothingTimeConstant :: (MonadDOM m) => AnalyserNode -> m Double +getSmoothingTimeConstant self = liftDOM ((js_getSmoothingTimeConstant (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/AnalyserOptions.hs b/src/GHCJS/DOM/JSFFI/Generated/AnalyserOptions.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/AnalyserOptions.hs @@ -0,0 +1,103 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from webaudio-1.1 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.AnalyserOptions + (js_newAnalyserOptions, js_setFftSize, js_getFftSize, js_setMaxDecibels, js_getMaxDecibels, js_setMinDecibels, js_getMinDecibels, js_setSmoothingTimeConstant, js_getSmoothingTimeConstant, newAnalyserOptions, setFftSize, getFftSize, getFftSizeUnsafe, getFftSizeUnchecked, setMaxDecibels, getMaxDecibels, getMaxDecibelsUnsafe, getMaxDecibelsUnchecked, setMinDecibels, getMinDecibels, getMinDecibelsUnsafe, getMinDecibelsUnchecked, setSmoothingTimeConstant, getSmoothingTimeConstant, getSmoothingTimeConstantUnsafe, getSmoothingTimeConstantUnchecked, AnalyserOptions(..), gTypeAnalyserOptions) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(() => { return ({}); })" + js_newAnalyserOptions :: IO AnalyserOptions +-- | +newAnalyserOptions :: (MonadDOM m) => m AnalyserOptions +newAnalyserOptions = liftDOM ((js_newAnalyserOptions)) + +foreign import javascript safe "(($1, $2) => { $1[\"fftSize\"] = $2; })" + js_setFftSize :: AnalyserOptions -> Word -> IO () +-- | +setFftSize :: (MonadDOM m) => AnalyserOptions -> Word -> m () +setFftSize self val = liftDOM (void ((js_setFftSize (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"fftSize\"]; })" + js_getFftSize :: AnalyserOptions -> IO JSVal +-- | +getFftSize :: (MonadDOM m) => AnalyserOptions -> m (Maybe Word) +getFftSize self = liftDOM (((js_getFftSize (self)) >>= fromJSValUnchecked)) + +-- | +getFftSizeUnsafe :: (MonadDOM m, HasCallStack) => AnalyserOptions -> m Word +getFftSizeUnsafe self = liftDOM ((((js_getFftSize (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getFftSizeUnchecked :: (MonadDOM m) => AnalyserOptions -> m Word +getFftSizeUnchecked self = liftDOM ((pFromJSVal <$> (js_getFftSize (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"maxDecibels\"] = $2; })" + js_setMaxDecibels :: AnalyserOptions -> Double -> IO () +-- | +setMaxDecibels :: (MonadDOM m) => AnalyserOptions -> Double -> m () +setMaxDecibels self val = liftDOM (void ((js_setMaxDecibels (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"maxDecibels\"]; })" + js_getMaxDecibels :: AnalyserOptions -> IO JSVal +-- | +getMaxDecibels :: (MonadDOM m) => AnalyserOptions -> m (Maybe Double) +getMaxDecibels self = liftDOM (((js_getMaxDecibels (self)) >>= fromJSValUnchecked)) + +-- | +getMaxDecibelsUnsafe :: (MonadDOM m, HasCallStack) => AnalyserOptions -> m Double +getMaxDecibelsUnsafe self = liftDOM ((((js_getMaxDecibels (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getMaxDecibelsUnchecked :: (MonadDOM m) => AnalyserOptions -> m Double +getMaxDecibelsUnchecked self = liftDOM ((pFromJSVal <$> (js_getMaxDecibels (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"minDecibels\"] = $2; })" + js_setMinDecibels :: AnalyserOptions -> Double -> IO () +-- | +setMinDecibels :: (MonadDOM m) => AnalyserOptions -> Double -> m () +setMinDecibels self val = liftDOM (void ((js_setMinDecibels (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"minDecibels\"]; })" + js_getMinDecibels :: AnalyserOptions -> IO JSVal +-- | +getMinDecibels :: (MonadDOM m) => AnalyserOptions -> m (Maybe Double) +getMinDecibels self = liftDOM (((js_getMinDecibels (self)) >>= fromJSValUnchecked)) + +-- | +getMinDecibelsUnsafe :: (MonadDOM m, HasCallStack) => AnalyserOptions -> m Double +getMinDecibelsUnsafe self = liftDOM ((((js_getMinDecibels (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getMinDecibelsUnchecked :: (MonadDOM m) => AnalyserOptions -> m Double +getMinDecibelsUnchecked self = liftDOM ((pFromJSVal <$> (js_getMinDecibels (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"smoothingTimeConstant\"] = $2; })" + js_setSmoothingTimeConstant :: AnalyserOptions -> Double -> IO () +-- | +setSmoothingTimeConstant :: (MonadDOM m) => AnalyserOptions -> Double -> m () +setSmoothingTimeConstant self val = liftDOM (void ((js_setSmoothingTimeConstant (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"smoothingTimeConstant\"]; })" + js_getSmoothingTimeConstant :: AnalyserOptions -> IO JSVal +-- | +getSmoothingTimeConstant :: (MonadDOM m) => AnalyserOptions -> m (Maybe Double) +getSmoothingTimeConstant self = liftDOM (((js_getSmoothingTimeConstant (self)) >>= fromJSValUnchecked)) + +-- | +getSmoothingTimeConstantUnsafe :: (MonadDOM m, HasCallStack) => AnalyserOptions -> m Double +getSmoothingTimeConstantUnsafe self = liftDOM ((((js_getSmoothingTimeConstant (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getSmoothingTimeConstantUnchecked :: (MonadDOM m) => AnalyserOptions -> m Double +getSmoothingTimeConstantUnchecked self = liftDOM ((pFromJSVal <$> (js_getSmoothingTimeConstant (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/Animatable.hs b/src/GHCJS/DOM/JSFFI/Generated/Animatable.hs --- a/src/GHCJS/DOM/JSFFI/Generated/Animatable.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/Animatable.hs @@ -1,42 +1,47 @@ {-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE JavaScriptFFI #-} --- For HasCallStack compatibility +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from web-animations-1 (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.Animatable - (js_getAnimations, getAnimations, getAnimations_, Animatable(..), - gTypeAnimatable, IsAnimatable, toAnimatable) + (js_animate, js_getAnimations, js_getAnimations', animate, animate_, getAnimations, getAnimations_, getAnimations', getAnimations'_, Animatable(..), gTypeAnimatable, IsAnimatable, toAnimatable) where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull, jsUndefined) -import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import Data.Maybe (fromJust) -import Data.Traversable (mapM) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types -import Control.Applicative ((<$>)) +import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums - -foreign import javascript unsafe "(($1) => { return $1[\"getAnimations\"](); })" + +foreign import javascript safe "(($1, $2, $3) => { return $1[\"animate\"]($2, $3); })" + js_animate :: Animatable -> JSVal -> JSVal -> IO Animation +-- | +animate :: (MonadDOM m, IsAnimatable self, IsDoubleOrKeyframeAnimationOptions options) => self -> Maybe GObject -> Maybe options -> m Animation +animate self keyframes options = liftDOM (((toJSVal keyframes) >>= \a2' -> (P.maybe (P.return jsUndefined) toJSVal options) >>= \a3' -> js_animate ((Types.toAnimatable self)) a2' a3')) + +-- | +animate_ :: (MonadDOM m, IsAnimatable self, IsDoubleOrKeyframeAnimationOptions options) => self -> Maybe GObject -> Maybe options -> m () +animate_ self keyframes options = liftDOM (void (((toJSVal keyframes) >>= \a2' -> (P.maybe (P.return jsUndefined) toJSVal options) >>= \a3' -> js_animate ((Types.toAnimatable self)) a2' a3'))) + +foreign import javascript safe "(($1) => { return $1[\"getAnimations\"](); })" js_getAnimations :: Animatable -> IO JSVal +-- | +getAnimations :: (MonadDOM m, IsAnimatable self) => self -> m [Animation] +getAnimations self = liftDOM (((js_getAnimations ((Types.toAnimatable self))) >>= fromJSValUnchecked)) --- | -getAnimations :: - (MonadIO m, IsAnimatable self) => self -> m [Animation] -getAnimations self - = liftIO - ((js_getAnimations (toAnimatable self)) >>= fromJSValUnchecked) +-- | +getAnimations_ :: (MonadDOM m, IsAnimatable self) => self -> m () +getAnimations_ self = liftDOM (void ((js_getAnimations ((Types.toAnimatable self))))) --- | -getAnimations_ :: (MonadIO m, IsAnimatable self) => self -> m () -getAnimations_ self - = liftIO (void (js_getAnimations (toAnimatable self))) +foreign import javascript safe "(($1, $2) => { return $1[\"getAnimations\"]($2); })" + js_getAnimations' :: Animatable -> JSVal -> IO JSVal +-- | +getAnimations' :: (MonadDOM m, IsAnimatable self) => self -> Maybe GetAnimationsOptions -> m [Animation] +getAnimations' self options = liftDOM ((((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_getAnimations' ((Types.toAnimatable self)) a2') >>= fromJSValUnchecked)) + +-- | +getAnimations'_ :: (MonadDOM m, IsAnimatable self) => self -> Maybe GetAnimationsOptions -> m () +getAnimations'_ self options = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_getAnimations' ((Types.toAnimatable self)) a2'))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/Animation.hs b/src/GHCJS/DOM/JSFFI/Generated/Animation.hs --- a/src/GHCJS/DOM/JSFFI/Generated/Animation.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/Animation.hs @@ -1,87 +1,231 @@ {-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE JavaScriptFFI #-} --- For HasCallStack compatibility +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from web-animations-1 (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.Animation - (js_newAnimation, newAnimation, js_getEffect, getEffect, - getEffectUnsafe, getEffectUnchecked, js_getTimeline, getTimeline, - getTimelineUnsafe, getTimelineUnchecked, Animation(..), - gTypeAnimation) + (js_newAnimation, js_cancel, js_commitStyles, js_finish, js_pause, js_persist, js_play, js_reverse, js_updatePlaybackRate, js_setId, js_getId, js_setEffect, js_getEffect, js_setTimeline, js_getTimeline, js_setPlaybackRate, js_getPlaybackRate, js_getPlayState, js_getReplaceState, js_getPending, js_getReady, js_getFinished, js_setStartTime, js_getStartTime, js_setCurrentTime, js_getCurrentTime, js_getOverallProgress, newAnimation, cancel, commitStyles, finish, pause, persist, play, reverse, updatePlaybackRate, setId, getId, setEffect, getEffect, getEffectUnsafe, getEffectUnchecked, setTimeline, getTimeline, getTimelineUnsafe, getTimelineUnchecked, setPlaybackRate, getPlaybackRate, getPlayState, getReplaceState, getPending, getReady, getFinished, setStartTime, getStartTime, getStartTimeUnsafe, getStartTimeUnchecked, setCurrentTime, getCurrentTime, getCurrentTimeUnsafe, getCurrentTimeUnchecked, getOverallProgress, getOverallProgressUnsafe, getOverallProgressUnchecked, finishEvent, cancelEvent, remove, Animation(..), gTypeAnimation, IsAnimation, toAnimation) where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull, jsUndefined) -import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import Data.Maybe (fromJust) -import Data.Traversable (mapM) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types -import Control.Applicative ((<$>)) +import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums - -foreign import javascript unsafe - "(($1, $2) => { return new window[\"Animation\"]($1, $2); })" js_newAnimation :: - Optional AnimationEffect -> - Optional AnimationTimeline -> IO Animation --- | -newAnimation :: - (MonadIO m, IsAnimationEffect effect, - IsAnimationTimeline timeline) => - Maybe effect -> Maybe timeline -> m Animation -newAnimation effect timeline - = liftIO - (js_newAnimation (maybeToOptional (fmap toAnimationEffect effect)) - (maybeToOptional (fmap toAnimationTimeline timeline))) - -foreign import javascript unsafe "(($1) => { return $1[\"effect\"]; })" js_getEffect :: - Animation -> IO (Nullable AnimationEffect) +foreign import javascript safe "(($1, $2) => { return new globalThis[\"Animation\"]($1, $2); })" + js_newAnimation :: JSVal -> JSVal -> IO Animation +-- | +newAnimation :: (MonadDOM m, IsAnimationEffect effect, IsAnimationTimeline timeline) => Maybe effect -> Maybe timeline -> m Animation +newAnimation effect timeline = liftDOM (((toJSVal effect) >>= \a1' -> (toJSVal timeline) >>= \a2' -> js_newAnimation a1' a2')) --- | -getEffect :: (MonadIO m) => Animation -> m (Maybe AnimationEffect) -getEffect self = liftIO (nullableToMaybe <$> (js_getEffect self)) +foreign import javascript safe "(($1) => { return $1[\"cancel\"](); })" + js_cancel :: Animation -> IO () +-- | +cancel :: (MonadDOM m, IsAnimation self) => self -> m () +cancel self = liftDOM (void ((js_cancel ((Types.toAnimation self))))) --- | -getEffectUnsafe :: - (MonadIO m, HasCallStack) => Animation -> m AnimationEffect -getEffectUnsafe self - = liftIO - ((nullableToMaybe <$> (js_getEffect self)) >>= - maybe (Prelude.error "Nothing to return") return) +foreign import javascript safe "(($1) => { return $1[\"commitStyles\"](); })" + js_commitStyles :: Animation -> IO () +-- | +commitStyles :: (MonadDOM m, IsAnimation self) => self -> m () +commitStyles self = liftDOM (void ((js_commitStyles ((Types.toAnimation self))))) --- | -getEffectUnchecked :: (MonadIO m) => Animation -> m AnimationEffect -getEffectUnchecked self - = liftIO (fromJust . nullableToMaybe <$> (js_getEffect self)) - -foreign import javascript unsafe "(($1) => { return $1[\"timeline\"]; })" js_getTimeline - :: Animation -> IO (Nullable AnimationTimeline) +foreign import javascript safe "(($1) => { return $1[\"finish\"](); })" + js_finish :: Animation -> IO () +-- | +finish :: (MonadDOM m, IsAnimation self) => self -> m () +finish self = liftDOM (void ((js_finish ((Types.toAnimation self))))) --- | -getTimeline :: - (MonadIO m) => Animation -> m (Maybe AnimationTimeline) -getTimeline self - = liftIO (nullableToMaybe <$> (js_getTimeline self)) +foreign import javascript safe "(($1) => { return $1[\"pause\"](); })" + js_pause :: Animation -> IO () +-- | +pause :: (MonadDOM m, IsAnimation self) => self -> m () +pause self = liftDOM (void ((js_pause ((Types.toAnimation self))))) --- | -getTimelineUnsafe :: - (MonadIO m, HasCallStack) => Animation -> m AnimationTimeline -getTimelineUnsafe self - = liftIO - ((nullableToMaybe <$> (js_getTimeline self)) >>= - maybe (Prelude.error "Nothing to return") return) +foreign import javascript safe "(($1) => { return $1[\"persist\"](); })" + js_persist :: Animation -> IO () +-- | +persist :: (MonadDOM m, IsAnimation self) => self -> m () +persist self = liftDOM (void ((js_persist ((Types.toAnimation self))))) --- | -getTimelineUnchecked :: - (MonadIO m) => Animation -> m AnimationTimeline -getTimelineUnchecked self - = liftIO (fromJust . nullableToMaybe <$> (js_getTimeline self)) +foreign import javascript safe "(($1) => { return $1[\"play\"](); })" + js_play :: Animation -> IO () +-- | +play :: (MonadDOM m, IsAnimation self) => self -> m () +play self = liftDOM (void ((js_play ((Types.toAnimation self))))) + +foreign import javascript safe "(($1) => { return $1[\"reverse\"](); })" + js_reverse :: Animation -> IO () +-- | +reverse :: (MonadDOM m, IsAnimation self) => self -> m () +reverse self = liftDOM (void ((js_reverse ((Types.toAnimation self))))) + +foreign import javascript safe "(($1, $2) => { return $1[\"updatePlaybackRate\"]($2); })" + js_updatePlaybackRate :: Animation -> Double -> IO () +-- | +updatePlaybackRate :: (MonadDOM m, IsAnimation self) => self -> Double -> m () +updatePlaybackRate self playbackRate = liftDOM (void ((js_updatePlaybackRate ((Types.toAnimation self)) (playbackRate)))) + +foreign import javascript safe "(($1, $2) => { $1[\"id\"] = $2; })" + js_setId :: Animation -> JSString -> IO () +-- | +setId :: (MonadDOM m, IsAnimation self, ToJSString val) => self -> val -> m () +setId self val = liftDOM (void ((js_setId ((Types.toAnimation self)) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"id\"]; })" + js_getId :: Animation -> IO JSString +-- | +getId :: (MonadDOM m, IsAnimation self, FromJSString result) => self -> m result +getId self = liftDOM ((fromJSString <$> (js_getId ((Types.toAnimation self))))) + +foreign import javascript safe "(($1, $2) => { $1[\"effect\"] = $2; })" + js_setEffect :: Animation -> JSVal -> IO () +-- | +setEffect :: (MonadDOM m, IsAnimation self, IsAnimationEffect val) => self -> Maybe val -> m () +setEffect self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setEffect ((Types.toAnimation self)) a2'))) + +foreign import javascript unsafe "(($1) => { return $1[\"effect\"]; })" + js_getEffect :: Animation -> IO JSVal +-- | +getEffect :: (MonadDOM m, IsAnimation self) => self -> m (Maybe AnimationEffect) +getEffect self = liftDOM (((js_getEffect ((Types.toAnimation self))) >>= fromJSValUnchecked)) + +-- | +getEffectUnsafe :: (MonadDOM m, IsAnimation self, HasCallStack) => self -> m AnimationEffect +getEffectUnsafe self = liftDOM ((((js_getEffect ((Types.toAnimation self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getEffectUnchecked :: (MonadDOM m, IsAnimation self) => self -> m AnimationEffect +getEffectUnchecked self = liftDOM ((pFromJSVal <$> (js_getEffect ((Types.toAnimation self))))) + +foreign import javascript safe "(($1, $2) => { $1[\"timeline\"] = $2; })" + js_setTimeline :: Animation -> JSVal -> IO () +-- | +setTimeline :: (MonadDOM m, IsAnimation self, IsAnimationTimeline val) => self -> Maybe val -> m () +setTimeline self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setTimeline ((Types.toAnimation self)) a2'))) + +foreign import javascript unsafe "(($1) => { return $1[\"timeline\"]; })" + js_getTimeline :: Animation -> IO JSVal +-- | +getTimeline :: (MonadDOM m, IsAnimation self) => self -> m (Maybe AnimationTimeline) +getTimeline self = liftDOM (((js_getTimeline ((Types.toAnimation self))) >>= fromJSValUnchecked)) + +-- | +getTimelineUnsafe :: (MonadDOM m, IsAnimation self, HasCallStack) => self -> m AnimationTimeline +getTimelineUnsafe self = liftDOM ((((js_getTimeline ((Types.toAnimation self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getTimelineUnchecked :: (MonadDOM m, IsAnimation self) => self -> m AnimationTimeline +getTimelineUnchecked self = liftDOM ((pFromJSVal <$> (js_getTimeline ((Types.toAnimation self))))) + +foreign import javascript safe "(($1, $2) => { $1[\"playbackRate\"] = $2; })" + js_setPlaybackRate :: Animation -> Double -> IO () +-- | +setPlaybackRate :: (MonadDOM m, IsAnimation self) => self -> Double -> m () +setPlaybackRate self val = liftDOM (void ((js_setPlaybackRate ((Types.toAnimation self)) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"playbackRate\"]; })" + js_getPlaybackRate :: Animation -> IO Double +-- | +getPlaybackRate :: (MonadDOM m, IsAnimation self) => self -> m Double +getPlaybackRate self = liftDOM ((js_getPlaybackRate ((Types.toAnimation self)))) + +foreign import javascript unsafe "(($1) => { return $1[\"playState\"]; })" + js_getPlayState :: Animation -> IO JSVal +-- | +getPlayState :: (MonadDOM m, IsAnimation self) => self -> m AnimationPlayState +getPlayState self = liftDOM (((js_getPlayState ((Types.toAnimation self))) >>= fromJSValUnchecked)) + +foreign import javascript unsafe "(($1) => { return $1[\"replaceState\"]; })" + js_getReplaceState :: Animation -> IO JSVal +-- | +getReplaceState :: (MonadDOM m, IsAnimation self) => self -> m AnimationReplaceState +getReplaceState self = liftDOM (((js_getReplaceState ((Types.toAnimation self))) >>= fromJSValUnchecked)) + +foreign import javascript unsafe "(($1) => { return $1[\"pending\"]; })" + js_getPending :: Animation -> IO Bool +-- | +getPending :: (MonadDOM m, IsAnimation self) => self -> m Bool +getPending self = liftDOM ((js_getPending ((Types.toAnimation self)))) + +foreign import javascript interruptible "(($1, $c) => { return $1[\"ready\"].then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })" + js_getReady :: Animation -> IO (JSVal, Animation) +-- | +getReady :: (MonadDOM m, IsAnimation self) => self -> m Animation +getReady self = liftDOM (((js_getReady ((Types.toAnimation self))) >>= checkPromiseResult)) + +foreign import javascript interruptible "(($1, $c) => { return $1[\"finished\"].then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })" + js_getFinished :: Animation -> IO (JSVal, Animation) +-- | +getFinished :: (MonadDOM m, IsAnimation self) => self -> m Animation +getFinished self = liftDOM (((js_getFinished ((Types.toAnimation self))) >>= checkPromiseResult)) + +foreign import javascript safe "(($1, $2) => { $1[\"startTime\"] = $2; })" + js_setStartTime :: Animation -> JSVal -> IO () +-- | +setStartTime :: (MonadDOM m, IsAnimation self, IsCSSNumberish val) => self -> Maybe val -> m () +setStartTime self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setStartTime ((Types.toAnimation self)) a2'))) + +foreign import javascript unsafe "(($1) => { return $1[\"startTime\"]; })" + js_getStartTime :: Animation -> IO JSVal +-- | +getStartTime :: (MonadDOM m, IsAnimation self) => self -> m (Maybe CSSNumberish) +getStartTime self = liftDOM (((js_getStartTime ((Types.toAnimation self))) >>= fromJSValUnchecked)) + +-- | +getStartTimeUnsafe :: (MonadDOM m, IsAnimation self, HasCallStack) => self -> m CSSNumberish +getStartTimeUnsafe self = liftDOM ((((js_getStartTime ((Types.toAnimation self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getStartTimeUnchecked :: (MonadDOM m, IsAnimation self) => self -> m CSSNumberish +getStartTimeUnchecked self = liftDOM ((pFromJSVal <$> (js_getStartTime ((Types.toAnimation self))))) + +foreign import javascript safe "(($1, $2) => { $1[\"currentTime\"] = $2; })" + js_setCurrentTime :: Animation -> JSVal -> IO () +-- | +setCurrentTime :: (MonadDOM m, IsAnimation self, IsCSSNumberish val) => self -> Maybe val -> m () +setCurrentTime self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setCurrentTime ((Types.toAnimation self)) a2'))) + +foreign import javascript unsafe "(($1) => { return $1[\"currentTime\"]; })" + js_getCurrentTime :: Animation -> IO JSVal +-- | +getCurrentTime :: (MonadDOM m, IsAnimation self) => self -> m (Maybe CSSNumberish) +getCurrentTime self = liftDOM (((js_getCurrentTime ((Types.toAnimation self))) >>= fromJSValUnchecked)) + +-- | +getCurrentTimeUnsafe :: (MonadDOM m, IsAnimation self, HasCallStack) => self -> m CSSNumberish +getCurrentTimeUnsafe self = liftDOM ((((js_getCurrentTime ((Types.toAnimation self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getCurrentTimeUnchecked :: (MonadDOM m, IsAnimation self) => self -> m CSSNumberish +getCurrentTimeUnchecked self = liftDOM ((pFromJSVal <$> (js_getCurrentTime ((Types.toAnimation self))))) + +foreign import javascript unsafe "(($1) => { return $1[\"overallProgress\"]; })" + js_getOverallProgress :: Animation -> IO JSVal +-- | +getOverallProgress :: (MonadDOM m, IsAnimation self) => self -> m (Maybe Double) +getOverallProgress self = liftDOM (((js_getOverallProgress ((Types.toAnimation self))) >>= fromJSValUnchecked)) + +-- | +getOverallProgressUnsafe :: (MonadDOM m, IsAnimation self, HasCallStack) => self -> m Double +getOverallProgressUnsafe self = liftDOM ((((js_getOverallProgress ((Types.toAnimation self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getOverallProgressUnchecked :: (MonadDOM m, IsAnimation self) => self -> m Double +getOverallProgressUnchecked self = liftDOM ((pFromJSVal <$> (js_getOverallProgress ((Types.toAnimation self))))) + +-- | +finishEvent :: (IsAnimation self, IsEventTarget self) => EventName self AnimationPlaybackEvent +finishEvent = unsafeEventName (toJSString "finish") + +-- | +cancelEvent :: (IsAnimation self, IsEventTarget self) => EventName self AnimationPlaybackEvent +cancelEvent = unsafeEventName (toJSString "cancel") + +-- | +remove :: (IsAnimation self, IsEventTarget self) => EventName self AnimationPlaybackEvent +remove = unsafeEventName (toJSString "remove") diff --git a/src/GHCJS/DOM/JSFFI/Generated/AnimationEffect.hs b/src/GHCJS/DOM/JSFFI/Generated/AnimationEffect.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/AnimationEffect.hs @@ -0,0 +1,43 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from web-animations-1 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.AnimationEffect + (js_getComputedTiming, js_getTiming, js_updateTiming, getComputedTiming, getComputedTiming_, getTiming, getTiming_, updateTiming, AnimationEffect(..), gTypeAnimationEffect, IsAnimationEffect, toAnimationEffect) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1) => { return $1[\"getComputedTiming\"](); })" + js_getComputedTiming :: AnimationEffect -> IO ComputedEffectTiming +-- | +getComputedTiming :: (MonadDOM m, IsAnimationEffect self) => self -> m ComputedEffectTiming +getComputedTiming self = liftDOM ((js_getComputedTiming ((Types.toAnimationEffect self)))) + +-- | +getComputedTiming_ :: (MonadDOM m, IsAnimationEffect self) => self -> m () +getComputedTiming_ self = liftDOM (void ((js_getComputedTiming ((Types.toAnimationEffect self))))) + +foreign import javascript safe "(($1) => { return $1[\"getTiming\"](); })" + js_getTiming :: AnimationEffect -> IO EffectTiming +-- | +getTiming :: (MonadDOM m, IsAnimationEffect self) => self -> m EffectTiming +getTiming self = liftDOM ((js_getTiming ((Types.toAnimationEffect self)))) + +-- | +getTiming_ :: (MonadDOM m, IsAnimationEffect self) => self -> m () +getTiming_ self = liftDOM (void ((js_getTiming ((Types.toAnimationEffect self))))) + +foreign import javascript safe "(($1, $2) => { return $1[\"updateTiming\"]($2); })" + js_updateTiming :: AnimationEffect -> JSVal -> IO () +-- | +updateTiming :: (MonadDOM m, IsAnimationEffect self) => self -> Maybe OptionalEffectTiming -> m () +updateTiming self timing = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal timing) >>= \a2' -> js_updateTiming ((Types.toAnimationEffect self)) a2'))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/AnimationEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/AnimationEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/AnimationEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/AnimationEvent.hs @@ -1,57 +1,55 @@ {-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE JavaScriptFFI #-} --- For HasCallStack compatibility +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from css-animations-1 (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.AnimationEvent - (js_newAnimationEvent, newAnimationEvent, js_getAnimationName, - getAnimationName, js_getElapsedTime, getElapsedTime, - AnimationEvent(..), gTypeAnimationEvent) + (js_newAnimationEvent, js_getAnimationName, js_getElapsedTime, js_getPseudoElement, js_getAnimation, newAnimationEvent, getAnimationName, getElapsedTime, getPseudoElement, getAnimation, getAnimationUnsafe, getAnimationUnchecked, AnimationEvent(..), gTypeAnimationEvent) where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull, jsUndefined) -import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import Data.Maybe (fromJust) -import Data.Traversable (mapM) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types -import Control.Applicative ((<$>)) +import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums - -foreign import javascript unsafe - "(($1, $2) => { return new window[\"AnimationEvent\"]($1,\n$2); })" js_newAnimationEvent :: - JSString -> Optional AnimationEventInit -> IO AnimationEvent --- | -newAnimationEvent :: - (MonadIO m, ToJSString type') => - type' -> Maybe AnimationEventInit -> m AnimationEvent -newAnimationEvent type' animationEventInitDict - = liftIO - (js_newAnimationEvent (toJSString type') - (maybeToOptional animationEventInitDict)) - +foreign import javascript safe "(($1, $2) => { return new globalThis[\"AnimationEvent\"]($1, $2); })" + js_newAnimationEvent :: JSString -> JSVal -> IO AnimationEvent +-- | +newAnimationEvent :: (MonadDOM m, ToJSString type') => type' -> Maybe AnimationEventInit -> m AnimationEvent +newAnimationEvent type' animationEventInitDict = liftDOM (((P.maybe (P.return jsUndefined) toJSVal animationEventInitDict) >>= \a2' -> js_newAnimationEvent (toJSString type') a2')) + foreign import javascript unsafe "(($1) => { return $1[\"animationName\"]; })" js_getAnimationName :: AnimationEvent -> IO JSString +-- | +getAnimationName :: (MonadDOM m, FromJSString result) => AnimationEvent -> m result +getAnimationName self = liftDOM ((fromJSString <$> (js_getAnimationName (self)))) --- | -getAnimationName :: - (MonadIO m, FromJSString result) => AnimationEvent -> m result -getAnimationName self - = liftIO (fromJSString <$> (js_getAnimationName self)) - foreign import javascript unsafe "(($1) => { return $1[\"elapsedTime\"]; })" js_getElapsedTime :: AnimationEvent -> IO Double +-- | +getElapsedTime :: (MonadDOM m) => AnimationEvent -> m Double +getElapsedTime self = liftDOM ((js_getElapsedTime (self))) --- | -getElapsedTime :: (MonadIO m) => AnimationEvent -> m Double -getElapsedTime self = liftIO (js_getElapsedTime self) +foreign import javascript unsafe "(($1) => { return $1[\"pseudoElement\"]; })" + js_getPseudoElement :: AnimationEvent -> IO JSString +-- | +getPseudoElement :: (MonadDOM m, FromJSString result) => AnimationEvent -> m result +getPseudoElement self = liftDOM ((fromJSString <$> (js_getPseudoElement (self)))) + +foreign import javascript unsafe "(($1) => { return $1[\"animation\"]; })" + js_getAnimation :: AnimationEvent -> IO JSVal +-- | +getAnimation :: (MonadDOM m) => AnimationEvent -> m (Maybe CSSAnimation) +getAnimation self = liftDOM (((js_getAnimation (self)) >>= fromJSValUnchecked)) + +-- | +getAnimationUnsafe :: (MonadDOM m, HasCallStack) => AnimationEvent -> m CSSAnimation +getAnimationUnsafe self = liftDOM ((((js_getAnimation (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getAnimationUnchecked :: (MonadDOM m) => AnimationEvent -> m CSSAnimation +getAnimationUnchecked self = liftDOM ((pFromJSVal <$> (js_getAnimation (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/AnimationEventInit.hs b/src/GHCJS/DOM/JSFFI/Generated/AnimationEventInit.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/AnimationEventInit.hs @@ -0,0 +1,103 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from css-animations-1 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.AnimationEventInit + (js_newAnimationEventInit, js_setAnimationName, js_getAnimationName, js_setElapsedTime, js_getElapsedTime, js_setPseudoElement, js_getPseudoElement, js_setAnimation, js_getAnimation, newAnimationEventInit, setAnimationName, getAnimationName, getAnimationNameUnsafe, getAnimationNameUnchecked, setElapsedTime, getElapsedTime, getElapsedTimeUnsafe, getElapsedTimeUnchecked, setPseudoElement, getPseudoElement, getPseudoElementUnsafe, getPseudoElementUnchecked, setAnimation, getAnimation, getAnimationUnsafe, getAnimationUnchecked, AnimationEventInit(..), gTypeAnimationEventInit) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(() => { return ({}); })" + js_newAnimationEventInit :: IO AnimationEventInit +-- | +newAnimationEventInit :: (MonadDOM m) => m AnimationEventInit +newAnimationEventInit = liftDOM ((js_newAnimationEventInit)) + +foreign import javascript safe "(($1, $2) => { $1[\"animationName\"] = $2; })" + js_setAnimationName :: AnimationEventInit -> JSString -> IO () +-- | +setAnimationName :: (MonadDOM m, ToJSString val) => AnimationEventInit -> val -> m () +setAnimationName self val = liftDOM (void ((js_setAnimationName (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"animationName\"]; })" + js_getAnimationName :: AnimationEventInit -> IO JSVal +-- | +getAnimationName :: (MonadDOM m, FromJSString result) => AnimationEventInit -> m (Maybe result) +getAnimationName self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAnimationName (self)))) + +-- | +getAnimationNameUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => AnimationEventInit -> m result +getAnimationNameUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAnimationName (self))) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getAnimationNameUnchecked :: (MonadDOM m, FromJSString result) => AnimationEventInit -> m result +getAnimationNameUnchecked self = liftDOM ((pFromJSVal <$> (js_getAnimationName (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"elapsedTime\"] = $2; })" + js_setElapsedTime :: AnimationEventInit -> Double -> IO () +-- | +setElapsedTime :: (MonadDOM m) => AnimationEventInit -> Double -> m () +setElapsedTime self val = liftDOM (void ((js_setElapsedTime (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"elapsedTime\"]; })" + js_getElapsedTime :: AnimationEventInit -> IO JSVal +-- | +getElapsedTime :: (MonadDOM m) => AnimationEventInit -> m (Maybe Double) +getElapsedTime self = liftDOM (((js_getElapsedTime (self)) >>= fromJSValUnchecked)) + +-- | +getElapsedTimeUnsafe :: (MonadDOM m, HasCallStack) => AnimationEventInit -> m Double +getElapsedTimeUnsafe self = liftDOM ((((js_getElapsedTime (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getElapsedTimeUnchecked :: (MonadDOM m) => AnimationEventInit -> m Double +getElapsedTimeUnchecked self = liftDOM ((pFromJSVal <$> (js_getElapsedTime (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"pseudoElement\"] = $2; })" + js_setPseudoElement :: AnimationEventInit -> JSString -> IO () +-- | +setPseudoElement :: (MonadDOM m, ToJSString val) => AnimationEventInit -> val -> m () +setPseudoElement self val = liftDOM (void ((js_setPseudoElement (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"pseudoElement\"]; })" + js_getPseudoElement :: AnimationEventInit -> IO JSVal +-- | +getPseudoElement :: (MonadDOM m, FromJSString result) => AnimationEventInit -> m (Maybe result) +getPseudoElement self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getPseudoElement (self)))) + +-- | +getPseudoElementUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => AnimationEventInit -> m result +getPseudoElementUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getPseudoElement (self))) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getPseudoElementUnchecked :: (MonadDOM m, FromJSString result) => AnimationEventInit -> m result +getPseudoElementUnchecked self = liftDOM ((pFromJSVal <$> (js_getPseudoElement (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"animation\"] = $2; })" + js_setAnimation :: AnimationEventInit -> JSVal -> IO () +-- | +setAnimation :: (MonadDOM m) => AnimationEventInit -> Maybe CSSAnimation -> m () +setAnimation self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setAnimation (self) a2'))) + +foreign import javascript unsafe "(($1) => { return $1[\"animation\"]; })" + js_getAnimation :: AnimationEventInit -> IO JSVal +-- | +getAnimation :: (MonadDOM m) => AnimationEventInit -> m (Maybe CSSAnimation) +getAnimation self = liftDOM (((js_getAnimation (self)) >>= fromJSValUnchecked)) + +-- | +getAnimationUnsafe :: (MonadDOM m, HasCallStack) => AnimationEventInit -> m CSSAnimation +getAnimationUnsafe self = liftDOM ((((js_getAnimation (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getAnimationUnchecked :: (MonadDOM m) => AnimationEventInit -> m CSSAnimation +getAnimationUnchecked self = liftDOM ((pFromJSVal <$> (js_getAnimation (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/AnimationFrameProvider.hs b/src/GHCJS/DOM/JSFFI/Generated/AnimationFrameProvider.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/AnimationFrameProvider.hs @@ -0,0 +1,33 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from html (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.AnimationFrameProvider + (js_cancelAnimationFrame, js_requestAnimationFrame, cancelAnimationFrame, requestAnimationFrame, requestAnimationFrame_, AnimationFrameProvider(..), gTypeAnimationFrameProvider, IsAnimationFrameProvider, toAnimationFrameProvider) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1, $2) => { return $1[\"cancelAnimationFrame\"]($2); })" + js_cancelAnimationFrame :: AnimationFrameProvider -> Word -> IO () +-- | +cancelAnimationFrame :: (MonadDOM m, IsAnimationFrameProvider self) => self -> Word -> m () +cancelAnimationFrame self handle = liftDOM (void ((js_cancelAnimationFrame ((Types.toAnimationFrameProvider self)) (handle)))) + +foreign import javascript safe "(($1, $2) => { return $1[\"requestAnimationFrame\"]($2); })" + js_requestAnimationFrame :: AnimationFrameProvider -> JSVal -> IO Word +-- | +requestAnimationFrame :: (MonadDOM m, IsAnimationFrameProvider self) => self -> FrameRequestCallback -> m Word +requestAnimationFrame self callback' = liftDOM (((toJSVal callback') >>= \a2' -> js_requestAnimationFrame ((Types.toAnimationFrameProvider self)) a2')) + +-- | +requestAnimationFrame_ :: (MonadDOM m, IsAnimationFrameProvider self) => self -> FrameRequestCallback -> m () +requestAnimationFrame_ self callback' = liftDOM (void (((toJSVal callback') >>= \a2' -> js_requestAnimationFrame ((Types.toAnimationFrameProvider self)) a2'))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/AnimationPlaybackEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/AnimationPlaybackEvent.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/AnimationPlaybackEvent.hs @@ -0,0 +1,51 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from web-animations-2 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.AnimationPlaybackEvent + (js_newAnimationPlaybackEvent, js_getCurrentTime, js_getTimelineTime, newAnimationPlaybackEvent, getCurrentTime, getCurrentTimeUnsafe, getCurrentTimeUnchecked, getTimelineTime, getTimelineTimeUnsafe, getTimelineTimeUnchecked, AnimationPlaybackEvent(..), gTypeAnimationPlaybackEvent) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1, $2) => { return new globalThis[\"AnimationPlaybackEvent\"]($1, $2); })" + js_newAnimationPlaybackEvent :: JSString -> JSVal -> IO AnimationPlaybackEvent +-- | +newAnimationPlaybackEvent :: (MonadDOM m, ToJSString type') => type' -> Maybe AnimationPlaybackEventInit -> m AnimationPlaybackEvent +newAnimationPlaybackEvent type' eventInitDict = liftDOM (((P.maybe (P.return jsUndefined) toJSVal eventInitDict) >>= \a2' -> js_newAnimationPlaybackEvent (toJSString type') a2')) + +foreign import javascript unsafe "(($1) => { return $1[\"currentTime\"]; })" + js_getCurrentTime :: AnimationPlaybackEvent -> IO JSVal +-- | +getCurrentTime :: (MonadDOM m) => AnimationPlaybackEvent -> m (Maybe CSSNumberish) +getCurrentTime self = liftDOM (((js_getCurrentTime (self)) >>= fromJSValUnchecked)) + +-- | +getCurrentTimeUnsafe :: (MonadDOM m, HasCallStack) => AnimationPlaybackEvent -> m CSSNumberish +getCurrentTimeUnsafe self = liftDOM ((((js_getCurrentTime (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getCurrentTimeUnchecked :: (MonadDOM m) => AnimationPlaybackEvent -> m CSSNumberish +getCurrentTimeUnchecked self = liftDOM ((pFromJSVal <$> (js_getCurrentTime (self)))) + +foreign import javascript unsafe "(($1) => { return $1[\"timelineTime\"]; })" + js_getTimelineTime :: AnimationPlaybackEvent -> IO JSVal +-- | +getTimelineTime :: (MonadDOM m) => AnimationPlaybackEvent -> m (Maybe CSSNumberish) +getTimelineTime self = liftDOM (((js_getTimelineTime (self)) >>= fromJSValUnchecked)) + +-- | +getTimelineTimeUnsafe :: (MonadDOM m, HasCallStack) => AnimationPlaybackEvent -> m CSSNumberish +getTimelineTimeUnsafe self = liftDOM ((((js_getTimelineTime (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getTimelineTimeUnchecked :: (MonadDOM m) => AnimationPlaybackEvent -> m CSSNumberish +getTimelineTimeUnchecked self = liftDOM ((pFromJSVal <$> (js_getTimelineTime (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/AnimationPlaybackEventInit.hs b/src/GHCJS/DOM/JSFFI/Generated/AnimationPlaybackEventInit.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/AnimationPlaybackEventInit.hs @@ -0,0 +1,63 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from web-animations-2 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.AnimationPlaybackEventInit + (js_newAnimationPlaybackEventInit, js_setCurrentTime, js_getCurrentTime, js_setTimelineTime, js_getTimelineTime, newAnimationPlaybackEventInit, setCurrentTime, getCurrentTime, getCurrentTimeUnsafe, getCurrentTimeUnchecked, setTimelineTime, getTimelineTime, getTimelineTimeUnsafe, getTimelineTimeUnchecked, AnimationPlaybackEventInit(..), gTypeAnimationPlaybackEventInit) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(() => { return ({}); })" + js_newAnimationPlaybackEventInit :: IO AnimationPlaybackEventInit +-- | +newAnimationPlaybackEventInit :: (MonadDOM m) => m AnimationPlaybackEventInit +newAnimationPlaybackEventInit = liftDOM ((js_newAnimationPlaybackEventInit)) + +foreign import javascript safe "(($1, $2) => { $1[\"currentTime\"] = $2; })" + js_setCurrentTime :: AnimationPlaybackEventInit -> JSVal -> IO () +-- | +setCurrentTime :: (MonadDOM m, IsCSSNumberish val) => AnimationPlaybackEventInit -> Maybe val -> m () +setCurrentTime self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setCurrentTime (self) a2'))) + +foreign import javascript unsafe "(($1) => { return $1[\"currentTime\"]; })" + js_getCurrentTime :: AnimationPlaybackEventInit -> IO JSVal +-- | +getCurrentTime :: (MonadDOM m) => AnimationPlaybackEventInit -> m (Maybe CSSNumberish) +getCurrentTime self = liftDOM (((js_getCurrentTime (self)) >>= fromJSValUnchecked)) + +-- | +getCurrentTimeUnsafe :: (MonadDOM m, HasCallStack) => AnimationPlaybackEventInit -> m CSSNumberish +getCurrentTimeUnsafe self = liftDOM ((((js_getCurrentTime (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getCurrentTimeUnchecked :: (MonadDOM m) => AnimationPlaybackEventInit -> m CSSNumberish +getCurrentTimeUnchecked self = liftDOM ((pFromJSVal <$> (js_getCurrentTime (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"timelineTime\"] = $2; })" + js_setTimelineTime :: AnimationPlaybackEventInit -> JSVal -> IO () +-- | +setTimelineTime :: (MonadDOM m, IsCSSNumberish val) => AnimationPlaybackEventInit -> Maybe val -> m () +setTimelineTime self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setTimelineTime (self) a2'))) + +foreign import javascript unsafe "(($1) => { return $1[\"timelineTime\"]; })" + js_getTimelineTime :: AnimationPlaybackEventInit -> IO JSVal +-- | +getTimelineTime :: (MonadDOM m) => AnimationPlaybackEventInit -> m (Maybe CSSNumberish) +getTimelineTime self = liftDOM (((js_getTimelineTime (self)) >>= fromJSValUnchecked)) + +-- | +getTimelineTimeUnsafe :: (MonadDOM m, HasCallStack) => AnimationPlaybackEventInit -> m CSSNumberish +getTimelineTimeUnsafe self = liftDOM ((((js_getTimelineTime (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getTimelineTimeUnchecked :: (MonadDOM m) => AnimationPlaybackEventInit -> m CSSNumberish +getTimelineTimeUnchecked self = liftDOM ((pFromJSVal <$> (js_getTimelineTime (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/AnimationTimeline.hs b/src/GHCJS/DOM/JSFFI/Generated/AnimationTimeline.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/AnimationTimeline.hs @@ -0,0 +1,45 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from web-animations-1 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.AnimationTimeline + (js_getCurrentTime, js_getDuration, getCurrentTime, getCurrentTimeUnsafe, getCurrentTimeUnchecked, getDuration, getDurationUnsafe, getDurationUnchecked, AnimationTimeline(..), gTypeAnimationTimeline, IsAnimationTimeline, toAnimationTimeline) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript unsafe "(($1) => { return $1[\"currentTime\"]; })" + js_getCurrentTime :: AnimationTimeline -> IO JSVal +-- | +getCurrentTime :: (MonadDOM m, IsAnimationTimeline self) => self -> m (Maybe CSSNumberish) +getCurrentTime self = liftDOM (((js_getCurrentTime ((Types.toAnimationTimeline self))) >>= fromJSValUnchecked)) + +-- | +getCurrentTimeUnsafe :: (MonadDOM m, IsAnimationTimeline self, HasCallStack) => self -> m CSSNumberish +getCurrentTimeUnsafe self = liftDOM ((((js_getCurrentTime ((Types.toAnimationTimeline self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getCurrentTimeUnchecked :: (MonadDOM m, IsAnimationTimeline self) => self -> m CSSNumberish +getCurrentTimeUnchecked self = liftDOM ((pFromJSVal <$> (js_getCurrentTime ((Types.toAnimationTimeline self))))) + +foreign import javascript unsafe "(($1) => { return $1[\"duration\"]; })" + js_getDuration :: AnimationTimeline -> IO JSVal +-- | +getDuration :: (MonadDOM m, IsAnimationTimeline self) => self -> m (Maybe CSSNumberish) +getDuration self = liftDOM (((js_getDuration ((Types.toAnimationTimeline self))) >>= fromJSValUnchecked)) + +-- | +getDurationUnsafe :: (MonadDOM m, IsAnimationTimeline self, HasCallStack) => self -> m CSSNumberish +getDurationUnsafe self = liftDOM ((((js_getDuration ((Types.toAnimationTimeline self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getDurationUnchecked :: (MonadDOM m, IsAnimationTimeline self) => self -> m CSSNumberish +getDurationUnchecked self = liftDOM ((pFromJSVal <$> (js_getDuration ((Types.toAnimationTimeline self))))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/AnimationTrigger.hs b/src/GHCJS/DOM/JSFFI/Generated/AnimationTrigger.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/AnimationTrigger.hs @@ -0,0 +1,18 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from animation-triggers-1 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.AnimationTrigger + (AnimationTrigger(..), gTypeAnimationTrigger) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + diff --git a/src/GHCJS/DOM/JSFFI/Generated/ApplePayError.hs b/src/GHCJS/DOM/JSFFI/Generated/ApplePayError.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/ApplePayError.hs +++ /dev/null @@ -1,114 +0,0 @@ -{-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE JavaScriptFFI #-} --- For HasCallStack compatibility -{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} -module GHCJS.DOM.JSFFI.Generated.ApplePayError - (js_newApplePayError, newApplePayError, js_setCode, setCode, - js_getCode, getCode, js_setContactField, setContactField, - js_getContactField, getContactField, getContactFieldUnsafe, - getContactFieldUnchecked, js_setMessage, setMessage, js_getMessage, - getMessage, ApplePayError(..), gTypeApplePayError) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull, jsUndefined) -import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import Data.Maybe (fromJust) -import Data.Traversable (mapM) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) -import GHCJS.DOM.JSFFI.Generated.Enums - -foreign import javascript unsafe - "(($1, $2, $3) => { return new window[\"ApplePayError\"]($1,\n$2, $3); })" js_newApplePayError :: - JSVal -> - Optional ApplePayErrorContactField -> - Optional JSString -> IO ApplePayError - --- | -newApplePayError :: - (MonadIO m, ToJSString message) => - ApplePayErrorCode -> - Maybe ApplePayErrorContactField -> Maybe message -> m ApplePayError -newApplePayError errorCode contactField message - = liftIO - (js_newApplePayError (pToJSVal errorCode) - (maybeToOptional contactField) - (toOptionalJSString message)) - -foreign import javascript unsafe "(($1, $2) => { $1[\"code\"] = $2; })" js_setCode :: - ApplePayError -> JSVal -> IO () - --- | -setCode :: - (MonadIO m) => ApplePayError -> ApplePayErrorCode -> m () -setCode self val = liftIO (js_setCode self (pToJSVal val)) - -foreign import javascript unsafe "(($1) => { return $1[\"code\"]; })" js_getCode :: - ApplePayError -> IO JSVal - --- | -getCode :: (MonadIO m) => ApplePayError -> m ApplePayErrorCode -getCode self = liftIO ((js_getCode self) >>= fromJSValUnchecked) - -foreign import javascript unsafe "(($1, $2) => { $1[\"contactField\"] = $2; })" - js_setContactField :: - ApplePayError -> Optional ApplePayErrorContactField -> IO () - --- | -setContactField :: - (MonadIO m) => - ApplePayError -> Maybe ApplePayErrorContactField -> m () -setContactField self val - = liftIO (js_setContactField self (maybeToOptional val)) - -foreign import javascript unsafe "(($1) => { return $1[\"contactField\"]; })" - js_getContactField :: - ApplePayError -> IO (Nullable ApplePayErrorContactField) - --- | -getContactField :: - (MonadIO m) => ApplePayError -> m (Maybe ApplePayErrorContactField) -getContactField self - = liftIO (nullableToMaybe <$> (js_getContactField self)) - --- | -getContactFieldUnsafe :: - (MonadIO m, HasCallStack) => - ApplePayError -> m ApplePayErrorContactField -getContactFieldUnsafe self - = liftIO - ((nullableToMaybe <$> (js_getContactField self)) >>= - maybe (Prelude.error "Nothing to return") return) - --- | -getContactFieldUnchecked :: - (MonadIO m) => ApplePayError -> m ApplePayErrorContactField -getContactFieldUnchecked self - = liftIO (fromJust . nullableToMaybe <$> (js_getContactField self)) - -foreign import javascript unsafe "(($1, $2) => { $1[\"message\"] = $2; })" - js_setMessage :: ApplePayError -> JSString -> IO () - --- | -setMessage :: - (MonadIO m, ToJSString val) => ApplePayError -> val -> m () -setMessage self val = liftIO (js_setMessage self (toJSString val)) - -foreign import javascript unsafe "(($1) => { return $1[\"message\"]; })" js_getMessage :: - ApplePayError -> IO JSString - --- | -getMessage :: - (MonadIO m, FromJSString result) => ApplePayError -> m result -getMessage self = liftIO (fromJSString <$> (js_getMessage self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/ApplePayPaymentAuthorizedEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/ApplePayPaymentAuthorizedEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/ApplePayPaymentAuthorizedEvent.hs +++ /dev/null @@ -1,35 +0,0 @@ -{-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE JavaScriptFFI #-} --- For HasCallStack compatibility -{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} -module GHCJS.DOM.JSFFI.Generated.ApplePayPaymentAuthorizedEvent - (js_getPayment, getPayment, ApplePayPaymentAuthorizedEvent(..), - gTypeApplePayPaymentAuthorizedEvent) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull, jsUndefined) -import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import Data.Maybe (fromJust) -import Data.Traversable (mapM) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) -import GHCJS.DOM.JSFFI.Generated.Enums - -foreign import javascript unsafe "(($1) => { return $1[\"payment\"]; })" js_getPayment :: - ApplePayPaymentAuthorizedEvent -> IO ApplePayPayment - --- | -getPayment :: - (MonadIO m) => ApplePayPaymentAuthorizedEvent -> m ApplePayPayment -getPayment self = liftIO (js_getPayment self) diff --git a/src/GHCJS/DOM/JSFFI/Generated/ApplePayPaymentMethodSelectedEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/ApplePayPaymentMethodSelectedEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/ApplePayPaymentMethodSelectedEvent.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE JavaScriptFFI #-} --- For HasCallStack compatibility -{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} -module GHCJS.DOM.JSFFI.Generated.ApplePayPaymentMethodSelectedEvent - (js_getPaymentMethod, getPaymentMethod, - ApplePayPaymentMethodSelectedEvent(..), - gTypeApplePayPaymentMethodSelectedEvent) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull, jsUndefined) -import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import Data.Maybe (fromJust) -import Data.Traversable (mapM) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) -import GHCJS.DOM.JSFFI.Generated.Enums - -foreign import javascript unsafe "(($1) => { return $1[\"paymentMethod\"]; })" - js_getPaymentMethod :: - ApplePayPaymentMethodSelectedEvent -> IO ApplePayPaymentMethod - --- | -getPaymentMethod :: - (MonadIO m) => - ApplePayPaymentMethodSelectedEvent -> m ApplePayPaymentMethod -getPaymentMethod self = liftIO (js_getPaymentMethod self) diff --git a/src/GHCJS/DOM/JSFFI/Generated/ApplePaySession.hs b/src/GHCJS/DOM/JSFFI/Generated/ApplePaySession.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/ApplePaySession.hs +++ /dev/null @@ -1,309 +0,0 @@ -{-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE JavaScriptFFI #-} --- For HasCallStack compatibility -{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} -module GHCJS.DOM.JSFFI.Generated.ApplePaySession - (js_newApplePaySession, newApplePaySession, js_supportsVersion, - supportsVersion, supportsVersion_, js_canMakePayments, - canMakePayments, canMakePayments_, - js_canMakePaymentsWithActiveCard, canMakePaymentsWithActiveCard, - canMakePaymentsWithActiveCard_, js_openPaymentSetup, - openPaymentSetup, openPaymentSetup_, js_begin, begin, js_abort, - abort, js_completeMerchantValidation, completeMerchantValidation, - js_completeShippingMethodSelectionUpdate, - completeShippingMethodSelectionUpdate, - js_completeShippingContactSelectionUpdate, - completeShippingContactSelectionUpdate, - js_completePaymentMethodSelectionUpdate, - completePaymentMethodSelectionUpdate, js_completePaymentResult, - completePaymentResult, js_completeShippingMethodSelection, - completeShippingMethodSelection, - js_completeShippingContactSelection, - completeShippingContactSelection, - js_completePaymentMethodSelection, completePaymentMethodSelection, - js_completePayment, completePayment, pattern STATUS_SUCCESS, - pattern STATUS_FAILURE, - pattern STATUS_INVALID_BILLING_POSTAL_ADDRESS, - pattern STATUS_INVALID_SHIPPING_POSTAL_ADDRESS, - pattern STATUS_INVALID_SHIPPING_CONTACT, - pattern STATUS_PIN_REQUIRED, pattern STATUS_PIN_INCORRECT, - pattern STATUS_PIN_LOCKOUT, validatemerchant, - paymentmethodselected, paymentauthorized, shippingmethodselected, - shippingcontactselected, cancel, ApplePaySession(..), - gTypeApplePaySession) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull, jsUndefined) -import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import Data.Maybe (fromJust) -import Data.Traversable (mapM) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) -import GHCJS.DOM.JSFFI.Generated.Enums - -foreign import javascript safe - "(($1, $2) => { return new window[\"ApplePaySession\"]($1,\n$2); })" js_newApplePaySession :: - Word -> ApplePayPaymentRequest -> IO ApplePaySession - --- | -newApplePaySession :: - (MonadIO m) => Word -> ApplePayPaymentRequest -> m ApplePaySession -newApplePaySession version paymentRequest - = liftIO (js_newApplePaySession version paymentRequest) - -foreign import javascript safe - "(($1) => { return (window[\"ApplePaySession\"][\"supportsVersion\"]($1) ? 1 : 0); })" - js_supportsVersion :: Word -> IO Bool - --- | -supportsVersion :: (MonadIO m) => Word -> m Bool -supportsVersion version = liftIO (js_supportsVersion version) - --- | -supportsVersion_ :: (MonadIO m) => Word -> m () -supportsVersion_ version - = liftIO (void (js_supportsVersion version)) - -foreign import javascript safe - "(() => { return (window[\"ApplePaySession\"][\"canMakePayments\"]() ? 1 : 0); })" - js_canMakePayments :: IO Bool - --- | -canMakePayments :: (MonadIO m) => m Bool -canMakePayments = liftIO (js_canMakePayments) - --- | -canMakePayments_ :: (MonadIO m) => m () -canMakePayments_ = liftIO (void (js_canMakePayments)) - -foreign import javascript interruptible - "(($1, $c) => { return window[\"ApplePaySession\"][\"canMakePaymentsWithActiveCard\"]($1).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })" - js_canMakePaymentsWithActiveCard :: JSString -> IO (JSVal, Bool) - --- | -canMakePaymentsWithActiveCard :: - (MonadIO m, ToJSString merchantIdentifier) => - merchantIdentifier -> m Bool -canMakePaymentsWithActiveCard merchantIdentifier - = liftIO - ((js_canMakePaymentsWithActiveCard (toJSString merchantIdentifier)) - >>= checkPromiseResult) - --- | -canMakePaymentsWithActiveCard_ :: - (MonadIO m, ToJSString merchantIdentifier) => - merchantIdentifier -> m () -canMakePaymentsWithActiveCard_ merchantIdentifier - = liftIO - (void - (js_canMakePaymentsWithActiveCard (toJSString merchantIdentifier))) - -foreign import javascript interruptible - "(($1, $c) => { return window[\"ApplePaySession\"][\"openPaymentSetup\"]($1).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })" - js_openPaymentSetup :: JSString -> IO (JSVal, Bool) - --- | -openPaymentSetup :: - (MonadIO m, ToJSString merchantIdentifier) => - merchantIdentifier -> m Bool -openPaymentSetup merchantIdentifier - = liftIO - ((js_openPaymentSetup (toJSString merchantIdentifier)) >>= - checkPromiseResult) - --- | -openPaymentSetup_ :: - (MonadIO m, ToJSString merchantIdentifier) => - merchantIdentifier -> m () -openPaymentSetup_ merchantIdentifier - = liftIO - (void (js_openPaymentSetup (toJSString merchantIdentifier))) - -foreign import javascript safe "(($1) => { return $1[\"begin\"](); })" js_begin :: - ApplePaySession -> IO () - --- | -begin :: (MonadIO m) => ApplePaySession -> m () -begin self = liftIO (js_begin self) - -foreign import javascript safe "(($1) => { return $1[\"abort\"](); })" js_abort :: - ApplePaySession -> IO () - --- | -abort :: (MonadIO m) => ApplePaySession -> m () -abort self = liftIO (js_abort self) - -foreign import javascript safe - "(($1, $2) => { return $1[\"completeMerchantValidation\"]($2); })" - js_completeMerchantValidation :: ApplePaySession -> JSVal -> IO () - --- | -completeMerchantValidation :: - (MonadIO m, ToJSVal merchantSession) => - ApplePaySession -> merchantSession -> m () -completeMerchantValidation self merchantSession - = liftIO - (toJSVal merchantSession >>= - \ merchantSession' -> - js_completeMerchantValidation self merchantSession') - -foreign import javascript safe - "(($1, $2) => { return $1[\"completeShippingMethodSelection\"]($2); })" - js_completeShippingMethodSelectionUpdate :: - ApplePaySession -> ApplePayShippingMethodUpdate -> IO () - --- | -completeShippingMethodSelectionUpdate :: - (MonadIO m) => - ApplePaySession -> ApplePayShippingMethodUpdate -> m () -completeShippingMethodSelectionUpdate self update - = liftIO (js_completeShippingMethodSelectionUpdate self update) - -foreign import javascript safe - "(($1, $2) => { return $1[\"completeShippingContactSelection\"]($2); })" - js_completeShippingContactSelectionUpdate :: - ApplePaySession -> ApplePayShippingContactUpdate -> IO () - --- | -completeShippingContactSelectionUpdate :: - (MonadIO m) => - ApplePaySession -> ApplePayShippingContactUpdate -> m () -completeShippingContactSelectionUpdate self update - = liftIO (js_completeShippingContactSelectionUpdate self update) - -foreign import javascript safe - "(($1, $2) => { return $1[\"completePaymentMethodSelection\"]($2); })" - js_completePaymentMethodSelectionUpdate :: - ApplePaySession -> ApplePayPaymentMethodUpdate -> IO () - --- | -completePaymentMethodSelectionUpdate :: - (MonadIO m) => - ApplePaySession -> ApplePayPaymentMethodUpdate -> m () -completePaymentMethodSelectionUpdate self update - = liftIO (js_completePaymentMethodSelectionUpdate self update) - -foreign import javascript safe "(($1, $2) => { return $1[\"completePayment\"]($2); })" - js_completePaymentResult :: - ApplePaySession -> ApplePayPaymentAuthorizationResult -> IO () - --- | -completePaymentResult :: - (MonadIO m) => - ApplePaySession -> ApplePayPaymentAuthorizationResult -> m () -completePaymentResult self result - = liftIO (js_completePaymentResult self result) - -foreign import javascript safe - "(($1, $2, $3, $4) => { return $1[\"completeShippingMethodSelection\"]($2,\n$3, $4); })" - js_completeShippingMethodSelection :: - ApplePaySession -> Word -> ApplePayLineItem -> JSVal -> IO () - --- | -completeShippingMethodSelection :: - (MonadIO m) => - ApplePaySession -> - Word -> ApplePayLineItem -> [ApplePayLineItem] -> m () -completeShippingMethodSelection self status newTotal newLineItems - = liftIO - (toJSVal newLineItems >>= - \ newLineItems' -> - js_completeShippingMethodSelection self status newTotal - newLineItems') - -foreign import javascript safe - "(($1, $2, $3, $4, $5) => { return $1[\"completeShippingContactSelection\"]($2,\n$3, $4, $5); })" - js_completeShippingContactSelection :: - ApplePaySession -> - Word -> JSVal -> ApplePayLineItem -> JSVal -> IO () - --- | -completeShippingContactSelection :: - (MonadIO m) => - ApplePaySession -> - Word -> - [ApplePayShippingMethod] -> - ApplePayLineItem -> [ApplePayLineItem] -> m () -completeShippingContactSelection self status newShippingMethods - newTotal newLineItems - = liftIO - (toJSVal newLineItems >>= - \ newLineItems' -> - toJSVal newShippingMethods >>= - \ newShippingMethods' -> - js_completeShippingContactSelection self status newShippingMethods' - newTotal - newLineItems') - -foreign import javascript safe - "(($1, $2, $3) => { return $1[\"completePaymentMethodSelection\"]($2,\n$3); })" - js_completePaymentMethodSelection :: - ApplePaySession -> ApplePayLineItem -> JSVal -> IO () - --- | -completePaymentMethodSelection :: - (MonadIO m) => - ApplePaySession -> ApplePayLineItem -> [ApplePayLineItem] -> m () -completePaymentMethodSelection self newTotal newLineItems - = liftIO - (toJSVal newLineItems >>= - \ newLineItems' -> - js_completePaymentMethodSelection self newTotal newLineItems') - -foreign import javascript safe "(($1, $2) => { return $1[\"completePayment\"]($2); })" - js_completePayment :: ApplePaySession -> Word -> IO () - --- | -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 - --- | -validatemerchant :: EventName ApplePaySession onvalidatemerchant -validatemerchant = unsafeEventName (toJSString "validatemerchant") - --- | -paymentmethodselected :: - EventName ApplePaySession onpaymentmethodselected -paymentmethodselected - = unsafeEventName (toJSString "paymentmethodselected") - --- | -paymentauthorized :: EventName ApplePaySession onpaymentauthorized -paymentauthorized - = unsafeEventName (toJSString "paymentauthorized") - --- | -shippingmethodselected :: - EventName ApplePaySession onshippingmethodselected -shippingmethodselected - = unsafeEventName (toJSString "shippingmethodselected") - --- | -shippingcontactselected :: - EventName ApplePaySession onshippingcontactselected -shippingcontactselected - = unsafeEventName (toJSString "shippingcontactselected") - --- | -cancel :: EventName ApplePaySession oncancel -cancel = unsafeEventName (toJSString "cancel") diff --git a/src/GHCJS/DOM/JSFFI/Generated/ApplePayShippingContactSelectedEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/ApplePayShippingContactSelectedEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/ApplePayShippingContactSelectedEvent.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE JavaScriptFFI #-} --- For HasCallStack compatibility -{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} -module GHCJS.DOM.JSFFI.Generated.ApplePayShippingContactSelectedEvent - (js_getShippingContact, getShippingContact, - ApplePayShippingContactSelectedEvent(..), - gTypeApplePayShippingContactSelectedEvent) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull, jsUndefined) -import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import Data.Maybe (fromJust) -import Data.Traversable (mapM) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) -import GHCJS.DOM.JSFFI.Generated.Enums - -foreign import javascript unsafe "(($1) => { return $1[\"shippingContact\"]; })" - js_getShippingContact :: - ApplePayShippingContactSelectedEvent -> IO ApplePayPaymentContact - --- | -getShippingContact :: - (MonadIO m) => - ApplePayShippingContactSelectedEvent -> m ApplePayPaymentContact -getShippingContact self = liftIO (js_getShippingContact self) diff --git a/src/GHCJS/DOM/JSFFI/Generated/ApplePayShippingMethodSelectedEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/ApplePayShippingMethodSelectedEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/ApplePayShippingMethodSelectedEvent.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE JavaScriptFFI #-} --- For HasCallStack compatibility -{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} -module GHCJS.DOM.JSFFI.Generated.ApplePayShippingMethodSelectedEvent - (js_getShippingMethod, getShippingMethod, - ApplePayShippingMethodSelectedEvent(..), - gTypeApplePayShippingMethodSelectedEvent) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull, jsUndefined) -import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import Data.Maybe (fromJust) -import Data.Traversable (mapM) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) -import GHCJS.DOM.JSFFI.Generated.Enums - -foreign import javascript unsafe "(($1) => { return $1[\"shippingMethod\"]; })" - js_getShippingMethod :: - ApplePayShippingMethodSelectedEvent -> IO ApplePayShippingMethod - --- | -getShippingMethod :: - (MonadIO m) => - ApplePayShippingMethodSelectedEvent -> m ApplePayShippingMethod -getShippingMethod self = liftIO (js_getShippingMethod self) diff --git a/src/GHCJS/DOM/JSFFI/Generated/ApplePayValidateMerchantEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/ApplePayValidateMerchantEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/ApplePayValidateMerchantEvent.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE JavaScriptFFI #-} --- For HasCallStack compatibility -{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} -module GHCJS.DOM.JSFFI.Generated.ApplePayValidateMerchantEvent - (js_getValidationURL, getValidationURL, - ApplePayValidateMerchantEvent(..), - gTypeApplePayValidateMerchantEvent) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull, jsUndefined) -import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import Data.Maybe (fromJust) -import Data.Traversable (mapM) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) -import GHCJS.DOM.JSFFI.Generated.Enums - -foreign import javascript unsafe "(($1) => { return $1[\"validationURL\"]; })" - js_getValidationURL :: ApplePayValidateMerchantEvent -> IO JSString - --- | -getValidationURL :: - (MonadIO m, FromJSString result) => - ApplePayValidateMerchantEvent -> m result -getValidationURL self - = liftIO (fromJSString <$> (js_getValidationURL self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/ApplicationCache.hs b/src/GHCJS/DOM/JSFFI/Generated/ApplicationCache.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/ApplicationCache.hs +++ /dev/null @@ -1,97 +0,0 @@ -{-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE JavaScriptFFI #-} --- For HasCallStack compatibility -{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} -module GHCJS.DOM.JSFFI.Generated.ApplicationCache - (js_update, update, js_swapCache, swapCache, js_abort, abort, - pattern UNCACHED, pattern IDLE, pattern CHECKING, - pattern DOWNLOADING, pattern UPDATEREADY, pattern OBSOLETE, - js_getStatus, getStatus, checking, error, noUpdate, downloading, - progress, updateReady, cached, obsolete, ApplicationCache(..), - gTypeApplicationCache) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull, jsUndefined) -import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import Data.Maybe (fromJust) -import Data.Traversable (mapM) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) -import GHCJS.DOM.JSFFI.Generated.Enums - -foreign import javascript safe "(($1) => { return $1[\"update\"](); })" js_update :: - ApplicationCache -> IO () - --- | -update :: (MonadIO m) => ApplicationCache -> m () -update self = liftIO (js_update self) - -foreign import javascript safe "(($1) => { return $1[\"swapCache\"](); })" js_swapCache - :: ApplicationCache -> IO () - --- | -swapCache :: (MonadIO m) => ApplicationCache -> m () -swapCache self = liftIO (js_swapCache self) - -foreign import javascript unsafe "(($1) => { return $1[\"abort\"](); })" js_abort :: - ApplicationCache -> IO () - --- | -abort :: (MonadIO m) => ApplicationCache -> m () -abort self = liftIO (js_abort self) -pattern UNCACHED = 0 -pattern IDLE = 1 -pattern CHECKING = 2 -pattern DOWNLOADING = 3 -pattern UPDATEREADY = 4 -pattern OBSOLETE = 5 - -foreign import javascript unsafe "(($1) => { return $1[\"status\"]; })" js_getStatus :: - ApplicationCache -> IO Word - --- | -getStatus :: (MonadIO m) => ApplicationCache -> m Word -getStatus self = liftIO (js_getStatus self) - --- | -checking :: EventName ApplicationCache Event -checking = unsafeEventName (toJSString "checking") - --- | -error :: EventName ApplicationCache UIEvent -error = unsafeEventNameAsync (toJSString "error") - --- | -noUpdate :: EventName ApplicationCache Event -noUpdate = unsafeEventName (toJSString "noupdate") - --- | -downloading :: EventName ApplicationCache Event -downloading = unsafeEventName (toJSString "downloading") - --- | -progress :: EventName ApplicationCache ProgressEvent -progress = unsafeEventNameAsync (toJSString "progress") - --- | -updateReady :: EventName ApplicationCache Event -updateReady = unsafeEventName (toJSString "updateready") - --- | -cached :: EventName ApplicationCache Event -cached = unsafeEventName (toJSString "cached") - --- | -obsolete :: EventName ApplicationCache Event -obsolete = unsafeEventName (toJSString "obsolete") diff --git a/src/GHCJS/DOM/JSFFI/Generated/AriaNotificationOptions.hs b/src/GHCJS/DOM/JSFFI/Generated/AriaNotificationOptions.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/AriaNotificationOptions.hs @@ -0,0 +1,43 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from wai-aria-1.3 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.AriaNotificationOptions + (js_newAriaNotificationOptions, js_setPriority, js_getPriority, newAriaNotificationOptions, setPriority, getPriority, getPriorityUnsafe, getPriorityUnchecked, AriaNotificationOptions(..), gTypeAriaNotificationOptions) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(() => { return ({}); })" + js_newAriaNotificationOptions :: IO AriaNotificationOptions +-- | +newAriaNotificationOptions :: (MonadDOM m) => m AriaNotificationOptions +newAriaNotificationOptions = liftDOM ((js_newAriaNotificationOptions)) + +foreign import javascript safe "(($1, $2) => { $1[\"priority\"] = $2; })" + js_setPriority :: AriaNotificationOptions -> JSVal -> IO () +-- | +setPriority :: (MonadDOM m) => AriaNotificationOptions -> AriaNotifyPriority -> m () +setPriority self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setPriority (self) a2'))) + +foreign import javascript unsafe "(($1) => { return $1[\"priority\"]; })" + js_getPriority :: AriaNotificationOptions -> IO JSVal +-- | +getPriority :: (MonadDOM m) => AriaNotificationOptions -> m (Maybe AriaNotifyPriority) +getPriority self = liftDOM (((js_getPriority (self)) >>= fromJSValUnchecked)) + +-- | +getPriorityUnsafe :: (MonadDOM m, HasCallStack) => AriaNotificationOptions -> m AriaNotifyPriority +getPriorityUnsafe self = liftDOM ((((js_getPriority (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getPriorityUnchecked :: (MonadDOM m) => AriaNotificationOptions -> m AriaNotifyPriority +getPriorityUnchecked self = liftDOM ((pFromJSVal <$> (js_getPriority (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/AssignedNodesOptions.hs b/src/GHCJS/DOM/JSFFI/Generated/AssignedNodesOptions.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/AssignedNodesOptions.hs @@ -0,0 +1,39 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from html (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.AssignedNodesOptions + (js_newAssignedNodesOptions, js_setFlatten, js_getFlatten, newAssignedNodesOptions, setFlatten, getFlatten, getFlattenUnsafe, getFlattenUnchecked, AssignedNodesOptions(..), gTypeAssignedNodesOptions) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(() => { return ({}); })" + js_newAssignedNodesOptions :: IO AssignedNodesOptions +-- | +newAssignedNodesOptions :: (MonadDOM m) => m AssignedNodesOptions +newAssignedNodesOptions = liftDOM ((js_newAssignedNodesOptions)) + +foreign import javascript safe "(($1, $2) => { $1[\"flatten\"] = $2; })" + js_setFlatten :: AssignedNodesOptions -> Bool -> IO () +setFlatten :: (MonadDOM m) => AssignedNodesOptions -> Bool -> m () +setFlatten self val = liftDOM (void ((js_setFlatten (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"flatten\"]; })" + js_getFlatten :: AssignedNodesOptions -> IO JSVal +getFlatten :: (MonadDOM m) => AssignedNodesOptions -> m (Maybe Bool) +getFlatten self = liftDOM (((js_getFlatten (self)) >>= fromJSValUnchecked)) + +getFlattenUnsafe :: (MonadDOM m, HasCallStack) => AssignedNodesOptions -> m Bool +getFlattenUnsafe self = liftDOM ((((js_getFlatten (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +getFlattenUnchecked :: (MonadDOM m) => AssignedNodesOptions -> m Bool +getFlattenUnchecked self = liftDOM ((pFromJSVal <$> (js_getFlatten (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/Attr.hs b/src/GHCJS/DOM/JSFFI/Generated/Attr.hs --- a/src/GHCJS/DOM/JSFFI/Generated/Attr.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/Attr.hs @@ -1,136 +1,89 @@ {-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE JavaScriptFFI #-} --- For HasCallStack compatibility +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from dom (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.Attr - (js_getNamespaceURI, getNamespaceURI, getNamespaceURIUnsafe, - getNamespaceURIUnchecked, js_getPrefix, getPrefix, getPrefixUnsafe, - getPrefixUnchecked, js_getLocalName, getLocalName, js_getName, - getName, js_setValue, setValue, js_getValue, getValue, - js_getOwnerElement, getOwnerElement, getOwnerElementUnsafe, - getOwnerElementUnchecked, js_getSpecified, getSpecified, Attr(..), - gTypeAttr) + (js_getNamespaceURI, js_getPrefix, js_getLocalName, js_getName, js_setValue, js_getValue, js_getOwnerElement, js_getSpecified, getNamespaceURI, getNamespaceURIUnsafe, getNamespaceURIUnchecked, getPrefix, getPrefixUnsafe, getPrefixUnchecked, getLocalName, getName, setValue, getValue, getOwnerElement, getOwnerElementUnsafe, getOwnerElementUnchecked, getSpecified, Attr(..), gTypeAttr) where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull, jsUndefined) -import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import Data.Maybe (fromJust) -import Data.Traversable (mapM) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types -import Control.Applicative ((<$>)) +import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums - + foreign import javascript unsafe "(($1) => { return $1[\"namespaceURI\"]; })" - js_getNamespaceURI :: Attr -> IO (Nullable JSString) + js_getNamespaceURI :: Attr -> IO JSVal +-- | +getNamespaceURI :: (MonadDOM m, FromJSString result) => Attr -> m (Maybe result) +getNamespaceURI self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getNamespaceURI (self)))) --- | -getNamespaceURI :: - (MonadIO m, FromJSString result) => Attr -> m (Maybe result) -getNamespaceURI self - = liftIO (fromMaybeJSString <$> (js_getNamespaceURI self)) +-- | +getNamespaceURIUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => Attr -> m result +getNamespaceURIUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getNamespaceURI (self))) >>= P.maybe (P.error "Nothing to return") P.return)) --- | -getNamespaceURIUnsafe :: - (MonadIO m, HasCallStack, FromJSString result) => Attr -> m result -getNamespaceURIUnsafe self - = liftIO - ((fromMaybeJSString <$> (js_getNamespaceURI self)) >>= - maybe (Prelude.error "Nothing to return") return) +-- | +getNamespaceURIUnchecked :: (MonadDOM m, FromJSString result) => Attr -> m result +getNamespaceURIUnchecked self = liftDOM ((pFromJSVal <$> (js_getNamespaceURI (self)))) --- | -getNamespaceURIUnchecked :: - (MonadIO m, FromJSString result) => Attr -> m result -getNamespaceURIUnchecked self - = liftIO - (fromJust . fromMaybeJSString <$> (js_getNamespaceURI self)) - -foreign import javascript unsafe "(($1) => { return $1[\"prefix\"]; })" js_getPrefix :: - Attr -> IO (Nullable JSString) +foreign import javascript unsafe "(($1) => { return $1[\"prefix\"]; })" + js_getPrefix :: Attr -> IO JSVal +-- | +getPrefix :: (MonadDOM m, FromJSString result) => Attr -> m (Maybe result) +getPrefix self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getPrefix (self)))) --- | -getPrefix :: - (MonadIO m, FromJSString result) => Attr -> m (Maybe result) -getPrefix self = liftIO (fromMaybeJSString <$> (js_getPrefix self)) +-- | +getPrefixUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => Attr -> m result +getPrefixUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getPrefix (self))) >>= P.maybe (P.error "Nothing to return") P.return)) --- | -getPrefixUnsafe :: - (MonadIO m, HasCallStack, FromJSString result) => Attr -> m result -getPrefixUnsafe self - = liftIO - ((fromMaybeJSString <$> (js_getPrefix self)) >>= - maybe (Prelude.error "Nothing to return") return) +-- | +getPrefixUnchecked :: (MonadDOM m, FromJSString result) => Attr -> m result +getPrefixUnchecked self = liftDOM ((pFromJSVal <$> (js_getPrefix (self)))) --- | -getPrefixUnchecked :: - (MonadIO m, FromJSString result) => Attr -> m result -getPrefixUnchecked self - = liftIO (fromJust . fromMaybeJSString <$> (js_getPrefix self)) - foreign import javascript unsafe "(($1) => { return $1[\"localName\"]; })" js_getLocalName :: Attr -> IO JSString +-- | +getLocalName :: (MonadDOM m, FromJSString result) => Attr -> m result +getLocalName self = liftDOM ((fromJSString <$> (js_getLocalName (self)))) --- | -getLocalName :: - (MonadIO m, FromJSString result) => Attr -> m result -getLocalName self - = liftIO (fromJSString <$> (js_getLocalName self)) - -foreign import javascript unsafe "(($1) => { return $1[\"name\"]; })" js_getName :: - Attr -> IO JSString +foreign import javascript unsafe "(($1) => { return $1[\"name\"]; })" + js_getName :: Attr -> IO JSString +-- | +getName :: (MonadDOM m, FromJSString result) => Attr -> m result +getName self = liftDOM ((fromJSString <$> (js_getName (self)))) --- | -getName :: (MonadIO m, FromJSString result) => Attr -> m result -getName self = liftIO (fromJSString <$> (js_getName self)) - -foreign import javascript unsafe "(($1, $2) => { $1[\"value\"] = $2; })" js_setValue - :: Attr -> JSString -> IO () +foreign import javascript safe "(($1, $2) => { $1[\"value\"] = $2; })" + js_setValue :: Attr -> JSString -> IO () +-- | +setValue :: (MonadDOM m, ToJSString val) => Attr -> val -> m () +setValue self val = liftDOM (void ((js_setValue (self) (toJSString val)))) --- | -setValue :: (MonadIO m, ToJSString val) => Attr -> val -> m () -setValue self val = liftIO (js_setValue self (toJSString val)) - -foreign import javascript unsafe "(($1) => { return $1[\"value\"]; })" js_getValue :: - Attr -> IO JSString +foreign import javascript unsafe "(($1) => { return $1[\"value\"]; })" + js_getValue :: Attr -> IO JSString +-- | +getValue :: (MonadDOM m, FromJSString result) => Attr -> m result +getValue self = liftDOM ((fromJSString <$> (js_getValue (self)))) --- | -getValue :: (MonadIO m, FromJSString result) => Attr -> m result -getValue self = liftIO (fromJSString <$> (js_getValue self)) - foreign import javascript unsafe "(($1) => { return $1[\"ownerElement\"]; })" - js_getOwnerElement :: Attr -> IO (Nullable Element) + js_getOwnerElement :: Attr -> IO JSVal +-- | +getOwnerElement :: (MonadDOM m) => Attr -> m (Maybe Element) +getOwnerElement self = liftDOM (((js_getOwnerElement (self)) >>= fromJSValUnchecked)) --- | -getOwnerElement :: (MonadIO m) => Attr -> m (Maybe Element) -getOwnerElement self - = liftIO (nullableToMaybe <$> (js_getOwnerElement self)) +-- | +getOwnerElementUnsafe :: (MonadDOM m, HasCallStack) => Attr -> m Element +getOwnerElementUnsafe self = liftDOM ((((js_getOwnerElement (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) --- | -getOwnerElementUnsafe :: - (MonadIO m, HasCallStack) => Attr -> m Element -getOwnerElementUnsafe self - = liftIO - ((nullableToMaybe <$> (js_getOwnerElement self)) >>= - maybe (Prelude.error "Nothing to return") return) +-- | +getOwnerElementUnchecked :: (MonadDOM m) => Attr -> m Element +getOwnerElementUnchecked self = liftDOM ((pFromJSVal <$> (js_getOwnerElement (self)))) --- | -getOwnerElementUnchecked :: (MonadIO m) => Attr -> m Element -getOwnerElementUnchecked self - = liftIO (fromJust . nullableToMaybe <$> (js_getOwnerElement self)) - -foreign import javascript unsafe "(($1) => { return ($1[\"specified\"] ? 1 : 0); })" +foreign import javascript unsafe "(($1) => { return $1[\"specified\"]; })" js_getSpecified :: Attr -> IO Bool - --- | -getSpecified :: (MonadIO m) => Attr -> m Bool -getSpecified self = liftIO (js_getSpecified self) +-- | +getSpecified :: (MonadDOM m) => Attr -> m Bool +getSpecified self = liftDOM ((js_getSpecified (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/AudioBuffer.hs b/src/GHCJS/DOM/JSFFI/Generated/AudioBuffer.hs --- a/src/GHCJS/DOM/JSFFI/Generated/AudioBuffer.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/AudioBuffer.hs @@ -1,86 +1,69 @@ {-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE JavaScriptFFI #-} --- For HasCallStack compatibility +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from webaudio-1.1 (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.AudioBuffer - (js_getChannelData, getChannelData, getChannelData_, js_getLength, - getLength, js_getDuration, getDuration, js_getSampleRate, - getSampleRate, js_setGain, setGain, js_getGain, getGain, - js_getNumberOfChannels, getNumberOfChannels, AudioBuffer(..), - gTypeAudioBuffer) + (js_newAudioBuffer, js_copyFromChannel, js_copyToChannel, js_getChannelData, js_getSampleRate, js_getLength, js_getDuration, js_getNumberOfChannels, newAudioBuffer, copyFromChannel, copyToChannel, getChannelData, getChannelData_, getSampleRate, getLength, getDuration, getNumberOfChannels, AudioBuffer(..), gTypeAudioBuffer) where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull, jsUndefined) -import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import Data.Maybe (fromJust) -import Data.Traversable (mapM) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types -import Control.Applicative ((<$>)) +import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums - -foreign import javascript safe "(($1, $2) => { return $1[\"getChannelData\"]($2); })" - js_getChannelData :: AudioBuffer -> Word -> IO Float32Array --- | -getChannelData :: - (MonadIO m) => AudioBuffer -> Word -> m Float32Array -getChannelData self channelIndex - = liftIO (js_getChannelData self channelIndex) +foreign import javascript safe "(($1) => { return new globalThis[\"AudioBuffer\"]($1); })" + js_newAudioBuffer :: AudioBufferOptions -> IO AudioBuffer +-- | +newAudioBuffer :: (MonadDOM m) => AudioBufferOptions -> m AudioBuffer +newAudioBuffer options = liftDOM ((js_newAudioBuffer (options))) --- | -getChannelData_ :: (MonadIO m) => AudioBuffer -> Word -> m () -getChannelData_ self channelIndex - = liftIO (void (js_getChannelData self channelIndex)) - -foreign import javascript unsafe "(($1) => { return $1[\"length\"]; })" js_getLength :: - AudioBuffer -> IO Int +foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"copyFromChannel\"]($2, $3, $4); })" + js_copyFromChannel :: AudioBuffer -> Float32Array -> Word -> JSVal -> IO () +-- | +copyFromChannel :: (MonadDOM m, IsFloat32Array destination) => AudioBuffer -> destination -> Word -> Maybe Word -> m () +copyFromChannel self destination channelNumber bufferOffset = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal bufferOffset) >>= \a4' -> js_copyFromChannel (self) (Types.toFloat32Array destination) (channelNumber) a4'))) --- | -getLength :: (MonadIO m) => AudioBuffer -> m Int -getLength self = liftIO (js_getLength self) - -foreign import javascript unsafe "(($1) => { return $1[\"duration\"]; })" js_getDuration - :: AudioBuffer -> IO Float +foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"copyToChannel\"]($2, $3, $4); })" + js_copyToChannel :: AudioBuffer -> Float32Array -> Word -> JSVal -> IO () +-- | +copyToChannel :: (MonadDOM m, IsFloat32Array source) => AudioBuffer -> source -> Word -> Maybe Word -> m () +copyToChannel self source channelNumber bufferOffset = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal bufferOffset) >>= \a4' -> js_copyToChannel (self) (Types.toFloat32Array source) (channelNumber) a4'))) --- | -getDuration :: (MonadIO m) => AudioBuffer -> m Float -getDuration self = liftIO (js_getDuration self) - +foreign import javascript safe "(($1, $2) => { return $1[\"getChannelData\"]($2); })" + js_getChannelData :: AudioBuffer -> Word -> IO Float32Array +-- | +getChannelData :: (MonadDOM m) => AudioBuffer -> Word -> m Float32Array +getChannelData self channel = liftDOM ((js_getChannelData (self) (channel))) + +-- | +getChannelData_ :: (MonadDOM m) => AudioBuffer -> Word -> m () +getChannelData_ self channel = liftDOM (void ((js_getChannelData (self) (channel)))) + foreign import javascript unsafe "(($1) => { return $1[\"sampleRate\"]; })" js_getSampleRate :: AudioBuffer -> IO Float +-- | +getSampleRate :: (MonadDOM m) => AudioBuffer -> m Float +getSampleRate self = liftDOM ((js_getSampleRate (self))) --- | -getSampleRate :: (MonadIO m) => AudioBuffer -> m Float -getSampleRate self = liftIO (js_getSampleRate self) - -foreign import javascript unsafe "(($1, $2) => { $1[\"gain\"] = $2; })" js_setGain :: - AudioBuffer -> Float -> IO () +foreign import javascript unsafe "(($1) => { return $1[\"length\"]; })" + js_getLength :: AudioBuffer -> IO Word +-- | +getLength :: (MonadDOM m) => AudioBuffer -> m Word +getLength self = liftDOM ((js_getLength (self))) --- | -setGain :: (MonadIO m) => AudioBuffer -> Float -> m () -setGain self val = liftIO (js_setGain self val) - -foreign import javascript unsafe "(($1) => { return $1[\"gain\"]; })" js_getGain :: - AudioBuffer -> IO Float +foreign import javascript unsafe "(($1) => { return $1[\"duration\"]; })" + js_getDuration :: AudioBuffer -> IO Double +-- | +getDuration :: (MonadDOM m) => AudioBuffer -> m Double +getDuration self = liftDOM ((js_getDuration (self))) --- | -getGain :: (MonadIO m) => AudioBuffer -> m Float -getGain self = liftIO (js_getGain self) - foreign import javascript unsafe "(($1) => { return $1[\"numberOfChannels\"]; })" js_getNumberOfChannels :: AudioBuffer -> IO Word - --- | -getNumberOfChannels :: (MonadIO m) => AudioBuffer -> m Word -getNumberOfChannels self = liftIO (js_getNumberOfChannels self) +-- | +getNumberOfChannels :: (MonadDOM m) => AudioBuffer -> m Word +getNumberOfChannels self = liftDOM ((js_getNumberOfChannels (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/AudioBufferCallback.hs b/src/GHCJS/DOM/JSFFI/Generated/AudioBufferCallback.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/AudioBufferCallback.hs +++ /dev/null @@ -1,60 +0,0 @@ -{-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE JavaScriptFFI #-} --- For HasCallStack compatibility -{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} -module GHCJS.DOM.JSFFI.Generated.AudioBufferCallback - (newAudioBufferCallback, newAudioBufferCallbackSync, - newAudioBufferCallbackAsync, AudioBufferCallback) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull, jsUndefined) -import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import Data.Maybe (fromJust) -import Data.Traversable (mapM) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) -import GHCJS.DOM.JSFFI.Generated.Enums - --- | -newAudioBufferCallback :: - (MonadIO m) => (AudioBuffer -> IO ()) -> m AudioBufferCallback -newAudioBufferCallback callback - = liftIO - (AudioBufferCallback <$> - syncCallback1 ThrowWouldBlock - (\ audioBuffer -> - fromJSValUnchecked audioBuffer >>= - \ audioBuffer' -> callback audioBuffer')) - --- | -newAudioBufferCallbackSync :: - (MonadIO m) => (AudioBuffer -> IO ()) -> m AudioBufferCallback -newAudioBufferCallbackSync callback - = liftIO - (AudioBufferCallback <$> - syncCallback1 ContinueAsync - (\ audioBuffer -> - fromJSValUnchecked audioBuffer >>= - \ audioBuffer' -> callback audioBuffer')) - --- | -newAudioBufferCallbackAsync :: - (MonadIO m) => (AudioBuffer -> IO ()) -> m AudioBufferCallback -newAudioBufferCallbackAsync callback - = liftIO - (AudioBufferCallback <$> - asyncCallback1 - (\ audioBuffer -> - fromJSValUnchecked audioBuffer >>= - \ audioBuffer' -> callback audioBuffer')) diff --git a/src/GHCJS/DOM/JSFFI/Generated/AudioBufferOptions.hs b/src/GHCJS/DOM/JSFFI/Generated/AudioBufferOptions.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/AudioBufferOptions.hs @@ -0,0 +1,67 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from webaudio-1.1 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.AudioBufferOptions + (js_newAudioBufferOptions, js_setNumberOfChannels, js_getNumberOfChannels, js_setLength, js_getLength, js_setSampleRate, js_getSampleRate, newAudioBufferOptions, setNumberOfChannels, getNumberOfChannels, getNumberOfChannelsUnsafe, getNumberOfChannelsUnchecked, setLength, getLength, setSampleRate, getSampleRate, AudioBufferOptions(..), gTypeAudioBufferOptions) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1, $2) => { return ({\"length\": $1, \"sampleRate\": $2}); })" + js_newAudioBufferOptions :: Word -> Float -> IO AudioBufferOptions +-- | +newAudioBufferOptions :: (MonadDOM m) => Word -> Float -> m AudioBufferOptions +newAudioBufferOptions length sampleRate = liftDOM ((js_newAudioBufferOptions (length) (sampleRate))) + +foreign import javascript safe "(($1, $2) => { $1[\"numberOfChannels\"] = $2; })" + js_setNumberOfChannels :: AudioBufferOptions -> Word -> IO () +-- | +setNumberOfChannels :: (MonadDOM m) => AudioBufferOptions -> Word -> m () +setNumberOfChannels self val = liftDOM (void ((js_setNumberOfChannels (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"numberOfChannels\"]; })" + js_getNumberOfChannels :: AudioBufferOptions -> IO JSVal +-- | +getNumberOfChannels :: (MonadDOM m) => AudioBufferOptions -> m (Maybe Word) +getNumberOfChannels self = liftDOM (((js_getNumberOfChannels (self)) >>= fromJSValUnchecked)) + +-- | +getNumberOfChannelsUnsafe :: (MonadDOM m, HasCallStack) => AudioBufferOptions -> m Word +getNumberOfChannelsUnsafe self = liftDOM ((((js_getNumberOfChannels (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getNumberOfChannelsUnchecked :: (MonadDOM m) => AudioBufferOptions -> m Word +getNumberOfChannelsUnchecked self = liftDOM ((pFromJSVal <$> (js_getNumberOfChannels (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"length\"] = $2; })" + js_setLength :: AudioBufferOptions -> Word -> IO () +-- | +setLength :: (MonadDOM m) => AudioBufferOptions -> Word -> m () +setLength self val = liftDOM (void ((js_setLength (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"length\"]; })" + js_getLength :: AudioBufferOptions -> IO Word +-- | +getLength :: (MonadDOM m) => AudioBufferOptions -> m Word +getLength self = liftDOM ((js_getLength (self))) + +foreign import javascript safe "(($1, $2) => { $1[\"sampleRate\"] = $2; })" + js_setSampleRate :: AudioBufferOptions -> Float -> IO () +-- | +setSampleRate :: (MonadDOM m) => AudioBufferOptions -> Float -> m () +setSampleRate self val = liftDOM (void ((js_setSampleRate (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"sampleRate\"]; })" + js_getSampleRate :: AudioBufferOptions -> IO Float +-- | +getSampleRate :: (MonadDOM m) => AudioBufferOptions -> m Float +getSampleRate self = liftDOM ((js_getSampleRate (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/AudioBufferSourceNode.hs b/src/GHCJS/DOM/JSFFI/Generated/AudioBufferSourceNode.hs --- a/src/GHCJS/DOM/JSFFI/Generated/AudioBufferSourceNode.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/AudioBufferSourceNode.hs @@ -1,164 +1,97 @@ {-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE JavaScriptFFI #-} --- For HasCallStack compatibility +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from webaudio-1.1 (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.AudioBufferSourceNode - (js_start, start, js_stop, stop, pattern UNSCHEDULED_STATE, - pattern SCHEDULED_STATE, pattern PLAYING_STATE, - pattern FINISHED_STATE, js_setBuffer, setBuffer, js_getBuffer, - getBuffer, getBufferUnsafe, getBufferUnchecked, - js_getPlaybackState, getPlaybackState, js_getGain, getGain, - js_getPlaybackRate, getPlaybackRate, js_setLoop, setLoop, - js_getLoop, getLoop, js_setLoopStart, setLoopStart, - js_getLoopStart, getLoopStart, js_setLoopEnd, setLoopEnd, - js_getLoopEnd, getLoopEnd, ended, AudioBufferSourceNode(..), - gTypeAudioBufferSourceNode) + (js_newAudioBufferSourceNode, js_start, js_setBuffer, js_getBuffer, js_getPlaybackRate, js_getDetune, js_setLoop, js_getLoop, js_setLoopStart, js_getLoopStart, js_setLoopEnd, js_getLoopEnd, newAudioBufferSourceNode, start, setBuffer, getBuffer, getBufferUnsafe, getBufferUnchecked, getPlaybackRate, getDetune, setLoop, getLoop, setLoopStart, getLoopStart, setLoopEnd, getLoopEnd, AudioBufferSourceNode(..), gTypeAudioBufferSourceNode) where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull, jsUndefined) -import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import Data.Maybe (fromJust) -import Data.Traversable (mapM) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types -import Control.Applicative ((<$>)) +import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums - -foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"start\"]($2, $3, $4); })" js_start - :: - AudioBufferSourceNode -> - Optional Double -> Optional Double -> Optional Double -> IO () --- | -start :: - (MonadIO m) => - AudioBufferSourceNode -> - Maybe Double -> Maybe Double -> Maybe Double -> m () -start self when grainOffset grainDuration - = liftIO - (js_start self (maybeToOptional when) (maybeToOptional grainOffset) - (maybeToOptional grainDuration)) - -foreign import javascript safe "(($1, $2) => { return $1[\"stop\"]($2); })" js_stop :: - AudioBufferSourceNode -> Optional Double -> IO () - --- | -stop :: - (MonadIO m) => AudioBufferSourceNode -> Maybe Double -> m () -stop self when = liftIO (js_stop self (maybeToOptional when)) -pattern UNSCHEDULED_STATE = 0 -pattern SCHEDULED_STATE = 1 -pattern PLAYING_STATE = 2 -pattern FINISHED_STATE = 3 - -foreign import javascript unsafe "(($1, $2) => { $1[\"buffer\"] = $2; })" - js_setBuffer :: - AudioBufferSourceNode -> Optional AudioBuffer -> IO () +foreign import javascript safe "(($1, $2) => { return new globalThis[\"AudioBufferSourceNode\"]($1, $2); })" + js_newAudioBufferSourceNode :: BaseAudioContext -> JSVal -> IO AudioBufferSourceNode +-- | +newAudioBufferSourceNode :: (MonadDOM m, IsBaseAudioContext context) => context -> Maybe AudioBufferSourceOptions -> m AudioBufferSourceNode +newAudioBufferSourceNode context options = liftDOM (((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_newAudioBufferSourceNode (Types.toBaseAudioContext context) a2')) --- | -setBuffer :: - (MonadIO m) => AudioBufferSourceNode -> Maybe AudioBuffer -> m () -setBuffer self val - = liftIO (js_setBuffer self (maybeToOptional val)) - -foreign import javascript unsafe "(($1) => { return $1[\"buffer\"]; })" js_getBuffer :: - AudioBufferSourceNode -> IO (Nullable AudioBuffer) +foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"start\"]($2, $3, $4); })" + js_start :: AudioBufferSourceNode -> JSVal -> JSVal -> JSVal -> IO () +-- | +start :: (MonadDOM m) => AudioBufferSourceNode -> Maybe Double -> Maybe Double -> Maybe Double -> m () +start self when offset duration = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal when) >>= \a2' -> (P.maybe (P.return jsUndefined) toJSVal offset) >>= \a3' -> (P.maybe (P.return jsUndefined) toJSVal duration) >>= \a4' -> js_start (self) a2' a3' a4'))) --- | -getBuffer :: - (MonadIO m) => AudioBufferSourceNode -> m (Maybe AudioBuffer) -getBuffer self = liftIO (nullableToMaybe <$> (js_getBuffer self)) +foreign import javascript safe "(($1, $2) => { $1[\"buffer\"] = $2; })" + js_setBuffer :: AudioBufferSourceNode -> JSVal -> IO () +-- | +setBuffer :: (MonadDOM m) => AudioBufferSourceNode -> Maybe AudioBuffer -> m () +setBuffer self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setBuffer (self) a2'))) --- | -getBufferUnsafe :: - (MonadIO m, HasCallStack) => AudioBufferSourceNode -> m AudioBuffer -getBufferUnsafe self - = liftIO - ((nullableToMaybe <$> (js_getBuffer self)) >>= - maybe (Prelude.error "Nothing to return") return) +foreign import javascript unsafe "(($1) => { return $1[\"buffer\"]; })" + js_getBuffer :: AudioBufferSourceNode -> IO JSVal +-- | +getBuffer :: (MonadDOM m) => AudioBufferSourceNode -> m (Maybe AudioBuffer) +getBuffer self = liftDOM (((js_getBuffer (self)) >>= fromJSValUnchecked)) --- | -getBufferUnchecked :: - (MonadIO m) => AudioBufferSourceNode -> m AudioBuffer -getBufferUnchecked self - = liftIO (fromJust . nullableToMaybe <$> (js_getBuffer self)) - -foreign import javascript unsafe "(($1) => { return $1[\"playbackState\"]; })" - js_getPlaybackState :: AudioBufferSourceNode -> IO Word +-- | +getBufferUnsafe :: (MonadDOM m, HasCallStack) => AudioBufferSourceNode -> m AudioBuffer +getBufferUnsafe self = liftDOM ((((js_getBuffer (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) --- | -getPlaybackState :: (MonadIO m) => AudioBufferSourceNode -> m Word -getPlaybackState self = liftIO (js_getPlaybackState self) - -foreign import javascript unsafe "(($1) => { return $1[\"gain\"]; })" js_getGain :: - AudioBufferSourceNode -> IO AudioParam +-- | +getBufferUnchecked :: (MonadDOM m) => AudioBufferSourceNode -> m AudioBuffer +getBufferUnchecked self = liftDOM ((pFromJSVal <$> (js_getBuffer (self)))) --- | -getGain :: (MonadIO m) => AudioBufferSourceNode -> m AudioParam -getGain self = liftIO (js_getGain self) - foreign import javascript unsafe "(($1) => { return $1[\"playbackRate\"]; })" js_getPlaybackRate :: AudioBufferSourceNode -> IO AudioParam +-- | +getPlaybackRate :: (MonadDOM m) => AudioBufferSourceNode -> m AudioParam +getPlaybackRate self = liftDOM ((js_getPlaybackRate (self))) --- | -getPlaybackRate :: - (MonadIO m) => AudioBufferSourceNode -> m AudioParam -getPlaybackRate self = liftIO (js_getPlaybackRate self) - -foreign import javascript unsafe "(($1, $2) => { $1[\"loop\"] = $2; })" js_setLoop :: - AudioBufferSourceNode -> Bool -> IO () +foreign import javascript unsafe "(($1) => { return $1[\"detune\"]; })" + js_getDetune :: AudioBufferSourceNode -> IO AudioParam +-- | +getDetune :: (MonadDOM m) => AudioBufferSourceNode -> m AudioParam +getDetune self = liftDOM ((js_getDetune (self))) --- | -setLoop :: (MonadIO m) => AudioBufferSourceNode -> Bool -> m () -setLoop self val = liftIO (js_setLoop self val) - -foreign import javascript unsafe "(($1) => { return ($1[\"loop\"] ? 1 : 0); })" +foreign import javascript safe "(($1, $2) => { $1[\"loop\"] = $2; })" + js_setLoop :: AudioBufferSourceNode -> Bool -> IO () +-- | +setLoop :: (MonadDOM m) => AudioBufferSourceNode -> Bool -> m () +setLoop self val = liftDOM (void ((js_setLoop (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"loop\"]; })" js_getLoop :: AudioBufferSourceNode -> IO Bool +-- | +getLoop :: (MonadDOM m) => AudioBufferSourceNode -> m Bool +getLoop self = liftDOM ((js_getLoop (self))) --- | -getLoop :: (MonadIO m) => AudioBufferSourceNode -> m Bool -getLoop self = liftIO (js_getLoop self) - -foreign import javascript unsafe "(($1, $2) => { $1[\"loopStart\"] = $2; })" +foreign import javascript safe "(($1, $2) => { $1[\"loopStart\"] = $2; })" js_setLoopStart :: AudioBufferSourceNode -> Double -> IO () +-- | +setLoopStart :: (MonadDOM m) => AudioBufferSourceNode -> Double -> m () +setLoopStart self val = liftDOM (void ((js_setLoopStart (self) (val)))) --- | -setLoopStart :: - (MonadIO m) => AudioBufferSourceNode -> Double -> m () -setLoopStart self val = liftIO (js_setLoopStart self val) - foreign import javascript unsafe "(($1) => { return $1[\"loopStart\"]; })" js_getLoopStart :: AudioBufferSourceNode -> IO Double +-- | +getLoopStart :: (MonadDOM m) => AudioBufferSourceNode -> m Double +getLoopStart self = liftDOM ((js_getLoopStart (self))) --- | -getLoopStart :: (MonadIO m) => AudioBufferSourceNode -> m Double -getLoopStart self = liftIO (js_getLoopStart self) - -foreign import javascript unsafe "(($1, $2) => { $1[\"loopEnd\"] = $2; })" +foreign import javascript safe "(($1, $2) => { $1[\"loopEnd\"] = $2; })" js_setLoopEnd :: AudioBufferSourceNode -> Double -> IO () - --- | -setLoopEnd :: - (MonadIO m) => AudioBufferSourceNode -> Double -> m () -setLoopEnd self val = liftIO (js_setLoopEnd self val) - -foreign import javascript unsafe "(($1) => { return $1[\"loopEnd\"]; })" js_getLoopEnd :: - AudioBufferSourceNode -> IO Double - --- | -getLoopEnd :: (MonadIO m) => AudioBufferSourceNode -> m Double -getLoopEnd self = liftIO (js_getLoopEnd self) +-- | +setLoopEnd :: (MonadDOM m) => AudioBufferSourceNode -> Double -> m () +setLoopEnd self val = liftDOM (void ((js_setLoopEnd (self) (val)))) --- | -ended :: EventName AudioBufferSourceNode Event -ended = unsafeEventName (toJSString "ended") +foreign import javascript unsafe "(($1) => { return $1[\"loopEnd\"]; })" + js_getLoopEnd :: AudioBufferSourceNode -> IO Double +-- | +getLoopEnd :: (MonadDOM m) => AudioBufferSourceNode -> m Double +getLoopEnd self = liftDOM ((js_getLoopEnd (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/AudioBufferSourceOptions.hs b/src/GHCJS/DOM/JSFFI/Generated/AudioBufferSourceOptions.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/AudioBufferSourceOptions.hs @@ -0,0 +1,143 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from webaudio-1.1 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.AudioBufferSourceOptions + (js_newAudioBufferSourceOptions, js_setBuffer, js_getBuffer, js_setDetune, js_getDetune, js_setLoop, js_getLoop, js_setLoopEnd, js_getLoopEnd, js_setLoopStart, js_getLoopStart, js_setPlaybackRate, js_getPlaybackRate, newAudioBufferSourceOptions, setBuffer, getBuffer, getBufferUnsafe, getBufferUnchecked, setDetune, getDetune, getDetuneUnsafe, getDetuneUnchecked, setLoop, getLoop, getLoopUnsafe, getLoopUnchecked, setLoopEnd, getLoopEnd, getLoopEndUnsafe, getLoopEndUnchecked, setLoopStart, getLoopStart, getLoopStartUnsafe, getLoopStartUnchecked, setPlaybackRate, getPlaybackRate, getPlaybackRateUnsafe, getPlaybackRateUnchecked, AudioBufferSourceOptions(..), gTypeAudioBufferSourceOptions) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(() => { return ({}); })" + js_newAudioBufferSourceOptions :: IO AudioBufferSourceOptions +-- | +newAudioBufferSourceOptions :: (MonadDOM m) => m AudioBufferSourceOptions +newAudioBufferSourceOptions = liftDOM ((js_newAudioBufferSourceOptions)) + +foreign import javascript safe "(($1, $2) => { $1[\"buffer\"] = $2; })" + js_setBuffer :: AudioBufferSourceOptions -> JSVal -> IO () +-- | +setBuffer :: (MonadDOM m) => AudioBufferSourceOptions -> Maybe AudioBuffer -> m () +setBuffer self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setBuffer (self) a2'))) + +foreign import javascript unsafe "(($1) => { return $1[\"buffer\"]; })" + js_getBuffer :: AudioBufferSourceOptions -> IO JSVal +-- | +getBuffer :: (MonadDOM m) => AudioBufferSourceOptions -> m (Maybe AudioBuffer) +getBuffer self = liftDOM (((js_getBuffer (self)) >>= fromJSValUnchecked)) + +-- | +getBufferUnsafe :: (MonadDOM m, HasCallStack) => AudioBufferSourceOptions -> m AudioBuffer +getBufferUnsafe self = liftDOM ((((js_getBuffer (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getBufferUnchecked :: (MonadDOM m) => AudioBufferSourceOptions -> m AudioBuffer +getBufferUnchecked self = liftDOM ((pFromJSVal <$> (js_getBuffer (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"detune\"] = $2; })" + js_setDetune :: AudioBufferSourceOptions -> Float -> IO () +-- | +setDetune :: (MonadDOM m) => AudioBufferSourceOptions -> Float -> m () +setDetune self val = liftDOM (void ((js_setDetune (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"detune\"]; })" + js_getDetune :: AudioBufferSourceOptions -> IO JSVal +-- | +getDetune :: (MonadDOM m) => AudioBufferSourceOptions -> m (Maybe Float) +getDetune self = liftDOM (((js_getDetune (self)) >>= fromJSValUnchecked)) + +-- | +getDetuneUnsafe :: (MonadDOM m, HasCallStack) => AudioBufferSourceOptions -> m Float +getDetuneUnsafe self = liftDOM ((((js_getDetune (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getDetuneUnchecked :: (MonadDOM m) => AudioBufferSourceOptions -> m Float +getDetuneUnchecked self = liftDOM ((pFromJSVal <$> (js_getDetune (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"loop\"] = $2; })" + js_setLoop :: AudioBufferSourceOptions -> Bool -> IO () +-- | +setLoop :: (MonadDOM m) => AudioBufferSourceOptions -> Bool -> m () +setLoop self val = liftDOM (void ((js_setLoop (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"loop\"]; })" + js_getLoop :: AudioBufferSourceOptions -> IO JSVal +-- | +getLoop :: (MonadDOM m) => AudioBufferSourceOptions -> m (Maybe Bool) +getLoop self = liftDOM (((js_getLoop (self)) >>= fromJSValUnchecked)) + +-- | +getLoopUnsafe :: (MonadDOM m, HasCallStack) => AudioBufferSourceOptions -> m Bool +getLoopUnsafe self = liftDOM ((((js_getLoop (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getLoopUnchecked :: (MonadDOM m) => AudioBufferSourceOptions -> m Bool +getLoopUnchecked self = liftDOM ((pFromJSVal <$> (js_getLoop (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"loopEnd\"] = $2; })" + js_setLoopEnd :: AudioBufferSourceOptions -> Double -> IO () +-- | +setLoopEnd :: (MonadDOM m) => AudioBufferSourceOptions -> Double -> m () +setLoopEnd self val = liftDOM (void ((js_setLoopEnd (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"loopEnd\"]; })" + js_getLoopEnd :: AudioBufferSourceOptions -> IO JSVal +-- | +getLoopEnd :: (MonadDOM m) => AudioBufferSourceOptions -> m (Maybe Double) +getLoopEnd self = liftDOM (((js_getLoopEnd (self)) >>= fromJSValUnchecked)) + +-- | +getLoopEndUnsafe :: (MonadDOM m, HasCallStack) => AudioBufferSourceOptions -> m Double +getLoopEndUnsafe self = liftDOM ((((js_getLoopEnd (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getLoopEndUnchecked :: (MonadDOM m) => AudioBufferSourceOptions -> m Double +getLoopEndUnchecked self = liftDOM ((pFromJSVal <$> (js_getLoopEnd (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"loopStart\"] = $2; })" + js_setLoopStart :: AudioBufferSourceOptions -> Double -> IO () +-- | +setLoopStart :: (MonadDOM m) => AudioBufferSourceOptions -> Double -> m () +setLoopStart self val = liftDOM (void ((js_setLoopStart (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"loopStart\"]; })" + js_getLoopStart :: AudioBufferSourceOptions -> IO JSVal +-- | +getLoopStart :: (MonadDOM m) => AudioBufferSourceOptions -> m (Maybe Double) +getLoopStart self = liftDOM (((js_getLoopStart (self)) >>= fromJSValUnchecked)) + +-- | +getLoopStartUnsafe :: (MonadDOM m, HasCallStack) => AudioBufferSourceOptions -> m Double +getLoopStartUnsafe self = liftDOM ((((js_getLoopStart (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getLoopStartUnchecked :: (MonadDOM m) => AudioBufferSourceOptions -> m Double +getLoopStartUnchecked self = liftDOM ((pFromJSVal <$> (js_getLoopStart (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"playbackRate\"] = $2; })" + js_setPlaybackRate :: AudioBufferSourceOptions -> Float -> IO () +-- | +setPlaybackRate :: (MonadDOM m) => AudioBufferSourceOptions -> Float -> m () +setPlaybackRate self val = liftDOM (void ((js_setPlaybackRate (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"playbackRate\"]; })" + js_getPlaybackRate :: AudioBufferSourceOptions -> IO JSVal +-- | +getPlaybackRate :: (MonadDOM m) => AudioBufferSourceOptions -> m (Maybe Float) +getPlaybackRate self = liftDOM (((js_getPlaybackRate (self)) >>= fromJSValUnchecked)) + +-- | +getPlaybackRateUnsafe :: (MonadDOM m, HasCallStack) => AudioBufferSourceOptions -> m Float +getPlaybackRateUnsafe self = liftDOM ((((js_getPlaybackRate (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getPlaybackRateUnchecked :: (MonadDOM m) => AudioBufferSourceOptions -> m Float +getPlaybackRateUnchecked self = liftDOM ((pFromJSVal <$> (js_getPlaybackRate (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/AudioConfiguration.hs b/src/GHCJS/DOM/JSFFI/Generated/AudioConfiguration.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/AudioConfiguration.hs @@ -0,0 +1,115 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from media-capabilities (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.AudioConfiguration + (js_newAudioConfiguration, js_setContentType, js_getContentType, js_setChannels, js_getChannels, js_setBitrate, js_getBitrate, js_setSamplerate, js_getSamplerate, js_setSpatialRendering, js_getSpatialRendering, newAudioConfiguration, setContentType, getContentType, setChannels, getChannels, getChannelsUnsafe, getChannelsUnchecked, setBitrate, getBitrate, getBitrateUnsafe, getBitrateUnchecked, setSamplerate, getSamplerate, getSamplerateUnsafe, getSamplerateUnchecked, setSpatialRendering, getSpatialRendering, getSpatialRenderingUnsafe, getSpatialRenderingUnchecked, AudioConfiguration(..), gTypeAudioConfiguration) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1) => { return ({\"contentType\": $1}); })" + js_newAudioConfiguration :: JSString -> IO AudioConfiguration +-- | +newAudioConfiguration :: (MonadDOM m, ToJSString contentType) => contentType -> m AudioConfiguration +newAudioConfiguration contentType = liftDOM ((js_newAudioConfiguration (toJSString contentType))) + +foreign import javascript safe "(($1, $2) => { $1[\"contentType\"] = $2; })" + js_setContentType :: AudioConfiguration -> JSString -> IO () +-- | +setContentType :: (MonadDOM m, ToJSString val) => AudioConfiguration -> val -> m () +setContentType self val = liftDOM (void ((js_setContentType (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"contentType\"]; })" + js_getContentType :: AudioConfiguration -> IO JSString +-- | +getContentType :: (MonadDOM m, FromJSString result) => AudioConfiguration -> m result +getContentType self = liftDOM ((fromJSString <$> (js_getContentType (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"channels\"] = $2; })" + js_setChannels :: AudioConfiguration -> JSString -> IO () +-- | +setChannels :: (MonadDOM m, ToJSString val) => AudioConfiguration -> val -> m () +setChannels self val = liftDOM (void ((js_setChannels (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"channels\"]; })" + js_getChannels :: AudioConfiguration -> IO JSVal +-- | +getChannels :: (MonadDOM m, FromJSString result) => AudioConfiguration -> m (Maybe result) +getChannels self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getChannels (self)))) + +-- | +getChannelsUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => AudioConfiguration -> m result +getChannelsUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getChannels (self))) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getChannelsUnchecked :: (MonadDOM m, FromJSString result) => AudioConfiguration -> m result +getChannelsUnchecked self = liftDOM ((pFromJSVal <$> (js_getChannels (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"bitrate\"] = $2; })" + js_setBitrate :: AudioConfiguration -> JSVal -> IO () +-- | +setBitrate :: (MonadDOM m) => AudioConfiguration -> Word53 -> m () +setBitrate self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setBitrate (self) a2'))) + +foreign import javascript unsafe "(($1) => { return $1[\"bitrate\"]; })" + js_getBitrate :: AudioConfiguration -> IO JSVal +-- | +getBitrate :: (MonadDOM m) => AudioConfiguration -> m (Maybe Word53) +getBitrate self = liftDOM (((js_getBitrate (self)) >>= fromJSValUnchecked)) + +-- | +getBitrateUnsafe :: (MonadDOM m, HasCallStack) => AudioConfiguration -> m Word53 +getBitrateUnsafe self = liftDOM ((((js_getBitrate (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getBitrateUnchecked :: (MonadDOM m) => AudioConfiguration -> m Word53 +getBitrateUnchecked self = liftDOM ((pFromJSVal <$> (js_getBitrate (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"samplerate\"] = $2; })" + js_setSamplerate :: AudioConfiguration -> Word -> IO () +-- | +setSamplerate :: (MonadDOM m) => AudioConfiguration -> Word -> m () +setSamplerate self val = liftDOM (void ((js_setSamplerate (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"samplerate\"]; })" + js_getSamplerate :: AudioConfiguration -> IO JSVal +-- | +getSamplerate :: (MonadDOM m) => AudioConfiguration -> m (Maybe Word) +getSamplerate self = liftDOM (((js_getSamplerate (self)) >>= fromJSValUnchecked)) + +-- | +getSamplerateUnsafe :: (MonadDOM m, HasCallStack) => AudioConfiguration -> m Word +getSamplerateUnsafe self = liftDOM ((((js_getSamplerate (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getSamplerateUnchecked :: (MonadDOM m) => AudioConfiguration -> m Word +getSamplerateUnchecked self = liftDOM ((pFromJSVal <$> (js_getSamplerate (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"spatialRendering\"] = $2; })" + js_setSpatialRendering :: AudioConfiguration -> Bool -> IO () +-- | +setSpatialRendering :: (MonadDOM m) => AudioConfiguration -> Bool -> m () +setSpatialRendering self val = liftDOM (void ((js_setSpatialRendering (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"spatialRendering\"]; })" + js_getSpatialRendering :: AudioConfiguration -> IO JSVal +-- | +getSpatialRendering :: (MonadDOM m) => AudioConfiguration -> m (Maybe Bool) +getSpatialRendering self = liftDOM (((js_getSpatialRendering (self)) >>= fromJSValUnchecked)) + +-- | +getSpatialRenderingUnsafe :: (MonadDOM m, HasCallStack) => AudioConfiguration -> m Bool +getSpatialRenderingUnsafe self = liftDOM ((((js_getSpatialRendering (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getSpatialRenderingUnchecked :: (MonadDOM m) => AudioConfiguration -> m Bool +getSpatialRenderingUnchecked self = liftDOM ((pFromJSVal <$> (js_getSpatialRendering (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/AudioContext.hs b/src/GHCJS/DOM/JSFFI/Generated/AudioContext.hs --- a/src/GHCJS/DOM/JSFFI/Generated/AudioContext.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/AudioContext.hs @@ -1,552 +1,99 @@ {-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE JavaScriptFFI #-} --- For HasCallStack compatibility +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from webaudio-1.1 (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.AudioContext - (js_newAudioContext, newAudioContext, js_suspend, suspend, - js_resume, resume, js_close, close, js_createBuffer, createBuffer, - createBuffer_, js_createBufferFromArrayBuffer, - createBufferFromArrayBuffer, createBufferFromArrayBuffer_, - js_decodeAudioData, decodeAudioData, js_createBufferSource, - createBufferSource, createBufferSource_, - js_createMediaElementSource, createMediaElementSource, - createMediaElementSource_, js_createMediaStreamSource, - createMediaStreamSource, createMediaStreamSource_, - js_createMediaStreamDestination, createMediaStreamDestination, - createMediaStreamDestination_, js_createGain, createGain, - createGain_, js_createDelay, createDelay, createDelay_, - js_createBiquadFilter, createBiquadFilter, createBiquadFilter_, - js_createWaveShaper, createWaveShaper, createWaveShaper_, - js_createPanner, createPanner, createPanner_, js_createConvolver, - createConvolver, createConvolver_, js_createDynamicsCompressor, - createDynamicsCompressor, createDynamicsCompressor_, - js_createAnalyser, createAnalyser, createAnalyser_, - js_createScriptProcessor, createScriptProcessor, - createScriptProcessor_, js_createOscillator, createOscillator, - createOscillator_, js_createPeriodicWave, createPeriodicWave, - createPeriodicWave_, js_createChannelSplitter, - createChannelSplitter, createChannelSplitter_, - js_createChannelMerger, createChannelMerger, createChannelMerger_, - js_startRendering, startRendering, js_getDestination, - getDestination, js_getCurrentTime, getCurrentTime, - js_getSampleRate, getSampleRate, js_getListener, getListener, - js_getState, getState, statechange, js_getActiveSourceCount, - getActiveSourceCount, complete, AudioContext(..), - gTypeAudioContext, IsAudioContext, toAudioContext) + (js_newAudioContext, js_newAudioContext', js_close, js_createMediaElementSource, js_createMediaStreamDestination, js_createMediaStreamSource, js_getOutputTimestamp, js_resume, js_suspend, js_getBaseLatency, js_getOutputLatency, newAudioContext, newAudioContext', close, createMediaElementSource, createMediaElementSource_, createMediaStreamDestination, createMediaStreamDestination_, createMediaStreamSource, createMediaStreamSource_, getOutputTimestamp, getOutputTimestamp_, resume, suspend, getBaseLatency, getOutputLatency, AudioContext(..), gTypeAudioContext) where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull, jsUndefined) -import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import Data.Maybe (fromJust) -import Data.Traversable (mapM) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types -import Control.Applicative ((<$>)) +import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums - -foreign import javascript unsafe - "(() => { return new (window[\"AudioContext\"]\n||\nwindow[\"webkitAudioContext\"])(); })" - js_newAudioContext :: IO AudioContext --- | -newAudioContext :: (MonadIO m) => m AudioContext -newAudioContext = liftIO (js_newAudioContext) - -foreign import javascript interruptible - "(($1, $c) => { return $1[\"suspend\"]().then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })" - js_suspend :: AudioContext -> IO JSVal - --- | -suspend :: (MonadIO m, IsAudioContext self) => self -> m () -suspend self - = liftIO - ((js_suspend (toAudioContext self)) >>= maybeThrowPromiseRejected) - -foreign import javascript interruptible - "(($1, $c) => { return $1[\"resume\"]().then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })" - js_resume :: AudioContext -> IO JSVal - --- | -resume :: (MonadIO m, IsAudioContext self) => self -> m () -resume self - = liftIO - ((js_resume (toAudioContext self)) >>= maybeThrowPromiseRejected) - -foreign import javascript interruptible - "(($1, $c) => { return $1[\"close\"]().then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })" - js_close :: AudioContext -> IO JSVal - --- | -close :: (MonadIO m, IsAudioContext self) => self -> m () -close self - = liftIO - ((js_close (toAudioContext self)) >>= maybeThrowPromiseRejected) - -foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"createBuffer\"]($2, $3, $4); })" - js_createBuffer :: - AudioContext -> Word -> Word -> Float -> IO AudioBuffer - --- | -createBuffer :: - (MonadIO m, IsAudioContext self) => - self -> Word -> Word -> Float -> m AudioBuffer -createBuffer self numberOfChannels numberOfFrames sampleRate - = liftIO - (js_createBuffer (toAudioContext self) numberOfChannels - numberOfFrames - sampleRate) - --- | -createBuffer_ :: - (MonadIO m, IsAudioContext self) => - self -> Word -> Word -> Float -> m () -createBuffer_ self numberOfChannels numberOfFrames sampleRate - = liftIO - (void - (js_createBuffer (toAudioContext self) numberOfChannels - numberOfFrames - sampleRate)) - -foreign import javascript safe "(($1, $2, $3) => { return $1[\"createBuffer\"]($2, $3); })" - js_createBufferFromArrayBuffer :: - AudioContext -> ArrayBuffer -> Bool -> IO AudioBuffer - --- | -createBufferFromArrayBuffer :: - (MonadIO m, IsAudioContext self, IsArrayBuffer buffer) => - self -> buffer -> Bool -> m AudioBuffer -createBufferFromArrayBuffer self buffer mixToMono - = liftIO - (js_createBufferFromArrayBuffer (toAudioContext self) - (toArrayBuffer buffer) - mixToMono) - --- | -createBufferFromArrayBuffer_ :: - (MonadIO m, IsAudioContext self, IsArrayBuffer buffer) => - self -> buffer -> Bool -> m () -createBufferFromArrayBuffer_ self buffer mixToMono - = liftIO - (void - (js_createBufferFromArrayBuffer (toAudioContext self) - (toArrayBuffer buffer) - mixToMono)) - -foreign import javascript unsafe - "(($1, $2, $3, $4) => { return $1[\"decodeAudioData\"]($2, $3,\n$4); })" js_decodeAudioData :: - AudioContext -> - ArrayBuffer -> - Optional AudioBufferCallback -> - Optional AudioBufferCallback -> IO () - --- | -decodeAudioData :: - (MonadIO m, IsAudioContext self, IsArrayBuffer audioData) => - self -> - audioData -> - Maybe AudioBufferCallback -> Maybe AudioBufferCallback -> m () -decodeAudioData self audioData successCallback errorCallback - = liftIO - (js_decodeAudioData (toAudioContext self) (toArrayBuffer audioData) - (maybeToOptional successCallback) - (maybeToOptional errorCallback)) - -foreign import javascript unsafe "(($1) => { return $1[\"createBufferSource\"](); })" - js_createBufferSource :: AudioContext -> IO AudioBufferSourceNode - --- | -createBufferSource :: - (MonadIO m, IsAudioContext self) => self -> m AudioBufferSourceNode -createBufferSource self - = liftIO (js_createBufferSource (toAudioContext self)) - --- | -createBufferSource_ :: - (MonadIO m, IsAudioContext self) => self -> m () -createBufferSource_ self - = liftIO (void (js_createBufferSource (toAudioContext self))) - -foreign import javascript safe - "(($1, $2) => { return $1[\"createMediaElementSource\"]($2); })" js_createMediaElementSource - :: - AudioContext -> HTMLMediaElement -> IO MediaElementAudioSourceNode - --- | -createMediaElementSource :: - (MonadIO m, IsAudioContext self, - IsHTMLMediaElement mediaElement) => - self -> mediaElement -> m MediaElementAudioSourceNode -createMediaElementSource self mediaElement - = liftIO - (js_createMediaElementSource (toAudioContext self) - (toHTMLMediaElement mediaElement)) - --- | -createMediaElementSource_ :: - (MonadIO m, IsAudioContext self, - IsHTMLMediaElement mediaElement) => - self -> mediaElement -> m () -createMediaElementSource_ self mediaElement - = liftIO - (void - (js_createMediaElementSource (toAudioContext self) - (toHTMLMediaElement mediaElement))) - -foreign import javascript safe - "(($1, $2) => { return $1[\"createMediaStreamSource\"]($2); })" js_createMediaStreamSource :: - AudioContext -> MediaStream -> IO MediaStreamAudioSourceNode - --- | -createMediaStreamSource :: - (MonadIO m, IsAudioContext self) => - self -> MediaStream -> m MediaStreamAudioSourceNode -createMediaStreamSource self mediaStream - = liftIO - (js_createMediaStreamSource (toAudioContext self) mediaStream) - --- | -createMediaStreamSource_ :: - (MonadIO m, IsAudioContext self) => self -> MediaStream -> m () -createMediaStreamSource_ self mediaStream - = liftIO - (void - (js_createMediaStreamSource (toAudioContext self) mediaStream)) - -foreign import javascript unsafe - "(($1) => { return $1[\"createMediaStreamDestination\"](); })" - js_createMediaStreamDestination :: - AudioContext -> IO MediaStreamAudioDestinationNode - --- | -createMediaStreamDestination :: - (MonadIO m, IsAudioContext self) => - self -> m MediaStreamAudioDestinationNode -createMediaStreamDestination self - = liftIO (js_createMediaStreamDestination (toAudioContext self)) - --- | -createMediaStreamDestination_ :: - (MonadIO m, IsAudioContext self) => self -> m () -createMediaStreamDestination_ self - = liftIO - (void (js_createMediaStreamDestination (toAudioContext self))) - -foreign import javascript unsafe "(($1) => { return $1[\"createGain\"](); })" - js_createGain :: AudioContext -> IO GainNode - --- | -createGain :: - (MonadIO m, IsAudioContext self) => self -> m GainNode -createGain self = liftIO (js_createGain (toAudioContext self)) - --- | -createGain_ :: (MonadIO m, IsAudioContext self) => self -> m () -createGain_ self - = liftIO (void (js_createGain (toAudioContext self))) - -foreign import javascript safe "(($1, $2) => { return $1[\"createDelay\"]($2); })" - js_createDelay :: AudioContext -> Optional Double -> IO DelayNode - --- | -createDelay :: - (MonadIO m, IsAudioContext self) => - self -> Maybe Double -> m DelayNode -createDelay self maxDelayTime - = liftIO - (js_createDelay (toAudioContext self) - (maybeToOptional maxDelayTime)) - --- | -createDelay_ :: - (MonadIO m, IsAudioContext self) => self -> Maybe Double -> m () -createDelay_ self maxDelayTime - = liftIO - (void - (js_createDelay (toAudioContext self) - (maybeToOptional maxDelayTime))) - -foreign import javascript unsafe "(($1) => { return $1[\"createBiquadFilter\"](); })" - js_createBiquadFilter :: AudioContext -> IO BiquadFilterNode - --- | -createBiquadFilter :: - (MonadIO m, IsAudioContext self) => self -> m BiquadFilterNode -createBiquadFilter self - = liftIO (js_createBiquadFilter (toAudioContext self)) - --- | -createBiquadFilter_ :: - (MonadIO m, IsAudioContext self) => self -> m () -createBiquadFilter_ self - = liftIO (void (js_createBiquadFilter (toAudioContext self))) - -foreign import javascript unsafe "(($1) => { return $1[\"createWaveShaper\"](); })" - js_createWaveShaper :: AudioContext -> IO WaveShaperNode - --- | -createWaveShaper :: - (MonadIO m, IsAudioContext self) => self -> m WaveShaperNode -createWaveShaper self - = liftIO (js_createWaveShaper (toAudioContext self)) - --- | -createWaveShaper_ :: - (MonadIO m, IsAudioContext self) => self -> m () -createWaveShaper_ self - = liftIO (void (js_createWaveShaper (toAudioContext self))) - -foreign import javascript unsafe "(($1) => { return $1[\"createPanner\"](); })" - js_createPanner :: AudioContext -> IO PannerNode - --- | -createPanner :: - (MonadIO m, IsAudioContext self) => self -> m PannerNode -createPanner self = liftIO (js_createPanner (toAudioContext self)) - --- | -createPanner_ :: (MonadIO m, IsAudioContext self) => self -> m () -createPanner_ self - = liftIO (void (js_createPanner (toAudioContext self))) - -foreign import javascript unsafe "(($1) => { return $1[\"createConvolver\"](); })" - js_createConvolver :: AudioContext -> IO ConvolverNode - --- | -createConvolver :: - (MonadIO m, IsAudioContext self) => self -> m ConvolverNode -createConvolver self - = liftIO (js_createConvolver (toAudioContext self)) - --- | -createConvolver_ :: - (MonadIO m, IsAudioContext self) => self -> m () -createConvolver_ self - = liftIO (void (js_createConvolver (toAudioContext self))) - -foreign import javascript unsafe - "(($1) => { return $1[\"createDynamicsCompressor\"](); })" js_createDynamicsCompressor :: - AudioContext -> IO DynamicsCompressorNode - --- | -createDynamicsCompressor :: - (MonadIO m, IsAudioContext self) => - self -> m DynamicsCompressorNode -createDynamicsCompressor self - = liftIO (js_createDynamicsCompressor (toAudioContext self)) - --- | -createDynamicsCompressor_ :: - (MonadIO m, IsAudioContext self) => self -> m () -createDynamicsCompressor_ self - = liftIO (void (js_createDynamicsCompressor (toAudioContext self))) - -foreign import javascript unsafe "(($1) => { return $1[\"createAnalyser\"](); })" - js_createAnalyser :: AudioContext -> IO AnalyserNode - --- | -createAnalyser :: - (MonadIO m, IsAudioContext self) => self -> m AnalyserNode -createAnalyser self - = liftIO (js_createAnalyser (toAudioContext self)) - --- | -createAnalyser_ :: (MonadIO m, IsAudioContext self) => self -> m () -createAnalyser_ self - = liftIO (void (js_createAnalyser (toAudioContext self))) - -foreign import javascript safe - "(($1, $2, $3, $4) => { return $1[\"createScriptProcessor\"]($2,\n$3, $4); })" - js_createScriptProcessor :: - AudioContext -> - Word -> Optional Word -> Optional Word -> IO ScriptProcessorNode - --- | -createScriptProcessor :: - (MonadIO m, IsAudioContext self) => - self -> Word -> Maybe Word -> Maybe Word -> m ScriptProcessorNode -createScriptProcessor self bufferSize numberOfInputChannels - numberOfOutputChannels - = liftIO - (js_createScriptProcessor (toAudioContext self) bufferSize - (maybeToOptional numberOfInputChannels) - (maybeToOptional numberOfOutputChannels)) - --- | -createScriptProcessor_ :: - (MonadIO m, IsAudioContext self) => - self -> Word -> Maybe Word -> Maybe Word -> m () -createScriptProcessor_ self bufferSize numberOfInputChannels - numberOfOutputChannels - = liftIO - (void - (js_createScriptProcessor (toAudioContext self) bufferSize - (maybeToOptional numberOfInputChannels) - (maybeToOptional numberOfOutputChannels))) - -foreign import javascript unsafe "(($1) => { return $1[\"createOscillator\"](); })" - js_createOscillator :: AudioContext -> IO OscillatorNode - --- | -createOscillator :: - (MonadIO m, IsAudioContext self) => self -> m OscillatorNode -createOscillator self - = liftIO (js_createOscillator (toAudioContext self)) - --- | -createOscillator_ :: - (MonadIO m, IsAudioContext self) => self -> m () -createOscillator_ self - = liftIO (void (js_createOscillator (toAudioContext self))) - -foreign import javascript safe "(($1, $2, $3) => { return $1[\"createPeriodicWave\"]($2, $3); })" - js_createPeriodicWave :: - AudioContext -> Float32Array -> Float32Array -> IO PeriodicWave - --- | -createPeriodicWave :: - (MonadIO m, IsAudioContext self, IsFloat32Array real, - IsFloat32Array imag) => - self -> real -> imag -> m PeriodicWave -createPeriodicWave self real imag - = liftIO - (js_createPeriodicWave (toAudioContext self) (toFloat32Array real) - (toFloat32Array imag)) +foreign import javascript safe "(() => { return new globalThis[\"AudioContext\"](); })" + js_newAudioContext :: IO AudioContext +-- | +newAudioContext :: (MonadDOM m) => m AudioContext +newAudioContext = liftDOM ((js_newAudioContext)) --- | -createPeriodicWave_ :: - (MonadIO m, IsAudioContext self, IsFloat32Array real, - IsFloat32Array imag) => - self -> real -> imag -> m () -createPeriodicWave_ self real imag - = liftIO - (void - (js_createPeriodicWave (toAudioContext self) (toFloat32Array real) - (toFloat32Array imag))) - -foreign import javascript safe "(($1, $2) => { return $1[\"createChannelSplitter\"]($2); })" - js_createChannelSplitter :: - AudioContext -> Optional Word -> IO ChannelSplitterNode +foreign import javascript safe "(($1) => { return new globalThis[\"AudioContext\"]($1); })" + js_newAudioContext' :: JSVal -> IO AudioContext +-- | +newAudioContext' :: (MonadDOM m) => Maybe AudioContextOptions -> m AudioContext +newAudioContext' contextOptions = liftDOM (((P.maybe (P.return jsUndefined) toJSVal contextOptions) >>= \a1' -> js_newAudioContext' a1')) --- | -createChannelSplitter :: - (MonadIO m, IsAudioContext self) => - self -> Maybe Word -> m ChannelSplitterNode -createChannelSplitter self numberOfOutputs - = liftIO - (js_createChannelSplitter (toAudioContext self) - (maybeToOptional numberOfOutputs)) +foreign import javascript interruptible "(($1, $c) => { return $1[\"close\"]().then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })" + js_close :: AudioContext -> IO (JSVal, ()) +-- | +close :: (MonadDOM m) => AudioContext -> m () +close self = liftDOM (void (((js_close (self)) >>= checkPromiseResult))) --- | -createChannelSplitter_ :: - (MonadIO m, IsAudioContext self) => self -> Maybe Word -> m () -createChannelSplitter_ self numberOfOutputs - = liftIO - (void - (js_createChannelSplitter (toAudioContext self) - (maybeToOptional numberOfOutputs))) - -foreign import javascript safe "(($1, $2) => { return $1[\"createChannelMerger\"]($2); })" - js_createChannelMerger :: - AudioContext -> Optional Word -> IO ChannelMergerNode +foreign import javascript safe "(($1, $2) => { return $1[\"createMediaElementSource\"]($2); })" + js_createMediaElementSource :: AudioContext -> HTMLMediaElement -> IO MediaElementAudioSourceNode +-- | +createMediaElementSource :: (MonadDOM m, IsHTMLMediaElement mediaElement) => AudioContext -> mediaElement -> m MediaElementAudioSourceNode +createMediaElementSource self mediaElement = liftDOM ((js_createMediaElementSource (self) (Types.toHTMLMediaElement mediaElement))) --- | -createChannelMerger :: - (MonadIO m, IsAudioContext self) => - self -> Maybe Word -> m ChannelMergerNode -createChannelMerger self numberOfInputs - = liftIO - (js_createChannelMerger (toAudioContext self) - (maybeToOptional numberOfInputs)) +-- | +createMediaElementSource_ :: (MonadDOM m, IsHTMLMediaElement mediaElement) => AudioContext -> mediaElement -> m () +createMediaElementSource_ self mediaElement = liftDOM (void ((js_createMediaElementSource (self) (Types.toHTMLMediaElement mediaElement)))) --- | -createChannelMerger_ :: - (MonadIO m, IsAudioContext self) => self -> Maybe Word -> m () -createChannelMerger_ self numberOfInputs - = liftIO - (void - (js_createChannelMerger (toAudioContext self) - (maybeToOptional numberOfInputs))) - -foreign import javascript unsafe "(($1) => { return $1[\"startRendering\"](); })" - js_startRendering :: AudioContext -> IO () +foreign import javascript safe "(($1) => { return $1[\"createMediaStreamDestination\"](); })" + js_createMediaStreamDestination :: AudioContext -> IO MediaStreamAudioDestinationNode +-- | +createMediaStreamDestination :: (MonadDOM m) => AudioContext -> m MediaStreamAudioDestinationNode +createMediaStreamDestination self = liftDOM ((js_createMediaStreamDestination (self))) --- | -startRendering :: (MonadIO m, IsAudioContext self) => self -> m () -startRendering self - = liftIO (js_startRendering (toAudioContext self)) - -foreign import javascript unsafe "(($1) => { return $1[\"destination\"]; })" - js_getDestination :: AudioContext -> IO AudioDestinationNode +-- | +createMediaStreamDestination_ :: (MonadDOM m) => AudioContext -> m () +createMediaStreamDestination_ self = liftDOM (void ((js_createMediaStreamDestination (self)))) --- | -getDestination :: - (MonadIO m, IsAudioContext self) => self -> m AudioDestinationNode -getDestination self - = liftIO (js_getDestination (toAudioContext self)) - -foreign import javascript unsafe "(($1) => { return $1[\"currentTime\"]; })" - js_getCurrentTime :: AudioContext -> IO Double +foreign import javascript safe "(($1, $2) => { return $1[\"createMediaStreamSource\"]($2); })" + js_createMediaStreamSource :: AudioContext -> MediaStream -> IO MediaStreamAudioSourceNode +-- | +createMediaStreamSource :: (MonadDOM m) => AudioContext -> MediaStream -> m MediaStreamAudioSourceNode +createMediaStreamSource self mediaStream = liftDOM ((js_createMediaStreamSource (self) (mediaStream))) --- | -getCurrentTime :: - (MonadIO m, IsAudioContext self) => self -> m Double -getCurrentTime self - = liftIO (js_getCurrentTime (toAudioContext self)) - -foreign import javascript unsafe "(($1) => { return $1[\"sampleRate\"]; })" - js_getSampleRate :: AudioContext -> IO Float +-- | +createMediaStreamSource_ :: (MonadDOM m) => AudioContext -> MediaStream -> m () +createMediaStreamSource_ self mediaStream = liftDOM (void ((js_createMediaStreamSource (self) (mediaStream)))) --- | -getSampleRate :: - (MonadIO m, IsAudioContext self) => self -> m Float -getSampleRate self - = liftIO (js_getSampleRate (toAudioContext self)) - -foreign import javascript unsafe "(($1) => { return $1[\"listener\"]; })" js_getListener - :: AudioContext -> IO AudioListener +foreign import javascript safe "(($1) => { return $1[\"getOutputTimestamp\"](); })" + js_getOutputTimestamp :: AudioContext -> IO AudioTimestamp +-- | +getOutputTimestamp :: (MonadDOM m) => AudioContext -> m AudioTimestamp +getOutputTimestamp self = liftDOM ((js_getOutputTimestamp (self))) --- | -getListener :: - (MonadIO m, IsAudioContext self) => self -> m AudioListener -getListener self = liftIO (js_getListener (toAudioContext self)) - -foreign import javascript unsafe "(($1) => { return $1[\"state\"]; })" js_getState :: - AudioContext -> IO JSVal +-- | +getOutputTimestamp_ :: (MonadDOM m) => AudioContext -> m () +getOutputTimestamp_ self = liftDOM (void ((js_getOutputTimestamp (self)))) --- | -getState :: - (MonadIO m, IsAudioContext self) => self -> m AudioContextState -getState self - = liftIO - ((js_getState (toAudioContext self)) >>= fromJSValUnchecked) +foreign import javascript interruptible "(($1, $c) => { return $1[\"resume\"]().then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })" + js_resume :: AudioContext -> IO (JSVal, ()) +-- | +resume :: (MonadDOM m) => AudioContext -> m () +resume self = liftDOM (void (((js_resume (self)) >>= checkPromiseResult))) --- | -statechange :: - (IsAudioContext self, IsEventTarget self) => - EventName self onstatechange -statechange = unsafeEventName (toJSString "statechange") - -foreign import javascript unsafe "(($1) => { return $1[\"activeSourceCount\"]; })" - js_getActiveSourceCount :: AudioContext -> IO Word +foreign import javascript interruptible "(($1, $c) => { return $1[\"suspend\"]().then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })" + js_suspend :: AudioContext -> IO (JSVal, ()) +-- | +suspend :: (MonadDOM m) => AudioContext -> m () +suspend self = liftDOM (void (((js_suspend (self)) >>= checkPromiseResult))) --- | -getActiveSourceCount :: - (MonadIO m, IsAudioContext self) => self -> m Word -getActiveSourceCount self - = liftIO (js_getActiveSourceCount (toAudioContext self)) +foreign import javascript unsafe "(($1) => { return $1[\"baseLatency\"]; })" + js_getBaseLatency :: AudioContext -> IO Double +-- | +getBaseLatency :: (MonadDOM m) => AudioContext -> m Double +getBaseLatency self = liftDOM ((js_getBaseLatency (self))) --- | -complete :: - (IsAudioContext self, IsEventTarget self) => - EventName self OfflineAudioCompletionEvent -complete = unsafeEventName (toJSString "complete") +foreign import javascript unsafe "(($1) => { return $1[\"outputLatency\"]; })" + js_getOutputLatency :: AudioContext -> IO Double +-- | +getOutputLatency :: (MonadDOM m) => AudioContext -> m Double +getOutputLatency self = liftDOM ((js_getOutputLatency (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/AudioContextOptions.hs b/src/GHCJS/DOM/JSFFI/Generated/AudioContextOptions.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/AudioContextOptions.hs @@ -0,0 +1,103 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from webaudio-1.1 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.AudioContextOptions + (js_newAudioContextOptions, js_setLatencyHint, js_getLatencyHint, js_setSampleRate, js_getSampleRate, js_setSinkId, js_getSinkId, js_setRenderSizeHint, js_getRenderSizeHint, newAudioContextOptions, setLatencyHint, getLatencyHint, getLatencyHintUnsafe, getLatencyHintUnchecked, setSampleRate, getSampleRate, getSampleRateUnsafe, getSampleRateUnchecked, setSinkId, getSinkId, getSinkIdUnsafe, getSinkIdUnchecked, setRenderSizeHint, getRenderSizeHint, getRenderSizeHintUnsafe, getRenderSizeHintUnchecked, AudioContextOptions(..), gTypeAudioContextOptions) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(() => { return ({}); })" + js_newAudioContextOptions :: IO AudioContextOptions +-- | +newAudioContextOptions :: (MonadDOM m) => m AudioContextOptions +newAudioContextOptions = liftDOM ((js_newAudioContextOptions)) + +foreign import javascript safe "(($1, $2) => { $1[\"latencyHint\"] = $2; })" + js_setLatencyHint :: AudioContextOptions -> AudioContextLatencyCategoryOrDouble -> IO () +-- | +setLatencyHint :: (MonadDOM m, IsAudioContextLatencyCategoryOrDouble val) => AudioContextOptions -> val -> m () +setLatencyHint self val = liftDOM (void ((js_setLatencyHint (self) (Types.toAudioContextLatencyCategoryOrDouble val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"latencyHint\"]; })" + js_getLatencyHint :: AudioContextOptions -> IO JSVal +-- | +getLatencyHint :: (MonadDOM m) => AudioContextOptions -> m (Maybe AudioContextLatencyCategoryOrDouble) +getLatencyHint self = liftDOM (((js_getLatencyHint (self)) >>= fromJSValUnchecked)) + +-- | +getLatencyHintUnsafe :: (MonadDOM m, HasCallStack) => AudioContextOptions -> m AudioContextLatencyCategoryOrDouble +getLatencyHintUnsafe self = liftDOM ((((js_getLatencyHint (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getLatencyHintUnchecked :: (MonadDOM m) => AudioContextOptions -> m AudioContextLatencyCategoryOrDouble +getLatencyHintUnchecked self = liftDOM ((pFromJSVal <$> (js_getLatencyHint (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"sampleRate\"] = $2; })" + js_setSampleRate :: AudioContextOptions -> Float -> IO () +-- | +setSampleRate :: (MonadDOM m) => AudioContextOptions -> Float -> m () +setSampleRate self val = liftDOM (void ((js_setSampleRate (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"sampleRate\"]; })" + js_getSampleRate :: AudioContextOptions -> IO JSVal +-- | +getSampleRate :: (MonadDOM m) => AudioContextOptions -> m (Maybe Float) +getSampleRate self = liftDOM (((js_getSampleRate (self)) >>= fromJSValUnchecked)) + +-- | +getSampleRateUnsafe :: (MonadDOM m, HasCallStack) => AudioContextOptions -> m Float +getSampleRateUnsafe self = liftDOM ((((js_getSampleRate (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getSampleRateUnchecked :: (MonadDOM m) => AudioContextOptions -> m Float +getSampleRateUnchecked self = liftDOM ((pFromJSVal <$> (js_getSampleRate (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"sinkId\"] = $2; })" + js_setSinkId :: AudioContextOptions -> StringOrAudioSinkOptions -> IO () +-- | +setSinkId :: (MonadDOM m, IsStringOrAudioSinkOptions val) => AudioContextOptions -> val -> m () +setSinkId self val = liftDOM (void ((js_setSinkId (self) (Types.toStringOrAudioSinkOptions val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"sinkId\"]; })" + js_getSinkId :: AudioContextOptions -> IO JSVal +-- | +getSinkId :: (MonadDOM m) => AudioContextOptions -> m (Maybe StringOrAudioSinkOptions) +getSinkId self = liftDOM (((js_getSinkId (self)) >>= fromJSValUnchecked)) + +-- | +getSinkIdUnsafe :: (MonadDOM m, HasCallStack) => AudioContextOptions -> m StringOrAudioSinkOptions +getSinkIdUnsafe self = liftDOM ((((js_getSinkId (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getSinkIdUnchecked :: (MonadDOM m) => AudioContextOptions -> m StringOrAudioSinkOptions +getSinkIdUnchecked self = liftDOM ((pFromJSVal <$> (js_getSinkId (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"renderSizeHint\"] = $2; })" + js_setRenderSizeHint :: AudioContextOptions -> AudioContextRenderSizeCategoryOrWord -> IO () +-- | +setRenderSizeHint :: (MonadDOM m, IsAudioContextRenderSizeCategoryOrWord val) => AudioContextOptions -> val -> m () +setRenderSizeHint self val = liftDOM (void ((js_setRenderSizeHint (self) (Types.toAudioContextRenderSizeCategoryOrWord val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"renderSizeHint\"]; })" + js_getRenderSizeHint :: AudioContextOptions -> IO JSVal +-- | +getRenderSizeHint :: (MonadDOM m) => AudioContextOptions -> m (Maybe AudioContextRenderSizeCategoryOrWord) +getRenderSizeHint self = liftDOM (((js_getRenderSizeHint (self)) >>= fromJSValUnchecked)) + +-- | +getRenderSizeHintUnsafe :: (MonadDOM m, HasCallStack) => AudioContextOptions -> m AudioContextRenderSizeCategoryOrWord +getRenderSizeHintUnsafe self = liftDOM ((((js_getRenderSizeHint (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getRenderSizeHintUnchecked :: (MonadDOM m) => AudioContextOptions -> m AudioContextRenderSizeCategoryOrWord +getRenderSizeHintUnchecked self = liftDOM ((pFromJSVal <$> (js_getRenderSizeHint (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/AudioData.hs b/src/GHCJS/DOM/JSFFI/Generated/AudioData.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/AudioData.hs @@ -0,0 +1,99 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from webcodecs (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.AudioData + (js_newAudioData, js_allocationSize, js_clone, js_close, js_copyTo, js_getFormat, js_getSampleRate, js_getNumberOfFrames, js_getNumberOfChannels, js_getDuration, js_getTimestamp, newAudioData, allocationSize, allocationSize_, clone, clone_, close, copyTo, getFormat, getFormatUnsafe, getFormatUnchecked, getSampleRate, getNumberOfFrames, getNumberOfChannels, getDuration, getTimestamp, AudioData(..), gTypeAudioData) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1) => { return new globalThis[\"AudioData\"]($1); })" + js_newAudioData :: AudioDataInit -> IO AudioData +-- | +newAudioData :: (MonadDOM m) => AudioDataInit -> m AudioData +newAudioData init = liftDOM ((js_newAudioData (init))) + +foreign import javascript safe "(($1, $2) => { return $1[\"allocationSize\"]($2); })" + js_allocationSize :: AudioData -> AudioDataCopyToOptions -> IO Word +-- | +allocationSize :: (MonadDOM m) => AudioData -> AudioDataCopyToOptions -> m Word +allocationSize self options = liftDOM ((js_allocationSize (self) (options))) + +-- | +allocationSize_ :: (MonadDOM m) => AudioData -> AudioDataCopyToOptions -> m () +allocationSize_ self options = liftDOM (void ((js_allocationSize (self) (options)))) + +foreign import javascript safe "(($1) => { return $1[\"clone\"](); })" + js_clone :: AudioData -> IO AudioData +-- | +clone :: (MonadDOM m) => AudioData -> m AudioData +clone self = liftDOM ((js_clone (self))) + +-- | +clone_ :: (MonadDOM m) => AudioData -> m () +clone_ self = liftDOM (void ((js_clone (self)))) + +foreign import javascript safe "(($1) => { return $1[\"close\"](); })" + js_close :: AudioData -> IO () +-- | +close :: (MonadDOM m) => AudioData -> m () +close self = liftDOM (void ((js_close (self)))) + +foreign import javascript safe "(($1, $2, $3) => { return $1[\"copyTo\"]($2, $3); })" + js_copyTo :: AudioData -> AllowSharedBufferSource -> AudioDataCopyToOptions -> IO () +-- | +copyTo :: (MonadDOM m, IsAllowSharedBufferSource destination) => AudioData -> destination -> AudioDataCopyToOptions -> m () +copyTo self destination options = liftDOM (void ((js_copyTo (self) (Types.toAllowSharedBufferSource destination) (options)))) + +foreign import javascript unsafe "(($1) => { return $1[\"format\"]; })" + js_getFormat :: AudioData -> IO JSVal +-- | +getFormat :: (MonadDOM m) => AudioData -> m (Maybe AudioSampleFormat) +getFormat self = liftDOM (((js_getFormat (self)) >>= fromJSValUnchecked)) + +-- | +getFormatUnsafe :: (MonadDOM m, HasCallStack) => AudioData -> m AudioSampleFormat +getFormatUnsafe self = liftDOM ((((js_getFormat (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getFormatUnchecked :: (MonadDOM m) => AudioData -> m AudioSampleFormat +getFormatUnchecked self = liftDOM ((pFromJSVal <$> (js_getFormat (self)))) + +foreign import javascript unsafe "(($1) => { return $1[\"sampleRate\"]; })" + js_getSampleRate :: AudioData -> IO Float +-- | +getSampleRate :: (MonadDOM m) => AudioData -> m Float +getSampleRate self = liftDOM ((js_getSampleRate (self))) + +foreign import javascript unsafe "(($1) => { return $1[\"numberOfFrames\"]; })" + js_getNumberOfFrames :: AudioData -> IO Word +-- | +getNumberOfFrames :: (MonadDOM m) => AudioData -> m Word +getNumberOfFrames self = liftDOM ((js_getNumberOfFrames (self))) + +foreign import javascript unsafe "(($1) => { return $1[\"numberOfChannels\"]; })" + js_getNumberOfChannels :: AudioData -> IO Word +-- | +getNumberOfChannels :: (MonadDOM m) => AudioData -> m Word +getNumberOfChannels self = liftDOM ((js_getNumberOfChannels (self))) + +foreign import javascript unsafe "(($1) => { return $1[\"duration\"]; })" + js_getDuration :: AudioData -> IO JSVal +-- | +getDuration :: (MonadDOM m) => AudioData -> m Word53 +getDuration self = liftDOM (((js_getDuration (self)) >>= fromJSValUnchecked)) + +foreign import javascript unsafe "(($1) => { return $1[\"timestamp\"]; })" + js_getTimestamp :: AudioData -> IO JSVal +-- | +getTimestamp :: (MonadDOM m) => AudioData -> m Int53 +getTimestamp self = liftDOM (((js_getTimestamp (self)) >>= fromJSValUnchecked)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/AudioDataCopyToOptions.hs b/src/GHCJS/DOM/JSFFI/Generated/AudioDataCopyToOptions.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/AudioDataCopyToOptions.hs @@ -0,0 +1,95 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from webcodecs (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.AudioDataCopyToOptions + (js_newAudioDataCopyToOptions, js_setPlaneIndex, js_getPlaneIndex, js_setFrameOffset, js_getFrameOffset, js_setFrameCount, js_getFrameCount, js_setFormat, js_getFormat, newAudioDataCopyToOptions, setPlaneIndex, getPlaneIndex, setFrameOffset, getFrameOffset, getFrameOffsetUnsafe, getFrameOffsetUnchecked, setFrameCount, getFrameCount, getFrameCountUnsafe, getFrameCountUnchecked, setFormat, getFormat, getFormatUnsafe, getFormatUnchecked, AudioDataCopyToOptions(..), gTypeAudioDataCopyToOptions) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1) => { return ({\"planeIndex\": $1}); })" + js_newAudioDataCopyToOptions :: Word -> IO AudioDataCopyToOptions +-- | +newAudioDataCopyToOptions :: (MonadDOM m) => Word -> m AudioDataCopyToOptions +newAudioDataCopyToOptions planeIndex = liftDOM ((js_newAudioDataCopyToOptions (planeIndex))) + +foreign import javascript safe "(($1, $2) => { $1[\"planeIndex\"] = $2; })" + js_setPlaneIndex :: AudioDataCopyToOptions -> Word -> IO () +-- | +setPlaneIndex :: (MonadDOM m) => AudioDataCopyToOptions -> Word -> m () +setPlaneIndex self val = liftDOM (void ((js_setPlaneIndex (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"planeIndex\"]; })" + js_getPlaneIndex :: AudioDataCopyToOptions -> IO Word +-- | +getPlaneIndex :: (MonadDOM m) => AudioDataCopyToOptions -> m Word +getPlaneIndex self = liftDOM ((js_getPlaneIndex (self))) + +foreign import javascript safe "(($1, $2) => { $1[\"frameOffset\"] = $2; })" + js_setFrameOffset :: AudioDataCopyToOptions -> Word -> IO () +-- | +setFrameOffset :: (MonadDOM m) => AudioDataCopyToOptions -> Word -> m () +setFrameOffset self val = liftDOM (void ((js_setFrameOffset (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"frameOffset\"]; })" + js_getFrameOffset :: AudioDataCopyToOptions -> IO JSVal +-- | +getFrameOffset :: (MonadDOM m) => AudioDataCopyToOptions -> m (Maybe Word) +getFrameOffset self = liftDOM (((js_getFrameOffset (self)) >>= fromJSValUnchecked)) + +-- | +getFrameOffsetUnsafe :: (MonadDOM m, HasCallStack) => AudioDataCopyToOptions -> m Word +getFrameOffsetUnsafe self = liftDOM ((((js_getFrameOffset (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getFrameOffsetUnchecked :: (MonadDOM m) => AudioDataCopyToOptions -> m Word +getFrameOffsetUnchecked self = liftDOM ((pFromJSVal <$> (js_getFrameOffset (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"frameCount\"] = $2; })" + js_setFrameCount :: AudioDataCopyToOptions -> Word -> IO () +-- | +setFrameCount :: (MonadDOM m) => AudioDataCopyToOptions -> Word -> m () +setFrameCount self val = liftDOM (void ((js_setFrameCount (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"frameCount\"]; })" + js_getFrameCount :: AudioDataCopyToOptions -> IO JSVal +-- | +getFrameCount :: (MonadDOM m) => AudioDataCopyToOptions -> m (Maybe Word) +getFrameCount self = liftDOM (((js_getFrameCount (self)) >>= fromJSValUnchecked)) + +-- | +getFrameCountUnsafe :: (MonadDOM m, HasCallStack) => AudioDataCopyToOptions -> m Word +getFrameCountUnsafe self = liftDOM ((((js_getFrameCount (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getFrameCountUnchecked :: (MonadDOM m) => AudioDataCopyToOptions -> m Word +getFrameCountUnchecked self = liftDOM ((pFromJSVal <$> (js_getFrameCount (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"format\"] = $2; })" + js_setFormat :: AudioDataCopyToOptions -> JSVal -> IO () +-- | +setFormat :: (MonadDOM m) => AudioDataCopyToOptions -> AudioSampleFormat -> m () +setFormat self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setFormat (self) a2'))) + +foreign import javascript unsafe "(($1) => { return $1[\"format\"]; })" + js_getFormat :: AudioDataCopyToOptions -> IO JSVal +-- | +getFormat :: (MonadDOM m) => AudioDataCopyToOptions -> m (Maybe AudioSampleFormat) +getFormat self = liftDOM (((js_getFormat (self)) >>= fromJSValUnchecked)) + +-- | +getFormatUnsafe :: (MonadDOM m, HasCallStack) => AudioDataCopyToOptions -> m AudioSampleFormat +getFormatUnsafe self = liftDOM ((((js_getFormat (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getFormatUnchecked :: (MonadDOM m) => AudioDataCopyToOptions -> m AudioSampleFormat +getFormatUnchecked self = liftDOM ((pFromJSVal <$> (js_getFormat (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/AudioDataInit.hs b/src/GHCJS/DOM/JSFFI/Generated/AudioDataInit.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/AudioDataInit.hs @@ -0,0 +1,115 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from webcodecs (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.AudioDataInit + (js_newAudioDataInit, js_setFormat, js_getFormat, js_setSampleRate, js_getSampleRate, js_setNumberOfFrames, js_getNumberOfFrames, js_setNumberOfChannels, js_getNumberOfChannels, js_setTimestamp, js_getTimestamp, js_setData, js_getData, js_setTransfer, js_getTransfer, newAudioDataInit, setFormat, getFormat, setSampleRate, getSampleRate, setNumberOfFrames, getNumberOfFrames, setNumberOfChannels, getNumberOfChannels, setTimestamp, getTimestamp, setData, getData, setTransfer, getTransfer, getTransferUnsafe, getTransferUnchecked, AudioDataInit(..), gTypeAudioDataInit) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1, $2, $3, $4, $5, $6) => { return ({\"format\": $1, \"sampleRate\": $2, \"numberOfFrames\": $3, \"numberOfChannels\": $4, \"timestamp\": $5, \"data\": $6}); })" + js_newAudioDataInit :: JSVal -> Float -> Word -> Word -> JSVal -> AllowSharedBufferSource -> IO AudioDataInit +-- | +newAudioDataInit :: (MonadDOM m, IsAllowSharedBufferSource data') => AudioSampleFormat -> Float -> Word -> Word -> Int53 -> data' -> m AudioDataInit +newAudioDataInit format sampleRate numberOfFrames numberOfChannels timestamp data' = liftDOM (((toJSVal format) >>= \a1' -> (toJSVal timestamp) >>= \a5' -> js_newAudioDataInit a1' (sampleRate) (numberOfFrames) (numberOfChannels) a5' (Types.toAllowSharedBufferSource data'))) + +foreign import javascript safe "(($1, $2) => { $1[\"format\"] = $2; })" + js_setFormat :: AudioDataInit -> JSVal -> IO () +-- | +setFormat :: (MonadDOM m) => AudioDataInit -> AudioSampleFormat -> m () +setFormat self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setFormat (self) a2'))) + +foreign import javascript unsafe "(($1) => { return $1[\"format\"]; })" + js_getFormat :: AudioDataInit -> IO JSVal +-- | +getFormat :: (MonadDOM m) => AudioDataInit -> m AudioSampleFormat +getFormat self = liftDOM (((js_getFormat (self)) >>= fromJSValUnchecked)) + +foreign import javascript safe "(($1, $2) => { $1[\"sampleRate\"] = $2; })" + js_setSampleRate :: AudioDataInit -> Float -> IO () +-- | +setSampleRate :: (MonadDOM m) => AudioDataInit -> Float -> m () +setSampleRate self val = liftDOM (void ((js_setSampleRate (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"sampleRate\"]; })" + js_getSampleRate :: AudioDataInit -> IO Float +-- | +getSampleRate :: (MonadDOM m) => AudioDataInit -> m Float +getSampleRate self = liftDOM ((js_getSampleRate (self))) + +foreign import javascript safe "(($1, $2) => { $1[\"numberOfFrames\"] = $2; })" + js_setNumberOfFrames :: AudioDataInit -> Word -> IO () +-- | +setNumberOfFrames :: (MonadDOM m) => AudioDataInit -> Word -> m () +setNumberOfFrames self val = liftDOM (void ((js_setNumberOfFrames (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"numberOfFrames\"]; })" + js_getNumberOfFrames :: AudioDataInit -> IO Word +-- | +getNumberOfFrames :: (MonadDOM m) => AudioDataInit -> m Word +getNumberOfFrames self = liftDOM ((js_getNumberOfFrames (self))) + +foreign import javascript safe "(($1, $2) => { $1[\"numberOfChannels\"] = $2; })" + js_setNumberOfChannels :: AudioDataInit -> Word -> IO () +-- | +setNumberOfChannels :: (MonadDOM m) => AudioDataInit -> Word -> m () +setNumberOfChannels self val = liftDOM (void ((js_setNumberOfChannels (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"numberOfChannels\"]; })" + js_getNumberOfChannels :: AudioDataInit -> IO Word +-- | +getNumberOfChannels :: (MonadDOM m) => AudioDataInit -> m Word +getNumberOfChannels self = liftDOM ((js_getNumberOfChannels (self))) + +foreign import javascript safe "(($1, $2) => { $1[\"timestamp\"] = $2; })" + js_setTimestamp :: AudioDataInit -> JSVal -> IO () +-- | +setTimestamp :: (MonadDOM m) => AudioDataInit -> Int53 -> m () +setTimestamp self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setTimestamp (self) a2'))) + +foreign import javascript unsafe "(($1) => { return $1[\"timestamp\"]; })" + js_getTimestamp :: AudioDataInit -> IO JSVal +-- | +getTimestamp :: (MonadDOM m) => AudioDataInit -> m Int53 +getTimestamp self = liftDOM (((js_getTimestamp (self)) >>= fromJSValUnchecked)) + +foreign import javascript safe "(($1, $2) => { $1[\"data\"] = $2; })" + js_setData :: AudioDataInit -> AllowSharedBufferSource -> IO () +-- | +setData :: (MonadDOM m, IsAllowSharedBufferSource val) => AudioDataInit -> val -> m () +setData self val = liftDOM (void ((js_setData (self) (Types.toAllowSharedBufferSource val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"data\"]; })" + js_getData :: AudioDataInit -> IO AllowSharedBufferSource +-- | +getData :: (MonadDOM m) => AudioDataInit -> m AllowSharedBufferSource +getData self = liftDOM ((js_getData (self))) + +foreign import javascript safe "(($1, $2) => { $1[\"transfer\"] = $2; })" + js_setTransfer :: AudioDataInit -> JSVal -> IO () +-- | +setTransfer :: (MonadDOM m, IsArrayBuffer val) => AudioDataInit -> [val] -> m () +setTransfer self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setTransfer (self) a2'))) + +foreign import javascript unsafe "(($1) => { return $1[\"transfer\"]; })" + js_getTransfer :: AudioDataInit -> IO JSVal +-- | +getTransfer :: (MonadDOM m) => AudioDataInit -> m (Maybe [ArrayBuffer]) +getTransfer self = liftDOM (((js_getTransfer (self)) >>= fromJSValUnchecked)) + +-- | +getTransferUnsafe :: (MonadDOM m, HasCallStack) => AudioDataInit -> m [ArrayBuffer] +getTransferUnsafe self = liftDOM ((((js_getTransfer (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getTransferUnchecked :: (MonadDOM m) => AudioDataInit -> m [ArrayBuffer] +getTransferUnchecked self = liftDOM (((js_getTransfer (self)) >>= fromJSValUnchecked)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/AudioDataOutputCallback.hs b/src/GHCJS/DOM/JSFFI/Generated/AudioDataOutputCallback.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/AudioDataOutputCallback.hs @@ -0,0 +1,29 @@ +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from webcodecs (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.AudioDataOutputCallback + (newAudioDataOutputCallback, newAudioDataOutputCallbackSync, newAudioDataOutputCallbackAsync, AudioDataOutputCallback) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import Data.Coerce (coerce) +import GHC.JS.Foreign.Callback (OnBlocked(..), syncCallback1, asyncCallback1) +import GHCJS.DOM.Types +import GHCJS.DOM.JSFFI.Generated.Enums + +newAudioDataOutputCallback :: (MonadDOM m) => (AudioData -> IO ()) -> m AudioDataOutputCallback +newAudioDataOutputCallback callback = liftDOM ((AudioDataOutputCallback . coerce) <$> syncCallback1 ContinueAsync (\ output -> do + output' <- fromJSValUnchecked output + callback output')) + +newAudioDataOutputCallbackSync :: (MonadDOM m) => (AudioData -> IO ()) -> m AudioDataOutputCallback +newAudioDataOutputCallbackSync callback = liftDOM ((AudioDataOutputCallback . coerce) <$> syncCallback1 ThrowWouldBlock (\ output -> do + output' <- fromJSValUnchecked output + callback output')) + +newAudioDataOutputCallbackAsync :: (MonadDOM m) => (AudioData -> IO ()) -> m AudioDataOutputCallback +newAudioDataOutputCallbackAsync callback = liftDOM ((AudioDataOutputCallback . coerce) <$> asyncCallback1 (\ output -> do + output' <- fromJSValUnchecked output + callback output')) diff --git a/src/GHCJS/DOM/JSFFI/Generated/AudioDecoder.hs b/src/GHCJS/DOM/JSFFI/Generated/AudioDecoder.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/AudioDecoder.hs @@ -0,0 +1,79 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from webcodecs (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.AudioDecoder + (js_newAudioDecoder, js_close, js_configure, js_decode, js_flush, js_reset, js_isConfigSupported, js_getState, js_getDecodeQueueSize, newAudioDecoder, close, configure, decode, flush, reset, isConfigSupported, isConfigSupported_, getState, getDecodeQueueSize, dequeue, AudioDecoder(..), gTypeAudioDecoder) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1) => { return new globalThis[\"AudioDecoder\"]($1); })" + js_newAudioDecoder :: AudioDecoderInit -> IO AudioDecoder +-- | +newAudioDecoder :: (MonadDOM m) => AudioDecoderInit -> m AudioDecoder +newAudioDecoder init = liftDOM ((js_newAudioDecoder (init))) + +foreign import javascript safe "(($1) => { return $1[\"close\"](); })" + js_close :: AudioDecoder -> IO () +-- | +close :: (MonadDOM m) => AudioDecoder -> m () +close self = liftDOM (void ((js_close (self)))) + +foreign import javascript safe "(($1, $2) => { return $1[\"configure\"]($2); })" + js_configure :: AudioDecoder -> AudioDecoderConfig -> IO () +-- | +configure :: (MonadDOM m) => AudioDecoder -> AudioDecoderConfig -> m () +configure self config = liftDOM (void ((js_configure (self) (config)))) + +foreign import javascript safe "(($1, $2) => { return $1[\"decode\"]($2); })" + js_decode :: AudioDecoder -> EncodedAudioChunk -> IO () +-- | +decode :: (MonadDOM m) => AudioDecoder -> EncodedAudioChunk -> m () +decode self chunk = liftDOM (void ((js_decode (self) (chunk)))) + +foreign import javascript interruptible "(($1, $c) => { return $1[\"flush\"]().then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })" + js_flush :: AudioDecoder -> IO (JSVal, ()) +-- | +flush :: (MonadDOM m) => AudioDecoder -> m () +flush self = liftDOM (void (((js_flush (self)) >>= checkPromiseResult))) + +foreign import javascript safe "(($1) => { return $1[\"reset\"](); })" + js_reset :: AudioDecoder -> IO () +-- | +reset :: (MonadDOM m) => AudioDecoder -> m () +reset self = liftDOM (void ((js_reset (self)))) + +foreign import javascript interruptible "(($1, $c) => { return globalThis[\"AudioDecoder\"][\"isConfigSupported\"]($1).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })" + js_isConfigSupported :: AudioDecoderConfig -> IO (JSVal, AudioDecoderSupport) +-- | +isConfigSupported :: (MonadDOM m) => AudioDecoderConfig -> m AudioDecoderSupport +isConfigSupported config = liftDOM (((js_isConfigSupported (config)) >>= checkPromiseResult)) + +-- | +isConfigSupported_ :: (MonadDOM m) => AudioDecoderConfig -> m () +isConfigSupported_ config = liftDOM (void (((js_isConfigSupported (config)) >>= checkPromiseResult))) + +foreign import javascript unsafe "(($1) => { return $1[\"state\"]; })" + js_getState :: AudioDecoder -> IO JSVal +-- | +getState :: (MonadDOM m) => AudioDecoder -> m CodecState +getState self = liftDOM (((js_getState (self)) >>= fromJSValUnchecked)) + +foreign import javascript unsafe "(($1) => { return $1[\"decodeQueueSize\"]; })" + js_getDecodeQueueSize :: AudioDecoder -> IO Word +-- | +getDecodeQueueSize :: (MonadDOM m) => AudioDecoder -> m Word +getDecodeQueueSize self = liftDOM ((js_getDecodeQueueSize (self))) + +-- | +dequeue :: EventName AudioDecoder Event +dequeue = unsafeEventName (toJSString "dequeue") diff --git a/src/GHCJS/DOM/JSFFI/Generated/AudioDecoderConfig.hs b/src/GHCJS/DOM/JSFFI/Generated/AudioDecoderConfig.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/AudioDecoderConfig.hs @@ -0,0 +1,79 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from webcodecs (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.AudioDecoderConfig + (js_newAudioDecoderConfig, js_setCodec, js_getCodec, js_setSampleRate, js_getSampleRate, js_setNumberOfChannels, js_getNumberOfChannels, js_setDescription, js_getDescription, newAudioDecoderConfig, setCodec, getCodec, setSampleRate, getSampleRate, setNumberOfChannels, getNumberOfChannels, setDescription, getDescription, getDescriptionUnsafe, getDescriptionUnchecked, AudioDecoderConfig(..), gTypeAudioDecoderConfig) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1, $2, $3) => { return ({\"codec\": $1, \"sampleRate\": $2, \"numberOfChannels\": $3}); })" + js_newAudioDecoderConfig :: JSString -> Word -> Word -> IO AudioDecoderConfig +-- | +newAudioDecoderConfig :: (MonadDOM m, ToJSString codec) => codec -> Word -> Word -> m AudioDecoderConfig +newAudioDecoderConfig codec sampleRate numberOfChannels = liftDOM ((js_newAudioDecoderConfig (toJSString codec) (sampleRate) (numberOfChannels))) + +foreign import javascript safe "(($1, $2) => { $1[\"codec\"] = $2; })" + js_setCodec :: AudioDecoderConfig -> JSString -> IO () +-- | +setCodec :: (MonadDOM m, ToJSString val) => AudioDecoderConfig -> val -> m () +setCodec self val = liftDOM (void ((js_setCodec (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"codec\"]; })" + js_getCodec :: AudioDecoderConfig -> IO JSString +-- | +getCodec :: (MonadDOM m, FromJSString result) => AudioDecoderConfig -> m result +getCodec self = liftDOM ((fromJSString <$> (js_getCodec (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"sampleRate\"] = $2; })" + js_setSampleRate :: AudioDecoderConfig -> Word -> IO () +-- | +setSampleRate :: (MonadDOM m) => AudioDecoderConfig -> Word -> m () +setSampleRate self val = liftDOM (void ((js_setSampleRate (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"sampleRate\"]; })" + js_getSampleRate :: AudioDecoderConfig -> IO Word +-- | +getSampleRate :: (MonadDOM m) => AudioDecoderConfig -> m Word +getSampleRate self = liftDOM ((js_getSampleRate (self))) + +foreign import javascript safe "(($1, $2) => { $1[\"numberOfChannels\"] = $2; })" + js_setNumberOfChannels :: AudioDecoderConfig -> Word -> IO () +-- | +setNumberOfChannels :: (MonadDOM m) => AudioDecoderConfig -> Word -> m () +setNumberOfChannels self val = liftDOM (void ((js_setNumberOfChannels (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"numberOfChannels\"]; })" + js_getNumberOfChannels :: AudioDecoderConfig -> IO Word +-- | +getNumberOfChannels :: (MonadDOM m) => AudioDecoderConfig -> m Word +getNumberOfChannels self = liftDOM ((js_getNumberOfChannels (self))) + +foreign import javascript safe "(($1, $2) => { $1[\"description\"] = $2; })" + js_setDescription :: AudioDecoderConfig -> AllowSharedBufferSource -> IO () +-- | +setDescription :: (MonadDOM m, IsAllowSharedBufferSource val) => AudioDecoderConfig -> val -> m () +setDescription self val = liftDOM (void ((js_setDescription (self) (Types.toAllowSharedBufferSource val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"description\"]; })" + js_getDescription :: AudioDecoderConfig -> IO JSVal +-- | +getDescription :: (MonadDOM m) => AudioDecoderConfig -> m (Maybe AllowSharedBufferSource) +getDescription self = liftDOM (((js_getDescription (self)) >>= fromJSValUnchecked)) + +-- | +getDescriptionUnsafe :: (MonadDOM m, HasCallStack) => AudioDecoderConfig -> m AllowSharedBufferSource +getDescriptionUnsafe self = liftDOM ((((js_getDescription (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getDescriptionUnchecked :: (MonadDOM m) => AudioDecoderConfig -> m AllowSharedBufferSource +getDescriptionUnchecked self = liftDOM ((pFromJSVal <$> (js_getDescription (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/AudioDecoderInit.hs b/src/GHCJS/DOM/JSFFI/Generated/AudioDecoderInit.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/AudioDecoderInit.hs @@ -0,0 +1,35 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from webcodecs (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.AudioDecoderInit + (js_newAudioDecoderInit, js_setOutput, js_setError, newAudioDecoderInit, setOutput, setError, AudioDecoderInit(..), gTypeAudioDecoderInit) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1, $2) => { return ({\"output\": $1, \"error\": $2}); })" + js_newAudioDecoderInit :: JSVal -> JSVal -> IO AudioDecoderInit +-- | +newAudioDecoderInit :: (MonadDOM m) => AudioDataOutputCallback -> WebCodecsErrorCallback -> m AudioDecoderInit +newAudioDecoderInit output error = liftDOM (((toJSVal output) >>= \a1' -> (toJSVal error) >>= \a2' -> js_newAudioDecoderInit a1' a2')) + +foreign import javascript safe "(($1, $2) => { $1[\"output\"] = $2; })" + js_setOutput :: AudioDecoderInit -> JSVal -> IO () +-- | +setOutput :: (MonadDOM m) => AudioDecoderInit -> AudioDataOutputCallback -> m () +setOutput self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setOutput (self) a2'))) + +foreign import javascript safe "(($1, $2) => { $1[\"error\"] = $2; })" + js_setError :: AudioDecoderInit -> JSVal -> IO () +-- | +setError :: (MonadDOM m) => AudioDecoderInit -> WebCodecsErrorCallback -> m () +setError self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setError (self) a2'))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/AudioDecoderSupport.hs b/src/GHCJS/DOM/JSFFI/Generated/AudioDecoderSupport.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/AudioDecoderSupport.hs @@ -0,0 +1,63 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from webcodecs (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.AudioDecoderSupport + (js_newAudioDecoderSupport, js_setSupported, js_getSupported, js_setConfig, js_getConfig, newAudioDecoderSupport, setSupported, getSupported, getSupportedUnsafe, getSupportedUnchecked, setConfig, getConfig, getConfigUnsafe, getConfigUnchecked, AudioDecoderSupport(..), gTypeAudioDecoderSupport) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(() => { return ({}); })" + js_newAudioDecoderSupport :: IO AudioDecoderSupport +-- | +newAudioDecoderSupport :: (MonadDOM m) => m AudioDecoderSupport +newAudioDecoderSupport = liftDOM ((js_newAudioDecoderSupport)) + +foreign import javascript safe "(($1, $2) => { $1[\"supported\"] = $2; })" + js_setSupported :: AudioDecoderSupport -> Bool -> IO () +-- | +setSupported :: (MonadDOM m) => AudioDecoderSupport -> Bool -> m () +setSupported self val = liftDOM (void ((js_setSupported (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"supported\"]; })" + js_getSupported :: AudioDecoderSupport -> IO JSVal +-- | +getSupported :: (MonadDOM m) => AudioDecoderSupport -> m (Maybe Bool) +getSupported self = liftDOM (((js_getSupported (self)) >>= fromJSValUnchecked)) + +-- | +getSupportedUnsafe :: (MonadDOM m, HasCallStack) => AudioDecoderSupport -> m Bool +getSupportedUnsafe self = liftDOM ((((js_getSupported (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getSupportedUnchecked :: (MonadDOM m) => AudioDecoderSupport -> m Bool +getSupportedUnchecked self = liftDOM ((pFromJSVal <$> (js_getSupported (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"config\"] = $2; })" + js_setConfig :: AudioDecoderSupport -> AudioDecoderConfig -> IO () +-- | +setConfig :: (MonadDOM m) => AudioDecoderSupport -> AudioDecoderConfig -> m () +setConfig self val = liftDOM (void ((js_setConfig (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"config\"]; })" + js_getConfig :: AudioDecoderSupport -> IO JSVal +-- | +getConfig :: (MonadDOM m) => AudioDecoderSupport -> m (Maybe AudioDecoderConfig) +getConfig self = liftDOM (((js_getConfig (self)) >>= fromJSValUnchecked)) + +-- | +getConfigUnsafe :: (MonadDOM m, HasCallStack) => AudioDecoderSupport -> m AudioDecoderConfig +getConfigUnsafe self = liftDOM ((((js_getConfig (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getConfigUnchecked :: (MonadDOM m) => AudioDecoderSupport -> m AudioDecoderConfig +getConfigUnchecked self = liftDOM ((pFromJSVal <$> (js_getConfig (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/AudioDestinationNode.hs b/src/GHCJS/DOM/JSFFI/Generated/AudioDestinationNode.hs --- a/src/GHCJS/DOM/JSFFI/Generated/AudioDestinationNode.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/AudioDestinationNode.hs @@ -1,34 +1,23 @@ {-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE JavaScriptFFI #-} --- For HasCallStack compatibility +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from webaudio-1.1 (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.AudioDestinationNode - (js_getMaxChannelCount, getMaxChannelCount, - AudioDestinationNode(..), gTypeAudioDestinationNode) + (js_getMaxChannelCount, getMaxChannelCount, AudioDestinationNode(..), gTypeAudioDestinationNode) where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull, jsUndefined) -import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import Data.Maybe (fromJust) -import Data.Traversable (mapM) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types -import Control.Applicative ((<$>)) +import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums - + foreign import javascript unsafe "(($1) => { return $1[\"maxChannelCount\"]; })" js_getMaxChannelCount :: AudioDestinationNode -> IO Word - --- | -getMaxChannelCount :: (MonadIO m) => AudioDestinationNode -> m Word -getMaxChannelCount self = liftIO (js_getMaxChannelCount self) +-- | +getMaxChannelCount :: (MonadDOM m) => AudioDestinationNode -> m Word +getMaxChannelCount self = liftDOM ((js_getMaxChannelCount (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/AudioEncoder.hs b/src/GHCJS/DOM/JSFFI/Generated/AudioEncoder.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/AudioEncoder.hs @@ -0,0 +1,79 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from webcodecs (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.AudioEncoder + (js_newAudioEncoder, js_close, js_configure, js_encode, js_flush, js_reset, js_isConfigSupported, js_getState, js_getEncodeQueueSize, newAudioEncoder, close, configure, encode, flush, reset, isConfigSupported, isConfigSupported_, getState, getEncodeQueueSize, dequeue, AudioEncoder(..), gTypeAudioEncoder) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1) => { return new globalThis[\"AudioEncoder\"]($1); })" + js_newAudioEncoder :: AudioEncoderInit -> IO AudioEncoder +-- | +newAudioEncoder :: (MonadDOM m) => AudioEncoderInit -> m AudioEncoder +newAudioEncoder init = liftDOM ((js_newAudioEncoder (init))) + +foreign import javascript safe "(($1) => { return $1[\"close\"](); })" + js_close :: AudioEncoder -> IO () +-- | +close :: (MonadDOM m) => AudioEncoder -> m () +close self = liftDOM (void ((js_close (self)))) + +foreign import javascript safe "(($1, $2) => { return $1[\"configure\"]($2); })" + js_configure :: AudioEncoder -> AudioEncoderConfig -> IO () +-- | +configure :: (MonadDOM m) => AudioEncoder -> AudioEncoderConfig -> m () +configure self config = liftDOM (void ((js_configure (self) (config)))) + +foreign import javascript safe "(($1, $2) => { return $1[\"encode\"]($2); })" + js_encode :: AudioEncoder -> AudioData -> IO () +-- | +encode :: (MonadDOM m) => AudioEncoder -> AudioData -> m () +encode self data' = liftDOM (void ((js_encode (self) (data')))) + +foreign import javascript interruptible "(($1, $c) => { return $1[\"flush\"]().then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })" + js_flush :: AudioEncoder -> IO (JSVal, ()) +-- | +flush :: (MonadDOM m) => AudioEncoder -> m () +flush self = liftDOM (void (((js_flush (self)) >>= checkPromiseResult))) + +foreign import javascript safe "(($1) => { return $1[\"reset\"](); })" + js_reset :: AudioEncoder -> IO () +-- | +reset :: (MonadDOM m) => AudioEncoder -> m () +reset self = liftDOM (void ((js_reset (self)))) + +foreign import javascript interruptible "(($1, $c) => { return globalThis[\"AudioEncoder\"][\"isConfigSupported\"]($1).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })" + js_isConfigSupported :: AudioEncoderConfig -> IO (JSVal, AudioEncoderSupport) +-- | +isConfigSupported :: (MonadDOM m) => AudioEncoderConfig -> m AudioEncoderSupport +isConfigSupported config = liftDOM (((js_isConfigSupported (config)) >>= checkPromiseResult)) + +-- | +isConfigSupported_ :: (MonadDOM m) => AudioEncoderConfig -> m () +isConfigSupported_ config = liftDOM (void (((js_isConfigSupported (config)) >>= checkPromiseResult))) + +foreign import javascript unsafe "(($1) => { return $1[\"state\"]; })" + js_getState :: AudioEncoder -> IO JSVal +-- | +getState :: (MonadDOM m) => AudioEncoder -> m CodecState +getState self = liftDOM (((js_getState (self)) >>= fromJSValUnchecked)) + +foreign import javascript unsafe "(($1) => { return $1[\"encodeQueueSize\"]; })" + js_getEncodeQueueSize :: AudioEncoder -> IO Word +-- | +getEncodeQueueSize :: (MonadDOM m) => AudioEncoder -> m Word +getEncodeQueueSize self = liftDOM ((js_getEncodeQueueSize (self))) + +-- | +dequeue :: EventName AudioEncoder Event +dequeue = unsafeEventName (toJSString "dequeue") diff --git a/src/GHCJS/DOM/JSFFI/Generated/AudioEncoderConfig.hs b/src/GHCJS/DOM/JSFFI/Generated/AudioEncoderConfig.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/AudioEncoderConfig.hs @@ -0,0 +1,159 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from webcodecs (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.AudioEncoderConfig + (js_newAudioEncoderConfig, js_setCodec, js_getCodec, js_setSampleRate, js_getSampleRate, js_setNumberOfChannels, js_getNumberOfChannels, js_setBitrate, js_getBitrate, js_setBitrateMode, js_getBitrateMode, js_setAac, js_getAac, js_setFlac, js_getFlac, js_setOpus, js_getOpus, newAudioEncoderConfig, setCodec, getCodec, setSampleRate, getSampleRate, setNumberOfChannels, getNumberOfChannels, setBitrate, getBitrate, getBitrateUnsafe, getBitrateUnchecked, setBitrateMode, getBitrateMode, getBitrateModeUnsafe, getBitrateModeUnchecked, setAac, getAac, getAacUnsafe, getAacUnchecked, setFlac, getFlac, getFlacUnsafe, getFlacUnchecked, setOpus, getOpus, getOpusUnsafe, getOpusUnchecked, AudioEncoderConfig(..), gTypeAudioEncoderConfig) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1, $2, $3) => { return ({\"codec\": $1, \"sampleRate\": $2, \"numberOfChannels\": $3}); })" + js_newAudioEncoderConfig :: JSString -> Word -> Word -> IO AudioEncoderConfig +-- | +newAudioEncoderConfig :: (MonadDOM m, ToJSString codec) => codec -> Word -> Word -> m AudioEncoderConfig +newAudioEncoderConfig codec sampleRate numberOfChannels = liftDOM ((js_newAudioEncoderConfig (toJSString codec) (sampleRate) (numberOfChannels))) + +foreign import javascript safe "(($1, $2) => { $1[\"codec\"] = $2; })" + js_setCodec :: AudioEncoderConfig -> JSString -> IO () +-- | +setCodec :: (MonadDOM m, ToJSString val) => AudioEncoderConfig -> val -> m () +setCodec self val = liftDOM (void ((js_setCodec (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"codec\"]; })" + js_getCodec :: AudioEncoderConfig -> IO JSString +-- | +getCodec :: (MonadDOM m, FromJSString result) => AudioEncoderConfig -> m result +getCodec self = liftDOM ((fromJSString <$> (js_getCodec (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"sampleRate\"] = $2; })" + js_setSampleRate :: AudioEncoderConfig -> Word -> IO () +-- | +setSampleRate :: (MonadDOM m) => AudioEncoderConfig -> Word -> m () +setSampleRate self val = liftDOM (void ((js_setSampleRate (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"sampleRate\"]; })" + js_getSampleRate :: AudioEncoderConfig -> IO Word +-- | +getSampleRate :: (MonadDOM m) => AudioEncoderConfig -> m Word +getSampleRate self = liftDOM ((js_getSampleRate (self))) + +foreign import javascript safe "(($1, $2) => { $1[\"numberOfChannels\"] = $2; })" + js_setNumberOfChannels :: AudioEncoderConfig -> Word -> IO () +-- | +setNumberOfChannels :: (MonadDOM m) => AudioEncoderConfig -> Word -> m () +setNumberOfChannels self val = liftDOM (void ((js_setNumberOfChannels (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"numberOfChannels\"]; })" + js_getNumberOfChannels :: AudioEncoderConfig -> IO Word +-- | +getNumberOfChannels :: (MonadDOM m) => AudioEncoderConfig -> m Word +getNumberOfChannels self = liftDOM ((js_getNumberOfChannels (self))) + +foreign import javascript safe "(($1, $2) => { $1[\"bitrate\"] = $2; })" + js_setBitrate :: AudioEncoderConfig -> JSVal -> IO () +-- | +setBitrate :: (MonadDOM m) => AudioEncoderConfig -> Word53 -> m () +setBitrate self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setBitrate (self) a2'))) + +foreign import javascript unsafe "(($1) => { return $1[\"bitrate\"]; })" + js_getBitrate :: AudioEncoderConfig -> IO JSVal +-- | +getBitrate :: (MonadDOM m) => AudioEncoderConfig -> m (Maybe Word53) +getBitrate self = liftDOM (((js_getBitrate (self)) >>= fromJSValUnchecked)) + +-- | +getBitrateUnsafe :: (MonadDOM m, HasCallStack) => AudioEncoderConfig -> m Word53 +getBitrateUnsafe self = liftDOM ((((js_getBitrate (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getBitrateUnchecked :: (MonadDOM m) => AudioEncoderConfig -> m Word53 +getBitrateUnchecked self = liftDOM ((pFromJSVal <$> (js_getBitrate (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"bitrateMode\"] = $2; })" + js_setBitrateMode :: AudioEncoderConfig -> JSVal -> IO () +-- | +setBitrateMode :: (MonadDOM m) => AudioEncoderConfig -> BitrateMode -> m () +setBitrateMode self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setBitrateMode (self) a2'))) + +foreign import javascript unsafe "(($1) => { return $1[\"bitrateMode\"]; })" + js_getBitrateMode :: AudioEncoderConfig -> IO JSVal +-- | +getBitrateMode :: (MonadDOM m) => AudioEncoderConfig -> m (Maybe BitrateMode) +getBitrateMode self = liftDOM (((js_getBitrateMode (self)) >>= fromJSValUnchecked)) + +-- | +getBitrateModeUnsafe :: (MonadDOM m, HasCallStack) => AudioEncoderConfig -> m BitrateMode +getBitrateModeUnsafe self = liftDOM ((((js_getBitrateMode (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getBitrateModeUnchecked :: (MonadDOM m) => AudioEncoderConfig -> m BitrateMode +getBitrateModeUnchecked self = liftDOM ((pFromJSVal <$> (js_getBitrateMode (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"aac\"] = $2; })" + js_setAac :: AudioEncoderConfig -> AacEncoderConfig -> IO () +-- | +setAac :: (MonadDOM m) => AudioEncoderConfig -> AacEncoderConfig -> m () +setAac self val = liftDOM (void ((js_setAac (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"aac\"]; })" + js_getAac :: AudioEncoderConfig -> IO JSVal +-- | +getAac :: (MonadDOM m) => AudioEncoderConfig -> m (Maybe AacEncoderConfig) +getAac self = liftDOM (((js_getAac (self)) >>= fromJSValUnchecked)) + +-- | +getAacUnsafe :: (MonadDOM m, HasCallStack) => AudioEncoderConfig -> m AacEncoderConfig +getAacUnsafe self = liftDOM ((((js_getAac (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getAacUnchecked :: (MonadDOM m) => AudioEncoderConfig -> m AacEncoderConfig +getAacUnchecked self = liftDOM ((pFromJSVal <$> (js_getAac (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"flac\"] = $2; })" + js_setFlac :: AudioEncoderConfig -> FlacEncoderConfig -> IO () +-- | +setFlac :: (MonadDOM m) => AudioEncoderConfig -> FlacEncoderConfig -> m () +setFlac self val = liftDOM (void ((js_setFlac (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"flac\"]; })" + js_getFlac :: AudioEncoderConfig -> IO JSVal +-- | +getFlac :: (MonadDOM m) => AudioEncoderConfig -> m (Maybe FlacEncoderConfig) +getFlac self = liftDOM (((js_getFlac (self)) >>= fromJSValUnchecked)) + +-- | +getFlacUnsafe :: (MonadDOM m, HasCallStack) => AudioEncoderConfig -> m FlacEncoderConfig +getFlacUnsafe self = liftDOM ((((js_getFlac (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getFlacUnchecked :: (MonadDOM m) => AudioEncoderConfig -> m FlacEncoderConfig +getFlacUnchecked self = liftDOM ((pFromJSVal <$> (js_getFlac (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"opus\"] = $2; })" + js_setOpus :: AudioEncoderConfig -> OpusEncoderConfig -> IO () +-- | +setOpus :: (MonadDOM m) => AudioEncoderConfig -> OpusEncoderConfig -> m () +setOpus self val = liftDOM (void ((js_setOpus (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"opus\"]; })" + js_getOpus :: AudioEncoderConfig -> IO JSVal +-- | +getOpus :: (MonadDOM m) => AudioEncoderConfig -> m (Maybe OpusEncoderConfig) +getOpus self = liftDOM (((js_getOpus (self)) >>= fromJSValUnchecked)) + +-- | +getOpusUnsafe :: (MonadDOM m, HasCallStack) => AudioEncoderConfig -> m OpusEncoderConfig +getOpusUnsafe self = liftDOM ((((js_getOpus (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getOpusUnchecked :: (MonadDOM m) => AudioEncoderConfig -> m OpusEncoderConfig +getOpusUnchecked self = liftDOM ((pFromJSVal <$> (js_getOpus (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/AudioEncoderInit.hs b/src/GHCJS/DOM/JSFFI/Generated/AudioEncoderInit.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/AudioEncoderInit.hs @@ -0,0 +1,35 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from webcodecs (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.AudioEncoderInit + (js_newAudioEncoderInit, js_setOutput, js_setError, newAudioEncoderInit, setOutput, setError, AudioEncoderInit(..), gTypeAudioEncoderInit) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1, $2) => { return ({\"output\": $1, \"error\": $2}); })" + js_newAudioEncoderInit :: JSVal -> JSVal -> IO AudioEncoderInit +-- | +newAudioEncoderInit :: (MonadDOM m) => EncodedAudioChunkOutputCallback -> WebCodecsErrorCallback -> m AudioEncoderInit +newAudioEncoderInit output error = liftDOM (((toJSVal output) >>= \a1' -> (toJSVal error) >>= \a2' -> js_newAudioEncoderInit a1' a2')) + +foreign import javascript safe "(($1, $2) => { $1[\"output\"] = $2; })" + js_setOutput :: AudioEncoderInit -> JSVal -> IO () +-- | +setOutput :: (MonadDOM m) => AudioEncoderInit -> EncodedAudioChunkOutputCallback -> m () +setOutput self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setOutput (self) a2'))) + +foreign import javascript safe "(($1, $2) => { $1[\"error\"] = $2; })" + js_setError :: AudioEncoderInit -> JSVal -> IO () +-- | +setError :: (MonadDOM m) => AudioEncoderInit -> WebCodecsErrorCallback -> m () +setError self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setError (self) a2'))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/AudioEncoderSupport.hs b/src/GHCJS/DOM/JSFFI/Generated/AudioEncoderSupport.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/AudioEncoderSupport.hs @@ -0,0 +1,63 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from webcodecs (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.AudioEncoderSupport + (js_newAudioEncoderSupport, js_setSupported, js_getSupported, js_setConfig, js_getConfig, newAudioEncoderSupport, setSupported, getSupported, getSupportedUnsafe, getSupportedUnchecked, setConfig, getConfig, getConfigUnsafe, getConfigUnchecked, AudioEncoderSupport(..), gTypeAudioEncoderSupport) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(() => { return ({}); })" + js_newAudioEncoderSupport :: IO AudioEncoderSupport +-- | +newAudioEncoderSupport :: (MonadDOM m) => m AudioEncoderSupport +newAudioEncoderSupport = liftDOM ((js_newAudioEncoderSupport)) + +foreign import javascript safe "(($1, $2) => { $1[\"supported\"] = $2; })" + js_setSupported :: AudioEncoderSupport -> Bool -> IO () +-- | +setSupported :: (MonadDOM m) => AudioEncoderSupport -> Bool -> m () +setSupported self val = liftDOM (void ((js_setSupported (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"supported\"]; })" + js_getSupported :: AudioEncoderSupport -> IO JSVal +-- | +getSupported :: (MonadDOM m) => AudioEncoderSupport -> m (Maybe Bool) +getSupported self = liftDOM (((js_getSupported (self)) >>= fromJSValUnchecked)) + +-- | +getSupportedUnsafe :: (MonadDOM m, HasCallStack) => AudioEncoderSupport -> m Bool +getSupportedUnsafe self = liftDOM ((((js_getSupported (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getSupportedUnchecked :: (MonadDOM m) => AudioEncoderSupport -> m Bool +getSupportedUnchecked self = liftDOM ((pFromJSVal <$> (js_getSupported (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"config\"] = $2; })" + js_setConfig :: AudioEncoderSupport -> AudioEncoderConfig -> IO () +-- | +setConfig :: (MonadDOM m) => AudioEncoderSupport -> AudioEncoderConfig -> m () +setConfig self val = liftDOM (void ((js_setConfig (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"config\"]; })" + js_getConfig :: AudioEncoderSupport -> IO JSVal +-- | +getConfig :: (MonadDOM m) => AudioEncoderSupport -> m (Maybe AudioEncoderConfig) +getConfig self = liftDOM (((js_getConfig (self)) >>= fromJSValUnchecked)) + +-- | +getConfigUnsafe :: (MonadDOM m, HasCallStack) => AudioEncoderSupport -> m AudioEncoderConfig +getConfigUnsafe self = liftDOM ((((js_getConfig (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getConfigUnchecked :: (MonadDOM m) => AudioEncoderSupport -> m AudioEncoderConfig +getConfigUnchecked self = liftDOM ((pFromJSVal <$> (js_getConfig (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/AudioListener.hs b/src/GHCJS/DOM/JSFFI/Generated/AudioListener.hs --- a/src/GHCJS/DOM/JSFFI/Generated/AudioListener.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/AudioListener.hs @@ -1,88 +1,83 @@ {-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE JavaScriptFFI #-} --- For HasCallStack compatibility +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from webaudio-1.1 (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.AudioListener - (js_setPosition, setPosition, js_setOrientation, setOrientation, - js_setVelocity, setVelocity, js_setDopplerFactor, setDopplerFactor, - js_getDopplerFactor, getDopplerFactor, js_setSpeedOfSound, - setSpeedOfSound, js_getSpeedOfSound, getSpeedOfSound, - AudioListener(..), gTypeAudioListener) + (js_setOrientation, js_setPosition, js_getPositionX, js_getPositionY, js_getPositionZ, js_getForwardX, js_getForwardY, js_getForwardZ, js_getUpX, js_getUpY, js_getUpZ, setOrientation, setPosition, getPositionX, getPositionY, getPositionZ, getForwardX, getForwardY, getForwardZ, getUpX, getUpY, getUpZ, AudioListener(..), gTypeAudioListener) where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull, jsUndefined) -import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import Data.Maybe (fromJust) -import Data.Traversable (mapM) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types -import Control.Applicative ((<$>)) +import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums - -foreign import javascript unsafe "(($1, $2, $3, $4) => { return $1[\"setPosition\"]($2, $3, $4); })" + +foreign import javascript safe "(($1, $2, $3, $4, $5, $6, $7) => { return $1[\"setOrientation\"]($2, $3, $4, $5, $6, $7); })" + js_setOrientation :: AudioListener -> Float -> Float -> Float -> Float -> Float -> Float -> IO () +-- | +setOrientation :: (MonadDOM m) => AudioListener -> Float -> Float -> Float -> Float -> Float -> Float -> m () +setOrientation self x y z xUp yUp zUp = liftDOM (void ((js_setOrientation (self) (x) (y) (z) (xUp) (yUp) (zUp)))) + +foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"setPosition\"]($2, $3, $4); })" js_setPosition :: AudioListener -> Float -> Float -> Float -> IO () +-- | +setPosition :: (MonadDOM m) => AudioListener -> Float -> Float -> Float -> m () +setPosition self x y z = liftDOM (void ((js_setPosition (self) (x) (y) (z)))) --- | -setPosition :: - (MonadIO m) => AudioListener -> Float -> Float -> Float -> m () -setPosition self x y z = liftIO (js_setPosition self x y z) - -foreign import javascript unsafe - "(($1, $2, $3, $4, $5, $6, $7) => { return $1[\"setOrientation\"]($2, $3, $4,\n$5, $6, $7); })" js_setOrientation - :: - AudioListener -> - Float -> Float -> Float -> Float -> Float -> Float -> IO () +foreign import javascript unsafe "(($1) => { return $1[\"positionX\"]; })" + js_getPositionX :: AudioListener -> IO AudioParam +-- | +getPositionX :: (MonadDOM m) => AudioListener -> m AudioParam +getPositionX self = liftDOM ((js_getPositionX (self))) --- | -setOrientation :: - (MonadIO m) => - AudioListener -> - Float -> Float -> Float -> Float -> Float -> Float -> m () -setOrientation self x y z xUp yUp zUp - = liftIO (js_setOrientation self x y z xUp yUp zUp) - -foreign import javascript unsafe "(($1, $2, $3, $4) => { return $1[\"setVelocity\"]($2, $3, $4); })" - js_setVelocity :: AudioListener -> Float -> Float -> Float -> IO () +foreign import javascript unsafe "(($1) => { return $1[\"positionY\"]; })" + js_getPositionY :: AudioListener -> IO AudioParam +-- | +getPositionY :: (MonadDOM m) => AudioListener -> m AudioParam +getPositionY self = liftDOM ((js_getPositionY (self))) --- | -setVelocity :: - (MonadIO m) => AudioListener -> Float -> Float -> Float -> m () -setVelocity self x y z = liftIO (js_setVelocity self x y z) - -foreign import javascript unsafe "(($1, $2) => { $1[\"dopplerFactor\"] = $2; })" - js_setDopplerFactor :: AudioListener -> Float -> IO () +foreign import javascript unsafe "(($1) => { return $1[\"positionZ\"]; })" + js_getPositionZ :: AudioListener -> IO AudioParam +-- | +getPositionZ :: (MonadDOM m) => AudioListener -> m AudioParam +getPositionZ self = liftDOM ((js_getPositionZ (self))) --- | -setDopplerFactor :: (MonadIO m) => AudioListener -> Float -> m () -setDopplerFactor self val = liftIO (js_setDopplerFactor self val) - -foreign import javascript unsafe "(($1) => { return $1[\"dopplerFactor\"]; })" - js_getDopplerFactor :: AudioListener -> IO Float +foreign import javascript unsafe "(($1) => { return $1[\"forwardX\"]; })" + js_getForwardX :: AudioListener -> IO AudioParam +-- | +getForwardX :: (MonadDOM m) => AudioListener -> m AudioParam +getForwardX self = liftDOM ((js_getForwardX (self))) --- | -getDopplerFactor :: (MonadIO m) => AudioListener -> m Float -getDopplerFactor self = liftIO (js_getDopplerFactor self) - -foreign import javascript unsafe "(($1, $2) => { $1[\"speedOfSound\"] = $2; })" - js_setSpeedOfSound :: AudioListener -> Float -> IO () +foreign import javascript unsafe "(($1) => { return $1[\"forwardY\"]; })" + js_getForwardY :: AudioListener -> IO AudioParam +-- | +getForwardY :: (MonadDOM m) => AudioListener -> m AudioParam +getForwardY self = liftDOM ((js_getForwardY (self))) --- | -setSpeedOfSound :: (MonadIO m) => AudioListener -> Float -> m () -setSpeedOfSound self val = liftIO (js_setSpeedOfSound self val) - -foreign import javascript unsafe "(($1) => { return $1[\"speedOfSound\"]; })" - js_getSpeedOfSound :: AudioListener -> IO Float +foreign import javascript unsafe "(($1) => { return $1[\"forwardZ\"]; })" + js_getForwardZ :: AudioListener -> IO AudioParam +-- | +getForwardZ :: (MonadDOM m) => AudioListener -> m AudioParam +getForwardZ self = liftDOM ((js_getForwardZ (self))) --- | -getSpeedOfSound :: (MonadIO m) => AudioListener -> m Float -getSpeedOfSound self = liftIO (js_getSpeedOfSound self) +foreign import javascript unsafe "(($1) => { return $1[\"upX\"]; })" + js_getUpX :: AudioListener -> IO AudioParam +-- | +getUpX :: (MonadDOM m) => AudioListener -> m AudioParam +getUpX self = liftDOM ((js_getUpX (self))) + +foreign import javascript unsafe "(($1) => { return $1[\"upY\"]; })" + js_getUpY :: AudioListener -> IO AudioParam +-- | +getUpY :: (MonadDOM m) => AudioListener -> m AudioParam +getUpY self = liftDOM ((js_getUpY (self))) + +foreign import javascript unsafe "(($1) => { return $1[\"upZ\"]; })" + js_getUpZ :: AudioListener -> IO AudioParam +-- | +getUpZ :: (MonadDOM m) => AudioListener -> m AudioParam +getUpZ self = liftDOM ((js_getUpZ (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/AudioNode.hs b/src/GHCJS/DOM/JSFFI/Generated/AudioNode.hs --- a/src/GHCJS/DOM/JSFFI/Generated/AudioNode.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/AudioNode.hs @@ -1,159 +1,129 @@ {-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE JavaScriptFFI #-} --- For HasCallStack compatibility +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from webaudio-1.1 (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.AudioNode - (js_connect, connect, js_connectParam, connectParam, js_disconnect, - disconnect, js_getContext, getContext, js_getNumberOfInputs, - getNumberOfInputs, js_getNumberOfOutputs, getNumberOfOutputs, - js_setChannelCount, setChannelCount, js_getChannelCount, - getChannelCount, js_setChannelCountMode, setChannelCountMode, - js_getChannelCountMode, getChannelCountMode, - js_setChannelInterpretation, setChannelInterpretation, - js_getChannelInterpretation, getChannelInterpretation, - AudioNode(..), gTypeAudioNode, IsAudioNode, toAudioNode) + (js_connect, js_connectParam, js_disconnect', js_disconnect, js_disconnectDestinationNode, js_disconnectDestinationNodeOutput, js_disconnectDestinationNodeOutputInput, js_disconnectDestinationParam, js_disconnectDestinationParamOutput, js_getContext, js_getNumberOfInputs, js_getNumberOfOutputs, js_setChannelCount, js_getChannelCount, js_setChannelCountMode, js_getChannelCountMode, js_setChannelInterpretation, js_getChannelInterpretation, connect, connect_, connectParam, disconnect', disconnect, disconnectDestinationNode, disconnectDestinationNodeOutput, disconnectDestinationNodeOutputInput, disconnectDestinationParam, disconnectDestinationParamOutput, getContext, getNumberOfInputs, getNumberOfOutputs, setChannelCount, getChannelCount, setChannelCountMode, getChannelCountMode, setChannelInterpretation, getChannelInterpretation, AudioNode(..), gTypeAudioNode, IsAudioNode, toAudioNode) where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull, jsUndefined) -import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import Data.Maybe (fromJust) -import Data.Traversable (mapM) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types -import Control.Applicative ((<$>)) +import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums - + foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"connect\"]($2, $3, $4); })" - js_connect :: - AudioNode -> AudioNode -> Optional Word -> Optional Word -> IO () + js_connect :: AudioNode -> AudioNode -> JSVal -> JSVal -> IO AudioNode +-- | +connect :: (MonadDOM m, IsAudioNode self, IsAudioNode destinationNode) => self -> destinationNode -> Maybe Word -> Maybe Word -> m AudioNode +connect self destinationNode output input = liftDOM (((P.maybe (P.return jsUndefined) toJSVal output) >>= \a3' -> (P.maybe (P.return jsUndefined) toJSVal input) >>= \a4' -> js_connect ((Types.toAudioNode self)) (Types.toAudioNode destinationNode) a3' a4')) --- | -connect :: - (MonadIO m, IsAudioNode self, IsAudioNode destination) => - self -> destination -> Maybe Word -> Maybe Word -> m () -connect self destination output input - = liftIO - (js_connect (toAudioNode self) (toAudioNode destination) - (maybeToOptional output) - (maybeToOptional input)) - +-- | +connect_ :: (MonadDOM m, IsAudioNode self, IsAudioNode destinationNode) => self -> destinationNode -> Maybe Word -> Maybe Word -> m () +connect_ self destinationNode output input = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal output) >>= \a3' -> (P.maybe (P.return jsUndefined) toJSVal input) >>= \a4' -> js_connect ((Types.toAudioNode self)) (Types.toAudioNode destinationNode) a3' a4'))) + foreign import javascript safe "(($1, $2, $3) => { return $1[\"connect\"]($2, $3); })" - js_connectParam :: - AudioNode -> AudioParam -> Optional Word -> IO () + js_connectParam :: AudioNode -> AudioParam -> JSVal -> IO () +-- | +connectParam :: (MonadDOM m, IsAudioNode self) => self -> AudioParam -> Maybe Word -> m () +connectParam self destinationParam output = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal output) >>= \a3' -> js_connectParam ((Types.toAudioNode self)) (destinationParam) a3'))) --- | -connectParam :: - (MonadIO m, IsAudioNode self) => - self -> AudioParam -> Maybe Word -> m () -connectParam self destination output - = liftIO - (js_connectParam (toAudioNode self) destination - (maybeToOptional output)) - +foreign import javascript safe "(($1) => { return $1[\"disconnect\"](); })" + js_disconnect' :: AudioNode -> IO () +-- | +disconnect' :: (MonadDOM m, IsAudioNode self) => self -> m () +disconnect' self = liftDOM (void ((js_disconnect' ((Types.toAudioNode self))))) + foreign import javascript safe "(($1, $2) => { return $1[\"disconnect\"]($2); })" - js_disconnect :: AudioNode -> Optional Word -> IO () + js_disconnect :: AudioNode -> Word -> IO () +-- | +disconnect :: (MonadDOM m, IsAudioNode self) => self -> Word -> m () +disconnect self output = liftDOM (void ((js_disconnect ((Types.toAudioNode self)) (output)))) --- | -disconnect :: - (MonadIO m, IsAudioNode self) => self -> Maybe Word -> m () -disconnect self output - = liftIO - (js_disconnect (toAudioNode self) (maybeToOptional output)) - -foreign import javascript unsafe "(($1) => { return $1[\"context\"]; })" js_getContext :: - AudioNode -> IO AudioContext +foreign import javascript safe "(($1, $2) => { return $1[\"disconnect\"]($2); })" + js_disconnectDestinationNode :: AudioNode -> AudioNode -> IO () +-- | +disconnectDestinationNode :: (MonadDOM m, IsAudioNode self, IsAudioNode destinationNode) => self -> destinationNode -> m () +disconnectDestinationNode self destinationNode = liftDOM (void ((js_disconnectDestinationNode ((Types.toAudioNode self)) (Types.toAudioNode destinationNode)))) --- | -getContext :: - (MonadIO m, IsAudioNode self) => self -> m AudioContext -getContext self = liftIO (js_getContext (toAudioNode self)) - +foreign import javascript safe "(($1, $2, $3) => { return $1[\"disconnect\"]($2, $3); })" + js_disconnectDestinationNodeOutput :: AudioNode -> AudioNode -> Word -> IO () +-- | +disconnectDestinationNodeOutput :: (MonadDOM m, IsAudioNode self, IsAudioNode destinationNode) => self -> destinationNode -> Word -> m () +disconnectDestinationNodeOutput self destinationNode output = liftDOM (void ((js_disconnectDestinationNodeOutput ((Types.toAudioNode self)) (Types.toAudioNode destinationNode) (output)))) + +foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"disconnect\"]($2, $3, $4); })" + js_disconnectDestinationNodeOutputInput :: AudioNode -> AudioNode -> Word -> Word -> IO () +-- | +disconnectDestinationNodeOutputInput :: (MonadDOM m, IsAudioNode self, IsAudioNode destinationNode) => self -> destinationNode -> Word -> Word -> m () +disconnectDestinationNodeOutputInput self destinationNode output input = liftDOM (void ((js_disconnectDestinationNodeOutputInput ((Types.toAudioNode self)) (Types.toAudioNode destinationNode) (output) (input)))) + +foreign import javascript safe "(($1, $2) => { return $1[\"disconnect\"]($2); })" + js_disconnectDestinationParam :: AudioNode -> AudioParam -> IO () +-- | +disconnectDestinationParam :: (MonadDOM m, IsAudioNode self) => self -> AudioParam -> m () +disconnectDestinationParam self destinationParam = liftDOM (void ((js_disconnectDestinationParam ((Types.toAudioNode self)) (destinationParam)))) + +foreign import javascript safe "(($1, $2, $3) => { return $1[\"disconnect\"]($2, $3); })" + js_disconnectDestinationParamOutput :: AudioNode -> AudioParam -> Word -> IO () +-- | +disconnectDestinationParamOutput :: (MonadDOM m, IsAudioNode self) => self -> AudioParam -> Word -> m () +disconnectDestinationParamOutput self destinationParam output = liftDOM (void ((js_disconnectDestinationParamOutput ((Types.toAudioNode self)) (destinationParam) (output)))) + +foreign import javascript unsafe "(($1) => { return $1[\"context\"]; })" + js_getContext :: AudioNode -> IO BaseAudioContext +-- | +getContext :: (MonadDOM m, IsAudioNode self) => self -> m BaseAudioContext +getContext self = liftDOM ((js_getContext ((Types.toAudioNode self)))) + foreign import javascript unsafe "(($1) => { return $1[\"numberOfInputs\"]; })" js_getNumberOfInputs :: AudioNode -> IO Word +-- | +getNumberOfInputs :: (MonadDOM m, IsAudioNode self) => self -> m Word +getNumberOfInputs self = liftDOM ((js_getNumberOfInputs ((Types.toAudioNode self)))) --- | -getNumberOfInputs :: - (MonadIO m, IsAudioNode self) => self -> m Word -getNumberOfInputs self - = liftIO (js_getNumberOfInputs (toAudioNode self)) - foreign import javascript unsafe "(($1) => { return $1[\"numberOfOutputs\"]; })" js_getNumberOfOutputs :: AudioNode -> IO Word +-- | +getNumberOfOutputs :: (MonadDOM m, IsAudioNode self) => self -> m Word +getNumberOfOutputs self = liftDOM ((js_getNumberOfOutputs ((Types.toAudioNode self)))) --- | -getNumberOfOutputs :: - (MonadIO m, IsAudioNode self) => self -> m Word -getNumberOfOutputs self - = liftIO (js_getNumberOfOutputs (toAudioNode self)) - foreign import javascript safe "(($1, $2) => { $1[\"channelCount\"] = $2; })" js_setChannelCount :: AudioNode -> Word -> IO () +-- | +setChannelCount :: (MonadDOM m, IsAudioNode self) => self -> Word -> m () +setChannelCount self val = liftDOM (void ((js_setChannelCount ((Types.toAudioNode self)) (val)))) --- | -setChannelCount :: - (MonadIO m, IsAudioNode self) => self -> Word -> m () -setChannelCount self val - = liftIO (js_setChannelCount (toAudioNode self) val) - foreign import javascript unsafe "(($1) => { return $1[\"channelCount\"]; })" js_getChannelCount :: AudioNode -> IO Word +-- | +getChannelCount :: (MonadDOM m, IsAudioNode self) => self -> m Word +getChannelCount self = liftDOM ((js_getChannelCount ((Types.toAudioNode self)))) --- | -getChannelCount :: (MonadIO m, IsAudioNode self) => self -> m Word -getChannelCount self - = liftIO (js_getChannelCount (toAudioNode self)) - foreign import javascript safe "(($1, $2) => { $1[\"channelCountMode\"] = $2; })" - js_setChannelCountMode :: AudioNode -> JSString -> IO () + js_setChannelCountMode :: AudioNode -> JSVal -> IO () +-- | +setChannelCountMode :: (MonadDOM m, IsAudioNode self) => self -> ChannelCountMode -> m () +setChannelCountMode self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setChannelCountMode ((Types.toAudioNode self)) a2'))) --- | -setChannelCountMode :: - (MonadIO m, IsAudioNode self, ToJSString val) => - self -> val -> m () -setChannelCountMode self val - = liftIO - (js_setChannelCountMode (toAudioNode self) (toJSString val)) - foreign import javascript unsafe "(($1) => { return $1[\"channelCountMode\"]; })" - js_getChannelCountMode :: AudioNode -> IO JSString + js_getChannelCountMode :: AudioNode -> IO JSVal +-- | +getChannelCountMode :: (MonadDOM m, IsAudioNode self) => self -> m ChannelCountMode +getChannelCountMode self = liftDOM (((js_getChannelCountMode ((Types.toAudioNode self))) >>= fromJSValUnchecked)) --- | -getChannelCountMode :: - (MonadIO m, IsAudioNode self, FromJSString result) => - self -> m result -getChannelCountMode self - = liftIO - (fromJSString <$> (js_getChannelCountMode (toAudioNode self))) - -foreign import javascript safe - "(($1, $2) => { $1[\"channelInterpretation\"] = $2; })" js_setChannelInterpretation - :: AudioNode -> JSString -> IO () +foreign import javascript safe "(($1, $2) => { $1[\"channelInterpretation\"] = $2; })" + js_setChannelInterpretation :: AudioNode -> JSVal -> IO () +-- | +setChannelInterpretation :: (MonadDOM m, IsAudioNode self) => self -> ChannelInterpretation -> m () +setChannelInterpretation self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setChannelInterpretation ((Types.toAudioNode self)) a2'))) --- | -setChannelInterpretation :: - (MonadIO m, IsAudioNode self, ToJSString val) => - self -> val -> m () -setChannelInterpretation self val - = liftIO - (js_setChannelInterpretation (toAudioNode self) (toJSString val)) - foreign import javascript unsafe "(($1) => { return $1[\"channelInterpretation\"]; })" - js_getChannelInterpretation :: AudioNode -> IO JSString - --- | -getChannelInterpretation :: - (MonadIO m, IsAudioNode self, FromJSString result) => - self -> m result -getChannelInterpretation self - = liftIO - (fromJSString <$> (js_getChannelInterpretation (toAudioNode self))) + js_getChannelInterpretation :: AudioNode -> IO JSVal +-- | +getChannelInterpretation :: (MonadDOM m, IsAudioNode self) => self -> m ChannelInterpretation +getChannelInterpretation self = liftDOM (((js_getChannelInterpretation ((Types.toAudioNode self))) >>= fromJSValUnchecked)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/AudioNodeOptions.hs b/src/GHCJS/DOM/JSFFI/Generated/AudioNodeOptions.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/AudioNodeOptions.hs @@ -0,0 +1,83 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from webaudio-1.1 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.AudioNodeOptions + (js_newAudioNodeOptions, js_setChannelCount, js_getChannelCount, js_setChannelCountMode, js_getChannelCountMode, js_setChannelInterpretation, js_getChannelInterpretation, newAudioNodeOptions, setChannelCount, getChannelCount, getChannelCountUnsafe, getChannelCountUnchecked, setChannelCountMode, getChannelCountMode, getChannelCountModeUnsafe, getChannelCountModeUnchecked, setChannelInterpretation, getChannelInterpretation, getChannelInterpretationUnsafe, getChannelInterpretationUnchecked, AudioNodeOptions(..), gTypeAudioNodeOptions, IsAudioNodeOptions, toAudioNodeOptions) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(() => { return ({}); })" + js_newAudioNodeOptions :: IO AudioNodeOptions +-- | +newAudioNodeOptions :: (MonadDOM m) => m AudioNodeOptions +newAudioNodeOptions = liftDOM ((js_newAudioNodeOptions)) + +foreign import javascript safe "(($1, $2) => { $1[\"channelCount\"] = $2; })" + js_setChannelCount :: AudioNodeOptions -> Word -> IO () +-- | +setChannelCount :: (MonadDOM m, IsAudioNodeOptions self) => self -> Word -> m () +setChannelCount self val = liftDOM (void ((js_setChannelCount ((Types.toAudioNodeOptions self)) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"channelCount\"]; })" + js_getChannelCount :: AudioNodeOptions -> IO JSVal +-- | +getChannelCount :: (MonadDOM m, IsAudioNodeOptions self) => self -> m (Maybe Word) +getChannelCount self = liftDOM (((js_getChannelCount ((Types.toAudioNodeOptions self))) >>= fromJSValUnchecked)) + +-- | +getChannelCountUnsafe :: (MonadDOM m, IsAudioNodeOptions self, HasCallStack) => self -> m Word +getChannelCountUnsafe self = liftDOM ((((js_getChannelCount ((Types.toAudioNodeOptions self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getChannelCountUnchecked :: (MonadDOM m, IsAudioNodeOptions self) => self -> m Word +getChannelCountUnchecked self = liftDOM ((pFromJSVal <$> (js_getChannelCount ((Types.toAudioNodeOptions self))))) + +foreign import javascript safe "(($1, $2) => { $1[\"channelCountMode\"] = $2; })" + js_setChannelCountMode :: AudioNodeOptions -> JSVal -> IO () +-- | +setChannelCountMode :: (MonadDOM m, IsAudioNodeOptions self) => self -> ChannelCountMode -> m () +setChannelCountMode self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setChannelCountMode ((Types.toAudioNodeOptions self)) a2'))) + +foreign import javascript unsafe "(($1) => { return $1[\"channelCountMode\"]; })" + js_getChannelCountMode :: AudioNodeOptions -> IO JSVal +-- | +getChannelCountMode :: (MonadDOM m, IsAudioNodeOptions self) => self -> m (Maybe ChannelCountMode) +getChannelCountMode self = liftDOM (((js_getChannelCountMode ((Types.toAudioNodeOptions self))) >>= fromJSValUnchecked)) + +-- | +getChannelCountModeUnsafe :: (MonadDOM m, IsAudioNodeOptions self, HasCallStack) => self -> m ChannelCountMode +getChannelCountModeUnsafe self = liftDOM ((((js_getChannelCountMode ((Types.toAudioNodeOptions self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getChannelCountModeUnchecked :: (MonadDOM m, IsAudioNodeOptions self) => self -> m ChannelCountMode +getChannelCountModeUnchecked self = liftDOM ((pFromJSVal <$> (js_getChannelCountMode ((Types.toAudioNodeOptions self))))) + +foreign import javascript safe "(($1, $2) => { $1[\"channelInterpretation\"] = $2; })" + js_setChannelInterpretation :: AudioNodeOptions -> JSVal -> IO () +-- | +setChannelInterpretation :: (MonadDOM m, IsAudioNodeOptions self) => self -> ChannelInterpretation -> m () +setChannelInterpretation self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setChannelInterpretation ((Types.toAudioNodeOptions self)) a2'))) + +foreign import javascript unsafe "(($1) => { return $1[\"channelInterpretation\"]; })" + js_getChannelInterpretation :: AudioNodeOptions -> IO JSVal +-- | +getChannelInterpretation :: (MonadDOM m, IsAudioNodeOptions self) => self -> m (Maybe ChannelInterpretation) +getChannelInterpretation self = liftDOM (((js_getChannelInterpretation ((Types.toAudioNodeOptions self))) >>= fromJSValUnchecked)) + +-- | +getChannelInterpretationUnsafe :: (MonadDOM m, IsAudioNodeOptions self, HasCallStack) => self -> m ChannelInterpretation +getChannelInterpretationUnsafe self = liftDOM ((((js_getChannelInterpretation ((Types.toAudioNodeOptions self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getChannelInterpretationUnchecked :: (MonadDOM m, IsAudioNodeOptions self) => self -> m ChannelInterpretation +getChannelInterpretationUnchecked self = liftDOM ((pFromJSVal <$> (js_getChannelInterpretation ((Types.toAudioNodeOptions self))))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/AudioParam.hs b/src/GHCJS/DOM/JSFFI/Generated/AudioParam.hs --- a/src/GHCJS/DOM/JSFFI/Generated/AudioParam.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/AudioParam.hs @@ -1,148 +1,129 @@ {-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE JavaScriptFFI #-} --- For HasCallStack compatibility +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from webaudio-1.1 (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.AudioParam - (js_setValueAtTime, setValueAtTime, js_linearRampToValueAtTime, - linearRampToValueAtTime, js_exponentialRampToValueAtTime, - exponentialRampToValueAtTime, js_setTargetAtTime, setTargetAtTime, - js_setValueCurveAtTime, setValueCurveAtTime, - js_cancelScheduledValues, cancelScheduledValues, js_setValue, - setValue, js_getValue, getValue, js_getMinValue, getMinValue, - js_getMaxValue, getMaxValue, js_getDefaultValue, getDefaultValue, - js_getName, getName, js_getUnits, getUnits, AudioParam(..), - gTypeAudioParam) + (js_cancelAndHoldAtTime, js_cancelScheduledValues, js_exponentialRampToValueAtTime, js_linearRampToValueAtTime, js_setTargetAtTime, js_setValueAtTime, js_setValueCurveAtTime, js_setValue, js_getValue, js_setAutomationRate, js_getAutomationRate, js_getDefaultValue, js_getMinValue, js_getMaxValue, cancelAndHoldAtTime, cancelAndHoldAtTime_, cancelScheduledValues, cancelScheduledValues_, exponentialRampToValueAtTime, exponentialRampToValueAtTime_, linearRampToValueAtTime, linearRampToValueAtTime_, setTargetAtTime, setTargetAtTime_, setValueAtTime, setValueAtTime_, setValueCurveAtTime, setValueCurveAtTime_, setValue, getValue, setAutomationRate, getAutomationRate, getDefaultValue, getMinValue, getMaxValue, AudioParam(..), gTypeAudioParam) where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull, jsUndefined) -import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import Data.Maybe (fromJust) -import Data.Traversable (mapM) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types -import Control.Applicative ((<$>)) +import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums - -foreign import javascript unsafe "(($1, $2, $3) => { return $1[\"setValueAtTime\"]($2, $3); })" - js_setValueAtTime :: AudioParam -> Float -> Float -> IO () --- | -setValueAtTime :: - (MonadIO m) => AudioParam -> Float -> Float -> m () -setValueAtTime self value time - = liftIO (js_setValueAtTime self value time) - -foreign import javascript unsafe - "(($1, $2, $3) => { return $1[\"linearRampToValueAtTime\"]($2,\n$3); })" - js_linearRampToValueAtTime :: AudioParam -> Float -> Float -> IO () +foreign import javascript safe "(($1, $2) => { return $1[\"cancelAndHoldAtTime\"]($2); })" + js_cancelAndHoldAtTime :: AudioParam -> Double -> IO AudioParam +-- | +cancelAndHoldAtTime :: (MonadDOM m) => AudioParam -> Double -> m AudioParam +cancelAndHoldAtTime self cancelTime = liftDOM ((js_cancelAndHoldAtTime (self) (cancelTime))) --- | -linearRampToValueAtTime :: - (MonadIO m) => AudioParam -> Float -> Float -> m () -linearRampToValueAtTime self value time - = liftIO (js_linearRampToValueAtTime self value time) - -foreign import javascript unsafe - "(($1, $2, $3) => { return $1[\"exponentialRampToValueAtTime\"]($2,\n$3); })" - js_exponentialRampToValueAtTime :: - AudioParam -> Float -> Float -> IO () +-- | +cancelAndHoldAtTime_ :: (MonadDOM m) => AudioParam -> Double -> m () +cancelAndHoldAtTime_ self cancelTime = liftDOM (void ((js_cancelAndHoldAtTime (self) (cancelTime)))) --- | -exponentialRampToValueAtTime :: - (MonadIO m) => AudioParam -> Float -> Float -> m () -exponentialRampToValueAtTime self value time - = liftIO (js_exponentialRampToValueAtTime self value time) - -foreign import javascript unsafe - "(($1, $2, $3, $4) => { return $1[\"setTargetAtTime\"]($2, $3,\n$4); })" js_setTargetAtTime :: - AudioParam -> Float -> Float -> Float -> IO () +foreign import javascript safe "(($1, $2) => { return $1[\"cancelScheduledValues\"]($2); })" + js_cancelScheduledValues :: AudioParam -> Double -> IO AudioParam +-- | +cancelScheduledValues :: (MonadDOM m) => AudioParam -> Double -> m AudioParam +cancelScheduledValues self cancelTime = liftDOM ((js_cancelScheduledValues (self) (cancelTime))) --- | -setTargetAtTime :: - (MonadIO m) => AudioParam -> Float -> Float -> Float -> m () -setTargetAtTime self target time timeConstant - = liftIO (js_setTargetAtTime self target time timeConstant) - -foreign import javascript unsafe - "(($1, $2, $3, $4) => { return $1[\"setValueCurveAtTime\"]($2,\n$3, $4); })" js_setValueCurveAtTime - :: AudioParam -> Optional Float32Array -> Float -> Float -> IO () +-- | +cancelScheduledValues_ :: (MonadDOM m) => AudioParam -> Double -> m () +cancelScheduledValues_ self cancelTime = liftDOM (void ((js_cancelScheduledValues (self) (cancelTime)))) --- | -setValueCurveAtTime :: - (MonadIO m, IsFloat32Array values) => - AudioParam -> Maybe values -> Float -> Float -> m () -setValueCurveAtTime self values time duration - = liftIO - (js_setValueCurveAtTime self - (maybeToOptional (fmap toFloat32Array values)) - time - duration) - -foreign import javascript unsafe - "(($1, $2) => { return $1[\"cancelScheduledValues\"]($2); })" js_cancelScheduledValues :: - AudioParam -> Float -> IO () +foreign import javascript safe "(($1, $2, $3) => { return $1[\"exponentialRampToValueAtTime\"]($2, $3); })" + js_exponentialRampToValueAtTime :: AudioParam -> Float -> Double -> IO AudioParam +-- | +exponentialRampToValueAtTime :: (MonadDOM m) => AudioParam -> Float -> Double -> m AudioParam +exponentialRampToValueAtTime self value endTime = liftDOM ((js_exponentialRampToValueAtTime (self) (value) (endTime))) --- | -cancelScheduledValues :: (MonadIO m) => AudioParam -> Float -> m () -cancelScheduledValues self startTime - = liftIO (js_cancelScheduledValues self startTime) - -foreign import javascript unsafe "(($1, $2) => { $1[\"value\"] = $2; })" js_setValue - :: AudioParam -> Float -> IO () +-- | +exponentialRampToValueAtTime_ :: (MonadDOM m) => AudioParam -> Float -> Double -> m () +exponentialRampToValueAtTime_ self value endTime = liftDOM (void ((js_exponentialRampToValueAtTime (self) (value) (endTime)))) --- | -setValue :: (MonadIO m) => AudioParam -> Float -> m () -setValue self val = liftIO (js_setValue self val) - -foreign import javascript unsafe "(($1) => { return $1[\"value\"]; })" js_getValue :: - AudioParam -> IO Float +foreign import javascript safe "(($1, $2, $3) => { return $1[\"linearRampToValueAtTime\"]($2, $3); })" + js_linearRampToValueAtTime :: AudioParam -> Float -> Double -> IO AudioParam +-- | +linearRampToValueAtTime :: (MonadDOM m) => AudioParam -> Float -> Double -> m AudioParam +linearRampToValueAtTime self value endTime = liftDOM ((js_linearRampToValueAtTime (self) (value) (endTime))) --- | -getValue :: (MonadIO m) => AudioParam -> m Float -getValue self = liftIO (js_getValue self) - -foreign import javascript unsafe "(($1) => { return $1[\"minValue\"]; })" js_getMinValue - :: AudioParam -> IO Float +-- | +linearRampToValueAtTime_ :: (MonadDOM m) => AudioParam -> Float -> Double -> m () +linearRampToValueAtTime_ self value endTime = liftDOM (void ((js_linearRampToValueAtTime (self) (value) (endTime)))) --- | -getMinValue :: (MonadIO m) => AudioParam -> m Float -getMinValue self = liftIO (js_getMinValue self) - -foreign import javascript unsafe "(($1) => { return $1[\"maxValue\"]; })" js_getMaxValue - :: AudioParam -> IO Float +foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"setTargetAtTime\"]($2, $3, $4); })" + js_setTargetAtTime :: AudioParam -> Float -> Double -> Float -> IO AudioParam +-- | +setTargetAtTime :: (MonadDOM m) => AudioParam -> Float -> Double -> Float -> m AudioParam +setTargetAtTime self target startTime timeConstant = liftDOM ((js_setTargetAtTime (self) (target) (startTime) (timeConstant))) --- | -getMaxValue :: (MonadIO m) => AudioParam -> m Float -getMaxValue self = liftIO (js_getMaxValue self) - +-- | +setTargetAtTime_ :: (MonadDOM m) => AudioParam -> Float -> Double -> Float -> m () +setTargetAtTime_ self target startTime timeConstant = liftDOM (void ((js_setTargetAtTime (self) (target) (startTime) (timeConstant)))) + +foreign import javascript safe "(($1, $2, $3) => { return $1[\"setValueAtTime\"]($2, $3); })" + js_setValueAtTime :: AudioParam -> Float -> Double -> IO AudioParam +-- | +setValueAtTime :: (MonadDOM m) => AudioParam -> Float -> Double -> m AudioParam +setValueAtTime self value startTime = liftDOM ((js_setValueAtTime (self) (value) (startTime))) + +-- | +setValueAtTime_ :: (MonadDOM m) => AudioParam -> Float -> Double -> m () +setValueAtTime_ self value startTime = liftDOM (void ((js_setValueAtTime (self) (value) (startTime)))) + +foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"setValueCurveAtTime\"]($2, $3, $4); })" + js_setValueCurveAtTime :: AudioParam -> JSVal -> Double -> Double -> IO AudioParam +-- | +setValueCurveAtTime :: (MonadDOM m) => AudioParam -> [Float] -> Double -> Double -> m AudioParam +setValueCurveAtTime self values startTime duration = liftDOM (((toJSVal values) >>= \a2' -> js_setValueCurveAtTime (self) a2' (startTime) (duration))) + +-- | +setValueCurveAtTime_ :: (MonadDOM m) => AudioParam -> [Float] -> Double -> Double -> m () +setValueCurveAtTime_ self values startTime duration = liftDOM (void (((toJSVal values) >>= \a2' -> js_setValueCurveAtTime (self) a2' (startTime) (duration)))) + +foreign import javascript safe "(($1, $2) => { $1[\"value\"] = $2; })" + js_setValue :: AudioParam -> Float -> IO () +-- | +setValue :: (MonadDOM m) => AudioParam -> Float -> m () +setValue self val = liftDOM (void ((js_setValue (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"value\"]; })" + js_getValue :: AudioParam -> IO Float +-- | +getValue :: (MonadDOM m) => AudioParam -> m Float +getValue self = liftDOM ((js_getValue (self))) + +foreign import javascript safe "(($1, $2) => { $1[\"automationRate\"] = $2; })" + js_setAutomationRate :: AudioParam -> JSVal -> IO () +-- | +setAutomationRate :: (MonadDOM m) => AudioParam -> AutomationRate -> m () +setAutomationRate self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setAutomationRate (self) a2'))) + +foreign import javascript unsafe "(($1) => { return $1[\"automationRate\"]; })" + js_getAutomationRate :: AudioParam -> IO JSVal +-- | +getAutomationRate :: (MonadDOM m) => AudioParam -> m AutomationRate +getAutomationRate self = liftDOM (((js_getAutomationRate (self)) >>= fromJSValUnchecked)) + foreign import javascript unsafe "(($1) => { return $1[\"defaultValue\"]; })" js_getDefaultValue :: AudioParam -> IO Float - --- | -getDefaultValue :: (MonadIO m) => AudioParam -> m Float -getDefaultValue self = liftIO (js_getDefaultValue self) - -foreign import javascript unsafe "(($1) => { return $1[\"name\"]; })" js_getName :: - AudioParam -> IO JSString +-- | +getDefaultValue :: (MonadDOM m) => AudioParam -> m Float +getDefaultValue self = liftDOM ((js_getDefaultValue (self))) --- | -getName :: - (MonadIO m, FromJSString result) => AudioParam -> m result -getName self = liftIO (fromJSString <$> (js_getName self)) - -foreign import javascript unsafe "(($1) => { return $1[\"units\"]; })" js_getUnits :: - AudioParam -> IO Word +foreign import javascript unsafe "(($1) => { return $1[\"minValue\"]; })" + js_getMinValue :: AudioParam -> IO Float +-- | +getMinValue :: (MonadDOM m) => AudioParam -> m Float +getMinValue self = liftDOM ((js_getMinValue (self))) --- | -getUnits :: (MonadIO m) => AudioParam -> m Word -getUnits self = liftIO (js_getUnits self) +foreign import javascript unsafe "(($1) => { return $1[\"maxValue\"]; })" + js_getMaxValue :: AudioParam -> IO Float +-- | +getMaxValue :: (MonadDOM m) => AudioParam -> m Float +getMaxValue self = liftDOM ((js_getMaxValue (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/AudioParamMap.hs b/src/GHCJS/DOM/JSFFI/Generated/AudioParamMap.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/AudioParamMap.hs @@ -0,0 +1,18 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from webaudio-1.1 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.AudioParamMap + (AudioParamMap(..), gTypeAudioParamMap) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + diff --git a/src/GHCJS/DOM/JSFFI/Generated/AudioProcessingEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/AudioProcessingEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/AudioProcessingEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/AudioProcessingEvent.hs @@ -1,51 +1,41 @@ {-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE JavaScriptFFI #-} --- For HasCallStack compatibility +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from webaudio-1.1 (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.AudioProcessingEvent - (js_getPlaybackTime, getPlaybackTime, js_getInputBuffer, - getInputBuffer, js_getOutputBuffer, getOutputBuffer, - AudioProcessingEvent(..), gTypeAudioProcessingEvent) + (js_newAudioProcessingEvent, js_getPlaybackTime, js_getInputBuffer, js_getOutputBuffer, newAudioProcessingEvent, getPlaybackTime, getInputBuffer, getOutputBuffer, AudioProcessingEvent(..), gTypeAudioProcessingEvent) where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull, jsUndefined) -import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import Data.Maybe (fromJust) -import Data.Traversable (mapM) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types -import Control.Applicative ((<$>)) +import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums - + +foreign import javascript safe "(($1, $2) => { return new globalThis[\"AudioProcessingEvent\"]($1, $2); })" + js_newAudioProcessingEvent :: JSString -> AudioProcessingEventInit -> IO AudioProcessingEvent +-- | +newAudioProcessingEvent :: (MonadDOM m, ToJSString type') => type' -> AudioProcessingEventInit -> m AudioProcessingEvent +newAudioProcessingEvent type' eventInitDict = liftDOM ((js_newAudioProcessingEvent (toJSString type') (eventInitDict))) + foreign import javascript unsafe "(($1) => { return $1[\"playbackTime\"]; })" js_getPlaybackTime :: AudioProcessingEvent -> IO Double +-- | +getPlaybackTime :: (MonadDOM m) => AudioProcessingEvent -> m Double +getPlaybackTime self = liftDOM ((js_getPlaybackTime (self))) --- | -getPlaybackTime :: (MonadIO m) => AudioProcessingEvent -> m Double -getPlaybackTime self = liftIO (js_getPlaybackTime self) - foreign import javascript unsafe "(($1) => { return $1[\"inputBuffer\"]; })" js_getInputBuffer :: AudioProcessingEvent -> IO AudioBuffer +-- | +getInputBuffer :: (MonadDOM m) => AudioProcessingEvent -> m AudioBuffer +getInputBuffer self = liftDOM ((js_getInputBuffer (self))) --- | -getInputBuffer :: - (MonadIO m) => AudioProcessingEvent -> m AudioBuffer -getInputBuffer self = liftIO (js_getInputBuffer self) - foreign import javascript unsafe "(($1) => { return $1[\"outputBuffer\"]; })" js_getOutputBuffer :: AudioProcessingEvent -> IO AudioBuffer - --- | -getOutputBuffer :: - (MonadIO m) => AudioProcessingEvent -> m AudioBuffer -getOutputBuffer self = liftIO (js_getOutputBuffer self) +-- | +getOutputBuffer :: (MonadDOM m) => AudioProcessingEvent -> m AudioBuffer +getOutputBuffer self = liftDOM ((js_getOutputBuffer (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/AudioProcessingEventInit.hs b/src/GHCJS/DOM/JSFFI/Generated/AudioProcessingEventInit.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/AudioProcessingEventInit.hs @@ -0,0 +1,59 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from webaudio-1.1 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.AudioProcessingEventInit + (js_newAudioProcessingEventInit, js_setPlaybackTime, js_getPlaybackTime, js_setInputBuffer, js_getInputBuffer, js_setOutputBuffer, js_getOutputBuffer, newAudioProcessingEventInit, setPlaybackTime, getPlaybackTime, setInputBuffer, getInputBuffer, setOutputBuffer, getOutputBuffer, AudioProcessingEventInit(..), gTypeAudioProcessingEventInit) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1, $2, $3) => { return ({\"playbackTime\": $1, \"inputBuffer\": $2, \"outputBuffer\": $3}); })" + js_newAudioProcessingEventInit :: Double -> AudioBuffer -> AudioBuffer -> IO AudioProcessingEventInit +-- | +newAudioProcessingEventInit :: (MonadDOM m) => Double -> AudioBuffer -> AudioBuffer -> m AudioProcessingEventInit +newAudioProcessingEventInit playbackTime inputBuffer outputBuffer = liftDOM ((js_newAudioProcessingEventInit (playbackTime) (inputBuffer) (outputBuffer))) + +foreign import javascript safe "(($1, $2) => { $1[\"playbackTime\"] = $2; })" + js_setPlaybackTime :: AudioProcessingEventInit -> Double -> IO () +-- | +setPlaybackTime :: (MonadDOM m) => AudioProcessingEventInit -> Double -> m () +setPlaybackTime self val = liftDOM (void ((js_setPlaybackTime (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"playbackTime\"]; })" + js_getPlaybackTime :: AudioProcessingEventInit -> IO Double +-- | +getPlaybackTime :: (MonadDOM m) => AudioProcessingEventInit -> m Double +getPlaybackTime self = liftDOM ((js_getPlaybackTime (self))) + +foreign import javascript safe "(($1, $2) => { $1[\"inputBuffer\"] = $2; })" + js_setInputBuffer :: AudioProcessingEventInit -> AudioBuffer -> IO () +-- | +setInputBuffer :: (MonadDOM m) => AudioProcessingEventInit -> AudioBuffer -> m () +setInputBuffer self val = liftDOM (void ((js_setInputBuffer (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"inputBuffer\"]; })" + js_getInputBuffer :: AudioProcessingEventInit -> IO AudioBuffer +-- | +getInputBuffer :: (MonadDOM m) => AudioProcessingEventInit -> m AudioBuffer +getInputBuffer self = liftDOM ((js_getInputBuffer (self))) + +foreign import javascript safe "(($1, $2) => { $1[\"outputBuffer\"] = $2; })" + js_setOutputBuffer :: AudioProcessingEventInit -> AudioBuffer -> IO () +-- | +setOutputBuffer :: (MonadDOM m) => AudioProcessingEventInit -> AudioBuffer -> m () +setOutputBuffer self val = liftDOM (void ((js_setOutputBuffer (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"outputBuffer\"]; })" + js_getOutputBuffer :: AudioProcessingEventInit -> IO AudioBuffer +-- | +getOutputBuffer :: (MonadDOM m) => AudioProcessingEventInit -> m AudioBuffer +getOutputBuffer self = liftDOM ((js_getOutputBuffer (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/AudioScheduledSourceNode.hs b/src/GHCJS/DOM/JSFFI/Generated/AudioScheduledSourceNode.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/AudioScheduledSourceNode.hs @@ -0,0 +1,33 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from webaudio-1.1 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.AudioScheduledSourceNode + (js_start, js_stop, start, stop, ended, AudioScheduledSourceNode(..), gTypeAudioScheduledSourceNode, IsAudioScheduledSourceNode, toAudioScheduledSourceNode) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1, $2) => { return $1[\"start\"]($2); })" + js_start :: AudioScheduledSourceNode -> JSVal -> IO () +-- | +start :: (MonadDOM m, IsAudioScheduledSourceNode self) => self -> Maybe Double -> m () +start self when = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal when) >>= \a2' -> js_start ((Types.toAudioScheduledSourceNode self)) a2'))) + +foreign import javascript safe "(($1, $2) => { return $1[\"stop\"]($2); })" + js_stop :: AudioScheduledSourceNode -> JSVal -> IO () +-- | +stop :: (MonadDOM m, IsAudioScheduledSourceNode self) => self -> Maybe Double -> m () +stop self when = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal when) >>= \a2' -> js_stop ((Types.toAudioScheduledSourceNode self)) a2'))) + +-- | +ended :: (IsAudioScheduledSourceNode self, IsEventTarget self) => EventName self Event +ended = unsafeEventName (toJSString "ended") diff --git a/src/GHCJS/DOM/JSFFI/Generated/AudioSinkOptions.hs b/src/GHCJS/DOM/JSFFI/Generated/AudioSinkOptions.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/AudioSinkOptions.hs @@ -0,0 +1,35 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from webaudio-1.1 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.AudioSinkOptions + (js_newAudioSinkOptions, js_setType, js_getType, newAudioSinkOptions, setType, getType, AudioSinkOptions(..), gTypeAudioSinkOptions) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1) => { return ({\"type\": $1}); })" + js_newAudioSinkOptions :: JSVal -> IO AudioSinkOptions +-- | +newAudioSinkOptions :: (MonadDOM m) => AudioSinkType -> m AudioSinkOptions +newAudioSinkOptions type' = liftDOM (((toJSVal type') >>= \a1' -> js_newAudioSinkOptions a1')) + +foreign import javascript safe "(($1, $2) => { $1[\"type\"] = $2; })" + js_setType :: AudioSinkOptions -> JSVal -> IO () +-- | +setType :: (MonadDOM m) => AudioSinkOptions -> AudioSinkType -> m () +setType self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setType (self) a2'))) + +foreign import javascript unsafe "(($1) => { return $1[\"type\"]; })" + js_getType :: AudioSinkOptions -> IO JSVal +-- | +getType :: (MonadDOM m) => AudioSinkOptions -> m AudioSinkType +getType self = liftDOM (((js_getType (self)) >>= fromJSValUnchecked)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/AudioTimestamp.hs b/src/GHCJS/DOM/JSFFI/Generated/AudioTimestamp.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/AudioTimestamp.hs @@ -0,0 +1,63 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from webaudio-1.1 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.AudioTimestamp + (js_newAudioTimestamp, js_setContextTime, js_getContextTime, js_setPerformanceTime, js_getPerformanceTime, newAudioTimestamp, setContextTime, getContextTime, getContextTimeUnsafe, getContextTimeUnchecked, setPerformanceTime, getPerformanceTime, getPerformanceTimeUnsafe, getPerformanceTimeUnchecked, AudioTimestamp(..), gTypeAudioTimestamp) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(() => { return ({}); })" + js_newAudioTimestamp :: IO AudioTimestamp +-- | +newAudioTimestamp :: (MonadDOM m) => m AudioTimestamp +newAudioTimestamp = liftDOM ((js_newAudioTimestamp)) + +foreign import javascript safe "(($1, $2) => { $1[\"contextTime\"] = $2; })" + js_setContextTime :: AudioTimestamp -> Double -> IO () +-- | +setContextTime :: (MonadDOM m) => AudioTimestamp -> Double -> m () +setContextTime self val = liftDOM (void ((js_setContextTime (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"contextTime\"]; })" + js_getContextTime :: AudioTimestamp -> IO JSVal +-- | +getContextTime :: (MonadDOM m) => AudioTimestamp -> m (Maybe Double) +getContextTime self = liftDOM (((js_getContextTime (self)) >>= fromJSValUnchecked)) + +-- | +getContextTimeUnsafe :: (MonadDOM m, HasCallStack) => AudioTimestamp -> m Double +getContextTimeUnsafe self = liftDOM ((((js_getContextTime (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getContextTimeUnchecked :: (MonadDOM m) => AudioTimestamp -> m Double +getContextTimeUnchecked self = liftDOM ((pFromJSVal <$> (js_getContextTime (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"performanceTime\"] = $2; })" + js_setPerformanceTime :: AudioTimestamp -> Double -> IO () +-- | +setPerformanceTime :: (MonadDOM m) => AudioTimestamp -> Double -> m () +setPerformanceTime self val = liftDOM (void ((js_setPerformanceTime (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"performanceTime\"]; })" + js_getPerformanceTime :: AudioTimestamp -> IO JSVal +-- | +getPerformanceTime :: (MonadDOM m) => AudioTimestamp -> m (Maybe Double) +getPerformanceTime self = liftDOM (((js_getPerformanceTime (self)) >>= fromJSValUnchecked)) + +-- | +getPerformanceTimeUnsafe :: (MonadDOM m, HasCallStack) => AudioTimestamp -> m Double +getPerformanceTimeUnsafe self = liftDOM ((((js_getPerformanceTime (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getPerformanceTimeUnchecked :: (MonadDOM m) => AudioTimestamp -> m Double +getPerformanceTimeUnchecked self = liftDOM ((pFromJSVal <$> (js_getPerformanceTime (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/AudioTrack.hs b/src/GHCJS/DOM/JSFFI/Generated/AudioTrack.hs --- a/src/GHCJS/DOM/JSFFI/Generated/AudioTrack.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/AudioTrack.hs @@ -1,98 +1,67 @@ {-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE JavaScriptFFI #-} --- For HasCallStack compatibility +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from html (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.AudioTrack - (js_getId, getId, js_setKind, setKind, js_getKind, getKind, - js_getLabel, getLabel, js_setLanguage, setLanguage, js_getLanguage, - getLanguage, js_setEnabled, setEnabled, js_getEnabled, getEnabled, - js_getSourceBuffer, getSourceBuffer, AudioTrack(..), - gTypeAudioTrack) + (js_getId, js_getKind, js_getLabel, js_getLanguage, js_setEnabled, js_getEnabled, js_getSourceBuffer, getId, getKind, getLabel, getLanguage, setEnabled, getEnabled, getSourceBuffer, getSourceBufferUnsafe, getSourceBufferUnchecked, AudioTrack(..), gTypeAudioTrack) where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull, jsUndefined) -import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import Data.Maybe (fromJust) -import Data.Traversable (mapM) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types -import Control.Applicative ((<$>)) +import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums - -foreign import javascript unsafe "(($1) => { return $1[\"id\"]; })" js_getId :: - AudioTrack -> IO JSString --- | -getId :: (MonadIO m, FromJSString result) => AudioTrack -> m result -getId self = liftIO (fromJSString <$> (js_getId self)) - -foreign import javascript unsafe "(($1, $2) => { $1[\"kind\"] = $2; })" js_setKind :: - AudioTrack -> JSString -> IO () - --- | -setKind :: (MonadIO m, ToJSString val) => AudioTrack -> val -> m () -setKind self val = liftIO (js_setKind self (toJSString val)) - -foreign import javascript unsafe "(($1) => { return $1[\"kind\"]; })" js_getKind :: - AudioTrack -> IO JSString +foreign import javascript unsafe "(($1) => { return $1[\"id\"]; })" + js_getId :: AudioTrack -> IO JSString +-- | +getId :: (MonadDOM m, FromJSString result) => AudioTrack -> m result +getId self = liftDOM ((fromJSString <$> (js_getId (self)))) --- | -getKind :: - (MonadIO m, FromJSString result) => AudioTrack -> m result -getKind self = liftIO (fromJSString <$> (js_getKind self)) - -foreign import javascript unsafe "(($1) => { return $1[\"label\"]; })" js_getLabel :: - AudioTrack -> IO JSString +foreign import javascript unsafe "(($1) => { return $1[\"kind\"]; })" + js_getKind :: AudioTrack -> IO JSString +-- | +getKind :: (MonadDOM m, FromJSString result) => AudioTrack -> m result +getKind self = liftDOM ((fromJSString <$> (js_getKind (self)))) --- | -getLabel :: - (MonadIO m, FromJSString result) => AudioTrack -> m result -getLabel self = liftIO (fromJSString <$> (js_getLabel self)) - -foreign import javascript unsafe "(($1, $2) => { $1[\"language\"] = $2; })" - js_setLanguage :: AudioTrack -> JSString -> IO () +foreign import javascript unsafe "(($1) => { return $1[\"label\"]; })" + js_getLabel :: AudioTrack -> IO JSString +-- | +getLabel :: (MonadDOM m, FromJSString result) => AudioTrack -> m result +getLabel self = liftDOM ((fromJSString <$> (js_getLabel (self)))) --- | -setLanguage :: - (MonadIO m, ToJSString val) => AudioTrack -> val -> m () -setLanguage self val - = liftIO (js_setLanguage self (toJSString val)) - -foreign import javascript unsafe "(($1) => { return $1[\"language\"]; })" js_getLanguage - :: AudioTrack -> IO JSString +foreign import javascript unsafe "(($1) => { return $1[\"language\"]; })" + js_getLanguage :: AudioTrack -> IO JSString +-- | +getLanguage :: (MonadDOM m, FromJSString result) => AudioTrack -> m result +getLanguage self = liftDOM ((fromJSString <$> (js_getLanguage (self)))) --- | -getLanguage :: - (MonadIO m, FromJSString result) => AudioTrack -> m result -getLanguage self = liftIO (fromJSString <$> (js_getLanguage self)) - -foreign import javascript unsafe "(($1, $2) => { $1[\"enabled\"] = $2; })" +foreign import javascript safe "(($1, $2) => { $1[\"enabled\"] = $2; })" js_setEnabled :: AudioTrack -> Bool -> IO () +-- | +setEnabled :: (MonadDOM m) => AudioTrack -> Bool -> m () +setEnabled self val = liftDOM (void ((js_setEnabled (self) (val)))) --- | -setEnabled :: (MonadIO m) => AudioTrack -> Bool -> m () -setEnabled self val = liftIO (js_setEnabled self val) - -foreign import javascript unsafe "(($1) => { return ($1[\"enabled\"] ? 1 : 0); })" +foreign import javascript unsafe "(($1) => { return $1[\"enabled\"]; })" js_getEnabled :: AudioTrack -> IO Bool +-- | +getEnabled :: (MonadDOM m) => AudioTrack -> m Bool +getEnabled self = liftDOM ((js_getEnabled (self))) --- | -getEnabled :: (MonadIO m) => AudioTrack -> m Bool -getEnabled self = liftIO (js_getEnabled self) - foreign import javascript unsafe "(($1) => { return $1[\"sourceBuffer\"]; })" - js_getSourceBuffer :: AudioTrack -> IO SourceBuffer + js_getSourceBuffer :: AudioTrack -> IO JSVal +-- | +getSourceBuffer :: (MonadDOM m) => AudioTrack -> m (Maybe SourceBuffer) +getSourceBuffer self = liftDOM (((js_getSourceBuffer (self)) >>= fromJSValUnchecked)) --- | -getSourceBuffer :: (MonadIO m) => AudioTrack -> m SourceBuffer -getSourceBuffer self = liftIO (js_getSourceBuffer self) +-- | +getSourceBufferUnsafe :: (MonadDOM m, HasCallStack) => AudioTrack -> m SourceBuffer +getSourceBufferUnsafe self = liftDOM ((((js_getSourceBuffer (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getSourceBufferUnchecked :: (MonadDOM m) => AudioTrack -> m SourceBuffer +getSourceBufferUnchecked self = liftDOM ((pFromJSVal <$> (js_getSourceBuffer (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/AudioTrackList.hs b/src/GHCJS/DOM/JSFFI/Generated/AudioTrackList.hs --- a/src/GHCJS/DOM/JSFFI/Generated/AudioTrackList.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/AudioTrackList.hs @@ -1,73 +1,53 @@ {-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE JavaScriptFFI #-} --- For HasCallStack compatibility +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from html (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.AudioTrackList - (js_item, item, item_, js_getTrackById, getTrackById, - getTrackById_, js_getLength, getLength, change, addTrack, - removeTrack, AudioTrackList(..), gTypeAudioTrackList) + (js_getTrackById, js_getLength, getTrackById, getTrackById_, getTrackByIdUnsafe, getTrackByIdUnchecked, getLength, change, addTrack, removeTrack, AudioTrackList(..), gTypeAudioTrackList) where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull, jsUndefined) -import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import Data.Maybe (fromJust) -import Data.Traversable (mapM) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types -import Control.Applicative ((<$>)) +import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums - -foreign import javascript unsafe "(($1, $2) => { return $1[$2]; })" js_item :: - AudioTrackList -> Word -> IO AudioTrack --- | -item :: (MonadIO m) => AudioTrackList -> Word -> m AudioTrack -item self index = liftIO (js_item self index) +foreign import javascript safe "(($1, $2) => { return $1[\"getTrackById\"]($2); })" + js_getTrackById :: AudioTrackList -> JSString -> IO JSVal +-- | +getTrackById :: (MonadDOM m, ToJSString id) => AudioTrackList -> id -> m (Maybe AudioTrack) +getTrackById self id = liftDOM (((js_getTrackById (self) (toJSString id)) >>= fromJSValUnchecked)) --- | -item_ :: (MonadIO m) => AudioTrackList -> Word -> m () -item_ self index = liftIO (void (js_item self index)) - -foreign import javascript unsafe "(($1, $2) => { return $1[\"getTrackById\"]($2); })" - js_getTrackById :: AudioTrackList -> JSString -> IO AudioTrack +-- | +getTrackById_ :: (MonadDOM m, ToJSString id) => AudioTrackList -> id -> m () +getTrackById_ self id = liftDOM (void ((js_getTrackById (self) (toJSString id)))) --- | -getTrackById :: - (MonadIO m, ToJSString id) => AudioTrackList -> id -> m AudioTrack -getTrackById self id - = liftIO (js_getTrackById self (toJSString id)) +-- | +getTrackByIdUnsafe :: (MonadDOM m, ToJSString id, HasCallStack) => AudioTrackList -> id -> m AudioTrack +getTrackByIdUnsafe self id = liftDOM ((((js_getTrackById (self) (toJSString id)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) --- | -getTrackById_ :: - (MonadIO m, ToJSString id) => AudioTrackList -> id -> m () -getTrackById_ self id - = liftIO (void (js_getTrackById self (toJSString id))) - -foreign import javascript unsafe "(($1) => { return $1[\"length\"]; })" js_getLength :: - AudioTrackList -> IO Word +-- | +getTrackByIdUnchecked :: (MonadDOM m, ToJSString id) => AudioTrackList -> id -> m AudioTrack +getTrackByIdUnchecked self id = liftDOM ((pFromJSVal <$> (js_getTrackById (self) (toJSString id)))) --- | -getLength :: (MonadIO m) => AudioTrackList -> m Word -getLength self = liftIO (js_getLength self) +foreign import javascript unsafe "(($1) => { return $1[\"length\"]; })" + js_getLength :: AudioTrackList -> IO Word +-- | +getLength :: (MonadDOM m) => AudioTrackList -> m Word +getLength self = liftDOM ((js_getLength (self))) --- | +-- | change :: EventName AudioTrackList Event change = unsafeEventName (toJSString "change") --- | -addTrack :: EventName AudioTrackList Event +-- | +addTrack :: EventName AudioTrackList TrackEvent addTrack = unsafeEventName (toJSString "addtrack") --- | -removeTrack :: EventName AudioTrackList Event +-- | +removeTrack :: EventName AudioTrackList TrackEvent removeTrack = unsafeEventName (toJSString "removetrack") diff --git a/src/GHCJS/DOM/JSFFI/Generated/AudioWorklet.hs b/src/GHCJS/DOM/JSFFI/Generated/AudioWorklet.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/AudioWorklet.hs @@ -0,0 +1,18 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from webaudio-1.1 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.AudioWorklet + (AudioWorklet(..), gTypeAudioWorklet) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + diff --git a/src/GHCJS/DOM/JSFFI/Generated/AudioWorkletGlobalScope.hs b/src/GHCJS/DOM/JSFFI/Generated/AudioWorkletGlobalScope.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/AudioWorkletGlobalScope.hs @@ -0,0 +1,41 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from webaudio-1.1 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.AudioWorkletGlobalScope + (js_registerProcessor, js_getCurrentFrame, js_getCurrentTime, js_getSampleRate, registerProcessor, getCurrentFrame, getCurrentTime, getSampleRate, AudioWorkletGlobalScope(..), gTypeAudioWorkletGlobalScope) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1, $2, $3) => { return $1[\"registerProcessor\"]($2, $3); })" + js_registerProcessor :: AudioWorkletGlobalScope -> JSString -> JSVal -> IO () +-- | +registerProcessor :: (MonadDOM m, ToJSString name) => AudioWorkletGlobalScope -> name -> AudioWorkletProcessorConstructor -> m () +registerProcessor self name processorCtor = liftDOM (void (((toJSVal processorCtor) >>= \a3' -> js_registerProcessor (self) (toJSString name) a3'))) + +foreign import javascript unsafe "(($1) => { return $1[\"currentFrame\"]; })" + js_getCurrentFrame :: AudioWorkletGlobalScope -> IO JSVal +-- | +getCurrentFrame :: (MonadDOM m) => AudioWorkletGlobalScope -> m Word53 +getCurrentFrame self = liftDOM (((js_getCurrentFrame (self)) >>= fromJSValUnchecked)) + +foreign import javascript unsafe "(($1) => { return $1[\"currentTime\"]; })" + js_getCurrentTime :: AudioWorkletGlobalScope -> IO Double +-- | +getCurrentTime :: (MonadDOM m) => AudioWorkletGlobalScope -> m Double +getCurrentTime self = liftDOM ((js_getCurrentTime (self))) + +foreign import javascript unsafe "(($1) => { return $1[\"sampleRate\"]; })" + js_getSampleRate :: AudioWorkletGlobalScope -> IO Float +-- | +getSampleRate :: (MonadDOM m) => AudioWorkletGlobalScope -> m Float +getSampleRate self = liftDOM ((js_getSampleRate (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/AudioWorkletNode.hs b/src/GHCJS/DOM/JSFFI/Generated/AudioWorkletNode.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/AudioWorkletNode.hs @@ -0,0 +1,39 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from webaudio-1.1 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.AudioWorkletNode + (js_newAudioWorkletNode, js_getParameters, js_getPort, newAudioWorkletNode, getParameters, getPort, processorerror, AudioWorkletNode(..), gTypeAudioWorkletNode) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1, $2, $3) => { return new globalThis[\"AudioWorkletNode\"]($1, $2, $3); })" + js_newAudioWorkletNode :: BaseAudioContext -> JSString -> JSVal -> IO AudioWorkletNode +-- | +newAudioWorkletNode :: (MonadDOM m, IsBaseAudioContext context, ToJSString name) => context -> name -> Maybe AudioWorkletNodeOptions -> m AudioWorkletNode +newAudioWorkletNode context name options = liftDOM (((P.maybe (P.return jsUndefined) toJSVal options) >>= \a3' -> js_newAudioWorkletNode (Types.toBaseAudioContext context) (toJSString name) a3')) + +foreign import javascript unsafe "(($1) => { return $1[\"parameters\"]; })" + js_getParameters :: AudioWorkletNode -> IO AudioParamMap +-- | +getParameters :: (MonadDOM m) => AudioWorkletNode -> m AudioParamMap +getParameters self = liftDOM ((js_getParameters (self))) + +foreign import javascript unsafe "(($1) => { return $1[\"port\"]; })" + js_getPort :: AudioWorkletNode -> IO MessagePort +-- | +getPort :: (MonadDOM m) => AudioWorkletNode -> m MessagePort +getPort self = liftDOM ((js_getPort (self))) + +-- | +processorerror :: EventName AudioWorkletNode ErrorEvent +processorerror = unsafeEventName (toJSString "processorerror") diff --git a/src/GHCJS/DOM/JSFFI/Generated/AudioWorkletNodeOptions.hs b/src/GHCJS/DOM/JSFFI/Generated/AudioWorkletNodeOptions.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/AudioWorkletNodeOptions.hs @@ -0,0 +1,123 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from webaudio-1.1 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.AudioWorkletNodeOptions + (js_newAudioWorkletNodeOptions, js_setNumberOfInputs, js_getNumberOfInputs, js_setNumberOfOutputs, js_getNumberOfOutputs, js_setOutputChannelCount, js_getOutputChannelCount, js_setParameterData, js_getParameterData, js_setProcessorOptions, js_getProcessorOptions, newAudioWorkletNodeOptions, setNumberOfInputs, getNumberOfInputs, getNumberOfInputsUnsafe, getNumberOfInputsUnchecked, setNumberOfOutputs, getNumberOfOutputs, getNumberOfOutputsUnsafe, getNumberOfOutputsUnchecked, setOutputChannelCount, getOutputChannelCount, getOutputChannelCountUnsafe, getOutputChannelCountUnchecked, setParameterData, getParameterData, getParameterDataUnsafe, getParameterDataUnchecked, setProcessorOptions, getProcessorOptions, getProcessorOptionsUnsafe, getProcessorOptionsUnchecked, AudioWorkletNodeOptions(..), gTypeAudioWorkletNodeOptions) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(() => { return ({}); })" + js_newAudioWorkletNodeOptions :: IO AudioWorkletNodeOptions +-- | +newAudioWorkletNodeOptions :: (MonadDOM m) => m AudioWorkletNodeOptions +newAudioWorkletNodeOptions = liftDOM ((js_newAudioWorkletNodeOptions)) + +foreign import javascript safe "(($1, $2) => { $1[\"numberOfInputs\"] = $2; })" + js_setNumberOfInputs :: AudioWorkletNodeOptions -> Word -> IO () +-- | +setNumberOfInputs :: (MonadDOM m) => AudioWorkletNodeOptions -> Word -> m () +setNumberOfInputs self val = liftDOM (void ((js_setNumberOfInputs (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"numberOfInputs\"]; })" + js_getNumberOfInputs :: AudioWorkletNodeOptions -> IO JSVal +-- | +getNumberOfInputs :: (MonadDOM m) => AudioWorkletNodeOptions -> m (Maybe Word) +getNumberOfInputs self = liftDOM (((js_getNumberOfInputs (self)) >>= fromJSValUnchecked)) + +-- | +getNumberOfInputsUnsafe :: (MonadDOM m, HasCallStack) => AudioWorkletNodeOptions -> m Word +getNumberOfInputsUnsafe self = liftDOM ((((js_getNumberOfInputs (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getNumberOfInputsUnchecked :: (MonadDOM m) => AudioWorkletNodeOptions -> m Word +getNumberOfInputsUnchecked self = liftDOM ((pFromJSVal <$> (js_getNumberOfInputs (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"numberOfOutputs\"] = $2; })" + js_setNumberOfOutputs :: AudioWorkletNodeOptions -> Word -> IO () +-- | +setNumberOfOutputs :: (MonadDOM m) => AudioWorkletNodeOptions -> Word -> m () +setNumberOfOutputs self val = liftDOM (void ((js_setNumberOfOutputs (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"numberOfOutputs\"]; })" + js_getNumberOfOutputs :: AudioWorkletNodeOptions -> IO JSVal +-- | +getNumberOfOutputs :: (MonadDOM m) => AudioWorkletNodeOptions -> m (Maybe Word) +getNumberOfOutputs self = liftDOM (((js_getNumberOfOutputs (self)) >>= fromJSValUnchecked)) + +-- | +getNumberOfOutputsUnsafe :: (MonadDOM m, HasCallStack) => AudioWorkletNodeOptions -> m Word +getNumberOfOutputsUnsafe self = liftDOM ((((js_getNumberOfOutputs (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getNumberOfOutputsUnchecked :: (MonadDOM m) => AudioWorkletNodeOptions -> m Word +getNumberOfOutputsUnchecked self = liftDOM ((pFromJSVal <$> (js_getNumberOfOutputs (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"outputChannelCount\"] = $2; })" + js_setOutputChannelCount :: AudioWorkletNodeOptions -> JSVal -> IO () +-- | +setOutputChannelCount :: (MonadDOM m) => AudioWorkletNodeOptions -> [Word] -> m () +setOutputChannelCount self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setOutputChannelCount (self) a2'))) + +foreign import javascript unsafe "(($1) => { return $1[\"outputChannelCount\"]; })" + js_getOutputChannelCount :: AudioWorkletNodeOptions -> IO JSVal +-- | +getOutputChannelCount :: (MonadDOM m) => AudioWorkletNodeOptions -> m (Maybe [Word]) +getOutputChannelCount self = liftDOM (((js_getOutputChannelCount (self)) >>= fromJSValUnchecked)) + +-- | +getOutputChannelCountUnsafe :: (MonadDOM m, HasCallStack) => AudioWorkletNodeOptions -> m [Word] +getOutputChannelCountUnsafe self = liftDOM ((((js_getOutputChannelCount (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getOutputChannelCountUnchecked :: (MonadDOM m) => AudioWorkletNodeOptions -> m [Word] +getOutputChannelCountUnchecked self = liftDOM (((js_getOutputChannelCount (self)) >>= fromJSValUnchecked)) + +foreign import javascript safe "(($1, $2) => { $1[\"parameterData\"] = $2; })" + js_setParameterData :: AudioWorkletNodeOptions -> JSVal -> IO () +-- | +setParameterData :: (MonadDOM m) => AudioWorkletNodeOptions -> (Record JSString JSVal) -> m () +setParameterData self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setParameterData (self) a2'))) + +foreign import javascript unsafe "(($1) => { return $1[\"parameterData\"]; })" + js_getParameterData :: AudioWorkletNodeOptions -> IO JSVal +-- | +getParameterData :: (MonadDOM m) => AudioWorkletNodeOptions -> m (Maybe (Record JSString JSVal)) +getParameterData self = liftDOM (((js_getParameterData (self)) >>= fromJSValUnchecked)) + +-- | +getParameterDataUnsafe :: (MonadDOM m, HasCallStack) => AudioWorkletNodeOptions -> m (Record JSString JSVal) +getParameterDataUnsafe self = liftDOM ((((js_getParameterData (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getParameterDataUnchecked :: (MonadDOM m) => AudioWorkletNodeOptions -> m (Record JSString JSVal) +getParameterDataUnchecked self = liftDOM ((pFromJSVal <$> (js_getParameterData (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"processorOptions\"] = $2; })" + js_setProcessorOptions :: AudioWorkletNodeOptions -> GObject -> IO () +-- | +setProcessorOptions :: (MonadDOM m) => AudioWorkletNodeOptions -> GObject -> m () +setProcessorOptions self val = liftDOM (void ((js_setProcessorOptions (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"processorOptions\"]; })" + js_getProcessorOptions :: AudioWorkletNodeOptions -> IO JSVal +-- | +getProcessorOptions :: (MonadDOM m) => AudioWorkletNodeOptions -> m (Maybe GObject) +getProcessorOptions self = liftDOM (((js_getProcessorOptions (self)) >>= fromJSValUnchecked)) + +-- | +getProcessorOptionsUnsafe :: (MonadDOM m, HasCallStack) => AudioWorkletNodeOptions -> m GObject +getProcessorOptionsUnsafe self = liftDOM ((((js_getProcessorOptions (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getProcessorOptionsUnchecked :: (MonadDOM m) => AudioWorkletNodeOptions -> m GObject +getProcessorOptionsUnchecked self = liftDOM ((pFromJSVal <$> (js_getProcessorOptions (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/AudioWorkletProcessor.hs b/src/GHCJS/DOM/JSFFI/Generated/AudioWorkletProcessor.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/AudioWorkletProcessor.hs @@ -0,0 +1,29 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from webaudio-1.1 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.AudioWorkletProcessor + (js_newAudioWorkletProcessor, js_getPort, newAudioWorkletProcessor, getPort, AudioWorkletProcessor(..), gTypeAudioWorkletProcessor) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(() => { return new globalThis[\"AudioWorkletProcessor\"](); })" + js_newAudioWorkletProcessor :: IO AudioWorkletProcessor +-- | +newAudioWorkletProcessor :: (MonadDOM m) => m AudioWorkletProcessor +newAudioWorkletProcessor = liftDOM ((js_newAudioWorkletProcessor)) + +foreign import javascript unsafe "(($1) => { return $1[\"port\"]; })" + js_getPort :: AudioWorkletProcessor -> IO MessagePort +-- | +getPort :: (MonadDOM m) => AudioWorkletProcessor -> m MessagePort +getPort self = liftDOM ((js_getPort (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/AudioWorkletProcessorConstructor.hs b/src/GHCJS/DOM/JSFFI/Generated/AudioWorkletProcessorConstructor.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/AudioWorkletProcessorConstructor.hs @@ -0,0 +1,29 @@ +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from webaudio-1.1 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.AudioWorkletProcessorConstructor + (newAudioWorkletProcessorConstructor, newAudioWorkletProcessorConstructorSync, newAudioWorkletProcessorConstructorAsync, AudioWorkletProcessorConstructor) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import Data.Coerce (coerce) +import GHC.JS.Foreign.Callback (OnBlocked(..), syncCallback1, asyncCallback1) +import GHCJS.DOM.Types +import GHCJS.DOM.JSFFI.Generated.Enums + +newAudioWorkletProcessorConstructor :: (MonadDOM m) => (GObject -> IO ()) -> m AudioWorkletProcessorConstructor +newAudioWorkletProcessorConstructor callback = liftDOM ((AudioWorkletProcessorConstructor . coerce) <$> syncCallback1 ContinueAsync (\ options -> do + options' <- fromJSValUnchecked options + callback options')) + +newAudioWorkletProcessorConstructorSync :: (MonadDOM m) => (GObject -> IO ()) -> m AudioWorkletProcessorConstructor +newAudioWorkletProcessorConstructorSync callback = liftDOM ((AudioWorkletProcessorConstructor . coerce) <$> syncCallback1 ThrowWouldBlock (\ options -> do + options' <- fromJSValUnchecked options + callback options')) + +newAudioWorkletProcessorConstructorAsync :: (MonadDOM m) => (GObject -> IO ()) -> m AudioWorkletProcessorConstructor +newAudioWorkletProcessorConstructorAsync callback = liftDOM ((AudioWorkletProcessorConstructor . coerce) <$> asyncCallback1 (\ options -> do + options' <- fromJSValUnchecked options + callback options')) diff --git a/src/GHCJS/DOM/JSFFI/Generated/AuthenticationExtensionsClientInputs.hs b/src/GHCJS/DOM/JSFFI/Generated/AuthenticationExtensionsClientInputs.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/AuthenticationExtensionsClientInputs.hs @@ -0,0 +1,323 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from webauthn-4 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.AuthenticationExtensionsClientInputs + (js_newAuthenticationExtensionsClientInputs, js_setCredentialProtectionPolicy, js_getCredentialProtectionPolicy, js_setEnforceCredentialProtectionPolicy, js_getEnforceCredentialProtectionPolicy, js_setCredBlob, js_getCredBlob, js_setGetCredBlob, js_getGetCredBlob, js_setMinPinLength, js_getMinPinLength, js_setPinComplexityPolicy, js_getPinComplexityPolicy, js_setHmacCreateSecret, js_getHmacCreateSecret, js_setHmacGetSecret, js_getHmacGetSecret, js_setPayment, js_getPayment, js_setAppid, js_getAppid, js_setAppidExclude, js_getAppidExclude, js_setCredProps, js_getCredProps, js_setPrf, js_getPrf, js_setLargeBlob, js_getLargeBlob, js_setRemoteClientDataJSON, js_getRemoteClientDataJSON, newAuthenticationExtensionsClientInputs, setCredentialProtectionPolicy, getCredentialProtectionPolicy, getCredentialProtectionPolicyUnsafe, getCredentialProtectionPolicyUnchecked, setEnforceCredentialProtectionPolicy, getEnforceCredentialProtectionPolicy, getEnforceCredentialProtectionPolicyUnsafe, getEnforceCredentialProtectionPolicyUnchecked, setCredBlob, getCredBlob, getCredBlobUnsafe, getCredBlobUnchecked, setGetCredBlob, getGetCredBlob, getGetCredBlobUnsafe, getGetCredBlobUnchecked, setMinPinLength, getMinPinLength, getMinPinLengthUnsafe, getMinPinLengthUnchecked, setPinComplexityPolicy, getPinComplexityPolicy, getPinComplexityPolicyUnsafe, getPinComplexityPolicyUnchecked, setHmacCreateSecret, getHmacCreateSecret, getHmacCreateSecretUnsafe, getHmacCreateSecretUnchecked, setHmacGetSecret, getHmacGetSecret, getHmacGetSecretUnsafe, getHmacGetSecretUnchecked, setPayment, getPayment, getPaymentUnsafe, getPaymentUnchecked, setAppid, getAppid, getAppidUnsafe, getAppidUnchecked, setAppidExclude, getAppidExclude, getAppidExcludeUnsafe, getAppidExcludeUnchecked, setCredProps, getCredProps, getCredPropsUnsafe, getCredPropsUnchecked, setPrf, getPrf, getPrfUnsafe, getPrfUnchecked, setLargeBlob, getLargeBlob, getLargeBlobUnsafe, getLargeBlobUnchecked, setRemoteClientDataJSON, getRemoteClientDataJSON, getRemoteClientDataJSONUnsafe, getRemoteClientDataJSONUnchecked, AuthenticationExtensionsClientInputs(..), gTypeAuthenticationExtensionsClientInputs) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(() => { return ({}); })" + js_newAuthenticationExtensionsClientInputs :: IO AuthenticationExtensionsClientInputs +-- | +newAuthenticationExtensionsClientInputs :: (MonadDOM m) => m AuthenticationExtensionsClientInputs +newAuthenticationExtensionsClientInputs = liftDOM ((js_newAuthenticationExtensionsClientInputs)) + +foreign import javascript safe "(($1, $2) => { $1[\"credentialProtectionPolicy\"] = $2; })" + js_setCredentialProtectionPolicy :: AuthenticationExtensionsClientInputs -> JSString -> IO () +-- | +setCredentialProtectionPolicy :: (MonadDOM m, ToJSString val) => AuthenticationExtensionsClientInputs -> val -> m () +setCredentialProtectionPolicy self val = liftDOM (void ((js_setCredentialProtectionPolicy (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"credentialProtectionPolicy\"]; })" + js_getCredentialProtectionPolicy :: AuthenticationExtensionsClientInputs -> IO JSVal +-- | +getCredentialProtectionPolicy :: (MonadDOM m, FromJSString result) => AuthenticationExtensionsClientInputs -> m (Maybe result) +getCredentialProtectionPolicy self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getCredentialProtectionPolicy (self)))) + +-- | +getCredentialProtectionPolicyUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => AuthenticationExtensionsClientInputs -> m result +getCredentialProtectionPolicyUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getCredentialProtectionPolicy (self))) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getCredentialProtectionPolicyUnchecked :: (MonadDOM m, FromJSString result) => AuthenticationExtensionsClientInputs -> m result +getCredentialProtectionPolicyUnchecked self = liftDOM ((pFromJSVal <$> (js_getCredentialProtectionPolicy (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"enforceCredentialProtectionPolicy\"] = $2; })" + js_setEnforceCredentialProtectionPolicy :: AuthenticationExtensionsClientInputs -> Bool -> IO () +-- | +setEnforceCredentialProtectionPolicy :: (MonadDOM m) => AuthenticationExtensionsClientInputs -> Bool -> m () +setEnforceCredentialProtectionPolicy self val = liftDOM (void ((js_setEnforceCredentialProtectionPolicy (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"enforceCredentialProtectionPolicy\"]; })" + js_getEnforceCredentialProtectionPolicy :: AuthenticationExtensionsClientInputs -> IO JSVal +-- | +getEnforceCredentialProtectionPolicy :: (MonadDOM m) => AuthenticationExtensionsClientInputs -> m (Maybe Bool) +getEnforceCredentialProtectionPolicy self = liftDOM (((js_getEnforceCredentialProtectionPolicy (self)) >>= fromJSValUnchecked)) + +-- | +getEnforceCredentialProtectionPolicyUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsClientInputs -> m Bool +getEnforceCredentialProtectionPolicyUnsafe self = liftDOM ((((js_getEnforceCredentialProtectionPolicy (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getEnforceCredentialProtectionPolicyUnchecked :: (MonadDOM m) => AuthenticationExtensionsClientInputs -> m Bool +getEnforceCredentialProtectionPolicyUnchecked self = liftDOM ((pFromJSVal <$> (js_getEnforceCredentialProtectionPolicy (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"credBlob\"] = $2; })" + js_setCredBlob :: AuthenticationExtensionsClientInputs -> ArrayBuffer -> IO () +-- | +setCredBlob :: (MonadDOM m, IsArrayBuffer val) => AuthenticationExtensionsClientInputs -> val -> m () +setCredBlob self val = liftDOM (void ((js_setCredBlob (self) (Types.toArrayBuffer val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"credBlob\"]; })" + js_getCredBlob :: AuthenticationExtensionsClientInputs -> IO JSVal +-- | +getCredBlob :: (MonadDOM m) => AuthenticationExtensionsClientInputs -> m (Maybe ArrayBuffer) +getCredBlob self = liftDOM (((js_getCredBlob (self)) >>= fromJSValUnchecked)) + +-- | +getCredBlobUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsClientInputs -> m ArrayBuffer +getCredBlobUnsafe self = liftDOM ((((js_getCredBlob (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getCredBlobUnchecked :: (MonadDOM m) => AuthenticationExtensionsClientInputs -> m ArrayBuffer +getCredBlobUnchecked self = liftDOM ((pFromJSVal <$> (js_getCredBlob (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"getCredBlob\"] = $2; })" + js_setGetCredBlob :: AuthenticationExtensionsClientInputs -> Bool -> IO () +-- | +setGetCredBlob :: (MonadDOM m) => AuthenticationExtensionsClientInputs -> Bool -> m () +setGetCredBlob self val = liftDOM (void ((js_setGetCredBlob (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"getCredBlob\"]; })" + js_getGetCredBlob :: AuthenticationExtensionsClientInputs -> IO JSVal +-- | +getGetCredBlob :: (MonadDOM m) => AuthenticationExtensionsClientInputs -> m (Maybe Bool) +getGetCredBlob self = liftDOM (((js_getGetCredBlob (self)) >>= fromJSValUnchecked)) + +-- | +getGetCredBlobUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsClientInputs -> m Bool +getGetCredBlobUnsafe self = liftDOM ((((js_getGetCredBlob (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getGetCredBlobUnchecked :: (MonadDOM m) => AuthenticationExtensionsClientInputs -> m Bool +getGetCredBlobUnchecked self = liftDOM ((pFromJSVal <$> (js_getGetCredBlob (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"minPinLength\"] = $2; })" + js_setMinPinLength :: AuthenticationExtensionsClientInputs -> Bool -> IO () +-- | +setMinPinLength :: (MonadDOM m) => AuthenticationExtensionsClientInputs -> Bool -> m () +setMinPinLength self val = liftDOM (void ((js_setMinPinLength (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"minPinLength\"]; })" + js_getMinPinLength :: AuthenticationExtensionsClientInputs -> IO JSVal +-- | +getMinPinLength :: (MonadDOM m) => AuthenticationExtensionsClientInputs -> m (Maybe Bool) +getMinPinLength self = liftDOM (((js_getMinPinLength (self)) >>= fromJSValUnchecked)) + +-- | +getMinPinLengthUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsClientInputs -> m Bool +getMinPinLengthUnsafe self = liftDOM ((((js_getMinPinLength (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getMinPinLengthUnchecked :: (MonadDOM m) => AuthenticationExtensionsClientInputs -> m Bool +getMinPinLengthUnchecked self = liftDOM ((pFromJSVal <$> (js_getMinPinLength (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"pinComplexityPolicy\"] = $2; })" + js_setPinComplexityPolicy :: AuthenticationExtensionsClientInputs -> Bool -> IO () +-- | +setPinComplexityPolicy :: (MonadDOM m) => AuthenticationExtensionsClientInputs -> Bool -> m () +setPinComplexityPolicy self val = liftDOM (void ((js_setPinComplexityPolicy (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"pinComplexityPolicy\"]; })" + js_getPinComplexityPolicy :: AuthenticationExtensionsClientInputs -> IO JSVal +-- | +getPinComplexityPolicy :: (MonadDOM m) => AuthenticationExtensionsClientInputs -> m (Maybe Bool) +getPinComplexityPolicy self = liftDOM (((js_getPinComplexityPolicy (self)) >>= fromJSValUnchecked)) + +-- | +getPinComplexityPolicyUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsClientInputs -> m Bool +getPinComplexityPolicyUnsafe self = liftDOM ((((js_getPinComplexityPolicy (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getPinComplexityPolicyUnchecked :: (MonadDOM m) => AuthenticationExtensionsClientInputs -> m Bool +getPinComplexityPolicyUnchecked self = liftDOM ((pFromJSVal <$> (js_getPinComplexityPolicy (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"hmacCreateSecret\"] = $2; })" + js_setHmacCreateSecret :: AuthenticationExtensionsClientInputs -> Bool -> IO () +-- | +setHmacCreateSecret :: (MonadDOM m) => AuthenticationExtensionsClientInputs -> Bool -> m () +setHmacCreateSecret self val = liftDOM (void ((js_setHmacCreateSecret (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"hmacCreateSecret\"]; })" + js_getHmacCreateSecret :: AuthenticationExtensionsClientInputs -> IO JSVal +-- | +getHmacCreateSecret :: (MonadDOM m) => AuthenticationExtensionsClientInputs -> m (Maybe Bool) +getHmacCreateSecret self = liftDOM (((js_getHmacCreateSecret (self)) >>= fromJSValUnchecked)) + +-- | +getHmacCreateSecretUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsClientInputs -> m Bool +getHmacCreateSecretUnsafe self = liftDOM ((((js_getHmacCreateSecret (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getHmacCreateSecretUnchecked :: (MonadDOM m) => AuthenticationExtensionsClientInputs -> m Bool +getHmacCreateSecretUnchecked self = liftDOM ((pFromJSVal <$> (js_getHmacCreateSecret (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"hmacGetSecret\"] = $2; })" + js_setHmacGetSecret :: AuthenticationExtensionsClientInputs -> HMACGetSecretInput -> IO () +-- | +setHmacGetSecret :: (MonadDOM m) => AuthenticationExtensionsClientInputs -> HMACGetSecretInput -> m () +setHmacGetSecret self val = liftDOM (void ((js_setHmacGetSecret (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"hmacGetSecret\"]; })" + js_getHmacGetSecret :: AuthenticationExtensionsClientInputs -> IO JSVal +-- | +getHmacGetSecret :: (MonadDOM m) => AuthenticationExtensionsClientInputs -> m (Maybe HMACGetSecretInput) +getHmacGetSecret self = liftDOM (((js_getHmacGetSecret (self)) >>= fromJSValUnchecked)) + +-- | +getHmacGetSecretUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsClientInputs -> m HMACGetSecretInput +getHmacGetSecretUnsafe self = liftDOM ((((js_getHmacGetSecret (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getHmacGetSecretUnchecked :: (MonadDOM m) => AuthenticationExtensionsClientInputs -> m HMACGetSecretInput +getHmacGetSecretUnchecked self = liftDOM ((pFromJSVal <$> (js_getHmacGetSecret (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"payment\"] = $2; })" + js_setPayment :: AuthenticationExtensionsClientInputs -> AuthenticationExtensionsPaymentInputs -> IO () +-- | +setPayment :: (MonadDOM m) => AuthenticationExtensionsClientInputs -> AuthenticationExtensionsPaymentInputs -> m () +setPayment self val = liftDOM (void ((js_setPayment (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"payment\"]; })" + js_getPayment :: AuthenticationExtensionsClientInputs -> IO JSVal +-- | +getPayment :: (MonadDOM m) => AuthenticationExtensionsClientInputs -> m (Maybe AuthenticationExtensionsPaymentInputs) +getPayment self = liftDOM (((js_getPayment (self)) >>= fromJSValUnchecked)) + +-- | +getPaymentUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsClientInputs -> m AuthenticationExtensionsPaymentInputs +getPaymentUnsafe self = liftDOM ((((js_getPayment (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getPaymentUnchecked :: (MonadDOM m) => AuthenticationExtensionsClientInputs -> m AuthenticationExtensionsPaymentInputs +getPaymentUnchecked self = liftDOM ((pFromJSVal <$> (js_getPayment (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"appid\"] = $2; })" + js_setAppid :: AuthenticationExtensionsClientInputs -> JSString -> IO () +-- | +setAppid :: (MonadDOM m, ToJSString val) => AuthenticationExtensionsClientInputs -> val -> m () +setAppid self val = liftDOM (void ((js_setAppid (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"appid\"]; })" + js_getAppid :: AuthenticationExtensionsClientInputs -> IO JSVal +-- | +getAppid :: (MonadDOM m, FromJSString result) => AuthenticationExtensionsClientInputs -> m (Maybe result) +getAppid self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAppid (self)))) + +-- | +getAppidUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => AuthenticationExtensionsClientInputs -> m result +getAppidUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAppid (self))) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getAppidUnchecked :: (MonadDOM m, FromJSString result) => AuthenticationExtensionsClientInputs -> m result +getAppidUnchecked self = liftDOM ((pFromJSVal <$> (js_getAppid (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"appidExclude\"] = $2; })" + js_setAppidExclude :: AuthenticationExtensionsClientInputs -> JSString -> IO () +-- | +setAppidExclude :: (MonadDOM m, ToJSString val) => AuthenticationExtensionsClientInputs -> val -> m () +setAppidExclude self val = liftDOM (void ((js_setAppidExclude (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"appidExclude\"]; })" + js_getAppidExclude :: AuthenticationExtensionsClientInputs -> IO JSVal +-- | +getAppidExclude :: (MonadDOM m, FromJSString result) => AuthenticationExtensionsClientInputs -> m (Maybe result) +getAppidExclude self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAppidExclude (self)))) + +-- | +getAppidExcludeUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => AuthenticationExtensionsClientInputs -> m result +getAppidExcludeUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAppidExclude (self))) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getAppidExcludeUnchecked :: (MonadDOM m, FromJSString result) => AuthenticationExtensionsClientInputs -> m result +getAppidExcludeUnchecked self = liftDOM ((pFromJSVal <$> (js_getAppidExclude (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"credProps\"] = $2; })" + js_setCredProps :: AuthenticationExtensionsClientInputs -> Bool -> IO () +-- | +setCredProps :: (MonadDOM m) => AuthenticationExtensionsClientInputs -> Bool -> m () +setCredProps self val = liftDOM (void ((js_setCredProps (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"credProps\"]; })" + js_getCredProps :: AuthenticationExtensionsClientInputs -> IO JSVal +-- | +getCredProps :: (MonadDOM m) => AuthenticationExtensionsClientInputs -> m (Maybe Bool) +getCredProps self = liftDOM (((js_getCredProps (self)) >>= fromJSValUnchecked)) + +-- | +getCredPropsUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsClientInputs -> m Bool +getCredPropsUnsafe self = liftDOM ((((js_getCredProps (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getCredPropsUnchecked :: (MonadDOM m) => AuthenticationExtensionsClientInputs -> m Bool +getCredPropsUnchecked self = liftDOM ((pFromJSVal <$> (js_getCredProps (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"prf\"] = $2; })" + js_setPrf :: AuthenticationExtensionsClientInputs -> AuthenticationExtensionsPRFInputs -> IO () +-- | +setPrf :: (MonadDOM m) => AuthenticationExtensionsClientInputs -> AuthenticationExtensionsPRFInputs -> m () +setPrf self val = liftDOM (void ((js_setPrf (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"prf\"]; })" + js_getPrf :: AuthenticationExtensionsClientInputs -> IO JSVal +-- | +getPrf :: (MonadDOM m) => AuthenticationExtensionsClientInputs -> m (Maybe AuthenticationExtensionsPRFInputs) +getPrf self = liftDOM (((js_getPrf (self)) >>= fromJSValUnchecked)) + +-- | +getPrfUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsClientInputs -> m AuthenticationExtensionsPRFInputs +getPrfUnsafe self = liftDOM ((((js_getPrf (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getPrfUnchecked :: (MonadDOM m) => AuthenticationExtensionsClientInputs -> m AuthenticationExtensionsPRFInputs +getPrfUnchecked self = liftDOM ((pFromJSVal <$> (js_getPrf (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"largeBlob\"] = $2; })" + js_setLargeBlob :: AuthenticationExtensionsClientInputs -> AuthenticationExtensionsLargeBlobInputs -> IO () +-- | +setLargeBlob :: (MonadDOM m) => AuthenticationExtensionsClientInputs -> AuthenticationExtensionsLargeBlobInputs -> m () +setLargeBlob self val = liftDOM (void ((js_setLargeBlob (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"largeBlob\"]; })" + js_getLargeBlob :: AuthenticationExtensionsClientInputs -> IO JSVal +-- | +getLargeBlob :: (MonadDOM m) => AuthenticationExtensionsClientInputs -> m (Maybe AuthenticationExtensionsLargeBlobInputs) +getLargeBlob self = liftDOM (((js_getLargeBlob (self)) >>= fromJSValUnchecked)) + +-- | +getLargeBlobUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsClientInputs -> m AuthenticationExtensionsLargeBlobInputs +getLargeBlobUnsafe self = liftDOM ((((js_getLargeBlob (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getLargeBlobUnchecked :: (MonadDOM m) => AuthenticationExtensionsClientInputs -> m AuthenticationExtensionsLargeBlobInputs +getLargeBlobUnchecked self = liftDOM ((pFromJSVal <$> (js_getLargeBlob (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"remoteClientDataJSON\"] = $2; })" + js_setRemoteClientDataJSON :: AuthenticationExtensionsClientInputs -> JSString -> IO () +-- | +setRemoteClientDataJSON :: (MonadDOM m, ToJSString val) => AuthenticationExtensionsClientInputs -> val -> m () +setRemoteClientDataJSON self val = liftDOM (void ((js_setRemoteClientDataJSON (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"remoteClientDataJSON\"]; })" + js_getRemoteClientDataJSON :: AuthenticationExtensionsClientInputs -> IO JSVal +-- | +getRemoteClientDataJSON :: (MonadDOM m, FromJSString result) => AuthenticationExtensionsClientInputs -> m (Maybe result) +getRemoteClientDataJSON self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getRemoteClientDataJSON (self)))) + +-- | +getRemoteClientDataJSONUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => AuthenticationExtensionsClientInputs -> m result +getRemoteClientDataJSONUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getRemoteClientDataJSON (self))) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getRemoteClientDataJSONUnchecked :: (MonadDOM m, FromJSString result) => AuthenticationExtensionsClientInputs -> m result +getRemoteClientDataJSONUnchecked self = liftDOM ((pFromJSVal <$> (js_getRemoteClientDataJSON (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/AuthenticationExtensionsClientInputsJSON.hs b/src/GHCJS/DOM/JSFFI/Generated/AuthenticationExtensionsClientInputsJSON.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/AuthenticationExtensionsClientInputsJSON.hs @@ -0,0 +1,143 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from webauthn-4 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.AuthenticationExtensionsClientInputsJSON + (js_newAuthenticationExtensionsClientInputsJSON, js_setAppid, js_getAppid, js_setAppidExclude, js_getAppidExclude, js_setCredProps, js_getCredProps, js_setPrf, js_getPrf, js_setLargeBlob, js_getLargeBlob, js_setRemoteClientDataJSON, js_getRemoteClientDataJSON, newAuthenticationExtensionsClientInputsJSON, setAppid, getAppid, getAppidUnsafe, getAppidUnchecked, setAppidExclude, getAppidExclude, getAppidExcludeUnsafe, getAppidExcludeUnchecked, setCredProps, getCredProps, getCredPropsUnsafe, getCredPropsUnchecked, setPrf, getPrf, getPrfUnsafe, getPrfUnchecked, setLargeBlob, getLargeBlob, getLargeBlobUnsafe, getLargeBlobUnchecked, setRemoteClientDataJSON, getRemoteClientDataJSON, getRemoteClientDataJSONUnsafe, getRemoteClientDataJSONUnchecked, AuthenticationExtensionsClientInputsJSON(..), gTypeAuthenticationExtensionsClientInputsJSON) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(() => { return ({}); })" + js_newAuthenticationExtensionsClientInputsJSON :: IO AuthenticationExtensionsClientInputsJSON +-- | +newAuthenticationExtensionsClientInputsJSON :: (MonadDOM m) => m AuthenticationExtensionsClientInputsJSON +newAuthenticationExtensionsClientInputsJSON = liftDOM ((js_newAuthenticationExtensionsClientInputsJSON)) + +foreign import javascript safe "(($1, $2) => { $1[\"appid\"] = $2; })" + js_setAppid :: AuthenticationExtensionsClientInputsJSON -> JSString -> IO () +-- | +setAppid :: (MonadDOM m, ToJSString val) => AuthenticationExtensionsClientInputsJSON -> val -> m () +setAppid self val = liftDOM (void ((js_setAppid (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"appid\"]; })" + js_getAppid :: AuthenticationExtensionsClientInputsJSON -> IO JSVal +-- | +getAppid :: (MonadDOM m, FromJSString result) => AuthenticationExtensionsClientInputsJSON -> m (Maybe result) +getAppid self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAppid (self)))) + +-- | +getAppidUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => AuthenticationExtensionsClientInputsJSON -> m result +getAppidUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAppid (self))) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getAppidUnchecked :: (MonadDOM m, FromJSString result) => AuthenticationExtensionsClientInputsJSON -> m result +getAppidUnchecked self = liftDOM ((pFromJSVal <$> (js_getAppid (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"appidExclude\"] = $2; })" + js_setAppidExclude :: AuthenticationExtensionsClientInputsJSON -> JSString -> IO () +-- | +setAppidExclude :: (MonadDOM m, ToJSString val) => AuthenticationExtensionsClientInputsJSON -> val -> m () +setAppidExclude self val = liftDOM (void ((js_setAppidExclude (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"appidExclude\"]; })" + js_getAppidExclude :: AuthenticationExtensionsClientInputsJSON -> IO JSVal +-- | +getAppidExclude :: (MonadDOM m, FromJSString result) => AuthenticationExtensionsClientInputsJSON -> m (Maybe result) +getAppidExclude self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAppidExclude (self)))) + +-- | +getAppidExcludeUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => AuthenticationExtensionsClientInputsJSON -> m result +getAppidExcludeUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAppidExclude (self))) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getAppidExcludeUnchecked :: (MonadDOM m, FromJSString result) => AuthenticationExtensionsClientInputsJSON -> m result +getAppidExcludeUnchecked self = liftDOM ((pFromJSVal <$> (js_getAppidExclude (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"credProps\"] = $2; })" + js_setCredProps :: AuthenticationExtensionsClientInputsJSON -> Bool -> IO () +-- | +setCredProps :: (MonadDOM m) => AuthenticationExtensionsClientInputsJSON -> Bool -> m () +setCredProps self val = liftDOM (void ((js_setCredProps (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"credProps\"]; })" + js_getCredProps :: AuthenticationExtensionsClientInputsJSON -> IO JSVal +-- | +getCredProps :: (MonadDOM m) => AuthenticationExtensionsClientInputsJSON -> m (Maybe Bool) +getCredProps self = liftDOM (((js_getCredProps (self)) >>= fromJSValUnchecked)) + +-- | +getCredPropsUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsClientInputsJSON -> m Bool +getCredPropsUnsafe self = liftDOM ((((js_getCredProps (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getCredPropsUnchecked :: (MonadDOM m) => AuthenticationExtensionsClientInputsJSON -> m Bool +getCredPropsUnchecked self = liftDOM ((pFromJSVal <$> (js_getCredProps (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"prf\"] = $2; })" + js_setPrf :: AuthenticationExtensionsClientInputsJSON -> AuthenticationExtensionsPRFInputsJSON -> IO () +-- | +setPrf :: (MonadDOM m) => AuthenticationExtensionsClientInputsJSON -> AuthenticationExtensionsPRFInputsJSON -> m () +setPrf self val = liftDOM (void ((js_setPrf (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"prf\"]; })" + js_getPrf :: AuthenticationExtensionsClientInputsJSON -> IO JSVal +-- | +getPrf :: (MonadDOM m) => AuthenticationExtensionsClientInputsJSON -> m (Maybe AuthenticationExtensionsPRFInputsJSON) +getPrf self = liftDOM (((js_getPrf (self)) >>= fromJSValUnchecked)) + +-- | +getPrfUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsClientInputsJSON -> m AuthenticationExtensionsPRFInputsJSON +getPrfUnsafe self = liftDOM ((((js_getPrf (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getPrfUnchecked :: (MonadDOM m) => AuthenticationExtensionsClientInputsJSON -> m AuthenticationExtensionsPRFInputsJSON +getPrfUnchecked self = liftDOM ((pFromJSVal <$> (js_getPrf (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"largeBlob\"] = $2; })" + js_setLargeBlob :: AuthenticationExtensionsClientInputsJSON -> AuthenticationExtensionsLargeBlobInputsJSON -> IO () +-- | +setLargeBlob :: (MonadDOM m) => AuthenticationExtensionsClientInputsJSON -> AuthenticationExtensionsLargeBlobInputsJSON -> m () +setLargeBlob self val = liftDOM (void ((js_setLargeBlob (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"largeBlob\"]; })" + js_getLargeBlob :: AuthenticationExtensionsClientInputsJSON -> IO JSVal +-- | +getLargeBlob :: (MonadDOM m) => AuthenticationExtensionsClientInputsJSON -> m (Maybe AuthenticationExtensionsLargeBlobInputsJSON) +getLargeBlob self = liftDOM (((js_getLargeBlob (self)) >>= fromJSValUnchecked)) + +-- | +getLargeBlobUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsClientInputsJSON -> m AuthenticationExtensionsLargeBlobInputsJSON +getLargeBlobUnsafe self = liftDOM ((((js_getLargeBlob (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getLargeBlobUnchecked :: (MonadDOM m) => AuthenticationExtensionsClientInputsJSON -> m AuthenticationExtensionsLargeBlobInputsJSON +getLargeBlobUnchecked self = liftDOM ((pFromJSVal <$> (js_getLargeBlob (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"remoteClientDataJSON\"] = $2; })" + js_setRemoteClientDataJSON :: AuthenticationExtensionsClientInputsJSON -> JSString -> IO () +-- | +setRemoteClientDataJSON :: (MonadDOM m, ToJSString val) => AuthenticationExtensionsClientInputsJSON -> val -> m () +setRemoteClientDataJSON self val = liftDOM (void ((js_setRemoteClientDataJSON (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"remoteClientDataJSON\"]; })" + js_getRemoteClientDataJSON :: AuthenticationExtensionsClientInputsJSON -> IO JSVal +-- | +getRemoteClientDataJSON :: (MonadDOM m, FromJSString result) => AuthenticationExtensionsClientInputsJSON -> m (Maybe result) +getRemoteClientDataJSON self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getRemoteClientDataJSON (self)))) + +-- | +getRemoteClientDataJSONUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => AuthenticationExtensionsClientInputsJSON -> m result +getRemoteClientDataJSONUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getRemoteClientDataJSON (self))) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getRemoteClientDataJSONUnchecked :: (MonadDOM m, FromJSString result) => AuthenticationExtensionsClientInputsJSON -> m result +getRemoteClientDataJSONUnchecked self = liftDOM ((pFromJSVal <$> (js_getRemoteClientDataJSON (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/AuthenticationExtensionsClientOutputs.hs b/src/GHCJS/DOM/JSFFI/Generated/AuthenticationExtensionsClientOutputs.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/AuthenticationExtensionsClientOutputs.hs @@ -0,0 +1,243 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from webauthn-4 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.AuthenticationExtensionsClientOutputs + (js_newAuthenticationExtensionsClientOutputs, js_setCredBlob, js_getCredBlob, js_setGetCredBlob, js_getGetCredBlob, js_setHmacCreateSecret, js_getHmacCreateSecret, js_setHmacGetSecret, js_getHmacGetSecret, js_setPayment, js_getPayment, js_setAppid, js_getAppid, js_setAppidExclude, js_getAppidExclude, js_setCredProps, js_getCredProps, js_setPrf, js_getPrf, js_setLargeBlob, js_getLargeBlob, js_setRemoteClientDataJSON, js_getRemoteClientDataJSON, newAuthenticationExtensionsClientOutputs, setCredBlob, getCredBlob, getCredBlobUnsafe, getCredBlobUnchecked, setGetCredBlob, getGetCredBlob, getGetCredBlobUnsafe, getGetCredBlobUnchecked, setHmacCreateSecret, getHmacCreateSecret, getHmacCreateSecretUnsafe, getHmacCreateSecretUnchecked, setHmacGetSecret, getHmacGetSecret, getHmacGetSecretUnsafe, getHmacGetSecretUnchecked, setPayment, getPayment, getPaymentUnsafe, getPaymentUnchecked, setAppid, getAppid, getAppidUnsafe, getAppidUnchecked, setAppidExclude, getAppidExclude, getAppidExcludeUnsafe, getAppidExcludeUnchecked, setCredProps, getCredProps, getCredPropsUnsafe, getCredPropsUnchecked, setPrf, getPrf, getPrfUnsafe, getPrfUnchecked, setLargeBlob, getLargeBlob, getLargeBlobUnsafe, getLargeBlobUnchecked, setRemoteClientDataJSON, getRemoteClientDataJSON, getRemoteClientDataJSONUnsafe, getRemoteClientDataJSONUnchecked, AuthenticationExtensionsClientOutputs(..), gTypeAuthenticationExtensionsClientOutputs) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(() => { return ({}); })" + js_newAuthenticationExtensionsClientOutputs :: IO AuthenticationExtensionsClientOutputs +-- | +newAuthenticationExtensionsClientOutputs :: (MonadDOM m) => m AuthenticationExtensionsClientOutputs +newAuthenticationExtensionsClientOutputs = liftDOM ((js_newAuthenticationExtensionsClientOutputs)) + +foreign import javascript safe "(($1, $2) => { $1[\"credBlob\"] = $2; })" + js_setCredBlob :: AuthenticationExtensionsClientOutputs -> Bool -> IO () +-- | +setCredBlob :: (MonadDOM m) => AuthenticationExtensionsClientOutputs -> Bool -> m () +setCredBlob self val = liftDOM (void ((js_setCredBlob (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"credBlob\"]; })" + js_getCredBlob :: AuthenticationExtensionsClientOutputs -> IO JSVal +-- | +getCredBlob :: (MonadDOM m) => AuthenticationExtensionsClientOutputs -> m (Maybe Bool) +getCredBlob self = liftDOM (((js_getCredBlob (self)) >>= fromJSValUnchecked)) + +-- | +getCredBlobUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsClientOutputs -> m Bool +getCredBlobUnsafe self = liftDOM ((((js_getCredBlob (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getCredBlobUnchecked :: (MonadDOM m) => AuthenticationExtensionsClientOutputs -> m Bool +getCredBlobUnchecked self = liftDOM ((pFromJSVal <$> (js_getCredBlob (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"getCredBlob\"] = $2; })" + js_setGetCredBlob :: AuthenticationExtensionsClientOutputs -> ArrayBuffer -> IO () +-- | +setGetCredBlob :: (MonadDOM m, IsArrayBuffer val) => AuthenticationExtensionsClientOutputs -> val -> m () +setGetCredBlob self val = liftDOM (void ((js_setGetCredBlob (self) (Types.toArrayBuffer val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"getCredBlob\"]; })" + js_getGetCredBlob :: AuthenticationExtensionsClientOutputs -> IO JSVal +-- | +getGetCredBlob :: (MonadDOM m) => AuthenticationExtensionsClientOutputs -> m (Maybe ArrayBuffer) +getGetCredBlob self = liftDOM (((js_getGetCredBlob (self)) >>= fromJSValUnchecked)) + +-- | +getGetCredBlobUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsClientOutputs -> m ArrayBuffer +getGetCredBlobUnsafe self = liftDOM ((((js_getGetCredBlob (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getGetCredBlobUnchecked :: (MonadDOM m) => AuthenticationExtensionsClientOutputs -> m ArrayBuffer +getGetCredBlobUnchecked self = liftDOM ((pFromJSVal <$> (js_getGetCredBlob (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"hmacCreateSecret\"] = $2; })" + js_setHmacCreateSecret :: AuthenticationExtensionsClientOutputs -> Bool -> IO () +-- | +setHmacCreateSecret :: (MonadDOM m) => AuthenticationExtensionsClientOutputs -> Bool -> m () +setHmacCreateSecret self val = liftDOM (void ((js_setHmacCreateSecret (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"hmacCreateSecret\"]; })" + js_getHmacCreateSecret :: AuthenticationExtensionsClientOutputs -> IO JSVal +-- | +getHmacCreateSecret :: (MonadDOM m) => AuthenticationExtensionsClientOutputs -> m (Maybe Bool) +getHmacCreateSecret self = liftDOM (((js_getHmacCreateSecret (self)) >>= fromJSValUnchecked)) + +-- | +getHmacCreateSecretUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsClientOutputs -> m Bool +getHmacCreateSecretUnsafe self = liftDOM ((((js_getHmacCreateSecret (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getHmacCreateSecretUnchecked :: (MonadDOM m) => AuthenticationExtensionsClientOutputs -> m Bool +getHmacCreateSecretUnchecked self = liftDOM ((pFromJSVal <$> (js_getHmacCreateSecret (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"hmacGetSecret\"] = $2; })" + js_setHmacGetSecret :: AuthenticationExtensionsClientOutputs -> HMACGetSecretOutput -> IO () +-- | +setHmacGetSecret :: (MonadDOM m) => AuthenticationExtensionsClientOutputs -> HMACGetSecretOutput -> m () +setHmacGetSecret self val = liftDOM (void ((js_setHmacGetSecret (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"hmacGetSecret\"]; })" + js_getHmacGetSecret :: AuthenticationExtensionsClientOutputs -> IO JSVal +-- | +getHmacGetSecret :: (MonadDOM m) => AuthenticationExtensionsClientOutputs -> m (Maybe HMACGetSecretOutput) +getHmacGetSecret self = liftDOM (((js_getHmacGetSecret (self)) >>= fromJSValUnchecked)) + +-- | +getHmacGetSecretUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsClientOutputs -> m HMACGetSecretOutput +getHmacGetSecretUnsafe self = liftDOM ((((js_getHmacGetSecret (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getHmacGetSecretUnchecked :: (MonadDOM m) => AuthenticationExtensionsClientOutputs -> m HMACGetSecretOutput +getHmacGetSecretUnchecked self = liftDOM ((pFromJSVal <$> (js_getHmacGetSecret (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"payment\"] = $2; })" + js_setPayment :: AuthenticationExtensionsClientOutputs -> AuthenticationExtensionsPaymentOutputs -> IO () +-- | +setPayment :: (MonadDOM m) => AuthenticationExtensionsClientOutputs -> AuthenticationExtensionsPaymentOutputs -> m () +setPayment self val = liftDOM (void ((js_setPayment (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"payment\"]; })" + js_getPayment :: AuthenticationExtensionsClientOutputs -> IO JSVal +-- | +getPayment :: (MonadDOM m) => AuthenticationExtensionsClientOutputs -> m (Maybe AuthenticationExtensionsPaymentOutputs) +getPayment self = liftDOM (((js_getPayment (self)) >>= fromJSValUnchecked)) + +-- | +getPaymentUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsClientOutputs -> m AuthenticationExtensionsPaymentOutputs +getPaymentUnsafe self = liftDOM ((((js_getPayment (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getPaymentUnchecked :: (MonadDOM m) => AuthenticationExtensionsClientOutputs -> m AuthenticationExtensionsPaymentOutputs +getPaymentUnchecked self = liftDOM ((pFromJSVal <$> (js_getPayment (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"appid\"] = $2; })" + js_setAppid :: AuthenticationExtensionsClientOutputs -> Bool -> IO () +-- | +setAppid :: (MonadDOM m) => AuthenticationExtensionsClientOutputs -> Bool -> m () +setAppid self val = liftDOM (void ((js_setAppid (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"appid\"]; })" + js_getAppid :: AuthenticationExtensionsClientOutputs -> IO JSVal +-- | +getAppid :: (MonadDOM m) => AuthenticationExtensionsClientOutputs -> m (Maybe Bool) +getAppid self = liftDOM (((js_getAppid (self)) >>= fromJSValUnchecked)) + +-- | +getAppidUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsClientOutputs -> m Bool +getAppidUnsafe self = liftDOM ((((js_getAppid (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getAppidUnchecked :: (MonadDOM m) => AuthenticationExtensionsClientOutputs -> m Bool +getAppidUnchecked self = liftDOM ((pFromJSVal <$> (js_getAppid (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"appidExclude\"] = $2; })" + js_setAppidExclude :: AuthenticationExtensionsClientOutputs -> Bool -> IO () +-- | +setAppidExclude :: (MonadDOM m) => AuthenticationExtensionsClientOutputs -> Bool -> m () +setAppidExclude self val = liftDOM (void ((js_setAppidExclude (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"appidExclude\"]; })" + js_getAppidExclude :: AuthenticationExtensionsClientOutputs -> IO JSVal +-- | +getAppidExclude :: (MonadDOM m) => AuthenticationExtensionsClientOutputs -> m (Maybe Bool) +getAppidExclude self = liftDOM (((js_getAppidExclude (self)) >>= fromJSValUnchecked)) + +-- | +getAppidExcludeUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsClientOutputs -> m Bool +getAppidExcludeUnsafe self = liftDOM ((((js_getAppidExclude (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getAppidExcludeUnchecked :: (MonadDOM m) => AuthenticationExtensionsClientOutputs -> m Bool +getAppidExcludeUnchecked self = liftDOM ((pFromJSVal <$> (js_getAppidExclude (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"credProps\"] = $2; })" + js_setCredProps :: AuthenticationExtensionsClientOutputs -> CredentialPropertiesOutput -> IO () +-- | +setCredProps :: (MonadDOM m) => AuthenticationExtensionsClientOutputs -> CredentialPropertiesOutput -> m () +setCredProps self val = liftDOM (void ((js_setCredProps (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"credProps\"]; })" + js_getCredProps :: AuthenticationExtensionsClientOutputs -> IO JSVal +-- | +getCredProps :: (MonadDOM m) => AuthenticationExtensionsClientOutputs -> m (Maybe CredentialPropertiesOutput) +getCredProps self = liftDOM (((js_getCredProps (self)) >>= fromJSValUnchecked)) + +-- | +getCredPropsUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsClientOutputs -> m CredentialPropertiesOutput +getCredPropsUnsafe self = liftDOM ((((js_getCredProps (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getCredPropsUnchecked :: (MonadDOM m) => AuthenticationExtensionsClientOutputs -> m CredentialPropertiesOutput +getCredPropsUnchecked self = liftDOM ((pFromJSVal <$> (js_getCredProps (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"prf\"] = $2; })" + js_setPrf :: AuthenticationExtensionsClientOutputs -> AuthenticationExtensionsPRFOutputs -> IO () +-- | +setPrf :: (MonadDOM m) => AuthenticationExtensionsClientOutputs -> AuthenticationExtensionsPRFOutputs -> m () +setPrf self val = liftDOM (void ((js_setPrf (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"prf\"]; })" + js_getPrf :: AuthenticationExtensionsClientOutputs -> IO JSVal +-- | +getPrf :: (MonadDOM m) => AuthenticationExtensionsClientOutputs -> m (Maybe AuthenticationExtensionsPRFOutputs) +getPrf self = liftDOM (((js_getPrf (self)) >>= fromJSValUnchecked)) + +-- | +getPrfUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsClientOutputs -> m AuthenticationExtensionsPRFOutputs +getPrfUnsafe self = liftDOM ((((js_getPrf (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getPrfUnchecked :: (MonadDOM m) => AuthenticationExtensionsClientOutputs -> m AuthenticationExtensionsPRFOutputs +getPrfUnchecked self = liftDOM ((pFromJSVal <$> (js_getPrf (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"largeBlob\"] = $2; })" + js_setLargeBlob :: AuthenticationExtensionsClientOutputs -> AuthenticationExtensionsLargeBlobOutputs -> IO () +-- | +setLargeBlob :: (MonadDOM m) => AuthenticationExtensionsClientOutputs -> AuthenticationExtensionsLargeBlobOutputs -> m () +setLargeBlob self val = liftDOM (void ((js_setLargeBlob (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"largeBlob\"]; })" + js_getLargeBlob :: AuthenticationExtensionsClientOutputs -> IO JSVal +-- | +getLargeBlob :: (MonadDOM m) => AuthenticationExtensionsClientOutputs -> m (Maybe AuthenticationExtensionsLargeBlobOutputs) +getLargeBlob self = liftDOM (((js_getLargeBlob (self)) >>= fromJSValUnchecked)) + +-- | +getLargeBlobUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsClientOutputs -> m AuthenticationExtensionsLargeBlobOutputs +getLargeBlobUnsafe self = liftDOM ((((js_getLargeBlob (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getLargeBlobUnchecked :: (MonadDOM m) => AuthenticationExtensionsClientOutputs -> m AuthenticationExtensionsLargeBlobOutputs +getLargeBlobUnchecked self = liftDOM ((pFromJSVal <$> (js_getLargeBlob (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"remoteClientDataJSON\"] = $2; })" + js_setRemoteClientDataJSON :: AuthenticationExtensionsClientOutputs -> Bool -> IO () +-- | +setRemoteClientDataJSON :: (MonadDOM m) => AuthenticationExtensionsClientOutputs -> Bool -> m () +setRemoteClientDataJSON self val = liftDOM (void ((js_setRemoteClientDataJSON (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"remoteClientDataJSON\"]; })" + js_getRemoteClientDataJSON :: AuthenticationExtensionsClientOutputs -> IO JSVal +-- | +getRemoteClientDataJSON :: (MonadDOM m) => AuthenticationExtensionsClientOutputs -> m (Maybe Bool) +getRemoteClientDataJSON self = liftDOM (((js_getRemoteClientDataJSON (self)) >>= fromJSValUnchecked)) + +-- | +getRemoteClientDataJSONUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsClientOutputs -> m Bool +getRemoteClientDataJSONUnsafe self = liftDOM ((((js_getRemoteClientDataJSON (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getRemoteClientDataJSONUnchecked :: (MonadDOM m) => AuthenticationExtensionsClientOutputs -> m Bool +getRemoteClientDataJSONUnchecked self = liftDOM ((pFromJSVal <$> (js_getRemoteClientDataJSON (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/AuthenticationExtensionsLargeBlobInputs.hs b/src/GHCJS/DOM/JSFFI/Generated/AuthenticationExtensionsLargeBlobInputs.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/AuthenticationExtensionsLargeBlobInputs.hs @@ -0,0 +1,83 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from webauthn-4 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.AuthenticationExtensionsLargeBlobInputs + (js_newAuthenticationExtensionsLargeBlobInputs, js_setSupport, js_getSupport, js_setRead, js_getRead, js_setWrite, js_getWrite, newAuthenticationExtensionsLargeBlobInputs, setSupport, getSupport, getSupportUnsafe, getSupportUnchecked, setRead, getRead, getReadUnsafe, getReadUnchecked, setWrite, getWrite, getWriteUnsafe, getWriteUnchecked, AuthenticationExtensionsLargeBlobInputs(..), gTypeAuthenticationExtensionsLargeBlobInputs) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(() => { return ({}); })" + js_newAuthenticationExtensionsLargeBlobInputs :: IO AuthenticationExtensionsLargeBlobInputs +-- | +newAuthenticationExtensionsLargeBlobInputs :: (MonadDOM m) => m AuthenticationExtensionsLargeBlobInputs +newAuthenticationExtensionsLargeBlobInputs = liftDOM ((js_newAuthenticationExtensionsLargeBlobInputs)) + +foreign import javascript safe "(($1, $2) => { $1[\"support\"] = $2; })" + js_setSupport :: AuthenticationExtensionsLargeBlobInputs -> JSString -> IO () +-- | +setSupport :: (MonadDOM m, ToJSString val) => AuthenticationExtensionsLargeBlobInputs -> val -> m () +setSupport self val = liftDOM (void ((js_setSupport (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"support\"]; })" + js_getSupport :: AuthenticationExtensionsLargeBlobInputs -> IO JSVal +-- | +getSupport :: (MonadDOM m, FromJSString result) => AuthenticationExtensionsLargeBlobInputs -> m (Maybe result) +getSupport self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getSupport (self)))) + +-- | +getSupportUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => AuthenticationExtensionsLargeBlobInputs -> m result +getSupportUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getSupport (self))) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getSupportUnchecked :: (MonadDOM m, FromJSString result) => AuthenticationExtensionsLargeBlobInputs -> m result +getSupportUnchecked self = liftDOM ((pFromJSVal <$> (js_getSupport (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"read\"] = $2; })" + js_setRead :: AuthenticationExtensionsLargeBlobInputs -> Bool -> IO () +-- | +setRead :: (MonadDOM m) => AuthenticationExtensionsLargeBlobInputs -> Bool -> m () +setRead self val = liftDOM (void ((js_setRead (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"read\"]; })" + js_getRead :: AuthenticationExtensionsLargeBlobInputs -> IO JSVal +-- | +getRead :: (MonadDOM m) => AuthenticationExtensionsLargeBlobInputs -> m (Maybe Bool) +getRead self = liftDOM (((js_getRead (self)) >>= fromJSValUnchecked)) + +-- | +getReadUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsLargeBlobInputs -> m Bool +getReadUnsafe self = liftDOM ((((js_getRead (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getReadUnchecked :: (MonadDOM m) => AuthenticationExtensionsLargeBlobInputs -> m Bool +getReadUnchecked self = liftDOM ((pFromJSVal <$> (js_getRead (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"write\"] = $2; })" + js_setWrite :: AuthenticationExtensionsLargeBlobInputs -> BufferSource -> IO () +-- | +setWrite :: (MonadDOM m, IsBufferSource val) => AuthenticationExtensionsLargeBlobInputs -> val -> m () +setWrite self val = liftDOM (void ((js_setWrite (self) (Types.toBufferSource val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"write\"]; })" + js_getWrite :: AuthenticationExtensionsLargeBlobInputs -> IO JSVal +-- | +getWrite :: (MonadDOM m) => AuthenticationExtensionsLargeBlobInputs -> m (Maybe BufferSource) +getWrite self = liftDOM (((js_getWrite (self)) >>= fromJSValUnchecked)) + +-- | +getWriteUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsLargeBlobInputs -> m BufferSource +getWriteUnsafe self = liftDOM ((((js_getWrite (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getWriteUnchecked :: (MonadDOM m) => AuthenticationExtensionsLargeBlobInputs -> m BufferSource +getWriteUnchecked self = liftDOM ((pFromJSVal <$> (js_getWrite (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/AuthenticationExtensionsLargeBlobInputsJSON.hs b/src/GHCJS/DOM/JSFFI/Generated/AuthenticationExtensionsLargeBlobInputsJSON.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/AuthenticationExtensionsLargeBlobInputsJSON.hs @@ -0,0 +1,83 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from webauthn-4 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.AuthenticationExtensionsLargeBlobInputsJSON + (js_newAuthenticationExtensionsLargeBlobInputsJSON, js_setSupport, js_getSupport, js_setRead, js_getRead, js_setWrite, js_getWrite, newAuthenticationExtensionsLargeBlobInputsJSON, setSupport, getSupport, getSupportUnsafe, getSupportUnchecked, setRead, getRead, getReadUnsafe, getReadUnchecked, setWrite, getWrite, getWriteUnsafe, getWriteUnchecked, AuthenticationExtensionsLargeBlobInputsJSON(..), gTypeAuthenticationExtensionsLargeBlobInputsJSON) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(() => { return ({}); })" + js_newAuthenticationExtensionsLargeBlobInputsJSON :: IO AuthenticationExtensionsLargeBlobInputsJSON +-- | +newAuthenticationExtensionsLargeBlobInputsJSON :: (MonadDOM m) => m AuthenticationExtensionsLargeBlobInputsJSON +newAuthenticationExtensionsLargeBlobInputsJSON = liftDOM ((js_newAuthenticationExtensionsLargeBlobInputsJSON)) + +foreign import javascript safe "(($1, $2) => { $1[\"support\"] = $2; })" + js_setSupport :: AuthenticationExtensionsLargeBlobInputsJSON -> JSString -> IO () +-- | +setSupport :: (MonadDOM m, ToJSString val) => AuthenticationExtensionsLargeBlobInputsJSON -> val -> m () +setSupport self val = liftDOM (void ((js_setSupport (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"support\"]; })" + js_getSupport :: AuthenticationExtensionsLargeBlobInputsJSON -> IO JSVal +-- | +getSupport :: (MonadDOM m, FromJSString result) => AuthenticationExtensionsLargeBlobInputsJSON -> m (Maybe result) +getSupport self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getSupport (self)))) + +-- | +getSupportUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => AuthenticationExtensionsLargeBlobInputsJSON -> m result +getSupportUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getSupport (self))) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getSupportUnchecked :: (MonadDOM m, FromJSString result) => AuthenticationExtensionsLargeBlobInputsJSON -> m result +getSupportUnchecked self = liftDOM ((pFromJSVal <$> (js_getSupport (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"read\"] = $2; })" + js_setRead :: AuthenticationExtensionsLargeBlobInputsJSON -> Bool -> IO () +-- | +setRead :: (MonadDOM m) => AuthenticationExtensionsLargeBlobInputsJSON -> Bool -> m () +setRead self val = liftDOM (void ((js_setRead (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"read\"]; })" + js_getRead :: AuthenticationExtensionsLargeBlobInputsJSON -> IO JSVal +-- | +getRead :: (MonadDOM m) => AuthenticationExtensionsLargeBlobInputsJSON -> m (Maybe Bool) +getRead self = liftDOM (((js_getRead (self)) >>= fromJSValUnchecked)) + +-- | +getReadUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsLargeBlobInputsJSON -> m Bool +getReadUnsafe self = liftDOM ((((js_getRead (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getReadUnchecked :: (MonadDOM m) => AuthenticationExtensionsLargeBlobInputsJSON -> m Bool +getReadUnchecked self = liftDOM ((pFromJSVal <$> (js_getRead (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"write\"] = $2; })" + js_setWrite :: AuthenticationExtensionsLargeBlobInputsJSON -> JSString -> IO () +-- | +setWrite :: (MonadDOM m, ToJSString val) => AuthenticationExtensionsLargeBlobInputsJSON -> val -> m () +setWrite self val = liftDOM (void ((js_setWrite (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"write\"]; })" + js_getWrite :: AuthenticationExtensionsLargeBlobInputsJSON -> IO JSVal +-- | +getWrite :: (MonadDOM m, FromJSString result) => AuthenticationExtensionsLargeBlobInputsJSON -> m (Maybe result) +getWrite self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getWrite (self)))) + +-- | +getWriteUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => AuthenticationExtensionsLargeBlobInputsJSON -> m result +getWriteUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getWrite (self))) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getWriteUnchecked :: (MonadDOM m, FromJSString result) => AuthenticationExtensionsLargeBlobInputsJSON -> m result +getWriteUnchecked self = liftDOM ((pFromJSVal <$> (js_getWrite (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/AuthenticationExtensionsLargeBlobOutputs.hs b/src/GHCJS/DOM/JSFFI/Generated/AuthenticationExtensionsLargeBlobOutputs.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/AuthenticationExtensionsLargeBlobOutputs.hs @@ -0,0 +1,83 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from webauthn-4 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.AuthenticationExtensionsLargeBlobOutputs + (js_newAuthenticationExtensionsLargeBlobOutputs, js_setSupported, js_getSupported, js_setBlob, js_getBlob, js_setWritten, js_getWritten, newAuthenticationExtensionsLargeBlobOutputs, setSupported, getSupported, getSupportedUnsafe, getSupportedUnchecked, setBlob, getBlob, getBlobUnsafe, getBlobUnchecked, setWritten, getWritten, getWrittenUnsafe, getWrittenUnchecked, AuthenticationExtensionsLargeBlobOutputs(..), gTypeAuthenticationExtensionsLargeBlobOutputs) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(() => { return ({}); })" + js_newAuthenticationExtensionsLargeBlobOutputs :: IO AuthenticationExtensionsLargeBlobOutputs +-- | +newAuthenticationExtensionsLargeBlobOutputs :: (MonadDOM m) => m AuthenticationExtensionsLargeBlobOutputs +newAuthenticationExtensionsLargeBlobOutputs = liftDOM ((js_newAuthenticationExtensionsLargeBlobOutputs)) + +foreign import javascript safe "(($1, $2) => { $1[\"supported\"] = $2; })" + js_setSupported :: AuthenticationExtensionsLargeBlobOutputs -> Bool -> IO () +-- | +setSupported :: (MonadDOM m) => AuthenticationExtensionsLargeBlobOutputs -> Bool -> m () +setSupported self val = liftDOM (void ((js_setSupported (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"supported\"]; })" + js_getSupported :: AuthenticationExtensionsLargeBlobOutputs -> IO JSVal +-- | +getSupported :: (MonadDOM m) => AuthenticationExtensionsLargeBlobOutputs -> m (Maybe Bool) +getSupported self = liftDOM (((js_getSupported (self)) >>= fromJSValUnchecked)) + +-- | +getSupportedUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsLargeBlobOutputs -> m Bool +getSupportedUnsafe self = liftDOM ((((js_getSupported (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getSupportedUnchecked :: (MonadDOM m) => AuthenticationExtensionsLargeBlobOutputs -> m Bool +getSupportedUnchecked self = liftDOM ((pFromJSVal <$> (js_getSupported (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"blob\"] = $2; })" + js_setBlob :: AuthenticationExtensionsLargeBlobOutputs -> ArrayBuffer -> IO () +-- | +setBlob :: (MonadDOM m, IsArrayBuffer val) => AuthenticationExtensionsLargeBlobOutputs -> val -> m () +setBlob self val = liftDOM (void ((js_setBlob (self) (Types.toArrayBuffer val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"blob\"]; })" + js_getBlob :: AuthenticationExtensionsLargeBlobOutputs -> IO JSVal +-- | +getBlob :: (MonadDOM m) => AuthenticationExtensionsLargeBlobOutputs -> m (Maybe ArrayBuffer) +getBlob self = liftDOM (((js_getBlob (self)) >>= fromJSValUnchecked)) + +-- | +getBlobUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsLargeBlobOutputs -> m ArrayBuffer +getBlobUnsafe self = liftDOM ((((js_getBlob (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getBlobUnchecked :: (MonadDOM m) => AuthenticationExtensionsLargeBlobOutputs -> m ArrayBuffer +getBlobUnchecked self = liftDOM ((pFromJSVal <$> (js_getBlob (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"written\"] = $2; })" + js_setWritten :: AuthenticationExtensionsLargeBlobOutputs -> Bool -> IO () +-- | +setWritten :: (MonadDOM m) => AuthenticationExtensionsLargeBlobOutputs -> Bool -> m () +setWritten self val = liftDOM (void ((js_setWritten (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"written\"]; })" + js_getWritten :: AuthenticationExtensionsLargeBlobOutputs -> IO JSVal +-- | +getWritten :: (MonadDOM m) => AuthenticationExtensionsLargeBlobOutputs -> m (Maybe Bool) +getWritten self = liftDOM (((js_getWritten (self)) >>= fromJSValUnchecked)) + +-- | +getWrittenUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsLargeBlobOutputs -> m Bool +getWrittenUnsafe self = liftDOM ((((js_getWritten (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getWrittenUnchecked :: (MonadDOM m) => AuthenticationExtensionsLargeBlobOutputs -> m Bool +getWrittenUnchecked self = liftDOM ((pFromJSVal <$> (js_getWritten (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/AuthenticationExtensionsPRFInputs.hs b/src/GHCJS/DOM/JSFFI/Generated/AuthenticationExtensionsPRFInputs.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/AuthenticationExtensionsPRFInputs.hs @@ -0,0 +1,63 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from webauthn-4 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.AuthenticationExtensionsPRFInputs + (js_newAuthenticationExtensionsPRFInputs, js_setEval, js_getEval, js_setEvalByCredential, js_getEvalByCredential, newAuthenticationExtensionsPRFInputs, setEval, getEval, getEvalUnsafe, getEvalUnchecked, setEvalByCredential, getEvalByCredential, getEvalByCredentialUnsafe, getEvalByCredentialUnchecked, AuthenticationExtensionsPRFInputs(..), gTypeAuthenticationExtensionsPRFInputs) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(() => { return ({}); })" + js_newAuthenticationExtensionsPRFInputs :: IO AuthenticationExtensionsPRFInputs +-- | +newAuthenticationExtensionsPRFInputs :: (MonadDOM m) => m AuthenticationExtensionsPRFInputs +newAuthenticationExtensionsPRFInputs = liftDOM ((js_newAuthenticationExtensionsPRFInputs)) + +foreign import javascript safe "(($1, $2) => { $1[\"eval\"] = $2; })" + js_setEval :: AuthenticationExtensionsPRFInputs -> AuthenticationExtensionsPRFValues -> IO () +-- | +setEval :: (MonadDOM m) => AuthenticationExtensionsPRFInputs -> AuthenticationExtensionsPRFValues -> m () +setEval self val = liftDOM (void ((js_setEval (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"eval\"]; })" + js_getEval :: AuthenticationExtensionsPRFInputs -> IO JSVal +-- | +getEval :: (MonadDOM m) => AuthenticationExtensionsPRFInputs -> m (Maybe AuthenticationExtensionsPRFValues) +getEval self = liftDOM (((js_getEval (self)) >>= fromJSValUnchecked)) + +-- | +getEvalUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsPRFInputs -> m AuthenticationExtensionsPRFValues +getEvalUnsafe self = liftDOM ((((js_getEval (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getEvalUnchecked :: (MonadDOM m) => AuthenticationExtensionsPRFInputs -> m AuthenticationExtensionsPRFValues +getEvalUnchecked self = liftDOM ((pFromJSVal <$> (js_getEval (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"evalByCredential\"] = $2; })" + js_setEvalByCredential :: AuthenticationExtensionsPRFInputs -> JSVal -> IO () +-- | +setEvalByCredential :: (MonadDOM m) => AuthenticationExtensionsPRFInputs -> (Record JSString JSVal) -> m () +setEvalByCredential self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setEvalByCredential (self) a2'))) + +foreign import javascript unsafe "(($1) => { return $1[\"evalByCredential\"]; })" + js_getEvalByCredential :: AuthenticationExtensionsPRFInputs -> IO JSVal +-- | +getEvalByCredential :: (MonadDOM m) => AuthenticationExtensionsPRFInputs -> m (Maybe (Record JSString JSVal)) +getEvalByCredential self = liftDOM (((js_getEvalByCredential (self)) >>= fromJSValUnchecked)) + +-- | +getEvalByCredentialUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsPRFInputs -> m (Record JSString JSVal) +getEvalByCredentialUnsafe self = liftDOM ((((js_getEvalByCredential (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getEvalByCredentialUnchecked :: (MonadDOM m) => AuthenticationExtensionsPRFInputs -> m (Record JSString JSVal) +getEvalByCredentialUnchecked self = liftDOM ((pFromJSVal <$> (js_getEvalByCredential (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/AuthenticationExtensionsPRFInputsJSON.hs b/src/GHCJS/DOM/JSFFI/Generated/AuthenticationExtensionsPRFInputsJSON.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/AuthenticationExtensionsPRFInputsJSON.hs @@ -0,0 +1,63 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from webauthn-4 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.AuthenticationExtensionsPRFInputsJSON + (js_newAuthenticationExtensionsPRFInputsJSON, js_setEval, js_getEval, js_setEvalByCredential, js_getEvalByCredential, newAuthenticationExtensionsPRFInputsJSON, setEval, getEval, getEvalUnsafe, getEvalUnchecked, setEvalByCredential, getEvalByCredential, getEvalByCredentialUnsafe, getEvalByCredentialUnchecked, AuthenticationExtensionsPRFInputsJSON(..), gTypeAuthenticationExtensionsPRFInputsJSON) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(() => { return ({}); })" + js_newAuthenticationExtensionsPRFInputsJSON :: IO AuthenticationExtensionsPRFInputsJSON +-- | +newAuthenticationExtensionsPRFInputsJSON :: (MonadDOM m) => m AuthenticationExtensionsPRFInputsJSON +newAuthenticationExtensionsPRFInputsJSON = liftDOM ((js_newAuthenticationExtensionsPRFInputsJSON)) + +foreign import javascript safe "(($1, $2) => { $1[\"eval\"] = $2; })" + js_setEval :: AuthenticationExtensionsPRFInputsJSON -> AuthenticationExtensionsPRFValuesJSON -> IO () +-- | +setEval :: (MonadDOM m) => AuthenticationExtensionsPRFInputsJSON -> AuthenticationExtensionsPRFValuesJSON -> m () +setEval self val = liftDOM (void ((js_setEval (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"eval\"]; })" + js_getEval :: AuthenticationExtensionsPRFInputsJSON -> IO JSVal +-- | +getEval :: (MonadDOM m) => AuthenticationExtensionsPRFInputsJSON -> m (Maybe AuthenticationExtensionsPRFValuesJSON) +getEval self = liftDOM (((js_getEval (self)) >>= fromJSValUnchecked)) + +-- | +getEvalUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsPRFInputsJSON -> m AuthenticationExtensionsPRFValuesJSON +getEvalUnsafe self = liftDOM ((((js_getEval (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getEvalUnchecked :: (MonadDOM m) => AuthenticationExtensionsPRFInputsJSON -> m AuthenticationExtensionsPRFValuesJSON +getEvalUnchecked self = liftDOM ((pFromJSVal <$> (js_getEval (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"evalByCredential\"] = $2; })" + js_setEvalByCredential :: AuthenticationExtensionsPRFInputsJSON -> JSVal -> IO () +-- | +setEvalByCredential :: (MonadDOM m) => AuthenticationExtensionsPRFInputsJSON -> (Record JSString JSVal) -> m () +setEvalByCredential self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setEvalByCredential (self) a2'))) + +foreign import javascript unsafe "(($1) => { return $1[\"evalByCredential\"]; })" + js_getEvalByCredential :: AuthenticationExtensionsPRFInputsJSON -> IO JSVal +-- | +getEvalByCredential :: (MonadDOM m) => AuthenticationExtensionsPRFInputsJSON -> m (Maybe (Record JSString JSVal)) +getEvalByCredential self = liftDOM (((js_getEvalByCredential (self)) >>= fromJSValUnchecked)) + +-- | +getEvalByCredentialUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsPRFInputsJSON -> m (Record JSString JSVal) +getEvalByCredentialUnsafe self = liftDOM ((((js_getEvalByCredential (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getEvalByCredentialUnchecked :: (MonadDOM m) => AuthenticationExtensionsPRFInputsJSON -> m (Record JSString JSVal) +getEvalByCredentialUnchecked self = liftDOM ((pFromJSVal <$> (js_getEvalByCredential (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/AuthenticationExtensionsPRFOutputs.hs b/src/GHCJS/DOM/JSFFI/Generated/AuthenticationExtensionsPRFOutputs.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/AuthenticationExtensionsPRFOutputs.hs @@ -0,0 +1,63 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from webauthn-4 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.AuthenticationExtensionsPRFOutputs + (js_newAuthenticationExtensionsPRFOutputs, js_setEnabled, js_getEnabled, js_setResults, js_getResults, newAuthenticationExtensionsPRFOutputs, setEnabled, getEnabled, getEnabledUnsafe, getEnabledUnchecked, setResults, getResults, getResultsUnsafe, getResultsUnchecked, AuthenticationExtensionsPRFOutputs(..), gTypeAuthenticationExtensionsPRFOutputs) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(() => { return ({}); })" + js_newAuthenticationExtensionsPRFOutputs :: IO AuthenticationExtensionsPRFOutputs +-- | +newAuthenticationExtensionsPRFOutputs :: (MonadDOM m) => m AuthenticationExtensionsPRFOutputs +newAuthenticationExtensionsPRFOutputs = liftDOM ((js_newAuthenticationExtensionsPRFOutputs)) + +foreign import javascript safe "(($1, $2) => { $1[\"enabled\"] = $2; })" + js_setEnabled :: AuthenticationExtensionsPRFOutputs -> Bool -> IO () +-- | +setEnabled :: (MonadDOM m) => AuthenticationExtensionsPRFOutputs -> Bool -> m () +setEnabled self val = liftDOM (void ((js_setEnabled (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"enabled\"]; })" + js_getEnabled :: AuthenticationExtensionsPRFOutputs -> IO JSVal +-- | +getEnabled :: (MonadDOM m) => AuthenticationExtensionsPRFOutputs -> m (Maybe Bool) +getEnabled self = liftDOM (((js_getEnabled (self)) >>= fromJSValUnchecked)) + +-- | +getEnabledUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsPRFOutputs -> m Bool +getEnabledUnsafe self = liftDOM ((((js_getEnabled (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getEnabledUnchecked :: (MonadDOM m) => AuthenticationExtensionsPRFOutputs -> m Bool +getEnabledUnchecked self = liftDOM ((pFromJSVal <$> (js_getEnabled (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"results\"] = $2; })" + js_setResults :: AuthenticationExtensionsPRFOutputs -> AuthenticationExtensionsPRFValues -> IO () +-- | +setResults :: (MonadDOM m) => AuthenticationExtensionsPRFOutputs -> AuthenticationExtensionsPRFValues -> m () +setResults self val = liftDOM (void ((js_setResults (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"results\"]; })" + js_getResults :: AuthenticationExtensionsPRFOutputs -> IO JSVal +-- | +getResults :: (MonadDOM m) => AuthenticationExtensionsPRFOutputs -> m (Maybe AuthenticationExtensionsPRFValues) +getResults self = liftDOM (((js_getResults (self)) >>= fromJSValUnchecked)) + +-- | +getResultsUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsPRFOutputs -> m AuthenticationExtensionsPRFValues +getResultsUnsafe self = liftDOM ((((js_getResults (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getResultsUnchecked :: (MonadDOM m) => AuthenticationExtensionsPRFOutputs -> m AuthenticationExtensionsPRFValues +getResultsUnchecked self = liftDOM ((pFromJSVal <$> (js_getResults (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/AuthenticationExtensionsPRFValues.hs b/src/GHCJS/DOM/JSFFI/Generated/AuthenticationExtensionsPRFValues.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/AuthenticationExtensionsPRFValues.hs @@ -0,0 +1,55 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from webauthn-4 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.AuthenticationExtensionsPRFValues + (js_newAuthenticationExtensionsPRFValues, js_setFirst, js_getFirst, js_setSecond, js_getSecond, newAuthenticationExtensionsPRFValues, setFirst, getFirst, setSecond, getSecond, getSecondUnsafe, getSecondUnchecked, AuthenticationExtensionsPRFValues(..), gTypeAuthenticationExtensionsPRFValues) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1) => { return ({\"first\": $1}); })" + js_newAuthenticationExtensionsPRFValues :: BufferSource -> IO AuthenticationExtensionsPRFValues +-- | +newAuthenticationExtensionsPRFValues :: (MonadDOM m, IsBufferSource first) => first -> m AuthenticationExtensionsPRFValues +newAuthenticationExtensionsPRFValues first = liftDOM ((js_newAuthenticationExtensionsPRFValues (Types.toBufferSource first))) + +foreign import javascript safe "(($1, $2) => { $1[\"first\"] = $2; })" + js_setFirst :: AuthenticationExtensionsPRFValues -> BufferSource -> IO () +-- | +setFirst :: (MonadDOM m, IsBufferSource val) => AuthenticationExtensionsPRFValues -> val -> m () +setFirst self val = liftDOM (void ((js_setFirst (self) (Types.toBufferSource val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"first\"]; })" + js_getFirst :: AuthenticationExtensionsPRFValues -> IO BufferSource +-- | +getFirst :: (MonadDOM m) => AuthenticationExtensionsPRFValues -> m BufferSource +getFirst self = liftDOM ((js_getFirst (self))) + +foreign import javascript safe "(($1, $2) => { $1[\"second\"] = $2; })" + js_setSecond :: AuthenticationExtensionsPRFValues -> BufferSource -> IO () +-- | +setSecond :: (MonadDOM m, IsBufferSource val) => AuthenticationExtensionsPRFValues -> val -> m () +setSecond self val = liftDOM (void ((js_setSecond (self) (Types.toBufferSource val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"second\"]; })" + js_getSecond :: AuthenticationExtensionsPRFValues -> IO JSVal +-- | +getSecond :: (MonadDOM m) => AuthenticationExtensionsPRFValues -> m (Maybe BufferSource) +getSecond self = liftDOM (((js_getSecond (self)) >>= fromJSValUnchecked)) + +-- | +getSecondUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsPRFValues -> m BufferSource +getSecondUnsafe self = liftDOM ((((js_getSecond (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getSecondUnchecked :: (MonadDOM m) => AuthenticationExtensionsPRFValues -> m BufferSource +getSecondUnchecked self = liftDOM ((pFromJSVal <$> (js_getSecond (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/AuthenticationExtensionsPRFValuesJSON.hs b/src/GHCJS/DOM/JSFFI/Generated/AuthenticationExtensionsPRFValuesJSON.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/AuthenticationExtensionsPRFValuesJSON.hs @@ -0,0 +1,55 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from webauthn-4 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.AuthenticationExtensionsPRFValuesJSON + (js_newAuthenticationExtensionsPRFValuesJSON, js_setFirst, js_getFirst, js_setSecond, js_getSecond, newAuthenticationExtensionsPRFValuesJSON, setFirst, getFirst, setSecond, getSecond, getSecondUnsafe, getSecondUnchecked, AuthenticationExtensionsPRFValuesJSON(..), gTypeAuthenticationExtensionsPRFValuesJSON) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1) => { return ({\"first\": $1}); })" + js_newAuthenticationExtensionsPRFValuesJSON :: JSString -> IO AuthenticationExtensionsPRFValuesJSON +-- | +newAuthenticationExtensionsPRFValuesJSON :: (MonadDOM m, ToJSString first) => first -> m AuthenticationExtensionsPRFValuesJSON +newAuthenticationExtensionsPRFValuesJSON first = liftDOM ((js_newAuthenticationExtensionsPRFValuesJSON (toJSString first))) + +foreign import javascript safe "(($1, $2) => { $1[\"first\"] = $2; })" + js_setFirst :: AuthenticationExtensionsPRFValuesJSON -> JSString -> IO () +-- | +setFirst :: (MonadDOM m, ToJSString val) => AuthenticationExtensionsPRFValuesJSON -> val -> m () +setFirst self val = liftDOM (void ((js_setFirst (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"first\"]; })" + js_getFirst :: AuthenticationExtensionsPRFValuesJSON -> IO JSString +-- | +getFirst :: (MonadDOM m, FromJSString result) => AuthenticationExtensionsPRFValuesJSON -> m result +getFirst self = liftDOM ((fromJSString <$> (js_getFirst (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"second\"] = $2; })" + js_setSecond :: AuthenticationExtensionsPRFValuesJSON -> JSString -> IO () +-- | +setSecond :: (MonadDOM m, ToJSString val) => AuthenticationExtensionsPRFValuesJSON -> val -> m () +setSecond self val = liftDOM (void ((js_setSecond (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"second\"]; })" + js_getSecond :: AuthenticationExtensionsPRFValuesJSON -> IO JSVal +-- | +getSecond :: (MonadDOM m, FromJSString result) => AuthenticationExtensionsPRFValuesJSON -> m (Maybe result) +getSecond self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getSecond (self)))) + +-- | +getSecondUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => AuthenticationExtensionsPRFValuesJSON -> m result +getSecondUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getSecond (self))) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getSecondUnchecked :: (MonadDOM m, FromJSString result) => AuthenticationExtensionsPRFValuesJSON -> m result +getSecondUnchecked self = liftDOM ((pFromJSVal <$> (js_getSecond (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/AuthenticationExtensionsPaymentInputs.hs b/src/GHCJS/DOM/JSFFI/Generated/AuthenticationExtensionsPaymentInputs.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/AuthenticationExtensionsPaymentInputs.hs @@ -0,0 +1,203 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from secure-payment-confirmation (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.AuthenticationExtensionsPaymentInputs + (js_newAuthenticationExtensionsPaymentInputs, js_setIsPayment, js_getIsPayment, js_setBrowserBoundPubKeyCredParams, js_getBrowserBoundPubKeyCredParams, js_setRpId, js_getRpId, js_setTopOrigin, js_getTopOrigin, js_setPayeeName, js_getPayeeName, js_setPayeeOrigin, js_getPayeeOrigin, js_setPaymentEntitiesLogos, js_getPaymentEntitiesLogos, js_setTotal, js_getTotal, js_setInstrument, js_getInstrument, newAuthenticationExtensionsPaymentInputs, setIsPayment, getIsPayment, getIsPaymentUnsafe, getIsPaymentUnchecked, setBrowserBoundPubKeyCredParams, getBrowserBoundPubKeyCredParams, getBrowserBoundPubKeyCredParamsUnsafe, getBrowserBoundPubKeyCredParamsUnchecked, setRpId, getRpId, getRpIdUnsafe, getRpIdUnchecked, setTopOrigin, getTopOrigin, getTopOriginUnsafe, getTopOriginUnchecked, setPayeeName, getPayeeName, getPayeeNameUnsafe, getPayeeNameUnchecked, setPayeeOrigin, getPayeeOrigin, getPayeeOriginUnsafe, getPayeeOriginUnchecked, setPaymentEntitiesLogos, getPaymentEntitiesLogos, getPaymentEntitiesLogosUnsafe, getPaymentEntitiesLogosUnchecked, setTotal, getTotal, getTotalUnsafe, getTotalUnchecked, setInstrument, getInstrument, getInstrumentUnsafe, getInstrumentUnchecked, AuthenticationExtensionsPaymentInputs(..), gTypeAuthenticationExtensionsPaymentInputs) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(() => { return ({}); })" + js_newAuthenticationExtensionsPaymentInputs :: IO AuthenticationExtensionsPaymentInputs +-- | +newAuthenticationExtensionsPaymentInputs :: (MonadDOM m) => m AuthenticationExtensionsPaymentInputs +newAuthenticationExtensionsPaymentInputs = liftDOM ((js_newAuthenticationExtensionsPaymentInputs)) + +foreign import javascript safe "(($1, $2) => { $1[\"isPayment\"] = $2; })" + js_setIsPayment :: AuthenticationExtensionsPaymentInputs -> Bool -> IO () +-- | +setIsPayment :: (MonadDOM m) => AuthenticationExtensionsPaymentInputs -> Bool -> m () +setIsPayment self val = liftDOM (void ((js_setIsPayment (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"isPayment\"]; })" + js_getIsPayment :: AuthenticationExtensionsPaymentInputs -> IO JSVal +-- | +getIsPayment :: (MonadDOM m) => AuthenticationExtensionsPaymentInputs -> m (Maybe Bool) +getIsPayment self = liftDOM (((js_getIsPayment (self)) >>= fromJSValUnchecked)) + +-- | +getIsPaymentUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsPaymentInputs -> m Bool +getIsPaymentUnsafe self = liftDOM ((((js_getIsPayment (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getIsPaymentUnchecked :: (MonadDOM m) => AuthenticationExtensionsPaymentInputs -> m Bool +getIsPaymentUnchecked self = liftDOM ((pFromJSVal <$> (js_getIsPayment (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"browserBoundPubKeyCredParams\"] = $2; })" + js_setBrowserBoundPubKeyCredParams :: AuthenticationExtensionsPaymentInputs -> JSVal -> IO () +-- | +setBrowserBoundPubKeyCredParams :: (MonadDOM m) => AuthenticationExtensionsPaymentInputs -> [PublicKeyCredentialParameters] -> m () +setBrowserBoundPubKeyCredParams self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setBrowserBoundPubKeyCredParams (self) a2'))) + +foreign import javascript unsafe "(($1) => { return $1[\"browserBoundPubKeyCredParams\"]; })" + js_getBrowserBoundPubKeyCredParams :: AuthenticationExtensionsPaymentInputs -> IO JSVal +-- | +getBrowserBoundPubKeyCredParams :: (MonadDOM m) => AuthenticationExtensionsPaymentInputs -> m (Maybe [PublicKeyCredentialParameters]) +getBrowserBoundPubKeyCredParams self = liftDOM (((js_getBrowserBoundPubKeyCredParams (self)) >>= fromJSValUnchecked)) + +-- | +getBrowserBoundPubKeyCredParamsUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsPaymentInputs -> m [PublicKeyCredentialParameters] +getBrowserBoundPubKeyCredParamsUnsafe self = liftDOM ((((js_getBrowserBoundPubKeyCredParams (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getBrowserBoundPubKeyCredParamsUnchecked :: (MonadDOM m) => AuthenticationExtensionsPaymentInputs -> m [PublicKeyCredentialParameters] +getBrowserBoundPubKeyCredParamsUnchecked self = liftDOM (((js_getBrowserBoundPubKeyCredParams (self)) >>= fromJSValUnchecked)) + +foreign import javascript safe "(($1, $2) => { $1[\"rpId\"] = $2; })" + js_setRpId :: AuthenticationExtensionsPaymentInputs -> JSString -> IO () +-- | +setRpId :: (MonadDOM m, ToJSString val) => AuthenticationExtensionsPaymentInputs -> val -> m () +setRpId self val = liftDOM (void ((js_setRpId (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"rpId\"]; })" + js_getRpId :: AuthenticationExtensionsPaymentInputs -> IO JSVal +-- | +getRpId :: (MonadDOM m, FromJSString result) => AuthenticationExtensionsPaymentInputs -> m (Maybe result) +getRpId self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getRpId (self)))) + +-- | +getRpIdUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => AuthenticationExtensionsPaymentInputs -> m result +getRpIdUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getRpId (self))) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getRpIdUnchecked :: (MonadDOM m, FromJSString result) => AuthenticationExtensionsPaymentInputs -> m result +getRpIdUnchecked self = liftDOM ((pFromJSVal <$> (js_getRpId (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"topOrigin\"] = $2; })" + js_setTopOrigin :: AuthenticationExtensionsPaymentInputs -> JSString -> IO () +-- | +setTopOrigin :: (MonadDOM m, ToJSString val) => AuthenticationExtensionsPaymentInputs -> val -> m () +setTopOrigin self val = liftDOM (void ((js_setTopOrigin (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"topOrigin\"]; })" + js_getTopOrigin :: AuthenticationExtensionsPaymentInputs -> IO JSVal +-- | +getTopOrigin :: (MonadDOM m, FromJSString result) => AuthenticationExtensionsPaymentInputs -> m (Maybe result) +getTopOrigin self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getTopOrigin (self)))) + +-- | +getTopOriginUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => AuthenticationExtensionsPaymentInputs -> m result +getTopOriginUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getTopOrigin (self))) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getTopOriginUnchecked :: (MonadDOM m, FromJSString result) => AuthenticationExtensionsPaymentInputs -> m result +getTopOriginUnchecked self = liftDOM ((pFromJSVal <$> (js_getTopOrigin (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"payeeName\"] = $2; })" + js_setPayeeName :: AuthenticationExtensionsPaymentInputs -> JSString -> IO () +-- | +setPayeeName :: (MonadDOM m, ToJSString val) => AuthenticationExtensionsPaymentInputs -> val -> m () +setPayeeName self val = liftDOM (void ((js_setPayeeName (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"payeeName\"]; })" + js_getPayeeName :: AuthenticationExtensionsPaymentInputs -> IO JSVal +-- | +getPayeeName :: (MonadDOM m, FromJSString result) => AuthenticationExtensionsPaymentInputs -> m (Maybe result) +getPayeeName self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getPayeeName (self)))) + +-- | +getPayeeNameUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => AuthenticationExtensionsPaymentInputs -> m result +getPayeeNameUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getPayeeName (self))) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getPayeeNameUnchecked :: (MonadDOM m, FromJSString result) => AuthenticationExtensionsPaymentInputs -> m result +getPayeeNameUnchecked self = liftDOM ((pFromJSVal <$> (js_getPayeeName (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"payeeOrigin\"] = $2; })" + js_setPayeeOrigin :: AuthenticationExtensionsPaymentInputs -> JSString -> IO () +-- | +setPayeeOrigin :: (MonadDOM m, ToJSString val) => AuthenticationExtensionsPaymentInputs -> val -> m () +setPayeeOrigin self val = liftDOM (void ((js_setPayeeOrigin (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"payeeOrigin\"]; })" + js_getPayeeOrigin :: AuthenticationExtensionsPaymentInputs -> IO JSVal +-- | +getPayeeOrigin :: (MonadDOM m, FromJSString result) => AuthenticationExtensionsPaymentInputs -> m (Maybe result) +getPayeeOrigin self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getPayeeOrigin (self)))) + +-- | +getPayeeOriginUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => AuthenticationExtensionsPaymentInputs -> m result +getPayeeOriginUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getPayeeOrigin (self))) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getPayeeOriginUnchecked :: (MonadDOM m, FromJSString result) => AuthenticationExtensionsPaymentInputs -> m result +getPayeeOriginUnchecked self = liftDOM ((pFromJSVal <$> (js_getPayeeOrigin (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"paymentEntitiesLogos\"] = $2; })" + js_setPaymentEntitiesLogos :: AuthenticationExtensionsPaymentInputs -> JSVal -> IO () +-- | +setPaymentEntitiesLogos :: (MonadDOM m) => AuthenticationExtensionsPaymentInputs -> [PaymentEntityLogo] -> m () +setPaymentEntitiesLogos self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setPaymentEntitiesLogos (self) a2'))) + +foreign import javascript unsafe "(($1) => { return $1[\"paymentEntitiesLogos\"]; })" + js_getPaymentEntitiesLogos :: AuthenticationExtensionsPaymentInputs -> IO JSVal +-- | +getPaymentEntitiesLogos :: (MonadDOM m) => AuthenticationExtensionsPaymentInputs -> m (Maybe [PaymentEntityLogo]) +getPaymentEntitiesLogos self = liftDOM (((js_getPaymentEntitiesLogos (self)) >>= fromJSValUnchecked)) + +-- | +getPaymentEntitiesLogosUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsPaymentInputs -> m [PaymentEntityLogo] +getPaymentEntitiesLogosUnsafe self = liftDOM ((((js_getPaymentEntitiesLogos (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getPaymentEntitiesLogosUnchecked :: (MonadDOM m) => AuthenticationExtensionsPaymentInputs -> m [PaymentEntityLogo] +getPaymentEntitiesLogosUnchecked self = liftDOM (((js_getPaymentEntitiesLogos (self)) >>= fromJSValUnchecked)) + +foreign import javascript safe "(($1, $2) => { $1[\"total\"] = $2; })" + js_setTotal :: AuthenticationExtensionsPaymentInputs -> PaymentCurrencyAmount -> IO () +-- | +setTotal :: (MonadDOM m) => AuthenticationExtensionsPaymentInputs -> PaymentCurrencyAmount -> m () +setTotal self val = liftDOM (void ((js_setTotal (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"total\"]; })" + js_getTotal :: AuthenticationExtensionsPaymentInputs -> IO JSVal +-- | +getTotal :: (MonadDOM m) => AuthenticationExtensionsPaymentInputs -> m (Maybe PaymentCurrencyAmount) +getTotal self = liftDOM (((js_getTotal (self)) >>= fromJSValUnchecked)) + +-- | +getTotalUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsPaymentInputs -> m PaymentCurrencyAmount +getTotalUnsafe self = liftDOM ((((js_getTotal (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getTotalUnchecked :: (MonadDOM m) => AuthenticationExtensionsPaymentInputs -> m PaymentCurrencyAmount +getTotalUnchecked self = liftDOM ((pFromJSVal <$> (js_getTotal (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"instrument\"] = $2; })" + js_setInstrument :: AuthenticationExtensionsPaymentInputs -> PaymentCredentialInstrument -> IO () +-- | +setInstrument :: (MonadDOM m) => AuthenticationExtensionsPaymentInputs -> PaymentCredentialInstrument -> m () +setInstrument self val = liftDOM (void ((js_setInstrument (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"instrument\"]; })" + js_getInstrument :: AuthenticationExtensionsPaymentInputs -> IO JSVal +-- | +getInstrument :: (MonadDOM m) => AuthenticationExtensionsPaymentInputs -> m (Maybe PaymentCredentialInstrument) +getInstrument self = liftDOM (((js_getInstrument (self)) >>= fromJSValUnchecked)) + +-- | +getInstrumentUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsPaymentInputs -> m PaymentCredentialInstrument +getInstrumentUnsafe self = liftDOM ((((js_getInstrument (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getInstrumentUnchecked :: (MonadDOM m) => AuthenticationExtensionsPaymentInputs -> m PaymentCredentialInstrument +getInstrumentUnchecked self = liftDOM ((pFromJSVal <$> (js_getInstrument (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/AuthenticationExtensionsPaymentOutputs.hs b/src/GHCJS/DOM/JSFFI/Generated/AuthenticationExtensionsPaymentOutputs.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/AuthenticationExtensionsPaymentOutputs.hs @@ -0,0 +1,43 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from secure-payment-confirmation (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.AuthenticationExtensionsPaymentOutputs + (js_newAuthenticationExtensionsPaymentOutputs, js_setBrowserBoundSignature, js_getBrowserBoundSignature, newAuthenticationExtensionsPaymentOutputs, setBrowserBoundSignature, getBrowserBoundSignature, getBrowserBoundSignatureUnsafe, getBrowserBoundSignatureUnchecked, AuthenticationExtensionsPaymentOutputs(..), gTypeAuthenticationExtensionsPaymentOutputs) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(() => { return ({}); })" + js_newAuthenticationExtensionsPaymentOutputs :: IO AuthenticationExtensionsPaymentOutputs +-- | +newAuthenticationExtensionsPaymentOutputs :: (MonadDOM m) => m AuthenticationExtensionsPaymentOutputs +newAuthenticationExtensionsPaymentOutputs = liftDOM ((js_newAuthenticationExtensionsPaymentOutputs)) + +foreign import javascript safe "(($1, $2) => { $1[\"browserBoundSignature\"] = $2; })" + js_setBrowserBoundSignature :: AuthenticationExtensionsPaymentOutputs -> BrowserBoundSignature -> IO () +-- | +setBrowserBoundSignature :: (MonadDOM m) => AuthenticationExtensionsPaymentOutputs -> BrowserBoundSignature -> m () +setBrowserBoundSignature self val = liftDOM (void ((js_setBrowserBoundSignature (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"browserBoundSignature\"]; })" + js_getBrowserBoundSignature :: AuthenticationExtensionsPaymentOutputs -> IO JSVal +-- | +getBrowserBoundSignature :: (MonadDOM m) => AuthenticationExtensionsPaymentOutputs -> m (Maybe BrowserBoundSignature) +getBrowserBoundSignature self = liftDOM (((js_getBrowserBoundSignature (self)) >>= fromJSValUnchecked)) + +-- | +getBrowserBoundSignatureUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsPaymentOutputs -> m BrowserBoundSignature +getBrowserBoundSignatureUnsafe self = liftDOM ((((js_getBrowserBoundSignature (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getBrowserBoundSignatureUnchecked :: (MonadDOM m) => AuthenticationExtensionsPaymentOutputs -> m BrowserBoundSignature +getBrowserBoundSignatureUnchecked self = liftDOM ((pFromJSVal <$> (js_getBrowserBoundSignature (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/AuthenticatorAssertionResponse.hs b/src/GHCJS/DOM/JSFFI/Generated/AuthenticatorAssertionResponse.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/AuthenticatorAssertionResponse.hs @@ -0,0 +1,43 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from webauthn-4 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.AuthenticatorAssertionResponse + (js_getAuthenticatorData, js_getSignature, js_getUserHandle, getAuthenticatorData, getSignature, getUserHandle, getUserHandleUnsafe, getUserHandleUnchecked, AuthenticatorAssertionResponse(..), gTypeAuthenticatorAssertionResponse) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript unsafe "(($1) => { return $1[\"authenticatorData\"]; })" + js_getAuthenticatorData :: AuthenticatorAssertionResponse -> IO ArrayBuffer +-- | +getAuthenticatorData :: (MonadDOM m) => AuthenticatorAssertionResponse -> m ArrayBuffer +getAuthenticatorData self = liftDOM ((js_getAuthenticatorData (self))) + +foreign import javascript unsafe "(($1) => { return $1[\"signature\"]; })" + js_getSignature :: AuthenticatorAssertionResponse -> IO ArrayBuffer +-- | +getSignature :: (MonadDOM m) => AuthenticatorAssertionResponse -> m ArrayBuffer +getSignature self = liftDOM ((js_getSignature (self))) + +foreign import javascript unsafe "(($1) => { return $1[\"userHandle\"]; })" + js_getUserHandle :: AuthenticatorAssertionResponse -> IO JSVal +-- | +getUserHandle :: (MonadDOM m) => AuthenticatorAssertionResponse -> m (Maybe ArrayBuffer) +getUserHandle self = liftDOM (((js_getUserHandle (self)) >>= fromJSValUnchecked)) + +-- | +getUserHandleUnsafe :: (MonadDOM m, HasCallStack) => AuthenticatorAssertionResponse -> m ArrayBuffer +getUserHandleUnsafe self = liftDOM ((((js_getUserHandle (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getUserHandleUnchecked :: (MonadDOM m) => AuthenticatorAssertionResponse -> m ArrayBuffer +getUserHandleUnchecked self = liftDOM ((pFromJSVal <$> (js_getUserHandle (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/AuthenticatorAttestationResponse.hs b/src/GHCJS/DOM/JSFFI/Generated/AuthenticatorAttestationResponse.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/AuthenticatorAttestationResponse.hs @@ -0,0 +1,71 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from webauthn-4 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.AuthenticatorAttestationResponse + (js_getAuthenticatorData, js_getPublicKey, js_getPublicKeyAlgorithm, js_getTransports, js_getAttestationObject, getAuthenticatorData, getAuthenticatorData_, getPublicKey, getPublicKey_, getPublicKeyUnsafe, getPublicKeyUnchecked, getPublicKeyAlgorithm, getPublicKeyAlgorithm_, getTransports, getTransports_, getAttestationObject, AuthenticatorAttestationResponse(..), gTypeAuthenticatorAttestationResponse) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1) => { return $1[\"getAuthenticatorData\"](); })" + js_getAuthenticatorData :: AuthenticatorAttestationResponse -> IO ArrayBuffer +-- | +getAuthenticatorData :: (MonadDOM m) => AuthenticatorAttestationResponse -> m ArrayBuffer +getAuthenticatorData self = liftDOM ((js_getAuthenticatorData (self))) + +-- | +getAuthenticatorData_ :: (MonadDOM m) => AuthenticatorAttestationResponse -> m () +getAuthenticatorData_ self = liftDOM (void ((js_getAuthenticatorData (self)))) + +foreign import javascript safe "(($1) => { return $1[\"getPublicKey\"](); })" + js_getPublicKey :: AuthenticatorAttestationResponse -> IO JSVal +-- | +getPublicKey :: (MonadDOM m) => AuthenticatorAttestationResponse -> m (Maybe ArrayBuffer) +getPublicKey self = liftDOM (((js_getPublicKey (self)) >>= fromJSValUnchecked)) + +-- | +getPublicKey_ :: (MonadDOM m) => AuthenticatorAttestationResponse -> m () +getPublicKey_ self = liftDOM (void ((js_getPublicKey (self)))) + +-- | +getPublicKeyUnsafe :: (MonadDOM m, HasCallStack) => AuthenticatorAttestationResponse -> m ArrayBuffer +getPublicKeyUnsafe self = liftDOM ((((js_getPublicKey (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getPublicKeyUnchecked :: (MonadDOM m) => AuthenticatorAttestationResponse -> m ArrayBuffer +getPublicKeyUnchecked self = liftDOM ((pFromJSVal <$> (js_getPublicKey (self)))) + +foreign import javascript safe "(($1) => { return $1[\"getPublicKeyAlgorithm\"](); })" + js_getPublicKeyAlgorithm :: AuthenticatorAttestationResponse -> IO Int +-- | +getPublicKeyAlgorithm :: (MonadDOM m) => AuthenticatorAttestationResponse -> m Int +getPublicKeyAlgorithm self = liftDOM ((js_getPublicKeyAlgorithm (self))) + +-- | +getPublicKeyAlgorithm_ :: (MonadDOM m) => AuthenticatorAttestationResponse -> m () +getPublicKeyAlgorithm_ self = liftDOM (void ((js_getPublicKeyAlgorithm (self)))) + +foreign import javascript safe "(($1) => { return $1[\"getTransports\"](); })" + js_getTransports :: AuthenticatorAttestationResponse -> IO JSVal +-- | +getTransports :: (MonadDOM m, FromJSString result) => AuthenticatorAttestationResponse -> m [result] +getTransports self = liftDOM (((js_getTransports (self)) >>= fromJSValUnchecked)) + +-- | +getTransports_ :: (MonadDOM m) => AuthenticatorAttestationResponse -> m () +getTransports_ self = liftDOM (void ((js_getTransports (self)))) + +foreign import javascript unsafe "(($1) => { return $1[\"attestationObject\"]; })" + js_getAttestationObject :: AuthenticatorAttestationResponse -> IO ArrayBuffer +-- | +getAttestationObject :: (MonadDOM m) => AuthenticatorAttestationResponse -> m ArrayBuffer +getAttestationObject self = liftDOM ((js_getAttestationObject (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/AuthenticatorResponse.hs b/src/GHCJS/DOM/JSFFI/Generated/AuthenticatorResponse.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/AuthenticatorResponse.hs @@ -0,0 +1,23 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from webauthn-4 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.AuthenticatorResponse + (js_getClientDataJSON, getClientDataJSON, AuthenticatorResponse(..), gTypeAuthenticatorResponse, IsAuthenticatorResponse, toAuthenticatorResponse) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript unsafe "(($1) => { return $1[\"clientDataJSON\"]; })" + js_getClientDataJSON :: AuthenticatorResponse -> IO ArrayBuffer +-- | +getClientDataJSON :: (MonadDOM m, IsAuthenticatorResponse self) => self -> m ArrayBuffer +getClientDataJSON self = liftDOM ((js_getClientDataJSON ((Types.toAuthenticatorResponse self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/AuthenticatorSelectionCriteria.hs b/src/GHCJS/DOM/JSFFI/Generated/AuthenticatorSelectionCriteria.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/AuthenticatorSelectionCriteria.hs @@ -0,0 +1,103 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from webauthn-4 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.AuthenticatorSelectionCriteria + (js_newAuthenticatorSelectionCriteria, js_setAuthenticatorAttachment, js_getAuthenticatorAttachment, js_setResidentKey, js_getResidentKey, js_setRequireResidentKey, js_getRequireResidentKey, js_setUserVerification, js_getUserVerification, newAuthenticatorSelectionCriteria, setAuthenticatorAttachment, getAuthenticatorAttachment, getAuthenticatorAttachmentUnsafe, getAuthenticatorAttachmentUnchecked, setResidentKey, getResidentKey, getResidentKeyUnsafe, getResidentKeyUnchecked, setRequireResidentKey, getRequireResidentKey, getRequireResidentKeyUnsafe, getRequireResidentKeyUnchecked, setUserVerification, getUserVerification, getUserVerificationUnsafe, getUserVerificationUnchecked, AuthenticatorSelectionCriteria(..), gTypeAuthenticatorSelectionCriteria) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(() => { return ({}); })" + js_newAuthenticatorSelectionCriteria :: IO AuthenticatorSelectionCriteria +-- | +newAuthenticatorSelectionCriteria :: (MonadDOM m) => m AuthenticatorSelectionCriteria +newAuthenticatorSelectionCriteria = liftDOM ((js_newAuthenticatorSelectionCriteria)) + +foreign import javascript safe "(($1, $2) => { $1[\"authenticatorAttachment\"] = $2; })" + js_setAuthenticatorAttachment :: AuthenticatorSelectionCriteria -> JSString -> IO () +-- | +setAuthenticatorAttachment :: (MonadDOM m, ToJSString val) => AuthenticatorSelectionCriteria -> val -> m () +setAuthenticatorAttachment self val = liftDOM (void ((js_setAuthenticatorAttachment (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"authenticatorAttachment\"]; })" + js_getAuthenticatorAttachment :: AuthenticatorSelectionCriteria -> IO JSVal +-- | +getAuthenticatorAttachment :: (MonadDOM m, FromJSString result) => AuthenticatorSelectionCriteria -> m (Maybe result) +getAuthenticatorAttachment self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAuthenticatorAttachment (self)))) + +-- | +getAuthenticatorAttachmentUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => AuthenticatorSelectionCriteria -> m result +getAuthenticatorAttachmentUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAuthenticatorAttachment (self))) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getAuthenticatorAttachmentUnchecked :: (MonadDOM m, FromJSString result) => AuthenticatorSelectionCriteria -> m result +getAuthenticatorAttachmentUnchecked self = liftDOM ((pFromJSVal <$> (js_getAuthenticatorAttachment (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"residentKey\"] = $2; })" + js_setResidentKey :: AuthenticatorSelectionCriteria -> JSString -> IO () +-- | +setResidentKey :: (MonadDOM m, ToJSString val) => AuthenticatorSelectionCriteria -> val -> m () +setResidentKey self val = liftDOM (void ((js_setResidentKey (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"residentKey\"]; })" + js_getResidentKey :: AuthenticatorSelectionCriteria -> IO JSVal +-- | +getResidentKey :: (MonadDOM m, FromJSString result) => AuthenticatorSelectionCriteria -> m (Maybe result) +getResidentKey self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getResidentKey (self)))) + +-- | +getResidentKeyUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => AuthenticatorSelectionCriteria -> m result +getResidentKeyUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getResidentKey (self))) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getResidentKeyUnchecked :: (MonadDOM m, FromJSString result) => AuthenticatorSelectionCriteria -> m result +getResidentKeyUnchecked self = liftDOM ((pFromJSVal <$> (js_getResidentKey (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"requireResidentKey\"] = $2; })" + js_setRequireResidentKey :: AuthenticatorSelectionCriteria -> Bool -> IO () +-- | +setRequireResidentKey :: (MonadDOM m) => AuthenticatorSelectionCriteria -> Bool -> m () +setRequireResidentKey self val = liftDOM (void ((js_setRequireResidentKey (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"requireResidentKey\"]; })" + js_getRequireResidentKey :: AuthenticatorSelectionCriteria -> IO JSVal +-- | +getRequireResidentKey :: (MonadDOM m) => AuthenticatorSelectionCriteria -> m (Maybe Bool) +getRequireResidentKey self = liftDOM (((js_getRequireResidentKey (self)) >>= fromJSValUnchecked)) + +-- | +getRequireResidentKeyUnsafe :: (MonadDOM m, HasCallStack) => AuthenticatorSelectionCriteria -> m Bool +getRequireResidentKeyUnsafe self = liftDOM ((((js_getRequireResidentKey (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getRequireResidentKeyUnchecked :: (MonadDOM m) => AuthenticatorSelectionCriteria -> m Bool +getRequireResidentKeyUnchecked self = liftDOM ((pFromJSVal <$> (js_getRequireResidentKey (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"userVerification\"] = $2; })" + js_setUserVerification :: AuthenticatorSelectionCriteria -> JSString -> IO () +-- | +setUserVerification :: (MonadDOM m, ToJSString val) => AuthenticatorSelectionCriteria -> val -> m () +setUserVerification self val = liftDOM (void ((js_setUserVerification (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"userVerification\"]; })" + js_getUserVerification :: AuthenticatorSelectionCriteria -> IO JSVal +-- | +getUserVerification :: (MonadDOM m, FromJSString result) => AuthenticatorSelectionCriteria -> m (Maybe result) +getUserVerification self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getUserVerification (self)))) + +-- | +getUserVerificationUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => AuthenticatorSelectionCriteria -> m result +getUserVerificationUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getUserVerification (self))) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getUserVerificationUnchecked :: (MonadDOM m, FromJSString result) => AuthenticatorSelectionCriteria -> m result +getUserVerificationUnchecked self = liftDOM ((pFromJSVal <$> (js_getUserVerification (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/AutocompleteErrorEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/AutocompleteErrorEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/AutocompleteErrorEvent.hs +++ /dev/null @@ -1,53 +0,0 @@ -{-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE JavaScriptFFI #-} --- For HasCallStack compatibility -{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} -module GHCJS.DOM.JSFFI.Generated.AutocompleteErrorEvent - (js_newAutocompleteErrorEvent, newAutocompleteErrorEvent, - js_getReason, getReason, AutocompleteErrorEvent(..), - gTypeAutocompleteErrorEvent) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull, jsUndefined) -import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import Data.Maybe (fromJust) -import Data.Traversable (mapM) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) -import GHCJS.DOM.JSFFI.Generated.Enums - -foreign import javascript unsafe - "(($1, $2) => { return new window[\"AutocompleteErrorEvent\"]($1,\n$2); })" - js_newAutocompleteErrorEvent :: - JSString -> - Optional AutocompleteErrorEventInit -> IO AutocompleteErrorEvent - --- | -newAutocompleteErrorEvent :: - (MonadIO m, ToJSString type') => - type' -> - Maybe AutocompleteErrorEventInit -> m AutocompleteErrorEvent -newAutocompleteErrorEvent type' eventInitDict - = liftIO - (js_newAutocompleteErrorEvent (toJSString type') - (maybeToOptional eventInitDict)) - -foreign import javascript unsafe "(($1) => { return $1[\"reason\"]; })" js_getReason :: - AutocompleteErrorEvent -> IO JSString - --- | -getReason :: - (MonadIO m, FromJSString result) => - AutocompleteErrorEvent -> m result -getReason self = liftIO (fromJSString <$> (js_getReason self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/AutofillEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/AutofillEvent.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/AutofillEvent.hs @@ -0,0 +1,18 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from autofill-event (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.AutofillEvent + (AutofillEvent(..), gTypeAutofillEvent) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + diff --git a/src/GHCJS/DOM/JSFFI/Generated/AvcEncoderConfig.hs b/src/GHCJS/DOM/JSFFI/Generated/AvcEncoderConfig.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/AvcEncoderConfig.hs @@ -0,0 +1,43 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from webcodecs-avc-codec-registration (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.AvcEncoderConfig + (js_newAvcEncoderConfig, js_setFormat, js_getFormat, newAvcEncoderConfig, setFormat, getFormat, getFormatUnsafe, getFormatUnchecked, AvcEncoderConfig(..), gTypeAvcEncoderConfig) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(() => { return ({}); })" + js_newAvcEncoderConfig :: IO AvcEncoderConfig +-- | +newAvcEncoderConfig :: (MonadDOM m) => m AvcEncoderConfig +newAvcEncoderConfig = liftDOM ((js_newAvcEncoderConfig)) + +foreign import javascript safe "(($1, $2) => { $1[\"format\"] = $2; })" + js_setFormat :: AvcEncoderConfig -> JSVal -> IO () +-- | +setFormat :: (MonadDOM m) => AvcEncoderConfig -> AvcBitstreamFormat -> m () +setFormat self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setFormat (self) a2'))) + +foreign import javascript unsafe "(($1) => { return $1[\"format\"]; })" + js_getFormat :: AvcEncoderConfig -> IO JSVal +-- | +getFormat :: (MonadDOM m) => AvcEncoderConfig -> m (Maybe AvcBitstreamFormat) +getFormat self = liftDOM (((js_getFormat (self)) >>= fromJSValUnchecked)) + +-- | +getFormatUnsafe :: (MonadDOM m, HasCallStack) => AvcEncoderConfig -> m AvcBitstreamFormat +getFormatUnsafe self = liftDOM ((((js_getFormat (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getFormatUnchecked :: (MonadDOM m) => AvcEncoderConfig -> m AvcBitstreamFormat +getFormatUnchecked self = liftDOM ((pFromJSVal <$> (js_getFormat (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/BackgroundBlur.hs b/src/GHCJS/DOM/JSFFI/Generated/BackgroundBlur.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/BackgroundBlur.hs @@ -0,0 +1,23 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from mediacapture-extensions (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.BackgroundBlur + (js_newBackgroundBlur, newBackgroundBlur, BackgroundBlur(..), gTypeBackgroundBlur) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1) => { return ({\"enabled\": $1}); })" + js_newBackgroundBlur :: Bool -> IO BackgroundBlur +-- | +newBackgroundBlur :: (MonadDOM m) => Bool -> m BackgroundBlur +newBackgroundBlur enabled = liftDOM ((js_newBackgroundBlur (enabled))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/BarProp.hs b/src/GHCJS/DOM/JSFFI/Generated/BarProp.hs --- a/src/GHCJS/DOM/JSFFI/Generated/BarProp.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/BarProp.hs @@ -1,32 +1,23 @@ {-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE JavaScriptFFI #-} --- For HasCallStack compatibility +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from html (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.BarProp - (js_getVisible, getVisible, BarProp(..), gTypeBarProp) where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull, jsUndefined) -import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) + (js_getVisible, getVisible, BarProp(..), gTypeBarProp) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import Data.Maybe (fromJust) -import Data.Traversable (mapM) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types -import Control.Applicative ((<$>)) +import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums - -foreign import javascript unsafe "(($1) => { return ($1[\"visible\"] ? 1 : 0); })" - js_getVisible :: BarProp -> IO Bool --- | -getVisible :: (MonadIO m) => BarProp -> m Bool -getVisible self = liftIO (js_getVisible self) +foreign import javascript unsafe "(($1) => { return $1[\"visible\"]; })" + js_getVisible :: BarProp -> IO Bool +-- | +getVisible :: (MonadDOM m) => BarProp -> m Bool +getVisible self = liftDOM ((js_getVisible (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/BaseAudioContext.hs b/src/GHCJS/DOM/JSFFI/Generated/BaseAudioContext.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/BaseAudioContext.hs @@ -0,0 +1,247 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from webaudio-1.1 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.BaseAudioContext + (js_createAnalyser, js_createBiquadFilter, js_createBuffer, js_createBufferSource, js_createChannelMerger, js_createChannelSplitter, js_createConstantSource, js_createConvolver, js_createDelay, js_createDynamicsCompressor, js_createGain, js_createIIRFilter, js_createOscillator, js_createPanner, js_createPeriodicWave, js_createScriptProcessor, js_createStereoPanner, js_createWaveShaper, js_decodeAudioData, js_getDestination, js_getSampleRate, js_getCurrentTime, js_getListener, js_getState, js_getAudioWorklet, createAnalyser, createAnalyser_, createBiquadFilter, createBiquadFilter_, createBuffer, createBuffer_, createBufferSource, createBufferSource_, createChannelMerger, createChannelMerger_, createChannelSplitter, createChannelSplitter_, createConstantSource, createConstantSource_, createConvolver, createConvolver_, createDelay, createDelay_, createDynamicsCompressor, createDynamicsCompressor_, createGain, createGain_, createIIRFilter, createIIRFilter_, createOscillator, createOscillator_, createPanner, createPanner_, createPeriodicWave, createPeriodicWave_, createScriptProcessor, createScriptProcessor_, createStereoPanner, createStereoPanner_, createWaveShaper, createWaveShaper_, decodeAudioData, decodeAudioData_, getDestination, getSampleRate, getCurrentTime, getListener, getState, getAudioWorklet, statechange, BaseAudioContext(..), gTypeBaseAudioContext, IsBaseAudioContext, toBaseAudioContext) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1) => { return $1[\"createAnalyser\"](); })" + js_createAnalyser :: BaseAudioContext -> IO AnalyserNode +-- | +createAnalyser :: (MonadDOM m, IsBaseAudioContext self) => self -> m AnalyserNode +createAnalyser self = liftDOM ((js_createAnalyser ((Types.toBaseAudioContext self)))) + +-- | +createAnalyser_ :: (MonadDOM m, IsBaseAudioContext self) => self -> m () +createAnalyser_ self = liftDOM (void ((js_createAnalyser ((Types.toBaseAudioContext self))))) + +foreign import javascript safe "(($1) => { return $1[\"createBiquadFilter\"](); })" + js_createBiquadFilter :: BaseAudioContext -> IO BiquadFilterNode +-- | +createBiquadFilter :: (MonadDOM m, IsBaseAudioContext self) => self -> m BiquadFilterNode +createBiquadFilter self = liftDOM ((js_createBiquadFilter ((Types.toBaseAudioContext self)))) + +-- | +createBiquadFilter_ :: (MonadDOM m, IsBaseAudioContext self) => self -> m () +createBiquadFilter_ self = liftDOM (void ((js_createBiquadFilter ((Types.toBaseAudioContext self))))) + +foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"createBuffer\"]($2, $3, $4); })" + js_createBuffer :: BaseAudioContext -> Word -> Word -> Float -> IO AudioBuffer +-- | +createBuffer :: (MonadDOM m, IsBaseAudioContext self) => self -> Word -> Word -> Float -> m AudioBuffer +createBuffer self numberOfChannels length sampleRate = liftDOM ((js_createBuffer ((Types.toBaseAudioContext self)) (numberOfChannels) (length) (sampleRate))) + +-- | +createBuffer_ :: (MonadDOM m, IsBaseAudioContext self) => self -> Word -> Word -> Float -> m () +createBuffer_ self numberOfChannels length sampleRate = liftDOM (void ((js_createBuffer ((Types.toBaseAudioContext self)) (numberOfChannels) (length) (sampleRate)))) + +foreign import javascript safe "(($1) => { return $1[\"createBufferSource\"](); })" + js_createBufferSource :: BaseAudioContext -> IO AudioBufferSourceNode +-- | +createBufferSource :: (MonadDOM m, IsBaseAudioContext self) => self -> m AudioBufferSourceNode +createBufferSource self = liftDOM ((js_createBufferSource ((Types.toBaseAudioContext self)))) + +-- | +createBufferSource_ :: (MonadDOM m, IsBaseAudioContext self) => self -> m () +createBufferSource_ self = liftDOM (void ((js_createBufferSource ((Types.toBaseAudioContext self))))) + +foreign import javascript safe "(($1, $2) => { return $1[\"createChannelMerger\"]($2); })" + js_createChannelMerger :: BaseAudioContext -> JSVal -> IO ChannelMergerNode +-- | +createChannelMerger :: (MonadDOM m, IsBaseAudioContext self) => self -> Maybe Word -> m ChannelMergerNode +createChannelMerger self numberOfInputs = liftDOM (((P.maybe (P.return jsUndefined) toJSVal numberOfInputs) >>= \a2' -> js_createChannelMerger ((Types.toBaseAudioContext self)) a2')) + +-- | +createChannelMerger_ :: (MonadDOM m, IsBaseAudioContext self) => self -> Maybe Word -> m () +createChannelMerger_ self numberOfInputs = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal numberOfInputs) >>= \a2' -> js_createChannelMerger ((Types.toBaseAudioContext self)) a2'))) + +foreign import javascript safe "(($1, $2) => { return $1[\"createChannelSplitter\"]($2); })" + js_createChannelSplitter :: BaseAudioContext -> JSVal -> IO ChannelSplitterNode +-- | +createChannelSplitter :: (MonadDOM m, IsBaseAudioContext self) => self -> Maybe Word -> m ChannelSplitterNode +createChannelSplitter self numberOfOutputs = liftDOM (((P.maybe (P.return jsUndefined) toJSVal numberOfOutputs) >>= \a2' -> js_createChannelSplitter ((Types.toBaseAudioContext self)) a2')) + +-- | +createChannelSplitter_ :: (MonadDOM m, IsBaseAudioContext self) => self -> Maybe Word -> m () +createChannelSplitter_ self numberOfOutputs = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal numberOfOutputs) >>= \a2' -> js_createChannelSplitter ((Types.toBaseAudioContext self)) a2'))) + +foreign import javascript safe "(($1) => { return $1[\"createConstantSource\"](); })" + js_createConstantSource :: BaseAudioContext -> IO ConstantSourceNode +-- | +createConstantSource :: (MonadDOM m, IsBaseAudioContext self) => self -> m ConstantSourceNode +createConstantSource self = liftDOM ((js_createConstantSource ((Types.toBaseAudioContext self)))) + +-- | +createConstantSource_ :: (MonadDOM m, IsBaseAudioContext self) => self -> m () +createConstantSource_ self = liftDOM (void ((js_createConstantSource ((Types.toBaseAudioContext self))))) + +foreign import javascript safe "(($1) => { return $1[\"createConvolver\"](); })" + js_createConvolver :: BaseAudioContext -> IO ConvolverNode +-- | +createConvolver :: (MonadDOM m, IsBaseAudioContext self) => self -> m ConvolverNode +createConvolver self = liftDOM ((js_createConvolver ((Types.toBaseAudioContext self)))) + +-- | +createConvolver_ :: (MonadDOM m, IsBaseAudioContext self) => self -> m () +createConvolver_ self = liftDOM (void ((js_createConvolver ((Types.toBaseAudioContext self))))) + +foreign import javascript safe "(($1, $2) => { return $1[\"createDelay\"]($2); })" + js_createDelay :: BaseAudioContext -> JSVal -> IO DelayNode +-- | +createDelay :: (MonadDOM m, IsBaseAudioContext self) => self -> Maybe Double -> m DelayNode +createDelay self maxDelayTime = liftDOM (((P.maybe (P.return jsUndefined) toJSVal maxDelayTime) >>= \a2' -> js_createDelay ((Types.toBaseAudioContext self)) a2')) + +-- | +createDelay_ :: (MonadDOM m, IsBaseAudioContext self) => self -> Maybe Double -> m () +createDelay_ self maxDelayTime = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal maxDelayTime) >>= \a2' -> js_createDelay ((Types.toBaseAudioContext self)) a2'))) + +foreign import javascript safe "(($1) => { return $1[\"createDynamicsCompressor\"](); })" + js_createDynamicsCompressor :: BaseAudioContext -> IO DynamicsCompressorNode +-- | +createDynamicsCompressor :: (MonadDOM m, IsBaseAudioContext self) => self -> m DynamicsCompressorNode +createDynamicsCompressor self = liftDOM ((js_createDynamicsCompressor ((Types.toBaseAudioContext self)))) + +-- | +createDynamicsCompressor_ :: (MonadDOM m, IsBaseAudioContext self) => self -> m () +createDynamicsCompressor_ self = liftDOM (void ((js_createDynamicsCompressor ((Types.toBaseAudioContext self))))) + +foreign import javascript safe "(($1) => { return $1[\"createGain\"](); })" + js_createGain :: BaseAudioContext -> IO GainNode +-- | +createGain :: (MonadDOM m, IsBaseAudioContext self) => self -> m GainNode +createGain self = liftDOM ((js_createGain ((Types.toBaseAudioContext self)))) + +-- | +createGain_ :: (MonadDOM m, IsBaseAudioContext self) => self -> m () +createGain_ self = liftDOM (void ((js_createGain ((Types.toBaseAudioContext self))))) + +foreign import javascript safe "(($1, $2, $3) => { return $1[\"createIIRFilter\"]($2, $3); })" + js_createIIRFilter :: BaseAudioContext -> JSVal -> JSVal -> IO IIRFilterNode +-- | +createIIRFilter :: (MonadDOM m, IsBaseAudioContext self) => self -> [Double] -> [Double] -> m IIRFilterNode +createIIRFilter self feedforward feedback = liftDOM (((toJSVal feedforward) >>= \a2' -> (toJSVal feedback) >>= \a3' -> js_createIIRFilter ((Types.toBaseAudioContext self)) a2' a3')) + +-- | +createIIRFilter_ :: (MonadDOM m, IsBaseAudioContext self) => self -> [Double] -> [Double] -> m () +createIIRFilter_ self feedforward feedback = liftDOM (void (((toJSVal feedforward) >>= \a2' -> (toJSVal feedback) >>= \a3' -> js_createIIRFilter ((Types.toBaseAudioContext self)) a2' a3'))) + +foreign import javascript safe "(($1) => { return $1[\"createOscillator\"](); })" + js_createOscillator :: BaseAudioContext -> IO OscillatorNode +-- | +createOscillator :: (MonadDOM m, IsBaseAudioContext self) => self -> m OscillatorNode +createOscillator self = liftDOM ((js_createOscillator ((Types.toBaseAudioContext self)))) + +-- | +createOscillator_ :: (MonadDOM m, IsBaseAudioContext self) => self -> m () +createOscillator_ self = liftDOM (void ((js_createOscillator ((Types.toBaseAudioContext self))))) + +foreign import javascript safe "(($1) => { return $1[\"createPanner\"](); })" + js_createPanner :: BaseAudioContext -> IO PannerNode +-- | +createPanner :: (MonadDOM m, IsBaseAudioContext self) => self -> m PannerNode +createPanner self = liftDOM ((js_createPanner ((Types.toBaseAudioContext self)))) + +-- | +createPanner_ :: (MonadDOM m, IsBaseAudioContext self) => self -> m () +createPanner_ self = liftDOM (void ((js_createPanner ((Types.toBaseAudioContext self))))) + +foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"createPeriodicWave\"]($2, $3, $4); })" + js_createPeriodicWave :: BaseAudioContext -> JSVal -> JSVal -> JSVal -> IO PeriodicWave +-- | +createPeriodicWave :: (MonadDOM m, IsBaseAudioContext self, IsPeriodicWaveConstraints constraints) => self -> [Float] -> [Float] -> Maybe constraints -> m PeriodicWave +createPeriodicWave self real imag constraints = liftDOM (((toJSVal real) >>= \a2' -> (toJSVal imag) >>= \a3' -> (P.maybe (P.return jsUndefined) toJSVal constraints) >>= \a4' -> js_createPeriodicWave ((Types.toBaseAudioContext self)) a2' a3' a4')) + +-- | +createPeriodicWave_ :: (MonadDOM m, IsBaseAudioContext self, IsPeriodicWaveConstraints constraints) => self -> [Float] -> [Float] -> Maybe constraints -> m () +createPeriodicWave_ self real imag constraints = liftDOM (void (((toJSVal real) >>= \a2' -> (toJSVal imag) >>= \a3' -> (P.maybe (P.return jsUndefined) toJSVal constraints) >>= \a4' -> js_createPeriodicWave ((Types.toBaseAudioContext self)) a2' a3' a4'))) + +foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"createScriptProcessor\"]($2, $3, $4); })" + js_createScriptProcessor :: BaseAudioContext -> JSVal -> JSVal -> JSVal -> IO ScriptProcessorNode +-- | +createScriptProcessor :: (MonadDOM m, IsBaseAudioContext self) => self -> Maybe Word -> Maybe Word -> Maybe Word -> m ScriptProcessorNode +createScriptProcessor self bufferSize numberOfInputChannels numberOfOutputChannels = liftDOM (((P.maybe (P.return jsUndefined) toJSVal bufferSize) >>= \a2' -> (P.maybe (P.return jsUndefined) toJSVal numberOfInputChannels) >>= \a3' -> (P.maybe (P.return jsUndefined) toJSVal numberOfOutputChannels) >>= \a4' -> js_createScriptProcessor ((Types.toBaseAudioContext self)) a2' a3' a4')) + +-- | +createScriptProcessor_ :: (MonadDOM m, IsBaseAudioContext self) => self -> Maybe Word -> Maybe Word -> Maybe Word -> m () +createScriptProcessor_ self bufferSize numberOfInputChannels numberOfOutputChannels = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal bufferSize) >>= \a2' -> (P.maybe (P.return jsUndefined) toJSVal numberOfInputChannels) >>= \a3' -> (P.maybe (P.return jsUndefined) toJSVal numberOfOutputChannels) >>= \a4' -> js_createScriptProcessor ((Types.toBaseAudioContext self)) a2' a3' a4'))) + +foreign import javascript safe "(($1) => { return $1[\"createStereoPanner\"](); })" + js_createStereoPanner :: BaseAudioContext -> IO StereoPannerNode +-- | +createStereoPanner :: (MonadDOM m, IsBaseAudioContext self) => self -> m StereoPannerNode +createStereoPanner self = liftDOM ((js_createStereoPanner ((Types.toBaseAudioContext self)))) + +-- | +createStereoPanner_ :: (MonadDOM m, IsBaseAudioContext self) => self -> m () +createStereoPanner_ self = liftDOM (void ((js_createStereoPanner ((Types.toBaseAudioContext self))))) + +foreign import javascript safe "(($1) => { return $1[\"createWaveShaper\"](); })" + js_createWaveShaper :: BaseAudioContext -> IO WaveShaperNode +-- | +createWaveShaper :: (MonadDOM m, IsBaseAudioContext self) => self -> m WaveShaperNode +createWaveShaper self = liftDOM ((js_createWaveShaper ((Types.toBaseAudioContext self)))) + +-- | +createWaveShaper_ :: (MonadDOM m, IsBaseAudioContext self) => self -> m () +createWaveShaper_ self = liftDOM (void ((js_createWaveShaper ((Types.toBaseAudioContext self))))) + +foreign import javascript interruptible "(($1, $2, $3, $4, $c) => { return $1[\"decodeAudioData\"]($2, $3, $4).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })" + js_decodeAudioData :: BaseAudioContext -> ArrayBuffer -> JSVal -> JSVal -> IO (JSVal, AudioBuffer) +-- | +decodeAudioData :: (MonadDOM m, IsBaseAudioContext self, IsArrayBuffer audioData) => self -> audioData -> Maybe DecodeSuccessCallback -> Maybe DecodeErrorCallback -> m AudioBuffer +decodeAudioData self audioData successCallback errorCallback = liftDOM ((((toJSVal successCallback) >>= \a3' -> (toJSVal errorCallback) >>= \a4' -> js_decodeAudioData ((Types.toBaseAudioContext self)) (Types.toArrayBuffer audioData) a3' a4') >>= checkPromiseResult)) + +-- | +decodeAudioData_ :: (MonadDOM m, IsBaseAudioContext self, IsArrayBuffer audioData) => self -> audioData -> Maybe DecodeSuccessCallback -> Maybe DecodeErrorCallback -> m () +decodeAudioData_ self audioData successCallback errorCallback = liftDOM (void ((((toJSVal successCallback) >>= \a3' -> (toJSVal errorCallback) >>= \a4' -> js_decodeAudioData ((Types.toBaseAudioContext self)) (Types.toArrayBuffer audioData) a3' a4') >>= checkPromiseResult))) + +foreign import javascript unsafe "(($1) => { return $1[\"destination\"]; })" + js_getDestination :: BaseAudioContext -> IO AudioDestinationNode +-- | +getDestination :: (MonadDOM m, IsBaseAudioContext self) => self -> m AudioDestinationNode +getDestination self = liftDOM ((js_getDestination ((Types.toBaseAudioContext self)))) + +foreign import javascript unsafe "(($1) => { return $1[\"sampleRate\"]; })" + js_getSampleRate :: BaseAudioContext -> IO Float +-- | +getSampleRate :: (MonadDOM m, IsBaseAudioContext self) => self -> m Float +getSampleRate self = liftDOM ((js_getSampleRate ((Types.toBaseAudioContext self)))) + +foreign import javascript unsafe "(($1) => { return $1[\"currentTime\"]; })" + js_getCurrentTime :: BaseAudioContext -> IO Double +-- | +getCurrentTime :: (MonadDOM m, IsBaseAudioContext self) => self -> m Double +getCurrentTime self = liftDOM ((js_getCurrentTime ((Types.toBaseAudioContext self)))) + +foreign import javascript unsafe "(($1) => { return $1[\"listener\"]; })" + js_getListener :: BaseAudioContext -> IO AudioListener +-- | +getListener :: (MonadDOM m, IsBaseAudioContext self) => self -> m AudioListener +getListener self = liftDOM ((js_getListener ((Types.toBaseAudioContext self)))) + +foreign import javascript unsafe "(($1) => { return $1[\"state\"]; })" + js_getState :: BaseAudioContext -> IO JSVal +-- | +getState :: (MonadDOM m, IsBaseAudioContext self) => self -> m AudioContextState +getState self = liftDOM (((js_getState ((Types.toBaseAudioContext self))) >>= fromJSValUnchecked)) + +foreign import javascript unsafe "(($1) => { return $1[\"audioWorklet\"]; })" + js_getAudioWorklet :: BaseAudioContext -> IO AudioWorklet +-- | +getAudioWorklet :: (MonadDOM m, IsBaseAudioContext self) => self -> m AudioWorklet +getAudioWorklet self = liftDOM ((js_getAudioWorklet ((Types.toBaseAudioContext self)))) + +-- | +statechange :: (IsBaseAudioContext self, IsEventTarget self) => EventName self Event +statechange = unsafeEventName (toJSString "statechange") diff --git a/src/GHCJS/DOM/JSFFI/Generated/BasicCredential.hs b/src/GHCJS/DOM/JSFFI/Generated/BasicCredential.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/BasicCredential.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE JavaScriptFFI #-} --- For HasCallStack compatibility -{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} -module GHCJS.DOM.JSFFI.Generated.BasicCredential - (js_getId, getId, js_getType, getType, BasicCredential(..), - gTypeBasicCredential, IsBasicCredential, toBasicCredential) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull, jsUndefined) -import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import Data.Maybe (fromJust) -import Data.Traversable (mapM) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) -import GHCJS.DOM.JSFFI.Generated.Enums - -foreign import javascript unsafe "(($1) => { return $1[\"id\"]; })" js_getId :: - BasicCredential -> IO JSString - --- | -getId :: - (MonadIO m, IsBasicCredential self, FromJSString result) => - self -> m result -getId self - = liftIO (fromJSString <$> (js_getId (toBasicCredential self))) - -foreign import javascript unsafe "(($1) => { return $1[\"type\"]; })" js_getType :: - BasicCredential -> IO JSString - --- | -getType :: - (MonadIO m, IsBasicCredential self, FromJSString result) => - self -> m result -getType self - = liftIO (fromJSString <$> (js_getType (toBasicCredential self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/BeforeLoadEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/BeforeLoadEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/BeforeLoadEvent.hs +++ /dev/null @@ -1,48 +0,0 @@ -{-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE JavaScriptFFI #-} --- For HasCallStack compatibility -{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} -module GHCJS.DOM.JSFFI.Generated.BeforeLoadEvent - (js_newBeforeLoadEvent, newBeforeLoadEvent, js_getUrl, getUrl, - BeforeLoadEvent(..), gTypeBeforeLoadEvent) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull, jsUndefined) -import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import Data.Maybe (fromJust) -import Data.Traversable (mapM) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) -import GHCJS.DOM.JSFFI.Generated.Enums - -foreign import javascript unsafe - "(($1, $2) => { return new window[\"BeforeLoadEvent\"]($1,\n$2); })" js_newBeforeLoadEvent :: - JSString -> Optional BeforeLoadEventInit -> IO BeforeLoadEvent - --- | -newBeforeLoadEvent :: - (MonadIO m, ToJSString type') => - type' -> Maybe BeforeLoadEventInit -> m BeforeLoadEvent -newBeforeLoadEvent type' eventInitDict - = liftIO - (js_newBeforeLoadEvent (toJSString type') - (maybeToOptional eventInitDict)) - -foreign import javascript unsafe "(($1) => { return $1[\"url\"]; })" js_getUrl :: - BeforeLoadEvent -> IO JSString - --- | -getUrl :: - (MonadIO m, FromJSString result) => BeforeLoadEvent -> m result -getUrl self = liftIO (fromJSString <$> (js_getUrl self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/BeforeUnloadEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/BeforeUnloadEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/BeforeUnloadEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/BeforeUnloadEvent.hs @@ -1,45 +1,29 @@ {-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE JavaScriptFFI #-} --- For HasCallStack compatibility +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from html (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.BeforeUnloadEvent - (js_setReturnValue, setReturnValue, js_getReturnValue, - getReturnValue, BeforeUnloadEvent(..), gTypeBeforeUnloadEvent) + (js_setReturnValue, js_getReturnValue, setReturnValue, getReturnValue, BeforeUnloadEvent(..), gTypeBeforeUnloadEvent) where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull, jsUndefined) -import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import Data.Maybe (fromJust) -import Data.Traversable (mapM) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types -import Control.Applicative ((<$>)) +import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums - -foreign import javascript unsafe "(($1, $2) => { $1[\"returnValue\"] = $2; })" + +foreign import javascript safe "(($1, $2) => { $1[\"returnValue\"] = $2; })" js_setReturnValue :: BeforeUnloadEvent -> JSString -> IO () +-- | +setReturnValue :: (MonadDOM m, ToJSString val) => BeforeUnloadEvent -> val -> m () +setReturnValue self val = liftDOM (void ((js_setReturnValue (self) (toJSString val)))) --- | -setReturnValue :: - (MonadIO m, ToJSString val) => BeforeUnloadEvent -> val -> m () -setReturnValue self val - = liftIO (js_setReturnValue self (toJSString val)) - foreign import javascript unsafe "(($1) => { return $1[\"returnValue\"]; })" js_getReturnValue :: BeforeUnloadEvent -> IO JSString - --- | -getReturnValue :: - (MonadIO m, FromJSString result) => BeforeUnloadEvent -> m result -getReturnValue self - = liftIO (fromJSString <$> (js_getReturnValue self)) +-- | +getReturnValue :: (MonadDOM m, FromJSString result) => BeforeUnloadEvent -> m result +getReturnValue self = liftDOM ((fromJSString <$> (js_getReturnValue (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/BiquadFilterNode.hs b/src/GHCJS/DOM/JSFFI/Generated/BiquadFilterNode.hs --- a/src/GHCJS/DOM/JSFFI/Generated/BiquadFilterNode.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/BiquadFilterNode.hs @@ -1,93 +1,65 @@ {-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE JavaScriptFFI #-} --- For HasCallStack compatibility +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from webaudio-1.1 (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.BiquadFilterNode - (js_getFrequencyResponse, getFrequencyResponse, js_setType, - setType, js_getType, getType, js_getFrequency, getFrequency, - js_getDetune, getDetune, js_getQ, getQ, js_getGain, getGain, - BiquadFilterNode(..), gTypeBiquadFilterNode) + (js_newBiquadFilterNode, js_getFrequencyResponse, js_setType, js_getType, js_getFrequency, js_getDetune, js_getQ, js_getGain, newBiquadFilterNode, getFrequencyResponse, setType, getType, getFrequency, getDetune, getQ, getGain, BiquadFilterNode(..), gTypeBiquadFilterNode) where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull, jsUndefined) -import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import Data.Maybe (fromJust) -import Data.Traversable (mapM) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types -import Control.Applicative ((<$>)) +import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums - -foreign import javascript unsafe - "(($1, $2, $3, $4) => { return $1[\"getFrequencyResponse\"]($2,\n$3, $4); })" js_getFrequencyResponse - :: - BiquadFilterNode -> - Optional Float32Array -> - Optional Float32Array -> Optional Float32Array -> IO () --- | -getFrequencyResponse :: - (MonadIO m, IsFloat32Array frequencyHz, IsFloat32Array magResponse, - IsFloat32Array phaseResponse) => - BiquadFilterNode -> - Maybe frequencyHz -> - Maybe magResponse -> Maybe phaseResponse -> m () -getFrequencyResponse self frequencyHz magResponse phaseResponse - = liftIO - (js_getFrequencyResponse self - (maybeToOptional (fmap toFloat32Array frequencyHz)) - (maybeToOptional (fmap toFloat32Array magResponse)) - (maybeToOptional (fmap toFloat32Array phaseResponse))) - -foreign import javascript unsafe "(($1, $2) => { $1[\"type\"] = $2; })" js_setType :: - BiquadFilterNode -> JSVal -> IO () +foreign import javascript safe "(($1, $2) => { return new globalThis[\"BiquadFilterNode\"]($1, $2); })" + js_newBiquadFilterNode :: BaseAudioContext -> JSVal -> IO BiquadFilterNode +-- | +newBiquadFilterNode :: (MonadDOM m, IsBaseAudioContext context) => context -> Maybe BiquadFilterOptions -> m BiquadFilterNode +newBiquadFilterNode context options = liftDOM (((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_newBiquadFilterNode (Types.toBaseAudioContext context) a2')) --- | -setType :: - (MonadIO m) => BiquadFilterNode -> BiquadFilterType -> m () -setType self val = liftIO (js_setType self (pToJSVal val)) - -foreign import javascript unsafe "(($1) => { return $1[\"type\"]; })" js_getType :: - BiquadFilterNode -> IO JSVal +foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"getFrequencyResponse\"]($2, $3, $4); })" + js_getFrequencyResponse :: BiquadFilterNode -> Float32Array -> Float32Array -> Float32Array -> IO () +-- | +getFrequencyResponse :: (MonadDOM m, IsFloat32Array frequencyHz, IsFloat32Array magResponse, IsFloat32Array phaseResponse) => BiquadFilterNode -> frequencyHz -> magResponse -> phaseResponse -> m () +getFrequencyResponse self frequencyHz magResponse phaseResponse = liftDOM (void ((js_getFrequencyResponse (self) (Types.toFloat32Array frequencyHz) (Types.toFloat32Array magResponse) (Types.toFloat32Array phaseResponse)))) --- | -getType :: (MonadIO m) => BiquadFilterNode -> m BiquadFilterType -getType self = liftIO ((js_getType self) >>= fromJSValUnchecked) - +foreign import javascript safe "(($1, $2) => { $1[\"type\"] = $2; })" + js_setType :: BiquadFilterNode -> JSVal -> IO () +-- | +setType :: (MonadDOM m) => BiquadFilterNode -> BiquadFilterType -> m () +setType self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setType (self) a2'))) + +foreign import javascript unsafe "(($1) => { return $1[\"type\"]; })" + js_getType :: BiquadFilterNode -> IO JSVal +-- | +getType :: (MonadDOM m) => BiquadFilterNode -> m BiquadFilterType +getType self = liftDOM (((js_getType (self)) >>= fromJSValUnchecked)) + foreign import javascript unsafe "(($1) => { return $1[\"frequency\"]; })" js_getFrequency :: BiquadFilterNode -> IO AudioParam - --- | -getFrequency :: (MonadIO m) => BiquadFilterNode -> m AudioParam -getFrequency self = liftIO (js_getFrequency self) - -foreign import javascript unsafe "(($1) => { return $1[\"detune\"]; })" js_getDetune :: - BiquadFilterNode -> IO AudioParam +-- | +getFrequency :: (MonadDOM m) => BiquadFilterNode -> m AudioParam +getFrequency self = liftDOM ((js_getFrequency (self))) --- | -getDetune :: (MonadIO m) => BiquadFilterNode -> m AudioParam -getDetune self = liftIO (js_getDetune self) - -foreign import javascript unsafe "(($1) => { return $1[\"Q\"]; })" js_getQ :: - BiquadFilterNode -> IO AudioParam +foreign import javascript unsafe "(($1) => { return $1[\"detune\"]; })" + js_getDetune :: BiquadFilterNode -> IO AudioParam +-- | +getDetune :: (MonadDOM m) => BiquadFilterNode -> m AudioParam +getDetune self = liftDOM ((js_getDetune (self))) --- | -getQ :: (MonadIO m) => BiquadFilterNode -> m AudioParam -getQ self = liftIO (js_getQ self) - -foreign import javascript unsafe "(($1) => { return $1[\"gain\"]; })" js_getGain :: - BiquadFilterNode -> IO AudioParam +foreign import javascript unsafe "(($1) => { return $1[\"Q\"]; })" + js_getQ :: BiquadFilterNode -> IO AudioParam +-- | +getQ :: (MonadDOM m) => BiquadFilterNode -> m AudioParam +getQ self = liftDOM ((js_getQ (self))) --- | -getGain :: (MonadIO m) => BiquadFilterNode -> m AudioParam -getGain self = liftIO (js_getGain self) +foreign import javascript unsafe "(($1) => { return $1[\"gain\"]; })" + js_getGain :: BiquadFilterNode -> IO AudioParam +-- | +getGain :: (MonadDOM m) => BiquadFilterNode -> m AudioParam +getGain self = liftDOM ((js_getGain (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/BiquadFilterOptions.hs b/src/GHCJS/DOM/JSFFI/Generated/BiquadFilterOptions.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/BiquadFilterOptions.hs @@ -0,0 +1,123 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from webaudio-1.1 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.BiquadFilterOptions + (js_newBiquadFilterOptions, js_setType, js_getType, js_setQ, js_getQ, js_setDetune, js_getDetune, js_setFrequency, js_getFrequency, js_setGain, js_getGain, newBiquadFilterOptions, setType, getType, getTypeUnsafe, getTypeUnchecked, setQ, getQ, getQUnsafe, getQUnchecked, setDetune, getDetune, getDetuneUnsafe, getDetuneUnchecked, setFrequency, getFrequency, getFrequencyUnsafe, getFrequencyUnchecked, setGain, getGain, getGainUnsafe, getGainUnchecked, BiquadFilterOptions(..), gTypeBiquadFilterOptions) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(() => { return ({}); })" + js_newBiquadFilterOptions :: IO BiquadFilterOptions +-- | +newBiquadFilterOptions :: (MonadDOM m) => m BiquadFilterOptions +newBiquadFilterOptions = liftDOM ((js_newBiquadFilterOptions)) + +foreign import javascript safe "(($1, $2) => { $1[\"type\"] = $2; })" + js_setType :: BiquadFilterOptions -> JSVal -> IO () +-- | +setType :: (MonadDOM m) => BiquadFilterOptions -> BiquadFilterType -> m () +setType self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setType (self) a2'))) + +foreign import javascript unsafe "(($1) => { return $1[\"type\"]; })" + js_getType :: BiquadFilterOptions -> IO JSVal +-- | +getType :: (MonadDOM m) => BiquadFilterOptions -> m (Maybe BiquadFilterType) +getType self = liftDOM (((js_getType (self)) >>= fromJSValUnchecked)) + +-- | +getTypeUnsafe :: (MonadDOM m, HasCallStack) => BiquadFilterOptions -> m BiquadFilterType +getTypeUnsafe self = liftDOM ((((js_getType (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getTypeUnchecked :: (MonadDOM m) => BiquadFilterOptions -> m BiquadFilterType +getTypeUnchecked self = liftDOM ((pFromJSVal <$> (js_getType (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"Q\"] = $2; })" + js_setQ :: BiquadFilterOptions -> Float -> IO () +-- | +setQ :: (MonadDOM m) => BiquadFilterOptions -> Float -> m () +setQ self val = liftDOM (void ((js_setQ (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"Q\"]; })" + js_getQ :: BiquadFilterOptions -> IO JSVal +-- | +getQ :: (MonadDOM m) => BiquadFilterOptions -> m (Maybe Float) +getQ self = liftDOM (((js_getQ (self)) >>= fromJSValUnchecked)) + +-- | +getQUnsafe :: (MonadDOM m, HasCallStack) => BiquadFilterOptions -> m Float +getQUnsafe self = liftDOM ((((js_getQ (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getQUnchecked :: (MonadDOM m) => BiquadFilterOptions -> m Float +getQUnchecked self = liftDOM ((pFromJSVal <$> (js_getQ (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"detune\"] = $2; })" + js_setDetune :: BiquadFilterOptions -> Float -> IO () +-- | +setDetune :: (MonadDOM m) => BiquadFilterOptions -> Float -> m () +setDetune self val = liftDOM (void ((js_setDetune (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"detune\"]; })" + js_getDetune :: BiquadFilterOptions -> IO JSVal +-- | +getDetune :: (MonadDOM m) => BiquadFilterOptions -> m (Maybe Float) +getDetune self = liftDOM (((js_getDetune (self)) >>= fromJSValUnchecked)) + +-- | +getDetuneUnsafe :: (MonadDOM m, HasCallStack) => BiquadFilterOptions -> m Float +getDetuneUnsafe self = liftDOM ((((js_getDetune (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getDetuneUnchecked :: (MonadDOM m) => BiquadFilterOptions -> m Float +getDetuneUnchecked self = liftDOM ((pFromJSVal <$> (js_getDetune (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"frequency\"] = $2; })" + js_setFrequency :: BiquadFilterOptions -> Float -> IO () +-- | +setFrequency :: (MonadDOM m) => BiquadFilterOptions -> Float -> m () +setFrequency self val = liftDOM (void ((js_setFrequency (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"frequency\"]; })" + js_getFrequency :: BiquadFilterOptions -> IO JSVal +-- | +getFrequency :: (MonadDOM m) => BiquadFilterOptions -> m (Maybe Float) +getFrequency self = liftDOM (((js_getFrequency (self)) >>= fromJSValUnchecked)) + +-- | +getFrequencyUnsafe :: (MonadDOM m, HasCallStack) => BiquadFilterOptions -> m Float +getFrequencyUnsafe self = liftDOM ((((js_getFrequency (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getFrequencyUnchecked :: (MonadDOM m) => BiquadFilterOptions -> m Float +getFrequencyUnchecked self = liftDOM ((pFromJSVal <$> (js_getFrequency (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"gain\"] = $2; })" + js_setGain :: BiquadFilterOptions -> Float -> IO () +-- | +setGain :: (MonadDOM m) => BiquadFilterOptions -> Float -> m () +setGain self val = liftDOM (void ((js_setGain (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"gain\"]; })" + js_getGain :: BiquadFilterOptions -> IO JSVal +-- | +getGain :: (MonadDOM m) => BiquadFilterOptions -> m (Maybe Float) +getGain self = liftDOM (((js_getGain (self)) >>= fromJSValUnchecked)) + +-- | +getGainUnsafe :: (MonadDOM m, HasCallStack) => BiquadFilterOptions -> m Float +getGainUnsafe self = liftDOM ((((js_getGain (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getGainUnchecked :: (MonadDOM m) => BiquadFilterOptions -> m Float +getGainUnchecked self = liftDOM ((pFromJSVal <$> (js_getGain (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/Blob.hs b/src/GHCJS/DOM/JSFFI/Generated/Blob.hs --- a/src/GHCJS/DOM/JSFFI/Generated/Blob.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/Blob.hs @@ -1,80 +1,85 @@ {-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE JavaScriptFFI #-} --- For HasCallStack compatibility +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from FileAPI (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.Blob - (js_newBlob, newBlob, js_slice, slice, slice_, js_getSize, getSize, - js_getType, getType, Blob(..), gTypeBlob, IsBlob, toBlob) + (js_newBlob, js_arrayBuffer, js_bytes, js_slice, js_stream, js_text, js_getSize, js_getType, newBlob, arrayBuffer, arrayBuffer_, bytes, bytes_, slice, slice_, stream, stream_, text, text_, getSize, getType, Blob(..), gTypeBlob, IsBlob, toBlob) where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull, jsUndefined) -import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import Data.Maybe (fromJust) -import Data.Traversable (mapM) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types -import Control.Applicative ((<$>)) +import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums - -foreign import javascript unsafe "(($1, $2) => { return new window[\"Blob\"]($1, $2); })" - js_newBlob :: JSVal -> Optional BlobPropertyBag -> IO Blob --- | -newBlob :: - (MonadIO m, IsBlobPart blobParts, IsBlobPropertyBag options) => - [blobParts] -> Maybe options -> m Blob -newBlob blobParts options - = liftIO - (toJSVal blobParts >>= \ blobParts' -> js_newBlob blobParts' - (maybeToOptional (fmap toBlobPropertyBag options))) - -foreign import javascript unsafe "(($1, $2, $3, $4) => { return $1[\"slice\"]($2, $3, $4); })" - js_slice :: - Blob -> - Optional Double -> Optional Double -> Optional JSString -> IO Blob +foreign import javascript safe "(($1, $2) => { return new globalThis[\"Blob\"]($1, $2); })" + js_newBlob :: JSVal -> JSVal -> IO Blob +-- | +newBlob :: (MonadDOM m, IsBlobPart blobParts, IsBlobPropertyBag options) => Maybe [blobParts] -> Maybe options -> m Blob +newBlob blobParts options = liftDOM (((P.maybe (P.return jsUndefined) toJSVal blobParts) >>= \a1' -> (P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_newBlob a1' a2')) --- | -slice :: - (MonadIO m, IsBlob self, ToJSString contentType) => - self -> Maybe Int64 -> Maybe Int64 -> Maybe contentType -> m Blob -slice self start end contentType - = liftIO - (js_slice (toBlob self) (maybeToOptional (fmap fromIntegral start)) - (maybeToOptional (fmap fromIntegral end)) - (toOptionalJSString contentType)) +foreign import javascript interruptible "(($1, $c) => { return $1[\"arrayBuffer\"]().then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })" + js_arrayBuffer :: Blob -> IO (JSVal, ArrayBuffer) +-- | +arrayBuffer :: (MonadDOM m, IsBlob self) => self -> m ArrayBuffer +arrayBuffer self = liftDOM (((js_arrayBuffer ((Types.toBlob self))) >>= checkPromiseResult)) --- | -slice_ :: - (MonadIO m, IsBlob self, ToJSString contentType) => - self -> Maybe Int64 -> Maybe Int64 -> Maybe contentType -> m () -slice_ self start end contentType - = liftIO - (void - (js_slice (toBlob self) (maybeToOptional (fmap fromIntegral start)) - (maybeToOptional (fmap fromIntegral end)) - (toOptionalJSString contentType))) - -foreign import javascript unsafe "(($1) => { return $1[\"size\"]; })" js_getSize :: - Blob -> IO Double +-- | +arrayBuffer_ :: (MonadDOM m, IsBlob self) => self -> m () +arrayBuffer_ self = liftDOM (void (((js_arrayBuffer ((Types.toBlob self))) >>= checkPromiseResult))) --- | -getSize :: (MonadIO m, IsBlob self) => self -> m Word64 -getSize self = liftIO (round <$> (js_getSize (toBlob self))) - -foreign import javascript unsafe "(($1) => { return $1[\"type\"]; })" js_getType :: - Blob -> IO JSString +foreign import javascript interruptible "(($1, $c) => { return $1[\"bytes\"]().then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })" + js_bytes :: Blob -> IO (JSVal, Uint8Array) +-- | +bytes :: (MonadDOM m, IsBlob self) => self -> m Uint8Array +bytes self = liftDOM (((js_bytes ((Types.toBlob self))) >>= checkPromiseResult)) --- | -getType :: - (MonadIO m, IsBlob self, FromJSString result) => self -> m result -getType self = liftIO (fromJSString <$> (js_getType (toBlob self))) +-- | +bytes_ :: (MonadDOM m, IsBlob self) => self -> m () +bytes_ self = liftDOM (void (((js_bytes ((Types.toBlob self))) >>= checkPromiseResult))) + +foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"slice\"]($2, $3, $4); })" + js_slice :: Blob -> JSVal -> JSVal -> (Optional JSString) -> IO Blob +-- | +slice :: (MonadDOM m, IsBlob self, ToJSString contentType) => self -> Maybe Int53 -> Maybe Int53 -> Maybe contentType -> m Blob +slice self start end contentType = liftDOM (((P.maybe (P.return jsUndefined) toJSVal start) >>= \a2' -> (P.maybe (P.return jsUndefined) toJSVal end) >>= \a3' -> js_slice ((Types.toBlob self)) a2' a3' (toOptionalJSString contentType))) + +-- | +slice_ :: (MonadDOM m, IsBlob self, ToJSString contentType) => self -> Maybe Int53 -> Maybe Int53 -> Maybe contentType -> m () +slice_ self start end contentType = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal start) >>= \a2' -> (P.maybe (P.return jsUndefined) toJSVal end) >>= \a3' -> js_slice ((Types.toBlob self)) a2' a3' (toOptionalJSString contentType)))) + +foreign import javascript safe "(($1) => { return $1[\"stream\"](); })" + js_stream :: Blob -> IO ReadableStream +-- | +stream :: (MonadDOM m, IsBlob self) => self -> m ReadableStream +stream self = liftDOM ((js_stream ((Types.toBlob self)))) + +-- | +stream_ :: (MonadDOM m, IsBlob self) => self -> m () +stream_ self = liftDOM (void ((js_stream ((Types.toBlob self))))) + +foreign import javascript interruptible "(($1, $c) => { return $1[\"text\"]().then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })" + js_text :: Blob -> IO (JSVal, JSString) +-- | +text :: (MonadDOM m, IsBlob self, FromJSString result) => self -> m result +text self = liftDOM ((fromJSString <$> ((js_text ((Types.toBlob self))) >>= checkPromiseResult))) + +-- | +text_ :: (MonadDOM m, IsBlob self) => self -> m () +text_ self = liftDOM (void (((js_text ((Types.toBlob self))) >>= checkPromiseResult))) + +foreign import javascript unsafe "(($1) => { return $1[\"size\"]; })" + js_getSize :: Blob -> IO JSVal +-- | +getSize :: (MonadDOM m, IsBlob self) => self -> m Word53 +getSize self = liftDOM (((js_getSize ((Types.toBlob self))) >>= fromJSValUnchecked)) + +foreign import javascript unsafe "(($1) => { return $1[\"type\"]; })" + js_getType :: Blob -> IO JSString +-- | +getType :: (MonadDOM m, IsBlob self, FromJSString result) => self -> m result +getType self = liftDOM ((fromJSString <$> (js_getType ((Types.toBlob self))))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/BlobCallback.hs b/src/GHCJS/DOM/JSFFI/Generated/BlobCallback.hs --- a/src/GHCJS/DOM/JSFFI/Generated/BlobCallback.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/BlobCallback.hs @@ -1,54 +1,29 @@ -{-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE JavaScriptFFI #-} --- For HasCallStack compatibility -{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from html (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.BlobCallback - (newBlobCallback, newBlobCallbackSync, newBlobCallbackAsync, - BlobCallback) + (newBlobCallback, newBlobCallbackSync, newBlobCallbackAsync, BlobCallback) where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull, jsUndefined) -import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import Data.Maybe (fromJust) -import Data.Traversable (mapM) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import Data.Coerce (coerce) +import GHC.JS.Foreign.Callback (OnBlocked(..), syncCallback1, asyncCallback1) import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums --- | -newBlobCallback :: - (MonadIO m) => (Maybe Blob -> IO ()) -> m BlobCallback -newBlobCallback callback - = liftIO - (BlobCallback <$> - syncCallback1 ThrowWouldBlock - (\ blob -> fromJSValUnchecked blob >>= \ blob' -> callback blob')) +newBlobCallback :: (MonadDOM m) => (Maybe Blob -> IO ()) -> m BlobCallback +newBlobCallback callback = liftDOM ((BlobCallback . coerce) <$> syncCallback1 ContinueAsync (\ blob -> do + blob' <- fromJSValUnchecked blob + callback blob')) --- | -newBlobCallbackSync :: - (MonadIO m) => (Maybe Blob -> IO ()) -> m BlobCallback -newBlobCallbackSync callback - = liftIO - (BlobCallback <$> - syncCallback1 ContinueAsync - (\ blob -> fromJSValUnchecked blob >>= \ blob' -> callback blob')) +newBlobCallbackSync :: (MonadDOM m) => (Maybe Blob -> IO ()) -> m BlobCallback +newBlobCallbackSync callback = liftDOM ((BlobCallback . coerce) <$> syncCallback1 ThrowWouldBlock (\ blob -> do + blob' <- fromJSValUnchecked blob + callback blob')) --- | -newBlobCallbackAsync :: - (MonadIO m) => (Maybe Blob -> IO ()) -> m BlobCallback -newBlobCallbackAsync callback - = liftIO - (BlobCallback <$> - asyncCallback1 - (\ blob -> fromJSValUnchecked blob >>= \ blob' -> callback blob')) +newBlobCallbackAsync :: (MonadDOM m) => (Maybe Blob -> IO ()) -> m BlobCallback +newBlobCallbackAsync callback = liftDOM ((BlobCallback . coerce) <$> asyncCallback1 (\ blob -> do + blob' <- fromJSValUnchecked blob + callback blob')) diff --git a/src/GHCJS/DOM/JSFFI/Generated/BlobEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/BlobEvent.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/BlobEvent.hs @@ -0,0 +1,35 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from mediastream-recording (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.BlobEvent + (js_newBlobEvent, js_getData, js_getTimecode, newBlobEvent, getData, getTimecode, BlobEvent(..), gTypeBlobEvent) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1, $2) => { return new globalThis[\"BlobEvent\"]($1, $2); })" + js_newBlobEvent :: JSString -> BlobEventInit -> IO BlobEvent +-- | +newBlobEvent :: (MonadDOM m, ToJSString type') => type' -> BlobEventInit -> m BlobEvent +newBlobEvent type' eventInitDict = liftDOM ((js_newBlobEvent (toJSString type') (eventInitDict))) + +foreign import javascript unsafe "(($1) => { return $1[\"data\"]; })" + js_getData :: BlobEvent -> IO Blob +-- | +getData :: (MonadDOM m) => BlobEvent -> m Blob +getData self = liftDOM ((js_getData (self))) + +foreign import javascript unsafe "(($1) => { return $1[\"timecode\"]; })" + js_getTimecode :: BlobEvent -> IO Double +-- | +getTimecode :: (MonadDOM m) => BlobEvent -> m Double +getTimecode self = liftDOM ((js_getTimecode (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/BlobEventInit.hs b/src/GHCJS/DOM/JSFFI/Generated/BlobEventInit.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/BlobEventInit.hs @@ -0,0 +1,55 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from mediastream-recording (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.BlobEventInit + (js_newBlobEventInit, js_setData, js_getData, js_setTimecode, js_getTimecode, newBlobEventInit, setData, getData, setTimecode, getTimecode, getTimecodeUnsafe, getTimecodeUnchecked, BlobEventInit(..), gTypeBlobEventInit) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1) => { return ({\"data\": $1}); })" + js_newBlobEventInit :: Blob -> IO BlobEventInit +-- | +newBlobEventInit :: (MonadDOM m, IsBlob data') => data' -> m BlobEventInit +newBlobEventInit data' = liftDOM ((js_newBlobEventInit (Types.toBlob data'))) + +foreign import javascript safe "(($1, $2) => { $1[\"data\"] = $2; })" + js_setData :: BlobEventInit -> Blob -> IO () +-- | +setData :: (MonadDOM m, IsBlob val) => BlobEventInit -> val -> m () +setData self val = liftDOM (void ((js_setData (self) (Types.toBlob val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"data\"]; })" + js_getData :: BlobEventInit -> IO Blob +-- | +getData :: (MonadDOM m) => BlobEventInit -> m Blob +getData self = liftDOM ((js_getData (self))) + +foreign import javascript safe "(($1, $2) => { $1[\"timecode\"] = $2; })" + js_setTimecode :: BlobEventInit -> Double -> IO () +-- | +setTimecode :: (MonadDOM m) => BlobEventInit -> Double -> m () +setTimecode self val = liftDOM (void ((js_setTimecode (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"timecode\"]; })" + js_getTimecode :: BlobEventInit -> IO JSVal +-- | +getTimecode :: (MonadDOM m) => BlobEventInit -> m (Maybe Double) +getTimecode self = liftDOM (((js_getTimecode (self)) >>= fromJSValUnchecked)) + +-- | +getTimecodeUnsafe :: (MonadDOM m, HasCallStack) => BlobEventInit -> m Double +getTimecodeUnsafe self = liftDOM ((((js_getTimecode (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getTimecodeUnchecked :: (MonadDOM m) => BlobEventInit -> m Double +getTimecodeUnchecked self = liftDOM ((pFromJSVal <$> (js_getTimecode (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/BlobPropertyBag.hs b/src/GHCJS/DOM/JSFFI/Generated/BlobPropertyBag.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/BlobPropertyBag.hs @@ -0,0 +1,63 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from FileAPI (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.BlobPropertyBag + (js_newBlobPropertyBag, js_setType, js_getType, js_setEndings, js_getEndings, newBlobPropertyBag, setType, getType, getTypeUnsafe, getTypeUnchecked, setEndings, getEndings, getEndingsUnsafe, getEndingsUnchecked, BlobPropertyBag(..), gTypeBlobPropertyBag, IsBlobPropertyBag, toBlobPropertyBag) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(() => { return ({}); })" + js_newBlobPropertyBag :: IO BlobPropertyBag +-- | +newBlobPropertyBag :: (MonadDOM m) => m BlobPropertyBag +newBlobPropertyBag = liftDOM ((js_newBlobPropertyBag)) + +foreign import javascript safe "(($1, $2) => { $1[\"type\"] = $2; })" + js_setType :: BlobPropertyBag -> JSString -> IO () +-- | +setType :: (MonadDOM m, IsBlobPropertyBag self, ToJSString val) => self -> val -> m () +setType self val = liftDOM (void ((js_setType ((Types.toBlobPropertyBag self)) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"type\"]; })" + js_getType :: BlobPropertyBag -> IO JSVal +-- | +getType :: (MonadDOM m, IsBlobPropertyBag self, FromJSString result) => self -> m (Maybe result) +getType self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getType ((Types.toBlobPropertyBag self))))) + +-- | +getTypeUnsafe :: (MonadDOM m, IsBlobPropertyBag self, HasCallStack, FromJSString result) => self -> m result +getTypeUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getType ((Types.toBlobPropertyBag self)))) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getTypeUnchecked :: (MonadDOM m, IsBlobPropertyBag self, FromJSString result) => self -> m result +getTypeUnchecked self = liftDOM ((pFromJSVal <$> (js_getType ((Types.toBlobPropertyBag self))))) + +foreign import javascript safe "(($1, $2) => { $1[\"endings\"] = $2; })" + js_setEndings :: BlobPropertyBag -> JSVal -> IO () +-- | +setEndings :: (MonadDOM m, IsBlobPropertyBag self) => self -> EndingType -> m () +setEndings self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setEndings ((Types.toBlobPropertyBag self)) a2'))) + +foreign import javascript unsafe "(($1) => { return $1[\"endings\"]; })" + js_getEndings :: BlobPropertyBag -> IO JSVal +-- | +getEndings :: (MonadDOM m, IsBlobPropertyBag self) => self -> m (Maybe EndingType) +getEndings self = liftDOM (((js_getEndings ((Types.toBlobPropertyBag self))) >>= fromJSValUnchecked)) + +-- | +getEndingsUnsafe :: (MonadDOM m, IsBlobPropertyBag self, HasCallStack) => self -> m EndingType +getEndingsUnsafe self = liftDOM ((((js_getEndings ((Types.toBlobPropertyBag self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getEndingsUnchecked :: (MonadDOM m, IsBlobPropertyBag self) => self -> m EndingType +getEndingsUnchecked self = liftDOM ((pFromJSVal <$> (js_getEndings ((Types.toBlobPropertyBag self))))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/Body.hs b/src/GHCJS/DOM/JSFFI/Generated/Body.hs --- a/src/GHCJS/DOM/JSFFI/Generated/Body.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/Body.hs @@ -1,87 +1,97 @@ {-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE JavaScriptFFI #-} --- For HasCallStack compatibility +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from fetch (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.Body - (js_arrayBuffer, arrayBuffer, arrayBuffer_, js_blob, blob, blob_, - js_json, json, json_, js_text, text, text_, js_getBodyUsed, - getBodyUsed, Body(..), gTypeBody, IsBody, toBody) + (js_arrayBuffer, js_blob, js_bytes, js_formData, js_json, js_text, js_getBody, js_getBodyUsed, arrayBuffer, arrayBuffer_, blob, blob_, bytes, bytes_, formData, formData_, json, json_, text, text_, getBody, getBodyUnsafe, getBodyUnchecked, getBodyUsed, Body(..), gTypeBody, IsBody, toBody) where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull, jsUndefined) -import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import Data.Maybe (fromJust) -import Data.Traversable (mapM) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types -import Control.Applicative ((<$>)) +import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums - -foreign import javascript interruptible - "(($1, $c) => { return $1[\"arrayBuffer\"]().then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })" + +foreign import javascript interruptible "(($1, $c) => { return $1[\"arrayBuffer\"]().then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })" js_arrayBuffer :: Body -> IO (JSVal, ArrayBuffer) +-- | +arrayBuffer :: (MonadDOM m, IsBody self) => self -> m ArrayBuffer +arrayBuffer self = liftDOM (((js_arrayBuffer ((Types.toBody self))) >>= checkPromiseResult)) --- | -arrayBuffer :: (MonadIO m, IsBody self) => self -> m ArrayBuffer -arrayBuffer self - = liftIO ((js_arrayBuffer (toBody self)) >>= checkPromiseResult) +-- | +arrayBuffer_ :: (MonadDOM m, IsBody self) => self -> m () +arrayBuffer_ self = liftDOM (void (((js_arrayBuffer ((Types.toBody self))) >>= checkPromiseResult))) --- | -arrayBuffer_ :: (MonadIO m, IsBody self) => self -> m () -arrayBuffer_ self = liftIO (void (js_arrayBuffer (toBody self))) - -foreign import javascript interruptible - "(($1, $c) => { return $1[\"blob\"]().then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })" +foreign import javascript interruptible "(($1, $c) => { return $1[\"blob\"]().then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })" js_blob :: Body -> IO (JSVal, Blob) +-- | +blob :: (MonadDOM m, IsBody self) => self -> m Blob +blob self = liftDOM (((js_blob ((Types.toBody self))) >>= checkPromiseResult)) --- | -blob :: (MonadIO m, IsBody self) => self -> m Blob -blob self = liftIO ((js_blob (toBody self)) >>= checkPromiseResult) +-- | +blob_ :: (MonadDOM m, IsBody self) => self -> m () +blob_ self = liftDOM (void (((js_blob ((Types.toBody self))) >>= checkPromiseResult))) --- | -blob_ :: (MonadIO m, IsBody self) => self -> m () -blob_ self = liftIO (void (js_blob (toBody self))) - -foreign import javascript interruptible - "(($1, $c) => { return $1[\"json\"]().then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })" +foreign import javascript interruptible "(($1, $c) => { return $1[\"bytes\"]().then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })" + js_bytes :: Body -> IO (JSVal, Uint8Array) +-- | +bytes :: (MonadDOM m, IsBody self) => self -> m Uint8Array +bytes self = liftDOM (((js_bytes ((Types.toBody self))) >>= checkPromiseResult)) + +-- | +bytes_ :: (MonadDOM m, IsBody self) => self -> m () +bytes_ self = liftDOM (void (((js_bytes ((Types.toBody self))) >>= checkPromiseResult))) + +foreign import javascript interruptible "(($1, $c) => { return $1[\"formData\"]().then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })" + js_formData :: Body -> IO (JSVal, FormData) +-- | +formData :: (MonadDOM m, IsBody self) => self -> m FormData +formData self = liftDOM (((js_formData ((Types.toBody self))) >>= checkPromiseResult)) + +-- | +formData_ :: (MonadDOM m, IsBody self) => self -> m () +formData_ self = liftDOM (void (((js_formData ((Types.toBody self))) >>= checkPromiseResult))) + +foreign import javascript interruptible "(($1, $c) => { return $1[\"json\"]().then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })" js_json :: Body -> IO (JSVal, JSVal) +-- | +json :: (MonadDOM m, IsBody self) => self -> m JSVal +json self = liftDOM (((js_json ((Types.toBody self))) >>= checkPromiseResult)) --- | -json :: (MonadIO m, IsBody self) => self -> m JSVal -json self = liftIO ((js_json (toBody self)) >>= checkPromiseResult) +-- | +json_ :: (MonadDOM m, IsBody self) => self -> m () +json_ self = liftDOM (void (((js_json ((Types.toBody self))) >>= checkPromiseResult))) --- | -json_ :: (MonadIO m, IsBody self) => self -> m () -json_ self = liftIO (void (js_json (toBody self))) - -foreign import javascript interruptible - "(($1, $c) => { return $1[\"text\"]().then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })" +foreign import javascript interruptible "(($1, $c) => { return $1[\"text\"]().then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })" js_text :: Body -> IO (JSVal, JSString) +-- | +text :: (MonadDOM m, IsBody self, FromJSString result) => self -> m result +text self = liftDOM ((fromJSString <$> ((js_text ((Types.toBody self))) >>= checkPromiseResult))) --- | -text :: - (MonadIO m, IsBody self, FromJSString result) => self -> m result -text self - = liftIO - (fromJSString <$> ((js_text (toBody self)) >>= checkPromiseResult)) +-- | +text_ :: (MonadDOM m, IsBody self) => self -> m () +text_ self = liftDOM (void (((js_text ((Types.toBody self))) >>= checkPromiseResult))) --- | -text_ :: (MonadIO m, IsBody self) => self -> m () -text_ self = liftIO (void (js_text (toBody self))) - -foreign import javascript unsafe "(($1) => { return ($1[\"bodyUsed\"] ? 1 : 0); })" - js_getBodyUsed :: Body -> IO Bool +foreign import javascript unsafe "(($1) => { return $1[\"body\"]; })" + js_getBody :: Body -> IO JSVal +-- | +getBody :: (MonadDOM m, IsBody self) => self -> m (Maybe ReadableStream) +getBody self = liftDOM (((js_getBody ((Types.toBody self))) >>= fromJSValUnchecked)) --- | -getBodyUsed :: (MonadIO m, IsBody self) => self -> m Bool -getBodyUsed self = liftIO (js_getBodyUsed (toBody self)) +-- | +getBodyUnsafe :: (MonadDOM m, IsBody self, HasCallStack) => self -> m ReadableStream +getBodyUnsafe self = liftDOM ((((js_getBody ((Types.toBody self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getBodyUnchecked :: (MonadDOM m, IsBody self) => self -> m ReadableStream +getBodyUnchecked self = liftDOM ((pFromJSVal <$> (js_getBody ((Types.toBody self))))) + +foreign import javascript unsafe "(($1) => { return $1[\"bodyUsed\"]; })" + js_getBodyUsed :: Body -> IO Bool +-- | +getBodyUsed :: (MonadDOM m, IsBody self) => self -> m Bool +getBodyUsed self = liftDOM ((js_getBodyUsed ((Types.toBody self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/BroadcastChannel.hs b/src/GHCJS/DOM/JSFFI/Generated/BroadcastChannel.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/BroadcastChannel.hs @@ -0,0 +1,49 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from html (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.BroadcastChannel + (js_newBroadcastChannel, js_close, js_postMessage, js_getName, newBroadcastChannel, close, postMessage, getName, message, messageerror, BroadcastChannel(..), gTypeBroadcastChannel) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1) => { return new globalThis[\"BroadcastChannel\"]($1); })" + js_newBroadcastChannel :: JSString -> IO BroadcastChannel +-- | +newBroadcastChannel :: (MonadDOM m, ToJSString name) => name -> m BroadcastChannel +newBroadcastChannel name = liftDOM ((js_newBroadcastChannel (toJSString name))) + +foreign import javascript safe "(($1) => { return $1[\"close\"](); })" + js_close :: BroadcastChannel -> IO () +-- | +close :: (MonadDOM m) => BroadcastChannel -> m () +close self = liftDOM (void ((js_close (self)))) + +foreign import javascript safe "(($1, $2) => { return $1[\"postMessage\"]($2); })" + js_postMessage :: BroadcastChannel -> JSVal -> IO () +-- | +postMessage :: (MonadDOM m) => BroadcastChannel -> JSVal -> m () +postMessage self message = liftDOM (void ((js_postMessage (self) (message)))) + +foreign import javascript unsafe "(($1) => { return $1[\"name\"]; })" + js_getName :: BroadcastChannel -> IO JSString +-- | +getName :: (MonadDOM m, FromJSString result) => BroadcastChannel -> m result +getName self = liftDOM ((fromJSString <$> (js_getName (self)))) + +-- | +message :: EventName BroadcastChannel MessageEvent +message = unsafeEventNameAsync (toJSString "message") + +-- | +messageerror :: EventName BroadcastChannel MessageEvent +messageerror = unsafeEventName (toJSString "messageerror") diff --git a/src/GHCJS/DOM/JSFFI/Generated/BrowserBoundSignature.hs b/src/GHCJS/DOM/JSFFI/Generated/BrowserBoundSignature.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/BrowserBoundSignature.hs @@ -0,0 +1,35 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from secure-payment-confirmation (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.BrowserBoundSignature + (js_newBrowserBoundSignature, js_setSignature, js_getSignature, newBrowserBoundSignature, setSignature, getSignature, BrowserBoundSignature(..), gTypeBrowserBoundSignature) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1) => { return ({\"signature\": $1}); })" + js_newBrowserBoundSignature :: ArrayBuffer -> IO BrowserBoundSignature +-- | +newBrowserBoundSignature :: (MonadDOM m, IsArrayBuffer signature) => signature -> m BrowserBoundSignature +newBrowserBoundSignature signature = liftDOM ((js_newBrowserBoundSignature (Types.toArrayBuffer signature))) + +foreign import javascript safe "(($1, $2) => { $1[\"signature\"] = $2; })" + js_setSignature :: BrowserBoundSignature -> ArrayBuffer -> IO () +-- | +setSignature :: (MonadDOM m, IsArrayBuffer val) => BrowserBoundSignature -> val -> m () +setSignature self val = liftDOM (void ((js_setSignature (self) (Types.toArrayBuffer val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"signature\"]; })" + js_getSignature :: BrowserBoundSignature -> IO ArrayBuffer +-- | +getSignature :: (MonadDOM m) => BrowserBoundSignature -> m ArrayBuffer +getSignature self = liftDOM ((js_getSignature (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/ByteLengthQueuingStrategy.hs b/src/GHCJS/DOM/JSFFI/Generated/ByteLengthQueuingStrategy.hs --- a/src/GHCJS/DOM/JSFFI/Generated/ByteLengthQueuingStrategy.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/ByteLengthQueuingStrategy.hs @@ -1,49 +1,35 @@ {-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE JavaScriptFFI #-} --- For HasCallStack compatibility +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from streams (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.ByteLengthQueuingStrategy - (js_newByteLengthQueuingStrategy, newByteLengthQueuingStrategy, - js_size, size, size_, ByteLengthQueuingStrategy(..), - gTypeByteLengthQueuingStrategy) + (js_newByteLengthQueuingStrategy, js_getHighWaterMark, js_getSize, newByteLengthQueuingStrategy, getHighWaterMark, getSize, ByteLengthQueuingStrategy(..), gTypeByteLengthQueuingStrategy) where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull, jsUndefined) -import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import Data.Maybe (fromJust) -import Data.Traversable (mapM) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types -import Control.Applicative ((<$>)) +import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums - -foreign import javascript unsafe - "(() => { return new window[\"ByteLengthQueuingStrategy\"](); })" - js_newByteLengthQueuingStrategy :: IO ByteLengthQueuingStrategy --- | -newByteLengthQueuingStrategy :: - (MonadIO m) => m ByteLengthQueuingStrategy -newByteLengthQueuingStrategy - = liftIO (js_newByteLengthQueuingStrategy) - -foreign import javascript unsafe "(($1) => { return $1[\"size\"](); })" js_size :: - ByteLengthQueuingStrategy -> IO Double +foreign import javascript safe "(($1) => { return new globalThis[\"ByteLengthQueuingStrategy\"]($1); })" + js_newByteLengthQueuingStrategy :: QueuingStrategyInit -> IO ByteLengthQueuingStrategy +-- | +newByteLengthQueuingStrategy :: (MonadDOM m) => QueuingStrategyInit -> m ByteLengthQueuingStrategy +newByteLengthQueuingStrategy init = liftDOM ((js_newByteLengthQueuingStrategy (init))) --- | -size :: (MonadIO m) => ByteLengthQueuingStrategy -> m Double -size self = liftIO (js_size self) +foreign import javascript unsafe "(($1) => { return $1[\"highWaterMark\"]; })" + js_getHighWaterMark :: ByteLengthQueuingStrategy -> IO Double +-- | +getHighWaterMark :: (MonadDOM m) => ByteLengthQueuingStrategy -> m Double +getHighWaterMark self = liftDOM ((js_getHighWaterMark (self))) --- | -size_ :: (MonadIO m) => ByteLengthQueuingStrategy -> m () -size_ self = liftIO (void (js_size self)) +foreign import javascript unsafe "(($1) => { return $1[\"size\"]; })" + js_getSize :: ByteLengthQueuingStrategy -> IO Function +-- | +getSize :: (MonadDOM m) => ByteLengthQueuingStrategy -> m Function +getSize self = liftDOM ((js_getSize (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CDATASection.hs b/src/GHCJS/DOM/JSFFI/Generated/CDATASection.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CDATASection.hs @@ -0,0 +1,18 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from dom (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CDATASection + (CDATASection(..), gTypeCDATASection) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSS.hs b/src/GHCJS/DOM/JSFFI/Generated/CSS.hs --- a/src/GHCJS/DOM/JSFFI/Generated/CSS.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/CSS.hs @@ -1,76 +1,689 @@ {-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE JavaScriptFFI #-} --- For HasCallStack compatibility +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from cssom-1 (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.CSS - (js_supports2, supports2, supports2_, js_supports, supports, - supports_, js_escape, escape, escape_, CSS(..), gTypeCSS) + (js_hz, js_q, js_cap, js_ch, js_cm, js_cqb, js_cqh, js_cqi, js_cqmax, js_cqmin, js_cqw, js_deg, js_dpcm, js_dpi, js_dppx, js_dvb, js_dvh, js_dvi, js_dvmax, js_dvmin, js_dvw, js_em, js_escape, js_ex, js_fr, js_grad, js_ic, js_in', js_kHz, js_lh, js_lvb, js_lvh, js_lvi, js_lvmax, js_lvmin, js_lvw, js_mm, js_ms, js_number, js_pc, js_percent, js_pt, js_px, js_rad, js_rcap, js_rch, js_registerProperty, js_rem, js_rex, js_ric, js_rlh, js_s, js_supports2, js_supports, js_svb, js_svh, js_svi, js_svmax, js_svmin, js_svw, js_turn, js_vb, js_vh, js_vi, js_vmax, js_vmin, js_vw, js_getHighlights, hz, hz_, q, q_, cap, cap_, ch, ch_, cm, cm_, cqb, cqb_, cqh, cqh_, cqi, cqi_, cqmax, cqmax_, cqmin, cqmin_, cqw, cqw_, deg, deg_, dpcm, dpcm_, dpi, dpi_, dppx, dppx_, dvb, dvb_, dvh, dvh_, dvi, dvi_, dvmax, dvmax_, dvmin, dvmin_, dvw, dvw_, em, em_, escape, escape_, ex, ex_, fr, fr_, grad, grad_, ic, ic_, in', in'_, kHz, kHz_, lh, lh_, lvb, lvb_, lvh, lvh_, lvi, lvi_, lvmax, lvmax_, lvmin, lvmin_, lvw, lvw_, mm, mm_, ms, ms_, number, number_, pc, pc_, percent, percent_, pt, pt_, px, px_, rad, rad_, rcap, rcap_, rch, rch_, registerProperty, rem, rem_, rex, rex_, ric, ric_, rlh, rlh_, s, s_, supports2, supports2_, supports, supports_, svb, svb_, svh, svh_, svi, svi_, svmax, svmax_, svmin, svmin_, svw, svw_, turn, turn_, vb, vb_, vh, vh_, vi, vi_, vmax, vmax_, vmin, vmin_, vw, vw_, getHighlights) where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull, jsUndefined) -import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import Data.Maybe (fromJust) -import Data.Traversable (mapM) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types -import Control.Applicative ((<$>)) +import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums - -foreign import javascript unsafe - "(($1, $2) => { return (window[\"CSS\"][\"supports\"]($1,\n$2) ? 1 : 0); })" js_supports2 :: - JSString -> JSString -> IO Bool --- | -supports2 :: - (MonadIO m, ToJSString property, ToJSString value) => - property -> value -> m Bool -supports2 property value - = liftIO (js_supports2 (toJSString property) (toJSString value)) +foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"Hz\"]($1); })" + js_hz :: Double -> IO CSSUnitValue +-- | +hz :: (MonadDOM m) => Double -> m CSSUnitValue +hz value = liftDOM ((js_hz (value))) --- | -supports2_ :: - (MonadIO m, ToJSString property, ToJSString value) => - property -> value -> m () -supports2_ property value - = liftIO - (void (js_supports2 (toJSString property) (toJSString value))) - -foreign import javascript unsafe - "(($1) => { return (window[\"CSS\"][\"supports\"]($1) ? 1 : 0); })" js_supports :: - JSString -> IO Bool +-- | +hz_ :: (MonadDOM m) => Double -> m () +hz_ value = liftDOM (void ((js_hz (value)))) --- | -supports :: - (MonadIO m, ToJSString conditionText) => conditionText -> m Bool -supports conditionText - = liftIO (js_supports (toJSString conditionText)) +foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"Q\"]($1); })" + js_q :: Double -> IO CSSUnitValue +-- | +q :: (MonadDOM m) => Double -> m CSSUnitValue +q value = liftDOM ((js_q (value))) --- | -supports_ :: - (MonadIO m, ToJSString conditionText) => conditionText -> m () -supports_ conditionText - = liftIO (void (js_supports (toJSString conditionText))) - -foreign import javascript unsafe "(($1) => { return window[\"CSS\"][\"escape\"]($1); })" +-- | +q_ :: (MonadDOM m) => Double -> m () +q_ value = liftDOM (void ((js_q (value)))) + +foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"cap\"]($1); })" + js_cap :: Double -> IO CSSUnitValue +-- | +cap :: (MonadDOM m) => Double -> m CSSUnitValue +cap value = liftDOM ((js_cap (value))) + +-- | +cap_ :: (MonadDOM m) => Double -> m () +cap_ value = liftDOM (void ((js_cap (value)))) + +foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"ch\"]($1); })" + js_ch :: Double -> IO CSSUnitValue +-- | +ch :: (MonadDOM m) => Double -> m CSSUnitValue +ch value = liftDOM ((js_ch (value))) + +-- | +ch_ :: (MonadDOM m) => Double -> m () +ch_ value = liftDOM (void ((js_ch (value)))) + +foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"cm\"]($1); })" + js_cm :: Double -> IO CSSUnitValue +-- | +cm :: (MonadDOM m) => Double -> m CSSUnitValue +cm value = liftDOM ((js_cm (value))) + +-- | +cm_ :: (MonadDOM m) => Double -> m () +cm_ value = liftDOM (void ((js_cm (value)))) + +foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"cqb\"]($1); })" + js_cqb :: Double -> IO CSSUnitValue +-- | +cqb :: (MonadDOM m) => Double -> m CSSUnitValue +cqb value = liftDOM ((js_cqb (value))) + +-- | +cqb_ :: (MonadDOM m) => Double -> m () +cqb_ value = liftDOM (void ((js_cqb (value)))) + +foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"cqh\"]($1); })" + js_cqh :: Double -> IO CSSUnitValue +-- | +cqh :: (MonadDOM m) => Double -> m CSSUnitValue +cqh value = liftDOM ((js_cqh (value))) + +-- | +cqh_ :: (MonadDOM m) => Double -> m () +cqh_ value = liftDOM (void ((js_cqh (value)))) + +foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"cqi\"]($1); })" + js_cqi :: Double -> IO CSSUnitValue +-- | +cqi :: (MonadDOM m) => Double -> m CSSUnitValue +cqi value = liftDOM ((js_cqi (value))) + +-- | +cqi_ :: (MonadDOM m) => Double -> m () +cqi_ value = liftDOM (void ((js_cqi (value)))) + +foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"cqmax\"]($1); })" + js_cqmax :: Double -> IO CSSUnitValue +-- | +cqmax :: (MonadDOM m) => Double -> m CSSUnitValue +cqmax value = liftDOM ((js_cqmax (value))) + +-- | +cqmax_ :: (MonadDOM m) => Double -> m () +cqmax_ value = liftDOM (void ((js_cqmax (value)))) + +foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"cqmin\"]($1); })" + js_cqmin :: Double -> IO CSSUnitValue +-- | +cqmin :: (MonadDOM m) => Double -> m CSSUnitValue +cqmin value = liftDOM ((js_cqmin (value))) + +-- | +cqmin_ :: (MonadDOM m) => Double -> m () +cqmin_ value = liftDOM (void ((js_cqmin (value)))) + +foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"cqw\"]($1); })" + js_cqw :: Double -> IO CSSUnitValue +-- | +cqw :: (MonadDOM m) => Double -> m CSSUnitValue +cqw value = liftDOM ((js_cqw (value))) + +-- | +cqw_ :: (MonadDOM m) => Double -> m () +cqw_ value = liftDOM (void ((js_cqw (value)))) + +foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"deg\"]($1); })" + js_deg :: Double -> IO CSSUnitValue +-- | +deg :: (MonadDOM m) => Double -> m CSSUnitValue +deg value = liftDOM ((js_deg (value))) + +-- | +deg_ :: (MonadDOM m) => Double -> m () +deg_ value = liftDOM (void ((js_deg (value)))) + +foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"dpcm\"]($1); })" + js_dpcm :: Double -> IO CSSUnitValue +-- | +dpcm :: (MonadDOM m) => Double -> m CSSUnitValue +dpcm value = liftDOM ((js_dpcm (value))) + +-- | +dpcm_ :: (MonadDOM m) => Double -> m () +dpcm_ value = liftDOM (void ((js_dpcm (value)))) + +foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"dpi\"]($1); })" + js_dpi :: Double -> IO CSSUnitValue +-- | +dpi :: (MonadDOM m) => Double -> m CSSUnitValue +dpi value = liftDOM ((js_dpi (value))) + +-- | +dpi_ :: (MonadDOM m) => Double -> m () +dpi_ value = liftDOM (void ((js_dpi (value)))) + +foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"dppx\"]($1); })" + js_dppx :: Double -> IO CSSUnitValue +-- | +dppx :: (MonadDOM m) => Double -> m CSSUnitValue +dppx value = liftDOM ((js_dppx (value))) + +-- | +dppx_ :: (MonadDOM m) => Double -> m () +dppx_ value = liftDOM (void ((js_dppx (value)))) + +foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"dvb\"]($1); })" + js_dvb :: Double -> IO CSSUnitValue +-- | +dvb :: (MonadDOM m) => Double -> m CSSUnitValue +dvb value = liftDOM ((js_dvb (value))) + +-- | +dvb_ :: (MonadDOM m) => Double -> m () +dvb_ value = liftDOM (void ((js_dvb (value)))) + +foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"dvh\"]($1); })" + js_dvh :: Double -> IO CSSUnitValue +-- | +dvh :: (MonadDOM m) => Double -> m CSSUnitValue +dvh value = liftDOM ((js_dvh (value))) + +-- | +dvh_ :: (MonadDOM m) => Double -> m () +dvh_ value = liftDOM (void ((js_dvh (value)))) + +foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"dvi\"]($1); })" + js_dvi :: Double -> IO CSSUnitValue +-- | +dvi :: (MonadDOM m) => Double -> m CSSUnitValue +dvi value = liftDOM ((js_dvi (value))) + +-- | +dvi_ :: (MonadDOM m) => Double -> m () +dvi_ value = liftDOM (void ((js_dvi (value)))) + +foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"dvmax\"]($1); })" + js_dvmax :: Double -> IO CSSUnitValue +-- | +dvmax :: (MonadDOM m) => Double -> m CSSUnitValue +dvmax value = liftDOM ((js_dvmax (value))) + +-- | +dvmax_ :: (MonadDOM m) => Double -> m () +dvmax_ value = liftDOM (void ((js_dvmax (value)))) + +foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"dvmin\"]($1); })" + js_dvmin :: Double -> IO CSSUnitValue +-- | +dvmin :: (MonadDOM m) => Double -> m CSSUnitValue +dvmin value = liftDOM ((js_dvmin (value))) + +-- | +dvmin_ :: (MonadDOM m) => Double -> m () +dvmin_ value = liftDOM (void ((js_dvmin (value)))) + +foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"dvw\"]($1); })" + js_dvw :: Double -> IO CSSUnitValue +-- | +dvw :: (MonadDOM m) => Double -> m CSSUnitValue +dvw value = liftDOM ((js_dvw (value))) + +-- | +dvw_ :: (MonadDOM m) => Double -> m () +dvw_ value = liftDOM (void ((js_dvw (value)))) + +foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"em\"]($1); })" + js_em :: Double -> IO CSSUnitValue +-- | +em :: (MonadDOM m) => Double -> m CSSUnitValue +em value = liftDOM ((js_em (value))) + +-- | +em_ :: (MonadDOM m) => Double -> m () +em_ value = liftDOM (void ((js_em (value)))) + +foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"escape\"]($1); })" js_escape :: JSString -> IO JSString +-- | +escape :: (MonadDOM m, ToJSString ident, FromJSString result) => ident -> m result +escape ident = liftDOM ((fromJSString <$> (js_escape (toJSString ident)))) --- | -escape :: - (MonadIO m, ToJSString ident, FromJSString result) => - ident -> m result -escape ident - = liftIO (fromJSString <$> (js_escape (toJSString ident))) +-- | +escape_ :: (MonadDOM m, ToJSString ident) => ident -> m () +escape_ ident = liftDOM (void ((js_escape (toJSString ident)))) --- | -escape_ :: (MonadIO m, ToJSString ident) => ident -> m () -escape_ ident = liftIO (void (js_escape (toJSString ident))) +foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"ex\"]($1); })" + js_ex :: Double -> IO CSSUnitValue +-- | +ex :: (MonadDOM m) => Double -> m CSSUnitValue +ex value = liftDOM ((js_ex (value))) + +-- | +ex_ :: (MonadDOM m) => Double -> m () +ex_ value = liftDOM (void ((js_ex (value)))) + +foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"fr\"]($1); })" + js_fr :: Double -> IO CSSUnitValue +-- | +fr :: (MonadDOM m) => Double -> m CSSUnitValue +fr value = liftDOM ((js_fr (value))) + +-- | +fr_ :: (MonadDOM m) => Double -> m () +fr_ value = liftDOM (void ((js_fr (value)))) + +foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"grad\"]($1); })" + js_grad :: Double -> IO CSSUnitValue +-- | +grad :: (MonadDOM m) => Double -> m CSSUnitValue +grad value = liftDOM ((js_grad (value))) + +-- | +grad_ :: (MonadDOM m) => Double -> m () +grad_ value = liftDOM (void ((js_grad (value)))) + +foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"ic\"]($1); })" + js_ic :: Double -> IO CSSUnitValue +-- | +ic :: (MonadDOM m) => Double -> m CSSUnitValue +ic value = liftDOM ((js_ic (value))) + +-- | +ic_ :: (MonadDOM m) => Double -> m () +ic_ value = liftDOM (void ((js_ic (value)))) + +foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"in\"]($1); })" + js_in' :: Double -> IO CSSUnitValue +-- | +in' :: (MonadDOM m) => Double -> m CSSUnitValue +in' value = liftDOM ((js_in' (value))) + +-- | +in'_ :: (MonadDOM m) => Double -> m () +in'_ value = liftDOM (void ((js_in' (value)))) + +foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"kHz\"]($1); })" + js_kHz :: Double -> IO CSSUnitValue +-- | +kHz :: (MonadDOM m) => Double -> m CSSUnitValue +kHz value = liftDOM ((js_kHz (value))) + +-- | +kHz_ :: (MonadDOM m) => Double -> m () +kHz_ value = liftDOM (void ((js_kHz (value)))) + +foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"lh\"]($1); })" + js_lh :: Double -> IO CSSUnitValue +-- | +lh :: (MonadDOM m) => Double -> m CSSUnitValue +lh value = liftDOM ((js_lh (value))) + +-- | +lh_ :: (MonadDOM m) => Double -> m () +lh_ value = liftDOM (void ((js_lh (value)))) + +foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"lvb\"]($1); })" + js_lvb :: Double -> IO CSSUnitValue +-- | +lvb :: (MonadDOM m) => Double -> m CSSUnitValue +lvb value = liftDOM ((js_lvb (value))) + +-- | +lvb_ :: (MonadDOM m) => Double -> m () +lvb_ value = liftDOM (void ((js_lvb (value)))) + +foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"lvh\"]($1); })" + js_lvh :: Double -> IO CSSUnitValue +-- | +lvh :: (MonadDOM m) => Double -> m CSSUnitValue +lvh value = liftDOM ((js_lvh (value))) + +-- | +lvh_ :: (MonadDOM m) => Double -> m () +lvh_ value = liftDOM (void ((js_lvh (value)))) + +foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"lvi\"]($1); })" + js_lvi :: Double -> IO CSSUnitValue +-- | +lvi :: (MonadDOM m) => Double -> m CSSUnitValue +lvi value = liftDOM ((js_lvi (value))) + +-- | +lvi_ :: (MonadDOM m) => Double -> m () +lvi_ value = liftDOM (void ((js_lvi (value)))) + +foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"lvmax\"]($1); })" + js_lvmax :: Double -> IO CSSUnitValue +-- | +lvmax :: (MonadDOM m) => Double -> m CSSUnitValue +lvmax value = liftDOM ((js_lvmax (value))) + +-- | +lvmax_ :: (MonadDOM m) => Double -> m () +lvmax_ value = liftDOM (void ((js_lvmax (value)))) + +foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"lvmin\"]($1); })" + js_lvmin :: Double -> IO CSSUnitValue +-- | +lvmin :: (MonadDOM m) => Double -> m CSSUnitValue +lvmin value = liftDOM ((js_lvmin (value))) + +-- | +lvmin_ :: (MonadDOM m) => Double -> m () +lvmin_ value = liftDOM (void ((js_lvmin (value)))) + +foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"lvw\"]($1); })" + js_lvw :: Double -> IO CSSUnitValue +-- | +lvw :: (MonadDOM m) => Double -> m CSSUnitValue +lvw value = liftDOM ((js_lvw (value))) + +-- | +lvw_ :: (MonadDOM m) => Double -> m () +lvw_ value = liftDOM (void ((js_lvw (value)))) + +foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"mm\"]($1); })" + js_mm :: Double -> IO CSSUnitValue +-- | +mm :: (MonadDOM m) => Double -> m CSSUnitValue +mm value = liftDOM ((js_mm (value))) + +-- | +mm_ :: (MonadDOM m) => Double -> m () +mm_ value = liftDOM (void ((js_mm (value)))) + +foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"ms\"]($1); })" + js_ms :: Double -> IO CSSUnitValue +-- | +ms :: (MonadDOM m) => Double -> m CSSUnitValue +ms value = liftDOM ((js_ms (value))) + +-- | +ms_ :: (MonadDOM m) => Double -> m () +ms_ value = liftDOM (void ((js_ms (value)))) + +foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"number\"]($1); })" + js_number :: Double -> IO CSSUnitValue +-- | +number :: (MonadDOM m) => Double -> m CSSUnitValue +number value = liftDOM ((js_number (value))) + +-- | +number_ :: (MonadDOM m) => Double -> m () +number_ value = liftDOM (void ((js_number (value)))) + +foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"pc\"]($1); })" + js_pc :: Double -> IO CSSUnitValue +-- | +pc :: (MonadDOM m) => Double -> m CSSUnitValue +pc value = liftDOM ((js_pc (value))) + +-- | +pc_ :: (MonadDOM m) => Double -> m () +pc_ value = liftDOM (void ((js_pc (value)))) + +foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"percent\"]($1); })" + js_percent :: Double -> IO CSSUnitValue +-- | +percent :: (MonadDOM m) => Double -> m CSSUnitValue +percent value = liftDOM ((js_percent (value))) + +-- | +percent_ :: (MonadDOM m) => Double -> m () +percent_ value = liftDOM (void ((js_percent (value)))) + +foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"pt\"]($1); })" + js_pt :: Double -> IO CSSUnitValue +-- | +pt :: (MonadDOM m) => Double -> m CSSUnitValue +pt value = liftDOM ((js_pt (value))) + +-- | +pt_ :: (MonadDOM m) => Double -> m () +pt_ value = liftDOM (void ((js_pt (value)))) + +foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"px\"]($1); })" + js_px :: Double -> IO CSSUnitValue +-- | +px :: (MonadDOM m) => Double -> m CSSUnitValue +px value = liftDOM ((js_px (value))) + +-- | +px_ :: (MonadDOM m) => Double -> m () +px_ value = liftDOM (void ((js_px (value)))) + +foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"rad\"]($1); })" + js_rad :: Double -> IO CSSUnitValue +-- | +rad :: (MonadDOM m) => Double -> m CSSUnitValue +rad value = liftDOM ((js_rad (value))) + +-- | +rad_ :: (MonadDOM m) => Double -> m () +rad_ value = liftDOM (void ((js_rad (value)))) + +foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"rcap\"]($1); })" + js_rcap :: Double -> IO CSSUnitValue +-- | +rcap :: (MonadDOM m) => Double -> m CSSUnitValue +rcap value = liftDOM ((js_rcap (value))) + +-- | +rcap_ :: (MonadDOM m) => Double -> m () +rcap_ value = liftDOM (void ((js_rcap (value)))) + +foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"rch\"]($1); })" + js_rch :: Double -> IO CSSUnitValue +-- | +rch :: (MonadDOM m) => Double -> m CSSUnitValue +rch value = liftDOM ((js_rch (value))) + +-- | +rch_ :: (MonadDOM m) => Double -> m () +rch_ value = liftDOM (void ((js_rch (value)))) + +foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"registerProperty\"]($1); })" + js_registerProperty :: PropertyDefinition -> IO () +-- | +registerProperty :: (MonadDOM m) => PropertyDefinition -> m () +registerProperty definition = liftDOM (void ((js_registerProperty (definition)))) + +foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"rem\"]($1); })" + js_rem :: Double -> IO CSSUnitValue +-- | +rem :: (MonadDOM m) => Double -> m CSSUnitValue +rem value = liftDOM ((js_rem (value))) + +-- | +rem_ :: (MonadDOM m) => Double -> m () +rem_ value = liftDOM (void ((js_rem (value)))) + +foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"rex\"]($1); })" + js_rex :: Double -> IO CSSUnitValue +-- | +rex :: (MonadDOM m) => Double -> m CSSUnitValue +rex value = liftDOM ((js_rex (value))) + +-- | +rex_ :: (MonadDOM m) => Double -> m () +rex_ value = liftDOM (void ((js_rex (value)))) + +foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"ric\"]($1); })" + js_ric :: Double -> IO CSSUnitValue +-- | +ric :: (MonadDOM m) => Double -> m CSSUnitValue +ric value = liftDOM ((js_ric (value))) + +-- | +ric_ :: (MonadDOM m) => Double -> m () +ric_ value = liftDOM (void ((js_ric (value)))) + +foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"rlh\"]($1); })" + js_rlh :: Double -> IO CSSUnitValue +-- | +rlh :: (MonadDOM m) => Double -> m CSSUnitValue +rlh value = liftDOM ((js_rlh (value))) + +-- | +rlh_ :: (MonadDOM m) => Double -> m () +rlh_ value = liftDOM (void ((js_rlh (value)))) + +foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"s\"]($1); })" + js_s :: Double -> IO CSSUnitValue +-- | +s :: (MonadDOM m) => Double -> m CSSUnitValue +s value = liftDOM ((js_s (value))) + +-- | +s_ :: (MonadDOM m) => Double -> m () +s_ value = liftDOM (void ((js_s (value)))) + +foreign import javascript safe "(($1, $2) => { return globalThis[\"CSS\"][\"supports\"]($1, $2); })" + js_supports2 :: JSString -> JSString -> IO Bool +-- | +supports2 :: (MonadDOM m, ToJSString property, ToJSString value) => property -> value -> m Bool +supports2 property value = liftDOM ((js_supports2 (toJSString property) (toJSString value))) + +-- | +supports2_ :: (MonadDOM m, ToJSString property, ToJSString value) => property -> value -> m () +supports2_ property value = liftDOM (void ((js_supports2 (toJSString property) (toJSString value)))) + +foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"supports\"]($1); })" + js_supports :: JSString -> IO Bool +-- | +supports :: (MonadDOM m, ToJSString conditionText) => conditionText -> m Bool +supports conditionText = liftDOM ((js_supports (toJSString conditionText))) + +-- | +supports_ :: (MonadDOM m, ToJSString conditionText) => conditionText -> m () +supports_ conditionText = liftDOM (void ((js_supports (toJSString conditionText)))) + +foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"svb\"]($1); })" + js_svb :: Double -> IO CSSUnitValue +-- | +svb :: (MonadDOM m) => Double -> m CSSUnitValue +svb value = liftDOM ((js_svb (value))) + +-- | +svb_ :: (MonadDOM m) => Double -> m () +svb_ value = liftDOM (void ((js_svb (value)))) + +foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"svh\"]($1); })" + js_svh :: Double -> IO CSSUnitValue +-- | +svh :: (MonadDOM m) => Double -> m CSSUnitValue +svh value = liftDOM ((js_svh (value))) + +-- | +svh_ :: (MonadDOM m) => Double -> m () +svh_ value = liftDOM (void ((js_svh (value)))) + +foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"svi\"]($1); })" + js_svi :: Double -> IO CSSUnitValue +-- | +svi :: (MonadDOM m) => Double -> m CSSUnitValue +svi value = liftDOM ((js_svi (value))) + +-- | +svi_ :: (MonadDOM m) => Double -> m () +svi_ value = liftDOM (void ((js_svi (value)))) + +foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"svmax\"]($1); })" + js_svmax :: Double -> IO CSSUnitValue +-- | +svmax :: (MonadDOM m) => Double -> m CSSUnitValue +svmax value = liftDOM ((js_svmax (value))) + +-- | +svmax_ :: (MonadDOM m) => Double -> m () +svmax_ value = liftDOM (void ((js_svmax (value)))) + +foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"svmin\"]($1); })" + js_svmin :: Double -> IO CSSUnitValue +-- | +svmin :: (MonadDOM m) => Double -> m CSSUnitValue +svmin value = liftDOM ((js_svmin (value))) + +-- | +svmin_ :: (MonadDOM m) => Double -> m () +svmin_ value = liftDOM (void ((js_svmin (value)))) + +foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"svw\"]($1); })" + js_svw :: Double -> IO CSSUnitValue +-- | +svw :: (MonadDOM m) => Double -> m CSSUnitValue +svw value = liftDOM ((js_svw (value))) + +-- | +svw_ :: (MonadDOM m) => Double -> m () +svw_ value = liftDOM (void ((js_svw (value)))) + +foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"turn\"]($1); })" + js_turn :: Double -> IO CSSUnitValue +-- | +turn :: (MonadDOM m) => Double -> m CSSUnitValue +turn value = liftDOM ((js_turn (value))) + +-- | +turn_ :: (MonadDOM m) => Double -> m () +turn_ value = liftDOM (void ((js_turn (value)))) + +foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"vb\"]($1); })" + js_vb :: Double -> IO CSSUnitValue +-- | +vb :: (MonadDOM m) => Double -> m CSSUnitValue +vb value = liftDOM ((js_vb (value))) + +-- | +vb_ :: (MonadDOM m) => Double -> m () +vb_ value = liftDOM (void ((js_vb (value)))) + +foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"vh\"]($1); })" + js_vh :: Double -> IO CSSUnitValue +-- | +vh :: (MonadDOM m) => Double -> m CSSUnitValue +vh value = liftDOM ((js_vh (value))) + +-- | +vh_ :: (MonadDOM m) => Double -> m () +vh_ value = liftDOM (void ((js_vh (value)))) + +foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"vi\"]($1); })" + js_vi :: Double -> IO CSSUnitValue +-- | +vi :: (MonadDOM m) => Double -> m CSSUnitValue +vi value = liftDOM ((js_vi (value))) + +-- | +vi_ :: (MonadDOM m) => Double -> m () +vi_ value = liftDOM (void ((js_vi (value)))) + +foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"vmax\"]($1); })" + js_vmax :: Double -> IO CSSUnitValue +-- | +vmax :: (MonadDOM m) => Double -> m CSSUnitValue +vmax value = liftDOM ((js_vmax (value))) + +-- | +vmax_ :: (MonadDOM m) => Double -> m () +vmax_ value = liftDOM (void ((js_vmax (value)))) + +foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"vmin\"]($1); })" + js_vmin :: Double -> IO CSSUnitValue +-- | +vmin :: (MonadDOM m) => Double -> m CSSUnitValue +vmin value = liftDOM ((js_vmin (value))) + +-- | +vmin_ :: (MonadDOM m) => Double -> m () +vmin_ value = liftDOM (void ((js_vmin (value)))) + +foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"vw\"]($1); })" + js_vw :: Double -> IO CSSUnitValue +-- | +vw :: (MonadDOM m) => Double -> m CSSUnitValue +vw value = liftDOM ((js_vw (value))) + +-- | +vw_ :: (MonadDOM m) => Double -> m () +vw_ value = liftDOM (void ((js_vw (value)))) + +foreign import javascript unsafe "(() => { return globalThis[\"CSS\"][\"highlights\"]; })" + js_getHighlights :: IO HighlightRegistry +-- | +getHighlights :: (MonadDOM m) => m HighlightRegistry +getHighlights = liftDOM ((js_getHighlights)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSAnimation.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSAnimation.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CSSAnimation.hs @@ -0,0 +1,23 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from css-animations-2 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CSSAnimation + (js_getAnimationName, getAnimationName, CSSAnimation(..), gTypeCSSAnimation) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript unsafe "(($1) => { return $1[\"animationName\"]; })" + js_getAnimationName :: CSSAnimation -> IO JSString +-- | +getAnimationName :: (MonadDOM m, FromJSString result) => CSSAnimation -> m result +getAnimationName self = liftDOM ((fromJSString <$> (js_getAnimationName (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSConditionRule.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSConditionRule.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CSSConditionRule.hs @@ -0,0 +1,23 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from css-conditional-3 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CSSConditionRule + (js_getConditionText, getConditionText, CSSConditionRule(..), gTypeCSSConditionRule, IsCSSConditionRule, toCSSConditionRule) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript unsafe "(($1) => { return $1[\"conditionText\"]; })" + js_getConditionText :: CSSConditionRule -> IO JSString +-- | +getConditionText :: (MonadDOM m, IsCSSConditionRule self, FromJSString result) => self -> m result +getConditionText self = liftDOM ((fromJSString <$> (js_getConditionText ((Types.toCSSConditionRule self))))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSContainerCondition.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSContainerCondition.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CSSContainerCondition.hs @@ -0,0 +1,47 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from css-conditional-5 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CSSContainerCondition + (js_newCSSContainerCondition, js_setName, js_getName, js_setQuery, js_getQuery, newCSSContainerCondition, setName, getName, setQuery, getQuery, CSSContainerCondition(..), gTypeCSSContainerCondition) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1, $2) => { return ({\"name\": $1, \"query\": $2}); })" + js_newCSSContainerCondition :: JSString -> JSString -> IO CSSContainerCondition +-- | +newCSSContainerCondition :: (MonadDOM m, ToJSString name, ToJSString query) => name -> query -> m CSSContainerCondition +newCSSContainerCondition name query = liftDOM ((js_newCSSContainerCondition (toJSString name) (toJSString query))) + +foreign import javascript safe "(($1, $2) => { $1[\"name\"] = $2; })" + js_setName :: CSSContainerCondition -> JSString -> IO () +-- | +setName :: (MonadDOM m, ToJSString val) => CSSContainerCondition -> val -> m () +setName self val = liftDOM (void ((js_setName (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"name\"]; })" + js_getName :: CSSContainerCondition -> IO JSString +-- | +getName :: (MonadDOM m, FromJSString result) => CSSContainerCondition -> m result +getName self = liftDOM ((fromJSString <$> (js_getName (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"query\"] = $2; })" + js_setQuery :: CSSContainerCondition -> JSString -> IO () +-- | +setQuery :: (MonadDOM m, ToJSString val) => CSSContainerCondition -> val -> m () +setQuery self val = liftDOM (void ((js_setQuery (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"query\"]; })" + js_getQuery :: CSSContainerCondition -> IO JSString +-- | +getQuery :: (MonadDOM m, FromJSString result) => CSSContainerCondition -> m result +getQuery self = liftDOM ((fromJSString <$> (js_getQuery (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSContainerRule.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSContainerRule.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CSSContainerRule.hs @@ -0,0 +1,35 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from css-conditional-5 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CSSContainerRule + (js_getContainerName, js_getContainerQuery, js_getConditions, getContainerName, getContainerQuery, getConditions, CSSContainerRule(..), gTypeCSSContainerRule) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript unsafe "(($1) => { return $1[\"containerName\"]; })" + js_getContainerName :: CSSContainerRule -> IO JSString +-- | +getContainerName :: (MonadDOM m, FromJSString result) => CSSContainerRule -> m result +getContainerName self = liftDOM ((fromJSString <$> (js_getContainerName (self)))) + +foreign import javascript unsafe "(($1) => { return $1[\"containerQuery\"]; })" + js_getContainerQuery :: CSSContainerRule -> IO JSString +-- | +getContainerQuery :: (MonadDOM m, FromJSString result) => CSSContainerRule -> m result +getContainerQuery self = liftDOM ((fromJSString <$> (js_getContainerQuery (self)))) + +foreign import javascript unsafe "(($1) => { return $1[\"conditions\"]; })" + js_getConditions :: CSSContainerRule -> IO JSVal +-- | +getConditions :: (MonadDOM m) => CSSContainerRule -> m [CSSContainerCondition] +getConditions self = liftDOM (((js_getConditions (self)) >>= fromJSValUnchecked)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSCounterStyleRule.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSCounterStyleRule.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CSSCounterStyleRule.hs @@ -0,0 +1,149 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from css-counter-styles-3 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CSSCounterStyleRule + (js_setName, js_getName, js_setSystem, js_getSystem, js_setSymbols, js_getSymbols, js_setAdditiveSymbols, js_getAdditiveSymbols, js_setNegative, js_getNegative, js_setPrefix, js_getPrefix, js_setSuffix, js_getSuffix, js_setRange, js_getRange, js_setPad, js_getPad, js_setSpeakAs, js_getSpeakAs, js_setFallback, js_getFallback, setName, getName, setSystem, getSystem, setSymbols, getSymbols, setAdditiveSymbols, getAdditiveSymbols, setNegative, getNegative, setPrefix, getPrefix, setSuffix, getSuffix, setRange, getRange, setPad, getPad, setSpeakAs, getSpeakAs, setFallback, getFallback, CSSCounterStyleRule(..), gTypeCSSCounterStyleRule) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1, $2) => { $1[\"name\"] = $2; })" + js_setName :: CSSCounterStyleRule -> JSString -> IO () +-- | +setName :: (MonadDOM m, ToJSString val) => CSSCounterStyleRule -> val -> m () +setName self val = liftDOM (void ((js_setName (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"name\"]; })" + js_getName :: CSSCounterStyleRule -> IO JSString +-- | +getName :: (MonadDOM m, FromJSString result) => CSSCounterStyleRule -> m result +getName self = liftDOM ((fromJSString <$> (js_getName (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"system\"] = $2; })" + js_setSystem :: CSSCounterStyleRule -> JSString -> IO () +-- | +setSystem :: (MonadDOM m, ToJSString val) => CSSCounterStyleRule -> val -> m () +setSystem self val = liftDOM (void ((js_setSystem (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"system\"]; })" + js_getSystem :: CSSCounterStyleRule -> IO JSString +-- | +getSystem :: (MonadDOM m, FromJSString result) => CSSCounterStyleRule -> m result +getSystem self = liftDOM ((fromJSString <$> (js_getSystem (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"symbols\"] = $2; })" + js_setSymbols :: CSSCounterStyleRule -> JSString -> IO () +-- | +setSymbols :: (MonadDOM m, ToJSString val) => CSSCounterStyleRule -> val -> m () +setSymbols self val = liftDOM (void ((js_setSymbols (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"symbols\"]; })" + js_getSymbols :: CSSCounterStyleRule -> IO JSString +-- | +getSymbols :: (MonadDOM m, FromJSString result) => CSSCounterStyleRule -> m result +getSymbols self = liftDOM ((fromJSString <$> (js_getSymbols (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"additiveSymbols\"] = $2; })" + js_setAdditiveSymbols :: CSSCounterStyleRule -> JSString -> IO () +-- | +setAdditiveSymbols :: (MonadDOM m, ToJSString val) => CSSCounterStyleRule -> val -> m () +setAdditiveSymbols self val = liftDOM (void ((js_setAdditiveSymbols (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"additiveSymbols\"]; })" + js_getAdditiveSymbols :: CSSCounterStyleRule -> IO JSString +-- | +getAdditiveSymbols :: (MonadDOM m, FromJSString result) => CSSCounterStyleRule -> m result +getAdditiveSymbols self = liftDOM ((fromJSString <$> (js_getAdditiveSymbols (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"negative\"] = $2; })" + js_setNegative :: CSSCounterStyleRule -> JSString -> IO () +-- | +setNegative :: (MonadDOM m, ToJSString val) => CSSCounterStyleRule -> val -> m () +setNegative self val = liftDOM (void ((js_setNegative (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"negative\"]; })" + js_getNegative :: CSSCounterStyleRule -> IO JSString +-- | +getNegative :: (MonadDOM m, FromJSString result) => CSSCounterStyleRule -> m result +getNegative self = liftDOM ((fromJSString <$> (js_getNegative (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"prefix\"] = $2; })" + js_setPrefix :: CSSCounterStyleRule -> JSString -> IO () +-- | +setPrefix :: (MonadDOM m, ToJSString val) => CSSCounterStyleRule -> val -> m () +setPrefix self val = liftDOM (void ((js_setPrefix (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"prefix\"]; })" + js_getPrefix :: CSSCounterStyleRule -> IO JSString +-- | +getPrefix :: (MonadDOM m, FromJSString result) => CSSCounterStyleRule -> m result +getPrefix self = liftDOM ((fromJSString <$> (js_getPrefix (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"suffix\"] = $2; })" + js_setSuffix :: CSSCounterStyleRule -> JSString -> IO () +-- | +setSuffix :: (MonadDOM m, ToJSString val) => CSSCounterStyleRule -> val -> m () +setSuffix self val = liftDOM (void ((js_setSuffix (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"suffix\"]; })" + js_getSuffix :: CSSCounterStyleRule -> IO JSString +-- | +getSuffix :: (MonadDOM m, FromJSString result) => CSSCounterStyleRule -> m result +getSuffix self = liftDOM ((fromJSString <$> (js_getSuffix (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"range\"] = $2; })" + js_setRange :: CSSCounterStyleRule -> JSString -> IO () +-- | +setRange :: (MonadDOM m, ToJSString val) => CSSCounterStyleRule -> val -> m () +setRange self val = liftDOM (void ((js_setRange (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"range\"]; })" + js_getRange :: CSSCounterStyleRule -> IO JSString +-- | +getRange :: (MonadDOM m, FromJSString result) => CSSCounterStyleRule -> m result +getRange self = liftDOM ((fromJSString <$> (js_getRange (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"pad\"] = $2; })" + js_setPad :: CSSCounterStyleRule -> JSString -> IO () +-- | +setPad :: (MonadDOM m, ToJSString val) => CSSCounterStyleRule -> val -> m () +setPad self val = liftDOM (void ((js_setPad (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"pad\"]; })" + js_getPad :: CSSCounterStyleRule -> IO JSString +-- | +getPad :: (MonadDOM m, FromJSString result) => CSSCounterStyleRule -> m result +getPad self = liftDOM ((fromJSString <$> (js_getPad (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"speakAs\"] = $2; })" + js_setSpeakAs :: CSSCounterStyleRule -> JSString -> IO () +-- | +setSpeakAs :: (MonadDOM m, ToJSString val) => CSSCounterStyleRule -> val -> m () +setSpeakAs self val = liftDOM (void ((js_setSpeakAs (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"speakAs\"]; })" + js_getSpeakAs :: CSSCounterStyleRule -> IO JSString +-- | +getSpeakAs :: (MonadDOM m, FromJSString result) => CSSCounterStyleRule -> m result +getSpeakAs self = liftDOM ((fromJSString <$> (js_getSpeakAs (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"fallback\"] = $2; })" + js_setFallback :: CSSCounterStyleRule -> JSString -> IO () +-- | +setFallback :: (MonadDOM m, ToJSString val) => CSSCounterStyleRule -> val -> m () +setFallback self val = liftDOM (void ((js_setFallback (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"fallback\"]; })" + js_getFallback :: CSSCounterStyleRule -> IO JSString +-- | +getFallback :: (MonadDOM m, FromJSString result) => CSSCounterStyleRule -> m result +getFallback self = liftDOM ((fromJSString <$> (js_getFallback (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSFontFaceDescriptors.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSFontFaceDescriptors.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CSSFontFaceDescriptors.hs @@ -0,0 +1,137 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from css-fonts-5 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CSSFontFaceDescriptors + (js_setSrc, js_getSrc, js_setFontFamily, js_getFontFamily, js_setFontStyle, js_getFontStyle, js_setFontWeight, js_getFontWeight, js_setFontStretch, js_getFontStretch, js_setFontWidth, js_getFontWidth, js_setSizeAdjust, js_getSizeAdjust, js_setUnicodeRange, js_getUnicodeRange, js_setFontFeatureSettings, js_getFontFeatureSettings, js_setFontDisplay, js_getFontDisplay, setSrc, getSrc, setFontFamily, getFontFamily, setFontStyle, getFontStyle, setFontWeight, getFontWeight, setFontStretch, getFontStretch, setFontWidth, getFontWidth, setSizeAdjust, getSizeAdjust, setUnicodeRange, getUnicodeRange, setFontFeatureSettings, getFontFeatureSettings, setFontDisplay, getFontDisplay, CSSFontFaceDescriptors(..), gTypeCSSFontFaceDescriptors) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1, $2) => { $1[\"src\"] = $2; })" + js_setSrc :: CSSFontFaceDescriptors -> JSString -> IO () +-- | +setSrc :: (MonadDOM m, ToJSString val) => CSSFontFaceDescriptors -> val -> m () +setSrc self val = liftDOM (void ((js_setSrc (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"src\"]; })" + js_getSrc :: CSSFontFaceDescriptors -> IO JSString +-- | +getSrc :: (MonadDOM m, FromJSString result) => CSSFontFaceDescriptors -> m result +getSrc self = liftDOM ((fromJSString <$> (js_getSrc (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"fontFamily\"] = $2; })" + js_setFontFamily :: CSSFontFaceDescriptors -> JSString -> IO () +-- | +setFontFamily :: (MonadDOM m, ToJSString val) => CSSFontFaceDescriptors -> val -> m () +setFontFamily self val = liftDOM (void ((js_setFontFamily (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"fontFamily\"]; })" + js_getFontFamily :: CSSFontFaceDescriptors -> IO JSString +-- | +getFontFamily :: (MonadDOM m, FromJSString result) => CSSFontFaceDescriptors -> m result +getFontFamily self = liftDOM ((fromJSString <$> (js_getFontFamily (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"fontStyle\"] = $2; })" + js_setFontStyle :: CSSFontFaceDescriptors -> JSString -> IO () +-- | +setFontStyle :: (MonadDOM m, ToJSString val) => CSSFontFaceDescriptors -> val -> m () +setFontStyle self val = liftDOM (void ((js_setFontStyle (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"fontStyle\"]; })" + js_getFontStyle :: CSSFontFaceDescriptors -> IO JSString +-- | +getFontStyle :: (MonadDOM m, FromJSString result) => CSSFontFaceDescriptors -> m result +getFontStyle self = liftDOM ((fromJSString <$> (js_getFontStyle (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"fontWeight\"] = $2; })" + js_setFontWeight :: CSSFontFaceDescriptors -> JSString -> IO () +-- | +setFontWeight :: (MonadDOM m, ToJSString val) => CSSFontFaceDescriptors -> val -> m () +setFontWeight self val = liftDOM (void ((js_setFontWeight (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"fontWeight\"]; })" + js_getFontWeight :: CSSFontFaceDescriptors -> IO JSString +-- | +getFontWeight :: (MonadDOM m, FromJSString result) => CSSFontFaceDescriptors -> m result +getFontWeight self = liftDOM ((fromJSString <$> (js_getFontWeight (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"fontStretch\"] = $2; })" + js_setFontStretch :: CSSFontFaceDescriptors -> JSString -> IO () +-- | +setFontStretch :: (MonadDOM m, ToJSString val) => CSSFontFaceDescriptors -> val -> m () +setFontStretch self val = liftDOM (void ((js_setFontStretch (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"fontStretch\"]; })" + js_getFontStretch :: CSSFontFaceDescriptors -> IO JSString +-- | +getFontStretch :: (MonadDOM m, FromJSString result) => CSSFontFaceDescriptors -> m result +getFontStretch self = liftDOM ((fromJSString <$> (js_getFontStretch (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"fontWidth\"] = $2; })" + js_setFontWidth :: CSSFontFaceDescriptors -> JSString -> IO () +-- | +setFontWidth :: (MonadDOM m, ToJSString val) => CSSFontFaceDescriptors -> val -> m () +setFontWidth self val = liftDOM (void ((js_setFontWidth (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"fontWidth\"]; })" + js_getFontWidth :: CSSFontFaceDescriptors -> IO JSString +-- | +getFontWidth :: (MonadDOM m, FromJSString result) => CSSFontFaceDescriptors -> m result +getFontWidth self = liftDOM ((fromJSString <$> (js_getFontWidth (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"sizeAdjust\"] = $2; })" + js_setSizeAdjust :: CSSFontFaceDescriptors -> JSString -> IO () +-- | +setSizeAdjust :: (MonadDOM m, ToJSString val) => CSSFontFaceDescriptors -> val -> m () +setSizeAdjust self val = liftDOM (void ((js_setSizeAdjust (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"sizeAdjust\"]; })" + js_getSizeAdjust :: CSSFontFaceDescriptors -> IO JSString +-- | +getSizeAdjust :: (MonadDOM m, FromJSString result) => CSSFontFaceDescriptors -> m result +getSizeAdjust self = liftDOM ((fromJSString <$> (js_getSizeAdjust (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"unicodeRange\"] = $2; })" + js_setUnicodeRange :: CSSFontFaceDescriptors -> JSString -> IO () +-- | +setUnicodeRange :: (MonadDOM m, ToJSString val) => CSSFontFaceDescriptors -> val -> m () +setUnicodeRange self val = liftDOM (void ((js_setUnicodeRange (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"unicodeRange\"]; })" + js_getUnicodeRange :: CSSFontFaceDescriptors -> IO JSString +-- | +getUnicodeRange :: (MonadDOM m, FromJSString result) => CSSFontFaceDescriptors -> m result +getUnicodeRange self = liftDOM ((fromJSString <$> (js_getUnicodeRange (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"fontFeatureSettings\"] = $2; })" + js_setFontFeatureSettings :: CSSFontFaceDescriptors -> JSString -> IO () +-- | +setFontFeatureSettings :: (MonadDOM m, ToJSString val) => CSSFontFaceDescriptors -> val -> m () +setFontFeatureSettings self val = liftDOM (void ((js_setFontFeatureSettings (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"fontFeatureSettings\"]; })" + js_getFontFeatureSettings :: CSSFontFaceDescriptors -> IO JSString +-- | +getFontFeatureSettings :: (MonadDOM m, FromJSString result) => CSSFontFaceDescriptors -> m result +getFontFeatureSettings self = liftDOM ((fromJSString <$> (js_getFontFeatureSettings (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"fontDisplay\"] = $2; })" + js_setFontDisplay :: CSSFontFaceDescriptors -> JSString -> IO () +-- | +setFontDisplay :: (MonadDOM m, ToJSString val) => CSSFontFaceDescriptors -> val -> m () +setFontDisplay self val = liftDOM (void ((js_setFontDisplay (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"fontDisplay\"]; })" + js_getFontDisplay :: CSSFontFaceDescriptors -> IO JSString +-- | +getFontDisplay :: (MonadDOM m, FromJSString result) => CSSFontFaceDescriptors -> m result +getFontDisplay self = liftDOM ((fromJSString <$> (js_getFontDisplay (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSFontFaceLoadEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSFontFaceLoadEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/CSSFontFaceLoadEvent.hs +++ /dev/null @@ -1,91 +0,0 @@ -{-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE JavaScriptFFI #-} --- For HasCallStack compatibility -{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} -module GHCJS.DOM.JSFFI.Generated.CSSFontFaceLoadEvent - (js_newCSSFontFaceLoadEvent, newCSSFontFaceLoadEvent, - js_getFontface, getFontface, getFontfaceUnsafe, - getFontfaceUnchecked, js_getError, getError, getErrorUnsafe, - getErrorUnchecked, CSSFontFaceLoadEvent(..), - gTypeCSSFontFaceLoadEvent) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull, jsUndefined) -import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import Data.Maybe (fromJust) -import Data.Traversable (mapM) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) -import GHCJS.DOM.JSFFI.Generated.Enums - -foreign import javascript unsafe - "(($1, $2) => { return new window[\"CSSFontFaceLoadEvent\"]($1,\n$2); })" - js_newCSSFontFaceLoadEvent :: - JSString -> - Optional CSSFontFaceLoadEventInit -> IO CSSFontFaceLoadEvent - --- | -newCSSFontFaceLoadEvent :: - (MonadIO m, ToJSString type') => - type' -> Maybe CSSFontFaceLoadEventInit -> m CSSFontFaceLoadEvent -newCSSFontFaceLoadEvent type' eventInit - = liftIO - (js_newCSSFontFaceLoadEvent (toJSString type') - (maybeToOptional eventInit)) - -foreign import javascript unsafe "(($1) => { return $1[\"fontface\"]; })" js_getFontface - :: CSSFontFaceLoadEvent -> IO (Nullable CSSFontFaceRule) - --- | -getFontface :: - (MonadIO m) => CSSFontFaceLoadEvent -> m (Maybe CSSFontFaceRule) -getFontface self - = liftIO (nullableToMaybe <$> (js_getFontface self)) - --- | -getFontfaceUnsafe :: - (MonadIO m, HasCallStack) => - CSSFontFaceLoadEvent -> m CSSFontFaceRule -getFontfaceUnsafe self - = liftIO - ((nullableToMaybe <$> (js_getFontface self)) >>= - maybe (Prelude.error "Nothing to return") return) - --- | -getFontfaceUnchecked :: - (MonadIO m) => CSSFontFaceLoadEvent -> m CSSFontFaceRule -getFontfaceUnchecked self - = liftIO (fromJust . nullableToMaybe <$> (js_getFontface self)) - -foreign import javascript unsafe "(($1) => { return $1[\"error\"]; })" js_getError :: - CSSFontFaceLoadEvent -> IO (Nullable DOMError) - --- | -getError :: - (MonadIO m) => CSSFontFaceLoadEvent -> m (Maybe DOMError) -getError self = liftIO (nullableToMaybe <$> (js_getError self)) - --- | -getErrorUnsafe :: - (MonadIO m, HasCallStack) => CSSFontFaceLoadEvent -> m DOMError -getErrorUnsafe self - = liftIO - ((nullableToMaybe <$> (js_getError self)) >>= - maybe (Prelude.error "Nothing to return") return) - --- | -getErrorUnchecked :: - (MonadIO m) => CSSFontFaceLoadEvent -> m DOMError -getErrorUnchecked self - = liftIO (fromJust . nullableToMaybe <$> (js_getError self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSFontFaceRule.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSFontFaceRule.hs --- a/src/GHCJS/DOM/JSFFI/Generated/CSSFontFaceRule.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/CSSFontFaceRule.hs @@ -1,33 +1,23 @@ {-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE JavaScriptFFI #-} --- For HasCallStack compatibility +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from css-fonts-5 (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.CSSFontFaceRule (js_getStyle, getStyle, CSSFontFaceRule(..), gTypeCSSFontFaceRule) where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull, jsUndefined) -import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import Data.Maybe (fromJust) -import Data.Traversable (mapM) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types -import Control.Applicative ((<$>)) +import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums - -foreign import javascript unsafe "(($1) => { return $1[\"style\"]; })" js_getStyle :: - CSSFontFaceRule -> IO CSSStyleDeclaration --- | -getStyle :: (MonadIO m) => CSSFontFaceRule -> m CSSStyleDeclaration -getStyle self = liftIO (js_getStyle self) +foreign import javascript unsafe "(($1) => { return $1[\"style\"]; })" + js_getStyle :: CSSFontFaceRule -> IO CSSFontFaceDescriptors +-- | +getStyle :: (MonadDOM m) => CSSFontFaceRule -> m CSSFontFaceDescriptors +getStyle self = liftDOM ((js_getStyle (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSFontFeatureValuesRule.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSFontFeatureValuesRule.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CSSFontFeatureValuesRule.hs @@ -0,0 +1,29 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from css-fonts-4 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CSSFontFeatureValuesRule + (js_setFontFamily, js_getFontFamily, setFontFamily, getFontFamily, CSSFontFeatureValuesRule(..), gTypeCSSFontFeatureValuesRule) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1, $2) => { $1[\"fontFamily\"] = $2; })" + js_setFontFamily :: CSSFontFeatureValuesRule -> JSString -> IO () +-- | +setFontFamily :: (MonadDOM m, ToJSString val) => CSSFontFeatureValuesRule -> val -> m () +setFontFamily self val = liftDOM (void ((js_setFontFamily (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"fontFamily\"]; })" + js_getFontFamily :: CSSFontFeatureValuesRule -> IO JSString +-- | +getFontFamily :: (MonadDOM m, FromJSString result) => CSSFontFeatureValuesRule -> m result +getFontFamily self = liftDOM ((fromJSString <$> (js_getFontFamily (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSFontPaletteValuesRule.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSFontPaletteValuesRule.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CSSFontPaletteValuesRule.hs @@ -0,0 +1,41 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from css-fonts-4 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CSSFontPaletteValuesRule + (js_getName, js_getFontFamily, js_getBasePalette, js_getOverrideColors, getName, getFontFamily, getBasePalette, getOverrideColors, CSSFontPaletteValuesRule(..), gTypeCSSFontPaletteValuesRule) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript unsafe "(($1) => { return $1[\"name\"]; })" + js_getName :: CSSFontPaletteValuesRule -> IO JSString +-- | +getName :: (MonadDOM m, FromJSString result) => CSSFontPaletteValuesRule -> m result +getName self = liftDOM ((fromJSString <$> (js_getName (self)))) + +foreign import javascript unsafe "(($1) => { return $1[\"fontFamily\"]; })" + js_getFontFamily :: CSSFontPaletteValuesRule -> IO JSString +-- | +getFontFamily :: (MonadDOM m, FromJSString result) => CSSFontPaletteValuesRule -> m result +getFontFamily self = liftDOM ((fromJSString <$> (js_getFontFamily (self)))) + +foreign import javascript unsafe "(($1) => { return $1[\"basePalette\"]; })" + js_getBasePalette :: CSSFontPaletteValuesRule -> IO JSString +-- | +getBasePalette :: (MonadDOM m, FromJSString result) => CSSFontPaletteValuesRule -> m result +getBasePalette self = liftDOM ((fromJSString <$> (js_getBasePalette (self)))) + +foreign import javascript unsafe "(($1) => { return $1[\"overrideColors\"]; })" + js_getOverrideColors :: CSSFontPaletteValuesRule -> IO JSString +-- | +getOverrideColors :: (MonadDOM m, FromJSString result) => CSSFontPaletteValuesRule -> m result +getOverrideColors self = liftDOM ((fromJSString <$> (js_getOverrideColors (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSGroupingRule.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSGroupingRule.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CSSGroupingRule.hs @@ -0,0 +1,39 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from cssom-1 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CSSGroupingRule + (js_deleteRule, js_insertRule, js_getCssRules, deleteRule, insertRule, insertRule_, getCssRules, CSSGroupingRule(..), gTypeCSSGroupingRule, IsCSSGroupingRule, toCSSGroupingRule) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1, $2) => { return $1[\"deleteRule\"]($2); })" + js_deleteRule :: CSSGroupingRule -> Word -> IO () +-- | +deleteRule :: (MonadDOM m, IsCSSGroupingRule self) => self -> Word -> m () +deleteRule self index = liftDOM (void ((js_deleteRule ((Types.toCSSGroupingRule self)) (index)))) + +foreign import javascript safe "(($1, $2, $3) => { return $1[\"insertRule\"]($2, $3); })" + js_insertRule :: CSSGroupingRule -> JSString -> JSVal -> IO Word +-- | +insertRule :: (MonadDOM m, IsCSSGroupingRule self, ToJSString rule) => self -> rule -> Maybe Word -> m Word +insertRule self rule index = liftDOM (((P.maybe (P.return jsUndefined) toJSVal index) >>= \a3' -> js_insertRule ((Types.toCSSGroupingRule self)) (toJSString rule) a3')) + +-- | +insertRule_ :: (MonadDOM m, IsCSSGroupingRule self, ToJSString rule) => self -> rule -> Maybe Word -> m () +insertRule_ self rule index = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal index) >>= \a3' -> js_insertRule ((Types.toCSSGroupingRule self)) (toJSString rule) a3'))) + +foreign import javascript unsafe "(($1) => { return $1[\"cssRules\"]; })" + js_getCssRules :: CSSGroupingRule -> IO CSSRuleList +-- | +getCssRules :: (MonadDOM m, IsCSSGroupingRule self) => self -> m CSSRuleList +getCssRules self = liftDOM ((js_getCssRules ((Types.toCSSGroupingRule self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSImageValue.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSImageValue.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CSSImageValue.hs @@ -0,0 +1,18 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from css-typed-om-1 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CSSImageValue + (CSSImageValue(..), gTypeCSSImageValue) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSImportRule.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSImportRule.hs --- a/src/GHCJS/DOM/JSFFI/Generated/CSSImportRule.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/CSSImportRule.hs @@ -1,66 +1,71 @@ {-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE JavaScriptFFI #-} --- For HasCallStack compatibility +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from cssom-1 (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.CSSImportRule - (js_getHref, getHref, getHrefUnsafe, getHrefUnchecked, js_getMedia, - getMedia, js_getStyleSheet, getStyleSheet, CSSImportRule(..), - gTypeCSSImportRule) + (js_getHref, js_getMedia, js_getStyleSheet, js_getLayerName, js_getSupportsText, getHref, getMedia, getStyleSheet, getStyleSheetUnsafe, getStyleSheetUnchecked, getLayerName, getLayerNameUnsafe, getLayerNameUnchecked, getSupportsText, getSupportsTextUnsafe, getSupportsTextUnchecked, CSSImportRule(..), gTypeCSSImportRule) where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull, jsUndefined) -import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import Data.Maybe (fromJust) -import Data.Traversable (mapM) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types -import Control.Applicative ((<$>)) +import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums - -foreign import javascript unsafe "(($1) => { return $1[\"href\"]; })" js_getHref :: - CSSImportRule -> IO (Nullable JSString) --- | -getHref :: - (MonadIO m, FromJSString result) => - CSSImportRule -> m (Maybe result) -getHref self = liftIO (fromMaybeJSString <$> (js_getHref self)) - --- | -getHrefUnsafe :: - (MonadIO m, HasCallStack, FromJSString result) => - CSSImportRule -> m result -getHrefUnsafe self - = liftIO - ((fromMaybeJSString <$> (js_getHref self)) >>= - maybe (Prelude.error "Nothing to return") return) +foreign import javascript unsafe "(($1) => { return $1[\"href\"]; })" + js_getHref :: CSSImportRule -> IO JSString +-- | +getHref :: (MonadDOM m, FromJSString result) => CSSImportRule -> m result +getHref self = liftDOM ((fromJSString <$> (js_getHref (self)))) --- | -getHrefUnchecked :: - (MonadIO m, FromJSString result) => CSSImportRule -> m result -getHrefUnchecked self - = liftIO (fromJust . fromMaybeJSString <$> (js_getHref self)) - -foreign import javascript unsafe "(($1) => { return $1[\"media\"]; })" js_getMedia :: - CSSImportRule -> IO MediaList +foreign import javascript unsafe "(($1) => { return $1[\"media\"]; })" + js_getMedia :: CSSImportRule -> IO MediaList +-- | +getMedia :: (MonadDOM m) => CSSImportRule -> m MediaList +getMedia self = liftDOM ((js_getMedia (self))) --- | -getMedia :: (MonadIO m) => CSSImportRule -> m MediaList -getMedia self = liftIO (js_getMedia self) - foreign import javascript unsafe "(($1) => { return $1[\"styleSheet\"]; })" - js_getStyleSheet :: CSSImportRule -> IO CSSStyleSheet + js_getStyleSheet :: CSSImportRule -> IO JSVal +-- | +getStyleSheet :: (MonadDOM m) => CSSImportRule -> m (Maybe CSSStyleSheet) +getStyleSheet self = liftDOM (((js_getStyleSheet (self)) >>= fromJSValUnchecked)) --- | -getStyleSheet :: (MonadIO m) => CSSImportRule -> m CSSStyleSheet -getStyleSheet self = liftIO (js_getStyleSheet self) +-- | +getStyleSheetUnsafe :: (MonadDOM m, HasCallStack) => CSSImportRule -> m CSSStyleSheet +getStyleSheetUnsafe self = liftDOM ((((js_getStyleSheet (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getStyleSheetUnchecked :: (MonadDOM m) => CSSImportRule -> m CSSStyleSheet +getStyleSheetUnchecked self = liftDOM ((pFromJSVal <$> (js_getStyleSheet (self)))) + +foreign import javascript unsafe "(($1) => { return $1[\"layerName\"]; })" + js_getLayerName :: CSSImportRule -> IO JSVal +-- | +getLayerName :: (MonadDOM m, FromJSString result) => CSSImportRule -> m (Maybe result) +getLayerName self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getLayerName (self)))) + +-- | +getLayerNameUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => CSSImportRule -> m result +getLayerNameUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getLayerName (self))) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getLayerNameUnchecked :: (MonadDOM m, FromJSString result) => CSSImportRule -> m result +getLayerNameUnchecked self = liftDOM ((pFromJSVal <$> (js_getLayerName (self)))) + +foreign import javascript unsafe "(($1) => { return $1[\"supportsText\"]; })" + js_getSupportsText :: CSSImportRule -> IO JSVal +-- | +getSupportsText :: (MonadDOM m, FromJSString result) => CSSImportRule -> m (Maybe result) +getSupportsText self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getSupportsText (self)))) + +-- | +getSupportsTextUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => CSSImportRule -> m result +getSupportsTextUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getSupportsText (self))) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getSupportsTextUnchecked :: (MonadDOM m, FromJSString result) => CSSImportRule -> m result +getSupportsTextUnchecked self = liftDOM ((pFromJSVal <$> (js_getSupportsText (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSKeyframeRule.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSKeyframeRule.hs --- a/src/GHCJS/DOM/JSFFI/Generated/CSSKeyframeRule.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/CSSKeyframeRule.hs @@ -1,50 +1,35 @@ {-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE JavaScriptFFI #-} --- For HasCallStack compatibility +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from css-animations-1 (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.CSSKeyframeRule - (js_setKeyText, setKeyText, js_getKeyText, getKeyText, js_getStyle, - getStyle, CSSKeyframeRule(..), gTypeCSSKeyframeRule) + (js_setKeyText, js_getKeyText, js_getStyle, setKeyText, getKeyText, getStyle, CSSKeyframeRule(..), gTypeCSSKeyframeRule) where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull, jsUndefined) -import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import Data.Maybe (fromJust) -import Data.Traversable (mapM) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types -import Control.Applicative ((<$>)) +import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums - -foreign import javascript unsafe "(($1, $2) => { $1[\"keyText\"] = $2; })" - js_setKeyText :: CSSKeyframeRule -> JSString -> IO () --- | -setKeyText :: - (MonadIO m, ToJSString val) => CSSKeyframeRule -> val -> m () -setKeyText self val = liftIO (js_setKeyText self (toJSString val)) - -foreign import javascript unsafe "(($1) => { return $1[\"keyText\"]; })" js_getKeyText :: - CSSKeyframeRule -> IO JSString +foreign import javascript safe "(($1, $2) => { $1[\"keyText\"] = $2; })" + js_setKeyText :: CSSKeyframeRule -> JSString -> IO () +-- | +setKeyText :: (MonadDOM m, ToJSString val) => CSSKeyframeRule -> val -> m () +setKeyText self val = liftDOM (void ((js_setKeyText (self) (toJSString val)))) --- | -getKeyText :: - (MonadIO m, FromJSString result) => CSSKeyframeRule -> m result -getKeyText self = liftIO (fromJSString <$> (js_getKeyText self)) - -foreign import javascript unsafe "(($1) => { return $1[\"style\"]; })" js_getStyle :: - CSSKeyframeRule -> IO CSSStyleDeclaration +foreign import javascript unsafe "(($1) => { return $1[\"keyText\"]; })" + js_getKeyText :: CSSKeyframeRule -> IO JSString +-- | +getKeyText :: (MonadDOM m, FromJSString result) => CSSKeyframeRule -> m result +getKeyText self = liftDOM ((fromJSString <$> (js_getKeyText (self)))) --- | -getStyle :: (MonadIO m) => CSSKeyframeRule -> m CSSStyleDeclaration -getStyle self = liftIO (js_getStyle self) +foreign import javascript unsafe "(($1) => { return $1[\"style\"]; })" + js_getStyle :: CSSKeyframeRule -> IO CSSStyleProperties +-- | +getStyle :: (MonadDOM m) => CSSKeyframeRule -> m CSSStyleProperties +getStyle self = liftDOM ((js_getStyle (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSKeyframesRule.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSKeyframesRule.hs --- a/src/GHCJS/DOM/JSFFI/Generated/CSSKeyframesRule.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/CSSKeyframesRule.hs @@ -1,124 +1,71 @@ {-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE JavaScriptFFI #-} --- For HasCallStack compatibility +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from css-animations-1 (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.CSSKeyframesRule - (js_insertRule, insertRule, js_appendRule, appendRule, - js_deleteRule, deleteRule, js_findRule, findRule, findRule_, - findRuleUnsafe, findRuleUnchecked, js_get, get, get_, js_setName, - setName, js_getName, getName, js_getCssRules, getCssRules, - CSSKeyframesRule(..), gTypeCSSKeyframesRule) + (js_appendRule, js_deleteRule, js_findRule, js_setName, js_getName, js_getCssRules, js_getLength, appendRule, deleteRule, findRule, findRule_, findRuleUnsafe, findRuleUnchecked, setName, getName, getCssRules, getLength, CSSKeyframesRule(..), gTypeCSSKeyframesRule) where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull, jsUndefined) -import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import Data.Maybe (fromJust) -import Data.Traversable (mapM) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types -import Control.Applicative ((<$>)) +import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums - -foreign import javascript unsafe "(($1, $2) => { return $1[\"insertRule\"]($2); })" - js_insertRule :: CSSKeyframesRule -> JSString -> IO () --- | -insertRule :: - (MonadIO m, ToJSString rule) => CSSKeyframesRule -> rule -> m () -insertRule self rule - = liftIO (js_insertRule self (toJSString rule)) - -foreign import javascript unsafe "(($1, $2) => { return $1[\"appendRule\"]($2); })" +foreign import javascript safe "(($1, $2) => { return $1[\"appendRule\"]($2); })" js_appendRule :: CSSKeyframesRule -> JSString -> IO () +-- | +appendRule :: (MonadDOM m, ToJSString rule) => CSSKeyframesRule -> rule -> m () +appendRule self rule = liftDOM (void ((js_appendRule (self) (toJSString rule)))) --- | -appendRule :: - (MonadIO m, ToJSString rule) => CSSKeyframesRule -> rule -> m () -appendRule self rule - = liftIO (js_appendRule self (toJSString rule)) - -foreign import javascript unsafe "(($1, $2) => { return $1[\"deleteRule\"]($2); })" +foreign import javascript safe "(($1, $2) => { return $1[\"deleteRule\"]($2); })" js_deleteRule :: CSSKeyframesRule -> JSString -> IO () - --- | -deleteRule :: - (MonadIO m, ToJSString key) => CSSKeyframesRule -> key -> m () -deleteRule self key = liftIO (js_deleteRule self (toJSString key)) - -foreign import javascript unsafe "(($1, $2) => { return $1[\"findRule\"]($2); })" js_findRule - :: CSSKeyframesRule -> JSString -> IO (Nullable CSSKeyframeRule) - --- | -findRule :: - (MonadIO m, ToJSString key) => - CSSKeyframesRule -> key -> m (Maybe CSSKeyframeRule) -findRule self key - = liftIO (nullableToMaybe <$> (js_findRule self (toJSString key))) +-- | +deleteRule :: (MonadDOM m, ToJSString select) => CSSKeyframesRule -> select -> m () +deleteRule self select = liftDOM (void ((js_deleteRule (self) (toJSString select)))) --- | -findRule_ :: - (MonadIO m, ToJSString key) => CSSKeyframesRule -> key -> m () -findRule_ self key - = liftIO (void (js_findRule self (toJSString key))) +foreign import javascript safe "(($1, $2) => { return $1[\"findRule\"]($2); })" + js_findRule :: CSSKeyframesRule -> JSString -> IO JSVal +-- | +findRule :: (MonadDOM m, ToJSString select) => CSSKeyframesRule -> select -> m (Maybe CSSKeyframeRule) +findRule self select = liftDOM (((js_findRule (self) (toJSString select)) >>= fromJSValUnchecked)) --- | -findRuleUnsafe :: - (MonadIO m, ToJSString key, HasCallStack) => - CSSKeyframesRule -> key -> m CSSKeyframeRule -findRuleUnsafe self key - = liftIO - ((nullableToMaybe <$> (js_findRule self (toJSString key))) >>= - maybe (Prelude.error "Nothing to return") return) +-- | +findRule_ :: (MonadDOM m, ToJSString select) => CSSKeyframesRule -> select -> m () +findRule_ self select = liftDOM (void ((js_findRule (self) (toJSString select)))) --- | -findRuleUnchecked :: - (MonadIO m, ToJSString key) => - CSSKeyframesRule -> key -> m CSSKeyframeRule -findRuleUnchecked self key - = liftIO - (fromJust . nullableToMaybe <$> - (js_findRule self (toJSString key))) - -foreign import javascript unsafe "(($1, $2) => { return $1[$2]; })" js_get :: - CSSKeyframesRule -> Word -> IO CSSKeyframeRule +-- | +findRuleUnsafe :: (MonadDOM m, ToJSString select, HasCallStack) => CSSKeyframesRule -> select -> m CSSKeyframeRule +findRuleUnsafe self select = liftDOM ((((js_findRule (self) (toJSString select)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) --- | -get :: (MonadIO m) => CSSKeyframesRule -> Word -> m CSSKeyframeRule -get self index = liftIO (js_get self index) +-- | +findRuleUnchecked :: (MonadDOM m, ToJSString select) => CSSKeyframesRule -> select -> m CSSKeyframeRule +findRuleUnchecked self select = liftDOM ((pFromJSVal <$> (js_findRule (self) (toJSString select)))) --- | -get_ :: (MonadIO m) => CSSKeyframesRule -> Word -> m () -get_ self index = liftIO (void (js_get self index)) - -foreign import javascript unsafe "(($1, $2) => { $1[\"name\"] = $2; })" js_setName :: - CSSKeyframesRule -> JSString -> IO () +foreign import javascript safe "(($1, $2) => { $1[\"name\"] = $2; })" + js_setName :: CSSKeyframesRule -> JSString -> IO () +-- | +setName :: (MonadDOM m, ToJSString val) => CSSKeyframesRule -> val -> m () +setName self val = liftDOM (void ((js_setName (self) (toJSString val)))) --- | -setName :: - (MonadIO m, ToJSString val) => CSSKeyframesRule -> val -> m () -setName self val = liftIO (js_setName self (toJSString val)) - -foreign import javascript unsafe "(($1) => { return $1[\"name\"]; })" js_getName :: - CSSKeyframesRule -> IO JSString +foreign import javascript unsafe "(($1) => { return $1[\"name\"]; })" + js_getName :: CSSKeyframesRule -> IO JSString +-- | +getName :: (MonadDOM m, FromJSString result) => CSSKeyframesRule -> m result +getName self = liftDOM ((fromJSString <$> (js_getName (self)))) --- | -getName :: - (MonadIO m, FromJSString result) => CSSKeyframesRule -> m result -getName self = liftIO (fromJSString <$> (js_getName self)) - -foreign import javascript unsafe "(($1) => { return $1[\"cssRules\"]; })" js_getCssRules - :: CSSKeyframesRule -> IO CSSRuleList +foreign import javascript unsafe "(($1) => { return $1[\"cssRules\"]; })" + js_getCssRules :: CSSKeyframesRule -> IO CSSRuleList +-- | +getCssRules :: (MonadDOM m) => CSSKeyframesRule -> m CSSRuleList +getCssRules self = liftDOM ((js_getCssRules (self))) --- | -getCssRules :: (MonadIO m) => CSSKeyframesRule -> m CSSRuleList -getCssRules self = liftIO (js_getCssRules self) +foreign import javascript unsafe "(($1) => { return $1[\"length\"]; })" + js_getLength :: CSSKeyframesRule -> IO Word +-- | +getLength :: (MonadDOM m) => CSSKeyframesRule -> m Word +getLength self = liftDOM ((js_getLength (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSKeywordValue.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSKeywordValue.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CSSKeywordValue.hs @@ -0,0 +1,35 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from css-typed-om-1 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CSSKeywordValue + (js_newCSSKeywordValue, js_setValue, js_getValue, newCSSKeywordValue, setValue, getValue, CSSKeywordValue(..), gTypeCSSKeywordValue) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1) => { return new globalThis[\"CSSKeywordValue\"]($1); })" + js_newCSSKeywordValue :: JSString -> IO CSSKeywordValue +-- | +newCSSKeywordValue :: (MonadDOM m, ToJSString value) => value -> m CSSKeywordValue +newCSSKeywordValue value = liftDOM ((js_newCSSKeywordValue (toJSString value))) + +foreign import javascript safe "(($1, $2) => { $1[\"value\"] = $2; })" + js_setValue :: CSSKeywordValue -> JSString -> IO () +-- | +setValue :: (MonadDOM m, ToJSString val) => CSSKeywordValue -> val -> m () +setValue self val = liftDOM (void ((js_setValue (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"value\"]; })" + js_getValue :: CSSKeywordValue -> IO JSString +-- | +getValue :: (MonadDOM m, FromJSString result) => CSSKeywordValue -> m result +getValue self = liftDOM ((fromJSString <$> (js_getValue (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSLayerBlockRule.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSLayerBlockRule.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CSSLayerBlockRule.hs @@ -0,0 +1,23 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from css-cascade-5 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CSSLayerBlockRule + (js_getName, getName, CSSLayerBlockRule(..), gTypeCSSLayerBlockRule) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript unsafe "(($1) => { return $1[\"name\"]; })" + js_getName :: CSSLayerBlockRule -> IO JSString +-- | +getName :: (MonadDOM m, FromJSString result) => CSSLayerBlockRule -> m result +getName self = liftDOM ((fromJSString <$> (js_getName (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSLayerStatementRule.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSLayerStatementRule.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CSSLayerStatementRule.hs @@ -0,0 +1,23 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from css-cascade-5 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CSSLayerStatementRule + (js_getNameList, getNameList, CSSLayerStatementRule(..), gTypeCSSLayerStatementRule) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript unsafe "(($1) => { return $1[\"nameList\"]; })" + js_getNameList :: CSSLayerStatementRule -> IO JSVal +-- | +getNameList :: (MonadDOM m, FromJSString result) => CSSLayerStatementRule -> m [result] +getNameList self = liftDOM (((js_getNameList (self)) >>= fromJSValUnchecked)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSMathClamp.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSMathClamp.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CSSMathClamp.hs @@ -0,0 +1,41 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from css-typed-om-1 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CSSMathClamp + (js_newCSSMathClamp, js_getLower, js_getValue, js_getUpper, newCSSMathClamp, getLower, getValue, getUpper, CSSMathClamp(..), gTypeCSSMathClamp) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1, $2, $3) => { return new globalThis[\"CSSMathClamp\"]($1, $2, $3); })" + js_newCSSMathClamp :: CSSNumberish -> CSSNumberish -> CSSNumberish -> IO CSSMathClamp +-- | +newCSSMathClamp :: (MonadDOM m, IsCSSNumberish lower, IsCSSNumberish value, IsCSSNumberish upper) => lower -> value -> upper -> m CSSMathClamp +newCSSMathClamp lower value upper = liftDOM ((js_newCSSMathClamp (Types.toCSSNumberish lower) (Types.toCSSNumberish value) (Types.toCSSNumberish upper))) + +foreign import javascript unsafe "(($1) => { return $1[\"lower\"]; })" + js_getLower :: CSSMathClamp -> IO CSSNumericValue +-- | +getLower :: (MonadDOM m) => CSSMathClamp -> m CSSNumericValue +getLower self = liftDOM ((js_getLower (self))) + +foreign import javascript unsafe "(($1) => { return $1[\"value\"]; })" + js_getValue :: CSSMathClamp -> IO CSSNumericValue +-- | +getValue :: (MonadDOM m) => CSSMathClamp -> m CSSNumericValue +getValue self = liftDOM ((js_getValue (self))) + +foreign import javascript unsafe "(($1) => { return $1[\"upper\"]; })" + js_getUpper :: CSSMathClamp -> IO CSSNumericValue +-- | +getUpper :: (MonadDOM m) => CSSMathClamp -> m CSSNumericValue +getUpper self = liftDOM ((js_getUpper (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSMathInvert.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSMathInvert.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CSSMathInvert.hs @@ -0,0 +1,29 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from css-typed-om-1 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CSSMathInvert + (js_newCSSMathInvert, js_getValue, newCSSMathInvert, getValue, CSSMathInvert(..), gTypeCSSMathInvert) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1) => { return new globalThis[\"CSSMathInvert\"]($1); })" + js_newCSSMathInvert :: CSSNumberish -> IO CSSMathInvert +-- | +newCSSMathInvert :: (MonadDOM m, IsCSSNumberish arg) => arg -> m CSSMathInvert +newCSSMathInvert arg = liftDOM ((js_newCSSMathInvert (Types.toCSSNumberish arg))) + +foreign import javascript unsafe "(($1) => { return $1[\"value\"]; })" + js_getValue :: CSSMathInvert -> IO CSSNumericValue +-- | +getValue :: (MonadDOM m) => CSSMathInvert -> m CSSNumericValue +getValue self = liftDOM ((js_getValue (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSMathMax.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSMathMax.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CSSMathMax.hs @@ -0,0 +1,23 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from css-typed-om-1 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CSSMathMax + (js_getValues, getValues, CSSMathMax(..), gTypeCSSMathMax) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript unsafe "(($1) => { return $1[\"values\"]; })" + js_getValues :: CSSMathMax -> IO CSSNumericArray +-- | +getValues :: (MonadDOM m) => CSSMathMax -> m CSSNumericArray +getValues self = liftDOM ((js_getValues (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSMathMin.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSMathMin.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CSSMathMin.hs @@ -0,0 +1,23 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from css-typed-om-1 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CSSMathMin + (js_getValues, getValues, CSSMathMin(..), gTypeCSSMathMin) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript unsafe "(($1) => { return $1[\"values\"]; })" + js_getValues :: CSSMathMin -> IO CSSNumericArray +-- | +getValues :: (MonadDOM m) => CSSMathMin -> m CSSNumericArray +getValues self = liftDOM ((js_getValues (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSMathNegate.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSMathNegate.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CSSMathNegate.hs @@ -0,0 +1,29 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from css-typed-om-1 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CSSMathNegate + (js_newCSSMathNegate, js_getValue, newCSSMathNegate, getValue, CSSMathNegate(..), gTypeCSSMathNegate) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1) => { return new globalThis[\"CSSMathNegate\"]($1); })" + js_newCSSMathNegate :: CSSNumberish -> IO CSSMathNegate +-- | +newCSSMathNegate :: (MonadDOM m, IsCSSNumberish arg) => arg -> m CSSMathNegate +newCSSMathNegate arg = liftDOM ((js_newCSSMathNegate (Types.toCSSNumberish arg))) + +foreign import javascript unsafe "(($1) => { return $1[\"value\"]; })" + js_getValue :: CSSMathNegate -> IO CSSNumericValue +-- | +getValue :: (MonadDOM m) => CSSMathNegate -> m CSSNumericValue +getValue self = liftDOM ((js_getValue (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSMathProduct.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSMathProduct.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CSSMathProduct.hs @@ -0,0 +1,23 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from css-typed-om-1 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CSSMathProduct + (js_getValues, getValues, CSSMathProduct(..), gTypeCSSMathProduct) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript unsafe "(($1) => { return $1[\"values\"]; })" + js_getValues :: CSSMathProduct -> IO CSSNumericArray +-- | +getValues :: (MonadDOM m) => CSSMathProduct -> m CSSNumericArray +getValues self = liftDOM ((js_getValues (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSMathSum.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSMathSum.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CSSMathSum.hs @@ -0,0 +1,23 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from css-typed-om-1 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CSSMathSum + (js_getValues, getValues, CSSMathSum(..), gTypeCSSMathSum) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript unsafe "(($1) => { return $1[\"values\"]; })" + js_getValues :: CSSMathSum -> IO CSSNumericArray +-- | +getValues :: (MonadDOM m) => CSSMathSum -> m CSSNumericArray +getValues self = liftDOM ((js_getValues (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSMathValue.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSMathValue.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CSSMathValue.hs @@ -0,0 +1,23 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from css-typed-om-1 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CSSMathValue + (js_getOperator, getOperator, CSSMathValue(..), gTypeCSSMathValue, IsCSSMathValue, toCSSMathValue) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript unsafe "(($1) => { return $1[\"operator\"]; })" + js_getOperator :: CSSMathValue -> IO JSVal +-- | +getOperator :: (MonadDOM m, IsCSSMathValue self) => self -> m CSSMathOperator +getOperator self = liftDOM (((js_getOperator ((Types.toCSSMathValue self))) >>= fromJSValUnchecked)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSMatrixComponent.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSMatrixComponent.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CSSMatrixComponent.hs @@ -0,0 +1,35 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from css-typed-om-1 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CSSMatrixComponent + (js_newCSSMatrixComponent, js_setMatrix, js_getMatrix, newCSSMatrixComponent, setMatrix, getMatrix, CSSMatrixComponent(..), gTypeCSSMatrixComponent) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1, $2) => { return new globalThis[\"CSSMatrixComponent\"]($1, $2); })" + js_newCSSMatrixComponent :: DOMMatrixReadOnly -> JSVal -> IO CSSMatrixComponent +-- | +newCSSMatrixComponent :: (MonadDOM m, IsDOMMatrixReadOnly matrix) => matrix -> Maybe CSSMatrixComponentOptions -> m CSSMatrixComponent +newCSSMatrixComponent matrix options = liftDOM (((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_newCSSMatrixComponent (Types.toDOMMatrixReadOnly matrix) a2')) + +foreign import javascript safe "(($1, $2) => { $1[\"matrix\"] = $2; })" + js_setMatrix :: CSSMatrixComponent -> DOMMatrix -> IO () +-- | +setMatrix :: (MonadDOM m) => CSSMatrixComponent -> DOMMatrix -> m () +setMatrix self val = liftDOM (void ((js_setMatrix (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"matrix\"]; })" + js_getMatrix :: CSSMatrixComponent -> IO DOMMatrix +-- | +getMatrix :: (MonadDOM m) => CSSMatrixComponent -> m DOMMatrix +getMatrix self = liftDOM ((js_getMatrix (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSMatrixComponentOptions.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSMatrixComponentOptions.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CSSMatrixComponentOptions.hs @@ -0,0 +1,43 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from css-typed-om-1 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CSSMatrixComponentOptions + (js_newCSSMatrixComponentOptions, js_setIs2D, js_getIs2D, newCSSMatrixComponentOptions, setIs2D, getIs2D, getIs2DUnsafe, getIs2DUnchecked, CSSMatrixComponentOptions(..), gTypeCSSMatrixComponentOptions) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(() => { return ({}); })" + js_newCSSMatrixComponentOptions :: IO CSSMatrixComponentOptions +-- | +newCSSMatrixComponentOptions :: (MonadDOM m) => m CSSMatrixComponentOptions +newCSSMatrixComponentOptions = liftDOM ((js_newCSSMatrixComponentOptions)) + +foreign import javascript safe "(($1, $2) => { $1[\"is2D\"] = $2; })" + js_setIs2D :: CSSMatrixComponentOptions -> Bool -> IO () +-- | +setIs2D :: (MonadDOM m) => CSSMatrixComponentOptions -> Bool -> m () +setIs2D self val = liftDOM (void ((js_setIs2D (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"is2D\"]; })" + js_getIs2D :: CSSMatrixComponentOptions -> IO JSVal +-- | +getIs2D :: (MonadDOM m) => CSSMatrixComponentOptions -> m (Maybe Bool) +getIs2D self = liftDOM (((js_getIs2D (self)) >>= fromJSValUnchecked)) + +-- | +getIs2DUnsafe :: (MonadDOM m, HasCallStack) => CSSMatrixComponentOptions -> m Bool +getIs2DUnsafe self = liftDOM ((((js_getIs2D (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getIs2DUnchecked :: (MonadDOM m) => CSSMatrixComponentOptions -> m Bool +getIs2DUnchecked self = liftDOM ((pFromJSVal <$> (js_getIs2D (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSMediaRule.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSMediaRule.hs --- a/src/GHCJS/DOM/JSFFI/Generated/CSSMediaRule.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/CSSMediaRule.hs @@ -1,73 +1,23 @@ {-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE JavaScriptFFI #-} --- For HasCallStack compatibility +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from css-conditional-3 (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.CSSMediaRule - (js_insertRule, insertRule, insertRule_, js_deleteRule, deleteRule, - js_getMedia, getMedia, js_getCssRules, getCssRules, - CSSMediaRule(..), gTypeCSSMediaRule) + (js_getMedia, getMedia, CSSMediaRule(..), gTypeCSSMediaRule) where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull, jsUndefined) -import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import Data.Maybe (fromJust) -import Data.Traversable (mapM) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types -import Control.Applicative ((<$>)) +import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums - -foreign import javascript safe "(($1, $2, $3) => { return $1[\"insertRule\"]($2, $3); })" - js_insertRule :: - CSSMediaRule -> Optional JSString -> Optional Word -> IO Word --- | -insertRule :: - (MonadIO m, ToJSString rule) => - CSSMediaRule -> Maybe rule -> Maybe Word -> m Word -insertRule self rule index - = liftIO - (js_insertRule self (toOptionalJSString rule) - (maybeToOptional index)) - --- | -insertRule_ :: - (MonadIO m, ToJSString rule) => - CSSMediaRule -> Maybe rule -> Maybe Word -> m () -insertRule_ self rule index - = liftIO - (void - (js_insertRule self (toOptionalJSString rule) - (maybeToOptional index))) - -foreign import javascript safe "(($1, $2) => { return $1[\"deleteRule\"]($2); })" - js_deleteRule :: CSSMediaRule -> Optional Word -> IO () - --- | -deleteRule :: (MonadIO m) => CSSMediaRule -> Maybe Word -> m () -deleteRule self index - = liftIO (js_deleteRule self (maybeToOptional index)) - -foreign import javascript unsafe "(($1) => { return $1[\"media\"]; })" js_getMedia :: - CSSMediaRule -> IO MediaList - --- | -getMedia :: (MonadIO m) => CSSMediaRule -> m MediaList -getMedia self = liftIO (js_getMedia self) - -foreign import javascript unsafe "(($1) => { return $1[\"cssRules\"]; })" js_getCssRules - :: CSSMediaRule -> IO CSSRuleList - --- | -getCssRules :: (MonadIO m) => CSSMediaRule -> m CSSRuleList -getCssRules self = liftIO (js_getCssRules self) +foreign import javascript unsafe "(($1) => { return $1[\"media\"]; })" + js_getMedia :: CSSMediaRule -> IO MediaList +-- | +getMedia :: (MonadDOM m) => CSSMediaRule -> m MediaList +getMedia self = liftDOM ((js_getMedia (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSNamespaceRule.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSNamespaceRule.hs --- a/src/GHCJS/DOM/JSFFI/Generated/CSSNamespaceRule.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/CSSNamespaceRule.hs @@ -1,44 +1,29 @@ {-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE JavaScriptFFI #-} --- For HasCallStack compatibility +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from cssom-1 (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.CSSNamespaceRule - (js_getNamespaceURI, getNamespaceURI, js_getPrefix, getPrefix, - CSSNamespaceRule(..), gTypeCSSNamespaceRule) + (js_getNamespaceURI, js_getPrefix, getNamespaceURI, getPrefix, CSSNamespaceRule(..), gTypeCSSNamespaceRule) where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull, jsUndefined) -import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import Data.Maybe (fromJust) -import Data.Traversable (mapM) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types -import Control.Applicative ((<$>)) +import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums - + foreign import javascript unsafe "(($1) => { return $1[\"namespaceURI\"]; })" js_getNamespaceURI :: CSSNamespaceRule -> IO JSString - --- | -getNamespaceURI :: - (MonadIO m, FromJSString result) => CSSNamespaceRule -> m result -getNamespaceURI self - = liftIO (fromJSString <$> (js_getNamespaceURI self)) - -foreign import javascript unsafe "(($1) => { return $1[\"prefix\"]; })" js_getPrefix :: - CSSNamespaceRule -> IO JSString +-- | +getNamespaceURI :: (MonadDOM m, FromJSString result) => CSSNamespaceRule -> m result +getNamespaceURI self = liftDOM ((fromJSString <$> (js_getNamespaceURI (self)))) --- | -getPrefix :: - (MonadIO m, FromJSString result) => CSSNamespaceRule -> m result -getPrefix self = liftIO (fromJSString <$> (js_getPrefix self)) +foreign import javascript unsafe "(($1) => { return $1[\"prefix\"]; })" + js_getPrefix :: CSSNamespaceRule -> IO JSString +-- | +getPrefix :: (MonadDOM m, FromJSString result) => CSSNamespaceRule -> m result +getPrefix self = liftDOM ((fromJSString <$> (js_getPrefix (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSNestedDeclarations.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSNestedDeclarations.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CSSNestedDeclarations.hs @@ -0,0 +1,23 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from css-nesting-1 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CSSNestedDeclarations + (js_getStyle, getStyle, CSSNestedDeclarations(..), gTypeCSSNestedDeclarations) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript unsafe "(($1) => { return $1[\"style\"]; })" + js_getStyle :: CSSNestedDeclarations -> IO CSSStyleProperties +-- | +getStyle :: (MonadDOM m) => CSSNestedDeclarations -> m CSSStyleProperties +getStyle self = liftDOM ((js_getStyle (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSNumericArray.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSNumericArray.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CSSNumericArray.hs @@ -0,0 +1,23 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from css-typed-om-1 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CSSNumericArray + (js_getLength, getLength, CSSNumericArray(..), gTypeCSSNumericArray) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript unsafe "(($1) => { return $1[\"length\"]; })" + js_getLength :: CSSNumericArray -> IO Word +-- | +getLength :: (MonadDOM m) => CSSNumericArray -> m Word +getLength self = liftDOM ((js_getLength (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSNumericType.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSNumericType.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CSSNumericType.hs @@ -0,0 +1,183 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from css-typed-om-1 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CSSNumericType + (js_newCSSNumericType, js_setLength, js_getLength, js_setAngle, js_getAngle, js_setTime, js_getTime, js_setFrequency, js_getFrequency, js_setResolution, js_getResolution, js_setFlex, js_getFlex, js_setPercent, js_getPercent, js_setPercentHint, js_getPercentHint, newCSSNumericType, setLength, getLength, getLengthUnsafe, getLengthUnchecked, setAngle, getAngle, getAngleUnsafe, getAngleUnchecked, setTime, getTime, getTimeUnsafe, getTimeUnchecked, setFrequency, getFrequency, getFrequencyUnsafe, getFrequencyUnchecked, setResolution, getResolution, getResolutionUnsafe, getResolutionUnchecked, setFlex, getFlex, getFlexUnsafe, getFlexUnchecked, setPercent, getPercent, getPercentUnsafe, getPercentUnchecked, setPercentHint, getPercentHint, getPercentHintUnsafe, getPercentHintUnchecked, CSSNumericType(..), gTypeCSSNumericType) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(() => { return ({}); })" + js_newCSSNumericType :: IO CSSNumericType +-- | +newCSSNumericType :: (MonadDOM m) => m CSSNumericType +newCSSNumericType = liftDOM ((js_newCSSNumericType)) + +foreign import javascript safe "(($1, $2) => { $1[\"length\"] = $2; })" + js_setLength :: CSSNumericType -> Int -> IO () +-- | +setLength :: (MonadDOM m) => CSSNumericType -> Int -> m () +setLength self val = liftDOM (void ((js_setLength (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"length\"]; })" + js_getLength :: CSSNumericType -> IO JSVal +-- | +getLength :: (MonadDOM m) => CSSNumericType -> m (Maybe Int) +getLength self = liftDOM (((js_getLength (self)) >>= fromJSValUnchecked)) + +-- | +getLengthUnsafe :: (MonadDOM m, HasCallStack) => CSSNumericType -> m Int +getLengthUnsafe self = liftDOM ((((js_getLength (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getLengthUnchecked :: (MonadDOM m) => CSSNumericType -> m Int +getLengthUnchecked self = liftDOM ((pFromJSVal <$> (js_getLength (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"angle\"] = $2; })" + js_setAngle :: CSSNumericType -> Int -> IO () +-- | +setAngle :: (MonadDOM m) => CSSNumericType -> Int -> m () +setAngle self val = liftDOM (void ((js_setAngle (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"angle\"]; })" + js_getAngle :: CSSNumericType -> IO JSVal +-- | +getAngle :: (MonadDOM m) => CSSNumericType -> m (Maybe Int) +getAngle self = liftDOM (((js_getAngle (self)) >>= fromJSValUnchecked)) + +-- | +getAngleUnsafe :: (MonadDOM m, HasCallStack) => CSSNumericType -> m Int +getAngleUnsafe self = liftDOM ((((js_getAngle (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getAngleUnchecked :: (MonadDOM m) => CSSNumericType -> m Int +getAngleUnchecked self = liftDOM ((pFromJSVal <$> (js_getAngle (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"time\"] = $2; })" + js_setTime :: CSSNumericType -> Int -> IO () +-- | +setTime :: (MonadDOM m) => CSSNumericType -> Int -> m () +setTime self val = liftDOM (void ((js_setTime (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"time\"]; })" + js_getTime :: CSSNumericType -> IO JSVal +-- | +getTime :: (MonadDOM m) => CSSNumericType -> m (Maybe Int) +getTime self = liftDOM (((js_getTime (self)) >>= fromJSValUnchecked)) + +-- | +getTimeUnsafe :: (MonadDOM m, HasCallStack) => CSSNumericType -> m Int +getTimeUnsafe self = liftDOM ((((js_getTime (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getTimeUnchecked :: (MonadDOM m) => CSSNumericType -> m Int +getTimeUnchecked self = liftDOM ((pFromJSVal <$> (js_getTime (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"frequency\"] = $2; })" + js_setFrequency :: CSSNumericType -> Int -> IO () +-- | +setFrequency :: (MonadDOM m) => CSSNumericType -> Int -> m () +setFrequency self val = liftDOM (void ((js_setFrequency (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"frequency\"]; })" + js_getFrequency :: CSSNumericType -> IO JSVal +-- | +getFrequency :: (MonadDOM m) => CSSNumericType -> m (Maybe Int) +getFrequency self = liftDOM (((js_getFrequency (self)) >>= fromJSValUnchecked)) + +-- | +getFrequencyUnsafe :: (MonadDOM m, HasCallStack) => CSSNumericType -> m Int +getFrequencyUnsafe self = liftDOM ((((js_getFrequency (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getFrequencyUnchecked :: (MonadDOM m) => CSSNumericType -> m Int +getFrequencyUnchecked self = liftDOM ((pFromJSVal <$> (js_getFrequency (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"resolution\"] = $2; })" + js_setResolution :: CSSNumericType -> Int -> IO () +-- | +setResolution :: (MonadDOM m) => CSSNumericType -> Int -> m () +setResolution self val = liftDOM (void ((js_setResolution (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"resolution\"]; })" + js_getResolution :: CSSNumericType -> IO JSVal +-- | +getResolution :: (MonadDOM m) => CSSNumericType -> m (Maybe Int) +getResolution self = liftDOM (((js_getResolution (self)) >>= fromJSValUnchecked)) + +-- | +getResolutionUnsafe :: (MonadDOM m, HasCallStack) => CSSNumericType -> m Int +getResolutionUnsafe self = liftDOM ((((js_getResolution (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getResolutionUnchecked :: (MonadDOM m) => CSSNumericType -> m Int +getResolutionUnchecked self = liftDOM ((pFromJSVal <$> (js_getResolution (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"flex\"] = $2; })" + js_setFlex :: CSSNumericType -> Int -> IO () +-- | +setFlex :: (MonadDOM m) => CSSNumericType -> Int -> m () +setFlex self val = liftDOM (void ((js_setFlex (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"flex\"]; })" + js_getFlex :: CSSNumericType -> IO JSVal +-- | +getFlex :: (MonadDOM m) => CSSNumericType -> m (Maybe Int) +getFlex self = liftDOM (((js_getFlex (self)) >>= fromJSValUnchecked)) + +-- | +getFlexUnsafe :: (MonadDOM m, HasCallStack) => CSSNumericType -> m Int +getFlexUnsafe self = liftDOM ((((js_getFlex (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getFlexUnchecked :: (MonadDOM m) => CSSNumericType -> m Int +getFlexUnchecked self = liftDOM ((pFromJSVal <$> (js_getFlex (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"percent\"] = $2; })" + js_setPercent :: CSSNumericType -> Int -> IO () +-- | +setPercent :: (MonadDOM m) => CSSNumericType -> Int -> m () +setPercent self val = liftDOM (void ((js_setPercent (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"percent\"]; })" + js_getPercent :: CSSNumericType -> IO JSVal +-- | +getPercent :: (MonadDOM m) => CSSNumericType -> m (Maybe Int) +getPercent self = liftDOM (((js_getPercent (self)) >>= fromJSValUnchecked)) + +-- | +getPercentUnsafe :: (MonadDOM m, HasCallStack) => CSSNumericType -> m Int +getPercentUnsafe self = liftDOM ((((js_getPercent (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getPercentUnchecked :: (MonadDOM m) => CSSNumericType -> m Int +getPercentUnchecked self = liftDOM ((pFromJSVal <$> (js_getPercent (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"percentHint\"] = $2; })" + js_setPercentHint :: CSSNumericType -> JSVal -> IO () +-- | +setPercentHint :: (MonadDOM m) => CSSNumericType -> CSSNumericBaseType -> m () +setPercentHint self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setPercentHint (self) a2'))) + +foreign import javascript unsafe "(($1) => { return $1[\"percentHint\"]; })" + js_getPercentHint :: CSSNumericType -> IO JSVal +-- | +getPercentHint :: (MonadDOM m) => CSSNumericType -> m (Maybe CSSNumericBaseType) +getPercentHint self = liftDOM (((js_getPercentHint (self)) >>= fromJSValUnchecked)) + +-- | +getPercentHintUnsafe :: (MonadDOM m, HasCallStack) => CSSNumericType -> m CSSNumericBaseType +getPercentHintUnsafe self = liftDOM ((((js_getPercentHint (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getPercentHintUnchecked :: (MonadDOM m) => CSSNumericType -> m CSSNumericBaseType +getPercentHintUnchecked self = liftDOM ((pFromJSVal <$> (js_getPercentHint (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSNumericValue.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSNumericValue.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CSSNumericValue.hs @@ -0,0 +1,127 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from css-typed-om-1 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CSSNumericValue + (js_add, js_div, js_equals, js_max, js_min, js_mul, js_sub, js_to, js_toSum, js_type', js_parse, add, add_, div, div_, equals, equals_, max, max_, min, min_, mul, mul_, sub, sub_, to, to_, toSum, toSum_, type', type'_, parse, parse_, CSSNumericValue(..), gTypeCSSNumericValue, IsCSSNumericValue, toCSSNumericValue) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1, $2) => { return $1[\"add\"](...$2); })" + js_add :: CSSNumericValue -> JSVal -> IO CSSNumericValue +-- | +add :: (MonadDOM m, IsCSSNumericValue self, IsCSSNumberish values) => self -> [values] -> m CSSNumericValue +add self values = liftDOM (((toJSVal values) >>= \a2' -> js_add ((Types.toCSSNumericValue self)) a2')) + +-- | +add_ :: (MonadDOM m, IsCSSNumericValue self, IsCSSNumberish values) => self -> [values] -> m () +add_ self values = liftDOM (void (((toJSVal values) >>= \a2' -> js_add ((Types.toCSSNumericValue self)) a2'))) + +foreign import javascript safe "(($1, $2) => { return $1[\"div\"](...$2); })" + js_div :: CSSNumericValue -> JSVal -> IO CSSNumericValue +-- | +div :: (MonadDOM m, IsCSSNumericValue self, IsCSSNumberish values) => self -> [values] -> m CSSNumericValue +div self values = liftDOM (((toJSVal values) >>= \a2' -> js_div ((Types.toCSSNumericValue self)) a2')) + +-- | +div_ :: (MonadDOM m, IsCSSNumericValue self, IsCSSNumberish values) => self -> [values] -> m () +div_ self values = liftDOM (void (((toJSVal values) >>= \a2' -> js_div ((Types.toCSSNumericValue self)) a2'))) + +foreign import javascript safe "(($1, $2) => { return $1[\"equals\"](...$2); })" + js_equals :: CSSNumericValue -> JSVal -> IO Bool +-- | +equals :: (MonadDOM m, IsCSSNumericValue self, IsCSSNumberish value) => self -> [value] -> m Bool +equals self value = liftDOM (((toJSVal value) >>= \a2' -> js_equals ((Types.toCSSNumericValue self)) a2')) + +-- | +equals_ :: (MonadDOM m, IsCSSNumericValue self, IsCSSNumberish value) => self -> [value] -> m () +equals_ self value = liftDOM (void (((toJSVal value) >>= \a2' -> js_equals ((Types.toCSSNumericValue self)) a2'))) + +foreign import javascript safe "(($1, $2) => { return $1[\"max\"](...$2); })" + js_max :: CSSNumericValue -> JSVal -> IO CSSNumericValue +-- | +max :: (MonadDOM m, IsCSSNumericValue self, IsCSSNumberish values) => self -> [values] -> m CSSNumericValue +max self values = liftDOM (((toJSVal values) >>= \a2' -> js_max ((Types.toCSSNumericValue self)) a2')) + +-- | +max_ :: (MonadDOM m, IsCSSNumericValue self, IsCSSNumberish values) => self -> [values] -> m () +max_ self values = liftDOM (void (((toJSVal values) >>= \a2' -> js_max ((Types.toCSSNumericValue self)) a2'))) + +foreign import javascript safe "(($1, $2) => { return $1[\"min\"](...$2); })" + js_min :: CSSNumericValue -> JSVal -> IO CSSNumericValue +-- | +min :: (MonadDOM m, IsCSSNumericValue self, IsCSSNumberish values) => self -> [values] -> m CSSNumericValue +min self values = liftDOM (((toJSVal values) >>= \a2' -> js_min ((Types.toCSSNumericValue self)) a2')) + +-- | +min_ :: (MonadDOM m, IsCSSNumericValue self, IsCSSNumberish values) => self -> [values] -> m () +min_ self values = liftDOM (void (((toJSVal values) >>= \a2' -> js_min ((Types.toCSSNumericValue self)) a2'))) + +foreign import javascript safe "(($1, $2) => { return $1[\"mul\"](...$2); })" + js_mul :: CSSNumericValue -> JSVal -> IO CSSNumericValue +-- | +mul :: (MonadDOM m, IsCSSNumericValue self, IsCSSNumberish values) => self -> [values] -> m CSSNumericValue +mul self values = liftDOM (((toJSVal values) >>= \a2' -> js_mul ((Types.toCSSNumericValue self)) a2')) + +-- | +mul_ :: (MonadDOM m, IsCSSNumericValue self, IsCSSNumberish values) => self -> [values] -> m () +mul_ self values = liftDOM (void (((toJSVal values) >>= \a2' -> js_mul ((Types.toCSSNumericValue self)) a2'))) + +foreign import javascript safe "(($1, $2) => { return $1[\"sub\"](...$2); })" + js_sub :: CSSNumericValue -> JSVal -> IO CSSNumericValue +-- | +sub :: (MonadDOM m, IsCSSNumericValue self, IsCSSNumberish values) => self -> [values] -> m CSSNumericValue +sub self values = liftDOM (((toJSVal values) >>= \a2' -> js_sub ((Types.toCSSNumericValue self)) a2')) + +-- | +sub_ :: (MonadDOM m, IsCSSNumericValue self, IsCSSNumberish values) => self -> [values] -> m () +sub_ self values = liftDOM (void (((toJSVal values) >>= \a2' -> js_sub ((Types.toCSSNumericValue self)) a2'))) + +foreign import javascript safe "(($1, $2) => { return $1[\"to\"]($2); })" + js_to :: CSSNumericValue -> JSString -> IO CSSUnitValue +-- | +to :: (MonadDOM m, IsCSSNumericValue self, ToJSString unit) => self -> unit -> m CSSUnitValue +to self unit = liftDOM ((js_to ((Types.toCSSNumericValue self)) (toJSString unit))) + +-- | +to_ :: (MonadDOM m, IsCSSNumericValue self, ToJSString unit) => self -> unit -> m () +to_ self unit = liftDOM (void ((js_to ((Types.toCSSNumericValue self)) (toJSString unit)))) + +foreign import javascript safe "(($1, $2) => { return $1[\"toSum\"](...$2); })" + js_toSum :: CSSNumericValue -> JSVal -> IO CSSMathSum +-- | +toSum :: (MonadDOM m, IsCSSNumericValue self, ToJSString units) => self -> [units] -> m CSSMathSum +toSum self units = liftDOM (((toJSVal units) >>= \a2' -> js_toSum ((Types.toCSSNumericValue self)) a2')) + +-- | +toSum_ :: (MonadDOM m, IsCSSNumericValue self, ToJSString units) => self -> [units] -> m () +toSum_ self units = liftDOM (void (((toJSVal units) >>= \a2' -> js_toSum ((Types.toCSSNumericValue self)) a2'))) + +foreign import javascript safe "(($1) => { return $1[\"type\"](); })" + js_type' :: CSSNumericValue -> IO CSSNumericType +-- | +type' :: (MonadDOM m, IsCSSNumericValue self) => self -> m CSSNumericType +type' self = liftDOM ((js_type' ((Types.toCSSNumericValue self)))) + +-- | +type'_ :: (MonadDOM m, IsCSSNumericValue self) => self -> m () +type'_ self = liftDOM (void ((js_type' ((Types.toCSSNumericValue self))))) + +foreign import javascript safe "(($1) => { return globalThis[\"CSSNumericValue\"][\"parse\"]($1); })" + js_parse :: JSString -> IO CSSNumericValue +-- | +parse :: (MonadDOM m, ToJSString cssText) => cssText -> m CSSNumericValue +parse cssText = liftDOM ((js_parse (toJSString cssText))) + +-- | +parse_ :: (MonadDOM m, ToJSString cssText) => cssText -> m () +parse_ cssText = liftDOM (void ((js_parse (toJSString cssText)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSPageDescriptors.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSPageDescriptors.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CSSPageDescriptors.hs @@ -0,0 +1,89 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from cssom-1 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CSSPageDescriptors + (js_setMargin, js_getMargin, js_setMarginTop, js_getMarginTop, js_setMarginRight, js_getMarginRight, js_setMarginBottom, js_getMarginBottom, js_setMarginLeft, js_getMarginLeft, js_setSize, js_getSize, setMargin, getMargin, setMarginTop, getMarginTop, setMarginRight, getMarginRight, setMarginBottom, getMarginBottom, setMarginLeft, getMarginLeft, setSize, getSize, CSSPageDescriptors(..), gTypeCSSPageDescriptors) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1, $2) => { $1[\"margin\"] = $2; })" + js_setMargin :: CSSPageDescriptors -> JSString -> IO () +-- | +setMargin :: (MonadDOM m, ToJSString val) => CSSPageDescriptors -> val -> m () +setMargin self val = liftDOM (void ((js_setMargin (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"margin\"]; })" + js_getMargin :: CSSPageDescriptors -> IO JSString +-- | +getMargin :: (MonadDOM m, FromJSString result) => CSSPageDescriptors -> m result +getMargin self = liftDOM ((fromJSString <$> (js_getMargin (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"marginTop\"] = $2; })" + js_setMarginTop :: CSSPageDescriptors -> JSString -> IO () +-- | +setMarginTop :: (MonadDOM m, ToJSString val) => CSSPageDescriptors -> val -> m () +setMarginTop self val = liftDOM (void ((js_setMarginTop (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"marginTop\"]; })" + js_getMarginTop :: CSSPageDescriptors -> IO JSString +-- | +getMarginTop :: (MonadDOM m, FromJSString result) => CSSPageDescriptors -> m result +getMarginTop self = liftDOM ((fromJSString <$> (js_getMarginTop (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"marginRight\"] = $2; })" + js_setMarginRight :: CSSPageDescriptors -> JSString -> IO () +-- | +setMarginRight :: (MonadDOM m, ToJSString val) => CSSPageDescriptors -> val -> m () +setMarginRight self val = liftDOM (void ((js_setMarginRight (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"marginRight\"]; })" + js_getMarginRight :: CSSPageDescriptors -> IO JSString +-- | +getMarginRight :: (MonadDOM m, FromJSString result) => CSSPageDescriptors -> m result +getMarginRight self = liftDOM ((fromJSString <$> (js_getMarginRight (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"marginBottom\"] = $2; })" + js_setMarginBottom :: CSSPageDescriptors -> JSString -> IO () +-- | +setMarginBottom :: (MonadDOM m, ToJSString val) => CSSPageDescriptors -> val -> m () +setMarginBottom self val = liftDOM (void ((js_setMarginBottom (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"marginBottom\"]; })" + js_getMarginBottom :: CSSPageDescriptors -> IO JSString +-- | +getMarginBottom :: (MonadDOM m, FromJSString result) => CSSPageDescriptors -> m result +getMarginBottom self = liftDOM ((fromJSString <$> (js_getMarginBottom (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"marginLeft\"] = $2; })" + js_setMarginLeft :: CSSPageDescriptors -> JSString -> IO () +-- | +setMarginLeft :: (MonadDOM m, ToJSString val) => CSSPageDescriptors -> val -> m () +setMarginLeft self val = liftDOM (void ((js_setMarginLeft (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"marginLeft\"]; })" + js_getMarginLeft :: CSSPageDescriptors -> IO JSString +-- | +getMarginLeft :: (MonadDOM m, FromJSString result) => CSSPageDescriptors -> m result +getMarginLeft self = liftDOM ((fromJSString <$> (js_getMarginLeft (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"size\"] = $2; })" + js_setSize :: CSSPageDescriptors -> JSString -> IO () +-- | +setSize :: (MonadDOM m, ToJSString val) => CSSPageDescriptors -> val -> m () +setSize self val = liftDOM (void ((js_setSize (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"size\"]; })" + js_getSize :: CSSPageDescriptors -> IO JSString +-- | +getSize :: (MonadDOM m, FromJSString result) => CSSPageDescriptors -> m result +getSize self = liftDOM ((fromJSString <$> (js_getSize (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSPageRule.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSPageRule.hs --- a/src/GHCJS/DOM/JSFFI/Generated/CSSPageRule.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/CSSPageRule.hs @@ -1,69 +1,35 @@ {-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE JavaScriptFFI #-} --- For HasCallStack compatibility +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from cssom-1 (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.CSSPageRule - (js_setSelectorText, setSelectorText, js_getSelectorText, - getSelectorText, getSelectorTextUnsafe, getSelectorTextUnchecked, - js_getStyle, getStyle, CSSPageRule(..), gTypeCSSPageRule) + (js_setSelectorText, js_getSelectorText, js_getStyle, setSelectorText, getSelectorText, getStyle, CSSPageRule(..), gTypeCSSPageRule) where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull, jsUndefined) -import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import Data.Maybe (fromJust) -import Data.Traversable (mapM) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types -import Control.Applicative ((<$>)) +import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums - -foreign import javascript unsafe "(($1, $2) => { $1[\"selectorText\"] = $2; })" - js_setSelectorText :: CSSPageRule -> Optional JSString -> IO () --- | -setSelectorText :: - (MonadIO m, ToJSString val) => CSSPageRule -> Maybe val -> m () -setSelectorText self val - = liftIO (js_setSelectorText self (toOptionalJSString val)) - -foreign import javascript unsafe "(($1) => { return $1[\"selectorText\"]; })" - js_getSelectorText :: CSSPageRule -> IO (Nullable JSString) - --- | -getSelectorText :: - (MonadIO m, FromJSString result) => CSSPageRule -> m (Maybe result) -getSelectorText self - = liftIO (fromMaybeJSString <$> (js_getSelectorText self)) - --- | -getSelectorTextUnsafe :: - (MonadIO m, HasCallStack, FromJSString result) => - CSSPageRule -> m result -getSelectorTextUnsafe self - = liftIO - ((fromMaybeJSString <$> (js_getSelectorText self)) >>= - maybe (Prelude.error "Nothing to return") return) +foreign import javascript safe "(($1, $2) => { $1[\"selectorText\"] = $2; })" + js_setSelectorText :: CSSPageRule -> JSString -> IO () +-- | +setSelectorText :: (MonadDOM m, ToJSString val) => CSSPageRule -> val -> m () +setSelectorText self val = liftDOM (void ((js_setSelectorText (self) (toJSString val)))) --- | -getSelectorTextUnchecked :: - (MonadIO m, FromJSString result) => CSSPageRule -> m result -getSelectorTextUnchecked self - = liftIO - (fromJust . fromMaybeJSString <$> (js_getSelectorText self)) - -foreign import javascript unsafe "(($1) => { return $1[\"style\"]; })" js_getStyle :: - CSSPageRule -> IO CSSStyleDeclaration +foreign import javascript unsafe "(($1) => { return $1[\"selectorText\"]; })" + js_getSelectorText :: CSSPageRule -> IO JSString +-- | +getSelectorText :: (MonadDOM m, FromJSString result) => CSSPageRule -> m result +getSelectorText self = liftDOM ((fromJSString <$> (js_getSelectorText (self)))) --- | -getStyle :: (MonadIO m) => CSSPageRule -> m CSSStyleDeclaration -getStyle self = liftIO (js_getStyle self) +foreign import javascript unsafe "(($1) => { return $1[\"style\"]; })" + js_getStyle :: CSSPageRule -> IO CSSPageDescriptors +-- | +getStyle :: (MonadDOM m) => CSSPageRule -> m CSSPageDescriptors +getStyle self = liftDOM ((js_getStyle (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSPerspective.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSPerspective.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CSSPerspective.hs @@ -0,0 +1,35 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from css-typed-om-1 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CSSPerspective + (js_newCSSPerspective, js_setLength, js_getLength, newCSSPerspective, setLength, getLength, CSSPerspective(..), gTypeCSSPerspective) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1) => { return new globalThis[\"CSSPerspective\"]($1); })" + js_newCSSPerspective :: CSSPerspectiveValue -> IO CSSPerspective +-- | +newCSSPerspective :: (MonadDOM m, IsCSSPerspectiveValue length) => length -> m CSSPerspective +newCSSPerspective length = liftDOM ((js_newCSSPerspective (Types.toCSSPerspectiveValue length))) + +foreign import javascript safe "(($1, $2) => { $1[\"length\"] = $2; })" + js_setLength :: CSSPerspective -> CSSPerspectiveValue -> IO () +-- | +setLength :: (MonadDOM m, IsCSSPerspectiveValue val) => CSSPerspective -> val -> m () +setLength self val = liftDOM (void ((js_setLength (self) (Types.toCSSPerspectiveValue val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"length\"]; })" + js_getLength :: CSSPerspective -> IO CSSPerspectiveValue +-- | +getLength :: (MonadDOM m) => CSSPerspective -> m CSSPerspectiveValue +getLength self = liftDOM ((js_getLength (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSPositionTryDescriptors.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSPositionTryDescriptors.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CSSPositionTryDescriptors.hs @@ -0,0 +1,485 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from css-anchor-position-1 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CSSPositionTryDescriptors + (js_setMargin, js_getMargin, js_setMarginTop, js_getMarginTop, js_setMarginRight, js_getMarginRight, js_setMarginBottom, js_getMarginBottom, js_setMarginLeft, js_getMarginLeft, js_setMarginBlock, js_getMarginBlock, js_setMarginBlockStart, js_getMarginBlockStart, js_setMarginBlockEnd, js_getMarginBlockEnd, js_setMarginInline, js_getMarginInline, js_setMarginInlineStart, js_getMarginInlineStart, js_setMarginInlineEnd, js_getMarginInlineEnd, js_setInset, js_getInset, js_setInsetBlock, js_getInsetBlock, js_setInsetBlockStart, js_getInsetBlockStart, js_setInsetBlockEnd, js_getInsetBlockEnd, js_setInsetInline, js_getInsetInline, js_setInsetInlineStart, js_getInsetInlineStart, js_setInsetInlineEnd, js_getInsetInlineEnd, js_setTop, js_getTop, js_setLeft, js_getLeft, js_setRight, js_getRight, js_setBottom, js_getBottom, js_setWidth, js_getWidth, js_setMinWidth, js_getMinWidth, js_setMaxWidth, js_getMaxWidth, js_setHeight, js_getHeight, js_setMinHeight, js_getMinHeight, js_setMaxHeight, js_getMaxHeight, js_setBlockSize, js_getBlockSize, js_setMinBlockSize, js_getMinBlockSize, js_setMaxBlockSize, js_getMaxBlockSize, js_setInlineSize, js_getInlineSize, js_setMinInlineSize, js_getMinInlineSize, js_setMaxInlineSize, js_getMaxInlineSize, js_setPlaceSelf, js_getPlaceSelf, js_setAlignSelf, js_getAlignSelf, js_setJustifySelf, js_getJustifySelf, js_setPositionAnchor, js_getPositionAnchor, js_setPositionArea, js_getPositionArea, setMargin, getMargin, setMarginTop, getMarginTop, setMarginRight, getMarginRight, setMarginBottom, getMarginBottom, setMarginLeft, getMarginLeft, setMarginBlock, getMarginBlock, setMarginBlockStart, getMarginBlockStart, setMarginBlockEnd, getMarginBlockEnd, setMarginInline, getMarginInline, setMarginInlineStart, getMarginInlineStart, setMarginInlineEnd, getMarginInlineEnd, setInset, getInset, setInsetBlock, getInsetBlock, setInsetBlockStart, getInsetBlockStart, setInsetBlockEnd, getInsetBlockEnd, setInsetInline, getInsetInline, setInsetInlineStart, getInsetInlineStart, setInsetInlineEnd, getInsetInlineEnd, setTop, getTop, setLeft, getLeft, setRight, getRight, setBottom, getBottom, setWidth, getWidth, setMinWidth, getMinWidth, setMaxWidth, getMaxWidth, setHeight, getHeight, setMinHeight, getMinHeight, setMaxHeight, getMaxHeight, setBlockSize, getBlockSize, setMinBlockSize, getMinBlockSize, setMaxBlockSize, getMaxBlockSize, setInlineSize, getInlineSize, setMinInlineSize, getMinInlineSize, setMaxInlineSize, getMaxInlineSize, setPlaceSelf, getPlaceSelf, setAlignSelf, getAlignSelf, setJustifySelf, getJustifySelf, setPositionAnchor, getPositionAnchor, setPositionArea, getPositionArea, CSSPositionTryDescriptors(..), gTypeCSSPositionTryDescriptors) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1, $2) => { $1[\"margin\"] = $2; })" + js_setMargin :: CSSPositionTryDescriptors -> JSString -> IO () +-- | +setMargin :: (MonadDOM m, ToJSString val) => CSSPositionTryDescriptors -> val -> m () +setMargin self val = liftDOM (void ((js_setMargin (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"margin\"]; })" + js_getMargin :: CSSPositionTryDescriptors -> IO JSString +-- | +getMargin :: (MonadDOM m, FromJSString result) => CSSPositionTryDescriptors -> m result +getMargin self = liftDOM ((fromJSString <$> (js_getMargin (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"marginTop\"] = $2; })" + js_setMarginTop :: CSSPositionTryDescriptors -> JSString -> IO () +-- | +setMarginTop :: (MonadDOM m, ToJSString val) => CSSPositionTryDescriptors -> val -> m () +setMarginTop self val = liftDOM (void ((js_setMarginTop (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"marginTop\"]; })" + js_getMarginTop :: CSSPositionTryDescriptors -> IO JSString +-- | +getMarginTop :: (MonadDOM m, FromJSString result) => CSSPositionTryDescriptors -> m result +getMarginTop self = liftDOM ((fromJSString <$> (js_getMarginTop (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"marginRight\"] = $2; })" + js_setMarginRight :: CSSPositionTryDescriptors -> JSString -> IO () +-- | +setMarginRight :: (MonadDOM m, ToJSString val) => CSSPositionTryDescriptors -> val -> m () +setMarginRight self val = liftDOM (void ((js_setMarginRight (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"marginRight\"]; })" + js_getMarginRight :: CSSPositionTryDescriptors -> IO JSString +-- | +getMarginRight :: (MonadDOM m, FromJSString result) => CSSPositionTryDescriptors -> m result +getMarginRight self = liftDOM ((fromJSString <$> (js_getMarginRight (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"marginBottom\"] = $2; })" + js_setMarginBottom :: CSSPositionTryDescriptors -> JSString -> IO () +-- | +setMarginBottom :: (MonadDOM m, ToJSString val) => CSSPositionTryDescriptors -> val -> m () +setMarginBottom self val = liftDOM (void ((js_setMarginBottom (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"marginBottom\"]; })" + js_getMarginBottom :: CSSPositionTryDescriptors -> IO JSString +-- | +getMarginBottom :: (MonadDOM m, FromJSString result) => CSSPositionTryDescriptors -> m result +getMarginBottom self = liftDOM ((fromJSString <$> (js_getMarginBottom (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"marginLeft\"] = $2; })" + js_setMarginLeft :: CSSPositionTryDescriptors -> JSString -> IO () +-- | +setMarginLeft :: (MonadDOM m, ToJSString val) => CSSPositionTryDescriptors -> val -> m () +setMarginLeft self val = liftDOM (void ((js_setMarginLeft (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"marginLeft\"]; })" + js_getMarginLeft :: CSSPositionTryDescriptors -> IO JSString +-- | +getMarginLeft :: (MonadDOM m, FromJSString result) => CSSPositionTryDescriptors -> m result +getMarginLeft self = liftDOM ((fromJSString <$> (js_getMarginLeft (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"marginBlock\"] = $2; })" + js_setMarginBlock :: CSSPositionTryDescriptors -> JSString -> IO () +-- | +setMarginBlock :: (MonadDOM m, ToJSString val) => CSSPositionTryDescriptors -> val -> m () +setMarginBlock self val = liftDOM (void ((js_setMarginBlock (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"marginBlock\"]; })" + js_getMarginBlock :: CSSPositionTryDescriptors -> IO JSString +-- | +getMarginBlock :: (MonadDOM m, FromJSString result) => CSSPositionTryDescriptors -> m result +getMarginBlock self = liftDOM ((fromJSString <$> (js_getMarginBlock (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"marginBlockStart\"] = $2; })" + js_setMarginBlockStart :: CSSPositionTryDescriptors -> JSString -> IO () +-- | +setMarginBlockStart :: (MonadDOM m, ToJSString val) => CSSPositionTryDescriptors -> val -> m () +setMarginBlockStart self val = liftDOM (void ((js_setMarginBlockStart (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"marginBlockStart\"]; })" + js_getMarginBlockStart :: CSSPositionTryDescriptors -> IO JSString +-- | +getMarginBlockStart :: (MonadDOM m, FromJSString result) => CSSPositionTryDescriptors -> m result +getMarginBlockStart self = liftDOM ((fromJSString <$> (js_getMarginBlockStart (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"marginBlockEnd\"] = $2; })" + js_setMarginBlockEnd :: CSSPositionTryDescriptors -> JSString -> IO () +-- | +setMarginBlockEnd :: (MonadDOM m, ToJSString val) => CSSPositionTryDescriptors -> val -> m () +setMarginBlockEnd self val = liftDOM (void ((js_setMarginBlockEnd (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"marginBlockEnd\"]; })" + js_getMarginBlockEnd :: CSSPositionTryDescriptors -> IO JSString +-- | +getMarginBlockEnd :: (MonadDOM m, FromJSString result) => CSSPositionTryDescriptors -> m result +getMarginBlockEnd self = liftDOM ((fromJSString <$> (js_getMarginBlockEnd (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"marginInline\"] = $2; })" + js_setMarginInline :: CSSPositionTryDescriptors -> JSString -> IO () +-- | +setMarginInline :: (MonadDOM m, ToJSString val) => CSSPositionTryDescriptors -> val -> m () +setMarginInline self val = liftDOM (void ((js_setMarginInline (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"marginInline\"]; })" + js_getMarginInline :: CSSPositionTryDescriptors -> IO JSString +-- | +getMarginInline :: (MonadDOM m, FromJSString result) => CSSPositionTryDescriptors -> m result +getMarginInline self = liftDOM ((fromJSString <$> (js_getMarginInline (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"marginInlineStart\"] = $2; })" + js_setMarginInlineStart :: CSSPositionTryDescriptors -> JSString -> IO () +-- | +setMarginInlineStart :: (MonadDOM m, ToJSString val) => CSSPositionTryDescriptors -> val -> m () +setMarginInlineStart self val = liftDOM (void ((js_setMarginInlineStart (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"marginInlineStart\"]; })" + js_getMarginInlineStart :: CSSPositionTryDescriptors -> IO JSString +-- | +getMarginInlineStart :: (MonadDOM m, FromJSString result) => CSSPositionTryDescriptors -> m result +getMarginInlineStart self = liftDOM ((fromJSString <$> (js_getMarginInlineStart (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"marginInlineEnd\"] = $2; })" + js_setMarginInlineEnd :: CSSPositionTryDescriptors -> JSString -> IO () +-- | +setMarginInlineEnd :: (MonadDOM m, ToJSString val) => CSSPositionTryDescriptors -> val -> m () +setMarginInlineEnd self val = liftDOM (void ((js_setMarginInlineEnd (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"marginInlineEnd\"]; })" + js_getMarginInlineEnd :: CSSPositionTryDescriptors -> IO JSString +-- | +getMarginInlineEnd :: (MonadDOM m, FromJSString result) => CSSPositionTryDescriptors -> m result +getMarginInlineEnd self = liftDOM ((fromJSString <$> (js_getMarginInlineEnd (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"inset\"] = $2; })" + js_setInset :: CSSPositionTryDescriptors -> JSString -> IO () +-- | +setInset :: (MonadDOM m, ToJSString val) => CSSPositionTryDescriptors -> val -> m () +setInset self val = liftDOM (void ((js_setInset (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"inset\"]; })" + js_getInset :: CSSPositionTryDescriptors -> IO JSString +-- | +getInset :: (MonadDOM m, FromJSString result) => CSSPositionTryDescriptors -> m result +getInset self = liftDOM ((fromJSString <$> (js_getInset (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"insetBlock\"] = $2; })" + js_setInsetBlock :: CSSPositionTryDescriptors -> JSString -> IO () +-- | +setInsetBlock :: (MonadDOM m, ToJSString val) => CSSPositionTryDescriptors -> val -> m () +setInsetBlock self val = liftDOM (void ((js_setInsetBlock (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"insetBlock\"]; })" + js_getInsetBlock :: CSSPositionTryDescriptors -> IO JSString +-- | +getInsetBlock :: (MonadDOM m, FromJSString result) => CSSPositionTryDescriptors -> m result +getInsetBlock self = liftDOM ((fromJSString <$> (js_getInsetBlock (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"insetBlockStart\"] = $2; })" + js_setInsetBlockStart :: CSSPositionTryDescriptors -> JSString -> IO () +-- | +setInsetBlockStart :: (MonadDOM m, ToJSString val) => CSSPositionTryDescriptors -> val -> m () +setInsetBlockStart self val = liftDOM (void ((js_setInsetBlockStart (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"insetBlockStart\"]; })" + js_getInsetBlockStart :: CSSPositionTryDescriptors -> IO JSString +-- | +getInsetBlockStart :: (MonadDOM m, FromJSString result) => CSSPositionTryDescriptors -> m result +getInsetBlockStart self = liftDOM ((fromJSString <$> (js_getInsetBlockStart (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"insetBlockEnd\"] = $2; })" + js_setInsetBlockEnd :: CSSPositionTryDescriptors -> JSString -> IO () +-- | +setInsetBlockEnd :: (MonadDOM m, ToJSString val) => CSSPositionTryDescriptors -> val -> m () +setInsetBlockEnd self val = liftDOM (void ((js_setInsetBlockEnd (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"insetBlockEnd\"]; })" + js_getInsetBlockEnd :: CSSPositionTryDescriptors -> IO JSString +-- | +getInsetBlockEnd :: (MonadDOM m, FromJSString result) => CSSPositionTryDescriptors -> m result +getInsetBlockEnd self = liftDOM ((fromJSString <$> (js_getInsetBlockEnd (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"insetInline\"] = $2; })" + js_setInsetInline :: CSSPositionTryDescriptors -> JSString -> IO () +-- | +setInsetInline :: (MonadDOM m, ToJSString val) => CSSPositionTryDescriptors -> val -> m () +setInsetInline self val = liftDOM (void ((js_setInsetInline (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"insetInline\"]; })" + js_getInsetInline :: CSSPositionTryDescriptors -> IO JSString +-- | +getInsetInline :: (MonadDOM m, FromJSString result) => CSSPositionTryDescriptors -> m result +getInsetInline self = liftDOM ((fromJSString <$> (js_getInsetInline (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"insetInlineStart\"] = $2; })" + js_setInsetInlineStart :: CSSPositionTryDescriptors -> JSString -> IO () +-- | +setInsetInlineStart :: (MonadDOM m, ToJSString val) => CSSPositionTryDescriptors -> val -> m () +setInsetInlineStart self val = liftDOM (void ((js_setInsetInlineStart (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"insetInlineStart\"]; })" + js_getInsetInlineStart :: CSSPositionTryDescriptors -> IO JSString +-- | +getInsetInlineStart :: (MonadDOM m, FromJSString result) => CSSPositionTryDescriptors -> m result +getInsetInlineStart self = liftDOM ((fromJSString <$> (js_getInsetInlineStart (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"insetInlineEnd\"] = $2; })" + js_setInsetInlineEnd :: CSSPositionTryDescriptors -> JSString -> IO () +-- | +setInsetInlineEnd :: (MonadDOM m, ToJSString val) => CSSPositionTryDescriptors -> val -> m () +setInsetInlineEnd self val = liftDOM (void ((js_setInsetInlineEnd (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"insetInlineEnd\"]; })" + js_getInsetInlineEnd :: CSSPositionTryDescriptors -> IO JSString +-- | +getInsetInlineEnd :: (MonadDOM m, FromJSString result) => CSSPositionTryDescriptors -> m result +getInsetInlineEnd self = liftDOM ((fromJSString <$> (js_getInsetInlineEnd (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"top\"] = $2; })" + js_setTop :: CSSPositionTryDescriptors -> JSString -> IO () +-- | +setTop :: (MonadDOM m, ToJSString val) => CSSPositionTryDescriptors -> val -> m () +setTop self val = liftDOM (void ((js_setTop (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"top\"]; })" + js_getTop :: CSSPositionTryDescriptors -> IO JSString +-- | +getTop :: (MonadDOM m, FromJSString result) => CSSPositionTryDescriptors -> m result +getTop self = liftDOM ((fromJSString <$> (js_getTop (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"left\"] = $2; })" + js_setLeft :: CSSPositionTryDescriptors -> JSString -> IO () +-- | +setLeft :: (MonadDOM m, ToJSString val) => CSSPositionTryDescriptors -> val -> m () +setLeft self val = liftDOM (void ((js_setLeft (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"left\"]; })" + js_getLeft :: CSSPositionTryDescriptors -> IO JSString +-- | +getLeft :: (MonadDOM m, FromJSString result) => CSSPositionTryDescriptors -> m result +getLeft self = liftDOM ((fromJSString <$> (js_getLeft (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"right\"] = $2; })" + js_setRight :: CSSPositionTryDescriptors -> JSString -> IO () +-- | +setRight :: (MonadDOM m, ToJSString val) => CSSPositionTryDescriptors -> val -> m () +setRight self val = liftDOM (void ((js_setRight (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"right\"]; })" + js_getRight :: CSSPositionTryDescriptors -> IO JSString +-- | +getRight :: (MonadDOM m, FromJSString result) => CSSPositionTryDescriptors -> m result +getRight self = liftDOM ((fromJSString <$> (js_getRight (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"bottom\"] = $2; })" + js_setBottom :: CSSPositionTryDescriptors -> JSString -> IO () +-- | +setBottom :: (MonadDOM m, ToJSString val) => CSSPositionTryDescriptors -> val -> m () +setBottom self val = liftDOM (void ((js_setBottom (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"bottom\"]; })" + js_getBottom :: CSSPositionTryDescriptors -> IO JSString +-- | +getBottom :: (MonadDOM m, FromJSString result) => CSSPositionTryDescriptors -> m result +getBottom self = liftDOM ((fromJSString <$> (js_getBottom (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"width\"] = $2; })" + js_setWidth :: CSSPositionTryDescriptors -> JSString -> IO () +-- | +setWidth :: (MonadDOM m, ToJSString val) => CSSPositionTryDescriptors -> val -> m () +setWidth self val = liftDOM (void ((js_setWidth (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"width\"]; })" + js_getWidth :: CSSPositionTryDescriptors -> IO JSString +-- | +getWidth :: (MonadDOM m, FromJSString result) => CSSPositionTryDescriptors -> m result +getWidth self = liftDOM ((fromJSString <$> (js_getWidth (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"minWidth\"] = $2; })" + js_setMinWidth :: CSSPositionTryDescriptors -> JSString -> IO () +-- | +setMinWidth :: (MonadDOM m, ToJSString val) => CSSPositionTryDescriptors -> val -> m () +setMinWidth self val = liftDOM (void ((js_setMinWidth (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"minWidth\"]; })" + js_getMinWidth :: CSSPositionTryDescriptors -> IO JSString +-- | +getMinWidth :: (MonadDOM m, FromJSString result) => CSSPositionTryDescriptors -> m result +getMinWidth self = liftDOM ((fromJSString <$> (js_getMinWidth (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"maxWidth\"] = $2; })" + js_setMaxWidth :: CSSPositionTryDescriptors -> JSString -> IO () +-- | +setMaxWidth :: (MonadDOM m, ToJSString val) => CSSPositionTryDescriptors -> val -> m () +setMaxWidth self val = liftDOM (void ((js_setMaxWidth (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"maxWidth\"]; })" + js_getMaxWidth :: CSSPositionTryDescriptors -> IO JSString +-- | +getMaxWidth :: (MonadDOM m, FromJSString result) => CSSPositionTryDescriptors -> m result +getMaxWidth self = liftDOM ((fromJSString <$> (js_getMaxWidth (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"height\"] = $2; })" + js_setHeight :: CSSPositionTryDescriptors -> JSString -> IO () +-- | +setHeight :: (MonadDOM m, ToJSString val) => CSSPositionTryDescriptors -> val -> m () +setHeight self val = liftDOM (void ((js_setHeight (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"height\"]; })" + js_getHeight :: CSSPositionTryDescriptors -> IO JSString +-- | +getHeight :: (MonadDOM m, FromJSString result) => CSSPositionTryDescriptors -> m result +getHeight self = liftDOM ((fromJSString <$> (js_getHeight (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"minHeight\"] = $2; })" + js_setMinHeight :: CSSPositionTryDescriptors -> JSString -> IO () +-- | +setMinHeight :: (MonadDOM m, ToJSString val) => CSSPositionTryDescriptors -> val -> m () +setMinHeight self val = liftDOM (void ((js_setMinHeight (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"minHeight\"]; })" + js_getMinHeight :: CSSPositionTryDescriptors -> IO JSString +-- | +getMinHeight :: (MonadDOM m, FromJSString result) => CSSPositionTryDescriptors -> m result +getMinHeight self = liftDOM ((fromJSString <$> (js_getMinHeight (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"maxHeight\"] = $2; })" + js_setMaxHeight :: CSSPositionTryDescriptors -> JSString -> IO () +-- | +setMaxHeight :: (MonadDOM m, ToJSString val) => CSSPositionTryDescriptors -> val -> m () +setMaxHeight self val = liftDOM (void ((js_setMaxHeight (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"maxHeight\"]; })" + js_getMaxHeight :: CSSPositionTryDescriptors -> IO JSString +-- | +getMaxHeight :: (MonadDOM m, FromJSString result) => CSSPositionTryDescriptors -> m result +getMaxHeight self = liftDOM ((fromJSString <$> (js_getMaxHeight (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"blockSize\"] = $2; })" + js_setBlockSize :: CSSPositionTryDescriptors -> JSString -> IO () +-- | +setBlockSize :: (MonadDOM m, ToJSString val) => CSSPositionTryDescriptors -> val -> m () +setBlockSize self val = liftDOM (void ((js_setBlockSize (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"blockSize\"]; })" + js_getBlockSize :: CSSPositionTryDescriptors -> IO JSString +-- | +getBlockSize :: (MonadDOM m, FromJSString result) => CSSPositionTryDescriptors -> m result +getBlockSize self = liftDOM ((fromJSString <$> (js_getBlockSize (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"minBlockSize\"] = $2; })" + js_setMinBlockSize :: CSSPositionTryDescriptors -> JSString -> IO () +-- | +setMinBlockSize :: (MonadDOM m, ToJSString val) => CSSPositionTryDescriptors -> val -> m () +setMinBlockSize self val = liftDOM (void ((js_setMinBlockSize (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"minBlockSize\"]; })" + js_getMinBlockSize :: CSSPositionTryDescriptors -> IO JSString +-- | +getMinBlockSize :: (MonadDOM m, FromJSString result) => CSSPositionTryDescriptors -> m result +getMinBlockSize self = liftDOM ((fromJSString <$> (js_getMinBlockSize (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"maxBlockSize\"] = $2; })" + js_setMaxBlockSize :: CSSPositionTryDescriptors -> JSString -> IO () +-- | +setMaxBlockSize :: (MonadDOM m, ToJSString val) => CSSPositionTryDescriptors -> val -> m () +setMaxBlockSize self val = liftDOM (void ((js_setMaxBlockSize (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"maxBlockSize\"]; })" + js_getMaxBlockSize :: CSSPositionTryDescriptors -> IO JSString +-- | +getMaxBlockSize :: (MonadDOM m, FromJSString result) => CSSPositionTryDescriptors -> m result +getMaxBlockSize self = liftDOM ((fromJSString <$> (js_getMaxBlockSize (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"inlineSize\"] = $2; })" + js_setInlineSize :: CSSPositionTryDescriptors -> JSString -> IO () +-- | +setInlineSize :: (MonadDOM m, ToJSString val) => CSSPositionTryDescriptors -> val -> m () +setInlineSize self val = liftDOM (void ((js_setInlineSize (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"inlineSize\"]; })" + js_getInlineSize :: CSSPositionTryDescriptors -> IO JSString +-- | +getInlineSize :: (MonadDOM m, FromJSString result) => CSSPositionTryDescriptors -> m result +getInlineSize self = liftDOM ((fromJSString <$> (js_getInlineSize (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"minInlineSize\"] = $2; })" + js_setMinInlineSize :: CSSPositionTryDescriptors -> JSString -> IO () +-- | +setMinInlineSize :: (MonadDOM m, ToJSString val) => CSSPositionTryDescriptors -> val -> m () +setMinInlineSize self val = liftDOM (void ((js_setMinInlineSize (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"minInlineSize\"]; })" + js_getMinInlineSize :: CSSPositionTryDescriptors -> IO JSString +-- | +getMinInlineSize :: (MonadDOM m, FromJSString result) => CSSPositionTryDescriptors -> m result +getMinInlineSize self = liftDOM ((fromJSString <$> (js_getMinInlineSize (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"maxInlineSize\"] = $2; })" + js_setMaxInlineSize :: CSSPositionTryDescriptors -> JSString -> IO () +-- | +setMaxInlineSize :: (MonadDOM m, ToJSString val) => CSSPositionTryDescriptors -> val -> m () +setMaxInlineSize self val = liftDOM (void ((js_setMaxInlineSize (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"maxInlineSize\"]; })" + js_getMaxInlineSize :: CSSPositionTryDescriptors -> IO JSString +-- | +getMaxInlineSize :: (MonadDOM m, FromJSString result) => CSSPositionTryDescriptors -> m result +getMaxInlineSize self = liftDOM ((fromJSString <$> (js_getMaxInlineSize (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"placeSelf\"] = $2; })" + js_setPlaceSelf :: CSSPositionTryDescriptors -> JSString -> IO () +-- | +setPlaceSelf :: (MonadDOM m, ToJSString val) => CSSPositionTryDescriptors -> val -> m () +setPlaceSelf self val = liftDOM (void ((js_setPlaceSelf (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"placeSelf\"]; })" + js_getPlaceSelf :: CSSPositionTryDescriptors -> IO JSString +-- | +getPlaceSelf :: (MonadDOM m, FromJSString result) => CSSPositionTryDescriptors -> m result +getPlaceSelf self = liftDOM ((fromJSString <$> (js_getPlaceSelf (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"alignSelf\"] = $2; })" + js_setAlignSelf :: CSSPositionTryDescriptors -> JSString -> IO () +-- | +setAlignSelf :: (MonadDOM m, ToJSString val) => CSSPositionTryDescriptors -> val -> m () +setAlignSelf self val = liftDOM (void ((js_setAlignSelf (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"alignSelf\"]; })" + js_getAlignSelf :: CSSPositionTryDescriptors -> IO JSString +-- | +getAlignSelf :: (MonadDOM m, FromJSString result) => CSSPositionTryDescriptors -> m result +getAlignSelf self = liftDOM ((fromJSString <$> (js_getAlignSelf (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"justifySelf\"] = $2; })" + js_setJustifySelf :: CSSPositionTryDescriptors -> JSString -> IO () +-- | +setJustifySelf :: (MonadDOM m, ToJSString val) => CSSPositionTryDescriptors -> val -> m () +setJustifySelf self val = liftDOM (void ((js_setJustifySelf (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"justifySelf\"]; })" + js_getJustifySelf :: CSSPositionTryDescriptors -> IO JSString +-- | +getJustifySelf :: (MonadDOM m, FromJSString result) => CSSPositionTryDescriptors -> m result +getJustifySelf self = liftDOM ((fromJSString <$> (js_getJustifySelf (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"positionAnchor\"] = $2; })" + js_setPositionAnchor :: CSSPositionTryDescriptors -> JSString -> IO () +-- | +setPositionAnchor :: (MonadDOM m, ToJSString val) => CSSPositionTryDescriptors -> val -> m () +setPositionAnchor self val = liftDOM (void ((js_setPositionAnchor (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"positionAnchor\"]; })" + js_getPositionAnchor :: CSSPositionTryDescriptors -> IO JSString +-- | +getPositionAnchor :: (MonadDOM m, FromJSString result) => CSSPositionTryDescriptors -> m result +getPositionAnchor self = liftDOM ((fromJSString <$> (js_getPositionAnchor (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"positionArea\"] = $2; })" + js_setPositionArea :: CSSPositionTryDescriptors -> JSString -> IO () +-- | +setPositionArea :: (MonadDOM m, ToJSString val) => CSSPositionTryDescriptors -> val -> m () +setPositionArea self val = liftDOM (void ((js_setPositionArea (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"positionArea\"]; })" + js_getPositionArea :: CSSPositionTryDescriptors -> IO JSString +-- | +getPositionArea :: (MonadDOM m, FromJSString result) => CSSPositionTryDescriptors -> m result +getPositionArea self = liftDOM ((fromJSString <$> (js_getPositionArea (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSPositionTryRule.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSPositionTryRule.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CSSPositionTryRule.hs @@ -0,0 +1,29 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from css-anchor-position-1 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CSSPositionTryRule + (js_getName, js_getStyle, getName, getStyle, CSSPositionTryRule(..), gTypeCSSPositionTryRule) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript unsafe "(($1) => { return $1[\"name\"]; })" + js_getName :: CSSPositionTryRule -> IO JSString +-- | +getName :: (MonadDOM m, FromJSString result) => CSSPositionTryRule -> m result +getName self = liftDOM ((fromJSString <$> (js_getName (self)))) + +foreign import javascript unsafe "(($1) => { return $1[\"style\"]; })" + js_getStyle :: CSSPositionTryRule -> IO CSSPositionTryDescriptors +-- | +getStyle :: (MonadDOM m) => CSSPositionTryRule -> m CSSPositionTryDescriptors +getStyle self = liftDOM ((js_getStyle (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSPrimitiveValue.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSPrimitiveValue.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/CSSPrimitiveValue.hs +++ /dev/null @@ -1,165 +0,0 @@ -{-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE JavaScriptFFI #-} --- For HasCallStack compatibility -{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} -module GHCJS.DOM.JSFFI.Generated.CSSPrimitiveValue - (js_setFloatValue, setFloatValue, js_getFloatValue, getFloatValue, - getFloatValue_, js_setStringValue, setStringValue, - js_getStringValue, getStringValue, getStringValue_, - js_getCounterValue, getCounterValue, getCounterValue_, - js_getRectValue, getRectValue, getRectValue_, js_getRGBColorValue, - getRGBColorValue, getRGBColorValue_, pattern CSS_UNKNOWN, - pattern CSS_NUMBER, pattern CSS_PERCENTAGE, pattern CSS_EMS, - pattern CSS_EXS, pattern CSS_PX, pattern CSS_CM, pattern CSS_MM, - pattern CSS_IN, pattern CSS_PT, pattern CSS_PC, pattern CSS_DEG, - pattern CSS_RAD, pattern CSS_GRAD, pattern CSS_MS, pattern CSS_S, - pattern CSS_HZ, pattern CSS_KHZ, pattern CSS_DIMENSION, - pattern CSS_STRING, pattern CSS_URI, pattern CSS_IDENT, - pattern CSS_ATTR, pattern CSS_COUNTER, pattern CSS_RECT, - pattern CSS_RGBCOLOR, pattern CSS_VW, pattern CSS_VH, - pattern CSS_VMIN, pattern CSS_VMAX, js_getPrimitiveType, - getPrimitiveType, CSSPrimitiveValue(..), gTypeCSSPrimitiveValue) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull, jsUndefined) -import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import Data.Maybe (fromJust) -import Data.Traversable (mapM) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) -import GHCJS.DOM.JSFFI.Generated.Enums - -foreign import javascript safe "(($1, $2, $3) => { return $1[\"setFloatValue\"]($2, $3); })" - js_setFloatValue :: - CSSPrimitiveValue -> Optional Word -> Optional Float -> IO () - --- | -setFloatValue :: - (MonadIO m) => - CSSPrimitiveValue -> Maybe Word -> Maybe Float -> m () -setFloatValue self unitType floatValue - = liftIO - (js_setFloatValue self (maybeToOptional unitType) - (maybeToOptional floatValue)) - -foreign import javascript safe "(($1, $2) => { return $1[\"getFloatValue\"]($2); })" - js_getFloatValue :: CSSPrimitiveValue -> Optional Word -> IO Float - --- | -getFloatValue :: - (MonadIO m) => CSSPrimitiveValue -> Maybe Word -> m Float -getFloatValue self unitType - = liftIO (js_getFloatValue self (maybeToOptional unitType)) - --- | -getFloatValue_ :: - (MonadIO m) => CSSPrimitiveValue -> Maybe Word -> m () -getFloatValue_ self unitType - = liftIO (void (js_getFloatValue self (maybeToOptional unitType))) - -foreign import javascript safe "(($1, $2, $3) => { return $1[\"setStringValue\"]($2, $3); })" - js_setStringValue :: - CSSPrimitiveValue -> Optional Word -> Optional JSString -> IO () - --- | -setStringValue :: - (MonadIO m, ToJSString stringValue) => - CSSPrimitiveValue -> Maybe Word -> Maybe stringValue -> m () -setStringValue self stringType stringValue - = liftIO - (js_setStringValue self (maybeToOptional stringType) - (toOptionalJSString stringValue)) - -foreign import javascript safe "(($1) => { return $1[\"getStringValue\"](); })" - js_getStringValue :: CSSPrimitiveValue -> IO JSString - --- | -getStringValue :: - (MonadIO m, FromJSString result) => CSSPrimitiveValue -> m result -getStringValue self - = liftIO (fromJSString <$> (js_getStringValue self)) - --- | -getStringValue_ :: (MonadIO m) => CSSPrimitiveValue -> m () -getStringValue_ self = liftIO (void (js_getStringValue self)) - -foreign import javascript safe "(($1) => { return $1[\"getCounterValue\"](); })" - js_getCounterValue :: CSSPrimitiveValue -> IO Counter - --- | -getCounterValue :: (MonadIO m) => CSSPrimitiveValue -> m Counter -getCounterValue self = liftIO (js_getCounterValue self) - --- | -getCounterValue_ :: (MonadIO m) => CSSPrimitiveValue -> m () -getCounterValue_ self = liftIO (void (js_getCounterValue self)) - -foreign import javascript safe "(($1) => { return $1[\"getRectValue\"](); })" - js_getRectValue :: CSSPrimitiveValue -> IO Rect - --- | -getRectValue :: (MonadIO m) => CSSPrimitiveValue -> m Rect -getRectValue self = liftIO (js_getRectValue self) - --- | -getRectValue_ :: (MonadIO m) => CSSPrimitiveValue -> m () -getRectValue_ self = liftIO (void (js_getRectValue self)) - -foreign import javascript safe "(($1) => { return $1[\"getRGBColorValue\"](); })" - js_getRGBColorValue :: CSSPrimitiveValue -> IO RGBColor - --- | -getRGBColorValue :: (MonadIO m) => CSSPrimitiveValue -> m RGBColor -getRGBColorValue self = liftIO (js_getRGBColorValue self) - --- | -getRGBColorValue_ :: (MonadIO m) => CSSPrimitiveValue -> m () -getRGBColorValue_ self = liftIO (void (js_getRGBColorValue self)) -pattern CSS_UNKNOWN = 0 -pattern CSS_NUMBER = 1 -pattern CSS_PERCENTAGE = 2 -pattern CSS_EMS = 3 -pattern CSS_EXS = 4 -pattern CSS_PX = 5 -pattern CSS_CM = 6 -pattern CSS_MM = 7 -pattern CSS_IN = 8 -pattern CSS_PT = 9 -pattern CSS_PC = 10 -pattern CSS_DEG = 11 -pattern CSS_RAD = 12 -pattern CSS_GRAD = 13 -pattern CSS_MS = 14 -pattern CSS_S = 15 -pattern CSS_HZ = 16 -pattern CSS_KHZ = 17 -pattern CSS_DIMENSION = 18 -pattern CSS_STRING = 19 -pattern CSS_URI = 20 -pattern CSS_IDENT = 21 -pattern CSS_ATTR = 22 -pattern CSS_COUNTER = 23 -pattern CSS_RECT = 24 -pattern CSS_RGBCOLOR = 25 -pattern CSS_VW = 26 -pattern CSS_VH = 27 -pattern CSS_VMIN = 28 -pattern CSS_VMAX = 29 - -foreign import javascript unsafe "(($1) => { return $1[\"primitiveType\"]; })" - js_getPrimitiveType :: CSSPrimitiveValue -> IO Word - --- | -getPrimitiveType :: (MonadIO m) => CSSPrimitiveValue -> m Word -getPrimitiveType self = liftIO (js_getPrimitiveType self) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSPropertyRule.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSPropertyRule.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CSSPropertyRule.hs @@ -0,0 +1,49 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from css-properties-values-api-1 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CSSPropertyRule + (js_getName, js_getSyntax, js_getInherits, js_getInitialValue, getName, getSyntax, getInherits, getInitialValue, getInitialValueUnsafe, getInitialValueUnchecked, CSSPropertyRule(..), gTypeCSSPropertyRule) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript unsafe "(($1) => { return $1[\"name\"]; })" + js_getName :: CSSPropertyRule -> IO JSString +-- | +getName :: (MonadDOM m, FromJSString result) => CSSPropertyRule -> m result +getName self = liftDOM ((fromJSString <$> (js_getName (self)))) + +foreign import javascript unsafe "(($1) => { return $1[\"syntax\"]; })" + js_getSyntax :: CSSPropertyRule -> IO JSString +-- | +getSyntax :: (MonadDOM m, FromJSString result) => CSSPropertyRule -> m result +getSyntax self = liftDOM ((fromJSString <$> (js_getSyntax (self)))) + +foreign import javascript unsafe "(($1) => { return $1[\"inherits\"]; })" + js_getInherits :: CSSPropertyRule -> IO Bool +-- | +getInherits :: (MonadDOM m) => CSSPropertyRule -> m Bool +getInherits self = liftDOM ((js_getInherits (self))) + +foreign import javascript unsafe "(($1) => { return $1[\"initialValue\"]; })" + js_getInitialValue :: CSSPropertyRule -> IO JSVal +-- | +getInitialValue :: (MonadDOM m, FromJSString result) => CSSPropertyRule -> m (Maybe result) +getInitialValue self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getInitialValue (self)))) + +-- | +getInitialValueUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => CSSPropertyRule -> m result +getInitialValueUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getInitialValue (self))) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getInitialValueUnchecked :: (MonadDOM m, FromJSString result) => CSSPropertyRule -> m result +getInitialValueUnchecked self = liftDOM ((pFromJSVal <$> (js_getInitialValue (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSRotate.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSRotate.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CSSRotate.hs @@ -0,0 +1,77 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from css-typed-om-1 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CSSRotate + (js_newCSSRotate, js_newCSSRotateXYZ, js_setX, js_getX, js_setY, js_getY, js_setZ, js_getZ, js_setAngle, js_getAngle, newCSSRotate, newCSSRotateXYZ, setX, getX, setY, getY, setZ, getZ, setAngle, getAngle, CSSRotate(..), gTypeCSSRotate) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1) => { return new globalThis[\"CSSRotate\"]($1); })" + js_newCSSRotate :: CSSNumericValue -> IO CSSRotate +-- | +newCSSRotate :: (MonadDOM m, IsCSSNumericValue angle) => angle -> m CSSRotate +newCSSRotate angle = liftDOM ((js_newCSSRotate (Types.toCSSNumericValue angle))) + +foreign import javascript safe "(($1, $2, $3, $4) => { return new globalThis[\"CSSRotate\"]($1, $2, $3, $4); })" + js_newCSSRotateXYZ :: CSSNumberish -> CSSNumberish -> CSSNumberish -> CSSNumericValue -> IO CSSRotate +-- | +newCSSRotateXYZ :: (MonadDOM m, IsCSSNumberish x, IsCSSNumberish y, IsCSSNumberish z, IsCSSNumericValue angle) => x -> y -> z -> angle -> m CSSRotate +newCSSRotateXYZ x y z angle = liftDOM ((js_newCSSRotateXYZ (Types.toCSSNumberish x) (Types.toCSSNumberish y) (Types.toCSSNumberish z) (Types.toCSSNumericValue angle))) + +foreign import javascript safe "(($1, $2) => { $1[\"x\"] = $2; })" + js_setX :: CSSRotate -> CSSNumberish -> IO () +-- | +setX :: (MonadDOM m, IsCSSNumberish val) => CSSRotate -> val -> m () +setX self val = liftDOM (void ((js_setX (self) (Types.toCSSNumberish val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"x\"]; })" + js_getX :: CSSRotate -> IO CSSNumberish +-- | +getX :: (MonadDOM m) => CSSRotate -> m CSSNumberish +getX self = liftDOM ((js_getX (self))) + +foreign import javascript safe "(($1, $2) => { $1[\"y\"] = $2; })" + js_setY :: CSSRotate -> CSSNumberish -> IO () +-- | +setY :: (MonadDOM m, IsCSSNumberish val) => CSSRotate -> val -> m () +setY self val = liftDOM (void ((js_setY (self) (Types.toCSSNumberish val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"y\"]; })" + js_getY :: CSSRotate -> IO CSSNumberish +-- | +getY :: (MonadDOM m) => CSSRotate -> m CSSNumberish +getY self = liftDOM ((js_getY (self))) + +foreign import javascript safe "(($1, $2) => { $1[\"z\"] = $2; })" + js_setZ :: CSSRotate -> CSSNumberish -> IO () +-- | +setZ :: (MonadDOM m, IsCSSNumberish val) => CSSRotate -> val -> m () +setZ self val = liftDOM (void ((js_setZ (self) (Types.toCSSNumberish val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"z\"]; })" + js_getZ :: CSSRotate -> IO CSSNumberish +-- | +getZ :: (MonadDOM m) => CSSRotate -> m CSSNumberish +getZ self = liftDOM ((js_getZ (self))) + +foreign import javascript safe "(($1, $2) => { $1[\"angle\"] = $2; })" + js_setAngle :: CSSRotate -> CSSNumericValue -> IO () +-- | +setAngle :: (MonadDOM m, IsCSSNumericValue val) => CSSRotate -> val -> m () +setAngle self val = liftDOM (void ((js_setAngle (self) (Types.toCSSNumericValue val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"angle\"]; })" + js_getAngle :: CSSRotate -> IO CSSNumericValue +-- | +getAngle :: (MonadDOM m) => CSSRotate -> m CSSNumericValue +getAngle self = liftDOM ((js_getAngle (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSRule.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSRule.hs --- a/src/GHCJS/DOM/JSFFI/Generated/CSSRule.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/CSSRule.hs @@ -1,149 +1,89 @@ {-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE JavaScriptFFI #-} --- For HasCallStack compatibility +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from cssom-1 (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.CSSRule - (pattern UNKNOWN_RULE, pattern STYLE_RULE, pattern CHARSET_RULE, - pattern IMPORT_RULE, pattern MEDIA_RULE, pattern FONT_FACE_RULE, - pattern PAGE_RULE, pattern KEYFRAMES_RULE, pattern KEYFRAME_RULE, - pattern NAMESPACE_RULE, pattern SUPPORTS_RULE, - pattern WEBKIT_VIEWPORT_RULE, pattern WEBKIT_REGION_RULE, - pattern WEBKIT_KEYFRAMES_RULE, pattern WEBKIT_KEYFRAME_RULE, - js_getType, getType, js_setCssText, setCssText, js_getCssText, - getCssText, getCssTextUnsafe, getCssTextUnchecked, - js_getParentStyleSheet, getParentStyleSheet, - getParentStyleSheetUnsafe, getParentStyleSheetUnchecked, - js_getParentRule, getParentRule, getParentRuleUnsafe, - getParentRuleUnchecked, CSSRule(..), gTypeCSSRule, IsCSSRule, - toCSSRule) + (js_setCssText, js_getCssText, js_getParentRule, js_getParentStyleSheet, js_getType, setCssText, getCssText, getParentRule, getParentRuleUnsafe, getParentRuleUnchecked, getParentStyleSheet, getParentStyleSheetUnsafe, getParentStyleSheetUnchecked, getType, pattern STYLE_RULE, pattern CHARSET_RULE, pattern IMPORT_RULE, pattern MEDIA_RULE, pattern FONT_FACE_RULE, pattern PAGE_RULE, pattern MARGIN_RULE, pattern NAMESPACE_RULE, pattern KEYFRAMES_RULE, pattern KEYFRAME_RULE, pattern SUPPORTS_RULE, pattern COUNTER_STYLE_RULE, pattern FONT_FEATURE_VALUES_RULE, CSSRule(..), gTypeCSSRule, IsCSSRule, toCSSRule) where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull, jsUndefined) -import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import Data.Maybe (fromJust) -import Data.Traversable (mapM) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types -import Control.Applicative ((<$>)) +import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums -pattern UNKNOWN_RULE = 0 -pattern STYLE_RULE = 1 -pattern CHARSET_RULE = 2 -pattern IMPORT_RULE = 3 -pattern MEDIA_RULE = 4 -pattern FONT_FACE_RULE = 5 -pattern PAGE_RULE = 6 -pattern KEYFRAMES_RULE = 7 -pattern KEYFRAME_RULE = 8 -pattern NAMESPACE_RULE = 10 -pattern SUPPORTS_RULE = 12 -pattern WEBKIT_VIEWPORT_RULE = 15 -pattern WEBKIT_REGION_RULE = 16 -pattern WEBKIT_KEYFRAMES_RULE = 7 -pattern WEBKIT_KEYFRAME_RULE = 8 - -foreign import javascript unsafe "(($1) => { return $1[\"type\"]; })" js_getType :: - CSSRule -> IO Word --- | -getType :: (MonadIO m, IsCSSRule self) => self -> m Word -getType self = liftIO (js_getType (toCSSRule self)) - foreign import javascript safe "(($1, $2) => { $1[\"cssText\"] = $2; })" - js_setCssText :: CSSRule -> Optional JSString -> IO () + js_setCssText :: CSSRule -> JSString -> IO () +-- | +setCssText :: (MonadDOM m, IsCSSRule self, ToJSString val) => self -> val -> m () +setCssText self val = liftDOM (void ((js_setCssText ((Types.toCSSRule self)) (toJSString val)))) --- | -setCssText :: - (MonadIO m, IsCSSRule self, ToJSString val) => - self -> Maybe val -> m () -setCssText self val - = liftIO (js_setCssText (toCSSRule self) (toOptionalJSString val)) - -foreign import javascript unsafe "(($1) => { return $1[\"cssText\"]; })" js_getCssText :: - CSSRule -> IO (Nullable JSString) +foreign import javascript unsafe "(($1) => { return $1[\"cssText\"]; })" + js_getCssText :: CSSRule -> IO JSString +-- | +getCssText :: (MonadDOM m, IsCSSRule self, FromJSString result) => self -> m result +getCssText self = liftDOM ((fromJSString <$> (js_getCssText ((Types.toCSSRule self))))) --- | -getCssText :: - (MonadIO m, IsCSSRule self, FromJSString result) => - self -> m (Maybe result) -getCssText self - = liftIO (fromMaybeJSString <$> (js_getCssText (toCSSRule self))) +foreign import javascript unsafe "(($1) => { return $1[\"parentRule\"]; })" + js_getParentRule :: CSSRule -> IO JSVal +-- | +getParentRule :: (MonadDOM m, IsCSSRule self) => self -> m (Maybe CSSRule) +getParentRule self = liftDOM (((js_getParentRule ((Types.toCSSRule self))) >>= fromJSValUnchecked)) --- | -getCssTextUnsafe :: - (MonadIO m, IsCSSRule self, HasCallStack, FromJSString result) => - self -> m result -getCssTextUnsafe self - = liftIO - ((fromMaybeJSString <$> (js_getCssText (toCSSRule self))) >>= - maybe (Prelude.error "Nothing to return") return) +-- | +getParentRuleUnsafe :: (MonadDOM m, IsCSSRule self, HasCallStack) => self -> m CSSRule +getParentRuleUnsafe self = liftDOM ((((js_getParentRule ((Types.toCSSRule self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) --- | -getCssTextUnchecked :: - (MonadIO m, IsCSSRule self, FromJSString result) => - self -> m result -getCssTextUnchecked self - = liftIO - (fromJust . fromMaybeJSString <$> (js_getCssText (toCSSRule self))) - +-- | +getParentRuleUnchecked :: (MonadDOM m, IsCSSRule self) => self -> m CSSRule +getParentRuleUnchecked self = liftDOM ((pFromJSVal <$> (js_getParentRule ((Types.toCSSRule self))))) + foreign import javascript unsafe "(($1) => { return $1[\"parentStyleSheet\"]; })" - js_getParentStyleSheet :: CSSRule -> IO (Nullable CSSStyleSheet) + js_getParentStyleSheet :: CSSRule -> IO JSVal +-- | +getParentStyleSheet :: (MonadDOM m, IsCSSRule self) => self -> m (Maybe CSSStyleSheet) +getParentStyleSheet self = liftDOM (((js_getParentStyleSheet ((Types.toCSSRule self))) >>= fromJSValUnchecked)) --- | -getParentStyleSheet :: - (MonadIO m, IsCSSRule self) => self -> m (Maybe CSSStyleSheet) -getParentStyleSheet self - = liftIO - (nullableToMaybe <$> (js_getParentStyleSheet (toCSSRule self))) +-- | +getParentStyleSheetUnsafe :: (MonadDOM m, IsCSSRule self, HasCallStack) => self -> m CSSStyleSheet +getParentStyleSheetUnsafe self = liftDOM ((((js_getParentStyleSheet ((Types.toCSSRule self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) --- | -getParentStyleSheetUnsafe :: - (MonadIO m, IsCSSRule self, HasCallStack) => - self -> m CSSStyleSheet -getParentStyleSheetUnsafe self - = liftIO - ((nullableToMaybe <$> (js_getParentStyleSheet (toCSSRule self))) - >>= maybe (Prelude.error "Nothing to return") return) +-- | +getParentStyleSheetUnchecked :: (MonadDOM m, IsCSSRule self) => self -> m CSSStyleSheet +getParentStyleSheetUnchecked self = liftDOM ((pFromJSVal <$> (js_getParentStyleSheet ((Types.toCSSRule self))))) --- | -getParentStyleSheetUnchecked :: - (MonadIO m, IsCSSRule self) => self -> m CSSStyleSheet -getParentStyleSheetUnchecked self - = liftIO - (fromJust . nullableToMaybe <$> - (js_getParentStyleSheet (toCSSRule self))) - -foreign import javascript unsafe "(($1) => { return $1[\"parentRule\"]; })" - js_getParentRule :: CSSRule -> IO (Nullable CSSRule) +foreign import javascript unsafe "(($1) => { return $1[\"type\"]; })" + js_getType :: CSSRule -> IO Word +-- | +getType :: (MonadDOM m, IsCSSRule self) => self -> m Word +getType self = liftDOM ((js_getType ((Types.toCSSRule self)))) --- | -getParentRule :: - (MonadIO m, IsCSSRule self) => self -> m (Maybe CSSRule) -getParentRule self - = liftIO (nullableToMaybe <$> (js_getParentRule (toCSSRule self))) +pattern STYLE_RULE = 1 --- | -getParentRuleUnsafe :: - (MonadIO m, IsCSSRule self, HasCallStack) => self -> m CSSRule -getParentRuleUnsafe self - = liftIO - ((nullableToMaybe <$> (js_getParentRule (toCSSRule self))) >>= - maybe (Prelude.error "Nothing to return") return) +pattern CHARSET_RULE = 2 --- | -getParentRuleUnchecked :: - (MonadIO m, IsCSSRule self) => self -> m CSSRule -getParentRuleUnchecked self - = liftIO - (fromJust . nullableToMaybe <$> - (js_getParentRule (toCSSRule self))) +pattern IMPORT_RULE = 3 + +pattern MEDIA_RULE = 4 + +pattern FONT_FACE_RULE = 5 + +pattern PAGE_RULE = 6 + +pattern MARGIN_RULE = 9 + +pattern NAMESPACE_RULE = 10 + +pattern KEYFRAMES_RULE = 7 + +pattern KEYFRAME_RULE = 8 + +pattern SUPPORTS_RULE = 12 + +pattern COUNTER_STYLE_RULE = 11 + +pattern FONT_FEATURE_VALUES_RULE = 14 diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSRuleList.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSRuleList.hs --- a/src/GHCJS/DOM/JSFFI/Generated/CSSRuleList.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/CSSRuleList.hs @@ -1,45 +1,41 @@ {-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE JavaScriptFFI #-} --- For HasCallStack compatibility +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from cssom-1 (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.CSSRuleList - (js_item, item, item_, js_getLength, getLength, CSSRuleList(..), - gTypeCSSRuleList) + (js_item, js_getLength, item, item_, itemUnsafe, itemUnchecked, getLength, CSSRuleList(..), gTypeCSSRuleList) where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull, jsUndefined) -import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import Data.Maybe (fromJust) -import Data.Traversable (mapM) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types -import Control.Applicative ((<$>)) +import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums - -foreign import javascript unsafe "(($1, $2) => { return $1[$2]; })" js_item :: - CSSRuleList -> Word -> IO CSSRule --- | -item :: (MonadIO m) => CSSRuleList -> Word -> m CSSRule -item self index = liftIO (js_item self index) +foreign import javascript safe "(($1, $2) => { return $1[\"item\"]($2); })" + js_item :: CSSRuleList -> Word -> IO JSVal +-- | +item :: (MonadDOM m) => CSSRuleList -> Word -> m (Maybe CSSRule) +item self index = liftDOM (((js_item (self) (index)) >>= fromJSValUnchecked)) --- | -item_ :: (MonadIO m) => CSSRuleList -> Word -> m () -item_ self index = liftIO (void (js_item self index)) - -foreign import javascript unsafe "(($1) => { return $1[\"length\"]; })" js_getLength :: - CSSRuleList -> IO Word +-- | +item_ :: (MonadDOM m) => CSSRuleList -> Word -> m () +item_ self index = liftDOM (void ((js_item (self) (index)))) --- | -getLength :: (MonadIO m) => CSSRuleList -> m Word -getLength self = liftIO (js_getLength self) +-- | +itemUnsafe :: (MonadDOM m, HasCallStack) => CSSRuleList -> Word -> m CSSRule +itemUnsafe self index = liftDOM ((((js_item (self) (index)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +itemUnchecked :: (MonadDOM m) => CSSRuleList -> Word -> m CSSRule +itemUnchecked self index = liftDOM ((pFromJSVal <$> (js_item (self) (index)))) + +foreign import javascript unsafe "(($1) => { return $1[\"length\"]; })" + js_getLength :: CSSRuleList -> IO Word +-- | +getLength :: (MonadDOM m) => CSSRuleList -> m Word +getLength self = liftDOM ((js_getLength (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSScale.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSScale.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CSSScale.hs @@ -0,0 +1,59 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from css-typed-om-1 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CSSScale + (js_newCSSScale, js_setX, js_getX, js_setY, js_getY, js_setZ, js_getZ, newCSSScale, setX, getX, setY, getY, setZ, getZ, CSSScale(..), gTypeCSSScale) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1, $2, $3) => { return new globalThis[\"CSSScale\"]($1, $2, $3); })" + js_newCSSScale :: CSSNumberish -> CSSNumberish -> JSVal -> IO CSSScale +-- | +newCSSScale :: (MonadDOM m, IsCSSNumberish x, IsCSSNumberish y, IsCSSNumberish z) => x -> y -> Maybe z -> m CSSScale +newCSSScale x y z = liftDOM (((P.maybe (P.return jsUndefined) toJSVal z) >>= \a3' -> js_newCSSScale (Types.toCSSNumberish x) (Types.toCSSNumberish y) a3')) + +foreign import javascript safe "(($1, $2) => { $1[\"x\"] = $2; })" + js_setX :: CSSScale -> CSSNumberish -> IO () +-- | +setX :: (MonadDOM m, IsCSSNumberish val) => CSSScale -> val -> m () +setX self val = liftDOM (void ((js_setX (self) (Types.toCSSNumberish val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"x\"]; })" + js_getX :: CSSScale -> IO CSSNumberish +-- | +getX :: (MonadDOM m) => CSSScale -> m CSSNumberish +getX self = liftDOM ((js_getX (self))) + +foreign import javascript safe "(($1, $2) => { $1[\"y\"] = $2; })" + js_setY :: CSSScale -> CSSNumberish -> IO () +-- | +setY :: (MonadDOM m, IsCSSNumberish val) => CSSScale -> val -> m () +setY self val = liftDOM (void ((js_setY (self) (Types.toCSSNumberish val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"y\"]; })" + js_getY :: CSSScale -> IO CSSNumberish +-- | +getY :: (MonadDOM m) => CSSScale -> m CSSNumberish +getY self = liftDOM ((js_getY (self))) + +foreign import javascript safe "(($1, $2) => { $1[\"z\"] = $2; })" + js_setZ :: CSSScale -> CSSNumberish -> IO () +-- | +setZ :: (MonadDOM m, IsCSSNumberish val) => CSSScale -> val -> m () +setZ self val = liftDOM (void ((js_setZ (self) (Types.toCSSNumberish val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"z\"]; })" + js_getZ :: CSSScale -> IO CSSNumberish +-- | +getZ :: (MonadDOM m) => CSSScale -> m CSSNumberish +getZ self = liftDOM ((js_getZ (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSScopeRule.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSScopeRule.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CSSScopeRule.hs @@ -0,0 +1,45 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from css-cascade-6 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CSSScopeRule + (js_getStart, js_getEnd, getStart, getStartUnsafe, getStartUnchecked, getEnd, getEndUnsafe, getEndUnchecked, CSSScopeRule(..), gTypeCSSScopeRule) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript unsafe "(($1) => { return $1[\"start\"]; })" + js_getStart :: CSSScopeRule -> IO JSVal +-- | +getStart :: (MonadDOM m, FromJSString result) => CSSScopeRule -> m (Maybe result) +getStart self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getStart (self)))) + +-- | +getStartUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => CSSScopeRule -> m result +getStartUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getStart (self))) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getStartUnchecked :: (MonadDOM m, FromJSString result) => CSSScopeRule -> m result +getStartUnchecked self = liftDOM ((pFromJSVal <$> (js_getStart (self)))) + +foreign import javascript unsafe "(($1) => { return $1[\"end\"]; })" + js_getEnd :: CSSScopeRule -> IO JSVal +-- | +getEnd :: (MonadDOM m, FromJSString result) => CSSScopeRule -> m (Maybe result) +getEnd self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getEnd (self)))) + +-- | +getEndUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => CSSScopeRule -> m result +getEndUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getEnd (self))) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getEndUnchecked :: (MonadDOM m, FromJSString result) => CSSScopeRule -> m result +getEndUnchecked self = liftDOM ((pFromJSVal <$> (js_getEnd (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSSkew.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSSkew.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CSSSkew.hs @@ -0,0 +1,47 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from css-typed-om-1 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CSSSkew + (js_newCSSSkew, js_setAx, js_getAx, js_setAy, js_getAy, newCSSSkew, setAx, getAx, setAy, getAy, CSSSkew(..), gTypeCSSSkew) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1, $2) => { return new globalThis[\"CSSSkew\"]($1, $2); })" + js_newCSSSkew :: CSSNumericValue -> CSSNumericValue -> IO CSSSkew +-- | +newCSSSkew :: (MonadDOM m, IsCSSNumericValue ax, IsCSSNumericValue ay) => ax -> ay -> m CSSSkew +newCSSSkew ax ay = liftDOM ((js_newCSSSkew (Types.toCSSNumericValue ax) (Types.toCSSNumericValue ay))) + +foreign import javascript safe "(($1, $2) => { $1[\"ax\"] = $2; })" + js_setAx :: CSSSkew -> CSSNumericValue -> IO () +-- | +setAx :: (MonadDOM m, IsCSSNumericValue val) => CSSSkew -> val -> m () +setAx self val = liftDOM (void ((js_setAx (self) (Types.toCSSNumericValue val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"ax\"]; })" + js_getAx :: CSSSkew -> IO CSSNumericValue +-- | +getAx :: (MonadDOM m) => CSSSkew -> m CSSNumericValue +getAx self = liftDOM ((js_getAx (self))) + +foreign import javascript safe "(($1, $2) => { $1[\"ay\"] = $2; })" + js_setAy :: CSSSkew -> CSSNumericValue -> IO () +-- | +setAy :: (MonadDOM m, IsCSSNumericValue val) => CSSSkew -> val -> m () +setAy self val = liftDOM (void ((js_setAy (self) (Types.toCSSNumericValue val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"ay\"]; })" + js_getAy :: CSSSkew -> IO CSSNumericValue +-- | +getAy :: (MonadDOM m) => CSSSkew -> m CSSNumericValue +getAy self = liftDOM ((js_getAy (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSSkewX.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSSkewX.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CSSSkewX.hs @@ -0,0 +1,35 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from css-typed-om-1 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CSSSkewX + (js_newCSSSkewX, js_setAx, js_getAx, newCSSSkewX, setAx, getAx, CSSSkewX(..), gTypeCSSSkewX) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1) => { return new globalThis[\"CSSSkewX\"]($1); })" + js_newCSSSkewX :: CSSNumericValue -> IO CSSSkewX +-- | +newCSSSkewX :: (MonadDOM m, IsCSSNumericValue ax) => ax -> m CSSSkewX +newCSSSkewX ax = liftDOM ((js_newCSSSkewX (Types.toCSSNumericValue ax))) + +foreign import javascript safe "(($1, $2) => { $1[\"ax\"] = $2; })" + js_setAx :: CSSSkewX -> CSSNumericValue -> IO () +-- | +setAx :: (MonadDOM m, IsCSSNumericValue val) => CSSSkewX -> val -> m () +setAx self val = liftDOM (void ((js_setAx (self) (Types.toCSSNumericValue val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"ax\"]; })" + js_getAx :: CSSSkewX -> IO CSSNumericValue +-- | +getAx :: (MonadDOM m) => CSSSkewX -> m CSSNumericValue +getAx self = liftDOM ((js_getAx (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSSkewY.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSSkewY.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CSSSkewY.hs @@ -0,0 +1,35 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from css-typed-om-1 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CSSSkewY + (js_newCSSSkewY, js_setAy, js_getAy, newCSSSkewY, setAy, getAy, CSSSkewY(..), gTypeCSSSkewY) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1) => { return new globalThis[\"CSSSkewY\"]($1); })" + js_newCSSSkewY :: CSSNumericValue -> IO CSSSkewY +-- | +newCSSSkewY :: (MonadDOM m, IsCSSNumericValue ay) => ay -> m CSSSkewY +newCSSSkewY ay = liftDOM ((js_newCSSSkewY (Types.toCSSNumericValue ay))) + +foreign import javascript safe "(($1, $2) => { $1[\"ay\"] = $2; })" + js_setAy :: CSSSkewY -> CSSNumericValue -> IO () +-- | +setAy :: (MonadDOM m, IsCSSNumericValue val) => CSSSkewY -> val -> m () +setAy self val = liftDOM (void ((js_setAy (self) (Types.toCSSNumericValue val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"ay\"]; })" + js_getAy :: CSSSkewY -> IO CSSNumericValue +-- | +getAy :: (MonadDOM m) => CSSSkewY -> m CSSNumericValue +getAy self = liftDOM ((js_getAy (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSStartingStyleRule.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSStartingStyleRule.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CSSStartingStyleRule.hs @@ -0,0 +1,18 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from css-transitions-2 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CSSStartingStyleRule + (CSSStartingStyleRule(..), gTypeCSSStartingStyleRule) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSStyleDeclaration.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSStyleDeclaration.hs --- a/src/GHCJS/DOM/JSFFI/Generated/CSSStyleDeclaration.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/CSSStyleDeclaration.hs @@ -1,299 +1,95 @@ {-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE JavaScriptFFI #-} --- For HasCallStack compatibility +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from cssom-1 (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.CSSStyleDeclaration - (js_getPropertyValue, getPropertyValue, getPropertyValue_, - js_getPropertyCSSValue, getPropertyCSSValue, getPropertyCSSValue_, - getPropertyCSSValueUnsafe, getPropertyCSSValueUnchecked, - js_removeProperty, removeProperty, removeProperty_, - js_getPropertyPriority, getPropertyPriority, getPropertyPriority_, - getPropertyPriorityUnsafe, getPropertyPriorityUnchecked, - js_setProperty, setProperty, js_item, item, item_, - js_getPropertyShorthand, getPropertyShorthand, - getPropertyShorthand_, getPropertyShorthandUnsafe, - getPropertyShorthandUnchecked, js_isPropertyImplicit, - isPropertyImplicit, isPropertyImplicit_, js_setCssText, setCssText, - js_getCssText, getCssText, js_getLength, getLength, - js_getParentRule, getParentRule, getParentRuleUnsafe, - getParentRuleUnchecked, CSSStyleDeclaration(..), - gTypeCSSStyleDeclaration) + (js_getPropertyPriority, js_getPropertyValue, js_item, js_removeProperty, js_setProperty, js_setCssText, js_getCssText, js_getLength, js_getParentRule, getPropertyPriority, getPropertyPriority_, getPropertyValue, getPropertyValue_, item, item_, removeProperty, removeProperty_, setProperty, setCssText, getCssText, getLength, getParentRule, getParentRuleUnsafe, getParentRuleUnchecked, CSSStyleDeclaration(..), gTypeCSSStyleDeclaration, IsCSSStyleDeclaration, toCSSStyleDeclaration) where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull, jsUndefined) -import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import Data.Maybe (fromJust) -import Data.Traversable (mapM) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types -import Control.Applicative ((<$>)) +import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums - -foreign import javascript unsafe "(($1, $2) => { return $1[\"getPropertyValue\"]($2); })" - js_getPropertyValue :: - CSSStyleDeclaration -> JSString -> IO JSString --- | -getPropertyValue :: - (MonadIO m, ToJSString propertyName, FromJSString result) => - CSSStyleDeclaration -> propertyName -> m result -getPropertyValue self propertyName - = liftIO - (fromJSString <$> - (js_getPropertyValue self (toJSString propertyName))) +foreign import javascript safe "(($1, $2) => { return $1[\"getPropertyPriority\"]($2); })" + js_getPropertyPriority :: CSSStyleDeclaration -> JSString -> IO JSString +-- | +getPropertyPriority :: (MonadDOM m, IsCSSStyleDeclaration self, ToJSString property, FromJSString result) => self -> property -> m result +getPropertyPriority self property = liftDOM ((fromJSString <$> (js_getPropertyPriority ((Types.toCSSStyleDeclaration self)) (toJSString property)))) --- | -getPropertyValue_ :: - (MonadIO m, ToJSString propertyName) => - CSSStyleDeclaration -> propertyName -> m () -getPropertyValue_ self propertyName - = liftIO - (void (js_getPropertyValue self (toJSString propertyName))) - -foreign import javascript unsafe "(($1, $2) => { return $1[\"getPropertyCSSValue\"]($2); })" - js_getPropertyCSSValue :: - CSSStyleDeclaration -> JSString -> IO (Nullable CSSValue) +-- | +getPropertyPriority_ :: (MonadDOM m, IsCSSStyleDeclaration self, ToJSString property) => self -> property -> m () +getPropertyPriority_ self property = liftDOM (void ((js_getPropertyPriority ((Types.toCSSStyleDeclaration self)) (toJSString property)))) --- | -getPropertyCSSValue :: - (MonadIO m, ToJSString propertyName) => - CSSStyleDeclaration -> propertyName -> m (Maybe CSSValue) -getPropertyCSSValue self propertyName - = liftIO - (nullableToMaybe <$> - (js_getPropertyCSSValue self (toJSString propertyName))) +foreign import javascript safe "(($1, $2) => { return $1[\"getPropertyValue\"]($2); })" + js_getPropertyValue :: CSSStyleDeclaration -> JSString -> IO JSString +-- | +getPropertyValue :: (MonadDOM m, IsCSSStyleDeclaration self, ToJSString property, FromJSString result) => self -> property -> m result +getPropertyValue self property = liftDOM ((fromJSString <$> (js_getPropertyValue ((Types.toCSSStyleDeclaration self)) (toJSString property)))) --- | -getPropertyCSSValue_ :: - (MonadIO m, ToJSString propertyName) => - CSSStyleDeclaration -> propertyName -> m () -getPropertyCSSValue_ self propertyName - = liftIO - (void (js_getPropertyCSSValue self (toJSString propertyName))) +-- | +getPropertyValue_ :: (MonadDOM m, IsCSSStyleDeclaration self, ToJSString property) => self -> property -> m () +getPropertyValue_ self property = liftDOM (void ((js_getPropertyValue ((Types.toCSSStyleDeclaration self)) (toJSString property)))) --- | -getPropertyCSSValueUnsafe :: - (MonadIO m, ToJSString propertyName, HasCallStack) => - CSSStyleDeclaration -> propertyName -> m CSSValue -getPropertyCSSValueUnsafe self propertyName - = liftIO - ((nullableToMaybe <$> - (js_getPropertyCSSValue self (toJSString propertyName))) - >>= maybe (Prelude.error "Nothing to return") return) +foreign import javascript safe "(($1, $2) => { return $1[\"item\"]($2); })" + js_item :: CSSStyleDeclaration -> Word -> IO JSString +-- | +item :: (MonadDOM m, IsCSSStyleDeclaration self, FromJSString result) => self -> Word -> m result +item self index = liftDOM ((fromJSString <$> (js_item ((Types.toCSSStyleDeclaration self)) (index)))) --- | -getPropertyCSSValueUnchecked :: - (MonadIO m, ToJSString propertyName) => - CSSStyleDeclaration -> propertyName -> m CSSValue -getPropertyCSSValueUnchecked self propertyName - = liftIO - (fromJust . nullableToMaybe <$> - (js_getPropertyCSSValue self (toJSString propertyName))) - +-- | +item_ :: (MonadDOM m, IsCSSStyleDeclaration self) => self -> Word -> m () +item_ self index = liftDOM (void ((js_item ((Types.toCSSStyleDeclaration self)) (index)))) + foreign import javascript safe "(($1, $2) => { return $1[\"removeProperty\"]($2); })" js_removeProperty :: CSSStyleDeclaration -> JSString -> IO JSString - --- | -removeProperty :: - (MonadIO m, ToJSString propertyName, FromJSString result) => - CSSStyleDeclaration -> propertyName -> m result -removeProperty self propertyName - = liftIO - (fromJSString <$> - (js_removeProperty self (toJSString propertyName))) - --- | -removeProperty_ :: - (MonadIO m, ToJSString propertyName) => - CSSStyleDeclaration -> propertyName -> m () -removeProperty_ self propertyName - = liftIO (void (js_removeProperty self (toJSString propertyName))) - -foreign import javascript unsafe "(($1, $2) => { return $1[\"getPropertyPriority\"]($2); })" - js_getPropertyPriority :: - CSSStyleDeclaration -> JSString -> IO (Nullable JSString) - --- | -getPropertyPriority :: - (MonadIO m, ToJSString propertyName, FromJSString result) => - CSSStyleDeclaration -> propertyName -> m (Maybe result) -getPropertyPriority self propertyName - = liftIO - (fromMaybeJSString <$> - (js_getPropertyPriority self (toJSString propertyName))) - --- | -getPropertyPriority_ :: - (MonadIO m, ToJSString propertyName) => - CSSStyleDeclaration -> propertyName -> m () -getPropertyPriority_ self propertyName - = liftIO - (void (js_getPropertyPriority self (toJSString propertyName))) +-- | +removeProperty :: (MonadDOM m, IsCSSStyleDeclaration self, ToJSString property, FromJSString result) => self -> property -> m result +removeProperty self property = liftDOM ((fromJSString <$> (js_removeProperty ((Types.toCSSStyleDeclaration self)) (toJSString property)))) --- | -getPropertyPriorityUnsafe :: - (MonadIO m, ToJSString propertyName, HasCallStack, - FromJSString result) => - CSSStyleDeclaration -> propertyName -> m result -getPropertyPriorityUnsafe self propertyName - = liftIO - ((fromMaybeJSString <$> - (js_getPropertyPriority self (toJSString propertyName))) - >>= maybe (Prelude.error "Nothing to return") return) +-- | +removeProperty_ :: (MonadDOM m, IsCSSStyleDeclaration self, ToJSString property) => self -> property -> m () +removeProperty_ self property = liftDOM (void ((js_removeProperty ((Types.toCSSStyleDeclaration self)) (toJSString property)))) --- | -getPropertyPriorityUnchecked :: - (MonadIO m, ToJSString propertyName, FromJSString result) => - CSSStyleDeclaration -> propertyName -> m result -getPropertyPriorityUnchecked self propertyName - = liftIO - (fromJust . fromMaybeJSString <$> - (js_getPropertyPriority self (toJSString propertyName))) - foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"setProperty\"]($2, $3, $4); })" - js_setProperty :: - CSSStyleDeclaration -> - JSString -> JSString -> Optional JSString -> IO () - --- | -setProperty :: - (MonadIO m, ToJSString propertyName, ToJSString value, - ToJSString priority) => - CSSStyleDeclaration -> - propertyName -> value -> Maybe priority -> m () -setProperty self propertyName value priority - = liftIO - (js_setProperty self (toJSString propertyName) (toJSString value) - (toOptionalJSString priority)) - -foreign import javascript unsafe "(($1, $2) => { return $1[$2]; })" js_item :: - CSSStyleDeclaration -> Word -> IO JSString - --- | -item :: - (MonadIO m, FromJSString result) => - CSSStyleDeclaration -> Word -> m result -item self index = liftIO (fromJSString <$> (js_item self index)) - --- | -item_ :: (MonadIO m) => CSSStyleDeclaration -> Word -> m () -item_ self index = liftIO (void (js_item self index)) - -foreign import javascript unsafe "(($1, $2) => { return $1[\"getPropertyShorthand\"]($2); })" - js_getPropertyShorthand :: - CSSStyleDeclaration -> Optional JSString -> IO (Nullable JSString) - --- | -getPropertyShorthand :: - (MonadIO m, ToJSString propertyName, FromJSString result) => - CSSStyleDeclaration -> Maybe propertyName -> m (Maybe result) -getPropertyShorthand self propertyName - = liftIO - (fromMaybeJSString <$> - (js_getPropertyShorthand self (toOptionalJSString propertyName))) - --- | -getPropertyShorthand_ :: - (MonadIO m, ToJSString propertyName) => - CSSStyleDeclaration -> Maybe propertyName -> m () -getPropertyShorthand_ self propertyName - = liftIO - (void - (js_getPropertyShorthand self (toOptionalJSString propertyName))) - --- | -getPropertyShorthandUnsafe :: - (MonadIO m, ToJSString propertyName, HasCallStack, - FromJSString result) => - CSSStyleDeclaration -> Maybe propertyName -> m result -getPropertyShorthandUnsafe self propertyName - = liftIO - ((fromMaybeJSString <$> - (js_getPropertyShorthand self (toOptionalJSString propertyName))) - >>= maybe (Prelude.error "Nothing to return") return) - --- | -getPropertyShorthandUnchecked :: - (MonadIO m, ToJSString propertyName, FromJSString result) => - CSSStyleDeclaration -> Maybe propertyName -> m result -getPropertyShorthandUnchecked self propertyName - = liftIO - (fromJust . fromMaybeJSString <$> - (js_getPropertyShorthand self (toOptionalJSString propertyName))) - -foreign import javascript unsafe - "(($1, $2) => { return ($1[\"isPropertyImplicit\"]($2) ? 1 : 0); })" js_isPropertyImplicit :: - CSSStyleDeclaration -> Optional JSString -> IO Bool - --- | -isPropertyImplicit :: - (MonadIO m, ToJSString propertyName) => - CSSStyleDeclaration -> Maybe propertyName -> m Bool -isPropertyImplicit self propertyName - = liftIO - (js_isPropertyImplicit self (toOptionalJSString propertyName)) + js_setProperty :: CSSStyleDeclaration -> JSString -> JSString -> (Optional JSString) -> IO () +-- | +setProperty :: (MonadDOM m, IsCSSStyleDeclaration self, ToJSString property, ToJSString value, ToJSString priority) => self -> property -> value -> Maybe priority -> m () +setProperty self property value priority = liftDOM (void ((js_setProperty ((Types.toCSSStyleDeclaration self)) (toJSString property) (toJSString value) (toOptionalJSString priority)))) --- | -isPropertyImplicit_ :: - (MonadIO m, ToJSString propertyName) => - CSSStyleDeclaration -> Maybe propertyName -> m () -isPropertyImplicit_ self propertyName - = liftIO - (void - (js_isPropertyImplicit self (toOptionalJSString propertyName))) - foreign import javascript safe "(($1, $2) => { $1[\"cssText\"] = $2; })" js_setCssText :: CSSStyleDeclaration -> JSString -> IO () +-- | +setCssText :: (MonadDOM m, IsCSSStyleDeclaration self, ToJSString val) => self -> val -> m () +setCssText self val = liftDOM (void ((js_setCssText ((Types.toCSSStyleDeclaration self)) (toJSString val)))) --- | -setCssText :: - (MonadIO m, ToJSString val) => CSSStyleDeclaration -> val -> m () -setCssText self val = liftIO (js_setCssText self (toJSString val)) - -foreign import javascript unsafe "(($1) => { return $1[\"cssText\"]; })" js_getCssText :: - CSSStyleDeclaration -> IO JSString +foreign import javascript unsafe "(($1) => { return $1[\"cssText\"]; })" + js_getCssText :: CSSStyleDeclaration -> IO JSString +-- | +getCssText :: (MonadDOM m, IsCSSStyleDeclaration self, FromJSString result) => self -> m result +getCssText self = liftDOM ((fromJSString <$> (js_getCssText ((Types.toCSSStyleDeclaration self))))) --- | -getCssText :: - (MonadIO m, FromJSString result) => CSSStyleDeclaration -> m result -getCssText self = liftIO (fromJSString <$> (js_getCssText self)) - -foreign import javascript unsafe "(($1) => { return $1[\"length\"]; })" js_getLength :: - CSSStyleDeclaration -> IO Word +foreign import javascript unsafe "(($1) => { return $1[\"length\"]; })" + js_getLength :: CSSStyleDeclaration -> IO Word +-- | +getLength :: (MonadDOM m, IsCSSStyleDeclaration self) => self -> m Word +getLength self = liftDOM ((js_getLength ((Types.toCSSStyleDeclaration self)))) --- | -getLength :: (MonadIO m) => CSSStyleDeclaration -> m Word -getLength self = liftIO (js_getLength self) - foreign import javascript unsafe "(($1) => { return $1[\"parentRule\"]; })" - js_getParentRule :: CSSStyleDeclaration -> IO (Nullable CSSRule) - --- | -getParentRule :: - (MonadIO m) => CSSStyleDeclaration -> m (Maybe CSSRule) -getParentRule self - = liftIO (nullableToMaybe <$> (js_getParentRule self)) + js_getParentRule :: CSSStyleDeclaration -> IO JSVal +-- | +getParentRule :: (MonadDOM m, IsCSSStyleDeclaration self) => self -> m (Maybe CSSRule) +getParentRule self = liftDOM (((js_getParentRule ((Types.toCSSStyleDeclaration self))) >>= fromJSValUnchecked)) --- | -getParentRuleUnsafe :: - (MonadIO m, HasCallStack) => CSSStyleDeclaration -> m CSSRule -getParentRuleUnsafe self - = liftIO - ((nullableToMaybe <$> (js_getParentRule self)) >>= - maybe (Prelude.error "Nothing to return") return) +-- | +getParentRuleUnsafe :: (MonadDOM m, IsCSSStyleDeclaration self, HasCallStack) => self -> m CSSRule +getParentRuleUnsafe self = liftDOM ((((js_getParentRule ((Types.toCSSStyleDeclaration self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) --- | -getParentRuleUnchecked :: - (MonadIO m) => CSSStyleDeclaration -> m CSSRule -getParentRuleUnchecked self - = liftIO (fromJust . nullableToMaybe <$> (js_getParentRule self)) +-- | +getParentRuleUnchecked :: (MonadDOM m, IsCSSStyleDeclaration self) => self -> m CSSRule +getParentRuleUnchecked self = liftDOM ((pFromJSVal <$> (js_getParentRule ((Types.toCSSStyleDeclaration self))))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSStyleProperties.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSStyleProperties.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CSSStyleProperties.hs @@ -0,0 +1,29 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from cssom-1 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CSSStyleProperties + (js_setCssFloat, js_getCssFloat, setCssFloat, getCssFloat, CSSStyleProperties(..), gTypeCSSStyleProperties) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1, $2) => { $1[\"cssFloat\"] = $2; })" + js_setCssFloat :: CSSStyleProperties -> JSString -> IO () +-- | +setCssFloat :: (MonadDOM m, ToJSString val) => CSSStyleProperties -> val -> m () +setCssFloat self val = liftDOM (void ((js_setCssFloat (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"cssFloat\"]; })" + js_getCssFloat :: CSSStyleProperties -> IO JSString +-- | +getCssFloat :: (MonadDOM m, FromJSString result) => CSSStyleProperties -> m result +getCssFloat self = liftDOM ((fromJSString <$> (js_getCssFloat (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSStyleRule.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSStyleRule.hs --- a/src/GHCJS/DOM/JSFFI/Generated/CSSStyleRule.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/CSSStyleRule.hs @@ -1,70 +1,41 @@ {-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE JavaScriptFFI #-} --- For HasCallStack compatibility +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from cssom-1 (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.CSSStyleRule - (js_setSelectorText, setSelectorText, js_getSelectorText, - getSelectorText, getSelectorTextUnsafe, getSelectorTextUnchecked, - js_getStyle, getStyle, CSSStyleRule(..), gTypeCSSStyleRule) + (js_setSelectorText, js_getSelectorText, js_getStyle, js_getStyleMap, setSelectorText, getSelectorText, getStyle, getStyleMap, CSSStyleRule(..), gTypeCSSStyleRule) where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull, jsUndefined) -import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import Data.Maybe (fromJust) -import Data.Traversable (mapM) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types -import Control.Applicative ((<$>)) +import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums - -foreign import javascript unsafe "(($1, $2) => { $1[\"selectorText\"] = $2; })" - js_setSelectorText :: CSSStyleRule -> Optional JSString -> IO () --- | -setSelectorText :: - (MonadIO m, ToJSString val) => CSSStyleRule -> Maybe val -> m () -setSelectorText self val - = liftIO (js_setSelectorText self (toOptionalJSString val)) - -foreign import javascript unsafe "(($1) => { return $1[\"selectorText\"]; })" - js_getSelectorText :: CSSStyleRule -> IO (Nullable JSString) - --- | -getSelectorText :: - (MonadIO m, FromJSString result) => - CSSStyleRule -> m (Maybe result) -getSelectorText self - = liftIO (fromMaybeJSString <$> (js_getSelectorText self)) +foreign import javascript safe "(($1, $2) => { $1[\"selectorText\"] = $2; })" + js_setSelectorText :: CSSStyleRule -> JSString -> IO () +-- | +setSelectorText :: (MonadDOM m, ToJSString val) => CSSStyleRule -> val -> m () +setSelectorText self val = liftDOM (void ((js_setSelectorText (self) (toJSString val)))) --- | -getSelectorTextUnsafe :: - (MonadIO m, HasCallStack, FromJSString result) => - CSSStyleRule -> m result -getSelectorTextUnsafe self - = liftIO - ((fromMaybeJSString <$> (js_getSelectorText self)) >>= - maybe (Prelude.error "Nothing to return") return) +foreign import javascript unsafe "(($1) => { return $1[\"selectorText\"]; })" + js_getSelectorText :: CSSStyleRule -> IO JSString +-- | +getSelectorText :: (MonadDOM m, FromJSString result) => CSSStyleRule -> m result +getSelectorText self = liftDOM ((fromJSString <$> (js_getSelectorText (self)))) --- | -getSelectorTextUnchecked :: - (MonadIO m, FromJSString result) => CSSStyleRule -> m result -getSelectorTextUnchecked self - = liftIO - (fromJust . fromMaybeJSString <$> (js_getSelectorText self)) - -foreign import javascript unsafe "(($1) => { return $1[\"style\"]; })" js_getStyle :: - CSSStyleRule -> IO CSSStyleDeclaration +foreign import javascript unsafe "(($1) => { return $1[\"style\"]; })" + js_getStyle :: CSSStyleRule -> IO CSSStyleProperties +-- | +getStyle :: (MonadDOM m) => CSSStyleRule -> m CSSStyleProperties +getStyle self = liftDOM ((js_getStyle (self))) --- | -getStyle :: (MonadIO m) => CSSStyleRule -> m CSSStyleDeclaration -getStyle self = liftIO (js_getStyle self) +foreign import javascript unsafe "(($1) => { return $1[\"styleMap\"]; })" + js_getStyleMap :: CSSStyleRule -> IO StylePropertyMap +-- | +getStyleMap :: (MonadDOM m) => CSSStyleRule -> m StylePropertyMap +getStyleMap self = liftDOM ((js_getStyleMap (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSStyleSheet.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSStyleSheet.hs --- a/src/GHCJS/DOM/JSFFI/Generated/CSSStyleSheet.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/CSSStyleSheet.hs @@ -1,129 +1,107 @@ {-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE JavaScriptFFI #-} --- For HasCallStack compatibility +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from cssom-1 (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.CSSStyleSheet - (js_insertRuleDeprecated, insertRuleDeprecated, - insertRuleDeprecated_, js_insertRule, insertRule, insertRule_, - js_deleteRule, deleteRule, js_addRule, addRule, addRule_, - js_removeRule, removeRule, js_getOwnerRule, getOwnerRule, - js_getCssRules, getCssRules, js_getRules, getRules, - CSSStyleSheet(..), gTypeCSSStyleSheet) + (js_newCSSStyleSheet, js_addRule, js_deleteRule, js_insertRule, js_insertRule', js_removeRule, js_replace, js_replaceSync, js_getOwnerRule, js_getCssRules, js_getRules, newCSSStyleSheet, addRule, addRule_, deleteRule, insertRule, insertRule_, insertRule', insertRule'_, removeRule, replace, replace_, replaceSync, getOwnerRule, getOwnerRuleUnsafe, getOwnerRuleUnchecked, getCssRules, getRules, CSSStyleSheet(..), gTypeCSSStyleSheet) where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull, jsUndefined) -import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import Data.Maybe (fromJust) -import Data.Traversable (mapM) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types -import Control.Applicative ((<$>)) +import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums - -foreign import javascript safe "(($1, $2, $3) => { return $1[\"insertRule\"]($2, $3); })" - js_insertRuleDeprecated :: - CSSStyleSheet -> JSString -> Word -> IO Word --- | -insertRuleDeprecated :: - (MonadIO m, ToJSString rule) => - CSSStyleSheet -> rule -> Word -> m Word -insertRuleDeprecated self rule index - = liftIO (js_insertRuleDeprecated self (toJSString rule) index) +foreign import javascript safe "(($1) => { return new globalThis[\"CSSStyleSheet\"]($1); })" + js_newCSSStyleSheet :: JSVal -> IO CSSStyleSheet +-- | +newCSSStyleSheet :: (MonadDOM m) => Maybe CSSStyleSheetInit -> m CSSStyleSheet +newCSSStyleSheet options = liftDOM (((P.maybe (P.return jsUndefined) toJSVal options) >>= \a1' -> js_newCSSStyleSheet a1')) --- | -insertRuleDeprecated_ :: - (MonadIO m, ToJSString rule) => - CSSStyleSheet -> rule -> Word -> m () -insertRuleDeprecated_ self rule index - = liftIO - (void (js_insertRuleDeprecated self (toJSString rule) index)) - -foreign import javascript safe "(($1, $2) => { return $1[\"insertRule\"]($2); })" - js_insertRule :: CSSStyleSheet -> JSString -> IO Word +foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"addRule\"]($2, $3, $4); })" + js_addRule :: CSSStyleSheet -> (Optional JSString) -> (Optional JSString) -> JSVal -> IO Int +-- | +addRule :: (MonadDOM m, ToJSString selector, ToJSString style) => CSSStyleSheet -> Maybe selector -> Maybe style -> Maybe Word -> m Int +addRule self selector style index = liftDOM (((P.maybe (P.return jsUndefined) toJSVal index) >>= \a4' -> js_addRule (self) (toOptionalJSString selector) (toOptionalJSString style) a4')) --- | -insertRule :: - (MonadIO m, ToJSString rule) => CSSStyleSheet -> rule -> m Word -insertRule self rule - = liftIO (js_insertRule self (toJSString rule)) +-- | +addRule_ :: (MonadDOM m, ToJSString selector, ToJSString style) => CSSStyleSheet -> Maybe selector -> Maybe style -> Maybe Word -> m () +addRule_ self selector style index = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal index) >>= \a4' -> js_addRule (self) (toOptionalJSString selector) (toOptionalJSString style) a4'))) --- | -insertRule_ :: - (MonadIO m, ToJSString rule) => CSSStyleSheet -> rule -> m () -insertRule_ self rule - = liftIO (void (js_insertRule self (toJSString rule))) - foreign import javascript safe "(($1, $2) => { return $1[\"deleteRule\"]($2); })" js_deleteRule :: CSSStyleSheet -> Word -> IO () +-- | +deleteRule :: (MonadDOM m) => CSSStyleSheet -> Word -> m () +deleteRule self index = liftDOM (void ((js_deleteRule (self) (index)))) --- | -deleteRule :: (MonadIO m) => CSSStyleSheet -> Word -> m () -deleteRule self index = liftIO (js_deleteRule self index) - -foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"addRule\"]($2, $3, $4); })" - js_addRule :: - CSSStyleSheet -> - Optional JSString -> Optional JSString -> Optional Word -> IO Int +foreign import javascript safe "(($1, $2) => { return $1[\"insertRule\"]($2); })" + js_insertRule :: CSSStyleSheet -> JSString -> IO Word +-- | +insertRule :: (MonadDOM m, ToJSString rule) => CSSStyleSheet -> rule -> m Word +insertRule self rule = liftDOM ((js_insertRule (self) (toJSString rule))) --- | -addRule :: - (MonadIO m, ToJSString selector, ToJSString style) => - CSSStyleSheet -> - Maybe selector -> Maybe style -> Maybe Word -> m Int -addRule self selector style index - = liftIO - (js_addRule self (toOptionalJSString selector) - (toOptionalJSString style) - (maybeToOptional index)) +-- | +insertRule_ :: (MonadDOM m, ToJSString rule) => CSSStyleSheet -> rule -> m () +insertRule_ self rule = liftDOM (void ((js_insertRule (self) (toJSString rule)))) --- | -addRule_ :: - (MonadIO m, ToJSString selector, ToJSString style) => - CSSStyleSheet -> - Maybe selector -> Maybe style -> Maybe Word -> m () -addRule_ self selector style index - = liftIO - (void - (js_addRule self (toOptionalJSString selector) - (toOptionalJSString style) - (maybeToOptional index))) - +foreign import javascript safe "(($1, $2, $3) => { return $1[\"insertRule\"]($2, $3); })" + js_insertRule' :: CSSStyleSheet -> JSString -> JSVal -> IO Word +-- | +insertRule' :: (MonadDOM m, ToJSString rule) => CSSStyleSheet -> rule -> Maybe Word -> m Word +insertRule' self rule index = liftDOM (((P.maybe (P.return jsUndefined) toJSVal index) >>= \a3' -> js_insertRule' (self) (toJSString rule) a3')) + +-- | +insertRule'_ :: (MonadDOM m, ToJSString rule) => CSSStyleSheet -> rule -> Maybe Word -> m () +insertRule'_ self rule index = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal index) >>= \a3' -> js_insertRule' (self) (toJSString rule) a3'))) + foreign import javascript safe "(($1, $2) => { return $1[\"removeRule\"]($2); })" - js_removeRule :: CSSStyleSheet -> Optional Word -> IO () + js_removeRule :: CSSStyleSheet -> JSVal -> IO () +-- | +removeRule :: (MonadDOM m) => CSSStyleSheet -> Maybe Word -> m () +removeRule self index = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal index) >>= \a2' -> js_removeRule (self) a2'))) --- | -removeRule :: (MonadIO m) => CSSStyleSheet -> Maybe Word -> m () -removeRule self index - = liftIO (js_removeRule self (maybeToOptional index)) - +foreign import javascript interruptible "(($1, $2, $c) => { return $1[\"replace\"]($2).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })" + js_replace :: CSSStyleSheet -> JSString -> IO (JSVal, CSSStyleSheet) +-- | +replace :: (MonadDOM m, ToJSString text) => CSSStyleSheet -> text -> m CSSStyleSheet +replace self text = liftDOM (((js_replace (self) (toJSString text)) >>= checkPromiseResult)) + +-- | +replace_ :: (MonadDOM m, ToJSString text) => CSSStyleSheet -> text -> m () +replace_ self text = liftDOM (void (((js_replace (self) (toJSString text)) >>= checkPromiseResult))) + +foreign import javascript safe "(($1, $2) => { return $1[\"replaceSync\"]($2); })" + js_replaceSync :: CSSStyleSheet -> JSString -> IO () +-- | +replaceSync :: (MonadDOM m, ToJSString text) => CSSStyleSheet -> text -> m () +replaceSync self text = liftDOM (void ((js_replaceSync (self) (toJSString text)))) + foreign import javascript unsafe "(($1) => { return $1[\"ownerRule\"]; })" - js_getOwnerRule :: CSSStyleSheet -> IO CSSRule + js_getOwnerRule :: CSSStyleSheet -> IO JSVal +-- | +getOwnerRule :: (MonadDOM m) => CSSStyleSheet -> m (Maybe CSSRule) +getOwnerRule self = liftDOM (((js_getOwnerRule (self)) >>= fromJSValUnchecked)) --- | -getOwnerRule :: (MonadIO m) => CSSStyleSheet -> m CSSRule -getOwnerRule self = liftIO (js_getOwnerRule self) - -foreign import javascript unsafe "(($1) => { return $1[\"cssRules\"]; })" js_getCssRules - :: CSSStyleSheet -> IO CSSRuleList +-- | +getOwnerRuleUnsafe :: (MonadDOM m, HasCallStack) => CSSStyleSheet -> m CSSRule +getOwnerRuleUnsafe self = liftDOM ((((js_getOwnerRule (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) --- | -getCssRules :: (MonadIO m) => CSSStyleSheet -> m CSSRuleList -getCssRules self = liftIO (js_getCssRules self) - -foreign import javascript unsafe "(($1) => { return $1[\"rules\"]; })" js_getRules :: - CSSStyleSheet -> IO CSSRuleList +-- | +getOwnerRuleUnchecked :: (MonadDOM m) => CSSStyleSheet -> m CSSRule +getOwnerRuleUnchecked self = liftDOM ((pFromJSVal <$> (js_getOwnerRule (self)))) --- | -getRules :: (MonadIO m) => CSSStyleSheet -> m CSSRuleList -getRules self = liftIO (js_getRules self) +foreign import javascript unsafe "(($1) => { return $1[\"cssRules\"]; })" + js_getCssRules :: CSSStyleSheet -> IO CSSRuleList +-- | +getCssRules :: (MonadDOM m) => CSSStyleSheet -> m CSSRuleList +getCssRules self = liftDOM ((js_getCssRules (self))) + +foreign import javascript unsafe "(($1) => { return $1[\"rules\"]; })" + js_getRules :: CSSStyleSheet -> IO CSSRuleList +-- | +getRules :: (MonadDOM m) => CSSStyleSheet -> m CSSRuleList +getRules self = liftDOM ((js_getRules (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSStyleSheetInit.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSStyleSheetInit.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CSSStyleSheetInit.hs @@ -0,0 +1,83 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from cssom-1 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CSSStyleSheetInit + (js_newCSSStyleSheetInit, js_setBaseURL, js_getBaseURL, js_setMedia, js_getMedia, js_setDisabled, js_getDisabled, newCSSStyleSheetInit, setBaseURL, getBaseURL, getBaseURLUnsafe, getBaseURLUnchecked, setMedia, getMedia, getMediaUnsafe, getMediaUnchecked, setDisabled, getDisabled, getDisabledUnsafe, getDisabledUnchecked, CSSStyleSheetInit(..), gTypeCSSStyleSheetInit) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(() => { return ({}); })" + js_newCSSStyleSheetInit :: IO CSSStyleSheetInit +-- | +newCSSStyleSheetInit :: (MonadDOM m) => m CSSStyleSheetInit +newCSSStyleSheetInit = liftDOM ((js_newCSSStyleSheetInit)) + +foreign import javascript safe "(($1, $2) => { $1[\"baseURL\"] = $2; })" + js_setBaseURL :: CSSStyleSheetInit -> (Nullable JSString) -> IO () +-- | +setBaseURL :: (MonadDOM m, ToJSString val) => CSSStyleSheetInit -> Maybe val -> m () +setBaseURL self val = liftDOM (void ((js_setBaseURL (self) (toMaybeJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"baseURL\"]; })" + js_getBaseURL :: CSSStyleSheetInit -> IO JSVal +-- | +getBaseURL :: (MonadDOM m, FromJSString result) => CSSStyleSheetInit -> m (Maybe result) +getBaseURL self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getBaseURL (self)))) + +-- | +getBaseURLUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => CSSStyleSheetInit -> m result +getBaseURLUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getBaseURL (self))) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getBaseURLUnchecked :: (MonadDOM m, FromJSString result) => CSSStyleSheetInit -> m result +getBaseURLUnchecked self = liftDOM ((pFromJSVal <$> (js_getBaseURL (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"media\"] = $2; })" + js_setMedia :: CSSStyleSheetInit -> MediaListOrString -> IO () +-- | +setMedia :: (MonadDOM m, IsMediaListOrString val) => CSSStyleSheetInit -> val -> m () +setMedia self val = liftDOM (void ((js_setMedia (self) (Types.toMediaListOrString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"media\"]; })" + js_getMedia :: CSSStyleSheetInit -> IO JSVal +-- | +getMedia :: (MonadDOM m) => CSSStyleSheetInit -> m (Maybe MediaListOrString) +getMedia self = liftDOM (((js_getMedia (self)) >>= fromJSValUnchecked)) + +-- | +getMediaUnsafe :: (MonadDOM m, HasCallStack) => CSSStyleSheetInit -> m MediaListOrString +getMediaUnsafe self = liftDOM ((((js_getMedia (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getMediaUnchecked :: (MonadDOM m) => CSSStyleSheetInit -> m MediaListOrString +getMediaUnchecked self = liftDOM ((pFromJSVal <$> (js_getMedia (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"disabled\"] = $2; })" + js_setDisabled :: CSSStyleSheetInit -> Bool -> IO () +-- | +setDisabled :: (MonadDOM m) => CSSStyleSheetInit -> Bool -> m () +setDisabled self val = liftDOM (void ((js_setDisabled (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"disabled\"]; })" + js_getDisabled :: CSSStyleSheetInit -> IO JSVal +-- | +getDisabled :: (MonadDOM m) => CSSStyleSheetInit -> m (Maybe Bool) +getDisabled self = liftDOM (((js_getDisabled (self)) >>= fromJSValUnchecked)) + +-- | +getDisabledUnsafe :: (MonadDOM m, HasCallStack) => CSSStyleSheetInit -> m Bool +getDisabledUnsafe self = liftDOM ((((js_getDisabled (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getDisabledUnchecked :: (MonadDOM m) => CSSStyleSheetInit -> m Bool +getDisabledUnchecked self = liftDOM ((pFromJSVal <$> (js_getDisabled (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSStyleValue.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSStyleValue.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CSSStyleValue.hs @@ -0,0 +1,37 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from css-typed-om-1 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CSSStyleValue + (js_parse, js_parseAll, parse, parse_, parseAll, parseAll_, CSSStyleValue(..), gTypeCSSStyleValue, IsCSSStyleValue, toCSSStyleValue) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1, $2) => { return globalThis[\"CSSStyleValue\"][\"parse\"]($1, $2); })" + js_parse :: JSString -> JSString -> IO CSSStyleValue +-- | +parse :: (MonadDOM m, ToJSString property, ToJSString cssText) => property -> cssText -> m CSSStyleValue +parse property cssText = liftDOM ((js_parse (toJSString property) (toJSString cssText))) + +-- | +parse_ :: (MonadDOM m, ToJSString property, ToJSString cssText) => property -> cssText -> m () +parse_ property cssText = liftDOM (void ((js_parse (toJSString property) (toJSString cssText)))) + +foreign import javascript safe "(($1, $2) => { return globalThis[\"CSSStyleValue\"][\"parseAll\"]($1, $2); })" + js_parseAll :: JSString -> JSString -> IO JSVal +-- | +parseAll :: (MonadDOM m, ToJSString property, ToJSString cssText) => property -> cssText -> m [CSSStyleValue] +parseAll property cssText = liftDOM (((js_parseAll (toJSString property) (toJSString cssText)) >>= fromJSValUnchecked)) + +-- | +parseAll_ :: (MonadDOM m, ToJSString property, ToJSString cssText) => property -> cssText -> m () +parseAll_ property cssText = liftDOM (void ((js_parseAll (toJSString property) (toJSString cssText)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSSupportsRule.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSSupportsRule.hs --- a/src/GHCJS/DOM/JSFFI/Generated/CSSSupportsRule.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/CSSSupportsRule.hs @@ -1,68 +1,18 @@ {-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE JavaScriptFFI #-} --- For HasCallStack compatibility +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from css-conditional-3 (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.CSSSupportsRule - (js_insertRule, insertRule, insertRule_, js_deleteRule, deleteRule, - js_getCssRules, getCssRules, js_getConditionText, getConditionText, - CSSSupportsRule(..), gTypeCSSSupportsRule) + (CSSSupportsRule(..), gTypeCSSSupportsRule) where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull, jsUndefined) -import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import Data.Maybe (fromJust) -import Data.Traversable (mapM) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types -import Control.Applicative ((<$>)) +import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums - -foreign import javascript safe "(($1, $2, $3) => { return $1[\"insertRule\"]($2, $3); })" - js_insertRule :: CSSSupportsRule -> JSString -> Word -> IO Word --- | -insertRule :: - (MonadIO m, ToJSString rule) => - CSSSupportsRule -> rule -> Word -> m Word -insertRule self rule index - = liftIO (js_insertRule self (toJSString rule) index) - --- | -insertRule_ :: - (MonadIO m, ToJSString rule) => - CSSSupportsRule -> rule -> Word -> m () -insertRule_ self rule index - = liftIO (void (js_insertRule self (toJSString rule) index)) - -foreign import javascript safe "(($1, $2) => { return $1[\"deleteRule\"]($2); })" - js_deleteRule :: CSSSupportsRule -> Word -> IO () - --- | -deleteRule :: (MonadIO m) => CSSSupportsRule -> Word -> m () -deleteRule self index = liftIO (js_deleteRule self index) - -foreign import javascript unsafe "(($1) => { return $1[\"cssRules\"]; })" js_getCssRules - :: CSSSupportsRule -> IO CSSRuleList - --- | -getCssRules :: (MonadIO m) => CSSSupportsRule -> m CSSRuleList -getCssRules self = liftIO (js_getCssRules self) - -foreign import javascript unsafe "(($1) => { return $1[\"conditionText\"]; })" - js_getConditionText :: CSSSupportsRule -> IO JSString - --- | -getConditionText :: - (MonadIO m, FromJSString result) => CSSSupportsRule -> m result -getConditionText self - = liftIO (fromJSString <$> (js_getConditionText self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSTransformComponent.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSTransformComponent.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CSSTransformComponent.hs @@ -0,0 +1,39 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from css-typed-om-1 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CSSTransformComponent + (js_toMatrix, js_setIs2D, js_getIs2D, toMatrix, toMatrix_, setIs2D, getIs2D, CSSTransformComponent(..), gTypeCSSTransformComponent, IsCSSTransformComponent, toCSSTransformComponent) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1) => { return $1[\"toMatrix\"](); })" + js_toMatrix :: CSSTransformComponent -> IO DOMMatrix +-- | +toMatrix :: (MonadDOM m, IsCSSTransformComponent self) => self -> m DOMMatrix +toMatrix self = liftDOM ((js_toMatrix ((Types.toCSSTransformComponent self)))) + +-- | +toMatrix_ :: (MonadDOM m, IsCSSTransformComponent self) => self -> m () +toMatrix_ self = liftDOM (void ((js_toMatrix ((Types.toCSSTransformComponent self))))) + +foreign import javascript safe "(($1, $2) => { $1[\"is2D\"] = $2; })" + js_setIs2D :: CSSTransformComponent -> Bool -> IO () +-- | +setIs2D :: (MonadDOM m, IsCSSTransformComponent self) => self -> Bool -> m () +setIs2D self val = liftDOM (void ((js_setIs2D ((Types.toCSSTransformComponent self)) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"is2D\"]; })" + js_getIs2D :: CSSTransformComponent -> IO Bool +-- | +getIs2D :: (MonadDOM m, IsCSSTransformComponent self) => self -> m Bool +getIs2D self = liftDOM ((js_getIs2D ((Types.toCSSTransformComponent self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSTransformValue.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSTransformValue.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CSSTransformValue.hs @@ -0,0 +1,45 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from css-typed-om-1 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CSSTransformValue + (js_newCSSTransformValue, js_toMatrix, js_getLength, js_getIs2D, newCSSTransformValue, toMatrix, toMatrix_, getLength, getIs2D, CSSTransformValue(..), gTypeCSSTransformValue) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1) => { return new globalThis[\"CSSTransformValue\"]($1); })" + js_newCSSTransformValue :: JSVal -> IO CSSTransformValue +-- | +newCSSTransformValue :: (MonadDOM m, IsCSSTransformComponent transforms) => [transforms] -> m CSSTransformValue +newCSSTransformValue transforms = liftDOM (((toJSVal transforms) >>= \a1' -> js_newCSSTransformValue a1')) + +foreign import javascript safe "(($1) => { return $1[\"toMatrix\"](); })" + js_toMatrix :: CSSTransformValue -> IO DOMMatrix +-- | +toMatrix :: (MonadDOM m) => CSSTransformValue -> m DOMMatrix +toMatrix self = liftDOM ((js_toMatrix (self))) + +-- | +toMatrix_ :: (MonadDOM m) => CSSTransformValue -> m () +toMatrix_ self = liftDOM (void ((js_toMatrix (self)))) + +foreign import javascript unsafe "(($1) => { return $1[\"length\"]; })" + js_getLength :: CSSTransformValue -> IO Word +-- | +getLength :: (MonadDOM m) => CSSTransformValue -> m Word +getLength self = liftDOM ((js_getLength (self))) + +foreign import javascript unsafe "(($1) => { return $1[\"is2D\"]; })" + js_getIs2D :: CSSTransformValue -> IO Bool +-- | +getIs2D :: (MonadDOM m) => CSSTransformValue -> m Bool +getIs2D self = liftDOM ((js_getIs2D (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSTransition.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSTransition.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CSSTransition.hs @@ -0,0 +1,23 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from css-transitions-2 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CSSTransition + (js_getTransitionProperty, getTransitionProperty, CSSTransition(..), gTypeCSSTransition) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript unsafe "(($1) => { return $1[\"transitionProperty\"]; })" + js_getTransitionProperty :: CSSTransition -> IO JSString +-- | +getTransitionProperty :: (MonadDOM m, FromJSString result) => CSSTransition -> m result +getTransitionProperty self = liftDOM ((fromJSString <$> (js_getTransitionProperty (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSTranslate.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSTranslate.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CSSTranslate.hs @@ -0,0 +1,59 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from css-typed-om-1 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CSSTranslate + (js_newCSSTranslate, js_setX, js_getX, js_setY, js_getY, js_setZ, js_getZ, newCSSTranslate, setX, getX, setY, getY, setZ, getZ, CSSTranslate(..), gTypeCSSTranslate) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1, $2, $3) => { return new globalThis[\"CSSTranslate\"]($1, $2, $3); })" + js_newCSSTranslate :: CSSNumericValue -> CSSNumericValue -> JSVal -> IO CSSTranslate +-- | +newCSSTranslate :: (MonadDOM m, IsCSSNumericValue x, IsCSSNumericValue y, IsCSSNumericValue z) => x -> y -> Maybe z -> m CSSTranslate +newCSSTranslate x y z = liftDOM (((P.maybe (P.return jsUndefined) toJSVal z) >>= \a3' -> js_newCSSTranslate (Types.toCSSNumericValue x) (Types.toCSSNumericValue y) a3')) + +foreign import javascript safe "(($1, $2) => { $1[\"x\"] = $2; })" + js_setX :: CSSTranslate -> CSSNumericValue -> IO () +-- | +setX :: (MonadDOM m, IsCSSNumericValue val) => CSSTranslate -> val -> m () +setX self val = liftDOM (void ((js_setX (self) (Types.toCSSNumericValue val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"x\"]; })" + js_getX :: CSSTranslate -> IO CSSNumericValue +-- | +getX :: (MonadDOM m) => CSSTranslate -> m CSSNumericValue +getX self = liftDOM ((js_getX (self))) + +foreign import javascript safe "(($1, $2) => { $1[\"y\"] = $2; })" + js_setY :: CSSTranslate -> CSSNumericValue -> IO () +-- | +setY :: (MonadDOM m, IsCSSNumericValue val) => CSSTranslate -> val -> m () +setY self val = liftDOM (void ((js_setY (self) (Types.toCSSNumericValue val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"y\"]; })" + js_getY :: CSSTranslate -> IO CSSNumericValue +-- | +getY :: (MonadDOM m) => CSSTranslate -> m CSSNumericValue +getY self = liftDOM ((js_getY (self))) + +foreign import javascript safe "(($1, $2) => { $1[\"z\"] = $2; })" + js_setZ :: CSSTranslate -> CSSNumericValue -> IO () +-- | +setZ :: (MonadDOM m, IsCSSNumericValue val) => CSSTranslate -> val -> m () +setZ self val = liftDOM (void ((js_setZ (self) (Types.toCSSNumericValue val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"z\"]; })" + js_getZ :: CSSTranslate -> IO CSSNumericValue +-- | +getZ :: (MonadDOM m) => CSSTranslate -> m CSSNumericValue +getZ self = liftDOM ((js_getZ (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSUnitValue.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSUnitValue.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CSSUnitValue.hs @@ -0,0 +1,41 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from css-typed-om-1 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CSSUnitValue + (js_newCSSUnitValue, js_setValue, js_getValue, js_getUnit, newCSSUnitValue, setValue, getValue, getUnit, CSSUnitValue(..), gTypeCSSUnitValue) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1, $2) => { return new globalThis[\"CSSUnitValue\"]($1, $2); })" + js_newCSSUnitValue :: Double -> JSString -> IO CSSUnitValue +-- | +newCSSUnitValue :: (MonadDOM m, ToJSString unit) => Double -> unit -> m CSSUnitValue +newCSSUnitValue value unit = liftDOM ((js_newCSSUnitValue (value) (toJSString unit))) + +foreign import javascript safe "(($1, $2) => { $1[\"value\"] = $2; })" + js_setValue :: CSSUnitValue -> Double -> IO () +-- | +setValue :: (MonadDOM m) => CSSUnitValue -> Double -> m () +setValue self val = liftDOM (void ((js_setValue (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"value\"]; })" + js_getValue :: CSSUnitValue -> IO Double +-- | +getValue :: (MonadDOM m) => CSSUnitValue -> m Double +getValue self = liftDOM ((js_getValue (self))) + +foreign import javascript unsafe "(($1) => { return $1[\"unit\"]; })" + js_getUnit :: CSSUnitValue -> IO JSString +-- | +getUnit :: (MonadDOM m, FromJSString result) => CSSUnitValue -> m result +getUnit self = liftDOM ((fromJSString <$> (js_getUnit (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSUnparsedValue.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSUnparsedValue.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CSSUnparsedValue.hs @@ -0,0 +1,29 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from css-typed-om-1 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CSSUnparsedValue + (js_newCSSUnparsedValue, js_getLength, newCSSUnparsedValue, getLength, CSSUnparsedValue(..), gTypeCSSUnparsedValue) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1) => { return new globalThis[\"CSSUnparsedValue\"]($1); })" + js_newCSSUnparsedValue :: JSVal -> IO CSSUnparsedValue +-- | +newCSSUnparsedValue :: (MonadDOM m, IsCSSUnparsedSegment members) => [members] -> m CSSUnparsedValue +newCSSUnparsedValue members = liftDOM (((toJSVal members) >>= \a1' -> js_newCSSUnparsedValue a1')) + +foreign import javascript unsafe "(($1) => { return $1[\"length\"]; })" + js_getLength :: CSSUnparsedValue -> IO Word +-- | +getLength :: (MonadDOM m) => CSSUnparsedValue -> m Word +getLength self = liftDOM ((js_getLength (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSValue.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSValue.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/CSSValue.hs +++ /dev/null @@ -1,80 +0,0 @@ -{-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE JavaScriptFFI #-} --- For HasCallStack compatibility -{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} -module GHCJS.DOM.JSFFI.Generated.CSSValue - (pattern CSS_INHERIT, pattern CSS_PRIMITIVE_VALUE, - pattern CSS_VALUE_LIST, pattern CSS_CUSTOM, js_setCssText, - setCssText, js_getCssText, getCssText, getCssTextUnsafe, - getCssTextUnchecked, js_getCssValueType, getCssValueType, - CSSValue(..), gTypeCSSValue, IsCSSValue, toCSSValue) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull, jsUndefined) -import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import Data.Maybe (fromJust) -import Data.Traversable (mapM) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) -import GHCJS.DOM.JSFFI.Generated.Enums -pattern CSS_INHERIT = 0 -pattern CSS_PRIMITIVE_VALUE = 1 -pattern CSS_VALUE_LIST = 2 -pattern CSS_CUSTOM = 3 - -foreign import javascript safe "(($1, $2) => { $1[\"cssText\"] = $2; })" - js_setCssText :: CSSValue -> Optional JSString -> IO () - --- | -setCssText :: - (MonadIO m, IsCSSValue self, ToJSString val) => - self -> Maybe val -> m () -setCssText self val - = liftIO (js_setCssText (toCSSValue self) (toOptionalJSString val)) - -foreign import javascript unsafe "(($1) => { return $1[\"cssText\"]; })" js_getCssText :: - CSSValue -> IO (Nullable JSString) - --- | -getCssText :: - (MonadIO m, IsCSSValue self, FromJSString result) => - self -> m (Maybe result) -getCssText self - = liftIO (fromMaybeJSString <$> (js_getCssText (toCSSValue self))) - --- | -getCssTextUnsafe :: - (MonadIO m, IsCSSValue self, HasCallStack, FromJSString result) => - self -> m result -getCssTextUnsafe self - = liftIO - ((fromMaybeJSString <$> (js_getCssText (toCSSValue self))) >>= - maybe (Prelude.error "Nothing to return") return) - --- | -getCssTextUnchecked :: - (MonadIO m, IsCSSValue self, FromJSString result) => - self -> m result -getCssTextUnchecked self - = liftIO - (fromJust . fromMaybeJSString <$> - (js_getCssText (toCSSValue self))) - -foreign import javascript unsafe "(($1) => { return $1[\"cssValueType\"]; })" - js_getCssValueType :: CSSValue -> IO Word - --- | -getCssValueType :: (MonadIO m, IsCSSValue self) => self -> m Word -getCssValueType self - = liftIO (js_getCssValueType (toCSSValue self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSValueList.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSValueList.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/CSSValueList.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE JavaScriptFFI #-} --- For HasCallStack compatibility -{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} -module GHCJS.DOM.JSFFI.Generated.CSSValueList - (js_item, item, item_, js_getLength, getLength, CSSValueList(..), - gTypeCSSValueList) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull, jsUndefined) -import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import Data.Maybe (fromJust) -import Data.Traversable (mapM) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) -import GHCJS.DOM.JSFFI.Generated.Enums - -foreign import javascript unsafe "(($1, $2) => { return $1[$2]; })" js_item :: - CSSValueList -> Word -> IO CSSValue - --- | -item :: (MonadIO m) => CSSValueList -> Word -> m CSSValue -item self index = liftIO (js_item self index) - --- | -item_ :: (MonadIO m) => CSSValueList -> Word -> m () -item_ self index = liftIO (void (js_item self index)) - -foreign import javascript unsafe "(($1) => { return $1[\"length\"]; })" js_getLength :: - CSSValueList -> IO Word - --- | -getLength :: (MonadIO m) => CSSValueList -> m Word -getLength self = liftIO (js_getLength self) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSVariableReferenceValue.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSVariableReferenceValue.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CSSVariableReferenceValue.hs @@ -0,0 +1,49 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from css-typed-om-1 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CSSVariableReferenceValue + (js_newCSSVariableReferenceValue, js_setVariable, js_getVariable, js_getFallback, newCSSVariableReferenceValue, setVariable, getVariable, getFallback, getFallbackUnsafe, getFallbackUnchecked, CSSVariableReferenceValue(..), gTypeCSSVariableReferenceValue) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1, $2) => { return new globalThis[\"CSSVariableReferenceValue\"]($1, $2); })" + js_newCSSVariableReferenceValue :: JSString -> JSVal -> IO CSSVariableReferenceValue +-- | +newCSSVariableReferenceValue :: (MonadDOM m, ToJSString variable) => variable -> Maybe CSSUnparsedValue -> m CSSVariableReferenceValue +newCSSVariableReferenceValue variable fallback = liftDOM (((toJSVal fallback) >>= \a2' -> js_newCSSVariableReferenceValue (toJSString variable) a2')) + +foreign import javascript safe "(($1, $2) => { $1[\"variable\"] = $2; })" + js_setVariable :: CSSVariableReferenceValue -> JSString -> IO () +-- | +setVariable :: (MonadDOM m, ToJSString val) => CSSVariableReferenceValue -> val -> m () +setVariable self val = liftDOM (void ((js_setVariable (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"variable\"]; })" + js_getVariable :: CSSVariableReferenceValue -> IO JSString +-- | +getVariable :: (MonadDOM m, FromJSString result) => CSSVariableReferenceValue -> m result +getVariable self = liftDOM ((fromJSString <$> (js_getVariable (self)))) + +foreign import javascript unsafe "(($1) => { return $1[\"fallback\"]; })" + js_getFallback :: CSSVariableReferenceValue -> IO JSVal +-- | +getFallback :: (MonadDOM m) => CSSVariableReferenceValue -> m (Maybe CSSUnparsedValue) +getFallback self = liftDOM (((js_getFallback (self)) >>= fromJSValUnchecked)) + +-- | +getFallbackUnsafe :: (MonadDOM m, HasCallStack) => CSSVariableReferenceValue -> m CSSUnparsedValue +getFallbackUnsafe self = liftDOM ((((js_getFallback (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getFallbackUnchecked :: (MonadDOM m) => CSSVariableReferenceValue -> m CSSUnparsedValue +getFallbackUnchecked self = liftDOM ((pFromJSVal <$> (js_getFallback (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSViewTransitionRule.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSViewTransitionRule.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CSSViewTransitionRule.hs @@ -0,0 +1,29 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from css-view-transitions-2 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CSSViewTransitionRule + (js_getNavigation, js_getTypes, getNavigation, getTypes, CSSViewTransitionRule(..), gTypeCSSViewTransitionRule) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript unsafe "(($1) => { return $1[\"navigation\"]; })" + js_getNavigation :: CSSViewTransitionRule -> IO JSString +-- | +getNavigation :: (MonadDOM m, FromJSString result) => CSSViewTransitionRule -> m result +getNavigation self = liftDOM ((fromJSString <$> (js_getNavigation (self)))) + +foreign import javascript unsafe "(($1) => { return $1[\"types\"]; })" + js_getTypes :: CSSViewTransitionRule -> IO JSVal +-- | +getTypes :: (MonadDOM m, FromJSString result) => CSSViewTransitionRule -> m [result] +getTypes self = liftDOM (((js_getTypes (self)) >>= fromJSValUnchecked)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/Cache.hs b/src/GHCJS/DOM/JSFFI/Generated/Cache.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/Cache.hs @@ -0,0 +1,75 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from service-workers (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.Cache + (js_add, js_addAll, js_delete, js_keys, js_match, js_matchAll, js_put, add, addAll, delete, delete_, keys, keys_, match, match_, matchAll, matchAll_, put, Cache(..), gTypeCache) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript interruptible "(($1, $2, $c) => { return $1[\"add\"]($2).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })" + js_add :: Cache -> RequestInfo -> IO (JSVal, ()) +-- | +add :: (MonadDOM m, IsRequestInfo request) => Cache -> request -> m () +add self request = liftDOM (void (((js_add (self) (Types.toRequestInfo request)) >>= checkPromiseResult))) + +foreign import javascript interruptible "(($1, $2, $c) => { return $1[\"addAll\"]($2).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })" + js_addAll :: Cache -> JSVal -> IO (JSVal, ()) +-- | +addAll :: (MonadDOM m, IsRequestInfo requests) => Cache -> [requests] -> m () +addAll self requests = liftDOM (void ((((toJSVal requests) >>= \a2' -> js_addAll (self) a2') >>= checkPromiseResult))) + +foreign import javascript interruptible "(($1, $2, $3, $c) => { return $1[\"delete\"]($2, $3).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })" + js_delete :: Cache -> RequestInfo -> JSVal -> IO (JSVal, Bool) +-- | +delete :: (MonadDOM m, IsRequestInfo request, IsCacheQueryOptions options) => Cache -> request -> Maybe options -> m Bool +delete self request options = liftDOM ((((P.maybe (P.return jsUndefined) toJSVal options) >>= \a3' -> js_delete (self) (Types.toRequestInfo request) a3') >>= checkPromiseResult)) + +-- | +delete_ :: (MonadDOM m, IsRequestInfo request, IsCacheQueryOptions options) => Cache -> request -> Maybe options -> m () +delete_ self request options = liftDOM (void ((((P.maybe (P.return jsUndefined) toJSVal options) >>= \a3' -> js_delete (self) (Types.toRequestInfo request) a3') >>= checkPromiseResult))) + +foreign import javascript interruptible "(($1, $2, $3, $c) => { return $1[\"keys\"]($2, $3).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })" + js_keys :: Cache -> JSVal -> JSVal -> IO (JSVal, JSVal) +-- | +keys :: (MonadDOM m, IsRequestInfo request, IsCacheQueryOptions options) => Cache -> Maybe request -> Maybe options -> m [Request] +keys self request options = liftDOM (((((P.maybe (P.return jsUndefined) toJSVal request) >>= \a2' -> (P.maybe (P.return jsUndefined) toJSVal options) >>= \a3' -> js_keys (self) a2' a3') >>= checkPromiseResult) >>= fromJSValUnchecked)) + +-- | +keys_ :: (MonadDOM m, IsRequestInfo request, IsCacheQueryOptions options) => Cache -> Maybe request -> Maybe options -> m () +keys_ self request options = liftDOM (void ((((P.maybe (P.return jsUndefined) toJSVal request) >>= \a2' -> (P.maybe (P.return jsUndefined) toJSVal options) >>= \a3' -> js_keys (self) a2' a3') >>= checkPromiseResult))) + +foreign import javascript interruptible "(($1, $2, $3, $c) => { return $1[\"match\"]($2, $3).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })" + js_match :: Cache -> RequestInfo -> JSVal -> IO (JSVal, ResponseOrUndefined) +-- | +match :: (MonadDOM m, IsRequestInfo request, IsCacheQueryOptions options) => Cache -> request -> Maybe options -> m ResponseOrUndefined +match self request options = liftDOM ((((P.maybe (P.return jsUndefined) toJSVal options) >>= \a3' -> js_match (self) (Types.toRequestInfo request) a3') >>= checkPromiseResult)) + +-- | +match_ :: (MonadDOM m, IsRequestInfo request, IsCacheQueryOptions options) => Cache -> request -> Maybe options -> m () +match_ self request options = liftDOM (void ((((P.maybe (P.return jsUndefined) toJSVal options) >>= \a3' -> js_match (self) (Types.toRequestInfo request) a3') >>= checkPromiseResult))) + +foreign import javascript interruptible "(($1, $2, $3, $c) => { return $1[\"matchAll\"]($2, $3).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })" + js_matchAll :: Cache -> JSVal -> JSVal -> IO (JSVal, JSVal) +-- | +matchAll :: (MonadDOM m, IsRequestInfo request, IsCacheQueryOptions options) => Cache -> Maybe request -> Maybe options -> m [Response] +matchAll self request options = liftDOM (((((P.maybe (P.return jsUndefined) toJSVal request) >>= \a2' -> (P.maybe (P.return jsUndefined) toJSVal options) >>= \a3' -> js_matchAll (self) a2' a3') >>= checkPromiseResult) >>= fromJSValUnchecked)) + +-- | +matchAll_ :: (MonadDOM m, IsRequestInfo request, IsCacheQueryOptions options) => Cache -> Maybe request -> Maybe options -> m () +matchAll_ self request options = liftDOM (void ((((P.maybe (P.return jsUndefined) toJSVal request) >>= \a2' -> (P.maybe (P.return jsUndefined) toJSVal options) >>= \a3' -> js_matchAll (self) a2' a3') >>= checkPromiseResult))) + +foreign import javascript interruptible "(($1, $2, $3, $c) => { return $1[\"put\"]($2, $3).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })" + js_put :: Cache -> RequestInfo -> Response -> IO (JSVal, ()) +-- | +put :: (MonadDOM m, IsRequestInfo request) => Cache -> request -> Response -> m () +put self request response = liftDOM (void (((js_put (self) (Types.toRequestInfo request) (response)) >>= checkPromiseResult))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CacheQueryOptions.hs b/src/GHCJS/DOM/JSFFI/Generated/CacheQueryOptions.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CacheQueryOptions.hs @@ -0,0 +1,83 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from service-workers (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CacheQueryOptions + (js_newCacheQueryOptions, js_setIgnoreSearch, js_getIgnoreSearch, js_setIgnoreMethod, js_getIgnoreMethod, js_setIgnoreVary, js_getIgnoreVary, newCacheQueryOptions, setIgnoreSearch, getIgnoreSearch, getIgnoreSearchUnsafe, getIgnoreSearchUnchecked, setIgnoreMethod, getIgnoreMethod, getIgnoreMethodUnsafe, getIgnoreMethodUnchecked, setIgnoreVary, getIgnoreVary, getIgnoreVaryUnsafe, getIgnoreVaryUnchecked, CacheQueryOptions(..), gTypeCacheQueryOptions, IsCacheQueryOptions, toCacheQueryOptions) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(() => { return ({}); })" + js_newCacheQueryOptions :: IO CacheQueryOptions +-- | +newCacheQueryOptions :: (MonadDOM m) => m CacheQueryOptions +newCacheQueryOptions = liftDOM ((js_newCacheQueryOptions)) + +foreign import javascript safe "(($1, $2) => { $1[\"ignoreSearch\"] = $2; })" + js_setIgnoreSearch :: CacheQueryOptions -> Bool -> IO () +-- | +setIgnoreSearch :: (MonadDOM m, IsCacheQueryOptions self) => self -> Bool -> m () +setIgnoreSearch self val = liftDOM (void ((js_setIgnoreSearch ((Types.toCacheQueryOptions self)) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"ignoreSearch\"]; })" + js_getIgnoreSearch :: CacheQueryOptions -> IO JSVal +-- | +getIgnoreSearch :: (MonadDOM m, IsCacheQueryOptions self) => self -> m (Maybe Bool) +getIgnoreSearch self = liftDOM (((js_getIgnoreSearch ((Types.toCacheQueryOptions self))) >>= fromJSValUnchecked)) + +-- | +getIgnoreSearchUnsafe :: (MonadDOM m, IsCacheQueryOptions self, HasCallStack) => self -> m Bool +getIgnoreSearchUnsafe self = liftDOM ((((js_getIgnoreSearch ((Types.toCacheQueryOptions self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getIgnoreSearchUnchecked :: (MonadDOM m, IsCacheQueryOptions self) => self -> m Bool +getIgnoreSearchUnchecked self = liftDOM ((pFromJSVal <$> (js_getIgnoreSearch ((Types.toCacheQueryOptions self))))) + +foreign import javascript safe "(($1, $2) => { $1[\"ignoreMethod\"] = $2; })" + js_setIgnoreMethod :: CacheQueryOptions -> Bool -> IO () +-- | +setIgnoreMethod :: (MonadDOM m, IsCacheQueryOptions self) => self -> Bool -> m () +setIgnoreMethod self val = liftDOM (void ((js_setIgnoreMethod ((Types.toCacheQueryOptions self)) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"ignoreMethod\"]; })" + js_getIgnoreMethod :: CacheQueryOptions -> IO JSVal +-- | +getIgnoreMethod :: (MonadDOM m, IsCacheQueryOptions self) => self -> m (Maybe Bool) +getIgnoreMethod self = liftDOM (((js_getIgnoreMethod ((Types.toCacheQueryOptions self))) >>= fromJSValUnchecked)) + +-- | +getIgnoreMethodUnsafe :: (MonadDOM m, IsCacheQueryOptions self, HasCallStack) => self -> m Bool +getIgnoreMethodUnsafe self = liftDOM ((((js_getIgnoreMethod ((Types.toCacheQueryOptions self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getIgnoreMethodUnchecked :: (MonadDOM m, IsCacheQueryOptions self) => self -> m Bool +getIgnoreMethodUnchecked self = liftDOM ((pFromJSVal <$> (js_getIgnoreMethod ((Types.toCacheQueryOptions self))))) + +foreign import javascript safe "(($1, $2) => { $1[\"ignoreVary\"] = $2; })" + js_setIgnoreVary :: CacheQueryOptions -> Bool -> IO () +-- | +setIgnoreVary :: (MonadDOM m, IsCacheQueryOptions self) => self -> Bool -> m () +setIgnoreVary self val = liftDOM (void ((js_setIgnoreVary ((Types.toCacheQueryOptions self)) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"ignoreVary\"]; })" + js_getIgnoreVary :: CacheQueryOptions -> IO JSVal +-- | +getIgnoreVary :: (MonadDOM m, IsCacheQueryOptions self) => self -> m (Maybe Bool) +getIgnoreVary self = liftDOM (((js_getIgnoreVary ((Types.toCacheQueryOptions self))) >>= fromJSValUnchecked)) + +-- | +getIgnoreVaryUnsafe :: (MonadDOM m, IsCacheQueryOptions self, HasCallStack) => self -> m Bool +getIgnoreVaryUnsafe self = liftDOM ((((js_getIgnoreVary ((Types.toCacheQueryOptions self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getIgnoreVaryUnchecked :: (MonadDOM m, IsCacheQueryOptions self) => self -> m Bool +getIgnoreVaryUnchecked self = liftDOM ((pFromJSVal <$> (js_getIgnoreVary ((Types.toCacheQueryOptions self))))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CacheStorage.hs b/src/GHCJS/DOM/JSFFI/Generated/CacheStorage.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CacheStorage.hs @@ -0,0 +1,67 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from service-workers (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CacheStorage + (js_delete, js_has, js_keys, js_match, js_open, delete, delete_, has, has_, keys, keys_, match, match_, open, open_, CacheStorage(..), gTypeCacheStorage) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript interruptible "(($1, $2, $c) => { return $1[\"delete\"]($2).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })" + js_delete :: CacheStorage -> JSString -> IO (JSVal, Bool) +-- | +delete :: (MonadDOM m, ToJSString cacheName) => CacheStorage -> cacheName -> m Bool +delete self cacheName = liftDOM (((js_delete (self) (toJSString cacheName)) >>= checkPromiseResult)) + +-- | +delete_ :: (MonadDOM m, ToJSString cacheName) => CacheStorage -> cacheName -> m () +delete_ self cacheName = liftDOM (void (((js_delete (self) (toJSString cacheName)) >>= checkPromiseResult))) + +foreign import javascript interruptible "(($1, $2, $c) => { return $1[\"has\"]($2).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })" + js_has :: CacheStorage -> JSString -> IO (JSVal, Bool) +-- | +has :: (MonadDOM m, ToJSString cacheName) => CacheStorage -> cacheName -> m Bool +has self cacheName = liftDOM (((js_has (self) (toJSString cacheName)) >>= checkPromiseResult)) + +-- | +has_ :: (MonadDOM m, ToJSString cacheName) => CacheStorage -> cacheName -> m () +has_ self cacheName = liftDOM (void (((js_has (self) (toJSString cacheName)) >>= checkPromiseResult))) + +foreign import javascript interruptible "(($1, $c) => { return $1[\"keys\"]().then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })" + js_keys :: CacheStorage -> IO (JSVal, JSVal) +-- | +keys :: (MonadDOM m, FromJSString result) => CacheStorage -> m [result] +keys self = liftDOM ((((js_keys (self)) >>= checkPromiseResult) >>= fromJSValUnchecked)) + +-- | +keys_ :: (MonadDOM m) => CacheStorage -> m () +keys_ self = liftDOM (void (((js_keys (self)) >>= checkPromiseResult))) + +foreign import javascript interruptible "(($1, $2, $3, $c) => { return $1[\"match\"]($2, $3).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })" + js_match :: CacheStorage -> RequestInfo -> JSVal -> IO (JSVal, ResponseOrUndefined) +-- | +match :: (MonadDOM m, IsRequestInfo request) => CacheStorage -> request -> Maybe MultiCacheQueryOptions -> m ResponseOrUndefined +match self request options = liftDOM ((((P.maybe (P.return jsUndefined) toJSVal options) >>= \a3' -> js_match (self) (Types.toRequestInfo request) a3') >>= checkPromiseResult)) + +-- | +match_ :: (MonadDOM m, IsRequestInfo request) => CacheStorage -> request -> Maybe MultiCacheQueryOptions -> m () +match_ self request options = liftDOM (void ((((P.maybe (P.return jsUndefined) toJSVal options) >>= \a3' -> js_match (self) (Types.toRequestInfo request) a3') >>= checkPromiseResult))) + +foreign import javascript interruptible "(($1, $2, $c) => { return $1[\"open\"]($2).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })" + js_open :: CacheStorage -> JSString -> IO (JSVal, Cache) +-- | +open :: (MonadDOM m, ToJSString cacheName) => CacheStorage -> cacheName -> m Cache +open self cacheName = liftDOM (((js_open (self) (toJSString cacheName)) >>= checkPromiseResult)) + +-- | +open_ :: (MonadDOM m, ToJSString cacheName) => CacheStorage -> cacheName -> m () +open_ self cacheName = liftDOM (void (((js_open (self) (toJSString cacheName)) >>= checkPromiseResult))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CanvasCaptureMediaStreamTrack.hs b/src/GHCJS/DOM/JSFFI/Generated/CanvasCaptureMediaStreamTrack.hs --- a/src/GHCJS/DOM/JSFFI/Generated/CanvasCaptureMediaStreamTrack.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/CanvasCaptureMediaStreamTrack.hs @@ -1,44 +1,29 @@ {-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE JavaScriptFFI #-} --- For HasCallStack compatibility +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from mediacapture-fromelement (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.CanvasCaptureMediaStreamTrack - (js_requestFrame, requestFrame, js_getCanvas, getCanvas, - CanvasCaptureMediaStreamTrack(..), - gTypeCanvasCaptureMediaStreamTrack) + (js_requestFrame, js_getCanvas, requestFrame, getCanvas, CanvasCaptureMediaStreamTrack(..), gTypeCanvasCaptureMediaStreamTrack) where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull, jsUndefined) -import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import Data.Maybe (fromJust) -import Data.Traversable (mapM) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types -import Control.Applicative ((<$>)) +import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums - -foreign import javascript unsafe "(($1) => { return $1[\"requestFrame\"](); })" - js_requestFrame :: CanvasCaptureMediaStreamTrack -> IO () --- | -requestFrame :: - (MonadIO m) => CanvasCaptureMediaStreamTrack -> m () -requestFrame self = liftIO (js_requestFrame self) - -foreign import javascript unsafe "(($1) => { return $1[\"canvas\"]; })" js_getCanvas :: - CanvasCaptureMediaStreamTrack -> IO HTMLCanvasElement +foreign import javascript safe "(($1) => { return $1[\"requestFrame\"](); })" + js_requestFrame :: CanvasCaptureMediaStreamTrack -> IO () +-- | +requestFrame :: (MonadDOM m) => CanvasCaptureMediaStreamTrack -> m () +requestFrame self = liftDOM (void ((js_requestFrame (self)))) --- | -getCanvas :: - (MonadIO m) => CanvasCaptureMediaStreamTrack -> m HTMLCanvasElement -getCanvas self = liftIO (js_getCanvas self) +foreign import javascript unsafe "(($1) => { return $1[\"canvas\"]; })" + js_getCanvas :: CanvasCaptureMediaStreamTrack -> IO HTMLCanvasElement +-- | +getCanvas :: (MonadDOM m) => CanvasCaptureMediaStreamTrack -> m HTMLCanvasElement +getCanvas self = liftDOM ((js_getCanvas (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CanvasCompositing.hs b/src/GHCJS/DOM/JSFFI/Generated/CanvasCompositing.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CanvasCompositing.hs @@ -0,0 +1,41 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from html (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CanvasCompositing + (js_setGlobalAlpha, js_getGlobalAlpha, js_setGlobalCompositeOperation, js_getGlobalCompositeOperation, setGlobalAlpha, getGlobalAlpha, setGlobalCompositeOperation, getGlobalCompositeOperation, CanvasCompositing(..), gTypeCanvasCompositing, IsCanvasCompositing, toCanvasCompositing) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1, $2) => { $1[\"globalAlpha\"] = $2; })" + js_setGlobalAlpha :: CanvasCompositing -> Double -> IO () +-- | +setGlobalAlpha :: (MonadDOM m, IsCanvasCompositing self) => self -> Double -> m () +setGlobalAlpha self val = liftDOM (void ((js_setGlobalAlpha ((Types.toCanvasCompositing self)) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"globalAlpha\"]; })" + js_getGlobalAlpha :: CanvasCompositing -> IO Double +-- | +getGlobalAlpha :: (MonadDOM m, IsCanvasCompositing self) => self -> m Double +getGlobalAlpha self = liftDOM ((js_getGlobalAlpha ((Types.toCanvasCompositing self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"globalCompositeOperation\"] = $2; })" + js_setGlobalCompositeOperation :: CanvasCompositing -> JSString -> IO () +-- | +setGlobalCompositeOperation :: (MonadDOM m, IsCanvasCompositing self, ToJSString val) => self -> val -> m () +setGlobalCompositeOperation self val = liftDOM (void ((js_setGlobalCompositeOperation ((Types.toCanvasCompositing self)) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"globalCompositeOperation\"]; })" + js_getGlobalCompositeOperation :: CanvasCompositing -> IO JSString +-- | +getGlobalCompositeOperation :: (MonadDOM m, IsCanvasCompositing self, FromJSString result) => self -> m result +getGlobalCompositeOperation self = liftDOM ((fromJSString <$> (js_getGlobalCompositeOperation ((Types.toCanvasCompositing self))))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CanvasDrawImage.hs b/src/GHCJS/DOM/JSFFI/Generated/CanvasDrawImage.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CanvasDrawImage.hs @@ -0,0 +1,35 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from html (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CanvasDrawImage + (js_drawImage, js_drawImageScaled, js_drawImagePart, drawImage, drawImageScaled, drawImagePart, CanvasDrawImage(..), gTypeCanvasDrawImage, IsCanvasDrawImage, toCanvasDrawImage) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"drawImage\"]($2, $3, $4); })" + js_drawImage :: CanvasDrawImage -> CanvasImageSource -> Double -> Double -> IO () +-- | +drawImage :: (MonadDOM m, IsCanvasDrawImage self, IsCanvasImageSource image) => self -> image -> Double -> Double -> m () +drawImage self image dx dy = liftDOM (void ((js_drawImage ((Types.toCanvasDrawImage self)) (Types.toCanvasImageSource image) (dx) (dy)))) + +foreign import javascript safe "(($1, $2, $3, $4, $5, $6) => { return $1[\"drawImage\"]($2, $3, $4, $5, $6); })" + js_drawImageScaled :: CanvasDrawImage -> CanvasImageSource -> Double -> Double -> Double -> Double -> IO () +-- | +drawImageScaled :: (MonadDOM m, IsCanvasDrawImage self, IsCanvasImageSource image) => self -> image -> Double -> Double -> Double -> Double -> m () +drawImageScaled self image dx dy dw dh = liftDOM (void ((js_drawImageScaled ((Types.toCanvasDrawImage self)) (Types.toCanvasImageSource image) (dx) (dy) (dw) (dh)))) + +foreign import javascript safe "(($1, $2, $3, $4, $5, $6, $7, $8, $9, $10) => { return $1[\"drawImage\"]($2, $3, $4, $5, $6, $7, $8, $9, $10); })" + js_drawImagePart :: CanvasDrawImage -> CanvasImageSource -> Double -> Double -> Double -> Double -> Double -> Double -> Double -> Double -> IO () +-- | +drawImagePart :: (MonadDOM m, IsCanvasDrawImage self, IsCanvasImageSource image) => self -> image -> Double -> Double -> Double -> Double -> Double -> Double -> Double -> Double -> m () +drawImagePart self image sx sy sw sh dx dy dw dh = liftDOM (void ((js_drawImagePart ((Types.toCanvasDrawImage self)) (Types.toCanvasImageSource image) (sx) (sy) (sw) (sh) (dx) (dy) (dw) (dh)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CanvasDrawPath.hs b/src/GHCJS/DOM/JSFFI/Generated/CanvasDrawPath.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CanvasDrawPath.hs @@ -0,0 +1,99 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from html (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CanvasDrawPath + (js_beginPath, js_clip, js_clipPath, js_fill, js_fillPath, js_isPointInPath, js_isPointInPathPath, js_isPointInStroke, js_isPointInStrokePath, js_stroke, js_strokePath, beginPath, clip, clipPath, fill, fillPath, isPointInPath, isPointInPath_, isPointInPathPath, isPointInPathPath_, isPointInStroke, isPointInStroke_, isPointInStrokePath, isPointInStrokePath_, stroke, strokePath, CanvasDrawPath(..), gTypeCanvasDrawPath, IsCanvasDrawPath, toCanvasDrawPath) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1) => { return $1[\"beginPath\"](); })" + js_beginPath :: CanvasDrawPath -> IO () +-- | +beginPath :: (MonadDOM m, IsCanvasDrawPath self) => self -> m () +beginPath self = liftDOM (void ((js_beginPath ((Types.toCanvasDrawPath self))))) + +foreign import javascript safe "(($1, $2) => { return $1[\"clip\"]($2); })" + js_clip :: CanvasDrawPath -> JSVal -> IO () +-- | +clip :: (MonadDOM m, IsCanvasDrawPath self) => self -> Maybe CanvasFillRule -> m () +clip self fillRule = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal fillRule) >>= \a2' -> js_clip ((Types.toCanvasDrawPath self)) a2'))) + +foreign import javascript safe "(($1, $2, $3) => { return $1[\"clip\"]($2, $3); })" + js_clipPath :: CanvasDrawPath -> Path2D -> JSVal -> IO () +-- | +clipPath :: (MonadDOM m, IsCanvasDrawPath self) => self -> Path2D -> Maybe CanvasFillRule -> m () +clipPath self path fillRule = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal fillRule) >>= \a3' -> js_clipPath ((Types.toCanvasDrawPath self)) (path) a3'))) + +foreign import javascript safe "(($1, $2) => { return $1[\"fill\"]($2); })" + js_fill :: CanvasDrawPath -> JSVal -> IO () +-- | +fill :: (MonadDOM m, IsCanvasDrawPath self) => self -> Maybe CanvasFillRule -> m () +fill self fillRule = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal fillRule) >>= \a2' -> js_fill ((Types.toCanvasDrawPath self)) a2'))) + +foreign import javascript safe "(($1, $2, $3) => { return $1[\"fill\"]($2, $3); })" + js_fillPath :: CanvasDrawPath -> Path2D -> JSVal -> IO () +-- | +fillPath :: (MonadDOM m, IsCanvasDrawPath self) => self -> Path2D -> Maybe CanvasFillRule -> m () +fillPath self path fillRule = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal fillRule) >>= \a3' -> js_fillPath ((Types.toCanvasDrawPath self)) (path) a3'))) + +foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"isPointInPath\"]($2, $3, $4); })" + js_isPointInPath :: CanvasDrawPath -> Double -> Double -> JSVal -> IO Bool +-- | +isPointInPath :: (MonadDOM m, IsCanvasDrawPath self) => self -> Double -> Double -> Maybe CanvasFillRule -> m Bool +isPointInPath self x y fillRule = liftDOM (((P.maybe (P.return jsUndefined) toJSVal fillRule) >>= \a4' -> js_isPointInPath ((Types.toCanvasDrawPath self)) (x) (y) a4')) + +-- | +isPointInPath_ :: (MonadDOM m, IsCanvasDrawPath self) => self -> Double -> Double -> Maybe CanvasFillRule -> m () +isPointInPath_ self x y fillRule = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal fillRule) >>= \a4' -> js_isPointInPath ((Types.toCanvasDrawPath self)) (x) (y) a4'))) + +foreign import javascript safe "(($1, $2, $3, $4, $5) => { return $1[\"isPointInPath\"]($2, $3, $4, $5); })" + js_isPointInPathPath :: CanvasDrawPath -> Path2D -> Double -> Double -> JSVal -> IO Bool +-- | +isPointInPathPath :: (MonadDOM m, IsCanvasDrawPath self) => self -> Path2D -> Double -> Double -> Maybe CanvasFillRule -> m Bool +isPointInPathPath self path x y fillRule = liftDOM (((P.maybe (P.return jsUndefined) toJSVal fillRule) >>= \a5' -> js_isPointInPathPath ((Types.toCanvasDrawPath self)) (path) (x) (y) a5')) + +-- | +isPointInPathPath_ :: (MonadDOM m, IsCanvasDrawPath self) => self -> Path2D -> Double -> Double -> Maybe CanvasFillRule -> m () +isPointInPathPath_ self path x y fillRule = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal fillRule) >>= \a5' -> js_isPointInPathPath ((Types.toCanvasDrawPath self)) (path) (x) (y) a5'))) + +foreign import javascript safe "(($1, $2, $3) => { return $1[\"isPointInStroke\"]($2, $3); })" + js_isPointInStroke :: CanvasDrawPath -> Double -> Double -> IO Bool +-- | +isPointInStroke :: (MonadDOM m, IsCanvasDrawPath self) => self -> Double -> Double -> m Bool +isPointInStroke self x y = liftDOM ((js_isPointInStroke ((Types.toCanvasDrawPath self)) (x) (y))) + +-- | +isPointInStroke_ :: (MonadDOM m, IsCanvasDrawPath self) => self -> Double -> Double -> m () +isPointInStroke_ self x y = liftDOM (void ((js_isPointInStroke ((Types.toCanvasDrawPath self)) (x) (y)))) + +foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"isPointInStroke\"]($2, $3, $4); })" + js_isPointInStrokePath :: CanvasDrawPath -> Path2D -> Double -> Double -> IO Bool +-- | +isPointInStrokePath :: (MonadDOM m, IsCanvasDrawPath self) => self -> Path2D -> Double -> Double -> m Bool +isPointInStrokePath self path x y = liftDOM ((js_isPointInStrokePath ((Types.toCanvasDrawPath self)) (path) (x) (y))) + +-- | +isPointInStrokePath_ :: (MonadDOM m, IsCanvasDrawPath self) => self -> Path2D -> Double -> Double -> m () +isPointInStrokePath_ self path x y = liftDOM (void ((js_isPointInStrokePath ((Types.toCanvasDrawPath self)) (path) (x) (y)))) + +foreign import javascript safe "(($1) => { return $1[\"stroke\"](); })" + js_stroke :: CanvasDrawPath -> IO () +-- | +stroke :: (MonadDOM m, IsCanvasDrawPath self) => self -> m () +stroke self = liftDOM (void ((js_stroke ((Types.toCanvasDrawPath self))))) + +foreign import javascript safe "(($1, $2) => { return $1[\"stroke\"]($2); })" + js_strokePath :: CanvasDrawPath -> Path2D -> IO () +-- | +strokePath :: (MonadDOM m, IsCanvasDrawPath self) => self -> Path2D -> m () +strokePath self path = liftDOM (void ((js_strokePath ((Types.toCanvasDrawPath self)) (path)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CanvasFillStrokeStyles.hs b/src/GHCJS/DOM/JSFFI/Generated/CanvasFillStrokeStyles.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CanvasFillStrokeStyles.hs @@ -0,0 +1,89 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from html (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CanvasFillStrokeStyles + (js_createConicGradient, js_createLinearGradient, js_createPattern, js_createRadialGradient, js_setStrokeStyle, js_getStrokeStyle, js_setFillStyle, js_getFillStyle, createConicGradient, createConicGradient_, createLinearGradient, createLinearGradient_, createPattern, createPattern_, createPatternUnsafe, createPatternUnchecked, createRadialGradient, createRadialGradient_, setStrokeStyle, getStrokeStyle, setFillStyle, getFillStyle, CanvasFillStrokeStyles(..), gTypeCanvasFillStrokeStyles, IsCanvasFillStrokeStyles, toCanvasFillStrokeStyles) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"createConicGradient\"]($2, $3, $4); })" + js_createConicGradient :: CanvasFillStrokeStyles -> Double -> Double -> Double -> IO CanvasGradient +-- | +createConicGradient :: (MonadDOM m, IsCanvasFillStrokeStyles self) => self -> Double -> Double -> Double -> m CanvasGradient +createConicGradient self startAngle x y = liftDOM ((js_createConicGradient ((Types.toCanvasFillStrokeStyles self)) (startAngle) (x) (y))) + +-- | +createConicGradient_ :: (MonadDOM m, IsCanvasFillStrokeStyles self) => self -> Double -> Double -> Double -> m () +createConicGradient_ self startAngle x y = liftDOM (void ((js_createConicGradient ((Types.toCanvasFillStrokeStyles self)) (startAngle) (x) (y)))) + +foreign import javascript safe "(($1, $2, $3, $4, $5) => { return $1[\"createLinearGradient\"]($2, $3, $4, $5); })" + js_createLinearGradient :: CanvasFillStrokeStyles -> Double -> Double -> Double -> Double -> IO CanvasGradient +-- | +createLinearGradient :: (MonadDOM m, IsCanvasFillStrokeStyles self) => self -> Double -> Double -> Double -> Double -> m CanvasGradient +createLinearGradient self x0 y0 x1 y1 = liftDOM ((js_createLinearGradient ((Types.toCanvasFillStrokeStyles self)) (x0) (y0) (x1) (y1))) + +-- | +createLinearGradient_ :: (MonadDOM m, IsCanvasFillStrokeStyles self) => self -> Double -> Double -> Double -> Double -> m () +createLinearGradient_ self x0 y0 x1 y1 = liftDOM (void ((js_createLinearGradient ((Types.toCanvasFillStrokeStyles self)) (x0) (y0) (x1) (y1)))) + +foreign import javascript safe "(($1, $2, $3) => { return $1[\"createPattern\"]($2, $3); })" + js_createPattern :: CanvasFillStrokeStyles -> CanvasImageSource -> JSString -> IO JSVal +-- | +createPattern :: (MonadDOM m, IsCanvasFillStrokeStyles self, IsCanvasImageSource image, ToJSString repetition) => self -> image -> repetition -> m (Maybe CanvasPattern) +createPattern self image repetition = liftDOM (((js_createPattern ((Types.toCanvasFillStrokeStyles self)) (Types.toCanvasImageSource image) (toJSString repetition)) >>= fromJSValUnchecked)) + +-- | +createPattern_ :: (MonadDOM m, IsCanvasFillStrokeStyles self, IsCanvasImageSource image, ToJSString repetition) => self -> image -> repetition -> m () +createPattern_ self image repetition = liftDOM (void ((js_createPattern ((Types.toCanvasFillStrokeStyles self)) (Types.toCanvasImageSource image) (toJSString repetition)))) + +-- | +createPatternUnsafe :: (MonadDOM m, IsCanvasFillStrokeStyles self, IsCanvasImageSource image, ToJSString repetition, HasCallStack) => self -> image -> repetition -> m CanvasPattern +createPatternUnsafe self image repetition = liftDOM ((((js_createPattern ((Types.toCanvasFillStrokeStyles self)) (Types.toCanvasImageSource image) (toJSString repetition)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +createPatternUnchecked :: (MonadDOM m, IsCanvasFillStrokeStyles self, IsCanvasImageSource image, ToJSString repetition) => self -> image -> repetition -> m CanvasPattern +createPatternUnchecked self image repetition = liftDOM ((pFromJSVal <$> (js_createPattern ((Types.toCanvasFillStrokeStyles self)) (Types.toCanvasImageSource image) (toJSString repetition)))) + +foreign import javascript safe "(($1, $2, $3, $4, $5, $6, $7) => { return $1[\"createRadialGradient\"]($2, $3, $4, $5, $6, $7); })" + js_createRadialGradient :: CanvasFillStrokeStyles -> Double -> Double -> Double -> Double -> Double -> Double -> IO CanvasGradient +-- | +createRadialGradient :: (MonadDOM m, IsCanvasFillStrokeStyles self) => self -> Double -> Double -> Double -> Double -> Double -> Double -> m CanvasGradient +createRadialGradient self x0 y0 r0 x1 y1 r1 = liftDOM ((js_createRadialGradient ((Types.toCanvasFillStrokeStyles self)) (x0) (y0) (r0) (x1) (y1) (r1))) + +-- | +createRadialGradient_ :: (MonadDOM m, IsCanvasFillStrokeStyles self) => self -> Double -> Double -> Double -> Double -> Double -> Double -> m () +createRadialGradient_ self x0 y0 r0 x1 y1 r1 = liftDOM (void ((js_createRadialGradient ((Types.toCanvasFillStrokeStyles self)) (x0) (y0) (r0) (x1) (y1) (r1)))) + +foreign import javascript safe "(($1, $2) => { $1[\"strokeStyle\"] = $2; })" + js_setStrokeStyle :: CanvasFillStrokeStyles -> StringOrCanvasGradientOrCanvasPattern -> IO () +-- | +setStrokeStyle :: (MonadDOM m, IsCanvasFillStrokeStyles self, IsStringOrCanvasGradientOrCanvasPattern val) => self -> val -> m () +setStrokeStyle self val = liftDOM (void ((js_setStrokeStyle ((Types.toCanvasFillStrokeStyles self)) (Types.toStringOrCanvasGradientOrCanvasPattern val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"strokeStyle\"]; })" + js_getStrokeStyle :: CanvasFillStrokeStyles -> IO StringOrCanvasGradientOrCanvasPattern +-- | +getStrokeStyle :: (MonadDOM m, IsCanvasFillStrokeStyles self) => self -> m StringOrCanvasGradientOrCanvasPattern +getStrokeStyle self = liftDOM ((js_getStrokeStyle ((Types.toCanvasFillStrokeStyles self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"fillStyle\"] = $2; })" + js_setFillStyle :: CanvasFillStrokeStyles -> StringOrCanvasGradientOrCanvasPattern -> IO () +-- | +setFillStyle :: (MonadDOM m, IsCanvasFillStrokeStyles self, IsStringOrCanvasGradientOrCanvasPattern val) => self -> val -> m () +setFillStyle self val = liftDOM (void ((js_setFillStyle ((Types.toCanvasFillStrokeStyles self)) (Types.toStringOrCanvasGradientOrCanvasPattern val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"fillStyle\"]; })" + js_getFillStyle :: CanvasFillStrokeStyles -> IO StringOrCanvasGradientOrCanvasPattern +-- | +getFillStyle :: (MonadDOM m, IsCanvasFillStrokeStyles self) => self -> m StringOrCanvasGradientOrCanvasPattern +getFillStyle self = liftDOM ((js_getFillStyle ((Types.toCanvasFillStrokeStyles self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CanvasFilters.hs b/src/GHCJS/DOM/JSFFI/Generated/CanvasFilters.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CanvasFilters.hs @@ -0,0 +1,29 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from html (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CanvasFilters + (js_setFilter, js_getFilter, setFilter, getFilter, CanvasFilters(..), gTypeCanvasFilters, IsCanvasFilters, toCanvasFilters) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1, $2) => { $1[\"filter\"] = $2; })" + js_setFilter :: CanvasFilters -> JSString -> IO () +-- | +setFilter :: (MonadDOM m, IsCanvasFilters self, ToJSString val) => self -> val -> m () +setFilter self val = liftDOM (void ((js_setFilter ((Types.toCanvasFilters self)) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"filter\"]; })" + js_getFilter :: CanvasFilters -> IO JSString +-- | +getFilter :: (MonadDOM m, IsCanvasFilters self, FromJSString result) => self -> m result +getFilter self = liftDOM ((fromJSString <$> (js_getFilter ((Types.toCanvasFilters self))))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CanvasGradient.hs b/src/GHCJS/DOM/JSFFI/Generated/CanvasGradient.hs --- a/src/GHCJS/DOM/JSFFI/Generated/CanvasGradient.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/CanvasGradient.hs @@ -1,37 +1,23 @@ {-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE JavaScriptFFI #-} --- For HasCallStack compatibility +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from html (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.CanvasGradient - (js_addColorStop, addColorStop, CanvasGradient(..), - gTypeCanvasGradient) + (js_addColorStop, addColorStop, CanvasGradient(..), gTypeCanvasGradient) where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull, jsUndefined) -import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import Data.Maybe (fromJust) -import Data.Traversable (mapM) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types -import Control.Applicative ((<$>)) +import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums - -foreign import javascript safe "(($1, $2, $3) => { return $1[\"addColorStop\"]($2, $3); })" - js_addColorStop :: CanvasGradient -> Float -> JSString -> IO () --- | -addColorStop :: - (MonadIO m, ToJSString color) => - CanvasGradient -> Float -> color -> m () -addColorStop self offset color - = liftIO (js_addColorStop self offset (toJSString color)) +foreign import javascript safe "(($1, $2, $3) => { return $1[\"addColorStop\"]($2, $3); })" + js_addColorStop :: CanvasGradient -> Double -> JSString -> IO () +-- | +addColorStop :: (MonadDOM m, ToJSString color) => CanvasGradient -> Double -> color -> m () +addColorStop self offset color = liftDOM (void ((js_addColorStop (self) (offset) (toJSString color)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CanvasImageData.hs b/src/GHCJS/DOM/JSFFI/Generated/CanvasImageData.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CanvasImageData.hs @@ -0,0 +1,69 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from html (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CanvasImageData + (js_createImageData', js_createImageData, js_getImageData, js_getImageData', js_putImageData, js_putImageDataDirtyXDirtyYDirtyWidthDirtyHeight, createImageData', createImageData'_, createImageData, createImageData_, getImageData, getImageData_, getImageData', getImageData'_, putImageData, putImageDataDirtyXDirtyYDirtyWidthDirtyHeight, CanvasImageData(..), gTypeCanvasImageData, IsCanvasImageData, toCanvasImageData) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"createImageData\"]($2, $3, $4); })" + js_createImageData' :: CanvasImageData -> Int -> Int -> JSVal -> IO ImageData +-- | +createImageData' :: (MonadDOM m, IsCanvasImageData self) => self -> Int -> Int -> Maybe ImageDataSettings -> m ImageData +createImageData' self sw sh settings = liftDOM (((P.maybe (P.return jsUndefined) toJSVal settings) >>= \a4' -> js_createImageData' ((Types.toCanvasImageData self)) (sw) (sh) a4')) + +-- | +createImageData'_ :: (MonadDOM m, IsCanvasImageData self) => self -> Int -> Int -> Maybe ImageDataSettings -> m () +createImageData'_ self sw sh settings = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal settings) >>= \a4' -> js_createImageData' ((Types.toCanvasImageData self)) (sw) (sh) a4'))) + +foreign import javascript safe "(($1, $2) => { return $1[\"createImageData\"]($2); })" + js_createImageData :: CanvasImageData -> ImageData -> IO ImageData +-- | +createImageData :: (MonadDOM m, IsCanvasImageData self) => self -> ImageData -> m ImageData +createImageData self imageData = liftDOM ((js_createImageData ((Types.toCanvasImageData self)) (imageData))) + +-- | +createImageData_ :: (MonadDOM m, IsCanvasImageData self) => self -> ImageData -> m () +createImageData_ self imageData = liftDOM (void ((js_createImageData ((Types.toCanvasImageData self)) (imageData)))) + +foreign import javascript safe "(($1, $2, $3, $4, $5) => { return $1[\"getImageData\"]($2, $3, $4, $5); })" + js_getImageData :: CanvasImageData -> Int -> Int -> Int -> Int -> IO ImageData +-- | +getImageData :: (MonadDOM m, IsCanvasImageData self) => self -> Int -> Int -> Int -> Int -> m ImageData +getImageData self sx sy sw sh = liftDOM ((js_getImageData ((Types.toCanvasImageData self)) (sx) (sy) (sw) (sh))) + +-- | +getImageData_ :: (MonadDOM m, IsCanvasImageData self) => self -> Int -> Int -> Int -> Int -> m () +getImageData_ self sx sy sw sh = liftDOM (void ((js_getImageData ((Types.toCanvasImageData self)) (sx) (sy) (sw) (sh)))) + +foreign import javascript safe "(($1, $2, $3, $4, $5, $6) => { return $1[\"getImageData\"]($2, $3, $4, $5, $6); })" + js_getImageData' :: CanvasImageData -> Int -> Int -> Int -> Int -> JSVal -> IO ImageData +-- | +getImageData' :: (MonadDOM m, IsCanvasImageData self) => self -> Int -> Int -> Int -> Int -> Maybe ImageDataSettings -> m ImageData +getImageData' self sx sy sw sh settings = liftDOM (((P.maybe (P.return jsUndefined) toJSVal settings) >>= \a6' -> js_getImageData' ((Types.toCanvasImageData self)) (sx) (sy) (sw) (sh) a6')) + +-- | +getImageData'_ :: (MonadDOM m, IsCanvasImageData self) => self -> Int -> Int -> Int -> Int -> Maybe ImageDataSettings -> m () +getImageData'_ self sx sy sw sh settings = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal settings) >>= \a6' -> js_getImageData' ((Types.toCanvasImageData self)) (sx) (sy) (sw) (sh) a6'))) + +foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"putImageData\"]($2, $3, $4); })" + js_putImageData :: CanvasImageData -> ImageData -> Int -> Int -> IO () +-- | +putImageData :: (MonadDOM m, IsCanvasImageData self) => self -> ImageData -> Int -> Int -> m () +putImageData self imageData dx dy = liftDOM (void ((js_putImageData ((Types.toCanvasImageData self)) (imageData) (dx) (dy)))) + +foreign import javascript safe "(($1, $2, $3, $4, $5, $6, $7, $8) => { return $1[\"putImageData\"]($2, $3, $4, $5, $6, $7, $8); })" + js_putImageDataDirtyXDirtyYDirtyWidthDirtyHeight :: CanvasImageData -> ImageData -> Int -> Int -> Int -> Int -> Int -> Int -> IO () +-- | +putImageDataDirtyXDirtyYDirtyWidthDirtyHeight :: (MonadDOM m, IsCanvasImageData self) => self -> ImageData -> Int -> Int -> Int -> Int -> Int -> Int -> m () +putImageDataDirtyXDirtyYDirtyWidthDirtyHeight self imageData dx dy dirtyX dirtyY dirtyWidth dirtyHeight = liftDOM (void ((js_putImageDataDirtyXDirtyYDirtyWidthDirtyHeight ((Types.toCanvasImageData self)) (imageData) (dx) (dy) (dirtyX) (dirtyY) (dirtyWidth) (dirtyHeight)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CanvasImageSmoothing.hs b/src/GHCJS/DOM/JSFFI/Generated/CanvasImageSmoothing.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CanvasImageSmoothing.hs @@ -0,0 +1,41 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from html (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CanvasImageSmoothing + (js_setImageSmoothingEnabled, js_getImageSmoothingEnabled, js_setImageSmoothingQuality, js_getImageSmoothingQuality, setImageSmoothingEnabled, getImageSmoothingEnabled, setImageSmoothingQuality, getImageSmoothingQuality, CanvasImageSmoothing(..), gTypeCanvasImageSmoothing, IsCanvasImageSmoothing, toCanvasImageSmoothing) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1, $2) => { $1[\"imageSmoothingEnabled\"] = $2; })" + js_setImageSmoothingEnabled :: CanvasImageSmoothing -> Bool -> IO () +-- | +setImageSmoothingEnabled :: (MonadDOM m, IsCanvasImageSmoothing self) => self -> Bool -> m () +setImageSmoothingEnabled self val = liftDOM (void ((js_setImageSmoothingEnabled ((Types.toCanvasImageSmoothing self)) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"imageSmoothingEnabled\"]; })" + js_getImageSmoothingEnabled :: CanvasImageSmoothing -> IO Bool +-- | +getImageSmoothingEnabled :: (MonadDOM m, IsCanvasImageSmoothing self) => self -> m Bool +getImageSmoothingEnabled self = liftDOM ((js_getImageSmoothingEnabled ((Types.toCanvasImageSmoothing self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"imageSmoothingQuality\"] = $2; })" + js_setImageSmoothingQuality :: CanvasImageSmoothing -> JSVal -> IO () +-- | +setImageSmoothingQuality :: (MonadDOM m, IsCanvasImageSmoothing self) => self -> ImageSmoothingQuality -> m () +setImageSmoothingQuality self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setImageSmoothingQuality ((Types.toCanvasImageSmoothing self)) a2'))) + +foreign import javascript unsafe "(($1) => { return $1[\"imageSmoothingQuality\"]; })" + js_getImageSmoothingQuality :: CanvasImageSmoothing -> IO JSVal +-- | +getImageSmoothingQuality :: (MonadDOM m, IsCanvasImageSmoothing self) => self -> m ImageSmoothingQuality +getImageSmoothingQuality self = liftDOM (((js_getImageSmoothingQuality ((Types.toCanvasImageSmoothing self))) >>= fromJSValUnchecked)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CanvasPath.hs b/src/GHCJS/DOM/JSFFI/Generated/CanvasPath.hs --- a/src/GHCJS/DOM/JSFFI/Generated/CanvasPath.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/CanvasPath.hs @@ -1,138 +1,77 @@ {-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE JavaScriptFFI #-} --- For HasCallStack compatibility +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from html (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.CanvasPath - (js_closePath, closePath, js_moveTo, moveTo, js_lineTo, lineTo, - js_quadraticCurveTo, quadraticCurveTo, js_bezierCurveTo, - bezierCurveTo, js_arcTo, arcTo, js_rect, rect, js_arc, arc, - js_ellipse, ellipse, CanvasPath(..), gTypeCanvasPath, IsCanvasPath, - toCanvasPath) + (js_arc, js_arcTo, js_bezierCurveTo, js_closePath, js_ellipse, js_lineTo, js_moveTo, js_quadraticCurveTo, js_rect, js_roundRect, arc, arcTo, bezierCurveTo, closePath, ellipse, lineTo, moveTo, quadraticCurveTo, rect, roundRect, CanvasPath(..), gTypeCanvasPath, IsCanvasPath, toCanvasPath) where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull, jsUndefined) -import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import Data.Maybe (fromJust) -import Data.Traversable (mapM) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types -import Control.Applicative ((<$>)) +import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums - -foreign import javascript unsafe "(($1) => { return $1[\"closePath\"](); })" js_closePath - :: CanvasPath -> IO () --- | -closePath :: (MonadIO m, IsCanvasPath self) => self -> m () -closePath self = liftIO (js_closePath (toCanvasPath self)) - -foreign import javascript unsafe "(($1, $2, $3) => { return $1[\"moveTo\"]($2, $3); })" js_moveTo - :: CanvasPath -> Double -> Double -> IO () +foreign import javascript safe "(($1, $2, $3, $4, $5, $6, $7) => { return $1[\"arc\"]($2, $3, $4, $5, $6, $7); })" + js_arc :: CanvasPath -> Double -> Double -> Double -> Double -> Double -> JSVal -> IO () +-- | +arc :: (MonadDOM m, IsCanvasPath self) => self -> Double -> Double -> Double -> Double -> Double -> Maybe Bool -> m () +arc self x y radius startAngle endAngle counterclockwise = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal counterclockwise) >>= \a7' -> js_arc ((Types.toCanvasPath self)) (x) (y) (radius) (startAngle) (endAngle) a7'))) --- | -moveTo :: - (MonadIO m, IsCanvasPath self) => self -> Double -> Double -> m () -moveTo self x y = liftIO (js_moveTo (toCanvasPath self) x y) - -foreign import javascript unsafe "(($1, $2, $3) => { return $1[\"lineTo\"]($2, $3); })" js_lineTo - :: CanvasPath -> Double -> Double -> IO () +foreign import javascript safe "(($1, $2, $3, $4, $5, $6) => { return $1[\"arcTo\"]($2, $3, $4, $5, $6); })" + js_arcTo :: CanvasPath -> Double -> Double -> Double -> Double -> Double -> IO () +-- | +arcTo :: (MonadDOM m, IsCanvasPath self) => self -> Double -> Double -> Double -> Double -> Double -> m () +arcTo self x1 y1 x2 y2 radius = liftDOM (void ((js_arcTo ((Types.toCanvasPath self)) (x1) (y1) (x2) (y2) (radius)))) --- | -lineTo :: - (MonadIO m, IsCanvasPath self) => self -> Double -> Double -> m () -lineTo self x y = liftIO (js_lineTo (toCanvasPath self) x y) - -foreign import javascript unsafe - "(($1, $2, $3, $4, $5) => { return $1[\"quadraticCurveTo\"]($2, $3,\n$4, $5); })" js_quadraticCurveTo :: - CanvasPath -> Double -> Double -> Double -> Double -> IO () +foreign import javascript safe "(($1, $2, $3, $4, $5, $6, $7) => { return $1[\"bezierCurveTo\"]($2, $3, $4, $5, $6, $7); })" + js_bezierCurveTo :: CanvasPath -> Double -> Double -> Double -> Double -> Double -> Double -> IO () +-- | +bezierCurveTo :: (MonadDOM m, IsCanvasPath self) => self -> Double -> Double -> Double -> Double -> Double -> Double -> m () +bezierCurveTo self cp1x cp1y cp2x cp2y x y = liftDOM (void ((js_bezierCurveTo ((Types.toCanvasPath self)) (cp1x) (cp1y) (cp2x) (cp2y) (x) (y)))) --- | -quadraticCurveTo :: - (MonadIO m, IsCanvasPath self) => - self -> Double -> Double -> Double -> Double -> m () -quadraticCurveTo self cpx cpy x y - = liftIO (js_quadraticCurveTo (toCanvasPath self) cpx cpy x y) - -foreign import javascript unsafe - "(($1, $2, $3, $4, $5, $6, $7) => { return $1[\"bezierCurveTo\"]($2, $3, $4,\n$5, $6, $7); })" js_bezierCurveTo - :: - CanvasPath -> - Double -> Double -> Double -> Double -> Double -> Double -> IO () +foreign import javascript safe "(($1) => { return $1[\"closePath\"](); })" + js_closePath :: CanvasPath -> IO () +-- | +closePath :: (MonadDOM m, IsCanvasPath self) => self -> m () +closePath self = liftDOM (void ((js_closePath ((Types.toCanvasPath self))))) --- | -bezierCurveTo :: - (MonadIO m, IsCanvasPath self) => - self -> - Double -> Double -> Double -> Double -> Double -> Double -> m () -bezierCurveTo self cp1x cp1y cp2x cp2y x y - = liftIO - (js_bezierCurveTo (toCanvasPath self) cp1x cp1y cp2x cp2y x y) - -foreign import javascript safe "(($1, $2, $3, $4, $5, $6) => { return $1[\"arcTo\"]($2, $3, $4, $5, $6); })" - js_arcTo :: - CanvasPath -> - Double -> Double -> Double -> Double -> Double -> IO () +foreign import javascript safe "(($1, $2, $3, $4, $5, $6, $7, $8, $9) => { return $1[\"ellipse\"]($2, $3, $4, $5, $6, $7, $8, $9); })" + js_ellipse :: CanvasPath -> Double -> Double -> Double -> Double -> Double -> Double -> Double -> JSVal -> IO () +-- | +ellipse :: (MonadDOM m, IsCanvasPath self) => self -> Double -> Double -> Double -> Double -> Double -> Double -> Double -> Maybe Bool -> m () +ellipse self x y radiusX radiusY rotation startAngle endAngle counterclockwise = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal counterclockwise) >>= \a9' -> js_ellipse ((Types.toCanvasPath self)) (x) (y) (radiusX) (radiusY) (rotation) (startAngle) (endAngle) a9'))) --- | -arcTo :: - (MonadIO m, IsCanvasPath self) => - self -> Double -> Double -> Double -> Double -> Double -> m () -arcTo self x1 y1 x2 y2 radius - = liftIO (js_arcTo (toCanvasPath self) x1 y1 x2 y2 radius) - -foreign import javascript unsafe "(($1, $2, $3, $4, $5) => { return $1[\"rect\"]($2, $3, $4, $5); })" - js_rect :: - CanvasPath -> Double -> Double -> Double -> Double -> IO () +foreign import javascript safe "(($1, $2, $3) => { return $1[\"lineTo\"]($2, $3); })" + js_lineTo :: CanvasPath -> Double -> Double -> IO () +-- | +lineTo :: (MonadDOM m, IsCanvasPath self) => self -> Double -> Double -> m () +lineTo self x y = liftDOM (void ((js_lineTo ((Types.toCanvasPath self)) (x) (y)))) --- | -rect :: - (MonadIO m, IsCanvasPath self) => - self -> Double -> Double -> Double -> Double -> m () -rect self x y w h = liftIO (js_rect (toCanvasPath self) x y w h) - -foreign import javascript safe - "(($1, $2, $3, $4, $5, $6, $7) => { return $1[\"arc\"]($2, $3, $4, $5, $6,\n$7); })" js_arc :: - CanvasPath -> - Double -> Double -> Double -> Double -> Double -> Bool -> IO () +foreign import javascript safe "(($1, $2, $3) => { return $1[\"moveTo\"]($2, $3); })" + js_moveTo :: CanvasPath -> Double -> Double -> IO () +-- | +moveTo :: (MonadDOM m, IsCanvasPath self) => self -> Double -> Double -> m () +moveTo self x y = liftDOM (void ((js_moveTo ((Types.toCanvasPath self)) (x) (y)))) --- | -arc :: - (MonadIO m, IsCanvasPath self) => - self -> - Double -> Double -> Double -> Double -> Double -> Bool -> m () -arc self x y radius startAngle endAngle anticlockwise - = liftIO - (js_arc (toCanvasPath self) x y radius startAngle endAngle - anticlockwise) - -foreign import javascript safe - "(($1, $2, $3, $4, $5, $6, $7, $8, $9) => { return $1[\"ellipse\"]($2, $3, $4, $5,\n$6, $7, $8, $9); })" js_ellipse :: - CanvasPath -> - Double -> - Double -> - Double -> Double -> Double -> Double -> Double -> Bool -> IO () +foreign import javascript safe "(($1, $2, $3, $4, $5) => { return $1[\"quadraticCurveTo\"]($2, $3, $4, $5); })" + js_quadraticCurveTo :: CanvasPath -> Double -> Double -> Double -> Double -> IO () +-- | +quadraticCurveTo :: (MonadDOM m, IsCanvasPath self) => self -> Double -> Double -> Double -> Double -> m () +quadraticCurveTo self cpx cpy x y = liftDOM (void ((js_quadraticCurveTo ((Types.toCanvasPath self)) (cpx) (cpy) (x) (y)))) --- | -ellipse :: - (MonadIO m, IsCanvasPath self) => - self -> - Double -> - Double -> - Double -> Double -> Double -> Double -> Double -> Bool -> m () -ellipse self x y radiusX radiusY rotation startAngle endAngle - anticlockwise - = liftIO - (js_ellipse (toCanvasPath self) x y radiusX radiusY rotation - startAngle - endAngle - anticlockwise) +foreign import javascript safe "(($1, $2, $3, $4, $5) => { return $1[\"rect\"]($2, $3, $4, $5); })" + js_rect :: CanvasPath -> Double -> Double -> Double -> Double -> IO () +-- | +rect :: (MonadDOM m, IsCanvasPath self) => self -> Double -> Double -> Double -> Double -> m () +rect self x y w h = liftDOM (void ((js_rect ((Types.toCanvasPath self)) (x) (y) (w) (h)))) + +foreign import javascript safe "(($1, $2, $3, $4, $5, $6) => { return $1[\"roundRect\"]($2, $3, $4, $5, $6); })" + js_roundRect :: CanvasPath -> Double -> Double -> Double -> Double -> JSVal -> IO () +-- | +roundRect :: (MonadDOM m, IsCanvasPath self, IsDoubleOrDOMPointInitOrSequenceDoubleOrDOMPointInit radii) => self -> Double -> Double -> Double -> Double -> Maybe radii -> m () +roundRect self x y w h radii = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal radii) >>= \a6' -> js_roundRect ((Types.toCanvasPath self)) (x) (y) (w) (h) a6'))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CanvasPathDrawingStyles.hs b/src/GHCJS/DOM/JSFFI/Generated/CanvasPathDrawingStyles.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CanvasPathDrawingStyles.hs @@ -0,0 +1,93 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from html (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CanvasPathDrawingStyles + (js_getLineDash, js_setLineDash, js_setLineWidth, js_getLineWidth, js_setLineCap, js_getLineCap, js_setLineJoin, js_getLineJoin, js_setMiterLimit, js_getMiterLimit, js_setLineDashOffset, js_getLineDashOffset, getLineDash, getLineDash_, setLineDash, setLineWidth, getLineWidth, setLineCap, getLineCap, setLineJoin, getLineJoin, setMiterLimit, getMiterLimit, setLineDashOffset, getLineDashOffset, CanvasPathDrawingStyles(..), gTypeCanvasPathDrawingStyles, IsCanvasPathDrawingStyles, toCanvasPathDrawingStyles) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1) => { return $1[\"getLineDash\"](); })" + js_getLineDash :: CanvasPathDrawingStyles -> IO JSVal +-- | +getLineDash :: (MonadDOM m, IsCanvasPathDrawingStyles self) => self -> m [Double] +getLineDash self = liftDOM (((js_getLineDash ((Types.toCanvasPathDrawingStyles self))) >>= fromJSValUnchecked)) + +-- | +getLineDash_ :: (MonadDOM m, IsCanvasPathDrawingStyles self) => self -> m () +getLineDash_ self = liftDOM (void ((js_getLineDash ((Types.toCanvasPathDrawingStyles self))))) + +foreign import javascript safe "(($1, $2) => { return $1[\"setLineDash\"]($2); })" + js_setLineDash :: CanvasPathDrawingStyles -> JSVal -> IO () +-- | +setLineDash :: (MonadDOM m, IsCanvasPathDrawingStyles self) => self -> [Double] -> m () +setLineDash self segments = liftDOM (void (((toJSVal segments) >>= \a2' -> js_setLineDash ((Types.toCanvasPathDrawingStyles self)) a2'))) + +foreign import javascript safe "(($1, $2) => { $1[\"lineWidth\"] = $2; })" + js_setLineWidth :: CanvasPathDrawingStyles -> Double -> IO () +-- | +setLineWidth :: (MonadDOM m, IsCanvasPathDrawingStyles self) => self -> Double -> m () +setLineWidth self val = liftDOM (void ((js_setLineWidth ((Types.toCanvasPathDrawingStyles self)) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"lineWidth\"]; })" + js_getLineWidth :: CanvasPathDrawingStyles -> IO Double +-- | +getLineWidth :: (MonadDOM m, IsCanvasPathDrawingStyles self) => self -> m Double +getLineWidth self = liftDOM ((js_getLineWidth ((Types.toCanvasPathDrawingStyles self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"lineCap\"] = $2; })" + js_setLineCap :: CanvasPathDrawingStyles -> JSVal -> IO () +-- | +setLineCap :: (MonadDOM m, IsCanvasPathDrawingStyles self) => self -> CanvasLineCap -> m () +setLineCap self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setLineCap ((Types.toCanvasPathDrawingStyles self)) a2'))) + +foreign import javascript unsafe "(($1) => { return $1[\"lineCap\"]; })" + js_getLineCap :: CanvasPathDrawingStyles -> IO JSVal +-- | +getLineCap :: (MonadDOM m, IsCanvasPathDrawingStyles self) => self -> m CanvasLineCap +getLineCap self = liftDOM (((js_getLineCap ((Types.toCanvasPathDrawingStyles self))) >>= fromJSValUnchecked)) + +foreign import javascript safe "(($1, $2) => { $1[\"lineJoin\"] = $2; })" + js_setLineJoin :: CanvasPathDrawingStyles -> JSVal -> IO () +-- | +setLineJoin :: (MonadDOM m, IsCanvasPathDrawingStyles self) => self -> CanvasLineJoin -> m () +setLineJoin self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setLineJoin ((Types.toCanvasPathDrawingStyles self)) a2'))) + +foreign import javascript unsafe "(($1) => { return $1[\"lineJoin\"]; })" + js_getLineJoin :: CanvasPathDrawingStyles -> IO JSVal +-- | +getLineJoin :: (MonadDOM m, IsCanvasPathDrawingStyles self) => self -> m CanvasLineJoin +getLineJoin self = liftDOM (((js_getLineJoin ((Types.toCanvasPathDrawingStyles self))) >>= fromJSValUnchecked)) + +foreign import javascript safe "(($1, $2) => { $1[\"miterLimit\"] = $2; })" + js_setMiterLimit :: CanvasPathDrawingStyles -> Double -> IO () +-- | +setMiterLimit :: (MonadDOM m, IsCanvasPathDrawingStyles self) => self -> Double -> m () +setMiterLimit self val = liftDOM (void ((js_setMiterLimit ((Types.toCanvasPathDrawingStyles self)) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"miterLimit\"]; })" + js_getMiterLimit :: CanvasPathDrawingStyles -> IO Double +-- | +getMiterLimit :: (MonadDOM m, IsCanvasPathDrawingStyles self) => self -> m Double +getMiterLimit self = liftDOM ((js_getMiterLimit ((Types.toCanvasPathDrawingStyles self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"lineDashOffset\"] = $2; })" + js_setLineDashOffset :: CanvasPathDrawingStyles -> Double -> IO () +-- | +setLineDashOffset :: (MonadDOM m, IsCanvasPathDrawingStyles self) => self -> Double -> m () +setLineDashOffset self val = liftDOM (void ((js_setLineDashOffset ((Types.toCanvasPathDrawingStyles self)) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"lineDashOffset\"]; })" + js_getLineDashOffset :: CanvasPathDrawingStyles -> IO Double +-- | +getLineDashOffset :: (MonadDOM m, IsCanvasPathDrawingStyles self) => self -> m Double +getLineDashOffset self = liftDOM ((js_getLineDashOffset ((Types.toCanvasPathDrawingStyles self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CanvasPattern.hs b/src/GHCJS/DOM/JSFFI/Generated/CanvasPattern.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CanvasPattern.hs @@ -0,0 +1,23 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from html (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CanvasPattern + (js_setTransform, setTransform, CanvasPattern(..), gTypeCanvasPattern) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1, $2) => { return $1[\"setTransform\"]($2); })" + js_setTransform :: CanvasPattern -> JSVal -> IO () +-- | +setTransform :: (MonadDOM m, IsDOMMatrix2DInit transform) => CanvasPattern -> Maybe transform -> m () +setTransform self transform = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal transform) >>= \a2' -> js_setTransform (self) a2'))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CanvasRect.hs b/src/GHCJS/DOM/JSFFI/Generated/CanvasRect.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CanvasRect.hs @@ -0,0 +1,35 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from html (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CanvasRect + (js_clearRect, js_fillRect, js_strokeRect, clearRect, fillRect, strokeRect, CanvasRect(..), gTypeCanvasRect, IsCanvasRect, toCanvasRect) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1, $2, $3, $4, $5) => { return $1[\"clearRect\"]($2, $3, $4, $5); })" + js_clearRect :: CanvasRect -> Double -> Double -> Double -> Double -> IO () +-- | +clearRect :: (MonadDOM m, IsCanvasRect self) => self -> Double -> Double -> Double -> Double -> m () +clearRect self x y w h = liftDOM (void ((js_clearRect ((Types.toCanvasRect self)) (x) (y) (w) (h)))) + +foreign import javascript safe "(($1, $2, $3, $4, $5) => { return $1[\"fillRect\"]($2, $3, $4, $5); })" + js_fillRect :: CanvasRect -> Double -> Double -> Double -> Double -> IO () +-- | +fillRect :: (MonadDOM m, IsCanvasRect self) => self -> Double -> Double -> Double -> Double -> m () +fillRect self x y w h = liftDOM (void ((js_fillRect ((Types.toCanvasRect self)) (x) (y) (w) (h)))) + +foreign import javascript safe "(($1, $2, $3, $4, $5) => { return $1[\"strokeRect\"]($2, $3, $4, $5); })" + js_strokeRect :: CanvasRect -> Double -> Double -> Double -> Double -> IO () +-- | +strokeRect :: (MonadDOM m, IsCanvasRect self) => self -> Double -> Double -> Double -> Double -> m () +strokeRect self x y w h = liftDOM (void ((js_strokeRect ((Types.toCanvasRect self)) (x) (y) (w) (h)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CanvasRenderingContext2D.hs b/src/GHCJS/DOM/JSFFI/Generated/CanvasRenderingContext2D.hs --- a/src/GHCJS/DOM/JSFFI/Generated/CanvasRenderingContext2D.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/CanvasRenderingContext2D.hs @@ -1,1432 +1,23 @@ {-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE JavaScriptFFI #-} --- For HasCallStack compatibility -{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} -module GHCJS.DOM.JSFFI.Generated.CanvasRenderingContext2D - (js_save, save, js_restore, restore, js_commit, commit, js_scale, - scale, js_rotate, rotate, js_translate, translate, js_transform, - transform, js_setTransform, setTransform, js_resetTransform, - resetTransform, js_setLineDash, setLineDash, js_getLineDash, - getLineDash, getLineDash_, js_clearRect, clearRect, js_fillRect, - fillRect, js_beginPath, beginPath, js_fillPath, fillPath, - js_strokePath, strokePath, js_clipPath, clipPath, js_fill, fill, - js_stroke, stroke, js_clip, clip, js_isPointInPathPath, - isPointInPathPath, isPointInPathPath_, js_isPointInStrokePath, - isPointInStrokePath, isPointInStrokePath_, js_isPointInPath, - isPointInPath, isPointInPath_, js_isPointInStroke, isPointInStroke, - isPointInStroke_, js_measureText, measureText, measureText_, - js_setAlpha, setAlpha, js_setCompositeOperation, - setCompositeOperation, js_setLineWidthFunction, - setLineWidthFunction, js_setLineCapFunction, setLineCapFunction, - js_setLineJoinFunction, setLineJoinFunction, - js_setMiterLimitFunction, setMiterLimitFunction, js_clearShadow, - clearShadow, js_fillText, fillText, js_strokeText, strokeText, - js_setStrokeColor, setStrokeColor, js_setStrokeColorGray, - setStrokeColorGray, js_setStrokeColorRGB, setStrokeColorRGB, - js_setStrokeColorCYMK, setStrokeColorCYMK, js_setFillColor, - setFillColor, js_setFillColorGray, setFillColorGray, - js_setFillColorRGB, setFillColorRGB, js_setFillColorCYMK, - setFillColorCYMK, js_strokeRect, strokeRect, js_drawImage, - drawImage, js_drawImageScaled, drawImageScaled, js_drawImagePart, - drawImagePart, js_drawImageFromRect, drawImageFromRect, - js_setShadow, setShadow, js_setShadowGray, setShadowGray, - js_setShadowRGB, setShadowRGB, js_setShadowCYMK, setShadowCYMK, - js_putImageData, putImageData, js_putImageDataDirty, - putImageDataDirty, js_webkitPutImageDataHD, webkitPutImageDataHD, - js_webkitPutImageDataHDDirty, webkitPutImageDataHDDirty, - js_createImageData, createImageData, createImageData_, - js_createImageDataSize, createImageDataSize, createImageDataSize_, - js_createLinearGradient, createLinearGradient, - createLinearGradient_, js_createRadialGradient, - createRadialGradient, createRadialGradient_, js_createPattern, - createPattern, createPattern_, createPatternUnsafe, - createPatternUnchecked, js_getImageData, getImageData, - getImageData_, js_webkitGetImageDataHD, webkitGetImageDataHD, - webkitGetImageDataHD_, js_drawFocusIfNeeded, drawFocusIfNeeded, - js_drawFocusIfNeededPath, drawFocusIfNeededPath, js_getCanvas, - getCanvas, js_setGlobalAlpha, setGlobalAlpha, js_getGlobalAlpha, - getGlobalAlpha, js_setGlobalCompositeOperation, - setGlobalCompositeOperation, js_getGlobalCompositeOperation, - getGlobalCompositeOperation, js_setLineWidth, setLineWidth, - js_getLineWidth, getLineWidth, js_setLineCap, setLineCap, - js_getLineCap, getLineCap, js_setLineJoin, setLineJoin, - js_getLineJoin, getLineJoin, js_setMiterLimit, setMiterLimit, - js_getMiterLimit, getMiterLimit, js_setShadowOffsetX, - setShadowOffsetX, js_getShadowOffsetX, getShadowOffsetX, - js_setShadowOffsetY, setShadowOffsetY, js_getShadowOffsetY, - getShadowOffsetY, js_setShadowBlur, setShadowBlur, - js_getShadowBlur, getShadowBlur, js_setShadowColor, setShadowColor, - js_getShadowColor, getShadowColor, js_setLineDashOffset, - setLineDashOffset, js_getLineDashOffset, getLineDashOffset, - js_setWebkitLineDash, setWebkitLineDash, js_getWebkitLineDash, - getWebkitLineDash, js_setWebkitLineDashOffset, - setWebkitLineDashOffset, js_getWebkitLineDashOffset, - getWebkitLineDashOffset, js_setFont, setFont, js_getFont, getFont, - js_setTextAlign, setTextAlign, js_getTextAlign, getTextAlign, - js_setTextBaseline, setTextBaseline, js_getTextBaseline, - getTextBaseline, js_setDirection, setDirection, js_getDirection, - getDirection, js_setStrokeStyle, setStrokeStyle, js_getStrokeStyle, - getStrokeStyle, js_setFillStyle, setFillStyle, js_getFillStyle, - getFillStyle, js_getWebkitBackingStorePixelRatio, - getWebkitBackingStorePixelRatio, js_setImageSmoothingEnabled, - setImageSmoothingEnabled, js_getImageSmoothingEnabled, - getImageSmoothingEnabled, js_setWebkitImageSmoothingEnabled, - setWebkitImageSmoothingEnabled, js_getWebkitImageSmoothingEnabled, - getWebkitImageSmoothingEnabled, js_setImageSmoothingQuality, - setImageSmoothingQuality, js_getImageSmoothingQuality, - getImageSmoothingQuality, CanvasRenderingContext2D(..), - gTypeCanvasRenderingContext2D) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull, jsUndefined) -import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import Data.Maybe (fromJust) -import Data.Traversable (mapM) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) -import GHCJS.DOM.JSFFI.Generated.Enums - -foreign import javascript unsafe "(($1) => { return $1[\"save\"](); })" js_save :: - CanvasRenderingContext2D -> IO () - --- | -save :: (MonadIO m) => CanvasRenderingContext2D -> m () -save self = liftIO (js_save self) - -foreign import javascript unsafe "(($1) => { return $1[\"restore\"](); })" js_restore :: - CanvasRenderingContext2D -> IO () - --- | -restore :: (MonadIO m) => CanvasRenderingContext2D -> m () -restore self = liftIO (js_restore self) - -foreign import javascript unsafe "(($1) => { return $1[\"commit\"](); })" js_commit :: - CanvasRenderingContext2D -> IO () - --- | -commit :: (MonadIO m) => CanvasRenderingContext2D -> m () -commit self = liftIO (js_commit self) - -foreign import javascript unsafe "(($1, $2, $3) => { return $1[\"scale\"]($2, $3); })" js_scale - :: CanvasRenderingContext2D -> Float -> Float -> IO () - --- | -scale :: - (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> m () -scale self sx sy = liftIO (js_scale self sx sy) - -foreign import javascript unsafe "(($1, $2) => { return $1[\"rotate\"]($2); })" js_rotate :: - CanvasRenderingContext2D -> Float -> IO () - --- | -rotate :: (MonadIO m) => CanvasRenderingContext2D -> Float -> m () -rotate self angle = liftIO (js_rotate self angle) - -foreign import javascript unsafe "(($1, $2, $3) => { return $1[\"translate\"]($2, $3); })" - js_translate :: CanvasRenderingContext2D -> Float -> Float -> IO () - --- | -translate :: - (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> m () -translate self tx ty = liftIO (js_translate self tx ty) - -foreign import javascript unsafe - "(($1, $2, $3, $4, $5, $6, $7) => { return $1[\"transform\"]($2, $3, $4, $5,\n$6, $7); })" js_transform :: - CanvasRenderingContext2D -> - Float -> Float -> Float -> Float -> Float -> Float -> IO () - --- | -transform :: - (MonadIO m) => - CanvasRenderingContext2D -> - Float -> Float -> Float -> Float -> Float -> Float -> m () -transform self m11 m12 m21 m22 dx dy - = liftIO (js_transform self m11 m12 m21 m22 dx dy) - -foreign import javascript unsafe - "(($1, $2, $3, $4, $5, $6, $7) => { return $1[\"setTransform\"]($2, $3, $4,\n$5, $6, $7); })" js_setTransform :: - CanvasRenderingContext2D -> - Float -> Float -> Float -> Float -> Float -> Float -> IO () - --- | -setTransform :: - (MonadIO m) => - CanvasRenderingContext2D -> - Float -> Float -> Float -> Float -> Float -> Float -> m () -setTransform self m11 m12 m21 m22 dx dy - = liftIO (js_setTransform self m11 m12 m21 m22 dx dy) - -foreign import javascript unsafe "(($1) => { return $1[\"resetTransform\"](); })" - js_resetTransform :: CanvasRenderingContext2D -> IO () - --- | -resetTransform :: (MonadIO m) => CanvasRenderingContext2D -> m () -resetTransform self = liftIO (js_resetTransform self) - -foreign import javascript unsafe "(($1, $2) => { return $1[\"setLineDash\"]($2); })" - js_setLineDash :: CanvasRenderingContext2D -> JSVal -> IO () - --- | -setLineDash :: - (MonadIO m) => CanvasRenderingContext2D -> [Float] -> m () -setLineDash self dash - = liftIO (toJSVal dash >>= \ dash' -> js_setLineDash self dash') - -foreign import javascript unsafe "(($1) => { return $1[\"getLineDash\"](); })" - js_getLineDash :: CanvasRenderingContext2D -> IO JSVal - --- | -getLineDash :: (MonadIO m) => CanvasRenderingContext2D -> m [Float] -getLineDash self - = liftIO ((js_getLineDash self) >>= fromJSValUnchecked) - --- | -getLineDash_ :: (MonadIO m) => CanvasRenderingContext2D -> m () -getLineDash_ self = liftIO (void (js_getLineDash self)) - -foreign import javascript unsafe - "(($1, $2, $3, $4, $5) => { return $1[\"clearRect\"]($2, $3, $4, $5); })" js_clearRect :: - CanvasRenderingContext2D -> - Float -> Float -> Float -> Float -> IO () - --- | -clearRect :: - (MonadIO m) => - CanvasRenderingContext2D -> - Float -> Float -> Float -> Float -> m () -clearRect self x y width height - = liftIO (js_clearRect self x y width height) - -foreign import javascript unsafe "(($1, $2, $3, $4, $5) => { return $1[\"fillRect\"]($2, $3, $4, $5); })" - js_fillRect :: - CanvasRenderingContext2D -> - Float -> Float -> Float -> Float -> IO () - --- | -fillRect :: - (MonadIO m) => - CanvasRenderingContext2D -> - Float -> Float -> Float -> Float -> m () -fillRect self x y width height - = liftIO (js_fillRect self x y width height) - -foreign import javascript unsafe "(($1) => { return $1[\"beginPath\"](); })" js_beginPath - :: CanvasRenderingContext2D -> IO () - --- | -beginPath :: (MonadIO m) => CanvasRenderingContext2D -> m () -beginPath self = liftIO (js_beginPath self) - -foreign import javascript unsafe "(($1, $2, $3) => { return $1[\"fill\"]($2, $3); })" js_fillPath - :: - CanvasRenderingContext2D -> - Path2D -> Optional CanvasWindingRule -> IO () - --- | -fillPath :: - (MonadIO m) => - CanvasRenderingContext2D -> - Path2D -> Maybe CanvasWindingRule -> m () -fillPath self path winding - = liftIO (js_fillPath self path (maybeToOptional winding)) - -foreign import javascript unsafe "(($1, $2) => { return $1[\"stroke\"]($2); })" js_strokePath - :: CanvasRenderingContext2D -> Path2D -> IO () - --- | -strokePath :: - (MonadIO m) => CanvasRenderingContext2D -> Path2D -> m () -strokePath self path = liftIO (js_strokePath self path) - -foreign import javascript unsafe "(($1, $2, $3) => { return $1[\"clip\"]($2, $3); })" js_clipPath - :: - CanvasRenderingContext2D -> - Path2D -> Optional CanvasWindingRule -> IO () - --- | -clipPath :: - (MonadIO m) => - CanvasRenderingContext2D -> - Path2D -> Maybe CanvasWindingRule -> m () -clipPath self path winding - = liftIO (js_clipPath self path (maybeToOptional winding)) - -foreign import javascript unsafe "(($1, $2) => { return $1[\"fill\"]($2); })" js_fill :: - CanvasRenderingContext2D -> Optional CanvasWindingRule -> IO () - --- | -fill :: - (MonadIO m) => - CanvasRenderingContext2D -> Maybe CanvasWindingRule -> m () -fill self winding = liftIO (js_fill self (maybeToOptional winding)) - -foreign import javascript unsafe "(($1) => { return $1[\"stroke\"](); })" js_stroke :: - CanvasRenderingContext2D -> IO () - --- | -stroke :: (MonadIO m) => CanvasRenderingContext2D -> m () -stroke self = liftIO (js_stroke self) - -foreign import javascript unsafe "(($1, $2) => { return $1[\"clip\"]($2); })" js_clip :: - CanvasRenderingContext2D -> Optional CanvasWindingRule -> IO () - --- | -clip :: - (MonadIO m) => - CanvasRenderingContext2D -> Maybe CanvasWindingRule -> m () -clip self winding = liftIO (js_clip self (maybeToOptional winding)) - -foreign import javascript unsafe - "(($1, $2, $3, $4, $5) => { return ($1[\"isPointInPath\"]($2, $3, $4,\n$5) ? 1 : 0); })" - js_isPointInPathPath :: - CanvasRenderingContext2D -> - Path2D -> Float -> Float -> Optional CanvasWindingRule -> IO Bool - --- | -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)) - --- | -isPointInPathPath_ :: - (MonadIO m) => - CanvasRenderingContext2D -> - Path2D -> Float -> Float -> Maybe CanvasWindingRule -> m () -isPointInPathPath_ self path x y winding - = liftIO - (void - (js_isPointInPathPath self path x y (maybeToOptional winding))) - -foreign import javascript unsafe - "(($1, $2, $3, $4) => { return ($1[\"isPointInStroke\"]($2, $3,\n$4) ? 1 : 0); })" - js_isPointInStrokePath :: - CanvasRenderingContext2D -> Path2D -> Float -> Float -> IO Bool - --- | -isPointInStrokePath :: - (MonadIO m) => - CanvasRenderingContext2D -> Path2D -> Float -> Float -> m Bool -isPointInStrokePath self path x y - = liftIO (js_isPointInStrokePath self path x y) - --- | -isPointInStrokePath_ :: - (MonadIO m) => - CanvasRenderingContext2D -> Path2D -> Float -> Float -> m () -isPointInStrokePath_ self path x y - = liftIO (void (js_isPointInStrokePath self path x y)) - -foreign import javascript unsafe - "(($1, $2, $3, $4) => { return ($1[\"isPointInPath\"]($2, $3,\n$4) ? 1 : 0); })" js_isPointInPath :: - CanvasRenderingContext2D -> - Float -> Float -> Optional CanvasWindingRule -> IO Bool - --- | -isPointInPath :: - (MonadIO m) => - CanvasRenderingContext2D -> - Float -> Float -> Maybe CanvasWindingRule -> m Bool -isPointInPath self x y winding - = liftIO (js_isPointInPath self x y (maybeToOptional winding)) - --- | -isPointInPath_ :: - (MonadIO m) => - CanvasRenderingContext2D -> - Float -> Float -> Maybe CanvasWindingRule -> m () -isPointInPath_ self x y winding - = liftIO - (void (js_isPointInPath self x y (maybeToOptional winding))) - -foreign import javascript unsafe - "(($1, $2, $3) => { return ($1[\"isPointInStroke\"]($2,\n$3) ? 1 : 0); })" js_isPointInStroke :: - CanvasRenderingContext2D -> Float -> Float -> IO Bool - --- | -isPointInStroke :: - (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> m Bool -isPointInStroke self x y = liftIO (js_isPointInStroke self x y) - --- | -isPointInStroke_ :: - (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> m () -isPointInStroke_ self x y - = liftIO (void (js_isPointInStroke self x y)) - -foreign import javascript unsafe "(($1, $2) => { return $1[\"measureText\"]($2); })" - js_measureText :: - CanvasRenderingContext2D -> JSString -> IO TextMetrics - --- | -measureText :: - (MonadIO m, ToJSString text) => - CanvasRenderingContext2D -> text -> m TextMetrics -measureText self text - = liftIO (js_measureText self (toJSString text)) - --- | -measureText_ :: - (MonadIO m, ToJSString text) => - CanvasRenderingContext2D -> text -> m () -measureText_ self text - = liftIO (void (js_measureText self (toJSString text))) - -foreign import javascript unsafe "(($1, $2) => { return $1[\"setAlpha\"]($2); })" js_setAlpha - :: CanvasRenderingContext2D -> Optional Float -> IO () - --- | -setAlpha :: - (MonadIO m) => CanvasRenderingContext2D -> Maybe Float -> m () -setAlpha self alpha - = liftIO (js_setAlpha self (maybeToOptional alpha)) - -foreign import javascript unsafe - "(($1, $2) => { return $1[\"setCompositeOperation\"]($2); })" js_setCompositeOperation :: - CanvasRenderingContext2D -> Optional JSString -> IO () - --- | -setCompositeOperation :: - (MonadIO m, ToJSString compositeOperation) => - CanvasRenderingContext2D -> Maybe compositeOperation -> m () -setCompositeOperation self compositeOperation - = liftIO - (js_setCompositeOperation self - (toOptionalJSString compositeOperation)) - -foreign import javascript unsafe "(($1, $2) => { return $1[\"setLineWidth\"]($2); })" - js_setLineWidthFunction :: - CanvasRenderingContext2D -> Optional Float -> IO () - --- | -setLineWidthFunction :: - (MonadIO m) => CanvasRenderingContext2D -> Maybe Float -> m () -setLineWidthFunction self width - = liftIO (js_setLineWidthFunction self (maybeToOptional width)) - -foreign import javascript unsafe "(($1, $2) => { return $1[\"setLineCap\"]($2); })" - js_setLineCapFunction :: - CanvasRenderingContext2D -> Optional JSString -> IO () - --- | -setLineCapFunction :: - (MonadIO m, ToJSString cap) => - CanvasRenderingContext2D -> Maybe cap -> m () -setLineCapFunction self cap - = liftIO (js_setLineCapFunction self (toOptionalJSString cap)) - -foreign import javascript unsafe "(($1, $2) => { return $1[\"setLineJoin\"]($2); })" - js_setLineJoinFunction :: - CanvasRenderingContext2D -> Optional JSString -> IO () - --- | -setLineJoinFunction :: - (MonadIO m, ToJSString join) => - CanvasRenderingContext2D -> Maybe join -> m () -setLineJoinFunction self join - = liftIO (js_setLineJoinFunction self (toOptionalJSString join)) - -foreign import javascript unsafe "(($1, $2) => { return $1[\"setMiterLimit\"]($2); })" - js_setMiterLimitFunction :: - CanvasRenderingContext2D -> Optional Float -> IO () - --- | -setMiterLimitFunction :: - (MonadIO m) => CanvasRenderingContext2D -> Maybe Float -> m () -setMiterLimitFunction self limit - = liftIO (js_setMiterLimitFunction self (maybeToOptional limit)) - -foreign import javascript unsafe "(($1) => { return $1[\"clearShadow\"](); })" - js_clearShadow :: CanvasRenderingContext2D -> IO () - --- | -clearShadow :: (MonadIO m) => CanvasRenderingContext2D -> m () -clearShadow self = liftIO (js_clearShadow self) - -foreign import javascript unsafe "(($1, $2, $3, $4, $5) => { return $1[\"fillText\"]($2, $3, $4, $5); })" - js_fillText :: - CanvasRenderingContext2D -> - JSString -> Float -> Float -> Optional Float -> IO () - --- | -fillText :: - (MonadIO m, ToJSString text) => - CanvasRenderingContext2D -> - text -> Float -> Float -> Maybe Float -> m () -fillText self text x y maxWidth - = liftIO - (js_fillText self (toJSString text) x y (maybeToOptional maxWidth)) - -foreign import javascript unsafe - "(($1, $2, $3, $4, $5) => { return $1[\"strokeText\"]($2, $3, $4, $5); })" js_strokeText :: - CanvasRenderingContext2D -> - JSString -> Float -> Float -> Optional Float -> IO () - --- | -strokeText :: - (MonadIO m, ToJSString text) => - CanvasRenderingContext2D -> - text -> Float -> Float -> Maybe Float -> m () -strokeText self text x y maxWidth - = liftIO - (js_strokeText self (toJSString text) x y - (maybeToOptional maxWidth)) - -foreign import javascript unsafe "(($1, $2, $3) => { return $1[\"setStrokeColor\"]($2, $3); })" - js_setStrokeColor :: - CanvasRenderingContext2D -> JSString -> Optional Float -> IO () - --- | -setStrokeColor :: - (MonadIO m, ToJSString color) => - CanvasRenderingContext2D -> color -> Maybe Float -> m () -setStrokeColor self color alpha - = liftIO - (js_setStrokeColor self (toJSString color) (maybeToOptional alpha)) - -foreign import javascript unsafe "(($1, $2, $3) => { return $1[\"setStrokeColor\"]($2, $3); })" - js_setStrokeColorGray :: - CanvasRenderingContext2D -> Float -> Optional Float -> IO () - --- | -setStrokeColorGray :: - (MonadIO m) => - CanvasRenderingContext2D -> Float -> Maybe Float -> m () -setStrokeColorGray self grayLevel alpha - = liftIO - (js_setStrokeColorGray self grayLevel (maybeToOptional alpha)) - -foreign import javascript unsafe - "(($1, $2, $3, $4, $5) => { return $1[\"setStrokeColor\"]($2, $3, $4,\n$5); })" js_setStrokeColorRGB :: - CanvasRenderingContext2D -> - Float -> Float -> Float -> Float -> IO () - --- | -setStrokeColorRGB :: - (MonadIO m) => - CanvasRenderingContext2D -> - Float -> Float -> Float -> Float -> m () -setStrokeColorRGB self r g b a - = liftIO (js_setStrokeColorRGB self r g b a) - -foreign import javascript unsafe - "(($1, $2, $3, $4, $5, $6) => { return $1[\"setStrokeColor\"]($2, $3, $4,\n$5, $6); })" js_setStrokeColorCYMK - :: - CanvasRenderingContext2D -> - Float -> Float -> Float -> Float -> Float -> IO () - --- | -setStrokeColorCYMK :: - (MonadIO m) => - CanvasRenderingContext2D -> - Float -> Float -> Float -> Float -> Float -> m () -setStrokeColorCYMK self c m y k a - = liftIO (js_setStrokeColorCYMK self c m y k a) - -foreign import javascript unsafe "(($1, $2, $3) => { return $1[\"setFillColor\"]($2, $3); })" - js_setFillColor :: - CanvasRenderingContext2D -> JSString -> Optional Float -> IO () - --- | -setFillColor :: - (MonadIO m, ToJSString color) => - CanvasRenderingContext2D -> color -> Maybe Float -> m () -setFillColor self color alpha - = liftIO - (js_setFillColor self (toJSString color) (maybeToOptional alpha)) - -foreign import javascript unsafe "(($1, $2, $3) => { return $1[\"setFillColor\"]($2, $3); })" - js_setFillColorGray :: - CanvasRenderingContext2D -> Float -> Optional Float -> IO () - --- | -setFillColorGray :: - (MonadIO m) => - CanvasRenderingContext2D -> Float -> Maybe Float -> m () -setFillColorGray self grayLevel alpha - = liftIO - (js_setFillColorGray self grayLevel (maybeToOptional alpha)) - -foreign import javascript unsafe - "(($1, $2, $3, $4, $5) => { return $1[\"setFillColor\"]($2, $3, $4,\n$5); })" js_setFillColorRGB :: - CanvasRenderingContext2D -> - Float -> Float -> Float -> Float -> IO () - --- | -setFillColorRGB :: - (MonadIO m) => - CanvasRenderingContext2D -> - Float -> Float -> Float -> Float -> m () -setFillColorRGB self r g b a - = liftIO (js_setFillColorRGB self r g b a) - -foreign import javascript unsafe - "(($1, $2, $3, $4, $5, $6) => { return $1[\"setFillColor\"]($2, $3, $4,\n$5, $6); })" js_setFillColorCYMK :: - CanvasRenderingContext2D -> - Float -> Float -> Float -> Float -> Float -> IO () - --- | -setFillColorCYMK :: - (MonadIO m) => - CanvasRenderingContext2D -> - Float -> Float -> Float -> Float -> Float -> m () -setFillColorCYMK self c m y k a - = liftIO (js_setFillColorCYMK self c m y k a) - -foreign import javascript unsafe - "(($1, $2, $3, $4, $5) => { return $1[\"strokeRect\"]($2, $3, $4, $5); })" js_strokeRect :: - CanvasRenderingContext2D -> - Float -> Float -> Float -> Float -> IO () - --- | -strokeRect :: - (MonadIO m) => - CanvasRenderingContext2D -> - Float -> Float -> Float -> Float -> m () -strokeRect self x y width height - = liftIO (js_strokeRect self x y width height) - -foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"drawImage\"]($2, $3, $4); })" - js_drawImage :: - CanvasRenderingContext2D -> - CanvasImageSource -> Float -> Float -> IO () - --- | -drawImage :: - (MonadIO m, IsCanvasImageSource image) => - CanvasRenderingContext2D -> image -> Float -> Float -> m () -drawImage self image x y - = liftIO (js_drawImage self (toCanvasImageSource image) x y) - -foreign import javascript safe - "(($1, $2, $3, $4, $5, $6) => { return $1[\"drawImage\"]($2, $3, $4, $5,\n$6); })" js_drawImageScaled :: - CanvasRenderingContext2D -> - CanvasImageSource -> Float -> Float -> Float -> Float -> IO () - --- | -drawImageScaled :: - (MonadIO m, IsCanvasImageSource image) => - CanvasRenderingContext2D -> - image -> Float -> Float -> Float -> Float -> m () -drawImageScaled self image x y width height - = liftIO - (js_drawImageScaled self (toCanvasImageSource image) x y width - height) - -foreign import javascript safe - "(($1, $2, $3, $4, $5, $6, $7, $8, $9, $10) => { return $1[\"drawImage\"]($2, $3, $4, $5,\n$6, $7, $8, $9, $10); })" - js_drawImagePart :: - CanvasRenderingContext2D -> - CanvasImageSource -> - Float -> - Float -> - Float -> Float -> Float -> Float -> Float -> Float -> IO () - --- | -drawImagePart :: - (MonadIO m, IsCanvasImageSource image) => - CanvasRenderingContext2D -> - image -> - Float -> - Float -> Float -> Float -> Float -> Float -> Float -> Float -> m () -drawImagePart self image sx sy sw sh dx dy dw dh - = liftIO - (js_drawImagePart self (toCanvasImageSource image) sx sy sw sh dx - dy - dw - dh) - -foreign import javascript unsafe - "(($1, $2, $3, $4, $5, $6, $7, $8, $9, $10, $11) => { return $1[\"drawImageFromRect\"]($2, $3,\n$4, $5, $6, $7, $8, $9, $10,\n$11); })" - js_drawImageFromRect :: - CanvasRenderingContext2D -> - HTMLImageElement -> - Optional Float -> - Optional Float -> - Optional Float -> - Optional Float -> - Optional Float -> - Optional Float -> - Optional Float -> Optional Float -> Optional JSString -> IO () - --- | -drawImageFromRect :: - (MonadIO m, ToJSString compositeOperation) => - CanvasRenderingContext2D -> - HTMLImageElement -> - Maybe Float -> - Maybe Float -> - Maybe Float -> - Maybe Float -> - Maybe Float -> - Maybe Float -> - Maybe Float -> Maybe Float -> Maybe compositeOperation -> m () -drawImageFromRect self image sx sy sw sh dx dy dw dh - compositeOperation - = liftIO - (js_drawImageFromRect self image (maybeToOptional sx) - (maybeToOptional sy) - (maybeToOptional sw) - (maybeToOptional sh) - (maybeToOptional dx) - (maybeToOptional dy) - (maybeToOptional dw) - (maybeToOptional dh) - (toOptionalJSString compositeOperation)) - -foreign import javascript unsafe - "(($1, $2, $3, $4, $5, $6) => { return $1[\"setShadow\"]($2, $3, $4, $5,\n$6); })" js_setShadow :: - CanvasRenderingContext2D -> - Float -> - Float -> Float -> Optional JSString -> Optional Float -> IO () - --- | -setShadow :: - (MonadIO m, ToJSString color) => - CanvasRenderingContext2D -> - Float -> Float -> Float -> Maybe color -> Maybe Float -> m () -setShadow self width height blur color alpha - = liftIO - (js_setShadow self width height blur (toOptionalJSString color) - (maybeToOptional alpha)) - -foreign import javascript unsafe - "(($1, $2, $3, $4, $5, $6) => { return $1[\"setShadow\"]($2, $3, $4, $5,\n$6); })" js_setShadowGray :: - CanvasRenderingContext2D -> - Float -> Float -> Float -> Float -> Optional Float -> IO () - --- | -setShadowGray :: - (MonadIO m) => - CanvasRenderingContext2D -> - Float -> Float -> Float -> Float -> Maybe Float -> m () -setShadowGray self width height blur grayLevel alpha - = liftIO - (js_setShadowGray self width height blur grayLevel - (maybeToOptional alpha)) - -foreign import javascript unsafe - "(($1, $2, $3, $4, $5, $6, $7, $8) => { return $1[\"setShadow\"]($2, $3, $4, $5,\n$6, $7, $8); })" js_setShadowRGB :: - CanvasRenderingContext2D -> - Float -> - Float -> Float -> Float -> Float -> Float -> Float -> IO () - --- | -setShadowRGB :: - (MonadIO m) => - CanvasRenderingContext2D -> - Float -> Float -> Float -> Float -> Float -> Float -> Float -> m () -setShadowRGB self width height blur r g b a - = liftIO (js_setShadowRGB self width height blur r g b a) - -foreign import javascript unsafe - "(($1, $2, $3, $4, $5, $6, $7, $8, $9) => { return $1[\"setShadow\"]($2, $3, $4, $5,\n$6, $7, $8, $9); })" - js_setShadowCYMK :: - CanvasRenderingContext2D -> - Float -> - Float -> - Float -> Float -> Float -> Float -> Float -> Float -> IO () - --- | -setShadowCYMK :: - (MonadIO m) => - CanvasRenderingContext2D -> - Float -> - Float -> Float -> Float -> Float -> Float -> Float -> Float -> m () -setShadowCYMK self width height blur c m y k a - = liftIO (js_setShadowCYMK self width height blur c m y k a) - -foreign import javascript unsafe "(($1, $2, $3, $4) => { return $1[\"putImageData\"]($2, $3, $4); })" - js_putImageData :: - CanvasRenderingContext2D -> ImageData -> Float -> Float -> IO () - --- | -putImageData :: - (MonadIO m) => - CanvasRenderingContext2D -> ImageData -> Float -> Float -> m () -putImageData self imagedata dx dy - = liftIO (js_putImageData self imagedata dx dy) - -foreign import javascript unsafe - "(($1, $2, $3, $4, $5, $6, $7, $8) => { return $1[\"putImageData\"]($2, $3, $4,\n$5, $6, $7, $8); })" - js_putImageDataDirty :: - CanvasRenderingContext2D -> - ImageData -> - Float -> Float -> Float -> Float -> Float -> Float -> IO () - --- | -putImageDataDirty :: - (MonadIO m) => - CanvasRenderingContext2D -> - ImageData -> - Float -> Float -> Float -> Float -> Float -> Float -> m () -putImageDataDirty self imagedata dx dy dirtyX dirtyY dirtyWidth - dirtyHeight - = liftIO - (js_putImageDataDirty self imagedata dx dy dirtyX dirtyY dirtyWidth - dirtyHeight) - -foreign import javascript unsafe - "(($1, $2, $3, $4) => { return $1[\"webkitPutImageDataHD\"]($2,\n$3, $4); })" js_webkitPutImageDataHD - :: CanvasRenderingContext2D -> ImageData -> Float -> Float -> IO () - --- | -webkitPutImageDataHD :: - (MonadIO m) => - CanvasRenderingContext2D -> ImageData -> Float -> Float -> m () -webkitPutImageDataHD self imagedata dx dy - = liftIO (js_webkitPutImageDataHD self imagedata dx dy) - -foreign import javascript unsafe - "(($1, $2, $3, $4, $5, $6, $7, $8) => { return $1[\"webkitPutImageDataHD\"]($2,\n$3, $4, $5, $6, $7, $8); })" - js_webkitPutImageDataHDDirty :: - CanvasRenderingContext2D -> - ImageData -> - Float -> Float -> Float -> Float -> Float -> Float -> IO () - --- | -webkitPutImageDataHDDirty :: - (MonadIO m) => - CanvasRenderingContext2D -> - ImageData -> - Float -> Float -> Float -> Float -> Float -> Float -> m () -webkitPutImageDataHDDirty self imagedata dx dy dirtyX dirtyY - dirtyWidth dirtyHeight - = liftIO - (js_webkitPutImageDataHDDirty self imagedata dx dy dirtyX dirtyY - dirtyWidth - dirtyHeight) - -foreign import javascript safe "(($1, $2) => { return $1[\"createImageData\"]($2); })" - js_createImageData :: - CanvasRenderingContext2D -> Optional ImageData -> IO ImageData - --- | -createImageData :: - (MonadIO m) => - CanvasRenderingContext2D -> Maybe ImageData -> m ImageData -createImageData self imagedata - = liftIO (js_createImageData self (maybeToOptional imagedata)) - --- | -createImageData_ :: - (MonadIO m) => CanvasRenderingContext2D -> Maybe ImageData -> m () -createImageData_ self imagedata - = liftIO - (void (js_createImageData self (maybeToOptional imagedata))) - -foreign import javascript safe "(($1, $2, $3) => { return $1[\"createImageData\"]($2, $3); })" - js_createImageDataSize :: - CanvasRenderingContext2D -> Float -> Float -> IO ImageData - --- | -createImageDataSize :: - (MonadIO m) => - CanvasRenderingContext2D -> Float -> Float -> m ImageData -createImageDataSize self sw sh - = liftIO (js_createImageDataSize self sw sh) - --- | -createImageDataSize_ :: - (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> m () -createImageDataSize_ self sw sh - = liftIO (void (js_createImageDataSize self sw sh)) - -foreign import javascript safe - "(($1, $2, $3, $4, $5) => { return $1[\"createLinearGradient\"]($2,\n$3, $4, $5); })" - js_createLinearGradient :: - CanvasRenderingContext2D -> - Float -> Float -> Float -> Float -> IO CanvasGradient - --- | -createLinearGradient :: - (MonadIO m) => - CanvasRenderingContext2D -> - Float -> Float -> Float -> Float -> m CanvasGradient -createLinearGradient self x0 y0 x1 y1 - = liftIO (js_createLinearGradient self x0 y0 x1 y1) - --- | -createLinearGradient_ :: - (MonadIO m) => - CanvasRenderingContext2D -> - Float -> Float -> Float -> Float -> m () -createLinearGradient_ self x0 y0 x1 y1 - = liftIO (void (js_createLinearGradient self x0 y0 x1 y1)) - -foreign import javascript safe - "(($1, $2, $3, $4, $5, $6, $7) => { return $1[\"createRadialGradient\"]($2,\n$3, $4, $5, $6, $7); })" - js_createRadialGradient :: - CanvasRenderingContext2D -> - Float -> - Float -> Float -> Float -> Float -> Float -> IO CanvasGradient - --- | -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) - --- | -createRadialGradient_ :: - (MonadIO m) => - CanvasRenderingContext2D -> - Float -> Float -> Float -> Float -> Float -> Float -> m () -createRadialGradient_ self x0 y0 r0 x1 y1 r1 - = liftIO (void (js_createRadialGradient self x0 y0 r0 x1 y1 r1)) - -foreign import javascript safe "(($1, $2, $3) => { return $1[\"createPattern\"]($2, $3); })" - js_createPattern :: - CanvasRenderingContext2D -> - CanvasImageSource -> JSString -> IO (Nullable CanvasPattern) - --- | -createPattern :: - (MonadIO m, IsCanvasImageSource image, ToJSString repetition) => - CanvasRenderingContext2D -> - image -> repetition -> m (Maybe CanvasPattern) -createPattern self image repetition - = liftIO - (nullableToMaybe <$> - (js_createPattern self (toCanvasImageSource image) - (toJSString repetition))) - --- | -createPattern_ :: - (MonadIO m, IsCanvasImageSource image, ToJSString repetition) => - CanvasRenderingContext2D -> image -> repetition -> m () -createPattern_ self image repetition - = liftIO - (void - (js_createPattern self (toCanvasImageSource image) - (toJSString repetition))) - --- | -createPatternUnsafe :: - (MonadIO m, IsCanvasImageSource image, ToJSString repetition, - HasCallStack) => - CanvasRenderingContext2D -> image -> repetition -> m CanvasPattern -createPatternUnsafe self image repetition - = liftIO - ((nullableToMaybe <$> - (js_createPattern self (toCanvasImageSource image) - (toJSString repetition))) - >>= maybe (Prelude.error "Nothing to return") return) - --- | -createPatternUnchecked :: - (MonadIO m, IsCanvasImageSource image, ToJSString repetition) => - CanvasRenderingContext2D -> image -> repetition -> m CanvasPattern -createPatternUnchecked self image repetition - = liftIO - (fromJust . nullableToMaybe <$> - (js_createPattern self (toCanvasImageSource image) - (toJSString repetition))) - -foreign import javascript safe - "(($1, $2, $3, $4, $5) => { return $1[\"getImageData\"]($2, $3, $4,\n$5); })" js_getImageData :: - CanvasRenderingContext2D -> - Float -> Float -> Float -> Float -> IO ImageData - --- | -getImageData :: - (MonadIO m) => - CanvasRenderingContext2D -> - Float -> Float -> Float -> Float -> m ImageData -getImageData self sx sy sw sh - = liftIO (js_getImageData self sx sy sw sh) - --- | -getImageData_ :: - (MonadIO m) => - CanvasRenderingContext2D -> - Float -> Float -> Float -> Float -> m () -getImageData_ self sx sy sw sh - = liftIO (void (js_getImageData self sx sy sw sh)) - -foreign import javascript safe - "(($1, $2, $3, $4, $5) => { return $1[\"webkitGetImageDataHD\"]($2,\n$3, $4, $5); })" - js_webkitGetImageDataHD :: - CanvasRenderingContext2D -> - Float -> Float -> Float -> Float -> IO ImageData - --- | -webkitGetImageDataHD :: - (MonadIO m) => - CanvasRenderingContext2D -> - Float -> Float -> Float -> Float -> m ImageData -webkitGetImageDataHD self sx sy sw sh - = liftIO (js_webkitGetImageDataHD self sx sy sw sh) - --- | -webkitGetImageDataHD_ :: - (MonadIO m) => - CanvasRenderingContext2D -> - Float -> Float -> Float -> Float -> m () -webkitGetImageDataHD_ self sx sy sw sh - = liftIO (void (js_webkitGetImageDataHD self sx sy sw sh)) - -foreign import javascript unsafe "(($1, $2) => { return $1[\"drawFocusIfNeeded\"]($2); })" - js_drawFocusIfNeeded :: - CanvasRenderingContext2D -> Element -> IO () - --- | -drawFocusIfNeeded :: - (MonadIO m, IsElement element) => - CanvasRenderingContext2D -> element -> m () -drawFocusIfNeeded self element - = liftIO (js_drawFocusIfNeeded self (toElement element)) - -foreign import javascript unsafe - "(($1, $2, $3) => { return $1[\"drawFocusIfNeeded\"]($2, $3); })" js_drawFocusIfNeededPath :: - CanvasRenderingContext2D -> Path2D -> Element -> IO () - --- | -drawFocusIfNeededPath :: - (MonadIO m, IsElement element) => - CanvasRenderingContext2D -> Path2D -> element -> m () -drawFocusIfNeededPath self path element - = liftIO (js_drawFocusIfNeededPath self path (toElement element)) - -foreign import javascript unsafe "(($1) => { return $1[\"canvas\"]; })" js_getCanvas :: - CanvasRenderingContext2D -> IO HTMLCanvasElement - --- | -getCanvas :: - (MonadIO m) => CanvasRenderingContext2D -> m HTMLCanvasElement -getCanvas self = liftIO (js_getCanvas self) - -foreign import javascript unsafe "(($1, $2) => { $1[\"globalAlpha\"] = $2; })" - js_setGlobalAlpha :: CanvasRenderingContext2D -> Float -> IO () - --- | -setGlobalAlpha :: - (MonadIO m) => CanvasRenderingContext2D -> Float -> m () -setGlobalAlpha self val = liftIO (js_setGlobalAlpha self val) - -foreign import javascript unsafe "(($1) => { return $1[\"globalAlpha\"]; })" - js_getGlobalAlpha :: CanvasRenderingContext2D -> IO Float - --- | -getGlobalAlpha :: - (MonadIO m) => CanvasRenderingContext2D -> m Float -getGlobalAlpha self = liftIO (js_getGlobalAlpha self) - -foreign import javascript unsafe - "(($1, $2) => { $1[\"globalCompositeOperation\"] = $2; })" - js_setGlobalCompositeOperation :: - CanvasRenderingContext2D -> JSString -> IO () - --- | -setGlobalCompositeOperation :: - (MonadIO m, ToJSString val) => - CanvasRenderingContext2D -> val -> m () -setGlobalCompositeOperation self val - = liftIO (js_setGlobalCompositeOperation self (toJSString val)) - -foreign import javascript unsafe "(($1) => { return $1[\"globalCompositeOperation\"]; })" - js_getGlobalCompositeOperation :: - CanvasRenderingContext2D -> IO JSString - --- | -getGlobalCompositeOperation :: - (MonadIO m, FromJSString result) => - CanvasRenderingContext2D -> m result -getGlobalCompositeOperation self - = liftIO (fromJSString <$> (js_getGlobalCompositeOperation self)) - -foreign import javascript unsafe "(($1, $2) => { $1[\"lineWidth\"] = $2; })" - js_setLineWidth :: CanvasRenderingContext2D -> Float -> IO () - --- | -setLineWidth :: - (MonadIO m) => CanvasRenderingContext2D -> Float -> m () -setLineWidth self val = liftIO (js_setLineWidth self val) - -foreign import javascript unsafe "(($1) => { return $1[\"lineWidth\"]; })" - js_getLineWidth :: CanvasRenderingContext2D -> IO Float - --- | -getLineWidth :: (MonadIO m) => CanvasRenderingContext2D -> m Float -getLineWidth self = liftIO (js_getLineWidth self) - -foreign import javascript unsafe "(($1, $2) => { $1[\"lineCap\"] = $2; })" - js_setLineCap :: CanvasRenderingContext2D -> JSString -> IO () - --- | -setLineCap :: - (MonadIO m, ToJSString val) => - CanvasRenderingContext2D -> val -> m () -setLineCap self val = liftIO (js_setLineCap self (toJSString val)) - -foreign import javascript unsafe "(($1) => { return $1[\"lineCap\"]; })" js_getLineCap :: - CanvasRenderingContext2D -> IO JSString - --- | -getLineCap :: - (MonadIO m, FromJSString result) => - CanvasRenderingContext2D -> m result -getLineCap self = liftIO (fromJSString <$> (js_getLineCap self)) - -foreign import javascript unsafe "(($1, $2) => { $1[\"lineJoin\"] = $2; })" - js_setLineJoin :: CanvasRenderingContext2D -> JSString -> IO () - --- | -setLineJoin :: - (MonadIO m, ToJSString val) => - CanvasRenderingContext2D -> val -> m () -setLineJoin self val - = liftIO (js_setLineJoin self (toJSString val)) - -foreign import javascript unsafe "(($1) => { return $1[\"lineJoin\"]; })" js_getLineJoin - :: CanvasRenderingContext2D -> IO JSString - --- | -getLineJoin :: - (MonadIO m, FromJSString result) => - CanvasRenderingContext2D -> m result -getLineJoin self = liftIO (fromJSString <$> (js_getLineJoin self)) - -foreign import javascript unsafe "(($1, $2) => { $1[\"miterLimit\"] = $2; })" - js_setMiterLimit :: CanvasRenderingContext2D -> Float -> IO () - --- | -setMiterLimit :: - (MonadIO m) => CanvasRenderingContext2D -> Float -> m () -setMiterLimit self val = liftIO (js_setMiterLimit self val) - -foreign import javascript unsafe "(($1) => { return $1[\"miterLimit\"]; })" - js_getMiterLimit :: CanvasRenderingContext2D -> IO Float - --- | -getMiterLimit :: (MonadIO m) => CanvasRenderingContext2D -> m Float -getMiterLimit self = liftIO (js_getMiterLimit self) - -foreign import javascript unsafe "(($1, $2) => { $1[\"shadowOffsetX\"] = $2; })" - js_setShadowOffsetX :: CanvasRenderingContext2D -> Float -> IO () - --- | -setShadowOffsetX :: - (MonadIO m) => CanvasRenderingContext2D -> Float -> m () -setShadowOffsetX self val = liftIO (js_setShadowOffsetX self val) - -foreign import javascript unsafe "(($1) => { return $1[\"shadowOffsetX\"]; })" - js_getShadowOffsetX :: CanvasRenderingContext2D -> IO Float - --- | -getShadowOffsetX :: - (MonadIO m) => CanvasRenderingContext2D -> m Float -getShadowOffsetX self = liftIO (js_getShadowOffsetX self) - -foreign import javascript unsafe "(($1, $2) => { $1[\"shadowOffsetY\"] = $2; })" - js_setShadowOffsetY :: CanvasRenderingContext2D -> Float -> IO () - --- | -setShadowOffsetY :: - (MonadIO m) => CanvasRenderingContext2D -> Float -> m () -setShadowOffsetY self val = liftIO (js_setShadowOffsetY self val) - -foreign import javascript unsafe "(($1) => { return $1[\"shadowOffsetY\"]; })" - js_getShadowOffsetY :: CanvasRenderingContext2D -> IO Float - --- | -getShadowOffsetY :: - (MonadIO m) => CanvasRenderingContext2D -> m Float -getShadowOffsetY self = liftIO (js_getShadowOffsetY self) - -foreign import javascript unsafe "(($1, $2) => { $1[\"shadowBlur\"] = $2; })" - js_setShadowBlur :: CanvasRenderingContext2D -> Float -> IO () - --- | -setShadowBlur :: - (MonadIO m) => CanvasRenderingContext2D -> Float -> m () -setShadowBlur self val = liftIO (js_setShadowBlur self val) - -foreign import javascript unsafe "(($1) => { return $1[\"shadowBlur\"]; })" - js_getShadowBlur :: CanvasRenderingContext2D -> IO Float - --- | -getShadowBlur :: (MonadIO m) => CanvasRenderingContext2D -> m Float -getShadowBlur self = liftIO (js_getShadowBlur self) - -foreign import javascript unsafe "(($1, $2) => { $1[\"shadowColor\"] = $2; })" - js_setShadowColor :: CanvasRenderingContext2D -> JSString -> IO () - --- | -setShadowColor :: - (MonadIO m, ToJSString val) => - CanvasRenderingContext2D -> val -> m () -setShadowColor self val - = liftIO (js_setShadowColor self (toJSString val)) - -foreign import javascript unsafe "(($1) => { return $1[\"shadowColor\"]; })" - js_getShadowColor :: CanvasRenderingContext2D -> IO JSString - --- | -getShadowColor :: - (MonadIO m, FromJSString result) => - CanvasRenderingContext2D -> m result -getShadowColor self - = liftIO (fromJSString <$> (js_getShadowColor self)) - -foreign import javascript unsafe "(($1, $2) => { $1[\"lineDashOffset\"] = $2; })" - js_setLineDashOffset :: CanvasRenderingContext2D -> Float -> IO () - --- | -setLineDashOffset :: - (MonadIO m) => CanvasRenderingContext2D -> Float -> m () -setLineDashOffset self val = liftIO (js_setLineDashOffset self val) - -foreign import javascript unsafe "(($1) => { return $1[\"lineDashOffset\"]; })" - js_getLineDashOffset :: CanvasRenderingContext2D -> IO Float - --- | -getLineDashOffset :: - (MonadIO m) => CanvasRenderingContext2D -> m Float -getLineDashOffset self = liftIO (js_getLineDashOffset self) - -foreign import javascript unsafe "(($1, $2) => { $1[\"webkitLineDash\"] = $2; })" - js_setWebkitLineDash :: CanvasRenderingContext2D -> JSVal -> IO () - --- | -setWebkitLineDash :: - (MonadIO m) => CanvasRenderingContext2D -> [Float] -> m () -setWebkitLineDash self val - = liftIO (toJSVal val >>= \ val' -> js_setWebkitLineDash self val') - -foreign import javascript unsafe "(($1) => { return $1[\"webkitLineDash\"]; })" - js_getWebkitLineDash :: CanvasRenderingContext2D -> IO JSVal - --- | -getWebkitLineDash :: - (MonadIO m) => CanvasRenderingContext2D -> m [Float] -getWebkitLineDash self - = liftIO ((js_getWebkitLineDash self) >>= fromJSValUnchecked) - -foreign import javascript unsafe - "(($1, $2) => { $1[\"webkitLineDashOffset\"] = $2; })" js_setWebkitLineDashOffset :: - CanvasRenderingContext2D -> Float -> IO () - --- | -setWebkitLineDashOffset :: - (MonadIO m) => CanvasRenderingContext2D -> Float -> m () -setWebkitLineDashOffset self val - = liftIO (js_setWebkitLineDashOffset self val) - -foreign import javascript unsafe "(($1) => { return $1[\"webkitLineDashOffset\"]; })" - js_getWebkitLineDashOffset :: CanvasRenderingContext2D -> IO Float - --- | -getWebkitLineDashOffset :: - (MonadIO m) => CanvasRenderingContext2D -> m Float -getWebkitLineDashOffset self - = liftIO (js_getWebkitLineDashOffset self) - -foreign import javascript unsafe "(($1, $2) => { $1[\"font\"] = $2; })" js_setFont :: - CanvasRenderingContext2D -> JSString -> IO () - --- | -setFont :: - (MonadIO m, ToJSString val) => - CanvasRenderingContext2D -> val -> m () -setFont self val = liftIO (js_setFont self (toJSString val)) - -foreign import javascript unsafe "(($1) => { return $1[\"font\"]; })" js_getFont :: - CanvasRenderingContext2D -> IO JSString - --- | -getFont :: - (MonadIO m, FromJSString result) => - CanvasRenderingContext2D -> m result -getFont self = liftIO (fromJSString <$> (js_getFont self)) - -foreign import javascript unsafe "(($1, $2) => { $1[\"textAlign\"] = $2; })" - js_setTextAlign :: CanvasRenderingContext2D -> JSString -> IO () - --- | -setTextAlign :: - (MonadIO m, ToJSString val) => - CanvasRenderingContext2D -> val -> m () -setTextAlign self val - = liftIO (js_setTextAlign self (toJSString val)) - -foreign import javascript unsafe "(($1) => { return $1[\"textAlign\"]; })" - js_getTextAlign :: CanvasRenderingContext2D -> IO JSString - --- | -getTextAlign :: - (MonadIO m, FromJSString result) => - CanvasRenderingContext2D -> m result -getTextAlign self - = liftIO (fromJSString <$> (js_getTextAlign self)) - -foreign import javascript unsafe "(($1, $2) => { $1[\"textBaseline\"] = $2; })" - js_setTextBaseline :: CanvasRenderingContext2D -> JSString -> IO () - --- | -setTextBaseline :: - (MonadIO m, ToJSString val) => - CanvasRenderingContext2D -> val -> m () -setTextBaseline self val - = liftIO (js_setTextBaseline self (toJSString val)) - -foreign import javascript unsafe "(($1) => { return $1[\"textBaseline\"]; })" - js_getTextBaseline :: CanvasRenderingContext2D -> IO JSString - --- | -getTextBaseline :: - (MonadIO m, FromJSString result) => - CanvasRenderingContext2D -> m result -getTextBaseline self - = liftIO (fromJSString <$> (js_getTextBaseline self)) - -foreign import javascript unsafe "(($1, $2) => { $1[\"direction\"] = $2; })" - js_setDirection :: CanvasRenderingContext2D -> JSString -> IO () - --- | -setDirection :: - (MonadIO m, ToJSString val) => - CanvasRenderingContext2D -> val -> m () -setDirection self val - = liftIO (js_setDirection self (toJSString val)) - -foreign import javascript unsafe "(($1) => { return $1[\"direction\"]; })" - js_getDirection :: CanvasRenderingContext2D -> IO JSString - --- | -getDirection :: - (MonadIO m, FromJSString result) => - CanvasRenderingContext2D -> m result -getDirection self - = liftIO (fromJSString <$> (js_getDirection self)) - -foreign import javascript unsafe "(($1, $2) => { $1[\"strokeStyle\"] = $2; })" - js_setStrokeStyle :: - CanvasRenderingContext2D -> CanvasStyle -> IO () - --- | -setStrokeStyle :: - (MonadIO m, IsCanvasStyle val) => - CanvasRenderingContext2D -> val -> m () -setStrokeStyle self val - = liftIO - (toJSVal val >>= - \ val' -> js_setStrokeStyle self (CanvasStyle val')) - -foreign import javascript unsafe "(($1) => { return $1[\"strokeStyle\"]; })" - js_getStrokeStyle :: CanvasRenderingContext2D -> IO CanvasStyle - --- | -getStrokeStyle :: - (MonadIO m) => CanvasRenderingContext2D -> m CanvasStyle -getStrokeStyle self = liftIO (js_getStrokeStyle self) - -foreign import javascript unsafe "(($1, $2) => { $1[\"fillStyle\"] = $2; })" - js_setFillStyle :: CanvasRenderingContext2D -> CanvasStyle -> IO () - --- | -setFillStyle :: - (MonadIO m, IsCanvasStyle val) => - CanvasRenderingContext2D -> val -> m () -setFillStyle self val - = liftIO - (toJSVal val >>= \ val' -> js_setFillStyle self (CanvasStyle val')) - -foreign import javascript unsafe "(($1) => { return $1[\"fillStyle\"]; })" - js_getFillStyle :: CanvasRenderingContext2D -> IO CanvasStyle - --- | -getFillStyle :: - (MonadIO m) => CanvasRenderingContext2D -> m CanvasStyle -getFillStyle self = liftIO (js_getFillStyle self) - -foreign import javascript unsafe - "(($1) => { return $1[\"webkitBackingStorePixelRatio\"]; })" - js_getWebkitBackingStorePixelRatio :: - CanvasRenderingContext2D -> IO Float - --- | -getWebkitBackingStorePixelRatio :: - (MonadIO m) => CanvasRenderingContext2D -> m Float -getWebkitBackingStorePixelRatio self - = liftIO (js_getWebkitBackingStorePixelRatio self) - -foreign import javascript unsafe - "(($1, $2) => { $1[\"imageSmoothingEnabled\"] = $2; })" js_setImageSmoothingEnabled - :: CanvasRenderingContext2D -> Bool -> IO () - --- | -setImageSmoothingEnabled :: - (MonadIO m) => CanvasRenderingContext2D -> Bool -> m () -setImageSmoothingEnabled self val - = liftIO (js_setImageSmoothingEnabled self val) - -foreign import javascript unsafe - "(($1) => { return ($1[\"imageSmoothingEnabled\"] ? 1 : 0); })" - js_getImageSmoothingEnabled :: CanvasRenderingContext2D -> IO Bool - --- | -getImageSmoothingEnabled :: - (MonadIO m) => CanvasRenderingContext2D -> m Bool -getImageSmoothingEnabled self - = liftIO (js_getImageSmoothingEnabled self) - -foreign import javascript unsafe - "(($1, $2) => { $1[\"webkitImageSmoothingEnabled\"] = $2; })" - js_setWebkitImageSmoothingEnabled :: - CanvasRenderingContext2D -> Bool -> IO () - --- | -setWebkitImageSmoothingEnabled :: - (MonadIO m) => CanvasRenderingContext2D -> Bool -> m () -setWebkitImageSmoothingEnabled self val - = liftIO (js_setWebkitImageSmoothingEnabled self val) - -foreign import javascript unsafe - "(($1) => { return ($1[\"webkitImageSmoothingEnabled\"] ? 1 : 0); })" - js_getWebkitImageSmoothingEnabled :: - CanvasRenderingContext2D -> IO Bool - --- | -getWebkitImageSmoothingEnabled :: - (MonadIO m) => CanvasRenderingContext2D -> m Bool -getWebkitImageSmoothingEnabled self - = liftIO (js_getWebkitImageSmoothingEnabled self) - -foreign import javascript unsafe - "(($1, $2) => { $1[\"imageSmoothingQuality\"] = $2; })" js_setImageSmoothingQuality - :: CanvasRenderingContext2D -> JSVal -> IO () - --- | -setImageSmoothingQuality :: - (MonadIO m) => - CanvasRenderingContext2D -> ImageSmoothingQuality -> m () -setImageSmoothingQuality self val - = liftIO (js_setImageSmoothingQuality self (pToJSVal val)) - -foreign import javascript unsafe "(($1) => { return $1[\"imageSmoothingQuality\"]; })" - js_getImageSmoothingQuality :: CanvasRenderingContext2D -> IO JSVal - --- | -getImageSmoothingQuality :: - (MonadIO m) => CanvasRenderingContext2D -> m ImageSmoothingQuality -getImageSmoothingQuality self - = liftIO - ((js_getImageSmoothingQuality self) >>= fromJSValUnchecked) +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from html (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CanvasRenderingContext2D + (js_getCanvas, getCanvas, CanvasRenderingContext2D(..), gTypeCanvasRenderingContext2D) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript unsafe "(($1) => { return $1[\"canvas\"]; })" + js_getCanvas :: CanvasRenderingContext2D -> IO HTMLCanvasElement +-- | +getCanvas :: (MonadDOM m) => CanvasRenderingContext2D -> m HTMLCanvasElement +getCanvas self = liftDOM ((js_getCanvas (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CanvasRenderingContext2DSettings.hs b/src/GHCJS/DOM/JSFFI/Generated/CanvasRenderingContext2DSettings.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CanvasRenderingContext2DSettings.hs @@ -0,0 +1,123 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from html (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CanvasRenderingContext2DSettings + (js_newCanvasRenderingContext2DSettings, js_setAlpha, js_getAlpha, js_setDesynchronized, js_getDesynchronized, js_setColorSpace, js_getColorSpace, js_setColorType, js_getColorType, js_setWillReadFrequently, js_getWillReadFrequently, newCanvasRenderingContext2DSettings, setAlpha, getAlpha, getAlphaUnsafe, getAlphaUnchecked, setDesynchronized, getDesynchronized, getDesynchronizedUnsafe, getDesynchronizedUnchecked, setColorSpace, getColorSpace, getColorSpaceUnsafe, getColorSpaceUnchecked, setColorType, getColorType, getColorTypeUnsafe, getColorTypeUnchecked, setWillReadFrequently, getWillReadFrequently, getWillReadFrequentlyUnsafe, getWillReadFrequentlyUnchecked, CanvasRenderingContext2DSettings(..), gTypeCanvasRenderingContext2DSettings) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(() => { return ({}); })" + js_newCanvasRenderingContext2DSettings :: IO CanvasRenderingContext2DSettings +-- | +newCanvasRenderingContext2DSettings :: (MonadDOM m) => m CanvasRenderingContext2DSettings +newCanvasRenderingContext2DSettings = liftDOM ((js_newCanvasRenderingContext2DSettings)) + +foreign import javascript safe "(($1, $2) => { $1[\"alpha\"] = $2; })" + js_setAlpha :: CanvasRenderingContext2DSettings -> Bool -> IO () +-- | +setAlpha :: (MonadDOM m) => CanvasRenderingContext2DSettings -> Bool -> m () +setAlpha self val = liftDOM (void ((js_setAlpha (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"alpha\"]; })" + js_getAlpha :: CanvasRenderingContext2DSettings -> IO JSVal +-- | +getAlpha :: (MonadDOM m) => CanvasRenderingContext2DSettings -> m (Maybe Bool) +getAlpha self = liftDOM (((js_getAlpha (self)) >>= fromJSValUnchecked)) + +-- | +getAlphaUnsafe :: (MonadDOM m, HasCallStack) => CanvasRenderingContext2DSettings -> m Bool +getAlphaUnsafe self = liftDOM ((((js_getAlpha (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getAlphaUnchecked :: (MonadDOM m) => CanvasRenderingContext2DSettings -> m Bool +getAlphaUnchecked self = liftDOM ((pFromJSVal <$> (js_getAlpha (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"desynchronized\"] = $2; })" + js_setDesynchronized :: CanvasRenderingContext2DSettings -> Bool -> IO () +-- | +setDesynchronized :: (MonadDOM m) => CanvasRenderingContext2DSettings -> Bool -> m () +setDesynchronized self val = liftDOM (void ((js_setDesynchronized (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"desynchronized\"]; })" + js_getDesynchronized :: CanvasRenderingContext2DSettings -> IO JSVal +-- | +getDesynchronized :: (MonadDOM m) => CanvasRenderingContext2DSettings -> m (Maybe Bool) +getDesynchronized self = liftDOM (((js_getDesynchronized (self)) >>= fromJSValUnchecked)) + +-- | +getDesynchronizedUnsafe :: (MonadDOM m, HasCallStack) => CanvasRenderingContext2DSettings -> m Bool +getDesynchronizedUnsafe self = liftDOM ((((js_getDesynchronized (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getDesynchronizedUnchecked :: (MonadDOM m) => CanvasRenderingContext2DSettings -> m Bool +getDesynchronizedUnchecked self = liftDOM ((pFromJSVal <$> (js_getDesynchronized (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"colorSpace\"] = $2; })" + js_setColorSpace :: CanvasRenderingContext2DSettings -> JSVal -> IO () +-- | +setColorSpace :: (MonadDOM m) => CanvasRenderingContext2DSettings -> PredefinedColorSpace -> m () +setColorSpace self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setColorSpace (self) a2'))) + +foreign import javascript unsafe "(($1) => { return $1[\"colorSpace\"]; })" + js_getColorSpace :: CanvasRenderingContext2DSettings -> IO JSVal +-- | +getColorSpace :: (MonadDOM m) => CanvasRenderingContext2DSettings -> m (Maybe PredefinedColorSpace) +getColorSpace self = liftDOM (((js_getColorSpace (self)) >>= fromJSValUnchecked)) + +-- | +getColorSpaceUnsafe :: (MonadDOM m, HasCallStack) => CanvasRenderingContext2DSettings -> m PredefinedColorSpace +getColorSpaceUnsafe self = liftDOM ((((js_getColorSpace (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getColorSpaceUnchecked :: (MonadDOM m) => CanvasRenderingContext2DSettings -> m PredefinedColorSpace +getColorSpaceUnchecked self = liftDOM ((pFromJSVal <$> (js_getColorSpace (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"colorType\"] = $2; })" + js_setColorType :: CanvasRenderingContext2DSettings -> JSVal -> IO () +-- | +setColorType :: (MonadDOM m) => CanvasRenderingContext2DSettings -> CanvasColorType -> m () +setColorType self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setColorType (self) a2'))) + +foreign import javascript unsafe "(($1) => { return $1[\"colorType\"]; })" + js_getColorType :: CanvasRenderingContext2DSettings -> IO JSVal +-- | +getColorType :: (MonadDOM m) => CanvasRenderingContext2DSettings -> m (Maybe CanvasColorType) +getColorType self = liftDOM (((js_getColorType (self)) >>= fromJSValUnchecked)) + +-- | +getColorTypeUnsafe :: (MonadDOM m, HasCallStack) => CanvasRenderingContext2DSettings -> m CanvasColorType +getColorTypeUnsafe self = liftDOM ((((js_getColorType (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getColorTypeUnchecked :: (MonadDOM m) => CanvasRenderingContext2DSettings -> m CanvasColorType +getColorTypeUnchecked self = liftDOM ((pFromJSVal <$> (js_getColorType (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"willReadFrequently\"] = $2; })" + js_setWillReadFrequently :: CanvasRenderingContext2DSettings -> Bool -> IO () +-- | +setWillReadFrequently :: (MonadDOM m) => CanvasRenderingContext2DSettings -> Bool -> m () +setWillReadFrequently self val = liftDOM (void ((js_setWillReadFrequently (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"willReadFrequently\"]; })" + js_getWillReadFrequently :: CanvasRenderingContext2DSettings -> IO JSVal +-- | +getWillReadFrequently :: (MonadDOM m) => CanvasRenderingContext2DSettings -> m (Maybe Bool) +getWillReadFrequently self = liftDOM (((js_getWillReadFrequently (self)) >>= fromJSValUnchecked)) + +-- | +getWillReadFrequentlyUnsafe :: (MonadDOM m, HasCallStack) => CanvasRenderingContext2DSettings -> m Bool +getWillReadFrequentlyUnsafe self = liftDOM ((((js_getWillReadFrequently (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getWillReadFrequentlyUnchecked :: (MonadDOM m) => CanvasRenderingContext2DSettings -> m Bool +getWillReadFrequentlyUnchecked self = liftDOM ((pFromJSVal <$> (js_getWillReadFrequently (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CanvasSettings.hs b/src/GHCJS/DOM/JSFFI/Generated/CanvasSettings.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CanvasSettings.hs @@ -0,0 +1,27 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from html (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CanvasSettings + (js_getContextAttributes, getContextAttributes, getContextAttributes_, CanvasSettings(..), gTypeCanvasSettings, IsCanvasSettings, toCanvasSettings) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1) => { return $1[\"getContextAttributes\"](); })" + js_getContextAttributes :: CanvasSettings -> IO CanvasRenderingContext2DSettings +-- | +getContextAttributes :: (MonadDOM m, IsCanvasSettings self) => self -> m CanvasRenderingContext2DSettings +getContextAttributes self = liftDOM ((js_getContextAttributes ((Types.toCanvasSettings self)))) + +-- | +getContextAttributes_ :: (MonadDOM m, IsCanvasSettings self) => self -> m () +getContextAttributes_ self = liftDOM (void ((js_getContextAttributes ((Types.toCanvasSettings self))))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CanvasShadowStyles.hs b/src/GHCJS/DOM/JSFFI/Generated/CanvasShadowStyles.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CanvasShadowStyles.hs @@ -0,0 +1,65 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from html (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CanvasShadowStyles + (js_setShadowOffsetX, js_getShadowOffsetX, js_setShadowOffsetY, js_getShadowOffsetY, js_setShadowBlur, js_getShadowBlur, js_setShadowColor, js_getShadowColor, setShadowOffsetX, getShadowOffsetX, setShadowOffsetY, getShadowOffsetY, setShadowBlur, getShadowBlur, setShadowColor, getShadowColor, CanvasShadowStyles(..), gTypeCanvasShadowStyles, IsCanvasShadowStyles, toCanvasShadowStyles) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1, $2) => { $1[\"shadowOffsetX\"] = $2; })" + js_setShadowOffsetX :: CanvasShadowStyles -> Double -> IO () +-- | +setShadowOffsetX :: (MonadDOM m, IsCanvasShadowStyles self) => self -> Double -> m () +setShadowOffsetX self val = liftDOM (void ((js_setShadowOffsetX ((Types.toCanvasShadowStyles self)) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"shadowOffsetX\"]; })" + js_getShadowOffsetX :: CanvasShadowStyles -> IO Double +-- | +getShadowOffsetX :: (MonadDOM m, IsCanvasShadowStyles self) => self -> m Double +getShadowOffsetX self = liftDOM ((js_getShadowOffsetX ((Types.toCanvasShadowStyles self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"shadowOffsetY\"] = $2; })" + js_setShadowOffsetY :: CanvasShadowStyles -> Double -> IO () +-- | +setShadowOffsetY :: (MonadDOM m, IsCanvasShadowStyles self) => self -> Double -> m () +setShadowOffsetY self val = liftDOM (void ((js_setShadowOffsetY ((Types.toCanvasShadowStyles self)) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"shadowOffsetY\"]; })" + js_getShadowOffsetY :: CanvasShadowStyles -> IO Double +-- | +getShadowOffsetY :: (MonadDOM m, IsCanvasShadowStyles self) => self -> m Double +getShadowOffsetY self = liftDOM ((js_getShadowOffsetY ((Types.toCanvasShadowStyles self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"shadowBlur\"] = $2; })" + js_setShadowBlur :: CanvasShadowStyles -> Double -> IO () +-- | +setShadowBlur :: (MonadDOM m, IsCanvasShadowStyles self) => self -> Double -> m () +setShadowBlur self val = liftDOM (void ((js_setShadowBlur ((Types.toCanvasShadowStyles self)) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"shadowBlur\"]; })" + js_getShadowBlur :: CanvasShadowStyles -> IO Double +-- | +getShadowBlur :: (MonadDOM m, IsCanvasShadowStyles self) => self -> m Double +getShadowBlur self = liftDOM ((js_getShadowBlur ((Types.toCanvasShadowStyles self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"shadowColor\"] = $2; })" + js_setShadowColor :: CanvasShadowStyles -> JSString -> IO () +-- | +setShadowColor :: (MonadDOM m, IsCanvasShadowStyles self, ToJSString val) => self -> val -> m () +setShadowColor self val = liftDOM (void ((js_setShadowColor ((Types.toCanvasShadowStyles self)) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"shadowColor\"]; })" + js_getShadowColor :: CanvasShadowStyles -> IO JSString +-- | +getShadowColor :: (MonadDOM m, IsCanvasShadowStyles self, FromJSString result) => self -> m result +getShadowColor self = liftDOM ((fromJSString <$> (js_getShadowColor ((Types.toCanvasShadowStyles self))))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CanvasState.hs b/src/GHCJS/DOM/JSFFI/Generated/CanvasState.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CanvasState.hs @@ -0,0 +1,45 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from html (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CanvasState + (js_isContextLost, js_reset, js_restore, js_save, isContextLost, isContextLost_, reset, restore, save, CanvasState(..), gTypeCanvasState, IsCanvasState, toCanvasState) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1) => { return $1[\"isContextLost\"](); })" + js_isContextLost :: CanvasState -> IO Bool +-- | +isContextLost :: (MonadDOM m, IsCanvasState self) => self -> m Bool +isContextLost self = liftDOM ((js_isContextLost ((Types.toCanvasState self)))) + +-- | +isContextLost_ :: (MonadDOM m, IsCanvasState self) => self -> m () +isContextLost_ self = liftDOM (void ((js_isContextLost ((Types.toCanvasState self))))) + +foreign import javascript safe "(($1) => { return $1[\"reset\"](); })" + js_reset :: CanvasState -> IO () +-- | +reset :: (MonadDOM m, IsCanvasState self) => self -> m () +reset self = liftDOM (void ((js_reset ((Types.toCanvasState self))))) + +foreign import javascript safe "(($1) => { return $1[\"restore\"](); })" + js_restore :: CanvasState -> IO () +-- | +restore :: (MonadDOM m, IsCanvasState self) => self -> m () +restore self = liftDOM (void ((js_restore ((Types.toCanvasState self))))) + +foreign import javascript safe "(($1) => { return $1[\"save\"](); })" + js_save :: CanvasState -> IO () +-- | +save :: (MonadDOM m, IsCanvasState self) => self -> m () +save self = liftDOM (void ((js_save ((Types.toCanvasState self))))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CanvasText.hs b/src/GHCJS/DOM/JSFFI/Generated/CanvasText.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CanvasText.hs @@ -0,0 +1,39 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from html (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CanvasText + (js_fillText, js_measureText, js_strokeText, fillText, measureText, measureText_, strokeText, CanvasText(..), gTypeCanvasText, IsCanvasText, toCanvasText) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1, $2, $3, $4, $5) => { return $1[\"fillText\"]($2, $3, $4, $5); })" + js_fillText :: CanvasText -> JSString -> Double -> Double -> JSVal -> IO () +-- | +fillText :: (MonadDOM m, IsCanvasText self, ToJSString text) => self -> text -> Double -> Double -> Maybe Double -> m () +fillText self text x y maxWidth = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal maxWidth) >>= \a5' -> js_fillText ((Types.toCanvasText self)) (toJSString text) (x) (y) a5'))) + +foreign import javascript safe "(($1, $2) => { return $1[\"measureText\"]($2); })" + js_measureText :: CanvasText -> JSString -> IO TextMetrics +-- | +measureText :: (MonadDOM m, IsCanvasText self, ToJSString text) => self -> text -> m TextMetrics +measureText self text = liftDOM ((js_measureText ((Types.toCanvasText self)) (toJSString text))) + +-- | +measureText_ :: (MonadDOM m, IsCanvasText self, ToJSString text) => self -> text -> m () +measureText_ self text = liftDOM (void ((js_measureText ((Types.toCanvasText self)) (toJSString text)))) + +foreign import javascript safe "(($1, $2, $3, $4, $5) => { return $1[\"strokeText\"]($2, $3, $4, $5); })" + js_strokeText :: CanvasText -> JSString -> Double -> Double -> JSVal -> IO () +-- | +strokeText :: (MonadDOM m, IsCanvasText self, ToJSString text) => self -> text -> Double -> Double -> Maybe Double -> m () +strokeText self text x y maxWidth = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal maxWidth) >>= \a5' -> js_strokeText ((Types.toCanvasText self)) (toJSString text) (x) (y) a5'))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CanvasTextDrawingStyles.hs b/src/GHCJS/DOM/JSFFI/Generated/CanvasTextDrawingStyles.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CanvasTextDrawingStyles.hs @@ -0,0 +1,149 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from html (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CanvasTextDrawingStyles + (js_setLang, js_getLang, js_setFont, js_getFont, js_setTextAlign, js_getTextAlign, js_setTextBaseline, js_getTextBaseline, js_setDirection, js_getDirection, js_setLetterSpacing, js_getLetterSpacing, js_setFontKerning, js_getFontKerning, js_setFontStretch, js_getFontStretch, js_setFontVariantCaps, js_getFontVariantCaps, js_setTextRendering, js_getTextRendering, js_setWordSpacing, js_getWordSpacing, setLang, getLang, setFont, getFont, setTextAlign, getTextAlign, setTextBaseline, getTextBaseline, setDirection, getDirection, setLetterSpacing, getLetterSpacing, setFontKerning, getFontKerning, setFontStretch, getFontStretch, setFontVariantCaps, getFontVariantCaps, setTextRendering, getTextRendering, setWordSpacing, getWordSpacing, CanvasTextDrawingStyles(..), gTypeCanvasTextDrawingStyles, IsCanvasTextDrawingStyles, toCanvasTextDrawingStyles) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1, $2) => { $1[\"lang\"] = $2; })" + js_setLang :: CanvasTextDrawingStyles -> JSString -> IO () +-- | +setLang :: (MonadDOM m, IsCanvasTextDrawingStyles self, ToJSString val) => self -> val -> m () +setLang self val = liftDOM (void ((js_setLang ((Types.toCanvasTextDrawingStyles self)) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"lang\"]; })" + js_getLang :: CanvasTextDrawingStyles -> IO JSString +-- | +getLang :: (MonadDOM m, IsCanvasTextDrawingStyles self, FromJSString result) => self -> m result +getLang self = liftDOM ((fromJSString <$> (js_getLang ((Types.toCanvasTextDrawingStyles self))))) + +foreign import javascript safe "(($1, $2) => { $1[\"font\"] = $2; })" + js_setFont :: CanvasTextDrawingStyles -> JSString -> IO () +-- | +setFont :: (MonadDOM m, IsCanvasTextDrawingStyles self, ToJSString val) => self -> val -> m () +setFont self val = liftDOM (void ((js_setFont ((Types.toCanvasTextDrawingStyles self)) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"font\"]; })" + js_getFont :: CanvasTextDrawingStyles -> IO JSString +-- | +getFont :: (MonadDOM m, IsCanvasTextDrawingStyles self, FromJSString result) => self -> m result +getFont self = liftDOM ((fromJSString <$> (js_getFont ((Types.toCanvasTextDrawingStyles self))))) + +foreign import javascript safe "(($1, $2) => { $1[\"textAlign\"] = $2; })" + js_setTextAlign :: CanvasTextDrawingStyles -> JSVal -> IO () +-- | +setTextAlign :: (MonadDOM m, IsCanvasTextDrawingStyles self) => self -> CanvasTextAlign -> m () +setTextAlign self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setTextAlign ((Types.toCanvasTextDrawingStyles self)) a2'))) + +foreign import javascript unsafe "(($1) => { return $1[\"textAlign\"]; })" + js_getTextAlign :: CanvasTextDrawingStyles -> IO JSVal +-- | +getTextAlign :: (MonadDOM m, IsCanvasTextDrawingStyles self) => self -> m CanvasTextAlign +getTextAlign self = liftDOM (((js_getTextAlign ((Types.toCanvasTextDrawingStyles self))) >>= fromJSValUnchecked)) + +foreign import javascript safe "(($1, $2) => { $1[\"textBaseline\"] = $2; })" + js_setTextBaseline :: CanvasTextDrawingStyles -> JSVal -> IO () +-- | +setTextBaseline :: (MonadDOM m, IsCanvasTextDrawingStyles self) => self -> CanvasTextBaseline -> m () +setTextBaseline self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setTextBaseline ((Types.toCanvasTextDrawingStyles self)) a2'))) + +foreign import javascript unsafe "(($1) => { return $1[\"textBaseline\"]; })" + js_getTextBaseline :: CanvasTextDrawingStyles -> IO JSVal +-- | +getTextBaseline :: (MonadDOM m, IsCanvasTextDrawingStyles self) => self -> m CanvasTextBaseline +getTextBaseline self = liftDOM (((js_getTextBaseline ((Types.toCanvasTextDrawingStyles self))) >>= fromJSValUnchecked)) + +foreign import javascript safe "(($1, $2) => { $1[\"direction\"] = $2; })" + js_setDirection :: CanvasTextDrawingStyles -> JSVal -> IO () +-- | +setDirection :: (MonadDOM m, IsCanvasTextDrawingStyles self) => self -> CanvasDirection -> m () +setDirection self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setDirection ((Types.toCanvasTextDrawingStyles self)) a2'))) + +foreign import javascript unsafe "(($1) => { return $1[\"direction\"]; })" + js_getDirection :: CanvasTextDrawingStyles -> IO JSVal +-- | +getDirection :: (MonadDOM m, IsCanvasTextDrawingStyles self) => self -> m CanvasDirection +getDirection self = liftDOM (((js_getDirection ((Types.toCanvasTextDrawingStyles self))) >>= fromJSValUnchecked)) + +foreign import javascript safe "(($1, $2) => { $1[\"letterSpacing\"] = $2; })" + js_setLetterSpacing :: CanvasTextDrawingStyles -> JSString -> IO () +-- | +setLetterSpacing :: (MonadDOM m, IsCanvasTextDrawingStyles self, ToJSString val) => self -> val -> m () +setLetterSpacing self val = liftDOM (void ((js_setLetterSpacing ((Types.toCanvasTextDrawingStyles self)) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"letterSpacing\"]; })" + js_getLetterSpacing :: CanvasTextDrawingStyles -> IO JSString +-- | +getLetterSpacing :: (MonadDOM m, IsCanvasTextDrawingStyles self, FromJSString result) => self -> m result +getLetterSpacing self = liftDOM ((fromJSString <$> (js_getLetterSpacing ((Types.toCanvasTextDrawingStyles self))))) + +foreign import javascript safe "(($1, $2) => { $1[\"fontKerning\"] = $2; })" + js_setFontKerning :: CanvasTextDrawingStyles -> JSVal -> IO () +-- | +setFontKerning :: (MonadDOM m, IsCanvasTextDrawingStyles self) => self -> CanvasFontKerning -> m () +setFontKerning self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setFontKerning ((Types.toCanvasTextDrawingStyles self)) a2'))) + +foreign import javascript unsafe "(($1) => { return $1[\"fontKerning\"]; })" + js_getFontKerning :: CanvasTextDrawingStyles -> IO JSVal +-- | +getFontKerning :: (MonadDOM m, IsCanvasTextDrawingStyles self) => self -> m CanvasFontKerning +getFontKerning self = liftDOM (((js_getFontKerning ((Types.toCanvasTextDrawingStyles self))) >>= fromJSValUnchecked)) + +foreign import javascript safe "(($1, $2) => { $1[\"fontStretch\"] = $2; })" + js_setFontStretch :: CanvasTextDrawingStyles -> JSVal -> IO () +-- | +setFontStretch :: (MonadDOM m, IsCanvasTextDrawingStyles self) => self -> CanvasFontStretch -> m () +setFontStretch self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setFontStretch ((Types.toCanvasTextDrawingStyles self)) a2'))) + +foreign import javascript unsafe "(($1) => { return $1[\"fontStretch\"]; })" + js_getFontStretch :: CanvasTextDrawingStyles -> IO JSVal +-- | +getFontStretch :: (MonadDOM m, IsCanvasTextDrawingStyles self) => self -> m CanvasFontStretch +getFontStretch self = liftDOM (((js_getFontStretch ((Types.toCanvasTextDrawingStyles self))) >>= fromJSValUnchecked)) + +foreign import javascript safe "(($1, $2) => { $1[\"fontVariantCaps\"] = $2; })" + js_setFontVariantCaps :: CanvasTextDrawingStyles -> JSVal -> IO () +-- | +setFontVariantCaps :: (MonadDOM m, IsCanvasTextDrawingStyles self) => self -> CanvasFontVariantCaps -> m () +setFontVariantCaps self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setFontVariantCaps ((Types.toCanvasTextDrawingStyles self)) a2'))) + +foreign import javascript unsafe "(($1) => { return $1[\"fontVariantCaps\"]; })" + js_getFontVariantCaps :: CanvasTextDrawingStyles -> IO JSVal +-- | +getFontVariantCaps :: (MonadDOM m, IsCanvasTextDrawingStyles self) => self -> m CanvasFontVariantCaps +getFontVariantCaps self = liftDOM (((js_getFontVariantCaps ((Types.toCanvasTextDrawingStyles self))) >>= fromJSValUnchecked)) + +foreign import javascript safe "(($1, $2) => { $1[\"textRendering\"] = $2; })" + js_setTextRendering :: CanvasTextDrawingStyles -> JSVal -> IO () +-- | +setTextRendering :: (MonadDOM m, IsCanvasTextDrawingStyles self) => self -> CanvasTextRendering -> m () +setTextRendering self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setTextRendering ((Types.toCanvasTextDrawingStyles self)) a2'))) + +foreign import javascript unsafe "(($1) => { return $1[\"textRendering\"]; })" + js_getTextRendering :: CanvasTextDrawingStyles -> IO JSVal +-- | +getTextRendering :: (MonadDOM m, IsCanvasTextDrawingStyles self) => self -> m CanvasTextRendering +getTextRendering self = liftDOM (((js_getTextRendering ((Types.toCanvasTextDrawingStyles self))) >>= fromJSValUnchecked)) + +foreign import javascript safe "(($1, $2) => { $1[\"wordSpacing\"] = $2; })" + js_setWordSpacing :: CanvasTextDrawingStyles -> JSString -> IO () +-- | +setWordSpacing :: (MonadDOM m, IsCanvasTextDrawingStyles self, ToJSString val) => self -> val -> m () +setWordSpacing self val = liftDOM (void ((js_setWordSpacing ((Types.toCanvasTextDrawingStyles self)) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"wordSpacing\"]; })" + js_getWordSpacing :: CanvasTextDrawingStyles -> IO JSString +-- | +getWordSpacing :: (MonadDOM m, IsCanvasTextDrawingStyles self, FromJSString result) => self -> m result +getWordSpacing self = liftDOM ((fromJSString <$> (js_getWordSpacing ((Types.toCanvasTextDrawingStyles self))))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CanvasTransform.hs b/src/GHCJS/DOM/JSFFI/Generated/CanvasTransform.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CanvasTransform.hs @@ -0,0 +1,69 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from html (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CanvasTransform + (js_getTransform, js_resetTransform, js_rotate, js_scale, js_setTransform, js_setTransformTransform, js_transform, js_translate, getTransform, getTransform_, resetTransform, rotate, scale, setTransform, setTransformTransform, transform, translate, CanvasTransform(..), gTypeCanvasTransform, IsCanvasTransform, toCanvasTransform) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1) => { return $1[\"getTransform\"](); })" + js_getTransform :: CanvasTransform -> IO DOMMatrix +-- | +getTransform :: (MonadDOM m, IsCanvasTransform self) => self -> m DOMMatrix +getTransform self = liftDOM ((js_getTransform ((Types.toCanvasTransform self)))) + +-- | +getTransform_ :: (MonadDOM m, IsCanvasTransform self) => self -> m () +getTransform_ self = liftDOM (void ((js_getTransform ((Types.toCanvasTransform self))))) + +foreign import javascript safe "(($1) => { return $1[\"resetTransform\"](); })" + js_resetTransform :: CanvasTransform -> IO () +-- | +resetTransform :: (MonadDOM m, IsCanvasTransform self) => self -> m () +resetTransform self = liftDOM (void ((js_resetTransform ((Types.toCanvasTransform self))))) + +foreign import javascript safe "(($1, $2) => { return $1[\"rotate\"]($2); })" + js_rotate :: CanvasTransform -> Double -> IO () +-- | +rotate :: (MonadDOM m, IsCanvasTransform self) => self -> Double -> m () +rotate self angle = liftDOM (void ((js_rotate ((Types.toCanvasTransform self)) (angle)))) + +foreign import javascript safe "(($1, $2, $3) => { return $1[\"scale\"]($2, $3); })" + js_scale :: CanvasTransform -> Double -> Double -> IO () +-- | +scale :: (MonadDOM m, IsCanvasTransform self) => self -> Double -> Double -> m () +scale self x y = liftDOM (void ((js_scale ((Types.toCanvasTransform self)) (x) (y)))) + +foreign import javascript safe "(($1, $2, $3, $4, $5, $6, $7) => { return $1[\"setTransform\"]($2, $3, $4, $5, $6, $7); })" + js_setTransform :: CanvasTransform -> Double -> Double -> Double -> Double -> Double -> Double -> IO () +-- | +setTransform :: (MonadDOM m, IsCanvasTransform self) => self -> Double -> Double -> Double -> Double -> Double -> Double -> m () +setTransform self a b c d e f = liftDOM (void ((js_setTransform ((Types.toCanvasTransform self)) (a) (b) (c) (d) (e) (f)))) + +foreign import javascript safe "(($1, $2) => { return $1[\"setTransform\"]($2); })" + js_setTransformTransform :: CanvasTransform -> JSVal -> IO () +-- | +setTransformTransform :: (MonadDOM m, IsCanvasTransform self, IsDOMMatrix2DInit transform) => self -> Maybe transform -> m () +setTransformTransform self transform = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal transform) >>= \a2' -> js_setTransformTransform ((Types.toCanvasTransform self)) a2'))) + +foreign import javascript safe "(($1, $2, $3, $4, $5, $6, $7) => { return $1[\"transform\"]($2, $3, $4, $5, $6, $7); })" + js_transform :: CanvasTransform -> Double -> Double -> Double -> Double -> Double -> Double -> IO () +-- | +transform :: (MonadDOM m, IsCanvasTransform self) => self -> Double -> Double -> Double -> Double -> Double -> Double -> m () +transform self a b c d e f = liftDOM (void ((js_transform ((Types.toCanvasTransform self)) (a) (b) (c) (d) (e) (f)))) + +foreign import javascript safe "(($1, $2, $3) => { return $1[\"translate\"]($2, $3); })" + js_translate :: CanvasTransform -> Double -> Double -> IO () +-- | +translate :: (MonadDOM m, IsCanvasTransform self) => self -> Double -> Double -> m () +translate self x y = liftDOM (void ((js_translate ((Types.toCanvasTransform self)) (x) (y)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CanvasUserInterface.hs b/src/GHCJS/DOM/JSFFI/Generated/CanvasUserInterface.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CanvasUserInterface.hs @@ -0,0 +1,29 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from html (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CanvasUserInterface + (js_drawFocusIfNeeded, js_drawFocusIfNeededPath, drawFocusIfNeeded, drawFocusIfNeededPath, CanvasUserInterface(..), gTypeCanvasUserInterface, IsCanvasUserInterface, toCanvasUserInterface) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1, $2) => { return $1[\"drawFocusIfNeeded\"]($2); })" + js_drawFocusIfNeeded :: CanvasUserInterface -> Element -> IO () +-- | +drawFocusIfNeeded :: (MonadDOM m, IsCanvasUserInterface self, IsElement element) => self -> element -> m () +drawFocusIfNeeded self element = liftDOM (void ((js_drawFocusIfNeeded ((Types.toCanvasUserInterface self)) (Types.toElement element)))) + +foreign import javascript safe "(($1, $2, $3) => { return $1[\"drawFocusIfNeeded\"]($2, $3); })" + js_drawFocusIfNeededPath :: CanvasUserInterface -> Path2D -> Element -> IO () +-- | +drawFocusIfNeededPath :: (MonadDOM m, IsCanvasUserInterface self, IsElement element) => self -> Path2D -> element -> m () +drawFocusIfNeededPath self path element = liftDOM (void ((js_drawFocusIfNeededPath ((Types.toCanvasUserInterface self)) (path) (Types.toElement element)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CaptureController.hs b/src/GHCJS/DOM/JSFFI/Generated/CaptureController.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CaptureController.hs @@ -0,0 +1,18 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from screen-capture (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CaptureController + (CaptureController(..), gTypeCaptureController) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + diff --git a/src/GHCJS/DOM/JSFFI/Generated/CaretPosition.hs b/src/GHCJS/DOM/JSFFI/Generated/CaretPosition.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CaretPosition.hs @@ -0,0 +1,47 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from cssom-view-1 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CaretPosition + (js_getClientRect, js_getOffsetNode, js_getOffset, getClientRect, getClientRect_, getClientRectUnsafe, getClientRectUnchecked, getOffsetNode, getOffset, CaretPosition(..), gTypeCaretPosition) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1) => { return $1[\"getClientRect\"](); })" + js_getClientRect :: CaretPosition -> IO JSVal +-- | +getClientRect :: (MonadDOM m) => CaretPosition -> m (Maybe DOMRect) +getClientRect self = liftDOM (((js_getClientRect (self)) >>= fromJSValUnchecked)) + +-- | +getClientRect_ :: (MonadDOM m) => CaretPosition -> m () +getClientRect_ self = liftDOM (void ((js_getClientRect (self)))) + +-- | +getClientRectUnsafe :: (MonadDOM m, HasCallStack) => CaretPosition -> m DOMRect +getClientRectUnsafe self = liftDOM ((((js_getClientRect (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getClientRectUnchecked :: (MonadDOM m) => CaretPosition -> m DOMRect +getClientRectUnchecked self = liftDOM ((pFromJSVal <$> (js_getClientRect (self)))) + +foreign import javascript unsafe "(($1) => { return $1[\"offsetNode\"]; })" + js_getOffsetNode :: CaretPosition -> IO Node +-- | +getOffsetNode :: (MonadDOM m) => CaretPosition -> m Node +getOffsetNode self = liftDOM ((js_getOffsetNode (self))) + +foreign import javascript unsafe "(($1) => { return $1[\"offset\"]; })" + js_getOffset :: CaretPosition -> IO Word +-- | +getOffset :: (MonadDOM m) => CaretPosition -> m Word +getOffset self = liftDOM ((js_getOffset (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CaretPositionFromPointOptions.hs b/src/GHCJS/DOM/JSFFI/Generated/CaretPositionFromPointOptions.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CaretPositionFromPointOptions.hs @@ -0,0 +1,43 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from cssom-view-1 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CaretPositionFromPointOptions + (js_newCaretPositionFromPointOptions, js_setShadowRoots, js_getShadowRoots, newCaretPositionFromPointOptions, setShadowRoots, getShadowRoots, getShadowRootsUnsafe, getShadowRootsUnchecked, CaretPositionFromPointOptions(..), gTypeCaretPositionFromPointOptions) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(() => { return ({}); })" + js_newCaretPositionFromPointOptions :: IO CaretPositionFromPointOptions +-- | +newCaretPositionFromPointOptions :: (MonadDOM m) => m CaretPositionFromPointOptions +newCaretPositionFromPointOptions = liftDOM ((js_newCaretPositionFromPointOptions)) + +foreign import javascript safe "(($1, $2) => { $1[\"shadowRoots\"] = $2; })" + js_setShadowRoots :: CaretPositionFromPointOptions -> JSVal -> IO () +-- | +setShadowRoots :: (MonadDOM m) => CaretPositionFromPointOptions -> [ShadowRoot] -> m () +setShadowRoots self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setShadowRoots (self) a2'))) + +foreign import javascript unsafe "(($1) => { return $1[\"shadowRoots\"]; })" + js_getShadowRoots :: CaretPositionFromPointOptions -> IO JSVal +-- | +getShadowRoots :: (MonadDOM m) => CaretPositionFromPointOptions -> m (Maybe [ShadowRoot]) +getShadowRoots self = liftDOM (((js_getShadowRoots (self)) >>= fromJSValUnchecked)) + +-- | +getShadowRootsUnsafe :: (MonadDOM m, HasCallStack) => CaretPositionFromPointOptions -> m [ShadowRoot] +getShadowRootsUnsafe self = liftDOM ((((js_getShadowRoots (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getShadowRootsUnchecked :: (MonadDOM m) => CaretPositionFromPointOptions -> m [ShadowRoot] +getShadowRootsUnchecked self = liftDOM (((js_getShadowRoots (self)) >>= fromJSValUnchecked)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/ChannelMergerNode.hs b/src/GHCJS/DOM/JSFFI/Generated/ChannelMergerNode.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/ChannelMergerNode.hs @@ -0,0 +1,23 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from webaudio-1.1 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.ChannelMergerNode + (js_newChannelMergerNode, newChannelMergerNode, ChannelMergerNode(..), gTypeChannelMergerNode) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1, $2) => { return new globalThis[\"ChannelMergerNode\"]($1, $2); })" + js_newChannelMergerNode :: BaseAudioContext -> JSVal -> IO ChannelMergerNode +-- | +newChannelMergerNode :: (MonadDOM m, IsBaseAudioContext context) => context -> Maybe ChannelMergerOptions -> m ChannelMergerNode +newChannelMergerNode context options = liftDOM (((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_newChannelMergerNode (Types.toBaseAudioContext context) a2')) diff --git a/src/GHCJS/DOM/JSFFI/Generated/ChannelMergerOptions.hs b/src/GHCJS/DOM/JSFFI/Generated/ChannelMergerOptions.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/ChannelMergerOptions.hs @@ -0,0 +1,43 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from webaudio-1.1 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.ChannelMergerOptions + (js_newChannelMergerOptions, js_setNumberOfInputs, js_getNumberOfInputs, newChannelMergerOptions, setNumberOfInputs, getNumberOfInputs, getNumberOfInputsUnsafe, getNumberOfInputsUnchecked, ChannelMergerOptions(..), gTypeChannelMergerOptions) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(() => { return ({}); })" + js_newChannelMergerOptions :: IO ChannelMergerOptions +-- | +newChannelMergerOptions :: (MonadDOM m) => m ChannelMergerOptions +newChannelMergerOptions = liftDOM ((js_newChannelMergerOptions)) + +foreign import javascript safe "(($1, $2) => { $1[\"numberOfInputs\"] = $2; })" + js_setNumberOfInputs :: ChannelMergerOptions -> Word -> IO () +-- | +setNumberOfInputs :: (MonadDOM m) => ChannelMergerOptions -> Word -> m () +setNumberOfInputs self val = liftDOM (void ((js_setNumberOfInputs (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"numberOfInputs\"]; })" + js_getNumberOfInputs :: ChannelMergerOptions -> IO JSVal +-- | +getNumberOfInputs :: (MonadDOM m) => ChannelMergerOptions -> m (Maybe Word) +getNumberOfInputs self = liftDOM (((js_getNumberOfInputs (self)) >>= fromJSValUnchecked)) + +-- | +getNumberOfInputsUnsafe :: (MonadDOM m, HasCallStack) => ChannelMergerOptions -> m Word +getNumberOfInputsUnsafe self = liftDOM ((((js_getNumberOfInputs (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getNumberOfInputsUnchecked :: (MonadDOM m) => ChannelMergerOptions -> m Word +getNumberOfInputsUnchecked self = liftDOM ((pFromJSVal <$> (js_getNumberOfInputs (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/ChannelSplitterNode.hs b/src/GHCJS/DOM/JSFFI/Generated/ChannelSplitterNode.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/ChannelSplitterNode.hs @@ -0,0 +1,23 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from webaudio-1.1 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.ChannelSplitterNode + (js_newChannelSplitterNode, newChannelSplitterNode, ChannelSplitterNode(..), gTypeChannelSplitterNode) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1, $2) => { return new globalThis[\"ChannelSplitterNode\"]($1, $2); })" + js_newChannelSplitterNode :: BaseAudioContext -> JSVal -> IO ChannelSplitterNode +-- | +newChannelSplitterNode :: (MonadDOM m, IsBaseAudioContext context) => context -> Maybe ChannelSplitterOptions -> m ChannelSplitterNode +newChannelSplitterNode context options = liftDOM (((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_newChannelSplitterNode (Types.toBaseAudioContext context) a2')) diff --git a/src/GHCJS/DOM/JSFFI/Generated/ChannelSplitterOptions.hs b/src/GHCJS/DOM/JSFFI/Generated/ChannelSplitterOptions.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/ChannelSplitterOptions.hs @@ -0,0 +1,43 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from webaudio-1.1 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.ChannelSplitterOptions + (js_newChannelSplitterOptions, js_setNumberOfOutputs, js_getNumberOfOutputs, newChannelSplitterOptions, setNumberOfOutputs, getNumberOfOutputs, getNumberOfOutputsUnsafe, getNumberOfOutputsUnchecked, ChannelSplitterOptions(..), gTypeChannelSplitterOptions) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(() => { return ({}); })" + js_newChannelSplitterOptions :: IO ChannelSplitterOptions +-- | +newChannelSplitterOptions :: (MonadDOM m) => m ChannelSplitterOptions +newChannelSplitterOptions = liftDOM ((js_newChannelSplitterOptions)) + +foreign import javascript safe "(($1, $2) => { $1[\"numberOfOutputs\"] = $2; })" + js_setNumberOfOutputs :: ChannelSplitterOptions -> Word -> IO () +-- | +setNumberOfOutputs :: (MonadDOM m) => ChannelSplitterOptions -> Word -> m () +setNumberOfOutputs self val = liftDOM (void ((js_setNumberOfOutputs (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"numberOfOutputs\"]; })" + js_getNumberOfOutputs :: ChannelSplitterOptions -> IO JSVal +-- | +getNumberOfOutputs :: (MonadDOM m) => ChannelSplitterOptions -> m (Maybe Word) +getNumberOfOutputs self = liftDOM (((js_getNumberOfOutputs (self)) >>= fromJSValUnchecked)) + +-- | +getNumberOfOutputsUnsafe :: (MonadDOM m, HasCallStack) => ChannelSplitterOptions -> m Word +getNumberOfOutputsUnsafe self = liftDOM ((((js_getNumberOfOutputs (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getNumberOfOutputsUnchecked :: (MonadDOM m) => ChannelSplitterOptions -> m Word +getNumberOfOutputsUnchecked self = liftDOM ((pFromJSVal <$> (js_getNumberOfOutputs (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/ChapterInformationInit.hs b/src/GHCJS/DOM/JSFFI/Generated/ChapterInformationInit.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/ChapterInformationInit.hs @@ -0,0 +1,83 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from mediasession (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.ChapterInformationInit + (js_newChapterInformationInit, js_setTitle, js_getTitle, js_setStartTime, js_getStartTime, js_setArtwork, js_getArtwork, newChapterInformationInit, setTitle, getTitle, getTitleUnsafe, getTitleUnchecked, setStartTime, getStartTime, getStartTimeUnsafe, getStartTimeUnchecked, setArtwork, getArtwork, getArtworkUnsafe, getArtworkUnchecked, ChapterInformationInit(..), gTypeChapterInformationInit) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(() => { return ({}); })" + js_newChapterInformationInit :: IO ChapterInformationInit +-- | +newChapterInformationInit :: (MonadDOM m) => m ChapterInformationInit +newChapterInformationInit = liftDOM ((js_newChapterInformationInit)) + +foreign import javascript safe "(($1, $2) => { $1[\"title\"] = $2; })" + js_setTitle :: ChapterInformationInit -> JSString -> IO () +-- | +setTitle :: (MonadDOM m, ToJSString val) => ChapterInformationInit -> val -> m () +setTitle self val = liftDOM (void ((js_setTitle (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"title\"]; })" + js_getTitle :: ChapterInformationInit -> IO JSVal +-- | +getTitle :: (MonadDOM m, FromJSString result) => ChapterInformationInit -> m (Maybe result) +getTitle self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getTitle (self)))) + +-- | +getTitleUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => ChapterInformationInit -> m result +getTitleUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getTitle (self))) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getTitleUnchecked :: (MonadDOM m, FromJSString result) => ChapterInformationInit -> m result +getTitleUnchecked self = liftDOM ((pFromJSVal <$> (js_getTitle (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"startTime\"] = $2; })" + js_setStartTime :: ChapterInformationInit -> Double -> IO () +-- | +setStartTime :: (MonadDOM m) => ChapterInformationInit -> Double -> m () +setStartTime self val = liftDOM (void ((js_setStartTime (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"startTime\"]; })" + js_getStartTime :: ChapterInformationInit -> IO JSVal +-- | +getStartTime :: (MonadDOM m) => ChapterInformationInit -> m (Maybe Double) +getStartTime self = liftDOM (((js_getStartTime (self)) >>= fromJSValUnchecked)) + +-- | +getStartTimeUnsafe :: (MonadDOM m, HasCallStack) => ChapterInformationInit -> m Double +getStartTimeUnsafe self = liftDOM ((((js_getStartTime (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getStartTimeUnchecked :: (MonadDOM m) => ChapterInformationInit -> m Double +getStartTimeUnchecked self = liftDOM ((pFromJSVal <$> (js_getStartTime (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"artwork\"] = $2; })" + js_setArtwork :: ChapterInformationInit -> JSVal -> IO () +-- | +setArtwork :: (MonadDOM m) => ChapterInformationInit -> [MediaImage] -> m () +setArtwork self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setArtwork (self) a2'))) + +foreign import javascript unsafe "(($1) => { return $1[\"artwork\"]; })" + js_getArtwork :: ChapterInformationInit -> IO JSVal +-- | +getArtwork :: (MonadDOM m) => ChapterInformationInit -> m (Maybe [MediaImage]) +getArtwork self = liftDOM (((js_getArtwork (self)) >>= fromJSValUnchecked)) + +-- | +getArtworkUnsafe :: (MonadDOM m, HasCallStack) => ChapterInformationInit -> m [MediaImage] +getArtworkUnsafe self = liftDOM ((((js_getArtwork (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getArtworkUnchecked :: (MonadDOM m) => ChapterInformationInit -> m [MediaImage] +getArtworkUnchecked self = liftDOM (((js_getArtwork (self)) >>= fromJSValUnchecked)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CharacterData.hs b/src/GHCJS/DOM/JSFFI/Generated/CharacterData.hs --- a/src/GHCJS/DOM/JSFFI/Generated/CharacterData.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/CharacterData.hs @@ -1,119 +1,69 @@ {-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE JavaScriptFFI #-} --- For HasCallStack compatibility +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from dom (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.CharacterData - (js_substringData, substringData, substringData_, js_appendData, - appendData, js_insertData, insertData, js_deleteData, deleteData, - js_replaceData, replaceData, js_setData, setData, js_getData, - getData, js_getLength, getLength, CharacterData(..), - gTypeCharacterData, IsCharacterData, toCharacterData) + (js_appendData, js_deleteData, js_insertData, js_replaceData, js_substringData, js_setData, js_getData, js_getLength, appendData, deleteData, insertData, replaceData, substringData, substringData_, setData, getData, getLength, CharacterData(..), gTypeCharacterData, IsCharacterData, toCharacterData) where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull, jsUndefined) -import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import Data.Maybe (fromJust) -import Data.Traversable (mapM) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types -import Control.Applicative ((<$>)) +import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums - -foreign import javascript safe "(($1, $2, $3) => { return $1[\"substringData\"]($2, $3); })" - js_substringData :: CharacterData -> Word -> Word -> IO JSString --- | -substringData :: - (MonadIO m, IsCharacterData self, FromJSString result) => - self -> Word -> Word -> m result -substringData self offset count - = liftIO - (fromJSString <$> - (js_substringData (toCharacterData self) offset count)) - --- | -substringData_ :: - (MonadIO m, IsCharacterData self) => self -> Word -> Word -> m () -substringData_ self offset count - = liftIO - (void (js_substringData (toCharacterData self) offset count)) - -foreign import javascript unsafe "(($1, $2) => { return $1[\"appendData\"]($2); })" +foreign import javascript safe "(($1, $2) => { return $1[\"appendData\"]($2); })" js_appendData :: CharacterData -> JSString -> IO () - --- | -appendData :: - (MonadIO m, IsCharacterData self, ToJSString data') => - self -> data' -> m () -appendData self data' - = liftIO (js_appendData (toCharacterData self) (toJSString data')) - -foreign import javascript safe "(($1, $2, $3) => { return $1[\"insertData\"]($2, $3); })" - js_insertData :: CharacterData -> Word -> JSString -> IO () +-- | +appendData :: (MonadDOM m, IsCharacterData self, ToJSString data') => self -> data' -> m () +appendData self data' = liftDOM (void ((js_appendData ((Types.toCharacterData self)) (toJSString data')))) --- | -insertData :: - (MonadIO m, IsCharacterData self, ToJSString data') => - self -> Word -> data' -> m () -insertData self offset data' - = liftIO - (js_insertData (toCharacterData self) offset (toJSString data')) - foreign import javascript safe "(($1, $2, $3) => { return $1[\"deleteData\"]($2, $3); })" js_deleteData :: CharacterData -> Word -> Word -> IO () +-- | +deleteData :: (MonadDOM m, IsCharacterData self) => self -> Word -> Word -> m () +deleteData self offset count = liftDOM (void ((js_deleteData ((Types.toCharacterData self)) (offset) (count)))) --- | -deleteData :: - (MonadIO m, IsCharacterData self) => self -> Word -> Word -> m () -deleteData self offset count - = liftIO (js_deleteData (toCharacterData self) offset count) - +foreign import javascript safe "(($1, $2, $3) => { return $1[\"insertData\"]($2, $3); })" + js_insertData :: CharacterData -> Word -> JSString -> IO () +-- | +insertData :: (MonadDOM m, IsCharacterData self, ToJSString data') => self -> Word -> data' -> m () +insertData self offset data' = liftDOM (void ((js_insertData ((Types.toCharacterData self)) (offset) (toJSString data')))) + foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"replaceData\"]($2, $3, $4); })" - js_replaceData :: - CharacterData -> Word -> Word -> JSString -> IO () + js_replaceData :: CharacterData -> Word -> Word -> JSString -> IO () +-- | +replaceData :: (MonadDOM m, IsCharacterData self, ToJSString data') => self -> Word -> Word -> data' -> m () +replaceData self offset count data' = liftDOM (void ((js_replaceData ((Types.toCharacterData self)) (offset) (count) (toJSString data')))) --- | -replaceData :: - (MonadIO m, IsCharacterData self, ToJSString data') => - self -> Word -> Word -> data' -> m () -replaceData self offset count data' - = liftIO - (js_replaceData (toCharacterData self) offset count - (toJSString data')) - -foreign import javascript unsafe "(($1, $2) => { $1[\"data\"] = $2; })" js_setData :: - CharacterData -> JSString -> IO () +foreign import javascript safe "(($1, $2, $3) => { return $1[\"substringData\"]($2, $3); })" + js_substringData :: CharacterData -> Word -> Word -> IO JSString +-- | +substringData :: (MonadDOM m, IsCharacterData self, FromJSString result) => self -> Word -> Word -> m result +substringData self offset count = liftDOM ((fromJSString <$> (js_substringData ((Types.toCharacterData self)) (offset) (count)))) --- | -setData :: - (MonadIO m, IsCharacterData self, ToJSString val) => - self -> val -> m () -setData self val - = liftIO (js_setData (toCharacterData self) (toJSString val)) - -foreign import javascript unsafe "(($1) => { return $1[\"data\"]; })" js_getData :: - CharacterData -> IO JSString +-- | +substringData_ :: (MonadDOM m, IsCharacterData self) => self -> Word -> Word -> m () +substringData_ self offset count = liftDOM (void ((js_substringData ((Types.toCharacterData self)) (offset) (count)))) --- | -getData :: - (MonadIO m, IsCharacterData self, FromJSString result) => - self -> m result -getData self - = liftIO (fromJSString <$> (js_getData (toCharacterData self))) - -foreign import javascript unsafe "(($1) => { return $1[\"length\"]; })" js_getLength :: - CharacterData -> IO Word +foreign import javascript safe "(($1, $2) => { $1[\"data\"] = $2; })" + js_setData :: CharacterData -> JSString -> IO () +-- | +setData :: (MonadDOM m, IsCharacterData self, ToJSString val) => self -> val -> m () +setData self val = liftDOM (void ((js_setData ((Types.toCharacterData self)) (toJSString val)))) --- | -getLength :: (MonadIO m, IsCharacterData self) => self -> m Word -getLength self = liftIO (js_getLength (toCharacterData self)) +foreign import javascript unsafe "(($1) => { return $1[\"data\"]; })" + js_getData :: CharacterData -> IO JSString +-- | +getData :: (MonadDOM m, IsCharacterData self, FromJSString result) => self -> m result +getData self = liftDOM ((fromJSString <$> (js_getData ((Types.toCharacterData self))))) + +foreign import javascript unsafe "(($1) => { return $1[\"length\"]; })" + js_getLength :: CharacterData -> IO Word +-- | +getLength :: (MonadDOM m, IsCharacterData self) => self -> m Word +getLength self = liftDOM ((js_getLength ((Types.toCharacterData self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CheckVisibilityOptions.hs b/src/GHCJS/DOM/JSFFI/Generated/CheckVisibilityOptions.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CheckVisibilityOptions.hs @@ -0,0 +1,123 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from cssom-view-1 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CheckVisibilityOptions + (js_newCheckVisibilityOptions, js_setCheckOpacity, js_getCheckOpacity, js_setCheckVisibilityCSS, js_getCheckVisibilityCSS, js_setContentVisibilityAuto, js_getContentVisibilityAuto, js_setOpacityProperty, js_getOpacityProperty, js_setVisibilityProperty, js_getVisibilityProperty, newCheckVisibilityOptions, setCheckOpacity, getCheckOpacity, getCheckOpacityUnsafe, getCheckOpacityUnchecked, setCheckVisibilityCSS, getCheckVisibilityCSS, getCheckVisibilityCSSUnsafe, getCheckVisibilityCSSUnchecked, setContentVisibilityAuto, getContentVisibilityAuto, getContentVisibilityAutoUnsafe, getContentVisibilityAutoUnchecked, setOpacityProperty, getOpacityProperty, getOpacityPropertyUnsafe, getOpacityPropertyUnchecked, setVisibilityProperty, getVisibilityProperty, getVisibilityPropertyUnsafe, getVisibilityPropertyUnchecked, CheckVisibilityOptions(..), gTypeCheckVisibilityOptions) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(() => { return ({}); })" + js_newCheckVisibilityOptions :: IO CheckVisibilityOptions +-- | +newCheckVisibilityOptions :: (MonadDOM m) => m CheckVisibilityOptions +newCheckVisibilityOptions = liftDOM ((js_newCheckVisibilityOptions)) + +foreign import javascript safe "(($1, $2) => { $1[\"checkOpacity\"] = $2; })" + js_setCheckOpacity :: CheckVisibilityOptions -> Bool -> IO () +-- | +setCheckOpacity :: (MonadDOM m) => CheckVisibilityOptions -> Bool -> m () +setCheckOpacity self val = liftDOM (void ((js_setCheckOpacity (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"checkOpacity\"]; })" + js_getCheckOpacity :: CheckVisibilityOptions -> IO JSVal +-- | +getCheckOpacity :: (MonadDOM m) => CheckVisibilityOptions -> m (Maybe Bool) +getCheckOpacity self = liftDOM (((js_getCheckOpacity (self)) >>= fromJSValUnchecked)) + +-- | +getCheckOpacityUnsafe :: (MonadDOM m, HasCallStack) => CheckVisibilityOptions -> m Bool +getCheckOpacityUnsafe self = liftDOM ((((js_getCheckOpacity (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getCheckOpacityUnchecked :: (MonadDOM m) => CheckVisibilityOptions -> m Bool +getCheckOpacityUnchecked self = liftDOM ((pFromJSVal <$> (js_getCheckOpacity (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"checkVisibilityCSS\"] = $2; })" + js_setCheckVisibilityCSS :: CheckVisibilityOptions -> Bool -> IO () +-- | +setCheckVisibilityCSS :: (MonadDOM m) => CheckVisibilityOptions -> Bool -> m () +setCheckVisibilityCSS self val = liftDOM (void ((js_setCheckVisibilityCSS (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"checkVisibilityCSS\"]; })" + js_getCheckVisibilityCSS :: CheckVisibilityOptions -> IO JSVal +-- | +getCheckVisibilityCSS :: (MonadDOM m) => CheckVisibilityOptions -> m (Maybe Bool) +getCheckVisibilityCSS self = liftDOM (((js_getCheckVisibilityCSS (self)) >>= fromJSValUnchecked)) + +-- | +getCheckVisibilityCSSUnsafe :: (MonadDOM m, HasCallStack) => CheckVisibilityOptions -> m Bool +getCheckVisibilityCSSUnsafe self = liftDOM ((((js_getCheckVisibilityCSS (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getCheckVisibilityCSSUnchecked :: (MonadDOM m) => CheckVisibilityOptions -> m Bool +getCheckVisibilityCSSUnchecked self = liftDOM ((pFromJSVal <$> (js_getCheckVisibilityCSS (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"contentVisibilityAuto\"] = $2; })" + js_setContentVisibilityAuto :: CheckVisibilityOptions -> Bool -> IO () +-- | +setContentVisibilityAuto :: (MonadDOM m) => CheckVisibilityOptions -> Bool -> m () +setContentVisibilityAuto self val = liftDOM (void ((js_setContentVisibilityAuto (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"contentVisibilityAuto\"]; })" + js_getContentVisibilityAuto :: CheckVisibilityOptions -> IO JSVal +-- | +getContentVisibilityAuto :: (MonadDOM m) => CheckVisibilityOptions -> m (Maybe Bool) +getContentVisibilityAuto self = liftDOM (((js_getContentVisibilityAuto (self)) >>= fromJSValUnchecked)) + +-- | +getContentVisibilityAutoUnsafe :: (MonadDOM m, HasCallStack) => CheckVisibilityOptions -> m Bool +getContentVisibilityAutoUnsafe self = liftDOM ((((js_getContentVisibilityAuto (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getContentVisibilityAutoUnchecked :: (MonadDOM m) => CheckVisibilityOptions -> m Bool +getContentVisibilityAutoUnchecked self = liftDOM ((pFromJSVal <$> (js_getContentVisibilityAuto (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"opacityProperty\"] = $2; })" + js_setOpacityProperty :: CheckVisibilityOptions -> Bool -> IO () +-- | +setOpacityProperty :: (MonadDOM m) => CheckVisibilityOptions -> Bool -> m () +setOpacityProperty self val = liftDOM (void ((js_setOpacityProperty (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"opacityProperty\"]; })" + js_getOpacityProperty :: CheckVisibilityOptions -> IO JSVal +-- | +getOpacityProperty :: (MonadDOM m) => CheckVisibilityOptions -> m (Maybe Bool) +getOpacityProperty self = liftDOM (((js_getOpacityProperty (self)) >>= fromJSValUnchecked)) + +-- | +getOpacityPropertyUnsafe :: (MonadDOM m, HasCallStack) => CheckVisibilityOptions -> m Bool +getOpacityPropertyUnsafe self = liftDOM ((((js_getOpacityProperty (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getOpacityPropertyUnchecked :: (MonadDOM m) => CheckVisibilityOptions -> m Bool +getOpacityPropertyUnchecked self = liftDOM ((pFromJSVal <$> (js_getOpacityProperty (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"visibilityProperty\"] = $2; })" + js_setVisibilityProperty :: CheckVisibilityOptions -> Bool -> IO () +-- | +setVisibilityProperty :: (MonadDOM m) => CheckVisibilityOptions -> Bool -> m () +setVisibilityProperty self val = liftDOM (void ((js_setVisibilityProperty (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"visibilityProperty\"]; })" + js_getVisibilityProperty :: CheckVisibilityOptions -> IO JSVal +-- | +getVisibilityProperty :: (MonadDOM m) => CheckVisibilityOptions -> m (Maybe Bool) +getVisibilityProperty self = liftDOM (((js_getVisibilityProperty (self)) >>= fromJSValUnchecked)) + +-- | +getVisibilityPropertyUnsafe :: (MonadDOM m, HasCallStack) => CheckVisibilityOptions -> m Bool +getVisibilityPropertyUnsafe self = liftDOM ((((js_getVisibilityProperty (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getVisibilityPropertyUnchecked :: (MonadDOM m) => CheckVisibilityOptions -> m Bool +getVisibilityPropertyUnchecked self = liftDOM ((pFromJSVal <$> (js_getVisibilityProperty (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/ChildNode.hs b/src/GHCJS/DOM/JSFFI/Generated/ChildNode.hs --- a/src/GHCJS/DOM/JSFFI/Generated/ChildNode.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/ChildNode.hs @@ -1,69 +1,41 @@ {-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE JavaScriptFFI #-} --- For HasCallStack compatibility +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from dom (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.ChildNode - (js_before, before, js_after, after, js_replaceWith, replaceWith, - js_remove, remove, ChildNode(..), gTypeChildNode, IsChildNode, - toChildNode) + (js_after, js_before, js_remove, js_replaceWith, after, before, remove, replaceWith, ChildNode(..), gTypeChildNode, IsChildNode, toChildNode) where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull, jsUndefined) -import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import Data.Maybe (fromJust) -import Data.Traversable (mapM) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types -import Control.Applicative ((<$>)) +import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums - -foreign import javascript safe "(($1, $2) => { return $1[\"before\"]($2); })" js_before :: - ChildNode -> JSVal -> IO () --- | -before :: - (MonadIO m, IsChildNode self, IsNodeOrString nodes) => - self -> [nodes] -> m () -before self nodes - = liftIO - (toJSVal nodes >>= \ nodes' -> js_before (toChildNode self) nodes') - -foreign import javascript safe "(($1, $2) => { return $1[\"after\"]($2); })" js_after :: - ChildNode -> JSVal -> IO () +foreign import javascript safe "(($1, $2) => { return $1[\"after\"](...$2); })" + js_after :: ChildNode -> JSVal -> IO () +-- | +after :: (MonadDOM m, IsChildNode self, IsNodeOrString nodes) => self -> [nodes] -> m () +after self nodes = liftDOM (void (((toJSVal nodes) >>= \a2' -> js_after ((Types.toChildNode self)) a2'))) --- | -after :: - (MonadIO m, IsChildNode self, IsNodeOrString nodes) => - self -> [nodes] -> m () -after self nodes - = liftIO - (toJSVal nodes >>= \ nodes' -> js_after (toChildNode self) nodes') - -foreign import javascript safe "(($1, $2) => { return $1[\"replaceWith\"]($2); })" - js_replaceWith :: ChildNode -> JSVal -> IO () +foreign import javascript safe "(($1, $2) => { return $1[\"before\"](...$2); })" + js_before :: ChildNode -> JSVal -> IO () +-- | +before :: (MonadDOM m, IsChildNode self, IsNodeOrString nodes) => self -> [nodes] -> m () +before self nodes = liftDOM (void (((toJSVal nodes) >>= \a2' -> js_before ((Types.toChildNode self)) a2'))) --- | -replaceWith :: - (MonadIO m, IsChildNode self, IsNodeOrString nodes) => - self -> [nodes] -> m () -replaceWith self nodes - = liftIO - (toJSVal nodes >>= - \ nodes' -> js_replaceWith (toChildNode self) nodes') - -foreign import javascript safe "(($1) => { return $1[\"remove\"](); })" js_remove :: - ChildNode -> IO () +foreign import javascript safe "(($1) => { return $1[\"remove\"](); })" + js_remove :: ChildNode -> IO () +-- | +remove :: (MonadDOM m, IsChildNode self) => self -> m () +remove self = liftDOM (void ((js_remove ((Types.toChildNode self))))) --- | -remove :: (MonadIO m, IsChildNode self) => self -> m () -remove self = liftIO (js_remove (toChildNode self)) +foreign import javascript safe "(($1, $2) => { return $1[\"replaceWith\"](...$2); })" + js_replaceWith :: ChildNode -> JSVal -> IO () +-- | +replaceWith :: (MonadDOM m, IsChildNode self, IsNodeOrString nodes) => self -> [nodes] -> m () +replaceWith self nodes = liftDOM (void (((toJSVal nodes) >>= \a2' -> js_replaceWith ((Types.toChildNode self)) a2'))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/Client.hs b/src/GHCJS/DOM/JSFFI/Generated/Client.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/Client.hs @@ -0,0 +1,53 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from service-workers (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.Client + (js_postMessage, js_postMessageOptions, js_getUrl, js_getFrameType, js_getId, js_getType, postMessage, postMessageOptions, getUrl, getFrameType, getId, getType, Client(..), gTypeClient, IsClient, toClient) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1, $2, $3) => { return $1[\"postMessage\"]($2, $3); })" + js_postMessage :: Client -> JSVal -> JSVal -> IO () +-- | +postMessage :: (MonadDOM m, IsClient self) => self -> JSVal -> [GObject] -> m () +postMessage self message transfer = liftDOM (void (((toJSVal transfer) >>= \a3' -> js_postMessage ((Types.toClient self)) (message) a3'))) + +foreign import javascript safe "(($1, $2, $3) => { return $1[\"postMessage\"]($2, $3); })" + js_postMessageOptions :: Client -> JSVal -> JSVal -> IO () +-- | +postMessageOptions :: (MonadDOM m, IsClient self, IsStructuredSerializeOptions options) => self -> JSVal -> Maybe options -> m () +postMessageOptions self message options = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal options) >>= \a3' -> js_postMessageOptions ((Types.toClient self)) (message) a3'))) + +foreign import javascript unsafe "(($1) => { return $1[\"url\"]; })" + js_getUrl :: Client -> IO JSString +-- | +getUrl :: (MonadDOM m, IsClient self, FromJSString result) => self -> m result +getUrl self = liftDOM ((fromJSString <$> (js_getUrl ((Types.toClient self))))) + +foreign import javascript unsafe "(($1) => { return $1[\"frameType\"]; })" + js_getFrameType :: Client -> IO JSVal +-- | +getFrameType :: (MonadDOM m, IsClient self) => self -> m FrameType +getFrameType self = liftDOM (((js_getFrameType ((Types.toClient self))) >>= fromJSValUnchecked)) + +foreign import javascript unsafe "(($1) => { return $1[\"id\"]; })" + js_getId :: Client -> IO JSString +-- | +getId :: (MonadDOM m, IsClient self, FromJSString result) => self -> m result +getId self = liftDOM ((fromJSString <$> (js_getId ((Types.toClient self))))) + +foreign import javascript unsafe "(($1) => { return $1[\"type\"]; })" + js_getType :: Client -> IO JSVal +-- | +getType :: (MonadDOM m, IsClient self) => self -> m ClientType +getType self = liftDOM (((js_getType ((Types.toClient self))) >>= fromJSValUnchecked)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/ClientQueryOptions.hs b/src/GHCJS/DOM/JSFFI/Generated/ClientQueryOptions.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/ClientQueryOptions.hs @@ -0,0 +1,63 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from service-workers (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.ClientQueryOptions + (js_newClientQueryOptions, js_setIncludeUncontrolled, js_getIncludeUncontrolled, js_setType, js_getType, newClientQueryOptions, setIncludeUncontrolled, getIncludeUncontrolled, getIncludeUncontrolledUnsafe, getIncludeUncontrolledUnchecked, setType, getType, getTypeUnsafe, getTypeUnchecked, ClientQueryOptions(..), gTypeClientQueryOptions) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(() => { return ({}); })" + js_newClientQueryOptions :: IO ClientQueryOptions +-- | +newClientQueryOptions :: (MonadDOM m) => m ClientQueryOptions +newClientQueryOptions = liftDOM ((js_newClientQueryOptions)) + +foreign import javascript safe "(($1, $2) => { $1[\"includeUncontrolled\"] = $2; })" + js_setIncludeUncontrolled :: ClientQueryOptions -> Bool -> IO () +-- | +setIncludeUncontrolled :: (MonadDOM m) => ClientQueryOptions -> Bool -> m () +setIncludeUncontrolled self val = liftDOM (void ((js_setIncludeUncontrolled (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"includeUncontrolled\"]; })" + js_getIncludeUncontrolled :: ClientQueryOptions -> IO JSVal +-- | +getIncludeUncontrolled :: (MonadDOM m) => ClientQueryOptions -> m (Maybe Bool) +getIncludeUncontrolled self = liftDOM (((js_getIncludeUncontrolled (self)) >>= fromJSValUnchecked)) + +-- | +getIncludeUncontrolledUnsafe :: (MonadDOM m, HasCallStack) => ClientQueryOptions -> m Bool +getIncludeUncontrolledUnsafe self = liftDOM ((((js_getIncludeUncontrolled (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getIncludeUncontrolledUnchecked :: (MonadDOM m) => ClientQueryOptions -> m Bool +getIncludeUncontrolledUnchecked self = liftDOM ((pFromJSVal <$> (js_getIncludeUncontrolled (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"type\"] = $2; })" + js_setType :: ClientQueryOptions -> JSVal -> IO () +-- | +setType :: (MonadDOM m) => ClientQueryOptions -> ClientType -> m () +setType self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setType (self) a2'))) + +foreign import javascript unsafe "(($1) => { return $1[\"type\"]; })" + js_getType :: ClientQueryOptions -> IO JSVal +-- | +getType :: (MonadDOM m) => ClientQueryOptions -> m (Maybe ClientType) +getType self = liftDOM (((js_getType (self)) >>= fromJSValUnchecked)) + +-- | +getTypeUnsafe :: (MonadDOM m, HasCallStack) => ClientQueryOptions -> m ClientType +getTypeUnsafe self = liftDOM ((((js_getType (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getTypeUnchecked :: (MonadDOM m) => ClientQueryOptions -> m ClientType +getTypeUnchecked self = liftDOM ((pFromJSVal <$> (js_getType (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/Clients.hs b/src/GHCJS/DOM/JSFFI/Generated/Clients.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/Clients.hs @@ -0,0 +1,61 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from service-workers (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.Clients + (js_claim, js_get, js_matchAll, js_openWindow, claim, get, get_, matchAll, matchAll_, openWindow, openWindow_, openWindowUnsafe, openWindowUnchecked, Clients(..), gTypeClients) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript interruptible "(($1, $c) => { return $1[\"claim\"]().then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })" + js_claim :: Clients -> IO (JSVal, ()) +-- | +claim :: (MonadDOM m) => Clients -> m () +claim self = liftDOM (void (((js_claim (self)) >>= checkPromiseResult))) + +foreign import javascript interruptible "(($1, $2, $c) => { return $1[\"get\"]($2).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })" + js_get :: Clients -> JSString -> IO (JSVal, ClientOrUndefined) +-- | +get :: (MonadDOM m, ToJSString id) => Clients -> id -> m ClientOrUndefined +get self id = liftDOM (((js_get (self) (toJSString id)) >>= checkPromiseResult)) + +-- | +get_ :: (MonadDOM m, ToJSString id) => Clients -> id -> m () +get_ self id = liftDOM (void (((js_get (self) (toJSString id)) >>= checkPromiseResult))) + +foreign import javascript interruptible "(($1, $2, $c) => { return $1[\"matchAll\"]($2).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })" + js_matchAll :: Clients -> JSVal -> IO (JSVal, JSVal) +-- | +matchAll :: (MonadDOM m) => Clients -> Maybe ClientQueryOptions -> m [Client] +matchAll self options = liftDOM (((((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_matchAll (self) a2') >>= checkPromiseResult) >>= fromJSValUnchecked)) + +-- | +matchAll_ :: (MonadDOM m) => Clients -> Maybe ClientQueryOptions -> m () +matchAll_ self options = liftDOM (void ((((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_matchAll (self) a2') >>= checkPromiseResult))) + +foreign import javascript interruptible "(($1, $2, $c) => { return $1[\"openWindow\"]($2).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })" + js_openWindow :: Clients -> JSString -> IO (JSVal, JSVal) +-- | +openWindow :: (MonadDOM m, ToJSString url) => Clients -> url -> m (Maybe WindowClient) +openWindow self url = liftDOM ((((js_openWindow (self) (toJSString url)) >>= checkPromiseResult) >>= fromJSValUnchecked)) + +-- | +openWindow_ :: (MonadDOM m, ToJSString url) => Clients -> url -> m () +openWindow_ self url = liftDOM (void (((js_openWindow (self) (toJSString url)) >>= checkPromiseResult))) + +-- | +openWindowUnsafe :: (MonadDOM m, ToJSString url, HasCallStack) => Clients -> url -> m WindowClient +openWindowUnsafe self url = liftDOM (((((js_openWindow (self) (toJSString url)) >>= checkPromiseResult) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +openWindowUnchecked :: (MonadDOM m, ToJSString url) => Clients -> url -> m WindowClient +openWindowUnchecked self url = liftDOM ((pFromJSVal <$> ((js_openWindow (self) (toJSString url)) >>= checkPromiseResult))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/Clipboard.hs b/src/GHCJS/DOM/JSFFI/Generated/Clipboard.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/Clipboard.hs @@ -0,0 +1,49 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from clipboard-apis (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.Clipboard + (js_read, js_readText, js_write, js_writeText, read, read_, readText, readText_, write, writeText, Clipboard(..), gTypeClipboard) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript interruptible "(($1, $2, $c) => { return $1[\"read\"]($2).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })" + js_read :: Clipboard -> JSVal -> IO (JSVal, JSVal) +-- | +read :: (MonadDOM m) => Clipboard -> Maybe ClipboardUnsanitizedFormats -> m [ClipboardItem] +read self formats = liftDOM (((((P.maybe (P.return jsUndefined) toJSVal formats) >>= \a2' -> js_read (self) a2') >>= checkPromiseResult) >>= fromJSValUnchecked)) + +-- | +read_ :: (MonadDOM m) => Clipboard -> Maybe ClipboardUnsanitizedFormats -> m () +read_ self formats = liftDOM (void ((((P.maybe (P.return jsUndefined) toJSVal formats) >>= \a2' -> js_read (self) a2') >>= checkPromiseResult))) + +foreign import javascript interruptible "(($1, $c) => { return $1[\"readText\"]().then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })" + js_readText :: Clipboard -> IO (JSVal, JSString) +-- | +readText :: (MonadDOM m, FromJSString result) => Clipboard -> m result +readText self = liftDOM ((fromJSString <$> ((js_readText (self)) >>= checkPromiseResult))) + +-- | +readText_ :: (MonadDOM m) => Clipboard -> m () +readText_ self = liftDOM (void (((js_readText (self)) >>= checkPromiseResult))) + +foreign import javascript interruptible "(($1, $2, $c) => { return $1[\"write\"]($2).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })" + js_write :: Clipboard -> JSVal -> IO (JSVal, ()) +-- | +write :: (MonadDOM m) => Clipboard -> [ClipboardItem] -> m () +write self data' = liftDOM (void ((((toJSVal data') >>= \a2' -> js_write (self) a2') >>= checkPromiseResult))) + +foreign import javascript interruptible "(($1, $2, $c) => { return $1[\"writeText\"]($2).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })" + js_writeText :: Clipboard -> JSString -> IO (JSVal, ()) +-- | +writeText :: (MonadDOM m, ToJSString data') => Clipboard -> data' -> m () +writeText self data' = liftDOM (void (((js_writeText (self) (toJSString data')) >>= checkPromiseResult))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/ClipboardChangeEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/ClipboardChangeEvent.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/ClipboardChangeEvent.hs @@ -0,0 +1,18 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from clipboard-apis (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.ClipboardChangeEvent + (ClipboardChangeEvent(..), gTypeClipboardChangeEvent) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + diff --git a/src/GHCJS/DOM/JSFFI/Generated/ClipboardEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/ClipboardEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/ClipboardEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/ClipboardEvent.hs @@ -1,65 +1,37 @@ {-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE JavaScriptFFI #-} --- For HasCallStack compatibility +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from clipboard-apis (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.ClipboardEvent - (js_newClipboardEvent, newClipboardEvent, js_getClipboardData, - getClipboardData, getClipboardDataUnsafe, - getClipboardDataUnchecked, ClipboardEvent(..), gTypeClipboardEvent) + (js_newClipboardEvent, js_getClipboardData, newClipboardEvent, getClipboardData, getClipboardDataUnsafe, getClipboardDataUnchecked, ClipboardEvent(..), gTypeClipboardEvent) where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull, jsUndefined) -import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import Data.Maybe (fromJust) -import Data.Traversable (mapM) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types -import Control.Applicative ((<$>)) +import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums - -foreign import javascript unsafe - "(($1, $2) => { return new window[\"ClipboardEvent\"]($1,\n$2); })" js_newClipboardEvent :: - JSString -> Optional ClipboardEventInit -> IO ClipboardEvent --- | -newClipboardEvent :: - (MonadIO m, ToJSString type') => - type' -> Maybe ClipboardEventInit -> m ClipboardEvent -newClipboardEvent type' eventInitDict - = liftIO - (js_newClipboardEvent (toJSString type') - (maybeToOptional eventInitDict)) - -foreign import javascript unsafe "(($1) => { return $1[\"clipboardData\"]; })" - js_getClipboardData :: ClipboardEvent -> IO (Nullable DataTransfer) +foreign import javascript safe "(($1, $2) => { return new globalThis[\"ClipboardEvent\"]($1, $2); })" + js_newClipboardEvent :: JSString -> JSVal -> IO ClipboardEvent +-- | +newClipboardEvent :: (MonadDOM m, ToJSString type') => type' -> Maybe ClipboardEventInit -> m ClipboardEvent +newClipboardEvent type' eventInitDict = liftDOM (((P.maybe (P.return jsUndefined) toJSVal eventInitDict) >>= \a2' -> js_newClipboardEvent (toJSString type') a2')) --- | -getClipboardData :: - (MonadIO m) => ClipboardEvent -> m (Maybe DataTransfer) -getClipboardData self - = liftIO (nullableToMaybe <$> (js_getClipboardData self)) +foreign import javascript unsafe "(($1) => { return $1[\"clipboardData\"]; })" + js_getClipboardData :: ClipboardEvent -> IO JSVal +-- | +getClipboardData :: (MonadDOM m) => ClipboardEvent -> m (Maybe DataTransfer) +getClipboardData self = liftDOM (((js_getClipboardData (self)) >>= fromJSValUnchecked)) --- | -getClipboardDataUnsafe :: - (MonadIO m, HasCallStack) => ClipboardEvent -> m DataTransfer -getClipboardDataUnsafe self - = liftIO - ((nullableToMaybe <$> (js_getClipboardData self)) >>= - maybe (Prelude.error "Nothing to return") return) +-- | +getClipboardDataUnsafe :: (MonadDOM m, HasCallStack) => ClipboardEvent -> m DataTransfer +getClipboardDataUnsafe self = liftDOM ((((js_getClipboardData (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) --- | -getClipboardDataUnchecked :: - (MonadIO m) => ClipboardEvent -> m DataTransfer -getClipboardDataUnchecked self - = liftIO - (fromJust . nullableToMaybe <$> (js_getClipboardData self)) +-- | +getClipboardDataUnchecked :: (MonadDOM m) => ClipboardEvent -> m DataTransfer +getClipboardDataUnchecked self = liftDOM ((pFromJSVal <$> (js_getClipboardData (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/ClipboardEventInit.hs b/src/GHCJS/DOM/JSFFI/Generated/ClipboardEventInit.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/ClipboardEventInit.hs @@ -0,0 +1,43 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from clipboard-apis (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.ClipboardEventInit + (js_newClipboardEventInit, js_setClipboardData, js_getClipboardData, newClipboardEventInit, setClipboardData, getClipboardData, getClipboardDataUnsafe, getClipboardDataUnchecked, ClipboardEventInit(..), gTypeClipboardEventInit) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(() => { return ({}); })" + js_newClipboardEventInit :: IO ClipboardEventInit +-- | +newClipboardEventInit :: (MonadDOM m) => m ClipboardEventInit +newClipboardEventInit = liftDOM ((js_newClipboardEventInit)) + +foreign import javascript safe "(($1, $2) => { $1[\"clipboardData\"] = $2; })" + js_setClipboardData :: ClipboardEventInit -> JSVal -> IO () +-- | +setClipboardData :: (MonadDOM m) => ClipboardEventInit -> Maybe DataTransfer -> m () +setClipboardData self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setClipboardData (self) a2'))) + +foreign import javascript unsafe "(($1) => { return $1[\"clipboardData\"]; })" + js_getClipboardData :: ClipboardEventInit -> IO JSVal +-- | +getClipboardData :: (MonadDOM m) => ClipboardEventInit -> m (Maybe DataTransfer) +getClipboardData self = liftDOM (((js_getClipboardData (self)) >>= fromJSValUnchecked)) + +-- | +getClipboardDataUnsafe :: (MonadDOM m, HasCallStack) => ClipboardEventInit -> m DataTransfer +getClipboardDataUnsafe self = liftDOM ((((js_getClipboardData (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getClipboardDataUnchecked :: (MonadDOM m) => ClipboardEventInit -> m DataTransfer +getClipboardDataUnchecked self = liftDOM ((pFromJSVal <$> (js_getClipboardData (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/ClipboardItem.hs b/src/GHCJS/DOM/JSFFI/Generated/ClipboardItem.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/ClipboardItem.hs @@ -0,0 +1,55 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from clipboard-apis (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.ClipboardItem + (js_newClipboardItem, js_getType, js_supports, js_getPresentationStyle, js_getTypes, newClipboardItem, getType, getType_, supports, supports_, getPresentationStyle, getTypes, ClipboardItem(..), gTypeClipboardItem) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1, $2) => { return new globalThis[\"ClipboardItem\"]($1, $2); })" + js_newClipboardItem :: JSVal -> JSVal -> IO ClipboardItem +-- | +newClipboardItem :: (MonadDOM m) => (Record JSString JSVal) -> Maybe ClipboardItemOptions -> m ClipboardItem +newClipboardItem items options = liftDOM (((toJSVal items) >>= \a1' -> (P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_newClipboardItem a1' a2')) + +foreign import javascript interruptible "(($1, $2, $c) => { return $1[\"getType\"]($2).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })" + js_getType :: ClipboardItem -> JSString -> IO (JSVal, Blob) +-- | +getType :: (MonadDOM m, ToJSString type') => ClipboardItem -> type' -> m Blob +getType self type' = liftDOM (((js_getType (self) (toJSString type')) >>= checkPromiseResult)) + +-- | +getType_ :: (MonadDOM m, ToJSString type') => ClipboardItem -> type' -> m () +getType_ self type' = liftDOM (void (((js_getType (self) (toJSString type')) >>= checkPromiseResult))) + +foreign import javascript safe "(($1) => { return globalThis[\"ClipboardItem\"][\"supports\"]($1); })" + js_supports :: JSString -> IO Bool +-- | +supports :: (MonadDOM m, ToJSString type') => type' -> m Bool +supports type' = liftDOM ((js_supports (toJSString type'))) + +-- | +supports_ :: (MonadDOM m, ToJSString type') => type' -> m () +supports_ type' = liftDOM (void ((js_supports (toJSString type')))) + +foreign import javascript unsafe "(($1) => { return $1[\"presentationStyle\"]; })" + js_getPresentationStyle :: ClipboardItem -> IO JSVal +-- | +getPresentationStyle :: (MonadDOM m) => ClipboardItem -> m PresentationStyle +getPresentationStyle self = liftDOM (((js_getPresentationStyle (self)) >>= fromJSValUnchecked)) + +foreign import javascript unsafe "(($1) => { return $1[\"types\"]; })" + js_getTypes :: ClipboardItem -> IO JSVal +-- | +getTypes :: (MonadDOM m, FromJSString result) => ClipboardItem -> m [result] +getTypes self = liftDOM (((js_getTypes (self)) >>= fromJSValUnchecked)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/ClipboardItemOptions.hs b/src/GHCJS/DOM/JSFFI/Generated/ClipboardItemOptions.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/ClipboardItemOptions.hs @@ -0,0 +1,43 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from clipboard-apis (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.ClipboardItemOptions + (js_newClipboardItemOptions, js_setPresentationStyle, js_getPresentationStyle, newClipboardItemOptions, setPresentationStyle, getPresentationStyle, getPresentationStyleUnsafe, getPresentationStyleUnchecked, ClipboardItemOptions(..), gTypeClipboardItemOptions) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(() => { return ({}); })" + js_newClipboardItemOptions :: IO ClipboardItemOptions +-- | +newClipboardItemOptions :: (MonadDOM m) => m ClipboardItemOptions +newClipboardItemOptions = liftDOM ((js_newClipboardItemOptions)) + +foreign import javascript safe "(($1, $2) => { $1[\"presentationStyle\"] = $2; })" + js_setPresentationStyle :: ClipboardItemOptions -> JSVal -> IO () +-- | +setPresentationStyle :: (MonadDOM m) => ClipboardItemOptions -> PresentationStyle -> m () +setPresentationStyle self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setPresentationStyle (self) a2'))) + +foreign import javascript unsafe "(($1) => { return $1[\"presentationStyle\"]; })" + js_getPresentationStyle :: ClipboardItemOptions -> IO JSVal +-- | +getPresentationStyle :: (MonadDOM m) => ClipboardItemOptions -> m (Maybe PresentationStyle) +getPresentationStyle self = liftDOM (((js_getPresentationStyle (self)) >>= fromJSValUnchecked)) + +-- | +getPresentationStyleUnsafe :: (MonadDOM m, HasCallStack) => ClipboardItemOptions -> m PresentationStyle +getPresentationStyleUnsafe self = liftDOM ((((js_getPresentationStyle (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getPresentationStyleUnchecked :: (MonadDOM m) => ClipboardItemOptions -> m PresentationStyle +getPresentationStyleUnchecked self = liftDOM ((pFromJSVal <$> (js_getPresentationStyle (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/ClipboardUnsanitizedFormats.hs b/src/GHCJS/DOM/JSFFI/Generated/ClipboardUnsanitizedFormats.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/ClipboardUnsanitizedFormats.hs @@ -0,0 +1,43 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from clipboard-apis (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.ClipboardUnsanitizedFormats + (js_newClipboardUnsanitizedFormats, js_setUnsanitized, js_getUnsanitized, newClipboardUnsanitizedFormats, setUnsanitized, getUnsanitized, getUnsanitizedUnsafe, getUnsanitizedUnchecked, ClipboardUnsanitizedFormats(..), gTypeClipboardUnsanitizedFormats) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(() => { return ({}); })" + js_newClipboardUnsanitizedFormats :: IO ClipboardUnsanitizedFormats +-- | +newClipboardUnsanitizedFormats :: (MonadDOM m) => m ClipboardUnsanitizedFormats +newClipboardUnsanitizedFormats = liftDOM ((js_newClipboardUnsanitizedFormats)) + +foreign import javascript safe "(($1, $2) => { $1[\"unsanitized\"] = $2; })" + js_setUnsanitized :: ClipboardUnsanitizedFormats -> JSVal -> IO () +-- | +setUnsanitized :: (MonadDOM m, ToJSString val) => ClipboardUnsanitizedFormats -> [val] -> m () +setUnsanitized self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setUnsanitized (self) a2'))) + +foreign import javascript unsafe "(($1) => { return $1[\"unsanitized\"]; })" + js_getUnsanitized :: ClipboardUnsanitizedFormats -> IO JSVal +-- | +getUnsanitized :: (MonadDOM m, FromJSString result) => ClipboardUnsanitizedFormats -> m (Maybe [result]) +getUnsanitized self = liftDOM (((js_getUnsanitized (self)) >>= fromJSValUnchecked)) + +-- | +getUnsanitizedUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => ClipboardUnsanitizedFormats -> m [result] +getUnsanitizedUnsafe self = liftDOM ((((js_getUnsanitized (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getUnsanitizedUnchecked :: (MonadDOM m, FromJSString result) => ClipboardUnsanitizedFormats -> m [result] +getUnsanitizedUnchecked self = liftDOM (((js_getUnsanitized (self)) >>= fromJSValUnchecked)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CloseEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/CloseEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/CloseEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/CloseEvent.hs @@ -1,63 +1,41 @@ {-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE JavaScriptFFI #-} --- For HasCallStack compatibility +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from websockets (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.CloseEvent - (js_newCloseEvent, newCloseEvent, js_getWasClean, getWasClean, - js_getCode, getCode, js_getReason, getReason, CloseEvent(..), - gTypeCloseEvent) + (js_newCloseEvent, js_getWasClean, js_getCode, js_getReason, newCloseEvent, getWasClean, getCode, getReason, CloseEvent(..), gTypeCloseEvent) where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull, jsUndefined) -import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import Data.Maybe (fromJust) -import Data.Traversable (mapM) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types -import Control.Applicative ((<$>)) +import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums - -foreign import javascript unsafe - "(($1, $2) => { return new window[\"CloseEvent\"]($1, $2); })" js_newCloseEvent :: - JSString -> Optional CloseEventInit -> IO CloseEvent --- | -newCloseEvent :: - (MonadIO m, ToJSString type') => - type' -> Maybe CloseEventInit -> m CloseEvent -newCloseEvent type' eventInitDict - = liftIO - (js_newCloseEvent (toJSString type') - (maybeToOptional eventInitDict)) - -foreign import javascript unsafe "(($1) => { return ($1[\"wasClean\"] ? 1 : 0); })" - js_getWasClean :: CloseEvent -> IO Bool +foreign import javascript safe "(($1, $2) => { return new globalThis[\"CloseEvent\"]($1, $2); })" + js_newCloseEvent :: JSString -> JSVal -> IO CloseEvent +-- | +newCloseEvent :: (MonadDOM m, ToJSString type') => type' -> Maybe CloseEventInit -> m CloseEvent +newCloseEvent type' eventInitDict = liftDOM (((P.maybe (P.return jsUndefined) toJSVal eventInitDict) >>= \a2' -> js_newCloseEvent (toJSString type') a2')) --- | -getWasClean :: (MonadIO m) => CloseEvent -> m Bool -getWasClean self = liftIO (js_getWasClean self) - -foreign import javascript unsafe "(($1) => { return $1[\"code\"]; })" js_getCode :: - CloseEvent -> IO Word +foreign import javascript unsafe "(($1) => { return $1[\"wasClean\"]; })" + js_getWasClean :: CloseEvent -> IO Bool +-- | +getWasClean :: (MonadDOM m) => CloseEvent -> m Bool +getWasClean self = liftDOM ((js_getWasClean (self))) --- | -getCode :: (MonadIO m) => CloseEvent -> m Word -getCode self = liftIO (js_getCode self) - -foreign import javascript unsafe "(($1) => { return $1[\"reason\"]; })" js_getReason :: - CloseEvent -> IO JSString +foreign import javascript unsafe "(($1) => { return $1[\"code\"]; })" + js_getCode :: CloseEvent -> IO Word +-- | +getCode :: (MonadDOM m) => CloseEvent -> m Word +getCode self = liftDOM ((js_getCode (self))) --- | -getReason :: - (MonadIO m, FromJSString result) => CloseEvent -> m result -getReason self = liftIO (fromJSString <$> (js_getReason self)) +foreign import javascript unsafe "(($1) => { return $1[\"reason\"]; })" + js_getReason :: CloseEvent -> IO JSString +-- | +getReason :: (MonadDOM m, FromJSString result) => CloseEvent -> m result +getReason self = liftDOM ((fromJSString <$> (js_getReason (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CloseEventInit.hs b/src/GHCJS/DOM/JSFFI/Generated/CloseEventInit.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CloseEventInit.hs @@ -0,0 +1,83 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from websockets (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CloseEventInit + (js_newCloseEventInit, js_setWasClean, js_getWasClean, js_setCode, js_getCode, js_setReason, js_getReason, newCloseEventInit, setWasClean, getWasClean, getWasCleanUnsafe, getWasCleanUnchecked, setCode, getCode, getCodeUnsafe, getCodeUnchecked, setReason, getReason, getReasonUnsafe, getReasonUnchecked, CloseEventInit(..), gTypeCloseEventInit) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(() => { return ({}); })" + js_newCloseEventInit :: IO CloseEventInit +-- | +newCloseEventInit :: (MonadDOM m) => m CloseEventInit +newCloseEventInit = liftDOM ((js_newCloseEventInit)) + +foreign import javascript safe "(($1, $2) => { $1[\"wasClean\"] = $2; })" + js_setWasClean :: CloseEventInit -> Bool -> IO () +-- | +setWasClean :: (MonadDOM m) => CloseEventInit -> Bool -> m () +setWasClean self val = liftDOM (void ((js_setWasClean (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"wasClean\"]; })" + js_getWasClean :: CloseEventInit -> IO JSVal +-- | +getWasClean :: (MonadDOM m) => CloseEventInit -> m (Maybe Bool) +getWasClean self = liftDOM (((js_getWasClean (self)) >>= fromJSValUnchecked)) + +-- | +getWasCleanUnsafe :: (MonadDOM m, HasCallStack) => CloseEventInit -> m Bool +getWasCleanUnsafe self = liftDOM ((((js_getWasClean (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getWasCleanUnchecked :: (MonadDOM m) => CloseEventInit -> m Bool +getWasCleanUnchecked self = liftDOM ((pFromJSVal <$> (js_getWasClean (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"code\"] = $2; })" + js_setCode :: CloseEventInit -> Word -> IO () +-- | +setCode :: (MonadDOM m) => CloseEventInit -> Word -> m () +setCode self val = liftDOM (void ((js_setCode (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"code\"]; })" + js_getCode :: CloseEventInit -> IO JSVal +-- | +getCode :: (MonadDOM m) => CloseEventInit -> m (Maybe Word) +getCode self = liftDOM (((js_getCode (self)) >>= fromJSValUnchecked)) + +-- | +getCodeUnsafe :: (MonadDOM m, HasCallStack) => CloseEventInit -> m Word +getCodeUnsafe self = liftDOM ((((js_getCode (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getCodeUnchecked :: (MonadDOM m) => CloseEventInit -> m Word +getCodeUnchecked self = liftDOM ((pFromJSVal <$> (js_getCode (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"reason\"] = $2; })" + js_setReason :: CloseEventInit -> JSString -> IO () +-- | +setReason :: (MonadDOM m, ToJSString val) => CloseEventInit -> val -> m () +setReason self val = liftDOM (void ((js_setReason (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"reason\"]; })" + js_getReason :: CloseEventInit -> IO JSVal +-- | +getReason :: (MonadDOM m, FromJSString result) => CloseEventInit -> m (Maybe result) +getReason self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getReason (self)))) + +-- | +getReasonUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => CloseEventInit -> m result +getReasonUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getReason (self))) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getReasonUnchecked :: (MonadDOM m, FromJSString result) => CloseEventInit -> m result +getReasonUnchecked self = liftDOM ((pFromJSVal <$> (js_getReason (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CloseWatcher.hs b/src/GHCJS/DOM/JSFFI/Generated/CloseWatcher.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CloseWatcher.hs @@ -0,0 +1,49 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from html (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CloseWatcher + (js_newCloseWatcher, js_close, js_destroy, js_requestClose, newCloseWatcher, close, destroy, requestClose, cancel, closeEvent, CloseWatcher(..), gTypeCloseWatcher) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1) => { return new globalThis[\"CloseWatcher\"]($1); })" + js_newCloseWatcher :: JSVal -> IO CloseWatcher +-- | +newCloseWatcher :: (MonadDOM m) => Maybe CloseWatcherOptions -> m CloseWatcher +newCloseWatcher options = liftDOM (((P.maybe (P.return jsUndefined) toJSVal options) >>= \a1' -> js_newCloseWatcher a1')) + +foreign import javascript safe "(($1) => { return $1[\"close\"](); })" + js_close :: CloseWatcher -> IO () +-- | +close :: (MonadDOM m) => CloseWatcher -> m () +close self = liftDOM (void ((js_close (self)))) + +foreign import javascript safe "(($1) => { return $1[\"destroy\"](); })" + js_destroy :: CloseWatcher -> IO () +-- | +destroy :: (MonadDOM m) => CloseWatcher -> m () +destroy self = liftDOM (void ((js_destroy (self)))) + +foreign import javascript safe "(($1) => { return $1[\"requestClose\"](); })" + js_requestClose :: CloseWatcher -> IO () +-- | +requestClose :: (MonadDOM m) => CloseWatcher -> m () +requestClose self = liftDOM (void ((js_requestClose (self)))) + +-- | +cancel :: EventName CloseWatcher Event +cancel = unsafeEventName (toJSString "cancel") + +-- | +closeEvent :: EventName CloseWatcher Event +closeEvent = unsafeEventNameAsync (toJSString "close") diff --git a/src/GHCJS/DOM/JSFFI/Generated/CloseWatcherOptions.hs b/src/GHCJS/DOM/JSFFI/Generated/CloseWatcherOptions.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CloseWatcherOptions.hs @@ -0,0 +1,43 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from html (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CloseWatcherOptions + (js_newCloseWatcherOptions, js_setSignal, js_getSignal, newCloseWatcherOptions, setSignal, getSignal, getSignalUnsafe, getSignalUnchecked, CloseWatcherOptions(..), gTypeCloseWatcherOptions) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(() => { return ({}); })" + js_newCloseWatcherOptions :: IO CloseWatcherOptions +-- | +newCloseWatcherOptions :: (MonadDOM m) => m CloseWatcherOptions +newCloseWatcherOptions = liftDOM ((js_newCloseWatcherOptions)) + +foreign import javascript safe "(($1, $2) => { $1[\"signal\"] = $2; })" + js_setSignal :: CloseWatcherOptions -> AbortSignal -> IO () +-- | +setSignal :: (MonadDOM m, IsAbortSignal val) => CloseWatcherOptions -> val -> m () +setSignal self val = liftDOM (void ((js_setSignal (self) (Types.toAbortSignal val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"signal\"]; })" + js_getSignal :: CloseWatcherOptions -> IO JSVal +-- | +getSignal :: (MonadDOM m) => CloseWatcherOptions -> m (Maybe AbortSignal) +getSignal self = liftDOM (((js_getSignal (self)) >>= fromJSValUnchecked)) + +-- | +getSignalUnsafe :: (MonadDOM m, HasCallStack) => CloseWatcherOptions -> m AbortSignal +getSignalUnsafe self = liftDOM ((((js_getSignal (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getSignalUnchecked :: (MonadDOM m) => CloseWatcherOptions -> m AbortSignal +getSignalUnchecked self = liftDOM ((pFromJSVal <$> (js_getSignal (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CommandEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/CommandEvent.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CommandEvent.hs @@ -0,0 +1,43 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from html (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CommandEvent + (js_newCommandEvent, js_getSource, js_getCommand, newCommandEvent, getSource, getSourceUnsafe, getSourceUnchecked, getCommand, CommandEvent(..), gTypeCommandEvent) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1, $2) => { return new globalThis[\"CommandEvent\"]($1, $2); })" + js_newCommandEvent :: JSString -> JSVal -> IO CommandEvent +-- | +newCommandEvent :: (MonadDOM m, ToJSString type') => type' -> Maybe CommandEventInit -> m CommandEvent +newCommandEvent type' eventInitDict = liftDOM (((P.maybe (P.return jsUndefined) toJSVal eventInitDict) >>= \a2' -> js_newCommandEvent (toJSString type') a2')) + +foreign import javascript unsafe "(($1) => { return $1[\"source\"]; })" + js_getSource :: CommandEvent -> IO JSVal +-- | +getSource :: (MonadDOM m) => CommandEvent -> m (Maybe Element) +getSource self = liftDOM (((js_getSource (self)) >>= fromJSValUnchecked)) + +-- | +getSourceUnsafe :: (MonadDOM m, HasCallStack) => CommandEvent -> m Element +getSourceUnsafe self = liftDOM ((((js_getSource (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getSourceUnchecked :: (MonadDOM m) => CommandEvent -> m Element +getSourceUnchecked self = liftDOM ((pFromJSVal <$> (js_getSource (self)))) + +foreign import javascript unsafe "(($1) => { return $1[\"command\"]; })" + js_getCommand :: CommandEvent -> IO JSString +-- | +getCommand :: (MonadDOM m, FromJSString result) => CommandEvent -> m result +getCommand self = liftDOM ((fromJSString <$> (js_getCommand (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CommandEventInit.hs b/src/GHCJS/DOM/JSFFI/Generated/CommandEventInit.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CommandEventInit.hs @@ -0,0 +1,55 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from html (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CommandEventInit + (js_newCommandEventInit, js_setSource, js_getSource, js_setCommand, js_getCommand, newCommandEventInit, setSource, getSource, getSourceUnsafe, getSourceUnchecked, setCommand, getCommand, getCommandUnsafe, getCommandUnchecked, CommandEventInit(..), gTypeCommandEventInit) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(() => { return ({}); })" + js_newCommandEventInit :: IO CommandEventInit +-- | +newCommandEventInit :: (MonadDOM m) => m CommandEventInit +newCommandEventInit = liftDOM ((js_newCommandEventInit)) + +foreign import javascript safe "(($1, $2) => { $1[\"source\"] = $2; })" + js_setSource :: CommandEventInit -> JSVal -> IO () +setSource :: (MonadDOM m, IsElement val) => CommandEventInit -> Maybe val -> m () +setSource self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setSource (self) a2'))) + +foreign import javascript unsafe "(($1) => { return $1[\"source\"]; })" + js_getSource :: CommandEventInit -> IO JSVal +getSource :: (MonadDOM m) => CommandEventInit -> m (Maybe Element) +getSource self = liftDOM (((js_getSource (self)) >>= fromJSValUnchecked)) + +getSourceUnsafe :: (MonadDOM m, HasCallStack) => CommandEventInit -> m Element +getSourceUnsafe self = liftDOM ((((js_getSource (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +getSourceUnchecked :: (MonadDOM m) => CommandEventInit -> m Element +getSourceUnchecked self = liftDOM ((pFromJSVal <$> (js_getSource (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"command\"] = $2; })" + js_setCommand :: CommandEventInit -> JSString -> IO () +setCommand :: (MonadDOM m, ToJSString val) => CommandEventInit -> val -> m () +setCommand self val = liftDOM (void ((js_setCommand (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"command\"]; })" + js_getCommand :: CommandEventInit -> IO JSVal +getCommand :: (MonadDOM m, FromJSString result) => CommandEventInit -> m (Maybe result) +getCommand self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getCommand (self)))) + +getCommandUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => CommandEventInit -> m result +getCommandUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getCommand (self))) >>= P.maybe (P.error "Nothing to return") P.return)) + +getCommandUnchecked :: (MonadDOM m, FromJSString result) => CommandEventInit -> m result +getCommandUnchecked self = liftDOM ((pFromJSVal <$> (js_getCommand (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CommandLineAPIHost.hs b/src/GHCJS/DOM/JSFFI/Generated/CommandLineAPIHost.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/CommandLineAPIHost.hs +++ /dev/null @@ -1,128 +0,0 @@ -{-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE JavaScriptFFI #-} --- For HasCallStack compatibility -{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} -module GHCJS.DOM.JSFFI.Generated.CommandLineAPIHost - (js_clearConsoleMessages, clearConsoleMessages, js_copyText, - copyText, js_inspect, inspect, js_inspectedObject, inspectedObject, - inspectedObject_, js_getEventListeners, getEventListeners, - getEventListeners_, js_databaseId, databaseId, databaseId_, - js_storageId, storageId, storageId_, CommandLineAPIHost(..), - gTypeCommandLineAPIHost) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull, jsUndefined) -import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import Data.Maybe (fromJust) -import Data.Traversable (mapM) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) -import GHCJS.DOM.JSFFI.Generated.Enums - -foreign import javascript unsafe "(($1) => { return $1[\"clearConsoleMessages\"](); })" - js_clearConsoleMessages :: CommandLineAPIHost -> IO () - --- | -clearConsoleMessages :: (MonadIO m) => CommandLineAPIHost -> m () -clearConsoleMessages self = liftIO (js_clearConsoleMessages self) - -foreign import javascript unsafe "(($1, $2) => { return $1[\"copyText\"]($2); })" js_copyText - :: CommandLineAPIHost -> JSString -> IO () - --- | -copyText :: - (MonadIO m, ToJSString text) => CommandLineAPIHost -> text -> m () -copyText self text = liftIO (js_copyText self (toJSString text)) - -foreign import javascript unsafe "(($1, $2, $3) => { return $1[\"inspect\"]($2, $3); })" - js_inspect :: CommandLineAPIHost -> JSVal -> JSVal -> IO () - --- | -inspect :: - (MonadIO m, ToJSVal objectId, ToJSVal hints) => - CommandLineAPIHost -> objectId -> hints -> m () -inspect self objectId hints - = liftIO - (toJSVal hints >>= - \ hints' -> - toJSVal objectId >>= \ objectId' -> js_inspect self objectId' - hints') - -foreign import javascript unsafe "(($1) => { return $1[\"inspectedObject\"](); })" - js_inspectedObject :: CommandLineAPIHost -> IO JSVal - --- | -inspectedObject :: (MonadIO m) => CommandLineAPIHost -> m JSVal -inspectedObject self = liftIO (js_inspectedObject self) - --- | -inspectedObject_ :: (MonadIO m) => CommandLineAPIHost -> m () -inspectedObject_ self = liftIO (void (js_inspectedObject self)) - -foreign import javascript unsafe "(($1, $2) => { return $1[\"getEventListeners\"]($2); })" - js_getEventListeners :: CommandLineAPIHost -> Node -> IO Array - --- | -getEventListeners :: - (MonadIO m, IsNode node) => CommandLineAPIHost -> node -> m Array -getEventListeners self node - = liftIO (js_getEventListeners self (toNode node)) - --- | -getEventListeners_ :: - (MonadIO m, IsNode node) => CommandLineAPIHost -> node -> m () -getEventListeners_ self node - = liftIO (void (js_getEventListeners self (toNode node))) - -foreign import javascript unsafe "(($1, $2) => { return $1[\"databaseId\"]($2); })" - js_databaseId :: CommandLineAPIHost -> JSVal -> IO JSString - --- | -databaseId :: - (MonadIO m, ToJSVal database, FromJSString result) => - CommandLineAPIHost -> database -> m result -databaseId self database - = liftIO - (fromJSString <$> - (toJSVal database >>= \ database' -> js_databaseId self database')) - --- | -databaseId_ :: - (MonadIO m, ToJSVal database) => - CommandLineAPIHost -> database -> m () -databaseId_ self database - = liftIO - (void - (toJSVal database >>= \ database' -> js_databaseId self database')) - -foreign import javascript unsafe "(($1, $2) => { return $1[\"storageId\"]($2); })" - js_storageId :: CommandLineAPIHost -> JSVal -> IO JSString - --- | -storageId :: - (MonadIO m, ToJSVal storage, FromJSString result) => - CommandLineAPIHost -> storage -> m result -storageId self storage - = liftIO - (fromJSString <$> - (toJSVal storage >>= \ storage' -> js_storageId self storage')) - --- | -storageId_ :: - (MonadIO m, ToJSVal storage) => - CommandLineAPIHost -> storage -> m () -storageId_ self storage - = liftIO - (void - (toJSVal storage >>= \ storage' -> js_storageId self storage')) diff --git a/src/GHCJS/DOM/JSFFI/Generated/Comment.hs b/src/GHCJS/DOM/JSFFI/Generated/Comment.hs --- a/src/GHCJS/DOM/JSFFI/Generated/Comment.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/Comment.hs @@ -1,34 +1,23 @@ {-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE JavaScriptFFI #-} --- For HasCallStack compatibility +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from dom (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.Comment - (js_newComment, newComment, Comment(..), gTypeComment) where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull, jsUndefined) -import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) + (js_newComment, newComment, Comment(..), gTypeComment) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import Data.Maybe (fromJust) -import Data.Traversable (mapM) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types -import Control.Applicative ((<$>)) +import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums - -foreign import javascript unsafe "(($1) => { return new window[\"Comment\"]($1); })" - js_newComment :: Optional JSString -> IO Comment --- | -newComment :: - (MonadIO m, ToJSString data') => Maybe data' -> m Comment -newComment data' - = liftIO (js_newComment (toOptionalJSString data')) +foreign import javascript safe "(($1) => { return new globalThis[\"Comment\"]($1); })" + js_newComment :: (Optional JSString) -> IO Comment +-- | +newComment :: (MonadDOM m, ToJSString data') => Maybe data' -> m Comment +newComment data' = liftDOM ((js_newComment (toOptionalJSString data'))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CompositionEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/CompositionEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/CompositionEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/CompositionEvent.hs @@ -1,71 +1,35 @@ {-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE JavaScriptFFI #-} --- For HasCallStack compatibility +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from uievents (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.CompositionEvent - (js_newCompositionEvent, newCompositionEvent, - js_initCompositionEvent, initCompositionEvent, js_getData, getData, - CompositionEvent(..), gTypeCompositionEvent) + (js_newCompositionEvent, js_initCompositionEvent, js_getData, newCompositionEvent, initCompositionEvent, getData, CompositionEvent(..), gTypeCompositionEvent) where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull, jsUndefined) -import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import Data.Maybe (fromJust) -import Data.Traversable (mapM) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types -import Control.Applicative ((<$>)) +import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums - -foreign import javascript unsafe - "(($1, $2) => { return new window[\"CompositionEvent\"]($1,\n$2); })" js_newCompositionEvent - :: JSString -> Optional CompositionEventInit -> IO CompositionEvent --- | -newCompositionEvent :: - (MonadIO m, ToJSString type') => - type' -> Maybe CompositionEventInit -> m CompositionEvent -newCompositionEvent type' eventInitDict - = liftIO - (js_newCompositionEvent (toJSString type') - (maybeToOptional eventInitDict)) - -foreign import javascript unsafe - "(($1, $2, $3, $4, $5, $6) => { return $1[\"initCompositionEvent\"]($2,\n$3, $4, $5, $6); })" - js_initCompositionEvent :: - CompositionEvent -> - Optional JSString -> - Bool -> Bool -> Optional Window -> Optional JSString -> IO () +foreign import javascript safe "(($1, $2) => { return new globalThis[\"CompositionEvent\"]($1, $2); })" + js_newCompositionEvent :: JSString -> JSVal -> IO CompositionEvent +-- | +newCompositionEvent :: (MonadDOM m, ToJSString type') => type' -> Maybe CompositionEventInit -> m CompositionEvent +newCompositionEvent type' eventInitDict = liftDOM (((P.maybe (P.return jsUndefined) toJSVal eventInitDict) >>= \a2' -> js_newCompositionEvent (toJSString type') a2')) --- | -initCompositionEvent :: - (MonadIO m, ToJSString typeArg, ToJSString dataArg) => - CompositionEvent -> - Maybe typeArg -> - Bool -> Bool -> Maybe Window -> Maybe dataArg -> m () -initCompositionEvent self typeArg canBubbleArg cancelableArg - viewArg dataArg - = liftIO - (js_initCompositionEvent self (toOptionalJSString typeArg) - canBubbleArg - cancelableArg - (maybeToOptional viewArg) - (toOptionalJSString dataArg)) - -foreign import javascript unsafe "(($1) => { return $1[\"data\"]; })" js_getData :: - CompositionEvent -> IO JSString +foreign import javascript safe "(($1, $2, $3, $4, $5, $6) => { return $1[\"initCompositionEvent\"]($2, $3, $4, $5, $6); })" + js_initCompositionEvent :: CompositionEvent -> JSString -> JSVal -> JSVal -> JSVal -> (Optional JSString) -> IO () +-- | +initCompositionEvent :: (MonadDOM m, ToJSString typeArg, ToJSString dataArg) => CompositionEvent -> typeArg -> Maybe Bool -> Maybe Bool -> Maybe Window -> Maybe dataArg -> m () +initCompositionEvent self typeArg bubblesArg cancelableArg viewArg dataArg = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal bubblesArg) >>= \a3' -> (P.maybe (P.return jsUndefined) toJSVal cancelableArg) >>= \a4' -> (toJSVal viewArg) >>= \a5' -> js_initCompositionEvent (self) (toJSString typeArg) a3' a4' a5' (toOptionalJSString dataArg)))) --- | -getData :: - (MonadIO m, FromJSString result) => CompositionEvent -> m result -getData self = liftIO (fromJSString <$> (js_getData self)) +foreign import javascript unsafe "(($1) => { return $1[\"data\"]; })" + js_getData :: CompositionEvent -> IO JSString +-- | +getData :: (MonadDOM m, FromJSString result) => CompositionEvent -> m result +getData self = liftDOM ((fromJSString <$> (js_getData (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CompositionEventInit.hs b/src/GHCJS/DOM/JSFFI/Generated/CompositionEventInit.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CompositionEventInit.hs @@ -0,0 +1,43 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from uievents (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CompositionEventInit + (js_newCompositionEventInit, js_setData, js_getData, newCompositionEventInit, setData, getData, getDataUnsafe, getDataUnchecked, CompositionEventInit(..), gTypeCompositionEventInit) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(() => { return ({}); })" + js_newCompositionEventInit :: IO CompositionEventInit +-- | +newCompositionEventInit :: (MonadDOM m) => m CompositionEventInit +newCompositionEventInit = liftDOM ((js_newCompositionEventInit)) + +foreign import javascript safe "(($1, $2) => { $1[\"data\"] = $2; })" + js_setData :: CompositionEventInit -> JSString -> IO () +-- | +setData :: (MonadDOM m, ToJSString val) => CompositionEventInit -> val -> m () +setData self val = liftDOM (void ((js_setData (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"data\"]; })" + js_getData :: CompositionEventInit -> IO JSVal +-- | +getData :: (MonadDOM m, FromJSString result) => CompositionEventInit -> m (Maybe result) +getData self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getData (self)))) + +-- | +getDataUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => CompositionEventInit -> m result +getDataUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getData (self))) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getDataUnchecked :: (MonadDOM m, FromJSString result) => CompositionEventInit -> m result +getDataUnchecked self = liftDOM ((pFromJSVal <$> (js_getData (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CompressionStream.hs b/src/GHCJS/DOM/JSFFI/Generated/CompressionStream.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CompressionStream.hs @@ -0,0 +1,23 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from compression (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CompressionStream + (js_newCompressionStream, newCompressionStream, CompressionStream(..), gTypeCompressionStream) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1) => { return new globalThis[\"CompressionStream\"]($1); })" + js_newCompressionStream :: JSVal -> IO CompressionStream +-- | +newCompressionStream :: (MonadDOM m) => CompressionFormat -> m CompressionStream +newCompressionStream format = liftDOM (((toJSVal format) >>= \a1' -> js_newCompressionStream a1')) diff --git a/src/GHCJS/DOM/JSFFI/Generated/ComputedEffectTiming.hs b/src/GHCJS/DOM/JSFFI/Generated/ComputedEffectTiming.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/ComputedEffectTiming.hs @@ -0,0 +1,143 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from web-animations-1 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.ComputedEffectTiming + (js_newComputedEffectTiming, js_setProgress, js_getProgress, js_setCurrentIteration, js_getCurrentIteration, js_setStartTime, js_getStartTime, js_setEndTime, js_getEndTime, js_setActiveDuration, js_getActiveDuration, js_setLocalTime, js_getLocalTime, newComputedEffectTiming, setProgress, getProgress, getProgressUnsafe, getProgressUnchecked, setCurrentIteration, getCurrentIteration, getCurrentIterationUnsafe, getCurrentIterationUnchecked, setStartTime, getStartTime, getStartTimeUnsafe, getStartTimeUnchecked, setEndTime, getEndTime, getEndTimeUnsafe, getEndTimeUnchecked, setActiveDuration, getActiveDuration, getActiveDurationUnsafe, getActiveDurationUnchecked, setLocalTime, getLocalTime, getLocalTimeUnsafe, getLocalTimeUnchecked, ComputedEffectTiming(..), gTypeComputedEffectTiming) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(() => { return ({}); })" + js_newComputedEffectTiming :: IO ComputedEffectTiming +-- | +newComputedEffectTiming :: (MonadDOM m) => m ComputedEffectTiming +newComputedEffectTiming = liftDOM ((js_newComputedEffectTiming)) + +foreign import javascript safe "(($1, $2) => { $1[\"progress\"] = $2; })" + js_setProgress :: ComputedEffectTiming -> JSVal -> IO () +-- | +setProgress :: (MonadDOM m) => ComputedEffectTiming -> Maybe Double -> m () +setProgress self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setProgress (self) a2'))) + +foreign import javascript unsafe "(($1) => { return $1[\"progress\"]; })" + js_getProgress :: ComputedEffectTiming -> IO JSVal +-- | +getProgress :: (MonadDOM m) => ComputedEffectTiming -> m (Maybe Double) +getProgress self = liftDOM (((js_getProgress (self)) >>= fromJSValUnchecked)) + +-- | +getProgressUnsafe :: (MonadDOM m, HasCallStack) => ComputedEffectTiming -> m Double +getProgressUnsafe self = liftDOM ((((js_getProgress (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getProgressUnchecked :: (MonadDOM m) => ComputedEffectTiming -> m Double +getProgressUnchecked self = liftDOM ((pFromJSVal <$> (js_getProgress (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"currentIteration\"] = $2; })" + js_setCurrentIteration :: ComputedEffectTiming -> JSVal -> IO () +-- | +setCurrentIteration :: (MonadDOM m) => ComputedEffectTiming -> Maybe Double -> m () +setCurrentIteration self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setCurrentIteration (self) a2'))) + +foreign import javascript unsafe "(($1) => { return $1[\"currentIteration\"]; })" + js_getCurrentIteration :: ComputedEffectTiming -> IO JSVal +-- | +getCurrentIteration :: (MonadDOM m) => ComputedEffectTiming -> m (Maybe Double) +getCurrentIteration self = liftDOM (((js_getCurrentIteration (self)) >>= fromJSValUnchecked)) + +-- | +getCurrentIterationUnsafe :: (MonadDOM m, HasCallStack) => ComputedEffectTiming -> m Double +getCurrentIterationUnsafe self = liftDOM ((((js_getCurrentIteration (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getCurrentIterationUnchecked :: (MonadDOM m) => ComputedEffectTiming -> m Double +getCurrentIterationUnchecked self = liftDOM ((pFromJSVal <$> (js_getCurrentIteration (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"startTime\"] = $2; })" + js_setStartTime :: ComputedEffectTiming -> CSSNumberish -> IO () +-- | +setStartTime :: (MonadDOM m, IsCSSNumberish val) => ComputedEffectTiming -> val -> m () +setStartTime self val = liftDOM (void ((js_setStartTime (self) (Types.toCSSNumberish val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"startTime\"]; })" + js_getStartTime :: ComputedEffectTiming -> IO JSVal +-- | +getStartTime :: (MonadDOM m) => ComputedEffectTiming -> m (Maybe CSSNumberish) +getStartTime self = liftDOM (((js_getStartTime (self)) >>= fromJSValUnchecked)) + +-- | +getStartTimeUnsafe :: (MonadDOM m, HasCallStack) => ComputedEffectTiming -> m CSSNumberish +getStartTimeUnsafe self = liftDOM ((((js_getStartTime (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getStartTimeUnchecked :: (MonadDOM m) => ComputedEffectTiming -> m CSSNumberish +getStartTimeUnchecked self = liftDOM ((pFromJSVal <$> (js_getStartTime (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"endTime\"] = $2; })" + js_setEndTime :: ComputedEffectTiming -> CSSNumberish -> IO () +-- | +setEndTime :: (MonadDOM m, IsCSSNumberish val) => ComputedEffectTiming -> val -> m () +setEndTime self val = liftDOM (void ((js_setEndTime (self) (Types.toCSSNumberish val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"endTime\"]; })" + js_getEndTime :: ComputedEffectTiming -> IO JSVal +-- | +getEndTime :: (MonadDOM m) => ComputedEffectTiming -> m (Maybe CSSNumberish) +getEndTime self = liftDOM (((js_getEndTime (self)) >>= fromJSValUnchecked)) + +-- | +getEndTimeUnsafe :: (MonadDOM m, HasCallStack) => ComputedEffectTiming -> m CSSNumberish +getEndTimeUnsafe self = liftDOM ((((js_getEndTime (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getEndTimeUnchecked :: (MonadDOM m) => ComputedEffectTiming -> m CSSNumberish +getEndTimeUnchecked self = liftDOM ((pFromJSVal <$> (js_getEndTime (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"activeDuration\"] = $2; })" + js_setActiveDuration :: ComputedEffectTiming -> CSSNumberish -> IO () +-- | +setActiveDuration :: (MonadDOM m, IsCSSNumberish val) => ComputedEffectTiming -> val -> m () +setActiveDuration self val = liftDOM (void ((js_setActiveDuration (self) (Types.toCSSNumberish val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"activeDuration\"]; })" + js_getActiveDuration :: ComputedEffectTiming -> IO JSVal +-- | +getActiveDuration :: (MonadDOM m) => ComputedEffectTiming -> m (Maybe CSSNumberish) +getActiveDuration self = liftDOM (((js_getActiveDuration (self)) >>= fromJSValUnchecked)) + +-- | +getActiveDurationUnsafe :: (MonadDOM m, HasCallStack) => ComputedEffectTiming -> m CSSNumberish +getActiveDurationUnsafe self = liftDOM ((((js_getActiveDuration (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getActiveDurationUnchecked :: (MonadDOM m) => ComputedEffectTiming -> m CSSNumberish +getActiveDurationUnchecked self = liftDOM ((pFromJSVal <$> (js_getActiveDuration (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"localTime\"] = $2; })" + js_setLocalTime :: ComputedEffectTiming -> JSVal -> IO () +-- | +setLocalTime :: (MonadDOM m, IsCSSNumberish val) => ComputedEffectTiming -> Maybe val -> m () +setLocalTime self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setLocalTime (self) a2'))) + +foreign import javascript unsafe "(($1) => { return $1[\"localTime\"]; })" + js_getLocalTime :: ComputedEffectTiming -> IO JSVal +-- | +getLocalTime :: (MonadDOM m) => ComputedEffectTiming -> m (Maybe CSSNumberish) +getLocalTime self = liftDOM (((js_getLocalTime (self)) >>= fromJSValUnchecked)) + +-- | +getLocalTimeUnsafe :: (MonadDOM m, HasCallStack) => ComputedEffectTiming -> m CSSNumberish +getLocalTimeUnsafe self = liftDOM ((((js_getLocalTime (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getLocalTimeUnchecked :: (MonadDOM m) => ComputedEffectTiming -> m CSSNumberish +getLocalTimeUnchecked self = liftDOM ((pFromJSVal <$> (js_getLocalTime (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/Console.hs b/src/GHCJS/DOM/JSFFI/Generated/Console.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/Console.hs @@ -0,0 +1,131 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from console (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.Console + (js_assert, js_clear, js_count, js_countReset, js_debug, js_dir, js_dirxml, js_error, js_group, js_groupCollapsed, js_groupEnd, js_info, js_log, js_table, js_time, js_timeEnd, js_timeLog, js_trace, js_warn, assert, clear, count, countReset, debug, dir, dirxml, error, group, groupCollapsed, groupEnd, info, log, table, time, timeEnd, timeLog, trace, warn) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1, $2) => { return globalThis[\"console\"][\"assert\"]($1, ...$2); })" + js_assert :: JSVal -> JSVal -> IO () +-- | +assert :: (MonadDOM m) => Maybe Bool -> [JSVal] -> m () +assert condition data' = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal condition) >>= \a1' -> (toJSVal data') >>= \a2' -> js_assert a1' a2'))) + +foreign import javascript safe "(() => { return globalThis[\"console\"][\"clear\"](); })" + js_clear :: IO () +-- | +clear :: (MonadDOM m) => m () +clear = liftDOM (void ((js_clear))) + +foreign import javascript safe "(($1) => { return globalThis[\"console\"][\"count\"]($1); })" + js_count :: (Optional JSString) -> IO () +-- | +count :: (MonadDOM m, ToJSString label) => Maybe label -> m () +count label = liftDOM (void ((js_count (toOptionalJSString label)))) + +foreign import javascript safe "(($1) => { return globalThis[\"console\"][\"countReset\"]($1); })" + js_countReset :: (Optional JSString) -> IO () +-- | +countReset :: (MonadDOM m, ToJSString label) => Maybe label -> m () +countReset label = liftDOM (void ((js_countReset (toOptionalJSString label)))) + +foreign import javascript safe "(($1) => { return globalThis[\"console\"][\"debug\"](...$1); })" + js_debug :: JSVal -> IO () +-- | +debug :: (MonadDOM m) => [JSVal] -> m () +debug data' = liftDOM (void (((toJSVal data') >>= \a1' -> js_debug a1'))) + +foreign import javascript safe "(($1, $2) => { return globalThis[\"console\"][\"dir\"]($1, $2); })" + js_dir :: JSVal -> JSVal -> IO () +-- | +dir :: (MonadDOM m) => JSVal -> Maybe GObject -> m () +dir item options = liftDOM (void (((toJSVal options) >>= \a2' -> js_dir (item) a2'))) + +foreign import javascript safe "(($1) => { return globalThis[\"console\"][\"dirxml\"](...$1); })" + js_dirxml :: JSVal -> IO () +-- | +dirxml :: (MonadDOM m) => [JSVal] -> m () +dirxml data' = liftDOM (void (((toJSVal data') >>= \a1' -> js_dirxml a1'))) + +foreign import javascript safe "(($1) => { return globalThis[\"console\"][\"error\"](...$1); })" + js_error :: JSVal -> IO () +-- | +error :: (MonadDOM m) => [JSVal] -> m () +error data' = liftDOM (void (((toJSVal data') >>= \a1' -> js_error a1'))) + +foreign import javascript safe "(($1) => { return globalThis[\"console\"][\"group\"](...$1); })" + js_group :: JSVal -> IO () +-- | +group :: (MonadDOM m) => [JSVal] -> m () +group data' = liftDOM (void (((toJSVal data') >>= \a1' -> js_group a1'))) + +foreign import javascript safe "(($1) => { return globalThis[\"console\"][\"groupCollapsed\"](...$1); })" + js_groupCollapsed :: JSVal -> IO () +-- | +groupCollapsed :: (MonadDOM m) => [JSVal] -> m () +groupCollapsed data' = liftDOM (void (((toJSVal data') >>= \a1' -> js_groupCollapsed a1'))) + +foreign import javascript safe "(() => { return globalThis[\"console\"][\"groupEnd\"](); })" + js_groupEnd :: IO () +-- | +groupEnd :: (MonadDOM m) => m () +groupEnd = liftDOM (void ((js_groupEnd))) + +foreign import javascript safe "(($1) => { return globalThis[\"console\"][\"info\"](...$1); })" + js_info :: JSVal -> IO () +-- | +info :: (MonadDOM m) => [JSVal] -> m () +info data' = liftDOM (void (((toJSVal data') >>= \a1' -> js_info a1'))) + +foreign import javascript safe "(($1) => { return globalThis[\"console\"][\"log\"](...$1); })" + js_log :: JSVal -> IO () +-- | +log :: (MonadDOM m) => [JSVal] -> m () +log data' = liftDOM (void (((toJSVal data') >>= \a1' -> js_log a1'))) + +foreign import javascript safe "(($1, $2) => { return globalThis[\"console\"][\"table\"]($1, $2); })" + js_table :: JSVal -> JSVal -> IO () +-- | +table :: (MonadDOM m, ToJSString properties) => JSVal -> Maybe [properties] -> m () +table tabularData properties = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal properties) >>= \a2' -> js_table (tabularData) a2'))) + +foreign import javascript safe "(($1) => { return globalThis[\"console\"][\"time\"]($1); })" + js_time :: (Optional JSString) -> IO () +-- | +time :: (MonadDOM m, ToJSString label) => Maybe label -> m () +time label = liftDOM (void ((js_time (toOptionalJSString label)))) + +foreign import javascript safe "(($1) => { return globalThis[\"console\"][\"timeEnd\"]($1); })" + js_timeEnd :: (Optional JSString) -> IO () +-- | +timeEnd :: (MonadDOM m, ToJSString label) => Maybe label -> m () +timeEnd label = liftDOM (void ((js_timeEnd (toOptionalJSString label)))) + +foreign import javascript safe "(($1, $2) => { return globalThis[\"console\"][\"timeLog\"]($1, ...$2); })" + js_timeLog :: (Optional JSString) -> JSVal -> IO () +-- | +timeLog :: (MonadDOM m, ToJSString label) => Maybe label -> [JSVal] -> m () +timeLog label data' = liftDOM (void (((toJSVal data') >>= \a2' -> js_timeLog (toOptionalJSString label) a2'))) + +foreign import javascript safe "(($1) => { return globalThis[\"console\"][\"trace\"](...$1); })" + js_trace :: JSVal -> IO () +-- | +trace :: (MonadDOM m) => [JSVal] -> m () +trace data' = liftDOM (void (((toJSVal data') >>= \a1' -> js_trace a1'))) + +foreign import javascript safe "(($1) => { return globalThis[\"console\"][\"warn\"](...$1); })" + js_warn :: JSVal -> IO () +-- | +warn :: (MonadDOM m) => [JSVal] -> m () +warn data' = liftDOM (void (((toJSVal data') >>= \a1' -> js_warn a1'))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/ConstantSourceNode.hs b/src/GHCJS/DOM/JSFFI/Generated/ConstantSourceNode.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/ConstantSourceNode.hs @@ -0,0 +1,29 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from webaudio-1.1 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.ConstantSourceNode + (js_newConstantSourceNode, js_getOffset, newConstantSourceNode, getOffset, ConstantSourceNode(..), gTypeConstantSourceNode) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1, $2) => { return new globalThis[\"ConstantSourceNode\"]($1, $2); })" + js_newConstantSourceNode :: BaseAudioContext -> JSVal -> IO ConstantSourceNode +-- | +newConstantSourceNode :: (MonadDOM m, IsBaseAudioContext context) => context -> Maybe ConstantSourceOptions -> m ConstantSourceNode +newConstantSourceNode context options = liftDOM (((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_newConstantSourceNode (Types.toBaseAudioContext context) a2')) + +foreign import javascript unsafe "(($1) => { return $1[\"offset\"]; })" + js_getOffset :: ConstantSourceNode -> IO AudioParam +-- | +getOffset :: (MonadDOM m) => ConstantSourceNode -> m AudioParam +getOffset self = liftDOM ((js_getOffset (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/ConstantSourceOptions.hs b/src/GHCJS/DOM/JSFFI/Generated/ConstantSourceOptions.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/ConstantSourceOptions.hs @@ -0,0 +1,43 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from webaudio-1.1 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.ConstantSourceOptions + (js_newConstantSourceOptions, js_setOffset, js_getOffset, newConstantSourceOptions, setOffset, getOffset, getOffsetUnsafe, getOffsetUnchecked, ConstantSourceOptions(..), gTypeConstantSourceOptions) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(() => { return ({}); })" + js_newConstantSourceOptions :: IO ConstantSourceOptions +-- | +newConstantSourceOptions :: (MonadDOM m) => m ConstantSourceOptions +newConstantSourceOptions = liftDOM ((js_newConstantSourceOptions)) + +foreign import javascript safe "(($1, $2) => { $1[\"offset\"] = $2; })" + js_setOffset :: ConstantSourceOptions -> Float -> IO () +-- | +setOffset :: (MonadDOM m) => ConstantSourceOptions -> Float -> m () +setOffset self val = liftDOM (void ((js_setOffset (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"offset\"]; })" + js_getOffset :: ConstantSourceOptions -> IO JSVal +-- | +getOffset :: (MonadDOM m) => ConstantSourceOptions -> m (Maybe Float) +getOffset self = liftDOM (((js_getOffset (self)) >>= fromJSValUnchecked)) + +-- | +getOffsetUnsafe :: (MonadDOM m, HasCallStack) => ConstantSourceOptions -> m Float +getOffsetUnsafe self = liftDOM ((((js_getOffset (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getOffsetUnchecked :: (MonadDOM m) => ConstantSourceOptions -> m Float +getOffsetUnchecked self = liftDOM ((pFromJSVal <$> (js_getOffset (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/ConstrainBooleanOrDOMStringParameters.hs b/src/GHCJS/DOM/JSFFI/Generated/ConstrainBooleanOrDOMStringParameters.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/ConstrainBooleanOrDOMStringParameters.hs @@ -0,0 +1,63 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from mediacapture-streams (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.ConstrainBooleanOrDOMStringParameters + (js_newConstrainBooleanOrDOMStringParameters, js_setExact, js_getExact, js_setIdeal, js_getIdeal, newConstrainBooleanOrDOMStringParameters, setExact, getExact, getExactUnsafe, getExactUnchecked, setIdeal, getIdeal, getIdealUnsafe, getIdealUnchecked, ConstrainBooleanOrDOMStringParameters(..), gTypeConstrainBooleanOrDOMStringParameters) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(() => { return ({}); })" + js_newConstrainBooleanOrDOMStringParameters :: IO ConstrainBooleanOrDOMStringParameters +-- | +newConstrainBooleanOrDOMStringParameters :: (MonadDOM m) => m ConstrainBooleanOrDOMStringParameters +newConstrainBooleanOrDOMStringParameters = liftDOM ((js_newConstrainBooleanOrDOMStringParameters)) + +foreign import javascript safe "(($1, $2) => { $1[\"exact\"] = $2; })" + js_setExact :: ConstrainBooleanOrDOMStringParameters -> BoolOrString -> IO () +-- | +setExact :: (MonadDOM m, IsBoolOrString val) => ConstrainBooleanOrDOMStringParameters -> val -> m () +setExact self val = liftDOM (void ((js_setExact (self) (Types.toBoolOrString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"exact\"]; })" + js_getExact :: ConstrainBooleanOrDOMStringParameters -> IO JSVal +-- | +getExact :: (MonadDOM m) => ConstrainBooleanOrDOMStringParameters -> m (Maybe BoolOrString) +getExact self = liftDOM (((js_getExact (self)) >>= fromJSValUnchecked)) + +-- | +getExactUnsafe :: (MonadDOM m, HasCallStack) => ConstrainBooleanOrDOMStringParameters -> m BoolOrString +getExactUnsafe self = liftDOM ((((js_getExact (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getExactUnchecked :: (MonadDOM m) => ConstrainBooleanOrDOMStringParameters -> m BoolOrString +getExactUnchecked self = liftDOM ((pFromJSVal <$> (js_getExact (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"ideal\"] = $2; })" + js_setIdeal :: ConstrainBooleanOrDOMStringParameters -> BoolOrString -> IO () +-- | +setIdeal :: (MonadDOM m, IsBoolOrString val) => ConstrainBooleanOrDOMStringParameters -> val -> m () +setIdeal self val = liftDOM (void ((js_setIdeal (self) (Types.toBoolOrString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"ideal\"]; })" + js_getIdeal :: ConstrainBooleanOrDOMStringParameters -> IO JSVal +-- | +getIdeal :: (MonadDOM m) => ConstrainBooleanOrDOMStringParameters -> m (Maybe BoolOrString) +getIdeal self = liftDOM (((js_getIdeal (self)) >>= fromJSValUnchecked)) + +-- | +getIdealUnsafe :: (MonadDOM m, HasCallStack) => ConstrainBooleanOrDOMStringParameters -> m BoolOrString +getIdealUnsafe self = liftDOM ((((js_getIdeal (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getIdealUnchecked :: (MonadDOM m) => ConstrainBooleanOrDOMStringParameters -> m BoolOrString +getIdealUnchecked self = liftDOM ((pFromJSVal <$> (js_getIdeal (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/ConstrainBooleanParameters.hs b/src/GHCJS/DOM/JSFFI/Generated/ConstrainBooleanParameters.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/ConstrainBooleanParameters.hs @@ -0,0 +1,63 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from mediacapture-streams (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.ConstrainBooleanParameters + (js_newConstrainBooleanParameters, js_setExact, js_getExact, js_setIdeal, js_getIdeal, newConstrainBooleanParameters, setExact, getExact, getExactUnsafe, getExactUnchecked, setIdeal, getIdeal, getIdealUnsafe, getIdealUnchecked, ConstrainBooleanParameters(..), gTypeConstrainBooleanParameters) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(() => { return ({}); })" + js_newConstrainBooleanParameters :: IO ConstrainBooleanParameters +-- | +newConstrainBooleanParameters :: (MonadDOM m) => m ConstrainBooleanParameters +newConstrainBooleanParameters = liftDOM ((js_newConstrainBooleanParameters)) + +foreign import javascript safe "(($1, $2) => { $1[\"exact\"] = $2; })" + js_setExact :: ConstrainBooleanParameters -> Bool -> IO () +-- | +setExact :: (MonadDOM m) => ConstrainBooleanParameters -> Bool -> m () +setExact self val = liftDOM (void ((js_setExact (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"exact\"]; })" + js_getExact :: ConstrainBooleanParameters -> IO JSVal +-- | +getExact :: (MonadDOM m) => ConstrainBooleanParameters -> m (Maybe Bool) +getExact self = liftDOM (((js_getExact (self)) >>= fromJSValUnchecked)) + +-- | +getExactUnsafe :: (MonadDOM m, HasCallStack) => ConstrainBooleanParameters -> m Bool +getExactUnsafe self = liftDOM ((((js_getExact (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getExactUnchecked :: (MonadDOM m) => ConstrainBooleanParameters -> m Bool +getExactUnchecked self = liftDOM ((pFromJSVal <$> (js_getExact (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"ideal\"] = $2; })" + js_setIdeal :: ConstrainBooleanParameters -> Bool -> IO () +-- | +setIdeal :: (MonadDOM m) => ConstrainBooleanParameters -> Bool -> m () +setIdeal self val = liftDOM (void ((js_setIdeal (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"ideal\"]; })" + js_getIdeal :: ConstrainBooleanParameters -> IO JSVal +-- | +getIdeal :: (MonadDOM m) => ConstrainBooleanParameters -> m (Maybe Bool) +getIdeal self = liftDOM (((js_getIdeal (self)) >>= fromJSValUnchecked)) + +-- | +getIdealUnsafe :: (MonadDOM m, HasCallStack) => ConstrainBooleanParameters -> m Bool +getIdealUnsafe self = liftDOM ((((js_getIdeal (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getIdealUnchecked :: (MonadDOM m) => ConstrainBooleanParameters -> m Bool +getIdealUnchecked self = liftDOM ((pFromJSVal <$> (js_getIdeal (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/ConstrainDOMStringParameters.hs b/src/GHCJS/DOM/JSFFI/Generated/ConstrainDOMStringParameters.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/ConstrainDOMStringParameters.hs @@ -0,0 +1,63 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from mediacapture-streams (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.ConstrainDOMStringParameters + (js_newConstrainDOMStringParameters, js_setExact, js_getExact, js_setIdeal, js_getIdeal, newConstrainDOMStringParameters, setExact, getExact, getExactUnsafe, getExactUnchecked, setIdeal, getIdeal, getIdealUnsafe, getIdealUnchecked, ConstrainDOMStringParameters(..), gTypeConstrainDOMStringParameters) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(() => { return ({}); })" + js_newConstrainDOMStringParameters :: IO ConstrainDOMStringParameters +-- | +newConstrainDOMStringParameters :: (MonadDOM m) => m ConstrainDOMStringParameters +newConstrainDOMStringParameters = liftDOM ((js_newConstrainDOMStringParameters)) + +foreign import javascript safe "(($1, $2) => { $1[\"exact\"] = $2; })" + js_setExact :: ConstrainDOMStringParameters -> StringOrSequenceString -> IO () +-- | +setExact :: (MonadDOM m, IsStringOrSequenceString val) => ConstrainDOMStringParameters -> val -> m () +setExact self val = liftDOM (void ((js_setExact (self) (Types.toStringOrSequenceString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"exact\"]; })" + js_getExact :: ConstrainDOMStringParameters -> IO JSVal +-- | +getExact :: (MonadDOM m) => ConstrainDOMStringParameters -> m (Maybe StringOrSequenceString) +getExact self = liftDOM (((js_getExact (self)) >>= fromJSValUnchecked)) + +-- | +getExactUnsafe :: (MonadDOM m, HasCallStack) => ConstrainDOMStringParameters -> m StringOrSequenceString +getExactUnsafe self = liftDOM ((((js_getExact (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getExactUnchecked :: (MonadDOM m) => ConstrainDOMStringParameters -> m StringOrSequenceString +getExactUnchecked self = liftDOM ((pFromJSVal <$> (js_getExact (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"ideal\"] = $2; })" + js_setIdeal :: ConstrainDOMStringParameters -> StringOrSequenceString -> IO () +-- | +setIdeal :: (MonadDOM m, IsStringOrSequenceString val) => ConstrainDOMStringParameters -> val -> m () +setIdeal self val = liftDOM (void ((js_setIdeal (self) (Types.toStringOrSequenceString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"ideal\"]; })" + js_getIdeal :: ConstrainDOMStringParameters -> IO JSVal +-- | +getIdeal :: (MonadDOM m) => ConstrainDOMStringParameters -> m (Maybe StringOrSequenceString) +getIdeal self = liftDOM (((js_getIdeal (self)) >>= fromJSValUnchecked)) + +-- | +getIdealUnsafe :: (MonadDOM m, HasCallStack) => ConstrainDOMStringParameters -> m StringOrSequenceString +getIdealUnsafe self = liftDOM ((((js_getIdeal (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getIdealUnchecked :: (MonadDOM m) => ConstrainDOMStringParameters -> m StringOrSequenceString +getIdealUnchecked self = liftDOM ((pFromJSVal <$> (js_getIdeal (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/ConstrainDoubleRange.hs b/src/GHCJS/DOM/JSFFI/Generated/ConstrainDoubleRange.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/ConstrainDoubleRange.hs @@ -0,0 +1,63 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from mediacapture-streams (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.ConstrainDoubleRange + (js_newConstrainDoubleRange, js_setExact, js_getExact, js_setIdeal, js_getIdeal, newConstrainDoubleRange, setExact, getExact, getExactUnsafe, getExactUnchecked, setIdeal, getIdeal, getIdealUnsafe, getIdealUnchecked, ConstrainDoubleRange(..), gTypeConstrainDoubleRange) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(() => { return ({}); })" + js_newConstrainDoubleRange :: IO ConstrainDoubleRange +-- | +newConstrainDoubleRange :: (MonadDOM m) => m ConstrainDoubleRange +newConstrainDoubleRange = liftDOM ((js_newConstrainDoubleRange)) + +foreign import javascript safe "(($1, $2) => { $1[\"exact\"] = $2; })" + js_setExact :: ConstrainDoubleRange -> Double -> IO () +-- | +setExact :: (MonadDOM m) => ConstrainDoubleRange -> Double -> m () +setExact self val = liftDOM (void ((js_setExact (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"exact\"]; })" + js_getExact :: ConstrainDoubleRange -> IO JSVal +-- | +getExact :: (MonadDOM m) => ConstrainDoubleRange -> m (Maybe Double) +getExact self = liftDOM (((js_getExact (self)) >>= fromJSValUnchecked)) + +-- | +getExactUnsafe :: (MonadDOM m, HasCallStack) => ConstrainDoubleRange -> m Double +getExactUnsafe self = liftDOM ((((js_getExact (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getExactUnchecked :: (MonadDOM m) => ConstrainDoubleRange -> m Double +getExactUnchecked self = liftDOM ((pFromJSVal <$> (js_getExact (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"ideal\"] = $2; })" + js_setIdeal :: ConstrainDoubleRange -> Double -> IO () +-- | +setIdeal :: (MonadDOM m) => ConstrainDoubleRange -> Double -> m () +setIdeal self val = liftDOM (void ((js_setIdeal (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"ideal\"]; })" + js_getIdeal :: ConstrainDoubleRange -> IO JSVal +-- | +getIdeal :: (MonadDOM m) => ConstrainDoubleRange -> m (Maybe Double) +getIdeal self = liftDOM (((js_getIdeal (self)) >>= fromJSValUnchecked)) + +-- | +getIdealUnsafe :: (MonadDOM m, HasCallStack) => ConstrainDoubleRange -> m Double +getIdealUnsafe self = liftDOM ((((js_getIdeal (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getIdealUnchecked :: (MonadDOM m) => ConstrainDoubleRange -> m Double +getIdealUnchecked self = liftDOM ((pFromJSVal <$> (js_getIdeal (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/ConstrainPoint2DParameters.hs b/src/GHCJS/DOM/JSFFI/Generated/ConstrainPoint2DParameters.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/ConstrainPoint2DParameters.hs @@ -0,0 +1,63 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from image-capture (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.ConstrainPoint2DParameters + (js_newConstrainPoint2DParameters, js_setExact, js_getExact, js_setIdeal, js_getIdeal, newConstrainPoint2DParameters, setExact, getExact, getExactUnsafe, getExactUnchecked, setIdeal, getIdeal, getIdealUnsafe, getIdealUnchecked, ConstrainPoint2DParameters(..), gTypeConstrainPoint2DParameters) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(() => { return ({}); })" + js_newConstrainPoint2DParameters :: IO ConstrainPoint2DParameters +-- | +newConstrainPoint2DParameters :: (MonadDOM m) => m ConstrainPoint2DParameters +newConstrainPoint2DParameters = liftDOM ((js_newConstrainPoint2DParameters)) + +foreign import javascript safe "(($1, $2) => { $1[\"exact\"] = $2; })" + js_setExact :: ConstrainPoint2DParameters -> JSVal -> IO () +-- | +setExact :: (MonadDOM m) => ConstrainPoint2DParameters -> [Point2D] -> m () +setExact self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setExact (self) a2'))) + +foreign import javascript unsafe "(($1) => { return $1[\"exact\"]; })" + js_getExact :: ConstrainPoint2DParameters -> IO JSVal +-- | +getExact :: (MonadDOM m) => ConstrainPoint2DParameters -> m (Maybe [Point2D]) +getExact self = liftDOM (((js_getExact (self)) >>= fromJSValUnchecked)) + +-- | +getExactUnsafe :: (MonadDOM m, HasCallStack) => ConstrainPoint2DParameters -> m [Point2D] +getExactUnsafe self = liftDOM ((((js_getExact (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getExactUnchecked :: (MonadDOM m) => ConstrainPoint2DParameters -> m [Point2D] +getExactUnchecked self = liftDOM (((js_getExact (self)) >>= fromJSValUnchecked)) + +foreign import javascript safe "(($1, $2) => { $1[\"ideal\"] = $2; })" + js_setIdeal :: ConstrainPoint2DParameters -> JSVal -> IO () +-- | +setIdeal :: (MonadDOM m) => ConstrainPoint2DParameters -> [Point2D] -> m () +setIdeal self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setIdeal (self) a2'))) + +foreign import javascript unsafe "(($1) => { return $1[\"ideal\"]; })" + js_getIdeal :: ConstrainPoint2DParameters -> IO JSVal +-- | +getIdeal :: (MonadDOM m) => ConstrainPoint2DParameters -> m (Maybe [Point2D]) +getIdeal self = liftDOM (((js_getIdeal (self)) >>= fromJSValUnchecked)) + +-- | +getIdealUnsafe :: (MonadDOM m, HasCallStack) => ConstrainPoint2DParameters -> m [Point2D] +getIdealUnsafe self = liftDOM ((((js_getIdeal (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getIdealUnchecked :: (MonadDOM m) => ConstrainPoint2DParameters -> m [Point2D] +getIdealUnchecked self = liftDOM (((js_getIdeal (self)) >>= fromJSValUnchecked)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/ConstrainULongRange.hs b/src/GHCJS/DOM/JSFFI/Generated/ConstrainULongRange.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/ConstrainULongRange.hs @@ -0,0 +1,63 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from mediacapture-streams (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.ConstrainULongRange + (js_newConstrainULongRange, js_setExact, js_getExact, js_setIdeal, js_getIdeal, newConstrainULongRange, setExact, getExact, getExactUnsafe, getExactUnchecked, setIdeal, getIdeal, getIdealUnsafe, getIdealUnchecked, ConstrainULongRange(..), gTypeConstrainULongRange) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(() => { return ({}); })" + js_newConstrainULongRange :: IO ConstrainULongRange +-- | +newConstrainULongRange :: (MonadDOM m) => m ConstrainULongRange +newConstrainULongRange = liftDOM ((js_newConstrainULongRange)) + +foreign import javascript safe "(($1, $2) => { $1[\"exact\"] = $2; })" + js_setExact :: ConstrainULongRange -> Word -> IO () +-- | +setExact :: (MonadDOM m) => ConstrainULongRange -> Word -> m () +setExact self val = liftDOM (void ((js_setExact (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"exact\"]; })" + js_getExact :: ConstrainULongRange -> IO JSVal +-- | +getExact :: (MonadDOM m) => ConstrainULongRange -> m (Maybe Word) +getExact self = liftDOM (((js_getExact (self)) >>= fromJSValUnchecked)) + +-- | +getExactUnsafe :: (MonadDOM m, HasCallStack) => ConstrainULongRange -> m Word +getExactUnsafe self = liftDOM ((((js_getExact (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getExactUnchecked :: (MonadDOM m) => ConstrainULongRange -> m Word +getExactUnchecked self = liftDOM ((pFromJSVal <$> (js_getExact (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"ideal\"] = $2; })" + js_setIdeal :: ConstrainULongRange -> Word -> IO () +-- | +setIdeal :: (MonadDOM m) => ConstrainULongRange -> Word -> m () +setIdeal self val = liftDOM (void ((js_setIdeal (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"ideal\"]; })" + js_getIdeal :: ConstrainULongRange -> IO JSVal +-- | +getIdeal :: (MonadDOM m) => ConstrainULongRange -> m (Maybe Word) +getIdeal self = liftDOM (((js_getIdeal (self)) >>= fromJSValUnchecked)) + +-- | +getIdealUnsafe :: (MonadDOM m, HasCallStack) => ConstrainULongRange -> m Word +getIdealUnsafe self = liftDOM ((((js_getIdeal (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getIdealUnchecked :: (MonadDOM m) => ConstrainULongRange -> m Word +getIdealUnchecked self = liftDOM ((pFromJSVal <$> (js_getIdeal (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/ContactAddress.hs b/src/GHCJS/DOM/JSFFI/Generated/ContactAddress.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/ContactAddress.hs @@ -0,0 +1,18 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from contact-picker (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.ContactAddress + (ContactAddress(..), gTypeContactAddress) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + diff --git a/src/GHCJS/DOM/JSFFI/Generated/ContentVisibilityAutoStateChangeEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/ContentVisibilityAutoStateChangeEvent.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/ContentVisibilityAutoStateChangeEvent.hs @@ -0,0 +1,29 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from css-contain-2 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.ContentVisibilityAutoStateChangeEvent + (js_newContentVisibilityAutoStateChangeEvent, js_getSkipped, newContentVisibilityAutoStateChangeEvent, getSkipped, ContentVisibilityAutoStateChangeEvent(..), gTypeContentVisibilityAutoStateChangeEvent) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1, $2) => { return new globalThis[\"ContentVisibilityAutoStateChangeEvent\"]($1, $2); })" + js_newContentVisibilityAutoStateChangeEvent :: JSString -> JSVal -> IO ContentVisibilityAutoStateChangeEvent +-- | +newContentVisibilityAutoStateChangeEvent :: (MonadDOM m, ToJSString type') => type' -> Maybe ContentVisibilityAutoStateChangeEventInit -> m ContentVisibilityAutoStateChangeEvent +newContentVisibilityAutoStateChangeEvent type' eventInitDict = liftDOM (((P.maybe (P.return jsUndefined) toJSVal eventInitDict) >>= \a2' -> js_newContentVisibilityAutoStateChangeEvent (toJSString type') a2')) + +foreign import javascript unsafe "(($1) => { return $1[\"skipped\"]; })" + js_getSkipped :: ContentVisibilityAutoStateChangeEvent -> IO Bool +-- | +getSkipped :: (MonadDOM m) => ContentVisibilityAutoStateChangeEvent -> m Bool +getSkipped self = liftDOM ((js_getSkipped (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/ContentVisibilityAutoStateChangeEventInit.hs b/src/GHCJS/DOM/JSFFI/Generated/ContentVisibilityAutoStateChangeEventInit.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/ContentVisibilityAutoStateChangeEventInit.hs @@ -0,0 +1,43 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from css-contain-2 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.ContentVisibilityAutoStateChangeEventInit + (js_newContentVisibilityAutoStateChangeEventInit, js_setSkipped, js_getSkipped, newContentVisibilityAutoStateChangeEventInit, setSkipped, getSkipped, getSkippedUnsafe, getSkippedUnchecked, ContentVisibilityAutoStateChangeEventInit(..), gTypeContentVisibilityAutoStateChangeEventInit) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(() => { return ({}); })" + js_newContentVisibilityAutoStateChangeEventInit :: IO ContentVisibilityAutoStateChangeEventInit +-- | +newContentVisibilityAutoStateChangeEventInit :: (MonadDOM m) => m ContentVisibilityAutoStateChangeEventInit +newContentVisibilityAutoStateChangeEventInit = liftDOM ((js_newContentVisibilityAutoStateChangeEventInit)) + +foreign import javascript safe "(($1, $2) => { $1[\"skipped\"] = $2; })" + js_setSkipped :: ContentVisibilityAutoStateChangeEventInit -> Bool -> IO () +-- | +setSkipped :: (MonadDOM m) => ContentVisibilityAutoStateChangeEventInit -> Bool -> m () +setSkipped self val = liftDOM (void ((js_setSkipped (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"skipped\"]; })" + js_getSkipped :: ContentVisibilityAutoStateChangeEventInit -> IO JSVal +-- | +getSkipped :: (MonadDOM m) => ContentVisibilityAutoStateChangeEventInit -> m (Maybe Bool) +getSkipped self = liftDOM (((js_getSkipped (self)) >>= fromJSValUnchecked)) + +-- | +getSkippedUnsafe :: (MonadDOM m, HasCallStack) => ContentVisibilityAutoStateChangeEventInit -> m Bool +getSkippedUnsafe self = liftDOM ((((js_getSkipped (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getSkippedUnchecked :: (MonadDOM m) => ContentVisibilityAutoStateChangeEventInit -> m Bool +getSkippedUnchecked self = liftDOM ((pFromJSVal <$> (js_getSkipped (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/ConvolverNode.hs b/src/GHCJS/DOM/JSFFI/Generated/ConvolverNode.hs --- a/src/GHCJS/DOM/JSFFI/Generated/ConvolverNode.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/ConvolverNode.hs @@ -1,71 +1,55 @@ {-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE JavaScriptFFI #-} --- For HasCallStack compatibility +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from webaudio-1.1 (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.ConvolverNode - (js_setBuffer, setBuffer, js_getBuffer, getBuffer, getBufferUnsafe, - getBufferUnchecked, js_setNormalize, setNormalize, js_getNormalize, - getNormalize, ConvolverNode(..), gTypeConvolverNode) + (js_newConvolverNode, js_setBuffer, js_getBuffer, js_setNormalize, js_getNormalize, newConvolverNode, setBuffer, getBuffer, getBufferUnsafe, getBufferUnchecked, setNormalize, getNormalize, ConvolverNode(..), gTypeConvolverNode) where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull, jsUndefined) -import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import Data.Maybe (fromJust) -import Data.Traversable (mapM) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types -import Control.Applicative ((<$>)) +import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums - -foreign import javascript safe "(($1, $2) => { $1[\"buffer\"] = $2; })" js_setBuffer - :: ConvolverNode -> Optional AudioBuffer -> IO () --- | -setBuffer :: - (MonadIO m) => ConvolverNode -> Maybe AudioBuffer -> m () -setBuffer self val - = liftIO (js_setBuffer self (maybeToOptional val)) - -foreign import javascript unsafe "(($1) => { return $1[\"buffer\"]; })" js_getBuffer :: - ConvolverNode -> IO (Nullable AudioBuffer) +foreign import javascript safe "(($1, $2) => { return new globalThis[\"ConvolverNode\"]($1, $2); })" + js_newConvolverNode :: BaseAudioContext -> JSVal -> IO ConvolverNode +-- | +newConvolverNode :: (MonadDOM m, IsBaseAudioContext context) => context -> Maybe ConvolverOptions -> m ConvolverNode +newConvolverNode context options = liftDOM (((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_newConvolverNode (Types.toBaseAudioContext context) a2')) --- | -getBuffer :: (MonadIO m) => ConvolverNode -> m (Maybe AudioBuffer) -getBuffer self = liftIO (nullableToMaybe <$> (js_getBuffer self)) +foreign import javascript safe "(($1, $2) => { $1[\"buffer\"] = $2; })" + js_setBuffer :: ConvolverNode -> JSVal -> IO () +-- | +setBuffer :: (MonadDOM m) => ConvolverNode -> Maybe AudioBuffer -> m () +setBuffer self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setBuffer (self) a2'))) --- | -getBufferUnsafe :: - (MonadIO m, HasCallStack) => ConvolverNode -> m AudioBuffer -getBufferUnsafe self - = liftIO - ((nullableToMaybe <$> (js_getBuffer self)) >>= - maybe (Prelude.error "Nothing to return") return) +foreign import javascript unsafe "(($1) => { return $1[\"buffer\"]; })" + js_getBuffer :: ConvolverNode -> IO JSVal +-- | +getBuffer :: (MonadDOM m) => ConvolverNode -> m (Maybe AudioBuffer) +getBuffer self = liftDOM (((js_getBuffer (self)) >>= fromJSValUnchecked)) --- | -getBufferUnchecked :: (MonadIO m) => ConvolverNode -> m AudioBuffer -getBufferUnchecked self - = liftIO (fromJust . nullableToMaybe <$> (js_getBuffer self)) - -foreign import javascript unsafe "(($1, $2) => { $1[\"normalize\"] = $2; })" +-- | +getBufferUnsafe :: (MonadDOM m, HasCallStack) => ConvolverNode -> m AudioBuffer +getBufferUnsafe self = liftDOM ((((js_getBuffer (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getBufferUnchecked :: (MonadDOM m) => ConvolverNode -> m AudioBuffer +getBufferUnchecked self = liftDOM ((pFromJSVal <$> (js_getBuffer (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"normalize\"] = $2; })" js_setNormalize :: ConvolverNode -> Bool -> IO () +-- | +setNormalize :: (MonadDOM m) => ConvolverNode -> Bool -> m () +setNormalize self val = liftDOM (void ((js_setNormalize (self) (val)))) --- | -setNormalize :: (MonadIO m) => ConvolverNode -> Bool -> m () -setNormalize self val = liftIO (js_setNormalize self val) - -foreign import javascript unsafe "(($1) => { return ($1[\"normalize\"] ? 1 : 0); })" +foreign import javascript unsafe "(($1) => { return $1[\"normalize\"]; })" js_getNormalize :: ConvolverNode -> IO Bool - --- | -getNormalize :: (MonadIO m) => ConvolverNode -> m Bool -getNormalize self = liftIO (js_getNormalize self) +-- | +getNormalize :: (MonadDOM m) => ConvolverNode -> m Bool +getNormalize self = liftDOM ((js_getNormalize (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/ConvolverOptions.hs b/src/GHCJS/DOM/JSFFI/Generated/ConvolverOptions.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/ConvolverOptions.hs @@ -0,0 +1,63 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from webaudio-1.1 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.ConvolverOptions + (js_newConvolverOptions, js_setBuffer, js_getBuffer, js_setDisableNormalization, js_getDisableNormalization, newConvolverOptions, setBuffer, getBuffer, getBufferUnsafe, getBufferUnchecked, setDisableNormalization, getDisableNormalization, getDisableNormalizationUnsafe, getDisableNormalizationUnchecked, ConvolverOptions(..), gTypeConvolverOptions) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(() => { return ({}); })" + js_newConvolverOptions :: IO ConvolverOptions +-- | +newConvolverOptions :: (MonadDOM m) => m ConvolverOptions +newConvolverOptions = liftDOM ((js_newConvolverOptions)) + +foreign import javascript safe "(($1, $2) => { $1[\"buffer\"] = $2; })" + js_setBuffer :: ConvolverOptions -> JSVal -> IO () +-- | +setBuffer :: (MonadDOM m) => ConvolverOptions -> Maybe AudioBuffer -> m () +setBuffer self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setBuffer (self) a2'))) + +foreign import javascript unsafe "(($1) => { return $1[\"buffer\"]; })" + js_getBuffer :: ConvolverOptions -> IO JSVal +-- | +getBuffer :: (MonadDOM m) => ConvolverOptions -> m (Maybe AudioBuffer) +getBuffer self = liftDOM (((js_getBuffer (self)) >>= fromJSValUnchecked)) + +-- | +getBufferUnsafe :: (MonadDOM m, HasCallStack) => ConvolverOptions -> m AudioBuffer +getBufferUnsafe self = liftDOM ((((js_getBuffer (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getBufferUnchecked :: (MonadDOM m) => ConvolverOptions -> m AudioBuffer +getBufferUnchecked self = liftDOM ((pFromJSVal <$> (js_getBuffer (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"disableNormalization\"] = $2; })" + js_setDisableNormalization :: ConvolverOptions -> Bool -> IO () +-- | +setDisableNormalization :: (MonadDOM m) => ConvolverOptions -> Bool -> m () +setDisableNormalization self val = liftDOM (void ((js_setDisableNormalization (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"disableNormalization\"]; })" + js_getDisableNormalization :: ConvolverOptions -> IO JSVal +-- | +getDisableNormalization :: (MonadDOM m) => ConvolverOptions -> m (Maybe Bool) +getDisableNormalization self = liftDOM (((js_getDisableNormalization (self)) >>= fromJSValUnchecked)) + +-- | +getDisableNormalizationUnsafe :: (MonadDOM m, HasCallStack) => ConvolverOptions -> m Bool +getDisableNormalizationUnsafe self = liftDOM ((((js_getDisableNormalization (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getDisableNormalizationUnchecked :: (MonadDOM m) => ConvolverOptions -> m Bool +getDisableNormalizationUnchecked self = liftDOM ((pFromJSVal <$> (js_getDisableNormalization (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CookieChangeEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/CookieChangeEvent.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CookieChangeEvent.hs @@ -0,0 +1,35 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from cookiestore (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CookieChangeEvent + (js_newCookieChangeEvent, js_getChanged, js_getDeleted, newCookieChangeEvent, getChanged, getDeleted, CookieChangeEvent(..), gTypeCookieChangeEvent) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1, $2) => { return new globalThis[\"CookieChangeEvent\"]($1, $2); })" + js_newCookieChangeEvent :: JSString -> JSVal -> IO CookieChangeEvent +-- | +newCookieChangeEvent :: (MonadDOM m, ToJSString type') => type' -> Maybe CookieChangeEventInit -> m CookieChangeEvent +newCookieChangeEvent type' eventInitDict = liftDOM (((P.maybe (P.return jsUndefined) toJSVal eventInitDict) >>= \a2' -> js_newCookieChangeEvent (toJSString type') a2')) + +foreign import javascript unsafe "(($1) => { return $1[\"changed\"]; })" + js_getChanged :: CookieChangeEvent -> IO JSVal +-- | +getChanged :: (MonadDOM m) => CookieChangeEvent -> m [CookieListItem] +getChanged self = liftDOM (((js_getChanged (self)) >>= fromJSValUnchecked)) + +foreign import javascript unsafe "(($1) => { return $1[\"deleted\"]; })" + js_getDeleted :: CookieChangeEvent -> IO JSVal +-- | +getDeleted :: (MonadDOM m) => CookieChangeEvent -> m [CookieListItem] +getDeleted self = liftDOM (((js_getDeleted (self)) >>= fromJSValUnchecked)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CookieChangeEventInit.hs b/src/GHCJS/DOM/JSFFI/Generated/CookieChangeEventInit.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CookieChangeEventInit.hs @@ -0,0 +1,63 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from cookiestore (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CookieChangeEventInit + (js_newCookieChangeEventInit, js_setChanged, js_getChanged, js_setDeleted, js_getDeleted, newCookieChangeEventInit, setChanged, getChanged, getChangedUnsafe, getChangedUnchecked, setDeleted, getDeleted, getDeletedUnsafe, getDeletedUnchecked, CookieChangeEventInit(..), gTypeCookieChangeEventInit) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(() => { return ({}); })" + js_newCookieChangeEventInit :: IO CookieChangeEventInit +-- | +newCookieChangeEventInit :: (MonadDOM m) => m CookieChangeEventInit +newCookieChangeEventInit = liftDOM ((js_newCookieChangeEventInit)) + +foreign import javascript safe "(($1, $2) => { $1[\"changed\"] = $2; })" + js_setChanged :: CookieChangeEventInit -> JSVal -> IO () +-- | +setChanged :: (MonadDOM m) => CookieChangeEventInit -> [CookieListItem] -> m () +setChanged self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setChanged (self) a2'))) + +foreign import javascript unsafe "(($1) => { return $1[\"changed\"]; })" + js_getChanged :: CookieChangeEventInit -> IO JSVal +-- | +getChanged :: (MonadDOM m) => CookieChangeEventInit -> m (Maybe [CookieListItem]) +getChanged self = liftDOM (((js_getChanged (self)) >>= fromJSValUnchecked)) + +-- | +getChangedUnsafe :: (MonadDOM m, HasCallStack) => CookieChangeEventInit -> m [CookieListItem] +getChangedUnsafe self = liftDOM ((((js_getChanged (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getChangedUnchecked :: (MonadDOM m) => CookieChangeEventInit -> m [CookieListItem] +getChangedUnchecked self = liftDOM (((js_getChanged (self)) >>= fromJSValUnchecked)) + +foreign import javascript safe "(($1, $2) => { $1[\"deleted\"] = $2; })" + js_setDeleted :: CookieChangeEventInit -> JSVal -> IO () +-- | +setDeleted :: (MonadDOM m) => CookieChangeEventInit -> [CookieListItem] -> m () +setDeleted self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setDeleted (self) a2'))) + +foreign import javascript unsafe "(($1) => { return $1[\"deleted\"]; })" + js_getDeleted :: CookieChangeEventInit -> IO JSVal +-- | +getDeleted :: (MonadDOM m) => CookieChangeEventInit -> m (Maybe [CookieListItem]) +getDeleted self = liftDOM (((js_getDeleted (self)) >>= fromJSValUnchecked)) + +-- | +getDeletedUnsafe :: (MonadDOM m, HasCallStack) => CookieChangeEventInit -> m [CookieListItem] +getDeletedUnsafe self = liftDOM ((((js_getDeleted (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getDeletedUnchecked :: (MonadDOM m) => CookieChangeEventInit -> m [CookieListItem] +getDeletedUnchecked self = liftDOM (((js_getDeleted (self)) >>= fromJSValUnchecked)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CookieInit.hs b/src/GHCJS/DOM/JSFFI/Generated/CookieInit.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CookieInit.hs @@ -0,0 +1,167 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from cookiestore (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CookieInit + (js_newCookieInit, js_setName, js_getName, js_setValue, js_getValue, js_setExpires, js_getExpires, js_setDomain, js_getDomain, js_setPath, js_getPath, js_setSameSite, js_getSameSite, js_setPartitioned, js_getPartitioned, js_setMaxAge, js_getMaxAge, newCookieInit, setName, getName, setValue, getValue, setExpires, getExpires, getExpiresUnsafe, getExpiresUnchecked, setDomain, getDomain, getDomainUnsafe, getDomainUnchecked, setPath, getPath, getPathUnsafe, getPathUnchecked, setSameSite, getSameSite, getSameSiteUnsafe, getSameSiteUnchecked, setPartitioned, getPartitioned, getPartitionedUnsafe, getPartitionedUnchecked, setMaxAge, getMaxAge, getMaxAgeUnsafe, getMaxAgeUnchecked, CookieInit(..), gTypeCookieInit) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1, $2) => { return ({\"name\": $1, \"value\": $2}); })" + js_newCookieInit :: JSString -> JSString -> IO CookieInit +-- | +newCookieInit :: (MonadDOM m, ToJSString name, ToJSString value) => name -> value -> m CookieInit +newCookieInit name value = liftDOM ((js_newCookieInit (toJSString name) (toJSString value))) + +foreign import javascript safe "(($1, $2) => { $1[\"name\"] = $2; })" + js_setName :: CookieInit -> JSString -> IO () +-- | +setName :: (MonadDOM m, ToJSString val) => CookieInit -> val -> m () +setName self val = liftDOM (void ((js_setName (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"name\"]; })" + js_getName :: CookieInit -> IO JSString +-- | +getName :: (MonadDOM m, FromJSString result) => CookieInit -> m result +getName self = liftDOM ((fromJSString <$> (js_getName (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"value\"] = $2; })" + js_setValue :: CookieInit -> JSString -> IO () +-- | +setValue :: (MonadDOM m, ToJSString val) => CookieInit -> val -> m () +setValue self val = liftDOM (void ((js_setValue (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"value\"]; })" + js_getValue :: CookieInit -> IO JSString +-- | +getValue :: (MonadDOM m, FromJSString result) => CookieInit -> m result +getValue self = liftDOM ((fromJSString <$> (js_getValue (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"expires\"] = $2; })" + js_setExpires :: CookieInit -> JSVal -> IO () +-- | +setExpires :: (MonadDOM m) => CookieInit -> Maybe Double -> m () +setExpires self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setExpires (self) a2'))) + +foreign import javascript unsafe "(($1) => { return $1[\"expires\"]; })" + js_getExpires :: CookieInit -> IO JSVal +-- | +getExpires :: (MonadDOM m) => CookieInit -> m (Maybe Double) +getExpires self = liftDOM (((js_getExpires (self)) >>= fromJSValUnchecked)) + +-- | +getExpiresUnsafe :: (MonadDOM m, HasCallStack) => CookieInit -> m Double +getExpiresUnsafe self = liftDOM ((((js_getExpires (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getExpiresUnchecked :: (MonadDOM m) => CookieInit -> m Double +getExpiresUnchecked self = liftDOM ((pFromJSVal <$> (js_getExpires (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"domain\"] = $2; })" + js_setDomain :: CookieInit -> (Nullable JSString) -> IO () +-- | +setDomain :: (MonadDOM m, ToJSString val) => CookieInit -> Maybe val -> m () +setDomain self val = liftDOM (void ((js_setDomain (self) (toMaybeJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"domain\"]; })" + js_getDomain :: CookieInit -> IO JSVal +-- | +getDomain :: (MonadDOM m, FromJSString result) => CookieInit -> m (Maybe result) +getDomain self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getDomain (self)))) + +-- | +getDomainUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => CookieInit -> m result +getDomainUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getDomain (self))) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getDomainUnchecked :: (MonadDOM m, FromJSString result) => CookieInit -> m result +getDomainUnchecked self = liftDOM ((pFromJSVal <$> (js_getDomain (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"path\"] = $2; })" + js_setPath :: CookieInit -> JSString -> IO () +-- | +setPath :: (MonadDOM m, ToJSString val) => CookieInit -> val -> m () +setPath self val = liftDOM (void ((js_setPath (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"path\"]; })" + js_getPath :: CookieInit -> IO JSVal +-- | +getPath :: (MonadDOM m, FromJSString result) => CookieInit -> m (Maybe result) +getPath self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getPath (self)))) + +-- | +getPathUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => CookieInit -> m result +getPathUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getPath (self))) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getPathUnchecked :: (MonadDOM m, FromJSString result) => CookieInit -> m result +getPathUnchecked self = liftDOM ((pFromJSVal <$> (js_getPath (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"sameSite\"] = $2; })" + js_setSameSite :: CookieInit -> JSVal -> IO () +-- | +setSameSite :: (MonadDOM m) => CookieInit -> CookieSameSite -> m () +setSameSite self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setSameSite (self) a2'))) + +foreign import javascript unsafe "(($1) => { return $1[\"sameSite\"]; })" + js_getSameSite :: CookieInit -> IO JSVal +-- | +getSameSite :: (MonadDOM m) => CookieInit -> m (Maybe CookieSameSite) +getSameSite self = liftDOM (((js_getSameSite (self)) >>= fromJSValUnchecked)) + +-- | +getSameSiteUnsafe :: (MonadDOM m, HasCallStack) => CookieInit -> m CookieSameSite +getSameSiteUnsafe self = liftDOM ((((js_getSameSite (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getSameSiteUnchecked :: (MonadDOM m) => CookieInit -> m CookieSameSite +getSameSiteUnchecked self = liftDOM ((pFromJSVal <$> (js_getSameSite (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"partitioned\"] = $2; })" + js_setPartitioned :: CookieInit -> Bool -> IO () +-- | +setPartitioned :: (MonadDOM m) => CookieInit -> Bool -> m () +setPartitioned self val = liftDOM (void ((js_setPartitioned (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"partitioned\"]; })" + js_getPartitioned :: CookieInit -> IO JSVal +-- | +getPartitioned :: (MonadDOM m) => CookieInit -> m (Maybe Bool) +getPartitioned self = liftDOM (((js_getPartitioned (self)) >>= fromJSValUnchecked)) + +-- | +getPartitionedUnsafe :: (MonadDOM m, HasCallStack) => CookieInit -> m Bool +getPartitionedUnsafe self = liftDOM ((((js_getPartitioned (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getPartitionedUnchecked :: (MonadDOM m) => CookieInit -> m Bool +getPartitionedUnchecked self = liftDOM ((pFromJSVal <$> (js_getPartitioned (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"maxAge\"] = $2; })" + js_setMaxAge :: CookieInit -> JSVal -> IO () +-- | +setMaxAge :: (MonadDOM m) => CookieInit -> Maybe Int53 -> m () +setMaxAge self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setMaxAge (self) a2'))) + +foreign import javascript unsafe "(($1) => { return $1[\"maxAge\"]; })" + js_getMaxAge :: CookieInit -> IO JSVal +-- | +getMaxAge :: (MonadDOM m) => CookieInit -> m (Maybe Int53) +getMaxAge self = liftDOM (((js_getMaxAge (self)) >>= fromJSValUnchecked)) + +-- | +getMaxAgeUnsafe :: (MonadDOM m, HasCallStack) => CookieInit -> m Int53 +getMaxAgeUnsafe self = liftDOM ((((js_getMaxAge (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getMaxAgeUnchecked :: (MonadDOM m) => CookieInit -> m Int53 +getMaxAgeUnchecked self = liftDOM ((pFromJSVal <$> (js_getMaxAge (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CookieListItem.hs b/src/GHCJS/DOM/JSFFI/Generated/CookieListItem.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CookieListItem.hs @@ -0,0 +1,63 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from cookiestore (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CookieListItem + (js_newCookieListItem, js_setName, js_getName, js_setValue, js_getValue, newCookieListItem, setName, getName, getNameUnsafe, getNameUnchecked, setValue, getValue, getValueUnsafe, getValueUnchecked, CookieListItem(..), gTypeCookieListItem) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(() => { return ({}); })" + js_newCookieListItem :: IO CookieListItem +-- | +newCookieListItem :: (MonadDOM m) => m CookieListItem +newCookieListItem = liftDOM ((js_newCookieListItem)) + +foreign import javascript safe "(($1, $2) => { $1[\"name\"] = $2; })" + js_setName :: CookieListItem -> JSString -> IO () +-- | +setName :: (MonadDOM m, ToJSString val) => CookieListItem -> val -> m () +setName self val = liftDOM (void ((js_setName (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"name\"]; })" + js_getName :: CookieListItem -> IO JSVal +-- | +getName :: (MonadDOM m, FromJSString result) => CookieListItem -> m (Maybe result) +getName self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getName (self)))) + +-- | +getNameUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => CookieListItem -> m result +getNameUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getName (self))) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getNameUnchecked :: (MonadDOM m, FromJSString result) => CookieListItem -> m result +getNameUnchecked self = liftDOM ((pFromJSVal <$> (js_getName (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"value\"] = $2; })" + js_setValue :: CookieListItem -> JSString -> IO () +-- | +setValue :: (MonadDOM m, ToJSString val) => CookieListItem -> val -> m () +setValue self val = liftDOM (void ((js_setValue (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"value\"]; })" + js_getValue :: CookieListItem -> IO JSVal +-- | +getValue :: (MonadDOM m, FromJSString result) => CookieListItem -> m (Maybe result) +getValue self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getValue (self)))) + +-- | +getValueUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => CookieListItem -> m result +getValueUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getValue (self))) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getValueUnchecked :: (MonadDOM m, FromJSString result) => CookieListItem -> m result +getValueUnchecked self = liftDOM ((pFromJSVal <$> (js_getValue (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CookieStore.hs b/src/GHCJS/DOM/JSFFI/Generated/CookieStore.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CookieStore.hs @@ -0,0 +1,101 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from cookiestore (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CookieStore + (js_delete, js_deleteOptions, js_get, js_getOptions, js_getAll, js_getAllOptions, js_set, js_setOptions, delete, deleteOptions, get, get_, getUnsafe, getUnchecked, getOptions, getOptions_, getOptionsUnsafe, getOptionsUnchecked, getAll, getAll_, getAllOptions, getAllOptions_, set, setOptions, change, CookieStore(..), gTypeCookieStore) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript interruptible "(($1, $2, $c) => { return $1[\"delete\"]($2).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })" + js_delete :: CookieStore -> JSString -> IO (JSVal, ()) +-- | +delete :: (MonadDOM m, ToJSString name) => CookieStore -> name -> m () +delete self name = liftDOM (void (((js_delete (self) (toJSString name)) >>= checkPromiseResult))) + +foreign import javascript interruptible "(($1, $2, $c) => { return $1[\"delete\"]($2).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })" + js_deleteOptions :: CookieStore -> CookieStoreDeleteOptions -> IO (JSVal, ()) +-- | +deleteOptions :: (MonadDOM m) => CookieStore -> CookieStoreDeleteOptions -> m () +deleteOptions self options = liftDOM (void (((js_deleteOptions (self) (options)) >>= checkPromiseResult))) + +foreign import javascript interruptible "(($1, $2, $c) => { return $1[\"get\"]($2).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })" + js_get :: CookieStore -> JSString -> IO (JSVal, JSVal) +-- | +get :: (MonadDOM m, ToJSString name) => CookieStore -> name -> m (Maybe CookieListItem) +get self name = liftDOM ((((js_get (self) (toJSString name)) >>= checkPromiseResult) >>= fromJSValUnchecked)) + +-- | +get_ :: (MonadDOM m, ToJSString name) => CookieStore -> name -> m () +get_ self name = liftDOM (void (((js_get (self) (toJSString name)) >>= checkPromiseResult))) + +-- | +getUnsafe :: (MonadDOM m, ToJSString name, HasCallStack) => CookieStore -> name -> m CookieListItem +getUnsafe self name = liftDOM (((((js_get (self) (toJSString name)) >>= checkPromiseResult) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getUnchecked :: (MonadDOM m, ToJSString name) => CookieStore -> name -> m CookieListItem +getUnchecked self name = liftDOM ((pFromJSVal <$> ((js_get (self) (toJSString name)) >>= checkPromiseResult))) + +foreign import javascript interruptible "(($1, $2, $c) => { return $1[\"get\"]($2).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })" + js_getOptions :: CookieStore -> JSVal -> IO (JSVal, JSVal) +-- | +getOptions :: (MonadDOM m) => CookieStore -> Maybe CookieStoreGetOptions -> m (Maybe CookieListItem) +getOptions self options = liftDOM (((((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_getOptions (self) a2') >>= checkPromiseResult) >>= fromJSValUnchecked)) + +-- | +getOptions_ :: (MonadDOM m) => CookieStore -> Maybe CookieStoreGetOptions -> m () +getOptions_ self options = liftDOM (void ((((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_getOptions (self) a2') >>= checkPromiseResult))) + +-- | +getOptionsUnsafe :: (MonadDOM m, HasCallStack) => CookieStore -> Maybe CookieStoreGetOptions -> m CookieListItem +getOptionsUnsafe self options = liftDOM ((((((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_getOptions (self) a2') >>= checkPromiseResult) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getOptionsUnchecked :: (MonadDOM m) => CookieStore -> Maybe CookieStoreGetOptions -> m CookieListItem +getOptionsUnchecked self options = liftDOM ((pFromJSVal <$> (((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_getOptions (self) a2') >>= checkPromiseResult))) + +foreign import javascript interruptible "(($1, $2, $c) => { return $1[\"getAll\"]($2).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })" + js_getAll :: CookieStore -> JSString -> IO (JSVal, JSVal) +-- | +getAll :: (MonadDOM m, ToJSString name) => CookieStore -> name -> m [CookieListItem] +getAll self name = liftDOM ((((js_getAll (self) (toJSString name)) >>= checkPromiseResult) >>= fromJSValUnchecked)) + +-- | +getAll_ :: (MonadDOM m, ToJSString name) => CookieStore -> name -> m () +getAll_ self name = liftDOM (void (((js_getAll (self) (toJSString name)) >>= checkPromiseResult))) + +foreign import javascript interruptible "(($1, $2, $c) => { return $1[\"getAll\"]($2).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })" + js_getAllOptions :: CookieStore -> JSVal -> IO (JSVal, JSVal) +-- | +getAllOptions :: (MonadDOM m) => CookieStore -> Maybe CookieStoreGetOptions -> m [CookieListItem] +getAllOptions self options = liftDOM (((((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_getAllOptions (self) a2') >>= checkPromiseResult) >>= fromJSValUnchecked)) + +-- | +getAllOptions_ :: (MonadDOM m) => CookieStore -> Maybe CookieStoreGetOptions -> m () +getAllOptions_ self options = liftDOM (void ((((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_getAllOptions (self) a2') >>= checkPromiseResult))) + +foreign import javascript interruptible "(($1, $2, $3, $c) => { return $1[\"set\"]($2, $3).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })" + js_set :: CookieStore -> JSString -> JSString -> IO (JSVal, ()) +-- | +set :: (MonadDOM m, ToJSString name, ToJSString value) => CookieStore -> name -> value -> m () +set self name value = liftDOM (void (((js_set (self) (toJSString name) (toJSString value)) >>= checkPromiseResult))) + +foreign import javascript interruptible "(($1, $2, $c) => { return $1[\"set\"]($2).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })" + js_setOptions :: CookieStore -> CookieInit -> IO (JSVal, ()) +-- | +setOptions :: (MonadDOM m) => CookieStore -> CookieInit -> m () +setOptions self options = liftDOM (void (((js_setOptions (self) (options)) >>= checkPromiseResult))) + +-- | +change :: EventName CookieStore CookieChangeEvent +change = unsafeEventName (toJSString "change") diff --git a/src/GHCJS/DOM/JSFFI/Generated/CookieStoreDeleteOptions.hs b/src/GHCJS/DOM/JSFFI/Generated/CookieStoreDeleteOptions.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CookieStoreDeleteOptions.hs @@ -0,0 +1,95 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from cookiestore (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CookieStoreDeleteOptions + (js_newCookieStoreDeleteOptions, js_setName, js_getName, js_setDomain, js_getDomain, js_setPath, js_getPath, js_setPartitioned, js_getPartitioned, newCookieStoreDeleteOptions, setName, getName, setDomain, getDomain, getDomainUnsafe, getDomainUnchecked, setPath, getPath, getPathUnsafe, getPathUnchecked, setPartitioned, getPartitioned, getPartitionedUnsafe, getPartitionedUnchecked, CookieStoreDeleteOptions(..), gTypeCookieStoreDeleteOptions) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1) => { return ({\"name\": $1}); })" + js_newCookieStoreDeleteOptions :: JSString -> IO CookieStoreDeleteOptions +-- | +newCookieStoreDeleteOptions :: (MonadDOM m, ToJSString name) => name -> m CookieStoreDeleteOptions +newCookieStoreDeleteOptions name = liftDOM ((js_newCookieStoreDeleteOptions (toJSString name))) + +foreign import javascript safe "(($1, $2) => { $1[\"name\"] = $2; })" + js_setName :: CookieStoreDeleteOptions -> JSString -> IO () +-- | +setName :: (MonadDOM m, ToJSString val) => CookieStoreDeleteOptions -> val -> m () +setName self val = liftDOM (void ((js_setName (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"name\"]; })" + js_getName :: CookieStoreDeleteOptions -> IO JSString +-- | +getName :: (MonadDOM m, FromJSString result) => CookieStoreDeleteOptions -> m result +getName self = liftDOM ((fromJSString <$> (js_getName (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"domain\"] = $2; })" + js_setDomain :: CookieStoreDeleteOptions -> (Nullable JSString) -> IO () +-- | +setDomain :: (MonadDOM m, ToJSString val) => CookieStoreDeleteOptions -> Maybe val -> m () +setDomain self val = liftDOM (void ((js_setDomain (self) (toMaybeJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"domain\"]; })" + js_getDomain :: CookieStoreDeleteOptions -> IO JSVal +-- | +getDomain :: (MonadDOM m, FromJSString result) => CookieStoreDeleteOptions -> m (Maybe result) +getDomain self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getDomain (self)))) + +-- | +getDomainUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => CookieStoreDeleteOptions -> m result +getDomainUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getDomain (self))) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getDomainUnchecked :: (MonadDOM m, FromJSString result) => CookieStoreDeleteOptions -> m result +getDomainUnchecked self = liftDOM ((pFromJSVal <$> (js_getDomain (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"path\"] = $2; })" + js_setPath :: CookieStoreDeleteOptions -> JSString -> IO () +-- | +setPath :: (MonadDOM m, ToJSString val) => CookieStoreDeleteOptions -> val -> m () +setPath self val = liftDOM (void ((js_setPath (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"path\"]; })" + js_getPath :: CookieStoreDeleteOptions -> IO JSVal +-- | +getPath :: (MonadDOM m, FromJSString result) => CookieStoreDeleteOptions -> m (Maybe result) +getPath self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getPath (self)))) + +-- | +getPathUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => CookieStoreDeleteOptions -> m result +getPathUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getPath (self))) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getPathUnchecked :: (MonadDOM m, FromJSString result) => CookieStoreDeleteOptions -> m result +getPathUnchecked self = liftDOM ((pFromJSVal <$> (js_getPath (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"partitioned\"] = $2; })" + js_setPartitioned :: CookieStoreDeleteOptions -> Bool -> IO () +-- | +setPartitioned :: (MonadDOM m) => CookieStoreDeleteOptions -> Bool -> m () +setPartitioned self val = liftDOM (void ((js_setPartitioned (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"partitioned\"]; })" + js_getPartitioned :: CookieStoreDeleteOptions -> IO JSVal +-- | +getPartitioned :: (MonadDOM m) => CookieStoreDeleteOptions -> m (Maybe Bool) +getPartitioned self = liftDOM (((js_getPartitioned (self)) >>= fromJSValUnchecked)) + +-- | +getPartitionedUnsafe :: (MonadDOM m, HasCallStack) => CookieStoreDeleteOptions -> m Bool +getPartitionedUnsafe self = liftDOM ((((js_getPartitioned (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getPartitionedUnchecked :: (MonadDOM m) => CookieStoreDeleteOptions -> m Bool +getPartitionedUnchecked self = liftDOM ((pFromJSVal <$> (js_getPartitioned (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CookieStoreGetOptions.hs b/src/GHCJS/DOM/JSFFI/Generated/CookieStoreGetOptions.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CookieStoreGetOptions.hs @@ -0,0 +1,63 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from cookiestore (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CookieStoreGetOptions + (js_newCookieStoreGetOptions, js_setName, js_getName, js_setUrl, js_getUrl, newCookieStoreGetOptions, setName, getName, getNameUnsafe, getNameUnchecked, setUrl, getUrl, getUrlUnsafe, getUrlUnchecked, CookieStoreGetOptions(..), gTypeCookieStoreGetOptions) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(() => { return ({}); })" + js_newCookieStoreGetOptions :: IO CookieStoreGetOptions +-- | +newCookieStoreGetOptions :: (MonadDOM m) => m CookieStoreGetOptions +newCookieStoreGetOptions = liftDOM ((js_newCookieStoreGetOptions)) + +foreign import javascript safe "(($1, $2) => { $1[\"name\"] = $2; })" + js_setName :: CookieStoreGetOptions -> JSString -> IO () +-- | +setName :: (MonadDOM m, ToJSString val) => CookieStoreGetOptions -> val -> m () +setName self val = liftDOM (void ((js_setName (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"name\"]; })" + js_getName :: CookieStoreGetOptions -> IO JSVal +-- | +getName :: (MonadDOM m, FromJSString result) => CookieStoreGetOptions -> m (Maybe result) +getName self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getName (self)))) + +-- | +getNameUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => CookieStoreGetOptions -> m result +getNameUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getName (self))) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getNameUnchecked :: (MonadDOM m, FromJSString result) => CookieStoreGetOptions -> m result +getNameUnchecked self = liftDOM ((pFromJSVal <$> (js_getName (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"url\"] = $2; })" + js_setUrl :: CookieStoreGetOptions -> JSString -> IO () +-- | +setUrl :: (MonadDOM m, ToJSString val) => CookieStoreGetOptions -> val -> m () +setUrl self val = liftDOM (void ((js_setUrl (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"url\"]; })" + js_getUrl :: CookieStoreGetOptions -> IO JSVal +-- | +getUrl :: (MonadDOM m, FromJSString result) => CookieStoreGetOptions -> m (Maybe result) +getUrl self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getUrl (self)))) + +-- | +getUrlUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => CookieStoreGetOptions -> m result +getUrlUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getUrl (self))) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getUrlUnchecked :: (MonadDOM m, FromJSString result) => CookieStoreGetOptions -> m result +getUrlUnchecked self = liftDOM ((pFromJSVal <$> (js_getUrl (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CookieStoreManager.hs b/src/GHCJS/DOM/JSFFI/Generated/CookieStoreManager.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CookieStoreManager.hs @@ -0,0 +1,39 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from cookiestore (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CookieStoreManager + (js_getSubscriptions, js_subscribe, js_unsubscribe, getSubscriptions, getSubscriptions_, subscribe, unsubscribe, CookieStoreManager(..), gTypeCookieStoreManager) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript interruptible "(($1, $c) => { return $1[\"getSubscriptions\"]().then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })" + js_getSubscriptions :: CookieStoreManager -> IO (JSVal, JSVal) +-- | +getSubscriptions :: (MonadDOM m) => CookieStoreManager -> m [CookieStoreGetOptions] +getSubscriptions self = liftDOM ((((js_getSubscriptions (self)) >>= checkPromiseResult) >>= fromJSValUnchecked)) + +-- | +getSubscriptions_ :: (MonadDOM m) => CookieStoreManager -> m () +getSubscriptions_ self = liftDOM (void (((js_getSubscriptions (self)) >>= checkPromiseResult))) + +foreign import javascript interruptible "(($1, $2, $c) => { return $1[\"subscribe\"]($2).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })" + js_subscribe :: CookieStoreManager -> JSVal -> IO (JSVal, ()) +-- | +subscribe :: (MonadDOM m) => CookieStoreManager -> [CookieStoreGetOptions] -> m () +subscribe self subscriptions = liftDOM (void ((((toJSVal subscriptions) >>= \a2' -> js_subscribe (self) a2') >>= checkPromiseResult))) + +foreign import javascript interruptible "(($1, $2, $c) => { return $1[\"unsubscribe\"]($2).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })" + js_unsubscribe :: CookieStoreManager -> JSVal -> IO (JSVal, ()) +-- | +unsubscribe :: (MonadDOM m) => CookieStoreManager -> [CookieStoreGetOptions] -> m () +unsubscribe self subscriptions = liftDOM (void ((((toJSVal subscriptions) >>= \a2' -> js_unsubscribe (self) a2') >>= checkPromiseResult))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/Coordinates.hs b/src/GHCJS/DOM/JSFFI/Generated/Coordinates.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/Coordinates.hs +++ /dev/null @@ -1,139 +0,0 @@ -{-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE JavaScriptFFI #-} --- For HasCallStack compatibility -{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} -module GHCJS.DOM.JSFFI.Generated.Coordinates - (js_getLatitude, getLatitude, js_getLongitude, getLongitude, - js_getAltitude, getAltitude, getAltitudeUnsafe, - getAltitudeUnchecked, js_getAccuracy, getAccuracy, - js_getAltitudeAccuracy, getAltitudeAccuracy, - getAltitudeAccuracyUnsafe, getAltitudeAccuracyUnchecked, - js_getHeading, getHeading, getHeadingUnsafe, getHeadingUnchecked, - js_getSpeed, getSpeed, getSpeedUnsafe, getSpeedUnchecked, - Coordinates(..), gTypeCoordinates) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull, jsUndefined) -import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import Data.Maybe (fromJust) -import Data.Traversable (mapM) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) -import GHCJS.DOM.JSFFI.Generated.Enums - -foreign import javascript unsafe "(($1) => { return $1[\"latitude\"]; })" js_getLatitude - :: Coordinates -> IO Double - --- | -getLatitude :: (MonadIO m) => Coordinates -> m Double -getLatitude self = liftIO (js_getLatitude self) - -foreign import javascript unsafe "(($1) => { return $1[\"longitude\"]; })" - js_getLongitude :: Coordinates -> IO Double - --- | -getLongitude :: (MonadIO m) => Coordinates -> m Double -getLongitude self = liftIO (js_getLongitude self) - -foreign import javascript unsafe "(($1) => { return $1[\"altitude\"]; })" js_getAltitude - :: Coordinates -> IO (Nullable Double) - --- | -getAltitude :: (MonadIO m) => Coordinates -> m (Maybe Double) -getAltitude self - = liftIO (nullableToMaybe <$> (js_getAltitude self)) - --- | -getAltitudeUnsafe :: - (MonadIO m, HasCallStack) => Coordinates -> m Double -getAltitudeUnsafe self - = liftIO - ((nullableToMaybe <$> (js_getAltitude self)) >>= - maybe (Prelude.error "Nothing to return") return) - --- | -getAltitudeUnchecked :: (MonadIO m) => Coordinates -> m Double -getAltitudeUnchecked self - = liftIO (fromJust . nullableToMaybe <$> (js_getAltitude self)) - -foreign import javascript unsafe "(($1) => { return $1[\"accuracy\"]; })" js_getAccuracy - :: Coordinates -> IO Double - --- | -getAccuracy :: (MonadIO m) => Coordinates -> m Double -getAccuracy self = liftIO (js_getAccuracy self) - -foreign import javascript unsafe "(($1) => { return $1[\"altitudeAccuracy\"]; })" - js_getAltitudeAccuracy :: Coordinates -> IO (Nullable Double) - --- | -getAltitudeAccuracy :: - (MonadIO m) => Coordinates -> m (Maybe Double) -getAltitudeAccuracy self - = liftIO (nullableToMaybe <$> (js_getAltitudeAccuracy self)) - --- | -getAltitudeAccuracyUnsafe :: - (MonadIO m, HasCallStack) => Coordinates -> m Double -getAltitudeAccuracyUnsafe self - = liftIO - ((nullableToMaybe <$> (js_getAltitudeAccuracy self)) >>= - maybe (Prelude.error "Nothing to return") return) - --- | -getAltitudeAccuracyUnchecked :: - (MonadIO m) => Coordinates -> m Double -getAltitudeAccuracyUnchecked self - = liftIO - (fromJust . nullableToMaybe <$> (js_getAltitudeAccuracy self)) - -foreign import javascript unsafe "(($1) => { return $1[\"heading\"]; })" js_getHeading :: - Coordinates -> IO (Nullable Double) - --- | -getHeading :: (MonadIO m) => Coordinates -> m (Maybe Double) -getHeading self = liftIO (nullableToMaybe <$> (js_getHeading self)) - --- | -getHeadingUnsafe :: - (MonadIO m, HasCallStack) => Coordinates -> m Double -getHeadingUnsafe self - = liftIO - ((nullableToMaybe <$> (js_getHeading self)) >>= - maybe (Prelude.error "Nothing to return") return) - --- | -getHeadingUnchecked :: (MonadIO m) => Coordinates -> m Double -getHeadingUnchecked self - = liftIO (fromJust . nullableToMaybe <$> (js_getHeading self)) - -foreign import javascript unsafe "(($1) => { return $1[\"speed\"]; })" js_getSpeed :: - Coordinates -> IO (Nullable Double) - --- | -getSpeed :: (MonadIO m) => Coordinates -> m (Maybe Double) -getSpeed self = liftIO (nullableToMaybe <$> (js_getSpeed self)) - --- | -getSpeedUnsafe :: - (MonadIO m, HasCallStack) => Coordinates -> m Double -getSpeedUnsafe self - = liftIO - ((nullableToMaybe <$> (js_getSpeed self)) >>= - maybe (Prelude.error "Nothing to return") return) - --- | -getSpeedUnchecked :: (MonadIO m) => Coordinates -> m Double -getSpeedUnchecked self - = liftIO (fromJust . nullableToMaybe <$> (js_getSpeed self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CountQueuingStrategy.hs b/src/GHCJS/DOM/JSFFI/Generated/CountQueuingStrategy.hs --- a/src/GHCJS/DOM/JSFFI/Generated/CountQueuingStrategy.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/CountQueuingStrategy.hs @@ -1,46 +1,35 @@ {-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE JavaScriptFFI #-} --- For HasCallStack compatibility +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from streams (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.CountQueuingStrategy - (js_newCountQueuingStrategy, newCountQueuingStrategy, js_size, - size, size_, CountQueuingStrategy(..), gTypeCountQueuingStrategy) + (js_newCountQueuingStrategy, js_getHighWaterMark, js_getSize, newCountQueuingStrategy, getHighWaterMark, getSize, CountQueuingStrategy(..), gTypeCountQueuingStrategy) where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull, jsUndefined) -import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import Data.Maybe (fromJust) -import Data.Traversable (mapM) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types -import Control.Applicative ((<$>)) +import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums - -foreign import javascript unsafe - "(() => { return new window[\"CountQueuingStrategy\"](); })" js_newCountQueuingStrategy - :: IO CountQueuingStrategy --- | -newCountQueuingStrategy :: (MonadIO m) => m CountQueuingStrategy -newCountQueuingStrategy = liftIO (js_newCountQueuingStrategy) - -foreign import javascript unsafe "(($1) => { return $1[\"size\"](); })" js_size :: - CountQueuingStrategy -> IO Double +foreign import javascript safe "(($1) => { return new globalThis[\"CountQueuingStrategy\"]($1); })" + js_newCountQueuingStrategy :: QueuingStrategyInit -> IO CountQueuingStrategy +-- | +newCountQueuingStrategy :: (MonadDOM m) => QueuingStrategyInit -> m CountQueuingStrategy +newCountQueuingStrategy init = liftDOM ((js_newCountQueuingStrategy (init))) --- | -size :: (MonadIO m) => CountQueuingStrategy -> m Double -size self = liftIO (js_size self) +foreign import javascript unsafe "(($1) => { return $1[\"highWaterMark\"]; })" + js_getHighWaterMark :: CountQueuingStrategy -> IO Double +-- | +getHighWaterMark :: (MonadDOM m) => CountQueuingStrategy -> m Double +getHighWaterMark self = liftDOM ((js_getHighWaterMark (self))) --- | -size_ :: (MonadIO m) => CountQueuingStrategy -> m () -size_ self = liftIO (void (js_size self)) +foreign import javascript unsafe "(($1) => { return $1[\"size\"]; })" + js_getSize :: CountQueuingStrategy -> IO Function +-- | +getSize :: (MonadDOM m) => CountQueuingStrategy -> m Function +getSize self = liftDOM ((js_getSize (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/Counter.hs b/src/GHCJS/DOM/JSFFI/Generated/Counter.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/Counter.hs +++ /dev/null @@ -1,54 +0,0 @@ -{-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE JavaScriptFFI #-} --- For HasCallStack compatibility -{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} -module GHCJS.DOM.JSFFI.Generated.Counter - (js_getIdentifier, getIdentifier, js_getListStyle, getListStyle, - js_getSeparator, getSeparator, Counter(..), gTypeCounter) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull, jsUndefined) -import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import Data.Maybe (fromJust) -import Data.Traversable (mapM) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) -import GHCJS.DOM.JSFFI.Generated.Enums - -foreign import javascript unsafe "(($1) => { return $1[\"identifier\"]; })" - js_getIdentifier :: Counter -> IO JSString - --- | -getIdentifier :: - (MonadIO m, FromJSString result) => Counter -> m result -getIdentifier self - = liftIO (fromJSString <$> (js_getIdentifier self)) - -foreign import javascript unsafe "(($1) => { return $1[\"listStyle\"]; })" - js_getListStyle :: Counter -> IO JSString - --- | -getListStyle :: - (MonadIO m, FromJSString result) => Counter -> m result -getListStyle self - = liftIO (fromJSString <$> (js_getListStyle self)) - -foreign import javascript unsafe "(($1) => { return $1[\"separator\"]; })" - js_getSeparator :: Counter -> IO JSString - --- | -getSeparator :: - (MonadIO m, FromJSString result) => Counter -> m result -getSeparator self - = liftIO (fromJSString <$> (js_getSeparator self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CreateHTMLCallback.hs b/src/GHCJS/DOM/JSFFI/Generated/CreateHTMLCallback.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CreateHTMLCallback.hs @@ -0,0 +1,32 @@ +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from trusted-types (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CreateHTMLCallback + (newCreateHTMLCallback, newCreateHTMLCallbackSync, newCreateHTMLCallbackAsync, CreateHTMLCallback) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import Data.Coerce (coerce) +import GHC.JS.Foreign.Callback (OnBlocked(..), syncCallback2, asyncCallback2) +import GHCJS.DOM.Types +import GHCJS.DOM.JSFFI.Generated.Enums + +newCreateHTMLCallback :: (MonadDOM m) => (JSString -> JSVal -> IO ()) -> m CreateHTMLCallback +newCreateHTMLCallback callback = liftDOM ((CreateHTMLCallback . coerce) <$> syncCallback2 ContinueAsync (\ input arguments -> do + input' <- fromJSValUnchecked input + arguments' <- P.return arguments + callback input' arguments')) + +newCreateHTMLCallbackSync :: (MonadDOM m) => (JSString -> JSVal -> IO ()) -> m CreateHTMLCallback +newCreateHTMLCallbackSync callback = liftDOM ((CreateHTMLCallback . coerce) <$> syncCallback2 ThrowWouldBlock (\ input arguments -> do + input' <- fromJSValUnchecked input + arguments' <- P.return arguments + callback input' arguments')) + +newCreateHTMLCallbackAsync :: (MonadDOM m) => (JSString -> JSVal -> IO ()) -> m CreateHTMLCallback +newCreateHTMLCallbackAsync callback = liftDOM ((CreateHTMLCallback . coerce) <$> asyncCallback2 (\ input arguments -> do + input' <- fromJSValUnchecked input + arguments' <- P.return arguments + callback input' arguments')) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CreateParserOptionsCallback.hs b/src/GHCJS/DOM/JSFFI/Generated/CreateParserOptionsCallback.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CreateParserOptionsCallback.hs @@ -0,0 +1,32 @@ +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from trusted-types (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CreateParserOptionsCallback + (newCreateParserOptionsCallback, newCreateParserOptionsCallbackSync, newCreateParserOptionsCallbackAsync, CreateParserOptionsCallback) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import Data.Coerce (coerce) +import GHC.JS.Foreign.Callback (OnBlocked(..), syncCallback2, asyncCallback2) +import GHCJS.DOM.Types +import GHCJS.DOM.JSFFI.Generated.Enums + +newCreateParserOptionsCallback :: (MonadDOM m) => (SetHTMLUnsafeOptions -> JSVal -> IO ()) -> m CreateParserOptionsCallback +newCreateParserOptionsCallback callback = liftDOM ((CreateParserOptionsCallback . coerce) <$> syncCallback2 ContinueAsync (\ options arguments -> do + options' <- fromJSValUnchecked options + arguments' <- P.return arguments + callback options' arguments')) + +newCreateParserOptionsCallbackSync :: (MonadDOM m) => (SetHTMLUnsafeOptions -> JSVal -> IO ()) -> m CreateParserOptionsCallback +newCreateParserOptionsCallbackSync callback = liftDOM ((CreateParserOptionsCallback . coerce) <$> syncCallback2 ThrowWouldBlock (\ options arguments -> do + options' <- fromJSValUnchecked options + arguments' <- P.return arguments + callback options' arguments')) + +newCreateParserOptionsCallbackAsync :: (MonadDOM m) => (SetHTMLUnsafeOptions -> JSVal -> IO ()) -> m CreateParserOptionsCallback +newCreateParserOptionsCallbackAsync callback = liftDOM ((CreateParserOptionsCallback . coerce) <$> asyncCallback2 (\ options arguments -> do + options' <- fromJSValUnchecked options + arguments' <- P.return arguments + callback options' arguments')) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CreateScriptCallback.hs b/src/GHCJS/DOM/JSFFI/Generated/CreateScriptCallback.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CreateScriptCallback.hs @@ -0,0 +1,32 @@ +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from trusted-types (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CreateScriptCallback + (newCreateScriptCallback, newCreateScriptCallbackSync, newCreateScriptCallbackAsync, CreateScriptCallback) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import Data.Coerce (coerce) +import GHC.JS.Foreign.Callback (OnBlocked(..), syncCallback2, asyncCallback2) +import GHCJS.DOM.Types +import GHCJS.DOM.JSFFI.Generated.Enums + +newCreateScriptCallback :: (MonadDOM m) => (JSString -> JSVal -> IO ()) -> m CreateScriptCallback +newCreateScriptCallback callback = liftDOM ((CreateScriptCallback . coerce) <$> syncCallback2 ContinueAsync (\ input arguments -> do + input' <- fromJSValUnchecked input + arguments' <- P.return arguments + callback input' arguments')) + +newCreateScriptCallbackSync :: (MonadDOM m) => (JSString -> JSVal -> IO ()) -> m CreateScriptCallback +newCreateScriptCallbackSync callback = liftDOM ((CreateScriptCallback . coerce) <$> syncCallback2 ThrowWouldBlock (\ input arguments -> do + input' <- fromJSValUnchecked input + arguments' <- P.return arguments + callback input' arguments')) + +newCreateScriptCallbackAsync :: (MonadDOM m) => (JSString -> JSVal -> IO ()) -> m CreateScriptCallback +newCreateScriptCallbackAsync callback = liftDOM ((CreateScriptCallback . coerce) <$> asyncCallback2 (\ input arguments -> do + input' <- fromJSValUnchecked input + arguments' <- P.return arguments + callback input' arguments')) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CreateScriptURLCallback.hs b/src/GHCJS/DOM/JSFFI/Generated/CreateScriptURLCallback.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CreateScriptURLCallback.hs @@ -0,0 +1,32 @@ +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from trusted-types (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CreateScriptURLCallback + (newCreateScriptURLCallback, newCreateScriptURLCallbackSync, newCreateScriptURLCallbackAsync, CreateScriptURLCallback) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import Data.Coerce (coerce) +import GHC.JS.Foreign.Callback (OnBlocked(..), syncCallback2, asyncCallback2) +import GHCJS.DOM.Types +import GHCJS.DOM.JSFFI.Generated.Enums + +newCreateScriptURLCallback :: (MonadDOM m) => (JSString -> JSVal -> IO ()) -> m CreateScriptURLCallback +newCreateScriptURLCallback callback = liftDOM ((CreateScriptURLCallback . coerce) <$> syncCallback2 ContinueAsync (\ input arguments -> do + input' <- fromJSValUnchecked input + arguments' <- P.return arguments + callback input' arguments')) + +newCreateScriptURLCallbackSync :: (MonadDOM m) => (JSString -> JSVal -> IO ()) -> m CreateScriptURLCallback +newCreateScriptURLCallbackSync callback = liftDOM ((CreateScriptURLCallback . coerce) <$> syncCallback2 ThrowWouldBlock (\ input arguments -> do + input' <- fromJSValUnchecked input + arguments' <- P.return arguments + callback input' arguments')) + +newCreateScriptURLCallbackAsync :: (MonadDOM m) => (JSString -> JSVal -> IO ()) -> m CreateScriptURLCallback +newCreateScriptURLCallbackAsync callback = liftDOM ((CreateScriptURLCallback . coerce) <$> asyncCallback2 (\ input arguments -> do + input' <- fromJSValUnchecked input + arguments' <- P.return arguments + callback input' arguments')) diff --git a/src/GHCJS/DOM/JSFFI/Generated/Credential.hs b/src/GHCJS/DOM/JSFFI/Generated/Credential.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/Credential.hs @@ -0,0 +1,39 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from credential-management-1 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.Credential + (js_isConditionalMediationAvailable, js_getId, js_getType, isConditionalMediationAvailable, isConditionalMediationAvailable_, getId, getType, Credential(..), gTypeCredential, IsCredential, toCredential) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript interruptible "(($c) => { return globalThis[\"Credential\"][\"isConditionalMediationAvailable\"]().then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })" + js_isConditionalMediationAvailable :: IO (JSVal, Bool) +-- | +isConditionalMediationAvailable :: (MonadDOM m) => m Bool +isConditionalMediationAvailable = liftDOM (((js_isConditionalMediationAvailable) >>= checkPromiseResult)) + +-- | +isConditionalMediationAvailable_ :: (MonadDOM m) => m () +isConditionalMediationAvailable_ = liftDOM (void (((js_isConditionalMediationAvailable) >>= checkPromiseResult))) + +foreign import javascript unsafe "(($1) => { return $1[\"id\"]; })" + js_getId :: Credential -> IO JSString +-- | +getId :: (MonadDOM m, IsCredential self, FromJSString result) => self -> m result +getId self = liftDOM ((fromJSString <$> (js_getId ((Types.toCredential self))))) + +foreign import javascript unsafe "(($1) => { return $1[\"type\"]; })" + js_getType :: Credential -> IO JSString +-- | +getType :: (MonadDOM m, IsCredential self, FromJSString result) => self -> m result +getType self = liftDOM ((fromJSString <$> (js_getType ((Types.toCredential self))))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CredentialCreationOptions.hs b/src/GHCJS/DOM/JSFFI/Generated/CredentialCreationOptions.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CredentialCreationOptions.hs @@ -0,0 +1,143 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from credential-management-1 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CredentialCreationOptions + (js_newCredentialCreationOptions, js_setMediation, js_getMediation, js_setSignal, js_getSignal, js_setPassword, js_getPassword, js_setFederated, js_getFederated, js_setDigital, js_getDigital, js_setPublicKey, js_getPublicKey, newCredentialCreationOptions, setMediation, getMediation, getMediationUnsafe, getMediationUnchecked, setSignal, getSignal, getSignalUnsafe, getSignalUnchecked, setPassword, getPassword, getPasswordUnsafe, getPasswordUnchecked, setFederated, getFederated, getFederatedUnsafe, getFederatedUnchecked, setDigital, getDigital, getDigitalUnsafe, getDigitalUnchecked, setPublicKey, getPublicKey, getPublicKeyUnsafe, getPublicKeyUnchecked, CredentialCreationOptions(..), gTypeCredentialCreationOptions) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(() => { return ({}); })" + js_newCredentialCreationOptions :: IO CredentialCreationOptions +-- | +newCredentialCreationOptions :: (MonadDOM m) => m CredentialCreationOptions +newCredentialCreationOptions = liftDOM ((js_newCredentialCreationOptions)) + +foreign import javascript safe "(($1, $2) => { $1[\"mediation\"] = $2; })" + js_setMediation :: CredentialCreationOptions -> JSVal -> IO () +-- | +setMediation :: (MonadDOM m) => CredentialCreationOptions -> CredentialMediationRequirement -> m () +setMediation self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setMediation (self) a2'))) + +foreign import javascript unsafe "(($1) => { return $1[\"mediation\"]; })" + js_getMediation :: CredentialCreationOptions -> IO JSVal +-- | +getMediation :: (MonadDOM m) => CredentialCreationOptions -> m (Maybe CredentialMediationRequirement) +getMediation self = liftDOM (((js_getMediation (self)) >>= fromJSValUnchecked)) + +-- | +getMediationUnsafe :: (MonadDOM m, HasCallStack) => CredentialCreationOptions -> m CredentialMediationRequirement +getMediationUnsafe self = liftDOM ((((js_getMediation (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getMediationUnchecked :: (MonadDOM m) => CredentialCreationOptions -> m CredentialMediationRequirement +getMediationUnchecked self = liftDOM ((pFromJSVal <$> (js_getMediation (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"signal\"] = $2; })" + js_setSignal :: CredentialCreationOptions -> AbortSignal -> IO () +-- | +setSignal :: (MonadDOM m, IsAbortSignal val) => CredentialCreationOptions -> val -> m () +setSignal self val = liftDOM (void ((js_setSignal (self) (Types.toAbortSignal val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"signal\"]; })" + js_getSignal :: CredentialCreationOptions -> IO JSVal +-- | +getSignal :: (MonadDOM m) => CredentialCreationOptions -> m (Maybe AbortSignal) +getSignal self = liftDOM (((js_getSignal (self)) >>= fromJSValUnchecked)) + +-- | +getSignalUnsafe :: (MonadDOM m, HasCallStack) => CredentialCreationOptions -> m AbortSignal +getSignalUnsafe self = liftDOM ((((js_getSignal (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getSignalUnchecked :: (MonadDOM m) => CredentialCreationOptions -> m AbortSignal +getSignalUnchecked self = liftDOM ((pFromJSVal <$> (js_getSignal (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"password\"] = $2; })" + js_setPassword :: CredentialCreationOptions -> PasswordCredentialInit -> IO () +-- | +setPassword :: (MonadDOM m, IsPasswordCredentialInit val) => CredentialCreationOptions -> val -> m () +setPassword self val = liftDOM (void ((js_setPassword (self) (Types.toPasswordCredentialInit val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"password\"]; })" + js_getPassword :: CredentialCreationOptions -> IO JSVal +-- | +getPassword :: (MonadDOM m) => CredentialCreationOptions -> m (Maybe PasswordCredentialInit) +getPassword self = liftDOM (((js_getPassword (self)) >>= fromJSValUnchecked)) + +-- | +getPasswordUnsafe :: (MonadDOM m, HasCallStack) => CredentialCreationOptions -> m PasswordCredentialInit +getPasswordUnsafe self = liftDOM ((((js_getPassword (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getPasswordUnchecked :: (MonadDOM m) => CredentialCreationOptions -> m PasswordCredentialInit +getPasswordUnchecked self = liftDOM ((pFromJSVal <$> (js_getPassword (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"federated\"] = $2; })" + js_setFederated :: CredentialCreationOptions -> FederatedCredentialInit -> IO () +-- | +setFederated :: (MonadDOM m) => CredentialCreationOptions -> FederatedCredentialInit -> m () +setFederated self val = liftDOM (void ((js_setFederated (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"federated\"]; })" + js_getFederated :: CredentialCreationOptions -> IO JSVal +-- | +getFederated :: (MonadDOM m) => CredentialCreationOptions -> m (Maybe FederatedCredentialInit) +getFederated self = liftDOM (((js_getFederated (self)) >>= fromJSValUnchecked)) + +-- | +getFederatedUnsafe :: (MonadDOM m, HasCallStack) => CredentialCreationOptions -> m FederatedCredentialInit +getFederatedUnsafe self = liftDOM ((((js_getFederated (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getFederatedUnchecked :: (MonadDOM m) => CredentialCreationOptions -> m FederatedCredentialInit +getFederatedUnchecked self = liftDOM ((pFromJSVal <$> (js_getFederated (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"digital\"] = $2; })" + js_setDigital :: CredentialCreationOptions -> DigitalCredentialCreationOptions -> IO () +-- | +setDigital :: (MonadDOM m) => CredentialCreationOptions -> DigitalCredentialCreationOptions -> m () +setDigital self val = liftDOM (void ((js_setDigital (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"digital\"]; })" + js_getDigital :: CredentialCreationOptions -> IO JSVal +-- | +getDigital :: (MonadDOM m) => CredentialCreationOptions -> m (Maybe DigitalCredentialCreationOptions) +getDigital self = liftDOM (((js_getDigital (self)) >>= fromJSValUnchecked)) + +-- | +getDigitalUnsafe :: (MonadDOM m, HasCallStack) => CredentialCreationOptions -> m DigitalCredentialCreationOptions +getDigitalUnsafe self = liftDOM ((((js_getDigital (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getDigitalUnchecked :: (MonadDOM m) => CredentialCreationOptions -> m DigitalCredentialCreationOptions +getDigitalUnchecked self = liftDOM ((pFromJSVal <$> (js_getDigital (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"publicKey\"] = $2; })" + js_setPublicKey :: CredentialCreationOptions -> PublicKeyCredentialCreationOptions -> IO () +-- | +setPublicKey :: (MonadDOM m) => CredentialCreationOptions -> PublicKeyCredentialCreationOptions -> m () +setPublicKey self val = liftDOM (void ((js_setPublicKey (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"publicKey\"]; })" + js_getPublicKey :: CredentialCreationOptions -> IO JSVal +-- | +getPublicKey :: (MonadDOM m) => CredentialCreationOptions -> m (Maybe PublicKeyCredentialCreationOptions) +getPublicKey self = liftDOM (((js_getPublicKey (self)) >>= fromJSValUnchecked)) + +-- | +getPublicKeyUnsafe :: (MonadDOM m, HasCallStack) => CredentialCreationOptions -> m PublicKeyCredentialCreationOptions +getPublicKeyUnsafe self = liftDOM ((((js_getPublicKey (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getPublicKeyUnchecked :: (MonadDOM m) => CredentialCreationOptions -> m PublicKeyCredentialCreationOptions +getPublicKeyUnchecked self = liftDOM ((pFromJSVal <$> (js_getPublicKey (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CredentialData.hs b/src/GHCJS/DOM/JSFFI/Generated/CredentialData.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CredentialData.hs @@ -0,0 +1,35 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from credential-management-1 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CredentialData + (js_newCredentialData, js_setId, js_getId, newCredentialData, setId, getId, CredentialData(..), gTypeCredentialData, IsCredentialData, toCredentialData) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1) => { return ({\"id\": $1}); })" + js_newCredentialData :: JSString -> IO CredentialData +-- | +newCredentialData :: (MonadDOM m, ToJSString id) => id -> m CredentialData +newCredentialData id = liftDOM ((js_newCredentialData (toJSString id))) + +foreign import javascript safe "(($1, $2) => { $1[\"id\"] = $2; })" + js_setId :: CredentialData -> JSString -> IO () +-- | +setId :: (MonadDOM m, IsCredentialData self, ToJSString val) => self -> val -> m () +setId self val = liftDOM (void ((js_setId ((Types.toCredentialData self)) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"id\"]; })" + js_getId :: CredentialData -> IO JSString +-- | +getId :: (MonadDOM m, IsCredentialData self, FromJSString result) => self -> m result +getId self = liftDOM ((fromJSString <$> (js_getId ((Types.toCredentialData self))))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CredentialPropertiesOutput.hs b/src/GHCJS/DOM/JSFFI/Generated/CredentialPropertiesOutput.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CredentialPropertiesOutput.hs @@ -0,0 +1,43 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from webauthn-4 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CredentialPropertiesOutput + (js_newCredentialPropertiesOutput, js_setRk, js_getRk, newCredentialPropertiesOutput, setRk, getRk, getRkUnsafe, getRkUnchecked, CredentialPropertiesOutput(..), gTypeCredentialPropertiesOutput) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(() => { return ({}); })" + js_newCredentialPropertiesOutput :: IO CredentialPropertiesOutput +-- | +newCredentialPropertiesOutput :: (MonadDOM m) => m CredentialPropertiesOutput +newCredentialPropertiesOutput = liftDOM ((js_newCredentialPropertiesOutput)) + +foreign import javascript safe "(($1, $2) => { $1[\"rk\"] = $2; })" + js_setRk :: CredentialPropertiesOutput -> Bool -> IO () +-- | +setRk :: (MonadDOM m) => CredentialPropertiesOutput -> Bool -> m () +setRk self val = liftDOM (void ((js_setRk (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"rk\"]; })" + js_getRk :: CredentialPropertiesOutput -> IO JSVal +-- | +getRk :: (MonadDOM m) => CredentialPropertiesOutput -> m (Maybe Bool) +getRk self = liftDOM (((js_getRk (self)) >>= fromJSValUnchecked)) + +-- | +getRkUnsafe :: (MonadDOM m, HasCallStack) => CredentialPropertiesOutput -> m Bool +getRkUnsafe self = liftDOM ((((js_getRk (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getRkUnchecked :: (MonadDOM m) => CredentialPropertiesOutput -> m Bool +getRkUnchecked self = liftDOM ((pFromJSVal <$> (js_getRk (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CredentialRequestOptions.hs b/src/GHCJS/DOM/JSFFI/Generated/CredentialRequestOptions.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CredentialRequestOptions.hs @@ -0,0 +1,203 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from credential-management-1 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CredentialRequestOptions + (js_newCredentialRequestOptions, js_setMediation, js_getMediation, js_setUiMode, js_getUiMode, js_setSignal, js_getSignal, js_setPassword, js_getPassword, js_setFederated, js_getFederated, js_setDigital, js_getDigital, js_setIdentity, js_getIdentity, js_setOtp, js_getOtp, js_setPublicKey, js_getPublicKey, newCredentialRequestOptions, setMediation, getMediation, getMediationUnsafe, getMediationUnchecked, setUiMode, getUiMode, getUiModeUnsafe, getUiModeUnchecked, setSignal, getSignal, getSignalUnsafe, getSignalUnchecked, setPassword, getPassword, getPasswordUnsafe, getPasswordUnchecked, setFederated, getFederated, getFederatedUnsafe, getFederatedUnchecked, setDigital, getDigital, getDigitalUnsafe, getDigitalUnchecked, setIdentity, getIdentity, getIdentityUnsafe, getIdentityUnchecked, setOtp, getOtp, getOtpUnsafe, getOtpUnchecked, setPublicKey, getPublicKey, getPublicKeyUnsafe, getPublicKeyUnchecked, CredentialRequestOptions(..), gTypeCredentialRequestOptions) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(() => { return ({}); })" + js_newCredentialRequestOptions :: IO CredentialRequestOptions +-- | +newCredentialRequestOptions :: (MonadDOM m) => m CredentialRequestOptions +newCredentialRequestOptions = liftDOM ((js_newCredentialRequestOptions)) + +foreign import javascript safe "(($1, $2) => { $1[\"mediation\"] = $2; })" + js_setMediation :: CredentialRequestOptions -> JSVal -> IO () +-- | +setMediation :: (MonadDOM m) => CredentialRequestOptions -> CredentialMediationRequirement -> m () +setMediation self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setMediation (self) a2'))) + +foreign import javascript unsafe "(($1) => { return $1[\"mediation\"]; })" + js_getMediation :: CredentialRequestOptions -> IO JSVal +-- | +getMediation :: (MonadDOM m) => CredentialRequestOptions -> m (Maybe CredentialMediationRequirement) +getMediation self = liftDOM (((js_getMediation (self)) >>= fromJSValUnchecked)) + +-- | +getMediationUnsafe :: (MonadDOM m, HasCallStack) => CredentialRequestOptions -> m CredentialMediationRequirement +getMediationUnsafe self = liftDOM ((((js_getMediation (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getMediationUnchecked :: (MonadDOM m) => CredentialRequestOptions -> m CredentialMediationRequirement +getMediationUnchecked self = liftDOM ((pFromJSVal <$> (js_getMediation (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"uiMode\"] = $2; })" + js_setUiMode :: CredentialRequestOptions -> JSString -> IO () +-- | +setUiMode :: (MonadDOM m, ToJSString val) => CredentialRequestOptions -> val -> m () +setUiMode self val = liftDOM (void ((js_setUiMode (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"uiMode\"]; })" + js_getUiMode :: CredentialRequestOptions -> IO JSVal +-- | +getUiMode :: (MonadDOM m, FromJSString result) => CredentialRequestOptions -> m (Maybe result) +getUiMode self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getUiMode (self)))) + +-- | +getUiModeUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => CredentialRequestOptions -> m result +getUiModeUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getUiMode (self))) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getUiModeUnchecked :: (MonadDOM m, FromJSString result) => CredentialRequestOptions -> m result +getUiModeUnchecked self = liftDOM ((pFromJSVal <$> (js_getUiMode (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"signal\"] = $2; })" + js_setSignal :: CredentialRequestOptions -> AbortSignal -> IO () +-- | +setSignal :: (MonadDOM m, IsAbortSignal val) => CredentialRequestOptions -> val -> m () +setSignal self val = liftDOM (void ((js_setSignal (self) (Types.toAbortSignal val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"signal\"]; })" + js_getSignal :: CredentialRequestOptions -> IO JSVal +-- | +getSignal :: (MonadDOM m) => CredentialRequestOptions -> m (Maybe AbortSignal) +getSignal self = liftDOM (((js_getSignal (self)) >>= fromJSValUnchecked)) + +-- | +getSignalUnsafe :: (MonadDOM m, HasCallStack) => CredentialRequestOptions -> m AbortSignal +getSignalUnsafe self = liftDOM ((((js_getSignal (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getSignalUnchecked :: (MonadDOM m) => CredentialRequestOptions -> m AbortSignal +getSignalUnchecked self = liftDOM ((pFromJSVal <$> (js_getSignal (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"password\"] = $2; })" + js_setPassword :: CredentialRequestOptions -> Bool -> IO () +-- | +setPassword :: (MonadDOM m) => CredentialRequestOptions -> Bool -> m () +setPassword self val = liftDOM (void ((js_setPassword (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"password\"]; })" + js_getPassword :: CredentialRequestOptions -> IO JSVal +-- | +getPassword :: (MonadDOM m) => CredentialRequestOptions -> m (Maybe Bool) +getPassword self = liftDOM (((js_getPassword (self)) >>= fromJSValUnchecked)) + +-- | +getPasswordUnsafe :: (MonadDOM m, HasCallStack) => CredentialRequestOptions -> m Bool +getPasswordUnsafe self = liftDOM ((((js_getPassword (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getPasswordUnchecked :: (MonadDOM m) => CredentialRequestOptions -> m Bool +getPasswordUnchecked self = liftDOM ((pFromJSVal <$> (js_getPassword (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"federated\"] = $2; })" + js_setFederated :: CredentialRequestOptions -> FederatedCredentialRequestOptions -> IO () +-- | +setFederated :: (MonadDOM m) => CredentialRequestOptions -> FederatedCredentialRequestOptions -> m () +setFederated self val = liftDOM (void ((js_setFederated (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"federated\"]; })" + js_getFederated :: CredentialRequestOptions -> IO JSVal +-- | +getFederated :: (MonadDOM m) => CredentialRequestOptions -> m (Maybe FederatedCredentialRequestOptions) +getFederated self = liftDOM (((js_getFederated (self)) >>= fromJSValUnchecked)) + +-- | +getFederatedUnsafe :: (MonadDOM m, HasCallStack) => CredentialRequestOptions -> m FederatedCredentialRequestOptions +getFederatedUnsafe self = liftDOM ((((js_getFederated (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getFederatedUnchecked :: (MonadDOM m) => CredentialRequestOptions -> m FederatedCredentialRequestOptions +getFederatedUnchecked self = liftDOM ((pFromJSVal <$> (js_getFederated (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"digital\"] = $2; })" + js_setDigital :: CredentialRequestOptions -> DigitalCredentialRequestOptions -> IO () +-- | +setDigital :: (MonadDOM m) => CredentialRequestOptions -> DigitalCredentialRequestOptions -> m () +setDigital self val = liftDOM (void ((js_setDigital (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"digital\"]; })" + js_getDigital :: CredentialRequestOptions -> IO JSVal +-- | +getDigital :: (MonadDOM m) => CredentialRequestOptions -> m (Maybe DigitalCredentialRequestOptions) +getDigital self = liftDOM (((js_getDigital (self)) >>= fromJSValUnchecked)) + +-- | +getDigitalUnsafe :: (MonadDOM m, HasCallStack) => CredentialRequestOptions -> m DigitalCredentialRequestOptions +getDigitalUnsafe self = liftDOM ((((js_getDigital (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getDigitalUnchecked :: (MonadDOM m) => CredentialRequestOptions -> m DigitalCredentialRequestOptions +getDigitalUnchecked self = liftDOM ((pFromJSVal <$> (js_getDigital (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"identity\"] = $2; })" + js_setIdentity :: CredentialRequestOptions -> IdentityCredentialRequestOptions -> IO () +-- | +setIdentity :: (MonadDOM m) => CredentialRequestOptions -> IdentityCredentialRequestOptions -> m () +setIdentity self val = liftDOM (void ((js_setIdentity (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"identity\"]; })" + js_getIdentity :: CredentialRequestOptions -> IO JSVal +-- | +getIdentity :: (MonadDOM m) => CredentialRequestOptions -> m (Maybe IdentityCredentialRequestOptions) +getIdentity self = liftDOM (((js_getIdentity (self)) >>= fromJSValUnchecked)) + +-- | +getIdentityUnsafe :: (MonadDOM m, HasCallStack) => CredentialRequestOptions -> m IdentityCredentialRequestOptions +getIdentityUnsafe self = liftDOM ((((js_getIdentity (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getIdentityUnchecked :: (MonadDOM m) => CredentialRequestOptions -> m IdentityCredentialRequestOptions +getIdentityUnchecked self = liftDOM ((pFromJSVal <$> (js_getIdentity (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"otp\"] = $2; })" + js_setOtp :: CredentialRequestOptions -> OTPCredentialRequestOptions -> IO () +-- | +setOtp :: (MonadDOM m) => CredentialRequestOptions -> OTPCredentialRequestOptions -> m () +setOtp self val = liftDOM (void ((js_setOtp (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"otp\"]; })" + js_getOtp :: CredentialRequestOptions -> IO JSVal +-- | +getOtp :: (MonadDOM m) => CredentialRequestOptions -> m (Maybe OTPCredentialRequestOptions) +getOtp self = liftDOM (((js_getOtp (self)) >>= fromJSValUnchecked)) + +-- | +getOtpUnsafe :: (MonadDOM m, HasCallStack) => CredentialRequestOptions -> m OTPCredentialRequestOptions +getOtpUnsafe self = liftDOM ((((js_getOtp (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getOtpUnchecked :: (MonadDOM m) => CredentialRequestOptions -> m OTPCredentialRequestOptions +getOtpUnchecked self = liftDOM ((pFromJSVal <$> (js_getOtp (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"publicKey\"] = $2; })" + js_setPublicKey :: CredentialRequestOptions -> PublicKeyCredentialRequestOptions -> IO () +-- | +setPublicKey :: (MonadDOM m) => CredentialRequestOptions -> PublicKeyCredentialRequestOptions -> m () +setPublicKey self val = liftDOM (void ((js_setPublicKey (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"publicKey\"]; })" + js_getPublicKey :: CredentialRequestOptions -> IO JSVal +-- | +getPublicKey :: (MonadDOM m) => CredentialRequestOptions -> m (Maybe PublicKeyCredentialRequestOptions) +getPublicKey self = liftDOM (((js_getPublicKey (self)) >>= fromJSValUnchecked)) + +-- | +getPublicKeyUnsafe :: (MonadDOM m, HasCallStack) => CredentialRequestOptions -> m PublicKeyCredentialRequestOptions +getPublicKeyUnsafe self = liftDOM ((((js_getPublicKey (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getPublicKeyUnchecked :: (MonadDOM m) => CredentialRequestOptions -> m PublicKeyCredentialRequestOptions +getPublicKeyUnchecked self = liftDOM ((pFromJSVal <$> (js_getPublicKey (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CredentialsContainer.hs b/src/GHCJS/DOM/JSFFI/Generated/CredentialsContainer.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CredentialsContainer.hs @@ -0,0 +1,65 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from credential-management-1 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CredentialsContainer + (js_create, js_get, js_preventSilentAccess, js_store, create, create_, createUnsafe, createUnchecked, get, get_, getUnsafe, getUnchecked, preventSilentAccess, store, CredentialsContainer(..), gTypeCredentialsContainer) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript interruptible "(($1, $2, $c) => { return $1[\"create\"]($2).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })" + js_create :: CredentialsContainer -> JSVal -> IO (JSVal, JSVal) +-- | +create :: (MonadDOM m) => CredentialsContainer -> Maybe CredentialCreationOptions -> m (Maybe Credential) +create self options = liftDOM (((((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_create (self) a2') >>= checkPromiseResult) >>= fromJSValUnchecked)) + +-- | +create_ :: (MonadDOM m) => CredentialsContainer -> Maybe CredentialCreationOptions -> m () +create_ self options = liftDOM (void ((((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_create (self) a2') >>= checkPromiseResult))) + +-- | +createUnsafe :: (MonadDOM m, HasCallStack) => CredentialsContainer -> Maybe CredentialCreationOptions -> m Credential +createUnsafe self options = liftDOM ((((((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_create (self) a2') >>= checkPromiseResult) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +createUnchecked :: (MonadDOM m) => CredentialsContainer -> Maybe CredentialCreationOptions -> m Credential +createUnchecked self options = liftDOM ((pFromJSVal <$> (((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_create (self) a2') >>= checkPromiseResult))) + +foreign import javascript interruptible "(($1, $2, $c) => { return $1[\"get\"]($2).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })" + js_get :: CredentialsContainer -> JSVal -> IO (JSVal, JSVal) +-- | +get :: (MonadDOM m) => CredentialsContainer -> Maybe CredentialRequestOptions -> m (Maybe Credential) +get self options = liftDOM (((((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_get (self) a2') >>= checkPromiseResult) >>= fromJSValUnchecked)) + +-- | +get_ :: (MonadDOM m) => CredentialsContainer -> Maybe CredentialRequestOptions -> m () +get_ self options = liftDOM (void ((((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_get (self) a2') >>= checkPromiseResult))) + +-- | +getUnsafe :: (MonadDOM m, HasCallStack) => CredentialsContainer -> Maybe CredentialRequestOptions -> m Credential +getUnsafe self options = liftDOM ((((((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_get (self) a2') >>= checkPromiseResult) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getUnchecked :: (MonadDOM m) => CredentialsContainer -> Maybe CredentialRequestOptions -> m Credential +getUnchecked self options = liftDOM ((pFromJSVal <$> (((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_get (self) a2') >>= checkPromiseResult))) + +foreign import javascript interruptible "(($1, $c) => { return $1[\"preventSilentAccess\"]().then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })" + js_preventSilentAccess :: CredentialsContainer -> IO (JSVal, ()) +-- | +preventSilentAccess :: (MonadDOM m) => CredentialsContainer -> m () +preventSilentAccess self = liftDOM (void (((js_preventSilentAccess (self)) >>= checkPromiseResult))) + +foreign import javascript interruptible "(($1, $2, $c) => { return $1[\"store\"]($2).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })" + js_store :: CredentialsContainer -> Credential -> IO (JSVal, ()) +-- | +store :: (MonadDOM m, IsCredential credential) => CredentialsContainer -> credential -> m () +store self credential = liftDOM (void (((js_store (self) (Types.toCredential credential)) >>= checkPromiseResult))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/Crypto.hs b/src/GHCJS/DOM/JSFFI/Generated/Crypto.hs --- a/src/GHCJS/DOM/JSFFI/Generated/Crypto.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/Crypto.hs @@ -1,59 +1,43 @@ {-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE JavaScriptFFI #-} --- For HasCallStack compatibility +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from webcrypto-2 (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.Crypto - (js_getRandomValues, getRandomValues, getRandomValues_, - js_getSubtle, getSubtle, js_getWebkitSubtle, getWebkitSubtle, - Crypto(..), gTypeCrypto) + (js_getRandomValues, js_randomUUID, js_getSubtle, getRandomValues, getRandomValues_, randomUUID, randomUUID_, getSubtle, Crypto(..), gTypeCrypto) where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull, jsUndefined) -import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import Data.Maybe (fromJust) -import Data.Traversable (mapM) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types -import Control.Applicative ((<$>)) +import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums - + foreign import javascript safe "(($1, $2) => { return $1[\"getRandomValues\"]($2); })" - js_getRandomValues :: - Crypto -> ArrayBufferView -> IO ArrayBufferView + js_getRandomValues :: Crypto -> ArrayBufferView -> IO ArrayBufferView +-- | +getRandomValues :: (MonadDOM m, IsArrayBufferView array) => Crypto -> array -> m ArrayBufferView +getRandomValues self array = liftDOM ((js_getRandomValues (self) (Types.toArrayBufferView array))) --- | -getRandomValues :: - (MonadIO m, IsArrayBufferView array) => - Crypto -> array -> m ArrayBufferView -getRandomValues self array - = liftIO (js_getRandomValues self (toArrayBufferView array)) +-- | +getRandomValues_ :: (MonadDOM m, IsArrayBufferView array) => Crypto -> array -> m () +getRandomValues_ self array = liftDOM (void ((js_getRandomValues (self) (Types.toArrayBufferView array)))) --- | -getRandomValues_ :: - (MonadIO m, IsArrayBufferView array) => Crypto -> array -> m () -getRandomValues_ self array - = liftIO (void (js_getRandomValues self (toArrayBufferView array))) - -foreign import javascript unsafe "(($1) => { return $1[\"subtle\"]; })" js_getSubtle :: - Crypto -> IO SubtleCrypto +foreign import javascript safe "(($1) => { return $1[\"randomUUID\"](); })" + js_randomUUID :: Crypto -> IO JSString +-- | +randomUUID :: (MonadDOM m, FromJSString result) => Crypto -> m result +randomUUID self = liftDOM ((fromJSString <$> (js_randomUUID (self)))) --- | -getSubtle :: (MonadIO m) => Crypto -> m SubtleCrypto -getSubtle self = liftIO (js_getSubtle self) - -foreign import javascript safe "(($1) => { return $1[\"webkitSubtle\"]; })" - js_getWebkitSubtle :: Crypto -> IO WebKitSubtleCrypto +-- | +randomUUID_ :: (MonadDOM m) => Crypto -> m () +randomUUID_ self = liftDOM (void ((js_randomUUID (self)))) --- | -getWebkitSubtle :: (MonadIO m) => Crypto -> m WebKitSubtleCrypto -getWebkitSubtle self = liftIO (js_getWebkitSubtle self) +foreign import javascript unsafe "(($1) => { return $1[\"subtle\"]; })" + js_getSubtle :: Crypto -> IO SubtleCrypto +-- | +getSubtle :: (MonadDOM m) => Crypto -> m SubtleCrypto +getSubtle self = liftDOM ((js_getSubtle (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CryptoKey.hs b/src/GHCJS/DOM/JSFFI/Generated/CryptoKey.hs --- a/src/GHCJS/DOM/JSFFI/Generated/CryptoKey.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/CryptoKey.hs @@ -1,57 +1,41 @@ {-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE JavaScriptFFI #-} --- For HasCallStack compatibility +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from webcrypto-2 (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.CryptoKey - (js_getType, getType, js_getExtractable, getExtractable, - js_getAlgorithm, getAlgorithm, js_getUsages, getUsages, - CryptoKey(..), gTypeCryptoKey) + (js_getType, js_getExtractable, js_getAlgorithm, js_getUsages, getType, getExtractable, getAlgorithm, getUsages, CryptoKey(..), gTypeCryptoKey) where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull, jsUndefined) -import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import Data.Maybe (fromJust) -import Data.Traversable (mapM) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types -import Control.Applicative ((<$>)) +import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums - -foreign import javascript unsafe "(($1) => { return $1[\"type\"]; })" js_getType :: - CryptoKey -> IO JSVal --- | -getType :: (MonadIO m) => CryptoKey -> m KeyType -getType self = liftIO ((js_getType self) >>= fromJSValUnchecked) - -foreign import javascript unsafe "(($1) => { return ($1[\"extractable\"] ? 1 : 0); })" +foreign import javascript unsafe "(($1) => { return $1[\"type\"]; })" + js_getType :: CryptoKey -> IO JSVal +-- | +getType :: (MonadDOM m) => CryptoKey -> m KeyType +getType self = liftDOM (((js_getType (self)) >>= fromJSValUnchecked)) + +foreign import javascript unsafe "(($1) => { return $1[\"extractable\"]; })" js_getExtractable :: CryptoKey -> IO Bool +-- | +getExtractable :: (MonadDOM m) => CryptoKey -> m Bool +getExtractable self = liftDOM ((js_getExtractable (self))) --- | -getExtractable :: (MonadIO m) => CryptoKey -> m Bool -getExtractable self = liftIO (js_getExtractable self) - foreign import javascript unsafe "(($1) => { return $1[\"algorithm\"]; })" js_getAlgorithm :: CryptoKey -> IO GObject - --- | -getAlgorithm :: (MonadIO m) => CryptoKey -> m GObject -getAlgorithm self = liftIO (js_getAlgorithm self) - -foreign import javascript unsafe "(($1) => { return $1[\"usages\"]; })" js_getUsages :: - CryptoKey -> IO JSVal +-- | +getAlgorithm :: (MonadDOM m) => CryptoKey -> m GObject +getAlgorithm self = liftDOM ((js_getAlgorithm (self))) --- | -getUsages :: (MonadIO m) => CryptoKey -> m [CryptoKeyUsage] -getUsages self - = liftIO ((js_getUsages self) >>= fromJSValUnchecked) +foreign import javascript unsafe "(($1) => { return $1[\"usages\"]; })" + js_getUsages :: CryptoKey -> IO GObject +-- | +getUsages :: (MonadDOM m) => CryptoKey -> m GObject +getUsages self = liftDOM ((js_getUsages (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CryptoKeyPair.hs b/src/GHCJS/DOM/JSFFI/Generated/CryptoKeyPair.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CryptoKeyPair.hs @@ -0,0 +1,63 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from webcrypto-2 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CryptoKeyPair + (js_newCryptoKeyPair, js_setPublicKey, js_getPublicKey, js_setPrivateKey, js_getPrivateKey, newCryptoKeyPair, setPublicKey, getPublicKey, getPublicKeyUnsafe, getPublicKeyUnchecked, setPrivateKey, getPrivateKey, getPrivateKeyUnsafe, getPrivateKeyUnchecked, CryptoKeyPair(..), gTypeCryptoKeyPair) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(() => { return ({}); })" + js_newCryptoKeyPair :: IO CryptoKeyPair +-- | +newCryptoKeyPair :: (MonadDOM m) => m CryptoKeyPair +newCryptoKeyPair = liftDOM ((js_newCryptoKeyPair)) + +foreign import javascript safe "(($1, $2) => { $1[\"publicKey\"] = $2; })" + js_setPublicKey :: CryptoKeyPair -> CryptoKey -> IO () +-- | +setPublicKey :: (MonadDOM m) => CryptoKeyPair -> CryptoKey -> m () +setPublicKey self val = liftDOM (void ((js_setPublicKey (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"publicKey\"]; })" + js_getPublicKey :: CryptoKeyPair -> IO JSVal +-- | +getPublicKey :: (MonadDOM m) => CryptoKeyPair -> m (Maybe CryptoKey) +getPublicKey self = liftDOM (((js_getPublicKey (self)) >>= fromJSValUnchecked)) + +-- | +getPublicKeyUnsafe :: (MonadDOM m, HasCallStack) => CryptoKeyPair -> m CryptoKey +getPublicKeyUnsafe self = liftDOM ((((js_getPublicKey (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getPublicKeyUnchecked :: (MonadDOM m) => CryptoKeyPair -> m CryptoKey +getPublicKeyUnchecked self = liftDOM ((pFromJSVal <$> (js_getPublicKey (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"privateKey\"] = $2; })" + js_setPrivateKey :: CryptoKeyPair -> CryptoKey -> IO () +-- | +setPrivateKey :: (MonadDOM m) => CryptoKeyPair -> CryptoKey -> m () +setPrivateKey self val = liftDOM (void ((js_setPrivateKey (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"privateKey\"]; })" + js_getPrivateKey :: CryptoKeyPair -> IO JSVal +-- | +getPrivateKey :: (MonadDOM m) => CryptoKeyPair -> m (Maybe CryptoKey) +getPrivateKey self = liftDOM (((js_getPrivateKey (self)) >>= fromJSValUnchecked)) + +-- | +getPrivateKeyUnsafe :: (MonadDOM m, HasCallStack) => CryptoKeyPair -> m CryptoKey +getPrivateKeyUnsafe self = liftDOM ((((js_getPrivateKey (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getPrivateKeyUnchecked :: (MonadDOM m) => CryptoKeyPair -> m CryptoKey +getPrivateKeyUnchecked self = liftDOM ((pFromJSVal <$> (js_getPrivateKey (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CurrentUserDetailsOptions.hs b/src/GHCJS/DOM/JSFFI/Generated/CurrentUserDetailsOptions.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CurrentUserDetailsOptions.hs @@ -0,0 +1,71 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from webauthn-4 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CurrentUserDetailsOptions + (js_newCurrentUserDetailsOptions, js_setRpId, js_getRpId, js_setUserId, js_getUserId, js_setName, js_getName, js_setDisplayName, js_getDisplayName, newCurrentUserDetailsOptions, setRpId, getRpId, setUserId, getUserId, setName, getName, setDisplayName, getDisplayName, CurrentUserDetailsOptions(..), gTypeCurrentUserDetailsOptions) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1, $2, $3, $4) => { return ({\"rpId\": $1, \"userId\": $2, \"name\": $3, \"displayName\": $4}); })" + js_newCurrentUserDetailsOptions :: JSString -> JSString -> JSString -> JSString -> IO CurrentUserDetailsOptions +-- | +newCurrentUserDetailsOptions :: (MonadDOM m, ToJSString rpId, ToJSString userId, ToJSString name, ToJSString displayName) => rpId -> userId -> name -> displayName -> m CurrentUserDetailsOptions +newCurrentUserDetailsOptions rpId userId name displayName = liftDOM ((js_newCurrentUserDetailsOptions (toJSString rpId) (toJSString userId) (toJSString name) (toJSString displayName))) + +foreign import javascript safe "(($1, $2) => { $1[\"rpId\"] = $2; })" + js_setRpId :: CurrentUserDetailsOptions -> JSString -> IO () +-- | +setRpId :: (MonadDOM m, ToJSString val) => CurrentUserDetailsOptions -> val -> m () +setRpId self val = liftDOM (void ((js_setRpId (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"rpId\"]; })" + js_getRpId :: CurrentUserDetailsOptions -> IO JSString +-- | +getRpId :: (MonadDOM m, FromJSString result) => CurrentUserDetailsOptions -> m result +getRpId self = liftDOM ((fromJSString <$> (js_getRpId (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"userId\"] = $2; })" + js_setUserId :: CurrentUserDetailsOptions -> JSString -> IO () +-- | +setUserId :: (MonadDOM m, ToJSString val) => CurrentUserDetailsOptions -> val -> m () +setUserId self val = liftDOM (void ((js_setUserId (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"userId\"]; })" + js_getUserId :: CurrentUserDetailsOptions -> IO JSString +-- | +getUserId :: (MonadDOM m, FromJSString result) => CurrentUserDetailsOptions -> m result +getUserId self = liftDOM ((fromJSString <$> (js_getUserId (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"name\"] = $2; })" + js_setName :: CurrentUserDetailsOptions -> JSString -> IO () +-- | +setName :: (MonadDOM m, ToJSString val) => CurrentUserDetailsOptions -> val -> m () +setName self val = liftDOM (void ((js_setName (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"name\"]; })" + js_getName :: CurrentUserDetailsOptions -> IO JSString +-- | +getName :: (MonadDOM m, FromJSString result) => CurrentUserDetailsOptions -> m result +getName self = liftDOM ((fromJSString <$> (js_getName (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"displayName\"] = $2; })" + js_setDisplayName :: CurrentUserDetailsOptions -> JSString -> IO () +-- | +setDisplayName :: (MonadDOM m, ToJSString val) => CurrentUserDetailsOptions -> val -> m () +setDisplayName self val = liftDOM (void ((js_setDisplayName (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"displayName\"]; })" + js_getDisplayName :: CurrentUserDetailsOptions -> IO JSString +-- | +getDisplayName :: (MonadDOM m, FromJSString result) => CurrentUserDetailsOptions -> m result +getDisplayName self = liftDOM ((fromJSString <$> (js_getDisplayName (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CustomElementConstructor.hs b/src/GHCJS/DOM/JSFFI/Generated/CustomElementConstructor.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CustomElementConstructor.hs @@ -0,0 +1,23 @@ +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from html (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CustomElementConstructor + (newCustomElementConstructor, newCustomElementConstructorSync, newCustomElementConstructorAsync, CustomElementConstructor) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import Data.Coerce (coerce) +import GHC.JS.Foreign.Callback (OnBlocked(..), syncCallback, asyncCallback) +import GHCJS.DOM.Types +import GHCJS.DOM.JSFFI.Generated.Enums + +newCustomElementConstructor :: (MonadDOM m) => (IO ()) -> m CustomElementConstructor +newCustomElementConstructor callback = liftDOM ((CustomElementConstructor . coerce) <$> syncCallback ContinueAsync callback) + +newCustomElementConstructorSync :: (MonadDOM m) => (IO ()) -> m CustomElementConstructor +newCustomElementConstructorSync callback = liftDOM ((CustomElementConstructor . coerce) <$> syncCallback ThrowWouldBlock callback) + +newCustomElementConstructorAsync :: (MonadDOM m) => (IO ()) -> m CustomElementConstructor +newCustomElementConstructorAsync callback = liftDOM ((CustomElementConstructor . coerce) <$> asyncCallback callback) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CustomElementRegistry.hs b/src/GHCJS/DOM/JSFFI/Generated/CustomElementRegistry.hs --- a/src/GHCJS/DOM/JSFFI/Generated/CustomElementRegistry.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/CustomElementRegistry.hs @@ -1,66 +1,85 @@ {-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE JavaScriptFFI #-} --- For HasCallStack compatibility +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from html (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.CustomElementRegistry - (js_define, define, js_get, get, get_, js_whenDefined, whenDefined, - CustomElementRegistry(..), gTypeCustomElementRegistry) + (js_newCustomElementRegistry, js_define, js_define', js_get, js_getName, js_initialize, js_upgrade, js_whenDefined, newCustomElementRegistry, define, define', get, get_, getName, getName_, getNameUnsafe, getNameUnchecked, initialize, upgrade, whenDefined, whenDefined_, CustomElementRegistry(..), gTypeCustomElementRegistry) where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull, jsUndefined) -import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import Data.Maybe (fromJust) -import Data.Traversable (mapM) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types -import Control.Applicative ((<$>)) +import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums - -foreign import javascript unsafe "(($1, $2, $3) => { return $1[\"define\"]($2, $3); })" js_define - :: CustomElementRegistry -> JSString -> Function -> IO () --- | -define :: - (MonadIO m, ToJSString name, IsFunction constructor) => - CustomElementRegistry -> name -> constructor -> m () -define self name constructor - = liftIO - (js_define self (toJSString name) (toFunction constructor)) - -foreign import javascript unsafe "(($1, $2) => { return $1[\"get\"]($2); })" js_get :: - CustomElementRegistry -> JSString -> IO JSVal +foreign import javascript safe "(() => { return new globalThis[\"CustomElementRegistry\"](); })" + js_newCustomElementRegistry :: IO CustomElementRegistry +-- | +newCustomElementRegistry :: (MonadDOM m) => m CustomElementRegistry +newCustomElementRegistry = liftDOM ((js_newCustomElementRegistry)) --- | -get :: - (MonadIO m, ToJSString name) => - CustomElementRegistry -> name -> m JSVal -get self name = liftIO (js_get self (toJSString name)) +foreign import javascript safe "(($1, $2, $3) => { return $1[\"define\"]($2, $3); })" + js_define :: CustomElementRegistry -> JSString -> JSVal -> IO () +-- | +define :: (MonadDOM m, ToJSString name) => CustomElementRegistry -> name -> CustomElementConstructor -> m () +define self name constructor = liftDOM (void (((toJSVal constructor) >>= \a3' -> js_define (self) (toJSString name) a3'))) --- | -get_ :: - (MonadIO m, ToJSString name) => - CustomElementRegistry -> name -> m () -get_ self name = liftIO (void (js_get self (toJSString name))) - -foreign import javascript interruptible - "(($1, $2, $c) => { return $1[\"whenDefined\"]($2).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })" +foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"define\"]($2, $3, $4); })" + js_define' :: CustomElementRegistry -> JSString -> JSVal -> JSVal -> IO () +-- | +define' :: (MonadDOM m, ToJSString name) => CustomElementRegistry -> name -> CustomElementConstructor -> Maybe ElementDefinitionOptions -> m () +define' self name constructor options = liftDOM (void (((toJSVal constructor) >>= \a3' -> (P.maybe (P.return jsUndefined) toJSVal options) >>= \a4' -> js_define' (self) (toJSString name) a3' a4'))) + +foreign import javascript safe "(($1, $2) => { return $1[\"get\"]($2); })" + js_get :: CustomElementRegistry -> JSString -> IO CustomElementConstructorOrUndefined +-- | +get :: (MonadDOM m, ToJSString name) => CustomElementRegistry -> name -> m CustomElementConstructorOrUndefined +get self name = liftDOM ((js_get (self) (toJSString name))) + +-- | +get_ :: (MonadDOM m, ToJSString name) => CustomElementRegistry -> name -> m () +get_ self name = liftDOM (void ((js_get (self) (toJSString name)))) + +foreign import javascript safe "(($1, $2) => { return $1[\"getName\"]($2); })" + js_getName :: CustomElementRegistry -> JSVal -> IO JSVal +-- | +getName :: (MonadDOM m, FromJSString result) => CustomElementRegistry -> CustomElementConstructor -> m (Maybe result) +getName self constructor = liftDOM (((fromMaybeJSString . Nullable) <$> ((toJSVal constructor) >>= \a2' -> js_getName (self) a2'))) + +-- | +getName_ :: (MonadDOM m) => CustomElementRegistry -> CustomElementConstructor -> m () +getName_ self constructor = liftDOM (void (((toJSVal constructor) >>= \a2' -> js_getName (self) a2'))) + +-- | +getNameUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => CustomElementRegistry -> CustomElementConstructor -> m result +getNameUnsafe self constructor = liftDOM ((((fromMaybeJSString . Nullable) <$> ((toJSVal constructor) >>= \a2' -> js_getName (self) a2')) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getNameUnchecked :: (MonadDOM m, FromJSString result) => CustomElementRegistry -> CustomElementConstructor -> m result +getNameUnchecked self constructor = liftDOM ((pFromJSVal <$> ((toJSVal constructor) >>= \a2' -> js_getName (self) a2'))) + +foreign import javascript safe "(($1, $2) => { return $1[\"initialize\"]($2); })" + js_initialize :: CustomElementRegistry -> Node -> IO () +-- | +initialize :: (MonadDOM m, IsNode root) => CustomElementRegistry -> root -> m () +initialize self root = liftDOM (void ((js_initialize (self) (Types.toNode root)))) + +foreign import javascript safe "(($1, $2) => { return $1[\"upgrade\"]($2); })" + js_upgrade :: CustomElementRegistry -> Node -> IO () +-- | +upgrade :: (MonadDOM m, IsNode root) => CustomElementRegistry -> root -> m () +upgrade self root = liftDOM (void ((js_upgrade (self) (Types.toNode root)))) + +foreign import javascript safe "(($1, $2) => { return $1[\"whenDefined\"]($2); })" js_whenDefined :: CustomElementRegistry -> JSString -> IO JSVal +-- | +whenDefined :: (MonadDOM m, ToJSString name) => CustomElementRegistry -> name -> m JSVal +whenDefined self name = liftDOM ((js_whenDefined (self) (toJSString name))) --- | -whenDefined :: - (MonadIO m, ToJSString name) => - CustomElementRegistry -> name -> m () -whenDefined self name - = liftIO - ((js_whenDefined self (toJSString name)) >>= - maybeThrowPromiseRejected) +-- | +whenDefined_ :: (MonadDOM m, ToJSString name) => CustomElementRegistry -> name -> m () +whenDefined_ self name = liftDOM (void ((js_whenDefined (self) (toJSString name)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CustomEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/CustomEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/CustomEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/CustomEvent.hs @@ -1,63 +1,35 @@ {-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE JavaScriptFFI #-} --- For HasCallStack compatibility +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from dom (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.CustomEvent - (js_newCustomEvent, newCustomEvent, js_initCustomEvent, - initCustomEvent, js_getDetail, getDetail, CustomEvent(..), - gTypeCustomEvent) + (js_newCustomEvent, js_initCustomEvent, js_getDetail, newCustomEvent, initCustomEvent, getDetail, CustomEvent(..), gTypeCustomEvent) where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull, jsUndefined) -import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import Data.Maybe (fromJust) -import Data.Traversable (mapM) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types -import Control.Applicative ((<$>)) +import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums - -foreign import javascript unsafe - "(($1, $2) => { return new window[\"CustomEvent\"]($1,\n$2); })" js_newCustomEvent :: - JSString -> Optional CustomEventInit -> IO CustomEvent --- | -newCustomEvent :: - (MonadIO m, ToJSString type') => - type' -> Maybe CustomEventInit -> m CustomEvent -newCustomEvent type' eventInitDict - = liftIO - (js_newCustomEvent (toJSString type') - (maybeToOptional eventInitDict)) - -foreign import javascript unsafe - "(($1, $2, $3, $4, $5) => { return $1[\"initCustomEvent\"]($2, $3,\n$4, $5); })" js_initCustomEvent :: - CustomEvent -> JSString -> Bool -> Bool -> Optional JSVal -> IO () +foreign import javascript safe "(($1, $2) => { return new globalThis[\"CustomEvent\"]($1, $2); })" + js_newCustomEvent :: JSString -> JSVal -> IO CustomEvent +-- | +newCustomEvent :: (MonadDOM m, ToJSString type') => type' -> Maybe CustomEventInit -> m CustomEvent +newCustomEvent type' eventInitDict = liftDOM (((P.maybe (P.return jsUndefined) toJSVal eventInitDict) >>= \a2' -> js_newCustomEvent (toJSString type') a2')) --- | -initCustomEvent :: - (MonadIO m, ToJSString type', ToJSVal detail) => - CustomEvent -> type' -> Bool -> Bool -> Maybe detail -> m () -initCustomEvent self type' bubbles cancelable detail - = liftIO - (mapM toJSVal detail >>= - \ detail' -> - js_initCustomEvent self (toJSString type') bubbles cancelable - (maybeToOptional detail')) - -foreign import javascript unsafe "(($1) => { return $1[\"detail\"]; })" js_getDetail :: - CustomEvent -> IO JSVal +foreign import javascript safe "(($1, $2, $3, $4, $5) => { return $1[\"initCustomEvent\"]($2, $3, $4, $5); })" + js_initCustomEvent :: CustomEvent -> JSString -> JSVal -> JSVal -> JSVal -> IO () +-- | +initCustomEvent :: (MonadDOM m, ToJSString type') => CustomEvent -> type' -> Maybe Bool -> Maybe Bool -> JSVal -> m () +initCustomEvent self type' bubbles cancelable detail = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal bubbles) >>= \a3' -> (P.maybe (P.return jsUndefined) toJSVal cancelable) >>= \a4' -> js_initCustomEvent (self) (toJSString type') a3' a4' (detail)))) --- | -getDetail :: (MonadIO m) => CustomEvent -> m JSVal -getDetail self = liftIO (js_getDetail self) +foreign import javascript unsafe "(($1) => { return $1[\"detail\"]; })" + js_getDetail :: CustomEvent -> IO JSVal +-- | +getDetail :: (MonadDOM m) => CustomEvent -> m JSVal +getDetail self = liftDOM ((js_getDetail (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CustomEventInit.hs b/src/GHCJS/DOM/JSFFI/Generated/CustomEventInit.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CustomEventInit.hs @@ -0,0 +1,35 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from dom (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CustomEventInit + (js_newCustomEventInit, js_setDetail, js_getDetail, newCustomEventInit, setDetail, getDetail, CustomEventInit(..), gTypeCustomEventInit) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(() => { return ({}); })" + js_newCustomEventInit :: IO CustomEventInit +-- | +newCustomEventInit :: (MonadDOM m) => m CustomEventInit +newCustomEventInit = liftDOM ((js_newCustomEventInit)) + +foreign import javascript safe "(($1, $2) => { $1[\"detail\"] = $2; })" + js_setDetail :: CustomEventInit -> JSVal -> IO () +-- | +setDetail :: (MonadDOM m) => CustomEventInit -> JSVal -> m () +setDetail self val = liftDOM (void ((js_setDetail (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"detail\"]; })" + js_getDetail :: CustomEventInit -> IO JSVal +-- | +getDetail :: (MonadDOM m) => CustomEventInit -> m JSVal +getDetail self = liftDOM ((js_getDetail (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CustomStateSet.hs b/src/GHCJS/DOM/JSFFI/Generated/CustomStateSet.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/CustomStateSet.hs @@ -0,0 +1,18 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from html (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.CustomStateSet + (CustomStateSet(..), gTypeCustomStateSet) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + diff --git a/src/GHCJS/DOM/JSFFI/Generated/DOMError.hs b/src/GHCJS/DOM/JSFFI/Generated/DOMError.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/DOMError.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE JavaScriptFFI #-} --- For HasCallStack compatibility -{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} -module GHCJS.DOM.JSFFI.Generated.DOMError - (js_getName, getName, js_getMessage, getMessage, DOMError(..), - gTypeDOMError, IsDOMError, toDOMError) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull, jsUndefined) -import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import Data.Maybe (fromJust) -import Data.Traversable (mapM) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) -import GHCJS.DOM.JSFFI.Generated.Enums - -foreign import javascript unsafe "(($1) => { return $1[\"name\"]; })" js_getName :: - DOMError -> IO JSString - --- | -getName :: - (MonadIO m, IsDOMError self, FromJSString result) => - self -> m result -getName self - = liftIO (fromJSString <$> (js_getName (toDOMError self))) - -foreign import javascript unsafe "(($1) => { return $1[\"message\"]; })" js_getMessage :: - DOMError -> IO JSString - --- | -getMessage :: - (MonadIO m, IsDOMError self, FromJSString result) => - self -> m result -getMessage self - = liftIO (fromJSString <$> (js_getMessage (toDOMError self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/DOMException.hs b/src/GHCJS/DOM/JSFFI/Generated/DOMException.hs --- a/src/GHCJS/DOM/JSFFI/Generated/DOMException.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/DOMException.hs @@ -1,113 +1,91 @@ {-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE JavaScriptFFI #-} --- For HasCallStack compatibility +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from webidl (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.DOMException - (js_newDOMException, newDOMException, js_toString, toString, - toString_, pattern INDEX_SIZE_ERR, pattern DOMSTRING_SIZE_ERR, - pattern HIERARCHY_REQUEST_ERR, pattern WRONG_DOCUMENT_ERR, - pattern INVALID_CHARACTER_ERR, pattern NO_DATA_ALLOWED_ERR, - pattern NO_MODIFICATION_ALLOWED_ERR, pattern NOT_FOUND_ERR, - pattern NOT_SUPPORTED_ERR, pattern INUSE_ATTRIBUTE_ERR, - pattern INVALID_STATE_ERR, pattern SYNTAX_ERR, - pattern INVALID_MODIFICATION_ERR, pattern NAMESPACE_ERR, - pattern INVALID_ACCESS_ERR, pattern VALIDATION_ERR, - pattern TYPE_MISMATCH_ERR, pattern SECURITY_ERR, - pattern NETWORK_ERR, pattern ABORT_ERR, pattern URL_MISMATCH_ERR, - pattern QUOTA_EXCEEDED_ERR, pattern TIMEOUT_ERR, - pattern INVALID_NODE_TYPE_ERR, pattern DATA_CLONE_ERR, js_getCode, - getCode, js_getName, getName, js_getMessage, getMessage, - DOMException(..), gTypeDOMException) + (js_newDOMException, js_getName, js_getMessage, js_getCode, newDOMException, getName, getMessage, getCode, pattern INDEX_SIZE_ERR, pattern DOMSTRING_SIZE_ERR, pattern HIERARCHY_REQUEST_ERR, pattern WRONG_DOCUMENT_ERR, pattern INVALID_CHARACTER_ERR, pattern NO_DATA_ALLOWED_ERR, pattern NO_MODIFICATION_ALLOWED_ERR, pattern NOT_FOUND_ERR, pattern NOT_SUPPORTED_ERR, pattern INUSE_ATTRIBUTE_ERR, pattern INVALID_STATE_ERR, pattern SYNTAX_ERR, pattern INVALID_MODIFICATION_ERR, pattern NAMESPACE_ERR, pattern INVALID_ACCESS_ERR, pattern VALIDATION_ERR, pattern TYPE_MISMATCH_ERR, pattern SECURITY_ERR, pattern NETWORK_ERR, pattern ABORT_ERR, pattern URL_MISMATCH_ERR, pattern QUOTA_EXCEEDED_ERR, pattern TIMEOUT_ERR, pattern INVALID_NODE_TYPE_ERR, pattern DATA_CLONE_ERR, DOMException(..), gTypeDOMException, IsDOMException, toDOMException) where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull, jsUndefined) -import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import Data.Maybe (fromJust) -import Data.Traversable (mapM) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types -import Control.Applicative ((<$>)) +import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums - -foreign import javascript unsafe - "(($1, $2) => { return new window[\"DOMException\"]($1,\n$2); })" js_newDOMException :: - Optional JSString -> Optional JSString -> IO DOMException --- | -newDOMException :: - (MonadIO m, ToJSString message, ToJSString name) => - Maybe message -> Maybe name -> m DOMException -newDOMException message name - = liftIO - (js_newDOMException (toOptionalJSString message) - (toOptionalJSString name)) - -foreign import javascript unsafe "(($1) => { return $1[\"toString\"](); })" js_toString - :: DOMException -> IO JSString +foreign import javascript safe "(($1, $2) => { return new globalThis[\"DOMException\"]($1, $2); })" + js_newDOMException :: (Optional JSString) -> (Optional JSString) -> IO DOMException +-- | +newDOMException :: (MonadDOM m, ToJSString message, ToJSString name) => Maybe message -> Maybe name -> m DOMException +newDOMException message name = liftDOM ((js_newDOMException (toOptionalJSString message) (toOptionalJSString name))) --- | -toString :: - (MonadIO m, FromJSString result) => DOMException -> m result -toString self = liftIO (fromJSString <$> (js_toString self)) +foreign import javascript unsafe "(($1) => { return $1[\"name\"]; })" + js_getName :: DOMException -> IO JSString +-- | +getName :: (MonadDOM m, IsDOMException self, FromJSString result) => self -> m result +getName self = liftDOM ((fromJSString <$> (js_getName ((Types.toDOMException self))))) --- | -toString_ :: (MonadIO m) => DOMException -> m () -toString_ self = liftIO (void (js_toString self)) +foreign import javascript unsafe "(($1) => { return $1[\"message\"]; })" + js_getMessage :: DOMException -> IO JSString +-- | +getMessage :: (MonadDOM m, IsDOMException self, FromJSString result) => self -> m result +getMessage self = liftDOM ((fromJSString <$> (js_getMessage ((Types.toDOMException self))))) + +foreign import javascript unsafe "(($1) => { return $1[\"code\"]; })" + js_getCode :: DOMException -> IO Word +-- | +getCode :: (MonadDOM m, IsDOMException self) => self -> m Word +getCode self = liftDOM ((js_getCode ((Types.toDOMException self)))) + pattern INDEX_SIZE_ERR = 1 + pattern DOMSTRING_SIZE_ERR = 2 + pattern HIERARCHY_REQUEST_ERR = 3 + pattern WRONG_DOCUMENT_ERR = 4 + pattern INVALID_CHARACTER_ERR = 5 + pattern NO_DATA_ALLOWED_ERR = 6 + pattern NO_MODIFICATION_ALLOWED_ERR = 7 + pattern NOT_FOUND_ERR = 8 + pattern NOT_SUPPORTED_ERR = 9 + pattern INUSE_ATTRIBUTE_ERR = 10 + pattern INVALID_STATE_ERR = 11 + pattern SYNTAX_ERR = 12 + pattern INVALID_MODIFICATION_ERR = 13 + pattern NAMESPACE_ERR = 14 + pattern INVALID_ACCESS_ERR = 15 + pattern VALIDATION_ERR = 16 + pattern TYPE_MISMATCH_ERR = 17 + pattern SECURITY_ERR = 18 + pattern NETWORK_ERR = 19 + pattern ABORT_ERR = 20 + pattern URL_MISMATCH_ERR = 21 + pattern QUOTA_EXCEEDED_ERR = 22 -pattern TIMEOUT_ERR = 23 -pattern INVALID_NODE_TYPE_ERR = 24 -pattern DATA_CLONE_ERR = 25 - -foreign import javascript unsafe "(($1) => { return $1[\"code\"]; })" js_getCode :: - DOMException -> IO Word --- | -getCode :: (MonadIO m) => DOMException -> m Word -getCode self = liftIO (js_getCode self) - -foreign import javascript unsafe "(($1) => { return $1[\"name\"]; })" js_getName :: - DOMException -> IO JSString +pattern TIMEOUT_ERR = 23 --- | -getName :: - (MonadIO m, FromJSString result) => DOMException -> m result -getName self = liftIO (fromJSString <$> (js_getName self)) - -foreign import javascript unsafe "(($1) => { return $1[\"message\"]; })" js_getMessage :: - DOMException -> IO JSString +pattern INVALID_NODE_TYPE_ERR = 24 --- | -getMessage :: - (MonadIO m, FromJSString result) => DOMException -> m result -getMessage self = liftIO (fromJSString <$> (js_getMessage self)) +pattern DATA_CLONE_ERR = 25 diff --git a/src/GHCJS/DOM/JSFFI/Generated/DOMImplementation.hs b/src/GHCJS/DOM/JSFFI/Generated/DOMImplementation.hs --- a/src/GHCJS/DOM/JSFFI/Generated/DOMImplementation.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/DOMImplementation.hs @@ -1,119 +1,57 @@ {-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE JavaScriptFFI #-} --- For HasCallStack compatibility +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from dom (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.DOMImplementation - (js_createDocumentType, createDocumentType, createDocumentType_, - js_createDocument, createDocument, createDocument_, - js_createHTMLDocument, createHTMLDocument, createHTMLDocument_, - js_hasFeature, hasFeature, hasFeature_, DOMImplementation(..), - gTypeDOMImplementation) + (js_createDocument, js_createDocumentType, js_createHTMLDocument, js_hasFeature, createDocument, createDocument_, createDocumentType, createDocumentType_, createHTMLDocument, createHTMLDocument_, hasFeature, hasFeature_, DOMImplementation(..), gTypeDOMImplementation) where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull, jsUndefined) -import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import Data.Maybe (fromJust) -import Data.Traversable (mapM) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types -import Control.Applicative ((<$>)) +import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums - -foreign import javascript safe - "(($1, $2, $3, $4) => { return $1[\"createDocumentType\"]($2, $3,\n$4); })" js_createDocumentType :: - DOMImplementation -> - JSString -> JSString -> JSString -> IO DocumentType --- | -createDocumentType :: - (MonadIO m, ToJSString qualifiedName, ToJSString publicId, - ToJSString systemId) => - DOMImplementation -> - qualifiedName -> publicId -> systemId -> m DocumentType -createDocumentType self qualifiedName publicId systemId - = liftIO - (js_createDocumentType self (toJSString qualifiedName) - (toJSString publicId) - (toJSString systemId)) - --- | -createDocumentType_ :: - (MonadIO m, ToJSString qualifiedName, ToJSString publicId, - ToJSString systemId) => - DOMImplementation -> qualifiedName -> publicId -> systemId -> m () -createDocumentType_ self qualifiedName publicId systemId - = liftIO - (void - (js_createDocumentType self (toJSString qualifiedName) - (toJSString publicId) - (toJSString systemId))) - foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"createDocument\"]($2, $3, $4); })" - js_createDocument :: - DOMImplementation -> - Optional JSString -> - JSString -> Optional DocumentType -> IO XMLDocument + js_createDocument :: DOMImplementation -> (Nullable JSString) -> JSString -> JSVal -> IO XMLDocument +-- | +createDocument :: (MonadDOM m, ToJSString namespace, ToJSString qualifiedName) => DOMImplementation -> Maybe namespace -> qualifiedName -> Maybe DocumentType -> m XMLDocument +createDocument self namespace qualifiedName doctype = liftDOM (((toJSVal doctype) >>= \a4' -> js_createDocument (self) (toMaybeJSString namespace) (toJSString qualifiedName) a4')) --- | -createDocument :: - (MonadIO m, ToJSString namespaceURI, ToJSString qualifiedName) => - DOMImplementation -> - Maybe namespaceURI -> - qualifiedName -> Maybe DocumentType -> m XMLDocument -createDocument self namespaceURI qualifiedName doctype - = liftIO - (js_createDocument self (toOptionalJSString namespaceURI) - (toJSString qualifiedName) - (maybeToOptional doctype)) +-- | +createDocument_ :: (MonadDOM m, ToJSString namespace, ToJSString qualifiedName) => DOMImplementation -> Maybe namespace -> qualifiedName -> Maybe DocumentType -> m () +createDocument_ self namespace qualifiedName doctype = liftDOM (void (((toJSVal doctype) >>= \a4' -> js_createDocument (self) (toMaybeJSString namespace) (toJSString qualifiedName) a4'))) --- | -createDocument_ :: - (MonadIO m, ToJSString namespaceURI, ToJSString qualifiedName) => - DOMImplementation -> - Maybe namespaceURI -> qualifiedName -> Maybe DocumentType -> m () -createDocument_ self namespaceURI qualifiedName doctype - = liftIO - (void - (js_createDocument self (toOptionalJSString namespaceURI) - (toJSString qualifiedName) - (maybeToOptional doctype))) - -foreign import javascript unsafe "(($1, $2) => { return $1[\"createHTMLDocument\"]($2); })" - js_createHTMLDocument :: - DOMImplementation -> Optional JSString -> IO HTMLDocument +foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"createDocumentType\"]($2, $3, $4); })" + js_createDocumentType :: DOMImplementation -> JSString -> JSString -> JSString -> IO DocumentType +-- | +createDocumentType :: (MonadDOM m, ToJSString name, ToJSString publicId, ToJSString systemId) => DOMImplementation -> name -> publicId -> systemId -> m DocumentType +createDocumentType self name publicId systemId = liftDOM ((js_createDocumentType (self) (toJSString name) (toJSString publicId) (toJSString systemId))) --- | -createHTMLDocument :: - (MonadIO m, ToJSString title) => - DOMImplementation -> Maybe title -> m HTMLDocument -createHTMLDocument self title - = liftIO (js_createHTMLDocument self (toOptionalJSString title)) +-- | +createDocumentType_ :: (MonadDOM m, ToJSString name, ToJSString publicId, ToJSString systemId) => DOMImplementation -> name -> publicId -> systemId -> m () +createDocumentType_ self name publicId systemId = liftDOM (void ((js_createDocumentType (self) (toJSString name) (toJSString publicId) (toJSString systemId)))) --- | -createHTMLDocument_ :: - (MonadIO m, ToJSString title) => - DOMImplementation -> Maybe title -> m () -createHTMLDocument_ self title - = liftIO - (void (js_createHTMLDocument self (toOptionalJSString title))) - -foreign import javascript unsafe "(($1) => { return ($1[\"hasFeature\"]() ? 1 : 0); })" - js_hasFeature :: DOMImplementation -> IO Bool +foreign import javascript safe "(($1, $2) => { return $1[\"createHTMLDocument\"]($2); })" + js_createHTMLDocument :: DOMImplementation -> (Optional JSString) -> IO Document +-- | +createHTMLDocument :: (MonadDOM m, ToJSString title) => DOMImplementation -> Maybe title -> m Document +createHTMLDocument self title = liftDOM ((js_createHTMLDocument (self) (toOptionalJSString title))) --- | -hasFeature :: (MonadIO m) => DOMImplementation -> m Bool -hasFeature self = liftIO (js_hasFeature self) +-- | +createHTMLDocument_ :: (MonadDOM m, ToJSString title) => DOMImplementation -> Maybe title -> m () +createHTMLDocument_ self title = liftDOM (void ((js_createHTMLDocument (self) (toOptionalJSString title)))) --- | -hasFeature_ :: (MonadIO m) => DOMImplementation -> m () -hasFeature_ self = liftIO (void (js_hasFeature self)) +foreign import javascript safe "(($1) => { return $1[\"hasFeature\"](); })" + js_hasFeature :: DOMImplementation -> IO Bool +-- | +hasFeature :: (MonadDOM m) => DOMImplementation -> m Bool +hasFeature self = liftDOM ((js_hasFeature (self))) + +-- | +hasFeature_ :: (MonadDOM m) => DOMImplementation -> m () +hasFeature_ self = liftDOM (void ((js_hasFeature (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/DOMMatrix.hs b/src/GHCJS/DOM/JSFFI/Generated/DOMMatrix.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/DOMMatrix.hs @@ -0,0 +1,437 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from geometry-1 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.DOMMatrix + (js_newDOMMatrix, js_invertSelf, js_multiplySelf, js_preMultiplySelf, js_rotateAxisAngleSelf, js_rotateFromVectorSelf, js_rotateSelf, js_scale3dSelf, js_scaleSelf, js_setMatrixValue, js_skewXSelf, js_skewYSelf, js_translateSelf, js_fromFloat32Array, js_fromFloat64Array, js_fromMatrix, js_setA, js_getA, js_setB, js_getB, js_setC, js_getC, js_setD, js_getD, js_setE, js_getE, js_setF, js_getF, js_setM11, js_getM11, js_setM12, js_getM12, js_setM13, js_getM13, js_setM14, js_getM14, js_setM21, js_getM21, js_setM22, js_getM22, js_setM23, js_getM23, js_setM24, js_getM24, js_setM31, js_getM31, js_setM32, js_getM32, js_setM33, js_getM33, js_setM34, js_getM34, js_setM41, js_getM41, js_setM42, js_getM42, js_setM43, js_getM43, js_setM44, js_getM44, newDOMMatrix, invertSelf, invertSelf_, multiplySelf, multiplySelf_, preMultiplySelf, preMultiplySelf_, rotateAxisAngleSelf, rotateAxisAngleSelf_, rotateFromVectorSelf, rotateFromVectorSelf_, rotateSelf, rotateSelf_, scale3dSelf, scale3dSelf_, scaleSelf, scaleSelf_, setMatrixValue, setMatrixValue_, skewXSelf, skewXSelf_, skewYSelf, skewYSelf_, translateSelf, translateSelf_, fromFloat32Array, fromFloat32Array_, fromFloat64Array, fromFloat64Array_, fromMatrix, fromMatrix_, setA, getA, setB, getB, setC, getC, setD, getD, setE, getE, setF, getF, setM11, getM11, setM12, getM12, setM13, getM13, setM14, getM14, setM21, getM21, setM22, getM22, setM23, getM23, setM24, getM24, setM31, getM31, setM32, getM32, setM33, getM33, setM34, getM34, setM41, getM41, setM42, getM42, setM43, getM43, setM44, getM44, DOMMatrix(..), gTypeDOMMatrix) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1) => { return new globalThis[\"DOMMatrix\"]($1); })" + js_newDOMMatrix :: JSVal -> IO DOMMatrix +-- | +newDOMMatrix :: (MonadDOM m, IsStringOrSequenceDouble init) => Maybe init -> m DOMMatrix +newDOMMatrix init = liftDOM (((P.maybe (P.return jsUndefined) toJSVal init) >>= \a1' -> js_newDOMMatrix a1')) + +foreign import javascript safe "(($1) => { return $1[\"invertSelf\"](); })" + js_invertSelf :: DOMMatrix -> IO DOMMatrix +-- | +invertSelf :: (MonadDOM m) => DOMMatrix -> m DOMMatrix +invertSelf self = liftDOM ((js_invertSelf (self))) + +-- | +invertSelf_ :: (MonadDOM m) => DOMMatrix -> m () +invertSelf_ self = liftDOM (void ((js_invertSelf (self)))) + +foreign import javascript safe "(($1, $2) => { return $1[\"multiplySelf\"]($2); })" + js_multiplySelf :: DOMMatrix -> JSVal -> IO DOMMatrix +-- | +multiplySelf :: (MonadDOM m) => DOMMatrix -> Maybe DOMMatrixInit -> m DOMMatrix +multiplySelf self other = liftDOM (((P.maybe (P.return jsUndefined) toJSVal other) >>= \a2' -> js_multiplySelf (self) a2')) + +-- | +multiplySelf_ :: (MonadDOM m) => DOMMatrix -> Maybe DOMMatrixInit -> m () +multiplySelf_ self other = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal other) >>= \a2' -> js_multiplySelf (self) a2'))) + +foreign import javascript safe "(($1, $2) => { return $1[\"preMultiplySelf\"]($2); })" + js_preMultiplySelf :: DOMMatrix -> JSVal -> IO DOMMatrix +-- | +preMultiplySelf :: (MonadDOM m) => DOMMatrix -> Maybe DOMMatrixInit -> m DOMMatrix +preMultiplySelf self other = liftDOM (((P.maybe (P.return jsUndefined) toJSVal other) >>= \a2' -> js_preMultiplySelf (self) a2')) + +-- | +preMultiplySelf_ :: (MonadDOM m) => DOMMatrix -> Maybe DOMMatrixInit -> m () +preMultiplySelf_ self other = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal other) >>= \a2' -> js_preMultiplySelf (self) a2'))) + +foreign import javascript safe "(($1, $2, $3, $4, $5) => { return $1[\"rotateAxisAngleSelf\"]($2, $3, $4, $5); })" + js_rotateAxisAngleSelf :: DOMMatrix -> JSVal -> JSVal -> JSVal -> JSVal -> IO DOMMatrix +-- | +rotateAxisAngleSelf :: (MonadDOM m) => DOMMatrix -> Maybe Double -> Maybe Double -> Maybe Double -> Maybe Double -> m DOMMatrix +rotateAxisAngleSelf self x y z angle = liftDOM (((P.maybe (P.return jsUndefined) toJSVal x) >>= \a2' -> (P.maybe (P.return jsUndefined) toJSVal y) >>= \a3' -> (P.maybe (P.return jsUndefined) toJSVal z) >>= \a4' -> (P.maybe (P.return jsUndefined) toJSVal angle) >>= \a5' -> js_rotateAxisAngleSelf (self) a2' a3' a4' a5')) + +-- | +rotateAxisAngleSelf_ :: (MonadDOM m) => DOMMatrix -> Maybe Double -> Maybe Double -> Maybe Double -> Maybe Double -> m () +rotateAxisAngleSelf_ self x y z angle = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal x) >>= \a2' -> (P.maybe (P.return jsUndefined) toJSVal y) >>= \a3' -> (P.maybe (P.return jsUndefined) toJSVal z) >>= \a4' -> (P.maybe (P.return jsUndefined) toJSVal angle) >>= \a5' -> js_rotateAxisAngleSelf (self) a2' a3' a4' a5'))) + +foreign import javascript safe "(($1, $2, $3) => { return $1[\"rotateFromVectorSelf\"]($2, $3); })" + js_rotateFromVectorSelf :: DOMMatrix -> JSVal -> JSVal -> IO DOMMatrix +-- | +rotateFromVectorSelf :: (MonadDOM m) => DOMMatrix -> Maybe Double -> Maybe Double -> m DOMMatrix +rotateFromVectorSelf self x y = liftDOM (((P.maybe (P.return jsUndefined) toJSVal x) >>= \a2' -> (P.maybe (P.return jsUndefined) toJSVal y) >>= \a3' -> js_rotateFromVectorSelf (self) a2' a3')) + +-- | +rotateFromVectorSelf_ :: (MonadDOM m) => DOMMatrix -> Maybe Double -> Maybe Double -> m () +rotateFromVectorSelf_ self x y = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal x) >>= \a2' -> (P.maybe (P.return jsUndefined) toJSVal y) >>= \a3' -> js_rotateFromVectorSelf (self) a2' a3'))) + +foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"rotateSelf\"]($2, $3, $4); })" + js_rotateSelf :: DOMMatrix -> JSVal -> JSVal -> JSVal -> IO DOMMatrix +-- | +rotateSelf :: (MonadDOM m) => DOMMatrix -> Maybe Double -> Maybe Double -> Maybe Double -> m DOMMatrix +rotateSelf self rotX rotY rotZ = liftDOM (((P.maybe (P.return jsUndefined) toJSVal rotX) >>= \a2' -> (P.maybe (P.return jsUndefined) toJSVal rotY) >>= \a3' -> (P.maybe (P.return jsUndefined) toJSVal rotZ) >>= \a4' -> js_rotateSelf (self) a2' a3' a4')) + +-- | +rotateSelf_ :: (MonadDOM m) => DOMMatrix -> Maybe Double -> Maybe Double -> Maybe Double -> m () +rotateSelf_ self rotX rotY rotZ = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal rotX) >>= \a2' -> (P.maybe (P.return jsUndefined) toJSVal rotY) >>= \a3' -> (P.maybe (P.return jsUndefined) toJSVal rotZ) >>= \a4' -> js_rotateSelf (self) a2' a3' a4'))) + +foreign import javascript safe "(($1, $2, $3, $4, $5) => { return $1[\"scale3dSelf\"]($2, $3, $4, $5); })" + js_scale3dSelf :: DOMMatrix -> JSVal -> JSVal -> JSVal -> JSVal -> IO DOMMatrix +-- | +scale3dSelf :: (MonadDOM m) => DOMMatrix -> Maybe Double -> Maybe Double -> Maybe Double -> Maybe Double -> m DOMMatrix +scale3dSelf self scale originX originY originZ = liftDOM (((P.maybe (P.return jsUndefined) toJSVal scale) >>= \a2' -> (P.maybe (P.return jsUndefined) toJSVal originX) >>= \a3' -> (P.maybe (P.return jsUndefined) toJSVal originY) >>= \a4' -> (P.maybe (P.return jsUndefined) toJSVal originZ) >>= \a5' -> js_scale3dSelf (self) a2' a3' a4' a5')) + +-- | +scale3dSelf_ :: (MonadDOM m) => DOMMatrix -> Maybe Double -> Maybe Double -> Maybe Double -> Maybe Double -> m () +scale3dSelf_ self scale originX originY originZ = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal scale) >>= \a2' -> (P.maybe (P.return jsUndefined) toJSVal originX) >>= \a3' -> (P.maybe (P.return jsUndefined) toJSVal originY) >>= \a4' -> (P.maybe (P.return jsUndefined) toJSVal originZ) >>= \a5' -> js_scale3dSelf (self) a2' a3' a4' a5'))) + +foreign import javascript safe "(($1, $2, $3, $4, $5, $6, $7) => { return $1[\"scaleSelf\"]($2, $3, $4, $5, $6, $7); })" + js_scaleSelf :: DOMMatrix -> JSVal -> JSVal -> JSVal -> JSVal -> JSVal -> JSVal -> IO DOMMatrix +-- | +scaleSelf :: (MonadDOM m) => DOMMatrix -> Maybe Double -> Maybe Double -> Maybe Double -> Maybe Double -> Maybe Double -> Maybe Double -> m DOMMatrix +scaleSelf self scaleX scaleY scaleZ originX originY originZ = liftDOM (((P.maybe (P.return jsUndefined) toJSVal scaleX) >>= \a2' -> (P.maybe (P.return jsUndefined) toJSVal scaleY) >>= \a3' -> (P.maybe (P.return jsUndefined) toJSVal scaleZ) >>= \a4' -> (P.maybe (P.return jsUndefined) toJSVal originX) >>= \a5' -> (P.maybe (P.return jsUndefined) toJSVal originY) >>= \a6' -> (P.maybe (P.return jsUndefined) toJSVal originZ) >>= \a7' -> js_scaleSelf (self) a2' a3' a4' a5' a6' a7')) + +-- | +scaleSelf_ :: (MonadDOM m) => DOMMatrix -> Maybe Double -> Maybe Double -> Maybe Double -> Maybe Double -> Maybe Double -> Maybe Double -> m () +scaleSelf_ self scaleX scaleY scaleZ originX originY originZ = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal scaleX) >>= \a2' -> (P.maybe (P.return jsUndefined) toJSVal scaleY) >>= \a3' -> (P.maybe (P.return jsUndefined) toJSVal scaleZ) >>= \a4' -> (P.maybe (P.return jsUndefined) toJSVal originX) >>= \a5' -> (P.maybe (P.return jsUndefined) toJSVal originY) >>= \a6' -> (P.maybe (P.return jsUndefined) toJSVal originZ) >>= \a7' -> js_scaleSelf (self) a2' a3' a4' a5' a6' a7'))) + +foreign import javascript safe "(($1, $2) => { return $1[\"setMatrixValue\"]($2); })" + js_setMatrixValue :: DOMMatrix -> JSString -> IO DOMMatrix +-- | +setMatrixValue :: (MonadDOM m, ToJSString transformList) => DOMMatrix -> transformList -> m DOMMatrix +setMatrixValue self transformList = liftDOM ((js_setMatrixValue (self) (toJSString transformList))) + +-- | +setMatrixValue_ :: (MonadDOM m, ToJSString transformList) => DOMMatrix -> transformList -> m () +setMatrixValue_ self transformList = liftDOM (void ((js_setMatrixValue (self) (toJSString transformList)))) + +foreign import javascript safe "(($1, $2) => { return $1[\"skewXSelf\"]($2); })" + js_skewXSelf :: DOMMatrix -> JSVal -> IO DOMMatrix +-- | +skewXSelf :: (MonadDOM m) => DOMMatrix -> Maybe Double -> m DOMMatrix +skewXSelf self sx = liftDOM (((P.maybe (P.return jsUndefined) toJSVal sx) >>= \a2' -> js_skewXSelf (self) a2')) + +-- | +skewXSelf_ :: (MonadDOM m) => DOMMatrix -> Maybe Double -> m () +skewXSelf_ self sx = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal sx) >>= \a2' -> js_skewXSelf (self) a2'))) + +foreign import javascript safe "(($1, $2) => { return $1[\"skewYSelf\"]($2); })" + js_skewYSelf :: DOMMatrix -> JSVal -> IO DOMMatrix +-- | +skewYSelf :: (MonadDOM m) => DOMMatrix -> Maybe Double -> m DOMMatrix +skewYSelf self sy = liftDOM (((P.maybe (P.return jsUndefined) toJSVal sy) >>= \a2' -> js_skewYSelf (self) a2')) + +-- | +skewYSelf_ :: (MonadDOM m) => DOMMatrix -> Maybe Double -> m () +skewYSelf_ self sy = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal sy) >>= \a2' -> js_skewYSelf (self) a2'))) + +foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"translateSelf\"]($2, $3, $4); })" + js_translateSelf :: DOMMatrix -> JSVal -> JSVal -> JSVal -> IO DOMMatrix +-- | +translateSelf :: (MonadDOM m) => DOMMatrix -> Maybe Double -> Maybe Double -> Maybe Double -> m DOMMatrix +translateSelf self tx ty tz = liftDOM (((P.maybe (P.return jsUndefined) toJSVal tx) >>= \a2' -> (P.maybe (P.return jsUndefined) toJSVal ty) >>= \a3' -> (P.maybe (P.return jsUndefined) toJSVal tz) >>= \a4' -> js_translateSelf (self) a2' a3' a4')) + +-- | +translateSelf_ :: (MonadDOM m) => DOMMatrix -> Maybe Double -> Maybe Double -> Maybe Double -> m () +translateSelf_ self tx ty tz = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal tx) >>= \a2' -> (P.maybe (P.return jsUndefined) toJSVal ty) >>= \a3' -> (P.maybe (P.return jsUndefined) toJSVal tz) >>= \a4' -> js_translateSelf (self) a2' a3' a4'))) + +foreign import javascript safe "(($1) => { return globalThis[\"DOMMatrix\"][\"fromFloat32Array\"]($1); })" + js_fromFloat32Array :: Float32Array -> IO DOMMatrix +-- | +fromFloat32Array :: (MonadDOM m, IsFloat32Array array32) => array32 -> m DOMMatrix +fromFloat32Array array32 = liftDOM ((js_fromFloat32Array (Types.toFloat32Array array32))) + +-- | +fromFloat32Array_ :: (MonadDOM m, IsFloat32Array array32) => array32 -> m () +fromFloat32Array_ array32 = liftDOM (void ((js_fromFloat32Array (Types.toFloat32Array array32)))) + +foreign import javascript safe "(($1) => { return globalThis[\"DOMMatrix\"][\"fromFloat64Array\"]($1); })" + js_fromFloat64Array :: Float64Array -> IO DOMMatrix +-- | +fromFloat64Array :: (MonadDOM m, IsFloat64Array array64) => array64 -> m DOMMatrix +fromFloat64Array array64 = liftDOM ((js_fromFloat64Array (Types.toFloat64Array array64))) + +-- | +fromFloat64Array_ :: (MonadDOM m, IsFloat64Array array64) => array64 -> m () +fromFloat64Array_ array64 = liftDOM (void ((js_fromFloat64Array (Types.toFloat64Array array64)))) + +foreign import javascript safe "(($1) => { return globalThis[\"DOMMatrix\"][\"fromMatrix\"]($1); })" + js_fromMatrix :: JSVal -> IO DOMMatrix +-- | +fromMatrix :: (MonadDOM m) => Maybe DOMMatrixInit -> m DOMMatrix +fromMatrix other = liftDOM (((P.maybe (P.return jsUndefined) toJSVal other) >>= \a1' -> js_fromMatrix a1')) + +-- | +fromMatrix_ :: (MonadDOM m) => Maybe DOMMatrixInit -> m () +fromMatrix_ other = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal other) >>= \a1' -> js_fromMatrix a1'))) + +foreign import javascript safe "(($1, $2) => { $1[\"a\"] = $2; })" + js_setA :: DOMMatrix -> Double -> IO () +-- | +setA :: (MonadDOM m) => DOMMatrix -> Double -> m () +setA self val = liftDOM (void ((js_setA (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"a\"]; })" + js_getA :: DOMMatrix -> IO Double +-- | +getA :: (MonadDOM m) => DOMMatrix -> m Double +getA self = liftDOM ((js_getA (self))) + +foreign import javascript safe "(($1, $2) => { $1[\"b\"] = $2; })" + js_setB :: DOMMatrix -> Double -> IO () +-- | +setB :: (MonadDOM m) => DOMMatrix -> Double -> m () +setB self val = liftDOM (void ((js_setB (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"b\"]; })" + js_getB :: DOMMatrix -> IO Double +-- | +getB :: (MonadDOM m) => DOMMatrix -> m Double +getB self = liftDOM ((js_getB (self))) + +foreign import javascript safe "(($1, $2) => { $1[\"c\"] = $2; })" + js_setC :: DOMMatrix -> Double -> IO () +-- | +setC :: (MonadDOM m) => DOMMatrix -> Double -> m () +setC self val = liftDOM (void ((js_setC (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"c\"]; })" + js_getC :: DOMMatrix -> IO Double +-- | +getC :: (MonadDOM m) => DOMMatrix -> m Double +getC self = liftDOM ((js_getC (self))) + +foreign import javascript safe "(($1, $2) => { $1[\"d\"] = $2; })" + js_setD :: DOMMatrix -> Double -> IO () +-- | +setD :: (MonadDOM m) => DOMMatrix -> Double -> m () +setD self val = liftDOM (void ((js_setD (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"d\"]; })" + js_getD :: DOMMatrix -> IO Double +-- | +getD :: (MonadDOM m) => DOMMatrix -> m Double +getD self = liftDOM ((js_getD (self))) + +foreign import javascript safe "(($1, $2) => { $1[\"e\"] = $2; })" + js_setE :: DOMMatrix -> Double -> IO () +-- | +setE :: (MonadDOM m) => DOMMatrix -> Double -> m () +setE self val = liftDOM (void ((js_setE (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"e\"]; })" + js_getE :: DOMMatrix -> IO Double +-- | +getE :: (MonadDOM m) => DOMMatrix -> m Double +getE self = liftDOM ((js_getE (self))) + +foreign import javascript safe "(($1, $2) => { $1[\"f\"] = $2; })" + js_setF :: DOMMatrix -> Double -> IO () +-- | +setF :: (MonadDOM m) => DOMMatrix -> Double -> m () +setF self val = liftDOM (void ((js_setF (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"f\"]; })" + js_getF :: DOMMatrix -> IO Double +-- | +getF :: (MonadDOM m) => DOMMatrix -> m Double +getF self = liftDOM ((js_getF (self))) + +foreign import javascript safe "(($1, $2) => { $1[\"m11\"] = $2; })" + js_setM11 :: DOMMatrix -> Double -> IO () +-- | +setM11 :: (MonadDOM m) => DOMMatrix -> Double -> m () +setM11 self val = liftDOM (void ((js_setM11 (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"m11\"]; })" + js_getM11 :: DOMMatrix -> IO Double +-- | +getM11 :: (MonadDOM m) => DOMMatrix -> m Double +getM11 self = liftDOM ((js_getM11 (self))) + +foreign import javascript safe "(($1, $2) => { $1[\"m12\"] = $2; })" + js_setM12 :: DOMMatrix -> Double -> IO () +-- | +setM12 :: (MonadDOM m) => DOMMatrix -> Double -> m () +setM12 self val = liftDOM (void ((js_setM12 (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"m12\"]; })" + js_getM12 :: DOMMatrix -> IO Double +-- | +getM12 :: (MonadDOM m) => DOMMatrix -> m Double +getM12 self = liftDOM ((js_getM12 (self))) + +foreign import javascript safe "(($1, $2) => { $1[\"m13\"] = $2; })" + js_setM13 :: DOMMatrix -> Double -> IO () +-- | +setM13 :: (MonadDOM m) => DOMMatrix -> Double -> m () +setM13 self val = liftDOM (void ((js_setM13 (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"m13\"]; })" + js_getM13 :: DOMMatrix -> IO Double +-- | +getM13 :: (MonadDOM m) => DOMMatrix -> m Double +getM13 self = liftDOM ((js_getM13 (self))) + +foreign import javascript safe "(($1, $2) => { $1[\"m14\"] = $2; })" + js_setM14 :: DOMMatrix -> Double -> IO () +-- | +setM14 :: (MonadDOM m) => DOMMatrix -> Double -> m () +setM14 self val = liftDOM (void ((js_setM14 (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"m14\"]; })" + js_getM14 :: DOMMatrix -> IO Double +-- | +getM14 :: (MonadDOM m) => DOMMatrix -> m Double +getM14 self = liftDOM ((js_getM14 (self))) + +foreign import javascript safe "(($1, $2) => { $1[\"m21\"] = $2; })" + js_setM21 :: DOMMatrix -> Double -> IO () +-- | +setM21 :: (MonadDOM m) => DOMMatrix -> Double -> m () +setM21 self val = liftDOM (void ((js_setM21 (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"m21\"]; })" + js_getM21 :: DOMMatrix -> IO Double +-- | +getM21 :: (MonadDOM m) => DOMMatrix -> m Double +getM21 self = liftDOM ((js_getM21 (self))) + +foreign import javascript safe "(($1, $2) => { $1[\"m22\"] = $2; })" + js_setM22 :: DOMMatrix -> Double -> IO () +-- | +setM22 :: (MonadDOM m) => DOMMatrix -> Double -> m () +setM22 self val = liftDOM (void ((js_setM22 (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"m22\"]; })" + js_getM22 :: DOMMatrix -> IO Double +-- | +getM22 :: (MonadDOM m) => DOMMatrix -> m Double +getM22 self = liftDOM ((js_getM22 (self))) + +foreign import javascript safe "(($1, $2) => { $1[\"m23\"] = $2; })" + js_setM23 :: DOMMatrix -> Double -> IO () +-- | +setM23 :: (MonadDOM m) => DOMMatrix -> Double -> m () +setM23 self val = liftDOM (void ((js_setM23 (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"m23\"]; })" + js_getM23 :: DOMMatrix -> IO Double +-- | +getM23 :: (MonadDOM m) => DOMMatrix -> m Double +getM23 self = liftDOM ((js_getM23 (self))) + +foreign import javascript safe "(($1, $2) => { $1[\"m24\"] = $2; })" + js_setM24 :: DOMMatrix -> Double -> IO () +-- | +setM24 :: (MonadDOM m) => DOMMatrix -> Double -> m () +setM24 self val = liftDOM (void ((js_setM24 (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"m24\"]; })" + js_getM24 :: DOMMatrix -> IO Double +-- | +getM24 :: (MonadDOM m) => DOMMatrix -> m Double +getM24 self = liftDOM ((js_getM24 (self))) + +foreign import javascript safe "(($1, $2) => { $1[\"m31\"] = $2; })" + js_setM31 :: DOMMatrix -> Double -> IO () +-- | +setM31 :: (MonadDOM m) => DOMMatrix -> Double -> m () +setM31 self val = liftDOM (void ((js_setM31 (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"m31\"]; })" + js_getM31 :: DOMMatrix -> IO Double +-- | +getM31 :: (MonadDOM m) => DOMMatrix -> m Double +getM31 self = liftDOM ((js_getM31 (self))) + +foreign import javascript safe "(($1, $2) => { $1[\"m32\"] = $2; })" + js_setM32 :: DOMMatrix -> Double -> IO () +-- | +setM32 :: (MonadDOM m) => DOMMatrix -> Double -> m () +setM32 self val = liftDOM (void ((js_setM32 (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"m32\"]; })" + js_getM32 :: DOMMatrix -> IO Double +-- | +getM32 :: (MonadDOM m) => DOMMatrix -> m Double +getM32 self = liftDOM ((js_getM32 (self))) + +foreign import javascript safe "(($1, $2) => { $1[\"m33\"] = $2; })" + js_setM33 :: DOMMatrix -> Double -> IO () +-- | +setM33 :: (MonadDOM m) => DOMMatrix -> Double -> m () +setM33 self val = liftDOM (void ((js_setM33 (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"m33\"]; })" + js_getM33 :: DOMMatrix -> IO Double +-- | +getM33 :: (MonadDOM m) => DOMMatrix -> m Double +getM33 self = liftDOM ((js_getM33 (self))) + +foreign import javascript safe "(($1, $2) => { $1[\"m34\"] = $2; })" + js_setM34 :: DOMMatrix -> Double -> IO () +-- | +setM34 :: (MonadDOM m) => DOMMatrix -> Double -> m () +setM34 self val = liftDOM (void ((js_setM34 (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"m34\"]; })" + js_getM34 :: DOMMatrix -> IO Double +-- | +getM34 :: (MonadDOM m) => DOMMatrix -> m Double +getM34 self = liftDOM ((js_getM34 (self))) + +foreign import javascript safe "(($1, $2) => { $1[\"m41\"] = $2; })" + js_setM41 :: DOMMatrix -> Double -> IO () +-- | +setM41 :: (MonadDOM m) => DOMMatrix -> Double -> m () +setM41 self val = liftDOM (void ((js_setM41 (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"m41\"]; })" + js_getM41 :: DOMMatrix -> IO Double +-- | +getM41 :: (MonadDOM m) => DOMMatrix -> m Double +getM41 self = liftDOM ((js_getM41 (self))) + +foreign import javascript safe "(($1, $2) => { $1[\"m42\"] = $2; })" + js_setM42 :: DOMMatrix -> Double -> IO () +-- | +setM42 :: (MonadDOM m) => DOMMatrix -> Double -> m () +setM42 self val = liftDOM (void ((js_setM42 (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"m42\"]; })" + js_getM42 :: DOMMatrix -> IO Double +-- | +getM42 :: (MonadDOM m) => DOMMatrix -> m Double +getM42 self = liftDOM ((js_getM42 (self))) + +foreign import javascript safe "(($1, $2) => { $1[\"m43\"] = $2; })" + js_setM43 :: DOMMatrix -> Double -> IO () +-- | +setM43 :: (MonadDOM m) => DOMMatrix -> Double -> m () +setM43 self val = liftDOM (void ((js_setM43 (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"m43\"]; })" + js_getM43 :: DOMMatrix -> IO Double +-- | +getM43 :: (MonadDOM m) => DOMMatrix -> m Double +getM43 self = liftDOM ((js_getM43 (self))) + +foreign import javascript safe "(($1, $2) => { $1[\"m44\"] = $2; })" + js_setM44 :: DOMMatrix -> Double -> IO () +-- | +setM44 :: (MonadDOM m) => DOMMatrix -> Double -> m () +setM44 self val = liftDOM (void ((js_setM44 (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"m44\"]; })" + js_getM44 :: DOMMatrix -> IO Double +-- | +getM44 :: (MonadDOM m) => DOMMatrix -> m Double +getM44 self = liftDOM ((js_getM44 (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/DOMMatrix2DInit.hs b/src/GHCJS/DOM/JSFFI/Generated/DOMMatrix2DInit.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/DOMMatrix2DInit.hs @@ -0,0 +1,263 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from geometry-1 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.DOMMatrix2DInit + (js_newDOMMatrix2DInit, js_setA, js_getA, js_setB, js_getB, js_setC, js_getC, js_setD, js_getD, js_setE, js_getE, js_setF, js_getF, js_setM11, js_getM11, js_setM12, js_getM12, js_setM21, js_getM21, js_setM22, js_getM22, js_setM41, js_getM41, js_setM42, js_getM42, newDOMMatrix2DInit, setA, getA, getAUnsafe, getAUnchecked, setB, getB, getBUnsafe, getBUnchecked, setC, getC, getCUnsafe, getCUnchecked, setD, getD, getDUnsafe, getDUnchecked, setE, getE, getEUnsafe, getEUnchecked, setF, getF, getFUnsafe, getFUnchecked, setM11, getM11, getM11Unsafe, getM11Unchecked, setM12, getM12, getM12Unsafe, getM12Unchecked, setM21, getM21, getM21Unsafe, getM21Unchecked, setM22, getM22, getM22Unsafe, getM22Unchecked, setM41, getM41, getM41Unsafe, getM41Unchecked, setM42, getM42, getM42Unsafe, getM42Unchecked, DOMMatrix2DInit(..), gTypeDOMMatrix2DInit, IsDOMMatrix2DInit, toDOMMatrix2DInit) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(() => { return ({}); })" + js_newDOMMatrix2DInit :: IO DOMMatrix2DInit +-- | +newDOMMatrix2DInit :: (MonadDOM m) => m DOMMatrix2DInit +newDOMMatrix2DInit = liftDOM ((js_newDOMMatrix2DInit)) + +foreign import javascript safe "(($1, $2) => { $1[\"a\"] = $2; })" + js_setA :: DOMMatrix2DInit -> Double -> IO () +-- | +setA :: (MonadDOM m, IsDOMMatrix2DInit self) => self -> Double -> m () +setA self val = liftDOM (void ((js_setA ((Types.toDOMMatrix2DInit self)) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"a\"]; })" + js_getA :: DOMMatrix2DInit -> IO JSVal +-- | +getA :: (MonadDOM m, IsDOMMatrix2DInit self) => self -> m (Maybe Double) +getA self = liftDOM (((js_getA ((Types.toDOMMatrix2DInit self))) >>= fromJSValUnchecked)) + +-- | +getAUnsafe :: (MonadDOM m, IsDOMMatrix2DInit self, HasCallStack) => self -> m Double +getAUnsafe self = liftDOM ((((js_getA ((Types.toDOMMatrix2DInit self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getAUnchecked :: (MonadDOM m, IsDOMMatrix2DInit self) => self -> m Double +getAUnchecked self = liftDOM ((pFromJSVal <$> (js_getA ((Types.toDOMMatrix2DInit self))))) + +foreign import javascript safe "(($1, $2) => { $1[\"b\"] = $2; })" + js_setB :: DOMMatrix2DInit -> Double -> IO () +-- | +setB :: (MonadDOM m, IsDOMMatrix2DInit self) => self -> Double -> m () +setB self val = liftDOM (void ((js_setB ((Types.toDOMMatrix2DInit self)) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"b\"]; })" + js_getB :: DOMMatrix2DInit -> IO JSVal +-- | +getB :: (MonadDOM m, IsDOMMatrix2DInit self) => self -> m (Maybe Double) +getB self = liftDOM (((js_getB ((Types.toDOMMatrix2DInit self))) >>= fromJSValUnchecked)) + +-- | +getBUnsafe :: (MonadDOM m, IsDOMMatrix2DInit self, HasCallStack) => self -> m Double +getBUnsafe self = liftDOM ((((js_getB ((Types.toDOMMatrix2DInit self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getBUnchecked :: (MonadDOM m, IsDOMMatrix2DInit self) => self -> m Double +getBUnchecked self = liftDOM ((pFromJSVal <$> (js_getB ((Types.toDOMMatrix2DInit self))))) + +foreign import javascript safe "(($1, $2) => { $1[\"c\"] = $2; })" + js_setC :: DOMMatrix2DInit -> Double -> IO () +-- | +setC :: (MonadDOM m, IsDOMMatrix2DInit self) => self -> Double -> m () +setC self val = liftDOM (void ((js_setC ((Types.toDOMMatrix2DInit self)) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"c\"]; })" + js_getC :: DOMMatrix2DInit -> IO JSVal +-- | +getC :: (MonadDOM m, IsDOMMatrix2DInit self) => self -> m (Maybe Double) +getC self = liftDOM (((js_getC ((Types.toDOMMatrix2DInit self))) >>= fromJSValUnchecked)) + +-- | +getCUnsafe :: (MonadDOM m, IsDOMMatrix2DInit self, HasCallStack) => self -> m Double +getCUnsafe self = liftDOM ((((js_getC ((Types.toDOMMatrix2DInit self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getCUnchecked :: (MonadDOM m, IsDOMMatrix2DInit self) => self -> m Double +getCUnchecked self = liftDOM ((pFromJSVal <$> (js_getC ((Types.toDOMMatrix2DInit self))))) + +foreign import javascript safe "(($1, $2) => { $1[\"d\"] = $2; })" + js_setD :: DOMMatrix2DInit -> Double -> IO () +-- | +setD :: (MonadDOM m, IsDOMMatrix2DInit self) => self -> Double -> m () +setD self val = liftDOM (void ((js_setD ((Types.toDOMMatrix2DInit self)) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"d\"]; })" + js_getD :: DOMMatrix2DInit -> IO JSVal +-- | +getD :: (MonadDOM m, IsDOMMatrix2DInit self) => self -> m (Maybe Double) +getD self = liftDOM (((js_getD ((Types.toDOMMatrix2DInit self))) >>= fromJSValUnchecked)) + +-- | +getDUnsafe :: (MonadDOM m, IsDOMMatrix2DInit self, HasCallStack) => self -> m Double +getDUnsafe self = liftDOM ((((js_getD ((Types.toDOMMatrix2DInit self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getDUnchecked :: (MonadDOM m, IsDOMMatrix2DInit self) => self -> m Double +getDUnchecked self = liftDOM ((pFromJSVal <$> (js_getD ((Types.toDOMMatrix2DInit self))))) + +foreign import javascript safe "(($1, $2) => { $1[\"e\"] = $2; })" + js_setE :: DOMMatrix2DInit -> Double -> IO () +-- | +setE :: (MonadDOM m, IsDOMMatrix2DInit self) => self -> Double -> m () +setE self val = liftDOM (void ((js_setE ((Types.toDOMMatrix2DInit self)) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"e\"]; })" + js_getE :: DOMMatrix2DInit -> IO JSVal +-- | +getE :: (MonadDOM m, IsDOMMatrix2DInit self) => self -> m (Maybe Double) +getE self = liftDOM (((js_getE ((Types.toDOMMatrix2DInit self))) >>= fromJSValUnchecked)) + +-- | +getEUnsafe :: (MonadDOM m, IsDOMMatrix2DInit self, HasCallStack) => self -> m Double +getEUnsafe self = liftDOM ((((js_getE ((Types.toDOMMatrix2DInit self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getEUnchecked :: (MonadDOM m, IsDOMMatrix2DInit self) => self -> m Double +getEUnchecked self = liftDOM ((pFromJSVal <$> (js_getE ((Types.toDOMMatrix2DInit self))))) + +foreign import javascript safe "(($1, $2) => { $1[\"f\"] = $2; })" + js_setF :: DOMMatrix2DInit -> Double -> IO () +-- | +setF :: (MonadDOM m, IsDOMMatrix2DInit self) => self -> Double -> m () +setF self val = liftDOM (void ((js_setF ((Types.toDOMMatrix2DInit self)) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"f\"]; })" + js_getF :: DOMMatrix2DInit -> IO JSVal +-- | +getF :: (MonadDOM m, IsDOMMatrix2DInit self) => self -> m (Maybe Double) +getF self = liftDOM (((js_getF ((Types.toDOMMatrix2DInit self))) >>= fromJSValUnchecked)) + +-- | +getFUnsafe :: (MonadDOM m, IsDOMMatrix2DInit self, HasCallStack) => self -> m Double +getFUnsafe self = liftDOM ((((js_getF ((Types.toDOMMatrix2DInit self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getFUnchecked :: (MonadDOM m, IsDOMMatrix2DInit self) => self -> m Double +getFUnchecked self = liftDOM ((pFromJSVal <$> (js_getF ((Types.toDOMMatrix2DInit self))))) + +foreign import javascript safe "(($1, $2) => { $1[\"m11\"] = $2; })" + js_setM11 :: DOMMatrix2DInit -> Double -> IO () +-- | +setM11 :: (MonadDOM m, IsDOMMatrix2DInit self) => self -> Double -> m () +setM11 self val = liftDOM (void ((js_setM11 ((Types.toDOMMatrix2DInit self)) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"m11\"]; })" + js_getM11 :: DOMMatrix2DInit -> IO JSVal +-- | +getM11 :: (MonadDOM m, IsDOMMatrix2DInit self) => self -> m (Maybe Double) +getM11 self = liftDOM (((js_getM11 ((Types.toDOMMatrix2DInit self))) >>= fromJSValUnchecked)) + +-- | +getM11Unsafe :: (MonadDOM m, IsDOMMatrix2DInit self, HasCallStack) => self -> m Double +getM11Unsafe self = liftDOM ((((js_getM11 ((Types.toDOMMatrix2DInit self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getM11Unchecked :: (MonadDOM m, IsDOMMatrix2DInit self) => self -> m Double +getM11Unchecked self = liftDOM ((pFromJSVal <$> (js_getM11 ((Types.toDOMMatrix2DInit self))))) + +foreign import javascript safe "(($1, $2) => { $1[\"m12\"] = $2; })" + js_setM12 :: DOMMatrix2DInit -> Double -> IO () +-- | +setM12 :: (MonadDOM m, IsDOMMatrix2DInit self) => self -> Double -> m () +setM12 self val = liftDOM (void ((js_setM12 ((Types.toDOMMatrix2DInit self)) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"m12\"]; })" + js_getM12 :: DOMMatrix2DInit -> IO JSVal +-- | +getM12 :: (MonadDOM m, IsDOMMatrix2DInit self) => self -> m (Maybe Double) +getM12 self = liftDOM (((js_getM12 ((Types.toDOMMatrix2DInit self))) >>= fromJSValUnchecked)) + +-- | +getM12Unsafe :: (MonadDOM m, IsDOMMatrix2DInit self, HasCallStack) => self -> m Double +getM12Unsafe self = liftDOM ((((js_getM12 ((Types.toDOMMatrix2DInit self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getM12Unchecked :: (MonadDOM m, IsDOMMatrix2DInit self) => self -> m Double +getM12Unchecked self = liftDOM ((pFromJSVal <$> (js_getM12 ((Types.toDOMMatrix2DInit self))))) + +foreign import javascript safe "(($1, $2) => { $1[\"m21\"] = $2; })" + js_setM21 :: DOMMatrix2DInit -> Double -> IO () +-- | +setM21 :: (MonadDOM m, IsDOMMatrix2DInit self) => self -> Double -> m () +setM21 self val = liftDOM (void ((js_setM21 ((Types.toDOMMatrix2DInit self)) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"m21\"]; })" + js_getM21 :: DOMMatrix2DInit -> IO JSVal +-- | +getM21 :: (MonadDOM m, IsDOMMatrix2DInit self) => self -> m (Maybe Double) +getM21 self = liftDOM (((js_getM21 ((Types.toDOMMatrix2DInit self))) >>= fromJSValUnchecked)) + +-- | +getM21Unsafe :: (MonadDOM m, IsDOMMatrix2DInit self, HasCallStack) => self -> m Double +getM21Unsafe self = liftDOM ((((js_getM21 ((Types.toDOMMatrix2DInit self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getM21Unchecked :: (MonadDOM m, IsDOMMatrix2DInit self) => self -> m Double +getM21Unchecked self = liftDOM ((pFromJSVal <$> (js_getM21 ((Types.toDOMMatrix2DInit self))))) + +foreign import javascript safe "(($1, $2) => { $1[\"m22\"] = $2; })" + js_setM22 :: DOMMatrix2DInit -> Double -> IO () +-- | +setM22 :: (MonadDOM m, IsDOMMatrix2DInit self) => self -> Double -> m () +setM22 self val = liftDOM (void ((js_setM22 ((Types.toDOMMatrix2DInit self)) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"m22\"]; })" + js_getM22 :: DOMMatrix2DInit -> IO JSVal +-- | +getM22 :: (MonadDOM m, IsDOMMatrix2DInit self) => self -> m (Maybe Double) +getM22 self = liftDOM (((js_getM22 ((Types.toDOMMatrix2DInit self))) >>= fromJSValUnchecked)) + +-- | +getM22Unsafe :: (MonadDOM m, IsDOMMatrix2DInit self, HasCallStack) => self -> m Double +getM22Unsafe self = liftDOM ((((js_getM22 ((Types.toDOMMatrix2DInit self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getM22Unchecked :: (MonadDOM m, IsDOMMatrix2DInit self) => self -> m Double +getM22Unchecked self = liftDOM ((pFromJSVal <$> (js_getM22 ((Types.toDOMMatrix2DInit self))))) + +foreign import javascript safe "(($1, $2) => { $1[\"m41\"] = $2; })" + js_setM41 :: DOMMatrix2DInit -> Double -> IO () +-- | +setM41 :: (MonadDOM m, IsDOMMatrix2DInit self) => self -> Double -> m () +setM41 self val = liftDOM (void ((js_setM41 ((Types.toDOMMatrix2DInit self)) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"m41\"]; })" + js_getM41 :: DOMMatrix2DInit -> IO JSVal +-- | +getM41 :: (MonadDOM m, IsDOMMatrix2DInit self) => self -> m (Maybe Double) +getM41 self = liftDOM (((js_getM41 ((Types.toDOMMatrix2DInit self))) >>= fromJSValUnchecked)) + +-- | +getM41Unsafe :: (MonadDOM m, IsDOMMatrix2DInit self, HasCallStack) => self -> m Double +getM41Unsafe self = liftDOM ((((js_getM41 ((Types.toDOMMatrix2DInit self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getM41Unchecked :: (MonadDOM m, IsDOMMatrix2DInit self) => self -> m Double +getM41Unchecked self = liftDOM ((pFromJSVal <$> (js_getM41 ((Types.toDOMMatrix2DInit self))))) + +foreign import javascript safe "(($1, $2) => { $1[\"m42\"] = $2; })" + js_setM42 :: DOMMatrix2DInit -> Double -> IO () +-- | +setM42 :: (MonadDOM m, IsDOMMatrix2DInit self) => self -> Double -> m () +setM42 self val = liftDOM (void ((js_setM42 ((Types.toDOMMatrix2DInit self)) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"m42\"]; })" + js_getM42 :: DOMMatrix2DInit -> IO JSVal +-- | +getM42 :: (MonadDOM m, IsDOMMatrix2DInit self) => self -> m (Maybe Double) +getM42 self = liftDOM (((js_getM42 ((Types.toDOMMatrix2DInit self))) >>= fromJSValUnchecked)) + +-- | +getM42Unsafe :: (MonadDOM m, IsDOMMatrix2DInit self, HasCallStack) => self -> m Double +getM42Unsafe self = liftDOM ((((js_getM42 ((Types.toDOMMatrix2DInit self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getM42Unchecked :: (MonadDOM m, IsDOMMatrix2DInit self) => self -> m Double +getM42Unchecked self = liftDOM ((pFromJSVal <$> (js_getM42 ((Types.toDOMMatrix2DInit self))))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/DOMMatrixInit.hs b/src/GHCJS/DOM/JSFFI/Generated/DOMMatrixInit.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/DOMMatrixInit.hs @@ -0,0 +1,243 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from geometry-1 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.DOMMatrixInit + (js_newDOMMatrixInit, js_setM13, js_getM13, js_setM14, js_getM14, js_setM23, js_getM23, js_setM24, js_getM24, js_setM31, js_getM31, js_setM32, js_getM32, js_setM33, js_getM33, js_setM34, js_getM34, js_setM43, js_getM43, js_setM44, js_getM44, js_setIs2D, js_getIs2D, newDOMMatrixInit, setM13, getM13, getM13Unsafe, getM13Unchecked, setM14, getM14, getM14Unsafe, getM14Unchecked, setM23, getM23, getM23Unsafe, getM23Unchecked, setM24, getM24, getM24Unsafe, getM24Unchecked, setM31, getM31, getM31Unsafe, getM31Unchecked, setM32, getM32, getM32Unsafe, getM32Unchecked, setM33, getM33, getM33Unsafe, getM33Unchecked, setM34, getM34, getM34Unsafe, getM34Unchecked, setM43, getM43, getM43Unsafe, getM43Unchecked, setM44, getM44, getM44Unsafe, getM44Unchecked, setIs2D, getIs2D, getIs2DUnsafe, getIs2DUnchecked, DOMMatrixInit(..), gTypeDOMMatrixInit) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(() => { return ({}); })" + js_newDOMMatrixInit :: IO DOMMatrixInit +-- | +newDOMMatrixInit :: (MonadDOM m) => m DOMMatrixInit +newDOMMatrixInit = liftDOM ((js_newDOMMatrixInit)) + +foreign import javascript safe "(($1, $2) => { $1[\"m13\"] = $2; })" + js_setM13 :: DOMMatrixInit -> Double -> IO () +-- | +setM13 :: (MonadDOM m) => DOMMatrixInit -> Double -> m () +setM13 self val = liftDOM (void ((js_setM13 (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"m13\"]; })" + js_getM13 :: DOMMatrixInit -> IO JSVal +-- | +getM13 :: (MonadDOM m) => DOMMatrixInit -> m (Maybe Double) +getM13 self = liftDOM (((js_getM13 (self)) >>= fromJSValUnchecked)) + +-- | +getM13Unsafe :: (MonadDOM m, HasCallStack) => DOMMatrixInit -> m Double +getM13Unsafe self = liftDOM ((((js_getM13 (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getM13Unchecked :: (MonadDOM m) => DOMMatrixInit -> m Double +getM13Unchecked self = liftDOM ((pFromJSVal <$> (js_getM13 (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"m14\"] = $2; })" + js_setM14 :: DOMMatrixInit -> Double -> IO () +-- | +setM14 :: (MonadDOM m) => DOMMatrixInit -> Double -> m () +setM14 self val = liftDOM (void ((js_setM14 (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"m14\"]; })" + js_getM14 :: DOMMatrixInit -> IO JSVal +-- | +getM14 :: (MonadDOM m) => DOMMatrixInit -> m (Maybe Double) +getM14 self = liftDOM (((js_getM14 (self)) >>= fromJSValUnchecked)) + +-- | +getM14Unsafe :: (MonadDOM m, HasCallStack) => DOMMatrixInit -> m Double +getM14Unsafe self = liftDOM ((((js_getM14 (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getM14Unchecked :: (MonadDOM m) => DOMMatrixInit -> m Double +getM14Unchecked self = liftDOM ((pFromJSVal <$> (js_getM14 (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"m23\"] = $2; })" + js_setM23 :: DOMMatrixInit -> Double -> IO () +-- | +setM23 :: (MonadDOM m) => DOMMatrixInit -> Double -> m () +setM23 self val = liftDOM (void ((js_setM23 (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"m23\"]; })" + js_getM23 :: DOMMatrixInit -> IO JSVal +-- | +getM23 :: (MonadDOM m) => DOMMatrixInit -> m (Maybe Double) +getM23 self = liftDOM (((js_getM23 (self)) >>= fromJSValUnchecked)) + +-- | +getM23Unsafe :: (MonadDOM m, HasCallStack) => DOMMatrixInit -> m Double +getM23Unsafe self = liftDOM ((((js_getM23 (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getM23Unchecked :: (MonadDOM m) => DOMMatrixInit -> m Double +getM23Unchecked self = liftDOM ((pFromJSVal <$> (js_getM23 (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"m24\"] = $2; })" + js_setM24 :: DOMMatrixInit -> Double -> IO () +-- | +setM24 :: (MonadDOM m) => DOMMatrixInit -> Double -> m () +setM24 self val = liftDOM (void ((js_setM24 (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"m24\"]; })" + js_getM24 :: DOMMatrixInit -> IO JSVal +-- | +getM24 :: (MonadDOM m) => DOMMatrixInit -> m (Maybe Double) +getM24 self = liftDOM (((js_getM24 (self)) >>= fromJSValUnchecked)) + +-- | +getM24Unsafe :: (MonadDOM m, HasCallStack) => DOMMatrixInit -> m Double +getM24Unsafe self = liftDOM ((((js_getM24 (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getM24Unchecked :: (MonadDOM m) => DOMMatrixInit -> m Double +getM24Unchecked self = liftDOM ((pFromJSVal <$> (js_getM24 (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"m31\"] = $2; })" + js_setM31 :: DOMMatrixInit -> Double -> IO () +-- | +setM31 :: (MonadDOM m) => DOMMatrixInit -> Double -> m () +setM31 self val = liftDOM (void ((js_setM31 (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"m31\"]; })" + js_getM31 :: DOMMatrixInit -> IO JSVal +-- | +getM31 :: (MonadDOM m) => DOMMatrixInit -> m (Maybe Double) +getM31 self = liftDOM (((js_getM31 (self)) >>= fromJSValUnchecked)) + +-- | +getM31Unsafe :: (MonadDOM m, HasCallStack) => DOMMatrixInit -> m Double +getM31Unsafe self = liftDOM ((((js_getM31 (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getM31Unchecked :: (MonadDOM m) => DOMMatrixInit -> m Double +getM31Unchecked self = liftDOM ((pFromJSVal <$> (js_getM31 (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"m32\"] = $2; })" + js_setM32 :: DOMMatrixInit -> Double -> IO () +-- | +setM32 :: (MonadDOM m) => DOMMatrixInit -> Double -> m () +setM32 self val = liftDOM (void ((js_setM32 (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"m32\"]; })" + js_getM32 :: DOMMatrixInit -> IO JSVal +-- | +getM32 :: (MonadDOM m) => DOMMatrixInit -> m (Maybe Double) +getM32 self = liftDOM (((js_getM32 (self)) >>= fromJSValUnchecked)) + +-- | +getM32Unsafe :: (MonadDOM m, HasCallStack) => DOMMatrixInit -> m Double +getM32Unsafe self = liftDOM ((((js_getM32 (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getM32Unchecked :: (MonadDOM m) => DOMMatrixInit -> m Double +getM32Unchecked self = liftDOM ((pFromJSVal <$> (js_getM32 (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"m33\"] = $2; })" + js_setM33 :: DOMMatrixInit -> Double -> IO () +-- | +setM33 :: (MonadDOM m) => DOMMatrixInit -> Double -> m () +setM33 self val = liftDOM (void ((js_setM33 (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"m33\"]; })" + js_getM33 :: DOMMatrixInit -> IO JSVal +-- | +getM33 :: (MonadDOM m) => DOMMatrixInit -> m (Maybe Double) +getM33 self = liftDOM (((js_getM33 (self)) >>= fromJSValUnchecked)) + +-- | +getM33Unsafe :: (MonadDOM m, HasCallStack) => DOMMatrixInit -> m Double +getM33Unsafe self = liftDOM ((((js_getM33 (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getM33Unchecked :: (MonadDOM m) => DOMMatrixInit -> m Double +getM33Unchecked self = liftDOM ((pFromJSVal <$> (js_getM33 (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"m34\"] = $2; })" + js_setM34 :: DOMMatrixInit -> Double -> IO () +-- | +setM34 :: (MonadDOM m) => DOMMatrixInit -> Double -> m () +setM34 self val = liftDOM (void ((js_setM34 (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"m34\"]; })" + js_getM34 :: DOMMatrixInit -> IO JSVal +-- | +getM34 :: (MonadDOM m) => DOMMatrixInit -> m (Maybe Double) +getM34 self = liftDOM (((js_getM34 (self)) >>= fromJSValUnchecked)) + +-- | +getM34Unsafe :: (MonadDOM m, HasCallStack) => DOMMatrixInit -> m Double +getM34Unsafe self = liftDOM ((((js_getM34 (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getM34Unchecked :: (MonadDOM m) => DOMMatrixInit -> m Double +getM34Unchecked self = liftDOM ((pFromJSVal <$> (js_getM34 (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"m43\"] = $2; })" + js_setM43 :: DOMMatrixInit -> Double -> IO () +-- | +setM43 :: (MonadDOM m) => DOMMatrixInit -> Double -> m () +setM43 self val = liftDOM (void ((js_setM43 (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"m43\"]; })" + js_getM43 :: DOMMatrixInit -> IO JSVal +-- | +getM43 :: (MonadDOM m) => DOMMatrixInit -> m (Maybe Double) +getM43 self = liftDOM (((js_getM43 (self)) >>= fromJSValUnchecked)) + +-- | +getM43Unsafe :: (MonadDOM m, HasCallStack) => DOMMatrixInit -> m Double +getM43Unsafe self = liftDOM ((((js_getM43 (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getM43Unchecked :: (MonadDOM m) => DOMMatrixInit -> m Double +getM43Unchecked self = liftDOM ((pFromJSVal <$> (js_getM43 (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"m44\"] = $2; })" + js_setM44 :: DOMMatrixInit -> Double -> IO () +-- | +setM44 :: (MonadDOM m) => DOMMatrixInit -> Double -> m () +setM44 self val = liftDOM (void ((js_setM44 (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"m44\"]; })" + js_getM44 :: DOMMatrixInit -> IO JSVal +-- | +getM44 :: (MonadDOM m) => DOMMatrixInit -> m (Maybe Double) +getM44 self = liftDOM (((js_getM44 (self)) >>= fromJSValUnchecked)) + +-- | +getM44Unsafe :: (MonadDOM m, HasCallStack) => DOMMatrixInit -> m Double +getM44Unsafe self = liftDOM ((((js_getM44 (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getM44Unchecked :: (MonadDOM m) => DOMMatrixInit -> m Double +getM44Unchecked self = liftDOM ((pFromJSVal <$> (js_getM44 (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"is2D\"] = $2; })" + js_setIs2D :: DOMMatrixInit -> Bool -> IO () +-- | +setIs2D :: (MonadDOM m) => DOMMatrixInit -> Bool -> m () +setIs2D self val = liftDOM (void ((js_setIs2D (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"is2D\"]; })" + js_getIs2D :: DOMMatrixInit -> IO JSVal +-- | +getIs2D :: (MonadDOM m) => DOMMatrixInit -> m (Maybe Bool) +getIs2D self = liftDOM (((js_getIs2D (self)) >>= fromJSValUnchecked)) + +-- | +getIs2DUnsafe :: (MonadDOM m, HasCallStack) => DOMMatrixInit -> m Bool +getIs2DUnsafe self = liftDOM ((((js_getIs2D (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getIs2DUnchecked :: (MonadDOM m) => DOMMatrixInit -> m Bool +getIs2DUnchecked self = liftDOM ((pFromJSVal <$> (js_getIs2D (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/DOMMatrixReadOnly.hs b/src/GHCJS/DOM/JSFFI/Generated/DOMMatrixReadOnly.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/DOMMatrixReadOnly.hs @@ -0,0 +1,367 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from geometry-1 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.DOMMatrixReadOnly + (js_newDOMMatrixReadOnly, js_flipX, js_flipY, js_inverse, js_multiply, js_rotate, js_rotateAxisAngle, js_rotateFromVector, js_scale, js_scale3d, js_scaleNonUniform, js_skewX, js_skewY, js_toFloat32Array, js_toFloat64Array, js_toJSON, js_transformPoint, js_translate, js_fromFloat32Array, js_fromFloat64Array, js_fromMatrix, js_getA, js_getB, js_getC, js_getD, js_getE, js_getF, js_getM11, js_getM12, js_getM13, js_getM14, js_getM21, js_getM22, js_getM23, js_getM24, js_getM31, js_getM32, js_getM33, js_getM34, js_getM41, js_getM42, js_getM43, js_getM44, js_getIs2D, js_getIsIdentity, newDOMMatrixReadOnly, flipX, flipX_, flipY, flipY_, inverse, inverse_, multiply, multiply_, rotate, rotate_, rotateAxisAngle, rotateAxisAngle_, rotateFromVector, rotateFromVector_, scale, scale_, scale3d, scale3d_, scaleNonUniform, scaleNonUniform_, skewX, skewX_, skewY, skewY_, toFloat32Array, toFloat32Array_, toFloat64Array, toFloat64Array_, toJSON, toJSON_, transformPoint, transformPoint_, translate, translate_, fromFloat32Array, fromFloat32Array_, fromFloat64Array, fromFloat64Array_, fromMatrix, fromMatrix_, getA, getB, getC, getD, getE, getF, getM11, getM12, getM13, getM14, getM21, getM22, getM23, getM24, getM31, getM32, getM33, getM34, getM41, getM42, getM43, getM44, getIs2D, getIsIdentity, DOMMatrixReadOnly(..), gTypeDOMMatrixReadOnly, IsDOMMatrixReadOnly, toDOMMatrixReadOnly) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types hiding (toFloat32Array, toFloat64Array) +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1) => { return new globalThis[\"DOMMatrixReadOnly\"]($1); })" + js_newDOMMatrixReadOnly :: JSVal -> IO DOMMatrixReadOnly +-- | +newDOMMatrixReadOnly :: (MonadDOM m, IsStringOrSequenceDouble init) => Maybe init -> m DOMMatrixReadOnly +newDOMMatrixReadOnly init = liftDOM (((P.maybe (P.return jsUndefined) toJSVal init) >>= \a1' -> js_newDOMMatrixReadOnly a1')) + +foreign import javascript safe "(($1) => { return $1[\"flipX\"](); })" + js_flipX :: DOMMatrixReadOnly -> IO DOMMatrix +-- | +flipX :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> m DOMMatrix +flipX self = liftDOM ((js_flipX ((Types.toDOMMatrixReadOnly self)))) + +-- | +flipX_ :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> m () +flipX_ self = liftDOM (void ((js_flipX ((Types.toDOMMatrixReadOnly self))))) + +foreign import javascript safe "(($1) => { return $1[\"flipY\"](); })" + js_flipY :: DOMMatrixReadOnly -> IO DOMMatrix +-- | +flipY :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> m DOMMatrix +flipY self = liftDOM ((js_flipY ((Types.toDOMMatrixReadOnly self)))) + +-- | +flipY_ :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> m () +flipY_ self = liftDOM (void ((js_flipY ((Types.toDOMMatrixReadOnly self))))) + +foreign import javascript safe "(($1) => { return $1[\"inverse\"](); })" + js_inverse :: DOMMatrixReadOnly -> IO DOMMatrix +-- | +inverse :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> m DOMMatrix +inverse self = liftDOM ((js_inverse ((Types.toDOMMatrixReadOnly self)))) + +-- | +inverse_ :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> m () +inverse_ self = liftDOM (void ((js_inverse ((Types.toDOMMatrixReadOnly self))))) + +foreign import javascript safe "(($1, $2) => { return $1[\"multiply\"]($2); })" + js_multiply :: DOMMatrixReadOnly -> JSVal -> IO DOMMatrix +-- | +multiply :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> Maybe DOMMatrixInit -> m DOMMatrix +multiply self other = liftDOM (((P.maybe (P.return jsUndefined) toJSVal other) >>= \a2' -> js_multiply ((Types.toDOMMatrixReadOnly self)) a2')) + +-- | +multiply_ :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> Maybe DOMMatrixInit -> m () +multiply_ self other = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal other) >>= \a2' -> js_multiply ((Types.toDOMMatrixReadOnly self)) a2'))) + +foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"rotate\"]($2, $3, $4); })" + js_rotate :: DOMMatrixReadOnly -> JSVal -> JSVal -> JSVal -> IO DOMMatrix +-- | +rotate :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> Maybe Double -> Maybe Double -> Maybe Double -> m DOMMatrix +rotate self rotX rotY rotZ = liftDOM (((P.maybe (P.return jsUndefined) toJSVal rotX) >>= \a2' -> (P.maybe (P.return jsUndefined) toJSVal rotY) >>= \a3' -> (P.maybe (P.return jsUndefined) toJSVal rotZ) >>= \a4' -> js_rotate ((Types.toDOMMatrixReadOnly self)) a2' a3' a4')) + +-- | +rotate_ :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> Maybe Double -> Maybe Double -> Maybe Double -> m () +rotate_ self rotX rotY rotZ = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal rotX) >>= \a2' -> (P.maybe (P.return jsUndefined) toJSVal rotY) >>= \a3' -> (P.maybe (P.return jsUndefined) toJSVal rotZ) >>= \a4' -> js_rotate ((Types.toDOMMatrixReadOnly self)) a2' a3' a4'))) + +foreign import javascript safe "(($1, $2, $3, $4, $5) => { return $1[\"rotateAxisAngle\"]($2, $3, $4, $5); })" + js_rotateAxisAngle :: DOMMatrixReadOnly -> JSVal -> JSVal -> JSVal -> JSVal -> IO DOMMatrix +-- | +rotateAxisAngle :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> Maybe Double -> Maybe Double -> Maybe Double -> Maybe Double -> m DOMMatrix +rotateAxisAngle self x y z angle = liftDOM (((P.maybe (P.return jsUndefined) toJSVal x) >>= \a2' -> (P.maybe (P.return jsUndefined) toJSVal y) >>= \a3' -> (P.maybe (P.return jsUndefined) toJSVal z) >>= \a4' -> (P.maybe (P.return jsUndefined) toJSVal angle) >>= \a5' -> js_rotateAxisAngle ((Types.toDOMMatrixReadOnly self)) a2' a3' a4' a5')) + +-- | +rotateAxisAngle_ :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> Maybe Double -> Maybe Double -> Maybe Double -> Maybe Double -> m () +rotateAxisAngle_ self x y z angle = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal x) >>= \a2' -> (P.maybe (P.return jsUndefined) toJSVal y) >>= \a3' -> (P.maybe (P.return jsUndefined) toJSVal z) >>= \a4' -> (P.maybe (P.return jsUndefined) toJSVal angle) >>= \a5' -> js_rotateAxisAngle ((Types.toDOMMatrixReadOnly self)) a2' a3' a4' a5'))) + +foreign import javascript safe "(($1, $2, $3) => { return $1[\"rotateFromVector\"]($2, $3); })" + js_rotateFromVector :: DOMMatrixReadOnly -> JSVal -> JSVal -> IO DOMMatrix +-- | +rotateFromVector :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> Maybe Double -> Maybe Double -> m DOMMatrix +rotateFromVector self x y = liftDOM (((P.maybe (P.return jsUndefined) toJSVal x) >>= \a2' -> (P.maybe (P.return jsUndefined) toJSVal y) >>= \a3' -> js_rotateFromVector ((Types.toDOMMatrixReadOnly self)) a2' a3')) + +-- | +rotateFromVector_ :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> Maybe Double -> Maybe Double -> m () +rotateFromVector_ self x y = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal x) >>= \a2' -> (P.maybe (P.return jsUndefined) toJSVal y) >>= \a3' -> js_rotateFromVector ((Types.toDOMMatrixReadOnly self)) a2' a3'))) + +foreign import javascript safe "(($1, $2, $3, $4, $5, $6, $7) => { return $1[\"scale\"]($2, $3, $4, $5, $6, $7); })" + js_scale :: DOMMatrixReadOnly -> JSVal -> JSVal -> JSVal -> JSVal -> JSVal -> JSVal -> IO DOMMatrix +-- | +scale :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> Maybe Double -> Maybe Double -> Maybe Double -> Maybe Double -> Maybe Double -> Maybe Double -> m DOMMatrix +scale self scaleX scaleY scaleZ originX originY originZ = liftDOM (((P.maybe (P.return jsUndefined) toJSVal scaleX) >>= \a2' -> (P.maybe (P.return jsUndefined) toJSVal scaleY) >>= \a3' -> (P.maybe (P.return jsUndefined) toJSVal scaleZ) >>= \a4' -> (P.maybe (P.return jsUndefined) toJSVal originX) >>= \a5' -> (P.maybe (P.return jsUndefined) toJSVal originY) >>= \a6' -> (P.maybe (P.return jsUndefined) toJSVal originZ) >>= \a7' -> js_scale ((Types.toDOMMatrixReadOnly self)) a2' a3' a4' a5' a6' a7')) + +-- | +scale_ :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> Maybe Double -> Maybe Double -> Maybe Double -> Maybe Double -> Maybe Double -> Maybe Double -> m () +scale_ self scaleX scaleY scaleZ originX originY originZ = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal scaleX) >>= \a2' -> (P.maybe (P.return jsUndefined) toJSVal scaleY) >>= \a3' -> (P.maybe (P.return jsUndefined) toJSVal scaleZ) >>= \a4' -> (P.maybe (P.return jsUndefined) toJSVal originX) >>= \a5' -> (P.maybe (P.return jsUndefined) toJSVal originY) >>= \a6' -> (P.maybe (P.return jsUndefined) toJSVal originZ) >>= \a7' -> js_scale ((Types.toDOMMatrixReadOnly self)) a2' a3' a4' a5' a6' a7'))) + +foreign import javascript safe "(($1, $2, $3, $4, $5) => { return $1[\"scale3d\"]($2, $3, $4, $5); })" + js_scale3d :: DOMMatrixReadOnly -> JSVal -> JSVal -> JSVal -> JSVal -> IO DOMMatrix +-- | +scale3d :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> Maybe Double -> Maybe Double -> Maybe Double -> Maybe Double -> m DOMMatrix +scale3d self scale originX originY originZ = liftDOM (((P.maybe (P.return jsUndefined) toJSVal scale) >>= \a2' -> (P.maybe (P.return jsUndefined) toJSVal originX) >>= \a3' -> (P.maybe (P.return jsUndefined) toJSVal originY) >>= \a4' -> (P.maybe (P.return jsUndefined) toJSVal originZ) >>= \a5' -> js_scale3d ((Types.toDOMMatrixReadOnly self)) a2' a3' a4' a5')) + +-- | +scale3d_ :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> Maybe Double -> Maybe Double -> Maybe Double -> Maybe Double -> m () +scale3d_ self scale originX originY originZ = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal scale) >>= \a2' -> (P.maybe (P.return jsUndefined) toJSVal originX) >>= \a3' -> (P.maybe (P.return jsUndefined) toJSVal originY) >>= \a4' -> (P.maybe (P.return jsUndefined) toJSVal originZ) >>= \a5' -> js_scale3d ((Types.toDOMMatrixReadOnly self)) a2' a3' a4' a5'))) + +foreign import javascript safe "(($1, $2, $3) => { return $1[\"scaleNonUniform\"]($2, $3); })" + js_scaleNonUniform :: DOMMatrixReadOnly -> JSVal -> JSVal -> IO DOMMatrix +-- | +scaleNonUniform :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> Maybe Double -> Maybe Double -> m DOMMatrix +scaleNonUniform self scaleX scaleY = liftDOM (((P.maybe (P.return jsUndefined) toJSVal scaleX) >>= \a2' -> (P.maybe (P.return jsUndefined) toJSVal scaleY) >>= \a3' -> js_scaleNonUniform ((Types.toDOMMatrixReadOnly self)) a2' a3')) + +-- | +scaleNonUniform_ :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> Maybe Double -> Maybe Double -> m () +scaleNonUniform_ self scaleX scaleY = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal scaleX) >>= \a2' -> (P.maybe (P.return jsUndefined) toJSVal scaleY) >>= \a3' -> js_scaleNonUniform ((Types.toDOMMatrixReadOnly self)) a2' a3'))) + +foreign import javascript safe "(($1, $2) => { return $1[\"skewX\"]($2); })" + js_skewX :: DOMMatrixReadOnly -> JSVal -> IO DOMMatrix +-- | +skewX :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> Maybe Double -> m DOMMatrix +skewX self sx = liftDOM (((P.maybe (P.return jsUndefined) toJSVal sx) >>= \a2' -> js_skewX ((Types.toDOMMatrixReadOnly self)) a2')) + +-- | +skewX_ :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> Maybe Double -> m () +skewX_ self sx = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal sx) >>= \a2' -> js_skewX ((Types.toDOMMatrixReadOnly self)) a2'))) + +foreign import javascript safe "(($1, $2) => { return $1[\"skewY\"]($2); })" + js_skewY :: DOMMatrixReadOnly -> JSVal -> IO DOMMatrix +-- | +skewY :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> Maybe Double -> m DOMMatrix +skewY self sy = liftDOM (((P.maybe (P.return jsUndefined) toJSVal sy) >>= \a2' -> js_skewY ((Types.toDOMMatrixReadOnly self)) a2')) + +-- | +skewY_ :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> Maybe Double -> m () +skewY_ self sy = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal sy) >>= \a2' -> js_skewY ((Types.toDOMMatrixReadOnly self)) a2'))) + +foreign import javascript safe "(($1) => { return $1[\"toFloat32Array\"](); })" + js_toFloat32Array :: DOMMatrixReadOnly -> IO Float32Array +-- | +toFloat32Array :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> m Float32Array +toFloat32Array self = liftDOM ((js_toFloat32Array ((Types.toDOMMatrixReadOnly self)))) + +-- | +toFloat32Array_ :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> m () +toFloat32Array_ self = liftDOM (void ((js_toFloat32Array ((Types.toDOMMatrixReadOnly self))))) + +foreign import javascript safe "(($1) => { return $1[\"toFloat64Array\"](); })" + js_toFloat64Array :: DOMMatrixReadOnly -> IO Float64Array +-- | +toFloat64Array :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> m Float64Array +toFloat64Array self = liftDOM ((js_toFloat64Array ((Types.toDOMMatrixReadOnly self)))) + +-- | +toFloat64Array_ :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> m () +toFloat64Array_ self = liftDOM (void ((js_toFloat64Array ((Types.toDOMMatrixReadOnly self))))) + +foreign import javascript safe "(($1) => { return $1[\"toJSON\"](); })" + js_toJSON :: DOMMatrixReadOnly -> IO GObject +-- | +toJSON :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> m GObject +toJSON self = liftDOM ((js_toJSON ((Types.toDOMMatrixReadOnly self)))) + +-- | +toJSON_ :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> m () +toJSON_ self = liftDOM (void ((js_toJSON ((Types.toDOMMatrixReadOnly self))))) + +foreign import javascript safe "(($1, $2) => { return $1[\"transformPoint\"]($2); })" + js_transformPoint :: DOMMatrixReadOnly -> JSVal -> IO DOMPoint +-- | +transformPoint :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> Maybe DOMPointInit -> m DOMPoint +transformPoint self point = liftDOM (((P.maybe (P.return jsUndefined) toJSVal point) >>= \a2' -> js_transformPoint ((Types.toDOMMatrixReadOnly self)) a2')) + +-- | +transformPoint_ :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> Maybe DOMPointInit -> m () +transformPoint_ self point = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal point) >>= \a2' -> js_transformPoint ((Types.toDOMMatrixReadOnly self)) a2'))) + +foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"translate\"]($2, $3, $4); })" + js_translate :: DOMMatrixReadOnly -> JSVal -> JSVal -> JSVal -> IO DOMMatrix +-- | +translate :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> Maybe Double -> Maybe Double -> Maybe Double -> m DOMMatrix +translate self tx ty tz = liftDOM (((P.maybe (P.return jsUndefined) toJSVal tx) >>= \a2' -> (P.maybe (P.return jsUndefined) toJSVal ty) >>= \a3' -> (P.maybe (P.return jsUndefined) toJSVal tz) >>= \a4' -> js_translate ((Types.toDOMMatrixReadOnly self)) a2' a3' a4')) + +-- | +translate_ :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> Maybe Double -> Maybe Double -> Maybe Double -> m () +translate_ self tx ty tz = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal tx) >>= \a2' -> (P.maybe (P.return jsUndefined) toJSVal ty) >>= \a3' -> (P.maybe (P.return jsUndefined) toJSVal tz) >>= \a4' -> js_translate ((Types.toDOMMatrixReadOnly self)) a2' a3' a4'))) + +foreign import javascript safe "(($1) => { return globalThis[\"DOMMatrixReadOnly\"][\"fromFloat32Array\"]($1); })" + js_fromFloat32Array :: Float32Array -> IO DOMMatrixReadOnly +-- | +fromFloat32Array :: (MonadDOM m, IsFloat32Array array32) => array32 -> m DOMMatrixReadOnly +fromFloat32Array array32 = liftDOM ((js_fromFloat32Array (Types.toFloat32Array array32))) + +-- | +fromFloat32Array_ :: (MonadDOM m, IsFloat32Array array32) => array32 -> m () +fromFloat32Array_ array32 = liftDOM (void ((js_fromFloat32Array (Types.toFloat32Array array32)))) + +foreign import javascript safe "(($1) => { return globalThis[\"DOMMatrixReadOnly\"][\"fromFloat64Array\"]($1); })" + js_fromFloat64Array :: Float64Array -> IO DOMMatrixReadOnly +-- | +fromFloat64Array :: (MonadDOM m, IsFloat64Array array64) => array64 -> m DOMMatrixReadOnly +fromFloat64Array array64 = liftDOM ((js_fromFloat64Array (Types.toFloat64Array array64))) + +-- | +fromFloat64Array_ :: (MonadDOM m, IsFloat64Array array64) => array64 -> m () +fromFloat64Array_ array64 = liftDOM (void ((js_fromFloat64Array (Types.toFloat64Array array64)))) + +foreign import javascript safe "(($1) => { return globalThis[\"DOMMatrixReadOnly\"][\"fromMatrix\"]($1); })" + js_fromMatrix :: JSVal -> IO DOMMatrixReadOnly +-- | +fromMatrix :: (MonadDOM m) => Maybe DOMMatrixInit -> m DOMMatrixReadOnly +fromMatrix other = liftDOM (((P.maybe (P.return jsUndefined) toJSVal other) >>= \a1' -> js_fromMatrix a1')) + +-- | +fromMatrix_ :: (MonadDOM m) => Maybe DOMMatrixInit -> m () +fromMatrix_ other = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal other) >>= \a1' -> js_fromMatrix a1'))) + +foreign import javascript unsafe "(($1) => { return $1[\"a\"]; })" + js_getA :: DOMMatrixReadOnly -> IO Double +-- | +getA :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> m Double +getA self = liftDOM ((js_getA ((Types.toDOMMatrixReadOnly self)))) + +foreign import javascript unsafe "(($1) => { return $1[\"b\"]; })" + js_getB :: DOMMatrixReadOnly -> IO Double +-- | +getB :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> m Double +getB self = liftDOM ((js_getB ((Types.toDOMMatrixReadOnly self)))) + +foreign import javascript unsafe "(($1) => { return $1[\"c\"]; })" + js_getC :: DOMMatrixReadOnly -> IO Double +-- | +getC :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> m Double +getC self = liftDOM ((js_getC ((Types.toDOMMatrixReadOnly self)))) + +foreign import javascript unsafe "(($1) => { return $1[\"d\"]; })" + js_getD :: DOMMatrixReadOnly -> IO Double +-- | +getD :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> m Double +getD self = liftDOM ((js_getD ((Types.toDOMMatrixReadOnly self)))) + +foreign import javascript unsafe "(($1) => { return $1[\"e\"]; })" + js_getE :: DOMMatrixReadOnly -> IO Double +-- | +getE :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> m Double +getE self = liftDOM ((js_getE ((Types.toDOMMatrixReadOnly self)))) + +foreign import javascript unsafe "(($1) => { return $1[\"f\"]; })" + js_getF :: DOMMatrixReadOnly -> IO Double +-- | +getF :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> m Double +getF self = liftDOM ((js_getF ((Types.toDOMMatrixReadOnly self)))) + +foreign import javascript unsafe "(($1) => { return $1[\"m11\"]; })" + js_getM11 :: DOMMatrixReadOnly -> IO Double +-- | +getM11 :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> m Double +getM11 self = liftDOM ((js_getM11 ((Types.toDOMMatrixReadOnly self)))) + +foreign import javascript unsafe "(($1) => { return $1[\"m12\"]; })" + js_getM12 :: DOMMatrixReadOnly -> IO Double +-- | +getM12 :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> m Double +getM12 self = liftDOM ((js_getM12 ((Types.toDOMMatrixReadOnly self)))) + +foreign import javascript unsafe "(($1) => { return $1[\"m13\"]; })" + js_getM13 :: DOMMatrixReadOnly -> IO Double +-- | +getM13 :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> m Double +getM13 self = liftDOM ((js_getM13 ((Types.toDOMMatrixReadOnly self)))) + +foreign import javascript unsafe "(($1) => { return $1[\"m14\"]; })" + js_getM14 :: DOMMatrixReadOnly -> IO Double +-- | +getM14 :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> m Double +getM14 self = liftDOM ((js_getM14 ((Types.toDOMMatrixReadOnly self)))) + +foreign import javascript unsafe "(($1) => { return $1[\"m21\"]; })" + js_getM21 :: DOMMatrixReadOnly -> IO Double +-- | +getM21 :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> m Double +getM21 self = liftDOM ((js_getM21 ((Types.toDOMMatrixReadOnly self)))) + +foreign import javascript unsafe "(($1) => { return $1[\"m22\"]; })" + js_getM22 :: DOMMatrixReadOnly -> IO Double +-- | +getM22 :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> m Double +getM22 self = liftDOM ((js_getM22 ((Types.toDOMMatrixReadOnly self)))) + +foreign import javascript unsafe "(($1) => { return $1[\"m23\"]; })" + js_getM23 :: DOMMatrixReadOnly -> IO Double +-- | +getM23 :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> m Double +getM23 self = liftDOM ((js_getM23 ((Types.toDOMMatrixReadOnly self)))) + +foreign import javascript unsafe "(($1) => { return $1[\"m24\"]; })" + js_getM24 :: DOMMatrixReadOnly -> IO Double +-- | +getM24 :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> m Double +getM24 self = liftDOM ((js_getM24 ((Types.toDOMMatrixReadOnly self)))) + +foreign import javascript unsafe "(($1) => { return $1[\"m31\"]; })" + js_getM31 :: DOMMatrixReadOnly -> IO Double +-- | +getM31 :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> m Double +getM31 self = liftDOM ((js_getM31 ((Types.toDOMMatrixReadOnly self)))) + +foreign import javascript unsafe "(($1) => { return $1[\"m32\"]; })" + js_getM32 :: DOMMatrixReadOnly -> IO Double +-- | +getM32 :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> m Double +getM32 self = liftDOM ((js_getM32 ((Types.toDOMMatrixReadOnly self)))) + +foreign import javascript unsafe "(($1) => { return $1[\"m33\"]; })" + js_getM33 :: DOMMatrixReadOnly -> IO Double +-- | +getM33 :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> m Double +getM33 self = liftDOM ((js_getM33 ((Types.toDOMMatrixReadOnly self)))) + +foreign import javascript unsafe "(($1) => { return $1[\"m34\"]; })" + js_getM34 :: DOMMatrixReadOnly -> IO Double +-- | +getM34 :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> m Double +getM34 self = liftDOM ((js_getM34 ((Types.toDOMMatrixReadOnly self)))) + +foreign import javascript unsafe "(($1) => { return $1[\"m41\"]; })" + js_getM41 :: DOMMatrixReadOnly -> IO Double +-- | +getM41 :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> m Double +getM41 self = liftDOM ((js_getM41 ((Types.toDOMMatrixReadOnly self)))) + +foreign import javascript unsafe "(($1) => { return $1[\"m42\"]; })" + js_getM42 :: DOMMatrixReadOnly -> IO Double +-- | +getM42 :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> m Double +getM42 self = liftDOM ((js_getM42 ((Types.toDOMMatrixReadOnly self)))) + +foreign import javascript unsafe "(($1) => { return $1[\"m43\"]; })" + js_getM43 :: DOMMatrixReadOnly -> IO Double +-- | +getM43 :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> m Double +getM43 self = liftDOM ((js_getM43 ((Types.toDOMMatrixReadOnly self)))) + +foreign import javascript unsafe "(($1) => { return $1[\"m44\"]; })" + js_getM44 :: DOMMatrixReadOnly -> IO Double +-- | +getM44 :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> m Double +getM44 self = liftDOM ((js_getM44 ((Types.toDOMMatrixReadOnly self)))) + +foreign import javascript unsafe "(($1) => { return $1[\"is2D\"]; })" + js_getIs2D :: DOMMatrixReadOnly -> IO Bool +-- | +getIs2D :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> m Bool +getIs2D self = liftDOM ((js_getIs2D ((Types.toDOMMatrixReadOnly self)))) + +foreign import javascript unsafe "(($1) => { return $1[\"isIdentity\"]; })" + js_getIsIdentity :: DOMMatrixReadOnly -> IO Bool +-- | +getIsIdentity :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> m Bool +getIsIdentity self = liftDOM ((js_getIsIdentity ((Types.toDOMMatrixReadOnly self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/DOMNamedFlowCollection.hs b/src/GHCJS/DOM/JSFFI/Generated/DOMNamedFlowCollection.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/DOMNamedFlowCollection.hs +++ /dev/null @@ -1,100 +0,0 @@ -{-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE JavaScriptFFI #-} --- For HasCallStack compatibility -{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} -module GHCJS.DOM.JSFFI.Generated.DOMNamedFlowCollection - (js_item, item, item_, itemUnsafe, itemUnchecked, js_namedItem, - namedItem, namedItem_, namedItemUnsafe, namedItemUnchecked, - js_getLength, getLength, DOMNamedFlowCollection(..), - gTypeDOMNamedFlowCollection) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull, jsUndefined) -import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import Data.Maybe (fromJust) -import Data.Traversable (mapM) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) -import GHCJS.DOM.JSFFI.Generated.Enums - -foreign import javascript unsafe "(($1, $2) => { return $1[$2]; })" js_item :: - DOMNamedFlowCollection -> Word -> IO (Nullable WebKitNamedFlow) - --- | -item :: - (MonadIO m) => - DOMNamedFlowCollection -> Word -> m (Maybe WebKitNamedFlow) -item self index = liftIO (nullableToMaybe <$> (js_item self index)) - --- | -item_ :: (MonadIO m) => DOMNamedFlowCollection -> Word -> m () -item_ self index = liftIO (void (js_item self index)) - --- | -itemUnsafe :: - (MonadIO m, HasCallStack) => - DOMNamedFlowCollection -> Word -> m WebKitNamedFlow -itemUnsafe self index - = liftIO - ((nullableToMaybe <$> (js_item self index)) >>= - maybe (Prelude.error "Nothing to return") return) - --- | -itemUnchecked :: - (MonadIO m) => DOMNamedFlowCollection -> Word -> m WebKitNamedFlow -itemUnchecked self index - = liftIO (fromJust . nullableToMaybe <$> (js_item self index)) - -foreign import javascript unsafe "(($1, $2) => { return $1[$2]; })" js_namedItem :: - DOMNamedFlowCollection -> JSString -> IO (Nullable WebKitNamedFlow) - --- | -namedItem :: - (MonadIO m, ToJSString name) => - DOMNamedFlowCollection -> name -> m (Maybe WebKitNamedFlow) -namedItem self name - = liftIO - (nullableToMaybe <$> (js_namedItem self (toJSString name))) - --- | -namedItem_ :: - (MonadIO m, ToJSString name) => - DOMNamedFlowCollection -> name -> m () -namedItem_ self name - = liftIO (void (js_namedItem self (toJSString name))) - --- | -namedItemUnsafe :: - (MonadIO m, ToJSString name, HasCallStack) => - DOMNamedFlowCollection -> name -> m WebKitNamedFlow -namedItemUnsafe self name - = liftIO - ((nullableToMaybe <$> (js_namedItem self (toJSString name))) >>= - maybe (Prelude.error "Nothing to return") return) - --- | -namedItemUnchecked :: - (MonadIO m, ToJSString name) => - DOMNamedFlowCollection -> name -> m WebKitNamedFlow -namedItemUnchecked self name - = liftIO - (fromJust . nullableToMaybe <$> - (js_namedItem self (toJSString name))) - -foreign import javascript unsafe "(($1) => { return $1[\"length\"]; })" js_getLength :: - DOMNamedFlowCollection -> IO Word - --- | -getLength :: (MonadIO m) => DOMNamedFlowCollection -> m Word -getLength self = liftIO (js_getLength self) diff --git a/src/GHCJS/DOM/JSFFI/Generated/DOMParser.hs b/src/GHCJS/DOM/JSFFI/Generated/DOMParser.hs --- a/src/GHCJS/DOM/JSFFI/Generated/DOMParser.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/DOMParser.hs @@ -1,57 +1,33 @@ {-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE JavaScriptFFI #-} --- For HasCallStack compatibility +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from html (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.DOMParser - (js_newDOMParser, newDOMParser, js_parseFromString, - parseFromString, parseFromString_, DOMParser(..), gTypeDOMParser) + (js_newDOMParser, js_parseFromString, newDOMParser, parseFromString, parseFromString_, DOMParser(..), gTypeDOMParser) where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull, jsUndefined) -import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import Data.Maybe (fromJust) -import Data.Traversable (mapM) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types -import Control.Applicative ((<$>)) +import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums - -foreign import javascript unsafe "(() => { return new window[\"DOMParser\"](); })" + +foreign import javascript safe "(() => { return new globalThis[\"DOMParser\"](); })" js_newDOMParser :: IO DOMParser +-- | +newDOMParser :: (MonadDOM m) => m DOMParser +newDOMParser = liftDOM ((js_newDOMParser)) --- | -newDOMParser :: (MonadIO m) => m DOMParser -newDOMParser = liftIO (js_newDOMParser) - foreign import javascript safe "(($1, $2, $3) => { return $1[\"parseFromString\"]($2, $3); })" - js_parseFromString :: - DOMParser -> JSString -> JSString -> IO Document - --- | -parseFromString :: - (MonadIO m, ToJSString string, ToJSString contentType) => - DOMParser -> string -> contentType -> m Document -parseFromString self string contentType - = liftIO - (js_parseFromString self (toJSString string) - (toJSString contentType)) + js_parseFromString :: DOMParser -> TrustedHTMLOrString -> JSVal -> IO Document +-- | +parseFromString :: (MonadDOM m, IsTrustedHTMLOrString string) => DOMParser -> string -> DOMParserSupportedType -> m Document +parseFromString self string type' = liftDOM (((toJSVal type') >>= \a3' -> js_parseFromString (self) (Types.toTrustedHTMLOrString string) a3')) --- | -parseFromString_ :: - (MonadIO m, ToJSString string, ToJSString contentType) => - DOMParser -> string -> contentType -> m () -parseFromString_ self string contentType - = liftIO - (void - (js_parseFromString self (toJSString string) - (toJSString contentType))) +-- | +parseFromString_ :: (MonadDOM m, IsTrustedHTMLOrString string) => DOMParser -> string -> DOMParserSupportedType -> m () +parseFromString_ self string type' = liftDOM (void (((toJSVal type') >>= \a3' -> js_parseFromString (self) (Types.toTrustedHTMLOrString string) a3'))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/DOMPoint.hs b/src/GHCJS/DOM/JSFFI/Generated/DOMPoint.hs --- a/src/GHCJS/DOM/JSFFI/Generated/DOMPoint.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/DOMPoint.hs @@ -1,122 +1,87 @@ {-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE JavaScriptFFI #-} --- For HasCallStack compatibility +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from geometry-1 (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.DOMPoint - (js_newDOMPoint, newDOMPoint, js_newDOMPoint', newDOMPoint', - js_fromPoint, fromPoint, fromPoint_, js_setX, setX, js_getX, getX, - js_setY, setY, js_getY, getY, js_setZ, setZ, js_getZ, getZ, - js_setW, setW, js_getW, getW, DOMPoint(..), gTypeDOMPoint) + (js_newDOMPoint, js_newDOMPoint', js_fromPoint, js_setX, js_getX, js_setY, js_getY, js_setZ, js_getZ, js_setW, js_getW, newDOMPoint, newDOMPoint', fromPoint, fromPoint_, setX, getX, setY, getY, setZ, getZ, setW, getW, DOMPoint(..), gTypeDOMPoint) where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull, jsUndefined) -import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import Data.Maybe (fromJust) -import Data.Traversable (mapM) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types -import Control.Applicative ((<$>)) +import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums - -foreign import javascript unsafe "(($1) => { return new window[\"DOMPoint\"]($1); })" - js_newDOMPoint :: DOMPointInit -> IO DOMPoint --- | -newDOMPoint :: (MonadIO m) => DOMPointInit -> m DOMPoint -newDOMPoint point = liftIO (js_newDOMPoint point) - -foreign import javascript unsafe - "(($1, $2, $3, $4) => { return new window[\"DOMPoint\"]($1, $2,\n$3, $4); })" js_newDOMPoint' :: - Optional Double -> - Optional Double -> - Optional Double -> Optional Double -> IO DOMPoint +foreign import javascript safe "(($1) => { return new globalThis[\"DOMPoint\"]($1); })" + js_newDOMPoint :: JSVal -> IO DOMPoint +-- | +newDOMPoint :: (MonadDOM m) => Maybe Double -> m DOMPoint +newDOMPoint x = liftDOM (((P.maybe (P.return jsUndefined) toJSVal x) >>= \a1' -> js_newDOMPoint a1')) --- | -newDOMPoint' :: - (MonadIO m) => - Maybe Double -> - Maybe Double -> Maybe Double -> Maybe Double -> m DOMPoint -newDOMPoint' x y z w - = liftIO - (js_newDOMPoint' (maybeToOptional x) (maybeToOptional y) - (maybeToOptional z) - (maybeToOptional w)) - -foreign import javascript unsafe - "(($1) => { return window[\"DOMPoint\"][\"fromPoint\"]($1); })" js_fromPoint :: - Optional DOMPointInit -> IO DOMPoint +foreign import javascript safe "(($1, $2, $3, $4) => { return new globalThis[\"DOMPoint\"]($1, $2, $3, $4); })" + js_newDOMPoint' :: JSVal -> JSVal -> JSVal -> JSVal -> IO DOMPoint +-- | +newDOMPoint' :: (MonadDOM m) => Maybe Double -> Maybe Double -> Maybe Double -> Maybe Double -> m DOMPoint +newDOMPoint' x y z w = liftDOM (((P.maybe (P.return jsUndefined) toJSVal x) >>= \a1' -> (P.maybe (P.return jsUndefined) toJSVal y) >>= \a2' -> (P.maybe (P.return jsUndefined) toJSVal z) >>= \a3' -> (P.maybe (P.return jsUndefined) toJSVal w) >>= \a4' -> js_newDOMPoint' a1' a2' a3' a4')) --- | -fromPoint :: (MonadIO m) => Maybe DOMPointInit -> m DOMPoint -fromPoint other = liftIO (js_fromPoint (maybeToOptional other)) +foreign import javascript safe "(($1) => { return globalThis[\"DOMPoint\"][\"fromPoint\"]($1); })" + js_fromPoint :: JSVal -> IO DOMPoint +-- | +fromPoint :: (MonadDOM m) => Maybe DOMPointInit -> m DOMPoint +fromPoint other = liftDOM (((P.maybe (P.return jsUndefined) toJSVal other) >>= \a1' -> js_fromPoint a1')) --- | -fromPoint_ :: (MonadIO m) => Maybe DOMPointInit -> m () -fromPoint_ other - = liftIO (void (js_fromPoint (maybeToOptional other))) - -foreign import javascript unsafe "(($1, $2) => { $1[\"x\"] = $2; })" js_setX :: - DOMPoint -> Double -> IO () +-- | +fromPoint_ :: (MonadDOM m) => Maybe DOMPointInit -> m () +fromPoint_ other = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal other) >>= \a1' -> js_fromPoint a1'))) --- | -setX :: (MonadIO m) => DOMPoint -> Double -> m () -setX self val = liftIO (js_setX self val) - -foreign import javascript unsafe "(($1) => { return $1[\"x\"]; })" js_getX :: - DOMPoint -> IO Double +foreign import javascript safe "(($1, $2) => { $1[\"x\"] = $2; })" + js_setX :: DOMPoint -> Double -> IO () +-- | +setX :: (MonadDOM m) => DOMPoint -> Double -> m () +setX self val = liftDOM (void ((js_setX (self) (val)))) --- | -getX :: (MonadIO m) => DOMPoint -> m Double -getX self = liftIO (js_getX self) - -foreign import javascript unsafe "(($1, $2) => { $1[\"y\"] = $2; })" js_setY :: - DOMPoint -> Double -> IO () +foreign import javascript unsafe "(($1) => { return $1[\"x\"]; })" + js_getX :: DOMPoint -> IO Double +-- | +getX :: (MonadDOM m) => DOMPoint -> m Double +getX self = liftDOM ((js_getX (self))) --- | -setY :: (MonadIO m) => DOMPoint -> Double -> m () -setY self val = liftIO (js_setY self val) - -foreign import javascript unsafe "(($1) => { return $1[\"y\"]; })" js_getY :: - DOMPoint -> IO Double +foreign import javascript safe "(($1, $2) => { $1[\"y\"] = $2; })" + js_setY :: DOMPoint -> Double -> IO () +-- | +setY :: (MonadDOM m) => DOMPoint -> Double -> m () +setY self val = liftDOM (void ((js_setY (self) (val)))) --- | -getY :: (MonadIO m) => DOMPoint -> m Double -getY self = liftIO (js_getY self) - -foreign import javascript unsafe "(($1, $2) => { $1[\"z\"] = $2; })" js_setZ :: - DOMPoint -> Double -> IO () +foreign import javascript unsafe "(($1) => { return $1[\"y\"]; })" + js_getY :: DOMPoint -> IO Double +-- | +getY :: (MonadDOM m) => DOMPoint -> m Double +getY self = liftDOM ((js_getY (self))) --- | -setZ :: (MonadIO m) => DOMPoint -> Double -> m () -setZ self val = liftIO (js_setZ self val) - -foreign import javascript unsafe "(($1) => { return $1[\"z\"]; })" js_getZ :: - DOMPoint -> IO Double +foreign import javascript safe "(($1, $2) => { $1[\"z\"] = $2; })" + js_setZ :: DOMPoint -> Double -> IO () +-- | +setZ :: (MonadDOM m) => DOMPoint -> Double -> m () +setZ self val = liftDOM (void ((js_setZ (self) (val)))) --- | -getZ :: (MonadIO m) => DOMPoint -> m Double -getZ self = liftIO (js_getZ self) - -foreign import javascript unsafe "(($1, $2) => { $1[\"w\"] = $2; })" js_setW :: - DOMPoint -> Double -> IO () +foreign import javascript unsafe "(($1) => { return $1[\"z\"]; })" + js_getZ :: DOMPoint -> IO Double +-- | +getZ :: (MonadDOM m) => DOMPoint -> m Double +getZ self = liftDOM ((js_getZ (self))) --- | -setW :: (MonadIO m) => DOMPoint -> Double -> m () -setW self val = liftIO (js_setW self val) - -foreign import javascript unsafe "(($1) => { return $1[\"w\"]; })" js_getW :: - DOMPoint -> IO Double +foreign import javascript safe "(($1, $2) => { $1[\"w\"] = $2; })" + js_setW :: DOMPoint -> Double -> IO () +-- | +setW :: (MonadDOM m) => DOMPoint -> Double -> m () +setW self val = liftDOM (void ((js_setW (self) (val)))) --- | -getW :: (MonadIO m) => DOMPoint -> m Double -getW self = liftIO (js_getW self) +foreign import javascript unsafe "(($1) => { return $1[\"w\"]; })" + js_getW :: DOMPoint -> IO Double +-- | +getW :: (MonadDOM m) => DOMPoint -> m Double +getW self = liftDOM ((js_getW (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/DOMPointInit.hs b/src/GHCJS/DOM/JSFFI/Generated/DOMPointInit.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/DOMPointInit.hs @@ -0,0 +1,103 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from geometry-1 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.DOMPointInit + (js_newDOMPointInit, js_setX, js_getX, js_setY, js_getY, js_setZ, js_getZ, js_setW, js_getW, newDOMPointInit, setX, getX, getXUnsafe, getXUnchecked, setY, getY, getYUnsafe, getYUnchecked, setZ, getZ, getZUnsafe, getZUnchecked, setW, getW, getWUnsafe, getWUnchecked, DOMPointInit(..), gTypeDOMPointInit) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(() => { return ({}); })" + js_newDOMPointInit :: IO DOMPointInit +-- | +newDOMPointInit :: (MonadDOM m) => m DOMPointInit +newDOMPointInit = liftDOM ((js_newDOMPointInit)) + +foreign import javascript safe "(($1, $2) => { $1[\"x\"] = $2; })" + js_setX :: DOMPointInit -> Double -> IO () +-- | +setX :: (MonadDOM m) => DOMPointInit -> Double -> m () +setX self val = liftDOM (void ((js_setX (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"x\"]; })" + js_getX :: DOMPointInit -> IO JSVal +-- | +getX :: (MonadDOM m) => DOMPointInit -> m (Maybe Double) +getX self = liftDOM (((js_getX (self)) >>= fromJSValUnchecked)) + +-- | +getXUnsafe :: (MonadDOM m, HasCallStack) => DOMPointInit -> m Double +getXUnsafe self = liftDOM ((((js_getX (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getXUnchecked :: (MonadDOM m) => DOMPointInit -> m Double +getXUnchecked self = liftDOM ((pFromJSVal <$> (js_getX (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"y\"] = $2; })" + js_setY :: DOMPointInit -> Double -> IO () +-- | +setY :: (MonadDOM m) => DOMPointInit -> Double -> m () +setY self val = liftDOM (void ((js_setY (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"y\"]; })" + js_getY :: DOMPointInit -> IO JSVal +-- | +getY :: (MonadDOM m) => DOMPointInit -> m (Maybe Double) +getY self = liftDOM (((js_getY (self)) >>= fromJSValUnchecked)) + +-- | +getYUnsafe :: (MonadDOM m, HasCallStack) => DOMPointInit -> m Double +getYUnsafe self = liftDOM ((((js_getY (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getYUnchecked :: (MonadDOM m) => DOMPointInit -> m Double +getYUnchecked self = liftDOM ((pFromJSVal <$> (js_getY (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"z\"] = $2; })" + js_setZ :: DOMPointInit -> Double -> IO () +-- | +setZ :: (MonadDOM m) => DOMPointInit -> Double -> m () +setZ self val = liftDOM (void ((js_setZ (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"z\"]; })" + js_getZ :: DOMPointInit -> IO JSVal +-- | +getZ :: (MonadDOM m) => DOMPointInit -> m (Maybe Double) +getZ self = liftDOM (((js_getZ (self)) >>= fromJSValUnchecked)) + +-- | +getZUnsafe :: (MonadDOM m, HasCallStack) => DOMPointInit -> m Double +getZUnsafe self = liftDOM ((((js_getZ (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getZUnchecked :: (MonadDOM m) => DOMPointInit -> m Double +getZUnchecked self = liftDOM ((pFromJSVal <$> (js_getZ (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"w\"] = $2; })" + js_setW :: DOMPointInit -> Double -> IO () +-- | +setW :: (MonadDOM m) => DOMPointInit -> Double -> m () +setW self val = liftDOM (void ((js_setW (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"w\"]; })" + js_getW :: DOMPointInit -> IO JSVal +-- | +getW :: (MonadDOM m) => DOMPointInit -> m (Maybe Double) +getW self = liftDOM (((js_getW (self)) >>= fromJSValUnchecked)) + +-- | +getWUnsafe :: (MonadDOM m, HasCallStack) => DOMPointInit -> m Double +getWUnsafe self = liftDOM ((((js_getW (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getWUnchecked :: (MonadDOM m) => DOMPointInit -> m Double +getWUnchecked self = liftDOM ((pFromJSVal <$> (js_getW (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/DOMPointReadOnly.hs b/src/GHCJS/DOM/JSFFI/Generated/DOMPointReadOnly.hs --- a/src/GHCJS/DOM/JSFFI/Generated/DOMPointReadOnly.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/DOMPointReadOnly.hs @@ -1,99 +1,83 @@ {-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE JavaScriptFFI #-} --- For HasCallStack compatibility +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from geometry-1 (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.DOMPointReadOnly - (js_newDOMPointReadOnly, newDOMPointReadOnly, - js_newDOMPointReadOnly', newDOMPointReadOnly', js_fromPoint, - fromPoint, fromPoint_, js_getX, getX, js_getY, getY, js_getZ, getZ, - js_getW, getW, DOMPointReadOnly(..), gTypeDOMPointReadOnly, - IsDOMPointReadOnly, toDOMPointReadOnly) + (js_newDOMPointReadOnly, js_newDOMPointReadOnly', js_matrixTransform, js_toJSON, js_fromPoint, js_getX, js_getY, js_getZ, js_getW, newDOMPointReadOnly, newDOMPointReadOnly', matrixTransform, matrixTransform_, toJSON, toJSON_, fromPoint, fromPoint_, getX, getY, getZ, getW, DOMPointReadOnly(..), gTypeDOMPointReadOnly, IsDOMPointReadOnly, toDOMPointReadOnly) where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull, jsUndefined) -import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import Data.Maybe (fromJust) -import Data.Traversable (mapM) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types -import Control.Applicative ((<$>)) +import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums - -foreign import javascript unsafe - "(($1) => { return new window[\"DOMPointReadOnly\"]($1); })" js_newDOMPointReadOnly :: - DOMPointInit -> IO DOMPointReadOnly --- | -newDOMPointReadOnly :: - (MonadIO m) => DOMPointInit -> m DOMPointReadOnly -newDOMPointReadOnly point = liftIO (js_newDOMPointReadOnly point) - -foreign import javascript unsafe - "(($1, $2, $3, $4) => { return new window[\"DOMPointReadOnly\"]($1,\n$2, $3, $4); })" - js_newDOMPointReadOnly' :: - Optional Double -> - Optional Double -> - Optional Double -> Optional Double -> IO DOMPointReadOnly +foreign import javascript safe "(($1) => { return new globalThis[\"DOMPointReadOnly\"]($1); })" + js_newDOMPointReadOnly :: JSVal -> IO DOMPointReadOnly +-- | +newDOMPointReadOnly :: (MonadDOM m) => Maybe Double -> m DOMPointReadOnly +newDOMPointReadOnly x = liftDOM (((P.maybe (P.return jsUndefined) toJSVal x) >>= \a1' -> js_newDOMPointReadOnly a1')) --- | -newDOMPointReadOnly' :: - (MonadIO m) => - Maybe Double -> - Maybe Double -> Maybe Double -> Maybe Double -> m DOMPointReadOnly -newDOMPointReadOnly' x y z w - = liftIO - (js_newDOMPointReadOnly' (maybeToOptional x) (maybeToOptional y) - (maybeToOptional z) - (maybeToOptional w)) - -foreign import javascript unsafe - "(($1) => { return window[\"DOMPointReadOnly\"][\"fromPoint\"]($1); })" js_fromPoint :: - Optional DOMPointInit -> IO DOMPointReadOnly +foreign import javascript safe "(($1, $2, $3, $4) => { return new globalThis[\"DOMPointReadOnly\"]($1, $2, $3, $4); })" + js_newDOMPointReadOnly' :: JSVal -> JSVal -> JSVal -> JSVal -> IO DOMPointReadOnly +-- | +newDOMPointReadOnly' :: (MonadDOM m) => Maybe Double -> Maybe Double -> Maybe Double -> Maybe Double -> m DOMPointReadOnly +newDOMPointReadOnly' x y z w = liftDOM (((P.maybe (P.return jsUndefined) toJSVal x) >>= \a1' -> (P.maybe (P.return jsUndefined) toJSVal y) >>= \a2' -> (P.maybe (P.return jsUndefined) toJSVal z) >>= \a3' -> (P.maybe (P.return jsUndefined) toJSVal w) >>= \a4' -> js_newDOMPointReadOnly' a1' a2' a3' a4')) --- | -fromPoint :: - (MonadIO m) => Maybe DOMPointInit -> m DOMPointReadOnly -fromPoint other = liftIO (js_fromPoint (maybeToOptional other)) +foreign import javascript safe "(($1, $2) => { return $1[\"matrixTransform\"]($2); })" + js_matrixTransform :: DOMPointReadOnly -> JSVal -> IO DOMPoint +-- | +matrixTransform :: (MonadDOM m, IsDOMPointReadOnly self) => self -> Maybe DOMMatrixInit -> m DOMPoint +matrixTransform self matrix = liftDOM (((P.maybe (P.return jsUndefined) toJSVal matrix) >>= \a2' -> js_matrixTransform ((Types.toDOMPointReadOnly self)) a2')) --- | -fromPoint_ :: (MonadIO m) => Maybe DOMPointInit -> m () -fromPoint_ other - = liftIO (void (js_fromPoint (maybeToOptional other))) - -foreign import javascript unsafe "(($1) => { return $1[\"x\"]; })" js_getX :: - DOMPointReadOnly -> IO Double +-- | +matrixTransform_ :: (MonadDOM m, IsDOMPointReadOnly self) => self -> Maybe DOMMatrixInit -> m () +matrixTransform_ self matrix = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal matrix) >>= \a2' -> js_matrixTransform ((Types.toDOMPointReadOnly self)) a2'))) --- | -getX :: (MonadIO m, IsDOMPointReadOnly self) => self -> m Double -getX self = liftIO (js_getX (toDOMPointReadOnly self)) - -foreign import javascript unsafe "(($1) => { return $1[\"y\"]; })" js_getY :: - DOMPointReadOnly -> IO Double +foreign import javascript safe "(($1) => { return $1[\"toJSON\"](); })" + js_toJSON :: DOMPointReadOnly -> IO GObject +-- | +toJSON :: (MonadDOM m, IsDOMPointReadOnly self) => self -> m GObject +toJSON self = liftDOM ((js_toJSON ((Types.toDOMPointReadOnly self)))) --- | -getY :: (MonadIO m, IsDOMPointReadOnly self) => self -> m Double -getY self = liftIO (js_getY (toDOMPointReadOnly self)) - -foreign import javascript unsafe "(($1) => { return $1[\"z\"]; })" js_getZ :: - DOMPointReadOnly -> IO Double +-- | +toJSON_ :: (MonadDOM m, IsDOMPointReadOnly self) => self -> m () +toJSON_ self = liftDOM (void ((js_toJSON ((Types.toDOMPointReadOnly self))))) --- | -getZ :: (MonadIO m, IsDOMPointReadOnly self) => self -> m Double -getZ self = liftIO (js_getZ (toDOMPointReadOnly self)) - -foreign import javascript unsafe "(($1) => { return $1[\"w\"]; })" js_getW :: - DOMPointReadOnly -> IO Double +foreign import javascript safe "(($1) => { return globalThis[\"DOMPointReadOnly\"][\"fromPoint\"]($1); })" + js_fromPoint :: JSVal -> IO DOMPointReadOnly +-- | +fromPoint :: (MonadDOM m) => Maybe DOMPointInit -> m DOMPointReadOnly +fromPoint other = liftDOM (((P.maybe (P.return jsUndefined) toJSVal other) >>= \a1' -> js_fromPoint a1')) --- | -getW :: (MonadIO m, IsDOMPointReadOnly self) => self -> m Double -getW self = liftIO (js_getW (toDOMPointReadOnly self)) +-- | +fromPoint_ :: (MonadDOM m) => Maybe DOMPointInit -> m () +fromPoint_ other = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal other) >>= \a1' -> js_fromPoint a1'))) + +foreign import javascript unsafe "(($1) => { return $1[\"x\"]; })" + js_getX :: DOMPointReadOnly -> IO Double +-- | +getX :: (MonadDOM m, IsDOMPointReadOnly self) => self -> m Double +getX self = liftDOM ((js_getX ((Types.toDOMPointReadOnly self)))) + +foreign import javascript unsafe "(($1) => { return $1[\"y\"]; })" + js_getY :: DOMPointReadOnly -> IO Double +-- | +getY :: (MonadDOM m, IsDOMPointReadOnly self) => self -> m Double +getY self = liftDOM ((js_getY ((Types.toDOMPointReadOnly self)))) + +foreign import javascript unsafe "(($1) => { return $1[\"z\"]; })" + js_getZ :: DOMPointReadOnly -> IO Double +-- | +getZ :: (MonadDOM m, IsDOMPointReadOnly self) => self -> m Double +getZ self = liftDOM ((js_getZ ((Types.toDOMPointReadOnly self)))) + +foreign import javascript unsafe "(($1) => { return $1[\"w\"]; })" + js_getW :: DOMPointReadOnly -> IO Double +-- | +getW :: (MonadDOM m, IsDOMPointReadOnly self) => self -> m Double +getW self = liftDOM ((js_getW ((Types.toDOMPointReadOnly self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/DOMQuad.hs b/src/GHCJS/DOM/JSFFI/Generated/DOMQuad.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/DOMQuad.hs @@ -0,0 +1,87 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from geometry-1 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.DOMQuad + (js_newDOMQuad, js_getBounds, js_toJSON, js_fromQuad, js_fromRect, js_getP1, js_getP2, js_getP3, js_getP4, newDOMQuad, getBounds, getBounds_, toJSON, toJSON_, fromQuad, fromQuad_, fromRect, fromRect_, getP1, getP2, getP3, getP4, DOMQuad(..), gTypeDOMQuad) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1, $2, $3, $4) => { return new globalThis[\"DOMQuad\"]($1, $2, $3, $4); })" + js_newDOMQuad :: JSVal -> JSVal -> JSVal -> JSVal -> IO DOMQuad +-- | +newDOMQuad :: (MonadDOM m) => Maybe DOMPointInit -> Maybe DOMPointInit -> Maybe DOMPointInit -> Maybe DOMPointInit -> m DOMQuad +newDOMQuad p1 p2 p3 p4 = liftDOM (((P.maybe (P.return jsUndefined) toJSVal p1) >>= \a1' -> (P.maybe (P.return jsUndefined) toJSVal p2) >>= \a2' -> (P.maybe (P.return jsUndefined) toJSVal p3) >>= \a3' -> (P.maybe (P.return jsUndefined) toJSVal p4) >>= \a4' -> js_newDOMQuad a1' a2' a3' a4')) + +foreign import javascript safe "(($1) => { return $1[\"getBounds\"](); })" + js_getBounds :: DOMQuad -> IO DOMRect +-- | +getBounds :: (MonadDOM m) => DOMQuad -> m DOMRect +getBounds self = liftDOM ((js_getBounds (self))) + +-- | +getBounds_ :: (MonadDOM m) => DOMQuad -> m () +getBounds_ self = liftDOM (void ((js_getBounds (self)))) + +foreign import javascript safe "(($1) => { return $1[\"toJSON\"](); })" + js_toJSON :: DOMQuad -> IO GObject +-- | +toJSON :: (MonadDOM m) => DOMQuad -> m GObject +toJSON self = liftDOM ((js_toJSON (self))) + +-- | +toJSON_ :: (MonadDOM m) => DOMQuad -> m () +toJSON_ self = liftDOM (void ((js_toJSON (self)))) + +foreign import javascript safe "(($1) => { return globalThis[\"DOMQuad\"][\"fromQuad\"]($1); })" + js_fromQuad :: JSVal -> IO DOMQuad +-- | +fromQuad :: (MonadDOM m) => Maybe DOMQuadInit -> m DOMQuad +fromQuad other = liftDOM (((P.maybe (P.return jsUndefined) toJSVal other) >>= \a1' -> js_fromQuad a1')) + +-- | +fromQuad_ :: (MonadDOM m) => Maybe DOMQuadInit -> m () +fromQuad_ other = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal other) >>= \a1' -> js_fromQuad a1'))) + +foreign import javascript safe "(($1) => { return globalThis[\"DOMQuad\"][\"fromRect\"]($1); })" + js_fromRect :: JSVal -> IO DOMQuad +-- | +fromRect :: (MonadDOM m) => Maybe DOMRectInit -> m DOMQuad +fromRect other = liftDOM (((P.maybe (P.return jsUndefined) toJSVal other) >>= \a1' -> js_fromRect a1')) + +-- | +fromRect_ :: (MonadDOM m) => Maybe DOMRectInit -> m () +fromRect_ other = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal other) >>= \a1' -> js_fromRect a1'))) + +foreign import javascript unsafe "(($1) => { return $1[\"p1\"]; })" + js_getP1 :: DOMQuad -> IO DOMPoint +-- | +getP1 :: (MonadDOM m) => DOMQuad -> m DOMPoint +getP1 self = liftDOM ((js_getP1 (self))) + +foreign import javascript unsafe "(($1) => { return $1[\"p2\"]; })" + js_getP2 :: DOMQuad -> IO DOMPoint +-- | +getP2 :: (MonadDOM m) => DOMQuad -> m DOMPoint +getP2 self = liftDOM ((js_getP2 (self))) + +foreign import javascript unsafe "(($1) => { return $1[\"p3\"]; })" + js_getP3 :: DOMQuad -> IO DOMPoint +-- | +getP3 :: (MonadDOM m) => DOMQuad -> m DOMPoint +getP3 self = liftDOM ((js_getP3 (self))) + +foreign import javascript unsafe "(($1) => { return $1[\"p4\"]; })" + js_getP4 :: DOMQuad -> IO DOMPoint +-- | +getP4 :: (MonadDOM m) => DOMQuad -> m DOMPoint +getP4 self = liftDOM ((js_getP4 (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/DOMQuadInit.hs b/src/GHCJS/DOM/JSFFI/Generated/DOMQuadInit.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/DOMQuadInit.hs @@ -0,0 +1,103 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from geometry-1 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.DOMQuadInit + (js_newDOMQuadInit, js_setP1, js_getP1, js_setP2, js_getP2, js_setP3, js_getP3, js_setP4, js_getP4, newDOMQuadInit, setP1, getP1, getP1Unsafe, getP1Unchecked, setP2, getP2, getP2Unsafe, getP2Unchecked, setP3, getP3, getP3Unsafe, getP3Unchecked, setP4, getP4, getP4Unsafe, getP4Unchecked, DOMQuadInit(..), gTypeDOMQuadInit) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(() => { return ({}); })" + js_newDOMQuadInit :: IO DOMQuadInit +-- | +newDOMQuadInit :: (MonadDOM m) => m DOMQuadInit +newDOMQuadInit = liftDOM ((js_newDOMQuadInit)) + +foreign import javascript safe "(($1, $2) => { $1[\"p1\"] = $2; })" + js_setP1 :: DOMQuadInit -> DOMPointInit -> IO () +-- | +setP1 :: (MonadDOM m) => DOMQuadInit -> DOMPointInit -> m () +setP1 self val = liftDOM (void ((js_setP1 (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"p1\"]; })" + js_getP1 :: DOMQuadInit -> IO JSVal +-- | +getP1 :: (MonadDOM m) => DOMQuadInit -> m (Maybe DOMPointInit) +getP1 self = liftDOM (((js_getP1 (self)) >>= fromJSValUnchecked)) + +-- | +getP1Unsafe :: (MonadDOM m, HasCallStack) => DOMQuadInit -> m DOMPointInit +getP1Unsafe self = liftDOM ((((js_getP1 (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getP1Unchecked :: (MonadDOM m) => DOMQuadInit -> m DOMPointInit +getP1Unchecked self = liftDOM ((pFromJSVal <$> (js_getP1 (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"p2\"] = $2; })" + js_setP2 :: DOMQuadInit -> DOMPointInit -> IO () +-- | +setP2 :: (MonadDOM m) => DOMQuadInit -> DOMPointInit -> m () +setP2 self val = liftDOM (void ((js_setP2 (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"p2\"]; })" + js_getP2 :: DOMQuadInit -> IO JSVal +-- | +getP2 :: (MonadDOM m) => DOMQuadInit -> m (Maybe DOMPointInit) +getP2 self = liftDOM (((js_getP2 (self)) >>= fromJSValUnchecked)) + +-- | +getP2Unsafe :: (MonadDOM m, HasCallStack) => DOMQuadInit -> m DOMPointInit +getP2Unsafe self = liftDOM ((((js_getP2 (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getP2Unchecked :: (MonadDOM m) => DOMQuadInit -> m DOMPointInit +getP2Unchecked self = liftDOM ((pFromJSVal <$> (js_getP2 (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"p3\"] = $2; })" + js_setP3 :: DOMQuadInit -> DOMPointInit -> IO () +-- | +setP3 :: (MonadDOM m) => DOMQuadInit -> DOMPointInit -> m () +setP3 self val = liftDOM (void ((js_setP3 (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"p3\"]; })" + js_getP3 :: DOMQuadInit -> IO JSVal +-- | +getP3 :: (MonadDOM m) => DOMQuadInit -> m (Maybe DOMPointInit) +getP3 self = liftDOM (((js_getP3 (self)) >>= fromJSValUnchecked)) + +-- | +getP3Unsafe :: (MonadDOM m, HasCallStack) => DOMQuadInit -> m DOMPointInit +getP3Unsafe self = liftDOM ((((js_getP3 (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getP3Unchecked :: (MonadDOM m) => DOMQuadInit -> m DOMPointInit +getP3Unchecked self = liftDOM ((pFromJSVal <$> (js_getP3 (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"p4\"] = $2; })" + js_setP4 :: DOMQuadInit -> DOMPointInit -> IO () +-- | +setP4 :: (MonadDOM m) => DOMQuadInit -> DOMPointInit -> m () +setP4 self val = liftDOM (void ((js_setP4 (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"p4\"]; })" + js_getP4 :: DOMQuadInit -> IO JSVal +-- | +getP4 :: (MonadDOM m) => DOMQuadInit -> m (Maybe DOMPointInit) +getP4 self = liftDOM (((js_getP4 (self)) >>= fromJSValUnchecked)) + +-- | +getP4Unsafe :: (MonadDOM m, HasCallStack) => DOMQuadInit -> m DOMPointInit +getP4Unsafe self = liftDOM ((((js_getP4 (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getP4Unchecked :: (MonadDOM m) => DOMQuadInit -> m DOMPointInit +getP4Unchecked self = liftDOM ((pFromJSVal <$> (js_getP4 (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/DOMRect.hs b/src/GHCJS/DOM/JSFFI/Generated/DOMRect.hs --- a/src/GHCJS/DOM/JSFFI/Generated/DOMRect.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/DOMRect.hs @@ -1,114 +1,81 @@ {-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE JavaScriptFFI #-} --- For HasCallStack compatibility +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from geometry-1 (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.DOMRect - (js_newDOMRect, newDOMRect, js_fromRect, fromRect, fromRect_, - js_setX, setX, js_getX, getX, js_setY, setY, js_getY, getY, - js_setWidth, setWidth, js_getWidth, getWidth, js_setHeight, - setHeight, js_getHeight, getHeight, DOMRect(..), gTypeDOMRect) + (js_newDOMRect, js_fromRect, js_setX, js_getX, js_setY, js_getY, js_setWidth, js_getWidth, js_setHeight, js_getHeight, newDOMRect, fromRect, fromRect_, setX, getX, setY, getY, setWidth, getWidth, setHeight, getHeight, DOMRect(..), gTypeDOMRect) where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull, jsUndefined) -import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import Data.Maybe (fromJust) -import Data.Traversable (mapM) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types -import Control.Applicative ((<$>)) +import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums - -foreign import javascript unsafe - "(($1, $2, $3, $4) => { return new window[\"DOMRect\"]($1, $2,\n$3, $4); })" js_newDOMRect :: - Optional Double -> - Optional Double -> Optional Double -> Optional Double -> IO DOMRect --- | -newDOMRect :: - (MonadIO m) => - Maybe Double -> - Maybe Double -> Maybe Double -> Maybe Double -> m DOMRect -newDOMRect x y width height - = liftIO - (js_newDOMRect (maybeToOptional x) (maybeToOptional y) - (maybeToOptional width) - (maybeToOptional height)) - -foreign import javascript unsafe - "(($1) => { return window[\"DOMRect\"][\"fromRect\"]($1); })" js_fromRect :: - Optional DOMRectInit -> IO DOMRect +foreign import javascript safe "(($1, $2, $3, $4) => { return new globalThis[\"DOMRect\"]($1, $2, $3, $4); })" + js_newDOMRect :: JSVal -> JSVal -> JSVal -> JSVal -> IO DOMRect +-- | +newDOMRect :: (MonadDOM m) => Maybe Double -> Maybe Double -> Maybe Double -> Maybe Double -> m DOMRect +newDOMRect x y width height = liftDOM (((P.maybe (P.return jsUndefined) toJSVal x) >>= \a1' -> (P.maybe (P.return jsUndefined) toJSVal y) >>= \a2' -> (P.maybe (P.return jsUndefined) toJSVal width) >>= \a3' -> (P.maybe (P.return jsUndefined) toJSVal height) >>= \a4' -> js_newDOMRect a1' a2' a3' a4')) --- | -fromRect :: (MonadIO m) => Maybe DOMRectInit -> m DOMRect -fromRect other = liftIO (js_fromRect (maybeToOptional other)) +foreign import javascript safe "(($1) => { return globalThis[\"DOMRect\"][\"fromRect\"]($1); })" + js_fromRect :: JSVal -> IO DOMRect +-- | +fromRect :: (MonadDOM m) => Maybe DOMRectInit -> m DOMRect +fromRect other = liftDOM (((P.maybe (P.return jsUndefined) toJSVal other) >>= \a1' -> js_fromRect a1')) --- | -fromRect_ :: (MonadIO m) => Maybe DOMRectInit -> m () -fromRect_ other - = liftIO (void (js_fromRect (maybeToOptional other))) - -foreign import javascript unsafe "(($1, $2) => { $1[\"x\"] = $2; })" js_setX :: - DOMRect -> Double -> IO () +-- | +fromRect_ :: (MonadDOM m) => Maybe DOMRectInit -> m () +fromRect_ other = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal other) >>= \a1' -> js_fromRect a1'))) --- | -setX :: (MonadIO m) => DOMRect -> Double -> m () -setX self val = liftIO (js_setX self val) - -foreign import javascript unsafe "(($1) => { return $1[\"x\"]; })" js_getX :: - DOMRect -> IO Double +foreign import javascript safe "(($1, $2) => { $1[\"x\"] = $2; })" + js_setX :: DOMRect -> Double -> IO () +-- | +setX :: (MonadDOM m) => DOMRect -> Double -> m () +setX self val = liftDOM (void ((js_setX (self) (val)))) --- | -getX :: (MonadIO m) => DOMRect -> m Double -getX self = liftIO (js_getX self) - -foreign import javascript unsafe "(($1, $2) => { $1[\"y\"] = $2; })" js_setY :: - DOMRect -> Double -> IO () +foreign import javascript unsafe "(($1) => { return $1[\"x\"]; })" + js_getX :: DOMRect -> IO Double +-- | +getX :: (MonadDOM m) => DOMRect -> m Double +getX self = liftDOM ((js_getX (self))) --- | -setY :: (MonadIO m) => DOMRect -> Double -> m () -setY self val = liftIO (js_setY self val) - -foreign import javascript unsafe "(($1) => { return $1[\"y\"]; })" js_getY :: - DOMRect -> IO Double +foreign import javascript safe "(($1, $2) => { $1[\"y\"] = $2; })" + js_setY :: DOMRect -> Double -> IO () +-- | +setY :: (MonadDOM m) => DOMRect -> Double -> m () +setY self val = liftDOM (void ((js_setY (self) (val)))) --- | -getY :: (MonadIO m) => DOMRect -> m Double -getY self = liftIO (js_getY self) - -foreign import javascript unsafe "(($1, $2) => { $1[\"width\"] = $2; })" js_setWidth - :: DOMRect -> Double -> IO () +foreign import javascript unsafe "(($1) => { return $1[\"y\"]; })" + js_getY :: DOMRect -> IO Double +-- | +getY :: (MonadDOM m) => DOMRect -> m Double +getY self = liftDOM ((js_getY (self))) --- | -setWidth :: (MonadIO m) => DOMRect -> Double -> m () -setWidth self val = liftIO (js_setWidth self val) - -foreign import javascript unsafe "(($1) => { return $1[\"width\"]; })" js_getWidth :: - DOMRect -> IO Double +foreign import javascript safe "(($1, $2) => { $1[\"width\"] = $2; })" + js_setWidth :: DOMRect -> Double -> IO () +-- | +setWidth :: (MonadDOM m) => DOMRect -> Double -> m () +setWidth self val = liftDOM (void ((js_setWidth (self) (val)))) --- | -getWidth :: (MonadIO m) => DOMRect -> m Double -getWidth self = liftIO (js_getWidth self) - -foreign import javascript unsafe "(($1, $2) => { $1[\"height\"] = $2; })" - js_setHeight :: DOMRect -> Double -> IO () +foreign import javascript unsafe "(($1) => { return $1[\"width\"]; })" + js_getWidth :: DOMRect -> IO Double +-- | +getWidth :: (MonadDOM m) => DOMRect -> m Double +getWidth self = liftDOM ((js_getWidth (self))) --- | -setHeight :: (MonadIO m) => DOMRect -> Double -> m () -setHeight self val = liftIO (js_setHeight self val) - -foreign import javascript unsafe "(($1) => { return $1[\"height\"]; })" js_getHeight :: - DOMRect -> IO Double +foreign import javascript safe "(($1, $2) => { $1[\"height\"] = $2; })" + js_setHeight :: DOMRect -> Double -> IO () +-- | +setHeight :: (MonadDOM m) => DOMRect -> Double -> m () +setHeight self val = liftDOM (void ((js_setHeight (self) (val)))) --- | -getHeight :: (MonadIO m) => DOMRect -> m Double -getHeight self = liftIO (js_getHeight self) +foreign import javascript unsafe "(($1) => { return $1[\"height\"]; })" + js_getHeight :: DOMRect -> IO Double +-- | +getHeight :: (MonadDOM m) => DOMRect -> m Double +getHeight self = liftDOM ((js_getHeight (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/DOMRectInit.hs b/src/GHCJS/DOM/JSFFI/Generated/DOMRectInit.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/DOMRectInit.hs @@ -0,0 +1,103 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from geometry-1 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.DOMRectInit + (js_newDOMRectInit, js_setX, js_getX, js_setY, js_getY, js_setWidth, js_getWidth, js_setHeight, js_getHeight, newDOMRectInit, setX, getX, getXUnsafe, getXUnchecked, setY, getY, getYUnsafe, getYUnchecked, setWidth, getWidth, getWidthUnsafe, getWidthUnchecked, setHeight, getHeight, getHeightUnsafe, getHeightUnchecked, DOMRectInit(..), gTypeDOMRectInit) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(() => { return ({}); })" + js_newDOMRectInit :: IO DOMRectInit +-- | +newDOMRectInit :: (MonadDOM m) => m DOMRectInit +newDOMRectInit = liftDOM ((js_newDOMRectInit)) + +foreign import javascript safe "(($1, $2) => { $1[\"x\"] = $2; })" + js_setX :: DOMRectInit -> Double -> IO () +-- | +setX :: (MonadDOM m) => DOMRectInit -> Double -> m () +setX self val = liftDOM (void ((js_setX (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"x\"]; })" + js_getX :: DOMRectInit -> IO JSVal +-- | +getX :: (MonadDOM m) => DOMRectInit -> m (Maybe Double) +getX self = liftDOM (((js_getX (self)) >>= fromJSValUnchecked)) + +-- | +getXUnsafe :: (MonadDOM m, HasCallStack) => DOMRectInit -> m Double +getXUnsafe self = liftDOM ((((js_getX (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getXUnchecked :: (MonadDOM m) => DOMRectInit -> m Double +getXUnchecked self = liftDOM ((pFromJSVal <$> (js_getX (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"y\"] = $2; })" + js_setY :: DOMRectInit -> Double -> IO () +-- | +setY :: (MonadDOM m) => DOMRectInit -> Double -> m () +setY self val = liftDOM (void ((js_setY (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"y\"]; })" + js_getY :: DOMRectInit -> IO JSVal +-- | +getY :: (MonadDOM m) => DOMRectInit -> m (Maybe Double) +getY self = liftDOM (((js_getY (self)) >>= fromJSValUnchecked)) + +-- | +getYUnsafe :: (MonadDOM m, HasCallStack) => DOMRectInit -> m Double +getYUnsafe self = liftDOM ((((js_getY (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getYUnchecked :: (MonadDOM m) => DOMRectInit -> m Double +getYUnchecked self = liftDOM ((pFromJSVal <$> (js_getY (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"width\"] = $2; })" + js_setWidth :: DOMRectInit -> Double -> IO () +-- | +setWidth :: (MonadDOM m) => DOMRectInit -> Double -> m () +setWidth self val = liftDOM (void ((js_setWidth (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"width\"]; })" + js_getWidth :: DOMRectInit -> IO JSVal +-- | +getWidth :: (MonadDOM m) => DOMRectInit -> m (Maybe Double) +getWidth self = liftDOM (((js_getWidth (self)) >>= fromJSValUnchecked)) + +-- | +getWidthUnsafe :: (MonadDOM m, HasCallStack) => DOMRectInit -> m Double +getWidthUnsafe self = liftDOM ((((js_getWidth (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getWidthUnchecked :: (MonadDOM m) => DOMRectInit -> m Double +getWidthUnchecked self = liftDOM ((pFromJSVal <$> (js_getWidth (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"height\"] = $2; })" + js_setHeight :: DOMRectInit -> Double -> IO () +-- | +setHeight :: (MonadDOM m) => DOMRectInit -> Double -> m () +setHeight self val = liftDOM (void ((js_setHeight (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"height\"]; })" + js_getHeight :: DOMRectInit -> IO JSVal +-- | +getHeight :: (MonadDOM m) => DOMRectInit -> m (Maybe Double) +getHeight self = liftDOM (((js_getHeight (self)) >>= fromJSValUnchecked)) + +-- | +getHeightUnsafe :: (MonadDOM m, HasCallStack) => DOMRectInit -> m Double +getHeightUnsafe self = liftDOM ((((js_getHeight (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getHeightUnchecked :: (MonadDOM m) => DOMRectInit -> m Double +getHeightUnchecked self = liftDOM ((pFromJSVal <$> (js_getHeight (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/DOMRectList.hs b/src/GHCJS/DOM/JSFFI/Generated/DOMRectList.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/DOMRectList.hs @@ -0,0 +1,41 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from geometry-1 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.DOMRectList + (js_item, js_getLength, item, item_, itemUnsafe, itemUnchecked, getLength, DOMRectList(..), gTypeDOMRectList) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1, $2) => { return $1[\"item\"]($2); })" + js_item :: DOMRectList -> Word -> IO JSVal +-- | +item :: (MonadDOM m) => DOMRectList -> Word -> m (Maybe DOMRect) +item self index = liftDOM (((js_item (self) (index)) >>= fromJSValUnchecked)) + +-- | +item_ :: (MonadDOM m) => DOMRectList -> Word -> m () +item_ self index = liftDOM (void ((js_item (self) (index)))) + +-- | +itemUnsafe :: (MonadDOM m, HasCallStack) => DOMRectList -> Word -> m DOMRect +itemUnsafe self index = liftDOM ((((js_item (self) (index)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +itemUnchecked :: (MonadDOM m) => DOMRectList -> Word -> m DOMRect +itemUnchecked self index = liftDOM ((pFromJSVal <$> (js_item (self) (index)))) + +foreign import javascript unsafe "(($1) => { return $1[\"length\"]; })" + js_getLength :: DOMRectList -> IO Word +-- | +getLength :: (MonadDOM m) => DOMRectList -> m Word +getLength self = liftDOM ((js_getLength (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/DOMRectReadOnly.hs b/src/GHCJS/DOM/JSFFI/Generated/DOMRectReadOnly.hs --- a/src/GHCJS/DOM/JSFFI/Generated/DOMRectReadOnly.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/DOMRectReadOnly.hs @@ -1,119 +1,91 @@ {-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE JavaScriptFFI #-} --- For HasCallStack compatibility +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from geometry-1 (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.DOMRectReadOnly - (js_newDOMRectReadOnly, newDOMRectReadOnly, js_fromRect, fromRect, - fromRect_, js_getX, getX, js_getY, getY, js_getWidth, getWidth, - js_getHeight, getHeight, js_getTop, getTop, js_getRight, getRight, - js_getBottom, getBottom, js_getLeft, getLeft, DOMRectReadOnly(..), - gTypeDOMRectReadOnly, IsDOMRectReadOnly, toDOMRectReadOnly) + (js_newDOMRectReadOnly, js_toJSON, js_fromRect, js_getX, js_getY, js_getWidth, js_getHeight, js_getTop, js_getRight, js_getBottom, js_getLeft, newDOMRectReadOnly, toJSON, toJSON_, fromRect, fromRect_, getX, getY, getWidth, getHeight, getTop, getRight, getBottom, getLeft, DOMRectReadOnly(..), gTypeDOMRectReadOnly, IsDOMRectReadOnly, toDOMRectReadOnly) where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull, jsUndefined) -import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import Data.Maybe (fromJust) -import Data.Traversable (mapM) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types -import Control.Applicative ((<$>)) +import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums - -foreign import javascript unsafe - "(($1, $2, $3, $4) => { return new window[\"DOMRectReadOnly\"]($1,\n$2, $3, $4); })" - js_newDOMRectReadOnly :: - Optional Double -> - Optional Double -> - Optional Double -> Optional Double -> IO DOMRectReadOnly --- | -newDOMRectReadOnly :: - (MonadIO m) => - Maybe Double -> - Maybe Double -> Maybe Double -> Maybe Double -> m DOMRectReadOnly -newDOMRectReadOnly x y width height - = liftIO - (js_newDOMRectReadOnly (maybeToOptional x) (maybeToOptional y) - (maybeToOptional width) - (maybeToOptional height)) - -foreign import javascript unsafe - "(($1) => { return window[\"DOMRectReadOnly\"][\"fromRect\"]($1); })" js_fromRect :: - Optional DOMRectInit -> IO DOMRectReadOnly +foreign import javascript safe "(($1, $2, $3, $4) => { return new globalThis[\"DOMRectReadOnly\"]($1, $2, $3, $4); })" + js_newDOMRectReadOnly :: JSVal -> JSVal -> JSVal -> JSVal -> IO DOMRectReadOnly +-- | +newDOMRectReadOnly :: (MonadDOM m) => Maybe Double -> Maybe Double -> Maybe Double -> Maybe Double -> m DOMRectReadOnly +newDOMRectReadOnly x y width height = liftDOM (((P.maybe (P.return jsUndefined) toJSVal x) >>= \a1' -> (P.maybe (P.return jsUndefined) toJSVal y) >>= \a2' -> (P.maybe (P.return jsUndefined) toJSVal width) >>= \a3' -> (P.maybe (P.return jsUndefined) toJSVal height) >>= \a4' -> js_newDOMRectReadOnly a1' a2' a3' a4')) --- | -fromRect :: (MonadIO m) => Maybe DOMRectInit -> m DOMRectReadOnly -fromRect other = liftIO (js_fromRect (maybeToOptional other)) +foreign import javascript safe "(($1) => { return $1[\"toJSON\"](); })" + js_toJSON :: DOMRectReadOnly -> IO GObject +-- | +toJSON :: (MonadDOM m, IsDOMRectReadOnly self) => self -> m GObject +toJSON self = liftDOM ((js_toJSON ((Types.toDOMRectReadOnly self)))) --- | -fromRect_ :: (MonadIO m) => Maybe DOMRectInit -> m () -fromRect_ other - = liftIO (void (js_fromRect (maybeToOptional other))) - -foreign import javascript unsafe "(($1) => { return $1[\"x\"]; })" js_getX :: - DOMRectReadOnly -> IO Double +-- | +toJSON_ :: (MonadDOM m, IsDOMRectReadOnly self) => self -> m () +toJSON_ self = liftDOM (void ((js_toJSON ((Types.toDOMRectReadOnly self))))) --- | -getX :: (MonadIO m, IsDOMRectReadOnly self) => self -> m Double -getX self = liftIO (js_getX (toDOMRectReadOnly self)) - -foreign import javascript unsafe "(($1) => { return $1[\"y\"]; })" js_getY :: - DOMRectReadOnly -> IO Double +foreign import javascript safe "(($1) => { return globalThis[\"DOMRectReadOnly\"][\"fromRect\"]($1); })" + js_fromRect :: JSVal -> IO DOMRectReadOnly +-- | +fromRect :: (MonadDOM m) => Maybe DOMRectInit -> m DOMRectReadOnly +fromRect other = liftDOM (((P.maybe (P.return jsUndefined) toJSVal other) >>= \a1' -> js_fromRect a1')) --- | -getY :: (MonadIO m, IsDOMRectReadOnly self) => self -> m Double -getY self = liftIO (js_getY (toDOMRectReadOnly self)) - -foreign import javascript unsafe "(($1) => { return $1[\"width\"]; })" js_getWidth :: - DOMRectReadOnly -> IO Double +-- | +fromRect_ :: (MonadDOM m) => Maybe DOMRectInit -> m () +fromRect_ other = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal other) >>= \a1' -> js_fromRect a1'))) --- | -getWidth :: (MonadIO m, IsDOMRectReadOnly self) => self -> m Double -getWidth self = liftIO (js_getWidth (toDOMRectReadOnly self)) - -foreign import javascript unsafe "(($1) => { return $1[\"height\"]; })" js_getHeight :: - DOMRectReadOnly -> IO Double +foreign import javascript unsafe "(($1) => { return $1[\"x\"]; })" + js_getX :: DOMRectReadOnly -> IO Double +-- | +getX :: (MonadDOM m, IsDOMRectReadOnly self) => self -> m Double +getX self = liftDOM ((js_getX ((Types.toDOMRectReadOnly self)))) --- | -getHeight :: - (MonadIO m, IsDOMRectReadOnly self) => self -> m Double -getHeight self = liftIO (js_getHeight (toDOMRectReadOnly self)) - -foreign import javascript unsafe "(($1) => { return $1[\"top\"]; })" js_getTop :: - DOMRectReadOnly -> IO Double +foreign import javascript unsafe "(($1) => { return $1[\"y\"]; })" + js_getY :: DOMRectReadOnly -> IO Double +-- | +getY :: (MonadDOM m, IsDOMRectReadOnly self) => self -> m Double +getY self = liftDOM ((js_getY ((Types.toDOMRectReadOnly self)))) --- | -getTop :: (MonadIO m, IsDOMRectReadOnly self) => self -> m Double -getTop self = liftIO (js_getTop (toDOMRectReadOnly self)) - -foreign import javascript unsafe "(($1) => { return $1[\"right\"]; })" js_getRight :: - DOMRectReadOnly -> IO Double +foreign import javascript unsafe "(($1) => { return $1[\"width\"]; })" + js_getWidth :: DOMRectReadOnly -> IO Double +-- | +getWidth :: (MonadDOM m, IsDOMRectReadOnly self) => self -> m Double +getWidth self = liftDOM ((js_getWidth ((Types.toDOMRectReadOnly self)))) --- | -getRight :: (MonadIO m, IsDOMRectReadOnly self) => self -> m Double -getRight self = liftIO (js_getRight (toDOMRectReadOnly self)) - -foreign import javascript unsafe "(($1) => { return $1[\"bottom\"]; })" js_getBottom :: - DOMRectReadOnly -> IO Double +foreign import javascript unsafe "(($1) => { return $1[\"height\"]; })" + js_getHeight :: DOMRectReadOnly -> IO Double +-- | +getHeight :: (MonadDOM m, IsDOMRectReadOnly self) => self -> m Double +getHeight self = liftDOM ((js_getHeight ((Types.toDOMRectReadOnly self)))) --- | -getBottom :: - (MonadIO m, IsDOMRectReadOnly self) => self -> m Double -getBottom self = liftIO (js_getBottom (toDOMRectReadOnly self)) - -foreign import javascript unsafe "(($1) => { return $1[\"left\"]; })" js_getLeft :: - DOMRectReadOnly -> IO Double +foreign import javascript unsafe "(($1) => { return $1[\"top\"]; })" + js_getTop :: DOMRectReadOnly -> IO Double +-- | +getTop :: (MonadDOM m, IsDOMRectReadOnly self) => self -> m Double +getTop self = liftDOM ((js_getTop ((Types.toDOMRectReadOnly self)))) --- | -getLeft :: (MonadIO m, IsDOMRectReadOnly self) => self -> m Double -getLeft self = liftIO (js_getLeft (toDOMRectReadOnly self)) +foreign import javascript unsafe "(($1) => { return $1[\"right\"]; })" + js_getRight :: DOMRectReadOnly -> IO Double +-- | +getRight :: (MonadDOM m, IsDOMRectReadOnly self) => self -> m Double +getRight self = liftDOM ((js_getRight ((Types.toDOMRectReadOnly self)))) + +foreign import javascript unsafe "(($1) => { return $1[\"bottom\"]; })" + js_getBottom :: DOMRectReadOnly -> IO Double +-- | +getBottom :: (MonadDOM m, IsDOMRectReadOnly self) => self -> m Double +getBottom self = liftDOM ((js_getBottom ((Types.toDOMRectReadOnly self)))) + +foreign import javascript unsafe "(($1) => { return $1[\"left\"]; })" + js_getLeft :: DOMRectReadOnly -> IO Double +-- | +getLeft :: (MonadDOM m, IsDOMRectReadOnly self) => self -> m Double +getLeft self = liftDOM ((js_getLeft ((Types.toDOMRectReadOnly self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/DOMStringList.hs b/src/GHCJS/DOM/JSFFI/Generated/DOMStringList.hs --- a/src/GHCJS/DOM/JSFFI/Generated/DOMStringList.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/DOMStringList.hs @@ -1,80 +1,51 @@ {-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE JavaScriptFFI #-} --- For HasCallStack compatibility +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from html (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.DOMStringList - (js_item, item, item_, itemUnsafe, itemUnchecked, js_contains, - contains, contains_, js_getLength, getLength, DOMStringList(..), - gTypeDOMStringList) + (js_contains, js_item, js_getLength, contains, contains_, item, item_, itemUnsafe, itemUnchecked, getLength, DOMStringList(..), gTypeDOMStringList) where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull, jsUndefined) -import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import Data.Maybe (fromJust) -import Data.Traversable (mapM) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types -import Control.Applicative ((<$>)) +import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums - -foreign import javascript unsafe "(($1, $2) => { return $1[$2]; })" js_item :: - DOMStringList -> Word -> IO (Nullable JSString) --- | -item :: - (MonadIO m, FromJSString result) => - DOMStringList -> Word -> m (Maybe result) -item self index - = liftIO (fromMaybeJSString <$> (js_item self index)) +foreign import javascript safe "(($1, $2) => { return $1[\"contains\"]($2); })" + js_contains :: DOMStringList -> JSString -> IO Bool +-- | +contains :: (MonadDOM m, ToJSString string) => DOMStringList -> string -> m Bool +contains self string = liftDOM ((js_contains (self) (toJSString string))) --- | -item_ :: (MonadIO m) => DOMStringList -> Word -> m () -item_ self index = liftIO (void (js_item self index)) +-- | +contains_ :: (MonadDOM m, ToJSString string) => DOMStringList -> string -> m () +contains_ self string = liftDOM (void ((js_contains (self) (toJSString string)))) --- | -itemUnsafe :: - (MonadIO m, HasCallStack, FromJSString result) => - DOMStringList -> Word -> m result -itemUnsafe self index - = liftIO - ((fromMaybeJSString <$> (js_item self index)) >>= - maybe (Prelude.error "Nothing to return") return) +foreign import javascript safe "(($1, $2) => { return $1[\"item\"]($2); })" + js_item :: DOMStringList -> Word -> IO JSVal +-- | +item :: (MonadDOM m, FromJSString result) => DOMStringList -> Word -> m (Maybe result) +item self index = liftDOM (((fromMaybeJSString . Nullable) <$> (js_item (self) (index)))) --- | -itemUnchecked :: - (MonadIO m, FromJSString result) => - DOMStringList -> Word -> m result -itemUnchecked self index - = liftIO (fromJust . fromMaybeJSString <$> (js_item self index)) - -foreign import javascript unsafe "(($1, $2) => { return ($1[\"contains\"]($2) ? 1 : 0); })" - js_contains :: DOMStringList -> JSString -> IO Bool +-- | +item_ :: (MonadDOM m) => DOMStringList -> Word -> m () +item_ self index = liftDOM (void ((js_item (self) (index)))) --- | -contains :: - (MonadIO m, ToJSString string) => DOMStringList -> string -> m Bool -contains self string - = liftIO (js_contains self (toJSString string)) +-- | +itemUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => DOMStringList -> Word -> m result +itemUnsafe self index = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_item (self) (index))) >>= P.maybe (P.error "Nothing to return") P.return)) --- | -contains_ :: - (MonadIO m, ToJSString string) => DOMStringList -> string -> m () -contains_ self string - = liftIO (void (js_contains self (toJSString string))) - -foreign import javascript unsafe "(($1) => { return $1[\"length\"]; })" js_getLength :: - DOMStringList -> IO Word +-- | +itemUnchecked :: (MonadDOM m, FromJSString result) => DOMStringList -> Word -> m result +itemUnchecked self index = liftDOM ((pFromJSVal <$> (js_item (self) (index)))) --- | -getLength :: (MonadIO m) => DOMStringList -> m Word -getLength self = liftIO (js_getLength self) +foreign import javascript unsafe "(($1) => { return $1[\"length\"]; })" + js_getLength :: DOMStringList -> IO Word +-- | +getLength :: (MonadDOM m) => DOMStringList -> m Word +getLength self = liftDOM ((js_getLength (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/DOMStringMap.hs b/src/GHCJS/DOM/JSFFI/Generated/DOMStringMap.hs --- a/src/GHCJS/DOM/JSFFI/Generated/DOMStringMap.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/DOMStringMap.hs @@ -1,40 +1,18 @@ {-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE JavaScriptFFI #-} --- For HasCallStack compatibility +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from html (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.DOMStringMap - (js_get, get, get_, DOMStringMap(..), gTypeDOMStringMap) where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull, jsUndefined) -import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) + (DOMStringMap(..), gTypeDOMStringMap) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import Data.Maybe (fromJust) -import Data.Traversable (mapM) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types -import Control.Applicative ((<$>)) +import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums - -foreign import javascript unsafe "(($1, $2) => { return $1[$2]; })" js_get :: - DOMStringMap -> JSString -> IO JSString --- | -get :: - (MonadIO m, ToJSString name, FromJSString result) => - DOMStringMap -> name -> m result -get self name - = liftIO (fromJSString <$> (js_get self (toJSString name))) - --- | -get_ :: - (MonadIO m, ToJSString name) => DOMStringMap -> name -> m () -get_ self name = liftIO (void (js_get self (toJSString name))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/DOMTokenList.hs b/src/GHCJS/DOM/JSFFI/Generated/DOMTokenList.hs --- a/src/GHCJS/DOM/JSFFI/Generated/DOMTokenList.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/DOMTokenList.hs @@ -1,156 +1,105 @@ {-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE JavaScriptFFI #-} --- For HasCallStack compatibility +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from dom (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.DOMTokenList - (js_item, item, item_, itemUnsafe, itemUnchecked, js_contains, - contains, contains_, js_add, add, js_remove, remove, js_toggle, - toggle, toggle_, js_replace, replace, js_supports, supports, - supports_, js_getLength, getLength, js_setValue, setValue, - js_getValue, getValue, DOMTokenList(..), gTypeDOMTokenList) + (js_add, js_contains, js_item, js_remove, js_replace, js_supports, js_toggle, js_getLength, js_setValue, js_getValue, add, contains, contains_, item, item_, itemUnsafe, itemUnchecked, remove, replace, replace_, supports, supports_, toggle, toggle_, getLength, setValue, getValue, DOMTokenList(..), gTypeDOMTokenList) where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull, jsUndefined) -import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import Data.Maybe (fromJust) -import Data.Traversable (mapM) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types -import Control.Applicative ((<$>)) +import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums - -foreign import javascript unsafe "(($1, $2) => { return $1[$2]; })" js_item :: - DOMTokenList -> Word -> IO (Nullable JSString) --- | -item :: - (MonadIO m, FromJSString result) => - DOMTokenList -> Word -> m (Maybe result) -item self index - = liftIO (fromMaybeJSString <$> (js_item self index)) +foreign import javascript safe "(($1, $2) => { return $1[\"add\"](...$2); })" + js_add :: DOMTokenList -> JSVal -> IO () +-- | +add :: (MonadDOM m, ToJSString tokens) => DOMTokenList -> [tokens] -> m () +add self tokens = liftDOM (void (((toJSVal tokens) >>= \a2' -> js_add (self) a2'))) --- | -item_ :: (MonadIO m) => DOMTokenList -> Word -> m () -item_ self index = liftIO (void (js_item self index)) +foreign import javascript safe "(($1, $2) => { return $1[\"contains\"]($2); })" + js_contains :: DOMTokenList -> JSString -> IO Bool +-- | +contains :: (MonadDOM m, ToJSString token) => DOMTokenList -> token -> m Bool +contains self token = liftDOM ((js_contains (self) (toJSString token))) --- | -itemUnsafe :: - (MonadIO m, HasCallStack, FromJSString result) => - DOMTokenList -> Word -> m result -itemUnsafe self index - = liftIO - ((fromMaybeJSString <$> (js_item self index)) >>= - maybe (Prelude.error "Nothing to return") return) +-- | +contains_ :: (MonadDOM m, ToJSString token) => DOMTokenList -> token -> m () +contains_ self token = liftDOM (void ((js_contains (self) (toJSString token)))) --- | -itemUnchecked :: - (MonadIO m, FromJSString result) => - DOMTokenList -> Word -> m result -itemUnchecked self index - = liftIO (fromJust . fromMaybeJSString <$> (js_item self index)) - -foreign import javascript unsafe "(($1, $2) => { return ($1[\"contains\"]($2) ? 1 : 0); })" - js_contains :: DOMTokenList -> JSString -> IO Bool +foreign import javascript safe "(($1, $2) => { return $1[\"item\"]($2); })" + js_item :: DOMTokenList -> Word -> IO JSVal +-- | +item :: (MonadDOM m, FromJSString result) => DOMTokenList -> Word -> m (Maybe result) +item self index = liftDOM (((fromMaybeJSString . Nullable) <$> (js_item (self) (index)))) --- | -contains :: - (MonadIO m, ToJSString token) => DOMTokenList -> token -> m Bool -contains self token = liftIO (js_contains self (toJSString token)) +-- | +item_ :: (MonadDOM m) => DOMTokenList -> Word -> m () +item_ self index = liftDOM (void ((js_item (self) (index)))) --- | -contains_ :: - (MonadIO m, ToJSString token) => DOMTokenList -> token -> m () -contains_ self token - = liftIO (void (js_contains self (toJSString token))) - -foreign import javascript safe "(($1, $2) => { return $1[\"add\"]($2); })" js_add :: - DOMTokenList -> JSVal -> IO () +-- | +itemUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => DOMTokenList -> Word -> m result +itemUnsafe self index = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_item (self) (index))) >>= P.maybe (P.error "Nothing to return") P.return)) --- | -add :: - (MonadIO m, ToJSString tokens) => DOMTokenList -> [tokens] -> m () -add self tokens - = liftIO (toJSVal tokens >>= \ tokens' -> js_add self tokens') - -foreign import javascript safe "(($1, $2) => { return $1[\"remove\"]($2); })" js_remove :: - DOMTokenList -> JSVal -> IO () +-- | +itemUnchecked :: (MonadDOM m, FromJSString result) => DOMTokenList -> Word -> m result +itemUnchecked self index = liftDOM ((pFromJSVal <$> (js_item (self) (index)))) --- | -remove :: - (MonadIO m, ToJSString tokens) => DOMTokenList -> [tokens] -> m () -remove self tokens - = liftIO (toJSVal tokens >>= \ tokens' -> js_remove self tokens') - -foreign import javascript safe "(($1, $2, $3) => { return ($1[\"toggle\"]($2, $3) ? 1 : 0); })" - js_toggle :: DOMTokenList -> JSString -> Bool -> IO Bool +foreign import javascript safe "(($1, $2) => { return $1[\"remove\"](...$2); })" + js_remove :: DOMTokenList -> JSVal -> IO () +-- | +remove :: (MonadDOM m, ToJSString tokens) => DOMTokenList -> [tokens] -> m () +remove self tokens = liftDOM (void (((toJSVal tokens) >>= \a2' -> js_remove (self) a2'))) --- | -toggle :: - (MonadIO m, ToJSString token) => - DOMTokenList -> token -> Bool -> m Bool -toggle self token force - = liftIO (js_toggle self (toJSString token) force) +foreign import javascript safe "(($1, $2, $3) => { return $1[\"replace\"]($2, $3); })" + js_replace :: DOMTokenList -> JSString -> JSString -> IO Bool +-- | +replace :: (MonadDOM m, ToJSString token, ToJSString newToken) => DOMTokenList -> token -> newToken -> m Bool +replace self token newToken = liftDOM ((js_replace (self) (toJSString token) (toJSString newToken))) --- | -toggle_ :: - (MonadIO m, ToJSString token) => - DOMTokenList -> token -> Bool -> m () -toggle_ self token force - = liftIO (void (js_toggle self (toJSString token) force)) - -foreign import javascript safe "(($1, $2, $3) => { return $1[\"replace\"]($2, $3); })" js_replace - :: DOMTokenList -> JSString -> JSString -> IO () +-- | +replace_ :: (MonadDOM m, ToJSString token, ToJSString newToken) => DOMTokenList -> token -> newToken -> m () +replace_ self token newToken = liftDOM (void ((js_replace (self) (toJSString token) (toJSString newToken)))) --- | -replace :: - (MonadIO m, ToJSString token, ToJSString newToken) => - DOMTokenList -> token -> newToken -> m () -replace self token newToken - = liftIO (js_replace self (toJSString token) (toJSString newToken)) - -foreign import javascript safe "(($1, $2) => { return ($1[\"supports\"]($2) ? 1 : 0); })" +foreign import javascript safe "(($1, $2) => { return $1[\"supports\"]($2); })" js_supports :: DOMTokenList -> JSString -> IO Bool +-- | +supports :: (MonadDOM m, ToJSString token) => DOMTokenList -> token -> m Bool +supports self token = liftDOM ((js_supports (self) (toJSString token))) --- | -supports :: - (MonadIO m, ToJSString token) => DOMTokenList -> token -> m Bool -supports self token = liftIO (js_supports self (toJSString token)) +-- | +supports_ :: (MonadDOM m, ToJSString token) => DOMTokenList -> token -> m () +supports_ self token = liftDOM (void ((js_supports (self) (toJSString token)))) --- | -supports_ :: - (MonadIO m, ToJSString token) => DOMTokenList -> token -> m () -supports_ self token - = liftIO (void (js_supports self (toJSString token))) - -foreign import javascript unsafe "(($1) => { return $1[\"length\"]; })" js_getLength :: - DOMTokenList -> IO Word +foreign import javascript safe "(($1, $2, $3) => { return $1[\"toggle\"]($2, $3); })" + js_toggle :: DOMTokenList -> JSString -> JSVal -> IO Bool +-- | +toggle :: (MonadDOM m, ToJSString token) => DOMTokenList -> token -> Maybe Bool -> m Bool +toggle self token force = liftDOM (((P.maybe (P.return jsUndefined) toJSVal force) >>= \a3' -> js_toggle (self) (toJSString token) a3')) --- | -getLength :: (MonadIO m) => DOMTokenList -> m Word -getLength self = liftIO (js_getLength self) - -foreign import javascript unsafe "(($1, $2) => { $1[\"value\"] = $2; })" js_setValue - :: DOMTokenList -> JSString -> IO () +-- | +toggle_ :: (MonadDOM m, ToJSString token) => DOMTokenList -> token -> Maybe Bool -> m () +toggle_ self token force = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal force) >>= \a3' -> js_toggle (self) (toJSString token) a3'))) --- | -setValue :: - (MonadIO m, ToJSString val) => DOMTokenList -> val -> m () -setValue self val = liftIO (js_setValue self (toJSString val)) - -foreign import javascript unsafe "(($1) => { return $1[\"value\"]; })" js_getValue :: - DOMTokenList -> IO JSString +foreign import javascript unsafe "(($1) => { return $1[\"length\"]; })" + js_getLength :: DOMTokenList -> IO Word +-- | +getLength :: (MonadDOM m) => DOMTokenList -> m Word +getLength self = liftDOM ((js_getLength (self))) --- | -getValue :: - (MonadIO m, FromJSString result) => DOMTokenList -> m result -getValue self = liftIO (fromJSString <$> (js_getValue self)) +foreign import javascript safe "(($1, $2) => { $1[\"value\"] = $2; })" + js_setValue :: DOMTokenList -> JSString -> IO () +-- | +setValue :: (MonadDOM m, ToJSString val) => DOMTokenList -> val -> m () +setValue self val = liftDOM (void ((js_setValue (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"value\"]; })" + js_getValue :: DOMTokenList -> IO JSString +-- | +getValue :: (MonadDOM m, FromJSString result) => DOMTokenList -> m result +getValue self = liftDOM ((fromJSString <$> (js_getValue (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/DataCue.hs b/src/GHCJS/DOM/JSFFI/Generated/DataCue.hs --- a/src/GHCJS/DOM/JSFFI/Generated/DataCue.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/DataCue.hs @@ -1,90 +1,47 @@ {-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE JavaScriptFFI #-} --- For HasCallStack compatibility +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from datacue (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.DataCue - (js_newDataCue, newDataCue, js_newDataCue', newDataCue', - js_setData, setData, js_getData, getData, js_setValue, setValue, - js_getValue, getValue, js_getType, getType, DataCue(..), - gTypeDataCue) + (js_newDataCue, js_newDataCue', js_setValue, js_getValue, js_getType, newDataCue, newDataCue', setValue, getValue, getType, DataCue(..), gTypeDataCue) where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull, jsUndefined) -import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import Data.Maybe (fromJust) -import Data.Traversable (mapM) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types -import Control.Applicative ((<$>)) +import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums - -foreign import javascript unsafe - "(($1, $2, $3) => { return new window[\"WebKitDataCue\"]($1,\n$2, $3); })" js_newDataCue :: - Double -> Double -> ArrayBuffer -> IO DataCue --- | -newDataCue :: - (MonadIO m, IsArrayBuffer data') => - Double -> Double -> data' -> m DataCue -newDataCue startTime endTime data' - = liftIO (js_newDataCue startTime endTime (toArrayBuffer data')) - -foreign import javascript unsafe - "(($1, $2, $3, $4) => { return new window[\"WebKitDataCue\"]($1,\n$2, $3, $4); })" js_newDataCue' :: - Double -> Double -> JSVal -> Optional JSString -> IO DataCue - --- | -newDataCue' :: - (MonadIO m, ToJSVal value, ToJSString type') => - Double -> Double -> value -> Maybe type' -> m DataCue -newDataCue' startTime endTime value type' - = liftIO - (toJSVal value >>= - \ value' -> js_newDataCue' startTime endTime value' - (toOptionalJSString type')) - -foreign import javascript unsafe "(($1, $2) => { $1[\"data\"] = $2; })" js_setData :: - DataCue -> ArrayBuffer -> IO () - --- | -setData :: (MonadIO m, IsArrayBuffer val) => DataCue -> val -> m () -setData self val = liftIO (js_setData self (toArrayBuffer val)) - -foreign import javascript unsafe "(($1) => { return $1[\"data\"]; })" js_getData :: - DataCue -> IO ArrayBuffer +foreign import javascript safe "(($1, $2, $3) => { return new globalThis[\"DataCue\"]($1, $2, $3); })" + js_newDataCue :: Double -> Double -> JSVal -> IO DataCue +-- | +newDataCue :: (MonadDOM m) => Double -> Double -> JSVal -> m DataCue +newDataCue startTime endTime value = liftDOM ((js_newDataCue (startTime) (endTime) (value))) --- | -getData :: (MonadIO m) => DataCue -> m ArrayBuffer -getData self = liftIO (js_getData self) - -foreign import javascript unsafe "(($1, $2) => { $1[\"value\"] = $2; })" js_setValue - :: DataCue -> JSVal -> IO () +foreign import javascript safe "(($1, $2, $3, $4) => { return new globalThis[\"DataCue\"]($1, $2, $3, $4); })" + js_newDataCue' :: Double -> Double -> JSVal -> (Optional JSString) -> IO DataCue +-- | +newDataCue' :: (MonadDOM m, ToJSString type') => Double -> Double -> JSVal -> Maybe type' -> m DataCue +newDataCue' startTime endTime value type' = liftDOM ((js_newDataCue' (startTime) (endTime) (value) (toOptionalJSString type'))) --- | -setValue :: (MonadIO m, ToJSVal val) => DataCue -> val -> m () -setValue self val - = liftIO (toJSVal val >>= \ val' -> js_setValue self val') - -foreign import javascript unsafe "(($1) => { return $1[\"value\"]; })" js_getValue :: - DataCue -> IO JSVal +foreign import javascript safe "(($1, $2) => { $1[\"value\"] = $2; })" + js_setValue :: DataCue -> JSVal -> IO () +-- | +setValue :: (MonadDOM m) => DataCue -> JSVal -> m () +setValue self val = liftDOM (void ((js_setValue (self) (val)))) --- | -getValue :: (MonadIO m) => DataCue -> m JSVal -getValue self = liftIO (js_getValue self) - -foreign import javascript unsafe "(($1) => { return $1[\"type\"]; })" js_getType :: - DataCue -> IO JSString +foreign import javascript unsafe "(($1) => { return $1[\"value\"]; })" + js_getValue :: DataCue -> IO JSVal +-- | +getValue :: (MonadDOM m) => DataCue -> m JSVal +getValue self = liftDOM ((js_getValue (self))) --- | -getType :: (MonadIO m, FromJSString result) => DataCue -> m result -getType self = liftIO (fromJSString <$> (js_getType self)) +foreign import javascript unsafe "(($1) => { return $1[\"type\"]; })" + js_getType :: DataCue -> IO JSString +-- | +getType :: (MonadDOM m, FromJSString result) => DataCue -> m result +getType self = liftDOM ((fromJSString <$> (js_getType (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/DataTransfer.hs b/src/GHCJS/DOM/JSFFI/Generated/DataTransfer.hs --- a/src/GHCJS/DOM/JSFFI/Generated/DataTransfer.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/DataTransfer.hs @@ -1,137 +1,93 @@ {-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE JavaScriptFFI #-} --- For HasCallStack compatibility +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from html (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.DataTransfer - (js_setDragImage, setDragImage, js_getData, getData, getData_, - js_setData, setData, js_clearData, clearData, js_setDropEffect, - setDropEffect, js_getDropEffect, getDropEffect, - js_setEffectAllowed, setEffectAllowed, js_getEffectAllowed, - getEffectAllowed, js_getItems, getItems, js_getTypes, getTypes, - js_getFiles, getFiles, DataTransfer(..), gTypeDataTransfer) + (js_newDataTransfer, js_clearData, js_getData, js_setData, js_setDragImage, js_setDropEffect, js_getDropEffect, js_setEffectAllowed, js_getEffectAllowed, js_getItems, js_getTypes, js_getFiles, newDataTransfer, clearData, getData, getData_, setData, setDragImage, setDropEffect, getDropEffect, setEffectAllowed, getEffectAllowed, getItems, getTypes, getFiles, DataTransfer(..), gTypeDataTransfer) where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull, jsUndefined) -import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import Data.Maybe (fromJust) -import Data.Traversable (mapM) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types -import Control.Applicative ((<$>)) +import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums - -foreign import javascript unsafe "(($1, $2, $3, $4) => { return $1[\"setDragImage\"]($2, $3, $4); })" - js_setDragImage :: - DataTransfer -> Optional Element -> Int -> Int -> IO () --- | -setDragImage :: - (MonadIO m, IsElement image) => - DataTransfer -> Maybe image -> Int -> Int -> m () -setDragImage self image x y - = liftIO - (js_setDragImage self (maybeToOptional (fmap toElement image)) x y) - -foreign import javascript unsafe "(($1, $2) => { return $1[\"getData\"]($2); })" js_getData - :: DataTransfer -> JSString -> IO JSString +foreign import javascript safe "(() => { return new globalThis[\"DataTransfer\"](); })" + js_newDataTransfer :: IO DataTransfer +-- | +newDataTransfer :: (MonadDOM m) => m DataTransfer +newDataTransfer = liftDOM ((js_newDataTransfer)) --- | -getData :: - (MonadIO m, ToJSString format, FromJSString result) => - DataTransfer -> format -> m result -getData self format - = liftIO (fromJSString <$> (js_getData self (toJSString format))) +foreign import javascript safe "(($1, $2) => { return $1[\"clearData\"]($2); })" + js_clearData :: DataTransfer -> (Optional JSString) -> IO () +-- | +clearData :: (MonadDOM m, ToJSString format) => DataTransfer -> Maybe format -> m () +clearData self format = liftDOM (void ((js_clearData (self) (toOptionalJSString format)))) --- | -getData_ :: - (MonadIO m, ToJSString format) => DataTransfer -> format -> m () -getData_ self format - = liftIO (void (js_getData self (toJSString format))) - -foreign import javascript unsafe "(($1, $2, $3) => { return $1[\"setData\"]($2, $3); })" +foreign import javascript safe "(($1, $2) => { return $1[\"getData\"]($2); })" + js_getData :: DataTransfer -> JSString -> IO JSString +-- | +getData :: (MonadDOM m, ToJSString format, FromJSString result) => DataTransfer -> format -> m result +getData self format = liftDOM ((fromJSString <$> (js_getData (self) (toJSString format)))) + +-- | +getData_ :: (MonadDOM m, ToJSString format) => DataTransfer -> format -> m () +getData_ self format = liftDOM (void ((js_getData (self) (toJSString format)))) + +foreign import javascript safe "(($1, $2, $3) => { return $1[\"setData\"]($2, $3); })" js_setData :: DataTransfer -> JSString -> JSString -> IO () +-- | +setData :: (MonadDOM m, ToJSString format, ToJSString data') => DataTransfer -> format -> data' -> m () +setData self format data' = liftDOM (void ((js_setData (self) (toJSString format) (toJSString data')))) --- | -setData :: - (MonadIO m, ToJSString format, ToJSString data') => - DataTransfer -> format -> data' -> m () -setData self format data' - = liftIO (js_setData self (toJSString format) (toJSString data')) - -foreign import javascript unsafe "(($1, $2) => { return $1[\"clearData\"]($2); })" - js_clearData :: DataTransfer -> Optional JSString -> IO () +foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"setDragImage\"]($2, $3, $4); })" + js_setDragImage :: DataTransfer -> Element -> Int -> Int -> IO () +-- | +setDragImage :: (MonadDOM m, IsElement image) => DataTransfer -> image -> Int -> Int -> m () +setDragImage self image x y = liftDOM (void ((js_setDragImage (self) (Types.toElement image) (x) (y)))) --- | -clearData :: - (MonadIO m, ToJSString format) => - DataTransfer -> Maybe format -> m () -clearData self format - = liftIO (js_clearData self (toOptionalJSString format)) - -foreign import javascript unsafe "(($1, $2) => { $1[\"dropEffect\"] = $2; })" +foreign import javascript safe "(($1, $2) => { $1[\"dropEffect\"] = $2; })" js_setDropEffect :: DataTransfer -> JSString -> IO () +-- | +setDropEffect :: (MonadDOM m, ToJSString val) => DataTransfer -> val -> m () +setDropEffect self val = liftDOM (void ((js_setDropEffect (self) (toJSString val)))) --- | -setDropEffect :: - (MonadIO m, ToJSString val) => DataTransfer -> val -> m () -setDropEffect self val - = liftIO (js_setDropEffect self (toJSString val)) - foreign import javascript unsafe "(($1) => { return $1[\"dropEffect\"]; })" js_getDropEffect :: DataTransfer -> IO JSString +-- | +getDropEffect :: (MonadDOM m, FromJSString result) => DataTransfer -> m result +getDropEffect self = liftDOM ((fromJSString <$> (js_getDropEffect (self)))) --- | -getDropEffect :: - (MonadIO m, FromJSString result) => DataTransfer -> m result -getDropEffect self - = liftIO (fromJSString <$> (js_getDropEffect self)) - -foreign import javascript unsafe "(($1, $2) => { $1[\"effectAllowed\"] = $2; })" +foreign import javascript safe "(($1, $2) => { $1[\"effectAllowed\"] = $2; })" js_setEffectAllowed :: DataTransfer -> JSString -> IO () +-- | +setEffectAllowed :: (MonadDOM m, ToJSString val) => DataTransfer -> val -> m () +setEffectAllowed self val = liftDOM (void ((js_setEffectAllowed (self) (toJSString val)))) --- | -setEffectAllowed :: - (MonadIO m, ToJSString val) => DataTransfer -> val -> m () -setEffectAllowed self val - = liftIO (js_setEffectAllowed self (toJSString val)) - foreign import javascript unsafe "(($1) => { return $1[\"effectAllowed\"]; })" js_getEffectAllowed :: DataTransfer -> IO JSString - --- | -getEffectAllowed :: - (MonadIO m, FromJSString result) => DataTransfer -> m result -getEffectAllowed self - = liftIO (fromJSString <$> (js_getEffectAllowed self)) - -foreign import javascript unsafe "(($1) => { return $1[\"items\"]; })" js_getItems :: - DataTransfer -> IO DataTransferItemList +-- | +getEffectAllowed :: (MonadDOM m, FromJSString result) => DataTransfer -> m result +getEffectAllowed self = liftDOM ((fromJSString <$> (js_getEffectAllowed (self)))) --- | -getItems :: (MonadIO m) => DataTransfer -> m DataTransferItemList -getItems self = liftIO (js_getItems self) - -foreign import javascript unsafe "(($1) => { return $1[\"types\"]; })" js_getTypes :: - DataTransfer -> IO JSVal +foreign import javascript unsafe "(($1) => { return $1[\"items\"]; })" + js_getItems :: DataTransfer -> IO DataTransferItemList +-- | +getItems :: (MonadDOM m) => DataTransfer -> m DataTransferItemList +getItems self = liftDOM ((js_getItems (self))) --- | -getTypes :: - (MonadIO m, FromJSString result) => DataTransfer -> m [result] -getTypes self = liftIO ((js_getTypes self) >>= fromJSValUnchecked) - -foreign import javascript unsafe "(($1) => { return $1[\"files\"]; })" js_getFiles :: - DataTransfer -> IO FileList +foreign import javascript unsafe "(($1) => { return $1[\"types\"]; })" + js_getTypes :: DataTransfer -> IO JSVal +-- | +getTypes :: (MonadDOM m, FromJSString result) => DataTransfer -> m [result] +getTypes self = liftDOM (((js_getTypes (self)) >>= fromJSValUnchecked)) --- | -getFiles :: (MonadIO m) => DataTransfer -> m FileList -getFiles self = liftIO (js_getFiles self) +foreign import javascript unsafe "(($1) => { return $1[\"files\"]; })" + js_getFiles :: DataTransfer -> IO FileList +-- | +getFiles :: (MonadDOM m) => DataTransfer -> m FileList +getFiles self = liftDOM ((js_getFiles (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/DataTransferItem.hs b/src/GHCJS/DOM/JSFFI/Generated/DataTransferItem.hs --- a/src/GHCJS/DOM/JSFFI/Generated/DataTransferItem.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/DataTransferItem.hs @@ -1,79 +1,71 @@ {-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE JavaScriptFFI #-} --- For HasCallStack compatibility +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from html (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.DataTransferItem - (js_getAsString, getAsString, js_getAsFile, getAsFile, getAsFile_, - getAsFileUnsafe, getAsFileUnchecked, js_getKind, getKind, - js_getType, getType, DataTransferItem(..), gTypeDataTransferItem) + (js_getAsFile, js_getAsString, js_webkitGetAsEntry, js_getKind, js_getType, getAsFile, getAsFile_, getAsFileUnsafe, getAsFileUnchecked, getAsString, webkitGetAsEntry, webkitGetAsEntry_, webkitGetAsEntryUnsafe, webkitGetAsEntryUnchecked, getKind, getType, DataTransferItem(..), gTypeDataTransferItem) where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull, jsUndefined) -import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import Data.Maybe (fromJust) -import Data.Traversable (mapM) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types -import Control.Applicative ((<$>)) +import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums - -foreign import javascript unsafe "(($1, $2) => { return $1[\"getAsString\"]($2); })" - js_getAsString :: - DataTransferItem -> Optional (StringCallback callback) -> IO () --- | -getAsString :: - (MonadIO m, ToJSString callback) => - DataTransferItem -> Maybe (StringCallback callback) -> m () -getAsString self callback - = liftIO (js_getAsString self (maybeToOptional callback)) - -foreign import javascript unsafe "(($1) => { return $1[\"getAsFile\"](); })" js_getAsFile - :: DataTransferItem -> IO (Nullable Blob) +foreign import javascript safe "(($1) => { return $1[\"getAsFile\"](); })" + js_getAsFile :: DataTransferItem -> IO JSVal +-- | +getAsFile :: (MonadDOM m) => DataTransferItem -> m (Maybe File) +getAsFile self = liftDOM (((js_getAsFile (self)) >>= fromJSValUnchecked)) --- | -getAsFile :: (MonadIO m) => DataTransferItem -> m (Maybe Blob) -getAsFile self = liftIO (nullableToMaybe <$> (js_getAsFile self)) +-- | +getAsFile_ :: (MonadDOM m) => DataTransferItem -> m () +getAsFile_ self = liftDOM (void ((js_getAsFile (self)))) --- | -getAsFile_ :: (MonadIO m) => DataTransferItem -> m () -getAsFile_ self = liftIO (void (js_getAsFile self)) +-- | +getAsFileUnsafe :: (MonadDOM m, HasCallStack) => DataTransferItem -> m File +getAsFileUnsafe self = liftDOM ((((js_getAsFile (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) --- | -getAsFileUnsafe :: - (MonadIO m, HasCallStack) => DataTransferItem -> m Blob -getAsFileUnsafe self - = liftIO - ((nullableToMaybe <$> (js_getAsFile self)) >>= - maybe (Prelude.error "Nothing to return") return) +-- | +getAsFileUnchecked :: (MonadDOM m) => DataTransferItem -> m File +getAsFileUnchecked self = liftDOM ((pFromJSVal <$> (js_getAsFile (self)))) --- | -getAsFileUnchecked :: (MonadIO m) => DataTransferItem -> m Blob -getAsFileUnchecked self - = liftIO (fromJust . nullableToMaybe <$> (js_getAsFile self)) - -foreign import javascript unsafe "(($1) => { return $1[\"kind\"]; })" js_getKind :: - DataTransferItem -> IO JSString +foreign import javascript safe "(($1, $2) => { return $1[\"getAsString\"]($2); })" + js_getAsString :: DataTransferItem -> JSVal -> IO () +-- | +getAsString :: (MonadDOM m) => DataTransferItem -> Maybe FunctionStringCallback -> m () +getAsString self callback' = liftDOM (void (((toJSVal callback') >>= \a2' -> js_getAsString (self) a2'))) --- | -getKind :: - (MonadIO m, FromJSString result) => DataTransferItem -> m result -getKind self = liftIO (fromJSString <$> (js_getKind self)) - -foreign import javascript unsafe "(($1) => { return $1[\"type\"]; })" js_getType :: - DataTransferItem -> IO JSString +foreign import javascript safe "(($1) => { return $1[\"webkitGetAsEntry\"](); })" + js_webkitGetAsEntry :: DataTransferItem -> IO JSVal +-- | +webkitGetAsEntry :: (MonadDOM m) => DataTransferItem -> m (Maybe FileSystemEntry) +webkitGetAsEntry self = liftDOM (((js_webkitGetAsEntry (self)) >>= fromJSValUnchecked)) --- | -getType :: - (MonadIO m, FromJSString result) => DataTransferItem -> m result -getType self = liftIO (fromJSString <$> (js_getType self)) +-- | +webkitGetAsEntry_ :: (MonadDOM m) => DataTransferItem -> m () +webkitGetAsEntry_ self = liftDOM (void ((js_webkitGetAsEntry (self)))) + +-- | +webkitGetAsEntryUnsafe :: (MonadDOM m, HasCallStack) => DataTransferItem -> m FileSystemEntry +webkitGetAsEntryUnsafe self = liftDOM ((((js_webkitGetAsEntry (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +webkitGetAsEntryUnchecked :: (MonadDOM m) => DataTransferItem -> m FileSystemEntry +webkitGetAsEntryUnchecked self = liftDOM ((pFromJSVal <$> (js_webkitGetAsEntry (self)))) + +foreign import javascript unsafe "(($1) => { return $1[\"kind\"]; })" + js_getKind :: DataTransferItem -> IO JSString +-- | +getKind :: (MonadDOM m, FromJSString result) => DataTransferItem -> m result +getKind self = liftDOM ((fromJSString <$> (js_getKind (self)))) + +foreign import javascript unsafe "(($1) => { return $1[\"type\"]; })" + js_getType :: DataTransferItem -> IO JSString +-- | +getType :: (MonadDOM m, FromJSString result) => DataTransferItem -> m result +getType self = liftDOM ((fromJSString <$> (js_getType (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/DataTransferItemList.hs b/src/GHCJS/DOM/JSFFI/Generated/DataTransferItemList.hs --- a/src/GHCJS/DOM/JSFFI/Generated/DataTransferItemList.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/DataTransferItemList.hs @@ -1,74 +1,71 @@ {-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE JavaScriptFFI #-} --- For HasCallStack compatibility +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from html (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.DataTransferItemList - (js_item, item, item_, js_clear, clear, js_addFile, addFile, - js_add, add, js_getLength, getLength, DataTransferItemList(..), - gTypeDataTransferItemList) + (js_add, js_addFile, js_clear, js_remove, js_getLength, add, add_, addUnsafe, addUnchecked, addFile, addFile_, addFileUnsafe, addFileUnchecked, clear, remove, getLength, DataTransferItemList(..), gTypeDataTransferItemList) where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull, jsUndefined) -import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import Data.Maybe (fromJust) -import Data.Traversable (mapM) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types -import Control.Applicative ((<$>)) +import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums - -foreign import javascript unsafe "(($1, $2) => { return $1[$2]; })" js_item :: - DataTransferItemList -> Word -> IO DataTransferItem --- | -item :: - (MonadIO m) => DataTransferItemList -> Word -> m DataTransferItem -item self index = liftIO (js_item self index) +foreign import javascript safe "(($1, $2, $3) => { return $1[\"add\"]($2, $3); })" + js_add :: DataTransferItemList -> JSString -> JSString -> IO JSVal +-- | +add :: (MonadDOM m, ToJSString data', ToJSString type') => DataTransferItemList -> data' -> type' -> m (Maybe DataTransferItem) +add self data' type' = liftDOM (((js_add (self) (toJSString data') (toJSString type')) >>= fromJSValUnchecked)) --- | -item_ :: (MonadIO m) => DataTransferItemList -> Word -> m () -item_ self index = liftIO (void (js_item self index)) - -foreign import javascript unsafe "(($1) => { return $1[\"clear\"](); })" js_clear :: - DataTransferItemList -> IO () +-- | +add_ :: (MonadDOM m, ToJSString data', ToJSString type') => DataTransferItemList -> data' -> type' -> m () +add_ self data' type' = liftDOM (void ((js_add (self) (toJSString data') (toJSString type')))) --- | -clear :: (MonadIO m) => DataTransferItemList -> m () -clear self = liftIO (js_clear self) - -foreign import javascript unsafe "(($1, $2) => { return $1[\"add\"]($2); })" js_addFile :: - DataTransferItemList -> Optional File -> IO () +-- | +addUnsafe :: (MonadDOM m, ToJSString data', ToJSString type', HasCallStack) => DataTransferItemList -> data' -> type' -> m DataTransferItem +addUnsafe self data' type' = liftDOM ((((js_add (self) (toJSString data') (toJSString type')) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) --- | -addFile :: - (MonadIO m) => DataTransferItemList -> Maybe File -> m () -addFile self file = liftIO (js_addFile self (maybeToOptional file)) - -foreign import javascript safe "(($1, $2, $3) => { return $1[\"add\"]($2, $3); })" js_add :: - DataTransferItemList -> - Optional JSString -> Optional JSString -> IO () +-- | +addUnchecked :: (MonadDOM m, ToJSString data', ToJSString type') => DataTransferItemList -> data' -> type' -> m DataTransferItem +addUnchecked self data' type' = liftDOM ((pFromJSVal <$> (js_add (self) (toJSString data') (toJSString type')))) --- | -add :: - (MonadIO m, ToJSString data', ToJSString type') => - DataTransferItemList -> Maybe data' -> Maybe type' -> m () -add self data' type' - = liftIO - (js_add self (toOptionalJSString data') (toOptionalJSString type')) - -foreign import javascript unsafe "(($1) => { return $1[\"length\"]; })" js_getLength :: - DataTransferItemList -> IO Int +foreign import javascript safe "(($1, $2) => { return $1[\"add\"]($2); })" + js_addFile :: DataTransferItemList -> File -> IO JSVal +-- | +addFile :: (MonadDOM m) => DataTransferItemList -> File -> m (Maybe DataTransferItem) +addFile self data' = liftDOM (((js_addFile (self) (data')) >>= fromJSValUnchecked)) --- | -getLength :: (MonadIO m) => DataTransferItemList -> m Int -getLength self = liftIO (js_getLength self) +-- | +addFile_ :: (MonadDOM m) => DataTransferItemList -> File -> m () +addFile_ self data' = liftDOM (void ((js_addFile (self) (data')))) + +-- | +addFileUnsafe :: (MonadDOM m, HasCallStack) => DataTransferItemList -> File -> m DataTransferItem +addFileUnsafe self data' = liftDOM ((((js_addFile (self) (data')) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +addFileUnchecked :: (MonadDOM m) => DataTransferItemList -> File -> m DataTransferItem +addFileUnchecked self data' = liftDOM ((pFromJSVal <$> (js_addFile (self) (data')))) + +foreign import javascript safe "(($1) => { return $1[\"clear\"](); })" + js_clear :: DataTransferItemList -> IO () +-- | +clear :: (MonadDOM m) => DataTransferItemList -> m () +clear self = liftDOM (void ((js_clear (self)))) + +foreign import javascript safe "(($1, $2) => { return $1[\"remove\"]($2); })" + js_remove :: DataTransferItemList -> Word -> IO () +-- | +remove :: (MonadDOM m) => DataTransferItemList -> Word -> m () +remove self index = liftDOM (void ((js_remove (self) (index)))) + +foreign import javascript unsafe "(($1) => { return $1[\"length\"]; })" + js_getLength :: DataTransferItemList -> IO Word +-- | +getLength :: (MonadDOM m) => DataTransferItemList -> m Word +getLength self = liftDOM ((js_getLength (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/Database.hs b/src/GHCJS/DOM/JSFFI/Generated/Database.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/Database.hs +++ /dev/null @@ -1,98 +0,0 @@ -{-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE JavaScriptFFI #-} --- For HasCallStack compatibility -{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} -module GHCJS.DOM.JSFFI.Generated.Database - (js_changeVersion, changeVersion, js_transaction, transaction, - js_readTransaction, readTransaction, js_getVersion, getVersion, - Database(..), gTypeDatabase) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull, jsUndefined) -import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import Data.Maybe (fromJust) -import Data.Traversable (mapM) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) -import GHCJS.DOM.JSFFI.Generated.Enums - -foreign import javascript unsafe - "(($1, $2, $3, $4, $5, $6) => { return $1[\"changeVersion\"]($2, $3, $4,\n$5, $6); })" js_changeVersion :: - Database -> - JSString -> - JSString -> - Optional SQLTransactionCallback -> - Optional SQLTransactionErrorCallback -> - Optional VoidCallback -> IO () - --- | -changeVersion :: - (MonadIO m, ToJSString oldVersion, ToJSString newVersion) => - Database -> - oldVersion -> - newVersion -> - Maybe SQLTransactionCallback -> - Maybe SQLTransactionErrorCallback -> Maybe VoidCallback -> m () -changeVersion self oldVersion newVersion callback errorCallback - successCallback - = liftIO - (js_changeVersion self (toJSString oldVersion) - (toJSString newVersion) - (maybeToOptional callback) - (maybeToOptional errorCallback) - (maybeToOptional successCallback)) - -foreign import javascript unsafe "(($1, $2, $3, $4) => { return $1[\"transaction\"]($2, $3, $4); })" - js_transaction :: - Database -> - SQLTransactionCallback -> - Optional SQLTransactionErrorCallback -> - Optional VoidCallback -> IO () - --- | -transaction :: - (MonadIO m) => - Database -> - SQLTransactionCallback -> - Maybe SQLTransactionErrorCallback -> Maybe VoidCallback -> m () -transaction self callback errorCallback successCallback - = liftIO - (js_transaction self callback (maybeToOptional errorCallback) - (maybeToOptional successCallback)) - -foreign import javascript unsafe - "(($1, $2, $3, $4) => { return $1[\"readTransaction\"]($2, $3,\n$4); })" js_readTransaction :: - Database -> - SQLTransactionCallback -> - Optional SQLTransactionErrorCallback -> - Optional VoidCallback -> IO () - --- | -readTransaction :: - (MonadIO m) => - Database -> - SQLTransactionCallback -> - Maybe SQLTransactionErrorCallback -> Maybe VoidCallback -> m () -readTransaction self callback errorCallback successCallback - = liftIO - (js_readTransaction self callback (maybeToOptional errorCallback) - (maybeToOptional successCallback)) - -foreign import javascript unsafe "(($1) => { return $1[\"version\"]; })" js_getVersion :: - Database -> IO JSString - --- | -getVersion :: - (MonadIO m, FromJSString result) => Database -> m result -getVersion self = liftIO (fromJSString <$> (js_getVersion self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/DatabaseCallback.hs b/src/GHCJS/DOM/JSFFI/Generated/DatabaseCallback.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/DatabaseCallback.hs +++ /dev/null @@ -1,57 +0,0 @@ -{-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE JavaScriptFFI #-} --- For HasCallStack compatibility -{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} -module GHCJS.DOM.JSFFI.Generated.DatabaseCallback - (newDatabaseCallback, newDatabaseCallbackSync, - newDatabaseCallbackAsync, DatabaseCallback) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull, jsUndefined) -import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import Data.Maybe (fromJust) -import Data.Traversable (mapM) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) -import GHCJS.DOM.JSFFI.Generated.Enums - --- | -newDatabaseCallback :: - (MonadIO m) => (Database -> IO ()) -> m DatabaseCallback -newDatabaseCallback callback - = liftIO - (DatabaseCallback <$> - syncCallback1 ThrowWouldBlock - (\ database -> - fromJSValUnchecked database >>= \ database' -> callback database')) - --- | -newDatabaseCallbackSync :: - (MonadIO m) => (Database -> IO ()) -> m DatabaseCallback -newDatabaseCallbackSync callback - = liftIO - (DatabaseCallback <$> - syncCallback1 ContinueAsync - (\ database -> - fromJSValUnchecked database >>= \ database' -> callback database')) - --- | -newDatabaseCallbackAsync :: - (MonadIO m) => (Database -> IO ()) -> m DatabaseCallback -newDatabaseCallbackAsync callback - = liftIO - (DatabaseCallback <$> - asyncCallback1 - (\ database -> - fromJSValUnchecked database >>= \ database' -> callback database')) diff --git a/src/GHCJS/DOM/JSFFI/Generated/DecodeErrorCallback.hs b/src/GHCJS/DOM/JSFFI/Generated/DecodeErrorCallback.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/DecodeErrorCallback.hs @@ -0,0 +1,29 @@ +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from webaudio-1.1 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.DecodeErrorCallback + (newDecodeErrorCallback, newDecodeErrorCallbackSync, newDecodeErrorCallbackAsync, DecodeErrorCallback) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import Data.Coerce (coerce) +import GHC.JS.Foreign.Callback (OnBlocked(..), syncCallback1, asyncCallback1) +import GHCJS.DOM.Types +import GHCJS.DOM.JSFFI.Generated.Enums + +newDecodeErrorCallback :: (MonadDOM m) => (DOMException -> IO ()) -> m DecodeErrorCallback +newDecodeErrorCallback callback = liftDOM ((DecodeErrorCallback . coerce) <$> syncCallback1 ContinueAsync (\ error -> do + error' <- fromJSValUnchecked error + callback error')) + +newDecodeErrorCallbackSync :: (MonadDOM m) => (DOMException -> IO ()) -> m DecodeErrorCallback +newDecodeErrorCallbackSync callback = liftDOM ((DecodeErrorCallback . coerce) <$> syncCallback1 ThrowWouldBlock (\ error -> do + error' <- fromJSValUnchecked error + callback error')) + +newDecodeErrorCallbackAsync :: (MonadDOM m) => (DOMException -> IO ()) -> m DecodeErrorCallback +newDecodeErrorCallbackAsync callback = liftDOM ((DecodeErrorCallback . coerce) <$> asyncCallback1 (\ error -> do + error' <- fromJSValUnchecked error + callback error')) diff --git a/src/GHCJS/DOM/JSFFI/Generated/DecodeSuccessCallback.hs b/src/GHCJS/DOM/JSFFI/Generated/DecodeSuccessCallback.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/DecodeSuccessCallback.hs @@ -0,0 +1,29 @@ +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from webaudio-1.1 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.DecodeSuccessCallback + (newDecodeSuccessCallback, newDecodeSuccessCallbackSync, newDecodeSuccessCallbackAsync, DecodeSuccessCallback) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import Data.Coerce (coerce) +import GHC.JS.Foreign.Callback (OnBlocked(..), syncCallback1, asyncCallback1) +import GHCJS.DOM.Types +import GHCJS.DOM.JSFFI.Generated.Enums + +newDecodeSuccessCallback :: (MonadDOM m) => (AudioBuffer -> IO ()) -> m DecodeSuccessCallback +newDecodeSuccessCallback callback = liftDOM ((DecodeSuccessCallback . coerce) <$> syncCallback1 ContinueAsync (\ decodedData -> do + decodedData' <- fromJSValUnchecked decodedData + callback decodedData')) + +newDecodeSuccessCallbackSync :: (MonadDOM m) => (AudioBuffer -> IO ()) -> m DecodeSuccessCallback +newDecodeSuccessCallbackSync callback = liftDOM ((DecodeSuccessCallback . coerce) <$> syncCallback1 ThrowWouldBlock (\ decodedData -> do + decodedData' <- fromJSValUnchecked decodedData + callback decodedData')) + +newDecodeSuccessCallbackAsync :: (MonadDOM m) => (AudioBuffer -> IO ()) -> m DecodeSuccessCallback +newDecodeSuccessCallbackAsync callback = liftDOM ((DecodeSuccessCallback . coerce) <$> asyncCallback1 (\ decodedData -> do + decodedData' <- fromJSValUnchecked decodedData + callback decodedData')) diff --git a/src/GHCJS/DOM/JSFFI/Generated/DecompressionStream.hs b/src/GHCJS/DOM/JSFFI/Generated/DecompressionStream.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/DecompressionStream.hs @@ -0,0 +1,23 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from compression (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.DecompressionStream + (js_newDecompressionStream, newDecompressionStream, DecompressionStream(..), gTypeDecompressionStream) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1) => { return new globalThis[\"DecompressionStream\"]($1); })" + js_newDecompressionStream :: JSVal -> IO DecompressionStream +-- | +newDecompressionStream :: (MonadDOM m) => CompressionFormat -> m DecompressionStream +newDecompressionStream format = liftDOM (((toJSVal format) >>= \a1' -> js_newDecompressionStream a1')) diff --git a/src/GHCJS/DOM/JSFFI/Generated/DedicatedWorkerGlobalScope.hs b/src/GHCJS/DOM/JSFFI/Generated/DedicatedWorkerGlobalScope.hs --- a/src/GHCJS/DOM/JSFFI/Generated/DedicatedWorkerGlobalScope.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/DedicatedWorkerGlobalScope.hs @@ -1,46 +1,45 @@ {-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE JavaScriptFFI #-} --- For HasCallStack compatibility +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from html (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.DedicatedWorkerGlobalScope - (js_postMessage, postMessage, message, - DedicatedWorkerGlobalScope(..), gTypeDedicatedWorkerGlobalScope) + (js_close, js_postMessage, js_postMessageOptions, js_getName, close, postMessage, postMessageOptions, getName, rtctransform, DedicatedWorkerGlobalScope(..), gTypeDedicatedWorkerGlobalScope) where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull, jsUndefined) -import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import Data.Maybe (fromJust) -import Data.Traversable (mapM) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types -import Control.Applicative ((<$>)) +import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums - + +foreign import javascript safe "(($1) => { return $1[\"close\"](); })" + js_close :: DedicatedWorkerGlobalScope -> IO () +-- | +close :: (MonadDOM m) => DedicatedWorkerGlobalScope -> m () +close self = liftDOM (void ((js_close (self)))) + foreign import javascript safe "(($1, $2, $3) => { return $1[\"postMessage\"]($2, $3); })" - js_postMessage :: - DedicatedWorkerGlobalScope -> JSVal -> JSVal -> IO () + js_postMessage :: DedicatedWorkerGlobalScope -> JSVal -> JSVal -> IO () +-- | +postMessage :: (MonadDOM m) => DedicatedWorkerGlobalScope -> JSVal -> [GObject] -> m () +postMessage self message transfer = liftDOM (void (((toJSVal transfer) >>= \a3' -> js_postMessage (self) (message) a3'))) --- | -postMessage :: - (MonadIO m, ToJSVal message, IsGObject transfer) => - DedicatedWorkerGlobalScope -> message -> [transfer] -> m () -postMessage self message transfer - = liftIO - (toJSVal transfer >>= - \ transfer' -> - toJSVal message >>= \ message' -> js_postMessage self message' - transfer') +foreign import javascript safe "(($1, $2, $3) => { return $1[\"postMessage\"]($2, $3); })" + js_postMessageOptions :: DedicatedWorkerGlobalScope -> JSVal -> JSVal -> IO () +-- | +postMessageOptions :: (MonadDOM m, IsStructuredSerializeOptions options) => DedicatedWorkerGlobalScope -> JSVal -> Maybe options -> m () +postMessageOptions self message options = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal options) >>= \a3' -> js_postMessageOptions (self) (message) a3'))) --- | -message :: EventName DedicatedWorkerGlobalScope MessageEvent -message = unsafeEventNameAsync (toJSString "message") +foreign import javascript unsafe "(($1) => { return $1[\"name\"]; })" + js_getName :: DedicatedWorkerGlobalScope -> IO JSString +-- | +getName :: (MonadDOM m, FromJSString result) => DedicatedWorkerGlobalScope -> m result +getName self = liftDOM ((fromJSString <$> (js_getName (self)))) + +-- | +rtctransform :: EventName DedicatedWorkerGlobalScope RTCTransformEvent +rtctransform = unsafeEventName (toJSString "rtctransform") diff --git a/src/GHCJS/DOM/JSFFI/Generated/DelayNode.hs b/src/GHCJS/DOM/JSFFI/Generated/DelayNode.hs --- a/src/GHCJS/DOM/JSFFI/Generated/DelayNode.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/DelayNode.hs @@ -1,33 +1,29 @@ {-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE JavaScriptFFI #-} --- For HasCallStack compatibility +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from webaudio-1.1 (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.DelayNode - (js_getDelayTime, getDelayTime, DelayNode(..), gTypeDelayNode) + (js_newDelayNode, js_getDelayTime, newDelayNode, getDelayTime, DelayNode(..), gTypeDelayNode) where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull, jsUndefined) -import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import Data.Maybe (fromJust) -import Data.Traversable (mapM) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types -import Control.Applicative ((<$>)) +import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums - + +foreign import javascript safe "(($1, $2) => { return new globalThis[\"DelayNode\"]($1, $2); })" + js_newDelayNode :: BaseAudioContext -> JSVal -> IO DelayNode +-- | +newDelayNode :: (MonadDOM m, IsBaseAudioContext context) => context -> Maybe DelayOptions -> m DelayNode +newDelayNode context options = liftDOM (((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_newDelayNode (Types.toBaseAudioContext context) a2')) + foreign import javascript unsafe "(($1) => { return $1[\"delayTime\"]; })" js_getDelayTime :: DelayNode -> IO AudioParam - --- | -getDelayTime :: (MonadIO m) => DelayNode -> m AudioParam -getDelayTime self = liftIO (js_getDelayTime self) +-- | +getDelayTime :: (MonadDOM m) => DelayNode -> m AudioParam +getDelayTime self = liftDOM ((js_getDelayTime (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/DelayOptions.hs b/src/GHCJS/DOM/JSFFI/Generated/DelayOptions.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/DelayOptions.hs @@ -0,0 +1,63 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from webaudio-1.1 (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.DelayOptions + (js_newDelayOptions, js_setMaxDelayTime, js_getMaxDelayTime, js_setDelayTime, js_getDelayTime, newDelayOptions, setMaxDelayTime, getMaxDelayTime, getMaxDelayTimeUnsafe, getMaxDelayTimeUnchecked, setDelayTime, getDelayTime, getDelayTimeUnsafe, getDelayTimeUnchecked, DelayOptions(..), gTypeDelayOptions) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(() => { return ({}); })" + js_newDelayOptions :: IO DelayOptions +-- | +newDelayOptions :: (MonadDOM m) => m DelayOptions +newDelayOptions = liftDOM ((js_newDelayOptions)) + +foreign import javascript safe "(($1, $2) => { $1[\"maxDelayTime\"] = $2; })" + js_setMaxDelayTime :: DelayOptions -> Double -> IO () +-- | +setMaxDelayTime :: (MonadDOM m) => DelayOptions -> Double -> m () +setMaxDelayTime self val = liftDOM (void ((js_setMaxDelayTime (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"maxDelayTime\"]; })" + js_getMaxDelayTime :: DelayOptions -> IO JSVal +-- | +getMaxDelayTime :: (MonadDOM m) => DelayOptions -> m (Maybe Double) +getMaxDelayTime self = liftDOM (((js_getMaxDelayTime (self)) >>= fromJSValUnchecked)) + +-- | +getMaxDelayTimeUnsafe :: (MonadDOM m, HasCallStack) => DelayOptions -> m Double +getMaxDelayTimeUnsafe self = liftDOM ((((js_getMaxDelayTime (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getMaxDelayTimeUnchecked :: (MonadDOM m) => DelayOptions -> m Double +getMaxDelayTimeUnchecked self = liftDOM ((pFromJSVal <$> (js_getMaxDelayTime (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"delayTime\"] = $2; })" + js_setDelayTime :: DelayOptions -> Double -> IO () +-- | +setDelayTime :: (MonadDOM m) => DelayOptions -> Double -> m () +setDelayTime self val = liftDOM (void ((js_setDelayTime (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"delayTime\"]; })" + js_getDelayTime :: DelayOptions -> IO JSVal +-- | +getDelayTime :: (MonadDOM m) => DelayOptions -> m (Maybe Double) +getDelayTime self = liftDOM (((js_getDelayTime (self)) >>= fromJSValUnchecked)) + +-- | +getDelayTimeUnsafe :: (MonadDOM m, HasCallStack) => DelayOptions -> m Double +getDelayTimeUnsafe self = liftDOM ((((js_getDelayTime (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getDelayTimeUnchecked :: (MonadDOM m) => DelayOptions -> m Double +getDelayTimeUnchecked self = liftDOM ((pFromJSVal <$> (js_getDelayTime (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/DeviceChangeEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/DeviceChangeEvent.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/DeviceChangeEvent.hs @@ -0,0 +1,18 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from mediacapture-streams (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.DeviceChangeEvent + (DeviceChangeEvent(..), gTypeDeviceChangeEvent) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + diff --git a/src/GHCJS/DOM/JSFFI/Generated/DeviceMotionEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/DeviceMotionEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/DeviceMotionEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/DeviceMotionEvent.hs @@ -1,164 +1,71 @@ {-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE JavaScriptFFI #-} --- For HasCallStack compatibility +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from orientation-event (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.DeviceMotionEvent - (js_initDeviceMotionEvent, initDeviceMotionEvent, - js_getAcceleration, getAcceleration, getAccelerationUnsafe, - getAccelerationUnchecked, js_getAccelerationIncludingGravity, - getAccelerationIncludingGravity, - getAccelerationIncludingGravityUnsafe, - getAccelerationIncludingGravityUnchecked, js_getRotationRate, - getRotationRate, getRotationRateUnsafe, getRotationRateUnchecked, - js_getInterval, getInterval, getIntervalUnsafe, - getIntervalUnchecked, DeviceMotionEvent(..), - gTypeDeviceMotionEvent) + (js_newDeviceMotionEvent, js_getAcceleration, js_getAccelerationIncludingGravity, js_getRotationRate, js_getInterval, newDeviceMotionEvent, getAcceleration, getAccelerationUnsafe, getAccelerationUnchecked, getAccelerationIncludingGravity, getAccelerationIncludingGravityUnsafe, getAccelerationIncludingGravityUnchecked, getRotationRate, getRotationRateUnsafe, getRotationRateUnchecked, getInterval, DeviceMotionEvent(..), gTypeDeviceMotionEvent) where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull, jsUndefined) -import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import Data.Maybe (fromJust) -import Data.Traversable (mapM) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types -import Control.Applicative ((<$>)) +import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums - -foreign import javascript unsafe - "(($1, $2, $3, $4, $5, $6, $7, $8) => { return $1[\"initDeviceMotionEvent\"]($2,\n$3, $4, $5, $6, $7, $8); })" - js_initDeviceMotionEvent :: - DeviceMotionEvent -> - Optional JSString -> - Bool -> - Bool -> - Optional Acceleration -> - Optional Acceleration -> - Optional RotationRate -> Optional Double -> IO () --- | -initDeviceMotionEvent :: - (MonadIO m, ToJSString type') => - DeviceMotionEvent -> - Maybe type' -> - Bool -> - Bool -> - Maybe Acceleration -> - Maybe Acceleration -> Maybe RotationRate -> Maybe Double -> m () -initDeviceMotionEvent self type' bubbles cancelable acceleration - accelerationIncludingGravity rotationRate interval - = liftIO - (js_initDeviceMotionEvent self (toOptionalJSString type') bubbles - cancelable - (maybeToOptional acceleration) - (maybeToOptional accelerationIncludingGravity) - (maybeToOptional rotationRate) - (maybeToOptional interval)) - +foreign import javascript safe "(($1, $2) => { return new globalThis[\"DeviceMotionEvent\"]($1, $2); })" + js_newDeviceMotionEvent :: JSString -> JSVal -> IO DeviceMotionEvent +-- | +newDeviceMotionEvent :: (MonadDOM m, ToJSString type') => type' -> Maybe DeviceMotionEventInit -> m DeviceMotionEvent +newDeviceMotionEvent type' eventInitDict = liftDOM (((P.maybe (P.return jsUndefined) toJSVal eventInitDict) >>= \a2' -> js_newDeviceMotionEvent (toJSString type') a2')) + foreign import javascript unsafe "(($1) => { return $1[\"acceleration\"]; })" - js_getAcceleration :: - DeviceMotionEvent -> IO (Nullable Acceleration) + js_getAcceleration :: DeviceMotionEvent -> IO JSVal +-- | +getAcceleration :: (MonadDOM m) => DeviceMotionEvent -> m (Maybe DeviceMotionEventAcceleration) +getAcceleration self = liftDOM (((js_getAcceleration (self)) >>= fromJSValUnchecked)) --- | -getAcceleration :: - (MonadIO m) => DeviceMotionEvent -> m (Maybe Acceleration) -getAcceleration self - = liftIO (nullableToMaybe <$> (js_getAcceleration self)) +-- | +getAccelerationUnsafe :: (MonadDOM m, HasCallStack) => DeviceMotionEvent -> m DeviceMotionEventAcceleration +getAccelerationUnsafe self = liftDOM ((((js_getAcceleration (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) --- | -getAccelerationUnsafe :: - (MonadIO m, HasCallStack) => DeviceMotionEvent -> m Acceleration -getAccelerationUnsafe self - = liftIO - ((nullableToMaybe <$> (js_getAcceleration self)) >>= - maybe (Prelude.error "Nothing to return") return) +-- | +getAccelerationUnchecked :: (MonadDOM m) => DeviceMotionEvent -> m DeviceMotionEventAcceleration +getAccelerationUnchecked self = liftDOM ((pFromJSVal <$> (js_getAcceleration (self)))) --- | -getAccelerationUnchecked :: - (MonadIO m) => DeviceMotionEvent -> m Acceleration -getAccelerationUnchecked self - = liftIO (fromJust . nullableToMaybe <$> (js_getAcceleration self)) - -foreign import javascript unsafe - "(($1) => { return $1[\"accelerationIncludingGravity\"]; })" - js_getAccelerationIncludingGravity :: - DeviceMotionEvent -> IO (Nullable Acceleration) +foreign import javascript unsafe "(($1) => { return $1[\"accelerationIncludingGravity\"]; })" + js_getAccelerationIncludingGravity :: DeviceMotionEvent -> IO JSVal +-- | +getAccelerationIncludingGravity :: (MonadDOM m) => DeviceMotionEvent -> m (Maybe DeviceMotionEventAcceleration) +getAccelerationIncludingGravity self = liftDOM (((js_getAccelerationIncludingGravity (self)) >>= fromJSValUnchecked)) --- | -getAccelerationIncludingGravity :: - (MonadIO m) => DeviceMotionEvent -> m (Maybe Acceleration) -getAccelerationIncludingGravity self - = liftIO - (nullableToMaybe <$> (js_getAccelerationIncludingGravity self)) +-- | +getAccelerationIncludingGravityUnsafe :: (MonadDOM m, HasCallStack) => DeviceMotionEvent -> m DeviceMotionEventAcceleration +getAccelerationIncludingGravityUnsafe self = liftDOM ((((js_getAccelerationIncludingGravity (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) --- | -getAccelerationIncludingGravityUnsafe :: - (MonadIO m, HasCallStack) => - DeviceMotionEvent -> m Acceleration -getAccelerationIncludingGravityUnsafe self - = liftIO - ((nullableToMaybe <$> (js_getAccelerationIncludingGravity self)) - >>= maybe (Prelude.error "Nothing to return") return) +-- | +getAccelerationIncludingGravityUnchecked :: (MonadDOM m) => DeviceMotionEvent -> m DeviceMotionEventAcceleration +getAccelerationIncludingGravityUnchecked self = liftDOM ((pFromJSVal <$> (js_getAccelerationIncludingGravity (self)))) --- | -getAccelerationIncludingGravityUnchecked :: - (MonadIO m) => DeviceMotionEvent -> m Acceleration -getAccelerationIncludingGravityUnchecked self - = liftIO - (fromJust . nullableToMaybe <$> - (js_getAccelerationIncludingGravity self)) - foreign import javascript unsafe "(($1) => { return $1[\"rotationRate\"]; })" - js_getRotationRate :: - DeviceMotionEvent -> IO (Nullable RotationRate) - --- | -getRotationRate :: - (MonadIO m) => DeviceMotionEvent -> m (Maybe RotationRate) -getRotationRate self - = liftIO (nullableToMaybe <$> (js_getRotationRate self)) - --- | -getRotationRateUnsafe :: - (MonadIO m, HasCallStack) => DeviceMotionEvent -> m RotationRate -getRotationRateUnsafe self - = liftIO - ((nullableToMaybe <$> (js_getRotationRate self)) >>= - maybe (Prelude.error "Nothing to return") return) - --- | -getRotationRateUnchecked :: - (MonadIO m) => DeviceMotionEvent -> m RotationRate -getRotationRateUnchecked self - = liftIO (fromJust . nullableToMaybe <$> (js_getRotationRate self)) - -foreign import javascript unsafe "(($1) => { return $1[\"interval\"]; })" js_getInterval - :: DeviceMotionEvent -> IO (Nullable Double) + js_getRotationRate :: DeviceMotionEvent -> IO JSVal +-- | +getRotationRate :: (MonadDOM m) => DeviceMotionEvent -> m (Maybe DeviceMotionEventRotationRate) +getRotationRate self = liftDOM (((js_getRotationRate (self)) >>= fromJSValUnchecked)) --- | -getInterval :: (MonadIO m) => DeviceMotionEvent -> m (Maybe Double) -getInterval self - = liftIO (nullableToMaybe <$> (js_getInterval self)) +-- | +getRotationRateUnsafe :: (MonadDOM m, HasCallStack) => DeviceMotionEvent -> m DeviceMotionEventRotationRate +getRotationRateUnsafe self = liftDOM ((((js_getRotationRate (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) --- | -getIntervalUnsafe :: - (MonadIO m, HasCallStack) => DeviceMotionEvent -> m Double -getIntervalUnsafe self - = liftIO - ((nullableToMaybe <$> (js_getInterval self)) >>= - maybe (Prelude.error "Nothing to return") return) +-- | +getRotationRateUnchecked :: (MonadDOM m) => DeviceMotionEvent -> m DeviceMotionEventRotationRate +getRotationRateUnchecked self = liftDOM ((pFromJSVal <$> (js_getRotationRate (self)))) --- | -getIntervalUnchecked :: - (MonadIO m) => DeviceMotionEvent -> m Double -getIntervalUnchecked self - = liftIO (fromJust . nullableToMaybe <$> (js_getInterval self)) +foreign import javascript unsafe "(($1) => { return $1[\"interval\"]; })" + js_getInterval :: DeviceMotionEvent -> IO Double +-- | +getInterval :: (MonadDOM m) => DeviceMotionEvent -> m Double +getInterval self = liftDOM ((js_getInterval (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/DeviceMotionEventAcceleration.hs b/src/GHCJS/DOM/JSFFI/Generated/DeviceMotionEventAcceleration.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/DeviceMotionEventAcceleration.hs @@ -0,0 +1,59 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from orientation-event (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.DeviceMotionEventAcceleration + (js_getX, js_getY, js_getZ, getX, getXUnsafe, getXUnchecked, getY, getYUnsafe, getYUnchecked, getZ, getZUnsafe, getZUnchecked, DeviceMotionEventAcceleration(..), gTypeDeviceMotionEventAcceleration) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript unsafe "(($1) => { return $1[\"x\"]; })" + js_getX :: DeviceMotionEventAcceleration -> IO JSVal +-- | +getX :: (MonadDOM m) => DeviceMotionEventAcceleration -> m (Maybe Double) +getX self = liftDOM (((js_getX (self)) >>= fromJSValUnchecked)) + +-- | +getXUnsafe :: (MonadDOM m, HasCallStack) => DeviceMotionEventAcceleration -> m Double +getXUnsafe self = liftDOM ((((js_getX (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getXUnchecked :: (MonadDOM m) => DeviceMotionEventAcceleration -> m Double +getXUnchecked self = liftDOM ((pFromJSVal <$> (js_getX (self)))) + +foreign import javascript unsafe "(($1) => { return $1[\"y\"]; })" + js_getY :: DeviceMotionEventAcceleration -> IO JSVal +-- | +getY :: (MonadDOM m) => DeviceMotionEventAcceleration -> m (Maybe Double) +getY self = liftDOM (((js_getY (self)) >>= fromJSValUnchecked)) + +-- | +getYUnsafe :: (MonadDOM m, HasCallStack) => DeviceMotionEventAcceleration -> m Double +getYUnsafe self = liftDOM ((((js_getY (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getYUnchecked :: (MonadDOM m) => DeviceMotionEventAcceleration -> m Double +getYUnchecked self = liftDOM ((pFromJSVal <$> (js_getY (self)))) + +foreign import javascript unsafe "(($1) => { return $1[\"z\"]; })" + js_getZ :: DeviceMotionEventAcceleration -> IO JSVal +-- | +getZ :: (MonadDOM m) => DeviceMotionEventAcceleration -> m (Maybe Double) +getZ self = liftDOM (((js_getZ (self)) >>= fromJSValUnchecked)) + +-- | +getZUnsafe :: (MonadDOM m, HasCallStack) => DeviceMotionEventAcceleration -> m Double +getZUnsafe self = liftDOM ((((js_getZ (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getZUnchecked :: (MonadDOM m) => DeviceMotionEventAcceleration -> m Double +getZUnchecked self = liftDOM ((pFromJSVal <$> (js_getZ (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/DeviceMotionEventAccelerationInit.hs b/src/GHCJS/DOM/JSFFI/Generated/DeviceMotionEventAccelerationInit.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/DeviceMotionEventAccelerationInit.hs @@ -0,0 +1,83 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from orientation-event (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.DeviceMotionEventAccelerationInit + (js_newDeviceMotionEventAccelerationInit, js_setX, js_getX, js_setY, js_getY, js_setZ, js_getZ, newDeviceMotionEventAccelerationInit, setX, getX, getXUnsafe, getXUnchecked, setY, getY, getYUnsafe, getYUnchecked, setZ, getZ, getZUnsafe, getZUnchecked, DeviceMotionEventAccelerationInit(..), gTypeDeviceMotionEventAccelerationInit) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(() => { return ({}); })" + js_newDeviceMotionEventAccelerationInit :: IO DeviceMotionEventAccelerationInit +-- | +newDeviceMotionEventAccelerationInit :: (MonadDOM m) => m DeviceMotionEventAccelerationInit +newDeviceMotionEventAccelerationInit = liftDOM ((js_newDeviceMotionEventAccelerationInit)) + +foreign import javascript safe "(($1, $2) => { $1[\"x\"] = $2; })" + js_setX :: DeviceMotionEventAccelerationInit -> JSVal -> IO () +-- | +setX :: (MonadDOM m) => DeviceMotionEventAccelerationInit -> Maybe Double -> m () +setX self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setX (self) a2'))) + +foreign import javascript unsafe "(($1) => { return $1[\"x\"]; })" + js_getX :: DeviceMotionEventAccelerationInit -> IO JSVal +-- | +getX :: (MonadDOM m) => DeviceMotionEventAccelerationInit -> m (Maybe Double) +getX self = liftDOM (((js_getX (self)) >>= fromJSValUnchecked)) + +-- | +getXUnsafe :: (MonadDOM m, HasCallStack) => DeviceMotionEventAccelerationInit -> m Double +getXUnsafe self = liftDOM ((((js_getX (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getXUnchecked :: (MonadDOM m) => DeviceMotionEventAccelerationInit -> m Double +getXUnchecked self = liftDOM ((pFromJSVal <$> (js_getX (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"y\"] = $2; })" + js_setY :: DeviceMotionEventAccelerationInit -> JSVal -> IO () +-- | +setY :: (MonadDOM m) => DeviceMotionEventAccelerationInit -> Maybe Double -> m () +setY self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setY (self) a2'))) + +foreign import javascript unsafe "(($1) => { return $1[\"y\"]; })" + js_getY :: DeviceMotionEventAccelerationInit -> IO JSVal +-- | +getY :: (MonadDOM m) => DeviceMotionEventAccelerationInit -> m (Maybe Double) +getY self = liftDOM (((js_getY (self)) >>= fromJSValUnchecked)) + +-- | +getYUnsafe :: (MonadDOM m, HasCallStack) => DeviceMotionEventAccelerationInit -> m Double +getYUnsafe self = liftDOM ((((js_getY (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getYUnchecked :: (MonadDOM m) => DeviceMotionEventAccelerationInit -> m Double +getYUnchecked self = liftDOM ((pFromJSVal <$> (js_getY (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"z\"] = $2; })" + js_setZ :: DeviceMotionEventAccelerationInit -> JSVal -> IO () +-- | +setZ :: (MonadDOM m) => DeviceMotionEventAccelerationInit -> Maybe Double -> m () +setZ self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setZ (self) a2'))) + +foreign import javascript unsafe "(($1) => { return $1[\"z\"]; })" + js_getZ :: DeviceMotionEventAccelerationInit -> IO JSVal +-- | +getZ :: (MonadDOM m) => DeviceMotionEventAccelerationInit -> m (Maybe Double) +getZ self = liftDOM (((js_getZ (self)) >>= fromJSValUnchecked)) + +-- | +getZUnsafe :: (MonadDOM m, HasCallStack) => DeviceMotionEventAccelerationInit -> m Double +getZUnsafe self = liftDOM ((((js_getZ (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getZUnchecked :: (MonadDOM m) => DeviceMotionEventAccelerationInit -> m Double +getZUnchecked self = liftDOM ((pFromJSVal <$> (js_getZ (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/DeviceMotionEventInit.hs b/src/GHCJS/DOM/JSFFI/Generated/DeviceMotionEventInit.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/DeviceMotionEventInit.hs @@ -0,0 +1,103 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from orientation-event (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.DeviceMotionEventInit + (js_newDeviceMotionEventInit, js_setAcceleration, js_getAcceleration, js_setAccelerationIncludingGravity, js_getAccelerationIncludingGravity, js_setRotationRate, js_getRotationRate, js_setInterval, js_getInterval, newDeviceMotionEventInit, setAcceleration, getAcceleration, getAccelerationUnsafe, getAccelerationUnchecked, setAccelerationIncludingGravity, getAccelerationIncludingGravity, getAccelerationIncludingGravityUnsafe, getAccelerationIncludingGravityUnchecked, setRotationRate, getRotationRate, getRotationRateUnsafe, getRotationRateUnchecked, setInterval, getInterval, getIntervalUnsafe, getIntervalUnchecked, DeviceMotionEventInit(..), gTypeDeviceMotionEventInit) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(() => { return ({}); })" + js_newDeviceMotionEventInit :: IO DeviceMotionEventInit +-- | +newDeviceMotionEventInit :: (MonadDOM m) => m DeviceMotionEventInit +newDeviceMotionEventInit = liftDOM ((js_newDeviceMotionEventInit)) + +foreign import javascript safe "(($1, $2) => { $1[\"acceleration\"] = $2; })" + js_setAcceleration :: DeviceMotionEventInit -> DeviceMotionEventAccelerationInit -> IO () +-- | +setAcceleration :: (MonadDOM m) => DeviceMotionEventInit -> DeviceMotionEventAccelerationInit -> m () +setAcceleration self val = liftDOM (void ((js_setAcceleration (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"acceleration\"]; })" + js_getAcceleration :: DeviceMotionEventInit -> IO JSVal +-- | +getAcceleration :: (MonadDOM m) => DeviceMotionEventInit -> m (Maybe DeviceMotionEventAccelerationInit) +getAcceleration self = liftDOM (((js_getAcceleration (self)) >>= fromJSValUnchecked)) + +-- | +getAccelerationUnsafe :: (MonadDOM m, HasCallStack) => DeviceMotionEventInit -> m DeviceMotionEventAccelerationInit +getAccelerationUnsafe self = liftDOM ((((js_getAcceleration (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getAccelerationUnchecked :: (MonadDOM m) => DeviceMotionEventInit -> m DeviceMotionEventAccelerationInit +getAccelerationUnchecked self = liftDOM ((pFromJSVal <$> (js_getAcceleration (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"accelerationIncludingGravity\"] = $2; })" + js_setAccelerationIncludingGravity :: DeviceMotionEventInit -> DeviceMotionEventAccelerationInit -> IO () +-- | +setAccelerationIncludingGravity :: (MonadDOM m) => DeviceMotionEventInit -> DeviceMotionEventAccelerationInit -> m () +setAccelerationIncludingGravity self val = liftDOM (void ((js_setAccelerationIncludingGravity (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"accelerationIncludingGravity\"]; })" + js_getAccelerationIncludingGravity :: DeviceMotionEventInit -> IO JSVal +-- | +getAccelerationIncludingGravity :: (MonadDOM m) => DeviceMotionEventInit -> m (Maybe DeviceMotionEventAccelerationInit) +getAccelerationIncludingGravity self = liftDOM (((js_getAccelerationIncludingGravity (self)) >>= fromJSValUnchecked)) + +-- | +getAccelerationIncludingGravityUnsafe :: (MonadDOM m, HasCallStack) => DeviceMotionEventInit -> m DeviceMotionEventAccelerationInit +getAccelerationIncludingGravityUnsafe self = liftDOM ((((js_getAccelerationIncludingGravity (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getAccelerationIncludingGravityUnchecked :: (MonadDOM m) => DeviceMotionEventInit -> m DeviceMotionEventAccelerationInit +getAccelerationIncludingGravityUnchecked self = liftDOM ((pFromJSVal <$> (js_getAccelerationIncludingGravity (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"rotationRate\"] = $2; })" + js_setRotationRate :: DeviceMotionEventInit -> DeviceMotionEventRotationRateInit -> IO () +-- | +setRotationRate :: (MonadDOM m) => DeviceMotionEventInit -> DeviceMotionEventRotationRateInit -> m () +setRotationRate self val = liftDOM (void ((js_setRotationRate (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"rotationRate\"]; })" + js_getRotationRate :: DeviceMotionEventInit -> IO JSVal +-- | +getRotationRate :: (MonadDOM m) => DeviceMotionEventInit -> m (Maybe DeviceMotionEventRotationRateInit) +getRotationRate self = liftDOM (((js_getRotationRate (self)) >>= fromJSValUnchecked)) + +-- | +getRotationRateUnsafe :: (MonadDOM m, HasCallStack) => DeviceMotionEventInit -> m DeviceMotionEventRotationRateInit +getRotationRateUnsafe self = liftDOM ((((js_getRotationRate (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getRotationRateUnchecked :: (MonadDOM m) => DeviceMotionEventInit -> m DeviceMotionEventRotationRateInit +getRotationRateUnchecked self = liftDOM ((pFromJSVal <$> (js_getRotationRate (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"interval\"] = $2; })" + js_setInterval :: DeviceMotionEventInit -> Double -> IO () +-- | +setInterval :: (MonadDOM m) => DeviceMotionEventInit -> Double -> m () +setInterval self val = liftDOM (void ((js_setInterval (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"interval\"]; })" + js_getInterval :: DeviceMotionEventInit -> IO JSVal +-- | +getInterval :: (MonadDOM m) => DeviceMotionEventInit -> m (Maybe Double) +getInterval self = liftDOM (((js_getInterval (self)) >>= fromJSValUnchecked)) + +-- | +getIntervalUnsafe :: (MonadDOM m, HasCallStack) => DeviceMotionEventInit -> m Double +getIntervalUnsafe self = liftDOM ((((js_getInterval (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getIntervalUnchecked :: (MonadDOM m) => DeviceMotionEventInit -> m Double +getIntervalUnchecked self = liftDOM ((pFromJSVal <$> (js_getInterval (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/DeviceMotionEventRotationRate.hs b/src/GHCJS/DOM/JSFFI/Generated/DeviceMotionEventRotationRate.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/DeviceMotionEventRotationRate.hs @@ -0,0 +1,59 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from orientation-event (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.DeviceMotionEventRotationRate + (js_getAlpha, js_getBeta, js_getGamma, getAlpha, getAlphaUnsafe, getAlphaUnchecked, getBeta, getBetaUnsafe, getBetaUnchecked, getGamma, getGammaUnsafe, getGammaUnchecked, DeviceMotionEventRotationRate(..), gTypeDeviceMotionEventRotationRate) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript unsafe "(($1) => { return $1[\"alpha\"]; })" + js_getAlpha :: DeviceMotionEventRotationRate -> IO JSVal +-- | +getAlpha :: (MonadDOM m) => DeviceMotionEventRotationRate -> m (Maybe Double) +getAlpha self = liftDOM (((js_getAlpha (self)) >>= fromJSValUnchecked)) + +-- | +getAlphaUnsafe :: (MonadDOM m, HasCallStack) => DeviceMotionEventRotationRate -> m Double +getAlphaUnsafe self = liftDOM ((((js_getAlpha (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getAlphaUnchecked :: (MonadDOM m) => DeviceMotionEventRotationRate -> m Double +getAlphaUnchecked self = liftDOM ((pFromJSVal <$> (js_getAlpha (self)))) + +foreign import javascript unsafe "(($1) => { return $1[\"beta\"]; })" + js_getBeta :: DeviceMotionEventRotationRate -> IO JSVal +-- | +getBeta :: (MonadDOM m) => DeviceMotionEventRotationRate -> m (Maybe Double) +getBeta self = liftDOM (((js_getBeta (self)) >>= fromJSValUnchecked)) + +-- | +getBetaUnsafe :: (MonadDOM m, HasCallStack) => DeviceMotionEventRotationRate -> m Double +getBetaUnsafe self = liftDOM ((((js_getBeta (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getBetaUnchecked :: (MonadDOM m) => DeviceMotionEventRotationRate -> m Double +getBetaUnchecked self = liftDOM ((pFromJSVal <$> (js_getBeta (self)))) + +foreign import javascript unsafe "(($1) => { return $1[\"gamma\"]; })" + js_getGamma :: DeviceMotionEventRotationRate -> IO JSVal +-- | +getGamma :: (MonadDOM m) => DeviceMotionEventRotationRate -> m (Maybe Double) +getGamma self = liftDOM (((js_getGamma (self)) >>= fromJSValUnchecked)) + +-- | +getGammaUnsafe :: (MonadDOM m, HasCallStack) => DeviceMotionEventRotationRate -> m Double +getGammaUnsafe self = liftDOM ((((js_getGamma (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getGammaUnchecked :: (MonadDOM m) => DeviceMotionEventRotationRate -> m Double +getGammaUnchecked self = liftDOM ((pFromJSVal <$> (js_getGamma (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/DeviceMotionEventRotationRateInit.hs b/src/GHCJS/DOM/JSFFI/Generated/DeviceMotionEventRotationRateInit.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/DeviceMotionEventRotationRateInit.hs @@ -0,0 +1,83 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from orientation-event (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.DeviceMotionEventRotationRateInit + (js_newDeviceMotionEventRotationRateInit, js_setAlpha, js_getAlpha, js_setBeta, js_getBeta, js_setGamma, js_getGamma, newDeviceMotionEventRotationRateInit, setAlpha, getAlpha, getAlphaUnsafe, getAlphaUnchecked, setBeta, getBeta, getBetaUnsafe, getBetaUnchecked, setGamma, getGamma, getGammaUnsafe, getGammaUnchecked, DeviceMotionEventRotationRateInit(..), gTypeDeviceMotionEventRotationRateInit) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(() => { return ({}); })" + js_newDeviceMotionEventRotationRateInit :: IO DeviceMotionEventRotationRateInit +-- | +newDeviceMotionEventRotationRateInit :: (MonadDOM m) => m DeviceMotionEventRotationRateInit +newDeviceMotionEventRotationRateInit = liftDOM ((js_newDeviceMotionEventRotationRateInit)) + +foreign import javascript safe "(($1, $2) => { $1[\"alpha\"] = $2; })" + js_setAlpha :: DeviceMotionEventRotationRateInit -> JSVal -> IO () +-- | +setAlpha :: (MonadDOM m) => DeviceMotionEventRotationRateInit -> Maybe Double -> m () +setAlpha self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setAlpha (self) a2'))) + +foreign import javascript unsafe "(($1) => { return $1[\"alpha\"]; })" + js_getAlpha :: DeviceMotionEventRotationRateInit -> IO JSVal +-- | +getAlpha :: (MonadDOM m) => DeviceMotionEventRotationRateInit -> m (Maybe Double) +getAlpha self = liftDOM (((js_getAlpha (self)) >>= fromJSValUnchecked)) + +-- | +getAlphaUnsafe :: (MonadDOM m, HasCallStack) => DeviceMotionEventRotationRateInit -> m Double +getAlphaUnsafe self = liftDOM ((((js_getAlpha (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getAlphaUnchecked :: (MonadDOM m) => DeviceMotionEventRotationRateInit -> m Double +getAlphaUnchecked self = liftDOM ((pFromJSVal <$> (js_getAlpha (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"beta\"] = $2; })" + js_setBeta :: DeviceMotionEventRotationRateInit -> JSVal -> IO () +-- | +setBeta :: (MonadDOM m) => DeviceMotionEventRotationRateInit -> Maybe Double -> m () +setBeta self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setBeta (self) a2'))) + +foreign import javascript unsafe "(($1) => { return $1[\"beta\"]; })" + js_getBeta :: DeviceMotionEventRotationRateInit -> IO JSVal +-- | +getBeta :: (MonadDOM m) => DeviceMotionEventRotationRateInit -> m (Maybe Double) +getBeta self = liftDOM (((js_getBeta (self)) >>= fromJSValUnchecked)) + +-- | +getBetaUnsafe :: (MonadDOM m, HasCallStack) => DeviceMotionEventRotationRateInit -> m Double +getBetaUnsafe self = liftDOM ((((js_getBeta (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getBetaUnchecked :: (MonadDOM m) => DeviceMotionEventRotationRateInit -> m Double +getBetaUnchecked self = liftDOM ((pFromJSVal <$> (js_getBeta (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"gamma\"] = $2; })" + js_setGamma :: DeviceMotionEventRotationRateInit -> JSVal -> IO () +-- | +setGamma :: (MonadDOM m) => DeviceMotionEventRotationRateInit -> Maybe Double -> m () +setGamma self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setGamma (self) a2'))) + +foreign import javascript unsafe "(($1) => { return $1[\"gamma\"]; })" + js_getGamma :: DeviceMotionEventRotationRateInit -> IO JSVal +-- | +getGamma :: (MonadDOM m) => DeviceMotionEventRotationRateInit -> m (Maybe Double) +getGamma self = liftDOM (((js_getGamma (self)) >>= fromJSValUnchecked)) + +-- | +getGammaUnsafe :: (MonadDOM m, HasCallStack) => DeviceMotionEventRotationRateInit -> m Double +getGammaUnsafe self = liftDOM ((((js_getGamma (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getGammaUnchecked :: (MonadDOM m) => DeviceMotionEventRotationRateInit -> m Double +getGammaUnchecked self = liftDOM ((pFromJSVal <$> (js_getGamma (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/DeviceOrientationEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/DeviceOrientationEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/DeviceOrientationEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/DeviceOrientationEvent.hs @@ -1,150 +1,71 @@ {-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE JavaScriptFFI #-} --- For HasCallStack compatibility +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from orientation-event (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.DeviceOrientationEvent - (js_initDeviceOrientationEvent, initDeviceOrientationEvent, - js_getAlpha, getAlpha, getAlphaUnsafe, getAlphaUnchecked, - js_getBeta, getBeta, getBetaUnsafe, getBetaUnchecked, js_getGamma, - getGamma, getGammaUnsafe, getGammaUnchecked, js_getAbsolute, - getAbsolute, getAbsoluteUnsafe, getAbsoluteUnchecked, - DeviceOrientationEvent(..), gTypeDeviceOrientationEvent) + (js_newDeviceOrientationEvent, js_getAlpha, js_getBeta, js_getGamma, js_getAbsolute, newDeviceOrientationEvent, getAlpha, getAlphaUnsafe, getAlphaUnchecked, getBeta, getBetaUnsafe, getBetaUnchecked, getGamma, getGammaUnsafe, getGammaUnchecked, getAbsolute, DeviceOrientationEvent(..), gTypeDeviceOrientationEvent) where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull, jsUndefined) -import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import Data.Maybe (fromJust) -import Data.Traversable (mapM) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types -import Control.Applicative ((<$>)) +import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums - -foreign import javascript unsafe - "(($1, $2, $3, $4, $5, $6, $7, $8) => { return $1[\"initDeviceOrientationEvent\"]($2,\n$3, $4, $5, $6, $7, $8); })" - js_initDeviceOrientationEvent :: - DeviceOrientationEvent -> - Optional JSString -> - Bool -> - Bool -> - Optional Double -> - Optional Double -> Optional Double -> Optional Bool -> IO () --- | -initDeviceOrientationEvent :: - (MonadIO m, ToJSString type') => - DeviceOrientationEvent -> - Maybe type' -> - Bool -> - Bool -> - Maybe Double -> - Maybe Double -> Maybe Double -> Maybe Bool -> m () -initDeviceOrientationEvent self type' bubbles cancelable alpha beta - gamma absolute - = liftIO - (js_initDeviceOrientationEvent self (toOptionalJSString type') - bubbles - cancelable - (maybeToOptional alpha) - (maybeToOptional beta) - (maybeToOptional gamma) - (maybeToOptional absolute)) - -foreign import javascript unsafe "(($1) => { return $1[\"alpha\"]; })" js_getAlpha :: - DeviceOrientationEvent -> IO (Nullable Double) - --- | -getAlpha :: - (MonadIO m) => DeviceOrientationEvent -> m (Maybe Double) -getAlpha self = liftIO (nullableToMaybe <$> (js_getAlpha self)) - --- | -getAlphaUnsafe :: - (MonadIO m, HasCallStack) => DeviceOrientationEvent -> m Double -getAlphaUnsafe self - = liftIO - ((nullableToMaybe <$> (js_getAlpha self)) >>= - maybe (Prelude.error "Nothing to return") return) +foreign import javascript safe "(($1, $2) => { return new globalThis[\"DeviceOrientationEvent\"]($1, $2); })" + js_newDeviceOrientationEvent :: JSString -> JSVal -> IO DeviceOrientationEvent +-- | +newDeviceOrientationEvent :: (MonadDOM m, ToJSString type') => type' -> Maybe DeviceOrientationEventInit -> m DeviceOrientationEvent +newDeviceOrientationEvent type' eventInitDict = liftDOM (((P.maybe (P.return jsUndefined) toJSVal eventInitDict) >>= \a2' -> js_newDeviceOrientationEvent (toJSString type') a2')) --- | -getAlphaUnchecked :: - (MonadIO m) => DeviceOrientationEvent -> m Double -getAlphaUnchecked self - = liftIO (fromJust . nullableToMaybe <$> (js_getAlpha self)) - -foreign import javascript unsafe "(($1) => { return $1[\"beta\"]; })" js_getBeta :: - DeviceOrientationEvent -> IO (Nullable Double) +foreign import javascript unsafe "(($1) => { return $1[\"alpha\"]; })" + js_getAlpha :: DeviceOrientationEvent -> IO JSVal +-- | +getAlpha :: (MonadDOM m) => DeviceOrientationEvent -> m (Maybe Double) +getAlpha self = liftDOM (((js_getAlpha (self)) >>= fromJSValUnchecked)) --- | -getBeta :: - (MonadIO m) => DeviceOrientationEvent -> m (Maybe Double) -getBeta self = liftIO (nullableToMaybe <$> (js_getBeta self)) +-- | +getAlphaUnsafe :: (MonadDOM m, HasCallStack) => DeviceOrientationEvent -> m Double +getAlphaUnsafe self = liftDOM ((((js_getAlpha (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) --- | -getBetaUnsafe :: - (MonadIO m, HasCallStack) => DeviceOrientationEvent -> m Double -getBetaUnsafe self - = liftIO - ((nullableToMaybe <$> (js_getBeta self)) >>= - maybe (Prelude.error "Nothing to return") return) +-- | +getAlphaUnchecked :: (MonadDOM m) => DeviceOrientationEvent -> m Double +getAlphaUnchecked self = liftDOM ((pFromJSVal <$> (js_getAlpha (self)))) --- | -getBetaUnchecked :: - (MonadIO m) => DeviceOrientationEvent -> m Double -getBetaUnchecked self - = liftIO (fromJust . nullableToMaybe <$> (js_getBeta self)) - -foreign import javascript unsafe "(($1) => { return $1[\"gamma\"]; })" js_getGamma :: - DeviceOrientationEvent -> IO (Nullable Double) +foreign import javascript unsafe "(($1) => { return $1[\"beta\"]; })" + js_getBeta :: DeviceOrientationEvent -> IO JSVal +-- | +getBeta :: (MonadDOM m) => DeviceOrientationEvent -> m (Maybe Double) +getBeta self = liftDOM (((js_getBeta (self)) >>= fromJSValUnchecked)) --- | -getGamma :: - (MonadIO m) => DeviceOrientationEvent -> m (Maybe Double) -getGamma self = liftIO (nullableToMaybe <$> (js_getGamma self)) +-- | +getBetaUnsafe :: (MonadDOM m, HasCallStack) => DeviceOrientationEvent -> m Double +getBetaUnsafe self = liftDOM ((((js_getBeta (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) --- | -getGammaUnsafe :: - (MonadIO m, HasCallStack) => DeviceOrientationEvent -> m Double -getGammaUnsafe self - = liftIO - ((nullableToMaybe <$> (js_getGamma self)) >>= - maybe (Prelude.error "Nothing to return") return) +-- | +getBetaUnchecked :: (MonadDOM m) => DeviceOrientationEvent -> m Double +getBetaUnchecked self = liftDOM ((pFromJSVal <$> (js_getBeta (self)))) --- | -getGammaUnchecked :: - (MonadIO m) => DeviceOrientationEvent -> m Double -getGammaUnchecked self - = liftIO (fromJust . nullableToMaybe <$> (js_getGamma self)) - -foreign import javascript unsafe "(($1) => { return $1[\"absolute\"]; })" js_getAbsolute - :: DeviceOrientationEvent -> IO (Nullable Bool) +foreign import javascript unsafe "(($1) => { return $1[\"gamma\"]; })" + js_getGamma :: DeviceOrientationEvent -> IO JSVal +-- | +getGamma :: (MonadDOM m) => DeviceOrientationEvent -> m (Maybe Double) +getGamma self = liftDOM (((js_getGamma (self)) >>= fromJSValUnchecked)) --- | -getAbsolute :: - (MonadIO m) => DeviceOrientationEvent -> m (Maybe Bool) -getAbsolute self - = liftIO (nullableToMaybe <$> (js_getAbsolute self)) +-- | +getGammaUnsafe :: (MonadDOM m, HasCallStack) => DeviceOrientationEvent -> m Double +getGammaUnsafe self = liftDOM ((((js_getGamma (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) --- | -getAbsoluteUnsafe :: - (MonadIO m, HasCallStack) => DeviceOrientationEvent -> m Bool -getAbsoluteUnsafe self - = liftIO - ((nullableToMaybe <$> (js_getAbsolute self)) >>= - maybe (Prelude.error "Nothing to return") return) +-- | +getGammaUnchecked :: (MonadDOM m) => DeviceOrientationEvent -> m Double +getGammaUnchecked self = liftDOM ((pFromJSVal <$> (js_getGamma (self)))) --- | -getAbsoluteUnchecked :: - (MonadIO m) => DeviceOrientationEvent -> m Bool -getAbsoluteUnchecked self - = liftIO (fromJust . nullableToMaybe <$> (js_getAbsolute self)) +foreign import javascript unsafe "(($1) => { return $1[\"absolute\"]; })" + js_getAbsolute :: DeviceOrientationEvent -> IO Bool +-- | +getAbsolute :: (MonadDOM m) => DeviceOrientationEvent -> m Bool +getAbsolute self = liftDOM ((js_getAbsolute (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/DeviceOrientationEventInit.hs b/src/GHCJS/DOM/JSFFI/Generated/DeviceOrientationEventInit.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/DeviceOrientationEventInit.hs @@ -0,0 +1,103 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from orientation-event (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.DeviceOrientationEventInit + (js_newDeviceOrientationEventInit, js_setAlpha, js_getAlpha, js_setBeta, js_getBeta, js_setGamma, js_getGamma, js_setAbsolute, js_getAbsolute, newDeviceOrientationEventInit, setAlpha, getAlpha, getAlphaUnsafe, getAlphaUnchecked, setBeta, getBeta, getBetaUnsafe, getBetaUnchecked, setGamma, getGamma, getGammaUnsafe, getGammaUnchecked, setAbsolute, getAbsolute, getAbsoluteUnsafe, getAbsoluteUnchecked, DeviceOrientationEventInit(..), gTypeDeviceOrientationEventInit) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(() => { return ({}); })" + js_newDeviceOrientationEventInit :: IO DeviceOrientationEventInit +-- | +newDeviceOrientationEventInit :: (MonadDOM m) => m DeviceOrientationEventInit +newDeviceOrientationEventInit = liftDOM ((js_newDeviceOrientationEventInit)) + +foreign import javascript safe "(($1, $2) => { $1[\"alpha\"] = $2; })" + js_setAlpha :: DeviceOrientationEventInit -> JSVal -> IO () +-- | +setAlpha :: (MonadDOM m) => DeviceOrientationEventInit -> Maybe Double -> m () +setAlpha self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setAlpha (self) a2'))) + +foreign import javascript unsafe "(($1) => { return $1[\"alpha\"]; })" + js_getAlpha :: DeviceOrientationEventInit -> IO JSVal +-- | +getAlpha :: (MonadDOM m) => DeviceOrientationEventInit -> m (Maybe Double) +getAlpha self = liftDOM (((js_getAlpha (self)) >>= fromJSValUnchecked)) + +-- | +getAlphaUnsafe :: (MonadDOM m, HasCallStack) => DeviceOrientationEventInit -> m Double +getAlphaUnsafe self = liftDOM ((((js_getAlpha (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getAlphaUnchecked :: (MonadDOM m) => DeviceOrientationEventInit -> m Double +getAlphaUnchecked self = liftDOM ((pFromJSVal <$> (js_getAlpha (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"beta\"] = $2; })" + js_setBeta :: DeviceOrientationEventInit -> JSVal -> IO () +-- | +setBeta :: (MonadDOM m) => DeviceOrientationEventInit -> Maybe Double -> m () +setBeta self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setBeta (self) a2'))) + +foreign import javascript unsafe "(($1) => { return $1[\"beta\"]; })" + js_getBeta :: DeviceOrientationEventInit -> IO JSVal +-- | +getBeta :: (MonadDOM m) => DeviceOrientationEventInit -> m (Maybe Double) +getBeta self = liftDOM (((js_getBeta (self)) >>= fromJSValUnchecked)) + +-- | +getBetaUnsafe :: (MonadDOM m, HasCallStack) => DeviceOrientationEventInit -> m Double +getBetaUnsafe self = liftDOM ((((js_getBeta (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getBetaUnchecked :: (MonadDOM m) => DeviceOrientationEventInit -> m Double +getBetaUnchecked self = liftDOM ((pFromJSVal <$> (js_getBeta (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"gamma\"] = $2; })" + js_setGamma :: DeviceOrientationEventInit -> JSVal -> IO () +-- | +setGamma :: (MonadDOM m) => DeviceOrientationEventInit -> Maybe Double -> m () +setGamma self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setGamma (self) a2'))) + +foreign import javascript unsafe "(($1) => { return $1[\"gamma\"]; })" + js_getGamma :: DeviceOrientationEventInit -> IO JSVal +-- | +getGamma :: (MonadDOM m) => DeviceOrientationEventInit -> m (Maybe Double) +getGamma self = liftDOM (((js_getGamma (self)) >>= fromJSValUnchecked)) + +-- | +getGammaUnsafe :: (MonadDOM m, HasCallStack) => DeviceOrientationEventInit -> m Double +getGammaUnsafe self = liftDOM ((((js_getGamma (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getGammaUnchecked :: (MonadDOM m) => DeviceOrientationEventInit -> m Double +getGammaUnchecked self = liftDOM ((pFromJSVal <$> (js_getGamma (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"absolute\"] = $2; })" + js_setAbsolute :: DeviceOrientationEventInit -> Bool -> IO () +-- | +setAbsolute :: (MonadDOM m) => DeviceOrientationEventInit -> Bool -> m () +setAbsolute self val = liftDOM (void ((js_setAbsolute (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"absolute\"]; })" + js_getAbsolute :: DeviceOrientationEventInit -> IO JSVal +-- | +getAbsolute :: (MonadDOM m) => DeviceOrientationEventInit -> m (Maybe Bool) +getAbsolute self = liftDOM (((js_getAbsolute (self)) >>= fromJSValUnchecked)) + +-- | +getAbsoluteUnsafe :: (MonadDOM m, HasCallStack) => DeviceOrientationEventInit -> m Bool +getAbsoluteUnsafe self = liftDOM ((((js_getAbsolute (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getAbsoluteUnchecked :: (MonadDOM m) => DeviceOrientationEventInit -> m Bool +getAbsoluteUnchecked self = liftDOM ((pFromJSVal <$> (js_getAbsolute (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/DeviceProximityEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/DeviceProximityEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/DeviceProximityEvent.hs +++ /dev/null @@ -1,64 +0,0 @@ -{-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE JavaScriptFFI #-} --- For HasCallStack compatibility -{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} -module GHCJS.DOM.JSFFI.Generated.DeviceProximityEvent - (js_newDeviceProximityEvent, newDeviceProximityEvent, js_getValue, - getValue, js_getMin, getMin, js_getMax, getMax, - DeviceProximityEvent(..), gTypeDeviceProximityEvent) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull, jsUndefined) -import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import Data.Maybe (fromJust) -import Data.Traversable (mapM) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) -import GHCJS.DOM.JSFFI.Generated.Enums - -foreign import javascript unsafe - "(($1, $2) => { return new window[\"DeviceProximityEvent\"]($1,\n$2); })" - js_newDeviceProximityEvent :: - JSString -> - Optional DeviceProximityEventInit -> IO DeviceProximityEvent - --- | -newDeviceProximityEvent :: - (MonadIO m, ToJSString type') => - type' -> Maybe DeviceProximityEventInit -> m DeviceProximityEvent -newDeviceProximityEvent type' eventInitDict - = liftIO - (js_newDeviceProximityEvent (toJSString type') - (maybeToOptional eventInitDict)) - -foreign import javascript unsafe "(($1) => { return $1[\"value\"]; })" js_getValue :: - DeviceProximityEvent -> IO Double - --- | -getValue :: (MonadIO m) => DeviceProximityEvent -> m Double -getValue self = liftIO (js_getValue self) - -foreign import javascript unsafe "(($1) => { return $1[\"min\"]; })" js_getMin :: - DeviceProximityEvent -> IO Double - --- | -getMin :: (MonadIO m) => DeviceProximityEvent -> m Double -getMin self = liftIO (js_getMin self) - -foreign import javascript unsafe "(($1) => { return $1[\"max\"]; })" js_getMax :: - DeviceProximityEvent -> IO Double - --- | -getMax :: (MonadIO m) => DeviceProximityEvent -> m Double -getMax self = liftIO (js_getMax self) diff --git a/src/GHCJS/DOM/JSFFI/Generated/DigitalCredential.hs b/src/GHCJS/DOM/JSFFI/Generated/DigitalCredential.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/DigitalCredential.hs @@ -0,0 +1,47 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from digital-credentials (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.DigitalCredential + (js_toJSON, js_userAgentAllowsProtocol, js_getProtocol, js_getData, toJSON, toJSON_, userAgentAllowsProtocol, userAgentAllowsProtocol_, getProtocol, getData, DigitalCredential(..), gTypeDigitalCredential) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1) => { return $1[\"toJSON\"](); })" + js_toJSON :: DigitalCredential -> IO GObject +toJSON :: (MonadDOM m) => DigitalCredential -> m GObject +toJSON self = liftDOM ((js_toJSON (self))) + +toJSON_ :: (MonadDOM m) => DigitalCredential -> m () +toJSON_ self = liftDOM (void ((js_toJSON (self)))) + +foreign import javascript safe "(($1) => { return globalThis[\"DigitalCredential\"][\"userAgentAllowsProtocol\"]($1); })" + js_userAgentAllowsProtocol :: JSString -> IO Bool +-- | +userAgentAllowsProtocol :: (MonadDOM m, ToJSString protocol) => protocol -> m Bool +userAgentAllowsProtocol protocol = liftDOM ((js_userAgentAllowsProtocol (toJSString protocol))) + +-- | +userAgentAllowsProtocol_ :: (MonadDOM m, ToJSString protocol) => protocol -> m () +userAgentAllowsProtocol_ protocol = liftDOM (void ((js_userAgentAllowsProtocol (toJSString protocol)))) + +foreign import javascript unsafe "(($1) => { return $1[\"protocol\"]; })" + js_getProtocol :: DigitalCredential -> IO DigitalCredentialProtocol +-- | +getProtocol :: (MonadDOM m) => DigitalCredential -> m DigitalCredentialProtocol +getProtocol self = liftDOM ((js_getProtocol (self))) + +foreign import javascript unsafe "(($1) => { return $1[\"data\"]; })" + js_getData :: DigitalCredential -> IO GObject +-- | +getData :: (MonadDOM m) => DigitalCredential -> m GObject +getData self = liftDOM ((js_getData (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/DigitalCredentialCreateRequest.hs b/src/GHCJS/DOM/JSFFI/Generated/DigitalCredentialCreateRequest.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/DigitalCredentialCreateRequest.hs @@ -0,0 +1,47 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from digital-credentials (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.DigitalCredentialCreateRequest + (js_newDigitalCredentialCreateRequest, js_setProtocol, js_getProtocol, js_setData, js_getData, newDigitalCredentialCreateRequest, setProtocol, getProtocol, setData, getData, DigitalCredentialCreateRequest(..), gTypeDigitalCredentialCreateRequest) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1, $2) => { return ({\"protocol\": $1, \"data\": $2}); })" + js_newDigitalCredentialCreateRequest :: JSString -> GObject -> IO DigitalCredentialCreateRequest +-- | +newDigitalCredentialCreateRequest :: (MonadDOM m, ToJSString protocol) => protocol -> GObject -> m DigitalCredentialCreateRequest +newDigitalCredentialCreateRequest protocol data' = liftDOM ((js_newDigitalCredentialCreateRequest (toJSString protocol) (data'))) + +foreign import javascript safe "(($1, $2) => { $1[\"protocol\"] = $2; })" + js_setProtocol :: DigitalCredentialCreateRequest -> JSString -> IO () +-- | +setProtocol :: (MonadDOM m, ToJSString val) => DigitalCredentialCreateRequest -> val -> m () +setProtocol self val = liftDOM (void ((js_setProtocol (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"protocol\"]; })" + js_getProtocol :: DigitalCredentialCreateRequest -> IO JSString +-- | +getProtocol :: (MonadDOM m, FromJSString result) => DigitalCredentialCreateRequest -> m result +getProtocol self = liftDOM ((fromJSString <$> (js_getProtocol (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"data\"] = $2; })" + js_setData :: DigitalCredentialCreateRequest -> GObject -> IO () +-- | +setData :: (MonadDOM m) => DigitalCredentialCreateRequest -> GObject -> m () +setData self val = liftDOM (void ((js_setData (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"data\"]; })" + js_getData :: DigitalCredentialCreateRequest -> IO GObject +-- | +getData :: (MonadDOM m) => DigitalCredentialCreateRequest -> m GObject +getData self = liftDOM ((js_getData (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/DigitalCredentialCreationOptions.hs b/src/GHCJS/DOM/JSFFI/Generated/DigitalCredentialCreationOptions.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/DigitalCredentialCreationOptions.hs @@ -0,0 +1,35 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from digital-credentials (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.DigitalCredentialCreationOptions + (js_newDigitalCredentialCreationOptions, js_setRequests, js_getRequests, newDigitalCredentialCreationOptions, setRequests, getRequests, DigitalCredentialCreationOptions(..), gTypeDigitalCredentialCreationOptions) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1) => { return ({\"requests\": $1}); })" + js_newDigitalCredentialCreationOptions :: JSVal -> IO DigitalCredentialCreationOptions +-- | +newDigitalCredentialCreationOptions :: (MonadDOM m) => [DigitalCredentialCreateRequest] -> m DigitalCredentialCreationOptions +newDigitalCredentialCreationOptions requests = liftDOM (((toJSVal requests) >>= \a1' -> js_newDigitalCredentialCreationOptions a1')) + +foreign import javascript safe "(($1, $2) => { $1[\"requests\"] = $2; })" + js_setRequests :: DigitalCredentialCreationOptions -> JSVal -> IO () +-- | +setRequests :: (MonadDOM m) => DigitalCredentialCreationOptions -> [DigitalCredentialCreateRequest] -> m () +setRequests self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setRequests (self) a2'))) + +foreign import javascript unsafe "(($1) => { return $1[\"requests\"]; })" + js_getRequests :: DigitalCredentialCreationOptions -> IO JSVal +-- | +getRequests :: (MonadDOM m) => DigitalCredentialCreationOptions -> m [DigitalCredentialCreateRequest] +getRequests self = liftDOM (((js_getRequests (self)) >>= fromJSValUnchecked)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/DigitalCredentialGetRequest.hs b/src/GHCJS/DOM/JSFFI/Generated/DigitalCredentialGetRequest.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/DigitalCredentialGetRequest.hs @@ -0,0 +1,47 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from digital-credentials (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.DigitalCredentialGetRequest + (js_newDigitalCredentialGetRequest, js_setProtocol, js_getProtocol, js_setData, js_getData, newDigitalCredentialGetRequest, setProtocol, getProtocol, setData, getData, DigitalCredentialGetRequest(..), gTypeDigitalCredentialGetRequest) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1, $2) => { return ({\"protocol\": $1, \"data\": $2}); })" + js_newDigitalCredentialGetRequest :: JSString -> GObject -> IO DigitalCredentialGetRequest +-- | +newDigitalCredentialGetRequest :: (MonadDOM m, ToJSString protocol) => protocol -> GObject -> m DigitalCredentialGetRequest +newDigitalCredentialGetRequest protocol data' = liftDOM ((js_newDigitalCredentialGetRequest (toJSString protocol) (data'))) + +foreign import javascript safe "(($1, $2) => { $1[\"protocol\"] = $2; })" + js_setProtocol :: DigitalCredentialGetRequest -> JSString -> IO () +-- | +setProtocol :: (MonadDOM m, ToJSString val) => DigitalCredentialGetRequest -> val -> m () +setProtocol self val = liftDOM (void ((js_setProtocol (self) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"protocol\"]; })" + js_getProtocol :: DigitalCredentialGetRequest -> IO JSString +-- | +getProtocol :: (MonadDOM m, FromJSString result) => DigitalCredentialGetRequest -> m result +getProtocol self = liftDOM ((fromJSString <$> (js_getProtocol (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"data\"] = $2; })" + js_setData :: DigitalCredentialGetRequest -> GObject -> IO () +-- | +setData :: (MonadDOM m) => DigitalCredentialGetRequest -> GObject -> m () +setData self val = liftDOM (void ((js_setData (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"data\"]; })" + js_getData :: DigitalCredentialGetRequest -> IO GObject +-- | +getData :: (MonadDOM m) => DigitalCredentialGetRequest -> m GObject +getData self = liftDOM ((js_getData (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/DigitalCredentialRequestOptions.hs b/src/GHCJS/DOM/JSFFI/Generated/DigitalCredentialRequestOptions.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/DigitalCredentialRequestOptions.hs @@ -0,0 +1,35 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from digital-credentials (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.DigitalCredentialRequestOptions + (js_newDigitalCredentialRequestOptions, js_setRequests, js_getRequests, newDigitalCredentialRequestOptions, setRequests, getRequests, DigitalCredentialRequestOptions(..), gTypeDigitalCredentialRequestOptions) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(($1) => { return ({\"requests\": $1}); })" + js_newDigitalCredentialRequestOptions :: JSVal -> IO DigitalCredentialRequestOptions +-- | +newDigitalCredentialRequestOptions :: (MonadDOM m) => [DigitalCredentialGetRequest] -> m DigitalCredentialRequestOptions +newDigitalCredentialRequestOptions requests = liftDOM (((toJSVal requests) >>= \a1' -> js_newDigitalCredentialRequestOptions a1')) + +foreign import javascript safe "(($1, $2) => { $1[\"requests\"] = $2; })" + js_setRequests :: DigitalCredentialRequestOptions -> JSVal -> IO () +-- | +setRequests :: (MonadDOM m) => DigitalCredentialRequestOptions -> [DigitalCredentialGetRequest] -> m () +setRequests self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setRequests (self) a2'))) + +foreign import javascript unsafe "(($1) => { return $1[\"requests\"]; })" + js_getRequests :: DigitalCredentialRequestOptions -> IO JSVal +-- | +getRequests :: (MonadDOM m) => DigitalCredentialRequestOptions -> m [DigitalCredentialGetRequest] +getRequests self = liftDOM (((js_getRequests (self)) >>= fromJSValUnchecked)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/DisplayMediaStreamOptions.hs b/src/GHCJS/DOM/JSFFI/Generated/DisplayMediaStreamOptions.hs new file mode 100644 --- /dev/null +++ b/src/GHCJS/DOM/JSFFI/Generated/DisplayMediaStreamOptions.hs @@ -0,0 +1,203 @@ +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from screen-capture (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.DisplayMediaStreamOptions + (js_newDisplayMediaStreamOptions, js_setVideo, js_getVideo, js_setAudio, js_getAudio, js_setController, js_getController, js_setSelfBrowserSurface, js_getSelfBrowserSurface, js_setSystemAudio, js_getSystemAudio, js_setWindowAudio, js_getWindowAudio, js_setSurfaceSwitching, js_getSurfaceSwitching, js_setMonitorTypeSurfaces, js_getMonitorTypeSurfaces, js_setAudioSelection, js_getAudioSelection, newDisplayMediaStreamOptions, setVideo, getVideo, getVideoUnsafe, getVideoUnchecked, setAudio, getAudio, getAudioUnsafe, getAudioUnchecked, setController, getController, getControllerUnsafe, getControllerUnchecked, setSelfBrowserSurface, getSelfBrowserSurface, getSelfBrowserSurfaceUnsafe, getSelfBrowserSurfaceUnchecked, setSystemAudio, getSystemAudio, getSystemAudioUnsafe, getSystemAudioUnchecked, setWindowAudio, getWindowAudio, getWindowAudioUnsafe, getWindowAudioUnchecked, setSurfaceSwitching, getSurfaceSwitching, getSurfaceSwitchingUnsafe, getSurfaceSwitchingUnchecked, setMonitorTypeSurfaces, getMonitorTypeSurfaces, getMonitorTypeSurfacesUnsafe, getMonitorTypeSurfacesUnchecked, setAudioSelection, getAudioSelection, getAudioSelectionUnsafe, getAudioSelectionUnchecked, DisplayMediaStreamOptions(..), gTypeDisplayMediaStreamOptions) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(() => { return ({}); })" + js_newDisplayMediaStreamOptions :: IO DisplayMediaStreamOptions +-- | +newDisplayMediaStreamOptions :: (MonadDOM m) => m DisplayMediaStreamOptions +newDisplayMediaStreamOptions = liftDOM ((js_newDisplayMediaStreamOptions)) + +foreign import javascript safe "(($1, $2) => { $1[\"video\"] = $2; })" + js_setVideo :: DisplayMediaStreamOptions -> BoolOrMediaTrackConstraints -> IO () +-- | +setVideo :: (MonadDOM m, IsBoolOrMediaTrackConstraints val) => DisplayMediaStreamOptions -> val -> m () +setVideo self val = liftDOM (void ((js_setVideo (self) (Types.toBoolOrMediaTrackConstraints val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"video\"]; })" + js_getVideo :: DisplayMediaStreamOptions -> IO JSVal +-- | +getVideo :: (MonadDOM m) => DisplayMediaStreamOptions -> m (Maybe BoolOrMediaTrackConstraints) +getVideo self = liftDOM (((js_getVideo (self)) >>= fromJSValUnchecked)) + +-- | +getVideoUnsafe :: (MonadDOM m, HasCallStack) => DisplayMediaStreamOptions -> m BoolOrMediaTrackConstraints +getVideoUnsafe self = liftDOM ((((js_getVideo (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getVideoUnchecked :: (MonadDOM m) => DisplayMediaStreamOptions -> m BoolOrMediaTrackConstraints +getVideoUnchecked self = liftDOM ((pFromJSVal <$> (js_getVideo (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"audio\"] = $2; })" + js_setAudio :: DisplayMediaStreamOptions -> BoolOrMediaTrackConstraints -> IO () +-- | +setAudio :: (MonadDOM m, IsBoolOrMediaTrackConstraints val) => DisplayMediaStreamOptions -> val -> m () +setAudio self val = liftDOM (void ((js_setAudio (self) (Types.toBoolOrMediaTrackConstraints val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"audio\"]; })" + js_getAudio :: DisplayMediaStreamOptions -> IO JSVal +-- | +getAudio :: (MonadDOM m) => DisplayMediaStreamOptions -> m (Maybe BoolOrMediaTrackConstraints) +getAudio self = liftDOM (((js_getAudio (self)) >>= fromJSValUnchecked)) + +-- | +getAudioUnsafe :: (MonadDOM m, HasCallStack) => DisplayMediaStreamOptions -> m BoolOrMediaTrackConstraints +getAudioUnsafe self = liftDOM ((((js_getAudio (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getAudioUnchecked :: (MonadDOM m) => DisplayMediaStreamOptions -> m BoolOrMediaTrackConstraints +getAudioUnchecked self = liftDOM ((pFromJSVal <$> (js_getAudio (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"controller\"] = $2; })" + js_setController :: DisplayMediaStreamOptions -> CaptureController -> IO () +-- | +setController :: (MonadDOM m) => DisplayMediaStreamOptions -> CaptureController -> m () +setController self val = liftDOM (void ((js_setController (self) (val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"controller\"]; })" + js_getController :: DisplayMediaStreamOptions -> IO JSVal +-- | +getController :: (MonadDOM m) => DisplayMediaStreamOptions -> m (Maybe CaptureController) +getController self = liftDOM (((js_getController (self)) >>= fromJSValUnchecked)) + +-- | +getControllerUnsafe :: (MonadDOM m, HasCallStack) => DisplayMediaStreamOptions -> m CaptureController +getControllerUnsafe self = liftDOM ((((js_getController (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getControllerUnchecked :: (MonadDOM m) => DisplayMediaStreamOptions -> m CaptureController +getControllerUnchecked self = liftDOM ((pFromJSVal <$> (js_getController (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"selfBrowserSurface\"] = $2; })" + js_setSelfBrowserSurface :: DisplayMediaStreamOptions -> JSVal -> IO () +-- | +setSelfBrowserSurface :: (MonadDOM m) => DisplayMediaStreamOptions -> SelfCapturePreferenceEnum -> m () +setSelfBrowserSurface self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setSelfBrowserSurface (self) a2'))) + +foreign import javascript unsafe "(($1) => { return $1[\"selfBrowserSurface\"]; })" + js_getSelfBrowserSurface :: DisplayMediaStreamOptions -> IO JSVal +-- | +getSelfBrowserSurface :: (MonadDOM m) => DisplayMediaStreamOptions -> m (Maybe SelfCapturePreferenceEnum) +getSelfBrowserSurface self = liftDOM (((js_getSelfBrowserSurface (self)) >>= fromJSValUnchecked)) + +-- | +getSelfBrowserSurfaceUnsafe :: (MonadDOM m, HasCallStack) => DisplayMediaStreamOptions -> m SelfCapturePreferenceEnum +getSelfBrowserSurfaceUnsafe self = liftDOM ((((js_getSelfBrowserSurface (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getSelfBrowserSurfaceUnchecked :: (MonadDOM m) => DisplayMediaStreamOptions -> m SelfCapturePreferenceEnum +getSelfBrowserSurfaceUnchecked self = liftDOM ((pFromJSVal <$> (js_getSelfBrowserSurface (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"systemAudio\"] = $2; })" + js_setSystemAudio :: DisplayMediaStreamOptions -> JSVal -> IO () +-- | +setSystemAudio :: (MonadDOM m) => DisplayMediaStreamOptions -> SystemAudioPreferenceEnum -> m () +setSystemAudio self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setSystemAudio (self) a2'))) + +foreign import javascript unsafe "(($1) => { return $1[\"systemAudio\"]; })" + js_getSystemAudio :: DisplayMediaStreamOptions -> IO JSVal +-- | +getSystemAudio :: (MonadDOM m) => DisplayMediaStreamOptions -> m (Maybe SystemAudioPreferenceEnum) +getSystemAudio self = liftDOM (((js_getSystemAudio (self)) >>= fromJSValUnchecked)) + +-- | +getSystemAudioUnsafe :: (MonadDOM m, HasCallStack) => DisplayMediaStreamOptions -> m SystemAudioPreferenceEnum +getSystemAudioUnsafe self = liftDOM ((((js_getSystemAudio (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getSystemAudioUnchecked :: (MonadDOM m) => DisplayMediaStreamOptions -> m SystemAudioPreferenceEnum +getSystemAudioUnchecked self = liftDOM ((pFromJSVal <$> (js_getSystemAudio (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"windowAudio\"] = $2; })" + js_setWindowAudio :: DisplayMediaStreamOptions -> JSVal -> IO () +-- | +setWindowAudio :: (MonadDOM m) => DisplayMediaStreamOptions -> WindowAudioPreferenceEnum -> m () +setWindowAudio self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setWindowAudio (self) a2'))) + +foreign import javascript unsafe "(($1) => { return $1[\"windowAudio\"]; })" + js_getWindowAudio :: DisplayMediaStreamOptions -> IO JSVal +-- | +getWindowAudio :: (MonadDOM m) => DisplayMediaStreamOptions -> m (Maybe WindowAudioPreferenceEnum) +getWindowAudio self = liftDOM (((js_getWindowAudio (self)) >>= fromJSValUnchecked)) + +-- | +getWindowAudioUnsafe :: (MonadDOM m, HasCallStack) => DisplayMediaStreamOptions -> m WindowAudioPreferenceEnum +getWindowAudioUnsafe self = liftDOM ((((js_getWindowAudio (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getWindowAudioUnchecked :: (MonadDOM m) => DisplayMediaStreamOptions -> m WindowAudioPreferenceEnum +getWindowAudioUnchecked self = liftDOM ((pFromJSVal <$> (js_getWindowAudio (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"surfaceSwitching\"] = $2; })" + js_setSurfaceSwitching :: DisplayMediaStreamOptions -> JSVal -> IO () +-- | +setSurfaceSwitching :: (MonadDOM m) => DisplayMediaStreamOptions -> SurfaceSwitchingPreferenceEnum -> m () +setSurfaceSwitching self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setSurfaceSwitching (self) a2'))) + +foreign import javascript unsafe "(($1) => { return $1[\"surfaceSwitching\"]; })" + js_getSurfaceSwitching :: DisplayMediaStreamOptions -> IO JSVal +-- | +getSurfaceSwitching :: (MonadDOM m) => DisplayMediaStreamOptions -> m (Maybe SurfaceSwitchingPreferenceEnum) +getSurfaceSwitching self = liftDOM (((js_getSurfaceSwitching (self)) >>= fromJSValUnchecked)) + +-- | +getSurfaceSwitchingUnsafe :: (MonadDOM m, HasCallStack) => DisplayMediaStreamOptions -> m SurfaceSwitchingPreferenceEnum +getSurfaceSwitchingUnsafe self = liftDOM ((((js_getSurfaceSwitching (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getSurfaceSwitchingUnchecked :: (MonadDOM m) => DisplayMediaStreamOptions -> m SurfaceSwitchingPreferenceEnum +getSurfaceSwitchingUnchecked self = liftDOM ((pFromJSVal <$> (js_getSurfaceSwitching (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"monitorTypeSurfaces\"] = $2; })" + js_setMonitorTypeSurfaces :: DisplayMediaStreamOptions -> JSVal -> IO () +-- | +setMonitorTypeSurfaces :: (MonadDOM m) => DisplayMediaStreamOptions -> MonitorTypeSurfacesEnum -> m () +setMonitorTypeSurfaces self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setMonitorTypeSurfaces (self) a2'))) + +foreign import javascript unsafe "(($1) => { return $1[\"monitorTypeSurfaces\"]; })" + js_getMonitorTypeSurfaces :: DisplayMediaStreamOptions -> IO JSVal +-- | +getMonitorTypeSurfaces :: (MonadDOM m) => DisplayMediaStreamOptions -> m (Maybe MonitorTypeSurfacesEnum) +getMonitorTypeSurfaces self = liftDOM (((js_getMonitorTypeSurfaces (self)) >>= fromJSValUnchecked)) + +-- | +getMonitorTypeSurfacesUnsafe :: (MonadDOM m, HasCallStack) => DisplayMediaStreamOptions -> m MonitorTypeSurfacesEnum +getMonitorTypeSurfacesUnsafe self = liftDOM ((((js_getMonitorTypeSurfaces (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getMonitorTypeSurfacesUnchecked :: (MonadDOM m) => DisplayMediaStreamOptions -> m MonitorTypeSurfacesEnum +getMonitorTypeSurfacesUnchecked self = liftDOM ((pFromJSVal <$> (js_getMonitorTypeSurfaces (self)))) + +foreign import javascript safe "(($1, $2) => { $1[\"audioSelection\"] = $2; })" + js_setAudioSelection :: DisplayMediaStreamOptions -> JSVal -> IO () +-- | +setAudioSelection :: (MonadDOM m) => DisplayMediaStreamOptions -> AudioSelectionPreferenceEnum -> m () +setAudioSelection self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setAudioSelection (self) a2'))) + +foreign import javascript unsafe "(($1) => { return $1[\"audioSelection\"]; })" + js_getAudioSelection :: DisplayMediaStreamOptions -> IO JSVal +-- | +getAudioSelection :: (MonadDOM m) => DisplayMediaStreamOptions -> m (Maybe AudioSelectionPreferenceEnum) +getAudioSelection self = liftDOM (((js_getAudioSelection (self)) >>= fromJSValUnchecked)) + +-- | +getAudioSelectionUnsafe :: (MonadDOM m, HasCallStack) => DisplayMediaStreamOptions -> m AudioSelectionPreferenceEnum +getAudioSelectionUnsafe self = liftDOM ((((js_getAudioSelection (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getAudioSelectionUnchecked :: (MonadDOM m) => DisplayMediaStreamOptions -> m AudioSelectionPreferenceEnum +getAudioSelectionUnchecked self = liftDOM ((pFromJSVal <$> (js_getAudioSelection (self)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/Document.hs b/src/GHCJS/DOM/JSFFI/Generated/Document.hs --- a/src/GHCJS/DOM/JSFFI/Generated/Document.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/Document.hs @@ -1,1850 +1,954 @@ {-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE JavaScriptFFI #-} --- For HasCallStack compatibility -{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} -module GHCJS.DOM.JSFFI.Generated.Document - (js_getAnimations, getAnimations, getAnimations_, js_newDocument, - newDocument, js_getElementsByTagName, getElementsByTagName, - getElementsByTagName_, js_getElementsByTagNameNS, - getElementsByTagNameNS, getElementsByTagNameNS_, - js_getElementsByClassName, getElementsByClassName, - getElementsByClassName_, js_createElement, createElement, - createElement_, js_createElementNS, createElementNS, - createElementNS_, js_createDocumentFragment, - createDocumentFragment, createDocumentFragment_, js_createTextNode, - createTextNode, createTextNode_, js_createCDATASection, - createCDATASection, createCDATASection_, js_createComment, - createComment, createComment_, js_createProcessingInstruction, - createProcessingInstruction, createProcessingInstruction_, - js_importNode, importNode, importNode_, js_adoptNode, adoptNode, - adoptNode_, js_createAttribute, createAttribute, createAttribute_, - js_createAttributeNS, createAttributeNS, createAttributeNS_, - js_createEvent, createEvent, createEvent_, js_createRange, - createRange, createRange_, js_createNodeIterator, - createNodeIterator, createNodeIterator_, js_createTreeWalker, - createTreeWalker, createTreeWalker_, js_getElementsByName, - getElementsByName, getElementsByName_, js_hasFocus, hasFocus, - hasFocus_, js_execCommand, execCommand, execCommand_, - js_queryCommandEnabled, queryCommandEnabled, queryCommandEnabled_, - js_queryCommandIndeterm, queryCommandIndeterm, - queryCommandIndeterm_, js_queryCommandState, queryCommandState, - queryCommandState_, js_queryCommandSupported, - queryCommandSupported, queryCommandSupported_, - js_queryCommandValue, queryCommandValue, queryCommandValue_, - js_getSelection, getSelection, getSelection_, getSelectionUnsafe, - getSelectionUnchecked, js_createExpression, createExpression, - createExpression_, js_createNSResolver, createNSResolver, - createNSResolver_, js_evaluate, evaluate, evaluate_, - js_webkitExitFullscreen, webkitExitFullscreen, - js_webkitCancelFullScreen, webkitCancelFullScreen, - js_exitPointerLock, exitPointerLock, js_getOverrideStyle, - getOverrideStyle, getOverrideStyle_, js_caretRangeFromPoint, - caretRangeFromPoint, caretRangeFromPoint_, js_getCSSCanvasContext, - getCSSCanvasContext, getCSSCanvasContext_, js_webkitGetNamedFlows, - webkitGetNamedFlows, webkitGetNamedFlows_, js_createTouch, - createTouch, createTouch_, js_createTouchList, createTouchList, - createTouchList_, js_getTimeline, getTimeline, - js_getImplementation, getImplementation, js_getURL, getURL, - js_getDocumentURI, getDocumentURI, js_getOrigin, getOrigin, - js_getCompatMode, getCompatMode, js_getCharacterSet, - getCharacterSet, js_getCharset, getCharset, js_getInputEncoding, - getInputEncoding, js_getContentType, getContentType, js_getDoctype, - getDoctype, getDoctypeUnsafe, getDoctypeUnchecked, - js_getDocumentElement, getDocumentElement, - getDocumentElementUnsafe, getDocumentElementUnchecked, - js_getLocation, getLocation, getLocationUnsafe, - getLocationUnchecked, js_setDomain, setDomain, js_getDomain, - getDomain, js_getReferrer, getReferrer, js_setCookie, setCookie, - js_getCookie, getCookie, js_getLastModified, getLastModified, - js_getReadyState, getReadyState, js_setTitle, setTitle, - js_getTitle, getTitle, js_setDir, setDir, js_getDir, getDir, - js_setBody, setBody, js_getBody, getBody, getBodyUnsafe, - getBodyUnchecked, js_getHead, getHead, getHeadUnsafe, - getHeadUnchecked, js_getImages, getImages, js_getEmbeds, getEmbeds, - js_getPlugins, getPlugins, js_getLinks, getLinks, js_getForms, - getForms, js_getScripts, getScripts, js_getCurrentScript, - getCurrentScript, getCurrentScriptUnsafe, - getCurrentScriptUnchecked, js_getDefaultView, getDefaultView, - getDefaultViewUnsafe, getDefaultViewUnchecked, js_setDesignMode, - setDesignMode, js_getDesignMode, getDesignMode, readyStateChange, - js_getStyleSheets, getStyleSheets, js_getScrollingElement, - getScrollingElement, getScrollingElementUnsafe, - getScrollingElementUnchecked, js_getWebkitFullscreenEnabled, - getWebkitFullscreenEnabled, js_getWebkitFullscreenElement, - getWebkitFullscreenElement, getWebkitFullscreenElementUnsafe, - getWebkitFullscreenElementUnchecked, js_getWebkitIsFullScreen, - getWebkitIsFullScreen, js_getWebkitFullScreenKeyboardInputAllowed, - getWebkitFullScreenKeyboardInputAllowed, - js_getWebkitCurrentFullScreenElement, - getWebkitCurrentFullScreenElement, webKitFullscreenChange, - webKitFullscreenError, pointerlockchange, pointerlockerror, - js_getFonts, getFonts, js_getHidden, getHidden, - js_getVisibilityState, getVisibilityState, visibilitychange, - js_getApplets, getApplets, js_getAnchors, getAnchors, - js_getPreferredStylesheetSet, getPreferredStylesheetSet, - getPreferredStylesheetSetUnsafe, - getPreferredStylesheetSetUnchecked, js_setSelectedStylesheetSet, - setSelectedStylesheetSet, js_getSelectedStylesheetSet, - getSelectedStylesheetSet, getSelectedStylesheetSetUnsafe, - getSelectedStylesheetSetUnchecked, js_getXmlEncoding, - getXmlEncoding, getXmlEncodingUnsafe, getXmlEncodingUnchecked, - js_setXmlVersion, setXmlVersion, js_getXmlVersion, getXmlVersion, - getXmlVersionUnsafe, getXmlVersionUnchecked, js_setXmlStandalone, - setXmlStandalone, js_getXmlStandalone, getXmlStandalone, - selectStart, selectionchange, js_getRootElement, getRootElement, - getRootElementUnsafe, getRootElementUnchecked, Document(..), - gTypeDocument, IsDocument, toDocument) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull, jsUndefined) -import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import Data.Maybe (fromJust) -import Data.Traversable (mapM) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) -import GHCJS.DOM.JSFFI.Generated.Enums - -foreign import javascript unsafe "(($1) => { return $1[\"getAnimations\"](); })" - js_getAnimations :: Document -> IO JSVal - --- | -getAnimations :: - (MonadIO m, IsDocument self) => self -> m [Animation] -getAnimations self - = liftIO - ((js_getAnimations (toDocument self)) >>= fromJSValUnchecked) - --- | -getAnimations_ :: (MonadIO m, IsDocument self) => self -> m () -getAnimations_ self - = liftIO (void (js_getAnimations (toDocument self))) - -foreign import javascript unsafe "(() => { return new window[\"Document\"](); })" - js_newDocument :: IO Document - --- | -newDocument :: (MonadIO m) => m Document -newDocument = liftIO (js_newDocument) - -foreign import javascript unsafe "(($1, $2) => { return $1[\"getElementsByTagName\"]($2); })" - js_getElementsByTagName :: - Document -> JSString -> IO HTMLCollection - --- | -getElementsByTagName :: - (MonadIO m, IsDocument self, ToJSString qualifiedName) => - self -> qualifiedName -> m HTMLCollection -getElementsByTagName self qualifiedName - = liftIO - (js_getElementsByTagName (toDocument self) - (toJSString qualifiedName)) - --- | -getElementsByTagName_ :: - (MonadIO m, IsDocument self, ToJSString qualifiedName) => - self -> qualifiedName -> m () -getElementsByTagName_ self qualifiedName - = liftIO - (void - (js_getElementsByTagName (toDocument self) - (toJSString qualifiedName))) - -foreign import javascript unsafe - "(($1, $2, $3) => { return $1[\"getElementsByTagNameNS\"]($2,\n$3); })" js_getElementsByTagNameNS - :: Document -> Optional JSString -> JSString -> IO HTMLCollection - --- | -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)) - --- | -getElementsByTagNameNS_ :: - (MonadIO m, IsDocument self, ToJSString namespaceURI, - ToJSString localName) => - self -> Maybe namespaceURI -> localName -> m () -getElementsByTagNameNS_ self namespaceURI localName - = liftIO - (void - (js_getElementsByTagNameNS (toDocument self) - (toOptionalJSString namespaceURI) - (toJSString localName))) - -foreign import javascript unsafe - "(($1, $2) => { return $1[\"getElementsByClassName\"]($2); })" js_getElementsByClassName :: - Document -> JSString -> IO HTMLCollection - --- | -getElementsByClassName :: - (MonadIO m, IsDocument self, ToJSString classNames) => - self -> classNames -> m HTMLCollection -getElementsByClassName self classNames - = liftIO - (js_getElementsByClassName (toDocument self) - (toJSString classNames)) - --- | -getElementsByClassName_ :: - (MonadIO m, IsDocument self, ToJSString classNames) => - self -> classNames -> m () -getElementsByClassName_ self classNames - = liftIO - (void - (js_getElementsByClassName (toDocument self) - (toJSString classNames))) - -foreign import javascript safe "(($1, $2) => { return $1[\"createElement\"]($2); })" - js_createElement :: Document -> JSString -> IO Element - --- | -createElement :: - (MonadIO m, IsDocument self, ToJSString localName) => - self -> localName -> m Element -createElement self localName - = liftIO - (js_createElement (toDocument self) (toJSString localName)) - --- | -createElement_ :: - (MonadIO m, IsDocument self, ToJSString localName) => - self -> localName -> m () -createElement_ self localName - = liftIO - (void (js_createElement (toDocument self) (toJSString localName))) - -foreign import javascript safe "(($1, $2, $3) => { return $1[\"createElementNS\"]($2, $3); })" - js_createElementNS :: - Document -> Optional JSString -> JSString -> IO Element - --- | -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)) - --- | -createElementNS_ :: - (MonadIO m, IsDocument self, ToJSString namespaceURI, - ToJSString qualifiedName) => - self -> Maybe namespaceURI -> qualifiedName -> m () -createElementNS_ self namespaceURI qualifiedName - = liftIO - (void - (js_createElementNS (toDocument self) - (toOptionalJSString namespaceURI) - (toJSString qualifiedName))) - -foreign import javascript unsafe "(($1) => { return $1[\"createDocumentFragment\"](); })" - js_createDocumentFragment :: Document -> IO DocumentFragment - --- | -createDocumentFragment :: - (MonadIO m, IsDocument self) => self -> m DocumentFragment -createDocumentFragment self - = liftIO (js_createDocumentFragment (toDocument self)) - --- | -createDocumentFragment_ :: - (MonadIO m, IsDocument self) => self -> m () -createDocumentFragment_ self - = liftIO (void (js_createDocumentFragment (toDocument self))) - -foreign import javascript unsafe "(($1, $2) => { return $1[\"createTextNode\"]($2); })" - js_createTextNode :: Document -> JSString -> IO Text - --- | -createTextNode :: - (MonadIO m, IsDocument self, ToJSString data') => - self -> data' -> m Text -createTextNode self data' - = liftIO (js_createTextNode (toDocument self) (toJSString data')) - --- | -createTextNode_ :: - (MonadIO m, IsDocument self, ToJSString data') => - self -> data' -> m () -createTextNode_ self data' - = liftIO - (void (js_createTextNode (toDocument self) (toJSString data'))) - -foreign import javascript safe "(($1, $2) => { return $1[\"createCDATASection\"]($2); })" - js_createCDATASection :: Document -> JSString -> IO CDATASection - --- | -createCDATASection :: - (MonadIO m, IsDocument self, ToJSString data') => - self -> data' -> m CDATASection -createCDATASection self data' - = liftIO - (js_createCDATASection (toDocument self) (toJSString data')) - --- | -createCDATASection_ :: - (MonadIO m, IsDocument self, ToJSString data') => - self -> data' -> m () -createCDATASection_ self data' - = liftIO - (void (js_createCDATASection (toDocument self) (toJSString data'))) - -foreign import javascript unsafe "(($1, $2) => { return $1[\"createComment\"]($2); })" - js_createComment :: Document -> JSString -> IO Comment - --- | -createComment :: - (MonadIO m, IsDocument self, ToJSString data') => - self -> data' -> m Comment -createComment self data' - = liftIO (js_createComment (toDocument self) (toJSString data')) - --- | -createComment_ :: - (MonadIO m, IsDocument self, ToJSString data') => - self -> data' -> m () -createComment_ self data' - = liftIO - (void (js_createComment (toDocument self) (toJSString data'))) - -foreign import javascript safe - "(($1, $2, $3) => { return $1[\"createProcessingInstruction\"]($2,\n$3); })" - js_createProcessingInstruction :: - Document -> JSString -> JSString -> IO ProcessingInstruction - --- | -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')) - --- | -createProcessingInstruction_ :: - (MonadIO m, IsDocument self, ToJSString target, - ToJSString data') => - self -> target -> data' -> m () -createProcessingInstruction_ self target data' - = liftIO - (void - (js_createProcessingInstruction (toDocument self) - (toJSString target) - (toJSString data'))) - -foreign import javascript safe "(($1, $2, $3) => { return $1[\"importNode\"]($2, $3); })" - js_importNode :: Document -> Node -> Bool -> IO Node - --- | -importNode :: - (MonadIO m, IsDocument self, IsNode node) => - self -> node -> Bool -> m Node -importNode self node deep - = liftIO (js_importNode (toDocument self) (toNode node) deep) - --- | -importNode_ :: - (MonadIO m, IsDocument self, IsNode node) => - self -> node -> Bool -> m () -importNode_ self node deep - = liftIO - (void (js_importNode (toDocument self) (toNode node) deep)) - -foreign import javascript safe "(($1, $2) => { return $1[\"adoptNode\"]($2); })" js_adoptNode - :: Document -> Node -> IO Node - --- | -adoptNode :: - (MonadIO m, IsDocument self, IsNode node) => self -> node -> m Node -adoptNode self node - = liftIO (js_adoptNode (toDocument self) (toNode node)) - --- | -adoptNode_ :: - (MonadIO m, IsDocument self, IsNode node) => self -> node -> m () -adoptNode_ self node - = liftIO (void (js_adoptNode (toDocument self) (toNode node))) - -foreign import javascript safe "(($1, $2) => { return $1[\"createAttribute\"]($2); })" - js_createAttribute :: Document -> JSString -> IO Attr - --- | -createAttribute :: - (MonadIO m, IsDocument self, ToJSString localName) => - self -> localName -> m Attr -createAttribute self localName - = liftIO - (js_createAttribute (toDocument self) (toJSString localName)) - --- | -createAttribute_ :: - (MonadIO m, IsDocument self, ToJSString localName) => - self -> localName -> m () -createAttribute_ self localName - = liftIO - (void - (js_createAttribute (toDocument self) (toJSString localName))) - -foreign import javascript safe "(($1, $2, $3) => { return $1[\"createAttributeNS\"]($2, $3); })" - js_createAttributeNS :: - Document -> Optional JSString -> JSString -> IO Attr - --- | -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)) - --- | -createAttributeNS_ :: - (MonadIO m, IsDocument self, ToJSString namespaceURI, - ToJSString qualifiedName) => - self -> Maybe namespaceURI -> qualifiedName -> m () -createAttributeNS_ self namespaceURI qualifiedName - = liftIO - (void - (js_createAttributeNS (toDocument self) - (toOptionalJSString namespaceURI) - (toJSString qualifiedName))) - -foreign import javascript safe "(($1, $2) => { return $1[\"createEvent\"]($2); })" - js_createEvent :: Document -> JSString -> IO Event - --- | -createEvent :: - (MonadIO m, IsDocument self, ToJSString type') => - self -> type' -> m Event -createEvent self type' - = liftIO (js_createEvent (toDocument self) (toJSString type')) - --- | -createEvent_ :: - (MonadIO m, IsDocument self, ToJSString type') => - self -> type' -> m () -createEvent_ self type' - = liftIO - (void (js_createEvent (toDocument self) (toJSString type'))) - -foreign import javascript unsafe "(($1) => { return $1[\"createRange\"](); })" - js_createRange :: Document -> IO Range - --- | -createRange :: (MonadIO m, IsDocument self) => self -> m Range -createRange self = liftIO (js_createRange (toDocument self)) - --- | -createRange_ :: (MonadIO m, IsDocument self) => self -> m () -createRange_ self - = liftIO (void (js_createRange (toDocument self))) - -foreign import javascript unsafe - "(($1, $2, $3, $4) => { return $1[\"createNodeIterator\"]($2, $3,\n$4); })" js_createNodeIterator :: - Document -> - Node -> Optional Word -> Optional NodeFilter -> IO NodeIterator - --- | -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)) - --- | -createNodeIterator_ :: - (MonadIO m, IsDocument self, IsNode root) => - self -> root -> Maybe Word -> Maybe NodeFilter -> m () -createNodeIterator_ self root whatToShow filter - = liftIO - (void - (js_createNodeIterator (toDocument self) (toNode root) - (maybeToOptional whatToShow) - (maybeToOptional filter))) - -foreign import javascript unsafe - "(($1, $2, $3, $4) => { return $1[\"createTreeWalker\"]($2, $3,\n$4); })" js_createTreeWalker :: - Document -> - Node -> Optional Word -> Optional NodeFilter -> IO TreeWalker - --- | -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)) - --- | -createTreeWalker_ :: - (MonadIO m, IsDocument self, IsNode root) => - self -> root -> Maybe Word -> Maybe NodeFilter -> m () -createTreeWalker_ self root whatToShow filter - = liftIO - (void - (js_createTreeWalker (toDocument self) (toNode root) - (maybeToOptional whatToShow) - (maybeToOptional filter))) - -foreign import javascript unsafe "(($1, $2) => { return $1[\"getElementsByName\"]($2); })" - js_getElementsByName :: Document -> JSString -> IO NodeList - --- | -getElementsByName :: - (MonadIO m, IsDocument self, ToJSString elementName) => - self -> elementName -> m NodeList -getElementsByName self elementName - = liftIO - (js_getElementsByName (toDocument self) (toJSString elementName)) - --- | -getElementsByName_ :: - (MonadIO m, IsDocument self, ToJSString elementName) => - self -> elementName -> m () -getElementsByName_ self elementName - = liftIO - (void - (js_getElementsByName (toDocument self) (toJSString elementName))) - -foreign import javascript unsafe "(($1) => { return ($1[\"hasFocus\"]() ? 1 : 0); })" - js_hasFocus :: Document -> IO Bool - --- | -hasFocus :: (MonadIO m, IsDocument self) => self -> m Bool -hasFocus self = liftIO (js_hasFocus (toDocument self)) - --- | -hasFocus_ :: (MonadIO m, IsDocument self) => self -> m () -hasFocus_ self = liftIO (void (js_hasFocus (toDocument self))) - -foreign import javascript unsafe - "(($1, $2, $3, $4) => { return ($1[\"execCommand\"]($2, $3,\n$4) ? 1 : 0); })" js_execCommand :: - Document -> JSString -> Bool -> Optional JSString -> IO Bool - --- | -execCommand :: - (MonadIO m, IsDocument self, ToJSString commandId, - ToJSString value) => - self -> commandId -> Bool -> Maybe value -> m Bool -execCommand self commandId showUI value - = liftIO - (js_execCommand (toDocument self) (toJSString commandId) showUI - (toOptionalJSString value)) - --- | -execCommand_ :: - (MonadIO m, IsDocument self, ToJSString commandId, - ToJSString value) => - self -> commandId -> Bool -> Maybe value -> m () -execCommand_ self commandId showUI value - = liftIO - (void - (js_execCommand (toDocument self) (toJSString commandId) showUI - (toOptionalJSString value))) - -foreign import javascript unsafe - "(($1, $2) => { return ($1[\"queryCommandEnabled\"]($2) ? 1 : 0); })" js_queryCommandEnabled - :: Document -> JSString -> IO Bool - --- | -queryCommandEnabled :: - (MonadIO m, IsDocument self, ToJSString commandId) => - self -> commandId -> m Bool -queryCommandEnabled self commandId - = liftIO - (js_queryCommandEnabled (toDocument self) (toJSString commandId)) - --- | -queryCommandEnabled_ :: - (MonadIO m, IsDocument self, ToJSString commandId) => - self -> commandId -> m () -queryCommandEnabled_ self commandId - = liftIO - (void - (js_queryCommandEnabled (toDocument self) (toJSString commandId))) - -foreign import javascript unsafe - "(($1, $2) => { return ($1[\"queryCommandIndeterm\"]($2) ? 1 : 0); })" - js_queryCommandIndeterm :: Document -> JSString -> IO Bool - --- | -queryCommandIndeterm :: - (MonadIO m, IsDocument self, ToJSString commandId) => - self -> commandId -> m Bool -queryCommandIndeterm self commandId - = liftIO - (js_queryCommandIndeterm (toDocument self) (toJSString commandId)) - --- | -queryCommandIndeterm_ :: - (MonadIO m, IsDocument self, ToJSString commandId) => - self -> commandId -> m () -queryCommandIndeterm_ self commandId - = liftIO - (void - (js_queryCommandIndeterm (toDocument self) (toJSString commandId))) - -foreign import javascript unsafe - "(($1, $2) => { return ($1[\"queryCommandState\"]($2) ? 1 : 0); })" js_queryCommandState :: - Document -> JSString -> IO Bool - --- | -queryCommandState :: - (MonadIO m, IsDocument self, ToJSString commandId) => - self -> commandId -> m Bool -queryCommandState self commandId - = liftIO - (js_queryCommandState (toDocument self) (toJSString commandId)) - --- | -queryCommandState_ :: - (MonadIO m, IsDocument self, ToJSString commandId) => - self -> commandId -> m () -queryCommandState_ self commandId - = liftIO - (void - (js_queryCommandState (toDocument self) (toJSString commandId))) - -foreign import javascript unsafe - "(($1, $2) => { return ($1[\"queryCommandSupported\"]($2) ? 1 : 0); })" - js_queryCommandSupported :: Document -> JSString -> IO Bool - --- | -queryCommandSupported :: - (MonadIO m, IsDocument self, ToJSString commandId) => - self -> commandId -> m Bool -queryCommandSupported self commandId - = liftIO - (js_queryCommandSupported (toDocument self) (toJSString commandId)) - --- | -queryCommandSupported_ :: - (MonadIO m, IsDocument self, ToJSString commandId) => - self -> commandId -> m () -queryCommandSupported_ self commandId - = liftIO - (void - (js_queryCommandSupported (toDocument self) - (toJSString commandId))) - -foreign import javascript unsafe "(($1, $2) => { return $1[\"queryCommandValue\"]($2); })" - js_queryCommandValue :: Document -> JSString -> IO JSString - --- | -queryCommandValue :: - (MonadIO m, IsDocument self, ToJSString commandId, - FromJSString result) => - self -> commandId -> m result -queryCommandValue self commandId - = liftIO - (fromJSString <$> - (js_queryCommandValue (toDocument self) (toJSString commandId))) - --- | -queryCommandValue_ :: - (MonadIO m, IsDocument self, ToJSString commandId) => - self -> commandId -> m () -queryCommandValue_ self commandId - = liftIO - (void - (js_queryCommandValue (toDocument self) (toJSString commandId))) - -foreign import javascript unsafe "(($1) => { return $1[\"getSelection\"](); })" - js_getSelection :: Document -> IO (Nullable Selection) - --- | -getSelection :: - (MonadIO m, IsDocument self) => self -> m (Maybe Selection) -getSelection self - = liftIO (nullableToMaybe <$> (js_getSelection (toDocument self))) - --- | -getSelection_ :: (MonadIO m, IsDocument self) => self -> m () -getSelection_ self - = liftIO (void (js_getSelection (toDocument self))) - --- | -getSelectionUnsafe :: - (MonadIO m, IsDocument self, HasCallStack) => self -> m Selection -getSelectionUnsafe self - = liftIO - ((nullableToMaybe <$> (js_getSelection (toDocument self))) >>= - maybe (Prelude.error "Nothing to return") return) - --- | -getSelectionUnchecked :: - (MonadIO m, IsDocument self) => self -> m Selection -getSelectionUnchecked self - = liftIO - (fromJust . nullableToMaybe <$> - (js_getSelection (toDocument self))) - -foreign import javascript safe "(($1, $2, $3) => { return $1[\"createExpression\"]($2, $3); })" - js_createExpression :: - Document -> - Optional JSString -> Optional XPathNSResolver -> IO XPathExpression - --- | -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)) - --- | -createExpression_ :: - (MonadIO m, IsDocument self, ToJSString expression) => - self -> Maybe expression -> Maybe XPathNSResolver -> m () -createExpression_ self expression resolver - = liftIO - (void - (js_createExpression (toDocument self) - (toOptionalJSString expression) - (maybeToOptional resolver))) - -foreign import javascript unsafe "(($1, $2) => { return $1[\"createNSResolver\"]($2); })" - js_createNSResolver :: - Document -> Optional Node -> IO XPathNSResolver - --- | -createNSResolver :: - (MonadIO m, IsDocument self, IsNode nodeResolver) => - self -> Maybe nodeResolver -> m XPathNSResolver -createNSResolver self nodeResolver - = liftIO - (js_createNSResolver (toDocument self) - (maybeToOptional (fmap toNode nodeResolver))) - --- | -createNSResolver_ :: - (MonadIO m, IsDocument self, IsNode nodeResolver) => - self -> Maybe nodeResolver -> m () -createNSResolver_ self nodeResolver - = liftIO - (void - (js_createNSResolver (toDocument self) - (maybeToOptional (fmap toNode nodeResolver)))) - -foreign import javascript safe - "(($1, $2, $3, $4, $5, $6) => { return $1[\"evaluate\"]($2, $3, $4, $5,\n$6); })" js_evaluate :: - Document -> - Optional JSString -> - Optional Node -> - Optional XPathNSResolver -> - Optional Word -> Optional XPathResult -> IO XPathResult - --- | -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)) - --- | -evaluate_ :: - (MonadIO m, IsDocument self, ToJSString expression, - IsNode contextNode) => - self -> - Maybe expression -> - Maybe contextNode -> - Maybe XPathNSResolver -> Maybe Word -> Maybe XPathResult -> m () -evaluate_ self expression contextNode resolver type' inResult - = liftIO - (void - (js_evaluate (toDocument self) (toOptionalJSString expression) - (maybeToOptional (fmap toNode contextNode)) - (maybeToOptional resolver) - (maybeToOptional type') - (maybeToOptional inResult))) - -foreign import javascript unsafe "(($1) => { return $1[\"webkitExitFullscreen\"](); })" - js_webkitExitFullscreen :: Document -> IO () - --- | -webkitExitFullscreen :: - (MonadIO m, IsDocument self) => self -> m () -webkitExitFullscreen self - = liftIO (js_webkitExitFullscreen (toDocument self)) - -foreign import javascript unsafe "(($1) => { return $1[\"webkitCancelFullScreen\"](); })" - js_webkitCancelFullScreen :: Document -> IO () - --- | -webkitCancelFullScreen :: - (MonadIO m, IsDocument self) => self -> m () -webkitCancelFullScreen self - = liftIO (js_webkitCancelFullScreen (toDocument self)) - -foreign import javascript unsafe "(($1) => { return $1[\"exitPointerLock\"](); })" - js_exitPointerLock :: Document -> IO () - --- | -exitPointerLock :: (MonadIO m, IsDocument self) => self -> m () -exitPointerLock self - = liftIO (js_exitPointerLock (toDocument self)) - -foreign import javascript unsafe "(($1, $2, $3) => { return $1[\"getOverrideStyle\"]($2, $3); })" - js_getOverrideStyle :: - Document -> - Optional Element -> Optional JSString -> IO CSSStyleDeclaration - --- | -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)) - --- | -getOverrideStyle_ :: - (MonadIO m, IsDocument self, IsElement element, - ToJSString pseudoElement) => - self -> Maybe element -> Maybe pseudoElement -> m () -getOverrideStyle_ self element pseudoElement - = liftIO - (void - (js_getOverrideStyle (toDocument self) - (maybeToOptional (fmap toElement element)) - (toOptionalJSString pseudoElement))) - -foreign import javascript unsafe - "(($1, $2, $3) => { return $1[\"caretRangeFromPoint\"]($2,\n$3); })" js_caretRangeFromPoint :: - Document -> Optional Int -> Optional Int -> IO Range - --- | -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)) - --- | -caretRangeFromPoint_ :: - (MonadIO m, IsDocument self) => - self -> Maybe Int -> Maybe Int -> m () -caretRangeFromPoint_ self x y - = liftIO - (void - (js_caretRangeFromPoint (toDocument self) (maybeToOptional x) - (maybeToOptional y))) - -foreign import javascript unsafe - "(($1, $2, $3, $4, $5) => { return $1[\"getCSSCanvasContext\"]($2,\n$3, $4, $5); })" - js_getCSSCanvasContext :: - Document -> - JSString -> JSString -> Int -> Int -> IO RenderingContext - --- | -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) - --- | -getCSSCanvasContext_ :: - (MonadIO m, IsDocument self, ToJSString contextId, - ToJSString name) => - self -> contextId -> name -> Int -> Int -> m () -getCSSCanvasContext_ self contextId name width height - = liftIO - (void - (js_getCSSCanvasContext (toDocument self) (toJSString contextId) - (toJSString name) - width - height)) - -foreign import javascript unsafe "(($1) => { return $1[\"webkitGetNamedFlows\"](); })" - js_webkitGetNamedFlows :: Document -> IO DOMNamedFlowCollection - --- | -webkitGetNamedFlows :: - (MonadIO m, IsDocument self) => self -> m DOMNamedFlowCollection -webkitGetNamedFlows self - = liftIO (js_webkitGetNamedFlows (toDocument self)) - --- | -webkitGetNamedFlows_ :: - (MonadIO m, IsDocument self) => self -> m () -webkitGetNamedFlows_ self - = liftIO (void (js_webkitGetNamedFlows (toDocument self))) - -foreign import javascript unsafe - "(($1, $2, $3, $4, $5, $6, $7, $8, $9, $10, $11, $12) => { return $1[\"createTouch\"]($2, $3, $4,\n$5, $6, $7, $8, $9, $10, $11,\n$12); })" - js_createTouch :: - Document -> - Optional Window -> - Optional EventTarget -> - Optional Int -> - Optional Int -> - Optional Int -> - Optional Int -> - Optional Int -> - Optional Int -> - Optional Int -> Optional Float -> Optional Float -> IO Touch - --- | -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)) - --- | -createTouch_ :: - (MonadIO m, IsDocument self, IsEventTarget target) => - self -> - Maybe Window -> - Maybe target -> - Maybe Int -> - Maybe Int -> - Maybe Int -> - Maybe Int -> - Maybe Int -> - Maybe Int -> Maybe Int -> Maybe Float -> Maybe Float -> m () -createTouch_ self window target identifier pageX pageY screenX - screenY webkitRadiusX webkitRadiusY webkitRotationAngle webkitForce - = liftIO - (void - (js_createTouch (toDocument self) (maybeToOptional window) - (maybeToOptional (fmap toEventTarget target)) - (maybeToOptional identifier) - (maybeToOptional pageX) - (maybeToOptional pageY) - (maybeToOptional screenX) - (maybeToOptional screenY) - (maybeToOptional webkitRadiusX) - (maybeToOptional webkitRadiusY) - (maybeToOptional webkitRotationAngle) - (maybeToOptional webkitForce))) - -foreign import javascript unsafe "(($1, $2) => { return $1[\"createTouchList\"]($2); })" - js_createTouchList :: Document -> JSVal -> IO TouchList - --- | -createTouchList :: - (MonadIO m, IsDocument self) => self -> [Touch] -> m TouchList -createTouchList self touches - = liftIO - (toJSVal touches >>= - \ touches' -> js_createTouchList (toDocument self) touches') - --- | -createTouchList_ :: - (MonadIO m, IsDocument self) => self -> [Touch] -> m () -createTouchList_ self touches - = liftIO - (void - (toJSVal touches >>= - \ touches' -> js_createTouchList (toDocument self) touches')) - -foreign import javascript unsafe "(($1) => { return $1[\"timeline\"]; })" js_getTimeline - :: Document -> IO DocumentTimeline - --- | -getTimeline :: - (MonadIO m, IsDocument self) => self -> m DocumentTimeline -getTimeline self = liftIO (js_getTimeline (toDocument self)) - -foreign import javascript unsafe "(($1) => { return $1[\"implementation\"]; })" - js_getImplementation :: Document -> IO DOMImplementation - --- | -getImplementation :: - (MonadIO m, IsDocument self) => self -> m DOMImplementation -getImplementation self - = liftIO (js_getImplementation (toDocument self)) - -foreign import javascript unsafe "(($1) => { return $1[\"URL\"]; })" js_getURL :: - Document -> IO JSString - --- | -getURL :: - (MonadIO m, IsDocument self, FromJSString result) => - self -> m result -getURL self - = liftIO (fromJSString <$> (js_getURL (toDocument self))) - -foreign import javascript unsafe "(($1) => { return $1[\"documentURI\"]; })" - js_getDocumentURI :: Document -> IO JSString - --- | -getDocumentURI :: - (MonadIO m, IsDocument self, FromJSString result) => - self -> m result -getDocumentURI self - = liftIO (fromJSString <$> (js_getDocumentURI (toDocument self))) - -foreign import javascript unsafe "(($1) => { return $1[\"origin\"]; })" js_getOrigin :: - Document -> IO JSString - --- | -getOrigin :: - (MonadIO m, IsDocument self, FromJSString result) => - self -> m result -getOrigin self - = liftIO (fromJSString <$> (js_getOrigin (toDocument self))) - -foreign import javascript unsafe "(($1) => { return $1[\"compatMode\"]; })" - js_getCompatMode :: Document -> IO JSString - --- | -getCompatMode :: - (MonadIO m, IsDocument self, FromJSString result) => - self -> m result -getCompatMode self - = liftIO (fromJSString <$> (js_getCompatMode (toDocument self))) - -foreign import javascript unsafe "(($1) => { return $1[\"characterSet\"]; })" - js_getCharacterSet :: Document -> IO JSString - --- | -getCharacterSet :: - (MonadIO m, IsDocument self, FromJSString result) => - self -> m result -getCharacterSet self - = liftIO (fromJSString <$> (js_getCharacterSet (toDocument self))) - -foreign import javascript unsafe "(($1) => { return $1[\"charset\"]; })" js_getCharset :: - Document -> IO JSString - --- | -getCharset :: - (MonadIO m, IsDocument self, FromJSString result) => - self -> m result -getCharset self - = liftIO (fromJSString <$> (js_getCharset (toDocument self))) - -foreign import javascript unsafe "(($1) => { return $1[\"inputEncoding\"]; })" - js_getInputEncoding :: Document -> IO JSString - --- | -getInputEncoding :: - (MonadIO m, IsDocument self, FromJSString result) => - self -> m result -getInputEncoding self - = liftIO (fromJSString <$> (js_getInputEncoding (toDocument self))) - -foreign import javascript unsafe "(($1) => { return $1[\"contentType\"]; })" - js_getContentType :: Document -> IO JSString - --- | -getContentType :: - (MonadIO m, IsDocument self, FromJSString result) => - self -> m result -getContentType self - = liftIO (fromJSString <$> (js_getContentType (toDocument self))) - -foreign import javascript unsafe "(($1) => { return $1[\"doctype\"]; })" js_getDoctype :: - Document -> IO (Nullable DocumentType) - --- | -getDoctype :: - (MonadIO m, IsDocument self) => self -> m (Maybe DocumentType) -getDoctype self - = liftIO (nullableToMaybe <$> (js_getDoctype (toDocument self))) - --- | -getDoctypeUnsafe :: - (MonadIO m, IsDocument self, HasCallStack) => - self -> m DocumentType -getDoctypeUnsafe self - = liftIO - ((nullableToMaybe <$> (js_getDoctype (toDocument self))) >>= - maybe (Prelude.error "Nothing to return") return) - --- | -getDoctypeUnchecked :: - (MonadIO m, IsDocument self) => self -> m DocumentType -getDoctypeUnchecked self - = liftIO - (fromJust . nullableToMaybe <$> (js_getDoctype (toDocument self))) - -foreign import javascript unsafe "(($1) => { return $1[\"documentElement\"]; })" - js_getDocumentElement :: Document -> IO (Nullable Element) - --- | -getDocumentElement :: - (MonadIO m, IsDocument self) => self -> m (Maybe Element) -getDocumentElement self - = liftIO - (nullableToMaybe <$> (js_getDocumentElement (toDocument self))) - --- | -getDocumentElementUnsafe :: - (MonadIO m, IsDocument self, HasCallStack) => self -> m Element -getDocumentElementUnsafe self - = liftIO - ((nullableToMaybe <$> (js_getDocumentElement (toDocument self))) - >>= maybe (Prelude.error "Nothing to return") return) - --- | -getDocumentElementUnchecked :: - (MonadIO m, IsDocument self) => self -> m Element -getDocumentElementUnchecked self - = liftIO - (fromJust . nullableToMaybe <$> - (js_getDocumentElement (toDocument self))) - -foreign import javascript unsafe "(($1) => { return $1[\"location\"]; })" js_getLocation - :: Document -> IO (Nullable Location) - --- | -getLocation :: - (MonadIO m, IsDocument self) => self -> m (Maybe Location) -getLocation self - = liftIO (nullableToMaybe <$> (js_getLocation (toDocument self))) - --- | -getLocationUnsafe :: - (MonadIO m, IsDocument self, HasCallStack) => self -> m Location -getLocationUnsafe self - = liftIO - ((nullableToMaybe <$> (js_getLocation (toDocument self))) >>= - maybe (Prelude.error "Nothing to return") return) - --- | -getLocationUnchecked :: - (MonadIO m, IsDocument self) => self -> m Location -getLocationUnchecked self - = liftIO - (fromJust . nullableToMaybe <$> (js_getLocation (toDocument self))) - -foreign import javascript safe "(($1, $2) => { $1[\"domain\"] = $2; })" js_setDomain - :: Document -> JSString -> IO () - --- | -setDomain :: - (MonadIO m, IsDocument self, ToJSString val) => self -> val -> m () -setDomain self val - = liftIO (js_setDomain (toDocument self) (toJSString val)) - -foreign import javascript unsafe "(($1) => { return $1[\"domain\"]; })" js_getDomain :: - Document -> IO JSString - --- | -getDomain :: - (MonadIO m, IsDocument self, FromJSString result) => - self -> m result -getDomain self - = liftIO (fromJSString <$> (js_getDomain (toDocument self))) - -foreign import javascript unsafe "(($1) => { return $1[\"referrer\"]; })" js_getReferrer - :: Document -> IO JSString - --- | -getReferrer :: - (MonadIO m, IsDocument self, FromJSString result) => - self -> m result -getReferrer self - = liftIO (fromJSString <$> (js_getReferrer (toDocument self))) - -foreign import javascript safe "(($1, $2) => { $1[\"cookie\"] = $2; })" js_setCookie - :: Document -> JSString -> IO () - --- | -setCookie :: - (MonadIO m, IsDocument self, ToJSString val) => self -> val -> m () -setCookie self val - = liftIO (js_setCookie (toDocument self) (toJSString val)) - -foreign import javascript safe "(($1) => { return $1[\"cookie\"]; })" js_getCookie :: - Document -> IO JSString - --- | -getCookie :: - (MonadIO m, IsDocument self, FromJSString result) => - self -> m result -getCookie self - = liftIO (fromJSString <$> (js_getCookie (toDocument self))) - -foreign import javascript unsafe "(($1) => { return $1[\"lastModified\"]; })" - js_getLastModified :: Document -> IO JSString - --- | -getLastModified :: - (MonadIO m, IsDocument self, FromJSString result) => - self -> m result -getLastModified self - = liftIO (fromJSString <$> (js_getLastModified (toDocument self))) - -foreign import javascript unsafe "(($1) => { return $1[\"readyState\"]; })" - js_getReadyState :: Document -> IO JSVal - --- | -getReadyState :: - (MonadIO m, IsDocument self) => self -> m DocumentReadyState -getReadyState self - = liftIO - ((js_getReadyState (toDocument self)) >>= fromJSValUnchecked) - -foreign import javascript unsafe "(($1, $2) => { $1[\"title\"] = $2; })" js_setTitle - :: Document -> JSString -> IO () - --- | -setTitle :: - (MonadIO m, IsDocument self, ToJSString val) => self -> val -> m () -setTitle self val - = liftIO (js_setTitle (toDocument self) (toJSString val)) - -foreign import javascript unsafe "(($1) => { return $1[\"title\"]; })" js_getTitle :: - Document -> IO JSString - --- | -getTitle :: - (MonadIO m, IsDocument self, FromJSString result) => - self -> m result -getTitle self - = liftIO (fromJSString <$> (js_getTitle (toDocument self))) - -foreign import javascript unsafe "(($1, $2) => { $1[\"dir\"] = $2; })" js_setDir :: - Document -> JSString -> IO () - --- | -setDir :: - (MonadIO m, IsDocument self, ToJSString val) => self -> val -> m () -setDir self val - = liftIO (js_setDir (toDocument self) (toJSString val)) - -foreign import javascript unsafe "(($1) => { return $1[\"dir\"]; })" js_getDir :: - Document -> IO JSString - --- | -getDir :: - (MonadIO m, IsDocument self, FromJSString result) => - self -> m result -getDir self - = liftIO (fromJSString <$> (js_getDir (toDocument self))) - -foreign import javascript safe "(($1, $2) => { $1[\"body\"] = $2; })" js_setBody :: - Document -> Optional HTMLElement -> IO () - --- | -setBody :: - (MonadIO m, IsDocument self, IsHTMLElement val) => - self -> Maybe val -> m () -setBody self val - = liftIO - (js_setBody (toDocument self) - (maybeToOptional (fmap toHTMLElement val))) - -foreign import javascript unsafe "(($1) => { return $1[\"body\"]; })" js_getBody :: - Document -> IO (Nullable HTMLElement) - --- | -getBody :: - (MonadIO m, IsDocument self) => self -> m (Maybe HTMLElement) -getBody self - = liftIO (nullableToMaybe <$> (js_getBody (toDocument self))) - --- | -getBodyUnsafe :: - (MonadIO m, IsDocument self, HasCallStack) => self -> m HTMLElement -getBodyUnsafe self - = liftIO - ((nullableToMaybe <$> (js_getBody (toDocument self))) >>= - maybe (Prelude.error "Nothing to return") return) - --- | -getBodyUnchecked :: - (MonadIO m, IsDocument self) => self -> m HTMLElement -getBodyUnchecked self - = liftIO - (fromJust . nullableToMaybe <$> (js_getBody (toDocument self))) - -foreign import javascript unsafe "(($1) => { return $1[\"head\"]; })" js_getHead :: - Document -> IO (Nullable HTMLHeadElement) - --- | -getHead :: - (MonadIO m, IsDocument self) => self -> m (Maybe HTMLHeadElement) -getHead self - = liftIO (nullableToMaybe <$> (js_getHead (toDocument self))) - --- | -getHeadUnsafe :: - (MonadIO m, IsDocument self, HasCallStack) => - self -> m HTMLHeadElement -getHeadUnsafe self - = liftIO - ((nullableToMaybe <$> (js_getHead (toDocument self))) >>= - maybe (Prelude.error "Nothing to return") return) - --- | -getHeadUnchecked :: - (MonadIO m, IsDocument self) => self -> m HTMLHeadElement -getHeadUnchecked self - = liftIO - (fromJust . nullableToMaybe <$> (js_getHead (toDocument self))) - -foreign import javascript unsafe "(($1) => { return $1[\"images\"]; })" js_getImages :: - Document -> IO HTMLCollection - --- | -getImages :: - (MonadIO m, IsDocument self) => self -> m HTMLCollection -getImages self = liftIO (js_getImages (toDocument self)) - -foreign import javascript unsafe "(($1) => { return $1[\"embeds\"]; })" js_getEmbeds :: - Document -> IO HTMLCollection - --- | -getEmbeds :: - (MonadIO m, IsDocument self) => self -> m HTMLCollection -getEmbeds self = liftIO (js_getEmbeds (toDocument self)) - -foreign import javascript unsafe "(($1) => { return $1[\"plugins\"]; })" js_getPlugins :: - Document -> IO HTMLCollection - --- | -getPlugins :: - (MonadIO m, IsDocument self) => self -> m HTMLCollection -getPlugins self = liftIO (js_getPlugins (toDocument self)) - -foreign import javascript unsafe "(($1) => { return $1[\"links\"]; })" js_getLinks :: - Document -> IO HTMLCollection - --- | -getLinks :: - (MonadIO m, IsDocument self) => self -> m HTMLCollection -getLinks self = liftIO (js_getLinks (toDocument self)) - -foreign import javascript unsafe "(($1) => { return $1[\"forms\"]; })" js_getForms :: - Document -> IO HTMLCollection - --- | -getForms :: - (MonadIO m, IsDocument self) => self -> m HTMLCollection -getForms self = liftIO (js_getForms (toDocument self)) - -foreign import javascript unsafe "(($1) => { return $1[\"scripts\"]; })" js_getScripts :: - Document -> IO HTMLCollection - --- | -getScripts :: - (MonadIO m, IsDocument self) => self -> m HTMLCollection -getScripts self = liftIO (js_getScripts (toDocument self)) - -foreign import javascript unsafe "(($1) => { return $1[\"currentScript\"]; })" - js_getCurrentScript :: Document -> IO (Nullable HTMLScriptElement) - --- | -getCurrentScript :: - (MonadIO m, IsDocument self) => self -> m (Maybe HTMLScriptElement) -getCurrentScript self - = liftIO - (nullableToMaybe <$> (js_getCurrentScript (toDocument self))) - --- | -getCurrentScriptUnsafe :: - (MonadIO m, IsDocument self, HasCallStack) => - self -> m HTMLScriptElement -getCurrentScriptUnsafe self - = liftIO - ((nullableToMaybe <$> (js_getCurrentScript (toDocument self))) >>= - maybe (Prelude.error "Nothing to return") return) - --- | -getCurrentScriptUnchecked :: - (MonadIO m, IsDocument self) => self -> m HTMLScriptElement -getCurrentScriptUnchecked self - = liftIO - (fromJust . nullableToMaybe <$> - (js_getCurrentScript (toDocument self))) - -foreign import javascript unsafe "(($1) => { return $1[\"defaultView\"]; })" - js_getDefaultView :: Document -> IO (Nullable Window) - --- | -getDefaultView :: - (MonadIO m, IsDocument self) => self -> m (Maybe Window) -getDefaultView self - = liftIO - (nullableToMaybe <$> (js_getDefaultView (toDocument self))) - --- | -getDefaultViewUnsafe :: - (MonadIO m, IsDocument self, HasCallStack) => self -> m Window -getDefaultViewUnsafe self - = liftIO - ((nullableToMaybe <$> (js_getDefaultView (toDocument self))) >>= - maybe (Prelude.error "Nothing to return") return) - --- | -getDefaultViewUnchecked :: - (MonadIO m, IsDocument self) => self -> m Window -getDefaultViewUnchecked self - = liftIO - (fromJust . nullableToMaybe <$> - (js_getDefaultView (toDocument self))) - -foreign import javascript unsafe "(($1, $2) => { $1[\"designMode\"] = $2; })" - js_setDesignMode :: Document -> JSString -> IO () - --- | -setDesignMode :: - (MonadIO m, IsDocument self, ToJSString val) => self -> val -> m () -setDesignMode self val - = liftIO (js_setDesignMode (toDocument self) (toJSString val)) - -foreign import javascript unsafe "(($1) => { return $1[\"designMode\"]; })" - js_getDesignMode :: Document -> IO JSString - --- | -getDesignMode :: - (MonadIO m, IsDocument self, FromJSString result) => - self -> m result -getDesignMode self - = liftIO (fromJSString <$> (js_getDesignMode (toDocument self))) - --- | -readyStateChange :: - (IsDocument self, IsEventTarget self) => EventName self Event -readyStateChange - = unsafeEventNameAsync (toJSString "readystatechange") - -foreign import javascript unsafe "(($1) => { return $1[\"styleSheets\"]; })" - js_getStyleSheets :: Document -> IO StyleSheetList - --- | -getStyleSheets :: - (MonadIO m, IsDocument self) => self -> m StyleSheetList -getStyleSheets self = liftIO (js_getStyleSheets (toDocument self)) - -foreign import javascript unsafe "(($1) => { return $1[\"scrollingElement\"]; })" - js_getScrollingElement :: Document -> IO (Nullable Element) - --- | -getScrollingElement :: - (MonadIO m, IsDocument self) => self -> m (Maybe Element) -getScrollingElement self - = liftIO - (nullableToMaybe <$> (js_getScrollingElement (toDocument self))) - --- | -getScrollingElementUnsafe :: - (MonadIO m, IsDocument self, HasCallStack) => self -> m Element -getScrollingElementUnsafe self - = liftIO - ((nullableToMaybe <$> (js_getScrollingElement (toDocument self))) - >>= maybe (Prelude.error "Nothing to return") return) - --- | -getScrollingElementUnchecked :: - (MonadIO m, IsDocument self) => self -> m Element -getScrollingElementUnchecked self - = liftIO - (fromJust . nullableToMaybe <$> - (js_getScrollingElement (toDocument self))) - -foreign import javascript unsafe - "(($1) => { return ($1[\"webkitFullscreenEnabled\"] ? 1 : 0); })" - js_getWebkitFullscreenEnabled :: Document -> IO Bool - --- | -getWebkitFullscreenEnabled :: - (MonadIO m, IsDocument self) => self -> m Bool -getWebkitFullscreenEnabled self - = liftIO (js_getWebkitFullscreenEnabled (toDocument self)) - -foreign import javascript unsafe "(($1) => { return $1[\"webkitFullscreenElement\"]; })" - js_getWebkitFullscreenElement :: Document -> IO (Nullable Element) - --- | -getWebkitFullscreenElement :: - (MonadIO m, IsDocument self) => self -> m (Maybe Element) -getWebkitFullscreenElement self - = liftIO - (nullableToMaybe <$> - (js_getWebkitFullscreenElement (toDocument self))) - --- | -getWebkitFullscreenElementUnsafe :: - (MonadIO m, IsDocument self, HasCallStack) => self -> m Element -getWebkitFullscreenElementUnsafe self - = liftIO - ((nullableToMaybe <$> - (js_getWebkitFullscreenElement (toDocument self))) - >>= maybe (Prelude.error "Nothing to return") return) - --- | -getWebkitFullscreenElementUnchecked :: - (MonadIO m, IsDocument self) => self -> m Element -getWebkitFullscreenElementUnchecked self - = liftIO - (fromJust . nullableToMaybe <$> - (js_getWebkitFullscreenElement (toDocument self))) - -foreign import javascript unsafe - "(($1) => { return ($1[\"webkitIsFullScreen\"] ? 1 : 0); })" js_getWebkitIsFullScreen :: - Document -> IO Bool - --- | -getWebkitIsFullScreen :: - (MonadIO m, IsDocument self) => self -> m Bool -getWebkitIsFullScreen self - = liftIO (js_getWebkitIsFullScreen (toDocument self)) - -foreign import javascript unsafe - "(($1) => { return ($1[\"webkitFullScreenKeyboardInputAllowed\"] ? 1 : 0); })" - js_getWebkitFullScreenKeyboardInputAllowed :: Document -> IO Bool - --- | -getWebkitFullScreenKeyboardInputAllowed :: - (MonadIO m, IsDocument self) => self -> m Bool -getWebkitFullScreenKeyboardInputAllowed self - = liftIO - (js_getWebkitFullScreenKeyboardInputAllowed (toDocument self)) - -foreign import javascript unsafe - "(($1) => { return $1[\"webkitCurrentFullScreenElement\"]; })" - js_getWebkitCurrentFullScreenElement :: Document -> IO Element - --- | -getWebkitCurrentFullScreenElement :: - (MonadIO m, IsDocument self) => self -> m Element -getWebkitCurrentFullScreenElement self - = liftIO (js_getWebkitCurrentFullScreenElement (toDocument self)) - --- | -webKitFullscreenChange :: - (IsDocument self, IsEventTarget self) => EventName self Event -webKitFullscreenChange - = unsafeEventName (toJSString "webkitfullscreenchange") - --- | -webKitFullscreenError :: - (IsDocument self, IsEventTarget self) => EventName self Event -webKitFullscreenError - = unsafeEventName (toJSString "webkitfullscreenerror") - --- | -pointerlockchange :: - (IsDocument self, IsEventTarget self) => EventName self Event -pointerlockchange - = unsafeEventName (toJSString "pointerlockchange") - --- | -pointerlockerror :: - (IsDocument self, IsEventTarget self) => EventName self Event -pointerlockerror = unsafeEventName (toJSString "pointerlockerror") - -foreign import javascript unsafe "(($1) => { return $1[\"fonts\"]; })" js_getFonts :: - Document -> IO FontFaceSet - --- | -getFonts :: (MonadIO m, IsDocument self) => self -> m FontFaceSet -getFonts self = liftIO (js_getFonts (toDocument self)) - -foreign import javascript unsafe "(($1) => { return ($1[\"hidden\"] ? 1 : 0); })" - js_getHidden :: Document -> IO Bool - --- | -getHidden :: (MonadIO m, IsDocument self) => self -> m Bool -getHidden self = liftIO (js_getHidden (toDocument self)) - -foreign import javascript unsafe "(($1) => { return $1[\"visibilityState\"]; })" - js_getVisibilityState :: Document -> IO JSVal - --- | -getVisibilityState :: - (MonadIO m, IsDocument self) => self -> m VisibilityState -getVisibilityState self - = liftIO - ((js_getVisibilityState (toDocument self)) >>= fromJSValUnchecked) - --- | -visibilitychange :: - (IsDocument self, IsEventTarget self) => EventName self Event -visibilitychange = unsafeEventName (toJSString "visibilitychange") - -foreign import javascript unsafe "(($1) => { return $1[\"applets\"]; })" js_getApplets :: - Document -> IO HTMLCollection - --- | -getApplets :: - (MonadIO m, IsDocument self) => self -> m HTMLCollection -getApplets self = liftIO (js_getApplets (toDocument self)) - -foreign import javascript unsafe "(($1) => { return $1[\"anchors\"]; })" js_getAnchors :: - Document -> IO HTMLCollection - --- | -getAnchors :: - (MonadIO m, IsDocument self) => self -> m HTMLCollection -getAnchors self = liftIO (js_getAnchors (toDocument self)) - -foreign import javascript unsafe "(($1) => { return $1[\"preferredStylesheetSet\"]; })" - js_getPreferredStylesheetSet :: Document -> IO (Nullable JSString) - --- | -getPreferredStylesheetSet :: - (MonadIO m, IsDocument self, FromJSString result) => - self -> m (Maybe result) -getPreferredStylesheetSet self - = liftIO - (fromMaybeJSString <$> - (js_getPreferredStylesheetSet (toDocument self))) - --- | -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) - --- | -getPreferredStylesheetSetUnchecked :: - (MonadIO m, IsDocument self, FromJSString result) => - self -> m result -getPreferredStylesheetSetUnchecked self - = liftIO - (fromJust . fromMaybeJSString <$> - (js_getPreferredStylesheetSet (toDocument self))) - -foreign import javascript unsafe - "(($1, $2) => { $1[\"selectedStylesheetSet\"] = $2; })" js_setSelectedStylesheetSet - :: Document -> Optional JSString -> IO () - --- | -setSelectedStylesheetSet :: - (MonadIO m, IsDocument self, ToJSString val) => - self -> Maybe val -> m () -setSelectedStylesheetSet self val - = liftIO - (js_setSelectedStylesheetSet (toDocument self) - (toOptionalJSString val)) - -foreign import javascript unsafe "(($1) => { return $1[\"selectedStylesheetSet\"]; })" - js_getSelectedStylesheetSet :: Document -> IO (Nullable JSString) - --- | -getSelectedStylesheetSet :: - (MonadIO m, IsDocument self, FromJSString result) => - self -> m (Maybe result) -getSelectedStylesheetSet self - = liftIO - (fromMaybeJSString <$> - (js_getSelectedStylesheetSet (toDocument self))) - --- | -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) - --- | -getSelectedStylesheetSetUnchecked :: - (MonadIO m, IsDocument self, FromJSString result) => - self -> m result -getSelectedStylesheetSetUnchecked self - = liftIO - (fromJust . fromMaybeJSString <$> - (js_getSelectedStylesheetSet (toDocument self))) - -foreign import javascript unsafe "(($1) => { return $1[\"xmlEncoding\"]; })" - js_getXmlEncoding :: Document -> IO (Nullable JSString) - --- | -getXmlEncoding :: - (MonadIO m, IsDocument self, FromJSString result) => - self -> m (Maybe result) -getXmlEncoding self - = liftIO - (fromMaybeJSString <$> (js_getXmlEncoding (toDocument self))) - --- | -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) - --- | -getXmlEncodingUnchecked :: - (MonadIO m, IsDocument self, FromJSString result) => - self -> m result -getXmlEncodingUnchecked self - = liftIO - (fromJust . fromMaybeJSString <$> - (js_getXmlEncoding (toDocument self))) - -foreign import javascript safe "(($1, $2) => { $1[\"xmlVersion\"] = $2; })" - js_setXmlVersion :: Document -> Optional JSString -> IO () - --- | -setXmlVersion :: - (MonadIO m, IsDocument self, ToJSString val) => - self -> Maybe val -> m () -setXmlVersion self val - = liftIO - (js_setXmlVersion (toDocument self) (toOptionalJSString val)) - -foreign import javascript unsafe "(($1) => { return $1[\"xmlVersion\"]; })" - js_getXmlVersion :: Document -> IO (Nullable JSString) - --- | -getXmlVersion :: - (MonadIO m, IsDocument self, FromJSString result) => - self -> m (Maybe result) -getXmlVersion self - = liftIO - (fromMaybeJSString <$> (js_getXmlVersion (toDocument self))) - --- | -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) - --- | -getXmlVersionUnchecked :: - (MonadIO m, IsDocument self, FromJSString result) => - self -> m result -getXmlVersionUnchecked self - = liftIO - (fromJust . fromMaybeJSString <$> - (js_getXmlVersion (toDocument self))) - -foreign import javascript unsafe "(($1, $2) => { $1[\"xmlStandalone\"] = $2; })" - js_setXmlStandalone :: Document -> Bool -> IO () - --- | -setXmlStandalone :: - (MonadIO m, IsDocument self) => self -> Bool -> m () -setXmlStandalone self val - = liftIO (js_setXmlStandalone (toDocument self) val) - -foreign import javascript unsafe "(($1) => { return ($1[\"xmlStandalone\"] ? 1 : 0); })" - js_getXmlStandalone :: Document -> IO Bool - --- | -getXmlStandalone :: (MonadIO m, IsDocument self) => self -> m Bool -getXmlStandalone self - = liftIO (js_getXmlStandalone (toDocument self)) - --- | -selectStart :: - (IsDocument self, IsEventTarget self) => EventName self Event -selectStart = unsafeEventName (toJSString "selectstart") - --- | -selectionchange :: - (IsDocument self, IsEventTarget self) => - EventName self onselectionchange -selectionchange = unsafeEventName (toJSString "selectionchange") - -foreign import javascript unsafe "(($1) => { return $1[\"rootElement\"]; })" - js_getRootElement :: Document -> IO (Nullable SVGSVGElement) - --- | -getRootElement :: - (MonadIO m, IsDocument self) => self -> m (Maybe SVGSVGElement) -getRootElement self - = liftIO - (nullableToMaybe <$> (js_getRootElement (toDocument self))) - --- | -getRootElementUnsafe :: - (MonadIO m, IsDocument self, HasCallStack) => - self -> m SVGSVGElement -getRootElementUnsafe self - = liftIO - ((nullableToMaybe <$> (js_getRootElement (toDocument self))) >>= - maybe (Prelude.error "Nothing to return") return) - --- | -getRootElementUnchecked :: - (MonadIO m, IsDocument self) => self -> m SVGSVGElement -getRootElementUnchecked self - = liftIO - (fromJust . nullableToMaybe <$> - (js_getRootElement (toDocument self))) +{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- | Generated by dom-gen from dom (webref). Do not edit. +module GHCJS.DOM.JSFFI.Generated.Document + (js_newDocument, js_adoptNode, js_captureEvents, js_caretPositionFromPoint, js_clear, js_close, js_createAttribute, js_createAttributeNS, js_createCDATASection, js_createComment, js_createDocumentFragment, js_createElement, js_createElement', js_createElementNS, js_createElementNS', js_createEvent, js_createNodeIterator, js_createProcessingInstruction, js_createRange, js_createTextNode, js_createTreeWalker, js_elementFromPoint, js_elementsFromPoint, js_execCommand, js_exitFullscreen, js_exitPictureInPicture, js_exitPointerLock, js_getElementsByClassName, js_getElementsByName, js_getElementsByTagName, js_getElementsByTagNameNS, js_getSelection, js_hasFocus, js_hasStorageAccess, js_importNode, js_open, js_openUrlNameFeatures, js_queryCommandEnabled, js_queryCommandIndeterm, js_queryCommandState, js_queryCommandSupported, js_queryCommandValue, js_releaseEvents, js_requestStorageAccess, js_startViewTransition, js_write, js_writeln, js_parseHTML, js_parseHTMLUnsafe, js_getImplementation, js_getURL, js_getDocumentURI, js_getCompatMode, js_getCharacterSet, js_getCharset, js_getInputEncoding, js_getContentType, js_getDoctype, js_getDocumentElement, js_getRootElement, js_getActiveViewTransition, js_getScrollingElement, js_getFullscreenEnabled, js_getFullscreen, js_getLocation, js_setDomain, js_getDomain, js_getReferrer, js_setCookie, js_getCookie, js_getLastModified, js_getReadyState, js_setTitle, js_getTitle, js_setDir, js_getDir, js_setBody, js_getBody, js_getHead, js_getImages, js_getEmbeds, js_getPlugins, js_getLinks, js_getForms, js_getScripts, js_getCurrentScript, js_getDefaultView, js_setDesignMode, js_getDesignMode, js_getHidden, js_getVisibilityState, js_setFgColor, js_getFgColor, js_setLinkColor, js_getLinkColor, js_setVlinkColor, js_getVlinkColor, js_setAlinkColor, js_getAlinkColor, js_setBgColor, js_getBgColor, js_getAnchors, js_getApplets, js_getAll, js_getPictureInPictureEnabled, js_getFragmentDirective, js_getTimeline, newDocument, adoptNode, adoptNode_, captureEvents, caretPositionFromPoint, caretPositionFromPoint_, caretPositionFromPointUnsafe, caretPositionFromPointUnchecked, clear, close, createAttribute, createAttribute_, createAttributeNS, createAttributeNS_, createCDATASection, createCDATASection_, createComment, createComment_, createDocumentFragment, createDocumentFragment_, createElement, createElement_, createElement', createElement'_, createElementNS, createElementNS_, createElementNS', createElementNS'_, createEvent, createEvent_, createNodeIterator, createNodeIterator_, createProcessingInstruction, createProcessingInstruction_, createRange, createRange_, createTextNode, createTextNode_, createTreeWalker, createTreeWalker_, elementFromPoint, elementFromPoint_, elementFromPointUnsafe, elementFromPointUnchecked, elementsFromPoint, elementsFromPoint_, execCommand, execCommand_, exitFullscreen, exitPictureInPicture, exitPointerLock, getElementsByClassName, getElementsByClassName_, getElementsByName, getElementsByName_, getElementsByTagName, getElementsByTagName_, getElementsByTagNameNS, getElementsByTagNameNS_, getSelection, getSelection_, getSelectionUnsafe, getSelectionUnchecked, hasFocus, hasFocus_, hasStorageAccess, hasStorageAccess_, importNode, importNode_, open, open_, openUrlNameFeatures, openUrlNameFeatures_, openUrlNameFeaturesUnsafe, openUrlNameFeaturesUnchecked, queryCommandEnabled, queryCommandEnabled_, queryCommandIndeterm, queryCommandIndeterm_, queryCommandState, queryCommandState_, queryCommandSupported, queryCommandSupported_, queryCommandValue, queryCommandValue_, releaseEvents, requestStorageAccess, startViewTransition, startViewTransition_, write, writeln, parseHTML, parseHTML_, parseHTMLUnsafe, parseHTMLUnsafe_, getImplementation, getURL, getDocumentURI, getCompatMode, getCharacterSet, getCharset, getInputEncoding, getContentType, getDoctype, getDoctypeUnsafe, getDoctypeUnchecked, getDocumentElement, getDocumentElementUnsafe, getDocumentElementUnchecked, getRootElement, getRootElementUnsafe, getRootElementUnchecked, getActiveViewTransition, getActiveViewTransitionUnsafe, getActiveViewTransitionUnchecked, getScrollingElement, getScrollingElementUnsafe, getScrollingElementUnchecked, getFullscreenEnabled, getFullscreen, getLocation, getLocationUnsafe, getLocationUnchecked, setDomain, getDomain, getReferrer, setCookie, getCookie, getLastModified, getReadyState, setTitle, getTitle, setDir, getDir, setBody, getBody, getBodyUnsafe, getBodyUnchecked, getHead, getHeadUnsafe, getHeadUnchecked, getImages, getEmbeds, getPlugins, getLinks, getForms, getScripts, getCurrentScript, getCurrentScriptUnsafe, getCurrentScriptUnchecked, getDefaultView, getDefaultViewUnsafe, getDefaultViewUnchecked, setDesignMode, getDesignMode, getHidden, getVisibilityState, setFgColor, getFgColor, setLinkColor, getLinkColor, setVlinkColor, getVlinkColor, setAlinkColor, getAlinkColor, setBgColor, getBgColor, getAnchors, getApplets, getAll, getPictureInPictureEnabled, getFragmentDirective, getTimeline, fullscreenchange, fullscreenerror, readyStateChange, visibilitychange, pointerlockchange, pointerlockerror, autofill, domContentLoaded, unload, Document(..), gTypeDocument, IsDocument, toDocument) + where +import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float) +import qualified Prelude as P +import Control.Monad (void) +import GHCJS.Types (JSVal, JSString) +import GHCJS.Foreign (jsUndefined, jsNull) +import GHCJS.DOM.Types +import qualified GHCJS.DOM.Types as Types +import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) +import GHCJS.DOM.JSFFI.Generated.Enums + +foreign import javascript safe "(() => { return new globalThis[\"Document\"](); })" + js_newDocument :: IO Document +-- | +newDocument :: (MonadDOM m) => m Document +newDocument = liftDOM ((js_newDocument)) + +foreign import javascript safe "(($1, $2) => { return $1[\"adoptNode\"]($2); })" + js_adoptNode :: Document -> Node -> IO Node +-- | +adoptNode :: (MonadDOM m, IsDocument self, IsNode node) => self -> node -> m Node +adoptNode self node = liftDOM ((js_adoptNode ((Types.toDocument self)) (Types.toNode node))) + +-- | +adoptNode_ :: (MonadDOM m, IsDocument self, IsNode node) => self -> node -> m () +adoptNode_ self node = liftDOM (void ((js_adoptNode ((Types.toDocument self)) (Types.toNode node)))) + +foreign import javascript safe "(($1) => { return $1[\"captureEvents\"](); })" + js_captureEvents :: Document -> IO () +-- | +captureEvents :: (MonadDOM m, IsDocument self) => self -> m () +captureEvents self = liftDOM (void ((js_captureEvents ((Types.toDocument self))))) + +foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"caretPositionFromPoint\"]($2, $3, $4); })" + js_caretPositionFromPoint :: Document -> Double -> Double -> JSVal -> IO JSVal +-- | +caretPositionFromPoint :: (MonadDOM m, IsDocument self) => self -> Double -> Double -> Maybe CaretPositionFromPointOptions -> m (Maybe CaretPosition) +caretPositionFromPoint self x y options = liftDOM ((((P.maybe (P.return jsUndefined) toJSVal options) >>= \a4' -> js_caretPositionFromPoint ((Types.toDocument self)) (x) (y) a4') >>= fromJSValUnchecked)) + +-- | +caretPositionFromPoint_ :: (MonadDOM m, IsDocument self) => self -> Double -> Double -> Maybe CaretPositionFromPointOptions -> m () +caretPositionFromPoint_ self x y options = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal options) >>= \a4' -> js_caretPositionFromPoint ((Types.toDocument self)) (x) (y) a4'))) + +-- | +caretPositionFromPointUnsafe :: (MonadDOM m, IsDocument self, HasCallStack) => self -> Double -> Double -> Maybe CaretPositionFromPointOptions -> m CaretPosition +caretPositionFromPointUnsafe self x y options = liftDOM (((((P.maybe (P.return jsUndefined) toJSVal options) >>= \a4' -> js_caretPositionFromPoint ((Types.toDocument self)) (x) (y) a4') >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +caretPositionFromPointUnchecked :: (MonadDOM m, IsDocument self) => self -> Double -> Double -> Maybe CaretPositionFromPointOptions -> m CaretPosition +caretPositionFromPointUnchecked self x y options = liftDOM ((pFromJSVal <$> ((P.maybe (P.return jsUndefined) toJSVal options) >>= \a4' -> js_caretPositionFromPoint ((Types.toDocument self)) (x) (y) a4'))) + +foreign import javascript safe "(($1) => { return $1[\"clear\"](); })" + js_clear :: Document -> IO () +-- | +clear :: (MonadDOM m, IsDocument self) => self -> m () +clear self = liftDOM (void ((js_clear ((Types.toDocument self))))) + +foreign import javascript safe "(($1) => { return $1[\"close\"](); })" + js_close :: Document -> IO () +-- | +close :: (MonadDOM m, IsDocument self) => self -> m () +close self = liftDOM (void ((js_close ((Types.toDocument self))))) + +foreign import javascript safe "(($1, $2) => { return $1[\"createAttribute\"]($2); })" + js_createAttribute :: Document -> JSString -> IO Attr +-- | +createAttribute :: (MonadDOM m, IsDocument self, ToJSString localName) => self -> localName -> m Attr +createAttribute self localName = liftDOM ((js_createAttribute ((Types.toDocument self)) (toJSString localName))) + +-- | +createAttribute_ :: (MonadDOM m, IsDocument self, ToJSString localName) => self -> localName -> m () +createAttribute_ self localName = liftDOM (void ((js_createAttribute ((Types.toDocument self)) (toJSString localName)))) + +foreign import javascript safe "(($1, $2, $3) => { return $1[\"createAttributeNS\"]($2, $3); })" + js_createAttributeNS :: Document -> (Nullable JSString) -> JSString -> IO Attr +-- | +createAttributeNS :: (MonadDOM m, IsDocument self, ToJSString namespace, ToJSString qualifiedName) => self -> Maybe namespace -> qualifiedName -> m Attr +createAttributeNS self namespace qualifiedName = liftDOM ((js_createAttributeNS ((Types.toDocument self)) (toMaybeJSString namespace) (toJSString qualifiedName))) + +-- | +createAttributeNS_ :: (MonadDOM m, IsDocument self, ToJSString namespace, ToJSString qualifiedName) => self -> Maybe namespace -> qualifiedName -> m () +createAttributeNS_ self namespace qualifiedName = liftDOM (void ((js_createAttributeNS ((Types.toDocument self)) (toMaybeJSString namespace) (toJSString qualifiedName)))) + +foreign import javascript safe "(($1, $2) => { return $1[\"createCDATASection\"]($2); })" + js_createCDATASection :: Document -> JSString -> IO CDATASection +-- | +createCDATASection :: (MonadDOM m, IsDocument self, ToJSString data') => self -> data' -> m CDATASection +createCDATASection self data' = liftDOM ((js_createCDATASection ((Types.toDocument self)) (toJSString data'))) + +-- | +createCDATASection_ :: (MonadDOM m, IsDocument self, ToJSString data') => self -> data' -> m () +createCDATASection_ self data' = liftDOM (void ((js_createCDATASection ((Types.toDocument self)) (toJSString data')))) + +foreign import javascript safe "(($1, $2) => { return $1[\"createComment\"]($2); })" + js_createComment :: Document -> JSString -> IO Comment +-- | +createComment :: (MonadDOM m, IsDocument self, ToJSString data') => self -> data' -> m Comment +createComment self data' = liftDOM ((js_createComment ((Types.toDocument self)) (toJSString data'))) + +-- | +createComment_ :: (MonadDOM m, IsDocument self, ToJSString data') => self -> data' -> m () +createComment_ self data' = liftDOM (void ((js_createComment ((Types.toDocument self)) (toJSString data')))) + +foreign import javascript safe "(($1) => { return $1[\"createDocumentFragment\"](); })" + js_createDocumentFragment :: Document -> IO DocumentFragment +-- | +createDocumentFragment :: (MonadDOM m, IsDocument self) => self -> m DocumentFragment +createDocumentFragment self = liftDOM ((js_createDocumentFragment ((Types.toDocument self)))) + +-- | +createDocumentFragment_ :: (MonadDOM m, IsDocument self) => self -> m () +createDocumentFragment_ self = liftDOM (void ((js_createDocumentFragment ((Types.toDocument self))))) + +foreign import javascript safe "(($1, $2) => { return $1[\"createElement\"]($2); })" + js_createElement :: Document -> JSString -> IO Element +-- | +createElement :: (MonadDOM m, IsDocument self, ToJSString localName) => self -> localName -> m Element +createElement self localName = liftDOM ((js_createElement ((Types.toDocument self)) (toJSString localName))) + +-- | +createElement_ :: (MonadDOM m, IsDocument self, ToJSString localName) => self -> localName -> m () +createElement_ self localName = liftDOM (void ((js_createElement ((Types.toDocument self)) (toJSString localName)))) + +foreign import javascript safe "(($1, $2, $3) => { return $1[\"createElement\"]($2, $3); })" + js_createElement' :: Document -> JSString -> JSVal -> IO Element +-- | +createElement' :: (MonadDOM m, IsDocument self, ToJSString localName, IsStringOrElementCreationOptions options) => self -> localName -> Maybe options -> m Element +createElement' self localName options = liftDOM (((P.maybe (P.return jsUndefined) toJSVal options) >>= \a3' -> js_createElement' ((Types.toDocument self)) (toJSString localName) a3')) + +-- | +createElement'_ :: (MonadDOM m, IsDocument self, ToJSString localName, IsStringOrElementCreationOptions options) => self -> localName -> Maybe options -> m () +createElement'_ self localName options = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal options) >>= \a3' -> js_createElement' ((Types.toDocument self)) (toJSString localName) a3'))) + +foreign import javascript safe "(($1, $2, $3) => { return $1[\"createElementNS\"]($2, $3); })" + js_createElementNS :: Document -> (Nullable JSString) -> JSString -> IO Element +-- | +createElementNS :: (MonadDOM m, IsDocument self, ToJSString namespace, ToJSString qualifiedName) => self -> Maybe namespace -> qualifiedName -> m Element +createElementNS self namespace qualifiedName = liftDOM ((js_createElementNS ((Types.toDocument self)) (toMaybeJSString namespace) (toJSString qualifiedName))) + +-- | +createElementNS_ :: (MonadDOM m, IsDocument self, ToJSString namespace, ToJSString qualifiedName) => self -> Maybe namespace -> qualifiedName -> m () +createElementNS_ self namespace qualifiedName = liftDOM (void ((js_createElementNS ((Types.toDocument self)) (toMaybeJSString namespace) (toJSString qualifiedName)))) + +foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"createElementNS\"]($2, $3, $4); })" + js_createElementNS' :: Document -> (Nullable JSString) -> JSString -> JSVal -> IO Element +-- | +createElementNS' :: (MonadDOM m, IsDocument self, ToJSString namespace, ToJSString qualifiedName, IsStringOrElementCreationOptions options) => self -> Maybe namespace -> qualifiedName -> Maybe options -> m Element +createElementNS' self namespace qualifiedName options = liftDOM (((P.maybe (P.return jsUndefined) toJSVal options) >>= \a4' -> js_createElementNS' ((Types.toDocument self)) (toMaybeJSString namespace) (toJSString qualifiedName) a4')) + +-- | +createElementNS'_ :: (MonadDOM m, IsDocument self, ToJSString namespace, ToJSString qualifiedName, IsStringOrElementCreationOptions options) => self -> Maybe namespace -> qualifiedName -> Maybe options -> m () +createElementNS'_ self namespace qualifiedName options = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal options) >>= \a4' -> js_createElementNS' ((Types.toDocument self)) (toMaybeJSString namespace) (toJSString qualifiedName) a4'))) + +foreign import javascript safe "(($1, $2) => { return $1[\"createEvent\"]($2); })" + js_createEvent :: Document -> JSString -> IO Event +-- | +createEvent :: (MonadDOM m, IsDocument self, ToJSString interface) => self -> interface -> m Event +createEvent self interface = liftDOM ((js_createEvent ((Types.toDocument self)) (toJSString interface))) + +-- | +createEvent_ :: (MonadDOM m, IsDocument self, ToJSString interface) => self -> interface -> m () +createEvent_ self interface = liftDOM (void ((js_createEvent ((Types.toDocument self)) (toJSString interface)))) + +foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"createNodeIterator\"]($2, $3, $4); })" + js_createNodeIterator :: Document -> Node -> JSVal -> JSVal -> IO NodeIterator +-- | +createNodeIterator :: (MonadDOM m, IsDocument self, IsNode root) => self -> root -> Maybe Word -> Maybe NodeFilter -> m NodeIterator +createNodeIterator self root whatToShow filter = liftDOM (((P.maybe (P.return jsUndefined) toJSVal whatToShow) >>= \a3' -> (toJSVal filter) >>= \a4' -> js_createNodeIterator ((Types.toDocument self)) (Types.toNode root) a3' a4')) + +-- | +createNodeIterator_ :: (MonadDOM m, IsDocument self, IsNode root) => self -> root -> Maybe Word -> Maybe NodeFilter -> m () +createNodeIterator_ self root whatToShow filter = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal whatToShow) >>= \a3' -> (toJSVal filter) >>= \a4' -> js_createNodeIterator ((Types.toDocument self)) (Types.toNode root) a3' a4'))) + +foreign import javascript safe "(($1, $2, $3) => { return $1[\"createProcessingInstruction\"]($2, $3); })" + js_createProcessingInstruction :: Document -> JSString -> JSString -> IO ProcessingInstruction +-- | +createProcessingInstruction :: (MonadDOM m, IsDocument self, ToJSString target, ToJSString data') => self -> target -> data' -> m ProcessingInstruction +createProcessingInstruction self target data' = liftDOM ((js_createProcessingInstruction ((Types.toDocument self)) (toJSString target) (toJSString data'))) + +-- | +createProcessingInstruction_ :: (MonadDOM m, IsDocument self, ToJSString target, ToJSString data') => self -> target -> data' -> m () +createProcessingInstruction_ self target data' = liftDOM (void ((js_createProcessingInstruction ((Types.toDocument self)) (toJSString target) (toJSString data')))) + +foreign import javascript safe "(($1) => { return $1[\"createRange\"](); })" + js_createRange :: Document -> IO Range +-- | +createRange :: (MonadDOM m, IsDocument self) => self -> m Range +createRange self = liftDOM ((js_createRange ((Types.toDocument self)))) + +-- | +createRange_ :: (MonadDOM m, IsDocument self) => self -> m () +createRange_ self = liftDOM (void ((js_createRange ((Types.toDocument self))))) + +foreign import javascript safe "(($1, $2) => { return $1[\"createTextNode\"]($2); })" + js_createTextNode :: Document -> JSString -> IO Text +-- | +createTextNode :: (MonadDOM m, IsDocument self, ToJSString data') => self -> data' -> m Text +createTextNode self data' = liftDOM ((js_createTextNode ((Types.toDocument self)) (toJSString data'))) + +-- | +createTextNode_ :: (MonadDOM m, IsDocument self, ToJSString data') => self -> data' -> m () +createTextNode_ self data' = liftDOM (void ((js_createTextNode ((Types.toDocument self)) (toJSString data')))) + +foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"createTreeWalker\"]($2, $3, $4); })" + js_createTreeWalker :: Document -> Node -> JSVal -> JSVal -> IO TreeWalker +-- | +createTreeWalker :: (MonadDOM m, IsDocument self, IsNode root) => self -> root -> Maybe Word -> Maybe NodeFilter -> m TreeWalker +createTreeWalker self root whatToShow filter = liftDOM (((P.maybe (P.return jsUndefined) toJSVal whatToShow) >>= \a3' -> (toJSVal filter) >>= \a4' -> js_createTreeWalker ((Types.toDocument self)) (Types.toNode root) a3' a4')) + +-- | +createTreeWalker_ :: (MonadDOM m, IsDocument self, IsNode root) => self -> root -> Maybe Word -> Maybe NodeFilter -> m () +createTreeWalker_ self root whatToShow filter = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal whatToShow) >>= \a3' -> (toJSVal filter) >>= \a4' -> js_createTreeWalker ((Types.toDocument self)) (Types.toNode root) a3' a4'))) + +foreign import javascript safe "(($1, $2, $3) => { return $1[\"elementFromPoint\"]($2, $3); })" + js_elementFromPoint :: Document -> Double -> Double -> IO JSVal +-- | +elementFromPoint :: (MonadDOM m, IsDocument self) => self -> Double -> Double -> m (Maybe Element) +elementFromPoint self x y = liftDOM (((js_elementFromPoint ((Types.toDocument self)) (x) (y)) >>= fromJSValUnchecked)) + +-- | +elementFromPoint_ :: (MonadDOM m, IsDocument self) => self -> Double -> Double -> m () +elementFromPoint_ self x y = liftDOM (void ((js_elementFromPoint ((Types.toDocument self)) (x) (y)))) + +-- | +elementFromPointUnsafe :: (MonadDOM m, IsDocument self, HasCallStack) => self -> Double -> Double -> m Element +elementFromPointUnsafe self x y = liftDOM ((((js_elementFromPoint ((Types.toDocument self)) (x) (y)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +elementFromPointUnchecked :: (MonadDOM m, IsDocument self) => self -> Double -> Double -> m Element +elementFromPointUnchecked self x y = liftDOM ((pFromJSVal <$> (js_elementFromPoint ((Types.toDocument self)) (x) (y)))) + +foreign import javascript safe "(($1, $2, $3) => { return $1[\"elementsFromPoint\"]($2, $3); })" + js_elementsFromPoint :: Document -> Double -> Double -> IO JSVal +-- | +elementsFromPoint :: (MonadDOM m, IsDocument self) => self -> Double -> Double -> m [Element] +elementsFromPoint self x y = liftDOM (((js_elementsFromPoint ((Types.toDocument self)) (x) (y)) >>= fromJSValUnchecked)) + +-- | +elementsFromPoint_ :: (MonadDOM m, IsDocument self) => self -> Double -> Double -> m () +elementsFromPoint_ self x y = liftDOM (void ((js_elementsFromPoint ((Types.toDocument self)) (x) (y)))) + +foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"execCommand\"]($2, $3, $4); })" + js_execCommand :: Document -> JSString -> JSVal -> (Optional JSString) -> IO Bool +-- | +execCommand :: (MonadDOM m, IsDocument self, ToJSString commandId, ToJSString value) => self -> commandId -> Maybe Bool -> Maybe value -> m Bool +execCommand self commandId showUI value = liftDOM (((P.maybe (P.return jsUndefined) toJSVal showUI) >>= \a3' -> js_execCommand ((Types.toDocument self)) (toJSString commandId) a3' (toOptionalJSString value))) + +-- | +execCommand_ :: (MonadDOM m, IsDocument self, ToJSString commandId, ToJSString value) => self -> commandId -> Maybe Bool -> Maybe value -> m () +execCommand_ self commandId showUI value = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal showUI) >>= \a3' -> js_execCommand ((Types.toDocument self)) (toJSString commandId) a3' (toOptionalJSString value)))) + +foreign import javascript interruptible "(($1, $c) => { return $1[\"exitFullscreen\"]().then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })" + js_exitFullscreen :: Document -> IO (JSVal, ()) +-- | +exitFullscreen :: (MonadDOM m, IsDocument self) => self -> m () +exitFullscreen self = liftDOM (void (((js_exitFullscreen ((Types.toDocument self))) >>= checkPromiseResult))) + +foreign import javascript interruptible "(($1, $c) => { return $1[\"exitPictureInPicture\"]().then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })" + js_exitPictureInPicture :: Document -> IO (JSVal, ()) +-- | +exitPictureInPicture :: (MonadDOM m, IsDocument self) => self -> m () +exitPictureInPicture self = liftDOM (void (((js_exitPictureInPicture ((Types.toDocument self))) >>= checkPromiseResult))) + +foreign import javascript safe "(($1) => { return $1[\"exitPointerLock\"](); })" + js_exitPointerLock :: Document -> IO () +-- | +exitPointerLock :: (MonadDOM m, IsDocument self) => self -> m () +exitPointerLock self = liftDOM (void ((js_exitPointerLock ((Types.toDocument self))))) + +foreign import javascript safe "(($1, $2) => { return $1[\"getElementsByClassName\"]($2); })" + js_getElementsByClassName :: Document -> JSString -> IO HTMLCollection +-- | +getElementsByClassName :: (MonadDOM m, IsDocument self, ToJSString classNames) => self -> classNames -> m HTMLCollection +getElementsByClassName self classNames = liftDOM ((js_getElementsByClassName ((Types.toDocument self)) (toJSString classNames))) + +-- | +getElementsByClassName_ :: (MonadDOM m, IsDocument self, ToJSString classNames) => self -> classNames -> m () +getElementsByClassName_ self classNames = liftDOM (void ((js_getElementsByClassName ((Types.toDocument self)) (toJSString classNames)))) + +foreign import javascript safe "(($1, $2) => { return $1[\"getElementsByName\"]($2); })" + js_getElementsByName :: Document -> JSString -> IO NodeList +-- | +getElementsByName :: (MonadDOM m, IsDocument self, ToJSString elementName) => self -> elementName -> m NodeList +getElementsByName self elementName = liftDOM ((js_getElementsByName ((Types.toDocument self)) (toJSString elementName))) + +-- | +getElementsByName_ :: (MonadDOM m, IsDocument self, ToJSString elementName) => self -> elementName -> m () +getElementsByName_ self elementName = liftDOM (void ((js_getElementsByName ((Types.toDocument self)) (toJSString elementName)))) + +foreign import javascript safe "(($1, $2) => { return $1[\"getElementsByTagName\"]($2); })" + js_getElementsByTagName :: Document -> JSString -> IO HTMLCollection +-- | +getElementsByTagName :: (MonadDOM m, IsDocument self, ToJSString qualifiedName) => self -> qualifiedName -> m HTMLCollection +getElementsByTagName self qualifiedName = liftDOM ((js_getElementsByTagName ((Types.toDocument self)) (toJSString qualifiedName))) + +-- | +getElementsByTagName_ :: (MonadDOM m, IsDocument self, ToJSString qualifiedName) => self -> qualifiedName -> m () +getElementsByTagName_ self qualifiedName = liftDOM (void ((js_getElementsByTagName ((Types.toDocument self)) (toJSString qualifiedName)))) + +foreign import javascript safe "(($1, $2, $3) => { return $1[\"getElementsByTagNameNS\"]($2, $3); })" + js_getElementsByTagNameNS :: Document -> (Nullable JSString) -> JSString -> IO HTMLCollection +-- | +getElementsByTagNameNS :: (MonadDOM m, IsDocument self, ToJSString namespace, ToJSString localName) => self -> Maybe namespace -> localName -> m HTMLCollection +getElementsByTagNameNS self namespace localName = liftDOM ((js_getElementsByTagNameNS ((Types.toDocument self)) (toMaybeJSString namespace) (toJSString localName))) + +-- | +getElementsByTagNameNS_ :: (MonadDOM m, IsDocument self, ToJSString namespace, ToJSString localName) => self -> Maybe namespace -> localName -> m () +getElementsByTagNameNS_ self namespace localName = liftDOM (void ((js_getElementsByTagNameNS ((Types.toDocument self)) (toMaybeJSString namespace) (toJSString localName)))) + +foreign import javascript safe "(($1) => { return $1[\"getSelection\"](); })" + js_getSelection :: Document -> IO JSVal +-- | +getSelection :: (MonadDOM m, IsDocument self) => self -> m (Maybe Selection) +getSelection self = liftDOM (((js_getSelection ((Types.toDocument self))) >>= fromJSValUnchecked)) + +-- | +getSelection_ :: (MonadDOM m, IsDocument self) => self -> m () +getSelection_ self = liftDOM (void ((js_getSelection ((Types.toDocument self))))) + +-- | +getSelectionUnsafe :: (MonadDOM m, IsDocument self, HasCallStack) => self -> m Selection +getSelectionUnsafe self = liftDOM ((((js_getSelection ((Types.toDocument self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getSelectionUnchecked :: (MonadDOM m, IsDocument self) => self -> m Selection +getSelectionUnchecked self = liftDOM ((pFromJSVal <$> (js_getSelection ((Types.toDocument self))))) + +foreign import javascript safe "(($1) => { return $1[\"hasFocus\"](); })" + js_hasFocus :: Document -> IO Bool +-- | +hasFocus :: (MonadDOM m, IsDocument self) => self -> m Bool +hasFocus self = liftDOM ((js_hasFocus ((Types.toDocument self)))) + +-- | +hasFocus_ :: (MonadDOM m, IsDocument self) => self -> m () +hasFocus_ self = liftDOM (void ((js_hasFocus ((Types.toDocument self))))) + +foreign import javascript interruptible "(($1, $c) => { return $1[\"hasStorageAccess\"]().then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })" + js_hasStorageAccess :: Document -> IO (JSVal, Bool) +-- | +hasStorageAccess :: (MonadDOM m, IsDocument self) => self -> m Bool +hasStorageAccess self = liftDOM (((js_hasStorageAccess ((Types.toDocument self))) >>= checkPromiseResult)) + +-- | +hasStorageAccess_ :: (MonadDOM m, IsDocument self) => self -> m () +hasStorageAccess_ self = liftDOM (void (((js_hasStorageAccess ((Types.toDocument self))) >>= checkPromiseResult))) + +foreign import javascript safe "(($1, $2, $3) => { return $1[\"importNode\"]($2, $3); })" + js_importNode :: Document -> Node -> JSVal -> IO Node +-- | +importNode :: (MonadDOM m, IsDocument self, IsNode node, IsBoolOrImportNodeOptions options) => self -> node -> Maybe options -> m Node +importNode self node options = liftDOM (((P.maybe (P.return jsUndefined) toJSVal options) >>= \a3' -> js_importNode ((Types.toDocument self)) (Types.toNode node) a3')) + +-- | +importNode_ :: (MonadDOM m, IsDocument self, IsNode node, IsBoolOrImportNodeOptions options) => self -> node -> Maybe options -> m () +importNode_ self node options = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal options) >>= \a3' -> js_importNode ((Types.toDocument self)) (Types.toNode node) a3'))) + +foreign import javascript safe "(($1, $2, $3) => { return $1[\"open\"]($2, $3); })" + js_open :: Document -> (Optional JSString) -> (Optional JSString) -> IO Document +-- | +open :: (MonadDOM m, IsDocument self, ToJSString unused1, ToJSString unused2) => self -> Maybe unused1 -> Maybe unused2 -> m Document +open self unused1 unused2 = liftDOM ((js_open ((Types.toDocument self)) (toOptionalJSString unused1) (toOptionalJSString unused2))) + +-- | +open_ :: (MonadDOM m, IsDocument self, ToJSString unused1, ToJSString unused2) => self -> Maybe unused1 -> Maybe unused2 -> m () +open_ self unused1 unused2 = liftDOM (void ((js_open ((Types.toDocument self)) (toOptionalJSString unused1) (toOptionalJSString unused2)))) + +foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"open\"]($2, $3, $4); })" + js_openUrlNameFeatures :: Document -> JSString -> JSString -> JSString -> IO JSVal +-- | +openUrlNameFeatures :: (MonadDOM m, IsDocument self, ToJSString url, ToJSString name, ToJSString features) => self -> url -> name -> features -> m (Maybe Window) +openUrlNameFeatures self url name features = liftDOM (((js_openUrlNameFeatures ((Types.toDocument self)) (toJSString url) (toJSString name) (toJSString features)) >>= fromJSValUnchecked)) + +-- | +openUrlNameFeatures_ :: (MonadDOM m, IsDocument self, ToJSString url, ToJSString name, ToJSString features) => self -> url -> name -> features -> m () +openUrlNameFeatures_ self url name features = liftDOM (void ((js_openUrlNameFeatures ((Types.toDocument self)) (toJSString url) (toJSString name) (toJSString features)))) + +-- | +openUrlNameFeaturesUnsafe :: (MonadDOM m, IsDocument self, ToJSString url, ToJSString name, ToJSString features, HasCallStack) => self -> url -> name -> features -> m Window +openUrlNameFeaturesUnsafe self url name features = liftDOM ((((js_openUrlNameFeatures ((Types.toDocument self)) (toJSString url) (toJSString name) (toJSString features)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +openUrlNameFeaturesUnchecked :: (MonadDOM m, IsDocument self, ToJSString url, ToJSString name, ToJSString features) => self -> url -> name -> features -> m Window +openUrlNameFeaturesUnchecked self url name features = liftDOM ((pFromJSVal <$> (js_openUrlNameFeatures ((Types.toDocument self)) (toJSString url) (toJSString name) (toJSString features)))) + +foreign import javascript safe "(($1, $2) => { return $1[\"queryCommandEnabled\"]($2); })" + js_queryCommandEnabled :: Document -> JSString -> IO Bool +-- | +queryCommandEnabled :: (MonadDOM m, IsDocument self, ToJSString commandId) => self -> commandId -> m Bool +queryCommandEnabled self commandId = liftDOM ((js_queryCommandEnabled ((Types.toDocument self)) (toJSString commandId))) + +-- | +queryCommandEnabled_ :: (MonadDOM m, IsDocument self, ToJSString commandId) => self -> commandId -> m () +queryCommandEnabled_ self commandId = liftDOM (void ((js_queryCommandEnabled ((Types.toDocument self)) (toJSString commandId)))) + +foreign import javascript safe "(($1, $2) => { return $1[\"queryCommandIndeterm\"]($2); })" + js_queryCommandIndeterm :: Document -> JSString -> IO Bool +queryCommandIndeterm :: (MonadDOM m, IsDocument self, ToJSString commandId) => self -> commandId -> m Bool +queryCommandIndeterm self commandId = liftDOM ((js_queryCommandIndeterm ((Types.toDocument self)) (toJSString commandId))) + +queryCommandIndeterm_ :: (MonadDOM m, IsDocument self, ToJSString commandId) => self -> commandId -> m () +queryCommandIndeterm_ self commandId = liftDOM (void ((js_queryCommandIndeterm ((Types.toDocument self)) (toJSString commandId)))) + +foreign import javascript safe "(($1, $2) => { return $1[\"queryCommandState\"]($2); })" + js_queryCommandState :: Document -> JSString -> IO Bool +-- | +queryCommandState :: (MonadDOM m, IsDocument self, ToJSString commandId) => self -> commandId -> m Bool +queryCommandState self commandId = liftDOM ((js_queryCommandState ((Types.toDocument self)) (toJSString commandId))) + +-- | +queryCommandState_ :: (MonadDOM m, IsDocument self, ToJSString commandId) => self -> commandId -> m () +queryCommandState_ self commandId = liftDOM (void ((js_queryCommandState ((Types.toDocument self)) (toJSString commandId)))) + +foreign import javascript safe "(($1, $2) => { return $1[\"queryCommandSupported\"]($2); })" + js_queryCommandSupported :: Document -> JSString -> IO Bool +-- | +queryCommandSupported :: (MonadDOM m, IsDocument self, ToJSString commandId) => self -> commandId -> m Bool +queryCommandSupported self commandId = liftDOM ((js_queryCommandSupported ((Types.toDocument self)) (toJSString commandId))) + +-- | +queryCommandSupported_ :: (MonadDOM m, IsDocument self, ToJSString commandId) => self -> commandId -> m () +queryCommandSupported_ self commandId = liftDOM (void ((js_queryCommandSupported ((Types.toDocument self)) (toJSString commandId)))) + +foreign import javascript safe "(($1, $2) => { return $1[\"queryCommandValue\"]($2); })" + js_queryCommandValue :: Document -> JSString -> IO JSString +queryCommandValue :: (MonadDOM m, IsDocument self, ToJSString commandId, FromJSString result) => self -> commandId -> m result +queryCommandValue self commandId = liftDOM ((fromJSString <$> (js_queryCommandValue ((Types.toDocument self)) (toJSString commandId)))) + +queryCommandValue_ :: (MonadDOM m, IsDocument self, ToJSString commandId) => self -> commandId -> m () +queryCommandValue_ self commandId = liftDOM (void ((js_queryCommandValue ((Types.toDocument self)) (toJSString commandId)))) + +foreign import javascript safe "(($1) => { return $1[\"releaseEvents\"](); })" + js_releaseEvents :: Document -> IO () +-- | +releaseEvents :: (MonadDOM m, IsDocument self) => self -> m () +releaseEvents self = liftDOM (void ((js_releaseEvents ((Types.toDocument self))))) + +foreign import javascript interruptible "(($1, $c) => { return $1[\"requestStorageAccess\"]().then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })" + js_requestStorageAccess :: Document -> IO (JSVal, ()) +-- | +requestStorageAccess :: (MonadDOM m, IsDocument self) => self -> m () +requestStorageAccess self = liftDOM (void (((js_requestStorageAccess ((Types.toDocument self))) >>= checkPromiseResult))) + +foreign import javascript safe "(($1, $2) => { return $1[\"startViewTransition\"]($2); })" + js_startViewTransition :: Document -> JSVal -> IO ViewTransition +-- | +startViewTransition :: (MonadDOM m, IsDocument self, IsViewTransitionUpdateCallbackOrStartViewTransitionOptions callbackOptions) => self -> Maybe callbackOptions -> m ViewTransition +startViewTransition self callbackOptions = liftDOM (((P.maybe (P.return jsUndefined) toJSVal callbackOptions) >>= \a2' -> js_startViewTransition ((Types.toDocument self)) a2')) + +-- | +startViewTransition_ :: (MonadDOM m, IsDocument self, IsViewTransitionUpdateCallbackOrStartViewTransitionOptions callbackOptions) => self -> Maybe callbackOptions -> m () +startViewTransition_ self callbackOptions = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal callbackOptions) >>= \a2' -> js_startViewTransition ((Types.toDocument self)) a2'))) + +foreign import javascript safe "(($1, $2) => { return $1[\"write\"](...$2); })" + js_write :: Document -> JSVal -> IO () +-- | +write :: (MonadDOM m, IsDocument self, IsTrustedHTMLOrString text) => self -> [text] -> m () +write self text = liftDOM (void (((toJSVal text) >>= \a2' -> js_write ((Types.toDocument self)) a2'))) + +foreign import javascript safe "(($1, $2) => { return $1[\"writeln\"](...$2); })" + js_writeln :: Document -> JSVal -> IO () +-- | +writeln :: (MonadDOM m, IsDocument self, IsTrustedHTMLOrString text) => self -> [text] -> m () +writeln self text = liftDOM (void (((toJSVal text) >>= \a2' -> js_writeln ((Types.toDocument self)) a2'))) + +foreign import javascript safe "(($1, $2) => { return globalThis[\"Document\"][\"parseHTML\"]($1, $2); })" + js_parseHTML :: JSString -> JSVal -> IO Document +-- | +parseHTML :: (MonadDOM m, ToJSString html) => html -> Maybe SetHTMLOptions -> m Document +parseHTML html options = liftDOM (((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_parseHTML (toJSString html) a2')) + +-- | +parseHTML_ :: (MonadDOM m, ToJSString html) => html -> Maybe SetHTMLOptions -> m () +parseHTML_ html options = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_parseHTML (toJSString html) a2'))) + +foreign import javascript safe "(($1, $2) => { return globalThis[\"Document\"][\"parseHTMLUnsafe\"]($1, $2); })" + js_parseHTMLUnsafe :: TrustedHTMLOrString -> JSVal -> IO Document +-- | +parseHTMLUnsafe :: (MonadDOM m, IsTrustedHTMLOrString html, IsParseHTMLUnsafeOptionsOrTrustedHTMLParserOptions options) => html -> Maybe options -> m Document +parseHTMLUnsafe html options = liftDOM (((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_parseHTMLUnsafe (Types.toTrustedHTMLOrString html) a2')) + +-- | +parseHTMLUnsafe_ :: (MonadDOM m, IsTrustedHTMLOrString html, IsParseHTMLUnsafeOptionsOrTrustedHTMLParserOptions options) => html -> Maybe options -> m () +parseHTMLUnsafe_ html options = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_parseHTMLUnsafe (Types.toTrustedHTMLOrString html) a2'))) + +foreign import javascript unsafe "(($1) => { return $1[\"implementation\"]; })" + js_getImplementation :: Document -> IO DOMImplementation +-- | +getImplementation :: (MonadDOM m, IsDocument self) => self -> m DOMImplementation +getImplementation self = liftDOM ((js_getImplementation ((Types.toDocument self)))) + +foreign import javascript unsafe "(($1) => { return $1[\"URL\"]; })" + js_getURL :: Document -> IO JSString +-- | +getURL :: (MonadDOM m, IsDocument self, FromJSString result) => self -> m result +getURL self = liftDOM ((fromJSString <$> (js_getURL ((Types.toDocument self))))) + +foreign import javascript unsafe "(($1) => { return $1[\"documentURI\"]; })" + js_getDocumentURI :: Document -> IO JSString +-- | +getDocumentURI :: (MonadDOM m, IsDocument self, FromJSString result) => self -> m result +getDocumentURI self = liftDOM ((fromJSString <$> (js_getDocumentURI ((Types.toDocument self))))) + +foreign import javascript unsafe "(($1) => { return $1[\"compatMode\"]; })" + js_getCompatMode :: Document -> IO JSString +-- | +getCompatMode :: (MonadDOM m, IsDocument self, FromJSString result) => self -> m result +getCompatMode self = liftDOM ((fromJSString <$> (js_getCompatMode ((Types.toDocument self))))) + +foreign import javascript unsafe "(($1) => { return $1[\"characterSet\"]; })" + js_getCharacterSet :: Document -> IO JSString +-- | +getCharacterSet :: (MonadDOM m, IsDocument self, FromJSString result) => self -> m result +getCharacterSet self = liftDOM ((fromJSString <$> (js_getCharacterSet ((Types.toDocument self))))) + +foreign import javascript unsafe "(($1) => { return $1[\"charset\"]; })" + js_getCharset :: Document -> IO JSString +-- | +getCharset :: (MonadDOM m, IsDocument self, FromJSString result) => self -> m result +getCharset self = liftDOM ((fromJSString <$> (js_getCharset ((Types.toDocument self))))) + +foreign import javascript unsafe "(($1) => { return $1[\"inputEncoding\"]; })" + js_getInputEncoding :: Document -> IO JSString +-- | +getInputEncoding :: (MonadDOM m, IsDocument self, FromJSString result) => self -> m result +getInputEncoding self = liftDOM ((fromJSString <$> (js_getInputEncoding ((Types.toDocument self))))) + +foreign import javascript unsafe "(($1) => { return $1[\"contentType\"]; })" + js_getContentType :: Document -> IO JSString +-- | +getContentType :: (MonadDOM m, IsDocument self, FromJSString result) => self -> m result +getContentType self = liftDOM ((fromJSString <$> (js_getContentType ((Types.toDocument self))))) + +foreign import javascript unsafe "(($1) => { return $1[\"doctype\"]; })" + js_getDoctype :: Document -> IO JSVal +-- | +getDoctype :: (MonadDOM m, IsDocument self) => self -> m (Maybe DocumentType) +getDoctype self = liftDOM (((js_getDoctype ((Types.toDocument self))) >>= fromJSValUnchecked)) + +-- | +getDoctypeUnsafe :: (MonadDOM m, IsDocument self, HasCallStack) => self -> m DocumentType +getDoctypeUnsafe self = liftDOM ((((js_getDoctype ((Types.toDocument self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getDoctypeUnchecked :: (MonadDOM m, IsDocument self) => self -> m DocumentType +getDoctypeUnchecked self = liftDOM ((pFromJSVal <$> (js_getDoctype ((Types.toDocument self))))) + +foreign import javascript unsafe "(($1) => { return $1[\"documentElement\"]; })" + js_getDocumentElement :: Document -> IO JSVal +-- | +getDocumentElement :: (MonadDOM m, IsDocument self) => self -> m (Maybe Element) +getDocumentElement self = liftDOM (((js_getDocumentElement ((Types.toDocument self))) >>= fromJSValUnchecked)) + +-- | +getDocumentElementUnsafe :: (MonadDOM m, IsDocument self, HasCallStack) => self -> m Element +getDocumentElementUnsafe self = liftDOM ((((js_getDocumentElement ((Types.toDocument self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getDocumentElementUnchecked :: (MonadDOM m, IsDocument self) => self -> m Element +getDocumentElementUnchecked self = liftDOM ((pFromJSVal <$> (js_getDocumentElement ((Types.toDocument self))))) + +foreign import javascript unsafe "(($1) => { return $1[\"rootElement\"]; })" + js_getRootElement :: Document -> IO JSVal +-- | +getRootElement :: (MonadDOM m, IsDocument self) => self -> m (Maybe SVGSVGElement) +getRootElement self = liftDOM (((js_getRootElement ((Types.toDocument self))) >>= fromJSValUnchecked)) + +-- | +getRootElementUnsafe :: (MonadDOM m, IsDocument self, HasCallStack) => self -> m SVGSVGElement +getRootElementUnsafe self = liftDOM ((((js_getRootElement ((Types.toDocument self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getRootElementUnchecked :: (MonadDOM m, IsDocument self) => self -> m SVGSVGElement +getRootElementUnchecked self = liftDOM ((pFromJSVal <$> (js_getRootElement ((Types.toDocument self))))) + +foreign import javascript unsafe "(($1) => { return $1[\"activeViewTransition\"]; })" + js_getActiveViewTransition :: Document -> IO JSVal +-- | +getActiveViewTransition :: (MonadDOM m, IsDocument self) => self -> m (Maybe ViewTransition) +getActiveViewTransition self = liftDOM (((js_getActiveViewTransition ((Types.toDocument self))) >>= fromJSValUnchecked)) + +-- | +getActiveViewTransitionUnsafe :: (MonadDOM m, IsDocument self, HasCallStack) => self -> m ViewTransition +getActiveViewTransitionUnsafe self = liftDOM ((((js_getActiveViewTransition ((Types.toDocument self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getActiveViewTransitionUnchecked :: (MonadDOM m, IsDocument self) => self -> m ViewTransition +getActiveViewTransitionUnchecked self = liftDOM ((pFromJSVal <$> (js_getActiveViewTransition ((Types.toDocument self))))) + +foreign import javascript unsafe "(($1) => { return $1[\"scrollingElement\"]; })" + js_getScrollingElement :: Document -> IO JSVal +-- | +getScrollingElement :: (MonadDOM m, IsDocument self) => self -> m (Maybe Element) +getScrollingElement self = liftDOM (((js_getScrollingElement ((Types.toDocument self))) >>= fromJSValUnchecked)) + +-- | +getScrollingElementUnsafe :: (MonadDOM m, IsDocument self, HasCallStack) => self -> m Element +getScrollingElementUnsafe self = liftDOM ((((js_getScrollingElement ((Types.toDocument self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getScrollingElementUnchecked :: (MonadDOM m, IsDocument self) => self -> m Element +getScrollingElementUnchecked self = liftDOM ((pFromJSVal <$> (js_getScrollingElement ((Types.toDocument self))))) + +foreign import javascript unsafe "(($1) => { return $1[\"fullscreenEnabled\"]; })" + js_getFullscreenEnabled :: Document -> IO Bool +-- | +getFullscreenEnabled :: (MonadDOM m, IsDocument self) => self -> m Bool +getFullscreenEnabled self = liftDOM ((js_getFullscreenEnabled ((Types.toDocument self)))) + +foreign import javascript unsafe "(($1) => { return $1[\"fullscreen\"]; })" + js_getFullscreen :: Document -> IO Bool +-- | +getFullscreen :: (MonadDOM m, IsDocument self) => self -> m Bool +getFullscreen self = liftDOM ((js_getFullscreen ((Types.toDocument self)))) + +foreign import javascript unsafe "(($1) => { return $1[\"location\"]; })" + js_getLocation :: Document -> IO JSVal +-- | +getLocation :: (MonadDOM m, IsDocument self) => self -> m (Maybe Location) +getLocation self = liftDOM (((js_getLocation ((Types.toDocument self))) >>= fromJSValUnchecked)) + +-- | +getLocationUnsafe :: (MonadDOM m, IsDocument self, HasCallStack) => self -> m Location +getLocationUnsafe self = liftDOM ((((js_getLocation ((Types.toDocument self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getLocationUnchecked :: (MonadDOM m, IsDocument self) => self -> m Location +getLocationUnchecked self = liftDOM ((pFromJSVal <$> (js_getLocation ((Types.toDocument self))))) + +foreign import javascript safe "(($1, $2) => { $1[\"domain\"] = $2; })" + js_setDomain :: Document -> JSString -> IO () +-- | +setDomain :: (MonadDOM m, IsDocument self, ToJSString val) => self -> val -> m () +setDomain self val = liftDOM (void ((js_setDomain ((Types.toDocument self)) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"domain\"]; })" + js_getDomain :: Document -> IO JSString +-- | +getDomain :: (MonadDOM m, IsDocument self, FromJSString result) => self -> m result +getDomain self = liftDOM ((fromJSString <$> (js_getDomain ((Types.toDocument self))))) + +foreign import javascript unsafe "(($1) => { return $1[\"referrer\"]; })" + js_getReferrer :: Document -> IO JSString +-- | +getReferrer :: (MonadDOM m, IsDocument self, FromJSString result) => self -> m result +getReferrer self = liftDOM ((fromJSString <$> (js_getReferrer ((Types.toDocument self))))) + +foreign import javascript safe "(($1, $2) => { $1[\"cookie\"] = $2; })" + js_setCookie :: Document -> JSString -> IO () +-- | +setCookie :: (MonadDOM m, IsDocument self, ToJSString val) => self -> val -> m () +setCookie self val = liftDOM (void ((js_setCookie ((Types.toDocument self)) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"cookie\"]; })" + js_getCookie :: Document -> IO JSString +-- | +getCookie :: (MonadDOM m, IsDocument self, FromJSString result) => self -> m result +getCookie self = liftDOM ((fromJSString <$> (js_getCookie ((Types.toDocument self))))) + +foreign import javascript unsafe "(($1) => { return $1[\"lastModified\"]; })" + js_getLastModified :: Document -> IO JSString +-- | +getLastModified :: (MonadDOM m, IsDocument self, FromJSString result) => self -> m result +getLastModified self = liftDOM ((fromJSString <$> (js_getLastModified ((Types.toDocument self))))) + +foreign import javascript unsafe "(($1) => { return $1[\"readyState\"]; })" + js_getReadyState :: Document -> IO JSVal +-- | +getReadyState :: (MonadDOM m, IsDocument self) => self -> m DocumentReadyState +getReadyState self = liftDOM (((js_getReadyState ((Types.toDocument self))) >>= fromJSValUnchecked)) + +foreign import javascript safe "(($1, $2) => { $1[\"title\"] = $2; })" + js_setTitle :: Document -> JSString -> IO () +-- | +setTitle :: (MonadDOM m, IsDocument self, ToJSString val) => self -> val -> m () +setTitle self val = liftDOM (void ((js_setTitle ((Types.toDocument self)) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"title\"]; })" + js_getTitle :: Document -> IO JSString +-- | +getTitle :: (MonadDOM m, IsDocument self, FromJSString result) => self -> m result +getTitle self = liftDOM ((fromJSString <$> (js_getTitle ((Types.toDocument self))))) + +foreign import javascript safe "(($1, $2) => { $1[\"dir\"] = $2; })" + js_setDir :: Document -> JSString -> IO () +-- | +setDir :: (MonadDOM m, IsDocument self, ToJSString val) => self -> val -> m () +setDir self val = liftDOM (void ((js_setDir ((Types.toDocument self)) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"dir\"]; })" + js_getDir :: Document -> IO JSString +-- | +getDir :: (MonadDOM m, IsDocument self, FromJSString result) => self -> m result +getDir self = liftDOM ((fromJSString <$> (js_getDir ((Types.toDocument self))))) + +foreign import javascript safe "(($1, $2) => { $1[\"body\"] = $2; })" + js_setBody :: Document -> JSVal -> IO () +-- | +setBody :: (MonadDOM m, IsDocument self, IsHTMLElement val) => self -> Maybe val -> m () +setBody self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setBody ((Types.toDocument self)) a2'))) + +foreign import javascript unsafe "(($1) => { return $1[\"body\"]; })" + js_getBody :: Document -> IO JSVal +-- | +getBody :: (MonadDOM m, IsDocument self) => self -> m (Maybe HTMLElement) +getBody self = liftDOM (((js_getBody ((Types.toDocument self))) >>= fromJSValUnchecked)) + +-- | +getBodyUnsafe :: (MonadDOM m, IsDocument self, HasCallStack) => self -> m HTMLElement +getBodyUnsafe self = liftDOM ((((js_getBody ((Types.toDocument self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getBodyUnchecked :: (MonadDOM m, IsDocument self) => self -> m HTMLElement +getBodyUnchecked self = liftDOM ((pFromJSVal <$> (js_getBody ((Types.toDocument self))))) + +foreign import javascript unsafe "(($1) => { return $1[\"head\"]; })" + js_getHead :: Document -> IO JSVal +-- | +getHead :: (MonadDOM m, IsDocument self) => self -> m (Maybe HTMLHeadElement) +getHead self = liftDOM (((js_getHead ((Types.toDocument self))) >>= fromJSValUnchecked)) + +-- | +getHeadUnsafe :: (MonadDOM m, IsDocument self, HasCallStack) => self -> m HTMLHeadElement +getHeadUnsafe self = liftDOM ((((js_getHead ((Types.toDocument self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getHeadUnchecked :: (MonadDOM m, IsDocument self) => self -> m HTMLHeadElement +getHeadUnchecked self = liftDOM ((pFromJSVal <$> (js_getHead ((Types.toDocument self))))) + +foreign import javascript unsafe "(($1) => { return $1[\"images\"]; })" + js_getImages :: Document -> IO HTMLCollection +-- | +getImages :: (MonadDOM m, IsDocument self) => self -> m HTMLCollection +getImages self = liftDOM ((js_getImages ((Types.toDocument self)))) + +foreign import javascript unsafe "(($1) => { return $1[\"embeds\"]; })" + js_getEmbeds :: Document -> IO HTMLCollection +-- | +getEmbeds :: (MonadDOM m, IsDocument self) => self -> m HTMLCollection +getEmbeds self = liftDOM ((js_getEmbeds ((Types.toDocument self)))) + +foreign import javascript unsafe "(($1) => { return $1[\"plugins\"]; })" + js_getPlugins :: Document -> IO HTMLCollection +-- | +getPlugins :: (MonadDOM m, IsDocument self) => self -> m HTMLCollection +getPlugins self = liftDOM ((js_getPlugins ((Types.toDocument self)))) + +foreign import javascript unsafe "(($1) => { return $1[\"links\"]; })" + js_getLinks :: Document -> IO HTMLCollection +-- | +getLinks :: (MonadDOM m, IsDocument self) => self -> m HTMLCollection +getLinks self = liftDOM ((js_getLinks ((Types.toDocument self)))) + +foreign import javascript unsafe "(($1) => { return $1[\"forms\"]; })" + js_getForms :: Document -> IO HTMLCollection +-- | +getForms :: (MonadDOM m, IsDocument self) => self -> m HTMLCollection +getForms self = liftDOM ((js_getForms ((Types.toDocument self)))) + +foreign import javascript unsafe "(($1) => { return $1[\"scripts\"]; })" + js_getScripts :: Document -> IO HTMLCollection +-- | +getScripts :: (MonadDOM m, IsDocument self) => self -> m HTMLCollection +getScripts self = liftDOM ((js_getScripts ((Types.toDocument self)))) + +foreign import javascript unsafe "(($1) => { return $1[\"currentScript\"]; })" + js_getCurrentScript :: Document -> IO JSVal +-- | +getCurrentScript :: (MonadDOM m, IsDocument self) => self -> m (Maybe HTMLOrSVGScriptElement) +getCurrentScript self = liftDOM (((js_getCurrentScript ((Types.toDocument self))) >>= fromJSValUnchecked)) + +-- | +getCurrentScriptUnsafe :: (MonadDOM m, IsDocument self, HasCallStack) => self -> m HTMLOrSVGScriptElement +getCurrentScriptUnsafe self = liftDOM ((((js_getCurrentScript ((Types.toDocument self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getCurrentScriptUnchecked :: (MonadDOM m, IsDocument self) => self -> m HTMLOrSVGScriptElement +getCurrentScriptUnchecked self = liftDOM ((pFromJSVal <$> (js_getCurrentScript ((Types.toDocument self))))) + +foreign import javascript unsafe "(($1) => { return $1[\"defaultView\"]; })" + js_getDefaultView :: Document -> IO JSVal +-- | +getDefaultView :: (MonadDOM m, IsDocument self) => self -> m (Maybe Window) +getDefaultView self = liftDOM (((js_getDefaultView ((Types.toDocument self))) >>= fromJSValUnchecked)) + +-- | +getDefaultViewUnsafe :: (MonadDOM m, IsDocument self, HasCallStack) => self -> m Window +getDefaultViewUnsafe self = liftDOM ((((js_getDefaultView ((Types.toDocument self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) + +-- | +getDefaultViewUnchecked :: (MonadDOM m, IsDocument self) => self -> m Window +getDefaultViewUnchecked self = liftDOM ((pFromJSVal <$> (js_getDefaultView ((Types.toDocument self))))) + +foreign import javascript safe "(($1, $2) => { $1[\"designMode\"] = $2; })" + js_setDesignMode :: Document -> JSString -> IO () +-- | +setDesignMode :: (MonadDOM m, IsDocument self, ToJSString val) => self -> val -> m () +setDesignMode self val = liftDOM (void ((js_setDesignMode ((Types.toDocument self)) (toJSString val)))) + +foreign import javascript unsafe "(($1) => { return $1[\"designMode\"]; })" + js_getDesignMode :: Document -> IO JSString +-- | +getDesignMode :: (MonadDOM m, IsDocument self, FromJSString result) => self -> m result +getDesignMode self = liftDOM ((fromJSString <$> (js_getDesignMode ((Types.toDocument self))))) + +foreign import javascript unsafe "(($1) => { return $1[\"hidden\"]; })" + js_getHidden :: Document -> IO Bool +-- |